
  SSSSSSSSSSS    YY        YY       0000000         0000000      ZZZZZZZZZZZZZ   RRRRRRRRRRRR       0000000       88888888888
 SSSSSSSSSSSSS    YY      YY       000000000       000000000     ZZZZZZZZZZZZ    RRRRRRRRRRRRR     000000000     8888888888888
 SS         SS     YY    YY       00       00     00       00    ZZ       ZZ     RR         RR    00       00    88         88
 SS                 YY  YY       00         00   00         00           ZZ      RR         RR   00         00   88         88
 SS                  YYYY        00         00   00         00          ZZ       RR         RR   00         00   88         88
 SSSSSSSSSSSS         YY         00         00   00         00         ZZ        RRRRRRRRRRRRR   00         00    88888888888
  SSSSSSSSSSSS        YY         00         00   00         00        ZZ         RRRRRRRRRRRR    00         00    88888888888
            SS        YY         00         00   00         00       ZZ          RR      RR      00         00   88         88
            SS        YY         00         00   00         00      ZZ           RR       RR     00         00   88         88
 SS         SS        YY          00       00     00       00      ZZ       ZZ   RR        RR     00       00    88         88
 SSSSSSSSSSSSS        YY           000000000       000000000      ZZZZZZZZZZZZ   RR         RR     000000000     8888888888888
  SSSSSSSSSSS         YY            0000000         0000000      ZZZZZZZZZZZZZ   RR         RR      0000000       88888888888









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000              44
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000            444
            JJ   OO         OO   BB         BB                    00       00     00       00     00       00          4444
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00        44 44
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00       44  44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00      44   44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00     44    44
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00    444444444444
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00   00         00   4444444444444
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00     00       00            44
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000             44
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000              44









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










  SSSSSSSSSSS    YY        YY       0000000         0000000      ZZZZZZZZZZZZZ   RRRRRRRRRRRR       0000000       88888888888
 SSSSSSSSSSSSS    YY      YY       000000000       000000000     ZZZZZZZZZZZZ    RRRRRRRRRRRRR     000000000     8888888888888
 SS         SS     YY    YY       00       00     00       00    ZZ       ZZ     RR         RR    00       00    88         88
 SS                 YY  YY       00         00   00         00           ZZ      RR         RR   00         00   88         88
 SS                  YYYY        00         00   00         00          ZZ       RR         RR   00         00   88         88
 SSSSSSSSSSSS         YY         00         00   00         00         ZZ        RRRRRRRRRRRRR   00         00    88888888888
  SSSSSSSSSSSS        YY         00         00   00         00        ZZ         RRRRRRRRRRRR    00         00    88888888888
            SS        YY         00         00   00         00       ZZ          RR      RR      00         00   88         88
            SS        YY         00         00   00         00      ZZ           RR       RR     00         00   88         88
 SS         SS        YY          00       00     00       00      ZZ       ZZ   RR        RR     00       00    88         88
 SSSSSSSSSSSSS        YY           000000000       000000000      ZZZZZZZZZZZZ   RR         RR     000000000     8888888888888
  SSSSSSSSSSS         YY            0000000         0000000      ZZZZZZZZZZZZZ   RR         RR      0000000       88888888888









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000              44
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000            444
            JJ   OO         OO   BB         BB                    00       00     00       00     00       00          4444
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00        44 44
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00       44  44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00      44   44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00     44    44
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00    444444444444
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00   00         00   4444444444444
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00     00       00            44
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000             44
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000              44









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 ISV40 JOB ORIGIN FROM GROUP=LOCAL   , DSP=CR , DEVICE=RD1     , 00C
//SY00ZR08 JOB 1,IEFACTRT,MSGLEVEL=(1,1),
//            CLASS=A,MSGCLASS=A
//ASM    EXEC PGM=IEUASM,
//            PARM='DECK,LIST,RENT',REGION=768K
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB,DCB=BLKSIZE=6160,
//            UNIT=SYSDA,VOL=SER=ASPRES
//         DD DISP=SHR,DSN=SYS1.MODGEN,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSUT2   DD DSN=&&SYSUT2,UNIT=SYSDA,SPACE=(1700,(300,50))
//SYSUT3   DD DSN=&&SYSUT3,UNIT=SYSDA,SPACE=(1700,(300,50))
//SYSPRINT DD SYSOUT=A
//SYSLIN   DD DUMMY
//SYSGO    DD DUMMY
//SYSPUNCH DD DSN=&&OBJSET,UNIT=SYSDA,SPACE=(80,(200,50)),
//            DISP=(MOD,PASS)
//SYSIN    DD *
//*
//LKED   EXEC PGM=IEWL,PARM=(XREF,LET,LIST,NCAL,RENT,REUS,REFR),
//            REGION=128K,COND=(4,LT,ASM)
//SYSLMOD  DD DSN=SYS1.LINKLIB(IEFACTRT),DISP=SHR
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(50,20))
//SYSPRINT DD SYSOUT=A
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//CI535 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI535
//SYSLIN   DD DSN=&&OBJSET,DISP=(OLD,DELETE)
//         DD *
/*
//


 LOCATE' 0004SYS1.CI505                                  '
 AL00040E001/ASPDLB0003
 LOCATE' 0004SYS1.CI535                                  '
 AL00040E001/ASPDLB0003


 SY00ZR08 IEF403I SY00ZR08 STARTED    TIME=19.56.27
 SY00ZR08 IEF234E R 665,,SY00ZR08
 SY00ZR08 IEF234E R 666,,SY00ZR08
*SY00ZR08*05 IECASP0 666 IS SY00ZR08           ASM     ASPI0001
 SY00ZR08 IEC202E K 666,010004,NL,SY00ZR08,ASM
*SY00ZR08*06 IECASP0 665 IS SY00ZR08 A         ASM     SYSPRINT
 SY00ZR08 IEF234E D 665,ASP665
*SY00ZR08*07 IECASP0 665 IS SY00ZR08 A         LKED    SYSPRINT
*SY00ZR08*08 IECASP0 666 IS SY00ZR08           LKED    ASPI0002
 SY00ZR08 IEC202E K 666,020004,NL,SY00ZR08,LKED
 SY00ZR08 IEF404I SY00ZR08 ENDED      TIME=19.56.31
//SY00ZR08 JOB 1,IEFACTRT,MSGLEVEL=(1,1),                              *
//            CLASS=A,MSGCLASS=A
//ASM    EXEC PGM=IEUASM,
//            PARM='DECK,LIST,RENT',REGION=768K
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB,DCB=BLKSIZE=6160,
//            UNIT=SYSDA,VOL=SER=ASPRES
//         DD DISP=SHR,DSN=SYS1.MODGEN,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSUT2   DD DSN=&&SYSUT2,UNIT=SYSDA,SPACE=(1700,(300,50))
//SYSUT3   DD DSN=&&SYSUT3,UNIT=SYSDA,SPACE=(1700,(300,50))
//SYSPRINT DD SYSOUT=A
//SYSLIN   DD DUMMY
//SYSGO    DD DUMMY
//SYSPUNCH DD DSN=&&OBJSET,UNIT=SYSDA,SPACE=(80,(200,50)),
//            DISP=(MOD,PASS)
//SYSIN DD UNIT=(CTC,,DEFER),DSNAME=&&ASPI0001,                        *
// DISP=(OLD,DELETE),VOL=SER=010004,DCB=(LRECL=80,BLKSIZE=80,RECFM=F)
***
IEF236I ALLOC. FOR SY00ZR08 ASM
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 159   ALLOCATED TO SYSPUNCH
IEF237I 666   ALLOCATED TO SYSIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T195627.RV001.SY00ZR08.SYSUT1       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T195627.RV001.SY00ZR08.SYSUT2       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T195627.RV001.SY00ZR08.SYSUT3       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T195627.RV001.SY00ZR08.ASPOA001     DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS78240.T195627.RV001.SY00ZR08.OBJSET       PASSED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T195627.RV001.SY00ZR08.ASPI0001     DELETED
IEF285I   VOL SER NOS= 010004.
IEF373I STEP /ASM     / START 78240.1956
IEF374I STEP /ASM     / STOP  78240.1956 CPU   0MIN 02.09SEC MAIN 544K LCS   0K
//LKED   EXEC PGM=IEWL,PARM=(XREF,LET,LIST,NCAL,RENT,REUS,REFR),
//            REGION=128K,COND=(4,LT,ASM)
//SYSLMOD  DD DSN=SYS1.LINKLIB(IEFACTRT),DISP=SHR
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(50,20))
//SYSPRINT DD SYSOUT=A
//CI505 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI505
//CI535 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.CI535
//SYSLIN   DD DSN=&&OBJSET,DISP=(OLD,DELETE)
// DD UNIT=(CTC,,DEFER),DSNAME=&&ASPI0002,                             *
// DISP=(OLD,DELETE),VOL=SER=020004,DCB=(LRECL=80,BLKSIZE=80,RECFM=F)
//
IEF236I ALLOC. FOR SY00ZR08 LKED
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 250   ALLOCATED TO CI505
IEF237I 250   ALLOCATED TO CI535
IEF237I 159   ALLOCATED TO SYSLIN
IEF237I 666   ALLOCATED TO
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T195627.RV001.SY00ZR08.SYSUT1       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T195627.RV001.SY00ZR08.ASPOA002     DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.CI505                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS1.CI535                                   KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T195627.RV001.SY00ZR08.OBJSET       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T195627.RV001.SY00ZR08.ASPI0002     DELETED
IEF285I   VOL SER NOS= 020004.
IEF373I STEP /LKED    / START 78240.1956
IEF374I STEP /LKED    / STOP  78240.1956 CPU   0MIN 00.12SEC MAIN 128K LCS   0K
IEF375I  JOB /SY00ZR08/ START 78240.1956
IEF376I  JOB /SY00ZR08/ STOP  78240.1956 CPU   0MIN 02.21SEC

  SSSSSSSSSSS    YY        YY       0000000         0000000      ZZZZZZZZZZZZZ   RRRRRRRRRRRR       0000000       88888888888
 SSSSSSSSSSSSS    YY      YY       000000000       000000000     ZZZZZZZZZZZZ    RRRRRRRRRRRRR     000000000     8888888888888
 SS         SS     YY    YY       00       00     00       00    ZZ       ZZ     RR         RR    00       00    88         88
 SS                 YY  YY       00         00   00         00           ZZ      RR         RR   00         00   88         88
 SS                  YYYY        00         00   00         00          ZZ       RR         RR   00         00   88         88
 SSSSSSSSSSSS         YY         00         00   00         00         ZZ        RRRRRRRRRRRRR   00         00    88888888888
  SSSSSSSSSSSS        YY         00         00   00         00        ZZ         RRRRRRRRRRRR    00         00    88888888888
            SS        YY         00         00   00         00       ZZ          RR      RR      00         00   88         88
            SS        YY         00         00   00         00      ZZ           RR       RR     00         00   88         88
 SS         SS        YY          00       00     00       00      ZZ       ZZ   RR        RR     00       00    88         88
 SSSSSSSSSSSSS        YY           000000000       000000000      ZZZZZZZZZZZZ   RR         RR     000000000     8888888888888
  SSSSSSSSSSS         YY            0000000         0000000      ZZZZZZZZZZZZZ   RR         RR      0000000       88888888888









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000              44
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000            444
            JJ   OO         OO   BB         BB                    00       00     00       00     00       00          4444
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00        44 44
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00       44  44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00      44   44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00     44    44
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00    444444444444
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00   00         00   4444444444444
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00     00       00            44
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000             44
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000              44









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    PPPPPPPPPPPP    RRRRRRRRRRRR    IIIIIIIIIIII    NN         NN   TTTTTTTTTTTT
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRRR   IIIIIIIIIIII    NNN        NN   TTTTTTTTTTTT
 SS         SS     YY    YY      SS         SS   PP         PP   RR         RR        II         NNNN       NN        TT
 SS                 YY  YY       SS              PP         PP   RR         RR        II         NN NN      NN        TT
 SS                  YYYY        SS              PP         PP   RR         RR        II         NN  NN     NN        TT
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    PP         PP   RRRRRRRRRRRRR        II         NN   NN    NN        TT
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRR         II         NN    NN   NN        TT
            SS        YY                    SS   PPPPPPPPPPPP    RR      RR           II         NN     NN  NN        TT
            SS        YY                    SS   PP              RR       RR          II         NN      NN NN        TT
 SS         SS        YY         SS         SS   PP              RR        RR         II         NN       NNNN        TT
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   PP              RR         RR   IIIIIIIIIIII    NN        NNN        TT
  SSSSSSSSSSS         YY          SSSSSSSSSSS    PP              RR         RR   IIIIIIIIIIII    NN         NN        TT











                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.56  8/28/78


IEFACTRT  SD  01 000000 001048
IEFYS     ER  02
       IEFACTRT    SMF step/job termination exit                                                               PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      2 ***********************************************************************
                                      3 *                                                                     *
                                      4 *                                                                     *
                                      5 * Module name          =  IEFACTRT                                    *
                                      6 *                                                                     *
                                      7 *                                                                     *
                                      8 * Descriptive name     =  SMF termination exit for step and job       *
                                      9 *                         end processing.                             *
                                     10 *                                                                     *
                                     11 *                                                                     *
                                     12 * Function             =  To write statistical information about      *
                                     13 *                         terminating step or job to the system       *
                                     14 *                         messages data set; to issue WTO at step     *
                                     15 *                         end describing step completion status.      *
                                     16 *                                                                     *
                                     17 *                                                                     *
                                     18 * Notes                =  See below.                                  *
                                     19 *                                                                     *
                                     20 *   Dependencies       =  SMF must be installed for this exit         *
                                     21 *                         to function.                                *
                                     22 *                                                                     *
                                     23 *                         R12 at entry to IEFACTRT points to the      *
                                     24 *                         Linkage Control Table (LCT).  If R12        *
                                     25 *                         is used by the exit, the original contents  *
                                     26 *                         of R12 must be restored before the system   *
                                     27 *                         message output routine IEFYS is called.     *
                                     28 *                                                                     *
                                     29 *                         LCT fields LCTJCTAD (address of Job         *
                                     30 *                         Control Table) and LCTSCTAD (address of     *
                                     31 *                         Step Control Table) are assumed to be       *
                                     32 *                         storage addresses and not TTRs.             *
                                     33 *                                                                     *
                                     34 *   Registers          =  Not documented.                             *
                                     35 *                                                                     *
                                     36 *   Patch space        =  None.                                       *
                                     37 *                                                                     *
                                     38 *                                                                     *
                                     39 * Module type          =  CSECT                                       *
                                     40 *                                                                     *
                                     41 *   Processor          =  OS System Assembler                         *
                                     42 *                                                                     *
                                     43 *   Module size        =  See assembly listing.                       *
                                     44 *                                                                     *
                                     45 *   Attributes         =  Reentrant, task mode, enabled,              *
                                     46 *                         supervisor state, key 0.                    *
                                     47 *                                                                     *
                                     48 *                                                                     *
                                     49 ***********************************************************************
       IEFACTRT    SMF step/job termination exit                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     51 ******************************************************************
                                     52 *                                                                *
                                     53 *        Define external symbols and register equates.           *
                                     54 *                                                                *
                                     55 ******************************************************************

000000                               57 IEFACTRT CSECT ,
000000                               58 R0       EQU    0
000001                               59 R1       EQU    1
000002                               60 R2       EQU    2
000003                               61 R3       EQU    3
000004                               62 R4       EQU    4
000005                               63 R5       EQU    5
000006                               64 R6       EQU    6
000007                               65 R7       EQU    7
000008                               66 R8       EQU    8
000009                               67 R9       EQU    9
00000A                               68 R10      EQU   10
00000B                               69 R11      EQU   11
00000C                               70 R12      EQU   12
00000D                               71 R13      EQU   13
00000E                               72 R14      EQU   14
00000F                               73 R15      EQU   15

                                     75 *----------------------------------------------------------------*
                                     76 *        Program initialization.                                 *
                                     77 *----------------------------------------------------------------*
                                     78          SAVE  (14,12),,IEFACTRT   Save caller's registers
000000 47F0 F00E            0000E    79+         B     14(0,15) BRANCH AROUND ID
000004 08                            80+         DC    AL1(8) LENGTH OF IDENTIFIER
000005 C9C5C6C1C3E3D9E3              81+         DC    CL8'IEFACTRT' IDENTIFIER
00000D 00
00000E 90EC D00C            0000C    82+         STM   14,12,12(13) SAVE REGISTERS
000012 18BF                          83          LR    R11,R15             Load base register
000000                               84          USING IEFACTRT,R11        Addressability for program
000014 18A1                          85          LR    R10,R1              Save pointer to exit parm list
       IEFACTRT    SMF step/job termination exit                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     87 *----------------------------------------------------------------*
                                     88 *        Ensure that SMF is active and return to caller if not.  *
                                     89 *----------------------------------------------------------------*
000016 58F0 0010            00010    90          L     R15,CVTPTR          Get CVT pointer
000000                               91          USING CVTMAP,R15          Addressability for CVT
00001A 58F0 F0C4            000C4    92          L     R15,CVTSMCA         Get SMCA address
                                     93          DROP  R15                 End CVT addressability
00001E 41F0 F000            00000    94          LA    R15,0(,R15)         Clear high-order byte
000022 12FF                          95          LTR   R15,R15             Is SMF active?
000024 4780 B77A            0077A    96          BZ    RETURN              Skip processing if no SMF

                                     98 *----------------------------------------------------------------*
                                     99 *        If the current job is a TSO user, return immediately    *
                                    100 *        to caller.  This exit does not perform any processing   *
                                    101 *        for TSO users.                                          *
                                    102 *----------------------------------------------------------------*
000028 58F0 A000            00000   103          L     R15,0(,R10)         Get CEPA address
000000                              104          USING JMR,R15             Addressability for CEPA
00002C 9101 F01D      0001D         105          TM    JMRINDC,JMRFIND     Is this a TSO user?
000030 4710 B77A            0077A   106          BO    RETURN              Skip processing for TSO user
000034 D502 BAB4 F000 00AB4 00000   107           CLC  KTST,JMRJOB  ** testing **  Process this job?
00003A 4780 B77A            0077A   108           BE   RETURN       ** testing **  Return if no
                                    109          DROP  R15                 End CEPA addressability
                                    110          AGO  .NOSMASH
                                    111 .NOSMASH ANOP  ,

                                    113 *----------------------------------------------------------------*
                                    114 *        Establish addressability to SMF record.                 *
                                    115 *----------------------------------------------------------------*
00003E 5890 A024            00024   116          L     R9,36(,R10)         Point to SMF record
000000                              117          USING SMFRCD,R9           Addressability for record
       IEFACTRT    SMF step/job termination exit                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    119 *----------------------------------------------------------------*
                                    120 *        Test to ensure that the SMF record is one that we       *
                                    121 *        process and return immediately if it's anything else.   *
                                    122 *----------------------------------------------------------------*
000042 41F0 000C            0000C   123          LA    R15,12              Get compare value
000046 190F                         124          CR    R0,R15              Is entry for type 4 record?
000048 4780 B056            00056   125          BE    GETWORK             Continue if so
00004C 41F0 0010            00010   126          LA    R15,16              Get compare value
000050 190F                         127          CR    R0,R15              Is entry for type 5 record?
000052 4770 B77A            0077A   128          BNE   RETURN              If not, return to caller
           Obtain work area                                                                                    PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    130 ******************************************************************
                                    131 *                                                                *
                                    132 *        GETWORK:                                                *
                                    133 *                                                                *
                                    134 *        Get work area storage and initialize it to zeroes.      *
                                    135 *                                                                *
                                    136 *        R9  = Address of SMF record - not referenced.           *
                                    137 *        R10 = Exit routine parm list - set by this section.     *
                                    138 *        R12 = Address of LCT - not referenced.                  *
                                    139 *        R13 = Getmained work area - obtained in this routine.   *
                                    140 *                                                                *
                                    141 *        Workregs: R0, R1, R14, R15.                             *
                                    142 *                                                                *
                                    143 ******************************************************************

000056                              145 GETWORK  DS    0H                  Obtain and zero work storage
000056 4100 0298            00298   146          LA    R0,LWORKA           Set length for getmain
                                    147          GETMAIN R,LV=(0)          Get work area storage
00005A 4510 B05E            0005E   148+         BAL   1,*+4 INDICATE GETMAIN
00005E 0A0A                         149+         SVC   10 ISSUE GETMAIN SVC
000060 1821                         150          LR    R2,R1               Save address of getmained area
000062 1801                         151          LR    R0,R1               Set address for MVCL
000064 4110 0298            00298   152          LA    R1,LWORKA           Set length for MVCL
000068 17FF                         153          XR    R15,R15             Set pad to zeroes
00006A 0E0E                         154          MVCL  R0,R14              Zero work area
00006C 18FD                         155          LR    R15,R13             Save old save area address
00006E 18D2                         156          LR    R13,R2              Point to our save area
000000                              157          USING WORKA,R13           Addressability for work area
000070 50F0 D0B8            000B8   158          ST    R15,PREVR13         Save caller's R13
                                    159 **       ST    R15,SAVEA+4         Chain
                                    160 **       ST    R13,8(,R15)          save areas
000074 9801 F014            00014   161          LM    R0,R1,20(R15)       Restore R0-R1 at entry
           Obtain work area                                                                                    PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                              163          USING LCT,R12             ADDRESSABILITY FOR LCT
000078 5850 C010            00010   164          L     R5,LCTJCTAD         GET JCT ADDRESS FROM LCT
000000                              165          USING JCT,R5              ADDRESSABILITY FOR JCT
00007C 5860 C014            00014   166          L     R6,LCTSCTAD         GET SCT ADDRESS FROM LCT
000000                              167          USING SCT,R6              ADDRESSABILITY FOR SCT
           Obtain work area                                                                                    PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    169 ******************************************************************
                                    170 *                                                                *
                                    171 *        BLDCOM:                                                 *
                                    172 *                                                                *
                                    173 *        Build common heading line for the statistics            *
                                    174 *        boxes.  This line contains OS release and               *
                                    175 *        SMF system ID.  It will be written for both             *
                                    176 *        step and job termination.                               *
                                    177 *                                                                *
                                    178 *        R9  = Address of SMF record.                            *
                                    179 *        R10 = Exit routine parameter list - not referenced.     *
                                    180 *        R12 = Address of LCT - not referenced.                  *
                                    181 *                                                                *
                                    182 *        Workregs: R0, R15.                                      *
                                    183 *                                                                *
                                    184 ******************************************************************

000080                              186 BLDCOM   DS    0H                  Build common heading

                                    188 *----------------------------------------------------------------*
                                    189 *        Initialize heading line.                                *
                                    190 *----------------------------------------------------------------*
000080 D228 D1E4 BBFC 001E4 00BFC   191          MVC   HDATA,MHDATA        Copy model heading data

                                    193 *----------------------------------------------------------------*
                                    194 *        Move SMF system ID to line.                             *
                                    195 *----------------------------------------------------------------*
000086 D203 D208 900E 00208 0000E   196          MVC   HSID,SMF4SID        Move in SMF system ID

                                    198 *----------------------------------------------------------------*
                                    199 *        Build OS release and level.                             *
                                    200 *----------------------------------------------------------------*
00008C 58F0 0010            00010   201          L     R15,CVTPTR          Get CVT pointer
000090 4100 0100            00100   202          LA    R0,CVTRELNO-CVTFIX+L'CVTRELNO  Back up to start
000094 1BF0                         203          SR    R15,R0               of CVT prefix
000000                              204          USING CVTFIX,R15          Addressability for CVT prefix
000096 D201 D1F8 F0FC 001F8 000FC   205          MVC   HOSREL,CVTNUMB      Set OS release
00009C D201 D1FB F0FE 001FB 000FE   206          MVC   HOSMOD,CVTLEVL      Set OS level

                                    208 *----------------------------------------------------------------*
                                    209 *        Build OS control program name.  Assume MVT.             *
                                    210 *----------------------------------------------------------------*
0000A2 58F0 0010            00010   211          L     R15,CVTPTR          Point to CVT base
000000                              212          USING CVT,R15             Addressability for CVT
0000A6 D202 D1EC BBE0 001EC 00BE0   213          MVC   HOSCP,=C'MVT'       Set OS control program
0000AC 9510 F074      00074         214          CLI   CVTDCB,CVT4MS1      Is this MVT?
0000B0 4780 B0DE            000DE   215          BE    CKRTYPE             Line is done if this is MVT

                                    217 *----------------------------------------------------------------*
                                    218 *        Not MVT, check for M65MP.                               *
                                    219 *----------------------------------------------------------------*
0000B4 9514 F074      00074         220          CLI   CVTDCB,CVT4MS1+CVT4MPS   Is this M65MP?
0000B8 4770 B0C6            000C6   221          BNE   CKCPSPS             Branch if not M65MP
0000BC D202 D1EC BBE3 001EC 00BE3   222          MVC   HOSCP,=C'MPS'       Set control program = M65MP
0000C2 47F0 B0DE            000DE   223          B     CKRTYPE             Continue
           Obtain work area                                                                                    PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    225 *----------------------------------------------------------------*
                                    226 *        Not M65MP, check for MFT.                               *
                                    227 *----------------------------------------------------------------*
0000C6                              228 CKCPSPS  DS    0H                  Not M65MP, check for MFT
0000C6 9520 F074      00074         229          CLI   CVTDCB,CVT2SPS      Is this MFT?
0000CA 4770 B0D8            000D8   230          BNE   CKCPSSS             Branch if not MFT
0000CE D202 D1EC BBE6 001EC 00BE6   231          MVC   HOSCP,=C'MFT'       Set control program = MFT
0000D4 47F0 B0DE            000DE   232          B     CKRTYPE             Continue

                                    234 *----------------------------------------------------------------*
                                    235 *        None of the above, assume PCP.                          *
                                    236 *----------------------------------------------------------------*
0000D8                              237 CKCPSSS  DS    0H                  Not MFT, assume PCP
0000D8 D202 D1EC BBE9 001EC 00BE9   238          MVC   HOSCP,=C'PCP'       Set control program = PCP
                                    239          DROP  R15                 End CVT addressability
           Obtain work area                                                                                    PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    241 ******************************************************************
                                    242 *                                                                *
                                    243 *        CKRTYPE:                                                *
                                    244 *                                                                *
                                    245 *        Test whether record is type 4 (step termination)        *
                                    246 *        or type 5 (job termination), and branch to the          *
                                    247 *        appropriate processing logic.                           *
                                    248 *                                                                *
                                    249 *        R9  = Address of SMF record.                            *
                                    250 *        R10 = Exit routine parameter list - not referenced.     *
                                    251 *        R12 = Address of LCT - not referenced.                  *
                                    252 *                                                                *
                                    253 *        Workregs: R0, R15.                                      *
                                    254 *                                                                *
                                    255 ******************************************************************

0000DE                              257 CKRTYPE  DS    0H                  Step end or job end?
0000DE 9505 9005      00005         258          CLI   SMF5RTY,X'05'       Is entry for type 5 record?
0000E2 4780 B554            00554   259          BE    JOBEND              Branch if job end record
           Obtain work area                                                                                    PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    261 *        TITLE '    Step end processing'
                                    262 ******************************************************************
                                    263 *                                                                *
                                    264 *        STEPEND:                                                *
                                    265 *                                                                *
                                    266 *        End-of-step processing.                                 *
                                    267 *                                                                *
                                    268 ******************************************************************

0000E6                              270 STEPEND  DS    0H                  Begin step end processing
           Obtain work area                                                                                    PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    272 ******************************************************************
                                    273 *                                                                *
                                    274 *        SINITWTO:                                               *
                                    275 *                                                                *
                                    276 *        Initialize "STEP:" WTO message text.                    *
                                    277 *                                                                *
                                    278 *        R9  = Address of SMF record - not referenced.           *
                                    279 *        R10 = Exit routine parameter list - not referenced.     *
                                    280 *        R12 = Address of LCT - not referenced.                  *
                                    281 *                                                                *
                                    282 *        Workregs:                                               *
                                    283 *                                                                *
                                    284 ******************************************************************

0000E6                              286 SINITWTO DS    0H                  Initialize "STEP:" WTO text
                                    287 **       L     R15,ABLANKS         Point to blanks
                                    288 **       MVC   SWTEXT,0(R15)       Blank WTO text area
0000E6 9240 D1A8      001A8         289          MVI   SWTEXT,C' '         Blank variable area
0000EA D236 D1A9 D1A8 001A9 001A8   290          MVC   SWTEXT+1(L'SWTEXT-1),SWTEXT
0000F0 D204 D1A8 BBEC 001A8 00BEC   291          MVC   SWHDR,=CL5'STEP:'   Set header in WTO
0000F6 41F0 003C            0003C   292          LA    R15,SWTOLEN         Get length of WTO
0000FA 40F0 D1A4            001A4   293          STH   R15,SWLEN           Set in parm list
0000FE D203 D1E0 BB76 001E0 00B76   294          MVC   SWRTDESC,ROUT2      Set routcde
000104 D701 D1A6 D1A6 001A6 001A6   295          XC    SWMCSFLG,SWMCSFLG   Zero mcsflags field
00010A 9680 D1A6      001A6         296          OI    SWMCSFLG,SWMCSA     Show rout/desc codes exist
           Obtain work area                                                                                    PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78


                                    299 *----------------------------------------------------------------*
                                    300 *        Step start time.                                        *
                                    301 *----------------------------------------------------------------*
                                    302 *        ICM   R1,15,SMF4SIT       Get step start time from record
                                    303 *        LA    R15,SINITTM         Point to area for output
                                    304 *        BAL   R7,TIMEX            Format step start time

                                    306 *----------------------------------------------------------------*
                                    307 *        Step end time.                                          *
                                    308 *----------------------------------------------------------------*
                                    309          TIME  BIN                 Get step end date/time
00010E 4110 0001            00001   310+         LA    1,1(0,0) LOAD 1 TO SPECIFY UNIT
000112 0A0B                         311+         SVC   11 ISSUE TIME SVC
000114 BE1F D0D8            000D8   312          STCM  R1,15,DATEND        Save step end date
000118 1840                         313          LR    R4,R0               Save step end time
00011A 1814                         314          LR    R1,R4               Set time for convert routine
00011C 41F0 D0FE            000FE   315          LA    R15,XENDTM          Point to output field
000120 4570 B9EA            009EA   316          BAL   R7,TIMEX            Format step end time

                                    318 *----------------------------------------------------------------*
                                    319 *        Step elapsed time.                                      *
                                    320 *----------------------------------------------------------------*
000124 9240 D0F2      000F2         321           MVI   PAD,C' '             XXX  **** FIX THIS ****
000128 BF0F 902B            0002B   322          ICM   R0,15,SMF4SIT       Get step start time
00012C 1814                         323          LR    R1,R4               Get step end time
00012E D203 D0D4 902F 000D4 0002F   324          MVC   DATE,SMF4STID       Get start date
000134 41F0 D0F3            000F3   325          LA    R15,XELAPS          Point to output area
000138 4570 B9CC            009CC   326          BAL   R7,ELAPSED          Calculate elapsed time
           Obtain work area                                                                                    PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    329 ******************************************************************
                                    330 *                                                                *
                                    331 *        Build condition code or completion code.                *
                                    332 *                                                                *
                                    333 *        R9  = Address of SMF record.                            *
                                    334 *        R10 = Exit routine parameter list.                      *
                                    335 *        R12 = Address of LCT - not referenced.                  *
                                    336 *                                                                *
                                    337 *        Workregs:                                               *
                                    338 *                                                                *
                                    339 ******************************************************************

00013C                              341 SBLDCOMP DS    0H                  Build condition/abend code

                                    343 *----------------------------------------------------------------*
                                    344 *        Test for step flushed.                                  *
                                    345 * Some of the following may be true XXX or may not be
                                    346 * INCMSTS   job flushed due to COND on JOB statement
                                    347 * JCTJOBFL  job failed - jcl error, or step flushed due to
                                    348 *           JOB statement COND match on earlier step
                                    349 * JCTSTPFL  step flushed due to COND on EXEC statement
                                    350 * SCTABCAN  step flushed because earlier step abended
                                    351 * SCTONLYC  step flushed because COND=ONLY was coded and no
                                    352 *           prior step abended.
                                    353 *----------------------------------------------------------------*
00013C                              354 CONCKFLU DS    0H                  Test for step flushed
                                    355          TM    JCTJSTAT,JCTJOBFL+JCTSTPFL                              +
00013C 9150 5005      00005                                                Test for job or step flushed
000140 4780 B14E            0014E   356          BZ    CONSETCD            Branch if not

                                    358 *----------------------------------------------------------------*
                                    359 *        Step was flushed.                                       *
                                    360 *----------------------------------------------------------------*
000144                              361 CONFLUSH DS    0H                  Step was flushed
000144 D214 D0DD BB06 000DD 00B06   362          MVC   XTEPCCH,HDFLUSH     Set "FLUSHED" header
00014A 47F0 B1A6            001A6   363          B     PRTCOND             Go to write the line

                                    365 *----------------------------------------------------------------*
                                    366 *        Not step flushed.  Save condition code/completion       *
                                    367 *        code in work area.                                      *
                                    368 *----------------------------------------------------------------*
00014E                              369 CONSETCD DS    0H                  Save code in work area
00014E D201 D0B0 9037 000B0 00037   370          MVC   DWORK(2),SMF4SCC    Move code to work area
000154 D210 D0DD BAD3 000DD 00AD3   371          MVC   XTEPCCHD,HDCOND     Assume condition code

                                    373 *----------------------------------------------------------------*
                                    374 *        Test whether condition code or abend code.              *
                                    375 *----------------------------------------------------------------*
00015A                              376 CONCKABN DS    0H                  Test for abend
00015A 9180 C040      00040         377          TM    LCTBATMN,TCBFA      Did step abend?
00015E 4780 B194            00194   378          BZ    CONRC               No: this is a condition code

                                    380 *----------------------------------------------------------------*
                                    381 *        Determine abend type.                                   *
                                    382 *----------------------------------------------------------------*
           Obtain work area                                                                                    PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000162                              383 CONCKTYP DS    0H                  Determine type of abend
000162 9180 9037      00037         384          TM    SMF4SCC,X'80'       Is it a user abend?
000166 4710 B18A            0018A   385          BO    CONABNDU            Branch if user abend
           Obtain work area                                                                                    PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    387 *----------------------------------------------------------------*
                                    388 *        Format system abend code.                               *
                                    389 *----------------------------------------------------------------*
00016A                              390 CONABNDS DS    0H                  Format system abend code
00016A D210 D0DD BAE4 000DD 00AE4   391          MVC   XTEPCCHD,HDABNDS    Set system abend header
000170 920F D0B2      000B2         392          MVI   DWORK+2,X'0F'       Set dummy sign for unpack
000174 F342 D0B3 D0B0 000B3 000B0   393          UNPK  DWORK+3(5),DWORK(3) Unpack cc
00017A D202 D0EE D0B4 000EE 000B4   394          MVC   STEPCOND(3),DWORK+4 Move cc to print line
000180 DC02 D0EE BA2B 000EE 00A2B   395          TR    STEPCOND(3),HEXTRAN-240   Translate hex to character
000186 47F0 B1A6            001A6   396          B     PRTCOND             Go write the line

                                    398 *----------------------------------------------------------------*
                                    399 *        Prepare to build user abend code.                       *
                                    400 *----------------------------------------------------------------*
00018A                              401 CONABNDU DS    0H                  Abend is a user abend
00018A D210 D0DD BAF5 000DD 00AF5   402          MVC   XTEPCCHD,HDABNDU    Set user abend header
000190 947F D0B0      000B0         403          NI    DWORK,X'7F'         Lift high-order bit of code

                                    405 *----------------------------------------------------------------*
                                    406 *        Common logic to build condition code or user            *
                                    407 *        abend code.                                             *
                                    408 *----------------------------------------------------------------*
000194                              409 CONRC    DS    0H                  Build rc or user cc
000194 48F0 D0B0            000B0   410          LH    R15,DWORK           Get rc/user cc
000198 4EF0 D0B0            000B0   411          CVD   R15,DWORK           Convert it to decimal
00019C F337 D0EE D0B0 000EE 000B0   412          UNPK  STEPCOND,DWORK      Unpack into print line
0001A2 96F0 D0F1      000F1         413          OI    STEPCOND+3,X'F0'    Force sign printable

0001A6                              415 PRTCOND  DS    0H
           Obtain work area                                                                                    PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    417 ******************************************************************
                                    418 *                                                                *
                                    419 *        SBLDWTO:                                                *
                                    420 *                                                                *
                                    421 *        Build and write "STEP:" step-end WTO message.           *
                                    422 *                                                                *
                                    423 *        R9  = Address of SMF record.                            *
                                    424 *        R10 = Exit routine parameter list.                      *
                                    425 *        R12 = Address of LCT - not referenced.                  *
                                    426 *                                                                *
                                    427 *        Workregs = R0, R1, R15.                                 *
                                    428 *                                                                *
                                    429 ******************************************************************

0001A6                              431 SBLDWTO  DS    0H                  Build and write step-end WTO
0001A6 D207 D1AE 5008 001AE 00008   432          MVC   SWJOBN,JCTJNAME     Get job name
                                    433 *         LA    R15,SWTOLEN         Get length of WTO
                                    434 *         STH   R15,SWLEN           Set in parm list
0001AC 4110 003B            0003B   435          LA    R1,SWTOLEN-1         Get length of WTO
                                    436 *         MVC   SWRTDESC,ROUT2      Set routcde
                                    437 *         XC    SWMCSFLG,SWMCSFLG   Zero mcsflags field
                                    438 *         OI    SWMCSFLG,SWMCSA     Show rout/desc codes exist

                                    440 *----------------------------------------------------------------*
                                    441 *        Set step name and procstep name in message.             *
                                    442 *----------------------------------------------------------------*
0001B0                              443 SBLDWTOX DS    0H                  Not warmstart
0001B0 9540 602C      0002C         444          CLI   SCTSCLPC,C' '       Is step from a procedure?
0001B4 4770 B1C2            001C2   445          BNE   FOO1                Branch if not
0001B8 D207 D1B7 6034 001B7 00034   446          MVC   SWSTEPN,SCTSNAME    Set step name in WTO
0001BE 47F0 B1CE            001CE   447          B     FOO2                Continue
0001C2                              448 FOO1     DS    0H                  Step is from a procedure
0001C2 D207 D1B7 602C 001B7 0002C   449          MVC   SWSTEPN,SCTSCLPC    Set procstep name in WTO
0001C8 D207 D1C0 6034 001C0 00034   450          MVC   SWPSTEPN,SCTSNAME   Set step name in WTO
0001CE                              451 FOO2     DS    0H                  Done with step names
           Obtain work area                                                                                    PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    453 *----------------------------------------------------------------*
                                    454 *        Test for step abend.                                    *
                                    455 *----------------------------------------------------------------*
0001CE                              456 SBLDWTO1 DS    0H                  See if step abended
                                    457 **       TM    SCTABCND,SCTABEND   Did step abend?
                                    458 **       BO    SBLDWTO7            Branch if abend

                                    460 *----------------------------------------------------------------*
                                    461 *        Check to see if step was flushed.                       *
                                    462 *----------------------------------------------------------------*
0001CE                              463 SBLDWTO3 DS    0H                  Test for step flushed
0001CE 9140 5005      00005         464          TM    JCTJSTAT,JCTJOBFL   Job being flushed?
0001D2 4710 B1EE            001EE   465          BO    SBLDWTO5            Step was flushed if so
0001D6 9101 6004      00004         466          TM    SCTSSTAT,INCMSSTS   Bypassed due to condition codes?
0001DA 4710 B1EE            001EE   467          BO    SBLDWTO5            Show flushed if so
0001DE 9110 60A0      000A0         468          TM    SCTABCND,SCTABCAN   Prior abend?
0001E2 4710 B1EE            001EE   469          BO    SBLDWTO5            Step was flushed if so
0001E6 9108 60A0      000A0         470          TM    SCTABCND,SCTONLYC   Bypassed due to COND=ONLY?
0001EA 4780 B202            00202   471          BZ    SBLDWTOZ            Branch if step not flushed

                                    473 *----------------------------------------------------------------*
                                    474 *        Step was flushed.                                       *
                                    475 *----------------------------------------------------------------*
0001EE                              476 SBLDWTO5 DS    0H                  Step was flushed
0001EE 925C D1C9      001C9         477          MVI   SWSTARS+0,C'*'      Initialize field to "****"
0001F2 D209 D1CA D1C9 001CA 001C9   478          MVC   SWSTARS+1(L'SWSTARS-1),SWSTARS
                                    479 **         L     R15,ASTARS          Point to line of "****"
                                    480 **         MVC   SWSTARS,0(R15)      Fill elapsed time slot
0001F8 D206 D1D5 BACC 001D5 00ACC   481          MVC   SWFLUSH,KFLUSHED    Set "FLUSHED" keyword
0001FE 47F0 B268            00268   482          B     SBLDWTOI            Go to issue message

                                    484 *----------------------------------------------------------------*
                                    485 *        Test if step abended or was canceled by the             *
                                    486 *        operator.  For some reason, IEFYN copies TCBFLGS1       *
                                    487 *        from the terminating job step TCB to LCTBATMN, then     *
                                    488 *        clears the real bits in the TCB.  We must test          *
                                    489 *        bit TCBFA in LCTBATMN (originally TCBFLG1) for          *
                                    490 *        step abend/operator cancel.                             *
                                    491 *----------------------------------------------------------------*
000202                              492 SBLDWTOZ DS    0H                  Not flushed, check for abend
000202 9180 C040      00040         493          TM    LCTBATMN,TCBFA      Did step abend?
000206 4710 B21A            0021A   494          BO    SBLDWTO7            Branch if abend

                                    496 *----------------------------------------------------------------*
                                    497 *        Neither abend nor step flushed, so build return code.   *
                                    498 *----------------------------------------------------------------*
00020A                              499 SBLDWTO6 DS    0H                  Build return code in message
00020A D202 D1D5 BAC9 001D5 00AC9   500          MVC   SWRCH,KRC           Set "RC=" keyword
000210 D203 D1D8 D0EE 001D8 000EE   501          MVC   SWRC,STEPCOND       Move in step return code
000216 47F0 B232            00232   502          B     SBLDWTO8            Go build elapsed time

                                    504 *----------------------------------------------------------------*
                                    505 *        Step abended.  Build completion code for                *
                                    506 *        abending step.                                          *
                                    507 *----------------------------------------------------------------*
           Obtain work area                                                                                    PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00021A                              508 SBLDWTO7 DS    0H                  Step abended
00021A D205 D1D5 BAC3 001D5 00AC3   509          MVC   SWABNDH,KABEND      Set "ABEND" keyword in message
000220 D204 D1DB D0ED 001DB 000ED   510          MVC   SWABND,STEPCOND-1   Move in abend code
000226 9180 9037      00037         511          TM    SMF4SCC,X'80'       Is it a user abend?
00022A 47E0 B232            00232   512          BNO   SBLDWTO8            Branch if not user abend
00022E 4110 1001            00001   513          LA    R1,1(,R1)           Else adjust length for WPL

                                    515 *----------------------------------------------------------------*
                                    516 *        Copy step elapsed time to message.                      *
                                    517 *----------------------------------------------------------------*
000232                              518 SBLDWTO8 DS    0H                  Build elapsed time in WTO
000232 D202 D1C9 BAC0 001C9 00AC0   519          MVC   SWELAPH,KET         Set "ELAPSED" keyword
000238 9540 D0F2      000F2         520          CLI   XELAPS-1,C' '       Elapsed hours in 3 digits?
00023C 4770 B24A            0024A   521          BNE   SBLDWTO9            Handle specially if so
000240 D207 D1CC D0F3 001CC 000F3   522          MVC   SWELAP,XELAPS       Move in step elapsed ttime
000246 47F0 B250            00250   523          B     SBLDWTOA            Go translate delimiters

                                    525 *----------------------------------------------------------------*
                                    526 *        Handle elapsed time with 3 digits of hours.             *
                                    527 *----------------------------------------------------------------*
00024A                              528 SBLDWTO9 DS    0H                  Build 3-digit elapsed time
00024A D205 D1CC D0F2 001CC 000F2   529          MVC   SWELAP(6),XELAPS-1  Move in HHH.MM

                                    531 *----------------------------------------------------------------*
                                    532 *        Translate all ":" in elapsed time to "."                *
                                    533 *----------------------------------------------------------------*
000250                              534 SBLDWTOA DS    0H                  Translate ":" to "."
000250 41E0 0008            00008   535          LA    R14,8               Initialize loop counter

000254                              537 SBLDWTOB DS    0H                  Top of translate loop
000254 41FE D1CB            001CB   538          LA    R15,SWELAP-1(R14)   Point to current character
000258 957A F000      00000         539          CLI   0(R15),COLON        Is it a ":"?
00025C 4770 B264            00264   540          BNE   SBLDWTOC            Continue loop if not
000260 924B F000      00000         541          MVI   0(R15),DOT          Else change it to a "."

000264                              543 SBLDWTOC DS    0H                  Bottom of translate loop
000264 46E0 B254            00254   544          BCT   R14,SBLDWTOB        Back up and check previous

                                    546 *----------------------------------------------------------------*
                                    547 *        Issue message via WTO.                                  *
                                    548 *----------------------------------------------------------------*
000268                              549 SBLDWTOI DS    0H                  Issue step-end message
000268 41E0 000A            0000A   550          LA    R14,10              Limit for blank stripping  @DBG
00026C                              551 SBLDWTOK DS    0H                                             @DBG
00026C 41F1 D1A3            001A3   552          LA    R15,SWTO-1(R1)      Point to last byte of text @DBG
000270 9540 F000      00000         553          CLI   0(R15),C' '         Is last byte blank?        @DBG
000274 4770 B27E            0027E   554          BNE   SBLDWTOJ            Branch if not blank        @DBG
000278 0610                         555          BCTR  R1,0                Else decrement WTO length  @DBG
00027A 46E0 B26C            0026C   556          BCT   R14,SBLDWTOK        Loop at previous byte      @DBG
00027E                              557 SBLDWTOJ DS    0H                                             @DBG
00027E 4010 D1A4            001A4   558          STH   R1,SWLEN            Set length in WPL
000282 4111 D1A4            001A4   559          LA    R1,SWTO(R1)         Point past text
000286 D203 1000 BB76 00000 00B76   560          MVC   0(4,R1),ROUT2       Set routcde
00028C D701 D1A6 D1A6 001A6 001A6   561          XC    SWMCSFLG,SWMCSFLG   Zero mcsflags field
000292 9680 D1A6      001A6         562          OI    SWMCSFLG,SWMCSA     Show rout/desc codes exist
           Obtain work area                                                                                    PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    563  AGO .PASTDB
                                    564 .PASTDB  ANOP  ,
                                    565 ****  end debugging messages
000296 4110 D1A4            001A4   566          LA    R1,SWTO             Point to message
                                    567          WTO   MF=(E,(1))          Write step-end WTO
00029A 0A23                         568+         SVC   35 ISSUE SVC
           Obtain work area                                                                                    PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    570 *----------------------------------------------------------------*
                                    571 *        Write a blank line.                                     *
                                    572 *----------------------------------------------------------------*
00029C 9240 D109      00109         573          MVI   PRTLINE,C' '        Set blank in print line
0002A0 4110 D109            00109   574          LA    R1,PRTLINE          Point to print line
0002A4 4100 0001            00001   575          LA    R0,1                Get length of print line
0002A8 4570 BA76            00A76   576          BAL   R7,PUTLINE          Write the line

                                    578 *----------------------------------------------------------------*
                                    579 *        Write "OS/360 ..." line.                                *
                                    580 *----------------------------------------------------------------*
0002AC 925C D109      00109         581          MVI   PRTLINE+0,C'*'      Initialize line to "****"
0002B0 D282 D10A D109 0010A 00109   582          MVC   PRTLINE+1(L'PRTLINE-1),PRTLINE
0002B6 D228 D136 D1E4 00136 001E4   583          MVC   CHDATA,HDATA        Copy heading data
0002BC 4110 D109            00109   584          LA    R1,PRTLINE          Point to print line
0002C0 4100 0084            00084   585          LA    R0,L'PRTLINE        Get length of print line
0002C4 4570 BA76            00A76   586          BAL   R7,PUTLINE          Write the line

                                    588 *----------------------------------------------------------------*
                                    589 *        Write "STEP END STATISTICS" header line.                *
                                    590 *----------------------------------------------------------------*
0002C8 9240 D109      00109         591          MVI   PRTLINE,C' '        Blank output area
0002CC D282 D10A D109 0010A 00109   592          MVC   PRTLINE+1(L'PRTLINE-1),PRTLINE
0002D2 925C D109      00109         593          MVI   PRTLINE+0,C'*'      Set initial frame character
0002D6 925C D18C      0018C         594          MVI   PRTLINE+131,C'*'    Set final frame character
0002DA D218 D13E BB2B 0013E 00B2B   595          MVC   SHDRTX,MSHDRTX      Set header text
0002E0 4110 D109            00109   596          LA    R1,PRTLINE          Point to print line
0002E4 4100 0084            00084   597          LA    R0,L'PRTLINE        Get length of print line
0002E8 4570 BA76            00A76   598          BAL   R7,PUTLINE          Write the line
           Obtain work area                                                                                    PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    600 *----------------------------------------------------------------*
                                    601 *        Initialize step end statistics line 1.                  *
                                    602 *----------------------------------------------------------------*
0002EC D283 D109 BC26 00109 00C26   603          MVC   STEPLN1,MSTEPLN1    Copy model line

                                    605 *----------------------------------------------------------------*
                                    606 *        Step number.                                            *
                                    607 *----------------------------------------------------------------*
0002F2 17FF                         608          XR    R15,R15             Zero register for IC
0002F4 5810 A01C            0001C   609          L     R1,(8-1)*4(,R10)    Point to indicator/step number
0002F8 43F0 1001            00001   610          IC    R15,1(,R1)          Get step number
0002FC 4EF0 D0B0            000B0   611          CVD   R15,DWORK           Convert step number to decimal
000300 960F D0B7      000B7         612          OI    DWORK+7,X'0F'       Force printable sign
000304 F327 D117 D0B0 00117 000B0   613          UNPK  STEPNO,DWORK        Unpack into print line

                                    615 *----------------------------------------------------------------*
                                    616 *        Hierarchy 0 region size.                                *
                                    617 *----------------------------------------------------------------*
00030A 48F0 904A            0004A   618          LH    R15,SMF4RSH0        Get region size
00030E 4EF0 D0B0            000B0   619          CVD   R15,DWORK           Make value packed
000312 45E0 BA5E            00A5E   620          BAL   R14,EDMKRTN         Convert to zoned
000316 D208 D168 D198 00168 00198   621          MVC   SH0REG,EH0REG       Set H0 region requested

                                    623 *----------------------------------------------------------------*
                                    624 *        Step start time.                                        *
                                    625 *----------------------------------------------------------------*
00031C BF1F 902B            0002B   626          ICM   R1,15,SMF4SIT       Get step start time from record
000320 41F0 D131            00131   627          LA    R15,SINITTM         Point to area for output
000324 4570 B9EA            009EA   628          BAL   R7,TIMEX            Format step start time

                                    630 *----------------------------------------------------------------*
                                    631 *        Allocation start time.                                  *
                                    632 *----------------------------------------------------------------*
000328 BF1F 905A            0005A   633          ICM   R1,15,SMF4AST       Get allocation start time
00032C 41F0 D14E            0014E   634          LA    R15,S1ALCST         Point to area for output
000330 4570 B9EA            009EA   635          BAL   R7,TIMEX            Format allocation start time

                                    637 *----------------------------------------------------------------*
                                    638 *        Write step end statistics line 1.                       *
                                    639 *----------------------------------------------------------------*
000334 4110 D109            00109   640          LA    R1,PRTLINE          Point to print line
000338 4100 0084            00084   641          LA    R0,L'PRTLINE        Get length of print line
00033C 4570 BA76            00A76   642          BAL   R7,PUTLINE          Write the line
           Obtain work area                                                                                    PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    644 *----------------------------------------------------------------*
                                    645 *        Initialize step end statistics line 2.                  *
                                    646 *----------------------------------------------------------------*
000340 D283 D109 BCAA 00109 00CAA   647          MVC   STEPLN2,MSTEPLN2    Copy model line

                                    649 *----------------------------------------------------------------*
                                    650 *        Step name.                                              *
                                    651 *----------------------------------------------------------------*
                                    652 *        MVC   STEPNM,SWSTEPN      Set step name
000346 D207 D117 6034 00117 00034   653          MVC   STEPNM,SCTSNAME     Set step name

                                    655 *----------------------------------------------------------------*
                                    656 *        Step end time.                                          *
                                    657 *----------------------------------------------------------------*
00034C D20A D131 D0FE 00131 000FE   658          MVC   SENDTM,XENDTM       Set step end time

                                    660 *----------------------------------------------------------------*
                                    661 *        Problem program start time.                             *
                                    662 *----------------------------------------------------------------*
000352 BF1F 905E            0005E   663          ICM   R1,15,SMF4PPST      Get program start time
000356 41F0 D14E            0014E   664          LA    R15,S2PGMST         Point to area for output
00035A 4570 B9EA            009EA   665          BAL   R7,TIMEX            Format program start time

                                    667 *----------------------------------------------------------------*
                                    668 *        Hierarchy 0 storage used.                               *
                                    669 *----------------------------------------------------------------*
00035E 48F0 904E            0004E   670          LH    R15,SMF4H0ST        Get user storage HWM
000362 4EF0 D0B0            000B0   671          CVD   R15,DWORK           Make value packed
000366 45E0 BA5E            00A5E   672          BAL   R14,EDMKRTN         Convert to zoned
00036A D207 D169 D199 00169 00199   673          MVC   SH0STOR,EH0STOR     Set hierarchy 0 storage used

                                    675 *----------------------------------------------------------------*
                                    676 *        Completion status.                                      *
                                    677 *----------------------------------------------------------------*
000370 D214 D174 D0DD 00174 000DD   678          MVC   STEPCCHX,XTEPCCH    Set completion status

                                    680 *----------------------------------------------------------------*
                                    681 *        Write step end statistics line 2.                       *
                                    682 *----------------------------------------------------------------*
000376 4110 D109            00109   683          LA    R1,PRTLINE          Point to print line
00037A 4100 0084            00084   684          LA    R0,L'PRTLINE        Get length of print line
00037E 4570 BA76            00A76   685          BAL   R7,PUTLINE          Write the line
           Obtain work area                                                                                    PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    687 *----------------------------------------------------------------*
                                    688 *        Initialize step end statistics line 3.                  *
                                    689 *----------------------------------------------------------------*
000382 D283 D109 BD2E 00109 00D2E   690          MVC   STEPLN3,MSTEPLN3    Copy model line

                                    692 *----------------------------------------------------------------*
                                    693 *        Procstep name.                                          *
                                    694 *----------------------------------------------------------------*
                                    695 *        MVC   SPSTEPN,SWPSTEPN    Step name
000388 D207 D117 602C 00117 0002C   696          MVC   SPSTEPN,SCTSCLPC    Set procstep name

                                    698 *----------------------------------------------------------------*
                                    699 *        Step elapsed time.                                      *
                                    700 *----------------------------------------------------------------*
00038E D20A D131 D0F3 00131 000F3   701          MVC   SELAPS,XELAPS       Step elapsed time

                                    703 *----------------------------------------------------------------*
                                    704 *        Step dispatching priority.                              *
                                    705 *----------------------------------------------------------------*
000394 17FF                         706          XR    R15,R15             Clear a register
000396 43F0 9039            00039   707          IC    R15,SMF4PRTY        Get dispatching priority
00039A 4EF0 D0B0            000B0   708          CVD   R15,DWORK           Convert to packed
00039E 45E0 BA5E            00A5E   709          BAL   R14,EDMKRTN         Convert to zoned
0003A2 D20E D14A D192 0014A 00192   710          MVC   S3DPRTY,EDPRTY      Set DPRTY in output line

                                    712 *----------------------------------------------------------------*
                                    713 *        Hierarchy 1 region size.                                *
                                    714 *----------------------------------------------------------------*
0003A8 48F0 904C            0004C   715          LH    R15,SMF4RSH1        Get H1 region size
0003AC 4EF0 D0B0            000B0   716          CVD   R15,DWORK           Make value packed
0003B0 45E0 BA5E            00A5E   717          BAL   R14,EDMKRTN         Convert to zoned
0003B4 D209 D167 D197 00167 00197   718          MVC   S3H1REG,EH1REG      Set H1 region size

                                    720 *----------------------------------------------------------------*
                                    721 *        Write step end statistics line 3.                       *
                                    722 *----------------------------------------------------------------*
0003BA 4110 D109            00109   723          LA    R1,PRTLINE          Point to print line
0003BE 4100 0084            00084   724          LA    R0,L'PRTLINE        Get length of print line
0003C2 4570 BA76            00A76   725          BAL   R7,PUTLINE          Write the line
           Obtain work area                                                                                    PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    727 *----------------------------------------------------------------*
                                    728 *        Initialize step end statistics line 4.                  *
                                    729 *----------------------------------------------------------------*
0003C6 D283 D109 BDB2 00109 00DB2   730          MVC   STEPLN4,MSTEPLN4    Copy model line

                                    732 *----------------------------------------------------------------*
                                    733 *        Program name.                                           *
                                    734 *----------------------------------------------------------------*
0003CC D207 D117 903A 00117 0003A   735          MVC   S4PGMNM,SMF4PGMN     Set program name from record

                                    737 *----------------------------------------------------------------*
                                    738 *        Step TCB time.                                          *
                                    739 *----------------------------------------------------------------*
0003D2 58F0 A014            00014   740          L     R15,20(,R10)        Point to step TCB time
0003D6 BF17 F000            00000   741          ICM   R1,7,0(R15)         Get step TCB time
0003DA 41F0 D131            00131   742          LA    R15,S4CPUTM         Point to output field
0003DE 4570 B9EA            009EA   743          BAL   R7,TIMEX            Format step TCB time

                                    745 *----------------------------------------------------------------*
                                    746 *        Protect key.                                            *
                                    747 *----------------------------------------------------------------*
0003E2 17FF                         748          XR    R15,R15             Clear a register
0003E4 43F0 9056            00056   749          IC    R15,SMF4SPK         Get protect key
0003E8 88F0 0004            00004   750          SRL   R15,4                in low-order 4 bits
0003EC 4EF0 D0B0            000B0   751          CVD   R15,DWORK           Make value packed
0003F0 45E0 BA5E            00A5E   752          BAL   R14,EDMKRTN         Convert to zoned
0003F4 D20D D14B D193 0014B 00193   753          MVC   S4PKEY,EPKEY        Set protect key in output line

                                    755 *----------------------------------------------------------------*
                                    756 *        Hierarchy 1 storage used.                               *
                                    757 *----------------------------------------------------------------*
0003FA 48F0 9052            00052   758          LH    R15,SMF4H1ST        Get H1 storage HWM
0003FE 4EF0 D0B0            000B0   759          CVD   R15,DWORK           Make value packed
000402 45E0 BA5E            00A5E   760          BAL   R14,EDMKRTN         Convert to zoned
000406 D207 D169 D199 00169 00199   761          MVC   S4H1STO,EH1STOR     Set hierarchy 1 storage used

                                    763 *----------------------------------------------------------------*
                                    764 *        Write step end statistics line 4.                       *
                                    765 *----------------------------------------------------------------*
00040C 4110 D109            00109   766          LA    R1,PRTLINE          Point to print line
000410 4100 0084            00084   767          LA    R0,L'PRTLINE        Get length of print line
000414 4570 BA76            00A76   768          BAL   R7,PUTLINE          Write the line
           Obtain work area                                                                                    PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    770 ******************************************************************
                                    771 *                                                                *
                                    772 *        SBLDEXCP:                                               *
                                    773 *                                                                *
                                    774 *        Build and write EXCP counts from SMF record.            *
                                    775 *                                                                *
                                    776 *        This logic loops through the EXCP sections in the       *
                                    777 *        SMF record, formatting them into the print line.        *
                                    778 *        Sections representing DD DUMMY entries or subsystem     *
                                    779 *        data sets are skipped, because they contain no EXCP     *
                                    780 *        counts.  Each print line can contain up to five         *
                                    781 *        EXCP count entries.  When the line is full, or when     *
                                    782 *        all EXCP sections in the record have been processed,    *
                                    783 *        the print line containing the formatted EXCP counts     *
                                    784 *        will be written.  If a header line and column           *
                                    785 *        headings for the EXCP box have not yet been             *
                                    786 *        written, they will be written first.  If there is       *
                                    787 *        only one line of EXCP counts and it contains fewer      *
                                    788 *        than five entries, the column headings will be          *
                                    789 *        adjusted accordingly.                                   *
                                    790 *                                                                *
                                    791 *        R3  = Address of current EXCP section in SMF record.    *
                                    792 *        R4  = Count of EXCP sections.                           *
                                    793 *        R9  = Address of SMF record.                            *
                                    794 *        R10 = Exit routine parameter list - not referenced.     *
                                    795 *        R12 = Address of LCT - not referenced.                  *
                                    796 *                                                                *
                                    797 ******************************************************************

000418                              799 SBLDEXCP DS    0H                  Build and write EXCP counts
000418 1744                         800          XR    R4,R4               Get length
00041A BF43 906A            0006A   801          ICM   R4,3,SMF4LENN        of EXCP portion of record
00041E 4B40 BBD4            00BD4   802          SH    R4,=Y(SMF4DEVC-SMF4LENN)     and adjust for length field
000422 47D0 B52A            0052A   803          BNP   SEXEXIT             Done if no EXCP counts
000426 8840 0003            00003   804          SRL   R4,3                Else get number of EXCP sections
00042A 4130 906C            0006C   805          LA    R3,SMF4LENN+(SMF4DEVC-SMF4LENN)  and point to first one
00006C                              806          USING SMF4DEVC,R3         Addressability for EXCP section
00042E 41F0 0008            00008   807          LA    R15,SMF30ELN        Bump EXCP section pointer back
000432 1B3F                         808          SR    R3,R15               for initial increment

                                    810 ******************************************************************
                                    811 *                                                                *
                                    812 *        SEXLOOPI:                                               *
                                    813 *                                                                *
                                    814 *        Loop through EXCP sections of record, invoking          *
                                    815 *        formatting subroutine to format EXCP counts into        *
                                    816 *        print line.  Whenever print line is full, allow it      *
                                    817 *        to be printed, then return here to loop some more.      *
                                    818 *                                                                *
                                    819 *        R3  = Address of current EXCP section in SMF record.    *
                                    820 *        R4  = Count of EXCP sections.                           *
                                    821 *        R5  = Count of EXCP segments in print line.             *
                                    822 *        R6  = Address of current EXCP segment in print line.    *
                                    823 *        R7  = Subroutine linkage.                               *
                                    824 *        R9  = Start of type 4 record - not referenced.          *
           Obtain work area                                                                                    PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    825 *        R10 = Exit routine parameter list.                      *
                                    826 *        R12 = OS Linkage Control Table - not referenced.        *
                                    827 *                                                                *
                                    828 ******************************************************************

                                    830 *----------------------------------------------------------------*
                                    831 *        Prepare to loop through EXCP sections.                  *
                                    832 *----------------------------------------------------------------*
000434                              833 SEXLOOPI DS    0H                  Set up for EXCP section loop
000434 9240 D109      00109         834          MVI   PRTLINE,C' '        Blank output area
000438 D282 D10A D109 0010A 00109   835          MVC   PRTLINE+1(L'PRTLINE-1),PRTLINE
00043E 925C D109      00109         836          MVI   PRTLINE+0,C'*'      Set initial frame character
000442 925C D18C      0018C         837          MVI   PRTLINE+131,C'*'    Set final frame character
000446 4150 0005            00005   838          LA    R5,SXCOLNUM         Set maximum count on this line
00044A 4160 D10D            0010D   839          LA    R6,PRTLINE+4        Point to slot for first count

                                    841 *----------------------------------------------------------------*
                                    842 *        Loop through EXCP sections in SMF record.               *
                                    843 *----------------------------------------------------------------*
00044E                              844 SEXLOOP  DS    0H                  Fill one print line
00044E 41F0 0008            00008   845          LA    R15,SMF30ELN        Get EXCP section length
000008                              846 SMF30ELN EQU   8
000452 1A3F                         847          AR    R3,R15              Adjust to next EXCP section
000454 1244                         848          LTR   R4,R4               Any more EXCP sections?
000456 47D0 B51E            0051E   849          BNP   SEXTRUNC            Branch if no more in record
00045A 0640                         850          BCTR  R4,0                Decrement EXCP section count
00045C D503 BBA0 3000 00BA0 0006C   851          CLC   =XL4'00',SMF4DEVC   Dummy or jes data set?
000462 4780 B44E            0044E   852          BE    SEXLOOP             Skip it if so
000466 4570 B78A            0078A   853          BAL   R7,EXCP             Else format into print line
00046A 4160 601A            0001A   854          LA    R6,L'SXSEG(,R6)     Point to next slot in line
00046E 4650 B44E            0044E   855          BCT   R5,SEXLOOP          Look at next EXCP section
000472 47F0 B476            00476   856          B     SEXFULL             Line is full, go print it
           Obtain work area                                                                                    PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    858 ******************************************************************
                                    859 *                                                                *
                                    860 *        SEXFULL:                                                *
                                    861 *                                                                *
                                    862 *        EXCP print line is full.  Test to see if EXCP box       *
                                    863 *        header lines have been written.                         *
                                    864 *                                                                *
                                    865 *        R3  = Address of current EXCP section - not             *
                                    866 *              referenced.                                       *
                                    867 *        R4  = Count of EXCP sections - not referenced.          *
                                    868 *        R5  = Count of EXCP segments in print line - not        *
                                    869 *              referenced.                                       *
                                    870 *        R6  = Current EXCP segment in print line - not          *
                                    871 *              referenced.                                       *
                                    872 *        R7  = Subroutine linkage - not used.                    *
                                    873 *        R9  = Start of type 4 record - not referenced.          *
                                    874 *        R10 = Exit routine parameter list.                      *
                                    875 *        R12 = OS Linkage Control Table - not referenced.        *
                                    876 *                                                                *
                                    877 ******************************************************************

                                    879 *----------------------------------------------------------------*
                                    880 *        Print line is full.                                     *
                                    881 *----------------------------------------------------------------*
000476                              882 SEXFULL  DS    0H                  EXCP print line is full
000476 9180 D0DC      000DC         883          TM    FLAG1,F1EXCPHD      Have we written headers yet?
00047A 4710 B508            00508   884          BO    SEXWLINE            Yes, go write line
           Obtain work area                                                                                    PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    886 ******************************************************************
                                    887 *                                                                *
                                    888 *        SEXWHDR:                                                *
                                    889 *                                                                *
                                    890 *        Write EXCP box heading and column heading lines.        *
                                    891 *        If fewer than four EXCP counts are going to be          *
                                    892 *        written, blank out the column headings over columns     *
                                    893 *        which will be unused.                                   *
                                    894 *                                                                *
                                    895 *        R3  = Address of current EXCP section in SMF record.    *
                                    896 *        R4  = Count of EXCP sections.                           *
                                    897 *        R5  = Count of EXCP segments in print line.             *
                                    898 *        R6  = Address of current EXCP segment in print line.    *
                                    899 *        R7  = Subroutine linkage.                               *
                                    900 *        R9  = Start of type 4 record - not referenced.          *
                                    901 *        R10 = Exit routine parameter list.                      *
                                    902 *        R12 = OS Linkage Control Table.                         *
                                    903 *                                                                *
                                    904 ******************************************************************

                                    906 *----------------------------------------------------------------*
                                    907 *        Set up to write EXCP header and column headings.        *
                                    908 *----------------------------------------------------------------*
00047E                              909 SEXWHDR  DS    0H                  Prepare to write EXCP headings

                                    911 *----------------------------------------------------------------*
                                    912 *        Write "...." line prior to EXCP box.                    *
                                    913 *----------------------------------------------------------------*
00047E 924B D20D      0020D         914          MVI   PRTLINE2,C'.'       Set "...." in output area
000482 D282 D20E D20D 0020E 0020D   915          MVC   PRTLINE2+1(L'PRTLINE2-1),PRTLINE2
000488 925C D20D      0020D         916          MVI   PRTLINE2+0,C'*'     Set initial frame character
00048C 925C D290      00290         917          MVI   PRTLINE2+131,C'*'   Set final frame character
000490 4100 0084            00084   918          LA    R0,L'PRTLINE2       Set length of line
000494 4110 D20D            0020D   919          LA    R1,PRTLINE2         Point to "...." line
000498 4570 BA76            00A76   920          BAL   R7,PUTLINE          Write "...." line

                                    922 *----------------------------------------------------------------*
                                    923 *        Write "EXCP STATISTICS" header line.                    *
                                    924 *----------------------------------------------------------------*
00049C 9240 D20D      0020D         925          MVI   PRTLINE2,C' '       Blank output area
0004A0 D282 D20E D20D 0020E 0020D   926          MVC   PRTLINE2+1(L'PRTLINE2-1),PRTLINE2
0004A6 925C D20D      0020D         927          MVI   PRTLINE2+0,C'*'     Set initial frame character
0004AA 925C D290      00290         928          MVI   PRTLINE2+131,C'*'   Set final frame character
0004AE D219 D242 BB44 00242 00B44   929          MVC   SHDREX,MSHDREX      Set header text
0004B4 4110 D20D            0020D   930          LA    R1,PRTLINE2         Point to print line
0004B8 4100 0084            00084   931          LA    R0,L'PRTLINE2       Get length of print line
0004BC 4570 BA76            00A76   932          BAL   R7,PUTLINE          Write the line

                                    934 *----------------------------------------------------------------*
                                    935 *        Initialize EXCP column header and determine             *
                                    936 *        if we need to modify it.                                *
                                    937 *----------------------------------------------------------------*
0004C0 D283 D20D BE36 0020D 00E36   938          MVC   PRTLINE2,STEPXCOL   Initialize column headings
0004C6 1255                         939          LTR   R5,R5               All columns used?
0004C8 47D0 B4F8            004F8   940          BNP   SEXWHDRW            Continue if so
           Obtain work area                                                                                    PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    942 *----------------------------------------------------------------*
                                    943 *        Find number of EXCP entries on the line.                *
                                    944 *----------------------------------------------------------------*
0004CC 41E0 0005            00005   945          LA    R14,SXCOLNUM        Calculate number
0004D0 1BE5                         946          SR    R14,R5               of EXCP entries in line

                                    948 *----------------------------------------------------------------*
                                    949 *        Find start of header area to be blanked.                *
                                    950 *----------------------------------------------------------------*
0004D2 41F0 D20E            0020E   951          LA    R15,SXCOLFST        Point to first column heading
0004D6 4CE0 BBD6            00BD6   952          MH    R14,=Y(SXCOLLEN)    Calculate address
0004DA 1AFE                         953          AR    R15,R14              of area to blank

                                    955 *----------------------------------------------------------------*
                                    956 *        Calculate length of header area to blank.               *
                                    957 *----------------------------------------------------------------*
0004DC 1815                         958          LR    R1,R5               Calculate length
0004DE 4C10 BBD6            00BD6   959          MH    R1,=Y(SXCOLLEN)      of area to be blanked
0004E2 4B10 BBD8            00BD8   960          SH    R1,=Y(2)            Adjust length

                                    962 *----------------------------------------------------------------*
                                    963 *        Blank column headings over empty columns.               *
                                    964 *----------------------------------------------------------------*
0004E6 9240 F000      00000         965          MVI   0(R15),C' '         Blank heading
0004EA 4410 B4F2            004F2   966          EX    R1,SEXBLMVC          over columns not used
0004EE 47F0 B4F8            004F8   967          B     SEXWHDRW            Go to write EXCP headers

0004F2 D200 F001 F000 00001 00000   969 SEXBLMVC MVC   1(*-*,R15),0(R15)   ** Executed to blank headers **

                                    971 *----------------------------------------------------------------*
                                    972 *        Write EXCP column header line.                          *
                                    973 *----------------------------------------------------------------*
0004F8                              974 SEXWHDRW DS    0H                  Write the headers
0004F8 4100 0084            00084   975          LA    R0,L'PRTLINE2       Set length of line
0004FC 4110 D20D            0020D   976          LA    R1,PRTLINE2         Point to column headings
000500 4570 BA76            00A76   977          BAL   R7,PUTLINE          Write column headings
000504 9680 D0DC      000DC         978          OI    FLAG1,F1EXCPHD      Show EXCP headers were done
           Obtain work area                                                                                    PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    980 ******************************************************************
                                    981 *                                                                *
                                    982 *        SEXWLINE:                                               *
                                    983 *                                                                *
                                    984 *        Headings are finished or had already been written,      *
                                    985 *        so write the completed EXCP count print line.           *
                                    986 *                                                                *
                                    987 *        R3  = Address of current EXCP section in SMF record.    *
                                    988 *        R4  = Count of EXCP sections.                           *
                                    989 *        R5  = Count of EXCP segments in print line.             *
                                    990 *        R6  = Address of current EXCP segment in print line.    *
                                    991 *        R7  = Subroutine linkage.                               *
                                    992 *        R9  = Address of SMF record - not referenced.           *
                                    993 *        R10 = Exit routine parameter list - not referenced.     *
                                    994 *        R12 = Address of LCT - not referenced.                  *
                                    995 *                                                                *
                                    996 ******************************************************************

                                    998 *----------------------------------------------------------------*
                                    999 *        Write EXCP print line.                                  *
                                   1000 *----------------------------------------------------------------*
000508                             1001 SEXWLINE DS    0H                  Write EXCP print line
000508 4100 0084            00084  1002          LA    R0,132              Set length of line
00050C 4110 D109            00109  1003          LA    R1,PRTLINE          Point to print line
000510 4570 BA76            00A76  1004          BAL   R7,PUTLINE          Write EXCP counts print line
000514 1244                        1005          LTR   R4,R4               Was this the last line?
000516 4720 B434            00434  1006          BP    SEXLOOPI            No: go do some more EXCPs
00051A 47F0 B52A            0052A  1007          B     SEXEXIT             Else done with EXCPs
           Obtain work area                                                                                    PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1009 ******************************************************************
                                   1010 *                                                                *
                                   1011 *        SEXTRUNC:                                               *
                                   1012 *                                                                *
                                   1013 *        Last EXCP section in this record has been processed.    *
                                   1014 *        Determine if the final print line has anything in it,   *
                                   1015 *        and, if it does, go to write it.                        *
                                   1016 *                                                                *
                                   1017 *        R3  = Address of current EXCP section in SMF record.    *
                                   1018 *        R4  = Count of EXCP sections.                           *
                                   1019 *        R5  = Count of EXCP segments in print line.             *
                                   1020 *        R6  = Address of current EXCP segment in print line.    *
                                   1021 *        R7  = Subroutine linkage.                               *
                                   1022 *        R9  = Address of SMF record - not referenced.           *
                                   1023 *        R10 = Exit routine parameter list - not referenced.     *
                                   1024 *        R12 = Address of LCT - not referenced.                  *
                                   1025 *                                                                *
                                   1026 ******************************************************************

                                   1028 *----------------------------------------------------------------*
                                   1029 *        Truncate print line when no more EXCP sections.         *
                                   1030 *----------------------------------------------------------------*
00051E                             1031 SEXTRUNC DS    0H                  Out of EXCPs
00051E 5950 BBA4            00BA4  1032          C     R5,=A(SXCOLNUM)     Anything on final print line?
000522 4740 B476            00476  1033          BL    SEXFULL             Yes: then go print it
000526 47F0 B52A            0052A  1034          B     SEXEXIT             Else done
           Obtain work area                                                                                    PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1036 ******************************************************************
                                   1037 *                                                                *
                                   1038 *        SEXEXIT:                                                *
                                   1039 *                                                                *
                                   1040 *        Done with EXCP processing for this SMF record.          *
                                   1041 *                                                                *
                                   1042 *        R9  = Address of SMF record - not referenced.           *
                                   1043 *        R10 = Exit routine parameter list - not referenced.     *
                                   1044 *        R12 = Address of LCT - not referenced.                  *
                                   1045 *                                                                *
                                   1046 ******************************************************************

00052A                             1048 SEXEXIT  DS    0H                  End of EXCP processing
                                   1049          DROP  R3                  End EXCP section addressability
           Obtain work area                                                                                    PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1051 *----------------------------------------------------------------*
                                   1052 *        Write a line of all "****".                             *
                                   1053 *----------------------------------------------------------------*
00052A 925C D109      00109        1054          MVI   PRTLINE+0,C'*'      Initialize line to "****"
00052E D282 D10A D109 0010A 00109  1055          MVC   PRTLINE+1(L'PRTLINE-1),PRTLINE
000534 4110 D109            00109  1056          LA    R1,PRTLINE          Point to print line
000538 4100 0084            00084  1057          LA    R0,L'PRTLINE        Get length of print line
00053C 4570 BA76            00A76  1058          BAL   R7,PUTLINE          Write the line

                                   1060 *----------------------------------------------------------------*
                                   1061 *        Write a blank line.                                     *
                                   1062 *----------------------------------------------------------------*
000540 9240 D109      00109        1063          MVI   PRTLINE,C' '        Set blank in print line
000544 4110 D109            00109  1064          LA    R1,PRTLINE          Point to print line
000548 4100 0001            00001  1065          LA    R0,1                Get length of print line
00054C 4570 BA76            00A76  1066          BAL   R7,PUTLINE          Write the line

                                   1068 *----------------------------------------------------------------*
                                   1069 *        Done with step end processing.                          *
                                   1070 *----------------------------------------------------------------*
000550 47F0 B76A            0076A  1071          B     FREEWORK            Go to clean up and exit
           Obtain work area                                                                                    PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1073 ******************************************************************
                                   1074 *                                                                *
                                   1075 *        JOBEND:                                                 *
                                   1076 *                                                                *
                                   1077 *        End-of-job processing.                                  *
                                   1078 *                                                                *
                                   1079 ******************************************************************

000554                             1081 JOBEND   DS    0H                  Begin end-of-job processing
                                   1082 **** start hasp stuff
000554 58F0 0010            00010  1083          L     R15,CVTPTR          Get address of CVT
000000                             1084          USING CVT,R15             Addressability for CVT
000558 58F0 F0CC            000CC  1085          L     R15,CVTUSER         Get HASP $HVT address
                                   1086          DROP  R15                 End CVT addressability
00055C 12FF                        1087          LTR   R15,R15             Is HASP active?
00055E 4780 B570            00570  1088          BZ    JBNOHASP            Skip call to HASP if not
000562 58F0 F01C            0001C  1089          L     R15,28(,R15)        Else get address of XTERMSMF
000566 5810 D0B8            000B8  1090          L     R1,PREVR13          Restore caller's R13
00056A 9801 1014            00014  1091          LM    R0,R1,20(R1)        Restore R0-R1 at entry
00056E 05EF                        1092          BALR  R14,R15             Link to XTERMSMF
000570                             1093 JBNOHASP DS    0H                  Here to bypass call to HASP
                                   1094 **** end hasp stuff

                                   1096 *----------------------------------------------------------------*
                                   1097 *        Write a blank line.                                     *
                                   1098 *----------------------------------------------------------------*
000570 9240 D109      00109        1099          MVI   PRTLINE,C' '        Set blank in print line
000574 4110 D109            00109  1100          LA    R1,PRTLINE          Point to print line
000578 4100 0001            00001  1101          LA    R0,1                Get length of print line
00057C 4570 BA76            00A76  1102          BAL   R7,PUTLINE          Write the line

                                   1104 *----------------------------------------------------------------*
                                   1105 *        Write "OS/360 ..." line.                                *
                                   1106 *----------------------------------------------------------------*
000580 925C D109      00109        1107          MVI   PRTLINE+0,C'*'      Initialize line to "****"
000584 D282 D10A D109 0010A 00109  1108          MVC   PRTLINE+1(L'PRTLINE-1),PRTLINE
00058A D228 D136 D1E4 00136 001E4  1109          MVC   CHDATA,HDATA        Copy heading data
000590 4110 D109            00109  1110          LA    R1,PRTLINE          Point to print line
000594 4100 0084            00084  1111          LA    R0,L'PRTLINE        Get length of print line
000598 4570 BA76            00A76  1112          BAL   R7,PUTLINE          Write the line

                                   1114 *----------------------------------------------------------------*
                                   1115 *        Write "JOB END STATISTICS" header line.                 *
                                   1116 *----------------------------------------------------------------*
00059C 9240 D109      00109        1117          MVI   PRTLINE,C' '        Blank output area
0005A0 D282 D10A D109 0010A 00109  1118          MVC   PRTLINE+1(L'PRTLINE-1),PRTLINE
0005A6 925C D109      00109        1119          MVI   PRTLINE+0,C'*'      Set initial frame character
0005AA 925C D18C      0018C        1120          MVI   PRTLINE+131,C'*'    Set final frame character
0005AE D217 D13F BB5E 0013F 00B5E  1121          MVC   JHDRTX,MJHDRTX      Set header text
0005B4 4110 D109            00109  1122          LA    R1,PRTLINE          Point to print line
0005B8 4100 0084            00084  1123          LA    R0,L'PRTLINE        Get length of print line
0005BC 4570 BA76            00A76  1124          BAL   R7,PUTLINE          Write the line
           Obtain work area                                                                                    PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1126 *----------------------------------------------------------------*
                                   1127 *        Initialize job end statistics line 1.                   *
                                   1128 *----------------------------------------------------------------*
0005C0 D283 D109 BEBA 00109 00EBA  1129          MVC   JOBLN1,MJOBLN1      Copy model line

                                   1131 *----------------------------------------------------------------*
                                   1132 *        Job name.                                               *
                                   1133 *----------------------------------------------------------------*
0005C6 D207 D117 5008 00117 00008  1134          MVC   J1JNAME,JCTJNAME     Get job name

                                   1136 *----------------------------------------------------------------*
                                   1137 *        Reader start time.                                      *
                                   1138 *----------------------------------------------------------------*
0005CC BF1F 901A            0001A  1139          ICM   R1,15,SMF5RST       Get reader start time
0005D0 41F0 D130            00130  1140          LA    R15,J1RDTM          Locate print position
0005D4 4570 B9EA            009EA  1141          BAL   R7,TIMEX            Go convert time to HH:MM:SS:TH

                                   1143 *----------------------------------------------------------------*
                                   1144 *        Reader start date.                                      *
                                   1145 *----------------------------------------------------------------*
0005D8 BF1F 901E            0001E  1146          ICM   R1,15,SMF5RSD       Get reader start date
0005DC 41F0 B8E2            008E2  1147          LA    R15,RTDOW           Find day-of-week
0005E0 05EF                        1148          BALR  R14,R15              of reader start date
0005E2 D208 D160 F000 00160 00000  1149          MVC   J1RDDAY,0(R15)        and set in output line
0005E8 4100 D14C            0014C  1150          LA    R0,J1RDDTJ          Format reader date
0005EC 41F0 B7D4            007D4  1151          LA    R15,RTJDATE          as Julian date
0005F0 05EF                        1152          BALR  R14,R15               into output line
0005F2 4100 D155            00155  1153          LA    R0,J1RDDTG          Convert reader date
0005F6 41F0 B824            00824  1154          LA    R15,RTTOGREG         to Gregorian date
0005FA 05EF                        1155          BALR  R14,R15               and format into output line

                                   1157 *----------------------------------------------------------------*
                                   1158 *        Job CPU time under TCBs.                                *
                                   1159 *----------------------------------------------------------------*
0005FC 1711                        1160          XR    R1,R1               Clear time register
0005FE BF17 9075            00075  1161          ICM   R1,7,SMF5JCPU       Get job TCB time
000602 41F0 D17E            0017E  1162          LA    R15,J1TMTCB         Point to slot for output
000606 4570 B9EA            009EA  1163          BAL   R7,TIMEX            Go convert time to HH:MM:SS:TH

                                   1165 *----------------------------------------------------------------*
                                   1166 *        Write job end statistics line 1.                        *
                                   1167 *----------------------------------------------------------------*
00060A 4110 D109            00109  1168          LA    R1,PRTLINE          Point to print line
00060E 4100 0084            00084  1169          LA    R0,L'PRTLINE        Get length of print line
000612 4570 BA76            00A76  1170          BAL   R7,PUTLINE          Write the line
           Obtain work area                                                                                    PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1172 *----------------------------------------------------------------*
                                   1173 *        Initialize job end statistics line 2.                   *
                                   1174 *----------------------------------------------------------------*
000616 D283 D109 BF3E 00109 00F3E  1175          MVC   JOBLN2,MJOBLN2      Copy model line

                                   1177 *----------------------------------------------------------------*
                                   1178 *        Job class.                                              *
                                   1179 *----------------------------------------------------------------*
00061C D200 D117 904B 00117 0004B  1180          MVC   J2CLS,SMF5JICL      Get job class

                                   1182 *----------------------------------------------------------------*
                                   1183 *        Job initiation time.                                    *
                                   1184 *----------------------------------------------------------------*
000622 BF1F 902B            0002B  1185          ICM   R1,15,SMF5JIT       Get time job was initiated
000626 41F0 D130            00130  1186          LA    R15,J2INTM          Locate its print position
00062A 4570 B9EA            009EA  1187          BAL   R7,TIMEX            Go convert time to HH:MM:SS:TH

                                   1189 *----------------------------------------------------------------*
                                   1190 *        Job initiation date.                                    *
                                   1191 *----------------------------------------------------------------*
00062E BF1F 902F            0002F  1192          ICM   R1,15,SMF5JID       Get job initiation date
000632 41F0 B8E2            008E2  1193          LA    R15,RTDOW           Find day-of-week
000636 05EF                        1194          BALR  R14,R15              of start date
000638 D208 D160 F000 00160 00000  1195          MVC   J2INDAY,0(R15)        and set in output line
00063E 4100 D14C            0014C  1196          LA    R0,J2INDTJ          Format start date
000642 41F0 B7D4            007D4  1197          LA    R15,RTJDATE          as Julian date
000646 05EF                        1198          BALR  R14,R15               into output line
000648 4100 D155            00155  1199          LA    R0,J2INDTG          Convert start date
00064C 41F0 B824            00824  1200          LA    R15,RTTOGREG         to Gregorian date
000650 05EF                        1201          BALR  R14,R15               and format into output line

                                   1203 *----------------------------------------------------------------*
                                   1204 *        Job elapsed time                                        *
                                   1205 *----------------------------------------------------------------*
000652 D203 D0D4 902F 000D4 0002F  1206          MVC   DATE,SMF5JID        Get job start date
000658 D203 D0D8 900A 000D8 0000A  1207          MVC   DATEND,SMF5DTE      Get job end date
00065E BF1F 9006            00006  1208          ICM   R1,15,SMF5TME       Get job end time
000662 BF0F 902B            0002B  1209          ICM   R0,15,SMF5JIT       Get time job was initiated
000666 41F0 D17E            0017E  1210          LA    R15,J2TMELP         Point to output area
00066A 4570 B9CC            009CC  1211          BAL   R7,ELAPSED          Format job elapsed time

                                   1213 *----------------------------------------------------------------*
                                   1214 *        Write job end statistics line 2.                        *
                                   1215 *----------------------------------------------------------------*
00066E 4110 D109            00109  1216          LA    R1,PRTLINE          Point to print line
000672 4100 0084            00084  1217          LA    R0,L'PRTLINE        Get length of print line
000676 4570 BA76            00A76  1218          BAL   R7,PUTLINE          Write the line
           Obtain work area                                                                                    PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1220 *----------------------------------------------------------------*
                                   1221 *        Initialize job end statistics line 3.                   *
                                   1222 *----------------------------------------------------------------*
00067A D283 D109 BFC2 00109 00FC2  1223          MVC   JOBLN3,MJOBLN3      Copy model line

                                   1225 *----------------------------------------------------------------*
                                   1226 *        Job end time.                                           *
                                   1227 *----------------------------------------------------------------*
000680 BF0F 9006            00006  1228          ICM   R0,15,SMF5TME       Get job end time
000684 BF1F 900A            0000A  1229          ICM   R1,15,SMF5DTE       Get job end date
000688 BE1F D0D8            000D8  1230          STCM  R1,15,DATEND        Save job end date
00068C 1840                        1231          LR    R4,R0               Save job end time
00068E 1814                        1232          LR    R1,R4               Save time for convert routine
000690 41F0 D130            00130  1233          LA    R15,J3ENTM          Point to output area
000694 4570 B9EA            009EA  1234          BAL   R7,TIMEX            Go convert time to HH:MM:SS:TH

                                   1236 *----------------------------------------------------------------*
                                   1237 *        Job end date.                                           *
                                   1238 *----------------------------------------------------------------*
000698 BF1F D0D8            000D8  1239          ICM   R1,15,DATEND        Get job end date
00069C 41F0 B8E2            008E2  1240          LA    R15,RTDOW           Find day-of-week
0006A0 05EF                        1241          BALR  R14,R15              of end date
0006A2 D208 D160 F000 00160 00000  1242          MVC   J3ENDAY,0(R15)        and set in output line
0006A8 4100 D14C            0014C  1243          LA    R0,J3ENDTJ          Format end date
0006AC 41F0 B7D4            007D4  1244          LA    R15,RTJDATE          as Julian date
0006B0 05EF                        1245          BALR  R14,R15               into output line
0006B2 4100 D155            00155  1246          LA    R0,J3ENDTG          Convert end date
0006B6 41F0 B824            00824  1247          LA    R15,RTTOGREG         to Gregorian date
0006BA 05EF                        1248          BALR  R14,R15               and format into output line

                                   1250 *----------------------------------------------------------------*
                                   1251 *        See if JMRUSEID contains HASP/ASP job ID.               *
                                   1252 *----------------------------------------------------------------*
0006BC 58F0 D0B8            000B8  1253          L     R15,PREVR13         Restore caller's R13
0006C0 58F0 F018            00018  1254          L     R15,24(,R15)        Get R1 at entry
0006C4 58F0 F000            00000  1255          L     R15,0(,R15)         Get CEPA address
000000                             1256          USING JMR,R15             Addressability for CEPA
0006C8 D502 BBF1 F014 00BF1 00014  1257          CLC   =C'JOB',JMRUSEID    Does JMRUSEID contain job ID?
0006CE 4770 B6EC            006EC  1258          BNE   JACCT               Do account number if not

                                   1260 *----------------------------------------------------------------*
                                   1261 *        Format HASP/ASP job ID from JMRUSEID.                   *
                                   1262 *----------------------------------------------------------------*
0006D2 D206 D10D BBF4 0010D 00BF4  1263          MVC   J3KACT,=C'JOB ID '  Set "JOB ID" keyword in output
0006D8 D207 D117 F014 00117 00014  1264          MVC   J3JBID,JMRUSEID     Set job ID from JMRUSEID
0006DE 92F0 D11A      0011A        1265          MVI   J3JBID+3,C'0'       Force leading zero
0006E2 D607 D117 BB90 00117 00B90  1266          OC    J3JBID,=C'   00000' Force blanks to zeroes
                                   1267          DROP  R15                 End CEPA addressability
0006E8 47F0 B71A            0071A  1268          B     JMISC               Continue with job fields

                                   1270 *----------------------------------------------------------------*
                                   1271 *        First accounting field from JOB card.                   *
                                   1272 *----------------------------------------------------------------*
0006EC                             1273 JACCT    DS    0H
0006EC D207 D117 BB98 00117 00B98  1274          MVC   J3ACCT,=CL8' '      Blank account number field
           Obtain work area                                                                                    PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0006F2 17FF                        1275          XR    R15,R15             Zero number of account fields
0006F4 5810 A00C            0000C  1276          L     R1,12(,R10)         Point to num of acct fields
0006F8 BFF1 1003            00003  1277          ICM   R15,1,3(R1)         Get number of acct fields
0006FC 47D0 B71A            0071A  1278          BNP   JMISC               Skip this if no fields
000700 5810 A010            00010  1279          L     R1,16(,R10)         Point to accounting fields
000704 BFF1 1000            00000  1280          ICM   R15,1,0(R1)         Get length of 1st field
000708 47D0 B71A            0071A  1281          BNP   JMISC               Quit if no first field
00070C 59F0 BBA8            00BA8  1282          C     R15,=F'8'           1st field too big for us?
000710 4720 B71A            0071A  1283          BH    JMISC               Skip accounting field if so
000714 06F0                        1284          BCTR  R15,0               Decrement for executed move
000716 44F0 B764            00764  1285          EX    R15,MOVEACCT        Move in account number
00071A                             1286 JMISC    DS    0H

                                   1288 *----------------------------------------------------------------*
                                   1289 *        Job priority.                                           *
                                   1290 *----------------------------------------------------------------*
00071A 17FF                        1291          XR    R15,R15             Clear a register
00071C 43F0 9039            00039  1292          IC    R15,SMF5JPTY        Get job priority
000720 4EF0 D0B0            000B0  1293          CVD   R15,DWORK           Convert to packed
000724 45E0 BA5E            00A5E  1294          BAL   R14,EDMKRTN         Format as zoned
000728 D20F D179 D191 00179 00191  1295          MVC   J3PRTY,EPRTY        Set priority in output line

                                   1297 *----------------------------------------------------------------*
                                   1298 *        Write job end statistics line 3.                        *
                                   1299 *----------------------------------------------------------------*
00072E 4110 D109            00109  1300          LA    R1,PRTLINE          Point to print line
000732 4100 0084            00084  1301          LA    R0,L'PRTLINE        Get length of print line
000736 4570 BA76            00A76  1302          BAL   R7,PUTLINE          Write the line
           Obtain work area                                                                                    PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1304 *----------------------------------------------------------------*
                                   1305 *        Write a line of all "****".                             *
                                   1306 *----------------------------------------------------------------*
00073A 925C D109      00109        1307          MVI   PRTLINE+0,C'*'      Initialize line to "****"
00073E D282 D10A D109 0010A 00109  1308          MVC   PRTLINE+1(L'PRTLINE-1),PRTLINE
000744 4110 D109            00109  1309          LA    R1,PRTLINE          Point to print line
000748 4100 0084            00084  1310          LA    R0,L'PRTLINE        Get length of print line
00074C 4570 BA76            00A76  1311          BAL   R7,PUTLINE          Write the line

                                   1313 *----------------------------------------------------------------*
                                   1314 *        Write a blank line.                                     *
                                   1315 *----------------------------------------------------------------*
000750 9240 D109      00109        1316          MVI   PRTLINE,C' '        Set blank in print line
000754 4110 D109            00109  1317          LA    R1,PRTLINE          Point to print line
000758 4100 0001            00001  1318          LA    R0,1                Get length of print line
00075C 4570 BA76            00A76  1319          BAL   R7,PUTLINE          Write the line

                                   1321 *----------------------------------------------------------------*
                                   1322 *        Done with job end processing.                           *
                                   1323 *----------------------------------------------------------------*
000760 47F0 B76A            0076A  1324          B     FREEWORK            Go to clean up and exit

000764 D200 D117 1001 00117 00001  1326 MOVEACCT MVC   J3ACCT(*-*),1(R1)   ** Executed **

                                   1328          DROP  R6                  END SCT ADDRESSABILITY
                                   1329          DROP  R5                  END JCT ADDRESSABILITY
                                   1330          DROP  R12                 END LCT ADDRESSABILITY
           Obtain work area                                                                                    PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1332 ******************************************************************
                                   1333 *                                                                *
                                   1334 *        FREEWORK:                                               *
                                   1335 *                                                                *
                                   1336 *        Free dynamic work area.                                 *
                                   1337 *                                                                *
                                   1338 *        R9  = Address of SMF record - not referenced.           *
                                   1339 *        R10 = Exit routine parameter list - not referenced.     *
                                   1340 *        R12 = Address of LCT.                                   *
                                   1341 *        R13 = GETMAINed work area - freed in this routine.      *
                                   1342 *                                                                *
                                   1343 *        Workregs = R0, R1, R15.                                 *
                                   1344 *                                                                *
                                   1345 ******************************************************************

00076A                             1347 FREEWORK DS    0H                  Free the work area
00076A 181D                        1348          LR    R1,R13              Set work area address for freemain
00076C 4100 0298            00298  1349          LA    R0,LWORKA           Set work area length for freemain
000770 58D0 D0B8            000B8  1350          L     R13,PREVR13         Restore caller's save area address
                                   1351 **       L     R13,SAVEA+4         Restore caller's save area address
                                   1352          DROP  R13                 End work area addressability
                                   1353          FREEMAIN R,LV=(0),A=(1)   Free work area storage
000774 4111 0000            00000  1354+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
000778 0A0A                        1355+         SVC   10 ISSUE FREEMAIN SVC         P2504
           Obtain work area                                                                                    PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1357 *----------------------------------------------------------------*
                                   1358 *        Restore registers and return to system.                 *
                                   1359 *----------------------------------------------------------------*
00077A                             1360 RETURN   DS    0H                  Common return logic
00077A 58E0 D00C            0000C  1361          L     R14,12(,R13)        Restore return address
00077E 1711                        1362          XR    R1,R1               Allow SMF record to be written
                                   1363          RETURN (2,12),RC=0        Return to caller
000780 982C D01C            0001C  1364+         LM    2,12,28(13) RESTORE THE REGISTERS
000784 41F0 0000            00000  1365+         LA    15,0(0,0) LOAD RETURN CODE
000788 07FE                        1366+         BR    14 RETURN
           Obtain work area                                                                                    PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1368 ******************************************************************
                                   1369 *                                                                *
                                   1370 *        EXCP:                                                   *
                                   1371 *                                                                *
                                   1372 *        Subroutine to convert and place device number and       *
                                   1373 *        EXCP counts in print line.                              *
                                   1374 *                                                                *
                                   1375 *        R3  = Address of current EXCP section in SMF record.    *
                                   1376 *        R6  = Address of current EXCP segment in print line.    *
                                   1377 *        R7  = Subroutine return address.                        *
                                   1378 *        R10 = Exit routine parameter list.                      *
                                   1379 *                                                                *
                                   1380 ******************************************************************

000000                             1382          USING WORKA,R13           Restore work area addressability
00078A                             1383 EXCP     DS    0H                  Format EXCP entry
000000                             1384          USING SX,R6               Addressability for EXCP line
00006C                             1385          USING SMF4DEVC,R3         Address EXCP section of record
00078A D201 D0B0 3002 000B0 0006E  1386          MVC   DWORK(2),SMF4CUAD   Get device number
000790 920F D0B2      000B2        1387          MVI   DWORK+2,X'0F'       Set sign for unpack
000794 F342 D0B3 D0B0 000B3 000B0  1388          UNPK  DWORK+3(5),DWORK(3) Unpack device number
00079A D203 6000 D0B3 00000 000B3  1389          MVC   SUNIT,DWORK+3       Move to print line
0007A0 DC03 6000 BA2B 00000 00A2B  1390          TR    SUNIT,HEXTRAN-240   Translate hex to character
0007A6 BFFF 3004            00070  1391          ICM   R15,15,SMF4EXCP     Load EXCP count
0007AA 4EF0 D0B0            000B0  1392          CVD   R15,DWORK           Convert EXCPs to decimal
0007AE D20D 6005 B7C6 00005 007C6  1393          MVC   SCOUNT,MSKEXCP      Move edit pattern to line
0007B4 4110 6012            00012  1394          LA    R1,SCOUNT+L'SCOUNT-1  Default significance pointer
0007B8 DF0D 6005 D0B2 00005 000B2  1395          EDMK  SCOUNT,DWORK+2      Edit EXCPs into line
0007BE 0610                        1396          BCTR  R1,0                Decrement significance pointer
0007C0 9240 1000      00000        1397          MVI   0(R1),C' '          Set blank before first digit
0007C4 07F7                        1398          BR    R7                  Return to caller

0007C6 6060602020202020            1400 MSKEXCP  DC    3C'-',9X'20',X'2120'  EXCP edit mask

                                   1402          DROP  R3                  End EXCP record addressability
                                   1403          DROP  R6                  End EXCP output addressability
                                   1404          DROP  R13                 End work area addressability
           Julian date formatting subroutine                                                                   PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1406 ***********************************************************************
                                   1407 *                                                                     *
                                   1408 *                                                                     *
                                   1409 * Subroutine           =  RTJDATE                                     *
                                   1410 *                                                                     *
                                   1411 *   Purpose            =  To format an MVS Julian date (year and      *
                                   1412 *                         day of year) as "yyyy.ddd" into a           *
                                   1413 *                         caller-supplied buffer.                     *
                                   1414 *                                                                     *
                                   1415 *   Linkage            =  Via BALR R14,R15                            *
                                   1416 *                                                                     *
                                   1417 *   Comments           =  None.                                       *
                                   1418 *                                                                     *
                                   1419 *   Input data         =                                              *
                                   1420 *       R0     = Address of 8-byte area to contain formatted date     *
                                   1421 *       R1     = Date in MVS TIME DEC format 0cyydddF                 *
                                   1422 *       R2-10  = Not applicable                                       *
                                   1423 *       R11    = Main program base register                           *
                                   1424 *       R12    = Not applicable                                       *
                                   1425 *       R13    = Standard 18-word OS save area                        *
                                   1426 *       R14    = Return address                                       *
                                   1427 *       R15    = Entry address                                        *
                                   1428 *                                                                     *
                                   1429 *   Registers saved    =  R0 - R15                                    *
                                   1430 *                                                                     *
                                   1431 *   Register usage     =                                              *
                                   1432 *       R0-2   = Not modified                                         *
                                   1433 *       R3     = Address of output area (from R0 at entry)            *
                                   1434 *       R4-13  = Not modified                                         *
                                   1435 *       R14    = Work register                                        *
                                   1436 *       R15    = Not modified                                         *
                                   1437 *                                                                     *
                                   1438 *   Registers restored =  R0 - R15                                    *
                                   1439 *                                                                     *
                                   1440 *   Output data        =                                              *
                                   1441 *       8-byte area pointed to by R0 at entry contains                *
                                   1442 *       Julian date formatted as "yyyy.ddd".                          *
                                   1443 *                                                                     *
                                   1444 *   Exit (normal)      =  Return to caller.                           *
                                   1445 *     Output           =  Formatted Julian date.                      *
                                   1446 *     Return code      =  Not applicable                              *
                                   1447 *                                                                     *
                                   1448 *                                                                     *
                                   1449 ***********************************************************************
           Julian date formatting subroutine                                                                   PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1451 ***********************************************************************
                                   1452 *                                                                     *
                                   1453 *        RTJDATE: Subroutine to format Julian date.                   *
                                   1454 *                                                                     *
                                   1455 ***********************************************************************

0007D4                             1457 RTJDATE  DS    0H                  Format Julian date
000000                             1458          USING WORKA,R13           Addressability for work area
0007D4 90EC D00C            0000C  1459          STM   R14,R12,12(R13)     Save caller's registers
0007D8 5010 D0CC            000CC  1460          ST    R1,TIME             Set date 0cyydddF in work area
0007DC 1830                        1461          LR    R3,R0               Save pointer to output area
000000                             1462          USING DJULDT,R3           Addressability for output area
0007DE D206 3001 B80C 00001 0080C  1463          MVC   DJEDIT,EMJDATE      Initialize edit mask for date
0007E4 DE06 3001 D0CD 00001 000CD  1464          ED    DJEDIT,TIME+1       Edit date into output
0007EA D201 3000 BBDA 00000 00BDA  1465          MVC   DJCC,=C'  '         Clear century digit positions
0007F0 43E0 D0CC            000CC  1466          IC    R14,TIME            Get the century index
0007F4 54E0 BBAC            00BAC  1467          N     R14,=F'7'           Ensure a number in range 0-7
0007F8 89E0 0001            00001  1468          SLL   R14,1               Get index
0007FC 41EE B813            00813  1469          LA    R14,ERCENTBL(R14)    into century table
000800 D201 3000 E000 00000 00000  1470          MVC   DJCC,0(R14)         Set century in date
000806 98EC D00C            0000C  1471          LM    R14,R12,12(R13)     Restore caller's registers
00080A 07FE                        1472          BR    R14                 Return to caller
                                   1473          DROP  R3                  End output area addressability
                                   1474          DROP  R13                 End work area addressability

00080C F021204B202020              1476 EMJDATE  DC    X'F021204B202020'   Edit mask for Julian date

                                   1478 *---------------------------------------------------------------------*
                                   1479 *        Table for building century from century index.               *
                                   1480 *---------------------------------------------------------------------*
000813                             1481 ERCENTBL DS    0CL2                Century table
000813 F1F9                        1482          DC    CL2'19'             +00 - century=00 - 20th century
000815 F2F0                        1483          DC    CL2'20'             +02 - century=01 - 21st century
000817 F2F1                        1484          DC    CL2'21'             +04 - century=02 - 22st century
000819 F2F2                        1485          DC    CL2'22'             +06 - century=03 - 23rd century
00081B F2F3                        1486          DC    CL2'23'             +08 - century=04 - 24th century
00081D F2F4                        1487          DC    CL2'24'             +0a - century=05 - 25th century
00081F F2F5                        1488          DC    CL2'25'             +0c - century=06 - 26th century
000821 F2F6                        1489          DC    CL2'26'             +10 - century=07 - 27th century
           Julian date formatting subroutine                                                                   PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1491 *---------------------------------------------------------------------*
                                   1492 *        Mapping of area to contain formatted Julian date.            *
                                   1493 *---------------------------------------------------------------------*
000000                             1494 DJULDT   DSECT ,                   Map formatted Julian date
000000                             1495 DJYEAR   DS    0CL4                -- Four-digit year
000000                             1496 DJCC     DS    CL2                 ---- Century
000002                             1497 DJYY     DS    CL2                 ---- Year
000004                             1498          DS    C'.'                -- Separator "."
000005                             1499 DJDAY    DS    CL3                 -- Day of year

000001                             1501          ORG   DJYEAR+1            Redefine year field
000001                             1502 DJEDIT   DS    CL7                 Alias for edit
000008                             1503          ORG   ,                   Reset location counter

000000                             1505 IEFACTRT CSECT ,                   Resume main CSECT
           Julian-to-Gregorian date conversion subroutine                                                      PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1507 ***********************************************************************
                                   1508 *                                                                     *
                                   1509 *                                                                     *
                                   1510 * Subroutine           =  RTTOGREG                                    *
                                   1511 *                                                                     *
                                   1512 *   Purpose            =  To convert MVS Julian date (year and day    *
                                   1513 *                         of year) in TIME DEC format to Gregorian    *
                                   1514 *                         month and day, and format the result into   *
                                   1515 *                         a caller-supplied buffer.                   *
                                   1516 *                                                                     *
                                   1517 *   Linkage            =  Via BALR R14,R15                            *
                                   1518 *                                                                     *
                                   1519 *   Comments           =                                              *
                                   1520 *                                                                     *
                                   1521 *       The algorithm used in this routine was adapted from           *
                                   1522 *       an algorithm called "Tableless Date Conversion" in            *
                                   1523 *       Communications of the ACM, Volume 13, Number 10,              *
                                   1524 *       October 1970.  The basic algorithm is:                        *
                                   1525 *                                                                     *
                                   1526 *         if (year is a leap year)                                    *
                                   1527 *           t = 1;                                                    *
                                   1528 *         else                                                        *
                                   1529 *           t = 0;                                                    *
                                   1530 *         endif                                                       *
                                   1531 *         if (dayofyear > (59 + t))                                   *
                                   1532 *           dayofmonth = dayofyear + 2 - t;                           *
                                   1533 *         else                                                        *
                                   1534 *           dayofmonth = dayofyear;                                   *
                                   1535 *         endif                                                       *
                                   1536 *         month = int(((dayofmonth + 91) * 100) / 3055);              *
                                   1537 *         dayofmonth = (dayofmonth + 91) - int((month * 3055) / 100); *
                                   1538 *         month = month - 2;                                          *
                                   1539 *         return(month, dayofmonth);                                  *
                                   1540 *                                                                     *
                                   1541 *       Note that the current implementation of this algorithm        *
                                   1542 *       doesn't include logic to handle centesimal years that         *
                                   1543 *       aren't leap years.  While it will work for years between      *
                                   1544 *       1901 and 2099 inclusive, it will break in 2100.               *
                                   1545 *                                                                     *
                                   1546 *                                                                     *
                                   1547 ***********************************************************************
           Julian-to-Gregorian date conversion subroutine                                                      PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1549 ***********************************************************************
                                   1550 *                                                                     *
                                   1551 *                                                                     *
                                   1552 *   Input data         =                                              *
                                   1553 *       R0     = Address of 10-byte area for formated Gregorian date  *
                                   1554 *       R1     = Date in MVS TIME DEC format 0cyydddF                 *
                                   1555 *       R2-10  = Not applicable                                       *
                                   1556 *       R11    = Main program base register                           *
                                   1557 *       R12    = Not applicable                                       *
                                   1558 *       R13    = Standard 18-word OS save area                        *
                                   1559 *       R14    = Return address                                       *
                                   1560 *       R15    = Entry address                                        *
                                   1561 *                                                                     *
                                   1562 *   Registers saved    =  R0 - R15                                    *
                                   1563 *                                                                     *
                                   1564 *   Register usage     =                                              *
                                   1565 *       R0     = Work register                                        *
                                   1566 *       R1     = Work register                                        *
                                   1567 *       R2     = Work register                                        *
                                   1568 *       R3     = Pointer to area for formatted Gregorian date         *
                                   1569 *       R4-14  = Not modified                                         *
                                   1570 *       R15    = Work register                                        *
                                   1571 *                                                                     *
                                   1572 *   Registers restored =  R0 - R15                                    *
                                   1573 *                                                                     *
                                   1574 *   Output data        =                                              *
                                   1575 *       The 10-byte area pointed to by R0 at entry contains           *
                                   1576 *       the Gregorian date formatted as "yyyy/mm/dd".                 *
                                   1577 *                                                                     *
                                   1578 *   Exit (normal)      =  Return to caller via PR.                    *
                                   1579 *     Output           =  Formatted Gregorian date.                   *
                                   1580 *     Return code      =  Not applicable                              *
                                   1581 *                                                                     *
                                   1582 *                                                                     *
                                   1583 ***********************************************************************
           Julian-to-Gregorian date conversion subroutine                                                      PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1585 ***********************************************************************
                                   1586 *                                                                     *
                                   1587 *        RTTOGREG:                                                    *
                                   1588 *                                                                     *
                                   1589 *        Subroutine to find Gregorian month and day from              *
                                   1590 *        Julian date and format the result.                           *
                                   1591 *                                                                     *
                                   1592 ***********************************************************************

000824                             1594 RTTOGREG DS    0H                  Find Gregorian month and day
000000                             1595          USING WORKA,R13           Addressability for work area
000824 90EC D00C            0000C  1596          STM   R14,R12,12(R13)     Save caller's registers
000828 1830                        1597          LR    R3,R0               Save pointer to output area
000000                             1598          USING DGREGDT,R3          Addressability for output area
00082A 1821                        1599          LR    R2,R1               Save date 0cyydddF in R2
00082C 8920 0010            00010  1600          SLL   R2,16               Packed days
000830 8820 0010            00010  1601          SRL   R2,16                0000dddF in R2
000834 1700                        1602          XR    R0,R0               Isolate
000836 8D00 0008            00008  1603          SLDL  R0,8                 century
00083A 8810 0018            00018  1604          SRL   R1,8+16               in R0
00083E 4A00 BBDC            00BDC  1605          AH    R0,=H'19'              and adjust
000842 4C00 BBDE            00BDE  1606          MH    R0,=H'100'              for 20th century base
000846 8910 0004            00004  1607          SLL   R1,4                Packed year 00000yy0 in R1
00084A 5610 BBB0            00BB0  1608          O     R1,=F'15'           Packed year 00000yyF in R1
00084E D707 D0B0 D0B0 000B0 000B0  1609          XC    DWORK,DWORK         Clear CVB work area
000854 BE1F D0B4            000B4  1610          STCM  R1,15,DWORK+4       Set decimal year in work area
000858 4F10 D0B0            000B0  1611          CVB   R1,DWORK            Convert year to binary
00085C 1A10                        1612          AR    R1,R0               Add century to year
00085E 4E10 D0B0            000B0  1613          CVD   R1,DWORK            Convert 4-digit year to packed
000862 F337 3000 D0B0 00000 000B0  1614          UNPK  DGYEAR,DWORK        Unpack year into output
000868 96F0 3003      00003        1615          OI    DGYEAR+3,X'F0'       and force printable sign
00086C D707 D0B0 D0B0 000B0 000B0  1616          XC    DWORK,DWORK         Clear CVB work area
000872 BE2F D0B4            000B4  1617          STCM  R2,15,DWORK+4       Set decimal day in work area
000876 4F00 D0B0            000B0  1618          CVB   R0,DWORK            Convert day to binary
00087A 1820                        1619          LR    R2,R0               d = j = day of year in R2
00087C 17FF                        1620          XR    R15,R15             Assume it's not a leap year
00087E 5410 BBB4            00BB4  1621          N     R1,=F'3'            Make simple leap year test
000882 4770 B88A            0088A  1622          BNZ   RTTOGRA             t=0 if not a leap year
000886 41F0 0001            00001  1623          LA    R15,1                otherwise t=1
00088A 4110 F03B            0003B  1624 RTTOGRA  LA    R1,59(,R15)         (59+t) in R1
00088E 1921                        1625          CR    R2,R1               Is j>(59+t)?
000890 47D0 B89A            0089A  1626          BNH   RTTOGRB             Branch if not
000894 5A20 BBB8            00BB8  1627          A     R2,=F'2'            Otherwise
000898 1B2F                        1628          SR    R2,R15               d=j+2-t in R2
00089A 5A20 BBBC            00BBC  1629 RTTOGRB  A     R2,=F'91'           d+91 in R2
00089E 1812                        1630          LR    R1,R2                and in R1
0008A0 5C00 BBC0            00BC0  1631          M     R0,=F'100'          (d+91)*100 in R0-R1
0008A4 5D00 BBC4            00BC4  1632          D     R0,=F'3055'         m=int(((d+91)*100)/3055)
0008A8 18F1                        1633          LR    R15,R1               in R1 and R15
0008AA 5CE0 BBC4            00BC4  1634          M     R14,=F'3055'        int((m*3055)/100)
0008AE 5DE0 BBC0            00BC0  1635          D     R14,=F'100'          in R15
                                   1636          SR    R2,R15              d=(d+91)-int((m*3055)/100)          +
0008B2 1B2F                                                                 in R2
0008B4 0610                        1637          BCTR  R1,0                Adjust month
0008B6 0610                        1638          BCTR  R1,0                 to m=m-2
           Julian-to-Gregorian date conversion subroutine                                                      PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0008B8 4E10 D0B0            000B0  1639          CVD   R1,DWORK            Convert month to packed
0008BC F317 3005 D0B0 00005 000B0  1640          UNPK  DGMONTH,DWORK       Unpack month into output
0008C2 96F0 3006      00006        1641          OI    DGMONTH+1,X'F0'      and force printable sign
0008C6 4E20 D0B0            000B0  1642          CVD   R2,DWORK            Convert day to packed
0008CA F317 3008 D0B0 00008 000B0  1643          UNPK  DGDAY,DWORK         Unpack day into output
0008D0 96F0 3009      00009        1644          OI    DGDAY+1,X'F0'        and force printable sign
0008D4 9261 3004      00004        1645          MVI   DGSEP1,C'/'         Insert separator
0008D8 9261 3007      00007        1646          MVI   DGSEP2,C'/'         Insert separator
0008DC 98EC D00C            0000C  1647          LM    R14,R12,12(R13)     Restore caller's registers
0008E0 07FE                        1648          BR    R14                 Return to caller

                                   1650          DROP  R3                  End output area addressability
                                   1651          DROP  R13                 End work area addressability

                                   1653 *---------------------------------------------------------------------*
                                   1654 *        Mapping of area to contain formatted Gregorian date.         *
                                   1655 *---------------------------------------------------------------------*
000000                             1656 DGREGDT  DSECT ,                   Map formatted Gregorian date
000000                             1657 DGYEAR   DS    CL4                 -- Four-digit year
000004                             1658 DGSEP1   DS    C'/'                -- Separator "/"
000005                             1659 DGMONTH  DS    CL2                 -- Month
000007                             1660 DGSEP2   DS    C'/'                -- Separator "/"
000008                             1661 DGDAY    DS    CL2                 -- Day of month

000000                             1663 IEFACTRT CSECT ,                   Resume main CSECT
           Weekday calculation subroutine                                                                      PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1665 ***********************************************************************
                                   1666 *                                                                     *
                                   1667 *                                                                     *
                                   1668 * Subroutine           =  RTDOW                                       *
                                   1669 *                                                                     *
                                   1670 *   Purpose            =  To find the day of the week given an        *
                                   1671 *                         MVS Julian date (year and day of year)      *
                                   1672 *                         in TIME DEC format.                         *
                                   1673 *                                                                     *
                                   1674 *   Linkage            =  Via BALR R14,R15                            *
                                   1675 *                                                                     *
                                   1676 *   Comments           =                                              *
                                   1677 *                                                                     *
                                   1678 *       The algorithm used in this routine was adapted from           *
                                   1679 *       "Elementary Number Theory and Its Applications" by            *
                                   1680 *       Kenneth H. Rosen, Second Edition, pp 152-157:                 *
                                   1681 *                                                                     *
                                   1682 *         if (year is a leap year)                                    *
                                   1683 *           f = j - 61 + 140;                                         *
                                   1684 *         else                                                        *
                                   1685 *           f = j - 60 + 140;                                         *
                                   1686 *         endif;                                                      *
                                   1687 *         weekday = (3 + f - (2*c) + y + int(c/4) + int(y/4)) mod 7;  *
                                   1688 *         return(weekday);                                            *
                                   1689 *                                                                     *
                                   1690 *       where                                                         *
                                   1691 *                                                                     *
                                   1692 *       o  J is the day of the year                                   *
                                   1693 *                                                                     *
                                   1694 *       o  C is the high-order two digits of the year                 *
                                   1695 *                                                                     *
                                   1696 *       o  Y is the low-order two digits of the year                  *
                                   1697 *                                                                     *
                                   1698 *       o  F is the offset from March 1 to the day of the year J,     *
                                   1699 *          adjusted by 140 to prevent the operand of the modulus      *
                                   1700 *          operation from becoming negative (140 is an even           *
                                   1701 *          multiple of the modulus that's large enough                *
                                   1702 *          to offset the largest anticipated negative value)          *
                                   1703 *                                                                     *
                                   1704 *       The return value is an index of the weekday, with             *
                                   1705 *       0 = Sunday, 1 = Monday, and so on.                            *
                                   1706 *                                                                     *
                                   1707 *       Note that the current implementation of this algorithm        *
                                   1708 *       doesn't include logic to handle centesimal years that         *
                                   1709 *       aren't leap years.  While it will work for years between      *
                                   1710 *       1901 and 2099 inclusive, it will break in 2100.               *
                                   1711 *                                                                     *
                                   1712 *                                                                     *
                                   1713 ***********************************************************************
           Weekday calculation subroutine                                                                      PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1715 ***********************************************************************
                                   1716 *                                                                     *
                                   1717 *                                                                     *
                                   1718 *   Input data         =                                              *
                                   1719 *       R0     = Not applicable                                       *
                                   1720 *       R1     = Date in MVS TIME DEC format 0cyydddF                 *
                                   1721 *       R2-10  = Not applicable                                       *
                                   1722 *       R11    = Main program base register                           *
                                   1723 *       R12    = Not applicable                                       *
                                   1724 *       R13    = Standard 18-word OS save area                        *
                                   1725 *       R14    = Return address                                       *
                                   1726 *       R15    = Entry address                                        *
                                   1727 *                                                                     *
                                   1728 *   Registers saved    =  R0 - R15 by stack linkage                   *
                                   1729 *                                                                     *
                                   1730 *   Register usage     =                                              *
                                   1731 *       R0     = Work register                                        *
                                   1732 *       R1     = Work register                                        *
                                   1733 *       R2-13  = Not modified                                         *
                                   1734 *       R14    = Work register                                        *
                                   1735 *       R15    = Work register                                        *
                                   1736 *                                                                     *
                                   1737 *   Registers restored =  R0 - R14                                    *
                                   1738 *                                                                     *
                                   1739 *   Output data        =                                              *
                                   1740 *       R0-14  = Same values as at entry                              *
                                   1741 *       R15    = Pointer to 9-byte area containing day of week.       *
                                   1742 *                                                                     *
                                   1743 *   Exit (normal)      =  Return to caller.                           *
                                   1744 *     Output           =  Index of day of week in R15.                *
                                   1745 *     Return code      =  Not applicable                              *
                                   1746 *                                                                     *
                                   1747 *                                                                     *
                                   1748 ***********************************************************************
           Weekday calculation subroutine                                                                      PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1750 ***********************************************************************
                                   1751 *                                                                     *
                                   1752 *        RTDOW: Subroutine to find the day of the week.               *
                                   1753 *                                                                     *
                                   1754 ***********************************************************************

0008E2                             1756 RTDOW    DS    0H                  Subroutine to find weekday
000000                             1757          USING WORKA,R13           Addressability for work area
0008E2 90EC D00C            0000C  1758          STM   R14,R12,12(R13)     Save caller's registers
0008E6 1700                        1759          XR    R0,R0               Extract century index
0008E8 8D00 0008            00008  1760          SLDL  R0,8                 and convert
0008EC 5A00 BBC8            00BC8  1761          A     R0,=F'19'             to actual value c in R0
0008F0 8810 0014            00014  1762          SRL   R1,20               Isolate
0008F4 5610 BBB0            00BB0  1763          O     R1,=F'15'            year YY
0008F8 D707 D0B0 D0B0 000B0 000B0  1764          XC    DWORK,DWORK           and
0008FE 5010 D0B4            000B4  1765          ST    R1,DWORK+4             convert
000902 4F10 D0B0            000B0  1766          CVB   R1,DWORK                to binary y in R1
000906 18F1                        1767          LR    R15,R1                   and in R15
000908 18E0                        1768          LR    R14,R0              c in R14
00090A 89E0 0001            00001  1769          SLL   R14,1               (2*c) in R14
00090E 13EE                        1770          LCR   R14,R14             -(2*c) in R14
000910 8800 0002            00002  1771          SRL   R0,2                int(c/4) in R0
000914 5AE0 BBB4            00BB4  1772          A     R14,=F'3'           3-(2*c) in R14
000918 1AE1                        1773          AR    R14,R1              3-(2*c)+y in R14
00091A 8810 0002            00002  1774          SRL   R1,2                int(y/4) in R1
00091E 1AE0                        1775          AR    R14,R0              3-(2*c)+y+int(c/4) in R14
000920 1AE1                        1776          AR    R14,R1              3-(2*c)+y+int(c/4)+int(y/4) in R14
000922 5810 D018            00018  1777          L     R1,24(,R13)         Isolate
000926 5410 BBCC            00BCC  1778          N     R1,=A(65535)         day of year
00092A 5010 D0B4            000B4  1779          ST    R1,DWORK+4            and convert
00092E 4F10 D0B0            000B0  1780          CVB   R1,DWORK               to binary d in R1
000932 5A10 BBD0            00BD0  1781          A     R1,=F'80'           f=j-60+140 in R1
000936 54F0 BBB4            00BB4  1782          N     R15,=F'3'           Cheesy leap year test
00093A 4770 B940            00940  1783          BNZ   RTDOWX              Branch if not leap year
00093E 0610                        1784          BCTR  R1,0                Else f=j-61+140 in R1
                                   1785 RTDOWX   AR    R14,R1              3+f-(2*c)+y+int(c/4)+int(y/4)       +
000940 1AE1                                                                 in R14
                                   1786          SRDL  R14,32              3+f-(2*c)+y+int(c/4)+int(y/4)       +
000942 8CE0 0020            00020                                           in R14-R15
                                   1787          D     R14,=F'7'           (3+f-(2*c)+y+int(c/4)+int(y/4))     +
000946 5DE0 BBAC            00BAC                                           mod 7 in R14
00094A 89E0 0004            00004  1788          SLL   R14,4               Point R15 to
00094E 41FE B95C            0095C  1789          LA    R15,DAYTBL(R14)      character weekday
000952 58E0 D00C            0000C  1790          L     R14,12(,R13)        Restore
000956 980C D014            00014  1791          LM    R0,R12,20(R13)       caller's registers
00095A 07FE                        1792          BR    R14                 Return to caller
                                   1793          DROP  R13                 End work area addressability
           Weekday calculation subroutine                                                                      PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1795 *---------------------------------------------------------------------*
                                   1796 *        Day of the week table.                                       *
                                   1797 *---------------------------------------------------------------------*
00095C                             1798 DAYTBL   DS    0F
00095C E2E4D5C4C1E84040            1799          DC    CL16'SUNDAY'
00096C D4D6D5C4C1E84040            1800          DC    CL16'MONDAY'
00097C E3E4C5E2C4C1E840            1801          DC    CL16'TUESDAY'
00098C E6C5C4D5C5E2C4C1            1802          DC    CL16'WEDNESDAY'
00099C E3C8E4D9E2C4C1E8            1803          DC    CL16'THURSDAY'
0009AC C6D9C9C4C1E84040            1804          DC    CL16'FRIDAY'
0009BC E2C1E3E4D9C4C1E8            1805          DC    CL16'SATURDAY'
           Subroutines                                                                                         PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1807 ***********************************************************************
                                   1808 *                                                                     *
                                   1809 *  THIS ROUTINE CALCULATES THE ELAPSED TIME WHICH IS THE DIFFERENCE   *
                                   1810 *                     BETWEEN TWO BINARY TIME                         *
                                   1811 *                                                                     *
                                   1812 *        NOTE: THIS ROUTINE WILL FAIL IF THE START/END DATES          *
                                   1813 *              SPAN JANUARY 1.  A FIX has been under development      *
                                   1814 *              since 1983 but hasn't progressed far in the            *
                                   1815 *              vanilla MVS 3.8 version of IEFACTRT.                   *
                                   1816 *                                                                     *
                                   1817 *        R0  = (AT ENTRY) START TIME IN BINARY 1/100 SECONDS.         *
                                   1818 *        R1  = (AT ENTRY) END TIME IN BINARY 1/100 SECONDS.           *
                                   1819 *              (AT EXIT)  ELAPSED TIME IN BINARY 1/100 SECONDS.       *
                                   1820 *        R7  = Return address.                                        *
                                   1821 *                                                                     *
                                   1822 *        Workregs = R1.                                               *
                                   1823 *                                                                     *
                                   1824 ***********************************************************************


0009CC                             1826 ELAPSED  DS    0H
000000                             1827          USING WORKA,R13           Addressability for work area
0009CC F911 D0D6 D0DA 000D6 000DA  1828          CP    DATE+2(2),DATEND+2(2)  Same day?
0009D2 47B0 B9E4            009E4  1829          BNL   ELAP01              Yes, go around add on
0009D6 FA10 D0D6 BBFB 000D6 00BFB  1830          AP    DATE+2(2),=P'1'     Add on 1 day
0009DC 5A10 BAB0            00AB0  1831          A     R1,ONEDAY           And 24 hours to time
0009E0 47F0 B9CC            009CC  1832          B     ELAPSED             Try for match again

0009E4                             1834 ELAP01   DS    0H
0009E4 1B10                        1835          SR    R1,R0               Get difference
0009E6 47F0 B9EA            009EA  1836          B     TIMEX               Fall into time conversion
           Subroutines                                                                                         PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1838 ***********************************************************************
                                   1839 *                                                                     *
                                   1840 *        TIMEX                                                        *
                                   1841 *                                                                     *
                                   1842 *        This routine translates binary time in 1/100 seconds         *
                                   1843 *        to character "HH:MM:SS.TH" format.                           *
                                   1844 *                                                                     *
                                   1845 *        R1  = (at entry) binary time in 1/100 seconds.               *
                                   1846 *        R7  = Return address.                                        *
                                   1847 *        R15 = Address of field for character output.                 *
                                   1848 *                                                                     *
                                   1849 *        Workregs = R0, R1, R14.                                      *
                                   1850 *                                                                     *
                                   1851 ***********************************************************************

0009EA                             1853 TIMEX    DS    0H
0009EA 927A F002      00002        1854          MVI   2(R15),COLON        Initialize
0009EE 927A F005      00005        1855          MVI   5(R15),COLON         separators
0009F2 924B F008      00008        1856          MVI   8(R15),DOT            in output field
0009F6 41E0 0064            00064  1857          LA    R14,100             Get divisor
0009FA 1700                        1858          XR    R0,R0               Clear high order
0009FC 1D0E                        1859          DR    R0,R14              R1 now in seconds
0009FE 4E00 D0B0            000B0  1860          CVD   R0,DWORK            Convert 100ths
000A02 F317 F009 D0B0 00009 000B0  1861          UNPK  9(2,R15),DWORK       of seconds
000A08 96F0 F00A      0000A        1862          OI    10(R15),F0            to character

000A0C 1700                        1864          XR    R0,R0               Clear
000A0E 41E0 003C            0003C  1865          LA    R14,60              60 secs/min
000A12 1D0E                        1866          DR    R0,R14              R0 has secs, R1 has balance
000A14 4E00 D0B0            000B0  1867          CVD   R0,DWORK            Convert
000A18 F317 F006 D0B0 00006 000B0  1868          UNPK  6(2,R15),DWORK       seconds
000A1E 96F0 F007      00007        1869          OI    7(R15),F0             to character

000A22 1700                        1871          XR    R0,R0               Clear again
000A24 1D0E                        1872          DR    R0,R14              R0 has minutes, R1 has hours
000A26 4E00 D0B0            000B0  1873          CVD   R0,DWORK            Convert
000A2A F317 F003 D0B0 00003 000B0  1874          UNPK  3(2,R15),DWORK       minutes
000A30 96F0 F004      00004        1875          OI    4(R15),F0             to character

000A34 4E10 D0B0            000B0  1877          CVD   R1,DWORK            Convert hours
000A38 960F D0B7      000B7        1878          OI    DWORK+7,X'0F'       Force printable sign
000A3C 4110 0001            00001  1879          LA    R1,1                Assume 2 digits of hours
000A40 91F0 D0B6      000B6        1880          TM    DWORK+6,X'F0'       More than 99 hours?
000A44 4780 BA4E            00A4E  1881          BZ    TIMEX01             Branch if not
000A48 06F0                        1882          BCTR  R15,0               Else bump back output pointer
000A4A 4110 0002            00002  1883          LA    R1,2                Set machine length for move

000A4E                             1885 TIMEX01  DS    0H                  Put hours in output field
000A4E 8910 0004            00004  1886          SLL   R1,4                Set length of output field
000A52 4410 BA58            00A58  1887          EX    R1,SETHOURS         Unpack hours into output
000A56 07F7                        1888          BR    R7                  Return

000A58 F307 F000 D0B0 00000 000B0  1890 SETHOURS UNPK  0(*-*,R15),DWORK    ** Executed **
                                   1891          DROP  R13                 End work area addressability
           Subroutines                                                                                         PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1893 ******************************************************************
                                   1894 *                                                                *
                                   1895 *        EDMKRTN:                                                *
                                   1896 *                                                                *
                                   1897 *        Subroutine to perform "EDIT AND MARK" operation to      *
                                   1898 *        format packed decimal values into zoned output with     *
                                   1899 *        "-" as front padding.                                   *
                                   1900 *                                                                *
                                   1901 *        Input:                                                  *
                                   1902 *          Doubleword field "DWORK" contains the packed          *
                                   1903 *          decimal number to be formatted.                       *
                                   1904 *                                                                *
                                   1905 *        Output:                                                 *
                                   1906 *          20-byte field "OUTWORK" contains the value            *
                                   1907 *          formatted in zoned decimal with leading hyphens       *
                                   1908 *          supplied as padding on the front.  There is one       *
                                   1909 *          blank between the hyphens and the first digit of      *
                                   1910 *          the number.  for example:                             *
                                   1911 *                                                                *
                                   1912 *                          000000000245583C                      *
                                   1913 *                                                                *
                                   1914 *          is formatted as:                                      *
                                   1915 *                                                                *
                                   1916 *                         ------------- 245583                   *
                                   1917 *                                                                *
                                   1918 *        R14 = Subroutine return address.                        *
                                   1919 *                                                                *
                                   1920 *        Workregs:  R1.                                          *
                                   1921 *                                                                *
                                   1922 ******************************************************************

000A5E                             1924 EDMKRTN  DS    0H                  Numeric value edit subroutine
000000                             1925          USING WORKA,R13           Addressability for work area
000A5E 4110 D1A0            001A0  1926          LA    R1,EDMKWORK+L'EDMKWORK-1  Assume no leading zeroes
000A62 D213 D18D BB7A 0018D 00B7A  1927          MVC   EDMKWORK,EDMKMASK   Build edit mask in work area
000A68 DF13 D18D D0B0 0018D 000B0  1928          EDMK  EDMKWORK,DWORK      Edit value to zoned
000A6E 0610                        1929          BCTR  R1,0                Blank "-" just before
000A70 9240 1000      00000        1930          MVI   0(R1),C' '           the first significant digit
000A74 07FE                        1931          BR    R14                 Return to caller
                                   1932          DROP  R13                 End work area addressability
           Subroutines                                                                                         PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1934 ******************************************************************
                                   1935 *                                                                *
                                   1936 *        PUTLINE:                                                *
                                   1937 *                                                                *
                                   1938 *        Subroutine to write a message to the system messages    *
                                   1939 *        data set.                                               *
                                   1940 *                                                                *
                                   1941 *        R0  = (at entry) Length of line to be printed.          *
                                   1942 *        R1  = (at entry) Address of line to be printed.         *
                                   1943 *        R12 = OS Linkage Control Table.                         *
                                   1944 *        R7  = Subroutine return address.                        *
                                   1945 *                                                                *
                                   1946 *        Workregs = R0, R1, R14, R15.                            *
                                   1947 *                                                                *
                                   1948 ******************************************************************

000A76                             1950 PUTLINE  DS    0H                  Call IEFYS to write line
000A76 182D                        1951           LR    R2,R13              Save our R13
000000                             1952           USING WORKA,R13           Address our workarea
                                   1953 **        LA    R13,SAVEAYS         Point to save area for IEFYS
                                   1954           DROP  R13                 Lose our workarea
000A78 5010 C024            00024  1955          ST    R1,36(,R12)         Set print line address in LCT
000A7C 4000 C02A            0002A  1956          STH   R0,42(,R12)         Place length in LCT
000A80 58F0 BAAC            00AAC  1957          L     R15,VIEFYS          Get IEFYS addr
000A84 12FF                        1958          LTR   R15,R15             Were we linked with IEFYS?
000A86 4780 BA90            00A90  1959          BZ    PUT01               Branch if not
000A8A 05EF                        1960          BALR  R14,R15             Go to IEFYS via BALR
000A8C 47F0 BAA6            00AA6  1961          B     PUT02               Continue

000A90                             1963 PUT01    DS    0H                  LINK to IEFYS
                                   1964          LINK  EP=IEFYS            Go to IEFYS via LINK
000A90                             1965+         CNOP  0,4
000A90 45F0 BAA4            00AA4  1966+         BAL   15,*+20 LOAD SUP.PARAMLIST ADR
000A94 00000A9C                    1967+         DC    A(*+8) ADDR OF EP PARAMETER
000A98 00000000                    1968+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000A9C C9C5C6E8E2404040            1969+         DC    CL8'IEFYS' EP PARAMETER
000AA4 0A06                        1970+         SVC   6 ISSUE LINK SVC

000AA6                             1972 PUT02    DS    0H                  Reload our R13 and return
000AA6 18D2                        1973           LR    R13,R2              Restore our R13
000AA8 07F7                        1974          BR    R7                  Return to caller
           Subroutines                                                                                         PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   1976 *----------------------------------------------------------------*
                                   1977 *        Constants and literals.                                 *
                                   1978 *----------------------------------------------------------------*
                                   1979 *BLANKS  DC    A(BLANKS)           Address of blanks
                                   1980 *STARS   DC    A(STARS)            Address of "*" line
000AAA 0000
000AAC 00000000                    1981 VIEFYS   DC    V(IEFYS)            Address of IEFYS or zero
000AB0 0083D600                    1982 ONEDAY   DC    A(24*60*60*100)     One day in hundredths of seconds
000AB4 E2E8F0                      1983 KTST      DC    C'SY0'      ** testing **

                                   1985 *----------------------------------------------------------------*
                                   1986 *        Substitution text for step end WTO.                     *
                                   1987 *----------------------------------------------------------------*
000AB7 E6C1D9D4E2E3C1D9            1988 KWARMS   DC    C'WARMSTART'        "WARMSTART" text
000AC0 C5E37E                      1989 KET      DC    C'ET='              "ELAPSED" text
000AC3 C1C2C5D5C47E                1990 KABEND   DC    C'ABEND='           "ABEND" text
000AC9 D9C37E                      1991 KRC      DC    C'RC='              "RC=" text
000ACC C6D3E4E2C8C5C4              1992 KFLUSHED DC    C'FLUSHED'          "FLUSHED" text

000AD3 4040C3D6D5C4C9E3            1994 HDCOND   DC    CL17'  CONDITION CODE '       Step hdr for rc
000AE4 C3D6D4D7D3C5E3C9            1995 HDABNDS  DC    CL17'COMPLETION CODE S'       Step hdr for system cc
000AF5 C3D6D4D7D3C5E3C9            1996 HDABNDU  DC    CL17'COMPLETION CODE U'       Step hdr for user cc
000B06 4040404040E2E3C5            1997 HDFLUSH  DC    CL21'     STEP WAS FLUSHED'   Step hdr for flushed
000B1B F0F1F2F3F4F5F6F7            1998 HEXTRAN  DC    C'0123456789ABCDEF' Hex-to-character translate tbl
000B2B 4C7E7EE2E3C5D740            1999 MSHDRTX  DC    C'<==STEP END STATISTICS==>'
000B44 4C7E7EE2E3C5D740            2000 MSHDREX  DC    C'<==STEP EXCP STATISTICS==>'
000B5E 4C7E7ED1D6C240C5            2001 MJHDRTX  DC    C'<==JOB END STATISTICS==>'

000B76 04004000                    2003 ROUT2    DC    XL4'04004000'       DESC=6,ROUTCDE=2

                                   2005 *----------------------------------------------------------------*
                                   2006 *        Edit mask for EDMKRTN subroutine.                       *
                                   2007 *----------------------------------------------------------------*
000B7A                             2008 EDMKMASK DS    0XL20               Edit mask for EDMKRTN
000B7A 6060606060                  2009          DC    CL5'-----'          Pad character and constants
000B7F 2020202020202020            2010          DC    13X'20'             Nonsignificant digits
000B8C 2120                        2011          DC    XL2'2120'           Force last digit significant

                                   2013 *----------------------------------------------------------------*
                                   2014 *        Some useful equates.                                    *
                                   2015 *----------------------------------------------------------------*
00007A                             2016 COLON    EQU   C':'
0000F0                             2017 F0       EQU   X'F0'
00004B                             2018 DOT      EQU   C'.'

                                   2020 *----------------------------------------------------------------*
                                   2021 *        Literal pool.                                           *
                                   2022 *----------------------------------------------------------------*
000B90                             2023          LTORG ,                   Generate literal pool
000B90 404040F0F0F0F0F0            2024                =C'   00000'
000B98 4040404040404040            2025                =CL8' '
000BA0 00000000                    2026                =XL4'00'
000BA4 00000005                    2027                =A(SXCOLNUM)
000BA8 00000008                    2028                =F'8'
000BAC 00000007                    2029                =F'7'
           Subroutines                                                                                         PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000BB0 0000000F                    2030                =F'15'
000BB4 00000003                    2031                =F'3'
000BB8 00000002                    2032                =F'2'
000BBC 0000005B                    2033                =F'91'
000BC0 00000064                    2034                =F'100'
000BC4 00000BEF                    2035                =F'3055'
000BC8 00000013                    2036                =F'19'
000BCC 0000FFFF                    2037                =A(65535)
000BD0 00000050                    2038                =F'80'
000BD4 0002                        2039                =Y(SMF4DEVC-SMF4LENN)
000BD6 001A                        2040                =Y(SXCOLLEN)
000BD8 0002                        2041                =Y(2)
000BDA 4040                        2042                =C'  '
000BDC 0013                        2043                =H'19'
000BDE 0064                        2044                =H'100'
000BE0 D4E5E3                      2045                =C'MVT'
000BE3 D4D7E2                      2046                =C'MPS'
000BE6 D4C6E3                      2047                =C'MFT'
000BE9 D7C3D7                      2048                =C'PCP'
000BEC E2E3C5D77A                  2049                =CL5'STEP:'
000BF1 D1D6C2                      2050                =C'JOB'
000BF4 D1D6C240C9C440              2051                =C'JOB ID '
000BFB 1C                          2052                =P'1'
           Subroutines                                                                                         PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2054 ******************************************************************
                                   2055 *                                                                *
                                   2056 *        Constants unsupported by the base registers.            *
                                   2057 *                                                                *
                                   2058 ******************************************************************

                                   2060 *----------------------------------------------------------------*
                                   2061 *        A line of blanks.                                       *
                                   2062 *----------------------------------------------------------------*
                                   2063 *LANKS   DC    CL132' '            A line of blanks

                                   2065 *----------------------------------------------------------------*
                                   2066 *        "****" line for statistics box.                         *
                                   2067 *----------------------------------------------------------------*
                                   2068 *TARS    DS    0CL132              Line of asterisks
                                   2069 *        DC    132C'*'

                                   2071 ******************************************************************
                                   2072 *                                                                *
                                   2073 *        Model common heading line data.                         *
                                   2074 *                                                                *
                                   2075 ******************************************************************

000BFC                             2077 MHDATAX  DS    0C                  Data for heading line
000BFC 40                          2078          DC    CL1' '
000BFD D6E261F3F6F0                2079          DC    C'OS/360'
000C03 40                          2080          DC    CL1' '
000C04                             2081 MHOSCP   DS    CL3                 OS control program
000C07 40                          2082          DC    CL1' '
000C08 D9C5D3C5C1E2C5              2083          DC    C'RELEASE'
000C0F 40                          2084          DC    CL1' '
000C10                             2085 MHOSREL  DS    CL2                 OS release
000C12 4B                          2086          DC    CL1'.'
000C13                             2087 MHOSMOD  DS    CL2                 OS modification
000C15 40404040                    2088          DC    CL4' '
000C19 E2E8E2E3C5D4                2089          DC    C'SYSTEM'
000C1F 40                          2090          DC    CL1' '
000C20                             2091 MHSID    DS    CL4                 SMF system ID
000C24 40                          2092          DC    CL1' '
000029                             2093 LMHDATA  EQU   *-MHDATAX
000BFC                             2094          ORG   MHDATAX
000BFC                             2095 MHDATA   DS    CL(LMHDATA)         Alias with length
000C25                             2096          ORG   ,
           Subroutines                                                                                         PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2098 ******************************************************************
                                   2099 *                                                                *
                                   2100 *        Model for step-end line 1.                              *
                                   2101 *                                                                *
                                   2102 ******************************************************************

000C26                             2104          DS    0H                  Force halfword alignment
000C26                             2105 MSTEPLN1 DS    0CL132              Model step line 1
000C26 5C                          2106          DC    CL1'*'
000C27 404040                      2107          DC    CL3' '
000C2A E2E3C5D740D5E4D4            2108          DC    CL10'STEP NUM  '
000C34 404040                      2109 MSTEPNO  DC    CL3' '              Step number
000C37 4040404040404040            2110          DC    CL8' '
000C3F E2E3C5D740C9D5C9            2111          DC    CL15'STEP INIT TIME '
000C4E 5C5C5C5C5C5C5C5C            2112 MSINITTM DC    CL11'***********'   Step start time
000C59 404040                      2113          DC    CL3' '
000C5C C1D3D3D6C340E2E3            2114          DC    CL15'ALLOC START    '
000C6B 4040404040404040            2115 MS1ALCST DC    CL11' '             Allocation start time
000C76 404040                      2116          DC    CL3' '
000C79 D4C1C9D540D9C5C7            2117 MKREGION DC    CL12'MAIN REGION '
000C85 4040404040404040            2118 MSH0REG  DC    CL9' '              Hierarchy 0 region requested
000C8E D2                          2119          DC    CL1'K'
000C8F 4040404040404040            2120          DC    CL26' '
000CA9 5C                          2121          DC    CL1'*'
000CAA                             2122          DC    0S(L'MSTEPLN1-(*-MSTEPLN1))
000084                             2123 MS1LEN   EQU   *-MSTEPLN1          Symbolic length of step line 1
           Subroutines                                                                                         PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2125 ******************************************************************
                                   2126 *                                                                *
                                   2127 *        Model for step-end line 2.                              *
                                   2128 *                                                                *
                                   2129 ******************************************************************

000CAA                             2131          DS    0H                  Force halfword alignment
000CAA                             2132 MSTEPLN2 DS    0CL132
000CAA 5C                          2133          DC    CL1'*'
000CAB 404040                      2134          DC    CL3' '
000CAE E2E3C5D740D5C1D4            2135          DC    CL10'STEP NAME '
000CB8 5C5C5C5C5C5C5C5C            2136 MSTEPNM  DC    CL8'********'       Step name
000CC0 404040                      2137          DC    CL3' '
000CC3 E2E3C5D740C5D5C4            2138          DC    CL15'STEP END TIME  '
000CD2 5C5C5C5C5C5C5C5C            2139 MSENDTM  DC    CL11'***********'   Step end time
000CDD 404040                      2140          DC    CL3'  '
000CE0 D7C7D440E2E3C1D9            2141          DC    CL15'PGM START TIME '
000CEF 4040404040404040            2142 MS2PGMST DC    CL11' '             Problem program start time
000CFA 404040                      2143          DC    CL3'  '
000CFD D4C1C9D540E2E3D6            2144          DC    CL13'MAIN STORAGE '
000D0A 4040404040404040            2145 MSH0STOR DC    CL8' '              Hierarchy 0 region requested
000D12 D2                          2146          DC    CL1'K'
000D13 4040                        2147          DC    CL2' '
000D15 4040404040404040            2148 MSTEPCCH DC    CL17' '             Completion code header
000D26 40404040                    2149 MSTEPCON DC    CL4' '              Condition code/completion code
000D2A 404040                      2150          DC    CL3' '
000D2D 5C                          2151          DC    CL1'*'
000D2E                             2152          DC    0S(L'MSTEPLN2-(*-MSTEPLN2))
000084                             2153 MS2LEN   EQU   *-MSTEPLN2          Symbolic length of step line 2
           Subroutines                                                                                         PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2155 ******************************************************************
                                   2156 *                                                                *
                                   2157 *        Model for step-end line 3.                              *
                                   2158 *                                                                *
                                   2159 ******************************************************************

000D2E                             2161          DS    0H                  Force halfword alignment
000D2E                             2162 MSTEPLN3 DS    0CL132
000D2E 5C                          2163          DC    CL1'*'
000D2F 404040                      2164          DC    CL3' '
000D32 D7E2E3D740D5C1D4            2165          DC    CL10'PSTP NAME '
000D3C 5C5C5C5C5C5C5C5C            2166 MSPSTEPN DC    CL8'********'       Procstep name
000D44 404040                      2167          DC    CL3' '
000D47 C5D3C1D7E2C5C440            2168          DC    CL15'ELAPSED TIME   '
000D56 5C5C5C5C5C5C5C5C            2169 MSELAPS  DC    CL11'***********'   Step elapsed time
000D61 404040                      2170          DC    CL3' '
                                   2171 **       DC    CL15'STEP DPRTY '
                                   2172 **3DPRTY DC    CL3' '              Step dispatching priority
                                   2173 **       DC    CL8' '
000D64 E2E3C5D740C4D7D9            2174          DC    CL11'STEP DPRTY '
000D6F 4040404040404040            2175 MS3DPRTY DC    CL15' '             Step dispatching priority
000D7E 404040                      2176          DC    CL3' '
000D81 D3C3E240D9C5C7C9            2177          DC    CL11'LCS REGION '
000D8C 4040404040404040            2178 MS3H1REG DC    CL10' '             Hierarchy 1 region requested
000D96 D2                          2179          DC    CL1'K'
000D97 4040404040404040            2180          DC    CL26' '
000DB1 5C                          2181          DC    CL1'*'
000DB2                             2182          DC    0S(L'MSTEPLN3-(*-MSTEPLN3))
000084                             2183 MS3LEN   EQU   *-MSTEPLN3          Symbolic length of step line 3
           Subroutines                                                                                         PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2185 ******************************************************************
                                   2186 *                                                                *
                                   2187 *        Model for step-end line 4.                              *
                                   2188 *                                                                *
                                   2189 ******************************************************************

000DB2                             2191          DS    0H                  Force halfword alignment
000DB2                             2192 MSTEPLN4 DS    0CL132              Model for step-end line 4
000DB2 5C                          2193          DC    CL1'*'
000DB3 404040                      2194          DC    CL3' '
000DB6 D7C7D440D5C1D4C5            2195          DC    CL10'PGM NAME  '
000DC0 5C5C5C5C5C5C5C5C            2196 MS4PGMNM DC    CL8'********'       Program name
000DC8 404040                      2197          DC    CL3' '
000DCB E2E3C5D740C3D7E4            2198          DC    CL15'STEP CPU TIME  '
000DDA 5C5C5C5C5C5C5C5C            2199 MS4CPUTM DC    CL11'***********'   Step CPU time under TCBs
000DE5 404040                      2200          DC    CL3' '
                                   2201 **       DC    CL15'PROTECT KEY    '
                                   2202 **4PKEY  DC    CL2' '              Protect key
                                   2203 **       DC    CL9' '
000DE8 D7D9D6E3C5C3E340            2204          DC    CL12'PROTECT KEY '
000DF4 4040404040404040            2205 MS4PKEY  DC    CL14' '             Protect key
000E02 404040                      2206          DC    CL3' '
000E05 D3C3E240E2E3D6D9            2207          DC    CL13'LCS STORAGE '
000E12 4040404040404040            2208 MS4H1STO DC    CL8' '              Hierarchy 1 storage
000E1A D2                          2209          DC    CL1'K'
000E1B 4040404040404040            2210          DC    CL26' '
000E35 5C                          2211          DC    CL1'*'
000E36                             2212          DC    0S(L'MSTEPLN4-(*-MSTEPLN4))
000084                             2213 MS4LEN   EQU   *-MSTEPLN4          Symbolic length of step line 4
           Subroutines                                                                                         PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2215 ******************************************************************
                                   2216 *                                                                *
                                   2217 *        Model for step-end EXCP column header line.             *
                                   2218 *                                                                *
                                   2219 ******************************************************************

000E36                             2221 STEPXCOL DS    0CL132              Step-end EXCP column headers
000E36 5C                          2222          DC    C'*'
000E37                             2223 MSXCOLFS EQU   *                   First EXCP column header
000E37 404040E4D5C9E340            2224          DC    C'   UNIT     EXCP COUNT    '
00001A                             2225 SXCOLLEN EQU   *-MSXCOLFS          Symbolic length of each column
000E51 404040E4D5C9E340            2226          DC    C'   UNIT     EXCP COUNT    '
000E6B 404040E4D5C9E340            2227          DC    C'   UNIT     EXCP COUNT    '
000E85 404040E4D5C9E340            2228          DC    C'   UNIT     EXCP COUNT    '
000E9F 404040E4D5C9E340            2229          DC    C'   UNIT     EXCP COUNT    '
000005                             2230 SXCOLNUM EQU   (*-MSXCOLFS)/SXCOLLEN   Number of EXCP columns
000EB9 5C                          2231          DC    C'*'
000EBA                             2232          DC    0S(L'STEPXCOL-(*-STEPXCOL))
           Subroutines                                                                                         PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2234 ******************************************************************
                                   2235 *                                                                *
                                   2236 *        Model for job-end line 1.                               *
                                   2237 *                                                                *
                                   2238 ******************************************************************

000EBA                             2240          DS    0H                  Force halfword alignment
000EBA                             2241 MJOBLN1  DS    0CL132              Model for job line 1
000EBA 5C404040                    2242          DC    CL4'*   '
000EBE D1D6C240D5C1D4C5            2243          DC    CL8'JOB NAME'
000EC6 4040                        2244          DC    CL2' '
000EC8 5C5C5C5C5C5C5C5C            2245 MJ1JNAME DC    CL8'********'       Job name
000ED0 404040                      2246          DC    CL3' '
000ED3 D1D6C240D9C5C1C4            2247          DC    CL13'JOB READ TIME'
000EE0 40                          2248          DC    CL1' '
000EE1 5C5C5C5C5C5C5C5C            2249 MJ1RDTM  DC    CL11'***********'   Time job entered system
000EEC 404040                      2250          DC    CL3' '
000EEF D1D6C240D9C5C1C4            2251          DC    CL13'JOB READ DATE'
000EFC 40                          2252          DC    CL1' '
000EFD 5C5C5C5C5C5C5C5C            2253 MJ1RDDTJ DC    C'********'         Job read date in Julian
000F05 40                          2254          DC    CL1' '
000F06 5C5C5C5C5C5C5C5C            2255 MJ1RDDTG DC    C'**********'       Job read date in Gregorian
000F10 40                          2256          DC    CL1' '
000F11 5C5C5C5C5C5C5C5C            2257 MJ1RDDAY DC    CL9'*********'      Job read date in day of week
000F1A 404040                      2258          DC    CL3' '
000F1D D1D6C240C3D7E440            2259          DC    CL12'JOB CPU TIME'
000F29 404040404040                2260          DC    CL6' '
000F2F 5C5C5C5C5C5C5C5C            2261 MJ1TMTCB DC    CL11'***********'   Job CPU time under TCBs
000F3A 4040405C                    2262          DC    CL4'   *'
000F3E                             2263          DC    0S(L'MJOBLN1-(*-MJOBLN1))
000084                             2264 MJ1LEN   EQU   *-MJOBLN1           Symbolic length of job line 1
           Subroutines                                                                                         PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2266 ******************************************************************
                                   2267 *                                                                *
                                   2268 *        Model for job-end line 2.                               *
                                   2269 *                                                                *
                                   2270 ******************************************************************

000F3E                             2272          DS    0H                  Force halfword alignment
000F3E                             2273 MJOBLN2  DS    0CL132              Model for job line 2
000F3E 5C404040                    2274          DC    CL4'*   '
000F42 D1D6C240C3D3C1E2            2275          DC    C'JOB CLASS'
000F4B 40                          2276          DC    CL1' '
000F4C 40                          2277 MJ2CLS   DC    CL1' '              Job selection class
000F4D 4040404040404040            2278          DC    CL10' '
000F57 D1D6C240C9D5C9E3            2279          DC    C'JOB INIT TIME'
000F64 40                          2280          DC    CL1' '
000F65 5C5C5C5C5C5C5C5C            2281 MJ2INTM  DC    CL11'***********'   Time job was initiated
000F70 404040                      2282          DC    CL3' '
000F73 D1D6C240C9D5C9E3            2283          DC    C'JOB INIT DATE'
000F80 40                          2284          DC    CL1' '
000F81 5C5C5C5C5C5C5C5C            2285 MJ2INDTJ DC    C'********'         Job start date in Julian
000F89 40                          2286          DC    CL1' '
000F8A 5C5C5C5C5C5C5C5C            2287 MJ2INDTG DC    C'**********'       Job start date in Gregorian
000F94 40                          2288          DC    CL1' '
000F95 5C5C5C5C5C5C5C5C            2289 MJ2INDAY DC    C'*********'        Job start date in day of week
000F9E 404040                      2290          DC    CL3' '
000FA1 D1D6C240C5D3C1D7            2291          DC    C'JOB ELAPSED TIME'
000FB1 4040                        2292          DC    CL2' '
000FB3 5C5C5C5C5C5C5C5C            2293 MJ2TMELP DC    CL11'***********'   Total elapsed time of job
000FBE 4040405C                    2294          DC    CL4'   *'
000FC2                             2295          DC    0S(L'MJOBLN2-(*-MJOBLN2))
000084                             2296 MJ2LEN   EQU   *-MJOBLN2           Symbolic length of job line 2
           Subroutines                                                                                         PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2298 ******************************************************************
                                   2299 *                                                                *
                                   2300 *        Model for job-end line 3.                               *
                                   2301 *                                                                *
                                   2302 ******************************************************************

000FC2                             2304          DS    0H                  Force halfword alignment
000FC2                             2305 MJOBLN3  DS    0CL132              Model for job line 3
000FC2 5C404040                    2306          DC    CL4'*   '
000FC6 C1C3C3D6E4D5E3              2307 MJ3KACT  DC    C'ACCOUNT'          ACCOUNT/JOB ID keyword
000FCD 404040                      2308          DC    CL3' '
000FD0 5C5C5C5C5C5C5C5C            2309 MJ3ACCT  DC    C'********'         Job account number field 1
000FD0                             2310          ORG   MJ3ACCT
000FD0 5C5C5C5C5C5C5C5C            2311 MJ3JBID  DC    C'********'         HASP/ASP jobid
000FD8                             2312          ORG   ,
000FD8 404040                      2313          DC    CL3' '
000FDB D1D6C240C5D5C440            2314          DC    C'JOB END TIME'
000FE7 4040                        2315          DC    CL2' '
000FE9 5C5C5C5C5C5C5C5C            2316 MJ3ENTM  DC    C'***********'      Time job ended
000FF4 404040                      2317          DC    CL3' '
000FF7 D1D6C240C5D5C440            2318          DC    C'JOB END DATE'
001003 4040                        2319          DC    CL2' '
001005 5C5C5C5C5C5C5C5C            2320 MJ3ENDTJ DC    C'********'         Job end date in Julian
00100D 40                          2321          DC    CL1' '
00100E 5C5C5C5C5C5C5C5C            2322 MJ3ENDTG DC    C'**********'       Job end date in Gregorian
001018 40                          2323          DC    CL1' '
001019 5C5C5C5C5C5C5C5C            2324 MJ3ENDAY DC    C'*********'        Job end date in day of week
001022 404040                      2325          DC    CL3' '
                                   2326 **       DC    C'JOB PRIORITY'
                                   2327 **       DC    CL6' '
                                   2328 **3PRTY  DC    CL11' '             Job priority
001025 D1D6C240D7D9C9D6            2329          DC    CL13'JOB PRIORITY '
                                   2330 *                   1234567890123
001032 4040404040404040            2331 MJ3PRTY  DC    CL16' '             Job priority
001042 4040405C                    2332          DC    CL4'   *'
001046                             2333          DC    0S(L'MJOBLN3-(*-MJOBLN3))
000084                             2334 MJ3LEN   EQU   *-MJOBLN3           Symbolic length of job line 3
           Subroutines                                                                                         PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             2336 LCT      DSECT ,
                                   2337 *        IEFALLCT                                                       00900020
                                   2338 *                  *********************************                    01200020
                                   2339 *                  *  LINKAGE CONTROL TABLE - LCT  *                    01500020
                                   2340 *                  *********************************                    01800020
                                   2341 **********************************************************************  01810020
                                   2342 *     THIS MACRO WAS REWRITTEN FOR RELEASE 20.2 TO INCLUDE MANY         01850020
                                   2343 *     FIELD NAMES WHICH HERETOFORE APPEARED ONLY IN THE MODULES         01900020
                                   2344 *     WHICH USED THEM.                                                  01950020
                                   2345 **********************************************************************  01960020
                                   2346 *                                                                 20874 02000020
000000                             2347          DS    0F                                                       02400020
000000                             2348 LCTQDRTY DS    CL4 -                   BITS 4-7 OF HIGH ORDER BYTE      02700021
                                   2349 *                                      CONTAIN LPMOD VALUE (USED WHEN   03000020
                                   2350 *                                      ATTACHING P/P).  THE THREE LOW   03300020
                                   2351 *                                      ORDER BYTES CONTAIN THE ADDRESS  03600020
                                   2352 *                                      OF THE JOB'S CSCB.               03900020
000004                             2353 LCTSRTAD DS    CL4 -                   SRT ADDRESS                      04200021
000008                             2354 LCTTCBAD DS    CL4 -                   JOB STEP TCB ADDRESS             04500021
00000C                             2355 LCTQENTY DS    CL4 -                   BIT 1 OF HIGH ORDER BYTE USED    04800021
                                   2356 *                                      IN CONJUNCTION WITH 'NOSEP'.     05100020
                                   2357 *                                      BIT 2 - DEVICE WAIT RECOVERY     05400020
                                   2358 *                                      BIT 3 - SPACE WAIT RECOVERY      05700020
000001                             2359 LCTERRM  EQU   1 -                     BIT 7 - JOB TERMINATION STATUS   06000021
                                   2360 *                                      THE THREE LOW ORDER BYTES CON-   06300020
                                   2361 *                                      TAIN THE ADDRESS OF THE          06600020
                                   2362 *                                      LINKOR'S REGISTER SAVE AREA.     06900020
000010                             2363 LCTJCTAD DS    CL4 -                   JCT ADDRESS                      07200021
000014                             2364 LCTSCTAD DS    CL4 -                   SCT ADDRESS                      07500021
000018                             2365 LCTWORKA EQU   * -                     MINSYS 3 TEMPORARY INSERT        07800021
000018                             2366 LCTSCTDA DS    CL4 -                   CURRENT SCT DISK ADDRESS         08100021
00001C                             2367 LCTPSPAR DS    CL4 -                   ADDRESS OF RESIDENT BLOCK OF     08400021
                                   2368 *                                      STORAGE FOR MVT ALLOCATE.        08700020
000020                             2369 LCTERROR DS    CL4 -                   ERROR CODE                       09000021
000024                             2370 LCTPARM1 DS    CL4 -                   MULTI USE PARAMETER FIELD        09300021
000028                             2371 LCTPARM2 DS    CL4 -                   MULTI USE PARAMETER FIELD        09600021
00002C                             2372 LCTPARM3 DS    CL4 -                   MULTI USE PARAMETER FIELD        09900021
000030                             2373 LCTPARM4 DS    CL4 -                   MULTI USE PARAMETER FIELD        10200021
000034                             2374 LCTCMCBA DS    CL4 -                   CORE ADDRESS OF CONTROL          10500021
                                   2375 *                                      BYTES FOR CORE MANAGEMENT        10800020
000038                             2376 LCTSTIND EQU   * -                     STATUS INDICATOR FIELD           11100021
000038                             2377 LCTNSPAD DS    CL1 -                   NON SETUP PADDING BYTE           11400021
000039                             2378 LCTJFCBH DS    CL1 -                   JFCB HOUSEKEEPPING BYTE          11700021
000080                             2379 LCTS2PEM EQU   128 -                   1ST PDQ TBL ENTRY MADE           12000021
                                   2380 *                                      IS INDICATOR                     12300020
000040                             2381 LCTS2COP EQU   64 -                    CORE OBTAINED FOR PDQ            12600021
                                   2382 *                                      TABLE INDICATOR                  12900020
000020                             2383 LCTS2FES EQU   32 -                    FIRST ENTRY INTO PDQ PROC        13200021
                                   2384 *                                      S/R FOR THE STEP INDICATR        13500020
00003A                             2385 LCTSNUMB DS    CL1 -                   CURRENT STEP NUMBER              13800021
00003B                             2386 LCTACTON DS    CL1 -                   ACTION CODE                      14100021
00003C                             2387 LCTSMBAD DS    CL4 -                   STEP TIOT POINTER IN SSS         14400021
                                   2388 *                                      SMB ADDRESS IN PPS AND PSS       14700020
000000                             2389 LCTREGSV EQU   0 -                     NEW DESIGN                       15000021
000090                             2390 LCTQMPAM EQU   144 -                   Q-MGR PARAMETER AREA             15300021
           Subroutines                                                                                         PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000080                             2391 LCTCOREA EQU   128 -                   16 BYTE GETMAIN AREA             15600021
                                   2392 *                                                                     * 15900020
000040                             2393 LCTBATMN DS    1F -                    USED IN GENERATING A UNIQUE    * 16200021
                                   2394 *                                      VOLUME SERIAL NUMBER WHEN THE  * 16500020
                                   2395 *                                      USER DOESN'T SPECIFY ONE ON    * 16800020
                                   2396 *                                      HIS DD CARD AND DOES SPECIFY   * 17100020
                                   2397 *                                      A PASSED DATA SET ON UNLABELED * 17400020
                                   2398 *                                      TAPE.                            17700021
000044                             2399 LCTSOQMP DS    1F -                    ADDRESS OF MESSAGE CLASS QUEUE   18000021
                                   2400 *                                      MANAGER PARAMETER AREA           18300021
000048                             2401 LCTRTRN DS     1F                      RETURN ADDRESS TO MASTER         18600021
                                   2402 *                                      SCHEDULER (FOR STOP INITIATOR)   18900021
00004C                             2403 LCTINTSW DS    0C -                    INITIATORS INTERNAL SWITCHES     19200021
000080                             2404 LCTIHIER EQU   128 -                   RUN IN HIERARCHY ONE             19500021
000020                             2405 LCTSD0XX EQU   32 -                    ATTACH IEFSD0XX                  19800021
000010                             2406 LCTMINRG EQU   16 -                    JOB FLUSH - USE MINPAR           20100021
000008                             2407 LCTSTART EQU   8 -                     TASKNAME NOT FOUND ON COMMAND    20400021
000004                             2408 LCTSTOP  EQU   4 -                     INITIATOR INTERNAL STOP          20700021
000002                             2409 LCTABEND EQU   2 -                     EXECUTED PROGRAM ABENDED         20750021
00004C                             2410 LCTCSCB DS     1F -                    INITIATOR'S CSCB ADDRESS         21000021
000050                             2411 LCTTMWRK DS    4F -                    TIMER WORK AREA CONSISTING OF    21300021
                                   2412 *                                      4 FULL WORDS USED AS FOLLOWS-    21600021
                                   2413 *                                                                       21900021
                                   2414 *                                      1ST WD - TOTAL JOB TIME USED     22200021
                                   2415 *                                      2ND WD - STEP TIME               22500021
                                   2416 *                                      3RD WD - TIME REMAINING(STEP)    22800021
                                   2417 *                                      4TH WD - TIME USED (STEP)        23100021
000058                             2418 LCTSMF   EQU  LCTTMWRK+8 -             SMF - PTR TO DEVICES USED        23400021
                                   2419 *                                      OR TO JMR                        23410021
                                   2420 *                                      INFORMATION                      23700021
000060                             2421 LCTJOBLB DS   1F -                     ADDRESS OF JOBLIB OR             24000021
                                   2422 *                                      STEPLIB DCB                      24300021
000064                             2423 LCTATLST DS    1F -                    ADDRESS OF ALLOCATE-TERMINATE    24600021
                                   2424 *                                      PARAMETER LISTS                  24900021
000068                             2425 REGSAVE  DS   36F -                    ALLOCATE/TERMINATE               25200021
                                   2426 *                                      REGISTER SAVEAREA                25250021
0000F8                             2427 QMGR1    DS   9F -                     QUEUE MANAGER PARAMETER AREA     25500021
00011C                             2428 QMGR2    DS   9F -                     ALTERNATE Q-MGR PARAMETER AREA   25800021
000140                             2429 TRSTKINF DS   2F -                     TRACK STACKING AND QUEUE BREAK   26100021
                                   2430 *                                      INFORMATION                      26150021
                                   2431 *                                      BYTE 1 - NUMBER OF BUFFERS       26400021
                                   2432 *                                      BYTES 2-4 - STACK ADDRESS        26700021
                                   2433 *                                      BYTES 5-8 - QUEUE BREAK          27000021
                                   2434 *                                      INFORMATION                      27050021
000148                             2435 ECBLIST  DS   1F                                                        27300021
000148                             2436 LCTECBAD EQU   ECBLIST -               REMOVE ECBLIST AND REPLACE       27600021
                                   2437 *                                      WITH LCTECBAD                    27650021
00014C 0000000000000000            2438 LCTIDENT DC    2F'0' -                 HOLDER FOR IDENTIFIER            27900021
00014C                             2439 LCTPIB   EQU   LCTIDENT                                                 28200020
000150                             2440 LCTSPIL  EQU   LCTIDENT+4                                               28500020
000154                             2441 LCTECBLT EQU   * -                     USED IN MFT ONLY                 28800021
000154                             2442 LCTFORCE DS    CL8 -                   POSSIBLE FORCE VALUES            29100021
00015C                             2443 LCTLIMIT DS    C -                     LIMIT VALUE                      29400021
00015D                             2444 FRCPRTY  DS    C -                     FORCE PARITY HOLDER              29700021
00015E                             2445 INITPRTY DS    C -                     INITIATOR'S PRIORTY              30000021
           Subroutines                                                                                         PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2446 *          THESE FIELDS ARE NEEDED FOR L-SHAPE/INIT MERGE               30300021
000160                             2447          DS    0F                                                       30600020
000160                             2448 LCTOPSW1 DS    0C -                    INITIATOR'S OPTION BYTE 1        30900021
000080                             2449 LCTPKEYF EQU   128 -                   DON'T GET PROTECT KEY            31200021
000040                             2450 LCTDWFF  EQU   64 -                    DON'T PROCESS DEDICATED WORK     31500021
                                   2451 *                                      FILES                            31550021
000020                             2452 LCTSTMDF EQU   32 -                    DON'T PROCESS STOP/MODIFY        31800021
000010                             2453 LCTMINPF EQU   16 -                    GET REGION SIZE SPECIFIED        32100021
000008                             2454 LCTCANF  EQU   8 -                     ALLOW CANCEL ONLY AT ALLOCATION  32400021
000004                             2455 LCTONEJF EQU   4 -                     PROCESS ONLY ONE JOB             32700021
000002                             2456 LCTICMDF EQU   2 -                     DON'T PROCESS INITIATOR'S        33000021
                                   2457 *                                      COMMANDS                         33050021
000160                             2458 LCTENTR  DS    F -                     ADDRESS OF INITIATOR EXIT LIST   33300021
000164                             2459 LCTOPSW2 DS    0C -                    INITIATOR OPTIONS BYTE 2         33600021
000080                             2460 LCTTIMEF EQU   128                                                      33900020
000040                             2461 LCTCRF   EQU   64 -                    DON'T ALLOW CHECK/RESTART        34200021
000020                             2462 LCTDSOF  EQU   32 -                    DON'T PROCESS DSO                34500021
000010                             2463 LCTINTH0 EQU   16 -                    INIT IN HIERARCHY ZERO           34800021
000008                             2464 LCTINTH1 EQU   8 -                     INIT IN HIERARCHY ONE            35100021
000001                             2465 LCTENQU  EQU   1 -                     DON'T WAIT FOR DATA SETS         35150021
000164                             2466 LCTCOM   DS    F -                     COMMUNICATIONS PARM AREA         35400021
                                   2467 *                                      POINTER                          35450021
000168                             2468 LCTOPSW3 DS   0C -                     INITIATOR OPTION BYTE THREE      36000021
000004                             2469 LCTTRSTK EQU   4 -                     INDICATES THAT TRACK STACKING    36002021
                                   2470 *                                      IS IN                            36004021
000168                             2471 LCTJSCB  DS    F -                     ADDRESS OF JSCB                  36010021
00016C                             2472          DS    4F -                    UNUSED IN MVT,PLACED HERE        36022021
                                   2473 *                                      TO MAKE LENGTH THE SAME AS MFT   36024021
00017C                             2474 IEFEND   EQU   * -                     END OF LCT                       36030021
           Subroutines                                                                                         PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             2476 JCT      DSECT ,
                                   2477          IEFAJCTB ,
                                   2478+* L.01  R/I LEVEL NUMBER FOR RELEASE 19
                                   2479+***********************************************************************
                                   2480+**                                                                   **
                                   2481+**                       JOB CONTROL TABLE                           **
                                   2482+**                                                                   **
                                   2483+***********************************************************************
000000                             2484+         DS    0D
000000                             2485+INJMJCT  EQU   *
000000                             2486+JCTDSKAD DS    CL3 DISK ADDRESS OF THIS JCT
000003                             2487+JCTIDENT DS    CL1 JCT ID = 64
000000                             2488+JCTID    EQU   0
000004                             2489+JCTJSRNO DS    CL1 INTERNAL JOB SERIAL NUMBER
000005                             2490+JCTJBLBS DS    0C JOBLIB SWITCH  BITS 0-3
000005                             2491+JCTJSTAT DS    1C BIT 1 - JOB FLUSH BIT
000020                             2492+JCTJSTPC EQU   32 BIT-2/JOB STEP CANCELLED BY CONDITION CODES
                                   2493+*                                      BIT 3 - STEP FLUSH BIT
000008                             2494+JCTABEND EQU   8 BIT 4 - JCT ABEND BIT           HW16
000004                             2495+INCMSTS  EQU   4 BIT-5/JOB FAILED BIT
                                   2496+*                                        BIT 5 = 1 JOB FAILED
                                   2497+*                                        BIT 6 = 0 GO JOB
000002                             2498+INDMCTLG EQU   2 BIT 6 = 1 CATALOG JOB
000002                             2499+INCMCAT  EQU   2 BIT-6/CATALOG BIT
000001                             2500+INCMNSET EQU   1 BIT7/NONSETUP
                                   2501+*                                        BIT 7 = 0 SETUP JOB
                                   2502+*                                        BIT 7 = 1 NONSETUP JOB
000006                             2503+JCTJMGPO DS    CL1 MESSAGE CLASS
000007                             2504+JCTJMGLV DS    0C 4 BITS FOR MESSAGE LEVEL -SET BY IEFVJA
000010                             2505+INCMMGL1 EQU   16 JCL  MESSAGE LEVEL=1 BIT         I68
000020                             2506+INCMMGL2 EQU   32 JCL  MESSAGE LEVEL=2 BIT         I68
000080                             2507+INCMALL  EQU   128 ALLOCATION MESSAGE LEVEL=1 BIT         I68
000007                             2508+JCTJPRTY DS    1C 4 BITS FOR JOB PRIORITY
000008                             2509+JCTJNAME DS    CL8 JOBNAME
000010                             2510+JCTJTPTN DS    CL8 T/P TERMINAL NAME
000018                             2511+JCTPDQDA DS    CL4 DISK ADDRESS OF PDQ
00001C                             2512+JCTBCTDA DS    CL4 DISK ADDRESS OF BIAS CT TABLE
000020                             2513+JCTSDKAD DS    CL4 DISK ADDRESS OF FIRST SCT
000024                             2514+JCTSMBAD DS    CL4 DISK ADDRESS OF FIRST SMB
000028                             2515+JCTACTAD DS    CL4 DISK ADDRESS OF FIRST ACT
00002C                             2516+JCTDSSBA DS    CL4 TTR OF FIRST SYSOUT CLASS
                                   2517+*                                      DIRECTORY (SCD), CREATED AT
                                   2518+*                                      INTERPRETER TIME, USED BY
                                   2519+*                                      INITIATOR
000030                             2520+JCTDSBAD DS    CL4 DISK ADDRESS OF LAST DATA SET B
000034                             2521+JCTSMBID DS    CL2 KEY (OF TRACK ID) FOR SMBS
000036                             2522+JCTJDPCD DS    CL2 DEPENDENCY CODE
000038                             2523+JCTJDPOP DS    CL2 DEPENDENCY OPERATOR
00003A                             2524+         DS    CL28 ROOM FOR 7 MORE DEPS
000056                             2525+JCTRSW1  DS    C CHECKPOINT/RESTART SWITCHES
000080                             2526+JCTWARMS EQU   128 BIT0 - WARM START
000040                             2527+JCTSTERM EQU   64 STEP TERMINATION HAS BEGUN (PCP WARM START ONLY)AACA
000010                             2528+JCTCKFT  EQU   16 BIT  3 - CHECKPOINT TAKEN FOR THIS STEP
000008                             2529+JCTCKPTR EQU   8 BIT   4 - CHECKPOINT RESTART (INTRA-STEP) TO BE DONE
000004                             2530+JCTSTEPR EQU   4 BIT   5 - STEP RESTART TO BE DONE
           Subroutines                                                                                         PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2531+* BITS 6AND 7 MUST BE ZERO
000057                             2532+JCTRSW2  DS    C CHECKPOINT/RESTART SWITCHES
000080                             2533+JCTSYSCK EQU   128 BIT 0 - SYSCHK DD STATEMENT PRESENT
000020                             2534+JCTNORST EQU   32 BIT 2 - NO RESTART TO BE DONE
000010                             2535+JCTNOCKP EQU   16 BIT 3 - NO CHECKPOINTS TO BE TAKEN
000008                             2536+JCTRESTT EQU   8 BIT  4 - DO RESART IF NECESSARY
000004                             2537+JCTDSOCR EQU   4 BIT 5 - DSO ACTIVE AT CHECKPOINT                O99
                                   2538+*                        SET BY IEFDSDRP                            O99
                                   2539+*                        TESTED BY IEFSD162,IEFSDOCR,IEFSD518       O99
000002                             2540+JCTDSOJB EQU   2 BIT 6 - DSOCB'S SELECTED FOR JOB                O99
                                   2541+*                (IE.INDICATES JOB IS ELIGIBLE FOR DIRECT SYSOUT)   O99
                                   2542+*                        SET BY IEFSD511,IEFSD161,IEFSD518,IEFSDOCR O99
                                   2543+*                        TESTED BY IEFVMLS1,IEFSD512,IEFSD162,      O99
                                   2544+*                        IEFYTVMS,IEFSD31Q,IEFSD518,IEFDSOCR        O99
000001                             2545+JCTDSDRA EQU   1 BIT 7 - DSDR PROCESSING HAS NOT SUCC. ENDED     AACA
                                   2546+***********************************************************************
                                   2547+*                                                                    **
                                   2548+*        IN ORDER TO IMPLEMENT MVT IT HAS BEEN NECESSARY TO          **
                                   2549+*        ADD THE FOLLOWING FIELDS TO THE JCT.  TO AVOID CAUSING      **
                                   2550+*        ERRORS IN THE CASE OF THE REASSEMBLING OF ALREADY EXIST-    **
                                   2551+*        ING MODULES WHICH REFERENCE THESE FIELDS, THEY ARE GEN-     **
                                   2552+*        ERATED HERE ONLY AS COMMENTS CARDS.  NOTE THAT DUE TO THE   **
                                   2553+*        FACT THAT THIS MACRO GENERATES THE ACT IMMEDIATELY AFTER    **
                                   2554+*        THE JCT, IT IS NOT POSSIBLE TO REFERENCE THESE FIELDS BY    **
                                   2555+*        CODING THEM AFTER THE MACRO.  FOR NOW THEY MUST BE REF-     **
                                   2556+*        ERENCED BY DISPLACEMENT (WHICH IS GIVEN BELOW), PREFER-     **
                                   2557+*        ABLY THROUGH THE USE OF EQUATES AND THE SYMBOLS BELOW.      **
                                   2558+*        NOTE ALSO THAT THIS MACRO IS NOT VALID FOR REFERENCING      **
                                   2559+*        THE ACT UNTIL THESE NEW FIELDS HAVE ACTUALLY BEEN           **
                                   2560+*        INCORPORATED.                                               **
                                   2561+*                                                                    **
                                   2562+***********************************************************************
                                   2563+*                                                                     *
                                   2564+*JCTDETDA DS    CL4                     TTR OF DISENQ TABLE           *
                                   2565+*                                       (DISPLACEMENT = 88 (DECIMAL)  *
                                   2566+*JCTEQREG DS    CL2                     REGION PARAMETER (BINARY)     *
                                   2567+*                                       (DISPLACEMENT = 92 (DECIMAL)  *
                                   2568+*                                                                     *
                                   2569+***********************************************************************
000058                             2570+         DS    6C ROOM FOR THE ABOVE
00005E                             2571+JCTQIDNT DS    C IDENTITY OF Q FOR  JOB (MVT ONLY)
00005F                             2572+JCTSNUMB DS    C NUMBER OF STEPS RUN (MVT ONLY)
000060                             2573+JCTSTIOT DS    F TTR OF COMPRESSED TIOT (MVT ONLY)
                                   2574+*                IN PCP-C/R SAVE OF SCATALLY BY IEFRAPCP           AACA
000064                             2575+JCTDEVT  DS    F DEVICE TYPE OF CHECKPOINT DATA SET
000068                             2576+JCTCKTTR DS    3C TTR OF JFCB FOR CHECKPOINT DATA SET
00006B                             2577+JCTNTRK  DS    C NUMBER OF TRACKS ON SYS1.JOBQE USED BY         PTM258
                                   2578+*                   THE JOB -SET AND USED BY THE INIT./TERM.     PTM258
00006C                             2579+JCTNRCKP DS    H NUMBER OF CHECKPOINTS TAKEN
00006E                             2580+JCTVOLSQ DS    C VOLUME SEQUENCE NUMBER FOR CHECKPOINT DATA SET
00006F                             2581+         DS    C
000070                             2582+JCTSSTR  DS    F TTR OF SCT FOR FIRST STEP TO BE RUN
000074                             2583+JCTSTAT2 DS    1C ADDITIONAL STATUS INDICATORS    O102
000080                             2584+JCTSPSYS EQU   128 BIT 0 - =1 INDICATES SPOOLED SYSIN FOR JOB     O102
                                   2585+*                             SET BY IEFVDA                        O102
           Subroutines                                                                                         PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2586+*                             TESTED BY IEESD575(QUEUE ALTER)-     O102
                                   2587+*                             MVT AND MFT ONLY                     O102
000020                             2588+JCTENDIT EQU   32 SET BY IEFSD41Q,IEFWEXTA       A25134
                                   2589+*                                 TESTED BY IEFDSOWR,IEFYNIMP    A25134
                                   2590+*                                 JOB TERMINATION INDICATOR      A25134
000010                             2591+JCTSWSM  EQU   16 BIT 3 - =1 INDICATES WARM START MESSAGE       M3144
                                   2592+*                             'INIT=JOBNAME' IS TO BE SUPPRESSED  M3144
                                   2593+*                             FOR THIS JOB                        M3144
                                   2594+*                             SET BY IEFVHH                       M3144
                                   2595+*                             TESTED BY IEFSD305                  M3144
000075                             2596+JCTCKIDL DS    C LENGTH OF CHECKPOINT ID
000076                             2597+JCTCKIDT DS    CL16 CHECKPOINT IDENT                               AACA
                                   2598+*******************************************************************AACA
                                   2599+*        THE FOLLOWING SYSTEMS MGMT FACILITIES SUBFIELDS MUST      AACA
                                   2600+*        BEGIN ON A HALF WORD BOUNDARY                             AACA
                                   2601+*******************************************************************AACA
000086                             2602+JCTJMR   DS    CL3 TTR OF JMR                 *** SYSTEMS ***     AACA
000089                             2603+JCTJMRD  DS    CL1 DATE DIFFERENCE STEP START-JOB START *         AACA
00008A                             2604+JCTJMROP DS    CL1 SMF OPTION SWITCHES        * MANAGEMENT        AACA
00008B                             2605+JCTJMRCL DS    CL1 SMF CANCELLATION CONTROL STATUS      *         AACA
00008C                             2606+JCTJMRTL DS    CL3 JOB TIME LIMIT             *  FACILITIES       AACA
00008F                             2607+JCTJMRSS DS    CL3 STEP START TIME OF DAY               *         AACA
000092                             2608+JCTJMRJT DS    CL3 JOB START TIME OF DAY      *  SUBFIELDS        AACA
000095                             2609+JCTJMRJD DS    CL3 JOB START DATE             *****************   AACA
000098                             2610+JCTCTOJ  DS    CL1 SYSOUT CLASSES C TO J       AACA
000099                             2611+JCTKTOR  DS    CL1 SYSOUT CLASSES K TO R       AACA
00009A                             2612+JCTSTOZ  DS    CL1 SYSOUT CLASSES S TO Z       AACA
00009B                             2613+JCT2TO9  DS    CL1 SYSOUT CLASSES 2 TO 9       AACA
00009C                             2614+JCTAB01  DS    CL1 SYSOUT CLASSES A,B,0,1      AACA
                                   2615+*                                      JCTAB01 BITS 4-7 ARE UNUSED AACA
00009D                             2616+JCTDSOSM DS    CL3 TTR OF SMB FROM WHICH DIRECT SYSOUT WRITER      O99
                                   2617+*                        WILL START PRINTING. USED WHEN PRESENT     O99
                                   2618+*                        STEP HAS SYSOUT CLASS = MSGCLASS DATA      O99
                                   2619+*                        SETS. FIELD UPDATED TO TTR ASSIGNED FOR    O99
                                   2620+*                        TERMINATION OF STEP. SET BY IEFSD512 AND   O99
                                   2621+*                        IEFSD162 BEFORE THE FIRST STEP OF THE JOB  O99
                                   2622+*                        IS GIVEN CONTROL.                          O99
                                   2623+*                        MODIFIED BY IEFDSOWR AND IEFSD31Q.         O99
0000A0                             2624+JCTTSOID DS    CL7 TSO USER ID FIELD. SET BY R/I MODULE IEFVDA  20001
                                   2625+*                      AS A RESULT OF A NOTIFY KEYWORD ON TH JOB  20001
                                   2626+*                      STATEMENT. USED BY TERMINATION MODULE      20001
                                   2627+*                      IEFSD31Q TO NOTIFY A TSO USER OF THE       20001
                                   2628+*                      COMPLETION OF A BACKGROUND JOB.            20001
0000A7                             2629+         DS    CL9 RESERVED                                   19874
0000B0                             2630+JCTLNGTH EQU   *-INJMJCT JCT LENGTH                             20001
                                   2631+***************************************************************** 20001
                                   2632+**                                                                   **
                                   2633+**                       ACCOUNT CONTROL TABLE                       **
                                   2634+**                                                                   **
                                   2635+***********************************************************************
0000B0                             2636+         DS    0D AACA
0000B0                             2637+ACTDSKAD DS    CL3 DISK ADDRESS OF THIS ACT
0000B3                             2638+ACTIDENT DS    CL1 TABLE ID  ACT = 16
000001                             2639+ACTID    EQU   1
0000B4                             2640+ACTNEXT  DS    CL4 DISK ADDRESS OF NEXT ACT
           Subroutines                                                                                         PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000B8                             2641+ACTPRGNM DS    CL20 PROGRAMMERS NAME
0000CC                             2642+ACTJTIME DS    CL3 JOB RUNNING TIME
0000CF                             2643+ACTJNFLD DS    1C NBR OF JOB ACCOUNTING FIELDS
0000D0                             2644+         DS    CL148 THE REST OF THE FIELDS HAVE THE
                                   2645+*                                  FOLLOWING FORMAT FOR JOB ACCOUNTING-
                                   2646+*                                  1 BYTE- LENGTH OF FIELD
                                   2647+*                                  VARIABLE BYTES- CONTENTS OF FIELD
                                   2648+*                                    (REPEATED FOR N FIELDS)
                                   2649+*                                  STEP ACCOUNTING HAS THE FOLLOWING
                                   2650+*                                  FORMAT FOR EACH STEP-
                                   2651+*                                  3 BYTES- MAXIMUM STEP RUNNING TIME
                                   2652+*                                  1 BYTE- NBR OF FIELDS IN STEP
                                   2653+*                                  1 BYTE- LENGTH OF FIELD
                                   2654+*                                  VARIABLE BYTES- CONTENTS OF FIELD
                                   2655+*                                    (LAST 2 REPEATED N TIMES)
                                   2656+***********************************************************************
                                   2657+*
                                   2658+*                  SYSTEM MESSAGE BLOCK
                                   2659+*
                                   2660+***********************************************************************
000168                             2661+         DS    0D AACA
000168                             2662+SMBDSKAD DS    CL3 DISK ADDRESS OF THIS SMB
00016B                             2663+SMBIDENT DS    1C TABLE ID SMB = 32
000005                             2664+SMBID    EQU   5
00016C                             2665+SMBNEXT  DS    CL4 DISK ADDRESS OF NEXT SMB
000170                             2666+SMBDUMMY DS    CL4 DISK ADDRESS OF DUMMY SMB
                                   2667+*                                       ALLOCATED OR ZERO IF NOT LAST
                                   2668+*                                       SMB FOR THAT STEP
000174                             2669+SMBNABPT DS    CL2 RELATIVE PTR TO NEXT AVAIL BYTE
000176                             2670+SMBMSGLN DS    1C LENGTH OF MESSAGE, OR ZERO IF
                                   2671+*                                       NO MORE MESSAGES IN THE BLOCK,
                                   2672+*                                       OR EACH BIT = 1 TO INDICATE
                                   2673+*                                       THAT A DATA SET FOLLOWS
000177                             2674+SMBMESAG DS    CL165 VARIABLE LENGTH MESSAGE

                                   2676 *----------------------------------------------------------------*
                                   2677 *        Additional bits defined in JCTJSTAT.                    *
                                   2678 *----------------------------------------------------------------*
000040                             2679 JCTJOBFL EQU   X'40'               Bit 1: job flush bit
000010                             2680 JCTSTPFL EQU   X'10'               Bit 3: step flush bit
           Subroutines                                                                                         PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             2682 SCT      DSECT ,
                                   2683          IEFASCTB ,
                                   2684+* L.01  R/I LEVEL NUMBER FOR RELEASE 19
                                   2685+***********************************************************************
                                   2686+*                                                                     *
                                   2687+*                     STEP   CONTROL   TABLE                          *
                                   2688+*                                                                     *
                                   2689+***********************************************************************
000000                             2690+         DS    0D
000000                             2691+INSMSCT  EQU   * STEP CONTROL TABLE
000000                             2692+SCTDISKA DS    CL3 DISK ADDRESS OF SCT
000003                             2693+SCTTBLID DS    CL1 TABLE ID OF SCT=4
000002                             2694+SCTID    EQU   2
000004                             2695+SCTSSTAT DS    CL1 INTERNAL STEP STATUS
                                   2696+*EAOUTABL EQU  128 ROLLOUTABLE BIT                                 AACA
                                   2697+*EACAUSER EQU  64  CAN CAUSE ROLLOUT                               AACA
000020                             2698+SCTNORST EQU   32 BIT 2 - NO RESTART TO BE DONE                    AACA
000010                             2699+SCTNOCKP EQU   16 BIT 3 - NO CHECKPOINT TO BE TAKEN                AACA
000008                             2700+SCTDORST EQU   8 BIT 4 - DO RESTART IF NECESSARY                   AACA
                                   2701+*SCTKEY0 EQU   4 BIT 5 - FOR GRAPHICS - ALTER PROTECT KEY          AACA
                                   2702+*SCTGRPH EQU   2 BIT 6 - FOR GRAPHICS - ABEND EXIT                 AACA
000001                             2703+INCMSSTS EQU   1 BIT-7/STEP FAILED
000005                             2704+SCTSTIME DS    CL3 MAXIMUM STEP RUNNING TIME
000008                             2705+SCTSEXEC DS    CL2 STEP STATUS CODE PASSED TO THE
                                   2706+*                                      INITIATOR AT TERMINATE
00000A                             2707+SCTLALOC DS    CL2 LENGTH OF ALLOCATION WORK AREA
                                   2708+*                                  ALSO NUMBR OF GOOD DD CARDS
00000C                             2709+SCTFSIOT DS    CL4 DISK ADDRESS OF FIRST SIOT
000010                             2710+SCTAALOC DS    CL4 DISK ADDRESS OF ALLOCATION
                                   2711+*                                      WORK AREA
000014                             2712+SCTANSCT DS    CL4 DISK ADDRESS OF NEXT SCT
000018                             2713+SCTAFSMB DS    CL4 DISK ADDRESS OF FIRST SMB
                                   2714+*                                 FOR THIS STEP+1(IF NO NEXT       AADA
                                   2715+*        STEP,POINTS TO A JOB QUEUE RECORD WHICH WAS ASSIGNED      AADA
                                   2716+*        BUT NOT WRITTEN INTO. THIS FIELD WILL BE ZEROED BY        AADA
                                   2717+*        JOB TERMINATION.)                                         AADA
00001C                             2718+SCTADSMB DS    CL4 DISK ADDRESS OF DUMMY SMB
                                   2719+*                                      ALLOCATED
000020                             2720+SCTAFACT DS    CL4 DISK ADDRESS OF FIRST ACT
                                   2721+*                                      FOR THIS STEP
000024                             2722+SCTVOLTB DS    CL4 DISK ADDRESS OF VOLUME
                                   2723+*                                      TABLE
000028                             2724+SCTADSTB DS    CL4 DISK ADDRESS OF DSNAME
                                   2725+*                                      TABLE FOR THIS STEP
00002C                             2726+SCTSCLPC DS    CL8 NAME OF STEP THAT CALLED
                                   2727+*                                      PROCEDURE
000034                             2728+SCTSNAME DS    CL8 STEPNAME
00003C                             2729+SCTRPACT DS    CL2 RELATIVE POINTER TO STEP ENTRY
                                   2730+*                                      IN ACT
00003E                             2731+SCTVOLTL DS    CL2 LENGTH OF VOLUME TABLE
000040                             2732+SCTNSIOT DS    CL1 NUMBER OF SIOTS IN THIS STEP
000041                             2733+SCTNSMSG DS    CL1 NUMBER OF SET UP MESSAGES
000042                             2734+SCTNJFCB DS    CL1 NUMBER OF JFCBS TO ALLOCATE
                                   2735+*
000043                             2736+SCTSTYPE DS    CL1 STEP TYPE
           Subroutines                                                                                         PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000080                             2737+SCTGOSTP EQU   128 BIT 0- =1 IF PGM=*.(GO)STEP(FETCH DCB)        19874
                                   2738+*        EQU   64   BIT 1- =1 IF SYSIN IS SPECIFIED (DD *)        19874
                                   2739+*        EQU   32   BIT 2- =1 IF THE PARAMETER ASSOCIATED WITH A  19874
                                   2740+*                    SYSOUT KEYWORD SPECIFIES THE MESSAGE CLASS   19874
000010                             2741+SCTSJFHK EQU   16 BIT 3 - JFCB H/K COMPLETE
                                   2742+*
                                   2743+*              BITS 4, 5, AND 6 ARE USED BY THE INITIATOR, AS FOLLOWS--
                                   2744+*                  000 - USE ACTION CODE
                                   2745+*                  001 - GO TO AVR MODULE
                                   2746+*                  010 - GO TO SPACE REQUEST
                                   2747+*                  011 - GO TO EXTERNAL ACTION SETUP
                                   2748+*                  100 - GO TO EXTERNAL ACTION VERIFY
                                   2749+*                  101 - NULL
                                   2750+*                  110 - NULL
                                   2751+*              111-NULL
                                   2752+*                   BIT 7 - RESERVED                              19874
                                   2753+*
000044                             2754+SCTXBTTR DS    F TTR OF SCT EXTENSION BLOCK CONTAINING PARM        AACA
000048                             2755+SCTMSADR DS    F ADDRESS OF REGION IN MAIN STORAGE - X'00 IN 1ST BYAACA
00004C                             2756+SCTLCSAD DS    F ADDRESS OF REGION IN LCS - X'01' IN 1ST BYTE      AACA
                                   2757+* * * * THE FOLLOWING FOUR BYTES ARE                               I254
                                   2758+*              USED BY  IEFSD41Q(MVT AND MFT-2),                   I254
                                   2759+*                       IEFSD42Q(MVT AND MFT-2),                   I254
                                   2760+*                       IEFW41SD(PCP),                             I254
                                   2761+*                       IEFW42SD(PCP),                             I254
                                   2762+*                       IEFYNIMP(ALL SYSTEMS)                      I254
000050                             2763+SCTCRWTP DS    CL3 TTR OF FIRST WTP SMB FOR AUTOMATIC C/R USE     I254
000053                             2764+SCTCRCNT DS    CL1 COUNT OF WTP SMB'S FOR STEP                    I254
000054                             2765+         DS    CL1 RESERVED                       20033
000055                             2766+SCTTEXT  DS    CL3 TTR OF TIOT EXTENSION TABLE    20033
000058                             2767+SCTMSSZE DS    H SIZE OF REGION IN MAIN STORAGE                    AACA
00005A                             2768+SCTLCSSZ DS    H SIZE OF REGION IN LCS                             AACA
00005C                             2769+         DS    CL2 RESERVED                                       I241
00005E                             2770+SCTSDP   DS    CL2 STEP DISPATCHING PRIORITY- SET IN IEFVEA,      I241
                                   2771+*                        USED BY THE INITIATOR                     I241
000020                             2772+SCTFSTEP EQU   32 BIT 2-FIST STEP TO BE EXECUTED                 I241
000060                             2773+SCTSMF   DS    F STEP SYSIN COUNT FOR SMF                        SMF
000064                             2774+SCTGOTTR DS    CL4 TTR OF PGM=*. SIOT              AACA
000068                             2775+SCTTIOT  DS    CL4 THIS FIELD+1 IS A 3-BYTE TTRAACA
                                   2776+*                                      OF THE STEP TIOT            AACA
000068                             2777+SCTSTAT2 EQU   SCTTIOT EXTENSION OF STEP STATUS INDICATORS        AACA
000068                             2778+SCTBCT   EQU   SCTTIOT STEP STATUS INDICATORS           19874
                                   2779+*                   BIT 0 - RESERVED                              19874
                                   2780+*  THE FOLLOWING BIT INDICATES THAT DIRECT SYSOUT FACILITIES ARE    O99
                                   2781+*              REQUIRED FOR JOB SEPARATOR/SYSTEM MESSAGES           O99
000040                             2782+SCTDSOCL EQU   64 BIT 1 - SET BY IEFDSOAL IN ALLOCATION IF        O99
                                   2783+*                        IEFDSOWR IS TO BE CALLED IN IEFSD512 OR    O99
                                   2784+*                        IEFSD162 UPON RETURN FROM ALLOCATION,      O99
                                   2785+*                        THEN RESET. USED BY IEFYTVMS IN TERMINATIO O99
                                   2786+*                        TO SCAN DSOCB'S ONCE.MVT AND MFT-II ONLY   O99
000020                             2787+SCTMCVOL EQU   32 ALLOCATION FOR CVOL                            AACA
                                   2788+*                  BIT 3 - RESERVED                               19874
000008                             2789+SCTSTPLB EQU   8 BIT 4 - STEPLIB PRESENT                         AACA
000004                             2790+SCTSPSYS EQU   4 BIT 5  - =1 IF SPOOLED SYSIN FOR STEP (EXPRESS  O102
                                   2791+*                 CANCEL)SET BYIEFVDA,TESTED BY IEESD575           O102
           Subroutines                                                                                         PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2792+*                  MVT AND MFT ONLY)                               O102
000002                             2793+SCTJBEND EQU   2 JOB ENDED BIT                                  AACA
000001                             2794+SCTBCTU  EQU   1 BIAS COUNT TABLE                               AACA
                                   2795+*                      INDICATES WHETHER OR NOT GDG BIAS COUNT    19874
                                   2796+*                      TABLE NEEDS TO BE UPDATED AT STEP TERM.    19874
00006C                             2797+SCTPGMNM DS    CL8 PROGRAM NAME
000074                             2798+SCTLDSTB DS    CL2 LENGTH OF DSNAME TABLE FOR
                                   2799+*                                      THIS STEP
000076                             2800+SCTSDPCD DS    CL2 FIRST STEP DEPENDENCY CODE
000078                             2801+SCTSDPOP DS    CL1 FIRST STEP DEPENDENCY OPERATOR
000079                             2802+SCTSDPSA DS    CL3 DISK ADDRESS OF DEPENDENCY SCT
00007C                             2803+         DS    CL36 SPACE FOR 6 MORE STEP DEPENDENCIES         HW16
0000A0                             2804+SCTABCND DS    CL1 8TH CONDITION CODE SLOT - IF EVEN OR       HW16
                                   2805+*   ONLY WERE SPECIFIED, INFORMATION HERE. OTHERWISE, 8TH COND     HW16
                                   2806+*   CODE OR ZERO                                                   HW16
000010                             2807+SCTABCAN EQU   16 STEP CANCEL-PRIOR ABEND NO EVEN/ONLY       HW16
000008                             2808+SCTONLYC EQU   8 STEP CANCEL-ONLY WITH NO PRIOR ABEND(S)    HW16
000004                             2809+SCTABEND EQU   4 THIS STEP ABENDED                           HW16
000002                             2810+SCTEVEN  EQU   2 COND=EVEN WAS SPECIFIED         HW16
000001                             2811+SCTONLY  EQU   1 COND=ONLY WAS SPECIFIED         HW16
0000A1                             2812+         DS    CL5 TO COMPLETE CONDITION CODE SPACE           HW16
                                   2813+*******************************************************************AACA
                                   2814+*                                                                  AACA
                                   2815+*        IN ORDER TO IMPLEMENT MVT IT HAS BEEN NECESSARY TO ADD    AACA
                                   2816+*        THE FOLLOWING FIELDS TO THE SCT. TO AVOID CAUSING         AACA
                                   2817+*        ERRORS IN THE CASE OF THE REASSEMBLING OF ALREADY         AACA
                                   2818+*        EXISTING MODULES WHICH REFERENCE THESE FIELDS,THEY        AACA
                                   2819+*        ARE GENERATED HERE ONLY AS COMMENTS. NOTE THAT IN         AACA
                                   2820+*        ACTUALITY THESE FIELDS OCCUPY THE 1ST 10 BYTES OF THE     AACA
                                   2821+*        DS OF 14 BYTES IMMEDIATELY FOLLOWING THESE COMMENTS.      AACA
                                   2822+*        UNTIL THESE FIELDS ARE ACTUALLY INCORPORATED INTO THIS    AACA
                                   2823+*        MACRO,THEY MUST BE REFERENCED BY DISPLACEMENT (GIVEN      AACA
                                   2824+*        BELOW), PREFERABLY THROUGH THE USE OF EQUATES WITH        AACA
                                   2825+*        THE SYMBOLS DESIGNATED BELOW.                             AACA
                                   2826+*                                                                  AACA
                                   2827+*******************************************************************AACA
                                   2828+*                                                                  AACA
                                   2829+*SCTEQREG DS   CL2                 REGION PARAMETER (BINARY)       AACA
                                   2830+*                                  DISPLACEMENT 166 (DECIMAL)      AACA
                                   2831+*SCTEQTTR DS   CL3                 TTR OF 1ST DATA SET BLOCK       AACA
                                   2832+*                                  (DSB) IN MESSAGE CLASS          AACA
                                   2833+*                                  DISPLACEMENT 168 (DECIMAL)      AACA
                                   2834+*SCTEQCMC DS   CL1                 BINARY COUNT OF MESSAGE CLASS   AACA
                                   2835+*                                  DSB'S FOR CURRENT STEP          AACA
                                   2836+*                                  DISPLACEMENT 171 (DECIMAL)      AACA
                                   2837+*SCTSTEND DS   CL1                 BIT 0=STEP STARTED              AACA
                                   2838+*                                  BIT 1=STEP ENDED                AACA
                                   2839+*                                  DISPLACEMENT 172 (DECIMAL)      AACA
                                   2840+*SCTAISMB DS   CL3                 TTR OF LAST ALLOCATE SMB        AACA
                                   2841+*                                  FOR THIS STEP OR TTR OF         AACA
                                   2842+*                                  LAST INTERPRETER SMB FOR        AACA
                                   2843+*                                  THIS STEP                       AACA
                                   2844+*                                  DISPLACEMENT 173 (DECIMAL)      AACA
                                   2845+*                                                                  AACA
                                   2846+*******************************************************************AACA
           Subroutines                                                                                         PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000A6                             2847+SCTLNGTH EQU   *-INSMSCT LENGTH OF SCT                 AACA
0000A8                             2848+INDMVOLT DS    45F
00015C                             2849+INDMDSNT DS    45F
           Subroutines                                                                                         PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   2851          PRINT NOGEN
000000                             2852 CVT      DSECT ,
                                   2853          CVT   SYS=MVT,PREFIX=YES
0000FC                             3073          ORG   CVTRELNO
0000FC                             3074 CVTNUMB  DS    CL2 -         RELEASE NUMBER
0000FE                             3075 CVTLEVL  DS    CL2 -         LEVEL NUMBER OF THIS RELEASE
           Subroutines                                                                                         PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             3077 TCB      DSECT ,
                                   3078          IKJTCB SYS=MVT
           Subroutines                                                                                         PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             3441 JMR      DSECT ,                                                        03000018
                                   3442 *********************************************************************** 04000018
                                   3443 *                                                                     * 05000018
                                   3444 *        JMR -  JOB MANAGEMENT RECORD                                 * 06000018
                                   3445 *                                                                     * 07000018
                                   3446 *********************************************************************** 08000018
000000                             3447 JMRJOB   DS    8C        JOB NAME                                       09000018
000008                             3448 JMRENTRY DS    F         ENTRY TIME IN 1/100'S SEC                      10000018
00000C                             3449 JMREDATE DS    F         ENTRY DATE 00YYDDDF                            11000018
000010                             3450 JMRCPUID DS    4C        CPU - SID AND MDL FROM SMCA                    12000018
000014                             3451 JMRUSEID DS    8C        USER ID - INITIALIZED BLANK BY R/I EACH JOB    13000018
00001C                             3452 JMRSTEP  DS    C         STEP NUMBER                                    14000018
00001D                             3453 JMRLGEND EQU   *                                                        15000018
00001D                             3454 JMRLOGSZ EQU   JMRLGEND-JMRJOB  SIZE OF JOB LOG COPIED TO DSB           16000018
                                   3455 *********************************************************************   17000018
                                   3456 *                                                                       18000018
00001D                             3457 JMRINDC  DS    C                       INDICATOR SWITCHES         20011 18400020
                                   3458 * BIT MEANINGS SAME AS JMROPT FIELD                               20011 18600020
                                   3459 *                                                                       18800020
                                   3460 **********************************************************************  19000020
00001E                             3461          DS    2C                      RESERVED                   20011 19200020
000020                             3462 JMRUCOM  DS    F         USER COMMUNICATION - INITIALIZED 0             20000018
000024                             3463 JMRUJVP  DS    F    CORE ADDR OF IEFUJV / PTR TO SYS1.MAN RECORD        21000018
000028                             3464 JMRSIZE  EQU   *-JMR   SIZE OF JMR IN CORE                              22000018
                                   3465 *                                                                       23000018
                                   3466 *********************************************************************   24000018
                                   3467 *                                                                       25000018
000028                             3468 JMRDRSTP DS    2F   RDR STOP TIME AND DATE                              26000018
000030                             3469 JMRJOBIN DS    F    JOB SYSIN CT                                        27000018
000034                             3470 JMRRDR   DS    2C   RDR DEVICE CLASS AND TYPE                           28000018
000036                             3471 JMROPT   DS    1C   OPTION SWITCHES                                     29000018
                                   3472 *                                                                       30000018
000080                             3473 JMRJOBSW EQU   X'80'  JOB FUNCTIONS REQUESTED                           31000018
000040                             3474 JMRSTPSW EQU   X'40'  STEP FUNCTIONS REQUESTED                          32000018
000020                             3475 JMREXITS EQU   X'20'    USER EXITS REQUESTED                            33000018
000010                             3476 JMRXONLY EQU   X'10'     EXITS ONLY SPECIFIED                           34000018
000001                             3477 JMRFIND  EQU   X'01'                   FOREGROUND INDICATED       20011 34500020
                                   3478 *                                                                       35000018
000037                             3479          DS    C                  RESERVED                              36000018
000038                             3480          DS    0F                                                       37000018
000038                             3481 JMRSYSOC DS    5C   SYSOUT CLASSES                                      38000018
                                   3482 *                                                                       39000018
                                   3483 *********************************************************************** 40000018
                                   3484 *                                                                       41000018
                                   3485 ****PARM LIST PASSED TO IEFUJV IN R/I                                   42000018
                                   3486 *                                                                       43000018
00003D                             3487 JMRJCLCD DS    C    JCL CODE                                            44000018
00003E                             3488          DS    2C                                                       45000018
000040                             3489 JMRJOBP  DS    F    PTR TO JOB LOG                                      46000018
000044                             3490 JMRJCLP  DS    F    PTR TO JCL CARD                                     47000018
000048                             3491 JMRJCLCP DS    F    PTR TO JCL CODE                                     48000018
000040                             3492 JMRPTRS  EQU   JMRJOBP                                                  49000018
           Subroutines                                                                                         PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3494 *        TITLE '    SMF Type 4 and Type 5 Records'
                                   3495 ******************************************************************
                                   3496 *                                                                *
                                   3497 *        SMF record mappings.                                    *
                                   3498 *                                                                *
                                   3499 ******************************************************************

000000                             3501 SMFRCD   DSECT ,
                                   3502 * THIS RECORD IS WRITTEN AT NORMAL OR ABNORMAL TERMINATION OF A JOB     20520019
                                   3503 * STEP.RECORD LENGTH IS VARIABLE.                                       20610019
                                   3504 *                                                                       20700019
000000                             3505          DS    0F        ALIGN TO FULL WORD BOUNDARY                    20790019
000000                             3506 SMFRCD4  EQU   *         HEADER SEGMENT                                 20880019
000000                             3507 SMF4LEN  DS    BL2'0'    RECORD LENGTH                                  20970019
000002                             3508 SMF4SEG  DS    BL2'0'    SEGMENT DESCRIPTOR                             21060019
000004 00                          3509 SMF4RSV  DC    BL1'0'    RESERVED                                       21150019
000005 00                          3510 SMF4RTY  DC    BL1'0'    RECORD TYPE 4                                  21240019
000006 00000000                    3511 SMF4TME  DC    4BL1'0'   TOD USING FORMAT FROM TIME MACRO W/BIN. INTVL. 21330019
00000A 0000000C                    3512 SMF4DTE  DC    PL4'0000' DATE IN PACKED DECIMAL FORM: OOY4DDDF          21420019
00000E 4040                        3513 SMF4SID  DC    2CL1' '   SYSTEM IDENTIFICATION                          21510019
000010 4040                        3514 SMF4MOD  DC    2CL1' '   MODEL NUMBER                                   21600019
000012 4040404040404040            3515 SMF4JBN  DC    8CL1' '   JOB NAME                                       21690019
00001A 00000000                    3516 SMF4RST  DC    4BL1'0'   READER START TIME (IN 100THS SECONDS)          21780019
00001E 0000000C                    3517 SMF4RDS  DC    PL4'0000' READER START DATE                              21870019
000022 4040404040404040            3518 SMF4UIF  DC    8CL1' '   USER IDENTIFICATION FIELD                      21960019
00002A 00                          3519 SMF4STN  DC    BL1'0'    STEP NUMBER                                    22050019
00002B 00000000                    3520 SMF4SIT  DC    4BL1'0'   STEP INITIATION TIME (IN 100THS SECONDS)       22140019
00002F 0000000C                    3521 SMF4STID DC    PL4'0000' STEP INITIATION DATE (PACKED DECIMAL FORMAT)   22230019
000033 00000000                    3522 SMF4NCI  DC    4BL1'0'   NUMBER OF CARD IMAGES IN DD DATA OR DD  *      22320019
                                   3523 *                        DATA SETS                                      22410019
000037 0000                        3524 SMF4SCC  DC    2BL1'0'   STEP COMPLETION CODE                           22500019
000039 00                          3525 SMF4PRTY DC    BL1'0'    PRIORITY AT WHICH STEP WAS DISPATCHED :        22590019
                                   3526 *                        ACTUAL PRIORITY=251-(15-USER PRIORITY)*16      22680019
00003A 4040404040404040            3527 SMF4PGMN DC    CL8' '    PROGRAM NAME                                   22770019
000042 4040404040404040            3528 SMF4STMN DC    CL8' '    STEP NAME                                      22860019
00004A 0000                        3529 SMF4RSH0 DC    2BL1'0'   REGION SIZE IN 1K BLKS REQUESTED IN HIERACHY0  22950019
00004C 0000                        3530 SMF4RSH1 DC    2BL1'0'   REGION SIZE IN 1K BLKS REQUESTED IN HIERARCHY1 23040019
00004E 00000000                    3531 SMF4H0ST DC    4BL1'0'   HIERARCHY0 STORAGE USED                        23130019
000052 00000000                    3532 SMF4H1ST DC    4BL1'0'   HIERARCHY1 STORAGE USED                        23220019
000056 00                          3533 SMF4SPK  DC    1BL1'0'   STORAGE PROTECT KEY                     A40791 23270021
000057 000000                      3534          DC    3BL1'0'   RESERVED                                A40791 23290021
00005A 00000000                    3535 SMF4AST  DC    4BL1'0'   DEVICE ALLOC START TIME                 A40791 23310021
00005E 00000000                    3536 SMF4PPST DC    4BL1'0'   PROBLEM PROGRAM START TIME              A40791 23360021
000062 0000000000000000            3537          DC    8BL1'0'   RESERVED                                A40791 23370021
00006A 0000                        3538 SMF4LENN DC    2BL1'0'   LENGTH OF EXCP PORTION OF RECORD               23400019
                                   3539 *        FOR EACH DEVICE ASSIGNED TO EACH DATA SET THERE IS AN 8 BYTE   23490019
                                   3540 *        ENTRY HAVING THE FOLLOWING FORMAT:                             23580019
                                   3541 *                                                                       23670019
00006C 00                          3542 SMF4DEVC DC    BL1'0'    DEVICE CLASS                                   23760019
00006D 00                          3543 SMF4UTYP DC    BL1'0'    UNIT TYPE                                      23850019
00006E 0000                        3544 SMF4CUAD DC    2BL1'0'   CHANNEL AND UNIT ADDRESS                       23940019
000070 00000000                    3545 SMF4EXCP DC    4BL1'0'   COUNT OF EXCP'S ISSUED FOR THE DEVICE AND      24030019
                                   3546 *                        DATA SET                                       24120019
00006C                             3547          ORG   SMF4DEVC                                                 24210019
00006C 00                          3548 SMF4LNTH DC    BL1'0'    TOTAL LENGTH OF NEXT THREE FIELDS              24300019
           Subroutines                                                                                         PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00006D 000000                      3549 SMF4SETM DC    3BL1'0'   STEP EXECUTION TIME (IN 100THS SECONDS)        24390019
000070 00                          3550 SMF4NAF  DC    BL1'0'    NUMBER OF ACCOUNTING FIELDS                    24480019
000071                             3551 SMF4ACTF DS    0C        EXEC STATEMENT ACCT FIELDS(VARIABLE)    100000 24570021
                                   3552 *                                                                       24660019
                                   3553 *        EACH ENTRY FOR AN ACCOUNTING FIELD CONTAINS THE LENGTH OF THE  24750019
                                   3554 *        FIELD (1 BYTE,BINARY), FOLLOWED BY THE FIELD(EBCDIC).AN        24840019
                                   3555 *        OMITTED FIELD IS REPRESENTED BY A LENGTH INDICATOR OF 0.       24930019
           Subroutines                                                                                         PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000000                             3557          ORG   SMFRCD              Reset location counter
                                   3558 * THIS RECORD IS WRITTEN AT  NORMAL OR ABNORMAL TERMINATION OF A JOB.   25290019
                                   3559 * RECORD LENGTH IS VARIABLE.                                            25380019
                                   3560 *                                                                       25470019
000000                             3561          DS    0F        ALIGN TO FULL WORD BOUNDARY                    25560019
000000                             3562 SMFRCD5  EQU   *         HEADER SEGMENT                                 25650019
000000                             3563 SMF5LEN  DS    BL2'0'    RECORD LENGTH                                  25740019
000002                             3564 SMF5SEG  DS    BL2'0'    SEGMENT DESCRIPTOR                             25830019
000004 00                          3565 SMF5RSV  DC    BL1'0'    RESERVED                                       25920019
000005 00                          3566 SMF5RTY  DC    BL1'0'    RECORD TYPE 5                                  26010019
000006 00000000                    3567 SMF5TME  DC    4BL1'0'   TOD USING FORMAT FROM TIME MACRO W/BIN. INTVL. 26100019
00000A 0000000C                    3568 SMF5DTE  DC    PL4'0000' DATE, PACKED DEC. FORM : OOYYDDDF(F IS A SIGN) 26190019
00000E 4040                        3569 SMF5SID  DC    2CL1' '   SYSTEM IDENTIFICATION                          26280019
000010 4040                        3570 SMF5MOD  DC    2CL1' '   MODEL NUMBER                            100000 26370021
000012 4040404040404040            3571 SMF5JBN  DC    8CL1' '   JOB NAME                                       26460019
00001A 00000000                    3572 SMF5RST  DC    4BL1'0'   READER START TIME FOR JOB (IN 100THS/SECONDS)  26550019
00001E 0000000C                    3573 SMF5RSD  DC    PL4'0000' READER START DATE,PACKED DECIMAL FORMAT        26640019
000022 4040404040404040            3574 SMF5UIF  DC    8CL1' '   USER IDENTIFICATION FIELD                      26730019
00002A 00                          3575 SMF5NST  DC    BL1'0'    NUMBER OF STEPS IN THE JOB                     26820019
00002B 00000000                    3576 SMF5JIT  DC    4BL1'0'   JOB INITIATION TIME (IN 100THS/SECONDS)        26910019
00002F 0000000C                    3577 SMF5JID  DC    PL4'0000' JOB INITIATION DATE, PACKED DECIMAL FORMAT     27000019
000033 00000000                    3578 SMF5NCI  DC    4BL1'0'   NUMBER OF CARD-IMAGE RECORDS IN DD DATA OR DD* 27090019
                                   3579 *                        DATA SETS                                      27180019
000037 0000                        3580 SMF5JCC  DC    2BL1'0'   JOB COMPLETION CODE                            27270019
000039 00                          3581 SMF5JPTY DC    BL1'0'    JOB PRIORITY                                   27360019
00003A 00000000                    3582 SMF5RSTT DC    4BL1'0'   READER STOP TIME FOR JOB (IN 100THS/SECONDS)   27450019
00003E 0000000C                    3583 SMF5RSTD DC    PL4'0000' READER STOP DATE FOR JOB (IN PACKED DEC.FORM)  27540019
000042 00                          3584 SMF5JBTI DC    BL1'0'    JOB TERMINATION INDICATOR                      27630019
                                   3585 *                        BIT 0 - RESERVED                               27720019
                                   3586 *                                                                       27810019
                                   3587 *                           1-CANCELLED AT EXIT IEFUJV                  27900019
                                   3588 *                           2-CANCELLED AT EXIT IEFUJI                  27990019
                                   3589 *                           3-CANCELLED AT EXIT IEFUSI                  28080019
                                   3590 *                           4-CANCELLED AT EXIT IEFACTRT                28170019
                                   3591 *                           5-RESERVED                           100000 28260021
                                   3592 *                           6-O=NORMAL COMPLETION                       28350019
                                   3593 *                             1=ABEND                                   28440019
                                   3594 *                           7-RESERVED                                  28530019
000043 0000000000                  3595 SMF5SMCI DC    5BL1'0'   SYSOUT CLASSES AND MSGCLASS INDICATOR          28620019
000048 00                          3596 SMF5CKRE DC    BL1'0'    CHECKPOINT/RESTART INDICATOR                   28710019
                                   3597 *                        BITO-SYSTEM RESTART                            28800019
                                   3598 *                         1,2-RESERVED                                  28890019
                                   3599 *                           3-CHECKPOINT TAKEN FOR STEP                 28980019
                                   3600 *                           4-CHECKPOINT RESTART                        29070019
                                   3601 *                           5-STEP RESTART                              29160019
                                   3602 *                         6,7-RESERVED(MUST BE ZERO)                    29250019
                                   3603 *                                                                       29340019
000049 00                          3604 SMF5RDCL DC    BL1'0'    READER DEVICE CLASS                            29430019
00004A 00                          3605 SMF5RUTY DC    BL1'0'    READER UNIT TYPE                               29520019
00004B 40                          3606 SMF5JICL DC    CL1' '    JOB INPUT CLASS                         100000 29610021
00004C 00                          3607 SMF5SPK  DC    1BL1'0'   STORAGE PROTECT KEY                     A40791 29660021
00004D 0000000000000000            3608          DC    19BL1'0'  RESERVED                                A40791 29690021
000060 00                          3609 SMF5TLEN DC    BL1'0'    TOTAL LENGTH OF NEXT FOUR FIELDS               29790019
000061 4040404040404040            3610 SMF5PRGN DC    20CL1' '  PROGRAMMER'S NAME                              29880019
000075 000000                      3611 SMF5JCPU DC    3BL1'0'   JOB CPU TIME (IN 100THS/SECONDS)               29970019
           Subroutines                                                                                         PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000078 00                          3612 SMF5ACTF DC    BL1'0'    NUMBER OF ACCOUNTING FIELDS                    30060019
000079                             3613 SMF5JSAF DS    0C        JOB STATEMENT ACCT FIELDS(VARIABLE)     100000 30150021
                                   3614 *                                                                       30240019
                                   3615 *        EACH ENTRY FOR AN ACCOUNTING FIELD CONTAINS THE LENGTH OF THE  30330019
                                   3616 *        FIELD(1 BYTE,BINARY),FOLLOWED BY THE FIELD (EBCDIC).AN OMITTED 30420019
                                   3617 *        FIELD IS REPRESENTED BY A LENGTH INDICATOR OF 0.               30510019
000079                             3618          ORG   ,                   Restore highest location counter
                                   3619 *----------------------------------------------------------------*
                                   3620 *        Equates for bits defined in SMF4STI.                    *
                                   3621 *----------------------------------------------------------------*
           Subroutines                                                                                         PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3623 ******************************************************************
                                   3624 *                                                                *
                                   3625 *        Getmained work area.                                    *
                                   3626 *                                                                *
                                   3627 *        XXX IEFYS save area usage is non-standard and           *
                                   3628 *            needs to be documented in detail (it stores         *
                                   3629 *            R0-R15 into the first 16 words and may use          *
                                   3630 *            the next 18 words as a save area when calling       *
                                   3631 *            queue manager).                                     *
                                   3632 *                                                                *
                                   3633 ******************************************************************

                                   3635 *----------------------------------------------------------------*
                                   3636 *        Next four lines must remain together.                   *
                                   3637 *----------------------------------------------------------------*
000000                             3638 WORKA    DSECT ,                   Start of dynamic work area
000000                             3639 SAVEA    DS    16F                 Save area for calling IEFYS
000040                             3640 SAVEAQ   DS    18F                 Save area for queue manager
000088                             3641 QMPA     DS    9F                  Space for a QMPA
                                   3642 *----------------------------------------------------------------*
                                   3643 *        End of lines that must remain together.                 *
                                   3644 *----------------------------------------------------------------*

0000B0                             3646 DWORK    DS    D                   Doubleword work area
0000B8                             3647 PREVR13  DS    F                   Caller's R13
0000BC                             3648 XSTEPNM  DS    CL8                 Step name
0000C4                             3649 XPSTEPNM DS    CL8                 Procedure step name
0000CC                             3650 TIME     DS    F                   Time work area
0000D0                             3651 TIMEND   DS    F                   Time work area
0000D4                             3652 DATE     DS    F                   Date work area
0000D8                             3653 DATEND   DS    F                   Date work area

0000DC                             3655 FLAG1    DS    XL1                 Miscellaneous flags
000080                             3656 F1EXCPHD EQU   X'80'               -- EXCP header has been done

0000DD                             3658 XTEPCCH  DS    0CL21               FLUSHED header
0000DD                             3659 XTEPCCHD DS    CL17                Completion code header
0000EE                             3660 STEPCOND DS    CL4                 Condition code/completion code
0000F2                             3661 PAD     DS    CL1     cheesy circuvention of programming error
0000F3                             3662 XELAPS  DS    CL11    Step elapsed time
                                   3663 *SINITTM DS    CL11    Step start time
0000FE                             3664 XENDTM  DS    CL11     Step end time
           Subroutines                                                                                         PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000109                             3666 PRTLINE  DS    CL132               Output area
           Subroutines                                                                                         PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3668 ******************************************************************
                                   3669 *                                                                *
                                   3670 *        Work area for EDMKRTN subroutine.  The equates are      *
                                   3671 *        defined with the offsets and lengths necessary to       *
                                   3672 *        move edited fields to their appropriate place in        *
                                   3673 *        an output line.                                         *
                                   3674 *                                                                *
                                   3675 ******************************************************************

00018D                             3677 EDMKWORK DS    CL20                Work area for EDMKRTN editing

000198                             3679          ORG   EDMKWORK+11
000198                             3680 EH0REG   DS    CL9                 Hierarchy 0 region requested

000197                             3682          ORG   EDMKWORK+10
000197                             3683 EH1REG   DS    CL10                Hierarchy 1 region requested

000199                             3685          ORG   EDMKWORK+12
000199                             3686 EH0STOR  DS    CL8                 Hierarchy 0 storage used

000199                             3688          ORG   EDMKWORK+12
000199                             3689 EH1STOR  DS    CL8                 Hierarchy 1 storage used

000191                             3691          ORG   EDMKWORK+4
000191                             3692 EPRTY    DS    CL16                Job selection priority

000192                             3694          ORG   EDMKWORK+5
000192                             3695 EDPRTY   DS    CL15                Step dispatching priority

000193                             3697          ORG   EDMKWORK+6
000193                             3698 EPKEY    DS    CL14                Protect key

0001A1                             3700          ORG   ,                   Restore location counter
           Subroutines                                                                                         PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3702 ******************************************************************
                                   3703 *                                                                *
                                   3704 *        Area for step-end WTO.                                  *
                                   3705 *                                                                *
                                   3706 ******************************************************************
                                   3707 * STEP: JJJJJJJJ PPPPPPPP SSSSSSSS ET=00.00.28 ABEND=U4095

0001A4                             3709 SWTO     DS    0F                  Area for step-end WTO
0001A4                             3710 SWLEN    DS    AL2                 Length of WTO
0001A6                             3711 SWMCSFLG DS    0AL2                Mcsflags
0001A6                             3712 SWMCSF1  DS    AL1                 Mcsflags byte 1
000080                             3713 SWMCSA   EQU   X'80'               --Routing/desc codes exist
0001A7                             3714 SWMCSF2  DS    AL1                 Mcsflags byte 2
0001A8                             3715 SWTEXT   DS    0CL56               Text of message
0001A8                             3716 SWHDR    DS    CL5'STEP:'          "STEP:"
0001AD                             3717          DS    CL1
0001AE                             3718 SWJOBN   DS    CL8                 Jobname
0001B6                             3719          DS    CL1
0001B7                             3720 SWSTEPN  DS    CL8                 Procstep name
0001BF                             3721          DS    CL1
0001C0                             3722 SWPSTEPN DS    CL8                 Stepname
0001C8                             3723          DS    CL1
0001C9                             3724 SWELAPH  DS    CL3'ET='            Elapsed time keyword
0001CC                             3725 SWELAP   DS    CL8                 Step elapsed time HH.MM.SS
0001C9                             3726          ORG   SWELAPH
0001C9                             3727 SWSTARS  DS    CL11                "*****" if step was flushed
0001D4                             3728          ORG   ,
0001D4                             3729          DS    CL1
0001D5                             3730 SWABNDH  DS    CL6'ABEND='         "ABEND=" header
0001DB                             3731 SWABND   DS    CL5                 Completion code
0001D5                             3732          ORG   SWABNDH
0001D5                             3733 SWFLUSH  DS    CL7'FLUSHED'        "FLUSHED"
0001D5                             3734          ORG   SWABNDH
0001D5                             3735 SWRCH    DS    CL3'RC='            "RC=" header
0001D8                             3736 SWRC     DS    CL4                 Condition code
0001E0                             3737          ORG   ,
00003C                             3738 SWTOLEN  EQU   *-SWTO              Symbolic length for WTO
0001E0                             3739 SWRTDESC DS    CL4                 Area for rout/desc codes
0001E4                             3740          ORG   ,
           Subroutines                                                                                         PAGE   91


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3742 ******************************************************************
                                   3743 *                                                                *
                                   3744 *        Mapping of data portion of common heading line.         *
                                   3745 *        This line is printed at the start of both stepend       *
                                   3746 *        and jobend statistics information boxes.                *
                                   3747 *                                                                *
                                   3748 ******************************************************************

0001E4                             3750 HDATA    DS    CL(L'MHDATA)        Reserve area
0001EC                             3751          ORG   HDATA+(MHOSCP-MHDATA)
0001EC                             3752 HOSCP    DS    CL(L'MHOSCP)        OS control program
0001F8                             3753          ORG   HDATA+(MHOSREL-MHDATA)
0001F8                             3754 HOSREL   DS    CL(L'MHOSREL)       OS release
0001FB                             3755          ORG   HDATA+(MHOSMOD-MHDATA)
0001FB                             3756 HOSMOD   DS    CL(L'MHOSMOD)       OS modification
000208                             3757          ORG   HDATA+(MHSID-MHDATA)
000208                             3758 HSID     DS    CL(L'MHSID)         SMF system id
00020D                             3759          ORG   ,                   Reset location counter
           Subroutines                                                                                         PAGE   92


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3761 ******************************************************************
                                   3762 *                                                                *
                                   3763 *        Mapping of common header line.                          *
                                   3764 *                                                                *
                                   3765 ******************************************************************

000136                             3767          ORG   PRTLINE+((L'PRTLINE-L'MHDATA)/2)
000136                             3768 CHDATA   DS    CL(L'MHDATA)        Reserve area
00020D                             3769          ORG   ,                   Reset location counter
           Subroutines                                                                                         PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3771 ******************************************************************
                                   3772 *                                                                *
                                   3773 *        Mapping of "STEP END STATISTICS" header line.           *
                                   3774 *                                                                *
                                   3775 ******************************************************************
00013E                             3776          ORG   PRTLINE+((L'PRTLINE-L'MSHDRTX)/2)
00013E                             3777 SHDRTX   DS    CL(L'MSHDRTX)
00020D                             3778          ORG   ,                   Reset location counter
           Subroutines                                                                                         PAGE   94


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3780 ******************************************************************
                                   3781 *                                                                *
                                   3782 *        Mapping of step-end line 1.                             *
                                   3783 *                                                                *
                                   3784 ******************************************************************

000109                             3786          ORG   PRTLINE
000109                             3787 STEPLN1  DS    CL(MS1LEN)          Define space for step line 1
000117                             3788          ORG   STEPLN1+(MSTEPNO-MSTEPLN1)
000117                             3789 STEPNO   DS    CL(L'MSTEPNO)       Step number
000131                             3790          ORG   STEPLN1+(MSINITTM-MSTEPLN1)
000131                             3791 SINITTM  DS    CL(L'MSINITTM)      Step start time
00014E                             3792          ORG   STEPLN1+(MS1ALCST-MSTEPLN1)
00014E                             3793 S1ALCST  DS    CL(L'MS1ALCST)      Allocation start time
000168                             3794          ORG   STEPLN1+(MSH0REG-MSTEPLN1)
000168                             3795 SH0REG   DS    CL(L'MSH0REG)       Hierarchy 0 region requested
00020D                             3796          ORG   ,                   Reset location counter
           Subroutines                                                                                         PAGE   95


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3798 ******************************************************************
                                   3799 *                                                                *
                                   3800 *        Mapping of step-end line 2.                             *
                                   3801 *                                                                *
                                   3802 ******************************************************************

000109                             3804          ORG   PRTLINE
000109                             3805 STEPLN2  DS    CL(MS2LEN)
000117                             3806          ORG   STEPLN2+(MSTEPNM-MSTEPLN2)
000117                             3807 STEPNM   DS    CL(L'MSTEPNM)       Step name
000131                             3808          ORG   STEPLN2+(MSENDTM-MSTEPLN2)
000131                             3809 SENDTM   DS    CL(L'MSENDTM)       Step end time
00014E                             3810          ORG   STEPLN2+(MS2PGMST-MSTEPLN2)
00014E                             3811 S2PGMST  DS    CL(L'MS2PGMST)      Problem program start time
000169                             3812          ORG   STEPLN2+(MSH0STOR-MSTEPLN2)
000169                             3813 SH0STOR  DS    CL(L'MSH0STOR)      Hierarchy 0 storage used
000174                             3814          ORG   STEPLN2+(MSTEPCCH-MSTEPLN2)
000174                             3815 STEPCCHX DS    CL(L'MSTEPCCH+L'MSTEPCON)  FLUSHED header
000174                             3816          ORG   STEPLN2+(MSTEPCCH-MSTEPLN2)
000174                             3817 STEPCCH  DS    CL(L'MSTEPCCH)      Completion code header
000185                             3818          ORG   STEPLN2+(MSTEPCON-MSTEPLN2)
000185                             3819 STEPCON  DS    CL(L'MSTEPCON)      Condition code/completion code
00020D                             3820          ORG   ,
           Subroutines                                                                                         PAGE   96


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3822 ******************************************************************
                                   3823 *                                                                *
                                   3824 *        Mapping of step-end line 3.                             *
                                   3825 *                                                                *
                                   3826 ******************************************************************

000109                             3828          ORG   PRTLINE
000109                             3829 STEPLN3  DS    CL(MS3LEN)
000117                             3830          ORG   STEPLN3+(MSPSTEPN-MSTEPLN3)
000117                             3831 SPSTEPN  DS    CL(L'MSPSTEPN)      Procstep name
000131                             3832          ORG   STEPLN3+(MSELAPS-MSTEPLN3)
000131                             3833 SELAPS   DS    CL(L'MSELAPS)       Step elapsed time
00014A                             3834          ORG   STEPLN3+(MS3DPRTY-MSTEPLN3)
00014A                             3835 S3DPRTY  DS    CL(L'MS3DPRTY)      Step dispatching priority
000167                             3836          ORG   STEPLN3+(MS3H1REG-MSTEPLN3)
000167                             3837 S3H1REG  DS    CL(L'MS3H1REG)      Hierarchy 1 region requested
00020D                             3838          ORG   ,
           Subroutines                                                                                         PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3840 ******************************************************************
                                   3841 *                                                                *
                                   3842 *        Mapping of step-end line 4.                             *
                                   3843 *                                                                *
                                   3844 ******************************************************************

000109                             3846          ORG   PRTLINE
000109                             3847 STEPLN4  DS    CL(MS4LEN)
000117                             3848          ORG   STEPLN4+(MS4PGMNM-MSTEPLN4)
000117                             3849 S4PGMNM  DS    CL(L'MS4PGMNM)      Program name
000131                             3850          ORG   STEPLN4+(MS4CPUTM-MSTEPLN4)
000131                             3851 S4CPUTM  DS    CL(L'MS4CPUTM)      Step CPU time under TCBs
00014B                             3852          ORG   STEPLN4+(MS4PKEY-MSTEPLN4)
00014B                             3853 S4PKEY   DS    CL(L'MS4PKEY)       Protect key
000169                             3854          ORG   STEPLN4+(MS4H1STO-MSTEPLN4)
000169                             3855 S4H1STO  DS    CL(L'MS4H1STO)      Hierarchy 1 storage used
00020D                             3856          ORG   ,
           Subroutines                                                                                         PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00020D                             3858 PRTLINE2 DS    CL132               Second print line
           Subroutines                                                                                         PAGE   99


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3860 ******************************************************************
                                   3861 *                                                                *
                                   3862 *        Mapping of "STEP EXCP STATISTICS" header line.          *
                                   3863 *                                                                *
                                   3864 ******************************************************************

00020D                             3866          ORG   PRTLINE2
000242                             3867          ORG   PRTLINE2+((L'PRTLINE2-L'MSHDREX)/2)
000242                             3868 SHDREX   DS    CL(L'MSHDREX)
000291                             3869          ORG   ,
           Subroutines                                                                                         PAGE  100


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3871 ******************************************************************
                                   3872 *                                                                *
                                   3873 *        Mapping of step-end EXCP column headings.               *
                                   3874 *                                                                *
                                   3875 ******************************************************************

00020D                             3877          ORG   PRTLINE2
00020D                             3878 SXCOL    DS    CL132               Step-end EXCP column headers
00020E                             3879 SXCOLFST EQU   SXCOL+(MSXCOLFS-STEPXCOL)  First column header
000291                             3880          ORG   ,
           Subroutines                                                                                         PAGE  101


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3882 ******************************************************************
                                   3883 *                                                                *
                                   3884 *        Mapping of "JOB END STATISTICS" header line.            *
                                   3885 *                                                                *
                                   3886 ******************************************************************
00013F                             3887          ORG   PRTLINE+((L'PRTLINE-L'MJHDRTX)/2)
00013F                             3888 JHDRTX   DS    CL(L'MJHDRTX)
000291                             3889          ORG   ,                   Reset location counter
           Subroutines                                                                                         PAGE  102


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3891 ******************************************************************
                                   3892 *                                                                *
                                   3893 *        Mapping of job-end line 1.                              *
                                   3894 *                                                                *
                                   3895 ******************************************************************

000109                             3897          ORG   PRTLINE
000109                             3898 JOBLN1   DS    CL(MJ1LEN)          Define space for job line 1
000117                             3899          ORG   JOBLN1+(MJ1JNAME-MJOBLN1)
000117                             3900 J1JNAME  DS    CL(L'MJ1JNAME)      Job name
000130                             3901          ORG   JOBLN1+(MJ1RDTM-MJOBLN1)
000130                             3902 J1RDTM   DS    CL(L'MJ1RDTM)       Time job entered system
00014C                             3903          ORG   JOBLN1+(MJ1RDDTJ-MJOBLN1)
00014C                             3904 J1RDDTJ  DS    CL(L'MJ1RDDTJ)      Job read date in Julian
000155                             3905          ORG   JOBLN1+(MJ1RDDTG-MJOBLN1)
000155                             3906 J1RDDTG  DS    CL(L'MJ1RDDTG)      Job read date in Gregorian
000160                             3907          ORG   JOBLN1+(MJ1RDDAY-MJOBLN1)
000160                             3908 J1RDDAY  DS    CL(L'MJ1RDDAY)      Job read date in day of week
00017E                             3909          ORG   JOBLN1+(MJ1TMTCB-MJOBLN1)
00017E                             3910 J1TMTCB  DS    CL(L'MJ1TMTCB)      Job CPU time under TCBs
000291                             3911          ORG   ,                   Reset location counter
           Subroutines                                                                                         PAGE  103


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3913 ******************************************************************
                                   3914 *                                                                *
                                   3915 *        Mapping of job-end line 2.                              *
                                   3916 *                                                                *
                                   3917 ******************************************************************

000109                             3919          ORG   PRTLINE
000109                             3920 JOBLN2   DS    CL(MJ2LEN)          Define space for job line 2
000117                             3921          ORG   JOBLN2+(MJ2CLS-MJOBLN2)
000117                             3922 J2CLS    DS    CL(L'MJ2CLS)        Job selection class
000130                             3923          ORG   JOBLN2+(MJ2INTM-MJOBLN2)
000130                             3924 J2INTM   DS    CL(L'MJ2INTM)       Time job was initiated
00014C                             3925          ORG   JOBLN2+(MJ2INDTJ-MJOBLN2)
00014C                             3926 J2INDTJ  DS    CL(L'MJ2INDTJ)      Job start date in Julian
000155                             3927          ORG   JOBLN2+(MJ2INDTG-MJOBLN2)
000155                             3928 J2INDTG  DS    CL(L'MJ2INDTG)      Job start date in Gregorian
000160                             3929          ORG   JOBLN2+(MJ2INDAY-MJOBLN2)
000160                             3930 J2INDAY  DS    CL(L'MJ2INDAY)      Job start date in day of week
00017E                             3931          ORG   JOBLN2+(MJ2TMELP-MJOBLN2)
00017E                             3932 J2TMELP  DS    CL(L'MJ2TMELP)      Total elapsed time of job
000291                             3933          ORG   ,                   Reset location counter
           Subroutines                                                                                         PAGE  104


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3935 ******************************************************************
                                   3936 *                                                                *
                                   3937 *        Mapping of job-end line 3.                              *
                                   3938 *                                                                *
                                   3939 ******************************************************************

000109                             3941          ORG   PRTLINE
000109                             3942 JOBLN3   DS    CL(MJ3LEN)          Define space for job line 3
00010D                             3943          ORG   JOBLN3+(MJ3KACT-MJOBLN3)
00010D                             3944 J3KACT   DS    CL(L'MJ3KACT)       ACCOUNT/JOB ID keyword
000117                             3945          ORG   JOBLN3+(MJ3ACCT-MJOBLN3)
000117                             3946 J3ACCT   DS    CL(L'MJ3ACCT)       Job account number field 1
000117                             3947          ORG   JOBLN3+(MJ3JBID-MJOBLN3)
000117                             3948 J3JBID   DS    CL(L'MJ3JBID)       HASP/ASP job ID
000130                             3949          ORG   JOBLN3+(MJ3ENTM-MJOBLN3)
000130                             3950 J3ENTM   DS    CL(L'MJ3ENTM)       Time job ended
00014C                             3951          ORG   JOBLN3+(MJ3ENDTJ-MJOBLN3)
00014C                             3952 J3ENDTJ  DS    CL(L'MJ3ENDTJ)      Job end date in Julian
000155                             3953          ORG   JOBLN3+(MJ3ENDTG-MJOBLN3)
000155                             3954 J3ENDTG  DS    CL(L'MJ3ENDTG)      Job end date in Gregorian
000160                             3955          ORG   JOBLN3+(MJ3ENDAY-MJOBLN3)
000160                             3956 J3ENDAY  DS    CL(L'MJ3ENDAY)      Job end date in day of week
000179                             3957          ORG   JOBLN3+(MJ3PRTY-MJOBLN3)
000179                             3958 J3PRTY   DS    CL(L'MJ3PRTY)       Job priority
000291                             3959          ORG   ,                   Reset location counter
           Subroutines                                                                                         PAGE  105


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000298                             3961          DS    0D                  Force doubleword alignment
000298                             3962 LWORKA   EQU   *-WORKA             Symbolic length of work area
           Subroutines                                                                                         PAGE  106


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3964 ******************************************************************
                                   3965 *                                                                *
                                   3966 *        Mapping of step-end EXCP counts line.                   *
                                   3967 *                                                                *
                                   3968 ******************************************************************

000000                             3970 SX       DSECT ,                   Mapping of EXCP count column
000000                             3971 SXSEG    DS    0CL26               One EXCP count column
000000                             3972 SUNIT    DS    CL4                 -- Device number
000004                             3973          DS    CL1                 -- Filler
000005                             3974 SCOUNT   DS    CL14                -- Number of EXCPs to device
000013                             3975          DS    CL7                 -- Filler
           Subroutines                                                                                         PAGE  107


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                   3977 ******************************************************************
                                   3978 *                                                                *
                                   3979 *        Ensure that hex translate table doesn't run             *
                                   3980 *        off the end of the module.                              *
                                   3981 *                                                                *
                                   3982 ******************************************************************

000000                             3984 IEFACTRT CSECT ,                   Resume CSECT
001048                             3985          DS    0D                  End of module
001048                             3986          DS    0S((*-HEXTRAN)-256) Force error if HEXTRAN address
                                   3987 *                                  isn't followed by at least
                                   3988 *                                  256 bytes
                                   3989          END   ,
                                                 RELOCATION DICTIONARY                                          PAGE   1


 POS.ID   REL.ID   FLAGS   ADDRESS                                                                               8/28/78

   01       01      0C     000A94
   01       02      1C     000AAC
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

ACTDSKAD 00003 0000B0 02637
ACTID    00001 000001 02639
ACTIDENT 00001 0000B3 02638
ACTJNFLD 00001 0000CF 02643
ACTJTIME 00003 0000CC 02642
ACTNEXT  00004 0000B4 02640
ACTPRGNM 00020 0000B8 02641
BLDCOM   00002 000080 00186
CHDATA   00041 000136 03768   0583  1109
CKCPSPS  00002 0000C6 00228   0221
CKCPSSS  00002 0000D8 00237   0230
CKRTYPE  00002 0000DE 00257   0215  0223  0232
COLON    00001 00007A 02016   0539  1854  1855
CONABNDS 00002 00016A 00390
CONABNDU 00002 00018A 00401   0385
CONCKABN 00002 00015A 00376
CONCKFLU 00002 00013C 00354
CONCKTYP 00002 000162 00383
CONFLUSH 00002 000144 00361
CONRC    00002 000194 00409   0378
CONSETCD 00002 00014E 00369   0356
CVT      00001 000000 02852   0212  1084
CVTABEND 00004 0000C8 02976
CVTAPR   00001 000040 02939
CVTAQAVT 00004 0000F0 03009
CVTASCII 00001 000002 02946
CVTATTCH 00001 000008 02944
CVTBRET  00002 000052 02900
CVTBTERM 00004 000034 02889
CVTBUF   00004 000010 02872
CVTCCH   00001 000080 02938
CVTCHPTR 00001 000008 02956
CVTCMT   00003 0000ED 03006
CVTCRTTR 00003 0000B8 02954   2967
CVTCUCB  00004 000064 02906
CVTDAR   00004 000048 02896
CVTDATA  00001 000002 02960
CVTDATE  00004 000038 02890
CVTDCB   00001 000074 02912   0214  0220  0229
CVTDCBA  00003 000075 02917
CVTDDR   00001 000020 02941
CVTDMSR  00004 000110 03037
CVTDMSRA 00003 000111 03039
CVTEXIT  00002 000050 02899
CVTEXT1  00004 0000FC 03026
CVTFACHN 00004 000114 03055
CVTFBOSV 00004 000084 02921
CVTFIX   00001 000000 03062   0202  0204
CVTFORM  00001 000008 03003
CVTGTF   00004 0000EC 02994
CVTGTFS  00001 0000C0 02996
CVTGTFST 00001 0000EC 02995
CVTHEAD  00004 0000A0 02929
CVTHIAR  00001 000004 02945
CVTIERLC 00004 000090 02924
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTILCH  00004 00008C 02923
CVTILK1  00004 000024 02881
CVTILK2  00004 000028 02883
CVTIOQET 00004 000078 02918
CVTIXAVL 00004 00007C 02919
CVTJOB   00004 00000C 02871
CVTLEVL  00002 0000FE 03075   0206
CVTLINK  00004 000008 02870
CVTLNKSC 00002 0000D6 02984
CVTMAP   00001 000000 02865   0091
CVTMCTYP 00001 000002 03005
CVTMDL   00002 0000FA 03066
CVTMDLDS 00004 0000D0 02982
CVTMODE  00001 000010 03002
CVTMPCVT 00004 0000C0 02974
CVTMSER  00004 000094 02925
CVTMSLT  00004 00003C 02891
CVTMZ00  00004 0000A4 02930
CVTNIP   00001 000010 02943
CVTNUCB  00004 000080 02920
CVTNUMB  00002 0000FC 03074   0205
CVTOPTA  00001 0000B6 02937
CVTOPTB  00001 0000B7 02948
CVTPATCH 00004 0000DC 02986
CVTPBLDL 00004 00005C 02904
CVTPCNVT 00004 00001C 02877
CVTPRLTV 00004 000020 02879
CVTPROT  00001 000080 02949
CVTPTR   00001 000010 02860   0090  0201  0211  1083
CVTPURG  00004 000104 03029
CVTPURGA 00003 000105 03031
CVTQABST 00002 0000D4 02983
CVTQCDSR 00004 0000B8 02969
CVTQLPAQ 00004 0000BC 02970
CVTQMSG  00004 00010C 03033
CVTQMSGA 00003 00010D 03035
CVTQMWR  00004 0000B0 02934
CVTQOCR  00004 0000AC 02932
CVTQTD00 00004 00006C 02909
CVTQTE00 00004 000068 02907
CVTRELNO 00004 0000FC 03069   0202  0202  3073
CVTRMS   00004 0000E0 02987
CVTSJQ   00004 000060 02905
CVTSMCA  00004 0000C4 02975   0092
CVTSNCTR 00002 0000B4 02936
CVTSTATE 00001 000020 03001
CVTSTB   00004 000070 02911
CVTSTEPR 00001 000004 02958
CVTSTUSA 00001 0000BB 02955
CVTSVDCB 00004 000054 02901
CVTSYSAD 00004 000030 02887
CVTTCBP  00004 000000 02867
CVTTCMFG 00001 0000F0 03007
CVTTCRDY 00001 000080 03008
CVTTOD   00001 000020 02950
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTTPC   00004 000058 02902
CVTTRMTB 00004 00009C 02928
CVTTSCE  00004 0000D8 02985
CVTTSCVB 00003 0000E5 02992
CVTTSCVT 00004 0000E4 02989
CVTTSFLG 00001 0000E4 02990
CVTTSRDY 00001 000080 02991
CVTUSER  00004 0000CC 02978   1085
CVTUSR   00001 000004 03004
CVTVOLF2 00001 0000F4 03016
CVTVOLI2 00001 000080 03018
CVTVOLM2 00004 0000F4 03014
CVTVOLT2 00003 0000F5 03019
CVTXAPG  00004 000014 02874
CVTXITP  00004 000044 02895
CVTXPFP  00001 000001 02947
CVTXTLER 00004 00002C 02885
CVTXTNT1 00001 000114 03053   3026
CVTZDTAB 00004 000040 02894
CVT0DS   00004 000088 02922
CVT0EF00 00004 000004 02868
CVT0FN00 00004 00004C 02898
CVT0PT01 00004 000098 02927
CVT0SCR1 00004 0000E8 02993
CVT0VL00 00004 000018 02875
CVT1EF00 00004 0000A8 02931
CVT1SSS  00001 000040 02913
CVT2SPS  00001 000020 02914   0229
CVT4MPS  00001 000004 02916   0220
CVT4MS1  00001 000010 02915   0214  0220
DATE     00004 0000D4 03652   0324  1206  1828  1830
DATEND   00004 0000D8 03653   0312  1207  1230  1239  1828
DAYTBL   00004 00095C 01798   1789
DGDAY    00002 000008 01661   1643  1644
DGMONTH  00002 000005 01659   1640  1641
DGREGDT  00001 000000 01656   1598
DGSEP1   00001 000004 01658   1645
DGSEP2   00001 000007 01660   1646
DGYEAR   00004 000000 01657   1614  1615
DJCC     00002 000000 01496   1465  1470
DJDAY    00003 000005 01499
DJEDIT   00007 000001 01502   1463  1464
DJULDT   00001 000000 01494   1462
DJYEAR   00004 000000 01495   1501
DJYY     00002 000002 01497
DOT      00001 00004B 02018   0541  1856
DWORK    00008 0000B0 03646   0370  0392  0393  0393  0394  0403  0410  0411  0412  0611  0612  0613  0619  0671  0708
                              0716  0751  0759  1293  1386  1387  1388  1388  1389  1392  1395  1609  1609  1610  1611
                              1613  1614  1616  1616  1617  1618  1639  1640  1642  1643  1764  1764  1765  1766  1779
                              1780  1860  1861  1867  1868  1873  1874  1877  1878  1880  1890  1928
ECBLIST  00004 000148 02435   2436
EDMKMASK 00020 000B7A 02008   1927
EDMKRTN  00002 000A5E 01924   0620  0672  0709  0717  0752  0760  1294
EDMKWORK 00020 00018D 03677   1926  1926  1927  1928  3679  3682  3685  3688  3691  3694  3697
EDPRTY   00015 000192 03695   0710
                                             CROSS-REFERENCE                                                   PAGE    4


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

EH0REG   00009 000198 03680   0621
EH0STOR  00008 000199 03686   0673
EH1REG   00010 000197 03683   0718
EH1STOR  00008 000199 03689   0761
ELAPSED  00002 0009CC 01826   0326  1211  1832
ELAP01   00002 0009E4 01834   1829
EMJDATE  00007 00080C 01476   1463
EPKEY    00014 000193 03698   0753
EPRTY    00016 000191 03692   1295
ERCENTBL 00002 000813 01481   1469
EXCP     00002 00078A 01383   0853
FLAG1    00001 0000DC 03655   0883  0978
FOO1     00002 0001C2 00448   0445
FOO2     00002 0001CE 00451   0447
FRCPRTY  00001 00015D 02444
FREEWORK 00002 00076A 01347   1071  1324
F0       00001 0000F0 02017   1862  1869  1875
F1EXCPHD 00001 000080 03656   0883  0978
GETWORK  00002 000056 00145   0125
HDABNDS  00017 000AE4 01995   0391
HDABNDU  00017 000AF5 01996   0402
HDATA    00041 0001E4 03750   0191  0583  1109  3751  3753  3755  3757
HDCOND   00017 000AD3 01994   0371
HDFLUSH  00021 000B06 01997   0362
HEXTRAN  00016 000B1B 01998   0395  1390  3986
HOSCP    00003 0001EC 03752   0213  0222  0231  0238
HOSMOD   00002 0001FB 03756   0206
HOSREL   00002 0001F8 03754   0205
HSID     00004 000208 03758   0196
IEFACTRT 00001 000000 00057   0084  1505  1663  3984
IEFEND   00001 00017C 02474
INCMALL  00001 000080 02507
INCMCAT  00001 000002 02499
INCMMGL1 00001 000010 02505
INCMMGL2 00001 000020 02506
INCMNSET 00001 000001 02500
INCMSSTS 00001 000001 02703   0466
INCMSTS  00001 000004 02495
INDMCTLG 00001 000002 02498
INDMDSNT 00004 00015C 02849
INDMVOLT 00004 0000A8 02848
INITPRTY 00001 00015E 02445
INJMJCT  00001 000000 02485   2630
INSMSCT  00001 000000 02691   2847
JACCT    00002 0006EC 01273   1258
JBNOHASP 00002 000570 01093   1088
JCT      00001 000000 02476   0165
JCTABEND 00001 000008 02494
JCTAB01  00001 00009C 02614
JCTACTAD 00004 000028 02515
JCTBCTDA 00004 00001C 02512
JCTCKFT  00001 000010 02528
JCTCKIDL 00001 000075 02596
JCTCKIDT 00016 000076 02597
JCTCKPTR 00001 000008 02529
                                             CROSS-REFERENCE                                                   PAGE    5


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JCTCKTTR 00001 000068 02576
JCTCTOJ  00001 000098 02610
JCTDEVT  00004 000064 02575
JCTDSBAD 00004 000030 02520
JCTDSDRA 00001 000001 02545
JCTDSKAD 00003 000000 02486
JCTDSOCR 00001 000004 02537
JCTDSOJB 00001 000002 02540
JCTDSOSM 00003 00009D 02616
JCTDSSBA 00004 00002C 02516
JCTENDIT 00001 000020 02588
JCTID    00001 000000 02488
JCTIDENT 00001 000003 02487
JCTJBLBS 00001 000005 02490
JCTJDPCD 00002 000036 02522
JCTJDPOP 00002 000038 02523
JCTJMGLV 00001 000007 02504
JCTJMGPO 00001 000006 02503
JCTJMR   00003 000086 02602
JCTJMRCL 00001 00008B 02605
JCTJMRD  00001 000089 02603
JCTJMRJD 00003 000095 02609
JCTJMRJT 00003 000092 02608
JCTJMROP 00001 00008A 02604
JCTJMRSS 00003 00008F 02607
JCTJMRTL 00003 00008C 02606
JCTJNAME 00008 000008 02509   0432  1134
JCTJOBFL 00001 000040 02679   0355  0464
JCTJPRTY 00001 000007 02508
JCTJSRNO 00001 000004 02489
JCTJSTAT 00001 000005 02491   0355  0464
JCTJSTPC 00001 000020 02492
JCTJTPTN 00008 000010 02510
JCTKTOR  00001 000099 02611
JCTLNGTH 00001 0000B0 02630
JCTNOCKP 00001 000010 02535
JCTNORST 00001 000020 02534
JCTNRCKP 00002 00006C 02579
JCTNTRK  00001 00006B 02577
JCTPDQDA 00004 000018 02511
JCTQIDNT 00001 00005E 02571
JCTRESTT 00001 000008 02536
JCTRSW1  00001 000056 02525
JCTRSW2  00001 000057 02532
JCTSDKAD 00004 000020 02513
JCTSMBAD 00004 000024 02514
JCTSMBID 00002 000034 02521
JCTSNUMB 00001 00005F 02572
JCTSPSYS 00001 000080 02584
JCTSSTR  00004 000070 02582
JCTSTAT2 00001 000074 02583
JCTSTEPR 00001 000004 02530
JCTSTERM 00001 000040 02527
JCTSTIOT 00004 000060 02573
JCTSTOZ  00001 00009A 02612
                                             CROSS-REFERENCE                                                   PAGE    6


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

JCTSTPFL 00001 000010 02680   0355
JCTSWSM  00001 000010 02591
JCTSYSCK 00001 000080 02533
JCTTSOID 00007 0000A0 02624
JCTVOLSQ 00001 00006E 02580
JCTWARMS 00001 000080 02526
JCT2TO9  00001 00009B 02613
JHDRTX   00024 00013F 03888   1121
JMISC    00002 00071A 01286   1268  1278  1281  1283
JMR      00001 000000 03441   0104  1256  3464
JMRCPUID 00001 000010 03450
JMRDRSTP 00004 000028 03468
JMREDATE 00004 00000C 03449
JMRENTRY 00004 000008 03448
JMREXITS 00001 000020 03475
JMRFIND  00001 000001 03477   0105
JMRINDC  00001 00001D 03457   0105
JMRJCLCD 00001 00003D 03487
JMRJCLCP 00004 000048 03491
JMRJCLP  00004 000044 03490
JMRJOB   00001 000000 03447   0107  3454
JMRJOBIN 00004 000030 03469
JMRJOBP  00004 000040 03489   3492
JMRJOBSW 00001 000080 03473
JMRLGEND 00001 00001D 03453   3454
JMRLOGSZ 00001 00001D 03454
JMROPT   00001 000036 03471
JMRPTRS  00004 000040 03492
JMRRDR   00001 000034 03470
JMRSIZE  00001 000028 03464
JMRSTEP  00001 00001C 03452
JMRSTPSW 00001 000040 03474
JMRSYSOC 00001 000038 03481
JMRUCOM  00004 000020 03462
JMRUJVP  00004 000024 03463
JMRUSEID 00001 000014 03451   1257  1264
JMRXONLY 00001 000010 03476
JOBEND   00002 000554 01081   0259
JOBLN1   00132 000109 03898   1129  3899  3901  3903  3905  3907  3909
JOBLN2   00132 000109 03920   1175  3921  3923  3925  3927  3929  3931
JOBLN3   00132 000109 03942   1223  3943  3945  3947  3949  3951  3953  3955  3957
J1JNAME  00008 000117 03900   1134
J1RDDAY  00009 000160 03908   1149
J1RDDTG  00010 000155 03906   1153
J1RDDTJ  00008 00014C 03904   1150
J1RDTM   00011 000130 03902   1140
J1TMTCB  00011 00017E 03910   1162
J2CLS    00001 000117 03922   1180
J2INDAY  00009 000160 03930   1195
J2INDTG  00010 000155 03928   1199
J2INDTJ  00008 00014C 03926   1196
J2INTM   00011 000130 03924   1186
J2TMELP  00011 00017E 03932   1210
J3ACCT   00008 000117 03946   1274  1326
J3ENDAY  00009 000160 03956   1242
                                             CROSS-REFERENCE                                                   PAGE    7


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

J3ENDTG  00010 000155 03954   1246
J3ENDTJ  00008 00014C 03952   1243
J3ENTM   00011 000130 03950   1233
J3JBID   00008 000117 03948   1264  1265  1266
J3KACT   00007 00010D 03944   1263
J3PRTY   00016 000179 03958   1295
KABEND   00006 000AC3 01990   0509
KET      00003 000AC0 01989   0519
KFLUSHED 00007 000ACC 01992   0481
KRC      00003 000AC9 01991   0500
KTST     00003 000AB4 01983   0107
KWARMS   00009 000AB7 01988
LCT      00001 000000 02336   0163
LCTABEND 00001 000002 02409
LCTACTON 00001 00003B 02386
LCTATLST 00004 000064 02423
LCTBATMN 00004 000040 02393   0377  0493
LCTCANF  00001 000008 02454
LCTCMCBA 00004 000034 02374
LCTCOM   00004 000164 02466
LCTCOREA 00001 000080 02391
LCTCRF   00001 000040 02461
LCTCSCB  00004 00004C 02410
LCTDSOF  00001 000020 02462
LCTDWFF  00001 000040 02450
LCTECBAD 00004 000148 02436
LCTECBLT 00001 000154 02441
LCTENQU  00001 000001 02465
LCTENTR  00004 000160 02458
LCTERRM  00001 000001 02359
LCTERROR 00004 000020 02369
LCTFORCE 00008 000154 02442
LCTICMDF 00001 000002 02456
LCTIDENT 00004 00014C 02438   2439  2440
LCTIHIER 00001 000080 02404
LCTINTH0 00001 000010 02463
LCTINTH1 00001 000008 02464
LCTINTSW 00001 00004C 02403
LCTJCTAD 00004 000010 02363   0164
LCTJFCBH 00001 000039 02378
LCTJOBLB 00004 000060 02421
LCTJSCB  00004 000168 02471
LCTLIMIT 00001 00015C 02443
LCTMINPF 00001 000010 02453
LCTMINRG 00001 000010 02406
LCTNSPAD 00001 000038 02377
LCTONEJF 00001 000004 02455
LCTOPSW1 00001 000160 02448
LCTOPSW2 00001 000164 02459
LCTOPSW3 00001 000168 02468
LCTPARM1 00004 000024 02370
LCTPARM2 00004 000028 02371
LCTPARM3 00004 00002C 02372
LCTPARM4 00004 000030 02373
LCTPIB   00004 00014C 02439
                                             CROSS-REFERENCE                                                   PAGE    8


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

LCTPKEYF 00001 000080 02449
LCTPSPAR 00004 00001C 02367
LCTQDRTY 00004 000000 02348
LCTQENTY 00004 00000C 02355
LCTQMPAM 00001 000090 02390
LCTREGSV 00001 000000 02389
LCTRTRN  00004 000048 02401
LCTSCTAD 00004 000014 02364   0166
LCTSCTDA 00004 000018 02366
LCTSD0XX 00001 000020 02405
LCTSMBAD 00004 00003C 02387
LCTSMF   00004 000058 02418
LCTSNUMB 00001 00003A 02385
LCTSOQMP 00004 000044 02399
LCTSPIL  00004 000150 02440
LCTSRTAD 00004 000004 02353
LCTSTART 00001 000008 02407
LCTSTIND 00001 000038 02376
LCTSTMDF 00001 000020 02452
LCTSTOP  00001 000004 02408
LCTS2COP 00001 000040 02381
LCTS2FES 00001 000020 02383
LCTS2PEM 00001 000080 02379
LCTTCBAD 00004 000008 02354
LCTTIMEF 00001 000080 02460
LCTTMWRK 00004 000050 02411   2418
LCTTRSTK 00001 000004 02469
LCTWORKA 00001 000018 02365
LMHDATA  00001 000029 02093   2095
LWORKA   00001 000298 03962   0146  0152  1349
MHDATA   00041 000BFC 02095   0191  3750  3751  3753  3755  3757  3767  3768
MHDATAX  00001 000BFC 02077   2093  2094
MHOSCP   00003 000C04 02081   3751  3752
MHOSMOD  00002 000C13 02087   3755  3756
MHOSREL  00002 000C10 02085   3753  3754
MHSID    00004 000C20 02091   3757  3758
MJHDRTX  00024 000B5E 02001   1121  3887  3888
MJOBLN1  00132 000EBA 02241   1129  2263  2263  2264  3899  3901  3903  3905  3907  3909
MJOBLN2  00132 000F3E 02273   1175  2295  2295  2296  3921  3923  3925  3927  3929  3931
MJOBLN3  00132 000FC2 02305   1223  2333  2333  2334  3943  3945  3947  3949  3951  3953  3955  3957
MJ1JNAME 00008 000EC8 02245   3899  3900
MJ1LEN   00001 000084 02264   3898
MJ1RDDAY 00009 000F11 02257   3907  3908
MJ1RDDTG 00010 000F06 02255   3905  3906
MJ1RDDTJ 00008 000EFD 02253   3903  3904
MJ1RDTM  00011 000EE1 02249   3901  3902
MJ1TMTCB 00011 000F2F 02261   3909  3910
MJ2CLS   00001 000F4C 02277   3921  3922
MJ2INDAY 00009 000F95 02289   3929  3930
MJ2INDTG 00010 000F8A 02287   3927  3928
MJ2INDTJ 00008 000F81 02285   3925  3926
MJ2INTM  00011 000F65 02281   3923  3924
MJ2LEN   00001 000084 02296   3920
MJ2TMELP 00011 000FB3 02293   3931  3932
MJ3ACCT  00008 000FD0 02309   2310  3945  3946
                                             CROSS-REFERENCE                                                   PAGE    9


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

MJ3ENDAY 00009 001019 02324   3955  3956
MJ3ENDTG 00010 00100E 02322   3953  3954
MJ3ENDTJ 00008 001005 02320   3951  3952
MJ3ENTM  00011 000FE9 02316   3949  3950
MJ3JBID  00008 000FD0 02311   3947  3948
MJ3KACT  00007 000FC6 02307   3943  3944
MJ3LEN   00001 000084 02334   3942
MJ3PRTY  00016 001032 02331   3957  3958
MKREGION 00012 000C79 02117
MOVEACCT 00006 000764 01326   1285
MSELAPS  00011 000D56 02169   3832  3833
MSENDTM  00011 000CD2 02139   3808  3809
MSHDREX  00026 000B44 02000   0929  3867  3868
MSHDRTX  00025 000B2B 01999   0595  3776  3777
MSH0REG  00009 000C85 02118   3794  3795
MSH0STOR 00008 000D0A 02145   3812  3813
MSINITTM 00011 000C4E 02112   3790  3791
MSKEXCP  00001 0007C6 01400   1393
MSPSTEPN 00008 000D3C 02166   3830  3831
MSTEPCCH 00017 000D15 02148   3814  3815  3816  3817
MSTEPCON 00004 000D26 02149   3815  3818  3819
MSTEPLN1 00132 000C26 02105   0603  2122  2122  2123  3788  3790  3792  3794
MSTEPLN2 00132 000CAA 02132   0647  2152  2152  2153  3806  3808  3810  3812  3814  3816  3818
MSTEPLN3 00132 000D2E 02162   0690  2182  2182  2183  3830  3832  3834  3836
MSTEPLN4 00132 000DB2 02192   0730  2212  2212  2213  3848  3850  3852  3854
MSTEPNM  00008 000CB8 02136   3806  3807
MSTEPNO  00003 000C34 02109   3788  3789
MSXCOLFS 00001 000E37 02223   2225  2230  3879
MS1ALCST 00011 000C6B 02115   3792  3793
MS1LEN   00001 000084 02123   3787
MS2LEN   00001 000084 02153   3805
MS2PGMST 00011 000CEF 02142   3810  3811
MS3DPRTY 00015 000D6F 02175   3834  3835
MS3H1REG 00010 000D8C 02178   3836  3837
MS3LEN   00001 000084 02183   3829
MS4CPUTM 00011 000DDA 02199   3850  3851
MS4H1STO 00008 000E12 02208   3854  3855
MS4LEN   00001 000084 02213   3847
MS4PGMNM 00008 000DC0 02196   3848  3849
MS4PKEY  00014 000DF4 02205   3852  3853
ONEDAY   00004 000AB0 01982   1831
PAD      00001 0000F2 03661   0321
PNONDISP 00001 000040 03397
PREVR13  00004 0000B8 03647   0158  1090  1253  1350
PRTCOND  00002 0001A6 00415   0363  0396
PRTLINE  00132 000109 03666   0573  0574  0581  0582  0582  0582  0584  0585  0591  0592  0592  0592  0593  0594  0596
                              0597  0640  0641  0683  0684  0723  0724  0766  0767  0834  0835  0835  0835  0836  0837
                              0839  1003  1054  1055  1055  1055  1056  1057  1063  1064  1099  1100  1107  1108  1108
                              1108  1110  1111  1117  1118  1118  1118  1119  1120  1122  1123  1168  1169  1216  1217
                              1300  1301  1307  1308  1308  1308  1309  1310  1316  1317  3767  3767  3776  3776  3786
                              3804  3828  3846  3887  3887  3897  3919  3941
PRTLINE2 00132 00020D 03858   0914  0915  0915  0915  0916  0917  0918  0919  0925  0926  0926  0926  0927  0928  0930
                              0931  0938  0975  0976  3866  3867  3867  3877
PUTLINE  00002 000A76 01950   0576  0586  0598  0642  0685  0725  0768  0920  0932  0977  1004  1058  1066  1102  1112
                              1124  1170  1218  1302  1311  1319
                                             CROSS-REFERENCE                                                   PAGE   10


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

PUT01    00002 000A90 01963   1959
PUT02    00002 000AA6 01972   1961
QMGR1    00004 0000F8 02427
QMGR2    00004 00011C 02428
QMPA     00004 000088 03641
REGSAVE  00004 000068 02425
RETURN   00002 00077A 01360   0096  0106  0108  0128
ROUT2    00004 000B76 02003   0294  0560
RTDOW    00002 0008E2 01756   1147  1193  1240
RTDOWX   00002 000940 01785   1783
RTJDATE  00002 0007D4 01457   1151  1197  1244
RTTOGRA  00004 00088A 01624   1622
RTTOGRB  00004 00089A 01629   1626
RTTOGREG 00002 000824 01594   1154  1200  1247
R0       00001 000000 00058   0124  0127  0146  0151  0154  0161  0202  0203  0313  0322  0575  0585  0597  0641  0684
                              0724  0767  0918  0931  0975  1002  1057  1065  1091  1101  1111  1123  1150  1153  1169
                              1196  1199  1209  1217  1228  1231  1243  1246  1301  1310  1318  1349  1461  1597  1602
                              1602  1603  1605  1606  1612  1618  1619  1631  1632  1759  1759  1760  1761  1768  1771
                              1775  1791  1835  1858  1858  1859  1860  1864  1864  1866  1867  1871  1871  1872  1873
                              1956
R1       00001 000001 00059   0085  0150  0151  0152  0161  0312  0314  0323  0435  0513  0513  0552  0555  0558  0559
                              0559  0560  0566  0574  0584  0596  0609  0610  0626  0633  0640  0663  0683  0723  0741
                              0766  0919  0930  0958  0959  0960  0966  0976  1003  1056  1064  1090  1091  1091  1100
                              1110  1122  1139  1146  1160  1160  1161  1168  1185  1192  1208  1216  1229  1230  1232
                              1239  1276  1277  1279  1280  1300  1309  1317  1326  1348  1362  1362  1394  1396  1397
                              1460  1599  1604  1607  1608  1610  1611  1612  1613  1621  1624  1625  1630  1633  1637
                              1638  1639  1762  1763  1765  1766  1767  1773  1774  1776  1777  1778  1779  1780  1781
                              1784  1785  1831  1835  1877  1879  1883  1886  1887  1926  1929  1930  1955
R10      00001 00000A 00068   0085  0103  0116  0609  0740  1276  1279
R11      00001 00000B 00069   0083  0084
R12      00001 00000C 00070   0163  1330  1459  1471  1596  1647  1758  1791  1955  1956
R13      00001 00000D 00071   0155  0156  0157  1348  1350  1352  1361  1382  1404  1458  1459  1471  1474  1595  1596
                              1647  1651  1757  1758  1777  1790  1791  1793  1827  1891  1925  1932  1951  1952  1954
                              1973
R14      00001 00000E 00072   0154  0535  0538  0544  0550  0556  0620  0672  0709  0717  0752  0760  0945  0946  0952
                              0953  1092  1148  1152  1155  1194  1198  1201  1241  1245  1248  1294  1361  1459  1466
                              1467  1468  1469  1469  1470  1471  1472  1596  1634  1635  1647  1648  1758  1768  1769
                              1770  1770  1772  1773  1775  1776  1785  1786  1787  1788  1789  1790  1792  1857  1859
                              1865  1866  1872  1931  1960
R15      00001 00000F 00073   0083  0090  0091  0092  0093  0094  0094  0095  0095  0103  0104  0109  0123  0124  0126
                              0127  0153  0153  0155  0158  0161  0201  0203  0204  0211  0212  0239  0292  0293  0315
                              0325  0410  0411  0538  0539  0541  0552  0553  0608  0608  0610  0611  0618  0619  0627
                              0634  0664  0670  0671  0706  0706  0707  0708  0715  0716  0740  0741  0742  0748  0748
                              0749  0750  0751  0758  0759  0807  0808  0845  0847  0951  0953  0965  0969  0969  1083
                              1084  1085  1086  1087  1087  1089  1089  1092  1140  1147  1148  1149  1151  1152  1154
                              1155  1162  1186  1193  1194  1195  1197  1198  1200  1201  1210  1233  1240  1241  1242
                              1244  1245  1247  1248  1253  1254  1254  1255  1255  1256  1267  1275  1275  1277  1280
                              1282  1284  1285  1291  1291  1292  1293  1391  1392  1620  1620  1623  1624  1628  1633
                              1636  1767  1782  1789  1854  1855  1856  1861  1862  1868  1869  1874  1875  1882  1890
                              1957  1958  1958  1960
R2       00001 000002 00060   0150  0156  1599  1600  1601  1617  1619  1625  1627  1628  1629  1630  1636  1642  1951
                              1973
R3       00001 000003 00061   0805  0806  0808  0847  1049  1385  1402  1461  1462  1473  1597  1598  1650
R4       00001 000004 00062   0313  0314  0323  0800  0800  0801  0802  0804  0848  0848  0850  1005  1005  1231  1232
R5       00001 000005 00063   0164  0165  0838  0855  0939  0939  0946  0958  1032  1329
                                             CROSS-REFERENCE                                                   PAGE   11


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

R6       00001 000006 00064   0166  0167  0839  0854  0854  1328  1384  1403
R7       00001 000007 00065   0316  0326  0576  0586  0598  0628  0635  0642  0665  0685  0725  0743  0768  0853  0920
                              0932  0977  1004  1058  1066  1102  1112  1124  1141  1163  1170  1187  1211  1218  1234
                              1302  1311  1319  1398  1888  1974
R8       00001 000008 00066
R9       00001 000009 00067   0116  0117
SAVEA    00004 000000 03639
SAVEAQ   00004 000040 03640
SBLDCOMP 00002 00013C 00341
SBLDEXCP 00002 000418 00799
SBLDWTO  00002 0001A6 00431
SBLDWTOA 00002 000250 00534   0523
SBLDWTOB 00002 000254 00537   0544
SBLDWTOC 00002 000264 00543   0540
SBLDWTOI 00002 000268 00549   0482
SBLDWTOJ 00002 00027E 00557   0554
SBLDWTOK 00002 00026C 00551   0556
SBLDWTOX 00002 0001B0 00443
SBLDWTOZ 00002 000202 00492   0471
SBLDWTO1 00002 0001CE 00456
SBLDWTO3 00002 0001CE 00463
SBLDWTO5 00002 0001EE 00476   0465  0467  0469
SBLDWTO6 00002 00020A 00499
SBLDWTO7 00002 00021A 00508   0494
SBLDWTO8 00002 000232 00518   0502  0512
SBLDWTO9 00002 00024A 00528   0521
SCOUNT   00014 000005 03974   1393  1394  1394  1395
SCT      00001 000000 02682   0167
SCTAALOC 00004 000010 02710
SCTABCAN 00001 000010 02807   0468
SCTABCND 00001 0000A0 02804   0468  0470
SCTABEND 00001 000004 02809
SCTADSMB 00004 00001C 02718
SCTADSTB 00004 000028 02724
SCTAFACT 00004 000020 02720
SCTAFSMB 00004 000018 02713
SCTANSCT 00004 000014 02712
SCTBCT   00004 000068 02778
SCTBCTU  00001 000001 02794
SCTCRCNT 00001 000053 02764
SCTCRWTP 00003 000050 02763
SCTDISKA 00003 000000 02692
SCTDORST 00001 000008 02700
SCTDSOCL 00001 000040 02782
SCTEVEN  00001 000002 02810
SCTFSIOT 00004 00000C 02709
SCTFSTEP 00001 000020 02772
SCTGOSTP 00001 000080 02737
SCTGOTTR 00004 000064 02774
SCTID    00001 000002 02694
SCTJBEND 00001 000002 02793
SCTLALOC 00002 00000A 02707
SCTLCSAD 00004 00004C 02756
SCTLCSSZ 00002 00005A 02768
SCTLDSTB 00002 000074 02798
                                             CROSS-REFERENCE                                                   PAGE   12


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SCTLNGTH 00001 0000A6 02847
SCTMCVOL 00001 000020 02787
SCTMSADR 00004 000048 02755
SCTMSSZE 00002 000058 02767
SCTNJFCB 00001 000042 02734
SCTNOCKP 00001 000010 02699
SCTNORST 00001 000020 02698
SCTNSIOT 00001 000040 02732
SCTNSMSG 00001 000041 02733
SCTONLY  00001 000001 02811
SCTONLYC 00001 000008 02808   0470
SCTPGMNM 00008 00006C 02797
SCTRPACT 00002 00003C 02729
SCTSCLPC 00008 00002C 02726   0444  0449  0696
SCTSDP   00002 00005E 02770
SCTSDPCD 00002 000076 02800
SCTSDPOP 00001 000078 02801
SCTSDPSA 00003 000079 02802
SCTSEXEC 00002 000008 02705
SCTSJFHK 00001 000010 02741
SCTSMF   00004 000060 02773
SCTSNAME 00008 000034 02728   0446  0450  0653
SCTSPSYS 00001 000004 02790
SCTSSTAT 00001 000004 02695   0466
SCTSTAT2 00004 000068 02777
SCTSTIME 00003 000005 02704
SCTSTPLB 00001 000008 02789
SCTSTYPE 00001 000043 02736
SCTTBLID 00001 000003 02693
SCTTEXT  00003 000055 02766
SCTTIOT  00004 000068 02775   2777  2778
SCTVOLTB 00004 000024 02722
SCTVOLTL 00002 00003E 02731
SCTXBTTR 00004 000044 02754
SELAPS   00011 000131 03833   0701
SENDTM   00011 000131 03809   0658
SETHOURS 00006 000A58 01890   1887
SEXBLMVC 00006 0004F2 00969   0966
SEXEXIT  00002 00052A 01048   0803  1007  1034
SEXFULL  00002 000476 00882   0856  1033
SEXLOOP  00002 00044E 00844   0852  0855
SEXLOOPI 00002 000434 00833   1006
SEXTRUNC 00002 00051E 01031   0849
SEXWHDR  00002 00047E 00909
SEXWHDRW 00002 0004F8 00974   0940  0967
SEXWLINE 00002 000508 01001   0884
SHDREX   00026 000242 03868   0929
SHDRTX   00025 00013E 03777   0595
SH0REG   00009 000168 03795   0621
SH0STOR  00008 000169 03813   0673
SINITTM  00011 000131 03791   0627
SINITWTO 00002 0000E6 00286
SMBDSKAD 00003 000168 02662
SMBDUMMY 00004 000170 02666
SMBID    00001 000005 02664
                                             CROSS-REFERENCE                                                   PAGE   13


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SMBIDENT 00001 00016B 02663
SMBMESAG 00165 000177 02674
SMBMSGLN 00001 000176 02670
SMBNABPT 00002 000174 02669
SMBNEXT  00004 00016C 02665
SMFRCD   00001 000000 03501   0117  3557
SMFRCD4  00001 000000 03506
SMFRCD5  00001 000000 03562
SMF30ELN 00001 000008 00846   0807  0845
SMF4ACTF 00001 000071 03551
SMF4AST  00001 00005A 03535   0633
SMF4CUAD 00001 00006E 03544   1386
SMF4DEVC 00001 00006C 03542   0802  0805  0806  0851  1385  2039  3547
SMF4DTE  00004 00000A 03512
SMF4EXCP 00001 000070 03545   1391
SMF4H0ST 00001 00004E 03531   0670
SMF4H1ST 00001 000052 03532   0758
SMF4JBN  00001 000012 03515
SMF4LEN  00002 000000 03507
SMF4LENN 00001 00006A 03538   0801  0802  0805  0805  2039
SMF4LNTH 00001 00006C 03548
SMF4MOD  00001 000010 03514
SMF4NAF  00001 000070 03550
SMF4NCI  00001 000033 03522
SMF4PGMN 00008 00003A 03527   0735
SMF4PPST 00001 00005E 03536   0663
SMF4PRTY 00001 000039 03525   0707
SMF4RDS  00004 00001E 03517
SMF4RSH0 00001 00004A 03529   0618
SMF4RSH1 00001 00004C 03530   0715
SMF4RST  00001 00001A 03516
SMF4RSV  00001 000004 03509
SMF4RTY  00001 000005 03510
SMF4SCC  00001 000037 03524   0370  0384  0511
SMF4SEG  00002 000002 03508
SMF4SETM 00001 00006D 03549
SMF4SID  00001 00000E 03513   0196
SMF4SIT  00001 00002B 03520   0322  0626
SMF4SPK  00001 000056 03533   0749
SMF4STID 00004 00002F 03521   0324
SMF4STMN 00008 000042 03528
SMF4STN  00001 00002A 03519
SMF4TME  00001 000006 03511
SMF4UIF  00001 000022 03518
SMF4UTYP 00001 00006D 03543
SMF5ACTF 00001 000078 03612
SMF5CKRE 00001 000048 03596
SMF5DTE  00004 00000A 03568   1207  1229
SMF5JBN  00001 000012 03571
SMF5JBTI 00001 000042 03584
SMF5JCC  00001 000037 03580
SMF5JCPU 00001 000075 03611   1161
SMF5JICL 00001 00004B 03606   1180
SMF5JID  00004 00002F 03577   1192  1206
SMF5JIT  00001 00002B 03576   1185  1209
                                             CROSS-REFERENCE                                                   PAGE   14


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SMF5JPTY 00001 000039 03581   1292
SMF5JSAF 00001 000079 03613
SMF5LEN  00002 000000 03563
SMF5MOD  00001 000010 03570
SMF5NCI  00001 000033 03578
SMF5NST  00001 00002A 03575
SMF5PRGN 00001 000061 03610
SMF5RDCL 00001 000049 03604
SMF5RSD  00004 00001E 03573   1146
SMF5RST  00001 00001A 03572   1139
SMF5RSTD 00004 00003E 03583
SMF5RSTT 00001 00003A 03582
SMF5RSV  00001 000004 03565
SMF5RTY  00001 000005 03566   0258
SMF5RUTY 00001 00004A 03605
SMF5SEG  00002 000002 03564
SMF5SID  00001 00000E 03569
SMF5SMCI 00001 000043 03595
SMF5SPK  00001 00004C 03607
SMF5TLEN 00001 000060 03609
SMF5TME  00001 000006 03567   1208  1228
SMF5UIF  00001 000022 03574
SPSTEPN  00008 000117 03831   0696
STEPCCH  00017 000174 03817
STEPCCHX 00021 000174 03815   0678
STEPCON  00004 000185 03819
STEPCOND 00004 0000EE 03660   0394  0395  0412  0413  0501  0510
STEPEND  00002 0000E6 00270
STEPLN1  00132 000109 03787   0603  3788  3790  3792  3794
STEPLN2  00132 000109 03805   0647  3806  3808  3810  3812  3814  3816  3818
STEPLN3  00132 000109 03829   0690  3830  3832  3834  3836
STEPLN4  00132 000109 03847   0730  3848  3850  3852  3854
STEPNM   00008 000117 03807   0653
STEPNO   00003 000117 03789   0613
STEPXCOL 00132 000E36 02221   0938  2232  2232  3879
SUNIT    00004 000000 03972   1389  1390
SWABND   00005 0001DB 03731   0510
SWABNDH  00006 0001D5 03730   0509  3732  3734
SWELAP   00008 0001CC 03725   0522  0529  0538
SWELAPH  00003 0001C9 03724   0519  3726
SWFLUSH  00007 0001D5 03733   0481
SWHDR    00005 0001A8 03716   0291
SWJOBN   00008 0001AE 03718   0432
SWLEN    00002 0001A4 03710   0293  0558
SWMCSA   00001 000080 03713   0296  0562
SWMCSFLG 00002 0001A6 03711   0295  0295  0296  0561  0561  0562
SWMCSF1  00001 0001A6 03712
SWMCSF2  00001 0001A7 03714
SWPSTEPN 00008 0001C0 03722   0450
SWRC     00004 0001D8 03736   0501
SWRCH    00003 0001D5 03735   0500
SWRTDESC 00004 0001E0 03739   0294
SWSTARS  00011 0001C9 03727   0477  0478  0478  0478
SWSTEPN  00008 0001B7 03720   0446  0449
SWTEXT   00056 0001A8 03715   0289  0290  0290  0290
                                             CROSS-REFERENCE                                                   PAGE   15


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

SWTO     00004 0001A4 03709   0552  0559  0566  3738
SWTOLEN  00001 00003C 03738   0292  0435
SX       00001 000000 03970   1384
SXCOL    00132 00020D 03878   3879
SXCOLFST 00132 00020E 03879   0951
SXCOLLEN 00001 00001A 02225   0952  0959  2040  2230
SXCOLNUM 00001 000005 02230   0838  0945  1032  2027
SXSEG    00026 000000 03971   0854
S1ALCST  00011 00014E 03793   0634
S2PGMST  00011 00014E 03811   0664
S3DPRTY  00015 00014A 03835   0710
S3H1REG  00010 000167 03837   0718
S4CPUTM  00011 000131 03851   0742
S4H1STO  00008 000169 03855   0761
S4PGMNM  00008 000117 03849   0735
S4PKEY   00014 00014B 03853   0753
TCB      00001 000000 03077   3094
TCBABD   00001 000080 03412
TCBABE   00001 000001 03420
TCBABF   00001 000014 03114
TCBABTER 00001 000040 03426
TCBABTRM 00001 000020 03179
TCBABWF  00001 000040 03212
TCBAQE   00004 00009C 03346
TCBATT   00001 000020 03310
TCBCDBL  00001 000008 03107
TCBCIND  00001 000002 03109
TCBCMP   00004 000010 03100
TCBCMPC  00003 000011 03111
TCBCMPF  00001 000010 03101
TCBCMSG  00001 000001 03110
TCBCPP   00001 000020 03104
TCBCPUBN 00001 000001 03315
TCBCREQ  00001 000080 03102
TCBCSTEP 00001 000040 03103
TCBCWTO  00001 000004 03108
TCBDAR   00001 0000AC 03368
TCBDARC  00001 000010 03377
TCBDARD  00001 000020 03374
TCBDARMC 00001 000010 03379
TCBDARO  00001 000008 03382
TCBDAROL 00001 000008 03384
TCBDARP  00001 000080 03369
TCBDARPN 00001 000040 03395   3397
TCBDARS  00001 000040 03371
TCBDARTN 00001 000080 03392   3394
TCBDARWT 00001 000004 03386
TCBDDRND 00001 000008 03404
TCBDEB   00004 000008 03098
TCBDSP   00001 000023 03231
TCBDWSTA 00001 000001 03194
TCBDYDSP 00001 000002 03313
TCBECB   00004 000090 03304
TCBEXSVC 00001 000001 03387
TCBFA    00001 000080 03135   0377  0493
                                             CROSS-REFERENCE                                                   PAGE   16


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBFC    00001 000080 03211
TCBFCD1  00001 000002 03224
TCBFDSOP 00001 000004 03167
TCBFE    00001 000040 03136
TCBFERA  00001 000020 03137
TCBFETXR 00001 000002 03170
TCBFIX   00001 000000 03084
TCBFJMC  00001 000008 03165
TCBFLAG  00001 0000F0 03131
TCBFLGS  00005 00001D 03133
TCBFLGS1 00001 00001D 03134
TCBFLGS2 00001 00001E 03154
TCBFLGS3 00001 00001F 03173
TCBFLGS4 00001 000020 03196
TCBFLGS5 00001 000021 03210
TCBFLREG 00001 000008 03186
TCBFOINP 00001 000080 03155
TCBFRA   00001 000020 03161
TCBFRI   00001 000040 03176
TCBFRO   00001 000010 03219
TCBFRS   00032 000000 03086
TCBFRS0  00008 000000 03087
TCBFRS2  00008 000008 03088
TCBFRS4  00008 000010 03089
TCBFRS6  00008 000018 03090
TCBFS    00001 000002 03149
TCBFSA   00004 000070 03265
TCBFSAB  00003 000071 03270
TCBFSM   00001 000080 03174
TCBFSMC  00001 000010 03163
TCBFSTI  00001 000040 03159
TCBFT    00001 000004 03145
TCBFTCOM 00001 000002 03336
TCBFTDUM 00001 000004 03342
TCBFTETX 00001 000002 03340
TCBFTFLG 00003 000099 03333
TCBFTFL1 00001 000099 03334
TCBFTFL2 00001 00009A 03338
TCBFTFL3 00001 00009B 03341
TCBFTLMP 00001 000098 03332
TCBFTOPN 00001 000004 03339
TCBFTS   00001 000001 03171
TCBFTSYN 00001 000001 03337
TCBFTTOP 00001 000004 03335
TCBFX    00001 000001 03152
TCBGRPH  00001 000020 03118
TCBGRS   00064 000030 03248
TCBGRS0  00004 000030 03249
TCBGRS1  00004 000034 03250
TCBGRS10 00004 000058 03259
TCBGRS11 00004 00005C 03260
TCBGRS12 00004 000060 03261
TCBGRS13 00004 000064 03262
TCBGRS14 00004 000068 03263
TCBGRS15 00004 00006C 03264
                                             CROSS-REFERENCE                                                   PAGE   17


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBGRS2  00004 000038 03251
TCBGRS3  00004 00003C 03252
TCBGRS4  00004 000040 03253
TCBGRS5  00004 000044 03254
TCBGRS6  00004 000048 03255
TCBGRS7  00004 00004C 03256
TCBGRS8  00004 000050 03257
TCBGRS9  00004 000054 03258
TCBGTOFM 00001 000010 03140
TCBHALT  00001 000008 03356
TCBIOBRC 00004 0000BC 03436
TCBIQE   00004 00008C 03302
TCBIWAIT 00001 000008 03418
TCBJLB   00004 000028 03236
TCBJPQ   00004 00002C 03237
TCBJPQB  00003 00002D 03244
TCBJPQF  00001 000080 03243
TCBJSCB  00004 0000B4 03430
TCBJSCBB 00003 0000B5 03434
TCBJSTCA 00003 00007D 03291
TCBJSTCB 00004 00007C 03274
TCBLLS   00004 000024 03232
TCBLMP   00001 000022 03227
TCBLTC   00004 000088 03300
TCBMDIDS 00004 0000B0 03428
TCBMOD91 00001 000080 03115
TCBMPCND 00001 000002 03205
TCBMPCVQ 00001 000004 03204
TCBMSS   00004 000018 03124
TCBMSSB  00003 000019 03128
TCBNDSP1 00001 0000AD 03391
TCBNDSP2 00001 0000AE 03411
TCBNDSP3 00001 0000AF 03423
TCBNDSVC 00001 000020 03415
TCBNDTS  00001 000010 03417
TCBNDUMP 00001 000080 03198
TCBNOCHK 00001 000040 03116
TCBNROC  00001 000018 03126
TCBNSTAE 00001 0000A0 03349
TCBNTC   00004 000080 03295
TCBOLTEP 00001 000002 03121
TCBONDSP 00001 000001 03207
TCBOTC   00004 000084 03298
TCBOWAIT 00001 000004 03419
TCBPART  00001 0000C0 03279
TCBPDUMP 00001 000008 03144
TCBPIBT  00001 00007C 03278
TCBPIE   00004 000004 03097
TCBPKCHG 00001 000002 03190
TCBPKF   00001 00001C 03130
TCBPNDSP 00001 000001 03225
TCBPOOL  00001 000004 03147
TCBPQE   00004 000098 03325   3330
TCBPURGE 00001 00002C 03241
TCBQEL   00001 000070 03266
                                             CROSS-REFERENCE                                                   PAGE   18


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TCBQUIES 00001 000040 03351
TCBRBP   00004 000000 03096
TCBREC   00001 000080 03432
TCBRECDE 00001 0000B4 03431
TCBRETRY 00001 000002 03359
TCBRQENA 00001 000020 03200
TCBRSPND 00001 000010 03400
TCBRSTND 00001 000020 03398
TCBRV001 00004 0000B8 03435
TCBSCAT  00001 000010 03354
TCBSCH   00001 000004 03188
TCBSCHED 00001 000001 03289
TCBSCNDY 00003 0000AD 03388
TCBSER   00001 000040 03199
TCBSIZE  00001 000020 03285
TCBSTAB  00004 0000A0 03348
TCBSTABB 00003 0000A1 03363
TCBSTABE 00001 000080 03350
TCBSTOP  00001 000010 03286
TCBSTP   00001 000004 03222
TCBSTPCT 00001 000095 03317
TCBSTPP  00001 000040 03414
TCBSTPPR 00001 000040 03308
TCBSUPER 00001 000004 03358
TCBSXPK0 00001 000010 03184
TCBSYS   00001 000008 03220
TCBTCB   00004 000074 03271
TCBTCP   00001 000004 03120
TCBTCPP  00001 000008 03119
TCBTCT   00004 0000A4 03364
TCBTCTB  00003 0000A5 03366
TCBTCTRM 00001 000001 03193
TCBTERM  00001 000080 03424
TCBTIO   00004 00000C 03099
TCBTIOTG 00001 000010 03312
TCBTME   00004 000078 03273
TCBTPSP  00001 000004 03407
TCBTRN   00004 000014 03113
TCBTRNB  00003 000015 03123
TCBTSDP  00001 000097 03321
TCBTSFLG 00001 000094 03306
TCBTSLP  00001 000096 03320
TCBTSTSK 00001 000080 03307
TCBUSER  00004 0000A8 03367
TCBUXNDF 00001 000040 03213
TCBUXNDV 00001 000008 03201
TCBVALID 00001 000001 03361
TCBWFC   00001 000020 03217
TCBWRITE 00001 000002 03288
TCBXCTL  00001 000020 03353
TCBZERO  00001 00000F 03132
TIME     00004 0000CC 03650   1460  1464  1466
TIMEND   00004 0000D0 03651
TIMEX    00002 0009EA 01853   0316  0628  0635  0665  0743  1141  1163  1187  1234  1836
TIMEX01  00002 000A4E 01885   1881
                                             CROSS-REFERENCE                                                   PAGE   19


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

TNONDISP 00001 000080 03394
TRSTKINF 00004 000140 02429
VIEFYS   00004 000AAC 01981   1957
WORKA    00001 000000 03638   0157  1382  1458  1595  1757  1827  1925  1952  3962
XELAPS   00011 0000F3 03662   0325  0520  0522  0529  0701
XENDTM   00011 0000FE 03664   0315  0658
XPSTEPNM 00008 0000C4 03649
XSTEPNM  00008 0000BC 03648
XTEPCCH  00021 0000DD 03658   0362  0678
XTEPCCHD 00017 0000DD 03659   0371  0391  0402



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =  3082      SOURCE RECORDS (SYSLIB) =  3077
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, RENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
 4410 PRINTED LINES

F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED XREF,LET,LIST,NCAL,RENT,REUS,REFR
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     CHANGE IEFSD572(IEFQASGN)
IEW0000     INCLUDE CI505(IEFQASGQ,IEFQMRAW)
IEW0000     INCLUDE CI535(IEFSD111)
IEW0000     INCLUDE CI505(IEFYSVMS)


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFACTRT      00    1048
  IEFQASGN    1048     56A
  IEFQASNM    15B8      7E
  IEFQMRAW    1638     1D4
  IEFQMWTO    1810      42
  IEFSD111    1858     268
  CHFILRDW    1AC0     36C
  IEFYS       1E30     17C



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      AAC            IEFYS           IEFYS                       155C            IEFQASNM        IEFQASNM
     157C            IEFSD111        IEFSD111                    17F8            IEFSD111        IEFSD111
     17F4            IEFQMWTO        IEFQMWTO                    1ABC            CHFILRDW        CHFILRDW
     1F90            IEFQASGN        IEFQASGN                    1F94            IEFQMRAW        IEFQMRAW

 ENTRY ADDRESS       00
 TOTAL LENGTH      1FB0

****IEFACTRT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
**MODULE HAS BEEN MARKED REENTERABLE, REUSABLE, AND REFRESHABLE.



























































************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************










          ASP JOB NO. = 0004                                     DATE = 78.240




//SY00ZR08 JOB 1,IEFACTRT,MSGLEVEL=(1,1),




          ELAPSED TIME ON MAIN = ASP1     = 000.08, START TIME = 19.56.27

          DDNAME = SYSMSG                     PRINTED ON PR1     , LINES = 000132
          DDNAME = SYSPRINT                   PRINTED ON PR1     , LINES = 004444
          LINES OUTPUT FOR THIS JOB = 004576

       CARDS FROM MAIN FOR THIS JOB = NONE



























************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************

  SSSSSSSSSSS    YY        YY     22222222222       0000000      ZZZZZZZZZZZZZ   RRRRRRRRRRRR       0000000       88888888888
 SSSSSSSSSSSSS    YY      YY     2222222222222     000000000     ZZZZZZZZZZZZ    RRRRRRRRRRRRR     000000000     8888888888888
 SS         SS     YY    YY      22         22    00       00    ZZ       ZZ     RR         RR    00       00    88         88
 SS                 YY  YY                  22   00         00           ZZ      RR         RR   00         00   88         88
 SS                  YYYY                   22   00         00          ZZ       RR         RR   00         00   88         88
 SSSSSSSSSSSS         YY                   22    00         00         ZZ        RRRRRRRRRRRRR   00         00    88888888888
  SSSSSSSSSSSS        YY                 22      00         00        ZZ         RRRRRRRRRRRR    00         00    88888888888
            SS        YY               22        00         00       ZZ          RR      RR      00         00   88         88
            SS        YY             22          00         00      ZZ           RR       RR     00         00   88         88
 SS         SS        YY           22             00       00      ZZ       ZZ   RR        RR     00       00    88         88
 SSSSSSSSSSSSS        YY         2222222222222     000000000      ZZZZZZZZZZZZ   RR         RR     000000000     8888888888888
  SSSSSSSSSSS         YY         2222222222222      0000000      ZZZZZZZZZZZZZ   RR         RR      0000000       88888888888









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000       666666666666
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000     6666666666666
            JJ   OO         OO   BB         BB                    00       00     00       00     00       00    66
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   66
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   66
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00   666666666666
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00   6666666666666
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   66         66
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00   00         00   66         66
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00     00       00    66         66
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000     6666666666666
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000       66666666666









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










  SSSSSSSSSSS    YY        YY     22222222222       0000000      ZZZZZZZZZZZZZ   RRRRRRRRRRRR       0000000       88888888888
 SSSSSSSSSSSSS    YY      YY     2222222222222     000000000     ZZZZZZZZZZZZ    RRRRRRRRRRRRR     000000000     8888888888888
 SS         SS     YY    YY      22         22    00       00    ZZ       ZZ     RR         RR    00       00    88         88
 SS                 YY  YY                  22   00         00           ZZ      RR         RR   00         00   88         88
 SS                  YYYY                   22   00         00          ZZ       RR         RR   00         00   88         88
 SSSSSSSSSSSS         YY                   22    00         00         ZZ        RRRRRRRRRRRRR   00         00    88888888888
  SSSSSSSSSSSS        YY                 22      00         00        ZZ         RRRRRRRRRRRR    00         00    88888888888
            SS        YY               22        00         00       ZZ          RR      RR      00         00   88         88
            SS        YY             22          00         00      ZZ           RR       RR     00         00   88         88
 SS         SS        YY           22             00       00      ZZ       ZZ   RR        RR     00       00    88         88
 SSSSSSSSSSSSS        YY         2222222222222     000000000      ZZZZZZZZZZZZ   RR         RR     000000000     8888888888888
  SSSSSSSSSSS         YY         2222222222222      0000000      ZZZZZZZZZZZZZ   RR         RR      0000000       88888888888









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000       666666666666
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000     6666666666666
            JJ   OO         OO   BB         BB                    00       00     00       00     00       00    66
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   66
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   66
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00   666666666666
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00   6666666666666
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   66         66
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00   00         00   66         66
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00     00       00    66         66
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000     6666666666666
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000       66666666666









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 ISV40 JOB ORIGIN FROM GROUP=LOCAL   , DSP=CR , DEVICE=RD1     , 00C
//SY20ZR08 JOB 1,IEFTB700,MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
//ASM    EXEC PGM=IEUASM,
//            PARM='DECK,LIST,RENT',REGION=768K
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB,DCB=BLKSIZE=6160,
//            UNIT=SYSDA,VOL=SER=ASPRES
//         DD DISP=SHR,DSN=SYS1.MODGEN,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSUT2   DD DSN=&&SYSUT2,UNIT=SYSDA,SPACE=(1700,(300,50))
//SYSUT3   DD DSN=&&SYSUT3,UNIT=SYSDA,SPACE=(1700,(300,50))
//SYSPRINT DD SYSOUT=A
//SYSLIN   DD DUMMY
//SYSGO    DD DUMMY
//SYSPUNCH DD DSN=&&OBJSET,UNIT=SYSDA,SPACE=(80,(200,50)),
//            DISP=(MOD,PASS)
//SYSIN    DD *
//*
//LKED   EXEC PGM=IEWL,
//            REGION=200K,COND=(4,LT,ASM),
//            PARM='NCAL,LIST,XREF,LET,RENT,REFR,REUS,MAP'
//SYSLMOD  DD DISP=OLD,UNIT=SYSDA,VOL=SER=ASPRES,DSN=SYS1.LINKLIB
//SYSPUNCH DD DSN=&&OBJSET,DISP=(OLD,DELETE)
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(50,20))
//SYSPRINT DD SYSOUT=A
//SYSLIN   DD *
//




 SY20ZR08 IEF403I SY20ZR08 STARTED    TIME=19.56.55
 SY20ZR08 IEF234E D 665,ASP665
*SY20ZR08*09 IECASP0 666 IS SY20ZR08           ASM     ASPI0001
 SY20ZR08 IEC202E K 666,010006,NL,SY20ZR08,ASM
*SY20ZR08*10 IECASP0 665 IS SY20ZR08 A         ASM     SYSPRINT
 SY20ZR08 IEF234E D 665,ASP665
*SY20ZR08*11 IECASP0 665 IS SY20ZR08 A         LKED    SYSPRINT
*SY20ZR08*12 IECASP0 666 IS SY20ZR08           LKED    ASPI0002
 SY20ZR08 IEC202E K 666,020006,NL,SY20ZR08,LKED
 SY20ZR08 STEP: SY20ZR08 LKED              ET=00.00.00 RC=0000
 SY20ZR08 IEF404I SY20ZR08 ENDED      TIME=19.56.56
//SY20ZR08 JOB 1,IEFTB700,MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
//ASM    EXEC PGM=IEUASM,
//            PARM='DECK,LIST,RENT',REGION=768K
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB,DCB=BLKSIZE=6160,
//            UNIT=SYSDA,VOL=SER=ASPRES
//         DD DISP=SHR,DSN=SYS1.MODGEN,UNIT=SYSDA,VOL=SER=ASPDLB
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSUT2   DD DSN=&&SYSUT2,UNIT=SYSDA,SPACE=(1700,(300,50))
//SYSUT3   DD DSN=&&SYSUT3,UNIT=SYSDA,SPACE=(1700,(300,50))
//SYSPRINT DD SYSOUT=A
//SYSLIN   DD DUMMY
//SYSGO    DD DUMMY
//SYSPUNCH DD DSN=&&OBJSET,UNIT=SYSDA,SPACE=(80,(200,50)),
//            DISP=(MOD,PASS)
//SYSIN DD UNIT=(CTC,,DEFER),DSNAME=&&ASPI0001,                        *
// DISP=(OLD,DELETE),VOL=SER=010006,DCB=(LRECL=80,BLKSIZE=80,RECFM=F)
***
IEF236I ALLOC. FOR SY20ZR08 ASM
IEF237I 150   ALLOCATED TO SYSLIB
IEF237I 250   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 159   ALLOCATED TO SYSPUNCH
IEF237I 666   ALLOCATED TO SYSIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS1.MODGEN                                  KEPT
IEF285I   VOL SER NOS= ASPDLB.
IEF285I   SYS78240.T195655.RV001.SY20ZR08.SYSUT1       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T195655.RV001.SY20ZR08.SYSUT2       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T195655.RV001.SY20ZR08.SYSUT3       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T195655.RV001.SY20ZR08.ASPOA001     DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS78240.T195655.RV001.SY20ZR08.OBJSET       PASSED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T195655.RV001.SY20ZR08.ASPI0001     DELETED
IEF285I   VOL SER NOS= 010006.
IEF373I STEP /ASM     / START 78240.1956
IEF374I STEP /ASM     / STOP  78240.1956 CPU   0MIN 00.60SEC MAIN 544K LCS   0K
//LKED   EXEC PGM=IEWL,
//            REGION=200K,COND=(4,LT,ASM),
//            PARM='NCAL,LIST,XREF,LET,RENT,REFR,REUS,MAP'
//SYSLMOD  DD DISP=OLD,UNIT=SYSDA,VOL=SER=ASPRES,DSN=SYS1.LINKLIB
//SYSPUNCH DD DSN=&&OBJSET,DISP=(OLD,DELETE)
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(50,20))
//SYSPRINT DD SYSOUT=A
//SYSLIN DD UNIT=(CTC,,DEFER),DSNAME=&&ASPI0002,                       *
// DISP=(OLD,DELETE),VOL=SER=020006,DCB=(LRECL=80,BLKSIZE=80,RECFM=F)
//
IEF236I ALLOC. FOR SY20ZR08 LKED
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 159   ALLOCATED TO SYSPUNCH
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 666   ALLOCATED TO SYSLIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T195655.RV001.SY20ZR08.OBJSET       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T195655.RV001.SY20ZR08.SYSUT1       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T195655.RV001.SY20ZR08.ASPOA002     DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS78240.T195655.RV001.SY20ZR08.ASPI0002     DELETED
IEF285I   VOL SER NOS= 020006.
IEF373I STEP /LKED    / START 78240.1956
IEF374I STEP /LKED    / STOP  78240.1956 CPU   0MIN 00.15SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:56:56.24   ALLOC START    19:56:56.25   MAIN REGION ----- 200K                          *
*   STEP NAME LKED       STEP END TIME  19:56:56.54   PGM START TIME 19:56:56.29   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.30   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.15   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0150 ---------- 102       0159 ----------- 12       0158 ----------- 22       0665 ---------- 165       0666 ------------ 9    *
************************************************************************************************************************************

IEF375I  JOB /SY20ZR08/ START 78240.1956
IEF376I  JOB /SY20ZR08/ STOP  78240.1956 CPU   0MIN 00.75SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  SY20ZR08   JOB READ TIME 19:56:55.03   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.75   *
*   JOB CLASS B          JOB INIT TIME 19:56:55.25   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.30   *
*   JOB ID    JOB00006   JOB END TIME  19:56:56.55   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 2   *
************************************************************************************************************************************


  SSSSSSSSSSS    YY        YY     22222222222       0000000      ZZZZZZZZZZZZZ   RRRRRRRRRRRR       0000000       88888888888
 SSSSSSSSSSSSS    YY      YY     2222222222222     000000000     ZZZZZZZZZZZZ    RRRRRRRRRRRRR     000000000     8888888888888
 SS         SS     YY    YY      22         22    00       00    ZZ       ZZ     RR         RR    00       00    88         88
 SS                 YY  YY                  22   00         00           ZZ      RR         RR   00         00   88         88
 SS                  YYYY                   22   00         00          ZZ       RR         RR   00         00   88         88
 SSSSSSSSSSSS         YY                   22    00         00         ZZ        RRRRRRRRRRRRR   00         00    88888888888
  SSSSSSSSSSSS        YY                 22      00         00        ZZ         RRRRRRRRRRRR    00         00    88888888888
            SS        YY               22        00         00       ZZ          RR      RR      00         00   88         88
            SS        YY             22          00         00      ZZ           RR       RR     00         00   88         88
 SS         SS        YY           22             00       00      ZZ       ZZ   RR        RR     00       00    88         88
 SSSSSSSSSSSSS        YY         2222222222222     000000000      ZZZZZZZZZZZZ   RR         RR     000000000     8888888888888
  SSSSSSSSSSS         YY         2222222222222      0000000      ZZZZZZZZZZZZZ   RR         RR      0000000       88888888888









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000       666666666666
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000     6666666666666
            JJ   OO         OO   BB         BB                    00       00     00       00     00       00    66
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   66
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   66
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00   666666666666
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00   6666666666666
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   66         66
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00   00         00   66         66
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00     00       00    66         66
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000     6666666666666
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000       66666666666









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    PPPPPPPPPPPP    RRRRRRRRRRRR    IIIIIIIIIIII    NN         NN   TTTTTTTTTTTT
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRRR   IIIIIIIIIIII    NNN        NN   TTTTTTTTTTTT
 SS         SS     YY    YY      SS         SS   PP         PP   RR         RR        II         NNNN       NN        TT
 SS                 YY  YY       SS              PP         PP   RR         RR        II         NN NN      NN        TT
 SS                  YYYY        SS              PP         PP   RR         RR        II         NN  NN     NN        TT
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    PP         PP   RRRRRRRRRRRRR        II         NN   NN    NN        TT
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRR         II         NN    NN   NN        TT
            SS        YY                    SS   PPPPPPPPPPPP    RR      RR           II         NN     NN  NN        TT
            SS        YY                    SS   PP              RR       RR          II         NN      NN NN        TT
 SS         SS        YY         SS         SS   PP              RR        RR         II         NN       NNNN        TT
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   PP              RR         RR   IIIIIIIIIIII    NN        NNN        TT
  SSSSSSSSSSS         YY          SSSSSSSSSSS    PP              RR         RR   IIIIIIIIIIII    NN         NN        TT











                                              EXTERNAL SYMBOL DICTIONARY                                       PAGE    1
SYMBOL   TYPE ID  ADDR  LENGTH LD ID                                                                      19.56  8/28/78


IEFTB700  SD  01 000000 000118
IEFACTRT  LD     000000         01
           IEFTB700 - INTERFACE TO IEFACTRT                                                                    PAGE    1


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                      2 ***********************************************************************
                                      3 *                                                                     *
                                      4 *                                                                     *
                                      5 * Module name          =  IEFTB700                                    *
                                      6 *                                                                     *
                                      7 *                                                                     *
                                      8 * Descriptive name     =  Interface to IEFACTRT.                      *
                                      9 *                                                                     *
                                     10 *                                                                     *
                                     11 * Function             =  To replace the IBM-supplied IEFACTRT        *
                                     12 *                         module in IEFSD061, and link dynamically    *
                                     13 *                         to a user-supplied IEFACTRT module in       *
                                     14 *                         LPA or a linklist library.                  *
                                     15 *                                                                     *
                                     16 *                                                                     *
                                     17 * Notes                =  See below.                                  *
                                     18 *                                                                     *
                                     19 *   Dependencies       =  None.                                       *
                                     20 *                                                                     *
                                     21 *   Registers          =  Not documented.                             *
                                     22 *                                                                     *
                                     23 *   Patch space        =  None.                                       *
                                     24 *                                                                     *
                                     25 *                                                                     *
                                     26 * Module type          =  CSECT                                       *
                                     27 *                                                                     *
                                     28 *   Processor          =  OS System Assembler                         *
                                     29 *                                                                     *
                                     30 *   Module size        =  See assembly listing.                       *
                                     31 *                                                                     *
                                     32 *   Attributes         =                                              *
                                     33 *     Location         =  Part of IEFSD061 load module                *
                                     34 *     State            =  Supervisor                                  *
                                     35 *     Key              =  Zero                                        *
                                     36 *     Mode             =  Task                                        *
                                     37 *     Serialization    =  None                                        *
                                     38 *     Type             =  Reentrant                                   *
                                     39 *                                                                     *
                                     40 *                                                                     *
                                     41 ***********************************************************************
           IEFTB700 - INTERFACE TO IEFACTRT                                                                    PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     43 ******************************************************************
                                     44 *                                                                *
                                     45 *        Define external symbols and register equates.           *
                                     46 *                                                                *
                                     47 ******************************************************************

000000                               49 IEFTB700 CSECT
000000                               50 IEFACTRT EQU   IEFTB700
                                     51          ENTRY IEFACTRT

000000                               53 R0       EQU    0
000001                               54 R1       EQU    1
000002                               55 R2       EQU    2
000003                               56 R3       EQU    3
000004                               57 R4       EQU    4
000005                               58 R5       EQU    5
000006                               59 R6       EQU    6
000007                               60 R7       EQU    7
000008                               61 R8       EQU    8
000009                               62 R9       EQU    9
00000A                               63 R10      EQU   10
00000B                               64 R11      EQU   11
00000C                               65 R12      EQU   12
00000D                               66 R13      EQU   13
00000E                               67 R14      EQU   14
00000F                               68 R15      EQU   15
           IEFTB700 - INTERFACE TO IEFACTRT                                                                    PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     70 *----------------------------------------------------------------*
                                     71 *        Program initialization.                                 *
                                     72 *----------------------------------------------------------------*
                                     73          SAVE  (14,12),,*          Save caller's registers
000000 47F0 F00E            0000E    74+         B     14(0,15) BRANCH AROUND ID
000004 08                            75+         DC    AL1(8)
000005 C9C5C6E3C2F7F0F0              76+         DC    CL8'IEFTB700' IDENTIFIER
00000D 00
00000E 90EC D00C            0000C    77+         STM   14,12,12(13) SAVE REGISTERS
000012 18BF                          78          LR    R11,R15             Set base register
000000                               79          USING IEFTB700,R11        Addressability for program
           IEFTB700 - INTERFACE TO IEFACTRT                                                                    PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                     81 *----------------------------------------------------------------*
                                     82 *        Get storage for work area.                              *
                                     83 *----------------------------------------------------------------*
000014 4100 0090            00090    84          LA    R0,LWORKA           Set length for GETMAIN
                                     85          GETMAIN R,LV=(0)          Get work area storage
000018 4510 B01C            0001C    86+         BAL   1,*+4 INDICATE GETMAIN
00001C 0A0A                          87+         SVC   10 ISSUE GETMAIN SVC
00001E 1831                          88          LR    R3,R1               Set work area base address
000000                               89          USING WORKA,R3            Addressability for work area

                                     91 *----------------------------------------------------------------*
                                     92 *        Initialize for active LPA queue search.                 *
                                     93 *----------------------------------------------------------------*
000020 4110 B108            00108    94          LA    R1,KACTRT           Point to module name
000024 58F0 0010            00010    95          L     R15,CVTPTR          Get CVT address
000000                               96          USING CVTMAP,R15          Addressability for CVT
000028 58F0 F0BC            000BC    97          L     R15,CVTQLPAQ        Get active LPAQ address
                                     98          DROP  R15                 End CVT addressability

                                    100 *----------------------------------------------------------------*
                                    101 *        Loop searching active LPA queue for IEFACTRT.           *
                                    102 *----------------------------------------------------------------*
00002C                              103 LPAQLOOP DS    0H                  Top of LPA queue search loop
00002C 12FF                         104          LTR   R15,R15             End of LPAQ?
00002E 4780 B07E            0007E   105          BZ    CKLINK              Yes, module not found in LPA
000032 D507 F008 1000 00008 00000   106          CLC   8(8,R15),0(R1)      Is this CDE for module?
000038 4780 B048            00048   107          BE    LPAFOUND            Yes, module found in LPA
00003C 58F0 F000            00000   108          L     R15,0(,R15)         Else point to next CDE on chain
000040 41F0 F000            00000   109          LA    R15,0(,R15)         Clear high-order byte
000044 47F0 B02C            0002C   110          B     LPAQLOOP            Back to look at next CDE

                                    112 *----------------------------------------------------------------*
                                    113 *        IEFACTRT was found in active LPA queue.  Point          *
                                    114 *        R13 to our save area, chain save areas and link         *
                                    115 *        to IEFACTRT.                                            *
                                    116 *----------------------------------------------------------------*
000048                              117 LPAFOUND DS    0H                  Found IEFACTRT in LPA
000048 41F0 3088            00088   118          LA    R15,LINKPRM         Point to LINK parm list
00004C 18ED                         119          LR    R14,R13             Save caller's save area address
00004E 41D0 3040            00040   120          LA    R13,SAVEA           Point to our save area
000052 50E0 D004            00004   121          ST    R14,4(,R13)         Chain
000056 50D0 E008            00008   122          ST    R13,8(,R14)          save areas
00005A D207 3088 B110 00088 00110   123          MVC   LINKPRM,MLINKPRM    Copy model LINK parm list
000060 9801 E014            00014   124          LM    R0,R1,20(R14)       Restore R0-R1 at entry
000064 984A E024            00024   125          LM    R4,R10,36(R14)      Restore R4-R10 at entry
000068 41E0 B108            00108   126          LA    R14,KACTRT          Get EPLOC address
00006C 50E0 F000            00000   127          ST    R14,0(,R15)         Store in LINK parm list
                                    128          LINK  SF=(E,(15))         Link to IEFACTRT
000070 0A06                         129+         SVC   6 ISSUE LINK SVC

                                    131 *----------------------------------------------------------------*
                                    132 *        Back from IEFACTRT.  Unchain save areas and save        *
                                    133 *        R15 - R0 returned by IEFACTRT in our caller's save      *
                                    134 *        area.  Then go to free work area and exit.              *
                                    135 *----------------------------------------------------------------*
           IEFTB700 - INTERFACE TO IEFACTRT                                                                    PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

000072 58D0 D004            00004   136          L     R13,4(,R13)         Restore save area pointer
000076 90F1 D010            00010   137          STM   R15,R1,16(R13)      Save R15 through R1
00007A 47F0 B0E8            000E8   138          B     FREEWORK            Go free work area and exit

                                    140 *----------------------------------------------------------------*
                                    141 *        IEFACTRT was not found in LPA.  Issue BLDL against      *
                                    142 *        link list.                                              *
                                    143 *----------------------------------------------------------------*
00007E                              144 CKLINK   DS    0H
00007E 58F0 0010            00010   145          L     R15,CVTPTR          Get CVT address
000000                              146          USING CVTMAP,R15          Addressability for CVT
000082 5810 F008            00008   147          L     R1,CVTLINK          Get link list DCB address
                                    148          DROP  R15                 End CVT addressability
000086 D73F 3000 3000 00000 00000   149          XC    BLDLAREA,BLDLAREA   Zero BLDL list area
00008C 4100 0001            00001   150          LA    R0,1                Set entry count
000090 4000 3000            00000   151          STH   R0,BLDLCC            in list
000094 4100 003A            0003A   152          LA    R0,58               Set entry length
000098 4000 3002            00002   153          STH   R0,BLDLLL            in list
00009C D207 3004 B108 00004 00108   154          MVC   BLDLNAME,KACTRT     Set module name in list
0000A2 4100 3000            00000   155          LA    R0,BLDLAREA         Point to BLDL list area
                                    156          BLDL  (1),(0)             Issue BLDL
0000A6 4111 0000            00000   157+         LA    1,0(1)
0000AA 0A12                         158+         SVC   18 LINK TO BLDL ROUTINE
0000AC 12FF                         159          LTR   R15,R15             Was module found in link list?
0000AE 4770 B0FA            000FA   160          BNZ   NOTFOUND            Skip link if not

                                    162 *----------------------------------------------------------------*
                                    163 *        IEFACTRT was found in a link list library.              *
                                    164 *        Point R13 to our save area, chain save areas            *
                                    165 *        and link to IEFACTRT.                                   *
                                    166 *----------------------------------------------------------------*
0000B2 4120 3004            00004   167          LA    R2,BLDLAREA+4       Point to list entry
0000B6 41F0 3088            00088   168          LA    R15,LINKPRM         Point to link parm list
0000BA 18ED                         169          LR    R14,R13             Save caller's save area address
0000BC 41D0 3040            00040   170          LA    R13,SAVEA           Point to our save area
0000C0 50E0 D004            00004   171          ST    R14,4(,R13)         Chain
0000C4 50D0 E008            00008   172          ST    R13,8(,R14)          save areas
0000C8 D207 3088 B110 00088 00110   173          MVC   LINKPRM,MLINKPRM    Copy model LINK parm list
0000CE 9801 E014            00014   174          LM    R0,R1,20(R14)       Restore R0-R1 at entry
0000D2 984A E024            00024   175          LM    R4,R10,36(R14)      Restore R4-R10 at entry
                                    176          LINK  DE=(R2),            Link                                +
                                                       SF=(E,(15))          to IEFACTRT
0000D6 5020 F000            00000   177+         ST    R2,0(0,15) STORE IN SUP.PARAMLIST
0000DA 9280 F000      00000         178+         MVI   0(15),X'80' SET DE SWITCH BIT ON
0000DE 0A06                         179+         SVC   6 ISSUE LINK SVC

                                    181 *----------------------------------------------------------------*
                                    182 *        Back from IEFACTRT.  Unchain save areas and save        *
                                    183 *        R15 - R0 returned by IEFACTRT in our caller's save      *
                                    184 *        area.                                                   *
                                    185 *----------------------------------------------------------------*
0000E0 58D0 D004            00004   186          L     R13,4(,R13)         Restore save area pointer
0000E4 90F1 D010            00010   187          STM   R15,R1,16(R13)      Save R15 through R1

                                    189 *----------------------------------------------------------------*
           IEFTB700 - INTERFACE TO IEFACTRT                                                                    PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    190 *        Free work area storage.                                 *
                                    191 *----------------------------------------------------------------*
0000E8                              192 FREEWORK DS    0H
0000E8 4100 0090            00090   193          LA    R0,LWORKA           Set length for FREEMAIN
0000EC 1813                         194          LR    R1,R3               Set address for FREEMAIN
                                    195          FREEMAIN R,LV=(0),A=(1)   Free work area storage
0000EE 4111 0000            00000   196+         LA    1,0(1) CLEAR THE HIGH ORDER BYTE
0000F2 0A0A                         197+         SVC   10 ISSUE FREEMAIN SVC         P2504
                                    198          DROP  R3                  End work area addressability

                                    200 *----------------------------------------------------------------*
                                    201 *        Restore caller's registers and return.                  *
                                    202 *----------------------------------------------------------------*
0000F4                              203 RETURN   DS    0H                  Return to caller
                                    204          RETURN (14,12)            Restore registers and return
0000F4 98EC D00C            0000C   205+         LM    14,12,12(13) RESTORE THE REGISTERS
0000F8 07FE                         206+         BR    14 RETURN

                                    208 *----------------------------------------------------------------*
                                    209 *        IEFACTRT was not found.  Zero R15 and R1 in caller's    *
                                    210 *        save area to permit current job to continue and SMF     *
                                    211 *        record to be written, then go to exit.                  *
                                    212 *----------------------------------------------------------------*
0000FA                              213 NOTFOUND DS    0H                  IEFACTRT not found
0000FA 17FF                         214          XR    R15,R15             Get a zero
0000FC 50F0 D010            00010   215          ST    R15,16(,R13)        Zero returned R15
000100 50F0 D018            00018   216          ST    R15,24(,R13)         and returned R1
000104 47F0 B0F4            000F4   217          B     RETURN              Go return to caller
           IEFTB700 - INTERFACE TO IEFACTRT                                                                    PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    219 *----------------------------------------------------------------*
                                    220 *        Constants and literals.                                 *
                                    221 *----------------------------------------------------------------*
000108 C9C5C6C1C3E3D9E3             222 KACTRT   DC    CL8'IEFACTRT'       Name for module search
                                    223 MLINKPRM LINK  SF=L                Model LINK parm list
000110                              224+         DS    0F
000110 00000000                     225+MLINKPRM DC    A(0) SUPERVISOR PARAMETER
000114 00000000                     226+         DC    A(0) DCB ADDRESS PARAMETER       LC0A
000008                              227 LLINKPRM EQU   *-MLINKPRM          Length of LINK parm list
000118                              228          LTORG ,                   Literal pool

                                    230 *----------------------------------------------------------------*
                                    231 *        Getmained work area.                                    *
                                    232 *----------------------------------------------------------------*
000000                              233 WORKA    DSECT ,                   Getmained work area
000000                              234 BLDLAREA DS    CL64                Area for BLDL list
000000                              235          ORG   BLDLAREA            Remap BLDL list
000000                              236 BLDLCC   DS    H                   -- BLDL entry count
000002                              237 BLDLLL   DS    H                   -- BLDL entry length
000004                              238 BLDLNAME DS    CL8                 -- BLDL member name
000040                              239          ORG   ,
000040                              240 SAVEA    DS    18F                 Program save area
000088                              241          DS    0F                  Force fullword alignment
000088                              242 LINKPRM  DS    CL(LLINKPRM)        Area for LINK parm list
000090                              243          DS    0D                  Force doubleword alignment
000090                              244 LWORKA   EQU   *-WORKA             Symbolic length of work area
           IEFTB700 - INTERFACE TO IEFACTRT                                                                    PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    246 *----------------------------------------------------------------*
                                    247 *        Map the CVT.                                            *
                                    248 *----------------------------------------------------------------*
000000                              249 CVT      DSECT ,                   Begin CVT DSECT
                                    250          CVT   SYS=MVT             Map CVT
                                    251+*
                                    252+*              OS/360
                                    253+*        COMMUNICATION VECTOR TABLE
                                    254+*
                                    255+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5
                                    256+*
000010                              257+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT
                                    258+*
                                    259+*              BEGINNING OF CVT PROPER
                                    260+*
000000                              261+         DS    0F
000000                              262+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE
                                    263+*
000000 00000000                     264+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST
000004 00000000                     265+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE
                                    266+*                              ASYNCHRONOUS EXITS
000008 00000000                     267+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB
00000C 00000000                     268+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB
000010 00000000                     269+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT
                                    270+*                              CONSOLE INTERRUPTION ROUTINE
000014 00000000                     271+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE
000018 00000000                     272+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING
                                    273+*                              ROUTINE FOR SUPERVISOR
00001C 00000000                     274+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                    275+*                              RELATIVE TRACK ADDR TO ABSOLUTE
000020 00000000                     276+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING
                                    277+*                              ABSOLUTE TRACK ADDR TO RELATIVE
000024 00000000                     278+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION
                                    279+*                              IN UCB LOOKUP TABLE
000028 00000000                     280+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION
                                    281+*                              IN UCB LOOKUP TABLE
00002C 00000000                     282+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE
                                    283+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES
000030 00000000                     284+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY
                                    285+*                              IN UCB LOOKUP TABLE
000034 00000000                     286+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE
000038 00000000                     287+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL
00003C 00000000                     288+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)
                                    289+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS
                                    290+*                              MASTER SCHEDULER RESIDENT DATA AREA
000040 00000000                     291+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE
000044 00000000                     292+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE
000048 00000000                     293+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS
                                    294+*                              FOR DAMAGE ASSESSMENT ROUTINES
00004C 00000000                     295+CVT0FN00 DC    A(0) -        RESERVED (MVT)
000050 0A03                         296+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER
000052 07FE                         297+CVTBRET  BR    14 -          RETURN TO CALLER
000054 00000000                     298+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB
000058 00000000                     299+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER
                                    300+*                              ROUTINE (SHPC FIRST)
           IEFTB700 - INTERFACE TO IEFACTRT                                                                    PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

00005C 00000000                     301+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL
000060 00000000                     302+CVTSJQ   DC    A(0) -        RESERVED (MVT)
000064 00000000                     303+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR
000068 00000000                     304+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE
                                    305+*                              FOR INTERVAL TIMER
00006C 00000000                     306+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE
                                    307+*                              FOR INTERVAL TIMER
000070 00000000                     308+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE
000074 10                           309+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM
000040                              310+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS
000020                              311+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS
000010                              312+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1
000004                              313+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING
000075 000000                       314+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC
000078 00000000                     315+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE
00007C 00000000                     316+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER
000080 00000000                     317+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS
000084 00000000                     318+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE
000088 00000000                     319+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER
00008C 00000000                     320+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE
000090 00000000                     321+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE
000094 00000000                     322+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT
                                    323+*                              DATA AREA (MVT/MFT)
000098 00000000                     324+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE
00009C 00000000                     325+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE
0000A0 00000000                     326+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE
0000A4 00000000                     327+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS
0000A8 00000000                     328+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)
0000AC 00000000                     329+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD
                                    330+*                              (0 IF GFX INACTIVE) MVT
0000B0 00000000                     331+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA
                                    332+*                              (MVT/MFT)
0000B4 0000                         333+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER
0000B6 00                           334+CVTOPTA  DC    AL1(00) -     MISCELLANEOUS FLAGS
000080                              335+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)
000040                              336+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --
                                    337+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000020                              338+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --
                                    339+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)
000010                              340+CVTNIP   EQU   X'10' -       NIP RUNNING
000008                              341+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)
000004                              342+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE
000002                              343+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT
000001                              344+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT
0000B7 00                           345+CVTOPTB  DC    AL1(00) - MISCELLANEOUS FLAGS
000080                              346+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)
000020                              347+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)
                                    348+*
                                    349+*              PCP OVERLAY
                                    350+*
0000B8                              351+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART
0000BB                              352+CVTSTUSA DS    B -           STATUS BYTE A
000008                              353+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART
                                    354+*                              WAS INITIATED INTRASTEP
000004                              355+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART
           IEFTB700 - INTERFACE TO IEFACTRT                                                                    PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

                                    356+*                              WAS INITIATED INTERSTEP
000002                              357+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM
                                    358+*                              AND DATA HAS NOT BEEN READ
0000BC                              359+         DS    CL2 -         RESERVED
0000BE                              360+         DS    CL2 -         RESERVED
                                    361+*
                                    362+*              MVT/MFT OVERLAY
                                    363+*
0000B8                              364+         ORG   CVTCRTTR
                                    365+*
0000B8 00000000                     366+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR
0000BC 00000000                     367+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE
                                    368+*
                                    369+*              END OF OVERLAYS
                                    370+*
0000C0 00000000                     371+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)
0000C4 00000000                     372+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA
0000C8 00000000                     373+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT
                                    374+*                              (MVT/MPS)
0000CC 00000000                     375+CVTUSER  DC    A(0) -        A WORD TO THE USER
                                    376+*
                                    377+*              MFT/MVT CVT EXTENSION
                                    378+*
0000D0 00000000                     379+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT
0000D4 0A0D                         380+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)
0000D6 0A06                         381+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)
0000D8 00000000                     382+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT
0000DC 00000000                     383+CVTPATCH DC    A(0) -        ADDR OF FE PATCH AREA
0000E0 00000000                     384+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA
                                    385+*                              (MVT/MFT)
0000E4                              386+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)
0000E4 00                           387+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)
000080                              388+CVTTSRDY EQU   X'80' -       TIME SHARING READY
0000E5 000000                       389+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)
0000E8 00000000                     390+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)
0000EC                              391+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)
0000EC 00                           392+CVTGTFST DC    B'0' -        STATUS FLAGS
0000C0                              393+CVTGTFS  EQU   X'C0' -       STATE
                                    394+*/       00    CVTGTFIN      INACTIVE
                                    395+*/       01    CVTGTFSR      STARTING
                                    396+*/       10    CVTGTFSP      STOPPING
                                    397+*/       11    CVTGTFAC      ACTIVE
000020                              398+CVTSTATE EQU   X'20' -       IN CONTROL
000010                              399+CVTMODE  EQU   X'10' -       EXT MODE
000008                              400+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA
000004                              401+CVTUSR   EQU   X'04' -       USR TRACE
000002                              402+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID
0000ED 000000                       403+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE
0000F0                              404+CVTTCMFG DS    0B -          TCAM FLAGS
000080                              405+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)
0000F0 00000000                     406+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF
                                    407+*                            TCAM ADDRESS VECTOR TABLE
                                    408+*
                                    409+*              MVT CVT EXTENSION
                                    410+*
           IEFTB700 - INTERFACE TO IEFACTRT                                                                    PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                            F04MAR74   8/28/78

0000F4                              411+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE
                                    412+*                            (PWF)                               S21167
0000F4 80                           413+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY
                                    414+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167
000080                              415+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167
0000F5 000000                       416+CVTVOLT2 DC    AL3(0) -  PWF RECHECK TIME DELAY.  THIS VALUE IS
                                    417+*                            OVERLAID BY CVTVOLM2 AFTER PWF
                                    418+*                            INITIALIZATION                      S21167
0000F8 00000000                     419+         DC    A(0) -        RESERVED
                                    420+*
                                    421+*              MVT/MFT CVT EXTENSION
                                    422+*
0000FC 00000114                     423+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1
                                    424+*                            (ICB421)                APAR'S 47331,47332
000100                              425+         DS    F -           RESERVED
000104                              426+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE
000104                              427+         DS    X -           RESERVED
000105 000000                       428+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE
000108                              429+         DS    F -           RESERVED
00010C                              430+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307
00010C                              431+         DS    X -           RESERVED                            ICB307
00010D 000000                       432+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND
                                    433+*                            COMMUNICATION AREA                  ICB307
000110                              434+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308
000110                              435+         DS    X -           RESERVED                            ICB308
000111 000000                       436+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY
                                    437+*                            ROUTINE                             ICB308
                                    438+*
                                    439+*              COMMON EXTENSION 1
                                    440+*              ADDRESS OF EXTENSION IS IN CVTEXT1
                                    441+*
                                    442+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,
                                    443+*              YOU SHOULD CODE -
                                    444+*
                                    445+*              L     REG,CVTEXT1
                                    446+*              USING CVTXTNT1,REG
                                    447+*
                                    448+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.
                                    449+*
000114                              450+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1
                                    451+*                            (ICB421)                APAR'S 47331,47332
000114 00000000                     452+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS
                                    453+*                            (ISAM) (ICB421)         APAR'S 47331,47332
                                    454+*
                                    455+*              END OF CVT PROPER
                                    456+*
                                    457+*
                                    458+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT
                                    459+*
                                    460          END   ,
                                             CROSS-REFERENCE                                                   PAGE    1


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

BLDLAREA 00064 000000 00234   0149  0149  0155  0167  0235
BLDLCC   00002 000000 00236   0151
BLDLLL   00002 000002 00237   0153
BLDLNAME 00008 000004 00238   0154
CKLINK   00002 00007E 00144   0105
CVT      00001 000000 00249
CVTABEND 00004 0000C8 00373
CVTAPR   00001 000040 00336
CVTAQAVT 00004 0000F0 00406
CVTASCII 00001 000002 00343
CVTATTCH 00001 000008 00341
CVTBRET  00002 000052 00297
CVTBTERM 00004 000034 00286
CVTBUF   00004 000010 00269
CVTCCH   00001 000080 00335
CVTCHPTR 00001 000008 00353
CVTCMT   00003 0000ED 00403
CVTCRTTR 00003 0000B8 00351   0364
CVTCUCB  00004 000064 00303
CVTDAR   00004 000048 00293
CVTDATA  00001 000002 00357
CVTDATE  00004 000038 00287
CVTDCB   00001 000074 00309
CVTDCBA  00003 000075 00314
CVTDDR   00001 000020 00338
CVTDMSR  00004 000110 00434
CVTDMSRA 00003 000111 00436
CVTEXIT  00002 000050 00296
CVTEXT1  00004 0000FC 00423
CVTFACHN 00004 000114 00452
CVTFBOSV 00004 000084 00318
CVTFORM  00001 000008 00400
CVTGTF   00004 0000EC 00391
CVTGTFS  00001 0000C0 00393
CVTGTFST 00001 0000EC 00392
CVTHEAD  00004 0000A0 00326
CVTHIAR  00001 000004 00342
CVTIERLC 00004 000090 00321
CVTILCH  00004 00008C 00320
CVTILK1  00004 000024 00278
CVTILK2  00004 000028 00280
CVTIOQET 00004 000078 00315
CVTIXAVL 00004 00007C 00316
CVTJOB   00004 00000C 00268
CVTLINK  00004 000008 00267   0147
CVTLNKSC 00002 0000D6 00381
CVTMAP   00001 000000 00262   0096  0146
CVTMCTYP 00001 000002 00402
CVTMDLDS 00004 0000D0 00379
CVTMODE  00001 000010 00399
CVTMPCVT 00004 0000C0 00371
CVTMSER  00004 000094 00322
CVTMSLT  00004 00003C 00288
CVTMZ00  00004 0000A4 00327
CVTNIP   00001 000010 00340
                                             CROSS-REFERENCE                                                   PAGE    2


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVTNUCB  00004 000080 00317
CVTOPTA  00001 0000B6 00334
CVTOPTB  00001 0000B7 00345
CVTPATCH 00004 0000DC 00383
CVTPBLDL 00004 00005C 00301
CVTPCNVT 00004 00001C 00274
CVTPRLTV 00004 000020 00276
CVTPROT  00001 000080 00346
CVTPTR   00001 000010 00257   0095  0145
CVTPURG  00004 000104 00426
CVTPURGA 00003 000105 00428
CVTQABST 00002 0000D4 00380
CVTQCDSR 00004 0000B8 00366
CVTQLPAQ 00004 0000BC 00367   0097
CVTQMSG  00004 00010C 00430
CVTQMSGA 00003 00010D 00432
CVTQMWR  00004 0000B0 00331
CVTQOCR  00004 0000AC 00329
CVTQTD00 00004 00006C 00306
CVTQTE00 00004 000068 00304
CVTRMS   00004 0000E0 00384
CVTSJQ   00004 000060 00302
CVTSMCA  00004 0000C4 00372
CVTSNCTR 00002 0000B4 00333
CVTSTATE 00001 000020 00398
CVTSTB   00004 000070 00308
CVTSTEPR 00001 000004 00355
CVTSTUSA 00001 0000BB 00352
CVTSVDCB 00004 000054 00298
CVTSYSAD 00004 000030 00284
CVTTCBP  00004 000000 00264
CVTTCMFG 00001 0000F0 00404
CVTTCRDY 00001 000080 00405
CVTTOD   00001 000020 00347
CVTTPC   00004 000058 00299
CVTTRMTB 00004 00009C 00325
CVTTSCE  00004 0000D8 00382
CVTTSCVB 00003 0000E5 00389
CVTTSCVT 00004 0000E4 00386
CVTTSFLG 00001 0000E4 00387
CVTTSRDY 00001 000080 00388
CVTUSER  00004 0000CC 00375
CVTUSR   00001 000004 00401
CVTVOLF2 00001 0000F4 00413
CVTVOLI2 00001 000080 00415
CVTVOLM2 00004 0000F4 00411
CVTVOLT2 00003 0000F5 00416
CVTXAPG  00004 000014 00271
CVTXITP  00004 000044 00292
CVTXPFP  00001 000001 00344
CVTXTLER 00004 00002C 00282
CVTXTNT1 00001 000114 00450   0423
CVTZDTAB 00004 000040 00291
CVT0DS   00004 000088 00319
CVT0EF00 00004 000004 00265
                                             CROSS-REFERENCE                                                   PAGE    3


SYMBOL    LEN  VALUE  DEFN     REFERENCES                                                                        8/28/78

CVT0FN00 00004 00004C 00295
CVT0PT01 00004 000098 00324
CVT0SCR1 00004 0000E8 00390
CVT0VL00 00004 000018 00272
CVT1EF00 00004 0000A8 00328
CVT1SSS  00001 000040 00310
CVT2SPS  00001 000020 00311
CVT4MPS  00001 000004 00313
CVT4MS1  00001 000010 00312
FREEWORK 00002 0000E8 00192   0138
IEFACTRT 00001 000000 00050   0051
IEFTB700 00001 000000 00049   0050  0079
KACTRT   00008 000108 00222   0094  0126  0154
LINKPRM  00008 000088 00242   0118  0123  0168  0173
LLINKPRM 00001 000008 00227   0242
LPAFOUND 00002 000048 00117   0107
LPAQLOOP 00002 00002C 00103   0110
LWORKA   00001 000090 00244   0084  0193
MLINKPRM 00004 000110 00225   0123  0173  0227
NOTFOUND 00002 0000FA 00213   0160
RETURN   00002 0000F4 00203   0217
R0       00001 000000 00053   0084  0124  0150  0151  0152  0153  0155  0174  0193
R1       00001 000001 00054   0088  0094  0106  0124  0137  0147  0174  0187  0194
R10      00001 00000A 00063   0125  0175
R11      00001 00000B 00064   0078  0079
R12      00001 00000C 00065
R13      00001 00000D 00066   0119  0120  0121  0122  0136  0136  0137  0169  0170  0171  0172  0186  0186  0187  0215
                              0216
R14      00001 00000E 00067   0119  0121  0122  0124  0125  0126  0127  0169  0171  0172  0174  0175
R15      00001 00000F 00068   0078  0095  0096  0097  0098  0104  0104  0106  0108  0108  0109  0109  0118  0127  0137
                              0145  0146  0148  0159  0159  0168  0187  0214  0214  0215  0216
R2       00001 000002 00055   0167  0177
R3       00001 000003 00056   0088  0089  0194  0198
R4       00001 000004 00057   0125  0175
R5       00001 000005 00058
R6       00001 000006 00059
R7       00001 000007 00060
R8       00001 000008 00061
R9       00001 000009 00062
SAVEA    00004 000040 00240   0120  0170
WORKA    00001 000000 00233   0089  0244



NO STATEMENTS FLAGGED IN THIS ASSEMBLY
*STATISTICS*     SOURCE RECORDS (SYSIN) =   233      SOURCE RECORDS (SYSLIB) =  2019
*OPTIONS IN EFFECT*   LIST, DECK, NOLOAD, RENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT =  55
  631 PRINTED LINES

F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,LIST,XREF,LET,RENT,REFR,REUS,MAP
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     INCLUDE SYSPUNCH
IEW0000     REPLACE IEFACTRT
IEW0000     INCLUDE SYSLMOD(IEFSD061)
IEW0000     ALIAS IEFSD064
IEW0000     ALIAS IEFW42SD
IEW0000     ALIAS IEFSD104
IEW0000     ENTRY IEFSD061
IEW0000     NAME IEFSD061(R)
****IEFSD061  NOW REPLACED IN DATA SET
****IEFSD104  IS AN ALIAS FOR THIS MEMBER
****IEFW42SD  IS AN ALIAS FOR THIS MEMBER
****IEFSD064  IS AN ALIAS FOR THIS MEMBER
**MODULE HAS BEEN MARKED NOT REENTERABLE, REUSABLE, AND NOT REFRESHABLE.


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFTB700      00     118
                                        IEFACTRT      00
  IEFW42SD     118     1B0
  IEFSD061     2C8     A20
  QMTMSG       CE8      2D
  IEFDSOSL     D18     1D1
  IEFSD064     EF0     504
  IEFSD066    13F8     2CE
  IEFDSTBL    16C8     2B8
  IEFDSLST    1980     194
  IEFDSTRT    1B18     1FF
  IEFACTLK    1D18     468
  IEFUJI      2180       4
  IEFUSI      2188       4
  IEFSMFWI    2190     69A
  IEFSMFIE    2830     2EA
  IEFSD101    2B20     388
  IEFSD104    2EA8     1E0
  IEFSDPPT    3088      33
  IEFIDMPM    30C0     219
  IEFIDUMP    32E0     4A8
  IEFYN       3788     6FB
  WTERM020    3E88      3D
  IEFYP       3EC8     4AF
  IEFVJ       4378     190
  WTERM030    4508      4B
  IEFZG       4558     B9E
                                        ZGOJ5       4822    ZGOJ8       4848
  IEFZG2      50F8     96A
                                        ZGOK09      50F8    ZOOA1       54E0    ZOOE10      5710    ZPOC10      5826
                                        ZPOQMGR1    5904

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEFW22SD    5A68      E0
  IEFZGMSG    5B48     16D
  IEFZH       5CB8     FBA
                                        ZGOE60      5D1C    ZKOD1       606C    ZKOE1       652C    XPS631      6A38
  IEFWTERM    6C78      A7
                                        WTERM050    6CAC    WTERMFOR    6CEC
  IEFW31SD    6D20     C74
  IEFW32SD    7998      16
  IEFSD060    79B0      16
  IEFYT       79C8     422
  IEFQMSSS    7DF0      1C
  IEFYS       7E10     17C
  IEFQASGN    7F90     56A
  IEFQASNM    8500      7E
  IEFQMRAW    8580     1D4
  IEFQMWTO    8758      42
  IEFQMNQ2    87A0     3D6
  IEFQMDQ2    8B78     522
  IEFQDELE    90A0     292
  IEFQMUNC    9338     2A0
  IEFVJMSG    95D8      36
  IEFYNMSG    9610      50
                                        STRMSG01    9610    STRMSG02    9632
  IEFYPMSG    9660      B7
                                        YPPMSG3     9660    YPPMSG4     9696    YPPMSG7     96B9    YPPMSG8     96EF
  IEFSD110    9718     248
  IEFSD111    9960     268
  CHFILRDW    9BC8     36C
  IEFSD112    9F38     130
  IEFZA       A068     15E
  IEFZGJ      A1C8     C9E
                                        ZPOQM       ACF0
  IEFRPREP    AE68     3E8
  IEFSD514    B250     354
  IEFSD068    B5A8     460
  IEFVSDRA    BA08     218
  IEFYRCDS    BC20      64



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

      294            IEFQMRAW        IEFQMRAW                     298            IEFYN           IEFYN
      29C            IEFIDUMP        IEFIDUMP                     B84            IEFDSTBL        IEFDSTBL
      B88            IEFDSLST        IEFDSLST                     C2C            IEFSD060        IEFSD060
      C30            IEFSD101        IEFSD101                     C34            IEFQMRAW        IEFQMRAW
      C38            IEFQMDQ2        IEFQMDQ2                     C3C            IEFDSOSL        IEFDSOSL
      C9C            IEFQMUNC        IEFQMUNC                     CE4            QMTMSG          QMTMSG
     13BC            IEFQMRAW        IEFQMRAW                    13C0            IEFSD068        IEFSD068
     13C4            IEFSD066        IEFSD066                    13C8            IEFSD101        IEFSD101
     13CC            IEFW42SD        IEFW42SD                    13D0            IEFSD110        IEFSD110
     1410            IEFQMRAW        IEFQMRAW                    16A0            IEFQDELE        IEFQDELE

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     16A4            IEFSD061        IEFSD061                    197C            IEFDSTRT        IEFDSTRT
     2174            IEFACTRT        IEFTB700                    2178            IEFQMSSS        IEFQMSSS
     217C            IEFSMFWI        IEFSMFWI                    2798            IEFYS           IEFYS
     2AF8            IEFQMRAW        IEFQMRAW                    2AFC            IEFUJI          IEFUJI
     2B00            IEFUSI          IEFUSI                      2E9C            IEFSD112        IEFSD112
     2EA0            IEFSMFIE        IEFSMFIE                    2EA4            IEFSDPPT        IEFSDPPT
     3080            IEFSD064        IEFSD064                    3084            IEFSD514        IEFSD514
     3724            IEFYN           IEFYN                       3758            IEFIDMPM        IEFIDMPM
     375C            IEFYS           IEFYS                       3DE0            STRMSG01        IEFYNMSG
     3DE4            STRMSG02        IEFYNMSG                    3DE8            IEFYS           IEFYS
     3DEC            IEFACTLK        IEFACTLK                    3DF0            IEFW22SD        IEFW22SD
     3DF4            IEFYP           IEFYP                       3DF8            IEFZA           IEFZA
     3DFC            IEFRPREP        IEFRPREP                    3E00            IEFVJ           IEFVJ
     3E04            WTERM020        WTERM020                    4334            IEFQMSSS        IEFQMSSS
     4338            IEFZG           IEFZG                       433C            IEFYS           IEFYS
     4340            YPPMSG3         IEFYPMSG                    4344            YPPMSG4         IEFYPMSG
     4348            YPPMSG7         IEFYPMSG                    434C            YPPMSG8         IEFYPMSG
     44E4            WTERM030        WTERM030                    44E8            IEFVJMSG        IEFVJMSG
     44EC            IEFYS           IEFYS                       44F0            IEFW22SD        IEFW22SD
     44F8            IEFW22SD        IEFW22SD                    44F4            IEFACTLK        IEFACTLK
     507C            IEFYT           IEFYT                       5080            ZPOQMGR1        IEFZG2
     5084            ZGOK09          IEFZG2                      5088            ZPOC10          IEFZG2
     508C            ZOOA1           IEFZG2                      5090            ZOOE10          IEFZG2
     5094            IEFQMSSS        IEFQMSSS                    5098            IEFZGMSG        IEFZGMSG
     509C            IEFZH           IEFZH                       50A0            ZGOE60          IEFZH
     5A30            IEFQMSSS        IEFQMSSS                    5A34            IEFZH           IEFZH
     5A38            ZGOJ5           IEFZG                       5A3C            ZKOE1           IEFZH
     5A40            ZGOJ8           IEFZG                       5B44            IEFQMRAW        IEFQMRAW
     6B88            IEFYS           IEFYS                       6B8C            IEFZGMSG        IEFZGMSG
     6B90            ZPOQMGR1        IEFZG2                      78AC            IEFQMRAW        IEFQMRAW
     78B0            IEFYS           IEFYS                       78B4            WTERM050        IEFWTERM
     78B8            WTERMFOR        IEFWTERM                    78BC            IEFQMNQ2        IEFQMNQ2
     78C0            IEFWTERM        IEFWTERM                    78C8            IEFW32SD        IEFW32SD
     78CC            IEFQDELE        IEFQDELE                    7DA0            IEFQMRAW        IEFQMRAW
     7E04            IEFQMRAW        IEFQMRAW                    7E08            IEFQASGN        IEFQASGN
     7F70            IEFQASGN        IEFQASGN                    7F74            IEFQMRAW        IEFQMRAW
     84A4            IEFQASNM        IEFQASNM                    84C4            IEFSD111        IEFSD111
     8740            IEFSD111        IEFSD111                    873C            IEFQMWTO        IEFQMWTO
     8B40            IEFSD111        IEFSD111                    8B44            IEFSD112        IEFSD112
     901C            IEFSD111        IEFSD111                    9020            IEFSD110        IEFSD110
     9314            IEFSD112        IEFSD112                    956C            IEFQMWTO        IEFQMWTO
     9BC4            CHFILRDW        CHFILRDW                    A064            CHFILRDW        CHFILRDW
     A1AC            IEFQMSSS        IEFQMSSS                    A1B0            IEFZGJ          IEFZGJ
     A1B4            IEFW31SD        IEFW31SD                    A1B8            IEFACTLK        IEFACTLK
     ADEC            IEFYS           IEFYS                       ADF0            IEFQMSSS        IEFQMSSS
     ADF4            IEFZGMSG        IEFZGMSG                    ADF8            IEFZH           IEFZH
     ADFC            ZGOE60          IEFZH                       AE00            ZKOE1           IEFZH
     AE04            XPS631          IEFZH                       B22C            IEFQMSSS        IEFQMSSS
     B230            IEFYRCDS        IEFYRCDS                    B59C            IEFQMRAW        IEFQMRAW
     B5A0            IEFQASGN        IEFQASGN                    B9CC            IEFSD061        IEFSD061
     B9D0            IEFQMRAW        IEFQMRAW                    B9D4            IEFQMNQ2        IEFQMNQ2
     B9D8            IEFVSDRA        IEFVSDRA                    B9DC            IEFSD061        IEFSD061

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     B9E0            IEFSD061        IEFSD061
 ENTRY ADDRESS      2C8
 TOTAL LENGTH      BC88





























































************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************










          ASP JOB NO. = 0006                                     DATE = 78.240




//SY20ZR08 JOB 1,IEFTB700,MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A




          ELAPSED TIME ON MAIN = ASP1     = 000.01, START TIME = 19.56.55

          DDNAME = SYSMSG                     PRINTED ON PR1     , LINES = 000138
          DDNAME = SYSPRINT                   PRINTED ON PR1     , LINES = 000797
          LINES OUTPUT FOR THIS JOB = 000935

       CARDS FROM MAIN FOR THIS JOB = NONE



























************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************

 IIIIIIIIIIII       0000000           11           AAAAAAAAA     LL               CCCCCCCCCCC    IIIIIIIIIIII    NN         NN
 IIIIIIIIIIII      000000000         111          AAAAAAAAAAA    LL              CCCCCCCCCCCCC   IIIIIIIIIIII    NNN        NN
      II          00       00       1111         AA         AA   LL              CC         CC        II         NNNN       NN
      II         00         00        11         AA         AA   LL              CC         CC        II         NN NN      NN
      II         00         00        11         AA         AA   LL              CC                   II         NN  NN     NN
      II         00         00        11         AA         AA   LL              CC                   II         NN   NN    NN
      II         00         00        11         AAAAAAAAAAAAA   LL              CC                   II         NN    NN   NN
      II         00         00        11         AAAAAAAAAAAAA   LL              CC                   II         NN     NN  NN
      II         00         00        11         AA         AA   LL              CC         CC        II         NN      NN NN
      II          00       00         11         AA         AA   LL              CC         CC        II         NN       NNNN
 IIIIIIIIIIII      000000000        111111       AA         AA   LLLLLLLLLLLLL   CCCCCCCCCCCCC   IIIIIIIIIIII    NN        NNN
 IIIIIIIIIIII       0000000         111111       AA         AA   LLLLLLLLLLLLL    CCCCCCCCCCC    IIIIIIIIIIII    NN         NN









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000       88888888888
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000     8888888888888
            JJ   OO         OO   BB         BB                    00       00     00       00     00       00    88         88
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   88         88
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   88         88
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00    88888888888
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00    88888888888
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   88         88
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00   00         00   88         88
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00     00       00    88         88
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000     8888888888888
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000       88888888888









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 IIIIIIIIIIII       0000000           11           AAAAAAAAA     LL               CCCCCCCCCCC    IIIIIIIIIIII    NN         NN
 IIIIIIIIIIII      000000000         111          AAAAAAAAAAA    LL              CCCCCCCCCCCCC   IIIIIIIIIIII    NNN        NN
      II          00       00       1111         AA         AA   LL              CC         CC        II         NNNN       NN
      II         00         00        11         AA         AA   LL              CC         CC        II         NN NN      NN
      II         00         00        11         AA         AA   LL              CC                   II         NN  NN     NN
      II         00         00        11         AA         AA   LL              CC                   II         NN   NN    NN
      II         00         00        11         AAAAAAAAAAAAA   LL              CC                   II         NN    NN   NN
      II         00         00        11         AAAAAAAAAAAAA   LL              CC                   II         NN     NN  NN
      II         00         00        11         AA         AA   LL              CC         CC        II         NN      NN NN
      II          00       00         11         AA         AA   LL              CC         CC        II         NN       NNNN
 IIIIIIIIIIII      000000000        111111       AA         AA   LLLLLLLLLLLLL   CCCCCCCCCCCCC   IIIIIIIIIIII    NN        NNN
 IIIIIIIIIIII       0000000         111111       AA         AA   LLLLLLLLLLLLL    CCCCCCCCCCC    IIIIIIIIIIII    NN         NN









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000       88888888888
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000     8888888888888
            JJ   OO         OO   BB         BB                    00       00     00       00     00       00    88         88
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   88         88
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   88         88
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00    88888888888
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00   00         00    88888888888
            JJ   OO         OO   BB         BB                   00         00   00         00   00         00   88         88
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00   00         00   88         88
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00     00       00    88         88
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000       000000000     8888888888888
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         0000000       88888888888









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 ISV40 JOB ORIGIN FROM GROUP=LOCAL   , DSP=CR , DEVICE=RD1     , 00C
//I01ALCIN JOB 1,'I01ALCIN HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
//*********************************************************************
//*                                                                 ***
//*    Job:      I01ALCIN                                           ***
//*    Product:  HASP V4 for MVT.                                   ***
//*    Purpose:  Allocate installation data sets.                   ***
//*    Update:   2006/08/18                                         ***
//*                                                                 ***
//*********************************************************************
//*
//*-----------------------------------------------------------------***
//*    Specify volume to contain new installation data sets.        ***
//*-----------------------------------------------------------------***
//STEP0   EXEC PGM=IEFBR14
//HASPVOL   DD  DISP=OLD,UNIT=3330,VOL=SER=ASPSUP    <-- volser here
//*
//*-----------------------------------------------------------------***
//*    Allocate installation data sets.                             ***
//*-----------------------------------------------------------------***
//ALLOC   EXEC PGM=IEFBR14,COND=(0,NE)
//*
//*--- Unmodified IBM source ---------------------------------------***
//HASPIBM  DD  DSN=SYS1.HASPIBM,
//             DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(TRK,(450))
//*
//*--- HASP utilities ----------------------------------------------***
//HASPMOD  DD  DSN=SYS1.HASPMOD,
//             DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=U,BLKSIZE=6144),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(TRK,(10,,5))
//*
//*--- IBM HASP APARs ----------------------------------------------***
//HASPAPAR DD  DSN=SYS1.HASPAPAR,
//             DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=F,LRECL=80,BLKSIZE=80),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(CYL,2)
//*
//*--- MVT refit modifications -------------------------------------***
//HASPRFIT DD  DSN=SYS1.HASPRFIT,
//             DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(CYL,2)
//*
//*--- MVT source and macros modified for HASP support -------------***
//HASPSUP  DD  DSN=SYS1.HASPSUP,
//             DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(CYL,(5,,5))
//*
//*--- Placeholder for modified source -----------------------------***
//HASPSRC  DD  DSN=SYS1.HASPSRC,
//             DISP=(NEW,CATLG,DELETE),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(CYL,(40,,20))
//*
//*--- Placeholder for assembled HASP object decks -----------------***
//HASPOBJ  DD  DSN=SYS1.HASPOBJ,
//             DISP=(NEW,CATLG,DELETE),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(CYL,(5,,8))
//*
//*--- Placeholder for HASP overlay library ------------------------***
//OLAYLIB  DD  DSN=SYS1.HASPOLIB,
//             DISP=(NEW,CATLG,DELETE),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(CYL,1)
//




 I01ALCIN IEF403I I01ALCIN STARTED    TIME=19.57.28
 I01ALCIN STEP: I01ALCIN STEP0             ET=00.00.00 RC=0000
 I01ALCIN STEP: I01ALCIN ALLOC             ET=00.00.00 RC=0000
 I01ALCIN IEF404I I01ALCIN ENDED      TIME=19.57.28
//I01ALCIN JOB 1,'I01ALCIN HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      I01ALCIN                                           ***
***    Product:  HASP V4 for MVT.                                   ***
***    Purpose:  Allocate installation data sets.                   ***
***    Update:   2006/08/18                                         ***
***                                                                 ***
***********************************************************************
***
***-----------------------------------------------------------------***
***    Specify volume to contain new installation data sets.        ***
***-----------------------------------------------------------------***
//STEP0   EXEC PGM=IEFBR14
//HASPVOL   DD  DISP=OLD,UNIT=3330,VOL=SER=ASPSUP    <-- volser here
***
***-----------------------------------------------------------------***
***    Allocate installation data sets.                             ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR I01ALCIN STEP0
IEF237I 151   ALLOCATED TO HASPVOL
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T195728.RV001.I01ALCIN.R0000001     KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /STEP0   / START 78240.1957
IEF374I STEP /STEP0   / STOP  78240.1957 CPU   0MIN 00.02SEC MAIN   4K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:57:28.52   ALLOC START    19:57:28.52   MAIN REGION ----- 256K                          *
*   STEP NAME STEP0      STEP END TIME  19:57:28.56   PGM START TIME 19:57:28.54   MAIN STORAGE ------ 4K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.04   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEFBR14    STEP CPU TIME  00:00:00.02   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT                                                                                                            *
*   0151 ------------ 0                                                                                                            *
************************************************************************************************************************************

//ALLOC   EXEC PGM=IEFBR14,COND=(0,NE)
***
***--- Unmodified IBM source ---------------------------------------***
//HASPIBM  DD  DSN=SYS1.HASPIBM,
//             DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(TRK,(450))
***
***--- HASP utilities ----------------------------------------------***
//HASPMOD  DD  DSN=SYS1.HASPMOD,
//             DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=U,BLKSIZE=6144),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(TRK,(10,,5))
***
***--- IBM HASP APARs ----------------------------------------------***
//HASPAPAR DD  DSN=SYS1.HASPAPAR,
//             DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=F,LRECL=80,BLKSIZE=80),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(CYL,2)
***
***--- MVT refit modifications -------------------------------------***
//HASPRFIT DD  DSN=SYS1.HASPRFIT,
//             DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(CYL,2)
***
***--- MVT source and macros modified for HASP support -------------***
//HASPSUP  DD  DSN=SYS1.HASPSUP,
//             DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(CYL,(5,,5))
***
***--- Placeholder for modified source -----------------------------***
//HASPSRC  DD  DSN=SYS1.HASPSRC,
//             DISP=(NEW,CATLG,DELETE),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(CYL,(40,,20))
***
***--- Placeholder for assembled HASP object decks -----------------***
//HASPOBJ  DD  DSN=SYS1.HASPOBJ,
//             DISP=(NEW,CATLG,DELETE),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(CYL,(5,,8))
***
***--- Placeholder for HASP overlay library ------------------------***
//OLAYLIB  DD  DSN=SYS1.HASPOLIB,
//             DISP=(NEW,CATLG,DELETE),
//             VOL=REF=*.STEP0.HASPVOL,
//             SPACE=(CYL,1)
//
IEF236I ALLOC. FOR I01ALCIN ALLOC
IEF237I 151   ALLOCATED TO HASPIBM
IEF237I 151   ALLOCATED TO HASPMOD
IEF237I 151   ALLOCATED TO HASPAPAR
IEF237I 151   ALLOCATED TO HASPRFIT
IEF237I 151   ALLOCATED TO HASPSUP
IEF237I 151   ALLOCATED TO HASPSRC
IEF237I 151   ALLOCATED TO HASPOBJ
IEF237I 151   ALLOCATED TO OLAYLIB
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPIBM                                 CATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPMOD                                 CATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPAPAR                                CATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPRFIT                                CATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPSUP                                 CATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPSRC                                 CATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 CATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOLIB                                CATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ALLOC   / START 78240.1957
IEF374I STEP /ALLOC   / STOP  78240.1957 CPU   0MIN 00.02SEC MAIN   4K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:57:28.56   ALLOC START    19:57:28.57   MAIN REGION ----- 256K                          *
*   STEP NAME ALLOC      STEP END TIME  19:57:28.83   PGM START TIME 19:57:28.75   MAIN STORAGE ------ 4K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.27   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEFBR14    STEP CPU TIME  00:00:00.02   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0151 ------------ 0       0151 ------------ 0       0151 ------------ 0       0151 ------------ 0    *
*   0151 ------------ 0       0151 ------------ 0       0151 ------------ 0                                                        *
************************************************************************************************************************************

IEF375I  JOB /I01ALCIN/ START 78240.1957
IEF376I  JOB /I01ALCIN/ STOP  78240.1957 CPU   0MIN 00.04SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  I01ALCIN   JOB READ TIME 19:57:28.30   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.04   *
*   JOB CLASS B          JOB INIT TIME 19:57:28.52   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.32   *
*   JOB ID    JOB00008   JOB END TIME  19:57:28.84   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 2   *
************************************************************************************************************************************



























































************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************










          ASP JOB NO. = 0008                                     DATE = 78.240




//I01ALCIN JOB 1,'I01ALCIN HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A




          ELAPSED TIME ON MAIN = ASP1     = 000.00, START TIME = 19.57.28

          DDNAME = SYSMSG                     PRINTED ON PR1     , LINES = 000229
          LINES OUTPUT FOR THIS JOB = 000229

       CARDS FROM MAIN FOR THIS JOB = NONE




























************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************

 IIIIIIIIIIII       0000000       22222222222      AAAAAAAAA     LL               CCCCCCCCCCC     SSSSSSSSSSS    PPPPPPPPPPPP
 IIIIIIIIIIII      000000000     2222222222222    AAAAAAAAAAA    LL              CCCCCCCCCCCCC   SSSSSSSSSSSSS   PPPPPPPPPPPPP
      II          00       00    22         22   AA         AA   LL              CC         CC   SS         SS   PP         PP
      II         00         00              22   AA         AA   LL              CC         CC   SS              PP         PP
      II         00         00              22   AA         AA   LL              CC              SS              PP         PP
      II         00         00             22    AA         AA   LL              CC              SSSSSSSSSSSS    PP         PP
      II         00         00           22      AAAAAAAAAAAAA   LL              CC               SSSSSSSSSSSS   PPPPPPPPPPPPP
      II         00         00         22        AAAAAAAAAAAAA   LL              CC                         SS   PPPPPPPPPPPP
      II         00         00       22          AA         AA   LL              CC         CC              SS   PP
      II          00       00      22            AA         AA   LL              CC         CC   SS         SS   PP
 IIIIIIIIIIII      000000000     2222222222222   AA         AA   LLLLLLLLLLLLL   CCCCCCCCCCCCC   SSSSSSSSSSSSS   PP
 IIIIIIIIIIII       0000000      2222222222222   AA         AA   LLLLLLLLLLLLL    CCCCCCCCCCC     SSSSSSSSSSS    PP









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11            0000000
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111           000000000
            JJ   OO         OO   BB         BB                    00       00     00       00       1111          00       00
            JJ   OO         OO   BB         BB                   00         00   00         00        11         00         00
            JJ   OO         OO   BB         BB                   00         00   00         00        11         00         00
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11         00         00
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11         00         00
            JJ   OO         OO   BB         BB                   00         00   00         00        11         00         00
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11         00         00
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11          00       00
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111         000000000
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111          0000000









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 IIIIIIIIIIII       0000000       22222222222      AAAAAAAAA     LL               CCCCCCCCCCC     SSSSSSSSSSS    PPPPPPPPPPPP
 IIIIIIIIIIII      000000000     2222222222222    AAAAAAAAAAA    LL              CCCCCCCCCCCCC   SSSSSSSSSSSSS   PPPPPPPPPPPPP
      II          00       00    22         22   AA         AA   LL              CC         CC   SS         SS   PP         PP
      II         00         00              22   AA         AA   LL              CC         CC   SS              PP         PP
      II         00         00              22   AA         AA   LL              CC              SS              PP         PP
      II         00         00             22    AA         AA   LL              CC              SSSSSSSSSSSS    PP         PP
      II         00         00           22      AAAAAAAAAAAAA   LL              CC               SSSSSSSSSSSS   PPPPPPPPPPPPP
      II         00         00         22        AAAAAAAAAAAAA   LL              CC                         SS   PPPPPPPPPPPP
      II         00         00       22          AA         AA   LL              CC         CC              SS   PP
      II          00       00      22            AA         AA   LL              CC         CC   SS         SS   PP
 IIIIIIIIIIII      000000000     2222222222222   AA         AA   LLLLLLLLLLLLL   CCCCCCCCCCCCC   SSSSSSSSSSSSS   PP
 IIIIIIIIIIII       0000000      2222222222222   AA         AA   LLLLLLLLLLLLL    CCCCCCCCCCC     SSSSSSSSSSS    PP









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11            0000000
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111           000000000
            JJ   OO         OO   BB         BB                    00       00     00       00       1111          00       00
            JJ   OO         OO   BB         BB                   00         00   00         00        11         00         00
            JJ   OO         OO   BB         BB                   00         00   00         00        11         00         00
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11         00         00
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11         00         00
            JJ   OO         OO   BB         BB                   00         00   00         00        11         00         00
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11         00         00
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11          00       00
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111         000000000
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111          0000000









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 ISV40 JOB ORIGIN FROM GROUP=LOCAL   , DSP=CR , DEVICE=RD1     , 00C
//I02ALCSP JOB 1,'I02ALCSP HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
//*********************************************************************
//*                                                                 ***
//*    Job:      I02ALCSP                                           ***
//*    Product:  HASP V4 for MVT.                                   ***
//*    Purpose:  Allocate SYS1.HASPACE.                             ***
//*    Update:   2003/01/31                                         ***
//*                                                                 ***
//*********************************************************************
//*
//*-----------------------------------------------------------------***
//*    Specify volume to contain new SYS1.HASPACE.                  ***
//*-----------------------------------------------------------------***
//STEP0   EXEC PGM=IEFBR14
//SPOOL    DD  DISP=OLD,UNIT=3330,VOL=SER=SPOOL1    <-- volser here
//*
//*-----------------------------------------------------------------***
//*    Allocate HASP spool data set.                                ***
//*-----------------------------------------------------------------***
//SPOOL    EXEC PGM=IEFBR14,COND=(0,NE)
//HASPACE  DD  DSN=SYS1.HASPACE,
//             DISP=(NEW,CATLG,DELETE),
//             VOL=REF=*.STEP0.SPOOL,
//             SPACE=(CYL,403)
//




 I02ALCSP IEF403I I02ALCSP STARTED    TIME=19.57.50
 I02ALCSP STEP: I02ALCSP STEP0             ET=00.00.00 RC=0000
 I02ALCSP STEP: I02ALCSP SPOOL             ET=00.00.00 RC=0000
 I02ALCSP IEF404I I02ALCSP ENDED      TIME=19.57.50
//I02ALCSP JOB 1,'I02ALCSP HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      I02ALCSP                                           ***
***    Product:  HASP V4 for MVT.                                   ***
***    Purpose:  Allocate SYS1.HASPACE.                             ***
***    Update:   2003/01/31                                         ***
***                                                                 ***
***********************************************************************
***
***-----------------------------------------------------------------***
***    Specify volume to contain new SYS1.HASPACE.                  ***
***-----------------------------------------------------------------***
//STEP0   EXEC PGM=IEFBR14
//SPOOL    DD  DISP=OLD,UNIT=3330,VOL=SER=SPOOL1    <-- volser here
***
***-----------------------------------------------------------------***
***    Allocate HASP spool data set.                                ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR I02ALCSP STEP0
IEF237I 152   ALLOCATED TO SPOOL
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T195749.RV001.I02ALCSP.R0000002     KEPT
IEF285I   VOL SER NOS= SPOOL1.
IEF373I STEP /STEP0   / START 78240.1957
IEF374I STEP /STEP0   / STOP  78240.1957 CPU   0MIN 00.02SEC MAIN   4K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:57:50.02   ALLOC START    19:57:50.03   MAIN REGION ----- 256K                          *
*   STEP NAME STEP0      STEP END TIME  19:57:50.07   PGM START TIME 19:57:50.05   MAIN STORAGE ------ 4K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.05   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEFBR14    STEP CPU TIME  00:00:00.02   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT                                                                                                            *
*   0152 ------------ 0                                                                                                            *
************************************************************************************************************************************

//SPOOL    EXEC PGM=IEFBR14,COND=(0,NE)
//HASPACE  DD  DSN=SYS1.HASPACE,
//             DISP=(NEW,CATLG,DELETE),
//             VOL=REF=*.STEP0.SPOOL,
//             SPACE=(CYL,403)
//
IEF236I ALLOC. FOR I02ALCSP SPOOL
IEF237I 152   ALLOCATED TO HASPACE
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPACE                                 CATALOGED
IEF285I   VOL SER NOS= SPOOL1.
IEF373I STEP /SPOOL   / START 78240.1957
IEF374I STEP /SPOOL   / STOP  78240.1957 CPU   0MIN 00.02SEC MAIN   4K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:57:50.07   ALLOC START    19:57:50.08   MAIN REGION ----- 256K                          *
*   STEP NAME SPOOL      STEP END TIME  19:57:50.25   PGM START TIME 19:57:50.21   MAIN STORAGE ------ 4K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.18   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEFBR14    STEP CPU TIME  00:00:00.02   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT                                                                                                            *
*   0152 ------------ 0                                                                                                            *
************************************************************************************************************************************

IEF375I  JOB /I02ALCSP/ START 78240.1957
IEF376I  JOB /I02ALCSP/ STOP  78240.1957 CPU   0MIN 00.04SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  I02ALCSP   JOB READ TIME 19:57:49.86   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.04   *
*   JOB CLASS B          JOB INIT TIME 19:57:50.02   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.24   *
*   JOB ID    JOB00010   JOB END TIME  19:57:50.26   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 2   *
************************************************************************************************************************************



























































************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************










          ASP JOB NO. = 0010                                     DATE = 78.240




//I02ALCSP JOB 1,'I02ALCSP HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A




          ELAPSED TIME ON MAIN = ASP1     = 000.00, START TIME = 19.57.50

          DDNAME = SYSMSG                     PRINTED ON PR1     , LINES = 000109
          LINES OUTPUT FOR THIS JOB = 000109

       CARDS FROM MAIN FOR THIS JOB = NONE




























************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************

 IIIIIIIIIIII       0000000       33333333333    LL               OOOOOOOOOOO      AAAAAAAAA     DDDDDDDDDDDD
 IIIIIIIIIIII      000000000     3333333333333   LL              OOOOOOOOOOOOO    AAAAAAAAAAA    DDDDDDDDDDDDD
      II          00       00    33         33   LL              OO         OO   AA         AA   DD         DD
      II         00         00              33   LL              OO         OO   AA         AA   DD         DD
      II         00         00              33   LL              OO         OO   AA         AA   DD         DD
      II         00         00            333    LL              OO         OO   AA         AA   DD         DD
      II         00         00            333    LL              OO         OO   AAAAAAAAAAAAA   DD         DD
      II         00         00              33   LL              OO         OO   AAAAAAAAAAAAA   DD         DD
      II         00         00              33   LL              OO         OO   AA         AA   DD         DD
      II          00       00    33         33   LL              OO         OO   AA         AA   DD         DD
 IIIIIIIIIIII      000000000     333333333333    LLLLLLLLLLLLL   OOOOOOOOOOOOO   AA         AA   DDDDDDDDDDDDD
 IIIIIIIIIIII       0000000       3333333333     LLLLLLLLLLLLL    OOOOOOOOOOO    AA         AA   DDDDDDDDDDDD









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11          22222222222
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111         2222222222222
            JJ   OO         OO   BB         BB                    00       00     00       00       1111         22         22
            JJ   OO         OO   BB         BB                   00         00   00         00        11                    22
            JJ   OO         OO   BB         BB                   00         00   00         00        11                    22
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11                   22
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11                 22
            JJ   OO         OO   BB         BB                   00         00   00         00        11               22
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11             22
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11           22
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111       2222222222222
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111       2222222222222









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 IIIIIIIIIIII       0000000       33333333333    LL               OOOOOOOOOOO      AAAAAAAAA     DDDDDDDDDDDD
 IIIIIIIIIIII      000000000     3333333333333   LL              OOOOOOOOOOOOO    AAAAAAAAAAA    DDDDDDDDDDDDD
      II          00       00    33         33   LL              OO         OO   AA         AA   DD         DD
      II         00         00              33   LL              OO         OO   AA         AA   DD         DD
      II         00         00              33   LL              OO         OO   AA         AA   DD         DD
      II         00         00            333    LL              OO         OO   AA         AA   DD         DD
      II         00         00            333    LL              OO         OO   AAAAAAAAAAAAA   DD         DD
      II         00         00              33   LL              OO         OO   AAAAAAAAAAAAA   DD         DD
      II         00         00              33   LL              OO         OO   AA         AA   DD         DD
      II          00       00    33         33   LL              OO         OO   AA         AA   DD         DD
 IIIIIIIIIIII      000000000     333333333333    LLLLLLLLLLLLL   OOOOOOOOOOOOO   AA         AA   DDDDDDDDDDDDD
 IIIIIIIIIIII       0000000       3333333333     LLLLLLLLLLLLL    OOOOOOOOOOO    AA         AA   DDDDDDDDDDDD









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11          22222222222
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111         2222222222222
            JJ   OO         OO   BB         BB                    00       00     00       00       1111         22         22
            JJ   OO         OO   BB         BB                   00         00   00         00        11                    22
            JJ   OO         OO   BB         BB                   00         00   00         00        11                    22
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11                   22
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11                 22
            JJ   OO         OO   BB         BB                   00         00   00         00        11               22
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11             22
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11           22
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111       2222222222222
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111       2222222222222









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 ISV40 JOB ORIGIN FROM GROUP=LOCAL   , DSP=CR , DEVICE=RD1     , 00C
//I03LOAD  JOB 1,'I03LOAD  HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
//*********************************************************************
//*                                                                 ***
//*    Job:      I03LOAD                                            ***
//*    Product:  HASP V4 for MVT.                                   ***
//*    Purpose:  Load unmodified IBM HASP source, IBM fixes,        ***
//*              MVT refit mods, HASP utilities, OS/VS XF           ***
//*              assembler and modified MVT source from tape.       ***
//*    Update:   2006/08/28                                         ***
//*                                                                 ***
//*********************************************************************
//*
/*JOBPARM LINES=9999
//*MAIN LINES=100
//*
//*-----------------------------------------------------------------***
//*    Load IBM HASP source from tape to SYS1.HASPIBM.              ***
//*-----------------------------------------------------------------***
//SOURCE  EXEC PGM=IEBGENER,REGION=96K
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DISP=OLD,DSN=SYS1.HASPIBM
//SYSUT1   DD  DSN=HASPIBM,DISP=OLD,
//             UNIT=2400-3,VOL=SER=HASP4,
//             LABEL=(2,NL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//SYSIN    DD  DUMMY
//*
//*-----------------------------------------------------------------***
//*    Load IBM HASP APARs from tape to SYS1.HASPAPAR.              ***
//*-----------------------------------------------------------------***
//APARS   EXEC PGM=IEBGENER,REGION=96K,COND=(0,NE)
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DISP=OLD,DSN=SYS1.HASPAPAR
//SYSUT1   DD  DSN=HASPAPAR,DISP=OLD,
//             UNIT=2400-3,VOL=(,RETAIN,SER=H4SUPB),
//             LABEL=(1,SL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//SYSIN    DD  DUMMY
//*
//*-----------------------------------------------------------------***
//*    Load MVT refit modifications from tape to SYS1.HASPRFIT.     ***
//*-----------------------------------------------------------------***
//REFIT   EXEC PGM=IEBGENER,REGION=96K,COND=(0,NE)
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DISP=OLD,DSN=SYS1.HASPRFIT
//SYSUT1   DD  DSN=HASPRFIT,DISP=OLD,
//             UNIT=2400-3,VOL=(,RETAIN,SER=H4SUPB),
//             LABEL=(2,SL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//SYSIN    DD  DUMMY
//*
//*-----------------------------------------------------------------***
//*    Link IBM HASP utilities from tape to SYS1.HASPMOD.           ***
//*-----------------------------------------------------------------***
//LNKUTIL EXEC PGM=IEWL,PARM='LIST,MAP,NCAL',REGION=96K,COND=(0,NE)
//SYSUT1   DD  UNIT=SYSDA,SPACE=(TRK,30)
//SYSLMOD  DD  DISP=OLD,DSN=SYS1.HASPMOD
//SYSPRINT DD  SYSOUT=A
//SYSLIN   DD  DSNAME=HASPUTIL,DISP=OLD,
//             UNIT=2400-3,VOL=(,RETAIN,SER=H4SUPB),
//             LABEL=(3,SL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
//*
//*-----------------------------------------------------------------***
//*    Load modified MVT macros and source from tape to             ***
//*    SYS1.HASPSUP.                                                ***
//*-----------------------------------------------------------------***
//HASPTSO EXEC PGM=IEBUPDTE,PARM=NEW,REGION=96K,COND=(0,NE)
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DISP=SHR,DSN=SYS1.HASPSUP
//SYSIN    DD  DSNAME=HASPSUP,DISP=OLD,
//             UNIT=2400-3,VOL=SER=H4SUPB,
//             LABEL=(5,SL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//


 LOCATE' 0012SYS1.HASPIBM                                '
 AL00120E001/ASPSUP0003
 LOCATE' 0012SYS1.HASPAPAR                               '
 AL00120E001/ASPSUP0003
 LOCATE' 0012SYS1.HASPRFIT                               '
 AL00120E001/ASPSUP0003
 LOCATE' 0012SYS1.HASPMOD                                '
 AL00120E001/ASPSUP0003
 LOCATE' 0012SYS1.HASPSUP                                '
 AL00120E001/ASPSUP0003
 ARI020 GET T HASP4 ,NL FOR JOB 0012(I03LOAD )
 ARI020 GET T H4SUPB,SL FOR JOB 0012(I03LOAD )


AMDS01 JOB 0012 (I03LOAD ) IN SETUP ON MAIN=ASP1
AMDS02 SYSUT1   MOUNT T HASP4  ON 580,NL,NORING
AMDS02 SYSUT1   MOUNT T H4SUPB ON 581,SL,NORING
 I03LOAD  IEF403I I03LOAD  STARTED    TIME=19.58.51
 I03LOAD  IEF234E D 665,ASP665
*I03LOAD *13 IECASP0 665 IS I03LOAD  A         SOURCE  SYSPRINT
 I03LOAD  IEC202E K 580,HASP4,NL,I03LOAD,SOURCE,HASPIBM
 I03LOAD  STEP: I03LOAD  SOURCE            ET=00.00.02 RC=0000
 I03LOAD  IEF234E D 665,ASP665
*I03LOAD *14 IECASP0 665 IS I03LOAD  A         APARS   SYSPRINT
 I03LOAD  STEP: I03LOAD  APARS             ET=00.00.00 RC=0000
 I03LOAD  IEF234E D 665,ASP665
*I03LOAD *15 IECASP0 665 IS I03LOAD  A         REFIT   SYSPRINT
 I03LOAD  STEP: I03LOAD  REFIT             ET=00.00.00 RC=0000
 I03LOAD  IEF234E D 665,ASP665
*I03LOAD *16 IECASP0 665 IS I03LOAD  A         LNKUTIL SYSPRINT
 I03LOAD  STEP: I03LOAD  LNKUTIL           ET=00.00.00 RC=0000
 I03LOAD  IEF234E D 665,ASP665
*I03LOAD *17 IECASP0 665 IS I03LOAD  A         HASPTSO SYSPRINT
 I03LOAD  IEF280E K 581,H4SUPB,I03LOAD,HASPTSO,HASPSUP
 I03LOAD  STEP: I03LOAD  HASPTSO           ET=00.00.03 RC=0000
 I03LOAD  IEF404I I03LOAD  ENDED      TIME=19.58.58
//I03LOAD  JOB 1,'I03LOAD  HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      I03LOAD                                            ***
***    Product:  HASP V4 for MVT.                                   ***
***    Purpose:  Load unmodified IBM HASP source, IBM fixes,        ***
***              MVT refit mods, HASP utilities, OS/VS XF           ***
***              assembler and modified MVT source from tape.       ***
***    Update:   2006/08/28                                         ***
***                                                                 ***
***********************************************************************
***
***
***-----------------------------------------------------------------***
***    Load IBM HASP source from tape to SYS1.HASPIBM.              ***
***-----------------------------------------------------------------***
//SOURCE  EXEC PGM=IEBGENER,REGION=96K
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DISP=OLD,DSN=SYS1.HASPIBM
//SYSUT1   DD  DSN=HASPIBM,DISP=OLD,
//             UNIT=2400-3,VOL=SER=HASP4,
//             LABEL=(2,NL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//SYSIN    DD  DUMMY
***
***-----------------------------------------------------------------***
***    Load IBM HASP APARs from tape to SYS1.HASPAPAR.              ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR I03LOAD  SOURCE
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 580   ALLOCATED TO SYSUT1
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T195830.RV001.I03LOAD.ASPOA001      DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPIBM                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   HASPIBM                                      KEPT
IEF285I   VOL SER NOS= HASP4 .
IEF373I STEP /SOURCE  / START 78240.1958
IEF374I STEP /SOURCE  / STOP  78240.1958 CPU   0MIN 01.97SEC MAIN  40K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:58:51.54   ALLOC START    19:58:51.55   MAIN REGION ------ 96K                          *
*   STEP NAME SOURCE     STEP END TIME  19:58:54.32   PGM START TIME 19:58:51.57   MAIN STORAGE ----- 40K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.78   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEBGENER   STEP CPU TIME  00:00:01.97   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0665 ------------ 3       0151 --------- 2879       0580 --------- 2880                                                        *
************************************************************************************************************************************

//APARS   EXEC PGM=IEBGENER,REGION=96K,COND=(0,NE)
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DISP=OLD,DSN=SYS1.HASPAPAR
//SYSUT1   DD  DSN=HASPAPAR,DISP=OLD,
//             UNIT=2400-3,VOL=(,RETAIN,SER=H4SUPB),
//             LABEL=(1,SL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//SYSIN    DD  DUMMY
***
***-----------------------------------------------------------------***
***    Load MVT refit modifications from tape to SYS1.HASPRFIT.     ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR I03LOAD  APARS
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 581   ALLOCATED TO SYSUT1
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T195830.RV001.I03LOAD.ASPOA002      DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPAPAR                                KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   HASPAPAR                                     KEPT
IEF285I   VOL SER NOS= H4SUPB.
IEF373I STEP /APARS   / START 78240.1958
IEF374I STEP /APARS   / STOP  78240.1958 CPU   0MIN 00.18SEC MAIN  36K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 19:58:54.34   ALLOC START    19:58:54.35   MAIN REGION ------ 96K                          *
*   STEP NAME APARS      STEP END TIME  19:58:54.60   PGM START TIME 19:58:54.38   MAIN STORAGE ----- 36K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.26   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEBGENER   STEP CPU TIME  00:00:00.18   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0665 ------------ 3       0151 ---------- 629       0581 ----------- 33                                                        *
************************************************************************************************************************************

//REFIT   EXEC PGM=IEBGENER,REGION=96K,COND=(0,NE)
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DISP=OLD,DSN=SYS1.HASPRFIT
//SYSUT1   DD  DSN=HASPRFIT,DISP=OLD,
//             UNIT=2400-3,VOL=(,RETAIN,SER=H4SUPB),
//             LABEL=(2,SL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//SYSIN    DD  DUMMY
***
***-----------------------------------------------------------------***
***    Link IBM HASP utilities from tape to SYS1.HASPMOD.           ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR I03LOAD  REFIT
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 581   ALLOCATED TO SYSUT1
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T195830.RV001.I03LOAD.ASPOA003      DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPRFIT                                KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   HASPRFIT                                     KEPT
IEF285I   VOL SER NOS= H4SUPB.
IEF373I STEP /REFIT   / START 78240.1958
IEF374I STEP /REFIT   / STOP  78240.1958 CPU   0MIN 00.12SEC MAIN  40K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 19:58:54.61   ALLOC START    19:58:54.61   MAIN REGION ------ 96K                          *
*   STEP NAME REFIT      STEP END TIME  19:58:54.83   PGM START TIME 19:58:54.64   MAIN STORAGE ----- 40K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.22   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEBGENER   STEP CPU TIME  00:00:00.12   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0665 ------------ 3       0151 ---------- 136       0581 ---------- 137                                                        *
************************************************************************************************************************************

//LNKUTIL EXEC PGM=IEWL,PARM='LIST,MAP,NCAL',REGION=96K,COND=(0,NE)
//SYSUT1   DD  UNIT=SYSDA,SPACE=(TRK,30)
//SYSLMOD  DD  DISP=OLD,DSN=SYS1.HASPMOD
//SYSPRINT DD  SYSOUT=A
//SYSLIN   DD  DSNAME=HASPUTIL,DISP=OLD,
//             UNIT=2400-3,VOL=(,RETAIN,SER=H4SUPB),
//             LABEL=(3,SL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
***
***-----------------------------------------------------------------***
***    Load modified MVT macros and source from tape to             ***
***    SYS1.HASPSUP.                                                ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR I03LOAD  LNKUTIL
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSLMOD
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 581   ALLOCATED TO SYSLIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T195830.RV001.I03LOAD.R0000003      DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.HASPMOD                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T195830.RV001.I03LOAD.ASPOA004      DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   HASPUTIL                                     KEPT
IEF285I   VOL SER NOS= H4SUPB.
IEF373I STEP /LNKUTIL / START 78240.1958
IEF374I STEP /LNKUTIL / STOP  78240.1958 CPU   0MIN 00.09SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  004        STEP INIT TIME 19:58:54.83   ALLOC START    19:58:54.85   MAIN REGION ------ 96K                          *
*   STEP NAME LNKUTIL    STEP END TIME  19:58:55.05   PGM START TIME 19:58:54.90   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.22   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.09   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0158 ------------ 0       0151 ----------- 42       0665 ----------- 87       0581 ----------- 57                              *
************************************************************************************************************************************

//HASPTSO EXEC PGM=IEBUPDTE,PARM=NEW,REGION=96K,COND=(0,NE)
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DISP=SHR,DSN=SYS1.HASPSUP
//SYSIN    DD  DSNAME=HASPSUP,DISP=OLD,
//             UNIT=2400-3,VOL=SER=H4SUPB,
//             LABEL=(5,SL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//
IEF236I ALLOC. FOR I03LOAD  HASPTSO
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 581   ALLOCATED TO SYSIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T195830.RV001.I03LOAD.ASPOA005      DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSUP                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   HASPSUP                                      KEPT
IEF285I   VOL SER NOS= H4SUPB.
IEF280E K 581,H4SUPB,I03LOAD,HASPTSO,HASPSUP
IEF373I STEP /HASPTSO / START 78240.1958
IEF374I STEP /HASPTSO / STOP  78240.1958 CPU   0MIN 01.03SEC MAIN  30K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  005        STEP INIT TIME 19:58:55.06   ALLOC START    19:58:55.07   MAIN REGION ------ 96K                          *
*   STEP NAME HASPTSO    STEP END TIME  19:58:58.41   PGM START TIME 19:58:55.09   MAIN STORAGE ----- 30K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:03.35   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:01.03   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0665 --------- 8187       0151 ---------- 408       0581 ---------- 401                                                        *
************************************************************************************************************************************

IEF375I  JOB /I03LOAD / START 78240.1958
IEF376I  JOB /I03LOAD / STOP  78240.1958 CPU   0MIN 03.39SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  I03LOAD    JOB READ TIME 19:58:30.21   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:03.39   *
*   JOB CLASS B          JOB INIT TIME 19:58:51.54   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:06.87   *
*   JOB ID    JOB00012   JOB END TIME  19:58:58.41   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 2   *
************************************************************************************************************************************

AMDS09 JOB 0012 (I03LOAD ) IN BREAKDOWN

 IIIIIIIIIIII       0000000       33333333333    LL               OOOOOOOOOOO      AAAAAAAAA     DDDDDDDDDDDD
 IIIIIIIIIIII      000000000     3333333333333   LL              OOOOOOOOOOOOO    AAAAAAAAAAA    DDDDDDDDDDDDD
      II          00       00    33         33   LL              OO         OO   AA         AA   DD         DD
      II         00         00              33   LL              OO         OO   AA         AA   DD         DD
      II         00         00              33   LL              OO         OO   AA         AA   DD         DD
      II         00         00            333    LL              OO         OO   AA         AA   DD         DD
      II         00         00            333    LL              OO         OO   AAAAAAAAAAAAA   DD         DD
      II         00         00              33   LL              OO         OO   AAAAAAAAAAAAA   DD         DD
      II         00         00              33   LL              OO         OO   AA         AA   DD         DD
      II          00       00    33         33   LL              OO         OO   AA         AA   DD         DD
 IIIIIIIIIIII      000000000     333333333333    LLLLLLLLLLLLL   OOOOOOOOOOOOO   AA         AA   DDDDDDDDDDDDD
 IIIIIIIIIIII       0000000       3333333333     LLLLLLLLLLLLL    OOOOOOOOOOO    AA         AA   DDDDDDDDDDDD









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11          22222222222
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111         2222222222222
            JJ   OO         OO   BB         BB                    00       00     00       00       1111         22         22
            JJ   OO         OO   BB         BB                   00         00   00         00        11                    22
            JJ   OO         OO   BB         BB                   00         00   00         00        11                    22
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11                   22
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11                 22
            JJ   OO         OO   BB         BB                   00         00   00         00        11               22
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11             22
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11           22
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111       2222222222222
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111       2222222222222









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    PPPPPPPPPPPP    RRRRRRRRRRRR    IIIIIIIIIIII    NN         NN   TTTTTTTTTTTT
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRRR   IIIIIIIIIIII    NNN        NN   TTTTTTTTTTTT
 SS         SS     YY    YY      SS         SS   PP         PP   RR         RR        II         NNNN       NN        TT
 SS                 YY  YY       SS              PP         PP   RR         RR        II         NN NN      NN        TT
 SS                  YYYY        SS              PP         PP   RR         RR        II         NN  NN     NN        TT
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    PP         PP   RRRRRRRRRRRRR        II         NN   NN    NN        TT
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRR         II         NN    NN   NN        TT
            SS        YY                    SS   PPPPPPPPPPPP    RR      RR           II         NN     NN  NN        TT
            SS        YY                    SS   PP              RR       RR          II         NN      NN NN        TT
 SS         SS        YY         SS         SS   PP              RR        RR         II         NN       NNNN        TT
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   PP              RR         RR   IIIIIIIIIIII    NN        NNN        TT
  SSSSSSSSSSS         YY          SSSSSSSSSSS    PP              RR         RR   IIIIIIIIIIII    NN         NN        TT










DATA SET UTILITY - GENERATE                                                                       PAGE 0001



PROCESSING ENDED AT EOD

DATA SET UTILITY - GENERATE                                                                       PAGE 0001



PROCESSING ENDED AT EOD

DATA SET UTILITY - GENERATE                                                                       PAGE 0001



PROCESSING ENDED AT EOD

F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST,MAP,NCAL
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000              NAME HASPGEN(R)                                               00009800


                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HASPGEN       00    AECD


 ENTRY ADDRESS       00
 TOTAL LENGTH      AED0

****HASPGEN   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000              NAME EXRMTGEN(R)                                              00011400


                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  EXRMTGEN      00     269


 ENTRY ADDRESS       00
 TOTAL LENGTH       270

****EXRMTGEN  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000              NAME RMTGEN(R)                                                00013500


                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  RMTGEN        00     340


 ENTRY ADDRESS       00
 TOTAL LENGTH       340

****RMTGEN    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000              NAME GENRMT(R)                                                00020100


                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  GENRMT        00    4C4E


 ENTRY ADDRESS       00
 TOTAL LENGTH      4C50

****GENRMT    DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000              NAME LETRRIP(R)                                               00024100


                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  LETRRIP       00   1071C


 ENTRY ADDRESS       00
 TOTAL LENGTH     10720

****LETRRIP   DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


IEW0000              NAME SYS3CNVT(R)                                              00028400


                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  S3CNVT        00     884


 ENTRY ADDRESS       00
 TOTAL LENGTH       888

****SYS3CNVT  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET



       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ ADD  NAME=IKJEFF00
                TITLE 'IKJEFF00 - FIB SVC 100 - IGC00100 (+0)'                 00010000
       *  /******************************************************************* 00020000
       *  /*     TITLE                                                       * 00030000
       *  /*              IKJEFF00 - FIB SVC 100 (IGC00100 - +0)             * 00040000
       *  /******************************************************************* 00050000
       *  /******************************************************************* 00060000
       *  /*     STATUS     CHANGE LEVEL 000                                 * 00070000
       *  /*    A179600,179604,270000,615000-616500,669170             21002 * 00080000
       *  /*    C255000,261000,291000,300000,303000,309000,315000,318000,    * 00090000

       *  /*    381000,382000,388000,389000,391000,391400,391600,396000,     * 00100000
       *  /*  435000,624000,666000,669000,744900,769740                21002 * 00110000
       *  /*                                                           M4557 * 00120000
       *  /*                                                           M3473 * 00130000
       *  /*                                                           M3049 * 00140000
       *  /* D 349500,759000-768000                                    M2059 * 00150000
       *  /* A 349200-350400,756800-769600                             M2059 * 00160000
       *  /*                                                           M5521 * 00170000
       *  /* C 558000                                                 A43607 * 00180000
       *  /*     FUNCTION                                                    * 00190000
       *  /*               . THE PSCB POINTER (PART OF THE CPPL) IS          * 00200000
       *  /*                 VALIDITY  CHECKED  BY  COMPUTING   THE          * 00210000

       *  /*                 CORRECT ADDRESS INDEPENDENTLY.                  * 00220000
       *  /*                                                                 * 00230000
       *  /*               . A   LINK   IS   ISSUED   TO   A   NAME          * 00240000

       *  /*                 CORRESPONDING TO THE VALUE IN REG ZERO.         * 00250000
       *  /*                                                                 * 00260000
       *  /*                   COMMAND  R0    LINKEE                         * 00270000
       *  /*                                                                 * 00280000
       *  /*                   SUBMIT    1    IKJEFF15                       * 00290000
       *  /*                   CANCEL    2    IKJEFF58                       * 00300000
       *  /*                   STATUS    2    IKJEFF58                       * 00310000
       *  /*                   OUTPUT    3    IKJEFF61                       * 00320000
       *  /*                                                                 * 00330000
       *  /*               . IF THE PRIMARY COMMAND  IS  'OPERATOR'          * 00340000
       *  /*                 THEN THERE IS NO LINKEE.  THE FUNCTION          * 00350000
       *  /*                 IS PERFORMED WITHIN THE SVC (ISSUE SVC          * 00360000

       *  /*                 34).  REG ZERO MUST CONTAIN A 4.                * 00370000
       *  /*                                                                 * 00380000
       *  /*     ENTRY POINTS                                                * 00390000
       *  /*              SVC 100                                            * 00400000

       *  /*                                                                 * 00410000
       *  /*     INPUT                                                       * 00420000
       *  /*               . REGISTER  1  POINTS  TO  A   LIST   OF          * 00430000
       *  /*                 POINTERS TO THE FOLLOWING PARAMETERS            * 00440000
       *  /*                                                                 * 00450000
       *  /*                             CPPL                                * 00460000
       *  /*                             OTHERS FOR LINKEE                   * 00470000
       *  /*                                                                 * 00480000
       *  /*     OUTPUT                                                      * 00490000
       *  /*              REGISTER 15 CONTAINS THE RETURN CODE FROM  THE     * 00500000
       *  /*              LINKEE, OR 80 IF THE VALIDITY CHECKS FAIL.         * 00510000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002



       *  /*                                                                 * 00520000
       *  /*     EXTERNAL REFERENCES                                         * 00530000
       *  /*              IKJEFF15                                           * 00540000

       *  /*              IKJEFF61                                           * 00550000
       *  /*              IKJEFF58                                           * 00560000
       *  /*              SVC 34                                             * 00570000
       *  /*                                                                 * 00580000
       *  /*     EXITS,NORMAL                                                * 00590000
       *  /*             LINK TO LINKEE                                      * 00600000
       *  /*                                                                 * 00610000
       *  /*     EXITS,ERROR                                                 * 00620000
       *  /*             N/A                                                 * 00630000
       *  /*                                                                 * 00640000
       *  /*     TABLE/WORK AREAS                                            * 00650000
       *  /*              SVRB                                               * 00660000

       *  /*              CVT                                                * 00670000
       *  /*              TCB                                                * 00680000
       *  /*              JSCB                                               * 00690000

       *  /*              TSOCVT                                             * 00700000
       *  /*              RCB                                                * 00710000
       *  /*              CPPL                                               * 00720000
       *  /*              PSCB                                               * 00730000
       *  /*              CSCB                                               * 00740000
       *  /*                                                                 * 00750000
       *  /*     ATTRIBUTES                                                  * 00760000
       *  /*              REENTRANT AND REFRESHABLE                          * 00770000
       *  /*                                                                 * 00780000
       *  /*     NOTES                                                       * 00790000
       *  /*              CHARACTER CODE DEPENDENCY - EBCDIC CHARACTER SET   * 00800000
       *  /*              USED IN ASSEMBLING, MODULE MUST BE REASSEMBLED IF  * 00810000

       *  /*              A DIFFERENT CHARACTER SET IS TO BE USED DURING     * 00820000
       *  /*              EXECUTION.                                         * 00830000
       *  /******************************************************************* 00840000
       *     IKJEFF00:                                                         00850000

       *         PROC(X) OPTIONS (REENTRANT,DONTSAVE,NOSAVEAREA,DATAREG(0));   00860000
                LCLA  &T,&SPN                                            0001  00870000
       .@001    ANOP                                                     0001  00880000
       IKJEFF00 CSECT ,                                                  0001  00890000
                BALR  @B,0                                               0001  00900000
       @PSTART  DS    0H                                                 0001  00910000
                USING @PSTART+00000,@B                                   0001  00920000
       *                                                                       00930000
       *                                                                       00940000
       *                                    /* THE PARM OF 'X' IS A FAKE TO    00950000
       *                                       KEEP REG 1 LOADED AS ORIGINAL   00960000
       *                                       */                              00970000

       *         RESTRICT (2,3,4,5,6,7);                                       00980000
       *         DCL                                                           00990000
       *               R0 REG (0),                                             01000000

       *               R1 REG (1) PTR,                                         01010000
       *               R3 REG (3) PTR,                                         01020000
       *                                    /* 3 PTS TO CVT */                 01030000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0003


       *               CVTPTR REG (3) PTR,                                     01040000
       *               R4 REG (4) PTR,                                         01050000
       *                                    /* 4 PTS TO TCB */                 01060000
       *               TCBPTR REG (4) PTR,                                     01070000
       *               R5 REG (5) PTR,                                         01080000
       *                                    /* 5 PTS TO SVRB */                01090000
       *               R14 REG (14),                                           01100000
       *               R15 REG (15),                                           01110000

       *               R2 REG (2),                                             01120000
       *                                    /* SAVE 14 IN 2 */                 01130000
       *               R6 REG (6) PTR,                                         01140000
       *                                    /* COPY 1 TO 6 */                  01150000

       *               R7 REG (7) PTR;                                         01160000
       *         DCL                                                           01170000
       *               REG3 REG(3) PTR (24);                                   01180000
       *         DCL                                                           01190000
       *               REG5 REG (5) PTR (24);                                  01200000
       *         DCL                                                           01210000
       *               REG8 REG(8) FIXED (31);                                 01220000
       *         DCL                                                           01230000
       *               REG9 REG(9) POINTER(24);  /*                     21002  01240000
       *         DCL                                                           01250000
       *               1 EXAREA BDY (WORD) BASED (R5+96) CHAR (20),            01260000
       *                 2 LINKLIST,                                           01270000

       *                   3 PTNAME PTR,                                       01280000
       *                   3 PTDCB,                                            01290000
       *                   3 LINKEE CHAR (8);                                  01300000

       *         DCL                                                           01310000
       *               SVRBPSW CHAR(8) BASED(R5+16);                           01320000
       *         DCL                                                           01330000
       *               1 LOADPSW BDY(WORD) CHAR(8) BASED(R5+96),               01340000
       *                 2 PSWMASK CHAR (1),                                   01350000
       *                 2 KEYAMWP CHAR (1),                                   01360000
       *                   3 * BIT (7),                                        01370000
       *                   3 PPMODE BIT (1),                                   01380000
       *                 2 * CHAR (2),                                         01390000
       *                 2 PSWADDR PTR;                                        01400000
       *         DCL                                                           01410000
       *               LINK LOCAL LABEL INTERNAL;                              01420000

       *         DCL BITONOFF LOCAL INTERNAL ENTRY; /* SUBROUTINE LABELM3473 * 01430000
       *                                   /* PROCEDURE FOR TURNING TJB BIT ON 01440000
       *                                      OR OFF                   M3473 * 01450000
       **                                                                      01460000

       ** /*     COMMUNICATION VECTOR TABLE                                  * 01470000
       ** /* RELEASE 20.2, 3/03/71, LEVEL=1                                  * 01480000
       ** /* RELEASE 21, 6/03/71, LEVEL=2                                    * 01490000
       **                                                                      01500000
       ** /*                   CVT PROPER                                    * 01510000
       **                                                                      01520000
       ** DECLARE                                                              01530000
       **   1 CVTMAP   BASED(CVTPTR),                                          01540000
       **                                                                      01550000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0004


       **    2 CVTTCBP  PTR(31),             /* PTR TO ADDRESSES FOR NEXT      01560000
       **                                       AND CURRENT TCB              * 01570000

       **    2 CVT0EF00 PTR(31),             /* ADDR OF ROUTINE TO SCHEDULE    01580000
       **                                       ASYNCHRONOUS EXITS           * 01590000
       **    2 CVTLINK  PTR(31),             /* ADDR OF DCB FOR SYS1.LINKLIB * 01600000

       **    2 CVTJOB   PTR(31),             /* ADDR OF WORK QUEUE CONTROL     01610000
       **                                       BLOCKS                       * 01620000
       **    2 CVTBUF   PTR(31),             /* ADDR OF BUFFER FOR RESIDENT    01630000
       **                                       CONSOLE INTERRUPTION ROUTINE * 01640000
       **    2 CVTXAPG  PTR(31),             /* ADDR OF IOS APPENDAGE TABLE  * 01650000
       **    2 CVT0VL00 PTR(31),             /* ENTRY POINT ADDR OF ADDR       01660000
       **                                       VALIDITY CHECKING ROUTINE    * 01670000
       **    2 CVTPCNVT PTR(31),             /* ENTRY POINT ADDR OF ROUTINE    01680000
       **                                       FOR CONVERTING RELATIVE        01690000
       **                                       TRACK ADDR TO ABSOLUTE       * 01700000
       **    2 CVTPRLTV PTR(31),             /* ENTRY POINT ADDR OF ROUTINE    01710000
       **                                       FOR CONVERTING ABSOLUTE        01720000

       **                                       TRACK ADDR TO RELATIVE       * 01730000
       **    2 CVTILK1  PTR(31),             /* ADDR OF CHANNEL AND CONTROL    01740000
       **                                       UNIT SECTION IN UCB LOOKUP     01750000
       **                                       TABLE                        * 01760000

       **    2 CVTILK2  PTR(31),             /* ADDR OF UCB ADDR LIST          01770000
       **                                       SECTION IN UCB LOOKUP TABLE  * 01780000
       **    2 CVTXTLER PTR(31),             /* ENTRY POINT ADDR TO XCTL       01790000
       **                                       ROUTINE FOR SYSTEM ERROR       01800000
       **                                       ROUTINES                     * 01810000
       **    2 CVTSYSAD PTR(31),             /* ADDR OF SYSTEM RESIDENCE       01820000
       **                                       VOLUME ENTRY IN UCB TABLE    * 01830000
       **    2 CVTBTERM PTR(31),             /* ENTRY POINT ADDR OF ABTERM     01840000
       **                                       ROUTINE                      * 01850000
       **    2 CVTDATE  CHAR(4),             /* CURRENT DATE IN PACKED         01860000
       **                                       DECIMAL                      * 01870000
       **    2 CVTMSLT  PTR(31),             /* ADDR OF MASTER COMMON AREA     01880000

       **                                         (MASTER RESIDENT CORE IN PCP 01890000
       **                                       PLEASE USE CVTMSER INSTEAD     01900000
       **                                         TO ADDRESS MASTER SCHEDULER  01910000

       **                                         RESIDENT DATA AREA         * 01920000
       **    2 CVTZDTAB PTR(31),             /* ADDR OF I/O DEVICE             01930000
       **                                       CHARACTERISTIC TABLE         * 01940000
       **    2 CVTXITP  PTR(31),             /* ADDR OF ERROR INTERPRETER      01950000
       **                                       ROUTINE                      * 01960000
       **                                                                      01970000
       **    2 CVTDAR   PTR(31),             /* ADDR OF I/O CONTROL BLOCK      01980000
       **                                       COMPLEX ACCESSED BY DAR      * 01990000
       **                                                                      02000000
       **                                                                      02010000
       **    2 CVT0FN00 PTR(31),             /* ENTRY POINT ADDR TO FINCH    * 02020000
       **    2 CVTEXIT  CHAR(2),             /* AN SVC 3 INSTRUCTION         * 02030000

       **    2 CVTBRET  CHAR(2),             /* A BCR 15,14 INSTRUCTION      * 02040000
       **    2 CVTSVDCB PTR(31),             /* ADDR OF DCB FOR SYS1.SVCLIB  * 02050000
       **    2 CVTTPC   PTR(31),             /* ADDR OF PSEUDO CLOCK FOR       02060000
       **                                       TIMER ROUTINE                * 02070000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0005


       **    2 CVTPBLDL PTR(31),             /* BRANCH AND LINK ENTRY POINT    02080000
       **                                       TO BLDL ROUTINE              * 02090000
       **    2 CVTSJQ   PTR(31),             /* ADDR OF SELECTED JOB QUEUE   * 02100000
       **    2 CVTCUCB  PTR(31),             /* ADDR OF TABLE WITH CONSOLE     02110000
       **                                       UCB ADDR                     * 02120000
       **    2 CVTQTE00 PTR(31),             /* ADDR OF TIMER ENQUEUE          02130000
       **                                       ROUTINE                      * 02140000
       **    2 CVTQTD00 PTR(31),             /* ADDR OF TIMER DEQUEUE          02150000
       **                                       ROUTINE                      * 02160000
       **    2 CVTSTB   PTR(31),             /* ADDR OF I/O DEVICE STATISTIC   02170000
       **                                       TABLE                        * 02180000

       **    2 CVTDCB   CHAR(1),             /* OPERATING SYSTEM               02190000
       **                                       CONFIGURATION                * 02200000
       **      4 *        BIT(1),            /* RESERVED                     * 02210000

       **      4 CVT1SSS  BIT(1),            /* - PCP                        * 02220000
       **      4 CVT2SPS  BIT(1),            /* - MFT                        * 02230000
       **      4 CVT4MS1  BIT(1),            /* - MVT                        * 02240000
       **      4 *        BIT(1),            /* RESERVED                     * 02250000
       **      4 CVT4MPS  BIT(1),            /* - MULTIPROCESSING            * 02260000
       **      4 *        BIT(1),            /* RESERVED                     * 02270000
       **      4 *        BIT(1),            /* RESERVED                     * 02280000
       **    2 CVTDCBA   PTR(24)  BDY(WORD,2),                                 02290000
       **                                    /* ADDR OF DCB FOR SYS1.LOGREC  * 02300000
       **    2 CVTIOQET PTR(31),             /* ADDR OF REQUEST ELEMENT        02310000
       **                                       TABLE                        * 02320000
       **    2 CVTIXAVL PTR(31),             /* ADDR OF I/O SUPERVISOR'S       02330000

       **                                       FREELIST POINTER             * 02340000
       **    2 CVTNUCB  PTR(31),             /* LOWEST ADDRESS NOT IN          02350000
       **                                       NUCLEUS                      * 02360000
       **    2 CVTFBOSV PTR(31),             /* ADDR OF PROGRAM FETCH          02370000

       **                                       ROUTINE                      * 02380000
       **    2 CVT0DS   PTR(31),             /* ADDR OF ENTRY POINT OF         02390000
       **                                       DISPATCHER                   * 02400000
       **    2 CVTILCH  PTR(31),             /* ADDR OF LOGICAL CHANNEL WORD   02410000
       **                                       TABLE                        * 02420000
       **    2 CVTIERLC PTR(31),             /* ADDR OF ASYNCHRONOUS EXIT      02430000
       **                                       QUEUE                        * 02440000
       **    2 CVTMSER  PTR(31),             /* ADDR OF MASTER SCHEDULER       02450000
       **                                       RESIDENT DATA AREA (ADDR OF    02460000
       **                                       MAJOR QCB IN PCP)            * 02470000
       **    2 CVT0PT01 PTR(31),             /* ADDR OF BRANCH ENTRY POINT     02480000
       **                                       OF POST ROUTINE              * 02490000

       **    2 CVTTRMTB PTR(31),             /* ADDR OF QTAM TERMINAL TABLE  * 02500000
       **    2 CVTHEAD  PTR(31),             /* ADDR OF HIGHEST PRIORITY TCB   02510000
       **                                       IN READY QUEUE               * 02520000

       **    2 CVTMZ00  PTR(31),             /* HIGHEST STORAGE ADDRESS      * 02530000
       **    2 CVT1EF00 PTR(31),             /* ADDR OF ROUTINE WHICH          02540000
       **                                       CREATES IRBS FOR EXITS       * 02550000
       **    2 CVTQOCR  PTR(31),             /* ADDR OF A GFX PARM LIST        02560000
       **                                       WORD, OR ZERO (RESERVED IN     02570000
       **                                       PCP)                         * 02580000
       **    2 CVTQMWR  PTR(31),             /* ADDR OF QMGR COMMUNICATION     02590000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0006


       **                                       DATA AREA (RESERVED IN PCP)  * 02600000
       **    2 CVTSNCTR FIXED(15),           /* SERIAL DATA SET SEQUENCE       02610000
       **                                       NUMBER COUNTER               * 02620000
       **    2 CVTOPTA  CHAR(1),             /* FLAGS                        * 02630000

       **     3 CVTCCH   BIT(1),             /* - CCH OPTION PRESENT           02640000
       **                                       (MVT/MFT)                    * 02650000
       **     3 CVTAPR   BIT(1),             /* AUTOMATIC PATH RETRY --        02660000

       **                                       I/O RECOVERY MGT (MVT/MFT) */  02670000
       **     3 CVTDDR   BIT(1),             /* DYNAMIC DEVICE RECONFIGURATION 02680000
       **                                       --I/O RECOVERY MGT (MVT/MFT) * 02690000
       **     3 CVTNIP   BIT(1),             /* - NIP PROCESSING             * 02700000
       **     3 CVTATTCH BIT(1),             /* ATTACH OPERATIVE (MFT)       * 02710000
       **     3 CVTHIAR  BIT(1),             /* MAIN STORAGE HIERARCHY         02720000
       **                                         SUPPORT OPERATIVE          * 02730000
       **     3 CVTASCII BIT(1),             /* USAS(CI)I OPTION PRESENT     * 02740000
       **     3 *        BIT(1),             /* RESERVED                     * 02750000
       **    2 CVTOPTB  CHAR(1),             /* RESERVED                     * 02760000
       **     3 CVTPROT  BIT(1),             /* STORE PROTECTION SYSGENED    * 02770000
       **     3 *        BIT(1),             /* RESERVED                     * 02780000

       **     3 CVTTOD   BIT(1),             /* CPU HAS TIME OF DAY CLOCK    * 02790000
       **     3 *        BIT(5),             /* RESERVED                     * 02800000
       **                                                                      02810000
       **    2 CVTQCDSR PTR(31),             /* MVT/MFT: CDE SEARCH ROUTINE    02820000

       **                                         ADDR */                      02830000
       **    2 CVTQLPAQ PTR(31),             /* MVT/MFT: ADDR OF TOP CDE IN LP 02840000
       **                                       QUEUE */                       02850000
       **                                                                      02860000
       **    2 CVTMPCVT PTR(31),             /* MVT: ADDR OF M65MP SECONDARY   02870000
       **                                       CVT -- MFT/PCP: RESERVED     * 02880000
       **    2 CVTSMCA  PTR(31),             /* ADDR OF SMCA                 * 02890000
       **    2 CVTABEND PTR(31),             /* MVT: ADDR OF SECONDARY CVT     02900000
       **                                       --  MFT/PCP: RESERVED        * 02910000
       **    2 CVTUSER  PTR(31),             /* FIELD AVAILABLE TO USER      * 02920000
       **                                                                      02930000
       **                                                                      02940000

       ** /*                   MFT/MVT CVT EXTENSION                         * 02950000
       **                                                                      02960000
       **    2 CVTMDLDS PTR(31),             /* RESERVED FOR MODEL-DEPENDENT   02970000

       **                                       SUPPORT                      * 02980000
       **    2 CVTQABST CHAR (2),            /* MVT: AN SVC 13 INSTRUCTION     02990000
       **                                       --  MFT: RESERVED            * 03000000
       **    2 CVTLNKSC CHAR(2),             /* AN SVC 6 (LINK) INSTRUCTION    03010000
       **                                       (MFT WITH SUBTASKING)        * 03020000
       **    2 CVTTSCE  PTR(31),             /* ADDR OF FIRST TSCE           * 03030000
       **    2 CVTPATCH PTR(31),             /* ADDR OF FE PATCH AREA        * 03040000
       **    2 CVTRMS   PTR(31),             /* ADDRESS OF RMS WORK AREA     * 03050000
       **    2 CVTTSCVT PTR(31),             /* ADDR OF TIME SHARING CVT     * 03060000
       **     3 CVTTSFLG CHAR(1),            /* TIME SHARING OPTION FLAGS    * 03070000
       **      4 CVTTSRDY BIT(1),            /* TSO READY AND INIT           * 03080000
       **      4 *        BIT(7),            /* RESERVED                     * 03090000

       **     3 CVTTSCVB PTR(24),            /* ADDR OF TIME SHARING CVT     * 03100000
       **    2 CVT0SCR1 PTR(31),             /* ADDR OF RPS SECTOR             03110000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0007


       **                                         CONVERTER                  * 03120000

       **    2 CVTGTF   PTR(31),             /* GENERALIZED TRACE FACILITY   * 03130000
       **     3 CVTGTFST CHAR(1),            /* STATUS FLAGS                 * 03140000
       **      4 CVTGTFS  BIT(2),            /* STATE                        * 03150000
       **      4 CVTSTATE BIT(1),            /* IN CONTROL                   * 03160000
       **      4 CVTMODE  BIT(1),            /* EXT MODE                     * 03170000
       **      4 CVTFORM  BIT(1),            /* ABDUMP TO FORMAT TRACE DATA  * 03180000
       **      4 CVTUSR   BIT(1),            /* USR TRACE                    * 03190000
       **      4 CVTMCTYP BIT(1),            /* MC INSTRUCTION VALID         * 03200000
       **      4 *        BIT(1),            /* RESERVED                     * 03210000
       **     3 CVTCMT   PTR(24) BDY(WORD,2),/* ADDRESS OF CLASS MASK TABLE  * 03220000
       **    2 CVTAQAVT  PTR(31),            /* POINTER TO WORD CONTAINING     03230000
       **                                         ADDR OF TCAM VECTOR TABLE  * 03240000

       **     3 CVTTCMFG CHAR(1),            /* TCAM FLAGS                   * 03250000
       **      4 CVTTCRDY BIT(1),            /* TCAM RUNNING                 * 03260000
       **      4 *        BIT(7),            /* RESERVED                     * 03270000

       **     3 CVTAQAVB PTR(24),            /* POINTER TO WORD CONTAINING     03280000
       **                                       ADDR OF TCAM VECTOR TABLE    * 03290000
       **                                                                      03300000
       ** /*                   MFT WITH SUBTASKING CVT EXTENSION             * 03310000
       **                                                                      03320000
       **    2 CVTTATA  PTR(31),             /* ADDR OF P0 TCB POINTER       * 03330000
       **     3 CVTTSKS  PTR(8),             /* MAXIMAL NUMBER OF TCB ADDR     03340000
       **                                       TAB ENTRIES                  * 03350000
       **     3 CVTTAT   PTR(24)  BDY(WORD,2),                                 03360000
       **                                    /* ADDR OF P0 TCB POINTER       * 03370000
       **    2 CVTATER  PTR(31),             /* SAME AS CVTATERA BELOW ICB306* 03380000
       **     3 CVTSYST  PTR(8),             /* NUMBER OF SYSGEN'D TCB'S     * 03390000

       **     3 CVTATERA PTR(24),            /* ADDRESS OF SYSTEM ERROR        03400000
       **                                       TCB                    ICB306* 03410000
       **                                                                      03420000
       ** /*          MVT/MFT CVT CONTINUATION                               * 03430000

       **                                                                      03440000
       **    2 *        PTR(31),             /* RESERVED                     * 03450000
       **    2 *        PTR(31),             /* RESERVED                     * 03460000
       **    2 CVTPURG  PTR(31),             /* ADDRESS OF SUBSYSTEM PURGE     03470000
       **                                       ROUTINE                      * 03480000
       **     3 *        CHAR(1),            /* RESERVED                     * 03490000
       **     3 CVTPURGA PTR(24),            /* ADDRESS OF SUBSYSTEM PURGE     03500000
       **                                       ROUTINE                      * 03510000
       **    2 *        PTR(31),             /* RESERVED                     * 03520000
       **    2 CVTQMSG  PTR(31),             /* SAME AS CVTQMSGA BELOW ICB307* 03530000
       **     3 *        CHAR(1),            /* RESERVED               ICB307* 03540000
       **     3 CVTQMSGA PTR(24),            /* ADDRESS OF TYPE 1 SVC - ABEND  03550000

       **                                       COMMUNICATION AREA     ICB307* 03560000
       **    2 CVTDMSR  PTR(31),             /* SAME AS CVTDMSRA BELOW ICB308* 03570000
       **     3 *        CHAR(1),            /* RESERVED               ICB308* 03580000

       **     3 CVTDMSRA PTR(24);            /* ADDRESS OF OPEN/CLOSE/EOV      03590000
       **                                       SUPERVISORY ROUTINE    ICB308* 03600000
       **                                                                      03610000
       ** /*                      PCP OVERLAY                                * 03620000
       **                                                                      03630000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0008


       ** DECLARE                                                              03640000
       **   1 * BASED(ADDR(CVTQCDSR ) ),     /* PCP OVERLAY                  * 03650000
       **    2 CVTCRTTR CHAR(3),             /* TTR OF JCT FOR RESTART (PCP) * 03660000
       **    2 CVTSTUSA CHAR(1),             /* STATUS BYTE A                * 03670000
       **     3 *        BIT(1),             /* RESERVED                     * 03680000
       **     3 *        BIT(1),             /* RESERVED                     * 03690000

       **     3 *        BIT(1),             /* RESERVED                     * 03700000
       **     3 *        BIT(1),             /* RESERVED                     * 03710000
       **     3 CVTCHPTR BIT(1),             /* - REQUESTED AUTOMATIC          03720000
       **                                       CHECKPOINT RESTART WAS         03730000

       **                                       INITIATED                    * 03740000
       **     3 CVTSTEPR BIT(1),             /* - REQUESTED AUTOMATIC STEP     03750000
       **                                       RESTART WAS INITIATED        * 03760000
       **     3 CVTDATA  BIT(1),             /* - DD DATA STATEMENT IN INPUT   03770000
       **                                       STREAM AND DATA HAS NOT BEEN   03780000
       **                                       READ                         * 03790000
       **     3 *        BIT(1),             /* RESERVED                     * 03800000
       **    2 *        CHAR(2),             /* RESERVED                     * 03810000
       **    2 *        CHAR(2);             /* RESERVED                     * 03820000
       **                                                                      03830000
       ** /*                      CVT PREFIX                                 * 03840000
       **                                                                      03850000

       **    DCL 1 CVTFIX BASED (ADDR (CVTMAP) - 256), /* CVT PREFIX         * 03860000
       **    2 *        CHAR(248),           /* RESERVED                     * 03870000
       **    2 *        CHAR(2),             /* RESERVED                     * 03880000

       **    2 CVTMDL   CHAR(2),             /* CPU MODEL NUMBER IN SIGNLESS   03890000
       **                                       PACKED DECIMAL, I.E., A MODEL  03900000
       **                                       50 WOULD BE REPRESENTED AS     03910000
       **                                       0050 HEX                     * 03920000
       **    2 CVTRELNO CHAR(4);             /* OS RELEASE NUMBER (EBCDIC)   * 03930000
       **                                                                      03940000
       ** /*                   END OF CVT MACRO                              * 03950000
       **                                                                      03960000
       *         DCL                                                           03970000
       *               TSCVTPTR PTR BASED(ADDR(CVTTSCVT));                     03980000
       ** DECLARE                                                              03990000
       **   1 TSCVT    BASED(TSCVTPTR),                                        04000000

       **    2 TSCVTTJB PTR(31),             /* POINTER TO TJB TABLE         * 04010000
       **    2 TSCVTRCB PTR(31),             /* POINTER TO RCB TABLE         * 04020000
       **    2 TSCVTRPT PTR(31),             /* PTR TO REFERENCE POINTER       04030000
       **                                       TABLE                        * 04040000

       **    2 TSCVTFLG  CHAR(2),            /*  FLAGS TO INDICATE FUNCT       04050000
       **                                       REQUESTED OF TSC             * 04060000
       **     3 TSCSWPND BIT(1),             /* SWAP ENDED                   * 04070000
       **     3 TSCSWPBG BIT(1),             /* SWAP SHOULD BE STARTED       * 04080000
       **     3 TSCLOGON BIT(1),             /* A LOGON IS TO BE PROCESSED   * 04090000
       **     3 TSCDISC  BIT(1),             /* A DISCONNECT IS TO BE          04100000
       **                                       PROCESSED BITS               * 04110000
       **    2 TSCVTFL1  CHAR(2),            /*  FLAGS TO INDICATE FUNCT       04120000
       **                                       REQUESTED OF TSC             * 04130000
       **     3 TSCSSTOP BIT(1),             /* SYSTEM STOP REQUESTED AND      04140000
       **                                       TSC IS STOPPING              * 04150000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0009



       **     3 TSCRSTOP BIT(1),             /* REGION STOP REQUESTED        * 04160000
       **     3 TSCASTOP BIT(1),             /* ABEND-STOP TS FLG. SET BY      04170000
       **                                       TSO/RMS IF TCAM MCH'SSET BY    04180000

       **                                       TCAM STAE EXIT IF TCAM         04190000
       **                                       ABENDS  BITS                 * 04200000
       **     3 TSCLOGPR BIT(1),             /* SET BY S02 WHEN NOT ENOUGH     04210000
       **                                       SWAP SPACE ALLOCATED FOR LOGON 04220000
       **                                       IMAGE PROCESSING             * 04230000
       **     3 *        BIT(1),             /* RESERVED                     * 04240000
       **     3 *        BIT(1),             /* RESERVED                     * 04250000
       **     3 *        BIT(1),             /* RESERVED                     * 04260000
       **     3 *        BIT(1),             /* RESERVED                     * 04270000
       **    2 TSCVTSDC PTR(31),             /* PTR TO 1ST DCB FOR SWAP DS   * 04280000
       **    2 TSCVTCUS FIXED(15),           /* CURR NO. OF USERS LOGGED ON    04290000
       **                                       TSO                          * 04300000

       **    2 TSCVTLUS FIXED(15),           /* CURRENT LIMIT NO. OF USERS     04310000
       **                                       LOGGED ON TO TSO SET BY TSC  * 04320000
       **    2 TSCVTNTJ FIXED(15),           /* NO.TJB-TSB'S ALLOC BY TSO      04330000

       **                                       INITIALLY                    * 04340000
       **    2 TSCVTSZU FIXED(15),           /* SIZE OF TJB                  * 04350000
       **    2 TSCVTCTR FIXED(15),           /* NO. OF RCB'S ALLOC BY TSO      04360000
       **                                       INITIALLY                    * 04370000
       **    2 TSCVTMUS FIXED(15),           /* MAX NUMBER OF USERS LOGGED     04380000
       **                                       ON TO TSO SET BY START AND     04390000
       **                                       MODIFY COMMANDS (TSC)        * 04400000
       **    2 TSCVTSAV PTR(31),             /* PTR TO SAV AREA FOR            04410000
       **                                       TSC,TSIP&TS DISP             * 04420000
       **    2 TSCVTECB PTR(31),             /* PTR TO TSECBTAB CTL BLK OF     04430000
       **                                       ECB'S                        * 04440000
       **    2 TSCVTSIA PTR(31),             /* PTR TO TSIA                  * 04450000

       **    2 TSCVTICB PTR(31),             /* PTR TO TSICB                 * 04460000
       **    2 TSCVTI01 PTR(31),             /* ADDRESS OF ENTRY POINT         04470000
       **                                       IKJEAI01 TSIP BR ENTRY       * 04480000
       **    2 TSCVTTQE PTR(31),             /* PTR TO TQE FOR TSO'S TIME      04490000

       **                                       SLICING                      * 04500000
       **    2 TSCVTI02 PTR(31),             /* ADDRESS OF ENTRY POINT         04510000
       **                                       IKJEAI02 IN TS DISPATCH      * 04520000
       **    2 TSCVTI03 PTR(31),             /* ADDRESS OF ENTRY POINT         04530000
       **                                       IKJEAI03 IN TS DISPATCH      * 04540000
       **    2 TSCVTD02 PTR(31),             /* ADDRESS OF ENTRY POINT         04550000
       **                                       IKJEAD02 IN TS DRIVER        * 04560000
       **    2 TSCVTLCQ PTR(31),             /* ADDR OF TOP ELEM ON LOGON      04570000
       **                                       COMM. QUE                    * 04580000
       **    2 TSCVTTRB PTR(31),             /* ADDR OF TRACE CTL BLK CHAIN  * 04590000
       **    2 TSCVTLPA PTR(31),             /* ADDR OF 1ST CDE IN TS LINK     04600000
       **                                       PACK AREA                    * 04610000

       **    2 TSCVTSLF FIXED(31),           /* SYSTEM INIATED LOGOFF        * 04620000
       **    2 TSCVTTSC PTR(31),             /* ADDR OF THE                  * 04630000
       **    2 TSCVTSPL PTR(31),             /* ADDRESS OF START PARAMETER     04640000

       **                                       LIST                         * 04650000
       **    2 TSCVTRSZ FIXED(15),           /* MIN REGION SIZE FOR LOGON    * 04660000
       **    2 *        CHAR(2),             /* RESERVED                     * 04670000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0010


       **    2 TSCVTSVT CHAR(4),             /* SVCTBL ENTRY FOR TSIP PRIOR    04680000
       **                                       TO START TS                  * 04690000
       **    2 TSCVTSVQ CHAR(4),             /* SVCTBL ENTRY FOR QTIP PRIOR    04700000
       **                                       TO START TS                  * 04710000
       **    2 TSCVTABN PTR(31),             /* ADDR OF OUT-OF-CORE ABEND      04720000
       **                                       RTN(IKJEAT07)                * 04730000
       **    2 TSCVTD03 PTR(31),             /* ADDR OF EP IKJEAD03 IN TS      04740000
       **                                       DRIVER                       * 04750000

       **    2 TSCVTFLM PTR(31),             /* ADDR OF EP - IKJEFLM         * 04760000
       **    2 TSCVTQTP PTR(31),             /* ADDR OF EP OF QTIP SVC -       04770000
       **                                       IKJGGQT1                     * 04780000
       **    2 TSCVTT08 PTR(31),             /* ADDR OF EP - IKJEAT08        * 04790000

       **    2 TSCVTDMP PTR(31),             /* ADDR OF TSO DUMP CONTROL       04800000
       **                                        BLOCK - IKJTSDMP            * 04810000
       **    2 TSCVTT06 PTR(31),             /* ADDR OF TCB FOR IKJEAT06     * 04820000
       **    2 TSCVTLS3 PTR(31);             /* ADDR OF LOGON OUT OF CORE      04830000
       **                                       ABEND RTN                    * 04840000
       **                                                                      04850000
       ** /*           TASK CONTROL BLOCK                                    * 04860000
       ** /*           RELEASE 20, 5/20/71, LEVEL=2                          * 04870000
       ** /*           RELEASE 21, 6/11/71, LEVEL=2                          * 04880000
       **                                                                      04890000
       ** /*           TCB PREFIX                                            * 04900000
       **                                                                      04910000

       ** DECLARE                                                              04920000
       **   1 TCBFIX   BASED(TCBPTR-32)  BDY(DWORD),                           04930000
       **                                                                      04940000

       **    2 TCBFRS   CHAR(32) BDY(DWORD), /* FLOATING POINT REGISTER SAVE   04950000
       **                                       AREA                         * 04960000
       **     3 TCBFRS0 CHAR(8) BDY(DWORD),  /* SAVE AREA FOR FLOATING         04970000
       **                                       POINT REGISTER 0             * 04980000
       **     3 TCBFRS2 CHAR(8) BDY(DWORD),  /* SAVE AREA FOR FLOATING         04990000
       **                                       POINT REGISTER 2             * 05000000
       **     3 TCBFRS4 CHAR(8) BDY(DWORD),  /* SAVE AREA FOR FLOATING         05010000
       **                                       POINT REGISTER 4             * 05020000
       **     3 TCBFRS6 CHAR(8) BDY(DWORD);  /* SAVE AREA FOR FLOATING         05030000
       **                                       POINT REGISTER 6             * 05040000
       **                                                                      05050000
       ** /*           TCB PROPER                                            * 05060000

       **                                                                      05070000
       ** DECLARE                                                              05080000
       **   1 TCB      BASED(TCBPTR),                                          05090000
       **                                                                      05100000

       **    2 TCBRBP   PTR(31),             /* PTR TO TOP RB ON RB CHAIN    * 05110000
       **    2 TCBPIE   PTR(31),             /* ADDR OF PROGRAM INTERRUPT      05120000
       **                                       ELEMENT (PIE)                * 05130000
       **    2 TCBDEB   PTR(31),             /* ADDR OF THE DEB QUEUE        * 05140000
       **    2 TCBTIO   PTR(31),             /* ADDR OF THE TASK I/O TABLE     05150000
       **                                       (TIOT)                       * 05160000
       **    2 TCBCMP   CHAR(4),             /* TASK COMPLETION CODE         * 05170000
       **     3 TCBCMPF  CHAR(1),            /* COMPLETION FLAGS             * 05180000
       **      4 TCBCREQ  BIT(1),            /* - A DUMP HAS BEEN REQUESTED  * 05190000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0011


       **      4 TCBCSTEP BIT(1),            /* - A STEP ABEND HAS BEEN        05200000
       **                                       REQUESTED (MVT)              * 05210000

       **      4 TCBCPP   BIT(1),            /* - SECOND ABEND LOAD OVERLAID   05220000
       **                                       PP STORAGE (PCP/MFT) FOR       05230000
       **                                       FIRST LOAD OVERLAY SEE         05240000

       **                                       TCBFLGS                      * 05250000
       **      4 *        BIT(1),            /* RESERVED                     * 05260000
       **      4 TCBCDBL  BIT(1),            /* - A DOUBLE ABEND HAS           05270000
       **                                       OCCURRED  (MFT)              * 05280000
       **      4 TCBCWTO  BIT(1),            /* - DUMP MSG TO BE ISSUED TO     05290000
       **                                       OPR  (MFT)                   * 05300000
       **      4 TCBCIND  BIT(1),            /* - SCHEDULER TO PRINT           05310000
       **                                       INDICATIVE DUMP (MFT)        * 05320000
       **      4 TCBCMSG  BIT(1),            /* - ABEND MSG PROVIDED TO BE     05330000
       **                                       PRINTED BY ABDUMP (MFT)      * 05340000
       **     3 TCBCMPC  CHAR(3),            /* SYSTEM (FIRST 12 BITS) AND     05350000
       **                                       USER (SECOND 12) COMPLETION    05360000

       **                                       CODES                        * 05370000
       **    2 TCBTRN   PTR(31),             /* ADDR OF CONTROL CORE TABLE   * 05380000
       **     3 TCBABF   CHAR(1),            /* FLAG BYTE                    * 05390000
       **      4 TCBMOD91 BIT(1),            /* - BOTH TESTRAN AND DECIMAL     05400000

       **                                       SIMULATOR ON A MOD 91        * 05410000
       **      4 TCBNOCHK BIT(1),            /* - SUPPRESS TAKING              05420000
       **                                       CHECKPOINTS FOR THIS STEP      05430000
       **                                       (MVT/MFT JOB STEP TCB)       * 05440000
       **      4 TCBGRPH  BIT(1),            /* - GRAPHICS FOREGROUND JOB OR   05450000
       **                                       GRAPHIC JOB PROCESSOR        * 05460000
       **      4 *        BIT(1),            /* RESERVED                     * 05470000
       **      4 TCBTCPP  BIT(1),            /* - TCAM POST-PENDING  (RORI)  * 05480000
       **      4 TCBTCP   BIT(1),            /* - TEST TASK - USED BY TEST     05490000
       **                                       SVC                          * 05500000
       **      4 TCBOLTEP BIT(1),            /* OLTEP FUNCTIONS REQUIRE        05510000
       **                                       CLEAN-UP BEFORE ABNORMAL       05520000

       **                                       TERMINATION CAN BE INVOKED   * 05530000
       **      4 *        BIT(1),            /* RESERVED                     * 05540000
       **     3 TCBTRNB  PTR(24)  BDY(BYTE),                                   05550000

       **                                    /* ADDR OF CONTROL CORE TABLE   * 05560000
       **    2 TCBMSS   PTR(31),             /* ADDR OF THE BOUNDARY BOX       05570000
       **                                       (PCP/MFT) ADDR OF LAST SPQE    05580000
       **                                       ON MSS QUEUE (MVT)           * 05590000
       **     3 TCBNROC  PTR(8),             /* NONROLLOUTABLE COUNT FIELD     05600000
       **                                       (MVT ONLY) ZERO MEANING        05610000
       **                                       ROLLOUTABLE                  * 05620000
       **     3 TCBMSSB  PTR(24)  BDY(BYTE),                                   05630000
       **                                    /* ADDR OF THE BOUNDARY BOX       05640000
       **                                       (PCP/MFT) ADDR OF LAST SPQE    05650000
       **                                       ON MSS QUEUE (MVT)           * 05660000
       **    2 TCBPKF   CHAR(1),             /* STORAGE PROTECTION KEY       * 05670000

       **     3 TCBFLAG  BIT(4),             /* - PROTECTION KEY             * 05680000
       **     3 TCBFP    BIT(1),             /* MAIN STORAGE ACQUIRED FOR      05690000
       **                                       THIS TASK IS TO BE FETCH       05700000
       **                                       PROTECTED                    * 05710000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0012


       **     3 TCBZERO  BIT(3),             /* - ZERO                       * 05720000
       **    2 TCBFLGS  CHAR(5),             /* FLAGS                        * 05730000
       **     3 TCBFLGS1 CHAR(1),            /* FIRST TCB FLAG BYTE          * 05740000
       **      4 TCBFA    BIT(1),            /* - ABNORMAL TERMINATION IN      05750000
       **                                       PROGRESS                     * 05760000
       **      4 TCBFE    BIT(1),            /* - NORMAL TERMINATION IN        05770000
       **                                       PROGRESS                     * 05780000
       **      4 TCBFERA  BIT(1),            /* - ABEND INITIATED BY           05790000
       **                                       RESIDENT ABTERM (PCP/MFT)      05800000
       **                                       ENTER ABEND ERASE ROUTINE      05810000
       **                                       WHEN IN CONTROL AGAIN (MVT)  * 05820000

       **      4 TCBGTOFM BIT(1),            /* COMPLETE GTF TRACE SYSPENSION  05830000
       **                                       HAS BEEN REQUESTED DURING      05840000
       **                                       PROCESSING OF THIS TASK BY A   05850000

       **                                       ROUTINE SUCH AS DAR, SNAP,     05860000
       **                                       ABEND, ABDUMP OR SVCDUMP       05870000
       **                                       (MFT/MVT)              ICB264* 05880000
       **      4 TCBPDUMP BIT(1),            /* - PREVENT DUMP INDICATOR       05890000
       **                                       (MVT)                        * 05900000
       **      4 TCBFT    BIT(1),            /* - TOP TASK IN TREE BEING       05910000
       **                                       ABTERMED (MVT)                 05920000
       **                                       RESERVED (MFT)         ICB264  05930000
       **                                       DUMP PROCESSING INITIATED IN   05940000
       **                                       ABEND (PCP)                  * 05950000
       **      4 TCBFS    BIT(1),            /* - ABTERM DUMP COMPLETED        05960000
       **                                       (MVT)  ABEND OVERLAID          05970000

       **                                       PROBLEM PROGRAM STORAGE        05980000
       **                                       (MFT)                        * 05990000
       **      4 TCBFX    BIT(1),            /* - PROHIBIT ASYNCHRONOUS EXIT   06000000

       **                                       QUEUEING (MVT/MFT ONLY)      * 06010000
       **     3 TCBFLGS2 CHAR(1),            /* SECOND FLAG BYTE             * 06020000
       **      4 TCBFOINP BIT(1),            /* - ABEND OPERANDS SAVED IN      06030000
       **                                       TCBCMP (MVT) ABEND             06040000
       **                                       PROHIBITED FOR THIS SYSTEM     06050000
       **                                       TASK (PCP/MFT)               * 06060000
       **      4 TCBFSTI  BIT(1),            /* - SECOND JOB STEP INTERVAL     06070000
       **                                       HAS EXPIRED (MVT INITIATOR     06080000
       **                                       TCB)                         * 06090000
       **      4 TCBFRA   BIT(1),            /* - JOB STEP CAN CAUSE ROLLOUT   06100000
       **                                       (MVT JOBSTEP TCB)            * 06110000
       **      4 TCBFSMC  BIT(1),            /* - TASK HAS ISSUED SYSTEM       06120000

       **                                       MUST COMPLETE AND SET ALL      06130000
       **                                       OTHER TASKS IN THE SYSTEM      06140000
       **                                       NONDISPATCHABLE              * 06150000
       **      4 TCBFJMC  BIT(1),            /* - TASK HAS ISSUED STEP MUST    06160000

       **                                       COMPLETE AND TURNED OFF ALL    06170000
       **                                       OTHER TASKS IN THE STEP      * 06180000
       **      4 TCBFDSOP BIT(1),            /* - SYSABEND OPEN FOR JOBSTEP    06190000
       **                                       (MVT) DUMP PROCESSING          06200000
       **                                       INITIATED IN ABEND (PCP/MFT) * 06210000
       **      4 TCBFETXR BIT(1),            /* - ETXR TO BE SCHEDULED       * 06220000
       **      4 TCBFTS   BIT(1),            /* - MEMBER OF TIME-SLICING       06230000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0013


       **                                       GROUP (MVT/MFT)              * 06240000
       **     3 TCBFLGS3 CHAR(1),            /* THIRD FLAG BYTE              * 06250000
       **      4 TCBFSM   BIT(1),            /* - ALL PSW'S IN SUPERVISOR      06260000
       **                                       STATE (MVT)                  * 06270000

       **      4 TCBFRI   BIT(1),            /* - STEP HAS CAUSED ROLLOUTS     06280000
       **                                       THAT ARE STILL IN EFFECT       06290000
       **                                       (MVT JOBSTEP TCB)            * 06300000

       **      4 TCBABTRM BIT(1),            /* - ABTERM BIT TO PREVENT        06310000
       **                                       MULTIPLE ABENDS (MVT) EXIT     06320000
       **                                       EFFECTOR--SYSTEM ERROR         06330000
       **                                       ROUTINES OPERATING FOR THIS    06340000
       **                                       TASK (PCP/MFT)               * 06350000
       **      4 *        BIT(1),            /* RESERVED               ICB264* 06360000
       **      4 TCBFLREG BIT(1),            /* - FLOATING POINT REGISTERS     06370000
       **                                       EXIST (PCP/MFT)              * 06380000
       **      4 TCBSCH   BIT(1),            /* - JOB SCHEDULER ROUTINES       06390000
       **                                       IN PROCESS (PCP/MFT)         * 06400000
       **      4 TCBPKCHG BIT(1),            /* - XCTL IS CHANGING PROTECT     06410000
       **                                       KEY IN PSW FROM ZERO           06420000

       **                                       TO THAT USED BY PROBLEM        06430000
       **                                       PROGRAM (PCP/MFT)            * 06440000
       **      4 TCBTCTRM BIT(1),            /* - TCAM TERMINATION             06450000
       **                                       (MFT)                  ICB267* 06460000

       **       5 TCBDWSTA BIT(1),           /* TASK WAS DISPATCHED WITH       06470000
       **                                       STAE=YES OPTION (MVT)  ICB314* 06480000
       **     3 TCBFLGS4 CHAR(1),            /* NONDISPATCHABILITY FLAGS       06490000
       **                                       (MVT)                        * 06500000
       **      4 TCBNDUMP BIT(1),            /* - ABDUMP NON-DISP. INDICATOR * 06510000
       **      4 TCBSER   BIT(1),            /* - SER1 NON-DISP. INDICATOR   * 06520000
       **      4 TCBRQENA BIT(1),            /* - I/O RQE'S EXHAUSTED        * 06530000
       **      4 *        BIT(1),            /* RESERVED                     * 06540000
       **      4 TCBUXNDV BIT(1),            /* - TASK IS TEMPORARILY          06550000
       **                                       NON-DISPATCHABLE BECAUSE SMF   06560000
       **                                       TIME LIMIT OR SYSOUT LIMIT     06570000
       **                                       USER EXIT ROUTINE IS BEING     06580000

       **                                       EXECUTED FOR THIS STEP       * 06590000
       **      4 TCBMPCVQ BIT(1),            /* - VARY OR QUIESCE IN           06600000
       **                                       MULTIPROCESSING SYSTEM       * 06610000

       **      4 TCBMPCND BIT(1),            /* - M65 MULTIPROCESSING          06620000
       **                                       NON-DISP. INDICATOR FOR ALL    06630000
       **                                       CPU'S                        * 06640000
       **      4 TCBONDSP BIT(1),            /* - CURRENT TASK ABTERMED AND    06650000
       **                                       NDSP WHILE DUMP DATA SET       06660000
       **                                       BEING OPENED FOR ANOTHER TASK  06670000
       **                                       IN SAME JOB STEP             * 06680000
       **     3 TCBFLGS5 CHAR(1),            /* MORE NONDISPATCHABILITY        06690000
       **                                       FLAGS                        * 06700000
       **      4 TCBFC    BIT(1),            /* - TASK TERMINATED  (MVT)     * 06710000
       **      4 TCBABWF  BIT(1),            /* - ABNORMAL WAIT  (MVT)       * 06720000
       **       5 TCBUXNDF BIT(1),           /* TASK IS TEMPORARILY            06730000

       **                                       NONDISPATCHABLE BECAUSE SMF    06740000
       **                                       TIME LIMIT OR SYSOUT LIMIT     06750000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0014


       **                                       USER EXIT ROUTINE IS BEING     06760000

       **                                       EXECUTED FOR THIS STEP.  THIS  06770000
       **                                       BIT IS ONE IN ALL TCB'S FOR    06780000
       **                                       STEP EXCEPT JOB STEP TCB.      06790000
       **                                       (MFT)                  ICB263* 06800000
       **      4 TCBWFC   BIT(1),            /* - TASK IS WAITING FOR SPACE    06810000
       **                                       REQUESTED BY ROLLOUT (MVT)   * 06820000
       **      4 TCBFRO   BIT(1),            /* - JOB STEP HAS BEEN ROLLED     06830000
       **                                       OUT  (MVT)                   * 06840000
       **      4 TCBSYS   BIT(1),            /* - ANOTHER TASK IS IN SYSTEM    06850000
       **                                       MUST COMPLETE STATUS (MVT)   * 06860000
       **      4 TCBSTP   BIT(1),            /* - ANOTHER TASK IN JOB STEP     06870000
       **                                       IS IN STEP MUST COMPLETE       06880000

       **                                       STATUS  (MVT)                * 06890000
       **      4 TCBFCD1  BIT(1),            /* - INITIATOR WAITING FOR        06900000
       **                                       REGION  (MVT)                * 06910000

       **      4 TCBPNDSP BIT(1),            /* - PRIMARY NONDISPATCHABILITY   06920000
       **                                       FLAG (SECONDARY NDSP FLAG      06930000
       **                                       TCBNDSP2 SET)                * 06940000
       **    2 TCBLMP   PTR(8),              /* TASK LIMIT PRIORITY (MVT)      06950000
       **                                       ENQUEUE COUNT (PCP/MFT)      * 06960000
       **    2 TCBDSP   PTR(8),              /* DISPATCHING PRIORITY         * 06970000
       **    2 TCBLLS   PTR(31),             /* ADDR OF LAST LLE IN LOAD       06980000
       **                                       LIST  (MVT) ADDR OF LAST RB    06990000
       **                                       FOR PROGRAM LOADED VIA LOAD    07000000
       **                                       (PCP/MFT)                    * 07010000
       **    2 TCBJLB   PTR(31),             /* ADDR OF JOBLIB DCB           * 07020000
       **    2 TCBJPQ   PTR(31),             /* ADDR OF LAST CDE FOR JPA       07030000

       **                                       CONTROL QUEUE (MVT) ADDR OF    07040000
       **                                       FIRST TCB FOR JOBSTEP (MFT     07050000
       **                                       WITH SUBTASKING)             * 07060000
       **     3 TCBPURGE CHAR(1),            /* PURGE FLAGS (MVT)            * 07070000

       **      4 TCBJPQF  BIT(1),            /* - JPQ PURGE FLAG             * 07080000
       **      4 *        BIT(1),            /* RESERVED                     * 07090000
       **      4 *        BIT(1),            /* RESERVED                     * 07100000
       **      4 *        BIT(1),            /* RESERVED                     * 07110000
       **      4 *        BIT(1),            /* RESERVED                     * 07120000
       **      4 *        BIT(1),            /* RESERVED                     * 07130000
       **      4 *        BIT(1),            /* RESERVED                     * 07140000
       **      4 *        BIT(1),            /* RESERVED                     * 07150000
       **     3 TCBJPQB  PTR(24)  BDY(BYTE),                                   07160000
       **                                    /* ADDR OF LAST CDE FOR JPA       07170000
       **                                       CONTROL QUEUE (MVT) ADDR OF    07180000
       **                                       FIRST TCB FOR JOBSTEP (MFT     07190000

       **                                       WITH SUBTASKING)             * 07200000
       **    2 TCBGRS   CHAR(64)  BDY(WORD), /* GENERAL REGISTER SAVE AREA   * 07210000
       **     3 TCBGRS0  PTR(31),            /* SAVE AREA FOR REGISTER 0     * 07220000

       **     3 TCBGRS1  PTR(31),            /* SAVE AREA FOR REGISTER 1     * 07230000
       **     3 TCBGRS2  PTR(31),            /* SAVE AREA FOR REGISTER 2     * 07240000
       **     3 TCBGRS3  PTR(31),            /* SAVE AREA FOR REGISTER 3     * 07250000
       **     3 TCBGRS4  PTR(31),            /* SAVE AREA FOR REGISTER 4     * 07260000
       **     3 TCBGRS5  PTR(31),            /* SAVE AREA FOR REGISTER 5     * 07270000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0015


       **     3 TCBGRS6  PTR(31),            /* SAVE AREA FOR REGISTER 6     * 07280000
       **     3 TCBGRS7  PTR(31),            /* SAVE AREA FOR REGISTER 7     * 07290000
       **     3 TCBGRS8  PTR(31),            /* SAVE AREA FOR REGISTER 8     * 07300000
       **     3 TCBGRS9  PTR(31),            /* SAVE AREA FOR REGISTER 9     * 07310000
       **     3 TCBGRS10 PTR(31),            /* SAVE AREA FOR REGISTER 10    * 07320000
       **     3 TCBGRS11 PTR(31),            /* SAVE AREA FOR REGISTER 11    * 07330000

       **     3 TCBGRS12 PTR(31),            /* SAVE AREA FOR REGISTER 12    * 07340000
       **     3 TCBGRS13 PTR(31),            /* SAVE AREA FOR REGISTER 13    * 07350000
       **     3 TCBGRS14 PTR(31),            /* SAVE AREA FOR REGISTER 14    * 07360000
       **     3 TCBGRS15 PTR(31),            /* SAVE AREA FOR REGISTER 15    * 07370000

       **    2 TCBFSA   PTR(31),             /* ADDR OF FIRST PROBLEM          07380000
       **                                       PROGRAM SAVE AREA            * 07390000
       **     3 TCBQEL   PTR(8),             /* ENQUEUE COUNT (MVT) TCB        07400000
       **                                       IDENTIFIER FIELD (PCP/MFT)   * 07410000
       **     3 TCBFSAB  PTR(24)  BDY(BYTE),                                   07420000
       **                                    /* ADDR OF FIRST PROBLEM          07430000
       **                                       PROGRAM SAVE AREA            * 07440000
       **    2 TCBTCB   PTR(31),             /* ADDR OF NEXT LOWER PRIRTITY    07450000
       **                                       TCB ON READY QUEUE (MVT/MFT) * 07460000
       **    2 TCBTME   PTR(31),             /* ADDRESS OF TIMER QUEUE         07470000
       **                                       ELEMENT                      * 07480000
       **    2 TCBJSTCB PTR(31),             /* ADDR OF PARTITION              07490000

       **                                       INFORMATION BLOCK (MFT) ADDR   07500000
       **                                       OF FIRST JOBSTEP TCB (MVT)     07510000
       **                                       OR OF THIS TCB IF KEY ZERO   * 07520000

       **     3 TCBPIBT  CHAR(1),            /* PARTITION TYPE               * 07530000
       **      4 TCBPART  BIT(2),            /* - PARTITION FLAG BITS (MFT     07540000
       **                                       ONLY)                        * 07550000
       **      4 TCBSIZE  BIT(1),            /* - LARGE PARTITION (1)--SMALL   07560000
       **                                       PARTITION (0)                * 07570000
       **      4 TCBSTOP  BIT(1),            /* - CPU TIMING STOPPED BY        07580000
       **                                       FINCH  UNTIL TRANSIENT         07590000
       **                                       LOADED                       * 07600000
       **      4 *        BIT(1),            /* RESERVED                     * 07610000
       **      4 *        BIT(1),            /* RESERVED                     * 07620000
       **      4 TCBWRITE BIT(1),            /* - WTR PART (USED BY ABEND)   * 07630000
       **      4 TCBSCHED BIT(1),            /* - SCHEDULER IN CONTROL -       07640000

       **                                       USED BY ABEND - TURNED OFF     07650000
       **                                       WHEN TIOT WRITTEN TO JOB       07660000
       **                                       QUEUE                        * 07670000

       **     3 TCBJSTCA PTR(24)  BDY(BYTE),                                   07680000
       **                                    /* ADDR OF PARTITION              07690000
       **                                       INFORMATION BLOCK (MFT) ADDR   07700000
       **                                       OF FIRST JOBSTEP TCB (MVT)     07710000
       **                                       OR OF THIS TCB IF KEY ZERO   * 07720000
       **    2 TCBNTC   PTR(31),             /* ADDR OF NEXT SISTER TCB        07730000
       **                                       (ZERO IF THIS IS LAST          07740000
       **                                       SUBTASK) (MFT WITH             07750000
       **                                       SUBTASKING AND MVT)          * 07760000
       **    2 TCBOTC   PTR(31),             /* ADDR OF MOTHER TCB (MFT WITH   07770000
       **                                       SUBTASKING AND MVT)          * 07780000
       **    2 TCBLTC   PTR(31),             /* ADDR OF LAST DAUGHTER TCB (    07790000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0016


       **                                       ZERO IF THIS IS IT )(MFT       07800000
       **                                       WITH SUBTASKING AND MVT)     * 07810000
       **    2 TCBIQE   PTR(31),             /* ADDR OF IQE FOR EXTR           07820000

       **                                       SCHEDULING (MFT WITH           07830000
       **                                       SUBTASKING AND MVT)          * 07840000
       **    2 TCBECB   PTR(31),             /* ADDR OF ECB TO BE POSTED       07850000
       **                                       UPON TERMINATION (MFT WITH     07860000
       **                                       SUBTASKING AND MVT)          * 07870000
       **    2 TCBTSFLG BIT(8),              /* TIME SHARING FLAGS           * 07880000
       **     3 TCBTSTSK BIT(1),             /* - SWAPPED TS TASK            * 07890000
       **     3 TCBSTPPR BIT(1),             /* - TASK SHOULD BE MADE NDSP     07900000
       **                                       VIA TCBSTPP WHEN IT IS NO      07910000
       **                                       LONGER RUNNING A PRIVILEGED    07920000
       **                                       PGM                          * 07930000
       **     3 TCBATT   BIT(1),             /* - TASK SHOULD NOT HAVE         07940000

       **                                       ATTENTION EXITS SCHEDULED ON   07950000
       **                                       IT BY EXIT EFFECTOR          * 07960000
       **     3 TCBTIOTG BIT(1),             /* - PURGE TGET/TPUT AFTER        07970000

       **                                       ATTENTION                    * 07980000
       **     3 *        BIT(1),             /* RESERVED                     * 07990000
       **     3 *        BIT(1),             /* RESERVED                     * 08000000
       **     3 TCBDYDSP BIT(1),             /* M195 TASK IS MEMBER OF         08010000
       **                                       DYNAMIC DISPATCHING            08020000
       **                                       GROUP                  ICB262* 08030000
       **     3 TCBCPUBN BIT(1),             /* FOR M195, ZERO MEANS I/O       08040000
       **                                       BOUND AND ONE MEANS CPU        08050000
       **                                       BOUND                  ICB262* 08060000
       **    2 TCBSTPCT PTR(8),              /* NUMBER OF SETTASK STARTS       08070000
       **                                       WHICH MUST BE ISSUED BEFORE    08080000
       **                                       TASK IS MADE DISPATCHABLE -    08090000

       **                                       FIELD NOT RESTRICTED TO TSO  * 08100000
       **    2 TCBTSLP  PTR(8),              /* LIMIT PRIORITY OF TS TASK    * 08110000
       **    2 TCBTSDP  CHAR(1),             /* DISPATCHING PRIORITY OF TS     08120000
       **                                       TASK                         * 08130000

       **                                                                      08140000
       ** /*           MVT OVERLAY                                           * 08150000
       **                                                                      08160000
       **    2 TCBPQE   PTR(31);             /* POINTER TO DPQE MINUS 8 FOR    08170000
       **                                       THE JOB STEP (MVT)           * 08180000
       **                                                                      08190000
       ** /*           MFT OVERLAY                                           * 08200000
       **                                                                      08210000
       ** DECLARE                                                              08220000
       **   1 TCBOVLY1 BASED(ADDR(TCBPQE)),                                    08230000
       **                                                                      08240000
       **    2 TCBFTLMP PTR(8),              /* TASK LIMIT PRIORITY (MFT)    * 08250000

       **    2 TCBFTFLG CHAR(3),             /* ABEND FLAGS (MFT WITH          08260000
       **                                       SUBTASKS)                    * 08270000
       **     3 TCBFTFL1 CHAR(1),            /* ABEND FLAGS (MFT WITH          08280000

       **                                       SUBTASKS)                    * 08290000
       **      4 *        BIT(1),            /* RESERVED                     * 08300000
       **      4 *        BIT(1),            /* RESERVED                     * 08310000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0017


       **      4 *        BIT(1),            /* RESERVED                     * 08320000
       **      4 *        BIT(1),            /* RESERVED                     * 08330000
       **      4 *        BIT(1),            /* RESERVED                     * 08340000
       **      4 TCBFTTOP BIT(1),            /* - TOP TASK IN TREE BEING       08350000
       **                                       ABTERMED                     * 08360000
       **      4 TCBFTCOM BIT(1),            /* - ABTERM DUMP SUCCESSFULLY     08370000
       **                                       COMPLETED                    * 08380000
       **      4 TCBFTSYN BIT(1),            /* - ASYNCHRONOUS EXITS MAY NOT   08390000

       **                                       BE SCHEDULED                 * 08400000
       **     3 TCBFTFL2 CHAR(1),            /* ABEND FLAGS (MFT WITH          08410000
       **                                       SUBTASKS)                    * 08420000
       **      4 *        BIT(1),            /* RESERVED               ICB264* 08430000

       **      4 *        BIT(1),            /* RESERVED                     * 08440000
       **      4 *        BIT(1),            /* RESERVED                     * 08450000
       **      4 *        BIT(1),            /* RESERVED                     * 08460000
       **      4 *        BIT(1),            /* RESERVED                     * 08470000
       **      4 TCBFTOPN BIT(1),            /* - SYSABEND OPEN (JOBSTEP       08480000
       **                                       TCB)                         * 08490000
       **      4 TCBFTETX BIT(1),            /* - ETXR EXIT REQUESTED BY       08500000
       **                                       ATTACHER                     * 08510000
       **      4 *        BIT(1),            /* RESERVED                     * 08520000
       **     3 TCBFTFL3 CHAR(1),            /* ABEND FLAGS (MFT WITH          08530000
       **                                       SUBTASKS)                    * 08540000
       **      4 *        BIT(1),            /* RESERVED                     * 08550000

       **      4 *        BIT(1),            /* RESERVED                     * 08560000
       **      4 *        BIT(1),            /* RESERVED                     * 08570000
       **      4 *        BIT(1),            /* RESERVED               ICB264* 08580000

       **      4 *        BIT(1),            /* RESERVED                     * 08590000
       **      4 TCBFTDUM BIT(1),            /* - NO ABTERM DUMPS MAY BE       08600000
       **                                       PROVIDED IN THIS STEP        * 08610000
       **      4 *        BIT(2),            /* RESERVED                     * 08620000
       **                                                                      08630000
       ** /*           END OF OVERLAYS                                       * 08640000
       **                                                                      08650000
       **    2 TCBAQE   PTR(31),             /* LIST ORIGIN OF AQE(S) FOR      08660000
       **                                       THIS TASK (MVT)              * 08670000
       **    2 TCBSTAB  PTR(31),             /* ADDR OF STAE CONTROL BLOCK   * 08680000
       **     3 TCBNSTAE CHAR(1),            /* STAE FLAGS                   * 08690000
       **      4 TCBSTABE BIT(1),            /* - ABEND ENTERED BECAUSE OF     08700000

       **                                       ERROR IN STAE PROC           * 08710000
       **      4 TCBQUIES BIT(1),            /* - STAE INVOKED PURGE I/O       08720000
       **                                       ROUTINE WITH QUIESCE I/O       08730000
       **                                       OPTION                       * 08740000

       **      4 TCBXCTL  BIT(1),            /* - CURRENT SCB HAS XCTL=YES     08750000
       **                                       OPTION                       * 08760000
       **      4 TCBSCAT  BIT(1),            /* - SCB WAS CREATED BY A         08770000
       **                                       PROGRAM THAT IS SCATTER        08780000
       **                                       LOADED                       * 08790000
       **      4 TCBHALT  BIT(1),            /* - PURGE I/O ROUTINE DID NOT    08800000
       **                                       SUCCESSFULLY QUIESCE I/O BUT   08810000
       **                                       I/O WAS HALTED               * 08820000
       **      4 TCBSUPER BIT(1),            /* - PROGRAM USING STAE IS IN     08830000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0018


       **                                       SUPERVISOR MODE              * 08840000
       **      4 TCBRETRY BIT(1),            /* - STAE USER REQUESTED THAT A   08850000

       **                                       RETRY ROUTINE BE SCHEDULED     08860000
       **                                       BUT THAT THE RB CHAIN NOT BE   08870000
       **                                       PURGED                       * 08880000

       **      4 TCBVALID BIT(1),            /* - RETRY ROUTINE AND            08890000
       **                                       PARAMETER LIST ADDRESSES ARE   08900000
       **                                       VALID                        * 08910000
       **     3 TCBSTABB PTR(24)  BDY(BYTE),                                   08920000
       **                                    /* ADDR OF STAE CONTROL BLOCK   * 08930000
       **    2 TCBTCT   PTR(31),             /* ADDR OF TCT (MFT WITH          08940000
       **                                       SUBTASKING - OTHERWISE 0)    * 08950000
       **     3 *        CHAR(1),            /* RESERVED                     * 08960000
       **     3 TCBTCTB  PTR(24)  BDY(BYTE),                                   08970000
       **                                    /* ADDR OF TCT (MFT WITH          08980000
       **                                       SUBTASKING - OTHERWISE 0)    * 08990000
       **    2 TCBUSER  PTR(31),             /* FIELD AVAILABLE TO THE USER  * 09000000

       **    2 TCBDAR   CHAR(1),             /* DAMAGE ASSESSMENT ROUTINE      09010000
       **                                       FLAGS                        * 09020000
       **     3 TCBDARP  BIT(1),             /* - PRIMARY DAR RECURSION - -    09030000
       **                                       DAR FAILURE WHILE WRITING      09040000

       **                                       CORE IMAGE                   * 09050000
       **     3 TCBDARS  BIT(1),             /* - SECONDARY DAR RECURSION -    09060000
       **                                       -  DAR FAILURE WHILE           09070000
       **                                       ATTEMPTING TO REINSTATE        09080000
       **                                       FAILING REGION/PARTITION     * 09090000
       **     3 TCBDARD  BIT(1),             /* - A DUMP HAS BEEN REQUESTED    09100000
       **                                       FOR A WRITER OR SCHEDULER      09110000
       **                                       ABEND AND THE USER HAS NOT     09120000
       **                                       PROVIDED A SYSABEND DD CARD  * 09130000
       **     3 TCBDARC  BIT(1),             /* - RECURSION PERMITTED IN       09140000
       **                                       CLOSE - AFTER DAR PROCESSING   09150000
       **                                       COMPLETED (PCP)              * 09160000

       **      4 TCBDARMC BIT(1),            /* DAR HAS BEEN ENTERED TO        09170000
       **                                       HANDLE A VALID RECURSION IN    09180000
       **                                       MUST COMPLETE STATUS THROUGH   09190000

       **                                       ABEND  (MFT/MVT)       ICB264* 09200000
       **     3 TCBDARO  BIT(1),             /* - SYSTEM ERROR TASK IS         09210000
       **                                       FAILING.  DAR DUMP SHOULD NOT  09220000
       **                                       REQUEST ANY ERP PROCESSING     09230000
       **                                       (MVT)                  ICB315* 09240000
       **      4 TCBDAROL BIT(1),            /* PROBLEM PROGRAM STORAGE HAS    09250000
       **                                       BEEN OVERLAID TO PROCESS       09260000
       **                                       DAR  (MFT)             ICB315* 09270000
       **     3 TCBDARWT BIT(1),             /* WTO IN PROCESS FOR DAR         09280000
       **                                       (MFT/MVT)              ICB264* 09290000
       **     3 *        BIT(1),             /* RESERVED                     * 09300000
       **     3 TCBEXSVC BIT(1),             /* SVC DUMP IS EXECUTING FOR      09310000

       **                                       THIS TASK                    * 09320000
       **    2 TCBSCNDY CHAR(3),             /* SECONDARY NONDISPATCHABILITY   09330000
       **                                       FLAGS - (IF ANY BIT IN THESE   09340000
       **                                       BYTES IS ON, THEN SO IS THE    09350000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0019


       **                                       PRIMARY NDSP FLAG)           * 09360000
       **     3 TCBNDSP1 CHAR(1),            /* FIRST BYTE                   * 09370000
       **      4 TCBDARTN BIT(1),            /* - TASK TEMPORARILY             09380000
       **                                       NONDISPATCHABLE - (DAR)      * 09390000
       **      4 TCBDARPN BIT(1),            /* - TASK PERMANENTLY             09400000
       **                                       NONDISPATCHABLE - (DAR)      * 09410000
       **      4 TCBRSTND BIT(1),            /* - TASK TEMPORARILY             09420000
       **                                       NONDISPATCHABLE - (RMS/SER)  * 09430000
       **      4 TCBRSPND BIT(1),            /* - TASK PERMANENTLY             09440000
       **                                       NONDISPATCHABLE - (RMS/SER)    09450000
       **                                       (IF THIS FLAG IS ON THEN THE   09460000

       **                                       PREVIOUS ONE MUST BE TOO)    * 09470000
       **      4 TCBDDRND BIT(1),            /* TASK IS IN DEVICE ALLOCATION   09480000
       **                                       AND DYNAMIC DEVICE             09490000

       **                                       RECONFIGURATION (DDR) HAS      09500000
       **                                       MADE IT NONDISPATCHABLE      * 09510000
       **      4 TCBTPSP  BIT(1),            /* DISPATCHING OF TCAM TASK       09520000
       **                                       MUST BE DELAYED UNTIL TCAM     09530000
       **                                       I/O APPENDAGE OR SVC ROUTINE   09540000
       **                                       HAS COMPLETED EXECUTION        09550000
       **                                       (TCAM IN MULTIPROCESSING       09560000
       **                                       ENVIRONMENT)                 * 09570000
       **      4 *        BIT(1),            /* RESERVED                     * 09580000
       **      4 *        BIT(1),            /* RESERVED                     * 09590000
       **     3 TCBNDSP2 CHAR(1),            /* SECOND BYTE                  * 09600000
       **      4 TCBABD   BIT(1),            /* - SET BY ABDUMP - (MFT WITH    09610000

       **                                       SUBTASKING)                  * 09620000
       **      4 TCBSTPP  BIT(1),            /* - TASK NDSP BECAUSE STOPPED    09630000
       **                                       BY SETTASK                   * 09640000

       **      4 TCBNDSVC BIT(1),            /* - TASK NDSP BECAUSE SVC        09650000
       **                                       DUMP IS EXECUTING FOR          09660000
       **                                       ANOTHER TASK                 * 09670000
       **      4 TCBNDTS  BIT(1),            /* - TASK NDSP BECAUSE BEING      09680000
       **                                       SWAPPED OUT                  * 09690000
       **      4 TCBIWAIT BIT(1),            /* - TASK NDSP DUE TO INPUT       09700000
       **                                       WAIT                         * 09710000
       **      4 TCBOWAIT BIT(1),            /* - TASK NDSP DUE TO OUTPUT      09720000
       **                                       WAIT                         * 09730000
       **      4 *        BIT(1),            /* RESERVED                     * 09740000
       **      4 TCBABE   BIT(1),            /* - ABEND ENTERED FOR THIS       09750000
       **                                       TASK - WHILE SYSABEND DCB      09760000

       **                                       OPEN FOR ANOTHER TASK (MFT     09770000
       **                                       WITH SUBTASKING)             * 09780000
       **     3 TCBNDSP3 CHAR(1),            /* THIRD BYTE                   * 09790000
       **      4 TCBTERM  BIT(1),            /* TERMINATED (MFT WITH           09800000

       **                                       SUBTASKING                   * 09810000
       **      4 TCBABTER BIT(1),            /* - TO BE TERMINATED BY ABEND    09820000
       **                                       -  (MFT WITH SUBTASKING)     * 09830000
       **      4 *        BIT(1),            /* RESERVED                     * 09840000
       **      4 *        BIT(1),            /* RESERVED                     * 09850000
       **      4 *        BIT(1),            /* RESERVED                     * 09860000
       **      4 *        BIT(1),            /* RESERVED                     * 09870000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0020


       **      4 *        BIT(1),            /* RESERVED                     * 09880000
       **      4 *        BIT(1),            /* RESERVED                     * 09890000
       **    2 TCBMDIDS FIXED(31),           /* RESERVED FOR MODEL-DEPENDENT   09900000
       **                                       SUPPORT AND FOR IBM            09910000

       **                                       PROPRIETARY PROGRAMMING        09920000
       **                                       SUPPORT                ICBXXX* 09930000
       **    2 TCBJSCB  PTR(31),             /* ADDR OF JOB STEP CONTROL       09940000

       **                                       BLOCK                        * 09950000
       **     3 TCBRECDE CHAR(1),            /* ABEND RECURSION BYTE   ICB264* 09960000
       **      4 TCBREC   BIT(1),            /* VALID REENTRY TO ABEND         09970000
       **                                       INDICATED IF NON-ZERO VALUE    09980000
       **                                       IN FOLLOWING 7 BITS    ICB264* 09990000
       **      4 *        BIT(7),            /* ABEND BITS             ICB264* 10000000
       **     3 TCBJSCBB PTR(24)  BDY(BYTE);                                   10010000
       **                                    /* ADDR OF JOB STEP CONTROL       10020000
       **                                       BLOCK                        * 10030000
       **                                                                      10040000
       ** /*                   END OF TCB                                    * 10050000
       **/*******************************************************************/ 10060000

       **/*                                                                 */ 10070000
       **/*NAME        ***** JOB/STEP CONTROL BLOCK *****                   */ 10080000
       **/*                                                                 */ 10090000
       **/*FUNCTION    COMMUNICATION OF JOB OR STEP RELATED DATA ITEMS      */ 10100000

       **/*                                                                 */ 10110000
       **/*NOTE        IN ADDITION TO THE MANDATORY USE OF THIS MACRO FOR   */ 10120000
       **/*            REFERENCES TO THE JSCB, MODULES IN MFT OR MVT WHICH  */ 10130000
       **/*            ALLOCATE AND/OR FREE THE JSCB ARE REQUIRED TO USE    */ 10140000
       **/*            THE GETJSCB AND FREEJSCB MACROS.                     */ 10150000
       **/*                                                                 */ 10160000
       **/*RELEASE 20.2, 4/05/71, LEVEL=1                                   */ 10170000
       **/*RELEASE 21, 08/05/71, LEVEL=3                                    */ 10180000
       **/*******************************************************************/ 10190000
       **                                                                      10200000
       **        DCL 1 IEZJSCB BASED (TCBJSCB), /* JOB STEP CONTROL BLOCK */   10210000
       **                                                                      10220000

       **        2 * CHAR (240),               /* ALLOWS ADDRESSIBILITY        10230000
       **                                         FROM TCBJSCB        ICB359*/ 10240000
       **                                                                      10250000

       **/*-----------------------------------------------------------------*/ 10260000
       **/*                                                                 */ 10270000
       **/*SECTION 1   DATA ITEMS USED IN PCP, MFT, AND MVT                 */ 10280000
       **/*                                                                 */ 10290000
       **/*-----------------------------------------------------------------*/ 10300000
       **                                                                      10310000
       **        2 JSCBSEC1,                   /* JSCB SECTION 1 */            10320000
       **              3 JSCBTTTR CHAR (3),     /* JOB Q ADDRESS  (TTR) OF TIO 10330000
       **                                          EXTENSION */                10340000
       **                                                                      10350000
       **              3 JSCBSWT1 CHAR (1),     /* STATUS SWITCHES */          10360000
       **                                                                      10370000

       **                4 JSCBPASS BIT (1),    /* WHEN THIS BIT IS SET TO ONE 10380000
       **                                       AND A CORRESPONDING BIT IN THE 10390000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0021


       **                                       DCB IS SET TO ONE THE OPEN WIL 10400000

       **                                       BYPASS PASSWORD PROTECTION FOR 10410000
       **                                       THE DATA SET BEING OPENED */   10420000
       **                4 *        BIT (1),    /* RESERVED            ICB359* 10430000
       **                4 JSCBLONG BIT (1),    /* LONG RUNNING TASK IN        10440000
       **                                          PARTITION - FAIL            10450000
       **                                          REDEFINE  (MFT)     ICB359* 10460000
       **                4 *        BIT (5),    /* RESERVED            ICB359* 10470000
       **                                                                      10480000
       **              3 JSCBQMPI PTR (31),    /* ADDRESS OF THE QMPA  FOR THE 10490000
       **                                      JOB'S INPUT QUEUE TABLE ENTRY * 10500000
       **                                                                      10510000
       **              3 JSCBQMPO PTR (31),    /* ADDRESS OF THE QMPA FOR THE  10520000

       **                                      JOB'S OUTPUT MSGCLASS QUEUE     10530000
       **                                      ENTRY */                        10540000
       **                                                                      10550000

       **              3 JSCBWTP PTR (31),     /* ADDRESS OF WRITE-TO-         10560000
       **                                      PROGRAMMER WORK AREA USED FOR   10570000
       **                                      WRITING MESSAGES TO JOB'S       10580000
       **                                      SYSOUT LISTING */               10590000
       **                                                                      10600000
       **        2 JSCBEND1;                   /* END OF SECTION 1 */          10610000
       **                                                                      10620000
       **/*-----------------------------------------------------------------*/ 10630000
       **/*                                                                 */ 10640000
       **/*SECTION 2   DATA ITEMS USED IN BOTH MFT AND MVT                  */ 10650000
       **/*                                                                 */ 10660000
       **/*-----------------------------------------------------------------*/ 10670000

       **                                                                      10680000
       **        DCL 1 JSCBSEC2 BASED (ADDR (JSCBEND1)), /* JSCB SECTION 2 */  10690000
       **                                                                      10700000
       **              2 JSCBCSCB PTR (31),    /* ADDRESS OF CSCB USED FOR     10710000

       **                                      PROCESSING COMMANDS RECEIVED    10720000
       **                                      FROM JOB */                     10730000
       **              2 JSCBJCT CHAR(4),      /* SAME AS JSCBJCTA BELOW     * 10740000
       **                3 *        CHAR(1),   /* RESERVED */                  10750000
       **                3 JSCBJCTA CHAR(3),   /* TTR OF JOB'S JCT */          10760000
       **                                                                      10770000
       **        2 JSCBEND2;                   /* END OF SECTION 2 */          10780000
       **                                                                      10790000
       **/*-----------------------------------------------------------------*/ 10800000
       **/*                                                                 */ 10810000
       **/*SECTION 3   DATA ITEMS USED ONLY IN PCP                          */ 10820000
       **/*                                                                 */ 10830000

       **/*-----------------------------------------------------------------*/ 10840000
       **                                                                      10850000
       **        DCL 1 JSCBSEC3 BASED (ADDR (JSCBSEC2)),  /* JSCB SECTION 3 */ 10860000

       **                                                                      10870000
       **              /* CURRENTLY NO PCP-ONLY DATA ITEMS EXIST */            10880000
       **                                                                      10890000
       **        2 JSCBEND3;                   /* END OF SECTION 3 */          10900000
       **                                                                      10910000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0022


       **/*-----------------------------------------------------------------*/ 10920000
       **/*                                                                 */ 10930000
       **/*SECTION 4   DATA ITEMS USED ONLY IN MFT                          */ 10940000
       **/*                                                                 */ 10950000
       **/*-----------------------------------------------------------------*/ 10960000
       **                                                                      10970000

       **        DCL 1 JSCBSEC4 BASED (ADDR (JSCBEND2)),  /* JSCB SECTION 4 */ 10980000
       **                                                                      10990000
       **              /* CURRENTLY NO MFT-ONLY DATA ITEMS EXIST */            11000000
       **                                                                      11010000

       **        2 JSCBEND4;                   /* END OF SECTION 4 */          11020000
       **                                                                      11030000
       **/*-----------------------------------------------------------------*/ 11040000
       **/*                                                                 */ 11050000
       **/*SECTION 5   DATA ITEMS USED ONLY IN MVT                          */ 11060000
       **/*                                                                 */ 11070000
       **/*-----------------------------------------------------------------*/ 11080000
       **                                                                      11090000
       **        DCL 1 JSCBSEC5 BASED (ADDR (JSCBEND2)),  /* JSCB SECTION 5 */ 11100000
       **                                                                      11110000
       **              2 JSCBPSCB PTR (31),    /* ADDRESS OF TSO PROTECTED     11120000
       **                                      STEP CONTROL BLOCK */           11130000

       **                                                                      11140000
       **              2 JSCBTJID FIXED (15),  /* TSO TERMINAL JOB IDENTIFIER* 11150000
       **                                                                      11160000

       **              2 * CHAR (2),            /* RESERVED */                 11170000
       **                                                                      11180000
       **              2 JSCBIECB FIXED (31),   /* ECB USED FOR COMMUNICATION  11190000
       **                                       BETWEEN DYNAMIC ALLOCATION AND 11200000
       **                                       THE INITIATOR IN ORDER TO      11210000
       **                                       PERFORM DATA SET INTEGRITY */  11220000
       **                                                                      11230000
       **        2 JSCBEND5;                   /* END OF SECTION 5 */          11240000
       **                                                                      11250000
       **        /* MACRO DEFINITIONS OF JSCBDISP, JSCBMFTL, AND JSCBMVTL */   11260000
       **                                                                      11270000
       **  JSCBDISP:  GEN  (EQU 240);                                          11280000

       JSCBDISP EQU 240                                                        11290000
                DS    0H                                                       11300000
       **  JSCBMFTL:  GEN  (EQU  24);                                          11310000

       JSCBMFTL EQU  24                                                        11320000
                DS    0H                                                       11330000
       **  JSCBMVTL:  GEN  (EQU  36);                                          11340000
       JSCBMVTL EQU  36                                                        11350000
                DS    0H                                                       11360000
       **                                                                      11370000
       **              /* END OF JSCB */                                       11380000
       *         DCL                                                           11390000
       *               CPPLPTR PTR BASED (R6);                                 11400000
       ** /* *************************************************************** * 11410000
       ** /* THE COMMAND PROCESSOR PARAMETER LIST (CPPL) IS A LIST OF        * 11420000
       ** /* ADDRESSES PASSED FROM THE TMP TO THE CP VIA REGISTER 1          * 11430000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0023


       ** /* *************************************************************** * 11440000
       ** DECLARE                                                              11450000
       **   1 CPPL BASED(CPPLPTR),                                             11460000

       **    2 CPPLCBUF PTR(31),             /* PTR TO COMMAND BUFFER        * 11470000
       **    2 CPPLUPT  PTR(31),             /* PTR TO UPT                   * 11480000
       **    2 CPPLPSCB PTR(31),             /* PTR TO PSCB                  * 11490000
       **    2 CPPLECT  PTR(31);             /* PTR TO ECT                   * 11500000
       **                                                                      11510000
       *       DCL PSCBPTR PTR(31) BASED(ADDR(CPPLPSCB));                      11520000
       * /*                                                            M3049 * 11530000
       * /*      PARAMETER LIST PASSED TO IKJEFF00 BY OPERATOR CP IKJEE100     11540000
       *         LABEL    LENGTH                DESCRIPTION                    11550000
       *         ATMCT 1 WORD POINTER TO CPPL                                  11560000
       *         AOPRND   1 WORD ADDRESS OF OPERAND FIELD IN COMMAND BUFFER    11570000
       *         LNGOPRND 1 WORD LENGTH OF OPERAND FIELD (USED FOR MODIFY, STO 11580000

       *                         AND DISPLAY COMMANDS)                         11590000
       *         ACMDNAME 1 WORD ADDRESS OF COMMAND NAME IN COMMAND BUFFER     11600000
       *         ABUFFER  1 WORD ADDRESS OF COMMAND BUFFER                     11610000

       *         CNTRLFLG HFWORD FLAG BYTE - DEFINED BELOW                     11620000
       *         AUTHCHK  1 BIT  CHECK AUTHORIZATION OF USER ONLY              11630000
       *         CMDCHK   1 BIT  CHECK COMMAND VERB VALIDITY                   11640000
       *         NOPERAND 1 BIT  NO OPERANDS EXIST IN COMMAND BUFFER           11650000
       *         TERMID   HFWORD SAVE AREA FOR TERMINAL ID                   * 11660000
       ** DECLARE                                                              11670000
       **   1 TJB      BASED(R5),                                              11680000
       **    2 TJBTSB   PTR(31),             /* ADDR OF TSB FOR THIS           11690000
       **                                       JOB,0-STARTED BY OPERATOR    * 11700000
       **    2 TJBATTN  CHAR(1),             /* NUMBER OF UNPROCESSED ATTNS    11710000
       **                                       FOR THIS JOB                 * 11720000
       **    2 TJBSTAX  CHAR(1),             /* NUMBER OF STAX EXITS YET       11730000

       **                                       UNSCHEDULED                  * 11740000
       **    2 TJBSTAT  CHAR(1),             /* STATUS FLAGS                 * 11750000
       **     3 TJBNJB   BIT(1),             /* NO JOB,THIS TJB IS CURRENTLY   11760000
       **                                       UNUSED                       * 11770000

       **     3 TJBINCOR BIT(1),             /* USER IN CORE                 * 11780000
       **     3 TJBLOGON BIT(1),             /* LOGON START,SET BY TIOC AT     11790000
       **                                       DIAL-UP,TSC RESET            * 11800000
       **     3 TJBIWAIT BIT(1),             /* INPUT WAIT,TERMINAL JOB IS     11810000
       **                                       IN INPUT WAIT                * 11820000
       **     3 TJBOWAIT BIT(1),             /* OUTPUT WAIT,TERMINAL JOB IS    11830000
       **                                       IN OUTPUT WAIT               * 11840000
       **     3 TJBSILF  BIT(1),             /* SYSTEM INITIATED LOGOFF      * 11850000
       **     3 TJBDISC  BIT(1),             /* DISCONNECT SET TO REQUEST      11860000
       **                                       TIOC TO DISCON LINE          * 11870000
       **     3 TJBSILF2 BIT(1),             /* SYSTEM INITIATED LOGOFF      * 11880000
       **    2 TJBSTAT2 CHAR(1),             /* STATUS FLAGS                 * 11890000

       **     3 TJBHUNG  BIT(1),             /* HUNG UP                      * 11900000
       **     3 TJBHOLD  BIT(1),             /* USER IS IN OWAIT DUE TO HOLD   11910000
       **                                       OPTIONS                      * 11920000

       **     3 TJBOCAB  BIT(1),             /* TSO FAILURE RESULTING IN       11930000
       **                                       OUT-OF-CORE ABEND            * 11940000
       **     3 TJBRNAV  BIT(1),             /* USER CANNOT BE LOGGED ON       11950000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0024


       **                                       BECAUSE MACHINE CHECK IN       11960000
       **                                       REGION OR NO REGION LARGE      11970000
       **                                       ENOUGH BITS                  * 11980000
       **     3 TJBSURSV BIT(1),             /* ON NEXT SWAP IN,DO NOT MARK    11990000
       **                                       SWAP UNIT AVAILABLE FOR USE  * 12000000
       **     3 TJBQUIS  BIT(1),             /* QUIESCE STARTED FOR USER     * 12010000
       **     3 TJBUSERR BIT(1),             /* USER READY TO RUN            * 12020000
       **     3 TJBDEAD  BIT(1),             /* INDIACTE ABEND RECURSION       12030000

       **                                       TO IKJEAT07                  * 12040000
       **    2 TJBEXTNT PTR(31),             /* POINTER TO TJB IN SWAPPED      12050000
       **                                       OUT JOB IMAGE                * 12060000
       **    2 TJBRCB   PTR(31),             /* POINTER TO RCB FOR THIS        12070000

       **                                       REGION                       * 12080000
       **    2 TJBUMSM  PTR(31),             /* POINTER TO UMSM              * 12090000
       **    2 TJBSDCB PTR(31),              /* PTR TO SWAP DCB FOR THIS USR * 12100000
       **    2 TJBUTTMQ FIXED(15),           /* OFFSET IN TT MAP OF TT MAP Q   12110000
       *                                        FOR THIS USER                * 12120000
       **     3 TJBUTTMP BIT(1),             /* IF ON INDICATES PARALLEL SWP * 12130000
       **    2 TJBRSTOR CHAR(1),             /* RESTORE FLAGS, TESTED BY RCT   12140000
       **                                       RESTORE                      * 12150000
       **     3 TJBOWP   BIT(1),             /* POST OUTPUT WAIT,SET BY        12160000
       **                                       TIOC,ENDS AN OWAIT           * 12170000
       **     3 TJBIWP   BIT(1),             /* POST INPUT WAIT,SET BY         12180000
       **                                       TIOC,ENDS AN IWAIT EQU       * 12190000

       **     3 *        BIT(1),             /* RESERVED                     * 12200000
       **     3 TJBLOGP  BIT(1),             /* POST LOGON,POST ECB WAITED     12210000
       **                                       ON BY LOGON IMAGE            * 12220000

       **     3 TJBLWAIT BIT(1),             /* USER IN LONG WAIT,SWAP OUT     12230000
       **                                       IF NOT MADE READY BY RESTORE   12240000
       **                                       PROCESSING EQU               * 12250000
       **     3 *        BIT(1),             /* RESERVED                     * 12260000
       **     3 TJBFAT   BIT(1),             /* AN ATTN EXIT IS REQ FOR THIS   12270000
       **                                       USER                         * 12280000
       **     3 *        BIT(1) ,            /* RESERVED                     * 12290000
       **    2 TJBUMSMN CHAR(1),             /* NUMBER OF MAP ENTRIES IN       12300000
       **                                       UMSM                         * 12310000
       **    2 TJBUSER  CHAR(8),             /* USERID OF THIS JOB             12320000
       **                                       OWNER,PADDED RT WITH BLANKS  * 12330000
       **    2 TJBIPPB  FIXED(31),           /* IPPB CHAIN OF ECB'S TO BE      12340000

       **                                       POSTED BY RESTORE            * 12350000
       **    2 TJBNEWID PTR(8),              /* RGN ID INTO WHICH THIS USER    12360000
       **                                       SHOULD BE LOGGED ON. 0 IF      12370000
       **                                       SELECTED BY DRIVER           * 12380000

       **    2 TJBFLUSL CHAR(1),             /* STAX LEV OF LAST STAX ISSUED   12390000
       **                                       WITH NOPURGE OPTION          * 12400000
       **    2 TJBTJID  FIXED(15),           /* TERMINAL JOB ID              * 12410000
       **    2 TJBMONI  CHAR(1),             /* MONITOR CMD INDICATING INFO    12420000
       **                                       REQUESTED                    * 12430000
       **     3 TJBMDSN  BIT(1),             /* DSNAMES                      * 12440000
       **     3 TJBMJBN  BIT(1),             /* JOBNAMES                     * 12450000
       **     3 TJBMSES  BIT(1),             /* SESSION                      * 12460000
       **     3 TJBMSPA  BIT(1),             /* SPACE                        * 12470000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0025


       **     3 TJBMSTA  BIT(1),             /* STATUS                       * 12480000
       **     3 TJBGETBF BIT(1),             /* THIS BIT INDICATES TPUT SHOULD 12490000

       **                                       ATTEMPT TO GET ADDITIONAL      12500000
       **                                       BUFFERS FOR USER BEFORE GOING  12510000
       **                                       INTO A WAIT STATE            * 12520000

       **     3 *        BIT(1),             /* RESERVED                     * 12530000
       **     3 *        BIT(1),             /* RESERVED                     * 12540000
       **    2 TJBSTAT3 CHAR(1),             /* STATUS FLAGS                 * 12550000
       **     3 TJBDISC2 BIT(1),             /* TJB GOING TO DISCONNECT      * 12560000
       **    2 TJBLINE  CHAR(2);             /* CONTAINS THE BINARY REP OF THE 12570000
       **                                       UNIT ADR OF LINE BEING USED  * 12580000
       ** DECLARE                                                              12590000
       **   1 PSCB     BASED(PSCBPTR),                                         12600000
       ** /* *************************************************************** * 12610000
       ** /* THE PROTECTED STEP CONTROL BLOCK IS CONSTRUCTED BY LOGON AND    * 12620000
       ** /* FILLED IN FROM THE UADS .  A FIXED LENGTH TABLE WITH ATTRIBUTE  * 12630000
       ** /* AND ACCOUNTING FIELDS, THE PSCB IS USED TO MAINTAIN USER ATTRI- * 12640000

       ** /* BUTES AND ACCOUNTING DATA ON A USERID BASIS.  THE ADDRESS OF PS * 12650000
       ** /* IS PASSED TO THE TMP.  HENCE IT IS AN EXTERNAL INTERFACE        * 12660000
       ** /* *************************************************************** * 12670000
       **                                                                      12680000

       **    2 PSCBUSER CHAR(7)  BDY(WORD),                                    12690000
       **                                    /* USERID PADDED RIGHT WITH       12700000
       **                                       BLANKS                       * 12710000
       **    2  PSCBUSRL  PTR(8),         /* LENGTH OF USERID                * 12720000
       **    2 PSCBGPNM CHAR(8),             /* ESOTERIC GROUP NAME INIT BY    12730000
       **                                       LOGON FROM UADS USED BY DYN    12740000
       **                                       ALLOC WHEN UNITNAME NOT        12750000
       **                                       SPECIFIED BUT IS REQUIRED    * 12760000
       **    2    PSCBATR1 CHAR(2),       /* A 15 BIT  STRING OF USER          12770000
       **                                       ATTRIBUTES                   * 12780000
       **     3 PSCBCTRL BIT(1),             /* OPERATOR COMMAND USER        * 12790000
       **     3 PSCBACCT BIT(1),             /* ACCOUNT                      * 12800000

       **     3 PSCBJCL  BIT(1),             /* SUBMIT BITS                  * 12810000
       **     3 *        BIT(1),             /* RESERVED                     * 12820000
       **     3 *        BIT(1),             /* RESERVED                     * 12830000

       **     3 *        BIT(1),             /* RESERVED                     * 12840000
       **     3 *        BIT(1),             /* RESERVED                     * 12850000
       **     3 *        BIT(1),             /* RESERVED                     * 12860000
       **    2  PSCBATR2  CHAR(2),        /* A 15 BIT STRING RESERVED FOR      12870000
       **                                       INSTALLATION USE             * 12880000
       **    2 PSCBCPU  FIXED(31),           /* CUMULATIVE CPU TIME USED       12890000
       **                                       DURING SESSION               * 12900000
       **    2 PSCBSWP  FIXED(31),           /* CUMULATIVE TIME RESIDENT IN    12910000
       **                                       THE REGION                   * 12920000
       **    2 PSCBLTIM FIXED(31),           /* ACTUAL LOGON TIME OF DAY     * 12930000
       **    2 PSCBTCPU FIXED(31),           /* TOTAL CPU TIME USED IN THIS    12940000
       **                                       ACCOUNTING PERIOD,EXCLUDING    12950000

       **                                       THE CURRENT SESSION.         * 12960000
       **    2 PSCBTSWP FIXED(31),           /* TOTAL TIME USER IS RESIDENT    12970000
       **                                       IN THE REGION DURING THIS      12980000

       **                                       ACCT. PER.,EXCL. THE CURR.     12990000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0026


       **                                       SES                          * 13000000
       **    2 PSCBTCON FIXED(31),           /* TOTAL TIME USER IS CONNECTED   13010000
       **                                       THIS ACCT. PERIOD,EXCLUDING    13020000
       **                                       THIS CURR. SES               * 13030000
       **    2 PSCBTCO1 FIXED(31),                                             13040000
       **    2 PSCBRLGB PTR(31),             /* PTR TO RELOGON BUFFER        * 13050000
       **    2 PSCBUPT  PTR(31),             /* PTR TO USER PROFILE TABLE    * 13060000
       **    2 PSCBUPTL FIXED(15),           /* LENGTH OF UPT                * 13070000
       **    2 * BIT(16),                    /* RESERVED FOR IBM USE         * 13080000
       **    2 PSCBRSZ POINTER(32),          /* REGION SIZE REQUESTED IN 2K    13090000

       **                                       UNITS                        * 13100000
       **    2 PSCBU    CHAR(8);             /* RESERVED FOR INSTALLATION      13110000
       **                                       USE                          * 13120000
       **                                                                      13130000

       **                                                                      13140000
       *         DCL                                                           13150000
       *               1 PARMLST BASED (R6),                                   13160000
       *                 2 ATMCT PTR(31),                                      13170000
       *                 2 AOPRND PTR,                                         13180000
       *                 2 LNGOPRND PTR,                                       13190000
       *                 2 ACMDNAME PTR,                                       13200000
       *                 2 ABUFFER PTR,                                        13210000
       *                 2 CNTRLFLG FIXED (15),                                13220000
       *                     3 AUTHCHK BIT (1),                                13230000
       *                     3 CMDCHK BIT (1),                                 13240000
       *                     3 NOPERAND BIT (1),                               13250000

       *                     3 OFFGETBF BIT (1),                               13260000
       *                                   /* INDICATOR TO TURN OFF EXTRA      13270000
       *                                   BUFFERS FLAG IN TJB         M3473 * 13280000

       *                     3 FSTFLG BIT (1), /* FLAG TO GET TERMID ON FIRST  13290000
       *                                          CALL BY OPERATOR           * 13300000
       *               2 TERMID FIXED (15),     /* SAVE AREA FOR TJID  M2059 * 13310000
       *                                                            /* M2059 * 13320000
       *               2 ADDRID PTR (31),       /* POINTER TO MODIFY IDENTIFR* 13330000
       *                                                            /* M2059 * 13340000
       *               2 PROCADDR PTR (31);/* POINTER TO TASK PROC NAME      * 13350000
       *         DCL MODFYID CHAR (8) BASED (ADDRID);               /* M2059 * 13360000
       *                                        /* MODIFY IDENTIFIER         * 13370000
       *         DCL MODFYPRC CHAR (8) BASED (PROCADDR);            /* M2059 * 13380000
       *                                   /* MODIFY PROCEDURE NAME          * 13390000
       *                                                                       13400000

       *                                                                       13410000
       *         DCL                                                           13420000
       * /*                                                            M3049 * 13430000
       * /*      TABLE OF VALID OPERANDS FOR STOP COMMAND                    * 13440000

       *               STOPTBL CHAR (33) INIT                                  13450000
       *               ('JOBNAMESSESS STATUS SPACE DSNAME ');                  13460000
       * /*                                                            M3049 * 13470000
       * /*      ARRAY OF LENGTHS OF VALID OPERANDS IN ASSOCIATED TABLE ABOVE  13480000
       *                                                                     * 13490000
       *         DCL                                                           13500000
       *               STOPLNG (5) FIXED (15) INIT (8,5,7,6,7);                13510000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0027


       * /*                                                            M3049 * 13520000
       * /*      POINTER TO OPERAND ON STOP COMMAND                            13530000
       *                                                                     * 13540000
       *         DCL                                                           13550000

       *               STOPERND CHAR (8) BASED (AOPRND);                       13560000
       * /*                                                            M3049 * 13570000
       * /*      POINTER TO OPERAND IN COMMAND BUFFER                          13580000

       *                                                                     * 13590000
       *         DCL                                                           13600000
       *               OPERAND CHAR (8) BASED (AOPRND);                        13610000
       * /*                                                            M3049 * 13620000
       * /*      TABLE OF VALID COMMAND VERBS FOR OPRATOR MODE                 13630000
       *                                                                     * 13640000
       *         DCL                                                           13650000
       *         CMDTABLE CHAR (64) INIT                                       13660000
       * ('CANCEL DISPLAY MONITOR STOPMN SEND STOP MODIFY C D F MN PM P SE '); 13670000
       *                                   /*                          21002 * 13680000
       * /*                                                            M3049 * 13690000
       * /*      ARRAY OF COMMAND VERB LENGTHS IN ASSOCIATED COMMAND VERB      13700000

       *         TABLE                                                         13710000
       *                                                                     * 13720000
       *         DCL                                                           13730000
       *         CMDLNG (14) FIXED (15) INIT (7,8,8,7,5,5,7,2,2,2,3,3,2,3);    13740000

       *                                   /*                          21002 * 13750000
       * /*      POINTER TO COMMAND VERB IN BUFFER                             13760000
       *                                                                     * 13770000
       * /*                                                            M3049 * 13780000
       * /*      TABLE OF INVALID OPRANDS FOR DISPLAY COMMAND                  13790000
       *                                                                     * 13800000
       * /*                                                            M3049 * 13810000
       *         DCL                                                           13820000
       *               DSPLYTBL CHAR (66) INIT                                 13830000
       * ('C,K PFK CONSOLES U U,M M=TP,JOBNAMES JOBNAMES,STATUS DSNAME SPACE ' 13840000
       * /*                                                            21002 * 13850000
       * /*      ARRAY OF LENGTHS OF DISPLAY OPERANDS IN ASSOCIATED TABLE      13860000

       *                                                                     * 13870000
       * /*                                                            21002 * 13880000
       *         DCL                                                           13890000

       *             DSPLYLNG (13) FIXED (15) INIT (4,4,9,2,2,2,2,3,9,9,7,7,6) 13900000
       * /*      POINTER TO COMMAND NAME IN COMMAND BUFFER             21002 * 13910000
       *         DCL                                                           13920000
       *               CMDNAME CHAR (8) BASED (REG9); /*               21002 * 13930000
       * /*                                                            M3049 * 13940000
       * /*      CONSTANT USED IN SETTING BIT ON FOR INPUT TO SVC 34 TO        13950000
       *         INDICATE SOURCE OF OPERATOR COMMAND IS FROM TERMINAL          13960000
       *                                                                     * 13970000
       *         DCL                                                           13980000
       *               CONSTANT FIXED (31) INIT ('00008000'X);                 13990000
       *        DCL                                                            13990100
       *              HEXITAD PTR(31) BASED(CVTUSER+32);                       13990200

       *        DCL                                                            13990300
       *              HASPEXIT ENTRY BASED(HEXITAD);                           13990400
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0028


       * /*                                                            M3049 * 14000000

       * /*      POINTER TO CVT                                                14010000
       *                                                                     * 14020000
       *         DCL                                                           14030000
       *               CVTLOC PTR (31) BASED (16);                             14040000
       *         DCL                                                           14050000
       *               CSCBPTR PTR BASED(ADDR(JSCBCSCB));                      14060000
       **                                                                      14070000
       **                                                                      14080000
       ** /* --------------------------------------------------------------- * 14090000
       **                                                                      14100000
       ** /*           IEECHAIN MAPPING OF CSCB                              * 14110000
       ** /*           COMMAND SCHEDULING CONTROL BLOCK                      * 14120000

       ** /*           REVISED 9-1-70                                        * 14130000
       **                                                                      14140000
       ** /*     RELEASE 20.2, 2/10/71, LEVEL=1                              * 14150000

       ** /*     RELEASE 21, 8/02/71,LEVEL=2                                 * 14160000
       **                                                                      14170000
       ** /*           RUN TIME JOB DESCRIPTOR RESIDENT IN GLOBAL SQS AND    * 14180000
       ** /*           COMMUNICATION AREA PASSED VIA CSCB QUEUE              * 14190000
       ** /*           FROM COMMAND SCHEDULING ROUTINES                      * 14200000
       ** /*           TO COMMAND EXECUTION ROUTINES                         * 14210000
       **                                                                      14220000
       ** /*     CREATED BY COMMAND SCHEDULER FOR LIFE OF TASK               * 14230000
       ** /*     FOR RDR, WTR, INIT OR MOUNT TASKS                           * 14240000
       **                                                                      14250000
       ** /*     CREATED BY QUEUE MANAGEMENT DEQUEUE FOR LIFE OF JOB         * 14260000
       ** /*     BETWEEN DEQUEUEING AND TERMINATION                          * 14270000

       **                                                                      14280000
       ** /*     CREATED BY SYSOUT WRITER FOR DSB STRING IN QUEUE ENTRY      * 14290000
       ** /*     TO ALLOW CANCELLATION OF WRITER SUBTASKS                    * 14300000
       **                                                                      14310000

       ** /*     UPDATED BY COMMAND SCHEDULER IN EVENT OF                    * 14320000
       ** /*     CANCEL JOBNAME AFTER SELECTION, CANCEL WRITER DEVICE,       * 14330000
       ** /*     MODIFY, OR NON-PERIODIC STOP                                * 14340000
       **                                                                      14350000
       ** DECLARE                                                              14360000
       **   1 CHAIN    BASED(CSCBPTR),                                         14370000
       **                                                                      14380000
       **    2 CHPTR       PTR(31),          /* CHAIN PTR TO NEXT CSCB       * 14390000
       **    2 CHFLG       CHAR(4),          /* FOUR BYTES                   * 14400000
       **     3 CHVCD       CHAR(1),         /* COMMAND VERB CODE            * 14410000
       **     3 CHSZE       PTR(8),          /* SIZE OF THIS CSCB IN DOUBLE    14420000
       **                                       WORDS                        * 14430000

       **     3 CHSTS       CHAR(1),         /* STATUS FLAGS                 * 14440000
       **      4 CHAP     BIT(1),            /* ASSIGNMENT PENDING           * 14450000
       **      4 CHSYS    BIT(1),            /* SYSTEM TASK CSCB             * 14460000

       **      4 CHSOUT   BIT(1),            /* CANCEL ALL SYSOUT            * 14470000
       **      4 CHQSPC   BIT(1),            /* INSUFFICIENT Q SPACE FOR 422   14480000
       **                                       ABEND                        * 14490000
       **      4 CHAD     BIT(1),            /* ADD THIS CSCB TO CHAIN       * 14500000
       **      4 CHDL     BIT(1),            /* DELETE THIS CSCB FROM CHAIN  * 14510000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0029


       **      4 CHFC     BIT(1),            /* FREE THIS CSCB'S CORE        * 14520000
       **      4 CHABTERM BIT(1),            /* EXECUTE BRANCH ENTRY TO        14530000
       **                                       ABTERM                       * 14540000
       **     3 CHACT       CHAR(1),         /* FLAGS INDICATING ACTIVITY      14550000
       **                                       INVOLVED                     * 14560000
       **      4 CHSWAP   BIT(1),            /* SWAPPABLE JOB                * 14570000

       **      4 CHTERM   BIT(1),            /* TERMINAL JOB                 * 14580000
       **      4 CHDISC   BIT(1),            /* CANCEL IMPLIES DISCONNECT    * 14590000
       **      4 CHDSI    BIT(1),            /* ON MEANS NO DATA SET           14600000

       **                                       INTEGRITY                    * 14610000
       **      4 CHCL     BIT(1),            /* CANCELABLE JOB STEP          * 14620000
       **      4 CHCLD    BIT(1),            /* CANCEL COMMUNICATION SWITCH  * 14630000
       **      4 CHAIFX   BIT(1),            /* CANCELABLE--MFTII ONLY       * 14640000
       **      4 CHIFY    BIT(1),            /* SYSTEM ASSIGNED                14650000
       **                                       PROCEDURE--MFTII             * 14660000
       **    2 CHKEY       CHAR(8),          /* 1. ID OF A STARTED TASK        14670000
       **                                       (THIS ID IS THE TASK'S         14680000
       **                                       STEPNAME)  2. JOBNAME OF AN    14690000
       **                                       EXECUTED JOB.                * 14700000
       **    2 CHCLS       CHAR(8),          /* 1.PROCNAME OF A STARTED TASK   14710000
       **                                       (THE PROCNAME IS THE TASK'S    14720000

       **                                       JOBNAME.)  2. JOBNAME OF AN    14730000
       **                                       EXECUTED JOB (SAME AS CHKEY) * 14740000
       **    2 CHUNIT      CHAR(3),          /* UNITNAME (SET FOR STARTED      14750000
       **                                       TASKS ONLY)                  * 14760000

       **    2 CHCIBCTR    PTR(8),           /* MAXIMAL NUMBER OF QUEUED       14770000
       **                                       CIB'S                        * 14780000
       **    2 CHPKE       CHAR(1),          /* PROTECT KEY                  * 14790000
       **    2 CHUCMP      CHAR(1),          /* UCMI (UNIT CONTROL MODULE      14800000
       **                                       INDICATOR)  THIS IS THE ID     14810000
       **                                       OF THE CONSOLE WHICH  ISSUED   14820000
       **                                       THE COMMAND.                 * 14830000
       **    2 CHTJID      FIXED(15),        /* TERMINAL ID                  * 14840000
       **                                                                      14850000
       **    2 CHASM,                                                          14860000
       ** /*                     BEGINNING OF OVERLAY SEGMENT                * 14870000
       **                                                                      14880000

       ** /*           BEGINNING OF CONTROL FORMAT MAPPING AFTER             * 14890000
       ** /*           INTERPRETATION OF COMMAND OPERANDS                    * 14900000
       **                                                                      14910000

       **     3 CHECBP      PTR(31),         /* PTR TO STOP/MODIFY ECB       * 14920000
       **     3 CHCIBP      PTR(31),         /* PTR TO CIB --                * 14930000
       **      4 CHEND    BIT(1),            /* HIGH ORDER BIT OF LAST         14940000
       **                                       PARAMETER POINTER IS ON      * 14950000
       **                                                                      14960000
       ** /*           THE ABOVE ECB AND CIB POINTERS FORM                   * 14970000
       ** /*           THE COMMUNICATIONS PARAMETER LIST MAPPED BY IEZCOM    * 14980000
       **                                                                      14990000
       **      4 *        BIT(1),            /* RESERVED                     * 15000000
       **      4 *        BIT(1),            /* RESERVED                     * 15010000
       **      4 *        BIT(1),            /* RESERVED                     * 15020000
       **      4 *        BIT(1),            /* RESERVED                     * 15030000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0030


       **      4 *        BIT(1),            /* RESERVED                     * 15040000
       **      4 *        BIT(1),            /* RESERVED                     * 15050000
       **      4 *        BIT(1),            /* RESERVED                     * 15060000

       **     3 CHRPRTY     CHAR(1),         /* RESET PRIORITY OF A JOB        15070000
       **                                       WHOSE PRIORITY  HAS BEEN       15080000
       **                                       RESET DURING EXECUTION       * 15090000
       **     3 *           PTR(24)  BDY(BYTE), /* RESERVED                  * 15100000
       **     3 *           FIXED(31),       /* RESERVED                     * 15110000
       **     3 CHECB       FIXED(31),       /* STOP/MODIFY ECB              * 15120000
       **     3 CHCECB      FIXED(31),       /* CANCEL ECB                   * 15130000
       **     3 *        (2) FIXED(31),      /* RESERVED                     * 15140000
       **                                                                      15150000
       **     3 CHSHORT,                                                       15160000
       ** /*                     AFTER MVT JOB SELECT TIME, END OF CSCB.     * 15170000
       ** /*                     MFTII CSCB IS UNCHANGED.                    * 15180000

       **                                                                      15190000
       **      4 CHSWT       CHAR(1),        /* COMMUNICATIONS SWITCHES      * 15200000
       **       5 CHRESC   BIT(1),           /* RESERVED                     * 15210000

       **       5 CHJCT    BIT(1),           /* READER RETURN WITH IN-CORE     15220000
       **                                       JCT                          * 15230000
       **       5 CHPSD    BIT(1),           /* WRITER PAUSE DATASET         * 15240000
       **       5 CHPSF    BIT(1),           /* WRITER PAUSE FORMS           * 15250000
       **       5 CHAC     BIT(1),           /* ID SPECIFIED ON S COMMAND    * 15260000
       **       5 CHRESB   BIT(1),           /* RESERVED                     * 15270000
       **       5 *        BIT(2),           /* RESERVED  (ICB337)    40890  * 15280000
       **      4 CHTCB       PTR(24)  BDY(BYTE), /* TCB PTR (MFTII ONLY)     * 15290000
       **      4 CHSPB       PTR(31),        /* TCB PTR FOR ABTERM--MFTII    * 15300000
       **      4 CHSPC       PTR(31),        /* PTR TO SMALL PARTITION         15310000
       **                                       LIST--MFTII  TRANSIENT RDR     15320000
       **                                       TTR--MFTII  COMPLETION CODE    15330000

       **                                       FOR ABTERM--MFTII            * 15340000
       **      4 CHJCL       PTR(31),        /* JCLS PTR --  IN-CORE JCT PTR   15350000
       **                                       -- DA JCT TTR                * 15360000
       **                                                                      15370000

       **      4 CHQPA    (9) FIXED(31),     /* INPUT Q MANAGER PARAMETER      15380000
       **                                       AREA                         * 15390000
       **      4 CHSQA    (9) FIXED(31),     /* SYSOUT Q MANAGER PARAMETER     15400000
       **                                       AREA  NOTE--THESE 2 QMPAS      15410000
       **                                       EXIST IN MVT CSCBS ONLY        15420000
       **                                       BEFORE INITIATOR  JOB SELECT   15430000
       **                                       TIME.                        * 15440000
       **                                                                      15450000
       **      4 CHUSC       FIXED(31),      /* TIOT LENGTH--MFTII           * 15460000
       **      4 CHJSCB      PTR(31),        /* JSCB PTR--MFTII ONLY         * 15470000
       **      4 *        (4) FIXED(31);     /* RESERVED                     * 15480000
       **                                                                      15490000

       ** /*           END OF CONTROL FORMAT MAPPING AFTER                   * 15500000
       ** /*           INTERPRETATION OF COMMAND OPERANDS                    * 15510000
       **                                                                      15520000

       ** DECLARE 1 CHAINS01                                                   15530000
       **       BASED(ADDR(CHASM)),          /* OVERLAY                      * 15540000
       **                                                                      15550000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0031


       ** /*           BEGINNING OF INPUT FORMAT MAPPING BEFORE              * 15560000
       ** /*           INTERPRETATION OF COMMAND OPERANDS                    * 15570000
       **                                                                      15580000
       **    2 CHBUF       CHAR(124),        /* COMMAND IMAGE (OPERAND         15590000
       **                                       FIELD)                       * 15600000
       **    2 CHTYPE      CHAR(1),          /* FLAGS                        * 15610000
       **     3 CHDSTAT  BIT(1),             /* STATUS DISPLAY (SVC 104) CMD * 15620000
       **     3 *        BIT(5),             /* RESERVED                     * 15630000

       **     3 CHHIAR   BIT(1),             /* ON MEANS H1 SPECIFIED ON       15640000
       **                                       COMMAND (ICB337)      40890  * 15650000
       **     3 CHDEF    BIT(1),             /* ON MEANS DEFAULT TO            15660000
       **                                       H0  (ICB337)          40890  * 15670000

       **    2 *           CHAR(1),          /* RESERVED                     * 15680000
       **    2 CHCNID      CHAR(1),          /* DISPLAY-RECEIVING CONSOLE ID * 15690000
       **    2 CHARID      CHAR(1),          /* DISPLAY SCREEN-AREA ID       * 15700000
       **    2 CHPEND      PTR(31),          /* CHAIN PTR FOR PENDING S        15710000
       **                                       CMS--MFTII ONLY              * 15720000
       **    2 CHINC       FIXED(15),        /* UNIQUE CTR FOR INTERPRETER   * 15730000
       **    2 CHCSYSO     CHAR(1),          /* EXPRESS CANCEL SYSOUT        * 15740000
       **     3 CHALL    BIT(1),             /* ALL SPECIFIED                * 15750000
       **     3 CHINN    BIT(1),             /* IN SPECIFIED                 * 15760000
       **     3 CHOUT    BIT(1),             /* OUT SPECIFIED                * 15770000
       **     3 CHHOLD   BIT(1),             /* HOLD Q SPECIFIED             * 15780000
       **     3 CHQUE    BIT(1),             /* SPECIFIC QUEUE               * 15790000

       **     3 CHDUMP   BIT(1),             /* DUMP SPECIFIED               * 15800000
       **     3 CHJB     BIT(1),             /* END SCAN SWITCH              * 15810000
       **     3 CHRESD   BIT(1),             /* RESERVED                     * 15820000

       **    2 CHSPA       CHAR(1),          /* MFTII STC SWITCHES           * 15830000
       **    2 *           CHAR(8),          /* RESERVED                     * 15840000
       **                                                                      15850000
       ** /*           END OF INPUT FORMAT MAPPING BEFORE                    * 15860000
       ** /*           INTERPRETATION OF COMMAND OPERANDS                    * 15870000
       **                                                                      15880000
       **    2 CHLAST    BDY(BYTE);                                            15890000
       ** /*                     END OF CSCB                                 * 15900000
       **                                                                      15910000
       ** /* --------------------------------------------------------------- * 15920000
       **                                                                      15930000
       *         GEN;                                                          15940000

       *    THE FOLLOWING 5 CARDS ARE COMMENTS CARDS TO PICK UP 18 BYTES OF    15940100
       *  CORE TO ADD HASP RETROFIT SUPPORT OF STATUS/CANCEL FOR MVT           15940200
       *        B     *+18                                                     15950000
       *        DC    AL1(8)                                                   15960000

       *        DC    CL8'IKJEFF00'                                            15970000
       *        DC    CL5'21771'                                         21002 15980000
       *        DS    0H                                                       15990000
       *         R2=R14;                                                       16000000
                LR    @2,@E                                              0052  16010000
       *         R6=R1;                                                        16020000
                LR    @6,@1                                              0053  16030000
       *         IF JSCBPSCB ^=CPPLPSCB THEN                                   16040000
                L     @C,0(0,@6)                                         0054  16050000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0032


                L     @F,8(0,@C)                                         0054  16060000
                L     @8,180(0,@4)                                       0054  16070000

                C     @F,264(0,@8)                                       0054  16080000
                BC    08,@9FF                                            0054  16090000
       *           DO;                                                         16100000

       *                                                                       16110000
       *     BADGUY:                                                           16120000
       *             R15=80;                                                   16130000
       BADGUY   LA    @F,80                                              0056  16140000
       *                                                                       16150000
       *     FIN:                                                              16160000
       *             R14=R2;                                                   16170000
       FIN      LR    @E,@2                                              0057  16180000
       *             GEN (BR R14);                                             16190000
                BR R14                                                         16200000
                DS    0H                                                       16210000
       *           END;                                                        16220000

       *         IF R0=1 THEN                                                  16230000
       @9FF     CH    @0,@D1                                             0060  16240000
       *           GO TO SUBMIT;                                               16250000
                BC    08,SUBMIT                                          0061  16260000

       *         IF R0=2 THEN                                                  16270000
                CH    @0,@D2                                             0062  16280000
       *           GO TO CANSTAT;                                              16290000
                BC    08,CANSTAT                                         0063  16300000
       *         IF R0=3 THEN                                                  16310000
                CH    @0,@D3                                             0064  16320000
       *           GO TO OUTPUT;                                               16330000
                BC    08,OUTPUT                                          0065  16340000
       *         IF R0=4 THEN                                                  16350000
                CH    @0,@D4                                             0066  16360000
       *           GO TO OPERATOR;                                             16370000
                BC    08,OPERATOR                                        0067  16380000

       *          IF R0=6 THEN            /* SECONDARY ENTRY FOR               16380100
                CH    @0,HALF6                                                 16380200
                BC    07,BADGUY                                                16380250

       *            DO;                   /* CANCEL-STATUS                     16380300
       *             IF PSCBJCL='0'B THEN /* CALLER HAVE JCL                   16380400
                L     @C,0(0,@6)                                               16380500
                L     @C,8(0,@C)          PSCBPTR                              16380600
                TM  16(@C),B'00100000'                                         16380700
       *                                  /* ABILITY?                          16380800
       *          GO TO BADGUY;           /* THE CALLER DOES NOT               16380900
                BC    08,BADGUY                                                16381000
       *          R1=PASSPARM;            /* INITIALIZE PARAMETER              16381100
                L     @1,4(0,@6)                                               16381200
       *          CALL HASPEXIT;          /* CALL THE ROUTINE                  16381300
                L     @F,204(0,@3)                                             16381400

                L     @F,32(0,@F)         HEXITAD                              16381500
                BALR  @E,@F                                                    16381600
       *          R15=0;                  /* INDICATE SUCCESSFUL               16381700

                SR    @F,@F                                                    16381800
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0033


       *          GO TO FIN;              /* RETURN TO CALLER                  16381900
                BC    15,FIN                                                   16382000
       *          END;                                                         16382100
       *         GO TO BADGUY;                                                 16390000
       *                                                                       16410000
       *     SUBMIT:                                                           16420000
       *         LINKEE='IKJEFF15';                                            16430000
       SUBMIT   MVC   104(8,@5),@C1                                      0069  16440000
       *     PSWSET:                                                           16450000
       *         LOADPSW=SVRBPSW;                                              16460000

       PSWSET   MVC   96(8,@5),16(@5)                                    0070  16470000
       *         PPMODE='1'B;                                                  16480000
                OI    97(@5),B'00000001'                                 0071  16490000
       *         PSWMASK='FF'X;           /* ENABLE INTERRUPTS     */          16500000

                MVI   96(@5),X'FF'                                       0072  16510000
       *         PSWADDR=ADDR(LINK);                                           16520000
                LA    @F,LINK                                            0073  16530000
                ST    @F,100(0,@5)                                       0073  16540000
       *         GEN (LPSW LOADPSW(R5));                                       16550000
                LPSW LOADPSW(R5)                                               16560000
                DS    0H                                                       16570000
       *                                  /* TURN PROBLEM PROGRAM MODE         16580000
       *                                     BIT ON IN PSW SO AS TO            16590000
       *                                     AVOID SUBPOOL 252 ON              16600000
       *                                     GET/FREEMAINS IN LINKEE           16610000
       *                                     EXCEPT IKJEFF51 WHO WILL BE       16620000

       *                                     ISSUING PRIVILEGED INSTR */       16630000
       *                                                                       16640000
       *     LINK:                                                             16650000

       *         PTDCB=CVTLINK;                                                16660000
       LINK     MVC   100(4,@5),8(@3)                                    0075  16670000
       *         IF PSCBJCL='0'B THEN                                          16680000
                L     @C,0(0,@6)                                         0076  16690000
                L     @C,8(0,@C)          PSCBPTR                        0076  16700000
                TM    16(@C),B'00100000'                                 0076  16710000
       *           GO TO BADGUY;                                               16720000
                BC    08,BADGUY                                          0077  16730000
       *         PTNAME=ADDR(LINKEE);                                          16740000
                LA    @F,104(0,@5)                                       0078  16750000
                ST    @F,96(0,@5)                                        0078  16760000
       *         R1=R6;                                                        16770000

                LR    @1,@6                                              0079  16780000
       *         R6=ADDR(LINKLIST);                                            16790000
                LA    @6,96(0,@5)                                        0080  16800000
       *         GEN (LINK SF=(E,(6)));                                        16810000

                LINK SF=(E,(6))                                                16820000
                DS    0H                                                       16830000
       *         GO TO FIN;                                                    16840000
                BC    15,FIN                                             0082  16850000
       *                                                                       16860000
       *     CANSTAT:                                                          16870000
       *         LINKEE='IKJEFF58';                                  /*A43607* 16880000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0034


       CANSTAT  MVC   104(8,@5),@C5                                      0083  16890000
       *         GO TO LINK;                                                   16900000
                BC    15,LINK                                            0084  16910000
       *                                                                       16920000

       *     OUTPUT:                                                           16930000
       *         LINKEE='IKJEFF61';                                            16940000
       OUTPUT   MVC   104(8,@5),@C6                                      0085  16950000

       *         GO TO PSWSET;                                                 16960000
                BC    15,PSWSET                                          0086  16970000
       *                                                                       16980000
       *     OPERATOR:                                                         16990000
       *         IF PSCBCTRL='0'B THEN      /* IS USER AUTHORIZED TO USE       17000000
       *                                      THIS COMMAND?                  * 17010000
       OPERATOR L     @C,0(0,@6)                                         0087  17020000
                L     @C,8(0,@C)          PSCBPTR                        0087  17030000
                TM    16(@C),B'10000000'                                 0087  17040000
       *           GO TO BADGUY;            /* NO, RETURN CODE '08'          * 17050000
                BC    08,BADGUY                                          0088  17060000
       *         R3 = CVTLOC;               /* SET BASE TO ACCESS TJID       * 17070000

                L     @3,CVTLOC                                          0089  17080000
       *         TERMID = JSCBTJID;         /* GET THE TJID FOR OPERATOR     * 17090000
                L     @8,180(0,@4)                                       0090  17100000
                MVC   22(2,@6),268(@8)                                   0090  17110000

       *         IF AUTHCHK = '1'B          /* SVC ENTERED TO CHECK USER       17120000
       *                                       OPERATOR */                     17130000
       *           THEN DO;                                                    17140000
                TM    20(@6),B'10000000'                                 0091  17150000
                BC    12,@9FE                                            0091  17160000
       *            FSTFLG = '0'B;          /* ZERO UNTIL FIRST CALL BY OPER   17170000
       *                                       WITH LEGIT COMMAND            * 17180000
                NI    20(@6),B'11110111'                                 0093  17190000
       *            GO TO RETOK;                                               17200000
                BC    15,RETOK                                           0094  17210000
       *           END;                                                        17220000
       * /*                                                                    17230000

       *         TEST IF THE SVC WAS ENTERED TO TURN OFF MN BIT IN TJB         17240000
       *         (TJBGETBF) INDICATING REQUEST TO END OPERATOR MODE    M3473   17250000
       *                                                                     * 17260000

       *         IF OFFGETBF = '1'B        /* REQUEST TO TURN OF TJB BIT       17270000
       *                                                               M3473 * 17280000
       *            THEN DO;               /* YES, GO TO SUBRTN TO TURN OFF    17290000
       @9FE     TM    20(@6),B'00010000'                                 0096  17300000
                BC    12,@9FD                                            0096  17310000
       *                                      BIT                      M3473 * 17320000
       *                 CALL BITONOFF;    /* TURN OFF TJBGETBF IN TJB M3473 * 17330000
                BAL   @E,BITONOFF                                        0098  17340000
       *                 GO TO RETOK;      /* GO TO SET UP R15 = 0     M3473 * 17350000
                BC    15,RETOK                                           0099  17360000
       *                 END;              /*                          M3473 * 17370000
       * /*                                                                    17380000

       *         ROUTINE TO VALIDITY CHECK COMMAND                             17390000
       *               REG5  = SUBSCRIPT INTO CMDLNG ARRAY                     17400000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0035


       *               R7    = LENGTH OF COMMAND NAME                          17410000

       *               REG3  = OFFSET INTO CMDTABLE ARRAY                      17420000
       *               REG9  = PTR TO COMMAND NAME IN COMMAND BUFFER   21002 * 17430000
       *         RESTRICT(9);               /*                         21002 * 17440000
       *         REG9  = ACMDNAME;          /* PUT PTR TO COMMAND NAME INTO    17450000
       *                                       REGISTER                21002 * 17460000
       @9FD     L     @9,12(0,@6)                                        0102  17470000
       *         REG3 = 1;                                                     17480000
                LA    @3,1                                               0103  17490000
       *         DO REG5 = 1 TO 14;        /*                          21002 * 17500000
                LA    @5,1                                               0104  17510000
       *           R7 = CMDLNG(REG5);                                          17520000
       @DO9FC   LR    @8,@5                                              0105  17530000

                SLA   @8,1                                               0105  17540000
                LH    @7,CMDLNG-2(@8)                                    0105  17550000
       *           IF CMDNAME(1:R7) = CMDTABLE(REG3) THEN                      17560000

                LR    @C,@3                                              0106  17570000
                LA    @E,CMDTABLE-1(@C)                                  0106  17580000
                LR    @8,@7                                              0106  17590000
                BCTR  @8,0                                               0106  17600000
                LR    @A,@9                                              0106  17610000
                EX    @8,@CLC                                            0106  17620000
       *             GO TO CMDVALID;                                           17630000
                BC    08,CMDVALID                                        0107  17640000
       *           REG3 = REG3 + R7;                                           17650000
                AR    @3,@7                                              0108  17660000
       *         END;                       /* INVALID OPERATOR COMMAND        17670000
       *                                       ENTERED. RETURN TO OERATOR CP   17680000

       *                                       WITH ERROR RETURN CODE. */      17690000
       *         R15 = 4;                   /* INDICATES INVALID COMMAND */    17700000
                AH    @5,@D1                                             0109  17710000
       @DO9FB   CH    @5,@D5                                             0109  17720000

                BC    12,@DO9FC                                          0109  17730000
                LA    @F,4                                               0110  17740000
       *         GO TO FIN;                                                    17750000
                BC    15,FIN                                             0111  17760000
       *                                                                       17770000
       *     CMDVALID:                                                         17780000
       *         IF FSTFLG = '0'B          /* IS THIS THE FIRST CALL OF        17790000
       *                                      SVC 100 WITH LEGIT CMD   M3473 * 17800000
       *            THEN DO;               /* YES, GO TURN EXTRA BUFFERS       17810000
       CMDVALID TM    20(@6),B'00001000'                                 0112  17820000
                BC    05,@9F8                                            0112  17830000
       *                                      BIT IN TJB               M3473 * 17840000

       *                 CALL BITONOFF;    /* GO TO SUBRTN TO TURN BIT ON      17850000
       *                                                               M3473 * 17860000
                BAL   @E,BITONOFF                                        0114  17870000

       *                 FSTFLG = '1'B;    /* NO LONGER FIRST CALL WITH A      17880000
       *                                      LEGITIMATE COMMAND             * 17890000
                OI    20(@6),B'00001000'                                 0115  17900000
       *                 END;              /*                          M3473 * 17910000
       * /*      IF COMMAND VERB IS MODIFY, STOP OR DISPLAY, GO TO SUBROUTINE  17920000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0036


       *         TO VALIDITY CHECK OPERAND                                     17930000
       *                                                                     * 17940000
       *         IF CMDNAME(1:6)='MODIFY' CMDNAME(1)='F' THEN                  17950000
       @9F8     CLC   0(6,@9),@C7                                        0117  17960000
                BC    08,@9F7                                            0117  17970000
                CLI   0(@9),C'F'                                         0117  17980000

                BC    07,@9F6                                            0117  17990000
       *           GO TO MODFY;                                                18000000
                BC    08,MODFY                                           0118  18010000

       *         IF CMDNAME(1:5)='STOP ' CMDNAME(1:2)='P ' THEN                18020000
       @9F6     CLC   0(5,@9),@C9                                        0119  18030000
                BC    08,@9F5                                            0119  18040000
                CLC   0(2,@9),@C10                                       0119  18050000
                BC    07,@9F4                                            0119  18060000
       *           GO TO STOP;             /*                          21002 * 18070000
                BC    08,STOP                                            0120  18080000
       * /*                                                            M3049 * 18090000
       *         IF CMDNAME(1:7)='DISPLAY' CMDNAME(1)='D' THEN                 18100000
       @9F4     CLC   0(7,@9),@C11                                       0121  18110000
                BC    08,@9F3                                            0121  18120000
                CLI   0(@9),C'D'                                         0121  18130000

                BC    07,@9F2                                            0121  18140000
       *            GO TO DISPLAY;                                             18150000
                BC    08,DISPLAY                                         0122  18160000
       *         RELEASE(9);               /*                          21002 * 18170000

       * /*      CHECK FOR NO OPERAND - IF NONE, RETURN TO OPERATOR CP WITH    18180000
       *         ERROR RETURN CODE, ELSE CONTINUE AND CALL SVC 34              18190000
       *                                                                     * 18200000
       *         IF NOPERAND = '1'B        /* IS THERE AN OPERAND            * 18210000
       *           THEN                    /* NO,                            * 18220000
       @9F2     TM    20(@6),B'00100000'                                 0124  18230000
                BC    12,@9F1                                            0124  18240000
       *             DO;                                                       18250000
       *               R15 = 12;           /* INDICATES MISSING OPERAND   */   18260000
                LA    @F,12                                              0126  18270000
       *               GO TO FIN;          /* RETURN TO OPERATOR CP          * 18280000
                BC    15,FIN                                             0127  18290000

       *             END;                                                      18300000
       *                                                                       18310000
       * /*                                                            M3049 * 18320000

       * /*      SET UP PARAMETER REGISTERS0 AND 1 TO ISSUE SVC 34             18330000
       *                                                                     * 18340000
       *     SVC34:                                                            18350000
       *         R1 = ABUFFER;          /* POINT TO COMMAND BUFFER           * 18360000
       @9F1     EQU   *                                                  0129  18370000
       SVC34    L     @1,16(0,@6)                                        0129  18380000
       *         R0 = TERMID;           /* GET TERMINAL ID FROM SAVE AREA    * 18390000
                LH    @0,22(0,@6)                                        0130  18400000
       *         R0 = R0 CONSTANT;      /* OR R0 WITH CONSTANT TO TURN ON      18410000
       *                                   HIGH-ORDER BIT OF LOWER-HALF WORD   18420000
       *                                   TO INDICATE TERMINAL REQUEST      * 18430000
                O     @0,CONSTANT                                        0131  18440000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0037


       *         GEN;                                                          18450000
                SVC 34                                                         18460000
                DS    0H                                                       18470000

       *                                                                       18480000
       *     RETOK:                                                            18490000
       *         R15 = 0;                                                      18500000
       RETOK    SR    @F,@F                                              0133  18510000
       *         GO TO FIN;                                                    18520000
                BC    15,FIN                                             0134  18530000
       *                                                                       18540000
       *                                                                       18550000
       * /*      VALIDITY CHECK STOP OPERAND AGAINST TABLE OF VALID            18560000
       *         MONITOR KEYWORDS TO PREVENT STOPHING OF ANYTHING              18570000
       *         OTHER THAN A MONITOR FUNCTION                               * 18580000
       *                                                                       18590000

       *     STOP:                                                             18600000
       *         REG3 = 1;                                                     18610000
       STOP     LA    @3,1                                               0135  18620000

       *         DO REG5 = 1 TO 5 BY 1;                                        18630000
                LA    @5,1                                               0136  18640000
       *           R7 = STOPLNG(REG5);                                         18650000
       @DO9F0   LR    @C,@5                                              0137  18660000
                SLA   @C,1                                               0137  18670000
                LH    @7,STOPLNG-2(@C)                                   0137  18680000
       *           IF STOPERND(1:R7) = STOPTBL(REG3) THEN                      18690000
                LR    @8,@3                                              0138  18700000
                LA    @E,STOPTBL-1(@8)                                   0138  18710000
                LR    @9,@7                                              0138  18720000
                BCTR  @9,0                                               0138  18730000
                L     @C,4(0,@6)                                         0138  18740000

                LR    @A,@C                                              0138  18750000
                EX    @9,@CLC                                            0138  18760000
       *             GO TO SVC34;                                              18770000
                BC    08,SVC34                                           0139  18780000

       *           REG3 = REG3 + R7;                                           18790000
                AR    @3,@7                                              0140  18800000
       *         END;                                                          18810000
       *                                                                       18820000
       *     INVOPER:                                                          18830000
       *         R15 = 8;                   /* INVALID OPRAND ON COMMAND */    18840000
                AH    @5,@D1                                             0141  18850000
       @DO9EF   CH    @5,@D6                                             0141  18860000
                BC    12,@DO9F0                                          0141  18870000
       INVOPER  LA    @F,8                                               0142  18880000
       *         GO TO FIN;                                                    18890000
                BC    15,FIN                                             0143  18900000

       * /*                                                            M3049 * 18910000
       * /*      VALIDITY CHECK DISPLAY OPERAND TO PREVENT ISSUING DISPLAY     18920000
       *         COMMAND FROM TERMINAL OF UNSUPPORTED DISPLAY FUNCTIONS        18930000

       *         (CONSOLES, MATRIX, UNITS, TP)                                 18940000
       *                                                                     * 18950000
       * /*                                                            M3049 * 18960000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0038


       * DISPLAY:                                                              18970000
       *         REG3 = 1;                 /* INITIALIZE OFFSET INTO TABLE   * 18980000
       DISPLAY  LA    @3,1                                               0144  18990000
       *         DO REG5 = 1 TO 13 BY 1;   /*                          21002 * 19000000
                LA    @5,1                                               0145  19010000
       *            R7 = DSPLYLNG(REG5);   /* GET LENGTH OF OPERAND          * 19020000
       @DO9EC   LR    @C,@5                                              0146  19030000
                SLA   @C,1                                               0146  19040000

                LH    @7,DSPLYLNG-2(@C)                                  0146  19050000
       *            IF OPERAND(1:R7) = DSPLYTBL(REG3) THEN                     19060000
                LR    @8,@3                                              0147  19070000
                LA    @E,DSPLYTBL-1(@8)                                  0147  19080000

                LR    @9,@7                                              0147  19090000
                BCTR  @9,0                                               0147  19100000
                L     @C,4(0,@6)                                         0147  19110000
                LR    @A,@C                                              0147  19120000
                EX    @9,@CLC                                            0147  19130000
       *               GO TO INVOPER;      /* IF INVALID OPERAND RETURN TO CP* 19140000
                BC    08,INVOPER                                         0148  19150000
       *            REG3 = REG3 + R7;      /* UPDATE OFFSET INTO OPERAND TABL* 19160000
                AR    @3,@7                                              0149  19170000
       *         END;                                                          19180000
       *         GO TO SVC34;              /* GO TO PROCESS COMMAND          * 19190000
                AH    @5,@D1                                             0150  19200000

       @DO9EB   CH    @5,@D7                                             0150  19210000
                BC    12,@DO9EC                                          0150  19220000
                BC    15,SVC34                                           0151  19230000

       *                                                                       19240000
       * /*                                                            M3049 * 19250000
       * /*      VALIDITY CHECK MODIFY OPERAND PROCEDURE NAME AND/OR           19260000
       *         PROCEDURE IDENTIFIER (MODIFY OF TSO SUBSYSTEM ONLY)           19270000
       *                                                                     * 19280000
       *     MODFY:                                                            19290000
       *         R7=LNGOPRND;                                                  19300000
       MODFY    L     @7,8(0,@6)                                         0152  19310000
       *         R3 = CVTLOC;                                                  19320000
                L     @3,CVTLOC                                          0153  19330000
       *         R4 = TSCVTT06;             /* GET TCB OF TS DRIVER    M2059 * 19340000
                L     @C,228(0,@3)                                       0154  19350000

                L     @4,128(0,@C)                                       0154  19360000
       *                                                            /* M2059 * 19370000
       *         IF PROCADDR = 0           /* IF A PROC NAME WAS NOT SPECIFIED 19380000
       *                                      ON MODIFY COMMAND              * 19390000

       *            THEN IF MODFYID(1:8) = CHKEY                    /* M2059 * 19400000
                SR    @F,@F                                              0155  19410000
                C     @F,28(0,@6)                                        0155  19420000
                BC    07,@9E8                                            0155  19430000
       *                                   /* THEN IF ID SPECIFIED CHECKS      19440000
       *                                      AGAINST STARTED TIME-SHARINGHS   19450000
       *                                      CSCB                           * 19460000
       *                 THEN GO TO SVC34; /* GO TO ISSUE SVC 34       M2059 * 19470000
                L     @8,180(0,@4)                                       0156  19480000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0039


                L     @8,256(0,@8)        CSCBPTR                        0156  19490000
                L     @9,24(0,@6)                                        0156  19500000

                CLC   0(8,@9),8(@8)                                      0156  19510000
                BC    08,SVC34                                           0157  19520000
       *                 ELSE GO TO INVOPER;                        /* M2059 * 19530000

                BC    15,INVOPER                                         0158  19540000
       *                                   /* INVALID ID SPECIFIED, GO TO      19550000
       *                                      ISSUE ERROR RETURN CODE        * 19560000
       *         IF MODFYID(1:8) = CHKEY   /* CHECK ID AND PROC        M2059   19570000
       *                                      PROC NAME SPECIFIED ON MODIFY  * 19580000
       *            & MODFYPRC = CHCLS     /* TO INSURE TIME-SHARING TASK      19590000
       *                                      BEING MODIFYHD                 * 19600000
       *            THEN GO TO SVC34;      /* YES GO ISSUE SVC 34      M2059 * 19610000
       @9E8     L     @C,180(0,@4)                                       0159  19620000
                L     @C,256(0,@C)        CSCBPTR                        0159  19630000
                L     @8,24(0,@6)                                        0159  19640000
                CLC   0(8,@8),8(@C)                                      0159  19650000

                BC    07,@9E7                                            0159  19660000
                L     @9,28(0,@6)                                        0159  19670000
                CLC   0(8,@9),16(@C)                                     0159  19680000

                BC    08,SVC34                                           0160  19690000
       *            ELSE GO TO INVOPER;    /* NO GO TO ERROR ROUTINE   M2059 * 19700000
                BC    15,INVOPER                                         0161  19710000
       * /*                                                                    19720000
       *         THE TASK OF BITONOFF IS ESSENTIALLY TO CHANGE THE STATUS      19730000
       *         OF THE BIT TJBGETBF IN THE TJB. THIS BIT INDICATES TO TPUT    19740000
       *         THAT A COMMAND IS BEING ISSUED WHICH REQUIRES MORE BUFFERS    19750000
       *         THAN IS NORMALLY ALLOTTED A TERMINAL AND TO GET , OR TRY TO   19760000
       *         GET SOME ADDITIONAL BUFFERS SO THAT THE COMMAND CAN WRITE     19770000
       *         ALL ITS MESSAGES TO THER TERMINAL WITHOUT GOING INTO A WAIT   19780000
       *         CONDITION OR RETURNING TO THE CALLER WITHOUT HAVING WRITTEN   19790000
       *         ALL ITS MESSAGES. WHEN AN END COMMAND IS ISSUED OR A DOUBLE   19800000

       *         ATTENTION FOLLOWED BY ANOTHER COMMAND IS ENTERED (BOTH        19810000
       *         INDICATING A REQUEST TO TERMINATE OPERATORE) THIS BIT IN      19820000
       *         THE TJB SHOULD BE TURNED OFF. OF IN THE CASE OF THE INITIAL   19830000
       *         ENTRY TO OPERATOR MODE, THE BIT SHOULD BE TURNED ON SO THAT   19840000

       *         TPUT WILL USE ITS 'DYNAMIC BUFFER GETTING ALGORITHM' WHEN THE 19850000
       *         OPERATOR COMMANDS ARE ISSUED                          M3473 * 19860000
       * /*                                                                  * 19870000
       * BITONOFF: PROC OPTIONS (NOSAVEAREA,DONTSAVE);                         19880000
       @EL01    BCR   15,@E                                              0162  19890000
       *                                   /*                          M3473 * 19900000
       *         RESTRICT (2,3,4,5,6,7,9); /*                          21002 * 19910000
       *         R7 = R14;                 /* SAVE RETURN ADDRESS      M3473 * 19920000
       BITONOFF LR    @7,@E                                              0164  19930000
       *         R3 = CVTLOC;              /* SET UP BASE REG FOR CVT SO THAT  19940000
       *                                      TSCVT IS ADDRESSABLE     M3473 * 19950000
                L     @3,CVTLOC                                          0165  19960000

       *         R5 = JSCBTJID * TSCVTSZU; /* CALCULATE OFFSET INTO TJB        19970000
       *                                      ARRAY FOR TERMINAL USER  M3473 * 19980000
                L     @1,228(0,@3)                                       0166  19990000

                LH    @E,26(0,@1)                                        0166  20000000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0040


                L     @8,180(0,@4)                                       0166  20010000
                MH    @E,268(0,@8)                                       0166  20020000
                LR    @5,@E                                              0166  20030000
       *         R5 = R5 + TSCVTTJB;       /* GET ADDR OF TJB          M3473 * 20040000
                A     @5,0(0,@1)                                         0167  20050000
       *         TJBMONI = TJBMONI && '04'X;                                   20060000
                XI    44(@5),X'04'                                       0168  20070000
       *                                   /* IF TJBGETBF  IS ON - INSTRUCTION 20080000
       *                                      TURNS IT OFF, BUT IF TJBGETBF IS 20090000
       *                                      OFF, INSTRUCTION TURNS IT ON     20100000

       *                                      NOTE-OTHER BITS ARE LEFT AS IS   20110000
       *                                                               M3473 * 20120000
       *         R14 = R7;                 /* RESTORE RETURN ADDRESS   M3473 * 20130000
                LR    @E,@7                                              0169  20140000

       *         RETURN;                   /* RETURN TO CALLER         M3473 * 20150000
       *         END BITONOFF;             /*                          M3473 * 20160000
       @EL02    BCR   15,@E                                              0171  20170000
       *         END                                                           20180000
       * /* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM.       20190000
       * /*%INCLUDE SYSLIB  (CVT     )                                         20200000
       * /*%INCLUDE SYSLIB  (IKJTSCVT)                                         20210000
       * /*%INCLUDE SYSLIB  (IKJTCB  )                                         20220000
       * /*%INCLUDE SYSLIB  (IEZJSCB )                                         20230000
       * /*%INCLUDE SYSLIB  (IKJCPPL )                                         20240000
       * /*%INCLUDE SYSLIB  (IKJTJB  )                                         20250000
       * /*%INCLUDE SYSLIB  (IKJPSCB )                                         20260000

       * /*%INCLUDE SYSLIB  (IEECHAIN)                                         20270000
       * ;                                                                     20280000
       @DATA1   EQU   *                                                        20290000

       @0       EQU   00                  EQUATES FOR REGISTERS 0-15           20300000
       @1       EQU   01                                                       20310000
       @2       EQU   02                                                       20320000
       @3       EQU   03                                                       20330000
       @4       EQU   04                                                       20340000
       @5       EQU   05                                                       20350000
       @6       EQU   06                                                       20360000
       @7       EQU   07                                                       20370000
       @8       EQU   08                                                       20380000
       @9       EQU   09                                                       20390000
       @A       EQU   10                                                       20400000
       @B       EQU   11                                                       20410000

       @C       EQU   12                                                       20420000
       @D       EQU   13                                                       20430000
       @E       EQU   14                                                       20440000
       @F       EQU   15                                                       20450000

       @D1      DC    H'1'                                                     20460000
       @D2      DC    H'2'                                                     20470000
       @D3      DC    H'3'                                                     20480000
       @D4      DC    H'4'                                                     20490000
       @D5      DC    H'14'                                                    20500000
       @D6      DC    H'5'                                                     20510000
       @D7      DC    H'13'                                                    20520000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0041


       @CLC     CLC   0(1,@A),0(@E)                                            20530000
                DS    0F                                                       20540000
       @SIZ001  DC    AL1(&SPN)                                                20550000
                DC    AL3(@DATEND-@DATD)                                       20560000

                DS    0F                                                       20570000
       @C1      DC    C'IKJEFF15'                                              20580000
       @C5      DC    C'IKJEFF58'                                              20590000

       @C6      DC    C'IKJEFF61'                                              20600000
       @C7      DC    C'MODIFY'                                                20610000
       @C10     DC    C'P '                                                    20620000
       @C9      DC    C'STOP '                                                 20630000
       @C11     DC    C'DISPLAY'                                               20640000
                DS    0D                                                       20650000
       @DATA    EQU   *                                                        20660000
       X        EQU   00000000            FULLWORD INTEGER                     20670000
       R0       EQU   00000000            FULLWORD INTEGER REGISTER            20680000
       R1       EQU   00000001            FULLWORD POINTER REGISTER            20690000
       R3       EQU   00000003            FULLWORD POINTER REGISTER            20700000
       CVTPTR   EQU   00000003            FULLWORD POINTER REGISTER            20710000

       R4       EQU   00000004            FULLWORD POINTER REGISTER            20720000
       TCBPTR   EQU   00000004            FULLWORD POINTER REGISTER            20730000
       R5       EQU   00000005            FULLWORD POINTER REGISTER            20740000
       R14      EQU   00000014            FULLWORD INTEGER REGISTER            20750000

       R15      EQU   00000015            FULLWORD INTEGER REGISTER            20760000
       R2       EQU   00000002            FULLWORD INTEGER REGISTER            20770000
       R6       EQU   00000006            FULLWORD POINTER REGISTER            20780000
       R7       EQU   00000007            FULLWORD POINTER REGISTER            20790000
       REG3     EQU   00000003            3  BYTE  POINTER REGISTER            20800000
       REG5     EQU   00000005            3  BYTE  POINTER REGISTER            20810000
       REG8     EQU   00000008            FULLWORD INTEGER REGISTER            20820000
       REG9     EQU   00000009            3  BYTE  POINTER REGISTER            20830000
       EXAREA   EQU   00000096            20 BYTE(S) ON WORD                   20840000
       LINKLIST EQU   EXAREA+00000000     16 BYTE(S) ON WORD                   20850000
       PTNAME   EQU   EXAREA+00000000     FULLWORD POINTER                     20860000
       PTDCB    EQU   EXAREA+00000004     FULLWORD INTEGER                     20870000

       LINKEE   EQU   EXAREA+00000008     8 BYTE(S)                            20880000
       SVRBPSW  EQU   00000016            8 BYTE(S)                            20890000
       LOADPSW  EQU   00000096            8 BYTE(S) ON WORD                    20900000

       PSWMASK  EQU   LOADPSW+00000000    1 BYTE(S)                            20910000
       KEYAMWP  EQU   LOADPSW+00000001    1 BYTE(S)                            20920000
       A00000   EQU   LOADPSW+00000001    7 BIT(S)                             20930000
       PPMODE   EQU   LOADPSW+00000001    1 BIT(S)                             20940000
       A00001   EQU   LOADPSW+00000002    2 BYTE(S)                            20950000
       PSWADDR  EQU   LOADPSW+00000004    FULLWORD POINTER                     20960000
       CVTMAP   EQU   00000000            276 BYTE(S) ON WORD                  20970000
       CVTTCBP  EQU   CVTMAP+00000000     FULLWORD POINTER                     20980000
       CVT0EF00 EQU   CVTMAP+00000004     FULLWORD POINTER                     20990000
       CVTLINK  EQU   CVTMAP+00000008     FULLWORD POINTER                     21000000
       CVTJOB   EQU   CVTMAP+00000012     FULLWORD POINTER                     21010000
       CVTBUF   EQU   CVTMAP+00000016     FULLWORD POINTER                     21020000

       CVTXAPG  EQU   CVTMAP+00000020     FULLWORD POINTER                     21030000
       CVT0VL00 EQU   CVTMAP+00000024     FULLWORD POINTER                     21040000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0042


       CVTPCNVT EQU   CVTMAP+00000028     FULLWORD POINTER                     21050000

       CVTPRLTV EQU   CVTMAP+00000032     FULLWORD POINTER                     21060000
       CVTILK1  EQU   CVTMAP+00000036     FULLWORD POINTER                     21070000
       CVTILK2  EQU   CVTMAP+00000040     FULLWORD POINTER                     21080000
       CVTXTLER EQU   CVTMAP+00000044     FULLWORD POINTER                     21090000
       CVTSYSAD EQU   CVTMAP+00000048     FULLWORD POINTER                     21100000
       CVTBTERM EQU   CVTMAP+00000052     FULLWORD POINTER                     21110000
       CVTDATE  EQU   CVTMAP+00000056     4 BYTE(S)                            21120000
       CVTMSLT  EQU   CVTMAP+00000060     FULLWORD POINTER                     21130000
       CVTZDTAB EQU   CVTMAP+00000064     FULLWORD POINTER                     21140000
       CVTXITP  EQU   CVTMAP+00000068     FULLWORD POINTER                     21150000
       CVTDAR   EQU   CVTMAP+00000072     FULLWORD POINTER                     21160000
       CVT0FN00 EQU   CVTMAP+00000076     FULLWORD POINTER                     21170000

       CVTEXIT  EQU   CVTMAP+00000080     2 BYTE(S)                            21180000
       CVTBRET  EQU   CVTMAP+00000082     2 BYTE(S)                            21190000
       CVTSVDCB EQU   CVTMAP+00000084     FULLWORD POINTER                     21200000

       CVTTPC   EQU   CVTMAP+00000088     FULLWORD POINTER                     21210000
       CVTPBLDL EQU   CVTMAP+00000092     FULLWORD POINTER                     21220000
       CVTSJQ   EQU   CVTMAP+00000096     FULLWORD POINTER                     21230000
       CVTCUCB  EQU   CVTMAP+00000100     FULLWORD POINTER                     21240000
       CVTQTE00 EQU   CVTMAP+00000104     FULLWORD POINTER                     21250000
       CVTQTD00 EQU   CVTMAP+00000108     FULLWORD POINTER                     21260000
       CVTSTB   EQU   CVTMAP+00000112     FULLWORD POINTER                     21270000
       CVTDCB   EQU   CVTMAP+00000116     1 BYTE(S)                            21280000
       A00002   EQU   CVTMAP+00000116     1 BIT(S)                             21290000
       CVT1SSS  EQU   CVTMAP+00000116     1 BIT(S)                             21300000
       CVT2SPS  EQU   CVTMAP+00000116     1 BIT(S)                             21310000
       CVT4MS1  EQU   CVTMAP+00000116     1 BIT(S)                             21320000

       A00003   EQU   CVTMAP+00000116     1 BIT(S)                             21330000
       CVT4MPS  EQU   CVTMAP+00000116     1 BIT(S)                             21340000
       A00004   EQU   CVTMAP+00000116     1 BIT(S)                             21350000

       A00005   EQU   CVTMAP+00000116     1 BIT(S)                             21360000
       CVTDCBA  EQU   CVTMAP+00000117     3  BYTE  POINTER ON WORD+1           21370000
       CVTIOQET EQU   CVTMAP+00000120     FULLWORD POINTER                     21380000
       CVTIXAVL EQU   CVTMAP+00000124     FULLWORD POINTER                     21390000
       CVTNUCB  EQU   CVTMAP+00000128     FULLWORD POINTER                     21400000
       CVTFBOSV EQU   CVTMAP+00000132     FULLWORD POINTER                     21410000
       CVT0DS   EQU   CVTMAP+00000136     FULLWORD POINTER                     21420000
       CVTILCH  EQU   CVTMAP+00000140     FULLWORD POINTER                     21430000
       CVTIERLC EQU   CVTMAP+00000144     FULLWORD POINTER                     21440000
       CVTMSER  EQU   CVTMAP+00000148     FULLWORD POINTER                     21450000
       CVT0PT01 EQU   CVTMAP+00000152     FULLWORD POINTER                     21460000
       CVTTRMTB EQU   CVTMAP+00000156     FULLWORD POINTER                     21470000

       CVTHEAD  EQU   CVTMAP+00000160     FULLWORD POINTER                     21480000
       CVTMZ00  EQU   CVTMAP+00000164     FULLWORD POINTER                     21490000
       CVT1EF00 EQU   CVTMAP+00000168     FULLWORD POINTER                     21500000
       CVTQOCR  EQU   CVTMAP+00000172     FULLWORD POINTER                     21510000

       CVTQMWR  EQU   CVTMAP+00000176     FULLWORD POINTER                     21520000
       CVTSNCTR EQU   CVTMAP+00000180     HALFWORD INTEGER                     21530000
       CVTOPTA  EQU   CVTMAP+00000182     1 BYTE(S)                            21540000
       CVTCCH   EQU   CVTMAP+00000182     1 BIT(S)                             21550000
       CVTAPR   EQU   CVTMAP+00000182     1 BIT(S)                             21560000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0043


       CVTDDR   EQU   CVTMAP+00000182     1 BIT(S)                             21570000
       CVTNIP   EQU   CVTMAP+00000182     1 BIT(S)                             21580000
       CVTATTCH EQU   CVTMAP+00000182     1 BIT(S)                             21590000
       CVTHIAR  EQU   CVTMAP+00000182     1 BIT(S)                             21600000
       CVTASCII EQU   CVTMAP+00000182     1 BIT(S)                             21610000
       A00006   EQU   CVTMAP+00000182     1 BIT(S)                             21620000

       CVTOPTB  EQU   CVTMAP+00000183     1 BYTE(S)                            21630000
       CVTPROT  EQU   CVTMAP+00000183     1 BIT(S)                             21640000
       A00007   EQU   CVTMAP+00000183     1 BIT(S)                             21650000

       CVTTOD   EQU   CVTMAP+00000183     1 BIT(S)                             21660000
       A00008   EQU   CVTMAP+00000183     5 BIT(S)                             21670000
       CVTQCDSR EQU   CVTMAP+00000184     FULLWORD POINTER                     21680000
       CVTQLPAQ EQU   CVTMAP+00000188     FULLWORD POINTER                     21690000
       CVTMPCVT EQU   CVTMAP+00000192     FULLWORD POINTER                     21700000
       CVTSMCA  EQU   CVTMAP+00000196     FULLWORD POINTER                     21710000
       CVTABEND EQU   CVTMAP+00000200     FULLWORD POINTER                     21720000
       CVTUSER  EQU   CVTMAP+00000204     FULLWORD POINTER                     21730000
       CVTMDLDS EQU   CVTMAP+00000208     FULLWORD POINTER                     21740000
       CVTQABST EQU   CVTMAP+00000212     2 BYTE(S)                            21750000
       CVTLNKSC EQU   CVTMAP+00000214     2 BYTE(S)                            21760000
       CVTTSCE  EQU   CVTMAP+00000216     FULLWORD POINTER                     21770000

       CVTPATCH EQU   CVTMAP+00000220     FULLWORD POINTER                     21780000
       CVTRMS   EQU   CVTMAP+00000224     FULLWORD POINTER                     21790000
       CVTTSCVT EQU   CVTMAP+00000228     FULLWORD POINTER                     21800000
       CVTTSFLG EQU   CVTMAP+00000228     1 BYTE(S)                            21810000

       CVTTSRDY EQU   CVTMAP+00000228     1 BIT(S)                             21820000
       A00009   EQU   CVTMAP+00000228     7 BIT(S)                             21830000
       CVTTSCVB EQU   CVTMAP+00000229     3  BYTE  POINTER ON WORD+1           21840000
       CVT0SCR1 EQU   CVTMAP+00000232     FULLWORD POINTER                     21850000
       CVTGTF   EQU   CVTMAP+00000236     FULLWORD POINTER                     21860000
       CVTGTFST EQU   CVTMAP+00000236     1 BYTE(S)                            21870000
       CVTGTFS  EQU   CVTMAP+00000236     2 BIT(S)                             21880000
       CVTSTATE EQU   CVTMAP+00000236     1 BIT(S)                             21890000
       CVTMODE  EQU   CVTMAP+00000236     1 BIT(S)                             21900000
       CVTFORM  EQU   CVTMAP+00000236     1 BIT(S)                             21910000
       CVTUSR   EQU   CVTMAP+00000236     1 BIT(S)                             21920000
       CVTMCTYP EQU   CVTMAP+00000236     1 BIT(S)                             21930000

       A00010   EQU   CVTMAP+00000236     1 BIT(S)                             21940000
       CVTCMT   EQU   CVTMAP+00000237     3  BYTE  POINTER ON WORD+1           21950000
       CVTAQAVT EQU   CVTMAP+00000240     FULLWORD POINTER                     21960000

       CVTTCMFG EQU   CVTMAP+00000240     1 BYTE(S)                            21970000
       CVTTCRDY EQU   CVTMAP+00000240     1 BIT(S)                             21980000
       A00011   EQU   CVTMAP+00000240     7 BIT(S)                             21990000
       CVTAQAVB EQU   CVTMAP+00000241     3  BYTE  POINTER ON WORD+1           22000000
       CVTTATA  EQU   CVTMAP+00000244     FULLWORD POINTER                     22010000
       CVTTSKS  EQU   CVTMAP+00000244     1  BYTE  POINTER                     22020000
       CVTTAT   EQU   CVTMAP+00000245     3  BYTE  POINTER ON WORD+1           22030000
       CVTATER  EQU   CVTMAP+00000248     FULLWORD POINTER                     22040000
       CVTSYST  EQU   CVTMAP+00000248     1  BYTE  POINTER                     22050000
       CVTATERA EQU   CVTMAP+00000249     3  BYTE  POINTER ON WORD+1           22060000
       A00012   EQU   CVTMAP+00000252     FULLWORD POINTER                     22070000
       A00013   EQU   CVTMAP+00000256     FULLWORD POINTER                     22080000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0044


       CVTPURG  EQU   CVTMAP+00000260     FULLWORD POINTER                     22090000
       A00014   EQU   CVTMAP+00000260     1 BYTE(S)                            22100000
       CVTPURGA EQU   CVTMAP+00000261     3  BYTE  POINTER ON WORD+1           22110000

       A00015   EQU   CVTMAP+00000264     FULLWORD POINTER                     22120000
       CVTQMSG  EQU   CVTMAP+00000268     FULLWORD POINTER                     22130000
       A00016   EQU   CVTMAP+00000268     1 BYTE(S)                            22140000
       CVTQMSGA EQU   CVTMAP+00000269     3  BYTE  POINTER ON WORD+1           22150000
       CVTDMSR  EQU   CVTMAP+00000272     FULLWORD POINTER                     22160000
       A00017   EQU   CVTMAP+00000272     1 BYTE(S)                            22170000
       CVTDMSRA EQU   CVTMAP+00000273     3  BYTE  POINTER ON WORD+1           22180000
       A00018   EQU   00000184            8 BYTE(S) ON WORD                    22190000
       CVTCRTTR EQU   A00018+00000000     3 BYTE(S)                            22200000
       CVTSTUSA EQU   A00018+00000003     1 BYTE(S)                            22210000
       A00019   EQU   A00018+00000003     1 BIT(S)                             22220000
       A00020   EQU   A00018+00000003     1 BIT(S)                             22230000

       A00021   EQU   A00018+00000003     1 BIT(S)                             22240000
       A00022   EQU   A00018+00000003     1 BIT(S)                             22250000
       CVTCHPTR EQU   A00018+00000003     1 BIT(S)                             22260000

       CVTSTEPR EQU   A00018+00000003     1 BIT(S)                             22270000
       CVTDATA  EQU   A00018+00000003     1 BIT(S)                             22280000
       A00023   EQU   A00018+00000003     1 BIT(S)                             22290000
       A00024   EQU   A00018+00000004     2 BYTE(S)                            22300000
       A00025   EQU   A00018+00000006     2 BYTE(S)                            22310000
       CVTFIX   EQU   00000256            256 BYTE(S) ON WORD                  22320000
       A00026   EQU   CVTFIX+00000000     248 BYTE(S)                          22330000
       A00027   EQU   CVTFIX+00000248     2 BYTE(S)                            22340000
       CVTMDL   EQU   CVTFIX+00000250     2 BYTE(S)                            22350000
       CVTRELNO EQU   CVTFIX+00000252     4 BYTE(S)                            22360000
       TSCVTPTR EQU   00000228            FULLWORD POINTER                     22370000
       TSCVT    EQU   00000000            136 BYTE(S) ON WORD                  22380000

       TSCVTTJB EQU   TSCVT+00000000      FULLWORD POINTER                     22390000
       TSCVTRCB EQU   TSCVT+00000004      FULLWORD POINTER                     22400000
       TSCVTRPT EQU   TSCVT+00000008      FULLWORD POINTER                     22410000
       TSCVTFLG EQU   TSCVT+00000012      2 BYTE(S)                            22420000

       TSCSWPND EQU   TSCVT+00000012      1 BIT(S)                             22430000
       TSCSWPBG EQU   TSCVT+00000012      1 BIT(S)                             22440000
       TSCLOGON EQU   TSCVT+00000012      1 BIT(S)                             22450000
       TSCDISC  EQU   TSCVT+00000012      1 BIT(S)                             22460000
       TSCVTFL1 EQU   TSCVT+00000014      2 BYTE(S)                            22470000
       TSCSSTOP EQU   TSCVT+00000014      1 BIT(S)                             22480000
       TSCRSTOP EQU   TSCVT+00000014      1 BIT(S)                             22490000
       TSCASTOP EQU   TSCVT+00000014      1 BIT(S)                             22500000
       TSCLOGPR EQU   TSCVT+00000014      1 BIT(S)                             22510000
       A00028   EQU   TSCVT+00000014      1 BIT(S)                             22520000
       A00029   EQU   TSCVT+00000014      1 BIT(S)                             22530000
       A00030   EQU   TSCVT+00000014      1 BIT(S)                             22540000

       A00031   EQU   TSCVT+00000014      1 BIT(S)                             22550000
       TSCVTSDC EQU   TSCVT+00000016      FULLWORD POINTER                     22560000
       TSCVTCUS EQU   TSCVT+00000020      HALFWORD INTEGER                     22570000

       TSCVTLUS EQU   TSCVT+00000022      HALFWORD INTEGER                     22580000
       TSCVTNTJ EQU   TSCVT+00000024      HALFWORD INTEGER                     22590000
       TSCVTSZU EQU   TSCVT+00000026      HALFWORD INTEGER                     22600000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0045


       TSCVTCTR EQU   TSCVT+00000028      HALFWORD INTEGER                     22610000
       TSCVTMUS EQU   TSCVT+00000030      HALFWORD INTEGER                     22620000
       TSCVTSAV EQU   TSCVT+00000032      FULLWORD POINTER                     22630000
       TSCVTECB EQU   TSCVT+00000036      FULLWORD POINTER                     22640000
       TSCVTSIA EQU   TSCVT+00000040      FULLWORD POINTER                     22650000
       TSCVTICB EQU   TSCVT+00000044      FULLWORD POINTER                     22660000
       TSCVTI01 EQU   TSCVT+00000048      FULLWORD POINTER                     22670000
       TSCVTTQE EQU   TSCVT+00000052      FULLWORD POINTER                     22680000

       TSCVTI02 EQU   TSCVT+00000056      FULLWORD POINTER                     22690000
       TSCVTI03 EQU   TSCVT+00000060      FULLWORD POINTER                     22700000
       TSCVTD02 EQU   TSCVT+00000064      FULLWORD POINTER                     22710000
       TSCVTLCQ EQU   TSCVT+00000068      FULLWORD POINTER                     22720000

       TSCVTTRB EQU   TSCVT+00000072      FULLWORD POINTER                     22730000
       TSCVTLPA EQU   TSCVT+00000076      FULLWORD POINTER                     22740000
       TSCVTSLF EQU   TSCVT+00000080      FULLWORD INTEGER                     22750000
       TSCVTTSC EQU   TSCVT+00000084      FULLWORD POINTER                     22760000
       TSCVTSPL EQU   TSCVT+00000088      FULLWORD POINTER                     22770000
       TSCVTRSZ EQU   TSCVT+00000092      HALFWORD INTEGER                     22780000
       A00032   EQU   TSCVT+00000094      2 BYTE(S)                            22790000
       TSCVTSVT EQU   TSCVT+00000096      4 BYTE(S)                            22800000
       TSCVTSVQ EQU   TSCVT+00000100      4 BYTE(S)                            22810000
       TSCVTABN EQU   TSCVT+00000104      FULLWORD POINTER                     22820000
       TSCVTD03 EQU   TSCVT+00000108      FULLWORD POINTER                     22830000
       TSCVTFLM EQU   TSCVT+00000112      FULLWORD POINTER                     22840000

       TSCVTQTP EQU   TSCVT+00000116      FULLWORD POINTER                     22850000
       TSCVTT08 EQU   TSCVT+00000120      FULLWORD POINTER                     22860000
       TSCVTDMP EQU   TSCVT+00000124      FULLWORD POINTER                     22870000

       TSCVTT06 EQU   TSCVT+00000128      FULLWORD POINTER                     22880000
       TSCVTLS3 EQU   TSCVT+00000132      FULLWORD POINTER                     22890000
       TCBFIX   EQU   00000032            32 BYTE(S) ON DWORD                  22900000
       TCBFRS   EQU   TCBFIX+00000000     32 BYTE(S) ON DWORD                  22910000
       TCBFRS0  EQU   TCBFIX+00000000     8 BYTE(S) ON DWORD                   22920000
       TCBFRS2  EQU   TCBFIX+00000008     8 BYTE(S) ON DWORD                   22930000
       TCBFRS4  EQU   TCBFIX+00000016     8 BYTE(S) ON DWORD                   22940000
       TCBFRS6  EQU   TCBFIX+00000024     8 BYTE(S) ON DWORD                   22950000
       TCB      EQU   00000000            156 BYTE(S) ON WORD                  22960000
       TCBRBP   EQU   TCB+00000000        FULLWORD POINTER                     22970000
       TCBPIE   EQU   TCB+00000004        FULLWORD POINTER                     22980000
       TCBDEB   EQU   TCB+00000008        FULLWORD POINTER                     22990000

       TCBTIO   EQU   TCB+00000012        FULLWORD POINTER                     23000000
       TCBCMP   EQU   TCB+00000016        4 BYTE(S)                            23010000
       TCBCMPF  EQU   TCB+00000016        1 BYTE(S)                            23020000
       TCBCREQ  EQU   TCB+00000016        1 BIT(S)                             23030000

       TCBCSTEP EQU   TCB+00000016        1 BIT(S)                             23040000
       TCBCPP   EQU   TCB+00000016        1 BIT(S)                             23050000
       A00033   EQU   TCB+00000016        1 BIT(S)                             23060000
       TCBCDBL  EQU   TCB+00000016        1 BIT(S)                             23070000
       TCBCWTO  EQU   TCB+00000016        1 BIT(S)                             23080000
       TCBCIND  EQU   TCB+00000016        1 BIT(S)                             23090000
       TCBCMSG  EQU   TCB+00000016        1 BIT(S)                             23100000
       TCBCMPC  EQU   TCB+00000017        3 BYTE(S)                            23110000
       TCBTRN   EQU   TCB+00000020        FULLWORD POINTER                     23120000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0046


       TCBABF   EQU   TCB+00000020        1 BYTE(S)                            23130000
       TCBMOD91 EQU   TCB+00000020        1 BIT(S)                             23140000

       TCBNOCHK EQU   TCB+00000020        1 BIT(S)                             23150000
       TCBGRPH  EQU   TCB+00000020        1 BIT(S)                             23160000
       A00034   EQU   TCB+00000020        1 BIT(S)                             23170000

       TCBTCPP  EQU   TCB+00000020        1 BIT(S)                             23180000
       TCBTCP   EQU   TCB+00000020        1 BIT(S)                             23190000
       TCBOLTEP EQU   TCB+00000020        1 BIT(S)                             23200000
       A00035   EQU   TCB+00000020        1 BIT(S)                             23210000
       TCBTRNB  EQU   TCB+00000021        3  BYTE  POINTER                     23220000
       TCBMSS   EQU   TCB+00000024        FULLWORD POINTER                     23230000
       TCBNROC  EQU   TCB+00000024        1  BYTE  POINTER                     23240000
       TCBMSSB  EQU   TCB+00000025        3  BYTE  POINTER                     23250000
       TCBPKF   EQU   TCB+00000028        1 BYTE(S)                            23260000
       TCBFLAG  EQU   TCB+00000028        4 BIT(S)                             23270000
       TCBFP    EQU   TCB+00000028        1 BIT(S)                             23280000
       TCBZERO  EQU   TCB+00000028        3 BIT(S)                             23290000

       TCBFLGS  EQU   TCB+00000029        5 BYTE(S)                            23300000
       TCBFLGS1 EQU   TCB+00000029        1 BYTE(S)                            23310000
       TCBFA    EQU   TCB+00000029        1 BIT(S)                             23320000

       TCBFE    EQU   TCB+00000029        1 BIT(S)                             23330000
       TCBFERA  EQU   TCB+00000029        1 BIT(S)                             23340000
       TCBGTOFM EQU   TCB+00000029        1 BIT(S)                             23350000
       TCBPDUMP EQU   TCB+00000029        1 BIT(S)                             23360000
       TCBFT    EQU   TCB+00000029        1 BIT(S)                             23370000
       TCBFS    EQU   TCB+00000029        1 BIT(S)                             23380000
       TCBFX    EQU   TCB+00000029        1 BIT(S)                             23390000
       TCBFLGS2 EQU   TCB+00000030        1 BYTE(S)                            23400000
       TCBFOINP EQU   TCB+00000030        1 BIT(S)                             23410000
       TCBFSTI  EQU   TCB+00000030        1 BIT(S)                             23420000
       TCBFRA   EQU   TCB+00000030        1 BIT(S)                             23430000
       TCBFSMC  EQU   TCB+00000030        1 BIT(S)                             23440000

       TCBFJMC  EQU   TCB+00000030        1 BIT(S)                             23450000
       TCBFDSOP EQU   TCB+00000030        1 BIT(S)                             23460000
       TCBFETXR EQU   TCB+00000030        1 BIT(S)                             23470000
       TCBFTS   EQU   TCB+00000030        1 BIT(S)                             23480000

       TCBFLGS3 EQU   TCB+00000031        1 BYTE(S)                            23490000
       TCBFSM   EQU   TCB+00000031        1 BIT(S)                             23500000
       TCBFRI   EQU   TCB+00000031        1 BIT(S)                             23510000
       TCBABTRM EQU   TCB+00000031        1 BIT(S)                             23520000
       A00036   EQU   TCB+00000031        1 BIT(S)                             23530000
       TCBFLREG EQU   TCB+00000031        1 BIT(S)                             23540000
       TCBSCH   EQU   TCB+00000031        1 BIT(S)                             23550000
       TCBPKCHG EQU   TCB+00000031        1 BIT(S)                             23560000
       TCBTCTRM EQU   TCB+00000031        1 BIT(S)                             23570000
       TCBDWSTA EQU   TCB+00000031        1 BIT(S)                             23580000
       TCBFLGS4 EQU   TCB+00000032        1 BYTE(S)                            23590000
       TCBNDUMP EQU   TCB+00000032        1 BIT(S)                             23600000

       TCBSER   EQU   TCB+00000032        1 BIT(S)                             23610000
       TCBRQENA EQU   TCB+00000032        1 BIT(S)                             23620000
       A00037   EQU   TCB+00000032        1 BIT(S)                             23630000

       TCBUXNDV EQU   TCB+00000032        1 BIT(S)                             23640000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0047


       TCBMPCVQ EQU   TCB+00000032        1 BIT(S)                             23650000
       TCBMPCND EQU   TCB+00000032        1 BIT(S)                             23660000
       TCBONDSP EQU   TCB+00000032        1 BIT(S)                             23670000
       TCBFLGS5 EQU   TCB+00000033        1 BYTE(S)                            23680000
       TCBFC    EQU   TCB+00000033        1 BIT(S)                             23690000
       TCBABWF  EQU   TCB+00000033        1 BIT(S)                             23700000
       TCBUXNDF EQU   TCB+00000033        1 BIT(S)                             23710000
       TCBWFC   EQU   TCB+00000033        1 BIT(S)                             23720000
       TCBFRO   EQU   TCB+00000033        1 BIT(S)                             23730000
       TCBSYS   EQU   TCB+00000033        1 BIT(S)                             23740000

       TCBSTP   EQU   TCB+00000033        1 BIT(S)                             23750000
       TCBFCD1  EQU   TCB+00000033        1 BIT(S)                             23760000
       TCBPNDSP EQU   TCB+00000033        1 BIT(S)                             23770000
       TCBLMP   EQU   TCB+00000034        1  BYTE  POINTER                     23780000

       TCBDSP   EQU   TCB+00000035        1  BYTE  POINTER                     23790000
       TCBLLS   EQU   TCB+00000036        FULLWORD POINTER                     23800000
       TCBJLB   EQU   TCB+00000040        FULLWORD POINTER                     23810000
       TCBJPQ   EQU   TCB+00000044        FULLWORD POINTER                     23820000
       TCBPURGE EQU   TCB+00000044        1 BYTE(S)                            23830000
       TCBJPQF  EQU   TCB+00000044        1 BIT(S)                             23840000
       A00038   EQU   TCB+00000044        1 BIT(S)                             23850000
       A00039   EQU   TCB+00000044        1 BIT(S)                             23860000
       A00040   EQU   TCB+00000044        1 BIT(S)                             23870000
       A00041   EQU   TCB+00000044        1 BIT(S)                             23880000
       A00042   EQU   TCB+00000044        1 BIT(S)                             23890000
       A00043   EQU   TCB+00000044        1 BIT(S)                             23900000

       A00044   EQU   TCB+00000044        1 BIT(S)                             23910000
       TCBJPQB  EQU   TCB+00000045        3  BYTE  POINTER                     23920000
       TCBGRS   EQU   TCB+00000048        64 BYTE(S) ON WORD                   23930000

       TCBGRS0  EQU   TCB+00000048        FULLWORD POINTER                     23940000
       TCBGRS1  EQU   TCB+00000052        FULLWORD POINTER                     23950000
       TCBGRS2  EQU   TCB+00000056        FULLWORD POINTER                     23960000
       TCBGRS3  EQU   TCB+00000060        FULLWORD POINTER                     23970000
       TCBGRS4  EQU   TCB+00000064        FULLWORD POINTER                     23980000
       TCBGRS5  EQU   TCB+00000068        FULLWORD POINTER                     23990000
       TCBGRS6  EQU   TCB+00000072        FULLWORD POINTER                     24000000
       TCBGRS7  EQU   TCB+00000076        FULLWORD POINTER                     24010000
       TCBGRS8  EQU   TCB+00000080        FULLWORD POINTER                     24020000
       TCBGRS9  EQU   TCB+00000084        FULLWORD POINTER                     24030000
       TCBGRS10 EQU   TCB+00000088        FULLWORD POINTER                     24040000
       TCBGRS11 EQU   TCB+00000092        FULLWORD POINTER                     24050000

       TCBGRS12 EQU   TCB+00000096        FULLWORD POINTER                     24060000
       TCBGRS13 EQU   TCB+00000100        FULLWORD POINTER                     24070000
       TCBGRS14 EQU   TCB+00000104        FULLWORD POINTER                     24080000
       TCBGRS15 EQU   TCB+00000108        FULLWORD POINTER                     24090000

       TCBFSA   EQU   TCB+00000112        FULLWORD POINTER                     24100000
       TCBQEL   EQU   TCB+00000112        1  BYTE  POINTER                     24110000
       TCBFSAB  EQU   TCB+00000113        3  BYTE  POINTER                     24120000
       TCBTCB   EQU   TCB+00000116        FULLWORD POINTER                     24130000
       TCBTME   EQU   TCB+00000120        FULLWORD POINTER                     24140000
       TCBJSTCB EQU   TCB+00000124        FULLWORD POINTER                     24150000
       TCBPIBT  EQU   TCB+00000124        1 BYTE(S)                            24160000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0048


       TCBPART  EQU   TCB+00000124        2 BIT(S)                             24170000
       TCBSIZE  EQU   TCB+00000124        1 BIT(S)                             24180000
       TCBSTOP  EQU   TCB+00000124        1 BIT(S)                             24190000
       A00045   EQU   TCB+00000124        1 BIT(S)                             24200000

       A00046   EQU   TCB+00000124        1 BIT(S)                             24210000
       TCBWRITE EQU   TCB+00000124        1 BIT(S)                             24220000
       TCBSCHED EQU   TCB+00000124        1 BIT(S)                             24230000

       TCBJSTCA EQU   TCB+00000125        3  BYTE  POINTER                     24240000
       TCBNTC   EQU   TCB+00000128        FULLWORD POINTER                     24250000
       TCBOTC   EQU   TCB+00000132        FULLWORD POINTER                     24260000
       TCBLTC   EQU   TCB+00000136        FULLWORD POINTER                     24270000
       TCBIQE   EQU   TCB+00000140        FULLWORD POINTER                     24280000
       TCBECB   EQU   TCB+00000144        FULLWORD POINTER                     24290000
       TCBTSFLG EQU   TCB+00000148        8 BIT(S)                             24300000
       TCBTSTSK EQU   TCB+00000148        1 BIT(S)                             24310000
       TCBSTPPR EQU   TCB+00000148        1 BIT(S)                             24320000
       TCBATT   EQU   TCB+00000148        1 BIT(S)                             24330000
       TCBTIOTG EQU   TCB+00000148        1 BIT(S)                             24340000
       A00047   EQU   TCB+00000148        1 BIT(S)                             24350000

       A00048   EQU   TCB+00000148        1 BIT(S)                             24360000
       TCBDYDSP EQU   TCB+00000148        1 BIT(S)                             24370000
       TCBCPUBN EQU   TCB+00000148        1 BIT(S)                             24380000
       TCBSTPCT EQU   TCB+00000149        1  BYTE  POINTER                     24390000

       TCBTSLP  EQU   TCB+00000150        1  BYTE  POINTER                     24400000
       TCBTSDP  EQU   TCB+00000151        1 BYTE(S)                            24410000
       TCBPQE   EQU   TCB+00000152        FULLWORD POINTER                     24420000
       TCBOVLY1 EQU   00000152            32 BYTE(S) ON WORD                   24430000
       TCBFTLMP EQU   TCBOVLY1+00000000   1  BYTE  POINTER                     24440000
       TCBFTFLG EQU   TCBOVLY1+00000001   3 BYTE(S)                            24450000
       TCBFTFL1 EQU   TCBOVLY1+00000001   1 BYTE(S)                            24460000
       A00049   EQU   TCBOVLY1+00000001   1 BIT(S)                             24470000
       A00050   EQU   TCBOVLY1+00000001   1 BIT(S)                             24480000
       A00051   EQU   TCBOVLY1+00000001   1 BIT(S)                             24490000
       A00052   EQU   TCBOVLY1+00000001   1 BIT(S)                             24500000
       A00053   EQU   TCBOVLY1+00000001   1 BIT(S)                             24510000

       TCBFTTOP EQU   TCBOVLY1+00000001   1 BIT(S)                             24520000
       TCBFTCOM EQU   TCBOVLY1+00000001   1 BIT(S)                             24530000
       TCBFTSYN EQU   TCBOVLY1+00000001   1 BIT(S)                             24540000

       TCBFTFL2 EQU   TCBOVLY1+00000002   1 BYTE(S)                            24550000
       A00054   EQU   TCBOVLY1+00000002   1 BIT(S)                             24560000
       A00055   EQU   TCBOVLY1+00000002   1 BIT(S)                             24570000
       A00056   EQU   TCBOVLY1+00000002   1 BIT(S)                             24580000
       A00057   EQU   TCBOVLY1+00000002   1 BIT(S)                             24590000
       A00058   EQU   TCBOVLY1+00000002   1 BIT(S)                             24600000
       TCBFTOPN EQU   TCBOVLY1+00000002   1 BIT(S)                             24610000
       TCBFTETX EQU   TCBOVLY1+00000002   1 BIT(S)                             24620000
       A00059   EQU   TCBOVLY1+00000002   1 BIT(S)                             24630000
       TCBFTFL3 EQU   TCBOVLY1+00000003   1 BYTE(S)                            24640000
       A00060   EQU   TCBOVLY1+00000003   1 BIT(S)                             24650000
       A00061   EQU   TCBOVLY1+00000003   1 BIT(S)                             24660000

       A00062   EQU   TCBOVLY1+00000003   1 BIT(S)                             24670000
       A00063   EQU   TCBOVLY1+00000003   1 BIT(S)                             24680000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0049


       A00064   EQU   TCBOVLY1+00000003   1 BIT(S)                             24690000

       TCBFTDUM EQU   TCBOVLY1+00000003   1 BIT(S)                             24700000
       A00065   EQU   TCBOVLY1+00000003   2 BIT(S)                             24710000
       TCBAQE   EQU   TCBOVLY1+00000004   FULLWORD POINTER                     24720000
       TCBSTAB  EQU   TCBOVLY1+00000008   FULLWORD POINTER                     24730000
       TCBNSTAE EQU   TCBOVLY1+00000008   1 BYTE(S)                            24740000
       TCBSTABE EQU   TCBOVLY1+00000008   1 BIT(S)                             24750000
       TCBQUIES EQU   TCBOVLY1+00000008   1 BIT(S)                             24760000
       TCBXCTL  EQU   TCBOVLY1+00000008   1 BIT(S)                             24770000
       TCBSCAT  EQU   TCBOVLY1+00000008   1 BIT(S)                             24780000
       TCBHALT  EQU   TCBOVLY1+00000008   1 BIT(S)                             24790000
       TCBSUPER EQU   TCBOVLY1+00000008   1 BIT(S)                             24800000
       TCBRETRY EQU   TCBOVLY1+00000008   1 BIT(S)                             24810000

       TCBVALID EQU   TCBOVLY1+00000008   1 BIT(S)                             24820000
       TCBSTABB EQU   TCBOVLY1+00000009   3  BYTE  POINTER                     24830000
       TCBTCT   EQU   TCBOVLY1+00000012   FULLWORD POINTER                     24840000

       A00066   EQU   TCBOVLY1+00000012   1 BYTE(S)                            24850000
       TCBTCTB  EQU   TCBOVLY1+00000013   3  BYTE  POINTER                     24860000
       TCBUSER  EQU   TCBOVLY1+00000016   FULLWORD POINTER                     24870000
       TCBDAR   EQU   TCBOVLY1+00000020   1 BYTE(S)                            24880000
       TCBDARP  EQU   TCBOVLY1+00000020   1 BIT(S)                             24890000
       TCBDARS  EQU   TCBOVLY1+00000020   1 BIT(S)                             24900000
       TCBDARD  EQU   TCBOVLY1+00000020   1 BIT(S)                             24910000
       TCBDARC  EQU   TCBOVLY1+00000020   1 BIT(S)                             24920000
       TCBDARMC EQU   TCBOVLY1+00000020   1 BIT(S)                             24930000
       TCBDARO  EQU   TCBOVLY1+00000020   1 BIT(S)                             24940000
       TCBDAROL EQU   TCBOVLY1+00000020   1 BIT(S)                             24950000
       TCBDARWT EQU   TCBOVLY1+00000020   1 BIT(S)                             24960000

       A00067   EQU   TCBOVLY1+00000020   1 BIT(S)                             24970000
       TCBEXSVC EQU   TCBOVLY1+00000020   1 BIT(S)                             24980000
       TCBSCNDY EQU   TCBOVLY1+00000021   3 BYTE(S)                            24990000

       TCBNDSP1 EQU   TCBOVLY1+00000021   1 BYTE(S)                            25000000
       TCBDARTN EQU   TCBOVLY1+00000021   1 BIT(S)                             25010000
       TCBDARPN EQU   TCBOVLY1+00000021   1 BIT(S)                             25020000
       TCBRSTND EQU   TCBOVLY1+00000021   1 BIT(S)                             25030000
       TCBRSPND EQU   TCBOVLY1+00000021   1 BIT(S)                             25040000
       TCBDDRND EQU   TCBOVLY1+00000021   1 BIT(S)                             25050000
       TCBTPSP  EQU   TCBOVLY1+00000021   1 BIT(S)                             25060000
       A00068   EQU   TCBOVLY1+00000021   1 BIT(S)                             25070000
       A00069   EQU   TCBOVLY1+00000021   1 BIT(S)                             25080000
       TCBNDSP2 EQU   TCBOVLY1+00000022   1 BYTE(S)                            25090000
       TCBABD   EQU   TCBOVLY1+00000022   1 BIT(S)                             25100000
       TCBSTPP  EQU   TCBOVLY1+00000022   1 BIT(S)                             25110000

       TCBNDSVC EQU   TCBOVLY1+00000022   1 BIT(S)                             25120000
       TCBNDTS  EQU   TCBOVLY1+00000022   1 BIT(S)                             25130000
       TCBIWAIT EQU   TCBOVLY1+00000022   1 BIT(S)                             25140000
       TCBOWAIT EQU   TCBOVLY1+00000022   1 BIT(S)                             25150000

       A00070   EQU   TCBOVLY1+00000022   1 BIT(S)                             25160000
       TCBABE   EQU   TCBOVLY1+00000022   1 BIT(S)                             25170000
       TCBNDSP3 EQU   TCBOVLY1+00000023   1 BYTE(S)                            25180000
       TCBTERM  EQU   TCBOVLY1+00000023   1 BIT(S)                             25190000
       TCBABTER EQU   TCBOVLY1+00000023   1 BIT(S)                             25200000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0050


       A00071   EQU   TCBOVLY1+00000023   1 BIT(S)                             25210000
       A00072   EQU   TCBOVLY1+00000023   1 BIT(S)                             25220000
       A00073   EQU   TCBOVLY1+00000023   1 BIT(S)                             25230000
       A00074   EQU   TCBOVLY1+00000023   1 BIT(S)                             25240000
       A00075   EQU   TCBOVLY1+00000023   1 BIT(S)                             25250000
       A00076   EQU   TCBOVLY1+00000023   1 BIT(S)                             25260000

       TCBMDIDS EQU   TCBOVLY1+00000024   FULLWORD INTEGER                     25270000
       TCBJSCB  EQU   TCBOVLY1+00000028   FULLWORD POINTER                     25280000
       TCBRECDE EQU   TCBOVLY1+00000028   1 BYTE(S)                            25290000

       TCBREC   EQU   TCBOVLY1+00000028   1 BIT(S)                             25300000
       A00077   EQU   TCBOVLY1+00000028   7 BIT(S)                             25310000
       TCBJSCBB EQU   TCBOVLY1+00000029   3  BYTE  POINTER                     25320000
       IEZJSCB  EQU   00000000            260 BYTE(S) ON WORD                  25330000
       A00078   EQU   IEZJSCB+00000000    240 BYTE(S)                          25340000
       JSCBSEC1 EQU   IEZJSCB+00000240    16 BYTE(S) ON WORD                   25350000
       JSCBTTTR EQU   IEZJSCB+00000240    3 BYTE(S)                            25360000
       JSCBSWT1 EQU   IEZJSCB+00000243    1 BYTE(S)                            25370000
       JSCBPASS EQU   IEZJSCB+00000243    1 BIT(S)                             25380000
       A00079   EQU   IEZJSCB+00000243    1 BIT(S)                             25390000
       JSCBLONG EQU   IEZJSCB+00000243    1 BIT(S)                             25400000
       A00080   EQU   IEZJSCB+00000243    5 BIT(S)                             25410000

       JSCBQMPI EQU   IEZJSCB+00000244    FULLWORD POINTER                     25420000
       JSCBQMPO EQU   IEZJSCB+00000248    FULLWORD POINTER                     25430000
       JSCBWTP  EQU   IEZJSCB+00000252    FULLWORD POINTER                     25440000
       JSCBEND1 EQU   IEZJSCB+00000256    FULLWORD INTEGER                     25450000

       JSCBSEC2 EQU   00000256            12 BYTE(S) ON WORD                   25460000
       JSCBCSCB EQU   JSCBSEC2+00000000   FULLWORD POINTER                     25470000
       JSCBJCT  EQU   JSCBSEC2+00000004   4 BYTE(S)                            25480000
       A00081   EQU   JSCBSEC2+00000004   1 BYTE(S)                            25490000
       JSCBJCTA EQU   JSCBSEC2+00000005   3 BYTE(S)                            25500000
       JSCBEND2 EQU   JSCBSEC2+00000008   FULLWORD INTEGER                     25510000
       JSCBSEC3 EQU   00000256            4 BYTE(S) ON WORD                    25520000
       JSCBEND3 EQU   JSCBSEC3+00000000   FULLWORD INTEGER                     25530000
       JSCBSEC4 EQU   00000264            4 BYTE(S) ON WORD                    25540000
       JSCBEND4 EQU   JSCBSEC4+00000000   FULLWORD INTEGER                     25550000
       JSCBSEC5 EQU   00000264            16 BYTE(S) ON WORD                   25560000
       JSCBPSCB EQU   JSCBSEC5+00000000   FULLWORD POINTER                     25570000

       JSCBTJID EQU   JSCBSEC5+00000004   HALFWORD INTEGER                     25580000
       A00082   EQU   JSCBSEC5+00000006   2 BYTE(S)                            25590000
       JSCBIECB EQU   JSCBSEC5+00000008   FULLWORD INTEGER                     25600000

       JSCBEND5 EQU   JSCBSEC5+00000012   FULLWORD INTEGER                     25610000
       CPPLPTR  EQU   00000000            FULLWORD POINTER                     25620000
       CPPL     EQU   00000000            16 BYTE(S) ON WORD                   25630000
       CPPLCBUF EQU   CPPL+00000000       FULLWORD POINTER                     25640000
       CPPLUPT  EQU   CPPL+00000004       FULLWORD POINTER                     25650000
       CPPLPSCB EQU   CPPL+00000008       FULLWORD POINTER                     25660000
       CPPLECT  EQU   CPPL+00000012       FULLWORD POINTER                     25670000
       PSCBPTR  EQU   00000008            FULLWORD POINTER                     25680000
       TJB      EQU   00000000            48 BYTE(S) ON WORD                   25690000
       TJBTSB   EQU   TJB+00000000        FULLWORD POINTER                     25700000
       TJBATTN  EQU   TJB+00000004        1 BYTE(S)                            25710000
       TJBSTAX  EQU   TJB+00000005        1 BYTE(S)                            25720000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0051


       TJBSTAT  EQU   TJB+00000006        1 BYTE(S)                            25730000
       TJBNJB   EQU   TJB+00000006        1 BIT(S)                             25740000
       TJBINCOR EQU   TJB+00000006        1 BIT(S)                             25750000

       TJBLOGON EQU   TJB+00000006        1 BIT(S)                             25760000
       TJBIWAIT EQU   TJB+00000006        1 BIT(S)                             25770000
       TJBOWAIT EQU   TJB+00000006        1 BIT(S)                             25780000
       TJBSILF  EQU   TJB+00000006        1 BIT(S)                             25790000
       TJBDISC  EQU   TJB+00000006        1 BIT(S)                             25800000
       TJBSILF2 EQU   TJB+00000006        1 BIT(S)                             25810000
       TJBSTAT2 EQU   TJB+00000007        1 BYTE(S)                            25820000
       TJBHUNG  EQU   TJB+00000007        1 BIT(S)                             25830000
       TJBHOLD  EQU   TJB+00000007        1 BIT(S)                             25840000
       TJBOCAB  EQU   TJB+00000007        1 BIT(S)                             25850000
       TJBRNAV  EQU   TJB+00000007        1 BIT(S)                             25860000
       TJBSURSV EQU   TJB+00000007        1 BIT(S)                             25870000

       TJBQUIS  EQU   TJB+00000007        1 BIT(S)                             25880000
       TJBUSERR EQU   TJB+00000007        1 BIT(S)                             25890000
       TJBDEAD  EQU   TJB+00000007        1 BIT(S)                             25900000

       TJBEXTNT EQU   TJB+00000008        FULLWORD POINTER                     25910000
       TJBRCB   EQU   TJB+00000012        FULLWORD POINTER                     25920000
       TJBUMSM  EQU   TJB+00000016        FULLWORD POINTER                     25930000
       TJBSDCB  EQU   TJB+00000020        FULLWORD POINTER                     25940000
       TJBUTTMQ EQU   TJB+00000024        HALFWORD INTEGER                     25950000
       TJBUTTMP EQU   TJB+00000024        1 BIT(S)                             25960000
       TJBRSTOR EQU   TJB+00000026        1 BYTE(S)                            25970000
       TJBOWP   EQU   TJB+00000026        1 BIT(S)                             25980000
       TJBIWP   EQU   TJB+00000026        1 BIT(S)                             25990000
       A00083   EQU   TJB+00000026        1 BIT(S)                             26000000
       TJBLOGP  EQU   TJB+00000026        1 BIT(S)                             26010000
       TJBLWAIT EQU   TJB+00000026        1 BIT(S)                             26020000

       A00084   EQU   TJB+00000026        1 BIT(S)                             26030000
       TJBFAT   EQU   TJB+00000026        1 BIT(S)                             26040000
       A00085   EQU   TJB+00000026        1 BIT(S)                             26050000
       TJBUMSMN EQU   TJB+00000027        1 BYTE(S)                            26060000

       TJBUSER  EQU   TJB+00000028        8 BYTE(S)                            26070000
       TJBIPPB  EQU   TJB+00000036        FULLWORD INTEGER                     26080000
       TJBNEWID EQU   TJB+00000040        1  BYTE  POINTER                     26090000
       TJBFLUSL EQU   TJB+00000041        1 BYTE(S)                            26100000
       TJBTJID  EQU   TJB+00000042        HALFWORD INTEGER                     26110000
       TJBMONI  EQU   TJB+00000044        1 BYTE(S)                            26120000
       TJBMDSN  EQU   TJB+00000044        1 BIT(S)                             26130000
       TJBMJBN  EQU   TJB+00000044        1 BIT(S)                             26140000
       TJBMSES  EQU   TJB+00000044        1 BIT(S)                             26150000
       TJBMSPA  EQU   TJB+00000044        1 BIT(S)                             26160000
       TJBMSTA  EQU   TJB+00000044        1 BIT(S)                             26170000
       TJBGETBF EQU   TJB+00000044        1 BIT(S)                             26180000

       A00086   EQU   TJB+00000044        1 BIT(S)                             26190000
       A00087   EQU   TJB+00000044        1 BIT(S)                             26200000
       TJBSTAT3 EQU   TJB+00000045        1 BYTE(S)                            26210000

       TJBDISC2 EQU   TJB+00000045        1 BIT(S)                             26220000
       TJBLINE  EQU   TJB+00000046        2 BYTE(S)                            26230000
       PSCB     EQU   00000000            72 BYTE(S) ON WORD                   26240000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0052


       PSCBUSER EQU   PSCB+00000000       7 BYTE(S) ON WORD                    26250000
       PSCBUSRL EQU   PSCB+00000007       1  BYTE  POINTER                     26260000
       PSCBGPNM EQU   PSCB+00000008       8 BYTE(S)                            26270000
       PSCBATR1 EQU   PSCB+00000016       2 BYTE(S)                            26280000
       PSCBCTRL EQU   PSCB+00000016       1 BIT(S)                             26290000
       PSCBACCT EQU   PSCB+00000016       1 BIT(S)                             26300000
       PSCBJCL  EQU   PSCB+00000016       1 BIT(S)                             26310000
       A00088   EQU   PSCB+00000016       1 BIT(S)                             26320000

       A00089   EQU   PSCB+00000016       1 BIT(S)                             26330000
       A00090   EQU   PSCB+00000016       1 BIT(S)                             26340000
       A00091   EQU   PSCB+00000016       1 BIT(S)                             26350000
       A00092   EQU   PSCB+00000016       1 BIT(S)                             26360000

       PSCBATR2 EQU   PSCB+00000018       2 BYTE(S)                            26370000
       PSCBCPU  EQU   PSCB+00000020       FULLWORD INTEGER                     26380000
       PSCBSWP  EQU   PSCB+00000024       FULLWORD INTEGER                     26390000
       PSCBLTIM EQU   PSCB+00000028       FULLWORD INTEGER                     26400000
       PSCBTCPU EQU   PSCB+00000032       FULLWORD INTEGER                     26410000
       PSCBTSWP EQU   PSCB+00000036       FULLWORD INTEGER                     26420000
       PSCBTCON EQU   PSCB+00000040       FULLWORD INTEGER                     26430000
       PSCBTCO1 EQU   PSCB+00000044       FULLWORD INTEGER                     26440000
       PSCBRLGB EQU   PSCB+00000048       FULLWORD POINTER                     26450000
       PSCBUPT  EQU   PSCB+00000052       FULLWORD POINTER                     26460000
       PSCBUPTL EQU   PSCB+00000056       HALFWORD INTEGER                     26470000
       A00093   EQU   PSCB+00000058       16 BIT(S)                            26480000

       PSCBRSZ  EQU   PSCB+00000060       FULLWORD POINTER                     26490000
       PSCBU    EQU   PSCB+00000064       8 BYTE(S)                            26500000
       PARMLST  EQU   00000000            32 BYTE(S) ON WORD                   26510000

       ATMCT    EQU   PARMLST+00000000    FULLWORD POINTER                     26520000
       AOPRND   EQU   PARMLST+00000004    FULLWORD POINTER                     26530000
       LNGOPRND EQU   PARMLST+00000008    FULLWORD POINTER                     26540000
       ACMDNAME EQU   PARMLST+00000012    FULLWORD POINTER                     26550000
       ABUFFER  EQU   PARMLST+00000016    FULLWORD POINTER                     26560000
       CNTRLFLG EQU   PARMLST+00000020    HALFWORD INTEGER                     26570000
       AUTHCHK  EQU   PARMLST+00000020    1 BIT(S)                             26580000
       CMDCHK   EQU   PARMLST+00000020    1 BIT(S)                             26590000
       NOPERAND EQU   PARMLST+00000020    1 BIT(S)                             26600000
       OFFGETBF EQU   PARMLST+00000020    1 BIT(S)                             26610000
       FSTFLG   EQU   PARMLST+00000020    1 BIT(S)                             26620000
       TERMID   EQU   PARMLST+00000022    HALFWORD INTEGER                     26630000

       ADDRID   EQU   PARMLST+00000024    FULLWORD POINTER                     26640000
       PROCADDR EQU   PARMLST+00000028    FULLWORD POINTER                     26650000
       MODFYID  EQU   00000000            8 BYTE(S)                            26660000

       MODFYPRC EQU   00000000            8 BYTE(S)                            26670000
       STOPTBL  EQU   *                   33 BYTE(S)                           26680000
                DC    C'JOBNAMESSESS STATUS SPACE DSNAME '                     26690000
                ORG   @DATA+00000034                                           26700000
       STOPLNG  EQU   *                   5*HALFWORD INTEGER                   26710000
                DC    FL2'8'                                                   26720000
                DC    FL2'5'                                                   26730000
                DC    FL2'7'                                                   26740000
       HALF6    DC    FL2'6'                                                   26750000
                DC    FL2'7'                                                   26760000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0053


       STOPERND EQU   00000000            8 BYTE(S)                            26770000

       OPERAND  EQU   00000000            8 BYTE(S)                            26780000
       CMDTABLE EQU   *                   64 BYTE(S)                           26790000
                DC    C'CANCEL DISPLAY MONITOR STOPMN SEND STOP MO'            26800000
                DC    C'DIFY C D F MN PM P SE '                                26810000

       CMDLNG   EQU   *                   14*HALFWORD INTEGER                  26820000
                DC    FL2'7'                                                   26830000
                DC    FL2'8'                                                   26840000
                DC    FL2'8'                                                   26850000
                DC    FL2'7'                                                   26860000
                DC    FL2'5'                                                   26870000
                DC    FL2'5'                                                   26880000
                DC    FL2'7'                                                   26890000
                DC    FL2'2'                                                   26900000
                DC    FL2'2'                                                   26910000
                DC    FL2'2'                                                   26920000
                DC    FL2'3'                                                   26930000

                DC    FL2'3'                                                   26940000
                DC    FL2'2'                                                   26950000
                DC    FL2'3'                                                   26960000

       DSPLYTBL EQU   *                   66 BYTE(S)                           26970000
                DC    C'C,K PFK CONSOLES U U,M M=TP,JOBNAMES JOBNA'            26980000
                DC    C'MES,STATUS DSNAME SPACE '                              26990000
       DSPLYLNG EQU   *                   13*HALFWORD INTEGER                  27000000
                DC    FL2'4'                                                   27010000
                DC    FL2'4'                                                   27020000
                DC    FL2'9'                                                   27030000
                DC    FL2'2'                                                   27040000
                DC    FL2'2'                                                   27050000
                DC    FL2'2'                                                   27060000
                DC    FL2'2'                                                   27070000
                DC    FL2'3'                                                   27080000

                DC    FL2'9'                                                   27090000
                DC    FL2'9'                                                   27100000
                DC    FL2'7'                                                   27110000
                DC    FL2'7'                                                   27120000

                DC    FL2'6'                                                   27130000
       CMDNAME  EQU   00000000            8 BYTE(S)                            27140000
       CONSTANT EQU   *                   FULLWORD INTEGER                     27150000
                DC    XL4'00008000'                                            27160000
       CVTLOC   EQU   00000016            FULLWORD POINTER                     27170000
       CSCBPTR  EQU   00000256            FULLWORD POINTER                     27180000
       CHAIN    EQU   00000000            176 BYTE(S) ON WORD                  27190000
       CHPTR    EQU   CHAIN+00000000      FULLWORD POINTER                     27200000
       CHFLG    EQU   CHAIN+00000004      4 BYTE(S)                            27210000
       CHVCD    EQU   CHAIN+00000004      1 BYTE(S)                            27220000
       CHSZE    EQU   CHAIN+00000005      1  BYTE  POINTER                     27230000
       CHSTS    EQU   CHAIN+00000006      1 BYTE(S)                            27240000

       CHAP     EQU   CHAIN+00000006      1 BIT(S)                             27250000
       CHSYS    EQU   CHAIN+00000006      1 BIT(S)                             27260000
       CHSOUT   EQU   CHAIN+00000006      1 BIT(S)                             27270000

       CHQSPC   EQU   CHAIN+00000006      1 BIT(S)                             27280000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0054


       CHAD     EQU   CHAIN+00000006      1 BIT(S)                             27290000
       CHDL     EQU   CHAIN+00000006      1 BIT(S)                             27300000
       CHFC     EQU   CHAIN+00000006      1 BIT(S)                             27310000
       CHABTERM EQU   CHAIN+00000006      1 BIT(S)                             27320000
       CHACT    EQU   CHAIN+00000007      1 BYTE(S)                            27330000
       CHSWAP   EQU   CHAIN+00000007      1 BIT(S)                             27340000
       CHTERM   EQU   CHAIN+00000007      1 BIT(S)                             27350000
       CHDISC   EQU   CHAIN+00000007      1 BIT(S)                             27360000
       CHDSI    EQU   CHAIN+00000007      1 BIT(S)                             27370000
       CHCL     EQU   CHAIN+00000007      1 BIT(S)                             27380000

       CHCLD    EQU   CHAIN+00000007      1 BIT(S)                             27390000
       CHAIFX   EQU   CHAIN+00000007      1 BIT(S)                             27400000
       CHIFY    EQU   CHAIN+00000007      1 BIT(S)                             27410000
       CHKEY    EQU   CHAIN+00000008      8 BYTE(S)                            27420000

       CHCLS    EQU   CHAIN+00000016      8 BYTE(S)                            27430000
       CHUNIT   EQU   CHAIN+00000024      3 BYTE(S)                            27440000
       CHCIBCTR EQU   CHAIN+00000027      1  BYTE  POINTER                     27450000
       CHPKE    EQU   CHAIN+00000028      1 BYTE(S)                            27460000
       CHUCMP   EQU   CHAIN+00000029      1 BYTE(S)                            27470000
       CHTJID   EQU   CHAIN+00000030      HALFWORD INTEGER                     27480000
       CHASM    EQU   CHAIN+00000032      144 BYTE(S) ON WORD                  27490000
       CHECBP   EQU   CHAIN+00000032      FULLWORD POINTER                     27500000
       CHCIBP   EQU   CHAIN+00000036      FULLWORD POINTER                     27510000
       CHEND    EQU   CHAIN+00000036      1 BIT(S)                             27520000
       A00094   EQU   CHAIN+00000036      1 BIT(S)                             27530000
       A00095   EQU   CHAIN+00000036      1 BIT(S)                             27540000

       A00096   EQU   CHAIN+00000036      1 BIT(S)                             27550000
       A00097   EQU   CHAIN+00000036      1 BIT(S)                             27560000
       A00098   EQU   CHAIN+00000036      1 BIT(S)                             27570000

       A00099   EQU   CHAIN+00000036      1 BIT(S)                             27580000
       A00100   EQU   CHAIN+00000036      1 BIT(S)                             27590000
       CHRPRTY  EQU   CHAIN+00000040      1 BYTE(S)                            27600000
       A00101   EQU   CHAIN+00000041      3  BYTE  POINTER                     27610000
       A00102   EQU   CHAIN+00000044      FULLWORD INTEGER                     27620000
       CHECB    EQU   CHAIN+00000048      FULLWORD INTEGER                     27630000
       CHCECB   EQU   CHAIN+00000052      FULLWORD INTEGER                     27640000
       A00103   EQU   CHAIN+00000056      2*FULLWORD INTEGER                   27650000
       CHSHORT  EQU   CHAIN+00000064      112 BYTE(S) ON WORD                  27660000
       CHSWT    EQU   CHAIN+00000064      1 BYTE(S)                            27670000
       CHRESC   EQU   CHAIN+00000064      1 BIT(S)                             27680000
       CHJCT    EQU   CHAIN+00000064      1 BIT(S)                             27690000

       CHPSD    EQU   CHAIN+00000064      1 BIT(S)                             27700000
       CHPSF    EQU   CHAIN+00000064      1 BIT(S)                             27710000
       CHAC     EQU   CHAIN+00000064      1 BIT(S)                             27720000
       CHRESB   EQU   CHAIN+00000064      1 BIT(S)                             27730000

       A00104   EQU   CHAIN+00000064      2 BIT(S)                             27740000
       CHTCB    EQU   CHAIN+00000065      3  BYTE  POINTER                     27750000
       CHSPB    EQU   CHAIN+00000068      FULLWORD POINTER                     27760000
       CHSPC    EQU   CHAIN+00000072      FULLWORD POINTER                     27770000
       CHJCL    EQU   CHAIN+00000076      FULLWORD POINTER                     27780000
       CHQPA    EQU   CHAIN+00000080      9*FULLWORD INTEGER                   27790000
       CHSQA    EQU   CHAIN+00000116      9*FULLWORD INTEGER                   27800000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0055


       CHUSC    EQU   CHAIN+00000152      FULLWORD INTEGER                     27810000
       CHJSCB   EQU   CHAIN+00000156      FULLWORD POINTER                     27820000
       A00105   EQU   CHAIN+00000160      4*FULLWORD INTEGER                   27830000
       CHAINS01 EQU   00000032            148 BYTE(S) ON WORD                  27840000

       CHBUF    EQU   CHAINS01+00000000   124 BYTE(S)                          27850000
       CHTYPE   EQU   CHAINS01+00000124   1 BYTE(S)                            27860000
       CHDSTAT  EQU   CHAINS01+00000124   1 BIT(S)                             27870000

       A00106   EQU   CHAINS01+00000124   5 BIT(S)                             27880000
       CHHIAR   EQU   CHAINS01+00000124   1 BIT(S)                             27890000
       CHDEF    EQU   CHAINS01+00000124   1 BIT(S)                             27900000
       A00107   EQU   CHAINS01+00000125   1 BYTE(S)                            27910000
       CHCNID   EQU   CHAINS01+00000126   1 BYTE(S)                            27920000
       CHARID   EQU   CHAINS01+00000127   1 BYTE(S)                            27930000
       CHPEND   EQU   CHAINS01+00000128   FULLWORD POINTER                     27940000
       CHINC    EQU   CHAINS01+00000132   HALFWORD INTEGER                     27950000
       CHCSYSO  EQU   CHAINS01+00000134   1 BYTE(S)                            27960000
       CHALL    EQU   CHAINS01+00000134   1 BIT(S)                             27970000
       CHINN    EQU   CHAINS01+00000134   1 BIT(S)                             27980000
       CHOUT    EQU   CHAINS01+00000134   1 BIT(S)                             27990000

       CHHOLD   EQU   CHAINS01+00000134   1 BIT(S)                             28000000
       CHQUE    EQU   CHAINS01+00000134   1 BIT(S)                             28010000
       CHDUMP   EQU   CHAINS01+00000134   1 BIT(S)                             28020000
       CHJB     EQU   CHAINS01+00000134   1 BIT(S)                             28030000

       CHRESD   EQU   CHAINS01+00000134   1 BIT(S)                             28040000
       CHSPA    EQU   CHAINS01+00000135   1 BYTE(S)                            28050000
       A00108   EQU   CHAINS01+00000136   8 BYTE(S)                            28060000
       CHLAST   EQU   CHAINS01+00000144   4  BYTE  INTEGER                     28070000
                ORG   @DATA                                                    28080000
                DS    00000232C                                                28090000
       @L       EQU   1                                                        28100000
       @DATD    DSECT                                                          28110000
                DS    00000000C                                                28120000
       @TEMPS   DS    0F                                                       28130000
                DS    C                                                        28140000
       @DATEND  EQU   *                                                        28150000

       IKJEFF00 CSECT ,                                                        28160000
       @9F7     EQU   MODFY                                                    28170000
       @9F5     EQU   STOP                                                     28180000

       @9F3     EQU   DISPLAY                                                  28190000
       @9E7     EQU   INVOPER                                                  28200000
       @9E6     EQU   INVOPER                                                  28210000
                END                                                            28220000
IEB817I MEMBER NAME (IKJEFF00) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0056


       ./ ADD  NAME=IKJEFF41
       *  /******************************************************************* 00000000
       *  /*                                                                 * 00000010
       *  /*     STATUS                                                      * 00000020
       *  /*              CHANGE LEVEL 000                                   * 00000030
       *  /*                                                                 * 00000040

       *  /*     TITLE                                                       * 00000050
       *  /*              IKJEFF41 - R/I LINK ROUTINE                        * 00000060
       *  /*                                                                 * 00000070

       *  /*                                                                 * 00000080
       *  /*     FUNCTION                                                    * 00000090
       *  /*               . THIS ROUTINE INITIALIZES THE BRDR WORK          * 00000100
       *  /*                 AREA (BWA) AND THE READER/ INTERPRETER          * 00000110
       *  /*                 ENTRANCE   LIST   (NEL).    THE    NEL          * 00000120
       *  /*                 SPECIFIES  THE  ADDRESS  OF  THE INPUT          * 00000130
       *  /*                 ACCESS   METHOD   IKJEFF42   AND   THE          * 00000140
       *  /*                 BACKGROUND WORK AREA.                           * 00000150
       *  /*                                                                 * 00000160
       *  /*               . SMF FUNCTIONS ARE SPECIFIED IN THE NEL          * 00000170
       *  /*                 IF SMF IS PRESENT IN THE SYSTEM.   THE          * 00000180
       *  /*                 SMF   EXIT,   IEFUJV,   WILL  ALSO  BE          * 00000190

       *  /*                 SPECIFIED IF INDICATED.                         * 00000200
       *  /*                                                                 * 00000210
       *  /*               . THE READER/ INTERPRETER IS LINKED  TO.          * 00000220
       *  /*                 A  FAKE COMMUNICATION ECB IS PASSED TO          * 00000230

       *  /*                 THE READER/ INTERPRETER.  THE REAL ONE          * 00000240
       *  /*                 IS PASSED TO IKJEFF42, BY WAY  OF  THE          * 00000250
       *  /*                 BWA.   THIS PREVENTS A RETURN FROM THE          * 00000260
       *  /*                 READER OTHER THAN UNDER THE CONTROL OF          * 00000270
       *  /*                 THE ACCESS  METHOD,  IKJEFF42  (EXCEPT          * 00000280
       *  /*                 FOR ERRORS).                                    * 00000290
       *  /*                                                                 * 00000300
       *  /*               . IF  THE  'ALLOCATED'  SWITCH  IN   THE          * 00000310
       *  /*                 BACKGROUND  WORK AREA IS STILL ON UPON          * 00000320
       *  /*                 RETURN FROM THE  READER/  INTERPRETER,          * 00000330
       *  /*                 THEN  THE  ACCESS  METHOD  IS  CALLED,          * 00000340
       *  /*                 SPECIFYING THE ALTERNATE  ENTRY  POINT          * 00000350

       *  /*                 IKJEFF4B, FOR CLEAN UP.                         * 00000360
       *  /*                                                                 * 00000370
       *  /*            . CODE HAS BEEN ADDED BY DART INDUSTIRIES TO USE RFIT* 00000372

       *  /*              THE INTERFACE MECHANISM USED BY  SVM  FOR  THE RFIT* 00000373
       *  /*              SUBMISSION OF BACKROUND JOBS TO OS BY THE HASP RFIT* 00000374
       *  /*              SUBSYSTEM.  A NEW MODULE WAS ADDED. IKJEFF47   RFIT* 00000375
       *  /*              WHICH DOES THE INTERFACE TO THE INTERNAL READER FIT* 00000376
       *  /*              ALL CHANGED CODE IS MARKED BY RFIT IN COLS 68-71FIT* 00000377
       *  /*                                                              RFIT 00000378
       *  /*     ENTRY POINT                                                 * 00000380
       *  /*              IKJEFF41                                           * 00000390
       *  /*                                                                 * 00000400
       *  /*     INPUT                                                       * 00000410
       *  /*               . REGISTER  1  POINTS  TO  A   LIST   OF          * 00000420
       *  /*                 POINTERS TO                                     * 00000430

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0057


       *  /*                             PARMS FOR R/I                       * 00000440
       *  /*                             COMMUNICATION ECB                   * 00000450
       *  /*                             ECB/Q/LINK FIELD                    * 00000460

       *  /*                             MESSAGE CLASS DEFAULT CHARACTER     * 00000470
       *  /*                             CONSOLE ID                          * 00000480
       *  /*                                                                 * 00000490
       *  /*                                                                 * 00000500
       *  /*                                                                 * 00000510
       *  /*                                                                 * 00000520
       *  /*     OUTPUT                                                      * 00000530
       *  /*              REGISTER 15 CONTAINS RETURN CODES                  * 00000540
       *  /*                   0- NO ERRORS                                  * 00000550
       *  /*                   4- INPUT ERROR (PROCLIB)                      * 00000560
       *  /*                   8- OUTPUT ERROR                               * 00000570
       *  /*                  12- QUEUE FULL ERROR                           * 00000580

       *  /*                  64- TIOT ERROR                                 * 00000590
       *  /*                  68- INCORRECT PARM                             * 00000600
       *  /*                  72- OTHER ERROR, MESSAGE ALREADY SENT          * 00000610

       *  /*              NOTE - CODES 0, 4, 8 AND 12 ORIGINATE WITH THE     * 00000620
       *  /*                     R/I.  CODES 64,  68  AND  72  ORIGINATE     * 00000630
       *  /*                     WITH MODULE IKJEFF41.                       * 00000640
       *  /*                                                                 * 00000650
       *  /*                                                                 * 00000660
       *  /*     EXTERNAL REFERENCES                                         * 00000670
       *  /*              IKJEFF42                                           * 00000680
       *  /*              IKJEFF4B                                           * 00000690
       *  /*              IEFVH1                                             * 00000700
       *  /*              IEFUJV                                             * 00000710
       *  /*                                                                 * 00000720
       *  /*     EXITS, NORMAL                                               * 00000730

       *  /*              RETURN TO CALLER                                   * 00000740
       *  /*                                                                 * 00000750
       *  /*     EXITS, ERROR                                                * 00000760
       *  /*              RETURN TO CALLER                                   * 00000770

       *  /*                                                                 * 00000780
       *  /*     TABLE/WORK AREAS                                            * 00000790
       *  /*              NEL                                                * 00000800
       *  /*              BWA                                                * 00000810
       *  /*              TIOT                                               * 00000820
       *  /*              CVT                                                * 00000830
       *  /*              SMCA                                               * 00000840
       *  /*                                                                 * 00000850
       *  /*                                                                 * 00000860
       *  /*                                                                 * 00000870
       *  /*     ATTRIBUTES                                                  * 00000880
       *  /*              REENTRANT AND REFRESHABLE                          * 00000890

       *  /*                                                                 * 00000900
       *  /*     NOTES                                                       * 00000910
       *  /*              CHARACTER CODE DEPENDENCY - EBCDIC CHARACTER SET   * 00000920

       *  /*              USED IN ASSEMBLING, MODULE MUST BE REASSEMBLED IF  * 00000930
       *  /*              A DIFFERENT CHARACTER SET IS TO BE USED DURING     * 00000940
       *  /*              EXECUTION.                                         * 00000950
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0058


       *  /*                                                                 * 00000960
       *  /*     MESSAGES                                                    * 00000970
       *  /*              NONE                                               * 00000980
       *  /******************************************************************* 00000990
       *       GEN;                                                            00001000
                LCLA  &T,&SPN                                                  00001010
       IKJEFF41 CSECT                                                          00001020
                B     18(0,15)                                                 00001030

                DC    AL1(8)                                                   00001040
                DC    CL8'IKJEFF41'                                            00001050
                DC    CL5'06871'                                               00001060
                AGO   .@001                                                    00001070

       *                                                                       00001080
       *     IKJEFF41:                                                         00001090
       *         PROC(BRDRPARM,CSCBECB,QMECB,MSGCLS,CONID)                     00001100
       *               OPTIONS(REENTRANT);                                     00001110
                LCLA  &T,&SPN                                            0002  00001120
       .@001    ANOP                                                     0002  00001130
       IKJEFF41 CSECT ,                                                  0002  00001140
                STM   @E,@C,12(@D)                                       0002  00001150
                BALR  @B,0                                               0002  00001160
       @PSTART  DS    0H                                                 0002  00001170
                USING @PSTART+00000,@B                                   0002  00001180
                L     @0,@SIZ001                                         0002  00001190

                GETMAIN  R,LV=(0)                                        0002  00001200
                LR    @C,@1                                              0002  00001210
                USING @DATD+00000,@C                                     0002  00001220

                L     @1,24(0,@D)                                        0002  00001230
                XC    @TEMPS(@L),@TEMPS                                  0002  00001240
                ST    @D,@SAV001+4                                       0002  00001250
                LA    @F,@SAV001                                         0002  00001260
                ST    @F,8(0,@D)                                         0002  00001270
                LR    @D,@F                                              0002  00001280
       *         RESTRICT (5,6,7,8);                                           00001290
       *         DCL                                                           00001300
       *               R0 REG(0) PTR(24);                                      00001310
       *         DCL                                                           00001320
       *               R1 REG(1) PTR(24);                                      00001330
       *         DCL                                                           00001340

       *               R5 REG(5) PTR(24);                                      00001350
       *         DCL                                                           00001360
       *               NELEXBAS REG (5) PTR;                                   00001370
       *                                    /* BASE FOR NEL EXIT LIST */       00001380

       *         DCL                                                           00001390
       *               R6 REG(6) PTR(24);                                      00001400
       *         DCL                                                           00001410
       *               TIOTPTR REG (6) PTR; /* BASE FOR TIOT */                00001420
       *         DCL                                                           00001430
       *               R7 REG(7) PTR(24);                                      00001440
       *         DCL                                                           00001450
       *               NELPTR REG (7) PTR;  /* BASE FOR NEL */                 00001460
       *         DCL                                                           00001470
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0059


       *               R8 REG(8) PTR(24);                                      00001480
       *         DCL                                                           00001490

       *               NELOPBAS REG (8) PTR;                                   00001500
       *                                    /* BASE FOR NEL OPTION LIST TABLE  00001510
       *                                       */                              00001520

       *         DCL                                                           00001530
       *               RD REG(13) PTR(24);                                     00001540
       *         DCL                                                           00001550
       *               RF REG(15) PTR(24);                                     00001560
       *         DCL                                                           00001570
       *               BACSAVEP PTR BASED(RD+4);                               00001580
       *                                    /* PTR TO CALLERS SAVE AREA*/      00001590
       *         DCL                                                           00001600
       *               RETCODE PTR BASED(BACSAVEP+16);                         00001610
       *                                    /* PTR TO REG 15 SLOT FOR SETTING  00001620
       *                                       RETURN CODE */                  00001630
       *         DCL                                                           00001640

       *               REGHOLD PTR(31);     /* SAVE AREA FOR REG 1 CONTENTS    00001650
       *                                       DURING MACRO USE */             00001660
       *         DCL                                                           00001670
       *               BRDRWORK CHAR(320) BDY (WORD);                          00001680

       *         DCL 1 BWA BASED (ADDR(BRDRWORK)), /* BACKGROUND WORK AREA   * 00001690
       *               2 BWATABID CHAR (12),       /* BWA TABLE ID           * 00001700
       *               2 BWARIEOF,                 /* R/I EOF ADDR           * 00001710
       *               2 COMECBPT PTR,             /* COMMUNICATION ECB PTR  * 00001720
       *               2 ECBQPT PTR,               /* ECB/Q/LINK PTR         * 00001730
       *               2 QMPAPT PTR,               /* QMPA PTR                 00001740
       *                                                USED BY ALLOC 46     * 00001750
       *               2 JFCBPT PTR,               /* JFCB PTR                 00001760
       *                                                USED BY ALLOC 46 AND   00001770
       *                                                THEN BY ACMETH 42    * 00001780
       *               2 BLKPT PTR,                /* BLOCK (OF INPUT) PTR   * 00001790
       *                                                                       00001800

       *                                       /* INTERFACE TO DECOMPRESS 43 * 00001810
       *               2 BUFPT PTR,                /* CARD BUFFER PTR        * 00001820
       *               2 BUFLENPT PTR,             /* CARD BUF LENGTH PTR    * 00001830

       *               2 BLKCURR PTR,              /* PTR TO CURR LOC PTR    * 00001840
       *                                                                       00001850
       *               2 BLKLOCPT PTR,             /* CURR LOC IN BLOCK PTR  * 00001860
       *               2 TIOTPT PTR,               /* TIOT SLOT (IEFRDER) PTR* 00001870
       *               2 ORIGTIOT CHAR (20),       /* ORIG TIOT SLOT         * 00001880
       *               2 BUF CHAR (80),            /* CARD BUFFER            * 00001890
       *               2 EXLIST CHAR(8) BDY(WORD), /* DCB EXIT LIST          * 00001900
       *                 3 EX1 PTR,                /*   X'07'                * 00001910
       *                   4 EX1TYPE CHAR (1),     /*        PT TO JFCB      * 00001920
       *                 3 EX2 PTR,                /*   X'89'                * 00001930
       *                   4 EX2TYPE CHAR (1),     /*        PT TO 213 ADDR  * 00001940
       *               2 OPENLST CHAR (4),         /* OPEN LIST              * 00001950

       *                 3 OPENOPT CHAR (1),       /*   X'80'                * 00001960
       *               2 BUFLEN PTR (8),           /* CARD BUF LEN (80)      * 00001970
       *               2 FLGS CHAR (1),            /* SWITCHES               * 00001980

       *                 (3 ALLOCERR,              /*   ERR IN ALLOC         * 00001990
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0060


       *                  3 ENTRY4B,               /*   SECONDARY ENTRY      * 00002000
       *                  3 DEALERR,               /*   ERR IN DEALLOC       * 00002010
       *                  3 ALLOCATD,              /*   ALREADY ALLOCATED    * 00002020
       *                  3 OPENERR,               /*   ERR IN OPEN          * 00002030
       *                  3 SYNERR1,               /*   SYNAD CONTROL        * 00002040
       *                  3 SYNERR2,               /*   SYNAD CONTROL        * 00002050
       *                  3 JOBSW) BIT (1),        /* JOB READ IN            * 00002060
       *               2 FLGS2 CHAR (1),                                       00002070
       *                  3 DIDFIRST BIT (1),      /* ONE CARD DONE BY R/I   * 00002080
       *               2 UCMI CHAR (1),            /* MCS CONSOLE CODE       * 00002090

       *               2 BACKDCB CHAR (96) BDY (WORD),                         00002100
       *                                           /* DCB USED BY BRDR       * 00002110
       *               2 BADTXT CHAR (52);         /* SYNAD MESSAGE TEXT     * 00002120
       *         DCL TIOTSLOT CHAR (20) BASED (TIOTPT);   /* TIOT SLOT       * 00002130

       *         DCL ECBQLNK CHAR (8) BASED (ECBQPT);     /* ECB/Q/LINK FIELD* 00002140
       *         DCL 1 COMECB CHAR (4) BASED (COMECBPT),  /* COMMUNICATION     00002150
       *                                                           ECB       * 00002160
       *               (2 *,                              /*  WAIT           * 00002170
       *                2 COMBIT) BIT (1);                /*  COMPLETE       * 00002180
       **/***************************************/                             00002190
       **/*                                     */                             00002200
       **/*   COMPUTE LENGTH OF NEL EXIT LIST   */                             00002210
       **/*                                     */                             00002220
       **/***************************************/                             00002230
       ** DECLARE                                                              00002240
       ** 1 NEL BASED (NELPTR) BDY(DWORD),                                     00002250

       **  2 NELLIST CHAR(32) BDY(WORD),                                       00002260
       ** /*********************************/                                  00002270
       ** /*                               */                                  00002280

       ** /*  NEL PARAMETER LIST POINTERS  */                                  00002290
       ** /*                               */                                  00002300
       ** /*********************************/                                  00002310
       **   3 NELOPLST PTR(31),    /* --ADDRESS OF OPTION LIST (REQ)         * 00002320
       **   3 NELECB PTR(31),       /* --ECB ADDRESS POSTED BY STOP RDR      * 00002330
       **                           /* COMMAND (REQ)                         * 00002340
       **   3 NELJCL PTR(31),       /* --POINTER AVAILABLE FOR COMMUNICATION * 00002350
       **                           /* WITH SPECIAL INPUT ACCESS METHOD (OPT)* 00002360
       **   3 NELQMPA PTR(31),      /* -- POINTER TO A QUEUE MANAGER PARAMETER 00002370
       **                               AREA (OPT)                           * 00002380
       **   3 NELJCT PTR(31),       /* --ADDRESS OF JOB CONTROL TABLE (OPT)  * 00002390
       **   3 NELEXLST PTR(31),     /* --ADDRESS OF SPECIAL EXITS (OPT)      * 00002400

       **   3 NELCOMID PTR(31),     /* --ADDRESS OF CONSOLE IDENTIFIER       * 00002410
       **    4 NELLAST CHAR(1),    /* --SYMBOL USED TO SET BIT INDICATING      00002420
       **                               END OF LIST                          * 00002430
       **     5 NELNBIT BIT(1),                                                00002440

       **     5 * BIT(7);                                                      00002450
       ** /*********************************/                                  00002460
       ** /*                               */                                  00002470
       ** /*     NEL OPTION LIST           */                                  00002480
       ** /*                               */                                  00002490
       ** /*********************************/                                  00002500
       ** DECLARE                                                              00002510
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0061


       ** 1 NELOPTS CHAR(64) BASED(NELOPBAS) BDY(DWORD),                       00002520
       **   3 NELOPLEN FIXED(15),         /* --LENGTH OF OPTION LIST         * 00002530
       **   3 NELOPSWT CHAR(1),           /* --OPTION SWITCHES               * 00002540
       **    4 NELSMF BIT(1),             /* --INTERPRETER TO PERFORM SMF      00002550

       **                                    FUNCTIONS                       * 00002560
       **    4 NELTSOP BIT(1),            /* --THE TS SUBPARAMETER OF THE      00002570
       **                                    TERM='S KEYWORD OVERRIDES ALL     00002580

       **                                    OTHER PARAMETERS                * 00002590
       **    4 NELSMF2 BIT(1),            /* --THE STANDARD SMF OPTIONS ARE    00002600
       **                                    TO BE OVERRIDEN BY OPTION IN      00002610
       **                                    BYTE NELSMFOP BELOW             * 00002620
       **    4 NELSWSM BIT(1),            /* --A BIT IS TO BE TURNED ON IN     00002630
       **                                    THE JCT TO TELL WARMSTART TO      00002640
       **                                    SUPPRESS THE INIT= MESSAGES       00002650
       **                                    FOR THIS JOB                    * 00002660
       **    4 NELTS BIT(1),              /* --INTERPRETER TO USE TRACK        00002670
       **                                    STACKING                        * 00002680
       **    4 NELQERR BIT(1),            /* --REQUESTS RETURN IF INPUT QUEUE  00002690
       **                                   IS FULL        URN IF INPUT QUEUE* 00002700

       **    4 NELBIN BIT(1),             /* --BINARY PARN OPTION            * 00002710
       **    4 NELENQ BIT(1),             /* --ENQUEUE OPTION                * 00002720
       **   3 NELSYS CHAR(1),             /* --SYSTEM CODE                   * 00002730
       **   3 NELTRKBF CHAR(1),           /* --NBR LOGICAL TRACKS FOR TRACK  * 00002740

       **                                 /*   STACKING                      * 00002750
       **   3 NELSMFOP CHAR(1),           /* --OVERRIDE FOR STANDARD SMF       00002760
       **                                    OPTIONS                         * 00002770
       **   3 NELINTNO FIXED(15),         /* --INTERPRETER NUMBER            * 00002780
       **                                                                      00002790
       ** /****************************************/                           00002800
       ** /*                                      */                           00002810
       ** /*    STANDARD MAPPING OF PARM FIELD     */                          00002820
       ** /*                                      */                           00002830
       ** /****************************************/                           00002840
       **                                                                      00002850
       **   3 NELPARM CHAR(40),                                                00002860

       **    4 NELPARMO CHAR(1),          /* -- PARAMETER OPTIONS            * 00002870
       **    4 NELJPRTY CHAR(2),          /* --DEFAULT VALUE FOR JOB PRIORITY* 00002880
       **    4 NELTIME CHAR(3),           /* DEFAULT FOR JOB TIME LIMIT      * 00002890

       **    4 NELQTY1 CHAR(3),           /* --DEFAULT FOR SYSOUT PRIMARY    * 00002900
       **                                 /* SPACE QUANTITY                  * 00002910
       **    4 NELQTY2 CHAR(3),           /* --DEFAULT FOR SYSOUT SECONDARY  * 00002920
       **                                 /* SPACE QUANTITY                  * 00002930
       **    4 NELIPRTY CHAR(3),          /* -- INTERPRETING PRIORITY        * 00002940
       **    4 NELREG CHAR(3),            /* --DEFAULT FOR REGION SIZE       * 00002950
       **    4 NELCOMDS CHAR(1),          /* --COMMAND DISPOSITION:          * 00002960
       **                                 /*     0 - EXECUTE COMMAND         * 00002970
       **                                 /*     1 - DISPLAY & EXECUTE COMMND* 00002980
       **                                 /*     2 - DISPLAY & REQUEST DISP  * 00002990
       **                                 /*     3 - IGNORE COMMAND          * 00003000
       **    4 NELLABEL CHAR(1),          /* --LABEL PROCESSING              * 00003010

       **                                 /*    0 - BLP WILL BE TREATED AS NL* 00003020
       **                                 /*    1 - BLP WILL BE TRAEATED AS  * 00003030
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0062


       **                                 /*        BYPASS LABEL PROCESSING  * 00003040

       **                                 /*    2 - OPERATOR SPECIFIES ACTION* 00003050
       **    4 NELSYOUT CHAR(8),          /* --DEFAULT FOR SYSOUT DEVICE NAME* 00003060
       **    4 NELAUTH CHAR(4),    /* MCS COMMAND AUTHORITY                  * 00003070
       **    4 NELMSGL1 CHAR(1),   /* --DEFAULT MSGLEVEL FOR JCL MSGS        * 00003080
       **    4 NELMSGL2 CHAR(1),   /* -DEFAULT MSGLEVEL FOR                  * 00003090
       **                                 /* ALLOCATION MESSAGES             * 00003100
       **    4 NELMSGCL CHAR(1),          /* --DEFAULT MSGCLASS              * 00003110
       **    4  *   CHAR(5),                                                   00003120
       **                                                                      00003130
       **                                                                      00003140
       ** /*****************************/                                      00003150
       ** /*                           */                                      00003160

       ** /*     END OF PARM FIELD     */                                      00003170
       ** /*                           */                                      00003180
       ** /*****************************/                                      00003190

       **   3 NELJOBNM CHAR(8),           /* STARTING JOB NAME               * 00003200
       **   3 *       CHAR(8);     /* BLANKS                                 * 00003210
       **                                                                      00003220
       ** /**********************************/                                 00003230
       ** /*                                */                                 00003240
       ** /*     NEL EXIT LIST MAPPING      */                                 00003250
       ** /*                                */                                 00003260
       ** /**********************************/                                 00003270
       ** DECLARE                                                              00003280
       ** 1 NELEXITS BDY(DWORD) BASED(NELEXBAS),                               00003290
       **   3 NELEXHDR  CHAR(8) BDY(WORD),  /*  EXIT LIST HEARER RECORD  */    00003300
       **   4 NELEXLEN FIXED(15),         /* LIST LENGTH                     * 00003310

       **   4 NELXRTCD FIXED(15),         /* INTERPRETER RETURN CODE         * 00003320
       **    4 * CHAR(4),                                                      00003330
       **   3 IAMEXT  CHAR(8),                                                 00003340
       **    4 NELIAMLK CHAR(1),          /* LINKAGE IDENTIFICATION          * 00003350

       **    4 NELIAMID CHAR(1),          /* EXIT IDENTIFICATION             * 00003360
       **    4 NELIAMEP CHAR(6),          /* ENTRY POINT                     * 00003370
       **   3 SMFEXT  CHAR(8),                                                 00003380
       **    4 NELSMFLK CHAR(1),          /* LINKAGE IDENTIFICATION          * 00003390
       **    4 NELSMFID CHAR(1),          /* EXIT IDENTIFICATION             * 00003400
       **    4 NELSMFEP CHAR(6),          /* ENTRY POINT                     * 00003410
       **          10  * CHAR (1);  /*  END OF LIST PLACEHOLDER */             00003420
       ** /**************************************************/                 00003430
       ** /*     CONSTANTS USED IN EXIT LIST GENERATION     */                 00003440
       ** /**************************************************/                 00003450
       **                                 /* AT EXIT POINT                   * 00003460
       *         DCL                                                           00003470

       *               EXAD CHAR (3) BASED(ADDR(NELIAMEP)+3);                  00003480
       *         DCL                                                           00003490
       *               1 BRDRPARM,                                             00003500

       *                 2 PARMLEN PTR(15),                                    00003510
       *                                    /* LENGTH OF PARMLIST */           00003520
       *                 2 PARMS CHAR(100); /* PARMS ON EXEC STATEMENT IN      00003530
       *                                       BRDR CATLGD PROCEDURE */        00003540
       *         DCL                                                           00003550
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0063


       *               1 CSCBECB,                                              00003560
       *                                    /* ECB IN CSCB, STOP IF POSTED */  00003570
       *                 2 WAITBIT BIT(1),                                     00003580
       *                 2 COMPBIT BIT(1),                                     00003590
       *                 2 * BIT(30);                                          00003600
       *         DCL                                                           00003610

       *               1 QMECB,                                                00003620
       *                 2 ECB PTR(31),                                        00003630
       *                                    /* ECB FOR QM USE, IF POSTED       00003640

       *                                       THERE IS WORK TO DO */          00003650
       *                 2 QUENUM PTR(8),                                      00003660
       *                                    /* # OF QUEUE SPECIFIED BY CALLER  00003670
       *                                       */                              00003680
       *                 2 LINKPTR PTR(24); /* PTR FIELD TO CHAIN ECB'S */     00003690
       *         DCL                                                           00003700
       *               MSGCLS CHAR(1);      /* MESSAGE CLASS DEFAULT SPEC'D    00003710
       *                                       BY CALLER */                    00003720
       *         DCL                                                           00003730
       *               CONID CHAR(1);       /* MCS CONSOLE ID FIELD */         00003740
       *         DCL                                                           00003750
       *               CVTPTR PTR(31) BASED(16);                               00003760

       **                                                                      00003770
       ** /*     COMMUNICATION VECTOR TABLE                                  * 00003780
       ** /*           RELEASE 20.2                                          * 00003790
       **                                                                      00003800

       ** /*                   CVT PROPER                                    * 00003810
       **                                                                      00003820
       ** DECLARE                                                              00003830
       **   1 CVTMAP   BASED(CVTPTR),                                          00003840
       **                                                                      00003850
       **    2 CVTTCBP  PTR(31),             /* PTR TO ADDRESSES FOR NEXT      00003860
       **                                       AND CURRENT TCB              * 00003870
       **    2 CVT0EF00 PTR(31),             /* ADDR OF ROUTINE TO SCHEDULE    00003880
       **                                       ASYNCHRONOUS EXITS           * 00003890
       **    2 CVTLINK  PTR(31),             /* ADDR OF DCB FOR SYS1.LINKLIB * 00003900
       **    2 CVTJOB   PTR(31),             /* ADDR OF WORK QUEUE CONTROL     00003910
       **                                       BLOCKS                       * 00003920

       **    2 CVTBUF   PTR(31),             /* ADDR OF BUFFER FOR RESIDENT    00003930
       **                                       CONSOLE INTERRUPTION ROUTINE * 00003940
       **    2 CVTXAPG  PTR(31),             /* ADDR OF IOS APPENDAGE TABLE  * 00003950

       **    2 CVT0VL00 PTR(31),             /* ENTRY POINT ADDR OF ADDR       00003960
       **                                       VALIDITY CHECKING ROUTINE    * 00003970
       **    2 CVTPCNVT PTR(31),             /* ENTRY POINT ADDR OF ROUTINE    00003980
       **                                       FOR CONVERTING RELATIVE        00003990
       **                                       TRACK ADDR TO ABSOLUTE       * 00004000
       **    2 CVTPRLTV PTR(31),             /* ENTRY POINT ADDR OF ROUTINE    00004010
       **                                       FOR CONVERTING ABSOLUTE        00004020
       **                                       TRACK ADDR TO RELATIVE       * 00004030
       **    2 CVTILK1  PTR(31),             /* ADDR OF CHANNEL AND CONTROL    00004040
       **                                       UNIT SECTION IN UCB LOOKUP     00004050
       **                                       TABLE                        * 00004060
       **    2 CVTILK2  PTR(31),             /* ADDR OF UCB ADDR LIST          00004070

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0064


       **                                       SECTION IN UCB LOOKUP TABLE  * 00004080
       **    2 CVTXTLER PTR(31),             /* ENTRY POINT ADDR TO XCTL       00004090
       **                                       ROUTINE FOR SYSTEM ERROR       00004100

       **                                       ROUTINES                     * 00004110
       **    2 CVTSYSAD PTR(31),             /* ADDR OF SYSTEM RESIDENCE       00004120
       **                                       VOLUME ENTRY IN UCB TABLE    * 00004130
       **    2 CVTBTERM PTR(31),             /* ENTRY POINT ADDR OF ABTERM     00004140
       **                                       ROUTINE                      * 00004150
       **    2 CVTDATE  CHAR(4),             /* CURRENT DATE IN PACKED         00004160
       **                                       DECIMAL                      * 00004170
       **    2 CVTMSLT  PTR(31),             /* ADDR OF MASTER COMMON AREA     00004180
       **                                         (MASTER RESIDENT CORE IN PCP 00004190
       **                                       PLEASE USE CVTMSER INSTEAD     00004200
       **                                         TO ADDRESS MASTER SCHEDULER  00004210
       **                                         RESIDENT DATA AREA         * 00004220

       **    2 CVTZDTAB PTR(31),             /* ADDR OF I/O DEVICE             00004230
       **                                       CHARACTERISTIC TABLE         * 00004240
       **    2 CVTXITP  PTR(31),             /* ADDR OF ERROR INTERPRETER      00004250

       **                                       ROUTINE                      * 00004260
       **                                                                      00004270
       **    2 CVTDAR   PTR(31),             /* ADDR OF I/O CONTROL BLOCK      00004280
       **                                       COMPLEX ACCESSED BY DAR      * 00004290
       **                                                                      00004300
       **                                                                      00004310
       **    2 CVT0FN00 PTR(31),             /* ENTRY POINT ADDR TO FINCH    * 00004320
       **    2 CVTEXIT  CHAR(2),             /* AN SVC 3 INSTRUCTION         * 00004330
       **    2 CVTBRET  CHAR(2),             /* A BCR 15,14 INSTRUCTION      * 00004340
       **    2 CVTSVDCB PTR(31),             /* ADDR OF DCB FOR SYS1.SVCLIB  * 00004350
       **    2 CVTTPC   PTR(31),             /* ADDR OF PSEUDO CLOCK FOR       00004360
       **                                       TIMER ROUTINE                * 00004370

       **    2 CVTPBLDL PTR(31),             /* BRANCH AND LINK ENTRY POINT    00004380
       **                                       TO BLDL ROUTINE              * 00004390
       **    2 CVTSJQ   PTR(31),             /* ADDR OF SELECTED JOB QUEUE   * 00004400
       **    2 CVTCUCB  PTR(31),             /* ADDR OF TABLE WITH CONSOLE     00004410

       **                                       UCB ADDR                     * 00004420
       **    2 CVTQTE00 PTR(31),             /* ADDR OF TIMER ENQUEUE          00004430
       **                                       ROUTINE                      * 00004440
       **    2 CVTQTD00 PTR(31),             /* ADDR OF TIMER DEQUEUE          00004450
       **                                       ROUTINE                      * 00004460
       **    2 CVTSTB   PTR(31),             /* ADDR OF I/O DEVICE STATISTIC   00004470
       **                                       TABLE                        * 00004480
       **     2 CVTDCB   CHAR(1),            /* OPERATING SYSTEM               00004490
       **                                       CONFIGURATION                * 00004500
       **      4 *        BIT(1),            /* RESERVED                     * 00004510
       **      4 CVT1SSS  BIT(1),            /* - PCP                        * 00004520
       **      4 CVT2SPS  BIT(1),            /* - MFT                        * 00004530

       **      4 CVT4MS1  BIT(1),            /* - MVT                        * 00004540
       **      4 *        BIT(1),            /* RESERVED                     * 00004550
       **      4 CVT4MPS  BIT(1),            /* - MULTIPROCESSING            * 00004560

       **      4 *        BIT(1),            /* RESERVED                     * 00004570
       **      4 *        BIT(1),            /* RESERVED                     * 00004580
       **     2 CVTDCBA   PTR(24)  BDY(WORD,2),                                00004590
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0065


       **                                    /* ADDR OF DCB FOR SYS1.LOGREC  * 00004600
       **    2 CVTIOQET PTR(31),             /* ADDR OF REQUEST ELEMENT        00004610
       **                                       TABLE                        * 00004620
       **    2 CVTIXAVL PTR(31),             /* ADDR OF I/O SUPERVISOR'S       00004630
       **                                       FREELIST POINTER             * 00004640
       **    2 CVTNUCB  PTR(31),             /* LOWEST ADDRESS NOT IN          00004650
       **                                       NUCLEUS                      * 00004660
       **    2 CVTFBOSV PTR(31),             /* ADDR OF PROGRAM FETCH          00004670

       **                                       ROUTINE                      * 00004680
       **    2 CVT0DS   PTR(31),             /* ADDR OF ENTRY POINT OF         00004690
       **                                       DISPATCHER                   * 00004700
       **    2 CVTILCH  PTR(31),             /* ADDR OF LOGICAL CHANNEL WORD   00004710

       **                                       TABLE                        * 00004720
       **    2 CVTIERLC PTR(31),             /* ADDR OF ASYNCHRONOUS EXIT      00004730
       **                                       QUEUE                        * 00004740
       **    2 CVTMSER  PTR(31),             /* ADDR OF MASTER SCHEDULER       00004750
       **                                       RESIDENT DATA AREA (ADDR OF    00004760
       **                                       MAJOR QCB IN PCP)            * 00004770
       **    2 CVT0PT01 PTR(31),             /* ADDR OF BRANCH ENTRY POINT     00004780
       **                                       OF POST ROUTINE              * 00004790
       **    2 CVTTRMTB PTR(31),             /* ADDR OF QTAM TERMINAL TABLE  * 00004800
       **    2 CVTHEAD  PTR(31),             /* ADDR OF HIGHEST PRIORITY TCB   00004810
       **                                       IN READY QUEUE               * 00004820
       **    2 CVTMZ00  PTR(31),             /* HIGHEST STORAGE ADDRESS      * 00004830

       **    2 CVT1EF00 PTR(31),             /* ADDR OF ROUTINE WHICH          00004840
       **                                       CREATES IRBS FOR EXITS       * 00004850
       **    2 CVTQOCR  PTR(31),             /* ADDR OF A GFX PARM LIST        00004860

       **                                       WORD, OR ZERO (RESERVED IN     00004870
       **                                       PCP)                         * 00004880
       **    2 CVTQMWR  PTR(31),             /* ADDR OF QMGR COMMUNICATION     00004890
       **                                       DATA AREA (RESERVED IN PCP)  * 00004900
       **    2 CVTSNCTR FIXED(15),           /* SERIAL DATA SET SEQUENCE       00004910
       **                                       NUMBER COUNTER               * 00004920
       **    2 CVTOPTA  CHAR(1),             /* FLAGS                        * 00004930
       **     3 CVTCCH   BIT(1),             /* - CCH OPTION PRESENT           00004940
       **                                       (MVT/MFT)                    * 00004950
       **     3 CVTAPR   BIT(1),             /* AUTOMATIC PATH RETRY --        00004960
       **                                       I/O RECOVERY MGT (MVT/MFT) */  00004970
       **     3 CVTDDR   BIT(1),             /* DYNAMIC DEVICE RECONFIGURATION 00004980

       **                                       --I/O RECOVERY MGT (MVT/MFT) * 00004990
       **     3 CVTNIP   BIT(1),             /* - NIP PROCESSING             * 00005000
       **     3 CVTATTCH BIT(1),             /* ATTACH OPERATIVE (MFT)       * 00005010
       **     3 CVTHIAR  BIT(1),             /* MAIN STORAGE HIERARCHY         00005020

       **                                         SUPPORT OPERATIVE          * 00005030
       **     3 CVTASCII BIT(1),             /* USAS(CI)I OPTION PRESENT     * 00005040
       **     3 *        BIT(1),             /* RESERVED                     * 00005050
       **    2 CVTOPTB  CHAR(1),             /* RESERVED                     * 00005060
       **     3 CVTPROT  BIT(1),             /* STORE PROTECTION SYSGENED    * 00005070
       **     3 *        BIT(1),             /* RESERVED                     * 00005080
       **     3 CVTTOD   BIT(1),             /* CPU HAS TIME OF DAY CLOCK    * 00005090
       **     3 *        BIT(5),             /* RESERVED                     * 00005100
       **                                                                      00005110
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0066


       **    2 CVTQCDSR PTR(31),             /* MVT/MFT: CDE SEARCH ROUTINE    00005120
       **                                         ADDR */                      00005130

       **    2 CVTQLPAQ PTR(31),             /* MVT/MFT: ADDR OF TOP CDE IN LP 00005140
       **                                       QUEUE */                       00005150
       **                                                                      00005160

       **    2 CVTMPCVT PTR(31),             /* MVT: ADDR OF M65MP SECONDARY   00005170
       **                                       CVT -- MFT/PCP: RESERVED     * 00005180
       **    2 CVTSMCA  PTR(31),             /* ADDR OF SMCA                 * 00005190
       **    2 CVTABEND PTR(31),             /* MVT: ADDR OF SECONDARY CVT     00005200
       **                                       --  MFT/PCP: RESERVED        * 00005210
       **    2 CVTUSER  PTR(31),             /* FIELD AVAILABLE TO USER      * 00005220
       **                                                                      00005230
       **                                                                      00005240
       ** /*                   MFT/MVT CVT EXTENSION                         * 00005250
       **                                                                      00005260
       **    2 *        PTR(31),             /* RESERVED                     * 00005270
       **    2 CVTQABST CHAR (2),            /* MVT: AN SVC 13 INSTRUCTION     00005280

       **                                       --  MFT: RESERVED            * 00005290
       **    2 CVTLNKSC CHAR(2),             /* AN SVC 6 (LINK) INSTRUCTION    00005300
       **                                       (MFT WITH SUBTASKING)        * 00005310

       **    2 CVTTSCE  PTR(31),             /* ADDR OF FIRST TSCE           * 00005320
       **    2 CVTPATCH PTR(31),             /* ADDR OF FE PATCH AREA        * 00005330
       **    2 CVTRMS   PTR(31),             /* ADDRESS OF RMS WORK AREA     * 00005340
       **    2 CVTTSCVT PTR(31),             /* ADDR OF TIME SHARING CVT     * 00005350
       **     3 CVTTSFLG CHAR(1),            /* TIME SHARING OPTION FLAGS    * 00005360
       **      4 CVTTSRDY BIT(1),            /* TSO READY AND INIT           * 00005370
       **      4 *        BIT(7),            /* RESERVED                     * 00005380
       **     3 CVTTSCVB PTR(24),            /* ADDR OF TIME SHARING CVT     * 00005390
       **    2 CVT0SCR1 PTR(31),             /* ADDR OF  RPS SECTOR            00005400
       **                                         CONVERTER                  * 00005410
       **    2 *        PTR(31),             /* RESERVED                     * 00005420
       **    2 CVTAQAVT  PTR(31),            /* POINTER TO WORD CONTAINING     00005430

       **                                         ADDR OF TCAM VECTOR TABLE  * 00005440
       **     3 CVTTCMFG CHAR(1),            /* TCAM FLAGS                   * 00005450
       **      4 CVTTCRDY BIT(1),            /* TCAM RUNNING                 * 00005460
       **      4 *        BIT(7),            /* RESERVED                     * 00005470

       **      3 CVTAQAVB PTR(24),           /* POINTER TO WORD CONTAINING     00005480
       **                                         ADDR OF TCAM VECTOR TABLE */ 00005490
       **                                                                      00005500
       ** /*                   MFT WITH SUBTASKING CVT EXTENSION             * 00005510
       **                                                                      00005520
       **    2 CVTTATA  PTR(31),             /* ADDR OF P0 TCB POINTER       * 00005530
       **     3 CVTTSKS  PTR(8),             /* MAXIMAL NUMBER OF TCB ADDR     00005540
       **                                       TAB ENTRIES                  * 00005550
       **     3 CVTTAT   PTR(24)  BDY(WORD,2),                                 00005560
       **                                    /* ADDR OF P0 TCB POINTER       * 00005570
       **    2 CVTSYST  PTR(8),              /* NUMBER OF SYSGEN'D TCB'S     * 00005580
       **    2 *        CHAR(3);             /* RESERVED                     * 00005590

       **                                                                      00005600
       ** /*                      PCP OVERLAY                                * 00005610
       **                                                                      00005620

       ** DECLARE                                                              00005630
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0067


       **   1 * BASED(ADDR(CVTQCDSR ) ),     /* PCP OVERLAY                  * 00005640
       **    2 CVTCRTTR CHAR(3),             /* TTR OF JCT FOR RESTART (PCP) * 00005650
       **    2 CVTSTUSA CHAR(1),             /* STATUS BYTE A                * 00005660
       **     3 *        BIT(1),             /* RESERVED                     * 00005670
       **     3 *        BIT(1),             /* RESERVED                     * 00005680
       **     3 *        BIT(1),             /* RESERVED                     * 00005690
       **     3 *        BIT(1),             /* RESERVED                     * 00005700
       **     3 CVTCHPTR BIT(1),             /* - REQUESTED AUTOMATIC          00005710
       **                                       CHECKPOINT RESTART WAS         00005720
       **                                       INITIATED                    * 00005730

       **     3 CVTSTEPR BIT(1),             /* - REQUESTED AUTOMATIC STEP     00005740
       **                                       RESTART WAS INITIATED        * 00005750
       **     3 CVTDATA  BIT(1),             /* - DD DATA STATEMENT IN INPUT   00005760
       **                                       STREAM AND DATA HAS NOT BEEN   00005770

       **                                       READ                         * 00005780
       **     3 *        BIT(1),             /* RESERVED                     * 00005790
       **    2 *        CHAR(2),             /* RESERVED                     * 00005800
       **    2 *        CHAR(2);             /* RESERVED                     * 00005810
       **                                                                      00005820
       ** /*                      CVT PREFIX                                 * 00005830
       **                                                                      00005840
       **    DCL 1 CVTFIX BASED (ADDR (CVTMAP) - 256), /* CVT PREFIX         * 00005850
       **    2 *        CHAR(248),           /* RESERVED                     * 00005860
       **    2 *        CHAR(2),             /* RESERVED                     * 00005870
       **    2 CVTMDL   CHAR(2),             /* CPU MODEL NUMBER IN SIGNLESS   00005880
       **                                       PACKED DECIMAL, I.E., A        00005890

       **                                       MODEL 50 WOULD BE REPRESENTED  00005900
       **                                       AS 0050 HEX                  * 00005910
       **    2 CVTRELNO CHAR(4);             /* OS RELEASE NUMBER (EBCDIC)   * 00005920

       **                                                                      00005930
       ** /*                   END OF CVT MACRO                              * 00005940
       **                                                                      00005950
       *         DCL                                                           00005960
       *               1 SMFSW CHAR (1) BASED(CVTSMCA),                        00005970
       *                                    /* SWITCHES FOR SMF */             00005980
       *                 (2 *,                                                 00005990
       *                 2 *,                                                  00006000
       *                 2 SMFEX) BIT (1);                                     00006010
       *         DCL                                                           00006020
       *               IKJEFF42 ENTRY;      /* GENERATE VCON */                00006030
       ** DECLARE                                                              00006040

       ** 1 TIOT1 BASED(TIOTPTR) BDY(WORD),                                    00006050
       **     5 TIOCNJOB CHAR(8),               /*  JOB NAME                   00006060
       **     5 TIOCSTEP CHAR(16);              /*  STEP NAME                  00006070
       **/******************************************************************** 00006080

       **/*                                                                  * 00006090
       **/* DD ENTRY:                                                        * 00006100
       **/*                                                                  * 00006110
       **/*     A DD ENTRY INCLUDES A DEVICE ENTRY. BEFORE ALLOCATION, THERE * 00006120
       **/*     MAY BE SEVERAL DEVICE ENTRIES IN EACH DD ENTRY.              * 00006130
       **/*                                                                  * 00006140
       **/******************************************************************** 00006150
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0068


       ** DECLARE                                                              00006160
       **     1 TIOENTRY   BASED(ADDR(TIOT1)+24),                              00006170
       **          10 TIOELNGH PTR(8),          /*  LENGTH OF THIS ENTRY       00006180
       **          10 TIOESTTA BIT(8),          /*  STATUS -A-                 00006190

       **            11 TIOSLTYP BIT(1),        /*  NONSTANDARD LABEL (NOTE 1) 00006200
       **            11 TIOSPLTP BIT(1),        /*  SPLIT CYLINDER PRIMARY     00006210
       **            11 TIOSPLTS BIT(1),        /*  SPLIT CYLINDER SECONDARY   00006220

       **            11 TIOSJBLB BIT(1),        /*  JOBLIB INDICATOR           00006230
       **            11 TIOSDADS BIT(1),        /*  DADSM ALLOCATION NECESSARY 00006240
       **            11 TIOSLABL BIT(1),        /*  LABELED/UNLABELED (NOTE 1) 00006250
       **            11 TIOSDSP1 BIT(1),        /*  DISPOSITION BIT 1          00006260
       **            11 TIOSDSP2 BIT(1),        /*  DISPOSITION BIT 2          00006270
       **/*   NOTE 1 - IF BOTH BITS TIOSLTYP AND TIOSLABL ARE ON, THE VOLUME   00006280
       **/*            IS A TAPE AND HAS AN 'ANSI' LABEL.                      00006290
       **          10 TIOERLOC CHAR(2),         /*  REL. LOC OF POOL           00006300
       **                 15 TIOEWTCT CHAR(1),  /*  COUNTOF NUMBER OF DEVICES  00006310
       **                                           DURING ALLOCATION STILL    00006320
       **                                           ELIGIBLE TO DADSM ALLOCATE 00006330
       **                                           THIS DATA SET REQUEST      00006340

       **                 15 TIOELINK CHAR(1),        /* DURING ALLOCATION OF  00006350
       **                                           ALL BUT POOLS THIS WILL BE 00006360
       **                                           A LINK TO THE APPROPRIATE  00006370
       **                                           PRIME SPLIT,UNIT AFFIN     00006380

       **                                           VOL.,AFFIN OR SUBALLOCATE  00006390
       **/* FOLLOWING BIT MASKS APPLY TO 'TIOELINK' FIELD */                   00006400
       **                    17 TIOSYOUT BIT(1),  /* SYSOUT D.S.THAT HAS DATA  00006410
       **                    17 TIOTOPEN BIT(1),  /* DATA SET IS OPEN          00006420
       **                    17 TIOTTERM BIT(1),  /* THIS IS A TERMINAL        00006430
       **                    17 TIOEDYNM BIT(1),  /* 'DYNAM' KEYWORD USED      00006440
       **                    17 TIOEQNAM BIT(1),  /* 'QNAME' KEYWORD USED      00006450
       **                    17 * BIT(3),         /* RESERVED */               00006460
       **          10 TIOEDDNM CHAR(8),         /*  DDNAME                     00006470
       **          10 TIOEJFCB CHAR(3),         /*  JFCB DISK ADDR             00006480
       **          10 TIOESTTC BIT(8),          /*  STATUS -C-                 00006490
       **           11 TIOSDKCR BIT(1),         /*  CORE/DISK ADDRESS          00006500

       **           11 TIOSDEFR BIT(1),         /*  DEFERRED MOUNT             00006510
       **           11 TIOSAFFP BIT(1),         /*  UNIT AFFINITY PRIMARY      00006520
       **           11 TIOSAFFS BIT(1),         /*  UNIT AFFINITY SECONDARY    00006530

       **           11 TIOSVOLP BIT(1),         /*  VOLUME AFFINITY PRIMARY    00006540
       **           11 TIOSVOLS BIT(1),         /*  VOLUME AFFINITY SECONDARY  00006550
       **           11 TIOSBALP BIT(1),         /*  SUBALLOCATE PRIMARY        00006560
       **           11 TIOSBALS BIT(1),         /*  SUBALLOCATE SECONDARY      00006570
       **/******************************************************************** 00006580
       **/*                                                                  * 00006590
       **/* DEVICE ENTRIES:                                                  * 00006600
       **/*                                                                  * 00006610
       **/*    1. DURING ALLOCATION:                                         * 00006620
       **/*              ONE DEVICE ENTRY FOR EACH DEVICE REQUIRED, OR FOR   * 00006630
       **/*              EACH PUBLIC DEVICE ELIGIBLE.                        * 00006640
       **/*                                                                  * 00006650

       **/*    2. DURING PROBLEM PROGRAM:                                    * 00006660
       **/*              ONE DEVICE ENTRY FOR EACH ALLOCATED DEVICE          * 00006670
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0069


       **/*                                                                  * 00006680

       **/******************************************************************** 00006690
       **          10 TIOESTTB BIT(8),          /*  STATUS -B-                 00006700
       **           11 TIOSUSED BIT(1),         /*  DATA SET IS ON DEVICE      00006710
       **           11 TIOSREQD BIT(1),         /*  DATA SET WILL USE DEVICE   00006720
       **           11 TIOSPVIO BIT(1),         /*  DEVICE VIOLATES SEPARATION 00006730
       **           11 TIOSVLSR BIT(1),         /*  VOLUME SERIAL PRESENT      00006740
       **           11 TIOSSETU BIT(1),         /*  SETUP MESSAGE REQUIRED     00006750
       **           11 TIOSMNTD BIT(1),         /*  MOUNTED                    00006760
       **           11 TIOSUNLD BIT(1),         /*  UNLOAD REQUIRED            00006770
       **           11 TIOSVERF BIT(1),         /*  VERIFICATION REQUIRED      00006780
       **          10 TIOEFSRT  PTR(24),        /*  SRT POINTER                00006790
       **/******************************************************************** 00006800

       **/*                                                                    00006810
       **/*            TIOT POOL ENTRY                                         00006820
       **/*                                                                    00006830

       **/******************************************************************** 00006840
       **     5 POOLSTAR,                                                      00006850
       **          10 *    CHAR(1),                                            00006860
       **          10 TIOPNSLT PTR(8),         /*  NR. OF SLOTS FOR POOL     * 00006870
       **          10 *    CHAR(1),                                            00006880
       **          10 TIOPNSRT PTR(8),         /*  NR. OF DEVICES (FILLED      00006890
       **                                             SLOTS)                   00006900
       **          10 TIOPPOOL CHAR(8),         /*  POOL NAME                  00006910
       **          10 TIOPSTTB CHAR(1),         /*  STATUS OF SLOT             00006920
       **          10 TIOPSLOT PTR(24),         /*  SRT ADDRESS OF EMPTY SLOT  00006930
       **          10 TIOTFEND CHAR(4);         /*  FINAL END OF AN ENTRY OR   00006940
       **                                           THE TIOT                   00006950

       *         DCL                                                           00006960
       *               IEFDATA CHAR(8) INIT('IEFDATA ');                       00006970
       *         DCL                                                           00006980

       *               IEFPDSI CHAR(8) INIT('IEFPDSI ');                       00006990
       *         DCL                                                           00007000
       *               IEFRDER CHAR(8) INIT('IEFRDER ');                       00007010
       *         DCL                                                           00007020
       *               DDFOUND PTR(8);                                         00007030
       *         DCL                                                           00007040
       *               RETPOINT PTR(31);                                       00007050
       *         DCL                                                           00007060
       *               INDIRECT LABEL BASED(RETPOINT);                         00007070
       *                                    /* USED TO RETURN TO MAIN LINE     00007080
       *                                       CODE AFTER EXECUTING COMMON     00007090
       *                                       INTERNAL SUBROUTINE */          00007100

       *         DCL                                                           00007110
       *               1 EXAREA BASED (ADDR (BRDRWORK)),                       00007120
       *                 2 * PTR,                                              00007130
       *                 2 * PTR,                                              00007140

       *                 2 * PTR,                                              00007150
       *                 2 EXTIOT;          /* FIELD TO 'EXTRACT' POINTER TO   00007160
       *                                       TIOT INTO */                    00007170
       *         DCL                                                           00007180
       *               OLDTIOT CHAR (20) BASED (TIOTPT);                       00007190
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0070


       *         REGHOLD = R1;                                                 00007200
                ST    @1,REGHOLD                                         0049  00007210
       *         /************************************************************ 00007220
       *         /*                                                          * 00007230
       *         /*    SCAN TIOT FOR RDR REQUIRED DUMMY DD ENTRIES           * 00007240
       *         /*                                                          * 00007250

       *         /************************************************************ 00007260
       *         EXAREA=EXAREA&&EXAREA;     /* ZERO THE PARM AREA FOR EXTRACT  00007270
       *                                       */                              00007280

                XC    EXAREA(16),EXAREA                                  0050  00007290
       *         R6 = ADDR(EXTIOT);                                            00007300
                LA    @6,EXAREA+12                                       0051  00007310
       *         GENERATE;                                                     00007320
                EXTRACT  (6),FIELDS=TIOT,MF=(E,EXAREA)                         00007330
                DS    0H                                                       00007340
       *         R6 = EXTIOT;                                                  00007350
                L     @6,EXAREA+12                                       0053  00007360
       *         R1 = REGHOLD;                                                 00007370
                L     @1,REGHOLD                                         0054  00007380
       *         DDFOUND = 0;               /* CLEAR DD INDICATOR */           00007390
                SR    @F,@F                                              0055  00007400

                STC   @F,DDFOUND                                         0055  00007410
       *                                                                       00007420
       *     JEFF4101:                                                         00007430
       *         IF TIOEDDNM = IEFDATA THEN                                    00007440

       JEFF4101 CLC   28(8,@6),IEFDATA                                   0056  00007450
                BC    07,@9FF                                            0056  00007460
       *                                    /* IS THIS ENTRY IEFDATA DDNAME    00007470
       *                                       */                              00007480
       *           DDFOUND = DDFOUND + 1;   /* SET INDICATOR IF A HIT */       00007490
                LA    @F,1                                               0057  00007500
                SR    @0,@0                                              0057  00007510
                IC    @0,DDFOUND                                         0057  00007520
                AR    @F,@0                                              0057  00007530
                STC   @F,DDFOUND                                         0057  00007540
       *         IF TIOEDDNM = IEFPDSI THEN                                    00007550
       @9FF     CLC   28(8,@6),IEFPDSI                                   0058  00007560

                BC    07,@9FE                                            0058  00007570
       *                                    /* IS ENTRY DDNAME IEFPDSI */      00007580
       *           DDFOUND = DDFOUND + 2;   /* SET INDICATOR IF A HIT */       00007590

                LA    @F,2                                               0059  00007600
                SR    @0,@0                                              0059  00007610
                IC    @0,DDFOUND                                         0059  00007620
                AR    @F,@0                                              0059  00007630
                STC   @F,DDFOUND                                         0059  00007640
       *         IF TIOEDDNM = IEFRDER THEN                                    00007650
       @9FE     CLC   28(8,@6),IEFRDER                                   0060  00007660
                BC    07,@9FD                                            0060  00007670
       *           DO;                                                         00007680
       *             DDFOUND = DDFOUND + 4; /* SET INDICATOR IF FOUND */       00007690
                LA    @F,4                                               0062  00007700
                SR    @0,@0                                              0062  00007710

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0071


                IC    @0,DDFOUND                                         0062  00007720
                AR    @F,@0                                              0062  00007730
                STC   @F,DDFOUND                                         0062  00007740

       *             ORIGTIOT = TIOENTRY;   /* SAVE ORIGINAL IEFRDER DD DUMMY  00007750
       *                                       ENTRY IN TIOT */                00007760
                MVC   BWA+56(20),24(@6)                                  0063  00007770
       *             TIOTPT = ADDR(TIOENTRY);                                  00007780
                LA    @F,24(0,@6)                                        0064  00007790
                ST    @F,BWA+52                                          0064  00007800
       *                                    /* SAVE PTR TO IEFRDER SLOT IN     00007810
       *                                       TIOT FOR USE ON BRDR SPECIAL    00007820
       *                                       ACCESS METHOD */                00007830
       *           END;                                                        00007840
       *         IF DDFOUND = 7 THEN                                           00007850
       @9FD     LA    @F,7                                               0066  00007860

                SR    @0,@0                                              0066  00007870
                IC    @0,DDFOUND                                         0066  00007880
                CR    @F,@0                                              0066  00007890

       *                                    /* ARE ALL REQUIRED DD ENTRYS IN   00007900
       *                                       PROCEDURE */                    00007910
       *           GO TO JEFF4102;          /* IF YES, CONTINUE NORMAL PROC    00007920
       *                                       */                              00007930
                BC    08,JEFF4102                                        0067  00007940
       *         R6 = R6 + TIOELNGH;        /* STEP TO NEXT DD ENTRY IN TIOT   00007950
       *                                       */                              00007960
                IC    @0,24(0,@6)                                        0068  00007970
                AR    @6,@0                                              0068  00007980
       *         IF TIOELNGH ^= 0 THEN                                         00007990
                SR    @F,@F                                              0069  00008000
                IC    @0,24(0,@6)                                        0069  00008010

                CR    @F,@0                                              0069  00008020
       *                                    /* ZERO FLAGS END OF TIOT. IF NOT  00008030
       *                                       AT END, LOOP TO TEST NEXT DD    00008040
       *                                       ENTRY */                        00008050

       *           GO TO JEFF4101;                                             00008060
                BC    07,JEFF4101                                        0070  00008070
       *         RETCODE = 64;              /* ONE OR MORE REQUIRED DD'S       00008080
       *                                       ABSENT. SET ERROR RETURN CODE   00008090
       *                                       */                              00008100
                LA    @F,64                                              0071  00008110
                L     @4,4(0,@D)                                         0071  00008120
                ST    @F,16(0,@4)                                        0071  00008130
       *         RETURN;                                                       00008140
                BC    15,@EL01                                           0072  00008150
       *         /************************************************************ 00008160
       *         /*                                                          * 00008170

       *         /*    INITIALIZE BACKGROUND WORK AREA(BWA)                  * 00008180
       *         /*                                                          * 00008190
       *         /************************************************************ 00008200

       *                                                                       00008210
       *     JEFF4102:                                                         00008220
       *         BWATABID='BWA TABLE ID';                                      00008230
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0072


       JEFF4102 MVC   BWA(12),@C1                                        0073  00008240
       *         UCMI = CONID;              /* MOVE CONSOLE ID INTO BWA */     00008250
                L     @4,16(0,@1)         ADDRESS OF CONID               0074  00008260
                MVC   BWA+171(1),0(@4)                                   0074  00008270
       *         COMECBPT = ADDR(CSCBECB);                                     00008280
                L     @9,4(0,@1)          ADDRESS OF CSCBECB             0075  00008290
                ST    @9,BWA+16                                          0075  00008300
       *         FLGS = '00'X;                                                 00008310

                MVI   BWA+169,X'00'                                      0076  00008320
       *         FLGS2='00'X;                                                  00008330
                MVI   BWA+170,X'00'                                      0077  00008340
       *         ECBQPT = ADDR(QMECB);                                         00008350

                L     @2,8(0,@1)          ADDRESS OF QMECB               0078  00008360
                ST    @2,BWA+20                                          0078  00008370
       *         /************************************************************ 00008380
       *         /*                                                          * 00008390
       *         /*    GET CORE FOR NEL & INITIALIZE IT                      * 00008400
       *         /*                                                          * 00008410
       *         /************************************************************ 00008420
       *         R0=LENGTH(NELLIST) +LENGTH(NELOPTS) +LENGTH(NELEXITS);        00008430
                LA    @0,24                                              0079  00008440
                AH    @0,@D1                                             0079  00008450
                AH    @0,@D2                                             0079  00008460
       *                                    /* GET ENOUGH CORE FOR THE NEL,    00008470

       *                                       THE OPTION TABLE AND THE EXIT   00008480
       *                                       LIST ALL AT ONCE */             00008490
       *         GENERATE;                                                     00008500

                GETMAIN  R,LV=(0)                                              00008510
                DS    0H                                                       00008520
       *         R7 = R1;                   /* USE REG 7 FOR NEL ADDR */       00008530
                LR    @7,@1                                              0081  00008540
       *         R1 = REGHOLD;              /* RESTORE CONTENTS OF REG 1 */    00008550
                L     @1,REGHOLD                                         0082  00008560
       *         R8=R7+LENGTH(NELLIST);     /* POINT TO THE OPTION TABLE */    00008570
                LA    @8,32(0,@7)                                        0083  00008580
       *         R5=R8+LENGTH(NELOPTS);     /* POINT BASE FOR THE EXIT LIST    00008590
       *                                       */                              00008600
                LA    @5,64(0,@8)                                        0084  00008610
       *         NELLIST = NELLIST && NELLIST;                                 00008620

                XC    0(32,@7),0(@7)                                     0085  00008630
       *                                    /* ZERO NEL */                     00008640
       *         NELECB=ADDR(COMECBPT);     /* POINT THE R/I TO A FAKE ECB --  00008650
       *                                       THE ACCESS METHOD WILL TEST     00008660

       *                                       THE REAL ONE */                 00008670
                LA    @F,BWA+16                                          0086  00008680
                ST    @F,4(0,@7)                                         0086  00008690
       *         NELJCL = ADDR(BWA);        /* INIT NEL PTR TO BWA */          00008700
                LA    @F,BWA                                             0087  00008710
                ST    @F,8(0,@7)                                         0087  00008720
       *         NELCOMID = ADDR(CONID);    /* INIT PTR TO MCS CONSOLE I.D.    00008730
       *                                       */                              00008740
                ST    @4,24(0,@7)                                        0088  00008750
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0073


       *         NELNBIT = '1'B;            /* FLAG END OF NEL */              00008760
                OI    24(@7),B'10000000'                                 0089  00008770

       *         NELOPTS= NELOPTS&& NELOPTS;                                   00008780
                XC    0(64,@8),0(@8)                                     0090  00008790
       *                                    /* ZERO OPTION LIST */             00008800

       *         NELOPLEN=LENGTH(NELOPTS);  /* MARK LENGTH OF THE OPTION       00008810
       *                                       TABLE */                        00008820
                LA    @F,64                                              0091  00008830
                STH   @F,0(0,@8)                                         0091  00008840
       *         NELSYS='01'X;              /* INDICATE AN MVT SUSTEM */       00008850
                MVI   3(@8),X'01'                                        0092  00008860
       *         NELOPLST = ADDR(NELOPTS);  /* INIT NEL PTR TO NEL OPTION      00008870
       *                                       LIST*/                          00008880
                ST    @8,0(0,@7)                                         0093  00008890
       *         NELENQ = '1'B;             /* INDICATE ENQUEUING OPTION */    00008900
                OI    2(@8),B'00000001'                                  0094  00008910
       *         IF PARMLEN ^>0 THEN                                           00008920

                SR    @F,@F                                              0095  00008930
                L     @3,0(0,@1)          ADDRESS OF BRDRPARM            0095  00008940
                CH    @F,0(0,@3)                                         0095  00008950

                BC    04,@9FC                                            0095  00008960
       *           DO;                      /* IF PARMLEN IS NOT GREATER THAN  00008970
       *                                       ZERO, THEN THAT IS A BAD        00008980
       *                                       THING, SO */                    00008990
       *             RETCODE = 68;          /* INDICATE INVALID PROC PARM MSG  00009000
       *                                       */                              00009010
                LA    @F,68                                              0097  00009020
                L     @9,4(0,@D)                                         0097  00009030
                ST    @F,16(0,@9)                                        0097  00009040
       *             RETURN;                                                   00009050
                BC    15,@EL01                                           0098  00009060
       *           END;                                                        00009070

       *         NELPARM(1:PARMLEN)= PARMS(1:PARMLEN);                         00009080
       @9FC     L     @4,0(0,@1)          ADDRESS OF BRDRPARM            0100  00009090
                LA    @E,2(0,@4)                                         0100  00009100
                LH    @9,0(0,@4)                                         0100  00009110

                BCTR  @9,0                                               0100  00009120
                LA    @A,8(0,@8)                                         0100  00009130
                EX    @9,@MVC                                            0100  00009140
       *                                    /* COPY THE PARMS INTO THE OPTION  00009150
       *                                       TABLE */                        00009160
       *         NELJOBNM=' ';              /* BLANK OUT THE STARTING JOB      00009170
       *                                       NAME FIELD */                   00009180
                MVI   48(@8),C' '                                        0101  00009190
                MVC   49(7,@8),48(@8)                                    0101  00009200
       *         NELMSGCL = MSGCLS;         /* INDICATE THE DEFAULT MESSAGE    00009210
       *                                       CLASS */                        00009220
                L     @9,12(0,@1)         ADDRESS OF MSGCLS              0102  00009230

                MVC   42(1,@8),0(@9)                                     0102  00009240
       *         NELEXITS= NELEXITS&& NELEXITS;                                00009250
                XC    0(24,@5),0(@5)                                     0103  00009260

       *                                    /* ZERO EXIT LIST */               00009270
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0074


       *         NELEXLEN = 24;                                                00009280
                LA    @F,24                                              0104  00009290
                STH   @F,0(0,@5)                                         0104  00009300
       *         NELEXLST = ADDR(NELEXITS); /* INIT NEL PTR TO NEL EXIT LIST   00009310
       *                                       */                              00009320
                ST    @5,20(0,@7)                                        0105  00009330
       *         IF CVTSMCA= 0 THEN                                            00009340
                SR    @F,@F                                              0106  00009350
                L     @2,CVTPTR                                          0106  00009360
                C     @F,196(0,@2)                                       0106  00009370

       *                                    /* SMF NOT IN SYSTEM IF ZERO PTR   00009380
       *                                       */                              00009390
       *           GO TO JEFF4108;                                             00009400
                BC    08,JEFF4108                                        0107  00009410

       *         IF SMFSW='00'X THEN                                           00009420
                L     @3,CVTPTR                                          0108  00009430
                L     @3,196(0,@3)        CVTMAP                         0108  00009440
                CLI   0(@3),X'00'                                        0108  00009450
       *                                    /* IF NO SW ON, SMF IS INACTIVE    00009460
       *                                       */                              00009470
       *           GO TO JEFF4108;                                             00009480
                BC    08,JEFF4108                                        0109  00009490
       *         NELSMF = '1'B;             /* SET SMF SWITCH IN OPTION LIST   00009500
       *                                       */                              00009510
                OI    2(@8),B'10000000'                                  0110  00009520
       *         IF SMFEX='1'B THEN                                            00009530

                TM    0(@3),B'00100000'                                  0111  00009540
                BC    12,@9FB                                            0111  00009550
       *           DO;                      /* IF SMF'S EXIT BIT IS ON, THEN   00009560

       *                                       SET UP THE NEL EXIT LIST TO     00009570
       *                                       SPECIFY THE SMF EXIT */         00009580
       *             NELSMFLK='80'X;        /* ENTRY POINT TO SMF EXIT RTN     00009590
       *                                       SPECIFIED AS 6 BYTE MODULE */   00009600
                MVI   16(@5),X'80'                                       0113  00009610
       *             NELSMFID='07'X;        /* CODE INDICATES AN SMF EXIT */   00009620
                MVI   17(@5),X'07'                                       0114  00009630
       *             NELSMFEP='IEFUJV';     /* USER VALIDATION SMF EXIT RTN    00009640
       *                                       NAME IS IEFUJV */               00009650
                MVC   18(6,@5),@C8                                       0115  00009660
       *           END;                                                        00009670
       *                                                                       00009680

       *     JEFF4108:                                                         00009690
       *         NELIAMLK='40'X;            /* ENTRY PT SPECIFIED AS 3 BYTE    00009700
       *                                       ADDRESS */                      00009710
       @9FB     EQU   *                                                  0117  00009720

       JEFF4108 MVI   8(@5),X'40'                                        0117  00009730
       *         NELIAMID='40'X;            /* SPECIAL INPUT ACC METH 1D       00009740
       *                                       SPECIFIED TO RDR/INT */         00009750
                MVI   9(@5),X'40'                                        0118  00009760
       *         EXAD = ADDR(IKJEFF42);     /* INIT ADDR OF SPECIAL ACC METH   00009770
       *                                       */                              00009780
                L     @4,@V1              ADDRESS OF IKJEFF42            0119  00009790
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0075


                ST    @4,@TEMP4                                          0119  00009800
                MVC   13(3,@5),@TEMP4+1                                  0119  00009810
       *         /************************************************************ 00009820
       *         /*                                                          * 00009830

       *         /*    LINK TO RDR/INT.  TEST RETURN CODES.  FREE GOTTEN CORE* 00009840
       *         /*                                                          * 00009850
       *         /************************************************************ 00009860

       *         R1 = R7;                   /* SET R1 TO POINT TO NEL */       00009870
                LR    @1,@7                                              0120  00009880
       *         SIMULATION OF HASP CODE IN VS VERSION OF IKJEFF41             00009881
                L     @9,CVTPTR           IF CVTUSER ^= 0                 RFIT 00009882
                L     @F,204(,@9)                                         RFIT 00009883
                LTR   @F,@F                                               RFIT 00009884
                BC    8,@DART9FA          THEN DO;                        RFIT 00009885
                LINK  EP=IKJEFF47         GEN ( LINK EP=IKJEFF47);        RFIT 00009886
                LTR   @F,@F               IF RF = 0 THEN                  RFIT 00009887
                BC    8,JEFF4110          GOTO JEFF4110;                  RFIT 00009888
       @DART9FA DS    0H                  END;                            RFIT 00009889
       *         GENERATE;                                                     00009890

                LINK  EP=IEFVH1                                                00009900
                DS    0H                                                       00009910
       JEFF4110 DS    0H                  JEFF4110:                       RFIT 00009911
       *         RETCODE = RF;              /* STORE RDR/INT RETURN CODE INTO  00009920

       *                                       REG 15 SLOT IN CALLER'S SAVE    00009930
       *                                       AREA */                         00009940
                L     @9,4(0,@D)                                         0122  00009950
                ST    @F,16(0,@9)                                        0122  00009960
       *         R0=LENGTH(NELLIST) +LENGTH(NELOPTS) +LENGTH(NELEXITS);        00009970
                LA    @0,24                                              0123  00009980
                AH    @0,@D1                                             0123  00009990
                AH    @0,@D2                                             0123  00010000
       *                                    /* GET THE LENGTH OF ALL THREE     00010010
       *                                       TABLES -- NEL, OPTIONS, AND     00010020
       *                                       EXITS -- AND FREE THEM IN ONE   00010030
       *                                       FELL SWOOP */                   00010040

       *         GENERATE;                                                     00010050
                FREEMAIN   R,LV=(0),A=(1)                                      00010060
                DS    0H                                                       00010070

       *         R1 = REGHOLD;                                                 00010080
                L     @1,REGHOLD                                         0125  00010090
       *         IF ALLOCATD='1'B THEN                                         00010100
                TM    BWA+169,B'00010000'                                0126  00010110
                BC    12,@9FA                                            0126  00010120
       *           CALL IKJEFF4B (BWA);     /* IF THE ACCESS METHOD IS STILL   00010130
       *                                       ALLOCATED, THEN CALL IT TO      00010140
       *                                       CLEAN UP */                     00010150
                LA    @F,BWA                                             0127  00010160
                ST    @F,@PL001                                          0127  00010170
                L     @F,@V2              ADDRESS OF IKJEFF4B            0127  00010180
                LA    @1,@PL001                                          0127  00010190

                BALR  @E,@F                                              0127  00010200
                L     @1,4(0,@D)                                         0127  00010210
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0076


                L     @1,24(0,@1)                                        0127  00010220

       *         OLDTIOT=ORIGTIOT;                                             00010230
       @9FA     L     @4,BWA+52           BWA                            0128  00010240
                MVC   0(20,@4),BWA+56                                    0128  00010250
       *         IF ALLOCERR = '0'B THEN                                       00010260
                TM    BWA+169,B'10000000'                                0129  00010270
                BC    05,@9F7                                            0129  00010280
       *           IF DEALERR = '0'B THEN                                      00010290
                TM    BWA+169,B'00100000'                                0130  00010300
                BC    05,@9F6                                            0130  00010310
       *             IF OPENERR = '0'B THEN                                    00010320
                TM    BWA+169,B'00001000'                                0131  00010330
       *               RETURN;                                                 00010340

                BC    10,@EL01                                           0132  00010350
       *         RETCODE = 72;              /* SET GENERAL ERROR CODE TO       00010360
       *                                       INDICATE MSSG SENT */           00010370

       @9F5     EQU   *                                                  0133  00010380
       @9F6     EQU   *                                                  0133  00010390
       @9F7     LA    @F,72                                              0133  00010400
                L     @4,4(0,@D)                                         0133  00010410
                ST    @F,16(0,@4)                                        0133  00010420
       *         RETURN;                                                       00010430
       *         END                                                           00010440
       * /* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM.       00010450
       * /* @INCLUDE SYSLIB  (IKJEFFBT)                                        00010460
       * /* %INCLUDE SYSLIB  (IEFNEL  )                                        00010470
       * /* %INCLUDE SYSLIB  (CVT     )                                        00010480
       * /* %INCLUDE SYSLIB  (IEFTIOT1)                                        00010490

       * ;                                                                     00010500
       @EL01    L     @D,4(0,@D)                                         0135  00010510
                LR    @1,@C                                              0135  00010520

                L     @0,@SIZ001                                         0135  00010530
                FREEMAIN R,LV=(0),A=(1)                                  0135  00010540
                LM    @E,@C,12(@D)                                       0135  00010550
                BCR   15,@E                                              0135  00010560
       @DATA1   EQU   *                                                  0135  00010570
       @0       EQU   00                  EQUATES FOR REGISTERS 0-15           00010580
       @1       EQU   01                                                       00010590
       @2       EQU   02                                                       00010600
       @3       EQU   03                                                       00010610
       @4       EQU   04                                                       00010620
       @5       EQU   05                                                       00010630
       @6       EQU   06                                                       00010640

       @7       EQU   07                                                       00010650
       @8       EQU   08                                                       00010660
       @9       EQU   09                                                       00010670
       @A       EQU   10                                                       00010680

       @B       EQU   11                                                       00010690
       @C       EQU   12                                                       00010700
       @D       EQU   13                                                       00010710
       @E       EQU   14                                                       00010720
       @F       EQU   15                                                       00010730
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0077


       @D1      DC    H'64'                                                    00010740
       @D2      DC    H'32'                                                    00010750
       @MVC     MVC   0(1,@A),0(@E)                                            00010760
       @V1      DC    V(IKJEFF42)                                              00010770
       @V2      DC    V(IKJEFF4B)                                              00010780
                DS    0F                                                       00010790

       @SIZ001  DC    AL1(&SPN)                                                00010800
                DC    AL3(@DATEND-@DATD)                                       00010810
                DS    0F                                                       00010820

       @C1      DC    C'BWA TABLE ID'                                          00010830
       @C8      DC    C'IEFUJV'                                                00010840
                DS    0D                                                       00010850
       @DATA    EQU   *                                                        00010860
       R0       EQU   00000000            3  BYTE  POINTER REGISTER            00010870
       R1       EQU   00000001            3  BYTE  POINTER REGISTER            00010880
       R5       EQU   00000005            3  BYTE  POINTER REGISTER            00010890
       NELEXBAS EQU   00000005            FULLWORD POINTER REGISTER            00010900
       R6       EQU   00000006            3  BYTE  POINTER REGISTER            00010910
       TIOTPTR  EQU   00000006            FULLWORD POINTER REGISTER            00010920
       R7       EQU   00000007            3  BYTE  POINTER REGISTER            00010930
       NELPTR   EQU   00000007            FULLWORD POINTER REGISTER            00010940

       R8       EQU   00000008            3  BYTE  POINTER REGISTER            00010950
       NELOPBAS EQU   00000008            FULLWORD POINTER REGISTER            00010960
       RD       EQU   00000013            3  BYTE  POINTER REGISTER            00010970
       RF       EQU   00000015            3  BYTE  POINTER REGISTER            00010980

       BACSAVEP EQU   00000004            FULLWORD POINTER                     00010990
       RETCODE  EQU   00000016            FULLWORD POINTER                     00011000
       TIOTSLOT EQU   00000000            20 BYTE(S)                           00011010
       ECBQLNK  EQU   00000000            8 BYTE(S)                            00011020
       COMECB   EQU   00000000            4 BYTE(S)                            00011030
       A00000   EQU   COMECB+00000000     1 BIT(S)                             00011040
       COMBIT   EQU   COMECB+00000000     1 BIT(S)                             00011050
       NEL      EQU   00000000            32 BYTE(S) ON DWORD                  00011060
       NELLIST  EQU   NEL+00000000        32 BYTE(S) ON WORD                   00011070
       NELOPLST EQU   NEL+00000000        FULLWORD POINTER                     00011080
       NELECB   EQU   NEL+00000004        FULLWORD POINTER                     00011090
       NELJCL   EQU   NEL+00000008        FULLWORD POINTER                     00011100

       NELQMPA  EQU   NEL+00000012        FULLWORD POINTER                     00011110
       NELJCT   EQU   NEL+00000016        FULLWORD POINTER                     00011120
       NELEXLST EQU   NEL+00000020        FULLWORD POINTER                     00011130

       NELCOMID EQU   NEL+00000024        FULLWORD POINTER                     00011140
       NELLAST  EQU   NEL+00000024        1 BYTE(S)                            00011150
       NELNBIT  EQU   NEL+00000024        1 BIT(S)                             00011160
       A00001   EQU   NEL+00000024        7 BIT(S)                             00011170
       NELOPTS  EQU   00000000            64 BYTE(S) ON DWORD                  00011180
       NELOPLEN EQU   NELOPTS+00000000    HALFWORD INTEGER                     00011190
       NELOPSWT EQU   NELOPTS+00000002    1 BYTE(S)                            00011200
       NELSMF   EQU   NELOPTS+00000002    1 BIT(S)                             00011210
       NELTSOP  EQU   NELOPTS+00000002    1 BIT(S)                             00011220
       NELSMF2  EQU   NELOPTS+00000002    1 BIT(S)                             00011230
       NELSWSM  EQU   NELOPTS+00000002    1 BIT(S)                             00011240
       NELTS    EQU   NELOPTS+00000002    1 BIT(S)                             00011250

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0078


       NELQERR  EQU   NELOPTS+00000002    1 BIT(S)                             00011260
       NELBIN   EQU   NELOPTS+00000002    1 BIT(S)                             00011270
       NELENQ   EQU   NELOPTS+00000002    1 BIT(S)                             00011280

       NELSYS   EQU   NELOPTS+00000003    1 BYTE(S)                            00011290
       NELTRKBF EQU   NELOPTS+00000004    1 BYTE(S)                            00011300
       NELSMFOP EQU   NELOPTS+00000005    1 BYTE(S)                            00011310
       NELINTNO EQU   NELOPTS+00000006    HALFWORD INTEGER                     00011320
       NELPARM  EQU   NELOPTS+00000008    40 BYTE(S)                           00011330
       NELPARMO EQU   NELOPTS+00000008    1 BYTE(S)                            00011340
       NELJPRTY EQU   NELOPTS+00000009    2 BYTE(S)                            00011350
       NELTIME  EQU   NELOPTS+00000011    3 BYTE(S)                            00011360
       NELQTY1  EQU   NELOPTS+00000014    3 BYTE(S)                            00011370
       NELQTY2  EQU   NELOPTS+00000017    3 BYTE(S)                            00011380
       NELIPRTY EQU   NELOPTS+00000020    3 BYTE(S)                            00011390
       NELREG   EQU   NELOPTS+00000023    3 BYTE(S)                            00011400

       NELCOMDS EQU   NELOPTS+00000026    1 BYTE(S)                            00011410
       NELLABEL EQU   NELOPTS+00000027    1 BYTE(S)                            00011420
       NELSYOUT EQU   NELOPTS+00000028    8 BYTE(S)                            00011430

       NELAUTH  EQU   NELOPTS+00000036    4 BYTE(S)                            00011440
       NELMSGL1 EQU   NELOPTS+00000040    1 BYTE(S)                            00011450
       NELMSGL2 EQU   NELOPTS+00000041    1 BYTE(S)                            00011460
       NELMSGCL EQU   NELOPTS+00000042    1 BYTE(S)                            00011470
       A00002   EQU   NELOPTS+00000043    5 BYTE(S)                            00011480
       NELJOBNM EQU   NELOPTS+00000048    8 BYTE(S)                            00011490
       A00003   EQU   NELOPTS+00000056    8 BYTE(S)                            00011500
       NELEXITS EQU   00000000            24 BYTE(S) ON DWORD                  00011510
       NELEXHDR EQU   NELEXITS+00000000   8 BYTE(S) ON WORD                    00011520
       NELEXLEN EQU   NELEXITS+00000000   HALFWORD INTEGER                     00011530
       NELXRTCD EQU   NELEXITS+00000002   HALFWORD INTEGER                     00011540
       A00004   EQU   NELEXITS+00000004   4 BYTE(S)                            00011550

       IAMEXT   EQU   NELEXITS+00000008   8 BYTE(S)                            00011560
       NELIAMLK EQU   NELEXITS+00000008   1 BYTE(S)                            00011570
       NELIAMID EQU   NELEXITS+00000009   1 BYTE(S)                            00011580
       NELIAMEP EQU   NELEXITS+00000010   6 BYTE(S)                            00011590

       SMFEXT   EQU   NELEXITS+00000016   8 BYTE(S)                            00011600
       NELSMFLK EQU   NELEXITS+00000016   1 BYTE(S)                            00011610
       NELSMFID EQU   NELEXITS+00000017   1 BYTE(S)                            00011620
       NELSMFEP EQU   NELEXITS+00000018   6 BYTE(S)                            00011630
       A00005   EQU   NELEXITS+00000018   1 BYTE(S)                            00011640
       EXAD     EQU   00000013            3 BYTE(S)                            00011650
       BRDRPARM EQU   00000000            102 BYTE(S) ON WORD                  00011660
       PARMLEN  EQU   BRDRPARM+00000000   HALFWORD POINTER                     00011670
       PARMS    EQU   BRDRPARM+00000002   100 BYTE(S)                          00011680
       CSCBECB  EQU   00000000            4 BYTE(S) ON WORD                    00011690
       WAITBIT  EQU   CSCBECB+00000000    1 BIT(S)                             00011700
       COMPBIT  EQU   CSCBECB+00000000    1 BIT(S)                             00011710

       A00006   EQU   CSCBECB+00000000    30 BIT(S)                            00011720
       QMECB    EQU   00000000            8 BYTE(S) ON WORD                    00011730
       ECB      EQU   QMECB+00000000      FULLWORD POINTER                     00011740

       QUENUM   EQU   QMECB+00000004      1  BYTE  POINTER                     00011750
       LINKPTR  EQU   QMECB+00000005      3  BYTE  POINTER ON WORD+1           00011760
       MSGCLS   EQU   00000000            1 BYTE(S)                            00011770
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0079


       CONID    EQU   00000000            1 BYTE(S)                            00011780
       CVTPTR   EQU   00000016            FULLWORD POINTER                     00011790
       CVTMAP   EQU   00000000            252 BYTE(S) ON WORD                  00011800
       CVTTCBP  EQU   CVTMAP+00000000     FULLWORD POINTER                     00011810
       CVT0EF00 EQU   CVTMAP+00000004     FULLWORD POINTER                     00011820
       CVTLINK  EQU   CVTMAP+00000008     FULLWORD POINTER                     00011830
       CVTJOB   EQU   CVTMAP+00000012     FULLWORD POINTER                     00011840
       CVTBUF   EQU   CVTMAP+00000016     FULLWORD POINTER                     00011850

       CVTXAPG  EQU   CVTMAP+00000020     FULLWORD POINTER                     00011860
       CVT0VL00 EQU   CVTMAP+00000024     FULLWORD POINTER                     00011870
       CVTPCNVT EQU   CVTMAP+00000028     FULLWORD POINTER                     00011880
       CVTPRLTV EQU   CVTMAP+00000032     FULLWORD POINTER                     00011890

       CVTILK1  EQU   CVTMAP+00000036     FULLWORD POINTER                     00011900
       CVTILK2  EQU   CVTMAP+00000040     FULLWORD POINTER                     00011910
       CVTXTLER EQU   CVTMAP+00000044     FULLWORD POINTER                     00011920
       CVTSYSAD EQU   CVTMAP+00000048     FULLWORD POINTER                     00011930
       CVTBTERM EQU   CVTMAP+00000052     FULLWORD POINTER                     00011940
       CVTDATE  EQU   CVTMAP+00000056     4 BYTE(S)                            00011950
       CVTMSLT  EQU   CVTMAP+00000060     FULLWORD POINTER                     00011960
       CVTZDTAB EQU   CVTMAP+00000064     FULLWORD POINTER                     00011970
       CVTXITP  EQU   CVTMAP+00000068     FULLWORD POINTER                     00011980
       CVTDAR   EQU   CVTMAP+00000072     FULLWORD POINTER                     00011990
       CVT0FN00 EQU   CVTMAP+00000076     FULLWORD POINTER                     00012000
       CVTEXIT  EQU   CVTMAP+00000080     2 BYTE(S)                            00012010

       CVTBRET  EQU   CVTMAP+00000082     2 BYTE(S)                            00012020
       CVTSVDCB EQU   CVTMAP+00000084     FULLWORD POINTER                     00012030
       CVTTPC   EQU   CVTMAP+00000088     FULLWORD POINTER                     00012040

       CVTPBLDL EQU   CVTMAP+00000092     FULLWORD POINTER                     00012050
       CVTSJQ   EQU   CVTMAP+00000096     FULLWORD POINTER                     00012060
       CVTCUCB  EQU   CVTMAP+00000100     FULLWORD POINTER                     00012070
       CVTQTE00 EQU   CVTMAP+00000104     FULLWORD POINTER                     00012080
       CVTQTD00 EQU   CVTMAP+00000108     FULLWORD POINTER                     00012090
       CVTSTB   EQU   CVTMAP+00000112     FULLWORD POINTER                     00012100
       CVTDCB   EQU   CVTMAP+00000116     1 BYTE(S)                            00012110
       A00007   EQU   CVTMAP+00000116     1 BIT(S)                             00012120
       CVT1SSS  EQU   CVTMAP+00000116     1 BIT(S)                             00012130
       CVT2SPS  EQU   CVTMAP+00000116     1 BIT(S)                             00012140
       CVT4MS1  EQU   CVTMAP+00000116     1 BIT(S)                             00012150
       A00008   EQU   CVTMAP+00000116     1 BIT(S)                             00012160

       CVT4MPS  EQU   CVTMAP+00000116     1 BIT(S)                             00012170
       A00009   EQU   CVTMAP+00000116     1 BIT(S)                             00012180
       A00010   EQU   CVTMAP+00000116     1 BIT(S)                             00012190

       CVTDCBA  EQU   CVTMAP+00000117     3  BYTE  POINTER ON WORD+1           00012200
       CVTIOQET EQU   CVTMAP+00000120     FULLWORD POINTER                     00012210
       CVTIXAVL EQU   CVTMAP+00000124     FULLWORD POINTER                     00012220
       CVTNUCB  EQU   CVTMAP+00000128     FULLWORD POINTER                     00012230
       CVTFBOSV EQU   CVTMAP+00000132     FULLWORD POINTER                     00012240
       CVT0DS   EQU   CVTMAP+00000136     FULLWORD POINTER                     00012250
       CVTILCH  EQU   CVTMAP+00000140     FULLWORD POINTER                     00012260
       CVTIERLC EQU   CVTMAP+00000144     FULLWORD POINTER                     00012270
       CVTMSER  EQU   CVTMAP+00000148     FULLWORD POINTER                     00012280
       CVT0PT01 EQU   CVTMAP+00000152     FULLWORD POINTER                     00012290
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0080


       CVTTRMTB EQU   CVTMAP+00000156     FULLWORD POINTER                     00012300

       CVTHEAD  EQU   CVTMAP+00000160     FULLWORD POINTER                     00012310
       CVTMZ00  EQU   CVTMAP+00000164     FULLWORD POINTER                     00012320
       CVT1EF00 EQU   CVTMAP+00000168     FULLWORD POINTER                     00012330
       CVTQOCR  EQU   CVTMAP+00000172     FULLWORD POINTER                     00012340

       CVTQMWR  EQU   CVTMAP+00000176     FULLWORD POINTER                     00012350
       CVTSNCTR EQU   CVTMAP+00000180     HALFWORD INTEGER                     00012360
       CVTOPTA  EQU   CVTMAP+00000182     1 BYTE(S)                            00012370
       CVTCCH   EQU   CVTMAP+00000182     1 BIT(S)                             00012380
       CVTAPR   EQU   CVTMAP+00000182     1 BIT(S)                             00012390
       CVTDDR   EQU   CVTMAP+00000182     1 BIT(S)                             00012400
       CVTNIP   EQU   CVTMAP+00000182     1 BIT(S)                             00012410
       CVTATTCH EQU   CVTMAP+00000182     1 BIT(S)                             00012420
       CVTHIAR  EQU   CVTMAP+00000182     1 BIT(S)                             00012430
       CVTASCII EQU   CVTMAP+00000182     1 BIT(S)                             00012440
       A00011   EQU   CVTMAP+00000182     1 BIT(S)                             00012450
       CVTOPTB  EQU   CVTMAP+00000183     1 BYTE(S)                            00012460

       CVTPROT  EQU   CVTMAP+00000183     1 BIT(S)                             00012470
       A00012   EQU   CVTMAP+00000183     1 BIT(S)                             00012480
       CVTTOD   EQU   CVTMAP+00000183     1 BIT(S)                             00012490

       A00013   EQU   CVTMAP+00000183     5 BIT(S)                             00012500
       CVTQCDSR EQU   CVTMAP+00000184     FULLWORD POINTER                     00012510
       CVTQLPAQ EQU   CVTMAP+00000188     FULLWORD POINTER                     00012520
       CVTMPCVT EQU   CVTMAP+00000192     FULLWORD POINTER                     00012530
       CVTSMCA  EQU   CVTMAP+00000196     FULLWORD POINTER                     00012540
       CVTABEND EQU   CVTMAP+00000200     FULLWORD POINTER                     00012550
       CVTUSER  EQU   CVTMAP+00000204     FULLWORD POINTER                     00012560
       A00014   EQU   CVTMAP+00000208     FULLWORD POINTER                     00012570
       CVTQABST EQU   CVTMAP+00000212     2 BYTE(S)                            00012580
       CVTLNKSC EQU   CVTMAP+00000214     2 BYTE(S)                            00012590
       CVTTSCE  EQU   CVTMAP+00000216     FULLWORD POINTER                     00012600
       CVTPATCH EQU   CVTMAP+00000220     FULLWORD POINTER                     00012610

       CVTRMS   EQU   CVTMAP+00000224     FULLWORD POINTER                     00012620
       CVTTSCVT EQU   CVTMAP+00000228     FULLWORD POINTER                     00012630
       CVTTSFLG EQU   CVTMAP+00000228     1 BYTE(S)                            00012640
       CVTTSRDY EQU   CVTMAP+00000228     1 BIT(S)                             00012650

       A00015   EQU   CVTMAP+00000228     7 BIT(S)                             00012660
       CVTTSCVB EQU   CVTMAP+00000229     3  BYTE  POINTER ON WORD+1           00012670
       CVT0SCR1 EQU   CVTMAP+00000232     FULLWORD POINTER                     00012680
       A00016   EQU   CVTMAP+00000236     FULLWORD POINTER                     00012690
       CVTAQAVT EQU   CVTMAP+00000240     FULLWORD POINTER                     00012700
       CVTTCMFG EQU   CVTMAP+00000240     1 BYTE(S)                            00012710
       CVTTCRDY EQU   CVTMAP+00000240     1 BIT(S)                             00012720
       A00017   EQU   CVTMAP+00000240     7 BIT(S)                             00012730
       CVTAQAVB EQU   CVTMAP+00000241     3  BYTE  POINTER ON WORD+1           00012740
       CVTTATA  EQU   CVTMAP+00000244     FULLWORD POINTER                     00012750
       CVTTSKS  EQU   CVTMAP+00000244     1  BYTE  POINTER                     00012760
       CVTTAT   EQU   CVTMAP+00000245     3  BYTE  POINTER ON WORD+1           00012770

       CVTSYST  EQU   CVTMAP+00000248     1  BYTE  POINTER                     00012780
       A00018   EQU   CVTMAP+00000249     3 BYTE(S)                            00012790
       A00019   EQU   00000184            8 BYTE(S) ON WORD                    00012800

       CVTCRTTR EQU   A00019+00000000     3 BYTE(S)                            00012810
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0081


       CVTSTUSA EQU   A00019+00000003     1 BYTE(S)                            00012820
       A00020   EQU   A00019+00000003     1 BIT(S)                             00012830
       A00021   EQU   A00019+00000003     1 BIT(S)                             00012840
       A00022   EQU   A00019+00000003     1 BIT(S)                             00012850
       A00023   EQU   A00019+00000003     1 BIT(S)                             00012860
       CVTCHPTR EQU   A00019+00000003     1 BIT(S)                             00012870
       CVTSTEPR EQU   A00019+00000003     1 BIT(S)                             00012880
       CVTDATA  EQU   A00019+00000003     1 BIT(S)                             00012890
       A00024   EQU   A00019+00000003     1 BIT(S)                             00012900
       A00025   EQU   A00019+00000004     2 BYTE(S)                            00012910

       A00026   EQU   A00019+00000006     2 BYTE(S)                            00012920
       CVTFIX   EQU   00000256            256 BYTE(S) ON WORD                  00012930
       A00027   EQU   CVTFIX+00000000     248 BYTE(S)                          00012940
       A00028   EQU   CVTFIX+00000248     2 BYTE(S)                            00012950

       CVTMDL   EQU   CVTFIX+00000250     2 BYTE(S)                            00012960
       CVTRELNO EQU   CVTFIX+00000252     4 BYTE(S)                            00012970
       SMFSW    EQU   00000000            1 BYTE(S)                            00012980
       A00029   EQU   SMFSW+00000000      1 BIT(S)                             00012990
       A00030   EQU   SMFSW+00000000      1 BIT(S)                             00013000
       SMFEX    EQU   SMFSW+00000000      1 BIT(S)                             00013010
       TIOT1    EQU   00000000            24 BYTE(S) ON WORD                   00013020
       TIOCNJOB EQU   TIOT1+00000000      8 BYTE(S)                            00013030
       TIOCSTEP EQU   TIOT1+00000008      16 BYTE(S)                           00013040
       TIOENTRY EQU   00000024            40 BYTE(S) ON WORD                   00013050
       TIOELNGH EQU   TIOENTRY+00000000   1  BYTE  POINTER                     00013060
       TIOESTTA EQU   TIOENTRY+00000001   8 BIT(S)                             00013070

       TIOSLTYP EQU   TIOENTRY+00000001   1 BIT(S)                             00013080
       TIOSPLTP EQU   TIOENTRY+00000001   1 BIT(S)                             00013090
       TIOSPLTS EQU   TIOENTRY+00000001   1 BIT(S)                             00013100

       TIOSJBLB EQU   TIOENTRY+00000001   1 BIT(S)                             00013110
       TIOSDADS EQU   TIOENTRY+00000001   1 BIT(S)                             00013120
       TIOSLABL EQU   TIOENTRY+00000001   1 BIT(S)                             00013130
       TIOSDSP1 EQU   TIOENTRY+00000001   1 BIT(S)                             00013140
       TIOSDSP2 EQU   TIOENTRY+00000001   1 BIT(S)                             00013150
       TIOERLOC EQU   TIOENTRY+00000002   2 BYTE(S)                            00013160
       TIOEWTCT EQU   TIOENTRY+00000002   1 BYTE(S)                            00013170
       TIOELINK EQU   TIOENTRY+00000003   1 BYTE(S)                            00013180
       TIOSYOUT EQU   TIOENTRY+00000003   1 BIT(S)                             00013190
       TIOTOPEN EQU   TIOENTRY+00000003   1 BIT(S)                             00013200
       TIOTTERM EQU   TIOENTRY+00000003   1 BIT(S)                             00013210
       TIOEDYNM EQU   TIOENTRY+00000003   1 BIT(S)                             00013220

       TIOEQNAM EQU   TIOENTRY+00000003   1 BIT(S)                             00013230
       A00031   EQU   TIOENTRY+00000003   3 BIT(S)                             00013240
       TIOEDDNM EQU   TIOENTRY+00000004   8 BYTE(S)                            00013250
       TIOEJFCB EQU   TIOENTRY+00000012   3 BYTE(S)                            00013260

       TIOESTTC EQU   TIOENTRY+00000015   8 BIT(S)                             00013270
       TIOSDKCR EQU   TIOENTRY+00000015   1 BIT(S)                             00013280
       TIOSDEFR EQU   TIOENTRY+00000015   1 BIT(S)                             00013290
       TIOSAFFP EQU   TIOENTRY+00000015   1 BIT(S)                             00013300
       TIOSAFFS EQU   TIOENTRY+00000015   1 BIT(S)                             00013310
       TIOSVOLP EQU   TIOENTRY+00000015   1 BIT(S)                             00013320
       TIOSVOLS EQU   TIOENTRY+00000015   1 BIT(S)                             00013330
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0082


       TIOSBALP EQU   TIOENTRY+00000015   1 BIT(S)                             00013340
       TIOSBALS EQU   TIOENTRY+00000015   1 BIT(S)                             00013350
       TIOESTTB EQU   TIOENTRY+00000016   8 BIT(S)                             00013360
       TIOSUSED EQU   TIOENTRY+00000016   1 BIT(S)                             00013370

       TIOSREQD EQU   TIOENTRY+00000016   1 BIT(S)                             00013380
       TIOSPVIO EQU   TIOENTRY+00000016   1 BIT(S)                             00013390
       TIOSVLSR EQU   TIOENTRY+00000016   1 BIT(S)                             00013400

       TIOSSETU EQU   TIOENTRY+00000016   1 BIT(S)                             00013410
       TIOSMNTD EQU   TIOENTRY+00000016   1 BIT(S)                             00013420
       TIOSUNLD EQU   TIOENTRY+00000016   1 BIT(S)                             00013430
       TIOSVERF EQU   TIOENTRY+00000016   1 BIT(S)                             00013440
       TIOEFSRT EQU   TIOENTRY+00000017   3  BYTE  POINTER ON WORD+1           00013450
       POOLSTAR EQU   TIOENTRY+00000020   20 BYTE(S) ON WORD                   00013460
       A00032   EQU   TIOENTRY+00000020   1 BYTE(S)                            00013470
       TIOPNSLT EQU   TIOENTRY+00000021   1  BYTE  POINTER                     00013480
       A00033   EQU   TIOENTRY+00000022   1 BYTE(S)                            00013490
       TIOPNSRT EQU   TIOENTRY+00000023   1  BYTE  POINTER                     00013500
       TIOPPOOL EQU   TIOENTRY+00000024   8 BYTE(S)                            00013510
       TIOPSTTB EQU   TIOENTRY+00000032   1 BYTE(S)                            00013520

       TIOPSLOT EQU   TIOENTRY+00000033   3  BYTE  POINTER ON WORD+1           00013530
       TIOTFEND EQU   TIOENTRY+00000036   4 BYTE(S)                            00013540
       IEFDATA  EQU   *                   8 BYTE(S)                            00013550
                DC    C'IEFDATA '                                              00013560

       IEFPDSI  EQU   *                   8 BYTE(S)                            00013570
                DC    C'IEFPDSI '                                              00013580
       IEFRDER  EQU   *                   8 BYTE(S)                            00013590
                DC    C'IEFRDER '                                              00013600
       OLDTIOT  EQU   00000000            20 BYTE(S)                           00013610
                ORG   @DATA                                                    00013620
                DS    00000024C                                                00013630
       @L       EQU   1                                                        00013640
       @DATD    DSECT                                                          00013650
       @SAV001  EQU   @DATD+00000000      72 BYTE(S) ON WORD                   00013660
       REGHOLD  EQU   @DATD+00000072      FULLWORD POINTER                     00013670
       BRDRWORK EQU   @DATD+00000076      320 BYTE(S) ON WORD                  00013680

       BWA      EQU   @DATD+00000076      320 BYTE(S) ON WORD                  00013690
       BWATABID EQU   BWA+00000000        12 BYTE(S)                           00013700
       BWARIEOF EQU   BWA+00000012        FULLWORD INTEGER                     00013710

       COMECBPT EQU   BWA+00000016        FULLWORD POINTER                     00013720
       ECBQPT   EQU   BWA+00000020        FULLWORD POINTER                     00013730
       QMPAPT   EQU   BWA+00000024        FULLWORD POINTER                     00013740
       JFCBPT   EQU   BWA+00000028        FULLWORD POINTER                     00013750
       BLKPT    EQU   BWA+00000032        FULLWORD POINTER                     00013760
       BUFPT    EQU   BWA+00000036        FULLWORD POINTER                     00013770
       BUFLENPT EQU   BWA+00000040        FULLWORD POINTER                     00013780
       BLKCURR  EQU   BWA+00000044        FULLWORD POINTER                     00013790
       BLKLOCPT EQU   BWA+00000048        FULLWORD POINTER                     00013800
       TIOTPT   EQU   BWA+00000052        FULLWORD POINTER                     00013810
       ORIGTIOT EQU   BWA+00000056        20 BYTE(S)                           00013820
       BUF      EQU   BWA+00000076        80 BYTE(S)                           00013830

       EXLIST   EQU   BWA+00000156        8 BYTE(S) ON WORD                    00013840
       EX1      EQU   BWA+00000156        FULLWORD POINTER                     00013850
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0083



       EX1TYPE  EQU   BWA+00000156        1 BYTE(S)                            00013860
       EX2      EQU   BWA+00000160        FULLWORD POINTER                     00013870
       EX2TYPE  EQU   BWA+00000160        1 BYTE(S)                            00013880
       OPENLST  EQU   BWA+00000164        4 BYTE(S)                            00013890
       OPENOPT  EQU   BWA+00000164        1 BYTE(S)                            00013900
       BUFLEN   EQU   BWA+00000168        1  BYTE  POINTER                     00013910
       FLGS     EQU   BWA+00000169        1 BYTE(S)                            00013920
       ALLOCERR EQU   BWA+00000169        1 BIT(S)                             00013930
       ENTRY4B  EQU   BWA+00000169        1 BIT(S)                             00013940
       DEALERR  EQU   BWA+00000169        1 BIT(S)                             00013950
       ALLOCATD EQU   BWA+00000169        1 BIT(S)                             00013960
       OPENERR  EQU   BWA+00000169        1 BIT(S)                             00013970

       SYNERR1  EQU   BWA+00000169        1 BIT(S)                             00013980
       SYNERR2  EQU   BWA+00000169        1 BIT(S)                             00013990
       JOBSW    EQU   BWA+00000169        1 BIT(S)                             00014000
       FLGS2    EQU   BWA+00000170        1 BYTE(S)                            00014010

       DIDFIRST EQU   BWA+00000170        1 BIT(S)                             00014020
       UCMI     EQU   BWA+00000171        1 BYTE(S)                            00014030
       BACKDCB  EQU   BWA+00000172        96 BYTE(S) ON WORD                   00014040
       BADTXT   EQU   BWA+00000268        52 BYTE(S)                           00014050
       DDFOUND  EQU   @DATD+00000396      1  BYTE  POINTER                     00014060
       RETPOINT EQU   @DATD+00000400      FULLWORD POINTER                     00014070
       EXAREA   EQU   @DATD+00000076      16 BYTE(S) ON WORD                   00014080
       A00034   EQU   EXAREA+00000000     FULLWORD POINTER                     00014090
       A00035   EQU   EXAREA+00000004     FULLWORD POINTER                     00014100
       A00036   EQU   EXAREA+00000008     FULLWORD POINTER                     00014110
       EXTIOT   EQU   EXAREA+00000012     FULLWORD INTEGER                     00014120
                DS    00000404C                                                00014130

       @TEMPS   DS    0F                                                       00014140
       @TEMP4   DC    F'0'                                                     00014150
       @PL001   DS    01F                                                      00014160

       @DATEND  EQU   *                                                        00014170
       IKJEFF41 CSECT ,                                                        00014180
                END                                                            00014190
IEB817I MEMBER NAME (IKJEFF41) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0084


       ./ ADD  NAME=IKJEFF47
                TITLE 'IKJEFF47 - BACKGROUND READER HASP EXIT FOR SVM'         00010000
                LCLA  &T,&SPN                                            0001  00020000
       .@001    ANOP                                                     0001  00030000
       *                                                                     * 00032020
       * Change activity      =                                              * 00032040
       *                                                                     * 00032060

       *   Flag  Date        By    Description                               * 00032080
       *   ----  ----------  ----  ----------------------------------------  * 00032100
       *   $D01  2003/08/01  @KL   Issue RDJFCB to determine if HASPRDR      * 00038600
       *                           DD statement is present.                  * 00038800

       *                                                                     * 00039000
       IKJEFF47 CSECT ,                                                  0001  00040000
                BC    15,24(0,@F)                                              00050000
                DC    C' IKJEFF47 27 MAR 72'                             0001  00060000
                STM   @E,@C,12(@D)                                       0001  00070000
                BALR  @B,0                                               0001  00080000
       @PSTART  DS    0H                                                 0001  00090000
                USING @PSTART+00000,@B                                   0001  00100000
                L     @0,@SIZ001                                         0001  00110000
                GETMAIN  R,LV=(0)                                        0001  00120000
                LR    @C,@1                                              0001  00130000
                USING @DATD+00000,@C                                     0001  00140000

                LM    @0,@1,20(@D)                                       0001  00150000
                XC    @TEMPS(@L),@TEMPS                                  0001  00160000
                ST    @D,@SAV001+4                                       0001  00170000

                LA    @F,@SAV001                                         0001  00180000
                ST    @F,8(0,@D)                                         0001  00190000
                LR    @D,@F                                              0001  00200000
                B     DYNEND                  BRANCH AROUND MACRO LISTS        00210000
       OLIST    OPEN  (0),MF=L                                                 00220000
       CLIST    CLOSE (0),MF=L                                                 00230000
       MRLIST   RDJFCB (0),MF=L                                           @D01 00230500
       DLIST    DCB   DDNAME=HASPRDR,LRECL=80,BLKSIZE=80,MACRF=PM,DSORG=PS     00240000
       LISTLEN  EQU  *-OLIST   LENGTH OF LIST FORMS                            00250000
       DYNEND   EQU   *                                                        00260000
                DS    0H                                                       00270000
       *   NELPTR   = REG1;                /* SAVE INCOMING NEL PTR            00280000

                ST    @1,NELPTR                                          0019  00290000
       *                                                                       00300000
       *   GEN(LA  REG2,LISTLEN);          /* LEN OF MACRO LIST FORMS          00310000
                LA  REG2,LISTLEN                                               00320000

                DS    0H                                                       00330000
       *   DYNLISTS(1:REG2) = OLIST;       /* MOVE INTO GETMAIN'D CORE         00340000
                LA    @E,OLIST                                           0021  00350000
                LR    @3,@2                                              0021  00360000
                BCTR  @3,0                                               0021  00370000
                LA    @A,DYNLISTS                                        0021  00380000
                EX    @3,@MVC                                            0021  00390000
       *                                                                  @D01 00390020
       *   /* Issue RDJFCB to test if HASPRDR DD statement is present.    @D01 00390040
       *   /* If not, go return to IKJEFF41 with return code 4 to         @D01 00390060
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0085


       *   /* indicate that HASPRDR DD statement is missing.              @D01 00390080

       *                                                                  @D01 00390100
                LA    @2,INTDCB           Get DCB address                 @D01 00390120
                USING IHADCB,@2           Addressability for DCB          @D01 00390140

                IC    @0,DCBEXLST         Preserve high order byte        @D01 00390160
                SLL   @0,24                of DCBEXLST                    @D01 00390180
                LA    @F,JFCBXLST         Get exit list address           @D01 00390200
                OR    @F,@0                restore high order byte        @D01 00390220
                ST    @F,DCBEXLST           and set in DCB                @D01 00390240
                LA    @F,JFCBAREA         Point to area for JFCB          @D01 00390260
                ST    @F,JFCBXLST          and set in exit list           @D01 00390280
                MVI   JFCBXLST,X'87'      Set DCB exit flags              @D01 00390300
                RDJFCB (INTDCB),          Read JFCB                       @D01+00390420
                      MF=(E,RLIST)         for HASPRDR                    @D01 00390440
                LTR   @F,@F               Is DD statement present?        @D01 00390460
                BNZ   NOINTRDR            If not, go show no INTRDR       @D01 00390480

                XC    DCBEXLSA,DCBEXLSA   Else clear exit list pointer    @D01 00390500
                DROP  @2                  End DCB addressability          @D01 00390520
       *                                                                       00400000
       *   /* TRY TO OPEN THE INTRDR DATA SET.  IF THE OPEN FAILS, RETURN      00410000

       *                                                                       00420000
       *   GEN(OPEN  (INTDCB,OUTPUT),MF=(E,OPENLIST));                         00430000
                OPEN  (INTDCB,OUTPUT),MF=(E,OPENLIST)                          00440000
                DS    0H                                                       00450000
       *                                                                       00460000
       *   REG2     = ADDR(INTDCB);        /* TEST IF OPEN SUCCEEDED           00470000
                LA    @2,INTDCB                                          0023  00480000
       *   GEN(USING IHADCB,REG2);                                             00490000
                USING IHADCB,REG2                                              00500000
                DS    0H                                                       00510000
       *   IF DCBOFLGS(4) ^= '1'B THEN     /* IF OPEN DID NOT SUCCEED,         00520000
                TM    DCBOFLGS,B'00010000'                               0025  00530000

                BC    01,@9FF                                            0025  00540000
       *     RETURN CODE(4);               /*TELL CALLER AND RETURN            00550000
       NOINTRDR DS    0H                   Return indicating no INTRDR    @D01 00550500

                L     @D,4(0,@D)                                         0026  00560000
                LA    @F,4                                               0026  00570000
                ST    @F,16(0,@D)                                        0026  00580000
                LR    @1,@C                                              0026  00590000
                L     @0,@SIZ001                                         0026  00600000
                FREEMAIN R,LV=(0),A=(1)                                  0026  00610000
                LM    @E,@C,12(@D)                                       0026  00620000
                BCR   15,@E                                              0026  00630000
       *                                                                       00640000
       *   /* SINCE OPEN WAS SUCCESSFUL, BUILD THE DUMMY DCB PARAMETER TO BE   00650000
       *   /* PASSED TO IKJEFF42.  WHEN IKJEFF42 RETURNS, REG1 WILL POINT      00660000
       *   /* TO A AN 80-BYTE JCL RECORD.  WHEN IKJEFF42 REALIZES THAT THE     00670000

       *   /* BRDR QUEUE IS EMPTY, IT WILL BRANCH TO THE EODAD EXIT 'EODAD'.   00680000
       *                                                                       00690000
       *   REG2    = ADDR(PARMDCB);        /* ADDRESS THE DUMMY DCB TO GET     00700000
       @9FF     LA    @2,PARMDCB                                         0027  00710000

       *   GEN(USING IHADCB,REG2);         /* CORRECT OFFSET FOR DCBEODAD      00720000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0086


                USING IHADCB,REG2                                              00730000
                DS    0H                                                       00740000
       *                                                                       00750000
       *   DCBEODAD = ADDR(EODAD);         /* TELL JEFF42 WHERE EODAD EXIT IS  00760000
                LA    @F,EODAD                                           0029  00770000
                ST    @F,DCBEODAD                                        0029  00780000
       *   PARMDCB(77:80)  = NELJCL;       /* PASS A WORD BUILT BY IKJEFF41    00790000
                L     @3,NELPTR                                          0030  00800000
                MVC   PARMDCB+76(4),8(@3)                                0030  00810000
       *                                   /* EXPLICITLY TO BE PASSED TO 42    00820000

       *                                                                       00830000
       *                                                                       00840000
       * PUTLOOP:   /* TOP OF LOOP TO GET AND PUT A JCL RECORD                 00850000

       *   REG15    = NELIAMEP(3:6);       /* ADDR OF THE BRDR SUPPLIED        00860000
       *                                      INTERNAL ACCESS METHOD,          00870000
       *                                      IKJEFF42.                        00880000
       PUTLOOP  L     @3,NELPTR                                          0031  00890000
                L     @3,20(0,@3)         NEL                            0031  00900000
                MVC   @TEMP4(4),12(@3)                                   0031  00910000
                L     @F,@TEMP4                                          0031  00920000
       *                                                                       00930000
       *   REG1     = ADDR(PARMDCB);       /* PASS THE DUMMY DCB TO '42        00940000
                LA    @1,PARMDCB                                         0032  00950000
       *   GEN(BALR   14,15);              /* CALL THE I.A.M.                  00960000
                BALR   14,15                                                   00970000

                DS    0H                                                       00980000
       *                                                                       00990000
       *   REG0     = REG1;                /* PUT THE RECORD ADDR IN R0        01000000
                LR    @0,@1                                              0034  01010000

       *   GEN(PUT INTDCB,(0));            /* WHERE 'PUT' EXPECTS IT           01020000
                PUT INTDCB,(0)                                                 01030000
                DS    0H                                                       01040000
       *   GOTO PUTLOOP;                   /* CONTINUE THIS GET-PUT LOOP       01050000
       *                                      UNTIL THE I.A.M. BRANCHES TO     01060000
       *                                      THE EODAD ADDRESS, 'EODAD'.      01070000
                BC    15,PUTLOOP                                         0036  01080000
       * EODAD:   /* ENTERED VIA BRANCH FROM IKJEFF42, THE I.A.M.              01090000
       *                                                                       01100000
       *   /* IT IS ASSUMMED THAT ALL REGISTERS HAVE BEEN RESTORED BEFORE      01110000
       *   /* THE BRANCH WAS TAKEN, SO ADDRESSABILITY NEED NOT BE              01120000
       *   /* REESTABLISHED.                                                   01130000

       *                                                                       01140000
       *   GEN(PUT  INTDCB,EOFCARD);       /* EOF TO SIGNAL END OF JOBSTREAM   01150000
       EODAD    PUT  INTDCB,EOFCARD                                            01160000

                DS    0H                                                       01170000
       *   GEN(CLOSE INTDCB,MF=(E,CLOSELST));/* CLOSE THE HASP INTERNAL READER 01180000
                CLOSE INTDCB,MF=(E,CLOSELST)                                   01190000
                DS    0H                                                       01200000
       *                                                                       01210000
       *   RETURN CODE(0);                 /* RETURN TO THE CALLER, ZERO       01220000
       *                                      INDICATING SUCCESSFUL COMPLETION 01230000
                L     @D,4(0,@D)                                         0039  01240000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0087


                SR    @F,@F                                              0039  01250000
                ST    @F,16(0,@D)                                        0039  01260000
                LR    @1,@C                                              0039  01270000

                L     @0,@SIZ001                                         0039  01280000
                FREEMAIN R,LV=(0),A=(1)                                  0039  01290000
                LM    @E,@C,12(@D)                                       0039  01300000

                BCR   15,@E                                              0039  01310000
       *                                                                       01320000
       *                                                                       01330000
       *   END IKJEFF47                    /* E N D   O F   M O D U L E        01340000
       * /* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM.       01350000
       * /*%INCLUDE SYSLIB  (IEFNEL  )                                         01360000
       * ;                                                                     01370000
       @EL01    L     @D,4(0,@D)                                         0040  01380000
                LR    @1,@C                                              0040  01390000
                L     @0,@SIZ001                                         0040  01400000
                FREEMAIN R,LV=(0),A=(1)                                  0040  01410000
                LM    @E,@C,12(@D)                                       0040  01420000

                BCR   15,@E                                              0040  01430000
       @DATA1   EQU   *                                                        01440000
       @0       EQU   00                  EQUATES FOR REGISTERS 0-15           01450000
       @1       EQU   01                                                       01460000

       @2       EQU   02                                                       01470000
       @3       EQU   03                                                       01480000
       @4       EQU   04                                                       01490000
       @5       EQU   05                                                       01500000
       @6       EQU   06                                                       01510000
       @7       EQU   07                                                       01520000
       @8       EQU   08                                                       01530000
       @9       EQU   09                                                       01540000
       @A       EQU   10                                                       01550000
       @B       EQU   11                                                       01560000
       @C       EQU   12                                                       01570000
       @D       EQU   13                                                       01580000

       @E       EQU   14                                                       01590000
       @F       EQU   15                                                       01600000
       @MVC     MVC   0(1,@A),0(@E)                                            01610000

                DS    0F                                                       01620000
       @SIZ001  DC    AL1(&SPN)                                                01630000
                DC    AL3(@DATEND-@DATD)                                       01640000
                DS    0F                                                       01650000
                DS    0D                                                       01660000
       @DATA    EQU   *                                                        01670000
       DUMMY    EQU   00000000            FULLWORD INTEGER                     01680000
       REG0     EQU   00000000            FULLWORD INTEGER REGISTER            01690000
       REG1     EQU   00000001            FULLWORD INTEGER REGISTER            01700000
       REG2     EQU   00000002            FULLWORD INTEGER REGISTER            01710000
       REG15    EQU   00000015            FULLWORD INTEGER REGISTER            01720000
       EOFCARD  EQU   *                   80 BYTE(S)                           01730000

                DC    C'/*EOF'                                                 01740000
                DC    00075C' '                                                01750000
       NEL      EQU   00000000            32 BYTE(S) ON DWORD                  01760000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0088



       NELLIST  EQU   NEL+00000000        32 BYTE(S) ON WORD                   01770000
       NELOPLST EQU   NEL+00000000        FULLWORD POINTER                     01780000
       NELECB   EQU   NEL+00000004        FULLWORD POINTER                     01790000
       NELJCL   EQU   NEL+00000008        FULLWORD POINTER                     01800000
       NELQMPA  EQU   NEL+00000012        FULLWORD POINTER                     01810000
       NELJCT   EQU   NEL+00000016        FULLWORD POINTER                     01820000
       NELEXLST EQU   NEL+00000020        FULLWORD POINTER                     01830000
       NELCOMID EQU   NEL+00000024        FULLWORD POINTER                     01840000
       NELLAST  EQU   NEL+00000024        1 BYTE(S)                            01850000
       NELNBIT  EQU   NEL+00000024        1 BIT(S)                             01860000
       A00000   EQU   NEL+00000024        7 BIT(S)                             01870000
       NELOPTS  EQU   00000000            64 BYTE(S) ON DWORD                  01880000

       NELOPLEN EQU   NELOPTS+00000000    HALFWORD INTEGER                     01890000
       NELOPSWT EQU   NELOPTS+00000002    1 BYTE(S)                            01900000
       NELSMF   EQU   NELOPTS+00000002    1 BIT(S)                             01910000

       NELTSOP  EQU   NELOPTS+00000002    1 BIT(S)                             01920000
       NELSMF2  EQU   NELOPTS+00000002    1 BIT(S)                             01930000
       NELSWSM  EQU   NELOPTS+00000002    1 BIT(S)                             01940000
       NELTS    EQU   NELOPTS+00000002    1 BIT(S)                             01950000
       NELQERR  EQU   NELOPTS+00000002    1 BIT(S)                             01960000
       NELBIN   EQU   NELOPTS+00000002    1 BIT(S)                             01970000
       NELENQ   EQU   NELOPTS+00000002    1 BIT(S)                             01980000
       NELSYS   EQU   NELOPTS+00000003    1 BYTE(S)                            01990000
       NELTRKBF EQU   NELOPTS+00000004    1 BYTE(S)                            02000000
       NELSMFOP EQU   NELOPTS+00000005    1 BYTE(S)                            02010000
       NELINTNO EQU   NELOPTS+00000006    HALFWORD INTEGER                     02020000
       NELPARM  EQU   NELOPTS+00000008    40 BYTE(S)                           02030000

       NELPARMO EQU   NELOPTS+00000008    1 BYTE(S)                            02040000
       NELJPRTY EQU   NELOPTS+00000009    2 BYTE(S)                            02050000
       NELTIME  EQU   NELOPTS+00000011    3 BYTE(S)                            02060000
       NELQTY1  EQU   NELOPTS+00000014    3 BYTE(S)                            02070000

       NELQTY2  EQU   NELOPTS+00000017    3 BYTE(S)                            02080000
       NELIPRTY EQU   NELOPTS+00000020    3 BYTE(S)                            02090000
       NELREG   EQU   NELOPTS+00000023    3 BYTE(S)                            02100000
       NELCOMDS EQU   NELOPTS+00000026    1 BYTE(S)                            02110000
       NELLABEL EQU   NELOPTS+00000027    1 BYTE(S)                            02120000
       NELSYOUT EQU   NELOPTS+00000028    8 BYTE(S)                            02130000
       NELAUTH  EQU   NELOPTS+00000036    4 BYTE(S)                            02140000
       NELMSGL1 EQU   NELOPTS+00000040    1 BYTE(S)                            02150000
       NELMSGL2 EQU   NELOPTS+00000041    1 BYTE(S)                            02160000
       NELMSGCL EQU   NELOPTS+00000042    1 BYTE(S)                            02170000
       NELRSV08 EQU   NELOPTS+00000043    5 BYTE(S)                            02180000
       NELJOBNM EQU   NELOPTS+00000048    8 BYTE(S)                            02190000

       NELRSV09 EQU   NELOPTS+00000056    1 BYTE(S)                            02200000
       NELOPSW2 EQU   NELOPTS+00000057    8 BIT(S)                             02210000
       NELADSPC EQU   NELOPTS+00000057    1 BIT(S)                             02220000

       NELRSV10 EQU   NELOPTS+00000057    1 BIT(S)                             02230000
       NELRSV11 EQU   NELOPTS+00000057    1 BIT(S)                             02240000
       NELRSV12 EQU   NELOPTS+00000057    1 BIT(S)                             02250000
       NELRSV13 EQU   NELOPTS+00000057    1 BIT(S)                             02260000
       NELRSV14 EQU   NELOPTS+00000057    1 BIT(S)                             02270000
       NELRSV15 EQU   NELOPTS+00000057    1 BIT(S)                             02280000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0089


       NELRSV16 EQU   NELOPTS+00000057    1 BIT(S)                             02290000
       NELRSV17 EQU   NELOPTS+00000058    HALFWORD INTEGER                     02300000
       NELRSV18 EQU   NELOPTS+00000060    HALFWORD INTEGER                     02310000
       NELRSV19 EQU   NELOPTS+00000062    HALFWORD INTEGER                     02320000
       NELEXITS EQU   00000000            16 BYTE(S) ON DWORD                  02330000

       NELEXHDR EQU   NELEXITS+00000000   8 BYTE(S) ON WORD                    02340000
       NELEXLEN EQU   NELEXITS+00000000   HALFWORD INTEGER                     02350000
       NELXRTCD EQU   NELEXITS+00000002   HALFWORD INTEGER                     02360000
       A00001   EQU   NELEXITS+00000004   4 BYTE(S)                            02370000

       IAMEXT   EQU   NELEXITS+00000008   8 BYTE(S)                            02380000
       NELIAMLK EQU   NELEXITS+00000008   1 BYTE(S)                            02390000
       NELIAMID EQU   NELEXITS+00000009   1 BYTE(S)                            02400000
       NELIAMEP EQU   NELEXITS+00000010   6 BYTE(S)                            02410000
       A00002   EQU   NELEXITS+00000010   1 BYTE(S)                            02420000
                ORG   @DATA                                                    02430000
                DS    00000080C                                                02440000
       @L       EQU   1                                                        02450000
       @DATD    DSECT                                                          02460000
       @SAV001  EQU   @DATD+00000000      72 BYTE(S) ON WORD                   02470000
       PARMDCB  EQU   @DATD+00000072      80 BYTE(S)                           02480000
       NELPTR   EQU   @DATD+00000152      FULLWORD POINTER                     02490000

                DS    00000160C                                                02500000
       @TEMPS   DS    0F                                                       02510000
       @TEMP4   DC    F'0'                                                     02520000

       JFCBXLST DS    F                    DCB exit list                  @D01 02520300
       JFCBAREA DS    0F,XL176             Area to read JFCB into         @D01 02520600
       DYNLISTS  EQU   *                                                       02530000
       OPENLIST OPEN (0),MF=L                                                  02540000
       *                                                                       02550000
       CLOSELST CLOSE (0),MF=L                                                 02560000
       *                                                                       02570000
       RLIST    RDJFCB (0),MF=L            Area for RDFJCB parm list      @D01 02570300
       *                                                                  @D01 02570600
       INTDCB   DCB   DSORG=PS,LRECL=80,BLKSIZE=80,DDNAME=HASPRDR,MACRF=PM     02580000
                EJECT                                                          02590000
       *                                                                       02600000

                DCBD  DSORG=PS  DSECT FOR DCB LABELS                           02610000
       @DATD    DSECT                                                          02620000
       @DATEND  EQU   *                                                        02630000
       IKJEFF47 CSECT ,                                                        02640000

                END   IKJEFF47                                                 02650000
IEB817I MEMBER NAME (IKJEFF47) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0090


       ./ ADD  NAME=IKJEFF50
                TITLE 'IKJEFF50-CANCEL/STATUS INITIALIZATION ROUTINE'          00010000
       *         GEN( TITLE 'IKJEFF50  CANCEL/STATUS INITIALIZATION ROUTINE'); 00020000
                 TITLE 'IKJEFF50  CANCEL/STATUS INITIALIZATION ROUTINE'        00030000
       *                                                                       00040000
       * /******************************************************************** 00050000
       * /*                                                                  * 00060000
       * /* IKJEFF50  CANCEL/STATUS INITIALIZATION ROUTINE                   * 00070000
       * /*                                                                  * 00080000

       * /******************************************************************** 00090000
       * /* STATUS:  CHANGE LEVEL 000                                        * 00100000
       * /*    D 271985-273000                                         A49999* 00110000

       * /*    A 271985-273285                                         A49999* 00120000
       * /*                                                                  * 00130000
       * /* FUNCTION:                                                        * 00140000
       * /*                                                                  * 00150000
       * /*      THIS IS THE FIRST MODULE OF THE CANCEL/STATUS               * 00160000
       * /*           COMMAND  PROCESSOR.  A SWITCH IS SET TO                * 00170000
       * /*           DETERMINE WHETHER THE FUNCTION IS TO CANCEL            * 00180000
       * /*           A JOB OR TO RETURN STATUS INFORMATION ABOUT            * 00190000
       * /*           IT.  THIS MODULE INVOKES THE IKJPARSE SERVICE          * 00200000
       * /*           ROUTINE TO PARSE THE INPUT COMMAND BUFFER.             * 00210000
       * /*           A USER EXIT IS PROVIDED WHEREBY JOBNAME                * 00220000
       * /*           VALIDITY IS CHECKED.  A LIST OF JOBNAMES               * 00230000

       * /*           IS THEN BUILT FROM THE COMMAND OPERANDS.  A            * 00240000
       * /*           PARAMETER LIST FOR THE SEARCH ROUTINES IS THEN         * 00250000
       * /*           BUILT.  THE PARAMETER LIST CONTAINS POINTERS           * 00260000

       * /*           TO THE JOBNAME LIST AND OTHER NECESSARY                * 00270000
       * /*           INFORMATION.  THE FIB SVC (SVC 100) IS THEN            * 00280000
       * /*           ISSUED.  WHEN CONTROL RETURNS FROM THE FIB             * 00290000
       * /*           SVC, THIS MODULE RETURNS CONTROL TO THE TMP.           * 00300000
       * /*                                                                  * 00310000
       * /* ENTRY POINTS:                                                    * 00320000
       * /*      IKJEFF50 FOR STATUS                                         * 00330000
       * /*      IKJEFF5A FOR CANCEL                                         * 00340000
       * /*                                                                  * 00350000
       * /* INPUT:                                                           * 00360000
       * /*      R1.......X*    PTR. TO COMMAND BUFFER                       * 00370000
       * /*                     PTR. TO USER PROFILE TABLE (UPT)             * 00380000

       * /*                     PTR. TO PROTECTED STEP CONTROL BLOCK (PSCB)  * 00390000
       * /*                     PTR. TO ENVIRONMENT CONTROL TABLE (ECT)      * 00400000
       * /*                                                                  * 00410000
       * /*      R13......X*    PTR. TO REGISTER SAVE AREA                   * 00420000

       * /*      R14......X*    PTR. TO RETURN ADDRESS                       * 00430000
       * /*      R15......X*    RETURN CODE ( 0 IF SUCCESSFUL, 12 IF NOT)    * 00440000
       * /*                                                                  * 00450000
       * /* OUTPUT:  SAME AS DESCRIBED ABOVE IN INPUT.                       * 00460000
       * /*                                                                  * 00470000
       * /* EXTERNAL REFERENCES:                                             * 00480000
       * /*      IKJEFF56 (IN THIS MODULE)                                   * 00490000
       * /*      IKJEFF55                                                    * 00500000
       * /*      IKJEFF53                                                    * 00510000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0091


       * /*      IKJSTCK                                                     * 00520000
       * /*      IKJEFF02                                                    * 00530000

       * /*      IKJPARSE                                                    * 00540000
       * /*      SVC 100 (WHICH LINKS TO IKJEFF51 LOAD MODULE)               * 00550000
       * /*      IKJSTACK                                                    * 00560000

       * /*                                                                  * 00570000
       * /* EXITS - NORMAL:                                                  * 00580000
       * /*      RETURN TO TMP OR IKJEFF57 WITH RETURN CODE OF 0             * 00590000
       * /*                                                                  * 00600000
       * /* EXITS - ERROR:                                                   * 00610000
       * /*      RETURN TO TMP OR IKJEFF57 WITH RETURN CODE OF 12.           * 00620000
       * /*                                                                  * 00630000
       * /* TABLES / WORK AREAS:                                             * 00640000
       * /*      CPPL     COMMAND PROCESSOR PARAMETER LIST                   * 00650000
       * /*      PSCB     PROTECTED STEP CONTROL BLOCK                       * 00660000
       * /*      ECT      ENVIRONMENT CONTROL TABLE                          * 00670000
       * /*      MSGPARM  PARAMETER LIST FOR MESSAGE ROUTINE                 * 00680000

       * /*      PDE      PARAMETER DESCRIPTOR ENTRY                         * 00690000
       * /*      CHARTAB  CHARACTER TABLE                                    * 00700000
       * /*                                                                  * 00710000
       * /* ATTRIBUTES:                                                      * 00720000

       * /*      REENTRANT                                                   * 00730000
       * /*      REFRESHABLE                                                 * 00740000
       * /*                                                                  * 00750000
       * /* NOTES:                                                           * 00760000
       * /*      CHARACTER CODE DEPENDENCY - EBCDIC CHARACTER SET USED IN    * 00770000
       * /*      ASSEMBLING, MODULE MUST BE REASSEMBLED IF A DIFFERENT       * 00780000
       * /*      CHARACTER SET IS TO BE USED DURING EXECUTION.               * 00790000
       * /*                                                                  * 00800000
       * /******************************************************************** 00810000
       *                                                                       00820000
       *     IKJEFF50:                                                         00830000
       *         PROC(X) OPTIONS(REENTRANT);                                   00840000

                LCLA  &T,&SPN                                            0002  00850000
       .@001    ANOP                                                     0002  00860000
       IKJEFF50 CSECT ,                                                  0002  00870000

                STM   @E,@C,12(@D)                                       0002  00880000
                BALR  @B,0                                               0002  00890000
       @PSTART  DS    0H                                                 0002  00900000
                USING @PSTART+00000,@B                                   0002  00910000
                L     @0,@SIZ001                                         0002  00920000
                GETMAIN  R,LV=(0)                                        0002  00930000
                LR    @C,@1                                              0002  00940000
                USING @DATD+00000,@C                                     0002  00950000
                LM    @0,@1,20(@D)                                       0002  00960000
                XC    @TEMPS(@L),@TEMPS                                  0002  00970000
                ST    @D,@SAV001+4                                       0002  00980000
                LA    @F,@SAV001                                         0002  00990000

                ST    @F,8(0,@D)                                         0002  01000000
                LR    @D,@F                                              0002  01010000
       *                                                                       01020000
       *         DCL                                                           01030000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0092


       *               R0 REG(0) PTR(24);                                      01040000
       *         DCL                                                           01050000
       *               R1 REG(1) PTR(24);                                      01060000
       *         DCL                                                           01070000
       *               CPPLPTR REG (1) PTR;                                    01080000
       *         DCL                                                           01090000
       *               R2 REG(2) PTR(24);                                      01100000
       *         DCL                                                           01110000
       *               R3 REG(3) PTR(24);                                      01120000
       *         DCL                                                           01130000
       *               R4 REG(4) PTR(24);                                      01140000

       *         DCL                                                           01150000
       *               R5 REG(5) PTR(24);                                      01160000
       *         DCL                                                           01170000

       *               R8 REG(8) PTR(24);                                      01180000
       *         DCL                                                           01190000
       *               R9 REG(9) PTR;                                          01200000
       *         DCL                                                           01210000
       *               RA REG(10) PTR(24);                                     01220000
       *         DCL                                                           01230000
       *               RB REG(11) PTR(24);                                     01240000
       *         DCL                                                           01250000
       *               R15 REGISTER(15);    /* FOR RETURN CODES */             01260000
       *         DCL                                                           01270000
       *               RD REGISTER(13)PTR(24);                                 01280000
       *         DCL                                                           01290000

       *                                    /* PTR TO CALLERS SAVE AREA */     01300000
       *               BACSAVEP PTR BASED(RD+4);                               01310000
       *         DCL                                                           01320000
       *                                    /* RETURN CODE IN REG15 TO TMP */  01330000

       *               RETCODE BASED(BACSAVEP+16);                             01340000
       *                                    /* RECEIVED PARM LIST FROM TMP */  01350000
       ** /* *************************************************************** * 01360000
       ** /* THE COMMAND PROCESSOR PARAMETER LIST (CPPL) IS A LIST OF        * 01370000
       ** /* ADDRESSES PASSED FROM THE TMP TO THE CP VIA REGISTER 1          * 01380000
       ** /* *************************************************************** * 01390000
       ** DECLARE                                                              01400000
       **   1 CPPL BASED(CPPLPTR),                                             01410000
       **    2 CPPLCBUF PTR(31),             /* PTR TO COMMAND BUFFER        * 01420000
       **    2 CPPLUPT  PTR(31),             /* PTR TO UPT                   * 01430000
       **    2 CPPLPSCB PTR(31),             /* PTR TO PSCB                  * 01440000
       **    2 CPPLECT  PTR(31);             /* PTR TO ECT                   * 01450000

       **                                                                      01460000
       *         DCL                                                           01470000
       *               PSCBPTR PTR BASED(ADDR(CPPLPSCB));                      01480000

       ** DECLARE                                                              01490000
       **   1 PSCB     BASED(PSCBPTR),                                         01500000
       ** /* *************************************************************** * 01510000
       ** /* THE PROTECTED STEP CONTROL BLOCK IS CONSTRUCTED BY LOGON AND    * 01520000
       ** /* FILLED IN FROM THE UADS .  A FIXED LENGTH TABLE WITH ATTRIBUTE  * 01530000
       ** /* AND ACCOUNTING FIELDS, THE PSCB IS USED TO MAINTAIN USER ATTRI- * 01540000
       ** /* BUTES AND ACCOUNTING DATA ON A USERID BASIS.  THE ADDRESS OF PS * 01550000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0093


       ** /* IS PASSED TO THE TMP.  HENCE IT IS AN EXTERNAL INTERFACE        * 01560000
       ** /* *************************************************************** * 01570000
       **                                                                      01580000
       **    2 PSCBUSER CHAR(7)  BDY(WORD),                                    01590000

       **                                    /* USERID PADDED RIGHT WITH       01600000
       **                                       BLANKS                       * 01610000
       **    2  PSCBUSRL  PTR(8),         /* LENGTH OF USERID                * 01620000
       **    2 PSCBGPNM CHAR(8),             /* ESOTERIC GROUP NAME INIT BY    01630000

       **                                       LOGON FROM UADS USED BY DYN    01640000
       **                                       ALLOC WHEN UNITNAME NOT        01650000
       **                                       SPECIFIED BUT IS REQUIRED    * 01660000
       **    2    PSCBATR1 CHAR(2),       /* A 15 BIT  STRING OF USER          01670000
       **                                       ATTRIBUTES                   * 01680000
       **     3 PSCBCTRL BIT(1),             /* OPERATOR COMMAND USER        * 01690000
       **     3 PSCBACCT BIT(1),             /* ACCOUNT                      * 01700000
       **     3 PSCBJCL  BIT(1),             /* SUBMIT BITS                  * 01710000
       **     3 *        BIT(1),             /* RESERVED                     * 01720000
       **     3 *        BIT(1),             /* RESERVED                     * 01730000
       **     3 *        BIT(1),             /* RESERVED                     * 01740000
       **     3 *        BIT(1),             /* RESERVED                     * 01750000

       **     3 *        BIT(1),             /* RESERVED                     * 01760000
       **    2  PSCBATR2  CHAR(2),        /* A 15 BIT STRING RESERVED FOR      01770000
       **                                       INSTALLATION USE             * 01780000

       **    2 PSCBCPU  FIXED(31),           /* CUMULATIVE CPU TIME USED       01790000
       **                                       DURING SESSION               * 01800000
       **    2 PSCBSWP  FIXED(31),           /* CUMULATIVE TIME RESIDENT IN    01810000
       **                                       THE REGION                   * 01820000
       **    2 PSCBLTIM FIXED(31),           /* ACTUAL LOGON TIME OF DAY     * 01830000
       **    2 PSCBTCPU FIXED(31),           /* TOTAL CPU TIME USED IN THIS    01840000
       **                                       ACCOUNTING PERIOD,EXCLUDING    01850000
       **                                       THE CURRENT SESSION.         * 01860000
       **    2 PSCBTSWP FIXED(31),           /* TOTAL TIME USER IS RESIDENT    01870000
       **                                       IN THE REGION DURING THIS      01880000
       **                                       ACCT. PER.,EXCL. THE CURR.     01890000
       **                                       SES                          * 01900000

       **    2 PSCBTCON FIXED(31),           /* TOTAL TIME USER IS CONNECTED   01910000
       **                                       THIS ACCT. PERIOD,EXCLUDING    01920000
       **                                       THIS CURR. SES               * 01930000

       **    2 PSCBTCO1 FIXED(31),                                             01940000
       **    2 PSCBRLGB PTR(31),             /* PTR TO RELOGON BUFFER        * 01950000
       **    2 PSCBUPT  PTR(31),             /* PTR TO USER PROFILE TABLE    * 01960000
       **    2 PSCBUPTL FIXED(15),           /* LENGTH OF UPT                * 01970000
       **    2 * BIT(16),                    /* RESERVED FOR IBM USE         * 01980000
       **    2 PSCBRSZ POINTER(32),          /* REGION SIZE REQUESTED IN 2K    01990000
       **                                       UNITS                        * 02000000
       **    2 PSCBU    CHAR(8);             /* RESERVED FOR INSTALLATION      02010000
       **                                       USE                          * 02020000
       **                                                                      02030000
       **                                                                      02040000
       *         DCL                                                           02050000

       *               ECTPTR PTR BASED(ADDR(CPPLECT));                        02060000
       ** DECLARE                                                              02070000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0094


       **   1 ECT      BASED(ECTPTR),                                          02080000

       ** /* *************************************************************** * 02090000
       ** /* THE ENVIRONMENT CONTROL TABLE (ECT) IS BUILT BY THE TMP AND     * 02100000
       ** /* STORED IN A NON-SHARED SUBPOOL. ITS FIELDS CAN BE MODIFIED      * 02110000
       ** /* BY A CP OR SERVICE RTN BUT NOT FREED.                           * 02120000
       ** /* *************************************************************** * 02130000
       **                                                                      02140000
       **    2 ECTRCDF  CHAR(1),             /* HIGH ORDER BIT INDICATES CP    02150000
       **                                       ABENDED                      * 02160000
       **    2 ECTRTCD PTR(24),              /* RETURN CODE FROM LAST CP OR    02170000
       **                                       ABEND CODE IF ECTRCDF IS SET * 02180000
       **    2 ECTIOWA  PTR(31),             /* ADDR I/O SRV RTNS WORK AREA  * 02190000
       **    2 ECTMSGF  CHAR(1),             /* HIGH ORDER BIT SET MEANS       02200000

       **                                       DELETE SECOND LEVEL MSG      * 02210000
       **    2 ECTSMSG  PTR(24)  BDY(BYTE),                                    02220000
       **                                    /* ADDR OF SECOND LEVEL MSG       02230000

       **                                       CHAIN                        * 02240000
       **    2 ECTPCMD  CHAR(8),             /* PRIMARY COMMAND NAME         * 02250000
       **    2 ECTSCMD  CHAR(8),             /* SUBCOMMAND NAME              * 02260000
       **    2 ECTSWS   CHAR(1),             /* 4 BYTES OF SWITCHES          * 02270000
       **     3 ECTNOPD  BIT(1),             /* 0 BIT ON= NO OPERANDS EXIST    02280000
       **                                       IN CMD BUFFER                * 02290000
       **     3 *        BIT(1),             /* RESERVED                     * 02300000
       **     3 ECTATRM  BIT(1),             /* CP TERMINATED BY TMP DETACH    02310000
       **                                       W/ STAE EQU                  * 02320000
       **     3 ECTLOGF  BIT(1),             /* LOGON/OFF REQUESTED TMP TO     02330000
       **                                       LOGOFF USER BITS             * 02340000
       **     3 ECTNMAL BIT(1),              /* NO USER MSGS TO BE RECVED AT   02350000

       **                                       LOGON                        * 02360000
       **     3 ECTNNOT BIT(1),              /* NO BRDCST NOTICES TO BE RECVED 02370000
       **                                       LOGON                        * 02380000
       **     3 *        BIT(1),             /* RESERVED                     * 02390000

       **     3 *        BIT(1),             /* RESERVED                     * 02400000
       **    2 ECTDDNUM PTR(24),             /*COUNTER FOR TEMPORARY DDNAMES * 02410000
       **    2 ECTUSER  PTR(31),             /*RESERVED FOR INSTALLATION USE * 02420000
       **    2 *        PTR(31);             /*RESERVED                      * 02430000
       **                                                                      02440000
       *         DCL                                                           02450000
       *                                    /* TO CHECK INPUT COMMAND */       02460000
       *               CANCEL CHAR(8) LOCAL INTERNAL INIT('CANCEL  ');         02470000
       *         DCL                                                           02480000
       *               STATUS CHAR(8) LOCAL INTERNAL INIT('STATUS  ');         02490000
       *         DCL                                                           02500000
       *               1 SVCPTRS,                                              02510000

       *                                    /* PARM LIST FOR SVC 100 */        02520000
       *                 2 TMCTADDR PTR(31),                                   02530000
       *                                    /* PTR TO TMCT FOR EXIT CHECK      02540000

       *                                       */                              02550000
       *                 2 PASSPARM PTR(31);                                   02560000
       *                                    /* PTR TO PARM LIST FOR LINKEE     02570000
       *                                       FROM SVC */                     02580000
       *         DCL                                                           02590000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0095


       *                                    /* PARM LIST FOR ROUTINES CALLED   02600000
       *                                       IN CANCEL/STATUS */             02610000
       *               1 PARMLIST,                                             02620000
       *                 2 JOBLISTP PTR(31),                                   02630000
       *                                    /* PTR TO LIST OF JOBNAMES */      02640000
       *                 2 NUMJOBSP PTR(31),                                   02650000

       *                                    /* PTR TO NUMBER OF ENTRIES */     02660000
       *                 2 SWITPTR PTR(31),                                    02670000
       *                                    /* PTR TO SWITCHES */              02680000
       *                 2 MSGRTNPT PTR(31),                                   02690000

       *                                    /* PTR TO IKJEFF02 MSG RTN */      02700000
       *                 2 MSGPARMP PTR(31);                                   02710000
       *                                    /* PTR TO PARM LIST FOR MSG RTN    02720000
       *                                       */                              02730000
       *         DCL                                                           02740000
       *               ELEMENT CHAR(8) BASED(R4);                              02750000
       *                                    /* ENTRY IN VARIABLE LIST */       02760000
       *         DCL                                                           02770000
       *               PDECOUNT FIXED(15);  /* FOR CALLED RTNS, # OF JOBNAMES  02780000
       *                                       IN JOBNAME LIST */              02790000
       *         DCL                                                           02800000
       *               1 SWITCHES FIXED(31),                                   02810000

       *                                    /* INTERNAL SWITCHES */            02820000
       *                 2 CANCELSW BIT(1),                                    02830000
       *                                    /* FLAGS COMMAND AS CANCEL */      02840000

       *                 2 STATUSSW BIT(1),                                    02850000
       *                                    /* FLAGS COMMAND AS STATUS */      02860000
       *                 2 STATAUTO BIT (1),                                   02870000
       *                 2 FOUND BIT (1),                                      02880000
       *                 2 RETSW BIT(1);    /* SET TMP RETURN CODE = 12 */     02890000
       *         DCL                                                           02900000
       *               CPECB FIXED(31);     /* COMMUNICATIONS ECB OF CP */     02910000
       *         DCL                                                           02920000
       *                                    /* PARAMETER LIST FOR MESSAGE      02930000
       *                                       ROUTINE - HEFF02 */             02940000
       *               1 MSGPARM,                                              02950000
       *                 2 MSGLISTP PTR(31),                                   02960000

       *                                    /* PTR TO MESSAGE LIST */          02970000
       *                 2 TMCTPTR PTR(31),                                    02980000
       *                                    /* PTR TO CPPL */                  02990000
       *                 2 CECBPTR PTR(31),                                    03000000

       *                                    /* PTR TO COMM ECB */              03010000
       *                                    /* THE REST OF THIS STRUCTURE      03020000
       *                                       CONSISTS OF A MESSAGE LIST      03030000
       *                                       WHICH WILL BE POINTED TO FROM   03040000
       *                                       THE FIRST WORD OF THE PARM      03050000
       *                                       LIST */                         03060000
       *                 2 CSECTPTR PTR(31),                                   03070000
       *                                    /* PTR TO CSECT HOLDING ALL        03080000
       *                                       MESSAGES */                     03090000
       *                 2 MSGRTNSW CHAR(1),                                   03100000
       *                                    /* SWITCHES FOR MSG RTN */         03110000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0096



       *                 2 REPLYP PTR(24),                                     03120000
       *                                    /* PTR TO RETURN TEXT FLD */       03130000
       *                 2 MSGID CHAR(4),                                      03140000

       *                                    /* TO IDENTIFY THE MSG IN THE MSG  03150000
       *                                       CSECT */                        03160000
       *                 2 LENGTH1 PTR(8),                                     03170000
       *                                    /* LENGTH OF VARIABLE */           03180000
       *                 2 VARY1 PTR(24),                                      03190000
       *                                    /* PTR TO VARIABLE IN MSG */       03200000
       *                 2 LENGTH2 PTR(8),                                     03210000
       *                                    /* SECOND VARIABLE */              03220000
       *                 2 VARY2 PTR(24);   /* PTR TO VARIABLE IN MSG */       03230000
       *         DCL                                                           03240000
       *               IKJPARS ENTRY BASED(R0);                                03250000
       *         DCL                                                           03260000

       *               IKJEFF02 ENTRY;                                         03270000
       *         DCL                                                           03280000
       *               IKJEFF55 ENTRY;      /*GEN VCON FOR CSECT OF ALL MSSGS  03290000
       *                                       */                              03300000

       *         DCL                                                           03310000
       *               IKJEFF56 ENTRY;                                         03320000
       *         DCL                                                           03330000
       *               IKJEFF53 ENTRY BASED(R9);                               03340000
       *         DCL                                                           03350000
       *               SAVE53 PTR;          /* HOLDS ADDR OF IKJEFF53 */       03360000
       *         DCL                                                           03370000
       *               PPLPTR PTR;                                             03380000
       *                                                                       03390000
       ** DECLARE                                                              03400000
       **   1 PPL      BASED(PPLPTR),                                          03410000
       ** /* *************************************************************** * 03420000

       ** /* THE PARSE PARAMETER LIST (PPL) IS A LIST OF ADDRESSES PASSED    * 03430000
       ** /* FROM THE INVOKER TO PARSE VIA REGISTER 1                        * 03440000
       ** /* *************************************************************** * 03450000

       **                                                                      03460000
       **                                                                      03470000
       **                                                                      03480000
       **                                                                      03490000
       **                                                                      03500000
       **                                                                      03510000
       **                                                                      03520000
       **                                                                      03530000
       **                                                                      03540000
       **                                                                      03550000
       **    2 PPLUPT   PTR(31),             /* PTR TO UPT                   * 03560000
       **    2 PPLECT   PTR(31),             /* PTR TO ECT                   * 03570000

       **    2 PPLECB   PTR(31),             /* PTR TO CP'S ECB              * 03580000
       **    2 PPLPCL   PTR(31),             /* PTR TO PCL                   * 03590000
       **    2 PPLANS   PTR(31),             /* PTR TO ANS PLACE             * 03600000

       **    2 PPLCBUF  PTR(31),             /* PTR TO CMD BUFFER            * 03610000
       **    2 PPLUWA   PTR(31);             /* PTR TO USER WORK AREA (FOR     03620000
       **                                       VALIDITY CK RTNS)            * 03630000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0097


       **                                                                      03640000
       *         DCL                                                           03650000
       *               PPLLN CHAR(LENGTH(PPL)) BDY(WORD);                      03660000
       *                                    /* STORAGE FOR PPL */              03670000
       *         DCL                                                           03680000
       *               PERMPDLP PTR(31);                                       03690000
       *         DCL                                                           03700000
       *               PREVPDEP PTR(24);    /* PTR TO PREVIOUS PDE IN LIST */  03710000

       *         DCL                                                           03720000
       *               PDEPTR REG(6) PTR(24);                                  03730000
       *                                    /* PTR TO PDE IN VARIABLE PDL */   03740000
       *         DCL                                                           03750000

       *                                    /* PTR TO BEGINNING OF PDL WHICH   03760000
       *                                       MAY */                          03770000
       *               PDLPTR PTR(24);      /* BE MODIFIED IF FIRST PDE WAS    03780000
       *                                       DELETED FROM LIST. OUTPUT PTR   03790000
       *                                       TO PDL FROM PARSE RTN MAY NOT   03800000
       *                                       BE MODIFIED IN ORDER TO         03810000
       *                                       RELEASE CORE GOTTEN FOR PDL */  03820000
       *         DCL                                                           03830000
       *                                    /* PARAMETER DESCRIPTOR ENTRY      03840000
       *                                       FORMAT- PARSE OUTPUT */         03850000
       *               1 PDE BASED(PDEPTR),                                    03860000
       *                 2 JOBNAMEP PTR(31),                                   03870000

       *                                    /* PTR TO JOBNAME */               03880000
       *                 2 NAMELEN PTR(15),                                    03890000
       *                                    /* LENGTH OF CHAR STRING */        03900000

       *                 2 PARSESW PTR(8),                                     03910000
       *                   3 OMITTED BIT(1),                                   03920000
       *                                    /* PARAMETER OMITTED IF '0' */     03930000
       *                 2 * CHAR(1),                                          03940000
       *                                    /* RESERVED BYTE */                03950000
       *                 2 LAST,                                               03960000
       *                   3 * PTR(8),                                         03970000
       *                   3 CHAINPTR PTR(24);                                 03980000
       *         DCL                                                           03990000
       *               JOBNAME CHAR(8) BASED(JOBNAMEP);                        04000000
       *         DCL                                                           04010000
       *               STPBPTR PTR;         /* USED TO FLUSH STACK ON ERROR */ 04020000

       *         DCL                                                           04030000
       *               IOPLPTR PTR;         /* USED TO FLUSH STACK ON ERROR */ 04040000
       ** DECLARE                                                              04050000
       **   1 IOPL     BASED(IOPLPTR),                                         04060000

       ** /* *************************************************************** * 04070000
       ** /* THE I/O SERVICE ROUTINE PARAMETER LIST (IOPL) IS A LIST OF      * 04080000
       ** /* FULLWORD ADDRESSES PASSED BY THE INVOKER OF ANY I/O SERVICE     * 04090000
       ** /* ROUTINE TO THE APPROPRIATE SERVICE ROUTINE VIA REGISTER ONE.    * 04100000
       ** /* *************************************************************** * 04110000
       **                                                                      04120000
       **                                                                      04130000
       **                                                                      04140000
       **                                                                      04150000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0098


       **                                                                      04160000
       **                                                                      04170000

       **                                                                      04180000
       **                                                                      04190000
       **                                                                      04200000

       **                                                                      04210000
       **    2 IOPLUPT  PTR(31),             /* PTR TO UPT                   * 04220000
       **    2 IOPLECT  PTR(31),             /* PTR TO ECT                   * 04230000
       **    2 IOPLECB  PTR(31),             /* PTR TO USER'S ECB            * 04240000
       **    2 IOPLIOPB PTR(31);    /* PTR TO THE I/O SERVICE RTN PARM BLOCK * 04250000
       **                                                                      04260000
       ** DECLARE                                                              04270000
       **   1 STPB     BASED(STPBPTR),                                         04280000
       ** /* *************************************************************** * 04290000
       ** /* THE STACK PARAMETER BLOCK (STPB) IS A BLOCK POINTED TO BY THE   * 04300000
       ** /* STPL.  STACK USES IT TO STORE THE ADDRESS OF THE (STORAGE) LIST * 04310000
       ** /* SOURCE DESCRIPTOR (LSD), AS WELL AS FOR CONTROL                 * 04320000

       ** /* *************************************************************** * 04330000
       **                                                                      04340000
       **                                                                      04350000
       **                                                                      04360000

       **                                                                      04370000
       **                                                                      04380000
       **                                                                      04390000
       **                                                                      04400000
       **                                                                      04410000
       **                                                                      04420000
       **                                                                      04430000
       **    2 *        CHAR(4),             /* INTERNAL TO STACK            * 04440000
       **    2 STPBALSD PTR(31);             /* ADDR OF (STORAGE) LIST         04450000
       **                                       SOURCE DESCRIPTOR            * 04460000
       **                                                                      04470000
       *         DCL                                                           04480000

       *               STPBAREA CHAR(LENGTH(STPB)) BDY(WORD);                  04490000
       *         DCL                                                           04500000
       *               REGHOLD REG(8) PTR(24);                                 04510000

       *         DCL                                                           04520000
       *               1 LISTSIZE FIXED(31),                                   04530000
       *                                    /* SIZE OF JOBNAME LIST FOR        04540000
       *                                       GETMAIN & FREEMAIN */           04550000
       *                 2 LISTBIT1 BIT(1);                                    04560000
       *         DCL                                                           04570000
       *               ONECHARP PTR(31);    /*PTR TO TABLE OF UNIQUE           04580000
       *                                       CHARACTERS */                   04590000
       *         DCL                                                           04600000
       *               ONECHAR CHAR(1) BASED(ONECHARP);                        04610000
       *         DCL                                                           04620000
       *                                    /* TABLE OF CHARS TO IMPLEMENT     04630000

       *                                       STATUS WITH NO OPERANDS*/       04640000
       *               1 CHARTAB LOCAL INTERNAL,                               04650000
       *                 2 * CHAR(1) INIT('A'),                                04660000
       *                 2 * CHAR(1) INIT('B'),                                04670000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0099


       *                 2 * CHAR(1) INIT('C'),                                04680000
       *                 2 * CHAR(1) INIT('D'),                                04690000
       *                 2 * CHAR(1) INIT('E'),                                04700000
       *                 2 * CHAR(1) INIT('F'),                                04710000
       *                 2 * CHAR(1) INIT('G'),                                04720000
       *                 2 * CHAR(1) INIT('H'),                                04730000
       *                 2 * CHAR(1) INIT('I'),                                04740000
       *                 2 * CHAR(1) INIT('J'),                                04750000
       *                 2 * CHAR(1) INIT('K'),                                04760000
       *                 2 * CHAR(1) INIT('L'),                                04770000
       *                 2 * CHAR(1) INIT('M'),                                04780000

       *                 2 * CHAR(1) INIT('N'),                                04790000
       *                 2 * CHAR(1) INIT('O'),                                04800000
       *                 2 * CHAR(1) INIT('P'),                                04810000

       *                 2 * CHAR(1) INIT('Q'),                                04820000
       *                 2 * CHAR(1) INIT('R'),                                04830000
       *                 2 * CHAR(1) INIT('S'),                                04840000
       *                 2 * CHAR(1) INIT('T'),                                04850000
       *                 2 * CHAR(1) INIT('U'),                                04860000
       *                 2 * CHAR(1) INIT('V'),                                04870000
       *                 2 * CHAR(1) INIT('W'),                                04880000
       *                 2 * CHAR(1) INIT('X'),                                04890000
       *                 2 * CHAR(1) INIT('Y'),                                04900000
       *                 2 * CHAR(1) INIT('Z'),                                04910000
       *                 2 * CHAR(1) INIT('@'),                                04920000
       *                 2 * CHAR(1) INIT('$'),                                04930000

       *                 2 * CHAR(1) INIT('#'),                                04940000
       *                 2 * CHAR(1) INIT('0'),                                04950000
       *                 2 * CHAR(1) INIT('1'),                                04960000
       *                 2 * CHAR(1) INIT('2'),                                04970000

       *                 2 * CHAR(1) INIT('3'),                                04980000
       *                 2 * CHAR(1) INIT('4'),                                04990000
       *                 2 * CHAR(1) INIT('5'),                                05000000
       *                 2 * CHAR(1) INIT('6'),                                05010000
       *                 2 * CHAR(1) INIT('7'),                                05020000
       *                 2 * CHAR(1) INIT('8'),                                05030000
       *                 2 * CHAR(1) INIT('9');                                05040000
       *         DCL                                                           05050000
       *               COMMCODE PTR(8);     /* COMMAND CODE FOR EXIT RTN */    05060000
       *         DCL                                                           05070000
       *               TOPLISTP PTR(31);    /* PTR TO HEAD OF JOBNM LIST */    05080000
       *         DCL                                                           05090000

       *                                    /* PARAMETER LIST FOR              05100000
       *                                       EXIT ROUTINE */                 05110000
       *               1 EXITPARM,                                             05120000

       *                 2 JOBNMPTR PTR(31),                                   05130000
       *                                    /* PTR TO JOBNAME(PDE) */          05140000
       *                 2 NAMELENP PTR(31),                                   05150000
       *                                    /* PTR TO NAME LENGTH */           05160000
       *                 2 USERIDPT PTR(31),                                   05170000
       *                                    /* PTR TO USERID */                05180000
       *                 2 IDLENPTR PTR(31),                                   05190000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0100


       *                                    /* PTR TO USERID LENGTH */         05200000
       *                 2 MESSAGEP PTR(31),                                   05210000
       *                                    /* PTR TO MESSAGE FROM EXIT */     05220000
       *                 2 REPLYPTR PTR(31),                                   05230000

       *                                    /* PTR TO REPLY TO PROMPT MSG */   05240000
       *                 2 CCODEPTR PTR(31);                                   05250000
       *                                    /* PTR TO CODE INDICATING WHICH    05260000
       *                                       COMMAND IS THE CALLER */        05270000

       *         DCL                                                           05280000
       *               EXITCODE REG(3) PTR; /* RETURN CODE FROM EXIT           05290000
       *                                       AND PARSE                       05300000
       *                                       STORED FROM REG 15 */           05310000
       *         DCL                                                           05320000
       *               1 REPTEXT BASED (REPLYPTR),                             05330000
       *                 2 REPSIZE FIXED (15),                                 05340000
       *                 2 REPBUF CHAR (100);                                  05350000
       *         DCL                                                           05360000
       *               1 MSGLNGTH BASED(MESSAGEP),                             05370000
       *                                    /* LENGTH OF TEXT*/                05380000
       *                 2 * PTR(8),                                           05390000

       *                                    /* MESSAGE */                      05400000
       *                 2 MLEN PTR(8);                                        05410000
       *         DCL                                                           05420000

       *               VARCODE PTR;         /* PASS RETURN CODES TO IKJEFF02 * 05430000
       *         DCL                                                           05440000
       *               RETPOINT REG(7) PTR(24);                                05450000
       *         DCL                                                           05460000
       *               INDIRECT LABEL BASED(RETPOINT);                         05470000
       *                                    /* VARIABLE LABEL FOR RETURN FROM  05480000
       *                                       INTERNAL SUBROUTINE */          05490000
       *         DCL                                                           05500000
       *               1 TABLEMAP BASED(R4),                                   05510000
       *                                    /* MAP FOR CALCULATING SIZE */     05520000
       *                 2 JOBTAB CHAR(312),                                   05530000
       *                                    /* SIZE OF DEFAULT LIST FOR        05540000

       *                                       STATUS */                       05550000
       *                 2 ENDTAB CHAR(1);                                     05560000
       *         DCL                                                           05570000

       *               ABH6 LABEL INTERNAL;                                    05580000
       *         DCL                                                           05590000
       *               ACD6 LABEL INTERNAL;                                    05600000
       *         DCL                                                           05610000
       *               ACA1 LABEL INTERNAL;                                    05620000
       *         DCL                                                           05630000
       *               LOOP;                                                   05640000
       *         DCL                                                           05650000
       *               K;                                                      05660000
       *         DCL                                                           05670000
       *               CVTPTR PTR BASED(16);                                   05680000
       *                                                                       05690000

       **                                                                      05700000
       ** /*     COMMUNICATION VECTOR TABLE                                  * 05710000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0101


       ** /* RELEASE 20.2, 3/03/71, LEVEL=1                                  * 05720000

       ** /* RELEASE 21, 6/03/71, LEVEL=2                                    * 05730000
       **                                                                      05740000
       ** /*                   CVT PROPER                                    * 05750000
       **                                                                      05760000
       ** DECLARE                                                              05770000
       **   1 CVTMAP   BASED(CVTPTR),                                          05780000
       **                                                                      05790000
       **    2 CVTTCBP  PTR(31),             /* PTR TO ADDRESSES FOR NEXT      05800000
       **                                       AND CURRENT TCB              * 05810000
       **    2 CVT0EF00 PTR(31),             /* ADDR OF ROUTINE TO SCHEDULE    05820000
       **                                       ASYNCHRONOUS EXITS           * 05830000
       **    2 CVTLINK  PTR(31),             /* ADDR OF DCB FOR SYS1.LINKLIB * 05840000

       **    2 CVTJOB   PTR(31),             /* ADDR OF WORK QUEUE CONTROL     05850000
       **                                       BLOCKS                       * 05860000
       **    2 CVTBUF   PTR(31),             /* ADDR OF BUFFER FOR RESIDENT    05870000

       **                                       CONSOLE INTERRUPTION ROUTINE * 05880000
       **    2 CVTXAPG  PTR(31),             /* ADDR OF IOS APPENDAGE TABLE  * 05890000
       **    2 CVT0VL00 PTR(31),             /* ENTRY POINT ADDR OF ADDR       05900000
       **                                       VALIDITY CHECKING ROUTINE    * 05910000
       **    2 CVTPCNVT PTR(31),             /* ENTRY POINT ADDR OF ROUTINE    05920000
       **                                       FOR CONVERTING RELATIVE        05930000
       **                                       TRACK ADDR TO ABSOLUTE       * 05940000
       **    2 CVTPRLTV PTR(31),             /* ENTRY POINT ADDR OF ROUTINE    05950000
       **                                       FOR CONVERTING ABSOLUTE        05960000
       **                                       TRACK ADDR TO RELATIVE       * 05970000
       **    2 CVTILK1  PTR(31),             /* ADDR OF CHANNEL AND CONTROL    05980000
       **                                       UNIT SECTION IN UCB LOOKUP     05990000

       **                                       TABLE                        * 06000000
       **    2 CVTILK2  PTR(31),             /* ADDR OF UCB ADDR LIST          06010000
       **                                       SECTION IN UCB LOOKUP TABLE  * 06020000
       **    2 CVTXTLER PTR(31),             /* ENTRY POINT ADDR TO XCTL       06030000

       **                                       ROUTINE FOR SYSTEM ERROR       06040000
       **                                       ROUTINES                     * 06050000
       **    2 CVTSYSAD PTR(31),             /* ADDR OF SYSTEM RESIDENCE       06060000
       **                                       VOLUME ENTRY IN UCB TABLE    * 06070000
       **    2 CVTBTERM PTR(31),             /* ENTRY POINT ADDR OF ABTERM     06080000
       **                                       ROUTINE                      * 06090000
       **    2 CVTDATE  CHAR(4),             /* CURRENT DATE IN PACKED         06100000
       **                                       DECIMAL                      * 06110000
       **    2 CVTMSLT  PTR(31),             /* ADDR OF MASTER COMMON AREA     06120000
       **                                         (MASTER RESIDENT CORE IN PCP 06130000
       **                                       PLEASE USE CVTMSER INSTEAD     06140000
       **                                         TO ADDRESS MASTER SCHEDULER  06150000

       **                                         RESIDENT DATA AREA         * 06160000
       **    2 CVTZDTAB PTR(31),             /* ADDR OF I/O DEVICE             06170000
       **                                       CHARACTERISTIC TABLE         * 06180000

       **    2 CVTXITP  PTR(31),             /* ADDR OF ERROR INTERPRETER      06190000
       **                                       ROUTINE                      * 06200000
       **                                                                      06210000
       **    2 CVTDAR   PTR(31),             /* ADDR OF I/O CONTROL BLOCK      06220000
       **                                       COMPLEX ACCESSED BY DAR      * 06230000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0102


       **                                                                      06240000
       **                                                                      06250000
       **    2 CVT0FN00 PTR(31),             /* ENTRY POINT ADDR TO FINCH    * 06260000
       **    2 CVTEXIT  CHAR(2),             /* AN SVC 3 INSTRUCTION         * 06270000
       **    2 CVTBRET  CHAR(2),             /* A BCR 15,14 INSTRUCTION      * 06280000
       **    2 CVTSVDCB PTR(31),             /* ADDR OF DCB FOR SYS1.SVCLIB  * 06290000

       **    2 CVTTPC   PTR(31),             /* ADDR OF PSEUDO CLOCK FOR       06300000
       **                                       TIMER ROUTINE                * 06310000
       **    2 CVTPBLDL PTR(31),             /* BRANCH AND LINK ENTRY POINT    06320000
       **                                       TO BLDL ROUTINE              * 06330000

       **    2 CVTSJQ   PTR(31),             /* ADDR OF SELECTED JOB QUEUE   * 06340000
       **    2 CVTCUCB  PTR(31),             /* ADDR OF TABLE WITH CONSOLE     06350000
       **                                       UCB ADDR                     * 06360000
       **    2 CVTQTE00 PTR(31),             /* ADDR OF TIMER ENQUEUE          06370000
       **                                       ROUTINE                      * 06380000
       **    2 CVTQTD00 PTR(31),             /* ADDR OF TIMER DEQUEUE          06390000
       **                                       ROUTINE                      * 06400000
       **    2 CVTSTB   PTR(31),             /* ADDR OF I/O DEVICE STATISTIC   06410000
       **                                       TABLE                        * 06420000
       **    2 CVTDCB   CHAR(1),             /* OPERATING SYSTEM               06430000
       **                                       CONFIGURATION                * 06440000
       **      4 *        BIT(1),            /* RESERVED                     * 06450000

       **      4 CVT1SSS  BIT(1),            /* - PCP                        * 06460000
       **      4 CVT2SPS  BIT(1),            /* - MFT                        * 06470000
       **      4 CVT4MS1  BIT(1),            /* - MVT                        * 06480000

       **      4 *        BIT(1),            /* RESERVED                     * 06490000
       **      4 CVT4MPS  BIT(1),            /* - MULTIPROCESSING            * 06500000
       **      4 *        BIT(1),            /* RESERVED                     * 06510000
       **      4 *        BIT(1),            /* RESERVED                     * 06520000
       **    2 CVTDCBA   PTR(24)  BDY(WORD,2),                                 06530000
       **                                    /* ADDR OF DCB FOR SYS1.LOGREC  * 06540000
       **    2 CVTIOQET PTR(31),             /* ADDR OF REQUEST ELEMENT        06550000
       **                                       TABLE                        * 06560000
       **    2 CVTIXAVL PTR(31),             /* ADDR OF I/O SUPERVISOR'S       06570000
       **                                       FREELIST POINTER             * 06580000
       **    2 CVTNUCB  PTR(31),             /* LOWEST ADDRESS NOT IN          06590000
       **                                       NUCLEUS                      * 06600000

       **    2 CVTFBOSV PTR(31),             /* ADDR OF PROGRAM FETCH          06610000
       **                                       ROUTINE                      * 06620000
       **    2 CVT0DS   PTR(31),             /* ADDR OF ENTRY POINT OF         06630000
       **                                       DISPATCHER                   * 06640000

       **    2 CVTILCH  PTR(31),             /* ADDR OF LOGICAL CHANNEL WORD   06650000
       **                                       TABLE                        * 06660000
       **    2 CVTIERLC PTR(31),             /* ADDR OF ASYNCHRONOUS EXIT      06670000
       **                                       QUEUE                        * 06680000
       **    2 CVTMSER  PTR(31),             /* ADDR OF MASTER SCHEDULER       06690000
       **                                       RESIDENT DATA AREA (ADDR OF    06700000
       **                                       MAJOR QCB IN PCP)            * 06710000
       **    2 CVT0PT01 PTR(31),             /* ADDR OF BRANCH ENTRY POINT     06720000
       **                                       OF POST ROUTINE              * 06730000
       **    2 CVTTRMTB PTR(31),             /* ADDR OF QTAM TERMINAL TABLE  * 06740000
       **    2 CVTHEAD  PTR(31),             /* ADDR OF HIGHEST PRIORITY TCB   06750000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0103



       **                                       IN READY QUEUE               * 06760000
       **    2 CVTMZ00  PTR(31),             /* HIGHEST STORAGE ADDRESS      * 06770000
       **    2 CVT1EF00 PTR(31),             /* ADDR OF ROUTINE WHICH          06780000

       **                                       CREATES IRBS FOR EXITS       * 06790000
       **    2 CVTQOCR  PTR(31),             /* ADDR OF A GFX PARM LIST        06800000
       **                                       WORD, OR ZERO (RESERVED IN     06810000
       **                                       PCP)                         * 06820000
       **    2 CVTQMWR  PTR(31),             /* ADDR OF QMGR COMMUNICATION     06830000
       **                                       DATA AREA (RESERVED IN PCP)  * 06840000
       **    2 CVTSNCTR FIXED(15),           /* SERIAL DATA SET SEQUENCE       06850000
       **                                       NUMBER COUNTER               * 06860000
       **    2 CVTOPTA  CHAR(1),             /* FLAGS                        * 06870000
       **     3 CVTCCH   BIT(1),             /* - CCH OPTION PRESENT           06880000
       **                                       (MVT/MFT)                    * 06890000
       **     3 CVTAPR   BIT(1),             /* AUTOMATIC PATH RETRY --        06900000

       **                                       I/O RECOVERY MGT (MVT/MFT) */  06910000
       **     3 CVTDDR   BIT(1),             /* DYNAMIC DEVICE RECONFIGURATION 06920000
       **                                       --I/O RECOVERY MGT (MVT/MFT) * 06930000
       **     3 CVTNIP   BIT(1),             /* - NIP PROCESSING             * 06940000

       **     3 CVTATTCH BIT(1),             /* ATTACH OPERATIVE (MFT)       * 06950000
       **     3 CVTHIAR  BIT(1),             /* MAIN STORAGE HIERARCHY         06960000
       **                                         SUPPORT OPERATIVE          * 06970000
       **     3 CVTASCII BIT(1),             /* USAS(CI)I OPTION PRESENT     * 06980000
       **     3 *        BIT(1),             /* RESERVED                     * 06990000
       **    2 CVTOPTB  CHAR(1),             /* RESERVED                     * 07000000
       **     3 CVTPROT  BIT(1),             /* STORE PROTECTION SYSGENED    * 07010000
       **     3 *        BIT(1),             /* RESERVED                     * 07020000
       **     3 CVTTOD   BIT(1),             /* CPU HAS TIME OF DAY CLOCK    * 07030000
       **     3 *        BIT(5),             /* RESERVED                     * 07040000
       **                                                                      07050000
       **    2 CVTQCDSR PTR(31),             /* MVT/MFT: CDE SEARCH ROUTINE    07060000

       **                                         ADDR */                      07070000
       **    2 CVTQLPAQ PTR(31),             /* MVT/MFT: ADDR OF TOP CDE IN LP 07080000
       **                                       QUEUE */                       07090000

       **                                                                      07100000
       **    2 CVTMPCVT PTR(31),             /* MVT: ADDR OF M65MP SECONDARY   07110000
       **                                       CVT -- MFT/PCP: RESERVED     * 07120000
       **    2 CVTSMCA  PTR(31),             /* ADDR OF SMCA                 * 07130000
       **    2 CVTABEND PTR(31),             /* MVT: ADDR OF SECONDARY CVT     07140000
       **                                       --  MFT/PCP: RESERVED        * 07150000
       **    2 CVTUSER  PTR(31),             /* FIELD AVAILABLE TO USER      * 07160000
       **                                                                      07170000
       **                                                                      07180000
       ** /*                   MFT/MVT CVT EXTENSION                         * 07190000
       **                                                                      07200000
       **    2 CVTMDLDS PTR(31),             /* RESERVED FOR MODEL-DEPENDENT   07210000

       **                                       SUPPORT                      * 07220000
       **    2 CVTQABST CHAR (2),            /* MVT: AN SVC 13 INSTRUCTION     07230000
       **                                       --  MFT: RESERVED            * 07240000

       **    2 CVTLNKSC CHAR(2),             /* AN SVC 6 (LINK) INSTRUCTION    07250000
       **                                       (MFT WITH SUBTASKING)        * 07260000
       **    2 CVTTSCE  PTR(31),             /* ADDR OF FIRST TSCE           * 07270000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0104


       **    2 CVTPATCH PTR(31),             /* ADDR OF FE PATCH AREA        * 07280000
       **    2 CVTRMS   PTR(31),             /* ADDRESS OF RMS WORK AREA     * 07290000
       **    2 CVTTSCVT PTR(31),             /* ADDR OF TIME SHARING CVT     * 07300000
       **     3 CVTTSFLG CHAR(1),            /* TIME SHARING OPTION FLAGS    * 07310000
       **      4 CVTTSRDY BIT(1),            /* TSO READY AND INIT           * 07320000
       **      4 *        BIT(7),            /* RESERVED                     * 07330000
       **     3 CVTTSCVB PTR(24),            /* ADDR OF TIME SHARING CVT     * 07340000
       **    2 CVT0SCR1 PTR(31),             /* ADDR OF RPS SECTOR             07350000

       **                                         CONVERTER                  * 07360000
       **    2 CVTGTF   PTR(31),             /* GENERALIZED TRACE FACILITY   * 07370000
       **     3 CVTGTFST CHAR(1),            /* STATUS FLAGS                 * 07380000
       **      4 CVTGTFS  BIT(2),            /* STATE                        * 07390000

       **      4 CVTSTATE BIT(1),            /* IN CONTROL                   * 07400000
       **      4 CVTMODE  BIT(1),            /* EXT MODE                     * 07410000
       **      4 CVTFORM  BIT(1),            /* ABDUMP TO FORMAT TRACE DATA  * 07420000
       **      4 CVTUSR   BIT(1),            /* USR TRACE                    * 07430000
       **      4 CVTMCTYP BIT(1),            /* MC INSTRUCTION VALID         * 07440000
       **      4 *        BIT(1),            /* RESERVED                     * 07450000
       **     3 CVTCMT   PTR(24) BDY(WORD,2),/* ADDRESS OF CLASS MASK TABLE  * 07460000
       **    2 CVTAQAVT  PTR(31),            /* POINTER TO WORD CONTAINING     07470000
       **                                         ADDR OF TCAM VECTOR TABLE  * 07480000
       **     3 CVTTCMFG CHAR(1),            /* TCAM FLAGS                   * 07490000
       **      4 CVTTCRDY BIT(1),            /* TCAM RUNNING                 * 07500000
       **      4 *        BIT(7),            /* RESERVED                     * 07510000

       **     3 CVTAQAVB PTR(24),            /* POINTER TO WORD CONTAINING     07520000
       **                                       ADDR OF TCAM VECTOR TABLE    * 07530000
       **                                                                      07540000

       ** /*                   MFT WITH SUBTASKING CVT EXTENSION             * 07550000
       **                                                                      07560000
       **    2 CVTTATA  PTR(31),             /* ADDR OF P0 TCB POINTER       * 07570000
       **     3 CVTTSKS  PTR(8),             /* MAXIMAL NUMBER OF TCB ADDR     07580000
       **                                       TAB ENTRIES                  * 07590000
       **     3 CVTTAT   PTR(24)  BDY(WORD,2),                                 07600000
       **                                    /* ADDR OF P0 TCB POINTER       * 07610000
       **    2 CVTATER  PTR(31),             /* SAME AS CVTATERA BELOW ICB306* 07620000
       **     3 CVTSYST  PTR(8),             /* NUMBER OF SYSGEN'D TCB'S     * 07630000
       **     3 CVTATERA PTR(24),            /* ADDRESS OF SYSTEM ERROR        07640000
       **                                       TCB                    ICB306* 07650000
       **                                                                      07660000

       ** /*          MVT/MFT CVT CONTINUATION                               * 07670000
       **                                                                      07680000
       **    2 *        PTR(31),             /* RESERVED                     * 07690000
       **    2 *        PTR(31),             /* RESERVED                     * 07700000

       **    2 CVTPURG  PTR(31),             /* ADDRESS OF SUBSYSTEM PURGE     07710000
       **                                       ROUTINE                      * 07720000
       **     3 *        CHAR(1),            /* RESERVED                     * 07730000
       **     3 CVTPURGA PTR(24),            /* ADDRESS OF SUBSYSTEM PURGE     07740000
       **                                       ROUTINE                      * 07750000
       **    2 *        PTR(31),             /* RESERVED                     * 07760000
       **    2 CVTQMSG  PTR(31),             /* SAME AS CVTQMSGA BELOW ICB307* 07770000
       **     3 *        CHAR(1),            /* RESERVED               ICB307* 07780000
       **     3 CVTQMSGA PTR(24),            /* ADDRESS OF TYPE 1 SVC - ABEND  07790000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0105


       **                                       COMMUNICATION AREA     ICB307* 07800000
       **    2 CVTDMSR  PTR(31),             /* SAME AS CVTDMSRA BELOW ICB308* 07810000

       **     3 *        CHAR(1),            /* RESERVED               ICB308* 07820000
       **     3 CVTDMSRA PTR(24);            /* ADDRESS OF OPEN/CLOSE/EOV      07830000
       **                                       SUPERVISORY ROUTINE    ICB308* 07840000

       **                                                                      07850000
       ** /*                      PCP OVERLAY                                * 07860000
       **                                                                      07870000
       ** DECLARE                                                              07880000
       **   1 * BASED(ADDR(CVTQCDSR ) ),     /* PCP OVERLAY                  * 07890000
       **    2 CVTCRTTR CHAR(3),             /* TTR OF JCT FOR RESTART (PCP) * 07900000
       **    2 CVTSTUSA CHAR(1),             /* STATUS BYTE A                * 07910000
       **     3 *        BIT(1),             /* RESERVED                     * 07920000
       **     3 *        BIT(1),             /* RESERVED                     * 07930000
       **     3 *        BIT(1),             /* RESERVED                     * 07940000
       **     3 *        BIT(1),             /* RESERVED                     * 07950000
       **     3 CVTCHPTR BIT(1),             /* - REQUESTED AUTOMATIC          07960000

       **                                       CHECKPOINT RESTART WAS         07970000
       **                                       INITIATED                    * 07980000
       **     3 CVTSTEPR BIT(1),             /* - REQUESTED AUTOMATIC STEP     07990000
       **                                       RESTART WAS INITIATED        * 08000000

       **     3 CVTDATA  BIT(1),             /* - DD DATA STATEMENT IN INPUT   08010000
       **                                       STREAM AND DATA HAS NOT BEEN   08020000
       **                                       READ                         * 08030000
       **     3 *        BIT(1),             /* RESERVED                     * 08040000
       **    2 *        CHAR(2),             /* RESERVED                     * 08050000
       **    2 *        CHAR(2);             /* RESERVED                     * 08060000
       **                                                                      08070000
       ** /*                      CVT PREFIX                                 * 08080000
       **                                                                      08090000
       **    DCL 1 CVTFIX BASED (ADDR (CVTMAP) - 256), /* CVT PREFIX         * 08100000
       **    2 *        CHAR(248),           /* RESERVED                     * 08110000
       **    2 *        CHAR(2),             /* RESERVED                     * 08120000

       **    2 CVTMDL   CHAR(2),             /* CPU MODEL NUMBER IN SIGNLESS   08130000
       **                                       PACKED DECIMAL, I.E., A MODEL  08140000
       **                                       50 WOULD BE REPRESENTED AS     08150000

       **                                       0050 HEX                     * 08160000
       **    2 CVTRELNO CHAR(4);             /* OS RELEASE NUMBER (EBCDIC)   * 08170000
       **                                                                      08180000
       ** /*                   END OF CVT MACRO                              * 08190000
       **                                                                      08200000
       *                                                                       08210000
       *         RESTRICT (3,4,5,6,7,8);                                       08220000
       *         GEN;                                                          08230000
                B     *+16                                                     08240000
                DC    AL1(8)                                                   08250000
                DC    CL8'IKJEFF50'                                            08260000
                DC    CL3'046'                                                 08270000

                DS    0H                                                       08280000
       * /******************************************************************** 08290000
       * /*                                                                  * 08300000
       **/*IKJEFF50: CHART                                                   * 08310000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0106


       **/* HEADER                                                             08320000
       **/*IKJEFF50 - INITIALIZATION ROUTINE                                   08330000
       **/*                                                  CANCEL / STATUS * 08340000
       **/*IKJEFF50: E            ENTRY POINT WHEN STATUS COMMAND ENTERED    * 08350000
       **/* P (,TOP)              TURN ON STATUS SWITCH                      * 08360000
       **/*IKJEFF5A: E            ENTRY POINT WHEN CANCEL ENTERED            * 08370000
       **/* P                     TURN ON CANCEL SWITCH                      * 08380000
       * /*                                                                  * 08390000
       * /******************************************************************** 08400000
       *         SWITCHES=0;                                                   08410000
                SR    @F,@F                                              0078  08420000

                ST    @F,SWITCHES                                        0078  08430000
       *         STATUSSW='1'B;                                                08440000
                OI    SWITCHES,B'01000000'                               0079  08450000

       *                                                                       08460000
       * /******************************************************************** 08470000
       * /*                                                                  * 08480000
       **/*TOP: P                 INITIALIZE PARM LIST TO INTERFACE            08490000
       **/*                       WITH PARSE AND IKJEFF02                    * 08500000
       **/* D (NO,,YES,AAD1)      IS USER AUTHORIZED FOR CAN/STAT ?          * 08510000
       **/* P                     SET MSGID AND BACKWARDS CHAINING SWITCH    * 08520000
       * /*                                                                  * 08530000
       * /******************************************************************** 08540000
       *     TOP:                                                              08550000
       *         REGHOLD = R1;              /* SAVE REG 1 WHILE USING FOR      08560000
       *                                       INTERFACE */                    08570000

       TOP      LR    @8,@1                                              0080  08580000
       *         RETCODE = 0;               /* SET NORMAL RETURN CODE FOR TMP  08590000
       *                                       */                              08600000
                SR    @F,@F                                              0081  08610000

                L     @2,4(0,@D)                                         0081  08620000
                ST    @F,16(0,@2)                                        0081  08630000
       *         PPLPTR=ADDR(PPLLN);        /* SET UP STORAGE FOR PARSE        08640000
       *                                       PARAMETER LIST */               08650000
                LA    @F,PPLLN                                           0082  08660000
                ST    @F,PPLPTR                                          0082  08670000
       *         NUMJOBSP = ADDR(PDECOUNT); /* INIT PTR TO # NAMES IN LIST */  08680000
                LA    @F,PDECOUNT                                        0083  08690000
                ST    @F,PARMLIST+4                                      0083  08700000
       *         R5 = 0;                    /* INIT NUMBER OF PDE'S */         08710000
                SR    @5,@5                                              0084  08720000
       *         MSGPARMP = ADDR(MSGPARM);  /* INITIALIZE PTR TO LIST */       08730000

                LA    @F,MSGPARM                                         0085  08740000
                ST    @F,PARMLIST+16                                     0085  08750000
       *         MSGPARM = MSGPARM && MSGPARM;                                 08760000

                XC    MSGPARM(32),MSGPARM                                0086  08770000
       *                                    /* ZERO PARAM LIST FOR MSG RTN */  08780000
       *         MSGLISTP = ADDR(CSECTPTR); /* PTR TO MESSAGE LIST */          08790000
                LA    @F,MSGPARM+12                                      0087  08800000
                ST    @F,MSGPARM                                         0087  08810000
       *         TMCTPTR = R1;              /* INIT PTR TO TMCT IN MSGPARM */  08820000
                ST    @1,MSGPARM+4                                       0088  08830000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0107


       *         SWITPTR = ADDR(SWITCHES);  /* INIT. PTR TO INTERNAL           08840000
       *                                       SWITCHES*/                      08850000
                LA    @F,SWITCHES                                        0089  08860000
                ST    @F,PARMLIST+8                                      0089  08870000

       *         CPECB = 0;                                                    08880000
                SR    @F,@F                                              0090  08890000
                ST    @F,CPECB                                           0090  08900000

       *         CECBPTR = ADDR(CPECB);     /* INIT PTR TO COMMUNICATIONS ECB  08910000
       *                                       */                              08920000
                LA    @F,CPECB                                           0091  08930000
                ST    @F,MSGPARM+8                                       0091  08940000
       *         CSECTPTR = ADDR(IKJEFF55); /* PTR TO MSGCSECT */              08950000
                L     @9,@V1              ADDRESS OF IKJEFF55            0092  08960000
                ST    @9,MSGPARM+12                                      0092  08970000
       *         MSGRTNPT = ADDR(IKJEFF02);                                    08980000
                L     @2,@V2              ADDRESS OF IKJEFF02            0093  08990000
                ST    @2,PARMLIST+12                                     0093  09000000
       *         LISTSIZE=0;                /* INITIALIZE AMOUNT OF BYTES      09010000
       *                                       GETMAIN DONE FOR */             09020000

                SR    @F,@F                                              0094  09030000
                ST    @F,LISTSIZE                                        0094  09040000
       *         PERMPDLP=0;                /* INITIALIZE PTR TO PARSE PDL SO  09050000
       *                                       CAN ISSUE IKJRLSA AT END EVEN   09060000

       *                                       IF DIDN'T GO TO PARSE */        09070000
                ST    @F,PERMPDLP                                        0095  09080000
       *         PPLUPT = CPPLUPT;          /* INITIALIZE PARSE PARM LIST */   09090000
                L     @9,PPLPTR                                          0096  09100000
                MVC   0(4,@9),4(@1)                                      0096  09110000
       *         PPLECT = CPPLECT;                                             09120000
                MVC   4(4,@9),12(@1)                                     0097  09130000
       *         PPLECB = ADDR(CPECB);                                         09140000
                LA    @F,CPECB                                           0098  09150000
                ST    @F,8(0,@9)                                         0098  09160000
       *         PPLPCL = ADDR(IKJEFF56);                                      09170000
                L     @2,@V3              ADDRESS OF IKJEFF56            0099  09180000

                ST    @2,12(0,@9)                                        0099  09190000
       *         PPLANS = ADDR(PERMPDLP);                                      09200000
                LA    @F,PERMPDLP                                        0100  09210000

                ST    @F,16(0,@9)                                        0100  09220000
       *         PPLCBUF = CPPLCBUF;                                           09230000
                MVC   20(4,@9),0(@1)                                     0101  09240000
       *         PPLUWA = 0;                                                   09250000
                SR    @F,@F                                              0102  09260000
                ST    @F,24(0,@9)                                        0102  09270000
       *         IF PSCBJCL='1'B THEN                                          09280000
                L     @2,8(0,@1)                                         0103  09290000
                TM    16(@2),B'00100000'                                 0103  09300000
       *           GO TO AAD1;                                                 09310000
                BC    01,AAD1                                            0104  09320000
       *         MSGID = '207I';            /* UNAUTHORIZED COMMAND MSG */     09330000

                MVC   MSGPARM+20(4),@C2                                  0105  09340000
       *         MSGRTNSW = '40'X;          /*  BACKWARDS CHAIN SWITCH */      09350000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0108


                MVI   MSGPARM+16,X'40'                                   0106  09360000

       * /******************************************************************** 09370000
       * /*                                                                  * 09380000
       **/*AAC6: P                SET RTNCD=ON, RTNPT=ACD6                   * 09390000
       **/*AAC3: S                IKJEFF02: CALL IKJEFF02 - MESSAGE            09400000
       **/*                       PROCESSOR                                  * 09410000
       **/* D (NO,%CC3,ACD6,ACD6,ABH6,ABH6,ACD5,ACD5,ABF2,ABF2) IF SUCCESSFUL  09420000
       **/*                       OR QUITTING GO TO RTNPT                    * 09430000
       **/*%CC3: D (YES,,NO,%AC31) PUTGET FROM USER EXIT FAILED              * 09440000
       **/* P (,AAC3)             SET MSGID, RETCD=ON, RTNPT=ACA1            * 09450000
       **/*%AC31: P (,ACA1)       PUTLINE FROM USER EXIT FAILED, RTNCD=ON    * 09460000
       * /*                                                                  * 09470000
       * /******************************************************************** 09480000

       *     AAC6:                                                             09490000
       *         RETSW='1'B;                /* SET ABNORMAL RETURN SW */       09500000
       AAC6     OI    SWITCHES,B'00001000'                               0107  09510000

       *         RETPOINT = ADDR(ACD6);     /* SET RETURN ADDR */              09520000
                LA    @7,ACD6                                            0108  09530000
       *                                                                       09540000
       *     AAC3:                                                             09550000
       *         R1 = ADDR(MSGPARM);        /* ESTABLISH ADDR. TO PARM LIST    09560000
       *                                       */                              09570000
       AAC3     LA    @1,MSGPARM                                         0109  09580000
       *         CALL IKJEFF02;             /* GO TO MESSAGE ROUTINE */        09590000
                L     @F,@V2              ADDRESS OF IKJEFF02            0110  09600000
                BALR  @E,@F                                              0110  09610000
       *         R1 = REGHOLD;              /* RESTORE CONTENTS OF REG 1 FOR   09620000
       *                                       COMPILER */                     09630000

                LR    @1,@8                                              0111  09640000
       *         IF R15=0 THEN                                                 09650000
                LTR   @F,@F                                              0112  09660000
       *           GO TO INDIRECT;          /* SUCCESSFUL, THEN                09670000

       *                                       RETURN TO VARIABLE ADDR         09680000
       *                                       SPECIFIED IN RETPOINT */        09690000
                BCR   08,@7                                              0113  09700000
       *         IF RETSW='1'B THEN                                            09710000
                TM    SWITCHES,B'00001000'                               0114  09720000
       *           GO TO INDIRECT;          /* RETURN TO VARIABLE ADDR         09730000
       *                                       WHETHER OR NOT PUTLINE          09740000
       *                                       SUCCESSFUL - GOING TO QUIT      09750000
       *                                       ANYWAY WHEN GET BACK TO THE     09760000
       *                                       ADDR */                         09770000
                BCR   01,@7                                              0115  09780000
       *                                    /* ONLY 2 CASES WHERE CALLING      09790000

       *                                       IKJEFF02 WAS NOT JUST FOR       09800000
       *                                       ERROR MSG */                    09810000
       *         IF EXITCODE=4 THEN                                            09820000

                CH    @3,@D1                                             0116  09830000
                BC    07,@9FF                                            0116  09840000
       *           DO;                      /* PUTGET FROM USER EXIT NOT       09850000
       *                                       SUCCESSFUL - DO PUTLINE         09860000
       *                                       FOR DIAGNOSTIC MSG */           09870000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0109


       *             MSGID='218I';          /* VARIABLE PTR AND LENGTH         09880000
       *                                       STILL SET FORM PUTGET - DON'T   09890000
       *                                       NEED TO SET SWITCHES FOR SINGLE 09900000
       *                                       LEVEL PUTLINE */                09910000
                MVC   MSGPARM+20(4),@C4                                  0118  09920000
       *             IF LENGTH1>80 THEN                                        09930000

                CLI   MSGPARM+24,80                                      0119  09940000
                BC    12,@9FE                                            0119  09950000
       *               LENGTH1=80;          /* TRUNCATE USER PART OF MSG -     09960000
       *                                       IKJEFF02 CAN PUT OUT A MAX OF   09970000

       *                                       120 CHAR */                     09980000
                MVI   MSGPARM+24,80                                      0120  09990000
       *             RETSW='1'B;            /* SET TMP RETURN CODE */          10000000
       @9FE     OI    SWITCHES,B'00001000'                               0121  10010000
       *             RETPOINT=ADDR(ACA1);   /* RETURN CODE WILL TELL COMMAND   10020000
       *                                       TO QUIT AFTER MSG PUT OUT */    10030000
                LA    @7,ACA1                                            0122  10040000
       *             GO TO AAC3;            /* DO THE PUTLINE */               10050000
                BC    15,AAC3                                            0123  10060000
       *           END;                                                        10070000
       *         RETSW='1'B;                /* ASSUME PUTLINE FROM USER EXIT   10080000
       *                                       SUCCESSFUL IF GET HERE-SET TMP  10090000

       *                                       RETURN CODE SW */               10100000
       @9FF     OI    SWITCHES,B'00001000'                               0125  10110000
       *         GO TO ACA1;                /* RETURN CODE WILL TELL ROUTINE   10120000

       *                                       TO QUIT */                      10130000
                BC    15,ACA1                                            0126  10140000
       *                                                                       10150000
       *                                                                       10160000
       * /******************************************************************** 10170000
       * /*                                                                  * 10180000
       **/*AAD1: D (NO,,YES,AAF1) IS CANCEL SWITCH ON ?                      * 10190000
       **/*  D (YES,,NO,AAF1)     WAS ONLY 'STATUS' ENTERED?                 * 10200000
       **/* P                     BUILD DEFAULT JOBLIST OF USERID & ONE ALPHA  10210000
       **/*                       NUMERIC FOR STATUS                         * 10220000
       **/*NEXT01: P (,ACD1)      SET COUNT FOR NUMBER OF JOBNAMES & GO TO     10230000
       **/*                       SEARCH                                     * 10240000

       * /*                                                                  * 10250000
       * /******************************************************************** 10260000
       *     AAD1:                                                             10270000
       *         IF CANCELSW='1'B THEN                                         10280000

       AAD1     TM    SWITCHES,B'10000000'                               0127  10290000
       *           GO TO AAF1;                                                 10300000
                BC    01,AAF1                                            0128  10310000
       *         IF ECTNOPD = '1'B THEN                                        10320000
                L     @2,12(0,@1)                                        0129  10330000
                TM    28(@2),B'10000000'                                 0129  10340000
                BC    12,@9FD                                            0129  10350000
       *           DO;                                                         10360000
       *             STATAUTO='1'B;                                            10370000
                OI    SWITCHES,B'00100000'                               0131  10380000
       *         GENERATE;                                                     10390000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0110



                LA    R0,ENDTAB-JOBTAB  CALCULATE LIST SIZE                    10400000
                DS    0H                                                       10410000
       *             LISTSIZE = R0;         /* SAVE FOR FREEMAIN AFTER RETURN  10420000

       *                                       */                              10430000
                ST    @0,LISTSIZE                                        0133  10440000
       *             GEN (GETMAIN R,LV=(0));                                   10450000
                GETMAIN R,LV=(0)                                               10460000
                DS    0H                                                       10470000
       *             R4 = R1;                                                  10480000
                LR    @4,@1                                              0135  10490000
       *             R1 = REGHOLD;          /* SAVE CONTENTS OF REG 1,         10500000
       *                                       RESTORE AFTER EACH USE */       10510000
                LR    @1,@8                                              0136  10520000
       *             TOPLISTP = R4;         /* SAVE PTR TO TOP OF LIST */      10530000
                ST    @4,TOPLISTP                                        0137  10540000

       *             ONECHARP = ADDR(CHARTAB);                                 10550000
                LA    @F,CHARTAB                                         0138  10560000
                ST    @F,ONECHARP                                        0138  10570000

       *                                    /* SET PTR TO TABLE OF CHARACTERS  10580000
       *                                       */                              10590000
       *           R5 = 39;                 /* SET COUNT FOR # OF JOBNAMES */  10590100
                LA    @5,39                                                    10590200
       *             DO LOOP = 1 TO 39 BY 1;                                   10600000
                LA    @F,1                                               0139  10610000
                ST    @F,LOOP                                            0139  10620000
       *                                    /* BUILD DEFAULT PARM LIST OF 39   10630000
       *                                       NAMES*/                         10640000
       *               ELEMENT = PSCBUSER;  /* USER ID INTO JOBNAME */         10650000
       @DO9FC   L     @2,8(0,@1)                                         0140  10660000
                MVC   0(7,@4),0(@2)                                      0140  10670000

                MVI   7(@4),C' '                                         0140  10680000
       *               DO K = 1 TO 8 BY 1;  /* ADD CHAR TO USER ID FOR         10690000
       *                                       JOBNAME */                      10700000
                LA    @F,1                                               0141  10710000

                ST    @F,K                                               0141  10720000
       *                 IF ELEMENT(K) = ' ' THEN                              10730000
       @DO9F8   L     @2,K                                               0142  10740000
                LA    @A,0(@2,@4)                                        0142  10750000
                BCTR  @A,0                                               0142  10760000
                CLI   0(@A),C' '                                         0142  10770000
                BC    07,@9F4                                            0142  10780000
       *                   DO;                                                 10790000
       *                     ELEMENT(K) = ONECHAR;                             10800000
                L     @9,ONECHARP                                        0144  10810000
                MVC   0(1,@A),0(@9)                                      0144  10820000
       *                     GO TO NEXT01;                                     10830000

                BC    15,NEXT01                                          0145  10840000
       *                   END;                                                10850000
       *               END;                                                    10860000

       *                                                                       10870000
       *     NEXT01:                                                           10880100
       * /*         C H E C K   I F   H A S P   I S   A C T I V E            * 10880200
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0111


       * /*         THE FOLLOWING LINES HAVE SUPPORT CODE =           Y01120 * 10880300
       *                                                                       10880400
       *         IF CVTHUSER ^= 0 THEN         /* IF CVT ENTRY IS IN USE,      10880500
       *                                                               YM4078* 10880600
       @9F4     L     @F,K                                               0157  10880700
                AH    @F,@D2                                             0157  10880800
                ST    @F,K                                               0157  10880900
                CH    @F,@D3                                             0157  10881000

                BC    12,@DO9F8                                          0157  10881100
       NEXT01   SR    @F,@F                                              0158  10881200
                L     @2,CVTPTR                                          0158  10881300
                MVC   @TEMP3+1(3),205(@2)                                0158  10881400

                C     @F,@TEMP3                                          0158  10881500
                BC    08,@DART01                                         0158  10881600
       *           DO;                                                         10881700
       *             TEMPJOBL = K;             /* PASS JOB FIELDS TO HASPPROC* 10881800
                MVC   TEMPJOBL(2),K+2                                    0160  10881900
       *             TEMPJOBN = ELEMENT;       /* TAKE 8 CHARACTER NAME        10882000
       *                                          EVEN IF K IS LESS THAN 8   * 10882100
                MVC   TEMPJOBN(8),0(@4)                                  0161  10882200
       *             CALL HASPPROC;            /* THEN GO CALL HASP ROUTINE  * 10882300
                BAL   @E,HASPPROC                                        0162  10882400
       *             R1   = REGHOLD;           /* RESTORE CPPL ADDR          * 10882500
                LR    @1,@8                                              0163  10882600

       *             IF R15 = 0 THEN           /* IF HASP HANDLED THE JOB      10882700
       *                                          DELETE THE JOBNAME FROM THE  10882800
       *                                          LIST TO BYPASS OS PROCESSING 10882900

       *                                          OTHERWISE, LET OS PROCESSING 10883000
       *                                          CONTINUE NORMALLY          * 10883100
                LTR   @F,@F                                              0164  10883200
                BC    07,@DART00                                         0164  10883300
       *               DO;                                                     10883400
       *                 R5 = R5 - 1;       /* DELETE THE ENTRY FROM JOBLIST * 10883500
                BCTR  @5,0                                               0166  10883600
       *                 ELEMENT(1:8) = '        '; /* CLEAN UP JOB NAME SLOT* 10883700
                MVC   0(8,@4),=CL8' '                                    0167  10883800
       *                 HASPFND = '1'B;    /* INDICATE AT LEAST ONE JOB FOUND 10883900
       *                                       -                       YM2818* 10884000
                OI    SWITCHES,B'00000100'                               0168  10884100

       *         FOUND='1'B;                /* SHOW A JOB WAS FOUND */    @D01 10884130
                OI    SWITCHES,B'00010000'                                @D01 10884160
                BC    15,@DART0F                                         0170  10884200
       *               END;                                                    10884300

       *             ELSE                                                      10884400
       *               R4 = R4 + 8;         /* STEP TO NEXT JOBNAME IN LIST  * 10884500
       @DART00  LA    @4,8(0,@4)                                         0170  10884600
       *           END;                     /* END CODE TO CHECK HASP QUEUES * 10884700
                BC    15,@DART0F                                         0172  10884800
       *         ELSE                       /* WHEN HASP NOT IN SYSTEM       * 10884900
       *               R4 = R4 + 8;         /* STEP TO NEXT JOBNAME ENTRY IN   10885000
       *                                       LIST */                         10885100
       @DART01  LA    @4,8(0,@4)                                         0172  10885200
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0112


       *           ONECHARP = ONECHARP + 1; /* STEP TO NEXT CHAR IN TABLE    * 10885300
       @DART0F  DS    0H                                                       10885350

                LA    @F,1                                               0173  10885400
                A     @F,ONECHARP                                        0173  10885500
                ST    @F,ONECHARP                                        0173  10885600

       *           END;                     /* OF 39 JOB LOOP                * 10885700
       *           IF R5 = 0 THEN           /* IF ALL JOBS FOUND ON HASP Q.S * 10885800
                L     @F,LOOP                                            0174  10885900
                AH    @F,@D2                                             0174  10886000
       @DO9F9   ST    @F,LOOP                                            0174  10886100
                CH    @F,@D4                                             0174  10886200
                BC    12,@DO9FC                                          0174  10886300
                LTR   @5,@5                                              0175  10886400
       *             GO TO ACD5;            /* TAKE NORMAL EXIT        YM4078* 10886500
                BC    08,ACD5                                            0176  10886600
       *           ELSE                                                        10886700
       *           GO TO ACD1;              /* GO CALL CORE SEARCH RTN BY SVC  11100000

       *                                       100*/                           11110000
                BC    15,ACD1                                            0152  11120000
       *           END;                                                        11130000
       *                                                                       11140000

       * /******************************************************************** 11150000
       * /*                                                                  * 11160000
       **/*AAF1: P                INITIALIZE INTERFACE WITH PARSE ROUTINE    * 11170000
       **/* S                     IKJPARS: GO TO PARSING ROUTINE FOR INPUT     11180000
       **/*                       BUFFER SCAN                                * 11190000
       **/* D (YES,,NO,%D22)      IS RETURN CODE = 4                         * 11200000
       **/* P (,ACD6)             SET RTNCD=ON AND QUIT                      * 11210000
       **/*%D22: D (YES,,NO,%D2)  IS RETURN CODE GREATER THAN 0 ?            * 11220000
       **/* P (,AAC6)             SET MSGID, RTNCD , AND GO TO SEND MSG      * 11230000
       **/*%D2: P                 UPDATE POINTERS, AND LOAD IKJEFF53         * 11240000
       * /*                                                                  * 11250000
       * /******************************************************************** 11260000

       *    AAF1:                                                              11270000
       *         GEN(LOAD EP=IKJPARS);                                         11280000
       @9FD     EQU   *                                                  0154  11290000

       AAF1     LOAD EP=IKJPARS                                                11300000
                DS    0H                                                       11310000
       *         R1 = PPLPTR;                                                  11320000
                L     @1,PPLPTR                                          0155  11330000
       *         CALL IKJPARS;                                                 11340000
                LR    @F,@0                                              0156  11350000
                BALR  @E,@F                                              0156  11360000
       *         EXITCODE=R15;                                                 11370000
                LR    @3,@F                                              0157  11380000
       *         GEN(DELETE EP=IKJPARS);                                       11390000
                DELETE EP=IKJPARS                                              11400000
                DS    0H                                                       11410000

       *         R1 = REGHOLD;                                                 11420000
                LR    @1,@8                                              0159  11430000
       *         IF EXITCODE=4 THEN             /* NOPROMPT MODE+ERROR=NO MSG  11440000
       *                                           */                          11450000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0113


                CH    @3,@D1                                             0160  11460000
                BC    07,@9F3                                            0160  11470000
       *           DO;                                                         11480000
       *             RETSW='1'B;                /* SET TMP RETURN CODE */      11490000
                OI    SWITCHES,B'00001000'                               0162  11500000
       *             GO TO ACD6;                                               11510000
                BC    15,ACD6                                            0163  11520000
       *           END;                                                        11530000
       *         IF EXITCODE^=0 THEN                                           11540000
       @9F3     LTR   @3,@3                                              0165  11550000
                BC    08,@9F2                                            0165  11560000

       *           DO;                                                         11570000
       *             MSGID = '217I';                                           11580000
                MVC   MSGPARM+20(4),@C6                                  0167  11590000

       *             MSGRTNSW = '40'X;      /*  BACKWARDS CHAINING SWITCH*/    11600000
                MVI   MSGPARM+16,X'40'                                   0168  11610000
       *             VARCODE=EXITCODE;      /* TAKE PARAMETER OUT OF REG */    11620000
                ST    @3,VARCODE                                         0169  11630000
       *             VARY1=ADDR(VARCODE);   /* TO BE PASSED TO IKJEFF02 */     11640000
                LA    @F,VARCODE                                         0170  11650000
                ST    @F,@TEMP4                                          0170  11660000
                MVC   MSGPARM+25(3),@TEMP4+1                             0170  11670000
       *             LENGTH1 = '84'X;                                          11680000
                MVI   MSGPARM+24,X'84'                                   0171  11690000
       *             GO TO AAC6;                                               11700000
                BC    15,AAC6                                            0172  11710000

       *           END;                                                        11720000
       *         PDLPTR = PERMPDLP;         /* PERMANENT PDL PTR MOVED INTO    11730000
       *                                       MODIFIABLE PTR */               11740000
       @9F2     MVC   PDLPTR(3),PERMPDLP+1                               0174  11750000

       *         PDLPTR = PDLPTR + 8;       /* BYPASS CHAINING INFO IN PDL */  11760000
                LA    @F,8                                               0175  11770000
                MVC   @TEMP3+1(3),PDLPTR                                 0175  11780000
                A     @F,@TEMP3                                          0175  11790000
                ST    @F,@TEMP4                                          0175  11800000
                MVC   PDLPTR(3),@TEMP4+1                                 0175  11810000
       *         PDEPTR = PDLPTR;           /* PTR TO 1ST PDE IN CHAIN */      11820000
                MVC   @TEMP3+1(3),PDLPTR                                 0176  11830000
                L     @6,@TEMP3                                          0176  11840000
       *         PREVPDEP = 0;              /* INIT TO 0 */                    11850000
                MVC   PREVPDEP(3),@D5+1                                  0177  11860000
       *         RESTRICT (9);                                                 11870000

       *         R9=CVTLINK;                                                   11880000
                L     @2,CVTPTR                                          0179  11890000
                L     @9,8(0,@2)                                         0179  11900000

       *         GEN(LOAD EP=IKJEFF53,DCB=(R9));                               11910000
                LOAD EP=IKJEFF53,DCB=(R9)                                      11920000
                DS    0H                                                       11930000
       *         RELEASE (9);                                                  11940000
       *         R1 = REGHOLD;                                                 11950000
                LR    @1,@8                                              0182  11960000
       *         SAVE53=R0;                                                    11970000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0114


                ST    @0,SAVE53                                          0183  11980000
       *                                                                       11990000
       * /******************************************************************** 12000000
       * /*                                                                  * 12010000

       **/*ABB1: P                SET UP INTERFACE TO IKJEFF53               * 12020000
       **/* D (YES,,NO,%D3)       IS CANCEL SWITCH ON ?                      * 12030000
       **/* P (,ABF1)             SET COMMAND CODE FOR CANCEL                * 12040000

       **/*%D3: P                 SET COMMAND CODE FOR STATUS                * 12050000
       **/*ABF1: P                UPDATE PTRS AND LENGTH FIELD FOR JOBNAME     12060000
       **/*                       ENTRY                                      * 12070000
       **/*ABF2: S                IKJEFF53: CALL  EXIT ROUTINE               * 12080000
       **/* P                     IF REPLY PTR IS NON ZERO FREE MSG BUFFER   * 12090000
       **/* D (NO,,YES,ABH1)      IS RETURN CODE NON ZERO?                   * 12100000
       * /*                                                                  * 12110000
       * /******************************************************************** 12120000
       *     ABB1:                                                             12130000
       *         USERIDPT = CPPLPSCB;       /* 1ST WORD OF PSCB IS SEVEN BYTE  12140000
       *                                       ID */                           12150000
       ABB1     MVC   EXITPARM+8(4),8(@1)                                0184  12160000

       *         IDLENPTR=ADDR(PSCBUSRL);                                      12170000
                L     @2,8(0,@1)                                         0185  12180000
                LA    @F,7(0,@2)                                         0185  12190000
                ST    @F,EXITPARM+12                                     0185  12200000

       *         MESSAGEP = 0;              /* CLEAR PTR FOR EXIT USE */       12210000
                SR    @F,@F                                              0186  12220000
                ST    @F,EXITPARM+16                                     0186  12230000
       *         REPLYPTR = 0;                                                 12240000
                ST    @F,EXITPARM+20                                     0187  12250000
       *         CCODEPTR = ADDR(COMMCODE); /* 1 BYTE FIELD */                 12260000
                LA    @F,COMMCODE                                        0188  12270000
                ST    @F,EXITPARM+24                                     0188  12280000
       *         IF CANCELSW = '1'B THEN                                       12290000
                TM    SWITCHES,B'10000000'                               0189  12300000
                BC    12,@9F1                                            0189  12310000
       *           DO;                                                         12320000

       *             COMMCODE = 4;          /* SET COMMAND CODE FOR CANCEL */  12330000
                MVI   COMMCODE,4                                         0191  12340000
       *             GO TO ABF1;            /* CONTINUE */                     12350000

                BC    15,ABF1                                            0192  12360000
       *           END;                                                        12370000
       *         COMMCODE = 0;              /* SET COMMAND CODE FOR STATUS */  12380000
       @9F1     MVI   COMMCODE,0                                         0194  12390000
       *                                                                       12400000
       *     ABF1:                                                             12410000
       *         JOBNMPTR = JOBNAMEP;       /* MOVE PTR FROM PDE */            12420000
       ABF1     MVC   EXITPARM(4),0(@6)                                  0195  12430000
       *         NAMELENP = PDEPTR + 4;     /* LENGTH FIELD IN PDE IS 2 BYTES  12440000
       *                                       LNG*/                           12450000
                LA    @F,4                                               0196  12460000
                AR    @F,@6                                              0196  12470000

                ST    @F,EXITPARM+4                                      0196  12480000
       *         R5 = R5 + 1;               /* INCREMENT COUNT OF # OF PDE'S   12490000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0115


       *                                       */                              12500000

                LA    @5,1(0,@5)                                         0197  12510000
       *                                                                       12520000
       *     ABF2:                                                             12530000
       *         R1 = ADDR(EXITPARM);                                          12540000
       ABF2     LA    @1,EXITPARM                                        0198  12550000
       *         RESTRICT (9);                                                 12560000
       *         R9=SAVE53;                                                    12570000
                L     @9,SAVE53                                          0200  12580000
       *         CALL IKJEFF53;             /* GO TO  EXIT RTN */              12590000
                LR    @F,@9                                              0201  12600000
                BALR  @E,@F                                              0201  12610000
       *         RELEASE (9);                                                  12620000

       *         R1 = REGHOLD;                                                 12630000
                LR    @1,@8                                              0203  12640000
       *         EXITCODE = R15;            /* SAVE RETURN CODE FROM EXIT RTN  12650000

       *                                       */                              12660000
                LR    @3,@F                                              0204  12670000
       *         IF REPLYPTR ^=0 THEN                                          12680000
                SR    @F,@F                                              0205  12690000
                C     @F,EXITPARM+20                                     0205  12700000
                BC    08,@9F0                                            0205  12710000
       *           DO;                                                         12720000
       *             R0=REPSIZE;            /* LENGTH OF MESSAGE */            12730000
                L     @2,EXITPARM+20                                     0207  12740000
                LH    @0,0(0,@2)                                         0207  12750000
       *             R1=REPLYPTR;                                              12760000
                L     @1,EXITPARM+20                                     0208  12770000

       *             GEN (FREEMAIN R,LV=(0),A=(1));                            12780000
                FREEMAIN R,LV=(0),A=(1)                                        12790000
                DS    0H                                                       12800000
       *             R1=REGHOLD;                                               12810000

                LR    @1,@8                                              0210  12820000
       *             REPLYPTR=0;                                               12830000
                SR    @F,@F                                              0211  12840000
                ST    @F,EXITPARM+20                                     0211  12850000
       *           END;                                                        12860000
       *         IF EXITCODE > 0 THEN                                          12870000
       @9F0     LTR   @3,@3                                              0213  12880000
       *                                    /* IF RETURN CODE IS NORMAL FALL   12890000
       *                                       */                              12900000
       *           GO TO ABH1;              /* THROUGH TO NEXT INSTRUCTION */  12910000
                BC    02,ABH1                                            0214  12920000
       *                                                                       12920100

       * /*         C H E C K   I F   H A S P   I S   A C T I V E            * 12920200
       * /*         THE FOLLOWING LINES HAVE SUPPORT CODE =           Y01120 * 12920300
       *                                                                       12920400

       *         IF CVTHUSER ^= 0 THEN         /* IF CVT ENTRY IS IN USE,    * 12920500
                SR    @F,@F                                              0240  12920600
                L     @2,CVTPTR                                          0240  12920700
                MVC   @TEMP3+1(3),205(@2)                                0240  12920800
                C     @F,@TEMP3                                          0240  12920900
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0116


                BC    08,ABG2                                            0240  12921000
       *           DO;                                                         12921100
       *             TEMPJOBL = NAMELEN;       /* PASS PDE FIELDS TO HASPPROC* 12921200
                MVC   TEMPJOBL(2),4(@6)                                  0242  12921300
       *             TEMPJOBN = JOBNAME;       /*   TAKE 8 CHARACTER NAME      12921400
       *                                            EVEN IF SMALLER          * 12921500

                L     @9,0(0,@6)                                         0243  12921600
                MVC   TEMPJOBN(8),0(@9)                                  0243  12921700
       *             CALL HASPPROC;            /* THEN GO CALL HASP ROUTINE  * 12921800
                BAL   @E,HASPPROC                                        0244  12921900

       *             R1   = REGHOLD;           /* RESTORE CPPL ADDR          * 12922000
                LR    @1,@8                                              0245  12922100
       *             IF R15 = 0 THEN           /* IF HASP HANDLED THE CANCEL * 12922200
                LTR   @F,@F                                              0246  12922300
       *               GOTO HASPDLT;           /* OR STATUS REQUEST, THEN    * 12922400
                BC    08,HASPDLT                                         0247  12922500
       *           END;                        /* DELETE THE JOBNAME FROM THE  12922600
       *                                          LIST TO BYPASS OS PROCESSING 12922700
       *                                          OTHERWISE, LET OS PROCESSING 12922800
       *                                          CONTINUE NORMALLY.         * 12922900
       *                                                                       12930000
       * /******************************************************************** 12940000

       * /*                                                                  * 12950000
       **/*ABG2: D (YES,ACA1,NO,) HAVE ALL JOBNAMES BEEN PROCESSED ?         * 12960000
       **/* P (,ABF1)             SAVE PTR TO CURRENT NAME & UPDATE PTR TO     12970000

       **/*                       NEXT NAME                                  * 12980000
       **/*ABH1: D (YES,,NO,%DD4) IS RETURN CODE = 16 ? (ABORT)              * 12990000
       **/* P (,ACA1)             SET RTNCD ON AND QUIT                      * 13000000
       **/*%DD4: D (NO,ABJ1,YES,) IS RETURN CODE =4                          * 13010000
       **/* P                     SET MSGID, AND RTNPT = ABH6                * 13020000
       **/*ABH5: P (,AAC3)        SET MSG LENGTH AND GO SEND MSG             * 13030000
       **/*ABH6: P (,ABF2)        SET POINTER TO REPLY FROM USER             * 13040000
       **/*ABJ1: D (NO,ABK1,YES,) IS RETURN CODE =8 ?                        * 13050000
       **/* P (,ABH5)             SET MSGID, AND RTNPT = ABF2                * 13060000
       **/*ABK1: D (YES,,NO,%DD5) IS RETURN CODE = 12 ?                      * 13070000
       **/* P                     UPDATE POINTER TO NEXT JOBNAME             * 13080000
       **/* P                     MOVE JOBNAME PTR TO NEXT PREVIOUS PDE      * 13090000

       * /*                                                                  * 13100000
       * /******************************************************************** 13110000
       *     ABG2:                                                             13120000
       *         IF CHAINPTR = 0 THEN                                          13130000

       ABG2     SR    @F,@F                                              0215  13140000
                MVC   @TEMP3+1(3),9(@6)                                  0215  13150000
                C     @F,@TEMP3                                          0215  13160000
       *                                    /* ARE ALL PDE'S PROCESSED */      13170000
       *           GO TO ACA1;              /* IF YES, BRANCH */               13180000
                BC    08,ACA1                                            0216  13190000
       *         PREVPDEP = PDEPTR;         /* SAVE PRESENT PDE PTR */         13200000
                ST    @6,@TEMP4                                          0217  13210000
                MVC   PREVPDEP(3),@TEMP4+1                               0217  13220000
       *         PDEPTR = CHAINPTR;         /* STEP TO NEXT PDE IN CHAIN */    13230000
                MVC   @TEMP3+1(3),9(@6)                                  0218  13240000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0117



                L     @6,@TEMP3                                          0218  13250000
       *         GO TO ABF1;                /* GO RESET PARM & GO TO EXIT */   13260000
                BC    15,ABF1                                            0219  13270000

       *                                                                       13280000
       *     ABH1:                                                             13290000
       *         IF EXITCODE=16 THEN        /* ABORT RETURN CODE */            13300000
       ABH1     CH    @3,@D6                                             0220  13310000
                BC    07,@9EF                                            0220  13320000
       *           DO;                                                         13330000
       *             RETSW='1'B;            /* SET TMP RETURN CODE SW */       13340000
                OI    SWITCHES,B'00001000'                               0222  13350000
       *             GO TO ACA1;                                               13360000
                BC    15,ACA1                                            0223  13370000
       *             END;                                                      13380000
       *         IF EXITCODE ^= 4 THEN                                         13390000

       @9EF     CH    @3,@D1                                             0225  13400000
       *                                    /* IF 4 SEND SPECIFIED MSG & GET   13410000
       *                                       REPLY FOR EXIT RTN */           13420000

       *           GO TO ABJ1;                                                 13430000
                BC    07,ABJ1                                            0226  13440000
       *         RETPOINT = ADDR(ABH6);                                        13450000
                LA    @7,ABH6                                            0227  13460000
       *         MSGID = '208A';            /* SPECIFY MSG CODE FOR EXIT MSG * 13470000
                MVC   MSGPARM+20(4),@C8                                  0228  13480000
       *                                                                       13490000
       *     ABH5:                                                             13500000
       *         LENGTH1 = MLEN-2;          /* 1ST HWORD OF MSG SHOULD CONTAIN 13510000
       *                                       LENGTH OF TEXT ONLY */          13520000
       ABH5     LH    @F,@D7                                             0229  13530000
                L     @2,EXITPARM+16                                     0229  13540000

                SR    @0,@0                                              0229  13550000
                IC    @0,1(0,@2)                                         0229  13560000
                AR    @F,@0                                              0229  13570000
                STC   @F,MSGPARM+24                                      0229  13580000

       *         VARY1 = MESSAGEP+2;        /* SET PTR TO EXIT MSG TEXT */     13590000
                LA    @F,2                                               0230  13600000
                A     @F,EXITPARM+16                                     0230  13610000
                ST    @F,@TEMP4                                          0230  13620000
                MVC   MSGPARM+25(3),@TEMP4+1                             0230  13630000
       *         GO TO AAC3;                /* GO INTERFACE WITH MSG           13640000
       *                                       PROCESSOR */                    13650000
                BC    15,AAC3                                            0231  13660000
       *                                                                       13670000
       *     ABH6:                                                             13680000
       *         REPLYPTR = REPLYP;         /* SET PTR TO REPLY FROM USER */   13690000
       ABH6     MVC   EXITPARM+21(3),MSGPARM+17                          0232  13700000

                MVI   EXITPARM+20,X'00'                                  0232  13710000
       *         GO TO ABF2;                /* GO BACK TO EXIT RTN WITH REPLY  13720000
       *                                       */                              13730000

                BC    15,ABF2                                            0233  13740000
       *                                                                       13750000
       *     ABJ1:                                                             13760000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0118


       *         IF EXITCODE ^= 8 THEN                                         13770000
       ABJ1     CH    @3,@D3                                             0234  13780000
       *                                    /* IF 8 SEND SPECIFIED MSG ONLY    13790000
       *                                       */                              13800000
       *           GO TO ABK1;                                                 13810000
                BC    07,ABK1                                            0235  13820000
       *         RETPOINT=ADDR(ABF2);                                          13830000
                LA    @7,ABF2                                            0236  13840000

       *         MSGID='208I';                                                 13850000
                MVC   MSGPARM+20(4),@C9                                  0237  13860000
       *         GO TO ABH5;                /* GO INTERFACE WITH MSG           13870000
       *                                       PROCESSOR */                    13880000

                BC    15,ABH5                                            0238  13890000
       *                                                                       13900000
       *     ABK1:                                                             13910000
       *         IF EXITCODE = 12 THEN                                         13920000
       ABK1     CH    @3,@D8                                             0239  13930000
                BC    07,@9EE                                            0239  13940000
       *                                    /* EXIT WANTS THIS JOBNAME         13950000
       *                                       DELETED */                      13960000
       *           DO;                                                         13970000
       * HASPDLT: /* ENTERED VIA GOTO IF HASP HANDLED CANCEL/STATUS REQUEST  * 13971000
       HASPDLT  DS    0H                                                       13972000
       *             PDEPTR = CHAINPTR;     /* STEP TO NEXT PDE */             13980000

                MVC   @TEMP3+1(3),9(@6)                                  0241  13990000
                L     @6,@TEMP3                                          0241  14000000
       *             R5 = R5 - 1;           /* DECREMENT COUNT OF PDE'S */     14010000

                BCTR  @5,0                                               0242  14020000
       *                                    /* DELETE FROM PDL CHAIN THE PDE   14030000
       *                                       WITH INVALID JOBNAME */         14040000
       *             IF PREVPDEP = 0 THEN                                      14050000
                SR    @F,@F                                              0243  14060000
                MVC   @TEMP3+1(3),PREVPDEP                               0243  14070000
                C     @F,@TEMP3                                          0243  14080000
                BC    07,@9ED                                            0243  14090000
       *                                    /* IS THIS 1ST PDE IN CHAIN */     14100000
       *               DO;                  /* IF YES, */                      14110000
       *                 PDLPTR = PDEPTR;   /* MODIFY PTR TO VALID LIST */     14120000
                ST    @6,@TEMP4                                          0245  14130000

                MVC   PDLPTR(3),@TEMP4+1                                 0245  14140000
       *                 GO TO ABK3;        /* GO TEST FOR END OF CHAIN */     14150000
                BC    15,ABK3                                            0246  14160000
       *               END;                 /* END OF INNER DO GROUP */        14170000

       *                                    /* IF NOT 1ST PDE IN CHAIN */      14180000
       *             PREVPDEP -> CHAINPTR = PDEPTR;                            14190000
       @9ED     MVC   @TEMP3+1(3),PREVPDEP                               0248  14200000
                L     @2,@TEMP3           PREVPDEP                       0248  14210000
                ST    @6,@TEMP4                                          0248  14220000
                MVC   9(3,@2),@TEMP4+1                                   0248  14230000
       *                                    /* MOVE NEW PDE PTR INTO PREVIOUS  14240000
       *                                       PDE */                          14250000
       *                                                                       14260000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0119


       * /******************************************************************** 14270000
       * /*                                                                  * 14280000

       **/*ABK3: D (YES,ACA1,NO,ABB1) WAS LAST JOBNAME LAST IN CHAIN ?       * 14290000
       **/*%DD5: P                BAD RETURN CODE FROM EXIT                  * 14300000
       **/* P (,AAC3)             SET MSGID, RTNPT=ACA1                      * 14310000

       **/*ACA1: P                DELETE IKJEFF53                            * 14320000
       **/* D (YES,ACD5,NO,)      SYSTEM ERROR OCCURED ?                     * 14330000
       **/* D (YES,ACD5,NO,)      ARE ALL JOBNAMES IN LIST INVALID ?         * 14340000
       **/* P                     RESTORE PTR TO HEAD OF JOBLIST             * 14350000
       * /*                                                                  * 14360000
       * /******************************************************************** 14370000
       *     ABK3:                                                             14380000
       *                                    /* CONTINE PDL PROCESSING */       14390000
       *             IF PDEPTR = 0 THEN                                        14400000
       ABK3     LTR   @6,@6                                              0249  14410000
       *                                    /* WAS OLD PDE LAST IN CHAIN */    14420000
       *               GO TO ACA1;          /* IF YES,GO TO CLEANUP PDL &      14430000

       *                                       BUILD JOBNAME LIST */           14440000
                BC    08,ACA1                                            0250  14450000
       *             ELSE                                                      14460000
       *               GO TO ABB1;          /* IF NO, GO TO PROCESS NEW*/      14470000

                BC    15,ABB1                                            0251  14480000
       *           END;                     /* PDE. END OF OUTER DO */         14490000
       *                                                                       14500000
       *                                                                       14510000
       *                                    /* RETURN CODE FROM EXIT NOT =     14520000
       *                                       ONE WHICH CANCEL/STATUS EXPECTE 14530000
       *                                       SO PUT OUT MSG AND QUIT */      14540000
       *         RETSW='1'B;                /* SET TMP RETURN CODE SW */       14550000
       @9EE     OI    SWITCHES,B'00001000'                               0253  14560000
       *         MSGRTNSW='40'X;            /* 2 LEVEL PUTLINE */              14570000
                MVI   MSGPARM+16,X'40'                                   0254  14580000
       *         MSGID='219I';                                                 14590000

                MVC   MSGPARM+20(4),@C10                                 0255  14600000
       *         VARCODE=EXITCODE;          /* CAN'T PASS REG TO IKJEFF02 */   14610000
                ST    @3,VARCODE                                         0256  14620000

       *         VARY1=ADDR(VARCODE);       /* PARAM TO MSG ROUTINE */         14630000
                LA    @F,VARCODE                                         0257  14640000
                ST    @F,@TEMP4                                          0257  14650000
                MVC   MSGPARM+25(3),@TEMP4+1                             0257  14660000
       *         LENGTH1='84'X;             /* INDICATE CONVERSION */          14670000
                MVI   MSGPARM+24,X'84'                                   0258  14680000
       *         RETPOINT=ADDR(ACA1);       /* WANT TO QUIT AFTER PUTTING OUT  14690000
       *                                       MSG */                          14700000
                LA    @7,ACA1                                            0259  14710000
       *         GO TO AAC3;                /* PUT OUT MSG */                  14720000
                BC    15,AAC3                                            0260  14730000
       *    ACA1:                                                              14740000

       *         GEN (DELETE EP=IKJEFF53);                                     14750000
       ACA1     DELETE EP=IKJEFF53                                             14760000
                DS    0H                                                       14770000
       *         R1 = REGHOLD;                                                 14780000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0120


                LR    @1,@8                                              0262  14790000
       *         IF EXITCODE >= 16 THEN                                        14800000
                CH    @3,@D6                                             0263  14810000
       *           GO TO ACD5;              /* ABORT */                        14820000
                BC    10,ACD5                                            0264  14830000
       *         IF RETSW='1'B THEN                                            14840000
                TM    SWITCHES,B'00001000'                               0265  14850000
       *           GO TO ACD5;              /* QUIT */                         14860000
                BC    01,ACD5                                            0266  14870000
       *         IF PDLPTR = 0 THEN                                            14880000
                SR    @F,@F                                              0267  14890000

                MVC   @TEMP3+1(3),PDLPTR                                 0267  14900000
                C     @F,@TEMP3                                          0267  14910000
       *                                    /*ARE ALL JOBNAMES INVALID (EXIT   14920000

       *                                       HAS ALL PDE'S DELETED)? */      14930000
       *           GO TO ACD5;              /* ALL NAMES INVALID, RETURN */    14940000
                BC    08,ACD5                                            0268  14950000
       *         PDEPTR = PDLPTR;           /* RESTORE PTR TO HEAD OF LIST */  14960000
                MVC   @TEMP3+1(3),PDLPTR                                 0269  14970000
                L     @6,@TEMP3                                          0269  14980000
       *                                                                       14990000
       * /******************************************************************** 15000000
       * /*                                                                  * 15010000
       **/*ACB1: P                GET DYNAMIC CORE FOR JOBNAME LIST          * 15020000
       * /*                                                                  * 15030000
       * /******************************************************************** 15040000

       *     ACB1:                                                             15050000
       *         LISTSIZE = R5 * 8;         /* CALCULATE SIZE FOR LIST OF      15060000
       *                                       JOBNAMES */                     15070000

       ACB1     LR    @F,@5                                              0270  15080000
                SLA   @F,3                                               0270  15090000
                ST    @F,LISTSIZE                                        0270  15100000
       *         R0 = LISTSIZE;             /* SUBPOOL AND SIZE FOR GETMAIN    15110000
       *                                       */                              15120000
                LR    @0,@F                                              0271  15130000
       *         GENERATE;                                                     15140000
                GETMAIN   R,LV=(0)      GET CORE FOR JOBNAME LIST              15150000
                DS    0H                                                       15160000
       *         R4 = R1;                   /* EST. ADDR. TO CORE FOR LIST */  15170000
                LR    @4,@1                                              0273  15180000
       *         R1 = REGHOLD;              /* RESTORE CONTENTS OF REG 1       15190000

       *                                       AFTER USE */                    15200000
                LR    @1,@8                                              0274  15210000
       *                                                                       15220000
       * /******************************************************************** 15230000

       * /*                                                                  * 15240000
       **/*ACC1: P                 CREATE JOBNAME LIST FROM LIST OF PARSE      15250000
       **/*                        DESCRIPTOR ELEMENTS                       * 15260000
       * /*                                                                  * 15270000
       * /******************************************************************** 15280000
       *     ACC1:                                                             15290000
       *         TOPLISTP = R4;             /* SAVE PTR TO HEAD OF JOBNAME     15300000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0121


       *                                       LIST */                         15310000
       ACC1     ST    @4,TOPLISTP                                        0275  15320000
       *         DO K = 1 TO R5 BY 1;       /* LOOP SAME # TIMES AS # OF       15330000
       *                                       PDE'S */                        15340000

                LA    @F,1                                               0276  15350000
                BC    15,@DO9EB                                          0276  15360000
       *           ELEMENT = JOBNAME(1:NAMELEN);                               15370000

       @DO9EC   LH    @2,4(0,@6)                                         0277  15380000
                BCTR  @2,0                                               0277  15390000
                L     @9,0(0,@6)                                         0277  15400000
                LR    @E,@9                                              0277  15410000
                LR    @A,@4                                              0277  15420000
                MVI   0(@A),C' '                                         0277  15430000
                MVC   1(007,@A),0(@A)                                    0277  15440000
                EX    @2,@MVC                                            0277  15450000
       *                                    /* MOVE FROM COMMAND BUFFER INTO   15460000
       *                                       INTERNAL JOBNAME LIST */        15470000
       *           PDEPTR = CHAINPTR;       /* STEP TO NEXT PDE TO FIND NEXT   15480000
       *                                       NAME IN COMMAND BUFFER */       15490000

                MVC   @TEMP3+1(3),9(@6)                                  0278  15500000
                L     @6,@TEMP3                                          0278  15510000
       *           R4 = R4 + 8;             /* STEP TO NEXT JOBNAME LIST       15520000
       *                                       ENTRY */                        15530000

                LA    @4,8(0,@4)                                         0279  15540000
       *         /*        LOOP BACK TO MOVE IN JOBNAME UNTIL LIST FILLED    * 15550000
       *         END;                       /* END ITERATIVE DO GROUP */       15560000
       *                                                                       15570000
       * /******************************************************************** 15580000
       * /*                                                                  * 15590000
       **/*ACD1: P                 ISSUE SVC 100 WHICH WILL LINK TO IKJEFF51   15600000
       **/*                        (IN LINKLIB)                              * 15610000
       * /*                                                                  * 15620000
       * /******************************************************************** 15630000
       *     ACD1:                                                             15640000
       *         JOBLISTP = TOPLISTP;       /* RESTORE PTR TO HEAD OF JOBNAME  15650000

       *                                       LIST */                         15660000
                L     @F,K                                               0280  15670000
                AH    @F,@D2                                             0280  15680000

       @DO9EB   ST    @F,K                                               0280  15690000
                CR    @F,@5                                              0280  15700000
                BC    12,@DO9EC                                          0280  15710000
       ACD1     MVC   PARMLIST(4),TOPLISTP                               0281  15720000
       *         PDECOUNT = R5;             /* STORE COUNT OF OPERANDS INTO    15730000
       *                                       COUNT OF JOBNAMES */            15740000
                STH   @5,PDECOUNT                                        0282  15750000
       *         TMCTADDR = ADDR(CPPL);     /* INIT PTR TO TMCT FOR SVC */     15760000
                ST    @1,SVCPTRS                                         0283  15770000
       *         PASSPARM = ADDR(PARMLIST); /* INIT PTR TO PARM LIST */        15780000
                LA    @F,PARMLIST                                        0284  15790000
                ST    @F,SVCPTRS+4                                       0284  15800000

       *         R1 = ADDR(SVCPTRS);                                           15810000
                LA    @1,SVCPTRS                                         0285  15820000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0122


       *         GENERATE;                                                     15830000

                LA    0,2               SET REG 0 FOR SVC VALIDITY CHECK       15840000
                SVC   100                                                      15850000
                DS    0H                                                       15860000
       * /******************************************************************** 15870000
       * /*                                                                  * 15880000
       **/*ACD5: P                 FREE JOBNAME LIST, AND PDL CORE           * 15890000
       **/*ACD6: P                 SET RETURN CODE                           * 15900000
       **/* D (YES,,NO,%DD6)       RETURN CODE INDICATES ERROR OCCURRED ?    * 15910000
       **/* P                      FLUSH STACK AND ISSUE TCLEARQ             * 15920000
       **/*%DD6: R                 RETURN TO CALLER - TMP                    * 15930000
       **/*IKJEFF50: END                                                     * 15940000
       * /*                                                                  * 15950000

       * /******************************************************************** 15960000
       *                                    /* ALL PDE'S MUST BE RELEASED      15970000
       *                                       USING PERMPDLP & PARSE MACRO    15980000

       *                                       */                              15990000
       *                                                                       16000000
       *     ACD5:                                                             16010000
       *      GENERATE;                                                        16020000
       ACD5     EQU   *                                                  0287  16030000
                IKJRLSA  PERMPDLP                                              16040000
                DS    0H                                                       16050000
       *         R1 = REGHOLD;                                                 16060000
                LR    @1,@8                                              0288  16070000
       *         IF LISTSIZE=0 THEN                                            16080000
                SR    @F,@F                                              0289  16090000
                C     @F,LISTSIZE                                        0289  16100000

       *           GO TO ACD6;                                                 16110000
                BC    08,ACD6                                            0290  16120000
       *         R0 = LISTSIZE;             /* SPECIFY SIZE OF JOBNAME LIST    16130000
       *                                       FOR FREEMAIN */                 16140000

                L     @0,LISTSIZE                                        0291  16150000
       *         R1 = TOPLISTP;             /* SPECIFY PTR TO AREA FOR         16160000
       *                                       FREEING */                      16170000
                L     @1,TOPLISTP                                        0292  16180000
       *         GENERATE;                                                     16190000
                FREEMAIN  R,LV=(0),A=(1)   FREE CORE FOR JOBNAME LIST          16200000
                DS    0H                                                       16210000
       *         R1 = REGHOLD;              /* RESTORE CONTENTS AFTER USE */   16220000
                LR    @1,@8                                              0294  16230000
       *                                                                       16240000
       *     ACD6:                                                             16250000
       *         IF RETSW='1'B THEN                                            16260000

       ACD6     TM    SWITCHES,B'00001000'                               0295  16270000
                BC    12,@9E8                                            0295  16280000
       *           RETCODE=12;              /* IF ERROR OCCURED AND RETURN COD 16290000

       *                                       NOT YET SET, THEN SET IT */     16300000
                LA    @F,12                                              0296  16310000
                L     @2,4(0,@D)                                         0296  16320000
                ST    @F,16(0,@2)                                        0296  16330000
       *         IF RETCODE=12 THEN         /* IF ERROR OCCURRED, THEN         16340000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0123


       *                                       FLUSH STACK AND ISSUE TCLEARQ * 16350000
       @9E8     LA    @F,12                                              0297  16360000
                L     @2,4(0,@D)                                         0297  16370000
                C     @F,16(0,@2)                                        0297  16380000
                BC    07,@9E7                                            0297  16390000
       *           DO;                                                         16400000

       *             IOPLPTR=ADDR(PPLLN);   /* USE STORAGE ALREADY USED BY     16410000
       *                                       PARSE PARM LIST */              16420000
                LA    @F,PPLLN                                           0299  16430000
                ST    @F,IOPLPTR                                         0299  16440000

       *             STPBPTR=ADDR(STPBAREA); /*SET UP ADDRESSABILITY TO STPB * 16450000
                LA    @F,STPBAREA                                        0300  16460000
                ST    @F,STPBPTR                                         0300  16470000
       *             IOPLIOPB=ADDR(STPB);   /* PUT PTR TO STPB IN IOPL */      16480000
                LR    @9,@F                                              0301  16490000
                L     @2,IOPLPTR                                         0301  16500000
                ST    @9,12(0,@2)                                        0301  16510000
       *         GENERATE;                                                     16520000
                STACK DELETE=ALL,MF=(E,PPLLN)                                  16530000
                TCLEARQ INPUT                                                  16540000
                DS    0H                                                       16550000
       *           END;                                                        16560000

       *         RETURN;                                                       16570000
                BC    15,@EL01                                           0304  16580000
       *                                                                       16590000

       *     IKJEFF5A:                                                         16600000
       *         ENTRY (PSEUDO);                                               16610000
       IKJEFF5A STM   @E,@C,12(@D)                                       0305  16620000
                BALR  @B,0                                               0305  16630000
                LA    @F,IKJEFF5A-IKJEFF50                               0305  16640000
                SR    @B,@F                                              0305  16650000
                L     @0,@SIZ001                                         0305  16660000
                GETMAIN  R,LV=(0)                                        0305  16670000
                LR    @C,@1                                              0305  16680000
                LM    @0,@1,20(@D)                                       0305  16690000
                XC    @TEMPS(@L),@TEMPS                                  0305  16700000
                ST    @D,@SAV001+4                                       0305  16710000

                LA    @F,@SAV001                                         0305  16720000
                ST    @F,8(0,@D)                                         0305  16730000
                LR    @D,@F                                              0305  16740000

       *         SWITCHES=0;                                                   16750000
       @9E6     SR    @F,@F                                              0306  16760000
                ST    @F,SWITCHES                                        0306  16770000
       *         CANCELSW='1'B;                                                16780000
                OI    SWITCHES,B'10000000'                               0307  16790000
       *         GO TO TOP;                                                    16800000
                BC    15,TOP                                             0308  16810000
       *         RELEASE (3,4,5,6,7,8);                                        16820000
       *      /*************************************************************** 16830000
       *      /* MACROS DESCRIBING SYNTAX OF CANCEL/STATUS COMMANDS TO PARSE * 16840000
       *      /*************************************************************** 16850000
       *      GENERATE;                     /*                         A49999* 16860000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0124


       * THE PROMPT= AND HELP= INFORMATION WAS CHANGED FOR APAR        SA49999 16870000
       IKJEFF56 IKJPARM                                                        16880000
       IKJP1    IKJIDENT  'STRING',                                     A49999X16890000

                      LIST,                                             A49999X16900000
                      MAXLNTH=8,                                        A49999X16910000
                      FIRST=ALPHA,                                      A49999X16920000
                      OTHER=ALPHANUM,                                   A49999X16930000
                      PROMPT='JOBNAME',                                 A49999X16940000
                      HELP='ALPHANUMERIC JOBNAME, WITH FIRST CHARACTER ALPHABEX16950000
                      TIC AND MAXIMUM OF 8 CHARACTERS'                  A49999 16960000
                IKJENDP                                                        16970000
       IKJEFF50  CSECT                                                         16980000
                DS    0H                                                       16990000
                DS    0H                                                       16990100
       * /*      THIS CODE IS CALLED IF HASP IS IN THE SYSTEM.  A PARAMETER  * 16990110

       * /*      LIST IS BUILT AND PASSED TO THE HASP EXIT AS POINTED TO BY  * 16990120
       * /*      THE HASP CVT.  THE HASP INTERFACE IS HANDLED BY SVC 100,    * 16990130
       * /*      TO PROVIDE PROTECT KEY ZERO FOR REFERENCING THE HASP REGION.* 16990140

       * /*                                                                  * 16990150
       * /*      IF HASP SUCCESSFULLY PROCESSED THE CANCEL OR STATUS         * 16990160
       * /*      REQUEST, A MESSAGE IS ISSUED AND A RETURN CODE OF ZERO      * 16990170
       * /*      IS PASSED BACK TO THE CALLER TO INDICATE THIS.  IF HASP     * 16990180
       * /*      DID NOT FIND THE JOB, THEN A RETURN CODE OF 4 IS PASSED     * 16990190
       * /*      BACK TO INDICATE THAT OS PROCESSING SHOULD PROCEED          * 16990200
       * /*      NORMALLY (I.E., THE JOB MAY BE ON OS QUEUES WHICH ARE       * 16990210
       * /*      NOT EXAMINED BY HASP.)                                      * 16990220
       * /*                                                                  * 16990230
       * /*      HASP WILL ONLY CANCEL A JOB IF IT FINDS IT ON ITS OWN INPUT * 16990240
       * /*      QUEUES.                                                     * 16990250
       * /*      THIS ENTIRE PROCEDURE HAS SUPPORT CODE = Y01120             * 16990260

       *                                                                       16990270
       * HASPPROC: PROCEDURE OPTIONS(DONTSAVE,NOSAVEAREA);                     16990280
       @EL01    L     @D,4(0,@D)                                         0345  16990290
                LR    @1,@C                                              0345  16990300

                L     @0,@SIZ001                                         0345  16990310
                FREEMAIN R,LV=(0),A=(1)                                  0345  16990320
                LM    @E,@C,12(@D)                                       0345  16990330
                BCR   15,@E                                              0345  16990340
       HASPPROC EQU   *                                                  0345  16990350
       *                                                                       16990360
       *  RESTRICT (3,4,5,6,7,8);       /* SAME AS IN OUTER PROC             * 16990370
       *                                                                       16990380
       *  /* D A T A   I T E M S   U S E D   O N L Y   B Y   H A S P P R O C * 16990390
       *                                                                       16990400
       *         DCL       HSAVE14  PTR(31);   /* SAVE INCOMING REG 14       * 16990410
       *                                                                       16990420

       *         /* INSERT USED IN MSGS 210I, 211I, AND 22I FOR HASP JOBS    * 16990430
       *         /*                                                    YM2818* 16990440
       *         DCL HOLDINST CHAR(16) INIT(', IN HOLD STATUS');               16990450

       *                                                                       16990460
       *         /* PARAMETER LIST PASSED TO HASP                            * 16990470
       *         DCL 1     HASPPARM CHAR(12) BDY(WORD),                        16990480
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0125


       *              3    HJOBNAME CHAR(8),   /* JOBNAME TO BE PROCESSED    * 16990490
       *              3    HCALLER  BIT(8),    /* CALLER IDENTIFICATION      * 16990500
       *               5   HSTATUS  BIT(1),    /* 1 - CALLER IS STATUS       * 16990510
       *               5   HCANCEL  BIT(1),    /* 1 - CALLER IS CANCEL       * 16990520
       *              3    *        CHAR(1),   /* RESERVED                   * 16990530
       *              3    HPASSBCK BIT(8),    /* BITS SET BY HASP           * 16990540
       *               5   HINPUT   BIT(1),    /* JOB IS ON INPUT Q          * 16990550
       *               5   HOUTPUT  BIT(1),    /* JOB IS ON OUTPUT Q         * 16990560

       *               5   HACTIVE  BIT(1),    /* JOB IS ACTIVE              * 16990570
       *               5   HHELD    BIT(1),    /* JOB IS BEING HELD          * 16990580
       *               5   HDUP     BIT(1),    /* JOBNAME HAS DUPLICATE JOBS * 16990590
       *               5   HCANC    BIT(1),    /* HASP CANCELLED THE JOB     * 16990600

       *               5   HNOTFND  BIT(1),    /* HASP DIDN'T FIND THE JOB   * 16990610
       *               5   *        BIT(1),    /* RESERVED                   * 16990620
       *              3    *        CHAR(1);   /* RESERVED                   * 16990630
       * /*   ***** B E G I N   H A S P P R O C   C O D E *****              * 16990640
       *                                                                       16990650
       *         HSAVE14  = RE;                /* SAVE LINK REGISTER         * 16990660
                ST    @E,HSAVE14                                         0350  16990670
       *                                                                       16990680
       *         HASPPARM = HASPPARM && HASPPARM; /* INIT PARM LIST PASSED TO  16990690
       *                                              HASP TO ZEROS.         * 16990700
                XC    HASPPARM(12),HASPPARM                              0351  16990710
       *                                                                       16990720

       *         HJOBNAME(1:8) = '        ';   /* FILL IN JOBNAME            * 16990730
                MVC   HASPPARM(8),=CL8' '                                0352  16990740
       *         HJOBNAME(1:TEMPJOBL) = TEMPJOBN; /* FROM THE CALLER         * 16990750

                LA    @E,TEMPJOBN                                        0353  16990760
                LH    @1,TEMPJOBL                                        0353  16990770
                BCTR  @1,0                                               0353  16990780
                LA    @A,HASPPARM                                        0353  16990790
                EX    @1,@MVC                                            0353  16990800
       *                                                                       16990810
       *         IF CANCELSW = '1'B THEN       /* SET ON SW TO TELL HASP     * 16990820
                TM    SWITCHES,B'10000000'                               0354  16990830
                BC    12,@9DE                                            0354  16990840
       *           HCANCEL='1'B;               /* WHO IS THE CALLER          * 16990850
                OI    HASPPARM+8,B'01000000'                             0355  16990860
                BC    15,@9DD                                            0356  16990870

       *         ELSE                                                          16990880
       *           HSTATUS = '1'B;                                             16990890
       @9DE     OI    HASPPARM+8,B'10000000'                             0356  16990900
       *                                                                       16990910

       *         TMCTADDR = REGHOLD;        /* INIT PTR TO TMCT-CPPL FOR SVC * 16990920
       @9DD     ST    @8,SVCPTRS                                         0357  16990930
       *         PASSPARM = ADDR(HASPPARM); /* INIT PTR TO PARM LIST         * 16990940
                LA    @F,HASPPARM                                        0358  16990950
                ST    @F,SVCPTRS+4                                       0358  16990960
       *         R1 = ADDR(SVCPTRS);           /* FOR SVC 100          YM2809* 16990970
                LA    @1,SVCPTRS                                         0359  16990980
       *                                                                       16990990
       *         GENERATE;                                                     16991000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0126


                LA    0,6               INDICATE HASP INTERFACE TO SVC 100     16991010
                SVC   100                                                      16991020

                DS    0H                                                       16991030
       *                                                                       16991040
       *         IF HNOTFND = '1'B THEN        /* IF HASP DIDN'T FIND THE JOB* 16991050

                TM    HASPPARM+10,B'00000010'                            0361  16991060
                BC    12,@9DC                                            0361  16991070
       *           RETURN CODE(4) TO HSAVE14;  /* THEN RETURN TO THE CALLER  * 16991080
                LA    @F,4                                               0362  16991090
                L     @E,HSAVE14                                         0362  16991100
                BCR   15,@E                                              0362  16991110
       *                                                                       16991120
       *         /* COMMON BUILD OF THE PARM LIST FOR IKJEFF02, THE MESSAGE  * 16991130
       *         /* ROUTINE.                                                 * 16991140
       *                                                                       16991150
       *         LENGTH1  = TEMPJOBL;          /* LENGTH OF JOBNAME VAR.     * 16991160
       @9DC     MVC   MSGPARM+24(1),TEMPJOBL+1                           0363  16991170

       *         VARY1    = ADDR(TEMPJOBN);    /* ADDR OF JOBNAME VARIABLE   * 16991180
                LA    @F,TEMPJOBN                                        0364  16991190
                ST    @F,@TEMP4                                          0364  16991200
                MVC   MSGPARM+25(3),@TEMP4+1                             0364  16991210

       *         MSGRTNSW = '40'X;             /* TELL JEFF02 TO DO PUTLINE  * 16991220
                MVI   MSGPARM+16,X'40'                                   0365  16991230
       *                                                                       16991240
       *         /* END OF COMMON PROCESSING                                 * 16991250
       * /* BEGIN TO ANALYZE THE SPECIFIC BITS RETURNED BY HASP              * 16991260
       *                                                                       16991270
       *         IF CANCELSW = '1'B THEN       /* IF REQUEST WAS FOR CANCEL  * 16991280
                TM    SWITCHES,B'10000000'                               0366  16991290
                BC    12,@9DB                                            0366  16991300
       *           DO;                                                         16991310
       *             IF HDUP = '1'B THEN       /* IF DUP JOBS FOUND, THEN    * 16991320
                TM    HASPPARM+10,B'00001000'                            0368  16991330

                BC    12,@9DA                                            0368  16991340
       *               DO;                                                     16991350
       *                 MSGID = '220I';       /* TELL THE USER              * 16991360

                MVC   MSGPARM+20(4),@C12                                 0370  16991370
       *                 GOTO HASPMSG;         /* COMMON CALL TO JEFF02      * 16991380
                BC    15,HASPMSG                                         0371  16991390
       *               END;                                                    16991400
       *             ELSE                                                      16991410
       *               IF HCANC = '1'B THEN    /* IF HASP CANCELLED THE JOB  * 16991420
       @9DA     TM    HASPPARM+10,B'00000100'                            0373  16991430
                BC    12,@9D8                                            0373  16991440
       *                 RETURN CODE(0) TO HSAVE14; /* PROCESSING IS DONE    * 16991450
                SR    @F,@F                                              0374  16991460
                L     @E,HSAVE14                                         0374  16991470
                BCR   15,@E                                              0374  16991480

       *               ELSE                                                    16991490
       *                 RETURN CODE(4) TO HSAVE14; /* ELSE, TRY AN OS CANCEL* 16991500
       @9D8     LA    @F,4                                               0375  16991510
                L     @E,HSAVE14                                         0375  16991520

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0127


                BCR   15,@E                                              0375  16991530
       *           END;                                                        16991540
       @9D7     EQU   *                                                  0376  16991550
       @9D9     EQU   *                                                  0376  16991560
       *                                                                       16991570
       *         /* IF HERE, REQUEST WAS FOR STATUS                          * 16991580
       *                                                                       16991590
       *         IF HDUP = '1'B THEN           /* IF DUPLICATE JOBS FOUND    * 16991600
       @9DB     TM    HASPPARM+10,B'00001000'                            0377  16991610
                BC    12,@9D6                                            0377  16991620
       *           DO;                         /* THEN TELL THE USER         * 16991630

       *             MSGID = '221I';                                           16991640
                MVC   MSGPARM+20(4),@C13                                 0379  16991650
       *             GOTO HASPMSG;             /* COMMON CALL TO JEFF02      * 16991660

                BC    15,HASPMSG                                         0380  16991670
       *           END;                                                        16991680
       *                                                                       16991690
       *         /* IF HERE, JOB WAS FOUND, ISSUE APPROPRIATE MESSAGE        * 16991700
       *                                                                       16991710
       *         IF HINPUT = '1'B THEN         /* JOB FOUND ON INPUT Q       * 16991720
       @9D6     TM    HASPPARM+10,B'10000000'                            0382  16991730
                BC    12,@9D5                                            0382  16991740
       *           MSGID = '210I';                                             16991750
                MVC   MSGPARM+20(4),@C14                                 0383  16991760
                BC    15,@9D4                                            0384  16991770
       *         ELSE                                                          16991780

       *           IF HOUTPUT = '1'B THEN      /* JOB FOUND ON OUTPUT Q      * 16991790
       @9D5     TM    HASPPARM+10,B'01000000'                            0384  16991800
                BC    12,@9D3                                            0384  16991810

       *             MSGID = '222I';           /*                      YM2818* 16991820
                MVC   MSGPARM+20(4),@C15                                 0385  16991830
                BC    15,@9D2                                            0386  16991840
       *           ELSE                                                        16991850
       *             IF HACTIVE = '1'B THEN    /* JOB IN EXECUTION           * 16991860
       @9D3     TM    HASPPARM+10,B'00100000'                            0386  16991870
                BC    12,@9D1                                            0386  16991880
       *               MSGID = '211I';                                         16991890
                MVC   MSGPARM+20(4),@C16                                 0387  16991900
                BC    15,@9D0                                            0388  16991910
       *             ELSE                      /* ELSE MSG FOR HOLD Q.       * 16991920
       *               MSGID = '212I';         /* (NOTE - SHOULD NOT GET       16991930

       *                                          THIS COMBINATION OF BITS)  * 16991940
       @9D1     MVC   MSGPARM+20(4),@C17                                 0388  16991950
       *         IF HHELD = '1'B THEN          /* SAY HELD ON APPROP. QUEUE  * 16991960
       @9D0     EQU   *                                                  0389  16991970

       @9D2     EQU   *                                                  0389  16991980
       @9D4     TM    HASPPARM+10,B'00010000'                            0389  16991990
                BC    12,@9CF                                            0389  16992000
       *           DO;                         /*                      YM2818* 16992010
       *             LENGTH2  = LENGTH(HOLDINST); /* LENGTH OF INSERT        * 16992020
                MVI   MSGPARM+28,16                                      0391  16992030
       *             VARY2  = ADDR(HOLDINST);  /* ADDR OF INSERT             * 16992040
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0128


                LA    @F,HOLDINST                                        0392  16992050
                ST    @F,@TEMP4                                          0392  16992060
                MVC   MSGPARM+29(3),@TEMP4+1                             0392  16992070
                BC    15,@9CE                                            0394  16992080

       *           END;                                                        16992090
       *         ELSE                          /* ENSURE ZEROS IN MSG INSERT2* 16992100
       *           INSERT2  = 0;               /*                      YM2818* 16992110

       @9CF     SR    @F,@F                                              0394  16992120
                ST    @F,MSGPARM+28                                      0394  16992130
       *                                                                       16992140
       * HASPMSG:  /* COMMON ENTRY TO ISSUE MESSAGE VIA IKJEFF02 AND RETURN  * 16992150
       *           /* WITH A RETURN CODE OF ZERO.                            * 16992160
       *                                                                       16992170
       *         R1     = ADDR(MSGPARM);       /* PARMLIST FOR IKJEFF02      * 16992180
       @9CE     EQU   *                                                  0395  16992190
       HASPMSG  LA    @1,MSGPARM                                         0395  16992200
       *         CALL IKJEFF02;                                                16992210
                L     @F,@V2              ADDRESS OF IKJEFF02            0396  16992220
                BALR  @E,@F                                              0396  16992230

       *                                                                       16992240
       *         RETURN CODE(0) TO HSAVE14;    /* RETURN TO THE CALLER       * 16992250
                SR    @F,@F                                              0397  16992260
                L     @E,HSAVE14                                         0397  16992270

                BCR   15,@E                                              0397  16992280
       *                                                                       16992290
       *         END HASPPROC;                                                 16992300
       @EL02    BCR   15,@E                                              0398  16992310
       *         END                                                           17000000
       * /* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM.       17010000
       * /*%INCLUDE SYSLIB  (IKJCPPL )                                         17020000
       * /*%INCLUDE SYSLIB  (IKJPSCB )                                         17030000
       * /*%INCLUDE SYSLIB  (IKJECT  )                                         17040000
       * /*%INCLUDE SYSLIB  (IKJPPL  )                                         17050000
       * /*%INCLUDE SYSLIB  (IKJIOPL )                                         17060000
       * /*%INCLUDE SYSLIB  (IKJSTPB )                                         17070000

       * /*%INCLUDE SYSLIB  (CVT     )                                         17080000
       * ;                                                                     17090000
       @DATA1   EQU   *                                                        17160000

       @0       EQU   00                  EQUATES FOR REGISTERS 0-15           17170000
       @1       EQU   01                                                       17180000
       @2       EQU   02                                                       17190000
       @3       EQU   03                                                       17200000
       @4       EQU   04                                                       17210000
       @5       EQU   05                                                       17220000
       @6       EQU   06                                                       17230000
       @7       EQU   07                                                       17240000
       @8       EQU   08                                                       17250000
       @9       EQU   09                                                       17260000
       @A       EQU   10                                                       17270000
       @B       EQU   11                                                       17280000

       @C       EQU   12                                                       17290000
       @D       EQU   13                                                       17300000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0129


       @E       EQU   14                                                       17310000

       @F       EQU   15                                                       17320000
       @D5      DC    F'0'                                                     17330000
       @D1      DC    H'4'                                                     17340000
       @D2      DC    H'1'                                                     17350000
       @D3      DC    H'8'                                                     17360000
       @D4      DC    H'39'                                                    17370000
       @D6      DC    H'16'                                                    17380000
       @D7      DC    H'-2'                                                    17390000
       @D8      DC    H'12'                                                    17400000
       @MVC     MVC   0(1,@A),0(@E)                                            17410000
       @V1      DC    V(IKJEFF55)                                              17420000
       @V2      DC    V(IKJEFF02)                                              17430000

       @V3      DC    V(IKJEFF56)                                              17440000
                DS    0F                                                       17450000
       @SIZ001  DC    AL1(&SPN)                                                17460000

                DC    AL3(@DATEND-@DATD)                                       17470000
                DS    0F                                                       17480000
       @C2      DC    C'207I'                                                  17490000
       @C4      DC    C'218I'                                                  17500000
       @C6      DC    C'217I'                                                  17510000
       @C8      DC    C'208A'                                                  17520000
       @C9      DC    C'208I'                                                  17530000
       @C10     DC    C'219I'                                                  17540000
       @C12     DC    C'220I'                                                  17541000
       @C13     DC    C'221I'                                                  17542000
       @C14     DC    C'210I'                                                  17543000
       @C15     DC    C'222I'                                                  17544000

       @C16     DC    C'211I'                                                  17545000
       @C17     DC    C'212I'                                                  17546000
                DS    0D                                                       17550000
       @DATA    EQU   *                                                        17560000

       X        EQU   00000000            FULLWORD INTEGER                     17570000
       R0       EQU   00000000            3  BYTE  POINTER REGISTER            17580000
       R1       EQU   00000001            3  BYTE  POINTER REGISTER            17590000
       CPPLPTR  EQU   00000001            FULLWORD POINTER REGISTER            17600000
       R2       EQU   00000002            3  BYTE  POINTER REGISTER            17610000
       R3       EQU   00000003            3  BYTE  POINTER REGISTER            17620000
       R4       EQU   00000004            3  BYTE  POINTER REGISTER            17630000
       R5       EQU   00000005            3  BYTE  POINTER REGISTER            17640000
       R8       EQU   00000008            3  BYTE  POINTER REGISTER            17650000
       R9       EQU   00000009            FULLWORD POINTER REGISTER            17660000
       RA       EQU   00000010            3  BYTE  POINTER REGISTER            17670000
       RB       EQU   00000011            3  BYTE  POINTER REGISTER            17680000

       R15      EQU   00000015            FULLWORD INTEGER REGISTER            17690000
       RD       EQU   00000013            3  BYTE  POINTER REGISTER            17700000
       BACSAVEP EQU   00000004            FULLWORD POINTER                     17710000

       RETCODE  EQU   00000016            FULLWORD INTEGER                     17720000
       CPPL     EQU   00000000            16 BYTE(S) ON WORD                   17730000
       CPPLCBUF EQU   CPPL+00000000       FULLWORD POINTER                     17740000
       CPPLUPT  EQU   CPPL+00000004       FULLWORD POINTER                     17750000
       CPPLPSCB EQU   CPPL+00000008       FULLWORD POINTER                     17760000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0130


       CPPLECT  EQU   CPPL+00000012       FULLWORD POINTER                     17770000
       PSCBPTR  EQU   00000008            FULLWORD POINTER                     17780000
       PSCB     EQU   00000000            72 BYTE(S) ON WORD                   17790000
       PSCBUSER EQU   PSCB+00000000       7 BYTE(S) ON WORD                    17800000
       PSCBUSRL EQU   PSCB+00000007       1  BYTE  POINTER                     17810000
       PSCBGPNM EQU   PSCB+00000008       8 BYTE(S)                            17820000

       PSCBATR1 EQU   PSCB+00000016       2 BYTE(S)                            17830000
       PSCBCTRL EQU   PSCB+00000016       1 BIT(S)                             17840000
       PSCBACCT EQU   PSCB+00000016       1 BIT(S)                             17850000
       PSCBJCL  EQU   PSCB+00000016       1 BIT(S)                             17860000

       A00000   EQU   PSCB+00000016       1 BIT(S)                             17870000
       A00001   EQU   PSCB+00000016       1 BIT(S)                             17880000
       A00002   EQU   PSCB+00000016       1 BIT(S)                             17890000
       A00003   EQU   PSCB+00000016       1 BIT(S)                             17900000
       A00004   EQU   PSCB+00000016       1 BIT(S)                             17910000
       PSCBATR2 EQU   PSCB+00000018       2 BYTE(S)                            17920000
       PSCBCPU  EQU   PSCB+00000020       FULLWORD INTEGER                     17930000
       PSCBSWP  EQU   PSCB+00000024       FULLWORD INTEGER                     17940000
       PSCBLTIM EQU   PSCB+00000028       FULLWORD INTEGER                     17950000
       PSCBTCPU EQU   PSCB+00000032       FULLWORD INTEGER                     17960000
       PSCBTSWP EQU   PSCB+00000036       FULLWORD INTEGER                     17970000
       PSCBTCON EQU   PSCB+00000040       FULLWORD INTEGER                     17980000

       PSCBTCO1 EQU   PSCB+00000044       FULLWORD INTEGER                     17990000
       PSCBRLGB EQU   PSCB+00000048       FULLWORD POINTER                     18000000
       PSCBUPT  EQU   PSCB+00000052       FULLWORD POINTER                     18010000

       PSCBUPTL EQU   PSCB+00000056       HALFWORD INTEGER                     18020000
       A00005   EQU   PSCB+00000058       16 BIT(S)                            18030000
       PSCBRSZ  EQU   PSCB+00000060       FULLWORD POINTER                     18040000
       PSCBU    EQU   PSCB+00000064       8 BYTE(S)                            18050000
       ECTPTR   EQU   00000012            FULLWORD POINTER                     18060000
       ECT      EQU   00000000            40 BYTE(S) ON WORD                   18070000
       ECTRCDF  EQU   ECT+00000000        1 BYTE(S)                            18080000
       ECTRTCD  EQU   ECT+00000001        3  BYTE  POINTER ON WORD+1           18090000
       ECTIOWA  EQU   ECT+00000004        FULLWORD POINTER                     18100000
       ECTMSGF  EQU   ECT+00000008        1 BYTE(S)                            18110000
       ECTSMSG  EQU   ECT+00000009        3  BYTE  POINTER                     18120000
       ECTPCMD  EQU   ECT+00000012        8 BYTE(S)                            18130000

       ECTSCMD  EQU   ECT+00000020        8 BYTE(S)                            18140000
       ECTSWS   EQU   ECT+00000028        1 BYTE(S)                            18150000
       ECTNOPD  EQU   ECT+00000028        1 BIT(S)                             18160000

       A00006   EQU   ECT+00000028        1 BIT(S)                             18170000
       ECTATRM  EQU   ECT+00000028        1 BIT(S)                             18180000
       ECTLOGF  EQU   ECT+00000028        1 BIT(S)                             18190000
       ECTNMAL  EQU   ECT+00000028        1 BIT(S)                             18200000
       ECTNNOT  EQU   ECT+00000028        1 BIT(S)                             18210000
       A00007   EQU   ECT+00000028        1 BIT(S)                             18220000
       A00008   EQU   ECT+00000028        1 BIT(S)                             18230000
       ECTDDNUM EQU   ECT+00000029        3  BYTE  POINTER ON WORD+1           18240000
       ECTUSER  EQU   ECT+00000032        FULLWORD POINTER                     18250000
       A00009   EQU   ECT+00000036        FULLWORD POINTER                     18260000
       CANCEL   EQU   *                   8 BYTE(S)                            18270000
                DC    C'CANCEL  '                                              18280000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0131


       STATUS   EQU   *                   8 BYTE(S)                            18290000
                DC    C'STATUS  '                                              18300000
       ELEMENT  EQU   00000000            8 BYTE(S)                            18310000

       PPL      EQU   00000000            28 BYTE(S) ON WORD                   18320000
       PPLUPT   EQU   PPL+00000000        FULLWORD POINTER                     18330000
       PPLECT   EQU   PPL+00000004        FULLWORD POINTER                     18340000
       PPLECB   EQU   PPL+00000008        FULLWORD POINTER                     18350000
       PPLPCL   EQU   PPL+00000012        FULLWORD POINTER                     18360000
       PPLANS   EQU   PPL+00000016        FULLWORD POINTER                     18370000
       PPLCBUF  EQU   PPL+00000020        FULLWORD POINTER                     18380000
       PPLUWA   EQU   PPL+00000024        FULLWORD POINTER                     18390000
       PDEPTR   EQU   00000006            3  BYTE  POINTER REGISTER            18400000
       PDE      EQU   00000000            12 BYTE(S) ON WORD                   18410000
       JOBNAMEP EQU   PDE+00000000        FULLWORD POINTER                     18420000
       NAMELEN  EQU   PDE+00000004        HALFWORD POINTER                     18430000

       PARSESW  EQU   PDE+00000006        1  BYTE  POINTER                     18440000
       OMITTED  EQU   PDE+00000006        1 BIT(S)                             18450000
       A00010   EQU   PDE+00000007        1 BYTE(S)                            18460000

       LAST     EQU   PDE+00000008        4 BYTE(S) ON WORD                    18470000
       A00011   EQU   PDE+00000008        1  BYTE  POINTER                     18480000
       CHAINPTR EQU   PDE+00000009        3  BYTE  POINTER ON WORD+1           18490000
       JOBNAME  EQU   00000000            8 BYTE(S)                            18500000
       IOPL     EQU   00000000            16 BYTE(S) ON WORD                   18510000
       IOPLUPT  EQU   IOPL+00000000       FULLWORD POINTER                     18520000
       IOPLECT  EQU   IOPL+00000004       FULLWORD POINTER                     18530000
       IOPLECB  EQU   IOPL+00000008       FULLWORD POINTER                     18540000
       IOPLIOPB EQU   IOPL+00000012       FULLWORD POINTER                     18550000
       STPB     EQU   00000000            8 BYTE(S) ON WORD                    18560000
       A00012   EQU   STPB+00000000       4 BYTE(S)                            18570000
       STPBALSD EQU   STPB+00000004       FULLWORD POINTER                     18580000

       REGHOLD  EQU   00000008            3  BYTE  POINTER REGISTER            18590000
       ONECHAR  EQU   00000000            1 BYTE(S)                            18600000
       CHARTAB  EQU   @DATA+00000016      39 BYTE(S) ON WORD                   18610000
       A00013   EQU   *                   1 BYTE(S)                            18620000

                DC    C'A'                                                     18630000
       A00014   EQU   *                   1 BYTE(S)                            18640000
                DC    C'B'                                                     18650000
       A00015   EQU   *                   1 BYTE(S)                            18660000
                DC    C'C'                                                     18670000
       A00016   EQU   *                   1 BYTE(S)                            18680000
                DC    C'D'                                                     18690000
       A00017   EQU   *                   1 BYTE(S)                            18700000
                DC    C'E'                                                     18710000
       A00018   EQU   *                   1 BYTE(S)                            18720000
                DC    C'F'                                                     18730000
       A00019   EQU   *                   1 BYTE(S)                            18740000

                DC    C'G'                                                     18750000
       A00020   EQU   *                   1 BYTE(S)                            18760000
                DC    C'H'                                                     18770000

       A00021   EQU   *                   1 BYTE(S)                            18780000
                DC    C'I'                                                     18790000
       A00022   EQU   *                   1 BYTE(S)                            18800000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0132


                DC    C'J'                                                     18810000
       A00023   EQU   *                   1 BYTE(S)                            18820000
                DC    C'K'                                                     18830000
       A00024   EQU   *                   1 BYTE(S)                            18840000
                DC    C'L'                                                     18850000
       A00025   EQU   *                   1 BYTE(S)                            18860000
                DC    C'M'                                                     18870000
       A00026   EQU   *                   1 BYTE(S)                            18880000

                DC    C'N'                                                     18890000
       A00027   EQU   *                   1 BYTE(S)                            18900000
                DC    C'O'                                                     18910000
       A00028   EQU   *                   1 BYTE(S)                            18920000

                DC    C'P'                                                     18930000
       A00029   EQU   *                   1 BYTE(S)                            18940000
                DC    C'Q'                                                     18950000
       A00030   EQU   *                   1 BYTE(S)                            18960000
                DC    C'R'                                                     18970000
       A00031   EQU   *                   1 BYTE(S)                            18980000
                DC    C'S'                                                     18990000
       A00032   EQU   *                   1 BYTE(S)                            19000000
                DC    C'T'                                                     19010000
       A00033   EQU   *                   1 BYTE(S)                            19020000
                DC    C'U'                                                     19030000
       A00034   EQU   *                   1 BYTE(S)                            19040000

                DC    C'V'                                                     19050000
       A00035   EQU   *                   1 BYTE(S)                            19060000
                DC    C'W'                                                     19070000

       A00036   EQU   *                   1 BYTE(S)                            19080000
                DC    C'X'                                                     19090000
       A00037   EQU   *                   1 BYTE(S)                            19100000
                DC    C'Y'                                                     19110000
       A00038   EQU   *                   1 BYTE(S)                            19120000
                DC    C'Z'                                                     19130000
       A00039   EQU   *                   1 BYTE(S)                            19140000
                DC    C'@'                                                     19150000
       A00040   EQU   *                   1 BYTE(S)                            19160000
                DC    C'$'                                                     19170000
       A00041   EQU   *                   1 BYTE(S)                            19180000
                DC    C'#'                                                     19190000

       A00042   EQU   *                   1 BYTE(S)                            19200000
                DC    C'0'                                                     19210000
       A00043   EQU   *                   1 BYTE(S)                            19220000
                DC    C'1'                                                     19230000

       A00044   EQU   *                   1 BYTE(S)                            19240000
                DC    C'2'                                                     19250000
       A00045   EQU   *                   1 BYTE(S)                            19260000
                DC    C'3'                                                     19270000
       A00046   EQU   *                   1 BYTE(S)                            19280000
                DC    C'4'                                                     19290000
       A00047   EQU   *                   1 BYTE(S)                            19300000
                DC    C'5'                                                     19310000
       A00048   EQU   *                   1 BYTE(S)                            19320000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0133


                DC    C'6'                                                     19330000
       A00049   EQU   *                   1 BYTE(S)                            19340000

                DC    C'7'                                                     19350000
       A00050   EQU   *                   1 BYTE(S)                            19360000
                DC    C'8'                                                     19370000

       A00051   EQU   *                   1 BYTE(S)                            19380000
                DC    C'9'                                                     19390000
       EXITCODE EQU   00000003            FULLWORD POINTER REGISTER            19400000
       REPTEXT  EQU   00000000            102 BYTE(S) ON WORD                  19410000
       REPSIZE  EQU   REPTEXT+00000000    HALFWORD INTEGER                     19420000
       REPBUF   EQU   REPTEXT+00000002    100 BYTE(S)                          19430000
       MSGLNGTH EQU   00000000            2 BYTE(S) ON WORD                    19440000
       A00052   EQU   MSGLNGTH+00000000   1  BYTE  POINTER                     19450000
       MLEN     EQU   MSGLNGTH+00000001   1  BYTE  POINTER                     19460000
       RETPOINT EQU   00000007            3  BYTE  POINTER REGISTER            19470000
       TABLEMAP EQU   00000000            313 BYTE(S) ON WORD                  19480000
       JOBTAB   EQU   TABLEMAP+00000000   312 BYTE(S)                          19490000

       ENDTAB   EQU   TABLEMAP+00000312   1 BYTE(S)                            19500000
       CVTPTR   EQU   00000016            FULLWORD POINTER                     19510000
       CVTMAP   EQU   00000000            276 BYTE(S) ON WORD                  19520000
       CVTTCBP  EQU   CVTMAP+00000000     FULLWORD POINTER                     19530000

       CVT0EF00 EQU   CVTMAP+00000004     FULLWORD POINTER                     19540000
       CVTLINK  EQU   CVTMAP+00000008     FULLWORD POINTER                     19550000
       CVTJOB   EQU   CVTMAP+00000012     FULLWORD POINTER                     19560000
       CVTBUF   EQU   CVTMAP+00000016     FULLWORD POINTER                     19570000
       CVTXAPG  EQU   CVTMAP+00000020     FULLWORD POINTER                     19580000
       CVT0VL00 EQU   CVTMAP+00000024     FULLWORD POINTER                     19590000
       CVTPCNVT EQU   CVTMAP+00000028     FULLWORD POINTER                     19600000
       CVTPRLTV EQU   CVTMAP+00000032     FULLWORD POINTER                     19610000
       CVTILK1  EQU   CVTMAP+00000036     FULLWORD POINTER                     19620000
       CVTILK2  EQU   CVTMAP+00000040     FULLWORD POINTER                     19630000
       CVTXTLER EQU   CVTMAP+00000044     FULLWORD POINTER                     19640000
       CVTSYSAD EQU   CVTMAP+00000048     FULLWORD POINTER                     19650000

       CVTBTERM EQU   CVTMAP+00000052     FULLWORD POINTER                     19660000
       CVTDATE  EQU   CVTMAP+00000056     4 BYTE(S)                            19670000
       CVTMSLT  EQU   CVTMAP+00000060     FULLWORD POINTER                     19680000

       CVTZDTAB EQU   CVTMAP+00000064     FULLWORD POINTER                     19690000
       CVTXITP  EQU   CVTMAP+00000068     FULLWORD POINTER                     19700000
       CVTDAR   EQU   CVTMAP+00000072     FULLWORD POINTER                     19710000
       CVT0FN00 EQU   CVTMAP+00000076     FULLWORD POINTER                     19720000
       CVTEXIT  EQU   CVTMAP+00000080     2 BYTE(S)                            19730000
       CVTBRET  EQU   CVTMAP+00000082     2 BYTE(S)                            19740000
       CVTSVDCB EQU   CVTMAP+00000084     FULLWORD POINTER                     19750000
       CVTTPC   EQU   CVTMAP+00000088     FULLWORD POINTER                     19760000
       CVTPBLDL EQU   CVTMAP+00000092     FULLWORD POINTER                     19770000
       CVTSJQ   EQU   CVTMAP+00000096     FULLWORD POINTER                     19780000
       CVTCUCB  EQU   CVTMAP+00000100     FULLWORD POINTER                     19790000
       CVTQTE00 EQU   CVTMAP+00000104     FULLWORD POINTER                     19800000

       CVTQTD00 EQU   CVTMAP+00000108     FULLWORD POINTER                     19810000
       CVTSTB   EQU   CVTMAP+00000112     FULLWORD POINTER                     19820000
       CVTDCB   EQU   CVTMAP+00000116     1 BYTE(S)                            19830000

       A00053   EQU   CVTMAP+00000116     1 BIT(S)                             19840000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0134


       CVT1SSS  EQU   CVTMAP+00000116     1 BIT(S)                             19850000
       CVT2SPS  EQU   CVTMAP+00000116     1 BIT(S)                             19860000
       CVT4MS1  EQU   CVTMAP+00000116     1 BIT(S)                             19870000
       A00054   EQU   CVTMAP+00000116     1 BIT(S)                             19880000
       CVT4MPS  EQU   CVTMAP+00000116     1 BIT(S)                             19890000
       A00055   EQU   CVTMAP+00000116     1 BIT(S)                             19900000
       A00056   EQU   CVTMAP+00000116     1 BIT(S)                             19910000
       CVTDCBA  EQU   CVTMAP+00000117     3  BYTE  POINTER ON WORD+1           19920000
       CVTIOQET EQU   CVTMAP+00000120     FULLWORD POINTER                     19930000
       CVTIXAVL EQU   CVTMAP+00000124     FULLWORD POINTER                     19940000

       CVTNUCB  EQU   CVTMAP+00000128     FULLWORD POINTER                     19950000
       CVTFBOSV EQU   CVTMAP+00000132     FULLWORD POINTER                     19960000
       CVT0DS   EQU   CVTMAP+00000136     FULLWORD POINTER                     19970000
       CVTILCH  EQU   CVTMAP+00000140     FULLWORD POINTER                     19980000

       CVTIERLC EQU   CVTMAP+00000144     FULLWORD POINTER                     19990000
       CVTMSER  EQU   CVTMAP+00000148     FULLWORD POINTER                     20000000
       CVT0PT01 EQU   CVTMAP+00000152     FULLWORD POINTER                     20010000
       CVTTRMTB EQU   CVTMAP+00000156     FULLWORD POINTER                     20020000
       CVTHEAD  EQU   CVTMAP+00000160     FULLWORD POINTER                     20030000
       CVTMZ00  EQU   CVTMAP+00000164     FULLWORD POINTER                     20040000
       CVT1EF00 EQU   CVTMAP+00000168     FULLWORD POINTER                     20050000
       CVTQOCR  EQU   CVTMAP+00000172     FULLWORD POINTER                     20060000
       CVTQMWR  EQU   CVTMAP+00000176     FULLWORD POINTER                     20070000
       CVTSNCTR EQU   CVTMAP+00000180     HALFWORD INTEGER                     20080000
       CVTOPTA  EQU   CVTMAP+00000182     1 BYTE(S)                            20090000
       CVTCCH   EQU   CVTMAP+00000182     1 BIT(S)                             20100000

       CVTAPR   EQU   CVTMAP+00000182     1 BIT(S)                             20110000
       CVTDDR   EQU   CVTMAP+00000182     1 BIT(S)                             20120000
       CVTNIP   EQU   CVTMAP+00000182     1 BIT(S)                             20130000

       CVTATTCH EQU   CVTMAP+00000182     1 BIT(S)                             20140000
       CVTHIAR  EQU   CVTMAP+00000182     1 BIT(S)                             20150000
       CVTASCII EQU   CVTMAP+00000182     1 BIT(S)                             20160000
       A00057   EQU   CVTMAP+00000182     1 BIT(S)                             20170000
       CVTOPTB  EQU   CVTMAP+00000183     1 BYTE(S)                            20180000
       CVTPROT  EQU   CVTMAP+00000183     1 BIT(S)                             20190000
       A00058   EQU   CVTMAP+00000183     1 BIT(S)                             20200000
       CVTTOD   EQU   CVTMAP+00000183     1 BIT(S)                             20210000
       A00059   EQU   CVTMAP+00000183     5 BIT(S)                             20220000
       CVTQCDSR EQU   CVTMAP+00000184     FULLWORD POINTER                     20230000
       CVTQLPAQ EQU   CVTMAP+00000188     FULLWORD POINTER                     20240000
       CVTMPCVT EQU   CVTMAP+00000192     FULLWORD POINTER                     20250000

       CVTSMCA  EQU   CVTMAP+00000196     FULLWORD POINTER                     20260000
       CVTABEND EQU   CVTMAP+00000200     FULLWORD POINTER                     20270000
       CVTUSER  EQU   CVTMAP+00000204     FULLWORD POINTER                     20280000
       CVTMDLDS EQU   CVTMAP+00000208     FULLWORD POINTER                     20290000

       CVTQABST EQU   CVTMAP+00000212     2 BYTE(S)                            20300000
       CVTLNKSC EQU   CVTMAP+00000214     2 BYTE(S)                            20310000
       CVTTSCE  EQU   CVTMAP+00000216     FULLWORD POINTER                     20320000
       CVTPATCH EQU   CVTMAP+00000220     FULLWORD POINTER                     20330000
       CVTRMS   EQU   CVTMAP+00000224     FULLWORD POINTER                     20340000
       CVTTSCVT EQU   CVTMAP+00000228     FULLWORD POINTER                     20350000
       CVTTSFLG EQU   CVTMAP+00000228     1 BYTE(S)                            20360000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0135


       CVTTSRDY EQU   CVTMAP+00000228     1 BIT(S)                             20370000
       A00060   EQU   CVTMAP+00000228     7 BIT(S)                             20380000
       CVTTSCVB EQU   CVTMAP+00000229     3  BYTE  POINTER ON WORD+1           20390000
       CVT0SCR1 EQU   CVTMAP+00000232     FULLWORD POINTER                     20400000

       CVTGTF   EQU   CVTMAP+00000236     FULLWORD POINTER                     20410000
       CVTGTFST EQU   CVTMAP+00000236     1 BYTE(S)                            20420000
       CVTGTFS  EQU   CVTMAP+00000236     2 BIT(S)                             20430000

       CVTSTATE EQU   CVTMAP+00000236     1 BIT(S)                             20440000
       CVTMODE  EQU   CVTMAP+00000236     1 BIT(S)                             20450000
       CVTFORM  EQU   CVTMAP+00000236     1 BIT(S)                             20460000
       CVTUSR   EQU   CVTMAP+00000236     1 BIT(S)                             20470000
       CVTMCTYP EQU   CVTMAP+00000236     1 BIT(S)                             20480000
       A00061   EQU   CVTMAP+00000236     1 BIT(S)                             20490000
       CVTCMT   EQU   CVTMAP+00000237     3  BYTE  POINTER ON WORD+1           20500000
       CVTAQAVT EQU   CVTMAP+00000240     FULLWORD POINTER                     20510000
       CVTTCMFG EQU   CVTMAP+00000240     1 BYTE(S)                            20520000
       CVTTCRDY EQU   CVTMAP+00000240     1 BIT(S)                             20530000
       A00062   EQU   CVTMAP+00000240     7 BIT(S)                             20540000
       CVTAQAVB EQU   CVTMAP+00000241     3  BYTE  POINTER ON WORD+1           20550000

       CVTTATA  EQU   CVTMAP+00000244     FULLWORD POINTER                     20560000
       CVTTSKS  EQU   CVTMAP+00000244     1  BYTE  POINTER                     20570000
       CVTTAT   EQU   CVTMAP+00000245     3  BYTE  POINTER ON WORD+1           20580000
       CVTATER  EQU   CVTMAP+00000248     FULLWORD POINTER                     20590000

       CVTSYST  EQU   CVTMAP+00000248     1  BYTE  POINTER                     20600000
       CVTATERA EQU   CVTMAP+00000249     3  BYTE  POINTER ON WORD+1           20610000
       A00063   EQU   CVTMAP+00000252     FULLWORD POINTER                     20620000
       A00064   EQU   CVTMAP+00000256     FULLWORD POINTER                     20630000
       CVTPURG  EQU   CVTMAP+00000260     FULLWORD POINTER                     20640000
       A00065   EQU   CVTMAP+00000260     1 BYTE(S)                            20650000
       CVTPURGA EQU   CVTMAP+00000261     3  BYTE  POINTER ON WORD+1           20660000
       A00066   EQU   CVTMAP+00000264     FULLWORD POINTER                     20670000
       CVTQMSG  EQU   CVTMAP+00000268     FULLWORD POINTER                     20680000
       A00067   EQU   CVTMAP+00000268     1 BYTE(S)                            20690000
       CVTQMSGA EQU   CVTMAP+00000269     3  BYTE  POINTER ON WORD+1           20700000
       CVTDMSR  EQU   CVTMAP+00000272     FULLWORD POINTER                     20710000

       A00068   EQU   CVTMAP+00000272     1 BYTE(S)                            20720000
       CVTDMSRA EQU   CVTMAP+00000273     3  BYTE  POINTER ON WORD+1           20730000
       A00069   EQU   00000184            8 BYTE(S) ON WORD                    20740000

       CVTCRTTR EQU   A00069+00000000     3 BYTE(S)                            20750000
       CVTSTUSA EQU   A00069+00000003     1 BYTE(S)                            20760000
       A00070   EQU   A00069+00000003     1 BIT(S)                             20770000
       A00071   EQU   A00069+00000003     1 BIT(S)                             20780000
       A00072   EQU   A00069+00000003     1 BIT(S)                             20790000
       A00073   EQU   A00069+00000003     1 BIT(S)                             20800000
       CVTCHPTR EQU   A00069+00000003     1 BIT(S)                             20810000
       CVTSTEPR EQU   A00069+00000003     1 BIT(S)                             20820000
       CVTDATA  EQU   A00069+00000003     1 BIT(S)                             20830000
       A00074   EQU   A00069+00000003     1 BIT(S)                             20840000
       A00075   EQU   A00069+00000004     2 BYTE(S)                            20850000
       A00076   EQU   A00069+00000006     2 BYTE(S)                            20860000

       CVTFIX   EQU   00000256            256 BYTE(S) ON WORD                  20870000
       A00077   EQU   CVTFIX+00000000     248 BYTE(S)                          20880000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0136


       A00078   EQU   CVTFIX+00000248     2 BYTE(S)                            20890000

       CVTMDL   EQU   CVTFIX+00000250     2 BYTE(S)                            20900000
       CVTRELNO EQU   CVTFIX+00000252     4 BYTE(S)                            20910000
                ENTRY IKJEFF5A                                                 20920000
       PSEUDO   EQU   00000000            FULLWORD INTEGER                     20930000
       HOLDINST EQU   *                   16 BYTE(S)                           20931000
                DC    C', IN HOLD STATUS'                                      20932000
                ORG   @DATA                                                    20940000
                DS    00000071C                                                20950000
       @L       EQU   3                                                        20960000
       @DATD    DSECT                                                          20970000
       @SAV001  EQU   @DATD+00000000      72 BYTE(S) ON WORD                   20980000
       SVCPTRS  EQU   @DATD+00000072      8 BYTE(S) ON WORD                    20990000

       TMCTADDR EQU   SVCPTRS+00000000    FULLWORD POINTER                     21000000
       PASSPARM EQU   SVCPTRS+00000004    FULLWORD POINTER                     21010000
       PARMLIST EQU   @DATD+00000080      20 BYTE(S) ON WORD                   21020000

       JOBLISTP EQU   PARMLIST+00000000   FULLWORD POINTER                     21030000
       NUMJOBSP EQU   PARMLIST+00000004   FULLWORD POINTER                     21040000
       SWITPTR  EQU   PARMLIST+00000008   FULLWORD POINTER                     21050000
       MSGRTNPT EQU   PARMLIST+00000012   FULLWORD POINTER                     21060000
       MSGPARMP EQU   PARMLIST+00000016   FULLWORD POINTER                     21070000
       PDECOUNT EQU   @DATD+00000100      HALFWORD INTEGER                     21080000
       SWITCHES EQU   @DATD+00000104      FULLWORD INTEGER                     21090000
       CANCELSW EQU   SWITCHES+00000000   1 BIT(S)                             21100000
       STATUSSW EQU   SWITCHES+00000000   1 BIT(S)                             21110000
       STATAUTO EQU   SWITCHES+00000000   1 BIT(S)                             21120000
       FOUND    EQU   SWITCHES+00000000   1 BIT(S)                             21130000
       RETSW    EQU   SWITCHES+00000000   1 BIT(S)                             21140000

       CPECB    EQU   @DATD+00000108      FULLWORD INTEGER                     21150000
       MSGPARM  EQU   @DATD+00000112      32 BYTE(S) ON WORD                   21160000
       MSGLISTP EQU   MSGPARM+00000000    FULLWORD POINTER                     21170000
       TMCTPTR  EQU   MSGPARM+00000004    FULLWORD POINTER                     21180000

       CECBPTR  EQU   MSGPARM+00000008    FULLWORD POINTER                     21190000
       CSECTPTR EQU   MSGPARM+00000012    FULLWORD POINTER                     21200000
       MSGRTNSW EQU   MSGPARM+00000016    1 BYTE(S)                            21210000
       REPLYP   EQU   MSGPARM+00000017    3  BYTE  POINTER ON WORD+1           21220000
       MSGID    EQU   MSGPARM+00000020    4 BYTE(S)                            21230000
       LENGTH1  EQU   MSGPARM+00000024    1  BYTE  POINTER                     21240000
       VARY1    EQU   MSGPARM+00000025    3  BYTE  POINTER ON WORD+1           21250000
       LENGTH2  EQU   MSGPARM+00000028    1  BYTE  POINTER                     21260000
       VARY2    EQU   MSGPARM+00000029    3  BYTE  POINTER ON WORD+1           21270000
       SAVE53   EQU   @DATD+00000144      FULLWORD POINTER                     21280000
       PPLPTR   EQU   @DATD+00000148      FULLWORD POINTER                     21290000
       PPLLN    EQU   @DATD+00000152      28 BYTE(S) ON WORD                   21300000

       PERMPDLP EQU   @DATD+00000180      FULLWORD POINTER                     21310000
       PREVPDEP EQU   @DATD+00000185      3  BYTE  POINTER ON WORD+1           21320000
       PDLPTR   EQU   @DATD+00000189      3  BYTE  POINTER ON WORD+1           21330000

       STPBPTR  EQU   @DATD+00000192      FULLWORD POINTER                     21340000
       IOPLPTR  EQU   @DATD+00000196      FULLWORD POINTER                     21350000
       STPBAREA EQU   @DATD+00000200      8 BYTE(S) ON WORD                    21360000
       LISTSIZE EQU   @DATD+00000208      FULLWORD INTEGER                     21370000
       LISTBIT1 EQU   LISTSIZE+00000000   1 BIT(S)                             21380000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0137


       ONECHARP EQU   @DATD+00000212      FULLWORD POINTER                     21390000
       COMMCODE EQU   @DATD+00000216      1  BYTE  POINTER                     21400000
       TOPLISTP EQU   @DATD+00000220      FULLWORD POINTER                     21410000
       EXITPARM EQU   @DATD+00000224      28 BYTE(S) ON WORD                   21420000
       JOBNMPTR EQU   EXITPARM+00000000   FULLWORD POINTER                     21430000
       NAMELENP EQU   EXITPARM+00000004   FULLWORD POINTER                     21440000

       USERIDPT EQU   EXITPARM+00000008   FULLWORD POINTER                     21450000
       IDLENPTR EQU   EXITPARM+00000012   FULLWORD POINTER                     21460000
       MESSAGEP EQU   EXITPARM+00000016   FULLWORD POINTER                     21470000

       REPLYPTR EQU   EXITPARM+00000020   FULLWORD POINTER                     21480000
       CCODEPTR EQU   EXITPARM+00000024   FULLWORD POINTER                     21490000
       VARCODE  EQU   @DATD+00000252      FULLWORD POINTER                     21500000
       LOOP     EQU   @DATD+00000256      FULLWORD INTEGER                     21510000
       K        EQU   @DATD+00000260      FULLWORD INTEGER                     21520000
       HSAVE14  EQU   @DATD+00000264      FULLWORD POINTER                     21520100
       HASPPARM EQU   @DATD+00000268      12 BYTE(S) ON WORD                   21520200
       HJOBNAME EQU   HASPPARM+00000000   8 BYTE(S)                            21520300
       HCALLER  EQU   HASPPARM+00000008   8 BIT(S)                             21520400
       HSTATUS  EQU   HASPPARM+00000008   1 BIT(S)                             21520500
       HCANCEL  EQU   HASPPARM+00000008   1 BIT(S)                             21520600
       A00055A  EQU   HASPPARM+00000009   1 BYTE(S)                            21520700

       HPASSBCK EQU   HASPPARM+00000010   8 BIT(S)                             21520800
       HINPUT   EQU   HASPPARM+00000010   1 BIT(S)                             21520900
       HOUTPUT  EQU   HASPPARM+00000010   1 BIT(S)                             21521000
       HACTIVE  EQU   HASPPARM+00000010   1 BIT(S)                             21521100

       HHELD    EQU   HASPPARM+00000010   1 BIT(S)                             21521200
       HDUP     EQU   HASPPARM+00000010   1 BIT(S)                             21521300
       HCANC    EQU   HASPPARM+00000010   1 BIT(S)                             21521400
       HNOTFND  EQU   HASPPARM+00000010   1 BIT(S)                             21521500
       A00056A  EQU   HASPPARM+00000010   1 BIT(S)                             21521600
       A00057A  EQU   HASPPARM+00000011   1 BYTE(S)                            21521700
       TEMPJOBN EQU   @DATD+00000280      8 BYTE(S)                            21521800
       TEMPJOBL EQU   @DATD+00000288      HALFWORD POINTER                     21521900
                DS    00000290C                                                21530000
       @TEMPS   DS    0F                                                       21540000
       @TEMP3   DC    F'0'                                                     21550000
       @TEMP4   DC    F'0'                                                     21560000

       @DATEND  EQU   *                                                        21570000
       IKJEFF50 CSECT ,                                                        21580000
       @9E7     EQU   @EL01                                                    21590000

                END                                                            21600000
IEB817I MEMBER NAME (IKJEFF50) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0138


       ./ ADD  NAME=IKJEFF55
          TITLE 'IKJEFF55'                                                     00100501
       **********************************************************************  00100620
       *                                                                    *  00100820
       *             IKJEFF55 - MESSAGE CSECT                               *  00101220
       *                                                                    *  00101620
       * STATUS:                                                            *  00101720
       *    CHANGE LEVEL 000                                                *  00101820
       *                                                                    *  00103701

       *                                                                    *  00106301
       * FUNCTION:                                                          *  00108201
       *    THIS MODULE CONTAINS THE MESSAGES FOR THE CANCEL/STATUS CP.     *  00110101
       *    THE MESSAGES ARE CODED USING THE 'IKJTSMSG'                     *  00112001

       *    MACRO AND ARE PROCESSED BY MODULE IKJEFF02.  (SEE SUBMIT        *  00113901
       *    CP FOR IKJEFF02)                                                *  00115801
       *                                                                    *  00117701
       * ENTRY POINTS:                                                      *  00119601
       *         IKJEFF55 - IKJEFF02 SEARCHES FOR THE MESSAGE TEXT TO BE    *  00121501
       *         PUT OUT TO THE TERMINAL.                                   *  00123401
       *                                                                    *  00125301
       * INPUT:                                                             *  00127201
       *    NONE                                                            *  00129101
       *                                                                    *  00131001
       * OUTPUT:                                                            *  00132901
       *    NONE                                                            *  00134801

       *                                                                    *  00136701
       * EXTERNAL REFERENCES:                                               *  00138601
       *         NONE                                                       *  00140501

       *                                                                    *  00142401
       * EXITS,NORMAL:                                                      *  00144301
       *         NONE                                                       *  00146201
       *                                                                    *  00148101
       * EXITS,ERROR:                                                       *  00150001
       *         NONE                                                       *  00151901
       *                                                                    *  00153801
       * TABLES/WORK AREAS:                                                 *  00155701
       *    NONE                                                            *  00157601
       *                                                                    *  00159501
       * ATTRIBUTES:                                                        *  00161401
       *    REENTRANT AND REFRESHABLE                                       *  00163301

       *                                                                    *  00165201
       * NOTES:                                                             *  00167101
       *    CHARACTER CODE DEPENDENCY -                                     *  00169001
       *    EBCDIC CHARACTER SET USED IN ASSEMBLING.                        *  00170901

       *    MODULE MUST BE REASSEMBLED IF A DIFFERENT CHARACTER SET IS USED.*  00172801
       *                                                                    *  00174701
       *    PTM/APAR HISTORY:                                               *  00174801
       *       RELEASE 1 - A43607,YM2818                                    *  00174901
       *                                                                    *  00175101
       **********************************************************************  00176601
       IKJEFF55 CSECT                                                          00178501
       CS200I IKJTSMSG (' THIS IS LEVEL NUMBER 200'),200I                      00184020
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0139


       CS202I IKJTSMSG ('IKJ56202I JOB ',,' NOT FOUND'),202I                   00192020
       C204I  IKJTSMSG ('IKJ56204I JOB QUEUE I/O ERROR '),204I                 00250020
       Q1     IKJTSMSG ('IKJ56207I COMMAND NOT AUTHORIZED+'),Q1                00350020

       C207I  IKJTSMSG ('IKJ56207I YOUR INSTALLATION MUST AUTHORIZE USE OF THIX00360020
                      S COMMAND'),207I,Q1                                      00370020
       C208I  IKJTSMSG ('IKJ56208I ',),208I                                    00420020

       C208A  IKJTSMSG ('IKJ56208A ',,'+'),208A,R1                             00430020
       R1     IKJTSMSG ('IKJ56208A ENTER REPLY FOR INSTALLATION EXIT'),R1      00440020
       S209I  IKJTSMSG ('IKJ56209I JOB ',,' WAITING FOR READER'),209I          00550001
       S210I  IKJTSMSG ('IKJ56210I JOB ',,' WAITING FOR INITIATOR',),210I      00600001
       *                                                                YM2818 00610001
       S211I  IKJTSMSG ('IKJ56211I JOB ',,' EXECUTING',),211I           YM2818 00650001
       S212I  IKJTSMSG ('IKJ56212I JOB ',,' ON HOLD QUEUE'),212I               00700020
       S213I  IKJTSMSG ('IKJ56213I JOB ',,' COMPLETED, WAITING FOR',          X00750020
                      ' WRITER'),213I                                          00800020
       C215I  IKJTSMSG ('IKJ549I CANCEL ',,' ',),215I                   A43607 00860001
       M216I  IKJTSMSG ('IKJ56216I NO JOBS FOUND'),216I                        00900020
       S1     IKJTSMSG ('IKJ56217I COMMAND SYSTEM ERROR+'),S1                  00910020

       CS217I IKJTSMSG ('IKJ56217I PARSE ERROR CODE ',),217I,S1                00920020
       C218I  IKJTSMSG ('IKJ56218I MISSING REPLY FOR ''',,''' FROM EXIT'),218I 00922020
       C219I  IKJTSMSG ('IKJ56219I UNABLE TO DIAGNOSE EXIT RETURN CODE ',),219X00930020
                      I                                                        00940020

       C220I  IKJTSMSG ('IKJ56220I DUPLICATE JOBS FOUND FOR JOBNAME ',,' ON HAX00942001
                      SP QUEUES - NONE CANCELLED'),220I                 Y01120 00944001
       S221I  IKJTSMSG ('IKJ56221I DUPLICATE JOBS FOUND FOR JOBNAME ',,' ON HAX00946001
                      SP QUEUES'),221I                                  Y01120 00948001
       S222I  IKJTSMSG ('IKJ56222I JOB ',,' ON OUTPUT QUEUE',),222I     YM2818 00948401
       CSEND  IKJTSMSG                                                         00950020
            END                                                                01000020
IEB817I MEMBER NAME (IKJEFF55) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0140


       ./ ADD  NAME=IKJTSMSG
                MACRO                                                          02000020
       &MESS    IKJTSMSG  &PARTS,&ID,&SECID                                    04000020

                LCLA  &A                                                       06000020
                LCLA  &B                                                       08000020
                LCLA  &C                                                       10000020

                LCLC  &LP                                                      12000020
                LCLC  &LEN                                                     14000020
                SPACE 2                                                        16000020
       &A       SETA  1                                                        18000020
       &B       SETA  N'&PARTS                                                 20000020
       &LEN     SETC  'A'.'&SYSNDX'                                            22000020
                AIF   (T'&ID NE 'O').PRID                                      24000020
                AIF   (T'&PARTS NE 'O').ID                                     26000020
                DC    CL4'    '           INDICATES END OF MSG CSECT           28000020
                AGO   .OUT                                                     30000020
       .ID      ANOP                                                           32000020
                MNOTE 8,'SPECIFY MESSAGE ID'                                   34000020

       .PRID    ANOP                                                           36000020
       &MESS    DC    CL4'&ID'            ID                                   38000020
                AIF   (T'&SECID NE 'O').SECOND                                 40000020
                DC    CL4'    '           NO FOLLOWING MESSAGE                 42000020

                AGO   .NB                                                      44000020
       .SECOND  ANOP                                                           46000020
                DC    CL4'&SECID'         ID OF FOLLOWING MSG                  48000020
       .NB      ANOP                                                           50000020
                DC    AL2(&LEN-*+8)       TOTAL LENGTH                         52000020
                DC    AL1(&B)             NB OF PARTS TO MSG                   54000020
       .LOOP    ANOP                                                           56000020
                AIF   (T'&PARTS(&A) NE 'O').SKP                                58000020
                DC    AL1(0)              A VARIABLE                           60000020
                AGO   .INC                                                     62000020
       .SKP     ANOP                                                           64000020
       &LP  SETC  '&LEN'.'&A'                                                  66000020

                DC    AL1(&LP-*-1)        LENGTH OF MSG PART                   68000020
                AIF   ('&PARTS(&A)'(1,1) EQ '''').QUO                          70000020
                MNOTE 12,'QUOTES MISSING ON OPERAND'                           72000020

       .QUO     ANOP                                                           74000020
                DC    C&PARTS(&A)         MSG PART                             76000020
       &LP      EQU   *                                                        78000020
       .INC     ANOP                                                           80000020
       &A       SETA  &A+1                                                     82000020
                AIF   (&A LE N'&PARTS).LOOP                                    84000020
       &LEN     EQU   *                                                        86000020
       .OUT     ANOP                                                           88000020
                SPACE 4                                                        90000020
                MEND                                                           92000020
IEB817I MEMBER NAME (IKJTSMSG) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0141



       ./ ADD  NAME=IECXCP
       *    ATTN TABLE INDEX FOR HASP                                 @THAS801 10984019
       UCBHASP  EQU   X'01' .                  HASP PSEUDO-DEVICE     @THAS801 10985019
                SPACE 1 .                                             @THAS801 10986019

       INVHSP   EQU   X'10' .             ABEND CODE FOR INVALID HASP @THAS801 25612101
       **  This line deleted by ------------------------------------- @THAS801 35220021
       **  This line deleted by ------------------------------------- @THAS801 35280021
       **  This line deleted by ------------------------------------- @THAS801 35340021
       **  This line deleted by ------------------------------------- @THAS801 35400021
       **  This line deleted by ------------------------------------- @THAS801 35460021
       **  This line deleted by ------------------------------------- @THAS801 35520021
                TM    UCBATI(UCBREG),UCBHASP . PSEUDO DEVICE?         @THAS801 35580021
                BC    8,XCP061C1 .             NO                     @THAS801 35600021
                L     APBSRG,AHASPE .          GET HASP ROUTINE       @THAS801 35620021
                BALR  LNKRG2,APBSRG .          LINK TO HASP           @THAS801 35640021
       *****     HASP RETURNS          *******************************@THAS801 35660021

                B     XCP021 .                 NORMAL: IGNORE REQUEST @THAS801 35680021
                B     XERX02F1 .               ERROR:  ABEND WITH 100 @THAS801 35700021
       ***************************************************************@THAS801 35720021

       XCP061C1 DS    0H .                                            @THAS801 35740021
IEB817I MEMBER NAME (IECXCP  ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0142


       ./ ADD  NAME=IECIOS
       4ERX02F1 MVI   CODEDUMP,INVHSP .   INVALID HASP                @THAS801 09043201
                L     APBSRG,IECPL2 .     GET TEMPORARY BASE REGISTER @THAS801 09043301
                B     XERX02A .           HANDLE THE ERROR            @THAS801 09043401
       AHASPE   DC    V(IECHASPE) .       HASP EXCP ROUTINE           @THAS801 74220001
IEB817I MEMBER NAME (IECIOS  ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0143


       ./ ADD  NAME=IECIUCB
       .******* Start of code for HASP pseudo-device support ******** @THAS803 18150200

                AIF   ('&TYPE' NE 'SUD').NOTSUD                     * @THAS803 18150201
                DC    AL1(&STATAB,&LCHN),XL2'0100'  STAT,LCH,ATN,CK * @THAS803 18150202
                DC    CL3'&DEVADDR',XL4'&TYPEA',F'0'                * @THAS803 18150203

                AGO   .END                                          * @THAS803 18150204
       .NOTSUD  ANOP                                                * @THAS803 18150205
       .******* End of code for HASP pseudo-device support ********** @THAS803 18150206
IEB817I MEMBER NAME (IECIUCB ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0144


       ./ ADD  NAME=IODEVICE
       .******* Start of code for HASP pseudo-device support ******** @THAS803 07000200
                AIF   (K'&UNIT LT 5).IUN99    GREATER THAN 5 CHAR?  * @THAS803 07000201
                AIF   ('&UNIT'(1,5) EQ 'HASP-').IUN01 GO IF HASP DEV* @THAS803 07000202
       .IUN99   ANOP                                                * @THAS803 07000203
       .******* End of code for HASP pseudo-device support ********** @THAS803 07000204
       .******* Start of code for HASP pseudo-device support ******** @THAS803 07140200

       .IUN01   ANOP                     **** HASP PSUDO DEVICES **** @THAS803 07140201
       &UNPSUDO(&I) SETB 1               INDICATE PSUDO DEVICE.     * @THAS803 07140202
                AIF   (K'&UNIT NE 9).IUN10    LOOK FOR 10 BYTE TYPES* @THAS803 07140203
       &OA      SETC  '&UNIT'(6,4)                                  * @THAS803 07140204

                AIF   ('&OA' NE '1442').IUN02      NOT 1442         * @THAS803 07140205
       &SGDEVTP(&I) SETA 3               SET LOW BYTE DEV TYPE      * @THAS803 07140206
                MNOTE *,'     HASP 1442 PUNCH'                      * @THAS803 07140207
                AGO   .IUN90                                        * @THAS803 07140208
       .IUN02   AIF   ('&OA' NE '2520').IUN03                       * @THAS803 07140209
       &SGDEVTP(&I) SETA 5                                          * @THAS803 07140210
                MNOTE *,'     HASP 2520 PUNCH'                      * @THAS803 07140211
                AGO   .IUN90                                        * @THAS803 07140212
       .IUN03   AIF   ('&OA' NE '1403').IUN04                       * @THAS803 07140213
       &SGDEVTP(&I) SETA 8                                          * @THAS803 07140214
                MNOTE *,'     HASP 1403 PRINTER'                    * @THAS803 07140215
                AGO   .IUN90                                        * @THAS803 07140216

       .IUN04   AIF   ('&OA' NE '1443').IUN99                       * @THAS803 07140217
       &SGDEVTP(&I) SETA 10                                         * @THAS803 07140218
                MNOTE *,'     HASP 1443 PRINTER'                    * @THAS803 07140219

                AGO   .IUN90                                        * @THAS803 07140220
       .IUN10   AIF   (K'&UNIT NE 10).IUN99   INVALID DEV TYPE.     * @THAS803 07140221
       &OA      SETC  '&UNIT'(6,5)                                  * @THAS803 07140222
                AIF   ('&OA' NE '2540R').IUN11                      * @THAS803 07140223
       &SGDEVTP(&I) SETA 1                                          * @THAS803 07140224
                MNOTE *,'     HASP 2540 READER '                    * @THAS803 07140225
                AGO   .IUN90                                        * @THAS803 07140226
       .IUN11   AIF   ('&OA' NE '2540P').IUN99                      * @THAS803 07140227
       &SGDEVTP(&I) SETA 2                                          * @THAS803 07140228
                MNOTE *,'     HASP 2540 PUNCH  '                    * @THAS803 07140229
       .IUN90   ANOP                                                * @THAS803 07140230
       &SGETABA(&I) SETA &SGDEVTP(&I)   SET DEV TYP LOW BYTE.       * @THAS803 07140231

       &SGDEVTP(&I) SETA X'500008'           SET DEV TYP HIGH BYTES.* @THAS803 07140232
       &SGDEVB(1) SETB 1  SET FOR DEV TAB INSP                      * @THAS803 07140233
                AGO   .DD     HANDLE SAME AS DUMMY DEVICE.          * @THAS803 07140234
       .******* End of code for HASP pseudo-device support ********** @THAS803 07140235

IEB817I MEMBER NAME (IODEVICE) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0145


       ./ ADD  NAME=SGIEC202
       .******* Start of code for HASP pseudo-device support ******** @THAS803 08920200
                AIF   (NOT &UNPSUDO(&COUNTB)).IUNX1                 * @THAS803 08920201
       &THISDEV SETC  'DUM'              CALL IT A DUMMY DEVICE.    * @THAS803 08920202
                AGO   .QOPCK                                        * @THAS803 08920203
       .IUNX1   ANOP                                                * @THAS803 08920204
       .******* End of code for HASP pseudo-device support ********** @THAS803 08920205
       .******* Start of code for HASP pseudo-device support ******** @THAS803 14070200
                AIF   (NOT &UNPSUDO(&COUNTB)).IUNX2                 * @THAS803 14070201
       &TYPC    SETC  'SUD'         INDICATE PSUDO DEV FOR UCB MACRO* @THAS803 14070202

       .IUNX2   ANOP                                                * @THAS803 14070203
       .******* End of code for HASP pseudo-device support ********** @THAS803 14070204
       .******* Start of code for HASP pseudo-device support ******** @THAS803 14100200

                AIF   ('&TYPC' NE 'SUD').IUNX3                      * @THAS803 14100201
       &TYPC    SETC  'DUM'         SET IT BACK TO DUMMY DEV TYPE.  * @THAS803 14100202
       .IUNX3   ANOP                                                * @THAS803 14100203
       .******* End of code for HASP pseudo-device support ********** @THAS803 14100204
IEB817I MEMBER NAME (SGIEC202) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0146


       ./ ADD  NAME=SGGBLPAK
        GBLA &SGTESTA(2),&HEX,&SGCTRLA(2),&SGFORTA(8),&SGSUPRA(2)              00160020
        GBLA &SGUNNMA(514),&SGCNTRA(10),&SGDADRA(768),&SGCBLEA(2)              00180095
        GBLA &SGCPRGA(23),&SGOPCHA,&SGDASDA,&SGACTR                            00200095
        GBLA &IEALOA,&IEAHIA,&IEALMTA,&SGPL11A(10),&SGSTMGA,&SGMAXDV           00240000
        GBLA &SGCBLFA(3),&SGMAXA(3),&SGFORLA(5),&SGCBLUA(3)                    00280018

        GBLA &SGSCHDA(20),&SGUTSZA,&SGALGOA(1),&SG2314A,&SG5450A,&SGSCNYA(2)   00320021
        GBLA &SGSCHAA(12),&SGSCNPA(31),&SGAR01A(31),&SGAR02A(31),&SGAR03A(31)  00324021
        GBLA &SGAR04A(31),&SGAR05A(31),&SGAR06A(31),&SGAR07A(31),&SGAR08A(31)  00324821
        GBLA &SGAR09A(31),&SGAR10A(31),&SGAR11A(31),&SGAR12A(31)               00325621

        GBLA &SG3330A,&SG2305A,&SGTGRIA(32),&SGTGROA(32)                       00332021
        GBLA &SG3505A,&SG3525A                                                 00336021
        GBLA &SGCKPA(6),&SG2321A,&SG2311A,&SGLDRA,&SGCPRNA(1),&SGBSCA          00360019
        GBLA &SGCPRPA(104),&SGLINKA(8),&SGSCNXA,&SGSCNZA                       00400017
        GBLA &SGDNBFA(768),&SGDEVTP(768),&SGETABA(768)                         00410095
        GBLA &SGCUN1A(255)                                                     00420095
        GBLA &SGGJUA(15),&SGGJCA(11)                                           00430095
        GBLA &SGEDITA(25),&SGTSOPA(4),&SGMODA(1),&SGEDT2A(25),&SGEDT3A(25)     00449421
        GBLA &SGEDT4A(25),&SGEDT5A(25)                                         00453221
        GBLB &SGGJCB(8),&SGLDRB(5)                                             00460095
        GBLB &SGCHANB(240),&SGQUITB,&SGMENTB(89),&SGSUPRB(48),&SGCPRGB(14)     00470000
        GBLB &SGUNU1B(255),&SGUNU2B(255),&SGUNU3B(255),&SGUNU4B(255)           00480095

        GBLB &SGUNU5B(255),&SGUNU6B(255),&SGUNU7B(255),&SGUNU8B(255)           00500095
        GBLB &SGUNM1B(255),&SGUNM2B(255),&SGUNM3B(255),&SGUNM4B(255)           00520095
        GBLB &SGUNM6B(255),&SGUNF4B(255),&SGUNF5B(255),&SGUNT3B(255)           00540095

        GBLB &SGUNF6B(255)                                                     00560095
        GBLB &SGUNF1B(255),&SGUNF2B(255),&SGUNF3B(255),&SGUNM5B(255)           00580095
        GBLB &SGUNT1B(255),&SGUNT2B(255),&SGTESTB(6)                           00600095
        GBLB &SGSCHDB(44),&SGDMGTB(5),&SGCPUB(54),&SGSTMGB(17),&SGDCLSB(83)    00690021
        GBLB &SGUCSIB(12),&SGUCSDB(12),&SGCKPB(56),&SGCBLUB(24)                00710017
        GBLB &SGUCSEB(2),&SG2CSIB(5),&SG2CSDB(5)                               00716020
        GBLB &SGDT01B(768),&SGDT02B(768),&SGDT03B(768),&SGDT04B(768),&LIMIT(4) 00720095
        GBLB &SGDT05B(768),&SGDT06B(768),&SGDT07B(768),&SGDT08B(768)           00730095
        GBLB &SGDT12B(768),&SG3410B(768)                                       00740095
        GBLB  &SGBRSTB(16)                                                     00750095
        GBLB &SGDU01B(768),&SGDU02B(768),&SGDU03B(768),&SGDU04B(768)           00760095
        GBLB &SGDU05B(768),&SGDU06B(768),&SGDU07B(768),&SGDU08B(768)           00770095

        GBLB &SGDU09B(768),&SGDU10B(768),&SGDU11B(768)                         00780095
        GBLB &SGDM01B(768),&SGDM02B(768),&SGDM03B(768),&SGDM04B(768)           00790095
        GBLB &SGDM05B(768),&SGDM06B(768),&SGDM07B(768),&SGDM08B(768)           00800095
        GBLB &SGDM09B(768),&SGOPSUB(768),&SG2321B(768),&SGDASWB(768)           00810095

        GBLB &SGDF01B(768),&SGDF02B(768),&SGDF03B(768),&SGDF04B(768)           00820095
        GBLB &SGDF05B(768),&SGDF06B(768),&SGDF07B(768),&SGDF08B(768)           00830095
        GBLB &SGDF09B(768),&SGDF10B(768),&SGDF11B(768),&SGDF12B(768)           00840095
        GBLB &SGDF13B(768),&SGDF14B(768),&SGDF15B(768)                         00850095
        GBLB &SGDAP1B(768),&SGDAP2B(768),&SGDAP3B(768)                         00860095
        GBLB &SGDAP4B(768),&SGDAP5B(768),&SGDAP6B(768),&SGDRQ1B(768)           00870095
        GBLB &SGDAP7B(768),&SGDAP8B(768),&SGDAP9B(768),&SGDAPAB(768)           00880095
        GBLB &SGDAPBB(768),&SGDAPCB(768),&SGDAPDB(768),&SGDAPEB(768)           00900095
        GBLB &SGDAPFB(768)                                                     00920095
        GBLB &SGDRQ2B(768)                                                     00940095
        GBLB &SGDAD1B(768),&SGDAD2B(768),&SGDAD3B(768),&SGDAD4B(768)           00960095
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0147



        GBLB &SGDAD5B(768),&SGDAD6B(768),&SGDAD7B(768),&SGDAD8B(768)           00980095
        GBLB &SGDSQ1B(768),&SGDSQ2B(768),&SGTRMDB(768),&SGSVCAB(255)           01000095
        GBLB &SGCOBLB(4),&SGSVCBB(255),&SGSVCCB(255),&SGSVCDB(255),&SGMALB(11) 01040021

        GBLB &SGSVCEB(255),&SGSVCFB(255),&SGFORTB(52),&SGLINKB(19),&SGCBLEB(6) 01080019
        GBLB &SGCBLFB(11),&SGLOADB(3),&SGOVERB(4),&SGASSEB(3),&SGPL11B(160)    01120000
        GBLB &SGCTRLB(16),&GETB(3),&SGFORLB(5),&SGGRPHB(4),&SGALGOB(5)         01160018
        GBLB &SGCHK1B(2),&SGPTOPB(1),&SGNODEV,&SGMOD1B(5),&SGMOD2B(5)          01183017
        GBLB  &SGMOD3B(5),&SGMOD4B(5),&SGMOD5B(5),&SGMOD6B(5)                  01189021
        GBLB &SGMOD7B(5),&SGMOD8B(5),&SGMOD9B(5),&SGMODAB(5),&SGMODBB(5)       01191400
        GBLB &SGSIZ1B(5),&SGSIZ2B(5),&SGSIZ3B(5),&SGSIZ4B(5),&SGSIZ5B(5)       01195000
        GBLB &SGSIZ6B(5),&SGSIZ7B(5),&SGSIZ8B(5),&SGSIZ9B(5),&SGSIZ0B(5)       01197000
        GBLB &SGEMULB(1),&SGUTILB(3)                                           01199000
        GBLB &SGSER1B(5),&SGSER2B(5),&SGSER3B(5),&SGSER4B(5),&SGMCSTB(4)       01201017
        GBLB &SGSCHRB(16),&SGSCHOB(16),&SGSCHHB(16),&SGLCPB(1)                 01208018
            GBLB &SGCKPLB(4),&SGCKFTB(4)                                       01210019

        GBLB &SGRT01B(31),&SGRT02B(31),&SGRT03B(31),&SGRT04B(31),&SGRT05B(31)  01212017
        GBLB &SGRT06B(31),&SGRT07B(31),&SGRT08B(31),&SGRT09B(31),&SGRT10B(31)  01214017
        GBLB &SGRT11B(31),&SGRT12B(31),&SGRT13B(31),&SGRT14B(31),&SGRT15B(31)  01216017
        GBLB &SGRT16B(31),&SGCMD1B(31),&SGCMD2B(31),&SGCMD3B(31),&SGCMD4B(31)  01218017

        GBLB &SGSCSDB(31),&SGSCMSB(31)                                         01218821
        GBLB &SGDUMMY(768),&SGDEVB(1),&SGTYPEB(96)                             01220095
                GBLB  &UNPSUDO(768)                                   @THAS803 01230296
                GBLB  &SGITELB(8)                                       ITEL   01230496
        GBLC &SGGJCC(11),&SGLDRC(3)                                            01240095
        GBLC &SGRESMC(11),&SGUNNMC(100),&SGCTRLC(66)                           01260095
        GBLC &SGCPRGC(26)                                                      01280017
        GBLC &SGSCHDC(15),&EBCDIC,&SGLNKLC(21),&SGSVCLC(51)                    01300095
        GBLC &SGCNTRU,&SGSCNCC(31),&SGSCNAC(31)                                01320095
        GBLC &SGCLASC(1),&SGEDITC(25),&SGEDT2C(25),&SGEDT3C(25),&SGEDT4C(25)   01331021
        GBLC &SGEDT5C(25),&SGEDT6C(25),&SGEDT7C(25)                            01333421
IEB817I MEMBER NAME (SGGBLPAK) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0148


       ./ ADD  NAME=SGPAK248
        GBLA &SGTESTA(2),&HEX,&SGCTRLA(2),&SGFORTA(8),&SGSUPRA(2)              00160020

        GBLA &SGUNNMA(255),&SGCNTRA(10),&SGDADRA(248),&SGCBLEA(2)              00180095
        GBLA &SGCPRGA(23),&SGOPCHA,&SGDASDA,&SGACTR                            00200095
        GBLA &IEALOA,&IEAHIA,&IEALMTA,&SGPL11A(10),&SGSTMGA,&SGMAXDV           00240000
        GBLA &SGCBLFA(3),&SGMAXA(3),&SGFORLA(5),&SGCBLUA(3)                    00280018
        GBLA &SGSCHDA(20),&SGUTSZA,&SGALGOA(1),&SG2314A,&SG5450A,&SGSCNYA(2)   00320021
        GBLA &SGSCHAA(12),&SGSCNPA(31),&SGAR01A(31),&SGAR02A(31),&SGAR03A(31)  00324021
        GBLA &SGAR04A(31),&SGAR05A(31),&SGAR06A(31),&SGAR07A(31),&SGAR08A(31)  00324821
        GBLA &SGAR09A(31),&SGAR10A(31),&SGAR11A(31),&SGAR12A(31)               00325621
        GBLA &SG3330A,&SG2305A,&SGTGRIA(32),&SGTGROA(32)                       00332021
        GBLA &SG3505A,&SG3525A                                                 00336021
        GBLA &SGCKPA(6),&SG2321A,&SG2311A,&SGLDRA,&SGCPRNA(1),&SGBSCA          00360019
        GBLA &SGCPRPA(104),&SGLINKA(8),&SGSCNXA,&SGSCNZA                       00400017

        GBLA &SGDNBFA(248),&SGDEVTP(248),&SGETABA(248)                         00410095
        GBLA &SGCUN1A(80)                                                      00420095
        GBLA &SGGJUA(15),&SGGJCA(11)                                           00430095

        GBLA &SGEDITA(25),&SGTSOPA(4),&SGMODA(1),&SGEDT2A(25),&SGEDT3A(25)     00449421
        GBLA &SGEDT4A(25),&SGEDT5A(25)                                         00453221
        GBLB &SGGJCB(8),&SGLDRB(5)                                             00460095
        GBLB &SGCHANB(240),&SGQUITB,&SGMENTB(89),&SGSUPRB(48),&SGCPRGB(14)     00470000
        GBLB &SGUNU1B(80),&SGUNU2B(80),&SGUNU3B(80),&SGUNU4B(80)               00480095
        GBLB &SGUNU5B(80),&SGUNU6B(80),&SGUNU7B(80),&SGUNU8B(80)               00500095
        GBLB &SGUNM1B(80),&SGUNM2B(80),&SGUNM3B(80),&SGUNM4B(80)               00520095
        GBLB &SGUNM6B(80),&SGUNF4B(80),&SGUNF5B(80),&SGUNT3B(80)               00540095
        GBLB &SGUNF6B(80)                                                      00560095
        GBLB &SGUNF1B(80),&SGUNF2B(80),&SGUNF3B(80),&SGUNM5B(80)               00580095
        GBLB &SGUNT1B(80),&SGUNT2B(80),&SGTESTB(6)                             00600095
        GBLB &SGSCHDB(44),&SGDMGTB(5),&SGCPUB(54),&SGSTMGB(17),&SGDCLSB(83)    00690021

        GBLB &SGUCSIB(12),&SGUCSDB(12),&SGCKPB(56),&SGCBLUB(24)                00710017
        GBLB &SGUCSEB(2),&SG2CSIB(5),&SG2CSDB(5)                               00716020
        GBLB &SGDT01B(248),&SGDT02B(248),&SGDT03B(248),&SGDT04B(248),&LIMIT(4) 00720095
        GBLB &SGDT05B(248),&SGDT06B(248),&SGDT07B(248),&SGDT08B(248)           00730095

        GBLB &SGDT12B(248),&SG3410B(248)                                       00740095
        GBLB  &SGBRSTB(16)                                                     00750095
        GBLB &SGDU01B(248),&SGDU02B(248),&SGDU03B(248),&SGDU04B(248)           00760095
        GBLB &SGDU05B(248),&SGDU06B(248),&SGDU07B(248),&SGDU08B(248)           00770095
        GBLB &SGDU09B(248),&SGDU10B(248),&SGDU11B(248)                         00780095
        GBLB &SGDM01B(248),&SGDM02B(248),&SGDM03B(248),&SGDM04B(248)           00790095
        GBLB &SGDM05B(248),&SGDM06B(248),&SGDM07B(248),&SGDM08B(248)           00800095
        GBLB &SGDM09B(248),&SGOPSUB(248),&SG2321B(248),&SGDASWB(248)           00810095
        GBLB &SGDF01B(248),&SGDF02B(248),&SGDF03B(248),&SGDF04B(248)           00820095
        GBLB &SGDF05B(248),&SGDF06B(248),&SGDF07B(248),&SGDF08B(248)           00830095
        GBLB &SGDF09B(248),&SGDF10B(248),&SGDF11B(248),&SGDF12B(248)           00840095
        GBLB &SGDF13B(248),&SGDF14B(248),&SGDF15B(248)                         00850095

        GBLB &SGDAP1B(248),&SGDAP2B(248),&SGDAP3B(248)                         00860095
        GBLB &SGDAP4B(248),&SGDAP5B(248),&SGDAP6B(248),&SGDRQ1B(248)           00870095
        GBLB &SGDAP7B(248),&SGDAP8B(248),&SGDAP9B(248),&SGDAPAB(248)           00880095

        GBLB &SGDAPBB(248),&SGDAPCB(248),&SGDAPDB(248),&SGDAPEB(248)           00900095
        GBLB &SGDAPFB(248)                                                     00920095
        GBLB &SGDRQ2B(248)                                                     00940095
        GBLB &SGDAD1B(248),&SGDAD2B(248),&SGDAD3B(248),&SGDAD4B(248)           00960095
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0149


        GBLB &SGDAD5B(248),&SGDAD6B(248),&SGDAD7B(248),&SGDAD8B(248)           00980095
        GBLB &SGDSQ1B(248),&SGDSQ2B(248),&SGTRMDB(248),&SGSVCAB(255)           01000095
        GBLB &SGCOBLB(4),&SGSVCBB(255),&SGSVCCB(255),&SGSVCDB(255),&SGMALB(11) 01040021
        GBLB &SGSVCEB(255),&SGSVCFB(255),&SGFORTB(52),&SGLINKB(19),&SGCBLEB(6) 01080019
        GBLB &SGCBLFB(11),&SGLOADB(3),&SGOVERB(4),&SGASSEB(3),&SGPL11B(160)    01120000
        GBLB &SGCTRLB(16),&GETB(3),&SGFORLB(5),&SGGRPHB(4),&SGALGOB(5)         01160018
        GBLB &SGCHK1B(2),&SGPTOPB(1),&SGNODEV,&SGMOD1B(5),&SGMOD2B(5)          01183017

        GBLB  &SGMOD3B(5),&SGMOD4B(5),&SGMOD5B(5),&SGMOD6B(5)                  01189021
        GBLB &SGMOD7B(5),&SGMOD8B(5),&SGMOD9B(5),&SGMODAB(5),&SGMODBB(5)       01191400
        GBLB &SGSIZ1B(5),&SGSIZ2B(5),&SGSIZ3B(5),&SGSIZ4B(5),&SGSIZ5B(5)       01195000
        GBLB &SGSIZ6B(5),&SGSIZ7B(5),&SGSIZ8B(5),&SGSIZ9B(5),&SGSIZ0B(5)       01197000

        GBLB &SGEMULB(1),&SGUTILB(3)                                           01199000
        GBLB &SGSER1B(5),&SGSER2B(5),&SGSER3B(5),&SGSER4B(5),&SGMCSTB(4)       01201017
        GBLB &SGSCHRB(16),&SGSCHOB(16),&SGSCHHB(16),&SGLCPB(1)                 01208018
            GBLB &SGCKPLB(4),&SGCKFTB(4)                                       01210019
        GBLB &SGRT01B(31),&SGRT02B(31),&SGRT03B(31),&SGRT04B(31),&SGRT05B(31)  01212017
        GBLB &SGRT06B(31),&SGRT07B(31),&SGRT08B(31),&SGRT09B(31),&SGRT10B(31)  01214017
        GBLB &SGRT11B(31),&SGRT12B(31),&SGRT13B(31),&SGRT14B(31),&SGRT15B(31)  01216017
        GBLB &SGRT16B(31),&SGCMD1B(31),&SGCMD2B(31),&SGCMD3B(31),&SGCMD4B(31)  01218017
        GBLB &SGSCSDB(31),&SGSCMSB(31)                                         01218821
        GBLB &SGDUMMY(248),&SGDEVB(1),&SGTYPEB(96)                             01220095
                GBLB  &UNPSUDO(768)                                   @THAS803 01230296
                GBLB  &SGITELB(8)                                       ITEL   01230496

        GBLC &SGGJCC(11),&SGLDRC(3)                                            01240095
        GBLC &SGRESMC(11),&SGUNNMC(100),&SGCTRLC(66)                           01260095
        GBLC &SGCPRGC(26)                                                      01280017

        GBLC &SGSCHDC(15),&EBCDIC,&SGLNKLC(21),&SGSVCLC(51)                    01300095
        GBLC &SGCNTRU,&SGSCNCC(31),&SGSCNAC(31)                                01320095
        GBLC &SGCLASC(1),&SGEDITC(25),&SGEDT2C(25),&SGEDT3C(25),&SGEDT4C(25)   01331021
        GBLC &SGEDT5C(25),&SGEDT6C(25),&SGEDT7C(25)                            01333421
IEB817I MEMBER NAME (SGPAK248) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0150


       ./ ADD  NAME=SGPAK768
        GBLA &SGTESTA(2),&HEX,&SGCTRLA(2),&SGFORTA(8),&SGSUPRA(2)              00160020
        GBLA &SGUNNMA(514),&SGCNTRA(10),&SGDADRA(768),&SGCBLEA(2)              00180095
        GBLA &SGCPRGA(23),&SGOPCHA,&SGDASDA,&SGACTR                            00200095
        GBLA &IEALOA,&IEAHIA,&IEALMTA,&SGPL11A(10),&SGSTMGA,&SGMAXDV           00240000
        GBLA &SGCBLFA(3),&SGMAXA(3),&SGFORLA(5),&SGCBLUA(3)                    00280018

        GBLA &SGSCHDA(20),&SGUTSZA,&SGALGOA(1),&SG2314A,&SG5450A,&SGSCNYA(2)   00320021
        GBLA &SGSCHAA(12),&SGSCNPA(31),&SGAR01A(31),&SGAR02A(31),&SGAR03A(31)  00324021
        GBLA &SGAR04A(31),&SGAR05A(31),&SGAR06A(31),&SGAR07A(31),&SGAR08A(31)  00324821
        GBLA &SGAR09A(31),&SGAR10A(31),&SGAR11A(31),&SGAR12A(31)               00325621

        GBLA &SG3330A,&SG2305A,&SGTGRIA(32),&SGTGROA(32)                       00332021
        GBLA &SG3505A,&SG3525A                                                 00336021
        GBLA &SGCKPA(6),&SG2321A,&SG2311A,&SGLDRA,&SGCPRNA(1),&SGBSCA          00360019
        GBLA &SGCPRPA(104),&SGLINKA(8),&SGSCNXA,&SGSCNZA                       00400017
        GBLA &SGDNBFA(768),&SGDEVTP(768),&SGETABA(768)                         00410095
        GBLA &SGCUN1A(255)                                                     00420095
        GBLA &SGGJUA(15),&SGGJCA(11)                                           00430095
        GBLA &SGEDITA(25),&SGTSOPA(4),&SGMODA(1),&SGEDT2A(25),&SGEDT3A(25)     00449421
        GBLA &SGEDT4A(25),&SGEDT5A(25)                                         00453221
        GBLB &SGGJCB(8),&SGLDRB(5)                                             00460095
        GBLB &SGCHANB(240),&SGQUITB,&SGMENTB(89),&SGSUPRB(48),&SGCPRGB(14)     00470000
        GBLB &SGUNU1B(255),&SGUNU2B(255),&SGUNU3B(255),&SGUNU4B(255)           00480095

        GBLB &SGUNU5B(255),&SGUNU6B(255),&SGUNU7B(255),&SGUNU8B(255)           00500095
        GBLB &SGUNM1B(255),&SGUNM2B(255),&SGUNM3B(255),&SGUNM4B(255)           00520095
        GBLB &SGUNM6B(255),&SGUNF4B(255),&SGUNF5B(255),&SGUNT3B(255)           00540095

        GBLB &SGUNF6B(255)                                                     00560095
        GBLB &SGUNF1B(255),&SGUNF2B(255),&SGUNF3B(255),&SGUNM5B(255)           00580095
        GBLB &SGUNT1B(255),&SGUNT2B(255),&SGTESTB(6)                           00600095
        GBLB &SGSCHDB(44),&SGDMGTB(5),&SGCPUB(54),&SGSTMGB(17),&SGDCLSB(83)    00690021
        GBLB &SGUCSIB(12),&SGUCSDB(12),&SGCKPB(56),&SGCBLUB(24)                00710017
        GBLB &SGUCSEB(2),&SG2CSIB(5),&SG2CSDB(5)                               00716020
        GBLB &SGDT01B(768),&SGDT02B(768),&SGDT03B(768),&SGDT04B(768),&LIMIT(4) 00720095
        GBLB &SGDT05B(768),&SGDT06B(768),&SGDT07B(768),&SGDT08B(768)           00730095
        GBLB &SGDT12B(768),&SG3410B(768)                                       00740095
        GBLB  &SGBRSTB(16)                                                     00750095
        GBLB &SGDU01B(768),&SGDU02B(768),&SGDU03B(768),&SGDU04B(768)           00760095
        GBLB &SGDU05B(768),&SGDU06B(768),&SGDU07B(768),&SGDU08B(768)           00770095

        GBLB &SGDU09B(768),&SGDU10B(768),&SGDU11B(768)                         00780095
        GBLB &SGDM01B(768),&SGDM02B(768),&SGDM03B(768),&SGDM04B(768)           00790095
        GBLB &SGDM05B(768),&SGDM06B(768),&SGDM07B(768),&SGDM08B(768)           00800095
        GBLB &SGDM09B(768),&SGOPSUB(768),&SG2321B(768),&SGDASWB(768)           00810095

        GBLB &SGDF01B(768),&SGDF02B(768),&SGDF03B(768),&SGDF04B(768)           00820095
        GBLB &SGDF05B(768),&SGDF06B(768),&SGDF07B(768),&SGDF08B(768)           00830095
        GBLB &SGDF09B(768),&SGDF10B(768),&SGDF11B(768),&SGDF12B(768)           00840095
        GBLB &SGDF13B(768),&SGDF14B(768),&SGDF15B(768)                         00850095
        GBLB &SGDAP1B(768),&SGDAP2B(768),&SGDAP3B(768)                         00860095
        GBLB &SGDAP4B(768),&SGDAP5B(768),&SGDAP6B(768),&SGDRQ1B(768)           00870095
        GBLB &SGDAP7B(768),&SGDAP8B(768),&SGDAP9B(768),&SGDAPAB(768)           00880095
        GBLB &SGDAPBB(768),&SGDAPCB(768),&SGDAPDB(768),&SGDAPEB(768)           00900095
        GBLB &SGDAPFB(768)                                                     00920095
        GBLB &SGDRQ2B(768)                                                     00940095
        GBLB &SGDAD1B(768),&SGDAD2B(768),&SGDAD3B(768),&SGDAD4B(768)           00960095
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0151



        GBLB &SGDAD5B(768),&SGDAD6B(768),&SGDAD7B(768),&SGDAD8B(768)           00980095
        GBLB &SGDSQ1B(768),&SGDSQ2B(768),&SGTRMDB(768),&SGSVCAB(255)           01000095
        GBLB &SGCOBLB(4),&SGSVCBB(255),&SGSVCCB(255),&SGSVCDB(255),&SGMALB(11) 01040021

        GBLB &SGSVCEB(255),&SGSVCFB(255),&SGFORTB(52),&SGLINKB(19),&SGCBLEB(6) 01080019
        GBLB &SGCBLFB(11),&SGLOADB(3),&SGOVERB(4),&SGASSEB(3),&SGPL11B(160)    01120000
        GBLB &SGCTRLB(16),&GETB(3),&SGFORLB(5),&SGGRPHB(4),&SGALGOB(5)         01160018
        GBLB &SGCHK1B(2),&SGPTOPB(1),&SGNODEV,&SGMOD1B(5),&SGMOD2B(5)          01183017
        GBLB  &SGMOD3B(5),&SGMOD4B(5),&SGMOD5B(5),&SGMOD6B(5)                  01189021
        GBLB &SGMOD7B(5),&SGMOD8B(5),&SGMOD9B(5),&SGMODAB(5),&SGMODBB(5)       01191400
        GBLB &SGSIZ1B(5),&SGSIZ2B(5),&SGSIZ3B(5),&SGSIZ4B(5),&SGSIZ5B(5)       01195000
        GBLB &SGSIZ6B(5),&SGSIZ7B(5),&SGSIZ8B(5),&SGSIZ9B(5),&SGSIZ0B(5)       01197000
        GBLB &SGEMULB(1),&SGUTILB(3)                                           01199000
        GBLB &SGSER1B(5),&SGSER2B(5),&SGSER3B(5),&SGSER4B(5),&SGMCSTB(4)       01201017
        GBLB &SGSCHRB(16),&SGSCHOB(16),&SGSCHHB(16),&SGLCPB(1)                 01208018
            GBLB &SGCKPLB(4),&SGCKFTB(4)                                       01210019

        GBLB &SGRT01B(31),&SGRT02B(31),&SGRT03B(31),&SGRT04B(31),&SGRT05B(31)  01212017
        GBLB &SGRT06B(31),&SGRT07B(31),&SGRT08B(31),&SGRT09B(31),&SGRT10B(31)  01214017
        GBLB &SGRT11B(31),&SGRT12B(31),&SGRT13B(31),&SGRT14B(31),&SGRT15B(31)  01216017
        GBLB &SGRT16B(31),&SGCMD1B(31),&SGCMD2B(31),&SGCMD3B(31),&SGCMD4B(31)  01218017

        GBLB &SGSCSDB(31),&SGSCMSB(31)                                         01218821
        GBLB &SGDUMMY(768),&SGDEVB(1),&SGTYPEB(96)                             01220095
                GBLB  &UNPSUDO(768)                                   @THAS803 01230296
                GBLB  &SGITELB(8)                                       ITEL   01230496
        GBLC &SGGJCC(11),&SGLDRC(3)                                            01240095
        GBLC &SGRESMC(11),&SGUNNMC(100),&SGCTRLC(66)                           01260095
        GBLC &SGCPRGC(26)                                                      01280017
        GBLC &SGSCHDC(15),&EBCDIC,&SGLNKLC(21),&SGSVCLC(51)                    01300095
        GBLC &SGCNTRU,&SGSCNCC(31),&SGSCNAC(31)                                01320095
        GBLC &SGCLASC(1),&SGEDITC(25),&SGEDT2C(25),&SGEDT3C(25),&SGEDT4C(25)   01331021
        GBLC &SGEDT5C(25),&SGEDT6C(25),&SGEDT7C(25)                            01333421
IEB817I MEMBER NAME (SGPAK768) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0152


       ./ ADD  NAME=IEEMVWTO
                TITLE 'IEEMVWTO (IGC0003E) MVT/MCS WTO'                        00200021

       IGC0003E CSECT                                                          00400021
       *         THIS MODULE CREATED FOR RELEASE 21 OF OS/360                  00600021
       *********************************************************************** 00800021
       *                                                                       01000021
       * STATUS -                                                              01200021
       *    CHANGE LEVEL=0                                                     01400021
       *                                                                       01600021
       * FUNCTION -                                                            01800021
       *    THE WTO SVC ROUTINE (SVC 35) PROCESSES REQUESTS                    02000021
       *    FOR MESSAGES TO THE OPERATOR.                                      02200021
       *    IT IS CALLED BY THE WTO OR THE WTOR MACRO                          02400021
       *                                                                       02600021

       * MODULE NAME -                                                         02800021
       *    IEEMVWTO                                                           03000021
       *                                                                       03200021

       * ENTRY POINT -                                                         03400021
       *         IGC0003E                                                      03600021
       *                                                                       03800021
       * INPUT -                                                               04000021
       *    1.   REGISTER 1     INPUT PARAMETER LIST ADDRESS                   04200021
       *    2.   REGISTER 3     CVT ADDRESS                                    04400021
       *    3.   REGISTER 4     CURRENT TCB ADDRESS                            04600021
       *    4.   REGISTER 5     CURRENT SVRB ADDRESS                           04800021
       *    5.   REGISTER 14    RETURN ADDRESS                                 05000021
       *    6.   REGISTER 0     POSSIBLE UCM ID                                05200021
       *                                                                       05400021
       * OUTPUT -                                                              05600021

       *    A COMPLETED WQE QUEUED TO THE SYSTEM OUTPUT QUEUE                  05800021
       *                                                                       06000021
       * EXITS,NORMAL -                                                        06200021
       *         RETURN TO THE REQUESTOR                                       06400021

       *         TO IEECVML3 TO HANDLE MLWTO REQUESTS                          06600021
       *         TO SECOND LOAD FOR WTOR REQUESTS                              06800021
       *        TO IEFWTP00 FOR WTP REQUESTS                         BG A47887 06850021
       *                                                                       07000021
       * EXITS,ERROR -                                                         07200021
       *         TO ABEND IF THE ADDRESS IN REGISTER 1 IS NOT ON A             07400021
       *         FULLWORD BOUNDARY                                             07600021
       *                                                                       07800021
       * ATTRIBUTES -                                                          08000021
       *    NON-RESIDENT, PARTIALLY ENABLED, PRIVILEGED                        08200021
       *                                                                       08400021
       * OPERATION -                                                           08600021

       *    UPON ENTRY A TEST IS MADE TO SEE IF ENTRY IS                       08800021
       *    DUE TO A RETURN FROM ANOTHER LOAD. IF SO                           09000021
       *    CONTROL IS PASSED TO A ROUTINE WHICH WILL ACQUIRE                  09200021

       *    A WTO BUFFER                                                       09400021
       *    IF IT IS AN INITIAL ENTRY AND A REQUEST FOR A                      09600021
       *    WTOR TRANSFER IS MADE TO THE SECOND LOAD VIA                       09800021
       *    XCTL.                                                              10000021
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0153


       *    IF IT IS INITIAL ENTRY AND A REQUEST FOR AN MLWTO,                 10200021
       *    TRANSFER IS MADE TO IEECVML3 VIA XCTL                              10400021
       *    OTHERWISE A CHECK ON THE MESSAGE LENGTH IS MADE                    10600021
       *    IF IT IS LESS THAN ZERO RETURN TO THE CALLER IS                    10800021
       *    MADE. IF IT IS GREATER THAN 126                                    11000021
       *    IT IS TRUNCATED TO THE APPROPRIATE LENGTH.                         11200021
       *    NEXT AN ATTEMPT TO OBTAIN A BUFFER IS MADE. IF                     11400021

       *    THE BUFFER LIMIT HAS BEEN REACHED AND THE CALLER                   11600021
       *    IS NOT THE COMMUNICATIONS TASK, THE LOG OR AN SIRB, AN             11800021
       *    ENQ IS PERFORMED ON A RESOURCE WHICH REPRESENTS                    12000021
       *    AN ECB (UCMWQECB) POSTED WHEN A BUFFER IS MADE                     12200021

       *    AVAILABLE. WHEN EXCLUSIVE CONTROL OF THIS RESOURCE                 12400021
       *    IS OBTAINED, A WAIT ON THAT ECB IS TAKEN. UPON                     12600021
       *    RETURN FROM THE WAIT A DOUBLE CHECK IS MADE TO                     12800021
       *    INSURE A BUFFER REALLY IS AVAILABLE. IF NOT,                       13000021
       *    THE WAIT IS AGAIN ISSUED.                                          13200021
       *    WHEN A BUFFER IS AVAILABLE, THE BUFFER COUNT IS                    13400021
       *    INCREMENTED. IF THE MODE IS FIXED A BUFFER IS                      13600021
       *    OBTAINED FROM THAT FIXED AREA, OTHERWISE A                         13800021
       *    GETMAIN FOR THE APPROPRIATE SIZE BUFFER (168)                      14000021
       *    IS MADE.                                                           14200021
       *    AT THIS POINT THE TEXT IS MOVED TO THE WQE                         14400021
       *    AND PRECEEDED BY                                                   14600021

       *    THE REPLY ID IF A WTOR. NEXT THE WQE IS LINKED                     14800021
       *    ONTO THE WTO QUEUE. THE                                            15000021
       *    MCS DEPENDENT FIELDS ARE FILLED IN (ROUTING                        15200021

       *    CODES, DESCRIPTOR CODES AND MESSAGE TYPE FLAGS)                    15400021
       *    FINALLY THE WTO ECB IN THE UCM IS POSTED,AND                       15600021
       *    RETURN IS MADE TO THE CALLER                                       15800021
       *                                                                       16000021
       * TABLES AND CONTROL BLOCKS -                                           16200021
       *    CVT  COMMUNICATION VECTOR TABLE                                    16400021
       *    UCM  UNIT CONTROL MODULE                                           16600021
       *    EIL  EVENT INDICATION LIST                                         16800021
       *    WQE  CONSOLE OUTPUT QUEUE ELEMENT                                  17000021
       *    RQE  CONSOLE REPLY QUEUE ELEMENT                                   17200021
       *                                                                       17400021
       * NOTES -                                                               17600021

       *    NONE                                                               17800021
       *                                                                       18000021
       *********************************************************************** 18200021
                EJECT                                                          18400021

       **********                                                              18600021
       *                                                                       18800021
       *         GENERAL REGISTER EQUATES                                      19000021
       *                                                                       19200021
       **********                                                              19400021
                 SPACE 1                                                       19600021
       R0       EQU   0                                                        19800021
       R1       EQU   1                                                        20000021
       R2       EQU   2                                                        20200021
       R3       EQU   3                                                        20400021
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0154


       R4       EQU   4                                                        20600021

       R5       EQU   5                                                        20800021
       R6       EQU   6                                                        21000021
       R7       EQU   7                                                        21200021

       R8       EQU   8                                                        21400021
       R9       EQU   9                                                        21600021
       R10      EQU   10                                                       21800021
       R11      EQU   11                                                       22000021
       R12      EQU   12                                                       22200021
       R13      EQU   13                                                       22400021
       R14      EQU   14                                                       22600021
       R15      EQU   15                                                       22800021
       RBASE    EQU   11                                                       23000021
               SPACE 2                                                         23200021
       **********                                                              23400021
       *                                                                       23600021

       *     EQUATES                                                           23800021
       *                                                                       24000021
       **********                                                              24200021
              SPACE 2                                                          24400021

       FOURTEEN EQU   14                                                       24600021
       D112     EQU   112                                            BE A51715 24650021
       EIGHT    EQU   8                                                        24800021
       ONE      EQU   1                                                        25000021
       ZERO     EQU   0                                                        25200021
       ZEROBYTE EQU   X'00'                                                    25400021
       F2       EQU   2                                                        25600021
       F4       EQU   4                                                        25800021
       HEX20    EQU   X'20'                                                    26000021
       HEX02    EQU   X'02'                                                    26200021
       HEX80    EQU   X'80'                                                    26400021
       HEX03    EQU   3                                                        26600021

       D104     EQU   104                                                      26800021
       NTAVGET  EQU   X'50'                                                    27000021
       XRTCDEX  EQU   X'80'                                                    27200021

       MCSFEX   EQU   X'10'                                                    27400021
       ISSRPK   EQU   17                                                       27600021
       PROBKEY  EQU   X'F0'                                                    27800021
       RBLINK   EQU   28                                                       28000021
       CNOR     EQU   X'F1'                                                    28200021
       ASTER    EQU   X'5C'                                                    28400021
       BLANK    EQU   X'40'                                                    28600021
       FOUR4    EQU   4                                                        28800021
       DESCCODE EQU   X'80'                                                    29000021
       ACTION   EQU   X'C0'                                                    29200021
       N3       EQU   3                   DISPLACEMENT                         29400021
       N108     EQU   108                 DISPLACEMENT                         29600021

       MLWTO    EQU   64                  MCSFLAG BIT FOR MLWTO                29800021
       MLRTN    EQU   C'6'                MLWTO RTN MODIFIER                   30000021
       TCBDAR   EQU   172                 DAR FLAGS IN TCB                     30200021
       DARFLAG  EQU   X'C0'               IF EITHER BIT ON THEN                30400021

       *                                  DAR IN CONTROL                       30600021
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0155


       TCBTSFLG EQU   X'94'               TSO FLAG FIELD IN TCB                30800021
       TCBTSTSK EQU   X'80'               TSO TASK                             31000021
       TCBJSCB  EQU   X'B4'               JSCB ADDR IN TCB                     31200021
       TCBOTC   EQU   X'84'               TCB MOTHER PTR             BE  21472 31300021
       ERRTCB   EQU   X'74'               @ OF ERROR TCB IN SCVT     BG A62165 31350021
       SECCVT   EQU   X'C8'               ADDRESS OF SCVT            BG A62165 31370021
                EJECT                                                          31400021
                BALR  RBASE,0                                                  31600021
                USING *,RBASE                                                  31800021
                USING UCM,R10                                                  32000021

                USING CVTDSECT,R12                                             32200021
       ENABLE   EQU   *                                                        32400021
                DC    X'80FF'                  ENABLE SYSTEM MASK              32600021

                DC    S(*-1)                                                   32800021
                LR    R13,R0             UCMID WILL BE KEPT IN REG   BE  M1432 32850021
       *                                    13, BUT WILL BE PUT INTO BE  M1432 32900021
       *                                    REG 0 ON AN XCTL         BE  M1432 32950021
                MVC   D104(8,R5),WTPNAME       SET UP EXIT NAMES               33000021
                LTR   R3,R3              BACK FROM WTOR OR WTP                 33200021
                BZ    WTO                                                      33400021
                BC    F4,WTORTEST        YES-BACK FROM WTP-BRANCH              33600021
       OVER     EQU   *                                                        33800021
                LR    R12,R3                   LOAD CVT POINTER                34000021
                L     R10,CVTCUCB        PTR TO UCM                            34200021
                ST    R14,124(R5)    SAVE RETURN ADDR IN 8TH WORD OF SVRB XSA  34400021

                LR    R6,R1                    SAVE PARAMETER LIST ADDR        34600021
                USING WQE,R1                                                   34800021
                USING WPLF,R6                                                  35000021

       WTPTEST  EQU   *                                                        35200021
                LA    R3,ONE              CHECK PARAMETER LIST FOR   BG A42813 35240021
                NR    R3,R1               HALFWORD BOUNDARY. ABTERM  BG A42813 35280021
                BC    4,INVALID          REQUESTOR IF WTO  PARAMETER BG A42813 35320021
       *                                  NOT ON HALFWORD BOUNDARY   BG A42813 35360021
                LR    R7,R6                                                    35400021
                CLI   WPLLGH,ZEROBYTE    IS THIS A WTOR                        35600021
                BE    RCCHECK            NO-PARM LIST POINTER OK               35800021
                LA    R7,EIGHT(R7)       PUT POINTER PAST WTOR PREFIX          36000021
                B     NOTMLWTO           LET MLWTOR DEFAULT TO WTOR      21002 36100000
       RCCHECK  EQU   *                                                        36200021
       ***      TEST MCSFLAGS FIELD IN USER PARAMETER LIST FOR MULTIPLE  21002 36220021

       ***      LINE WRITE TO OPERATOR(MLWTO)                            21002 36240021
                TM    N3(R7),MLWTO        Q.   IS THIS AN MLWTO          21002 36260000
                BNO   NOTMLWTO            NO NORMAL WTO                  21002 36280000
                MVI   N108(R5),MLRTN      YES. SET XCTL NAME TO MLWTO    21002 36300000

                B     WTP                 GO TO EXIT ROUTINE             21002 36320000
       NOTMLWTO EQU   *                                                  21002 36340000
                TM    F2(R7),HEX80        DO ROUT AND DESC EXIST               36400021
                BZ    WTORTEST           NO-DON'T GO TO WTP                    36600021
                AH    R7,ZERO(R7)        ADD MSG LENGTH TO POINTER             36800021
                TM    HEX03(R7),HEX20    IS THERE ROUTING CODE 11              37000021
                BNZ   WTP                                                      37200021
       WTORTEST EQU   *                                                        37400021
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0156


                CLI   WPLLGH,X'00'             IS THIS A WTOR                  37600021
                BNE   WTOR                     YES                             37800021
                SR    R7,R7                                                    39000021

                IC    R7,WPLLGH+1             LOAD LENTGH OF OUTPUT MSG        39200021
                SH    R7,FOUR             LENGTH IN WQE (FOR CCW)              39400021
                LTR   R7,R7               IS LENGTH GREATER THAN ZERO          39600021

                BC    12,RESTORE         *RETURN IF NOT                        39800021
                LA    R7,1(R7)            ADD ONE BYTE FOR'ACTION'SYMBOL       40000021
       WTO      EQU   *                                                        40200021
                LA    R9,126              MVT LIMIT                            40400021
                SSM   *+1                 DISABLE                              40800021
                CR    R7,R9                   DOES LENGTH EXCEED LIMIT         41000021
                BNH   TESTWQE                  B TO TEST LIMIT                 41200021
                LR    R7,R9                   TRUNCATE TO LIMIT                41600021
       TESTWQE  EQU   *                                                        41650021
                LA    R8,POSTWTO         IN CASE NO WQE ENQ NEEDED   BE A51715 41700021
                ST    R8,D112(R5)        STORE WHERE-TO-GO IN XSA    BE A51715 41750021
                CLC   UCMWQNR(2),UCMWQLM       BUFFER LIMIT REACHED YET        41800021

                BL    GETWQE                   NO                              42000021
                LA    R4,0(R4)                                                 42200021
                C     R4,UCMPXA           CAN'T ENQ COMM TASK        BE A51715 42600021
                BE    GETWQE             DO NOT ENQ                  BE A51715 43000021

                TM    TCBDAR(R4),DARFLAG IS DAR IN CONTROL                     43200021
                BNZ   GETWQE              YES, DO NOT ENQ REQUESTOR  BE  M0549 43400021
                LR    R15,R10            PUT UCM PTR IN REG                    43600021
                LA    R3,FOUR4                                                 43800021
                SR    R15,R3             GET MCS PREFIX PTR                    44000021
                L     R15,0(R15)                                               44200021
                USING MCSUCM,R15                                               44400021
                C     R4,UCMLOGAD        IS THE ISSUER THE LOG                 44600021
                BE    GETWQE              DYNAMICALLY OBTAIN WQE     BE  21472 44800021
                L     R15,CVTPTR          GET POINTER TO CVT         BG A62165 45000021
                L     R15,SECCVT(R15)     GET POINTER TO SCVT        BG A62165 45200021
                L     R15,ERRTCB(R15)     GET POINTER TO ERROR TCB   BG A62165 45400021

                CR    R15,R4              CURRENT TCB ERROR TCB      BG A62165 45600021
                BE    GETWQE              YES, GETMAIN A BUFFER      BG A62165 45800021
       QUP      EQU   *                                                        46000021

                LA    R8,DEQUE1          WHERE-TO- GO REG IN XSA     BE A51715 46050021
                ST    R8,D112(R5)                                    BE A51715 46100021
                LA    R9,MAJORNAM              PTRS TO MAJOR AND MINOR         46400021
                LA    R8,MINORNM1              NAMES FOR ENQ                   46600021
                LA    R1,96(R5)                PTR TO EXTENDED SAVE AREA- SVRB 46800021
                XC    0(4,1),0(1)             CLEAR OPTION & RETURN CODE BYTE  47000021
                OI    0(1),X'FF'              INDICATE LAST QUEUE ELEMENT      47200021
                ENQ   ((9),(8),E,6,SYSTEM),MF=(E,(1)),RET=HAVE       BG A59890 47600021
                LTR   R15,R15             IS RETURN CODE = TO ZERO   BG A59890 47601021
                BZ    TSTCOUNT            YES ENQUED ON RESOURCE     BG A59890 47602021
                LA    R8,POSTWTO          IN CASE OF NO ENQ          BG A59890 47603021
                ST    R8,D112(R5)         STORE WHERE-TO-GO IN XSA   BG A59890 47604021

                B     GETWQE              GET ANOTHER BUFFER         BG A59890 47605021
       TSTCOUNT EQU   *                                              BE A51715 47610021
                CLC   UCMWQNR(2),UCMWQLM       TEST COUNT VS. LIMIT AGAIN      47650021
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0157



                BL    GETWQE                   GET AVAILABLE BUFFER  BE A51715 47700021
                LR    R9,R10              GET POINTER TO UCM                   47800021
                SH    R9,EIGHT8           GET TO UCM EXTENSION POINTER         48000021
                L     R9,ZERO(R9)         GET UCM2 POINTER                     48200021
                USING UCM2,R9                                                  48400021
                XC    UCM2WID(2),UCM2WID CLEAR WQE TJID FIELD        BE  M1432 48600021
                XC    UCMWQECB,UCMWQECB  CLEAR WAIT IN ECB           BE  M1432 48700021
                TM    TCBTSFLG(R4),TCBTSTSK  TSO USER                          49400021
                BNO   WAIT                   NO, SO NO TJID                    49600021
                L     R3,TCBJSCB(R4)      POINTER TO JSCB                      49800021
                USING IEZJSCB,R3                                               50000021
                MVC   UCM2WID,JSCBTJID     SET TJID IN UCM EXT                 50200021

                DROP  R3                                                       50400021
       WAIT     EQU   *                                                        50600021
                LA    R1,UCMWQECB             WQE ECB POINTER                  50800021

               WAIT   ECB=(1)                                                  51600021
                SSM   *+1                 DISABLE                              51800021
                DROP  R9                                                       52000021
                B     TSTCOUNT                                       BE A51715 52050021
       GETWQE   EQU   *                                                        53400021
                LH    R1,UCMWQNR               LOAD WQE COUNT                  53600021
                LA    R1,1(R1)                 INCREMENT                       53800021
                STH   R1,UCMWQNR               STORE                           54000021
                LA    R0,WQESIZE         SIZE OF WQE - MCS IN SYSTEM           54600021
                O     R0,MASK245               SUBPOOL 245                     54800021
                SR    R15,R15            ZERO GETMAIN RETURN REG CODE          55000021
              GETMAIN R,LV=(0)                                                 55200021

       * FOLLOWING TEST IS ONLY WHERE CONTROL COULD COME BACK                  55400021
       * DURING ABEND EVEN IF GETMAIN FAILS.                                   55600021
                CH    R15,FOUR           DID GETMAIN FAIL                      55800021
                BE    GETFAIL                                                  56000021

                LA    R3,NTAVGET              MARK BUFFER IN USE & GETMAINED   56400021
                XC    WQELKP(WQESIZE),WQELKP  ZERO OUT WQE                     56600021
                STC   R3,WQEAVAIL                                              56800021
                ST    R7,WQENBR           STORE LENGTH IN WQE FOR CCW          57200021
                BCTR  R7,0                                                     57400021
                CLI   WPLLGH,X'00'        IS THIS A WTOR                       57600021
                BNE   EX2                      YES                             57800021
                BCTR  R7,0                     SUBT 1 MORE FOR'ACTION'SYM      58000021
                MVI   WQETXT,BLANK             MOVE IN BLANK                   58200021
                TM    WPLX,DESCCODE            DO ROUTE OR DESCCODES EXIST     58400021
                BZ    PARTCHK                  NO,INSERT'BLANK'AND CONTINUE    58600021
                SR    R15,R15                  CLEAR A REGISTER                58800021

                IC    R15,WPLLGH+1             LOAD LNGTH OF OUTPUT MSG        59000021
                SH    R15,FOUR                 ADJUST TO LNGTH OF TEXT         59200021
                LA    R15,WPLTXT(R15)          BUMP TO DESC CODE FIELD         59400021

                TM    0(R15),ACTION            DOES WTO HAVE DESCCODE 1/2      59600021
                BZ    PARTCHK                  NO,GO INSERT'BLANK'             59800021
                MVI   WQETXT,ASTER             INDICATE ACTION REQUIRED        60000021
       PARTCHK  EQU   *                                                        60200021
                EX    R7,MOVEWTO                                               60800021
       LINKWQE  EQU   *                                                        62200021
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0158


                L     R15,UCMWQEND            LOAD PTR TO LAST WQE ON CHAIN    62400021
                LTR   R15,R15                 ZERO POINTER                     62600021
                BC    7,STORE                  NO                              62800021
                LA    R15,UCMWTOQ             ADDR OF BASE OF CHAIN            63000021
       STORE    EQU   *                                                        63200021

                ST    R1,UCMWQEND              CURRENT BECOMES END OF CHAIN    63400021
                DROP  R1                                                       63600021
                USING WQE,R15                                                  63800021
                MVC   WQELKP+ONE(R3),UCMWQEND+ONE  LINK WQE ONTO QUEUE         64000021

                DROP  R15                                                      64200021
                USING WQE,R1                                                   64400021
                LR    R15,R10                  GET UCM POINTER                 64600021
                SH    R15,FOUR                 POINT TO PREFIX FOR MCS         64800021
                L     R15,ZERO(R15)            GET TO MCS PREFIX               65000021
                USING UCMMCENT,R15                                             65200021
                L     R3,UCMCMID               GET NEXT WQE ID NO.             65400021
                ST    R3,WQERTCT               STORE ID INTO WQE               65600021
                LA    R3,ONE(R3)               INCREMENT FOR NEXT WQE          65800021
                ST    R3,UCMCMID               REPLACE ID NO IN UCM            66000021
                DROP  R15                                                      66200021
                STC   R13,WQEUCMID       PLACE UCMID IN WQE          BE  M1432 66400021

                CLI   WPLLGH,ZEROBYTE          IS THIS A WTOR                  66600021
                BE    WTOMCSFM                NO                               66800021
                DROP  R6                                                       67000021

                USING WPLRF,R6                                                 67200021
                MVC   WQEMCSF(F2),WPLX         MOVE MCS FLAGS TO WQE WTOR      67400021
                DROP  R6                                                       67600021
                USING WPLF,R6                                                  67800021
                LA    R6,EIGHT(R6)             ACCOUNT FOR 8 BYTE HEADER       68000021
                B     MOVEMCS                 DON'T DO WTO MCSFLGS MOVE        68200021
       WTOMCSFM EQU   *                                                        68400021
                MVC   WQEMCSF(F2),WPLX         MOVE MCS FLAGS TO WQE           68600021
       MOVEMCS  EQU   *                                                        68800021
                AH    R6,WPLLGH           ADD OUTPUT MESSAGE LENGTH            69000021
                TM    WQEMCSF,XRTCDEX     Q.- DO ROUTCDES AND DESC EXIST       69200021
                BNO   TSTMSGF            NO - TEST FOR MSGTYPE FLAGS           69400021

                MVC   WQEROUT(F2),F2(R6)       MOVE ROUTING CODES TO WQE       69600021
                MVC   WQEDESCD(F2),ZERO(R6)    MOVE DESCRIPTOR CODES TO WQEMCS 69800021
       TSTMSGF  EQU   *                                                        70000021
                TM    WQEMCSF,MCSFEX     DO MSGTYPE FLAGS EXIST                70200021

                BNO   XNRTCD             NO - DON'T MOVE JUNK                  70400021
                MVC   WQEMSGTP(F2),F4(R6)      MOVE MSG TYPE FLAGS TO WQE      70600021
       XNRTCD   EQU   *                                                        70800021
                L     R9,RBLINK(R5)      GET ISSUER RB                         71000021
       *        TEST  ISSUER AND ONLY HONOR -BYPASS HC- IF RB KEY=0            71200021
                TM    ISSRPK(R9),PROBKEY IS ISSUER NONZERO PROTECT KEY         71400021
                BZ    TESTWTOR           NO, LET SYSTEM BYPASS HC              71600021
                NI    WQEMCSF+ONE,X'FF'-WQEMCSN YES,NO HC BYPASS               71800021
       TESTWTOR EQU   *                  TEST FOR WTOR FOR DEFAULT DC          72000021
                TM    WQEXA,HEX20              DO WE HAVE A RQE (WTOR)         72200021
                BNO   MOVEPKE                 NO THIS IS A WTO                 72400021
                OI    WQEDESCD,HEX02           GIVE ALL WTORS A DESC CD=7      72600021

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0159


       MOVEPKE  EQU   *                                                        72800021
                MVI   WQEPKE,X'00'             ZERO OUT PROTECT KEY FIELD      73000021

                MVZ   WQEPKE(1),ISSRPK(R9)    MOVE PROTEST KEY TO WQE          73200021
       ****** Start of call to HASP WTO exit 2 ($WTOSVC2)             @THAS802 73200100
                L     R15,CVTUSER         Point to HCT                @THAS802 73200200
                LTR   R15,R15             Is HASP present?            @THAS802 73200300
                BZ    NOHASP              Skip exit call if not       @THAS802 73200400
                L     R15,X'10'(,R15)     Get $WTOSVC2 address        @THAS802 73200500
                LTR   R15,R15             Ensure good address         @THAS802 73200600
                BZ    NOHASP              Skip $WTOSVC2 call if not   @THAS802 73200700
                SSM   *-1                 Ensure disabled             @THAS802 73200800
                LR    R0,R1               Point R0 to WQE             @THAS802 73200900
                BALR  R14,R15             Link to $WTOSVC2 HASP exit  @THAS802 73201000
       NOHASP   DS    0H                  Here to skip $WTOSVC2 call  @THAS802 73201100

       ******* End of call to HASP WTO exit 2 ($WTOSVC2)              @THAS802 73201200
                L     R8,D112(R5)        LOAD WHERE-TO-GO            BE A51715 73250021
                BR    R8                 GO                          BE A51715 73300021

                SPACE 2                                                        73600021
                USING RQE,R2                                                   73800021
       EX2      EQU   *                                                        74000021
                ST    R1,RQEXB                 YES,STORE WQE PTR IN RQE        74200021
                OI    WQEXA,X'28'              INDICATE RQE EXISTS FOR THIS    74400021
       *     THIS BIT IS SET FOR GRAPHICS AND NEVER TURNED OFF                 74600021
                MVI   WQETXT,ASTER             MOVE * TO INDICATE'ACTION'      74800021
                MVC   WQETXT+1(2),RQEID        MOVE ID FROM RQE TO WQE         75000021
                MVI   WQETXT+3,BLANK           MOVE BLANK AFTER ID             75200021
                SH    R7,FOUR                                                  75800021
                EX    R7,MOVEWTOR                                              76000021
                B     LINKWQE                                                  76200021

       DEQUE1   EQU   *                                              BE A51715 76210021
                LA    R9,MAJORNAM              MAJOR AND MINOR NAMES           76250021
                LA    R8,MINORNM1        FOR DEQ                     BE  M1432 76300021
                LA    R1,96(R5)                PTR TO XSA OF SVRB              76350021

                DEQ   ((9),(8),6,SYSTEM),MF=(E,(1))                  BE  M1432 76400021
       POSTWTO  EQU   *              POST WTO ECB IN UCM                       77600021
                POST  UCMOECB                                                  77800021
       RESTORE  EQU   *                                                        78000021
                LR    R1,R3                   GET CURRENT ID NUMBER            78200021
                BCTR  R1,R0                    RETURN LAST ASSIGNED TO USERMCS 78400021
       GETFAIL  EQU   *                                                        78600021
                L     R14,124(R5)    RELOAD RETURN ADDRESS                     78800021
                BR    R14                      * RETURN TO CALLER              79000021
       INVALID  L     R1,ABENDCOD         LOAD ABEND COMPLETION CODE BG A42813 79060021
                ABEND (1)                                            BG A42813 79120021
       WTOR     EQU   *                                                        79200021

                MVI   108(R5),CNOR                                             79400021
       WTP      EQU   *                                                        79600021
                LR    R0,R13             RESTORE UCMID TO REG 0      BE  M1432 79700021

                XC    100(4,R5),100(R5)                                        79800021
                LA    R15,104(R5)                                              80000021
                ST    R15,96(R5)              STORE ADDR OF ENTRY PT           80200021
                LA    R15,96(R5)              LOAD INTO R15 XCTL PARA LIST     80400021
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0160


                XCTL  SF=(E,(15))             BRING IN SECOND LOAD             80600021
                EJECT                                                          80800021
       **********                                                              81000021
       *                                                                       81200021
       *     EXECUTED INSTRUCTIONS                                             81400021
       *                                                                       81600021
       **********                                                              81800021

                DS    0H                      EXECUTE SUBJECT INSTRUCTIONS     82000021
       MOVEWTO  MVC   WQETXT+1(1),WPLTXT       MOVE USER'S TEXT TO WQE         82200021
                DROP  R6                                                       82400021
                USING WPLRF,R6                                                 82600021

       MOVEWTOR MVC   WQETXT+4(1),WPLTXT       WTOR MOVE OF USER'S TEXT        82800021
               SPACE 2                                                         83000021
       **********                                                              83200021
       *                                                                       83400021
       *    CONSTANTS                                                          83600021
       *                                                                       83800021
       **********                                                              84000021
               SPACE 2                                                         84200021
       MAJORNAM DC    CL8'SYSIEECT'            MAJOR NAME FOR ENQ, DEQ         84400021
       MINORNM1 DC    CL6'IEEWQE'              WQE MINOR NAME FOR ENQ, DEQ     84600021
       *                                        ID AND BLANK                   84800021
       EIGHT8   DC    H'8'                                                     85000021

       FOUR     DC    H'4'                                                     85200021
                DS    0F                                                       85400021
       MASK245  DC    X'F5000000'                                              85600021

       ABENDCOD DC    X'80D23000'         INVALID PARAMETER ADDRESS  BG A42813 85700021
       WTPNAME  DC    C'IGC0203E'                                              85800021
                EJECT                                                          86000021
       **********                                                              86200021
       *                                                                       86400021
       *     DSECTS                                                            86600021
       *                                                                       86800021
       **********                                                              87000021
                SPACE 3                                                        87200021
       WQE      DSECT                                                          87400021
                IEECVMUG WQE                                                   87600021
                EJECT                                                          87800021

       RQE      DSECT                                                          88000021
                IEECVMUG RQE                                                   88200021
                EJECT                                                          88400021
       WPL      DSECT                                                          88600021

                IEECVMUG WPL                                                   88800021
                EJECT                                                          89000021
       UCM      DSECT                                                          89200021
                IEECUCM                                                        89400021
                EJECT                                                          89600021
       CVTDSECT DSECT                                                          89800021
                CVT                                                            90000021
                EJECT                                                          90200021
                IEZJSCB                                                        90400021
                END                                                            90600021
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0161


       ./ ENDUP

IEB817I MEMBER NAME (IEEMVWTO) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


























































************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************










          ASP JOB NO. = 0012                                     DATE = 78.240




//I03LOAD  JOB 1,'I03LOAD  HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A




          ELAPSED TIME ON MAIN = ASP1     = 000.12, START TIME = 19.58.51

          DDNAME = SYSMSG                     PRINTED ON PR1     , LINES = 000322
          DDNAME = SYSPRINT                   PRINTED ON PR1     , LINES = 008283
          LINES OUTPUT FOR THIS JOB = 008605

       CARDS FROM MAIN FOR THIS JOB = NONE



























************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************

 IIIIIIIIIIII       0000000              44      PPPPPPPPPPPP    RRRRRRRRRRRR     OOOOOOOOOOO     CCCCCCCCCCC     SSSSSSSSSSS
 IIIIIIIIIIII      000000000            444      PPPPPPPPPPPPP   RRRRRRRRRRRRR   OOOOOOOOOOOOO   CCCCCCCCCCCCC   SSSSSSSSSSSSS
      II          00       00          4444      PP         PP   RR         RR   OO         OO   CC         CC   SS         SS
      II         00         00        44 44      PP         PP   RR         RR   OO         OO   CC         CC   SS
      II         00         00       44  44      PP         PP   RR         RR   OO         OO   CC              SS
      II         00         00      44   44      PP         PP   RRRRRRRRRRRRR   OO         OO   CC              SSSSSSSSSSSS
      II         00         00     44    44      PPPPPPPPPPPPP   RRRRRRRRRRRR    OO         OO   CC               SSSSSSSSSSSS
      II         00         00    444444444444   PPPPPPPPPPPP    RR      RR      OO         OO   CC                         SS
      II         00         00   4444444444444   PP              RR       RR     OO         OO   CC         CC              SS
      II          00       00            44      PP              RR        RR    OO         OO   CC         CC   SS         SS
 IIIIIIIIIIII      000000000             44      PP              RR         RR   OOOOOOOOOOOOO   CCCCCCCCCCCCC   SSSSSSSSSSSSS
 IIIIIIIIIIII       0000000              44      PP              RR         RR    OOOOOOOOOOO     CCCCCCCCCCC     SSSSSSSSSSS









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11                 44
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111                444
            JJ   OO         OO   BB         BB                    00       00     00       00       1111               4444
            JJ   OO         OO   BB         BB                   00         00   00         00        11              44 44
            JJ   OO         OO   BB         BB                   00         00   00         00        11             44  44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11            44   44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11           44    44
            JJ   OO         OO   BB         BB                   00         00   00         00        11          444444444444
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11         4444444444444
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11                 44
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111               44
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111               44









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 IIIIIIIIIIII       0000000              44      PPPPPPPPPPPP    RRRRRRRRRRRR     OOOOOOOOOOO     CCCCCCCCCCC     SSSSSSSSSSS
 IIIIIIIIIIII      000000000            444      PPPPPPPPPPPPP   RRRRRRRRRRRRR   OOOOOOOOOOOOO   CCCCCCCCCCCCC   SSSSSSSSSSSSS
      II          00       00          4444      PP         PP   RR         RR   OO         OO   CC         CC   SS         SS
      II         00         00        44 44      PP         PP   RR         RR   OO         OO   CC         CC   SS
      II         00         00       44  44      PP         PP   RR         RR   OO         OO   CC              SS
      II         00         00      44   44      PP         PP   RRRRRRRRRRRRR   OO         OO   CC              SSSSSSSSSSSS
      II         00         00     44    44      PPPPPPPPPPPPP   RRRRRRRRRRRR    OO         OO   CC               SSSSSSSSSSSS
      II         00         00    444444444444   PPPPPPPPPPPP    RR      RR      OO         OO   CC                         SS
      II         00         00   4444444444444   PP              RR       RR     OO         OO   CC         CC              SS
      II          00       00            44      PP              RR        RR    OO         OO   CC         CC   SS         SS
 IIIIIIIIIIII      000000000             44      PP              RR         RR   OOOOOOOOOOOOO   CCCCCCCCCCCCC   SSSSSSSSSSSSS
 IIIIIIIIIIII       0000000              44      PP              RR         RR    OOOOOOOOOOO     CCCCCCCCCCC     SSSSSSSSSSS









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11                 44
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111                444
            JJ   OO         OO   BB         BB                    00       00     00       00       1111               4444
            JJ   OO         OO   BB         BB                   00         00   00         00        11              44 44
            JJ   OO         OO   BB         BB                   00         00   00         00        11             44  44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11            44   44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11           44    44
            JJ   OO         OO   BB         BB                   00         00   00         00        11          444444444444
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11         4444444444444
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11                 44
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111               44
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111               44









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 ISV40 JOB ORIGIN FROM GROUP=LOCAL   , DSP=CR , DEVICE=RD1     , 00C
//I04PROCS JOB 1,'I04PROCS HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
//*********************************************************************
//*                                                                 ***
//*    Job:      I04PROCS                                           ***
//*    Product:  HASP V4 for MVT.                                   ***
//*    Purpose:  Add HASP procedures to SYS1.PROCLIB.               ***
//*    Update:   2006/08/06                                         ***
//*                                                                 ***
//*********************************************************************
//*
//*-----------------------------------------------------------------***
//*    Add HASP procedures to SYS1.PROCLIB.                         ***
//*-----------------------------------------------------------------***
//PROCS   EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DISP=SHR,DSN=SYS1.PROCLIB
//SYSIN    DD  DATA
/*
//




 I04PROCS IEF403I I04PROCS STARTED    TIME=19.59.22
 I04PROCS IEF234E D 665,ASP665
*I04PROCS*18 IECASP0 665 IS I04PROCS A         PROCS   SYSPRINT
*I04PROCS*19 IECASP0 666 IS I04PROCS           PROCS   ASPI0001
 I04PROCS IEF280E K 666,010014,I04PROCS,PROCS
 I04PROCS STEP: I04PROCS PROCS             ET=00.00.00 RC=0000
 I04PROCS IEF404I I04PROCS ENDED      TIME=19.59.22
//I04PROCS JOB 1,'I04PROCS HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      I04PROCS                                           ***
***    Product:  HASP V4 for MVT.                                   ***
***    Purpose:  Add HASP procedures to SYS1.PROCLIB.               ***
***    Update:   2006/08/06                                         ***
***                                                                 ***
***********************************************************************
***
***-----------------------------------------------------------------***
***    Add HASP procedures to SYS1.PROCLIB.                         ***
***-----------------------------------------------------------------***
//PROCS   EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DISP=SHR,DSN=SYS1.PROCLIB
//SYSIN DD UNIT=(CTC,,DEFER),DSNAME=&&ASPI0001,                        *
// DISP=(OLD,DELETE),VOL=SER=010014,DCB=(LRECL=80,BLKSIZE=80,RECFM=F)
//
IEF236I ALLOC. FOR I04PROCS PROCS
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 150   ALLOCATED TO SYSUT2
IEF237I 666   ALLOCATED TO SYSIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T195922.RV001.I04PROCS.ASPOA001     DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.PROCLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T195922.RV001.I04PROCS.ASPI0001     DELETED
IEF285I   VOL SER NOS= 010014.
IEF280E K 666,010014,I04PROCS,PROCS
IEF373I STEP /PROCS   / START 78240.1959
IEF374I STEP /PROCS   / STOP  78240.1959 CPU   0MIN 00.09SEC MAIN  28K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 19:59:22.26   ALLOC START    19:59:22.26   MAIN REGION ----- 256K                          *
*   STEP NAME PROCS      STEP END TIME  19:59:22.48   PGM START TIME 19:59:22.29   MAIN STORAGE ----- 28K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.22   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.09   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0665 ---------- 104       0150 ----------- 81       0666 ----------- 92                                                        *
************************************************************************************************************************************

IEF375I  JOB /I04PROCS/ START 78240.1959
IEF376I  JOB /I04PROCS/ STOP  78240.1959 CPU   0MIN 00.09SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  I04PROCS   JOB READ TIME 19:59:22.08   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.09   *
*   JOB CLASS B          JOB INIT TIME 19:59:22.26   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.23   *
*   JOB ID    JOB00014   JOB END TIME  19:59:22.49   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 2   *
************************************************************************************************************************************


 IIIIIIIIIIII       0000000              44      PPPPPPPPPPPP    RRRRRRRRRRRR     OOOOOOOOOOO     CCCCCCCCCCC     SSSSSSSSSSS
 IIIIIIIIIIII      000000000            444      PPPPPPPPPPPPP   RRRRRRRRRRRRR   OOOOOOOOOOOOO   CCCCCCCCCCCCC   SSSSSSSSSSSSS
      II          00       00          4444      PP         PP   RR         RR   OO         OO   CC         CC   SS         SS
      II         00         00        44 44      PP         PP   RR         RR   OO         OO   CC         CC   SS
      II         00         00       44  44      PP         PP   RR         RR   OO         OO   CC              SS
      II         00         00      44   44      PP         PP   RRRRRRRRRRRRR   OO         OO   CC              SSSSSSSSSSSS
      II         00         00     44    44      PPPPPPPPPPPPP   RRRRRRRRRRRR    OO         OO   CC               SSSSSSSSSSSS
      II         00         00    444444444444   PPPPPPPPPPPP    RR      RR      OO         OO   CC                         SS
      II         00         00   4444444444444   PP              RR       RR     OO         OO   CC         CC              SS
      II          00       00            44      PP              RR        RR    OO         OO   CC         CC   SS         SS
 IIIIIIIIIIII      000000000             44      PP              RR         RR   OOOOOOOOOOOOO   CCCCCCCCCCCCC   SSSSSSSSSSSSS
 IIIIIIIIIIII       0000000              44      PP              RR         RR    OOOOOOOOOOO     CCCCCCCCCCC     SSSSSSSSSSS









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11                 44
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111                444
            JJ   OO         OO   BB         BB                    00       00     00       00       1111               4444
            JJ   OO         OO   BB         BB                   00         00   00         00        11              44 44
            JJ   OO         OO   BB         BB                   00         00   00         00        11             44  44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11            44   44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11           44    44
            JJ   OO         OO   BB         BB                   00         00   00         00        11          444444444444
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11         4444444444444
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11                 44
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111               44
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111               44









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    PPPPPPPPPPPP    RRRRRRRRRRRR    IIIIIIIIIIII    NN         NN   TTTTTTTTTTTT
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRRR   IIIIIIIIIIII    NNN        NN   TTTTTTTTTTTT
 SS         SS     YY    YY      SS         SS   PP         PP   RR         RR        II         NNNN       NN        TT
 SS                 YY  YY       SS              PP         PP   RR         RR        II         NN NN      NN        TT
 SS                  YYYY        SS              PP         PP   RR         RR        II         NN  NN     NN        TT
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    PP         PP   RRRRRRRRRRRRR        II         NN   NN    NN        TT
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRR         II         NN    NN   NN        TT
            SS        YY                    SS   PPPPPPPPPPPP    RR      RR           II         NN     NN  NN        TT
            SS        YY                    SS   PP              RR       RR          II         NN      NN NN        TT
 SS         SS        YY         SS         SS   PP              RR        RR         II         NN       NNNN        TT
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   PP              RR         RR   IIIIIIIIIIII    NN        NNN        TT
  SSSSSSSSSSS         YY          SSSSSSSSSSS    PP              RR         RR   IIIIIIIIIIII    NN         NN        TT










       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./         ADD NAME=HASP,LIST=ALL
       ./      NUMBER NEW1=20000,INCR=20000
                                        //IEFPROC EXEC PGM=HASP,REGION=144K,TIME=1440                           00020000
                                        //OLAYLIB   DD DSNAME=SYS1.HASPOLIB,DISP=SHR                            00040000
IEB817I MEMBER NAME (HASP    ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002


       ./    ADD NAME=HOSRDR,LIST=ALL
       ./    NUMBER NEW1=1000,INCR=1000
                                        //IEFPROC EXEC PGM=IEFIRC,REGION=64K,TIME=1440,                         00001000
                                        //       PARM='00103005005024905611SPOOL   E00011'                     *00002000
                                        //             BPPTTTOOOMMMIIICCCRLSSSSSSSSAAAADD                      X00003000

                                        //         B   PROGRAMMER NAME AND                         B           *00004000
                                        //             ACCOUNT NUMBER NOT NEEDED                               X00005000
                                        //             PROGRAM CAN BE ROLLED OUT                               X00006000
                                        //         P   PRIORITY=01                                 PP          *00007000

                                        //         T   JOB STEP INTERVAL=030 MINUTES               TTT         *00008000
                                        //         O   PRIMARY SYSOUT SPACE=050 TRACKS             OOO         *00009000
                                        //         M   SECONDARY SYSOUT SPACE=050 TRACKS           MMM         *00010000
                                        //         I   READER/INTERPRETER DISPATCHING PRIORITY=249 III         *00011000
                                        //         C   JOB STEP DEFAULT REGION=056K                CCC         *00012000
                                        //         R   DISPLAY AND EXECUTE COMMANDS=1              R           *00013000
                                        //         L   BYPASS LABEL OPTION=1                       L           *00014000
                                        //         S   SYSOUT UNIT NAME=TSOUT                      SSSSSSSS    *00015000
                                        //         A   COMMAND AUTHORITY FOR MCS=E000              AAAA        *00016000
                                        //             ALL COMMANDS MUST BE AUTHORIZED                         X00017000
                                        //         D   JCL AND ALLOCATION MESSAGE                  DD          *00018000
                                        //             LEVEL DEFAULTS=11                                        00019000

                                        //IEFRDER   DD UNIT=00C,DISP=OLD,                                       00020000
                                        //             DCB=(RECFM=F,LRECL=80,BLKSIZE=80,BUFNO=1)                00021000
                                        //IEFPDSI   DD DISP=SHR,DSN=SYS1.PROCLIB                                00022000

                                        //IEFDATA   DD UNIT=SYSDA,VOLUME=REF=SYS1.LINKLIB,                      00023000
                                        //             SPACE=(80,(200,200),RLSE,CONTIG),DISP=OLD,               00024000
                                        //             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=80,BUFL=80)      00025000
IEB817I MEMBER NAME (HOSRDR  ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0003


       ./         ADD NAME=ASMHASP,LIST=ALL
       ./      NUMBER NEW1=20000,INCR=20000
                                        //ASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
                                        //ASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
                                        //SYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
                                        //          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
                                        //SYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000

                                        //SYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
                                        //SYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
                                        //SYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
                                        //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000

                                        //SYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
                                        //SYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
                                        //SYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
                                        //SYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
                                        //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEB817I MEMBER NAME (ASMHASP ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0004


       ./         ADD NAME=RMTGEN,LIST=ALL
       ./      NUMBER NEW1=20000,INCR=20000
                                        //RMTGEN  EXEC PGM=RMTGEN,REGION=88K                                    00020000
                                        //STEPLIB   DD DSNAME=SYS1.HASPMOD,DISP=SHR                             00040000
                                        //GENPDS    DD DSNAME=SYS1.HASPSRC(HRTPOPTS),DISP=SHR                   00060000

                                        //SYSIN     DD UNIT=SYSDA,SPACE=(3200,(200,50),,,ROUND),                00080000
                                        //             DCB=(RECFM=FB,BLKSIZE=3200,LRECL=80)                     00100000
                                        //SYSLIB    DD DSNAME=SYS1.MACLIB,DISP=SHR                              00120000

                                        //SYSUT1    DD UNIT=SYSDA,SPACE=(1700,(400,50),,,ROUND)                 00140000
                                        //SYSUT2    DD UNIT=SYSDA,SPACE=(1700,(400,50),,,ROUND)                 00160000
                                        //SYSUT3    DD UNIT=(SYSDA,SEP=(SYSUT1,SYSUT2,SYSLIB)),                 00180000
                                        //             SPACE=(1700,(400,50),,,ROUND)                            00200000
                                        //SYSPRINT  DD SYSOUT=A                                                 00220000
                                        //SYSPUNCH  DD SYSOUT=B                                                 00240000
                                        //SYSGO     DD UNIT=SYSDA,SPACE=(400,(100,50),,,ROUND),                 00260000
                                        //             DCB=(RECFM=FB,BLKSIZE=400,LRECL=80)                      00280000
                                        //CARDIN    DD DDNAME=OPTIONS                                           00300000
IEB817I MEMBER NAME (RMTGEN  ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0005


       ./    ADD NAME=HOSBRDR,LIST=ALL

       ./    NUMBER NEW1=1000,INCR=1000
                                        //IEFPROC EXEC PGM=IKJEFF40,REGION=64K,TIME=1440,                       00001000
                                        //       PARM='00103005005024905611SPOOL   E00011'                     *00002000

                                        //             BPPTTTOOOMMMIIICCCRLSSSSSSSSAAAADD                      X00003000
                                        //         B   PROGRAMMER NAME AND                         B           *00004000
                                        //             ACCOUNT NUMBER NOT NEEDED                               X00005000
                                        //             PROGRAM CAN BE ROLLED OUT                               X00006000
                                        //         P   PRIORITY=01                                 PP          *00007000
                                        //         T   JOB STEP INTERVAL=030 MINUTES               TTT         *00008000
                                        //         O   PRIMARY SYSOUT SPACE=050 TRACKS             OOO         *00009000
                                        //         M   SECONDARY SYSOUT SPACE=050 TRACKS           MMM         *00010000
                                        //         I   READER/INTERPRETER DISPATCHING PRIORITY=249 III         *00011000
                                        //         C   JOB STEP DEFAULT REGION=056K                CCC         *00012000
                                        //         R   DISPLAY AND EXECUTE COMMANDS=1              R           *00013000
                                        //         L   BYPASS LABEL OPTION=1                       L           *00014000

                                        //         S   SYSOUT UNIT NAME=TSOUT                      SSSSSSSS    *00015000
                                        //         A   COMMAND AUTHORITY FOR MCS=E000              AAAA        *00016000
                                        //             ALL COMMANDS MUST BE AUTHORIZED                         X00017000
                                        //         D   JCL AND ALLOCATION MESSAGE                  DD          *00018000

                                        //             LEVEL DEFAULTS=11                                        00019000
                                        //HASPRDR  DD  UNIT=INTRDR,DCB=BUFNO=1                                  00020000
                                        //IEFPDSI   DD DISP=SHR,DSN=SYS1.PROCLIB                                00021000
                                        //IEFDATA   DD UNIT=SYSDA,VOL=SER=SPOOL1,                               00022000
                                        //             SPACE=(80,(200,200),RLSE,CONTIG),DISP=OLD,               00023000
                                        //             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=80,BUFL=80)      00024000
                                        //IEFRDER   DD DUMMY,DCB=BLKSIZE=80                                     00025000
       ./ ENDUP
IEB817I MEMBER NAME (HOSBRDR ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


























































************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************










          ASP JOB NO. = 0014                                     DATE = 78.240




//I04PROCS JOB 1,'I04PROCS HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A




          ELAPSED TIME ON MAIN = ASP1     = 000.00, START TIME = 19.59.22

          DDNAME = SYSMSG                     PRINTED ON PR1     , LINES = 000087
          DDNAME = SYSPRINT                   PRINTED ON PR1     , LINES = 000104
          LINES OUTPUT FOR THIS JOB = 000191

       CARDS FROM MAIN FOR THIS JOB = NONE



























************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************

 PPPPPPPPPPPP       0000000           11          GGGGGGGGGGG    EEEEEEEEEEEEE   NN         NN
 PPPPPPPPPPPPP     000000000         111         GGGGGGGGGGGGG   EEEEEEEEEEEEE   NNN        NN
 PP         PP    00       00       1111         GG         GG   EE              NNNN       NN
 PP         PP   00         00        11         GG         GG   EE              NN NN      NN
 PP         PP   00         00        11         GG              EE              NN  NN     NN
 PP         PP   00         00        11         GG              EEEEEEEEE       NN   NN    NN
 PPPPPPPPPPPPP   00         00        11         GG      GGGG    EEEEEEEEE       NN    NN   NN
 PPPPPPPPPPPP    00         00        11         GG      GGGGG   EE              NN     NN  NN
 PP              00         00        11         GG         GG   EE              NN      NN NN
 PP               00       00         11         GG         GG   EE              NN       NNNN
 PP                000000000        111111       GGGGGGGGGGGGG   EEEEEEEEEEEEE   NN        NNN
 PP                 0000000         111111        GGGGGGGGGGG    EEEEEEEEEEEEE   NN         NN









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11          666666666666
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111         6666666666666
            JJ   OO         OO   BB         BB                    00       00     00       00       1111         66
            JJ   OO         OO   BB         BB                   00         00   00         00        11         66
            JJ   OO         OO   BB         BB                   00         00   00         00        11         66
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11         666666666666
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11         6666666666666
            JJ   OO         OO   BB         BB                   00         00   00         00        11         66         66
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11         66         66
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11         66         66
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111       6666666666666
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111        66666666666









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 PPPPPPPPPPPP       0000000           11          GGGGGGGGGGG    EEEEEEEEEEEEE   NN         NN
 PPPPPPPPPPPPP     000000000         111         GGGGGGGGGGGGG   EEEEEEEEEEEEE   NNN        NN
 PP         PP    00       00       1111         GG         GG   EE              NNNN       NN
 PP         PP   00         00        11         GG         GG   EE              NN NN      NN
 PP         PP   00         00        11         GG              EE              NN  NN     NN
 PP         PP   00         00        11         GG              EEEEEEEEE       NN   NN    NN
 PPPPPPPPPPPPP   00         00        11         GG      GGGG    EEEEEEEEE       NN    NN   NN
 PPPPPPPPPPPP    00         00        11         GG      GGGGG   EE              NN     NN  NN
 PP              00         00        11         GG         GG   EE              NN      NN NN
 PP               00       00         11         GG         GG   EE              NN       NNNN
 PP                000000000        111111       GGGGGGGGGGGGG   EEEEEEEEEEEEE   NN        NNN
 PP                 0000000         111111        GGGGGGGGGGG    EEEEEEEEEEEEE   NN         NN









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11          666666666666
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111         6666666666666
            JJ   OO         OO   BB         BB                    00       00     00       00       1111         66
            JJ   OO         OO   BB         BB                   00         00   00         00        11         66
            JJ   OO         OO   BB         BB                   00         00   00         00        11         66
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11         666666666666
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11         6666666666666
            JJ   OO         OO   BB         BB                   00         00   00         00        11         66         66
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11         66         66
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11         66         66
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111       6666666666666
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111        66666666666









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 ISV40 JOB ORIGIN FROM GROUP=LOCAL   , DSP=CR , DEVICE=RD1     , 00C
//P01GEN   JOB 1,'HASPGEN  HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
//*********************************************************************
//*                                                                 ***
//*    Job:      P01GEN                                             ***
//*    Product:  HASP V4 for MVT.                                   ***
//*    Purpose:  Build SYS1.HASPSRC containing customized           ***
//*              HASP source.                                       ***
//*    Update:   2006/07/10                                         ***
//*                                                                 ***
//*********************************************************************
//*
//*-----------------------------------------------------------------***
//*    Copy user HASP parms to a temporary disk data set.           ***
//*-----------------------------------------------------------------***
//COPY    EXEC PGM=IEBGENER,REGION=100K
//SYSPRINT DD SYSOUT=A
//SYSIN    DD DUMMY
//SYSUT2   DD DSN=&&HASPPRM,DISP=(NEW,PASS),UNIT=SYSDA,
//            DCB=(LRECL=80,BLKSIZE=80,RECFM=FB),
//            SPACE=(TRK,(90,90))
//SYSUT1   DD *
/*
//*
//*-----------------------------------------------------------------***
//*    Delete existing SYS1.HASPSRC data set.                       ***
//*-----------------------------------------------------------------***
//DELETE EXEC PGM=IEFBR14,REGION=100K
//HASPSRC  DD  DISP=(OLD,DELETE),DSN=SYS1.HASPSRC
//*
//*-----------------------------------------------------------------***
//*    Execute HASPGEN program to create customized                 ***
//*    SYS1.HASPSRC source library.  The resulting source           ***
//*    reflects customer HASP parms and IBM APAR fixes              ***
//*    but not refit-to-MVT changes or usermods.                    ***
//*-----------------------------------------------------------------***
//HASPGEN EXEC PGM=HASPGEN,PARM=CARDS,REGION=100K
//STEPLIB  DD  DISP=SHR,DSN=SYS1.HASPMOD
//HASPSRC  DD  DSN=SYS1.HASPSRC,
//             VOL=REF=SYS1.HASPIBM,
//             DCB=SYS1.HASPIBM,
//             DISP=(NEW,CATLG),
//             SPACE=(CYL,(60,,20))
//SYSIN    DD  DISP=SHR,DSN=SYS1.HASPIBM
//SYSPRINT DD  SYSOUT=A
//SYSUDUMP DD  SYSOUT=A
//GENIN    DD  DSN=&&HASPPRM,DISP=(OLD,DELETE)
//         DD  DISP=OLD,DSN=SYS1.HASPAPAR
//


 LOCATE' 0016SYS1.HASPSRC                                '
 AL00160E001/ASPSUP0003
 LOCATE' 0016SYS1.HASPMOD                                '
 AL00160E001/ASPSUP0003
 LOCATE' 0016SYS1.HASPIBM                                '
 AL00160E001/ASPSUP0003
 LOCATE' 0016SYS1.HASPIBM                                '
 AL00160E001/ASPSUP0003
 LOCATE' 0016SYS1.HASPAPAR                               '
 AL00160E001/ASPSUP0003


 P01GEN   IEF403I P01GEN   STARTED    TIME=20.00.12
 P01GEN   IEF234E D 665,ASP665
*P01GEN  *20 IECASP0 665 IS P01GEN   A         COPY    SYSPRINT
*P01GEN  *21 IECASP0 666 IS P01GEN             COPY    ASPI0001
 P01GEN   IEC202E K 666,010016,NL,P01GEN,COPY
 P01GEN   STEP: P01GEN   COPY              ET=00.00.00 RC=0000
 P01GEN   STEP: P01GEN   DELETE            ET=00.00.00 RC=0000
 P01GEN   IEF234E D 665,ASP665
*P01GEN  *22 IECASP0 665 IS P01GEN   A         HASPGEN SYSPRINT
 P01GEN   STEP: P01GEN   HASPGEN           ET=00.00.03 RC=0000
 P01GEN   IEF404I P01GEN   ENDED      TIME=20.00.16
//P01GEN   JOB 1,'HASPGEN  HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      P01GEN                                             ***
***    Product:  HASP V4 for MVT.                                   ***
***    Purpose:  Build SYS1.HASPSRC containing customized           ***
***              HASP source.                                       ***
***    Update:   2006/07/10                                         ***
***                                                                 ***
***********************************************************************
***
***-----------------------------------------------------------------***
***    Copy user HASP parms to a temporary disk data set.           ***
***-----------------------------------------------------------------***
//COPY    EXEC PGM=IEBGENER,REGION=100K
//SYSPRINT DD SYSOUT=A
//SYSIN    DD DUMMY
//SYSUT2   DD DSN=&&HASPPRM,DISP=(NEW,PASS),UNIT=SYSDA,
//            DCB=(LRECL=80,BLKSIZE=80,RECFM=FB),
//            SPACE=(TRK,(90,90))
//SYSUT1 DD UNIT=(CTC,,DEFER),DSNAME=&&ASPI0001,                       *
// DISP=(OLD,DELETE),VOL=SER=010016,DCB=(LRECL=80,BLKSIZE=80,RECFM=F)
***
***-----------------------------------------------------------------***
***    Delete existing SYS1.HASPSRC data set.                       ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR P01GEN   COPY
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 158   ALLOCATED TO SYSUT2
IEF237I 666   ALLOCATED TO SYSUT1
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T200012.RV001.P01GEN.ASPOA001       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS78240.T200012.RV001.P01GEN.HASPPRM        PASSED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200012.RV001.P01GEN.ASPI0001       DELETED
IEF285I   VOL SER NOS= 010016.
IEF373I STEP /COPY    / START 78240.2000
IEF374I STEP /COPY    / STOP  78240.2000 CPU   0MIN 00.06SEC MAIN  34K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 20:00:12.86   ALLOC START    20:00:12.87   MAIN REGION ----- 100K                          *
*   STEP NAME COPY       STEP END TIME  20:00:13.02   PGM START TIME 20:00:12.91   MAIN STORAGE ----- 34K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.16   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEBGENER   STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                                                        *
*   0665 ------------ 3       0158 ----------- 25       0666 ----------- 26                                                        *
************************************************************************************************************************************

//DELETE EXEC PGM=IEFBR14,REGION=100K
//HASPSRC  DD  DISP=(OLD,DELETE),DSN=SYS1.HASPSRC
***
***-----------------------------------------------------------------***
***    Execute HASPGEN program to create customized                 ***
***    SYS1.HASPSRC source library.  The resulting source           ***
***    reflects customer HASP parms and IBM APAR fixes              ***
***    but not refit-to-MVT changes or usermods.                    ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR P01GEN   DELETE
IEF237I 151   ALLOCATED TO HASPSRC
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 UNCATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPSRC                                 DELETED
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /DELETE  / START 78240.2000
IEF374I STEP /DELETE  / STOP  78240.2000 CPU   0MIN 00.02SEC MAIN   4K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 20:00:13.02   ALLOC START    20:00:13.03   MAIN REGION ----- 100K                          *
*   STEP NAME DELETE     STEP END TIME  20:00:13.08   PGM START TIME 20:00:13.05   MAIN STORAGE ------ 4K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.06   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEFBR14    STEP CPU TIME  00:00:00.02   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT                                                                                                            *
*   0151 ------------ 0                                                                                                            *
************************************************************************************************************************************

//HASPGEN EXEC PGM=HASPGEN,PARM=CARDS,REGION=100K
//STEPLIB  DD  DISP=SHR,DSN=SYS1.HASPMOD
//HASPSRC  DD  DSN=SYS1.HASPSRC,
//             VOL=REF=SYS1.HASPIBM,
//             DCB=SYS1.HASPIBM,
//             DISP=(NEW,CATLG),
//             SPACE=(CYL,(60,,20))
//SYSIN    DD  DISP=SHR,DSN=SYS1.HASPIBM
//SYSPRINT DD  SYSOUT=A
//SYSUDUMP DD  SYSOUT=A
//GENIN    DD  DSN=&&HASPPRM,DISP=(OLD,DELETE)
//         DD  DISP=OLD,DSN=SYS1.HASPAPAR
//
IEF236I ALLOC. FOR P01GEN   HASPGEN
IEF237I 151   ALLOCATED TO STEPLIB
IEF237I 151   ALLOCATED TO HASPSRC
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 666   ALLOCATED TO SYSUDUMP
IEF237I 158   ALLOCATED TO GENIN
IEF237I 151   ALLOCATED TO
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPMOD                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPSRC                                 CATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPIBM                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T200012.RV001.P01GEN.ASPOA002       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS78240.T200012.RV001.P01GEN.HASPPRM        DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.HASPAPAR                                KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /HASPGEN / START 78240.2000
IEF374I STEP /HASPGEN / STOP  78240.2000 CPU   0MIN 01.84SEC MAIN  58K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 20:00:13.09   ALLOC START    20:00:13.10   MAIN REGION ----- 100K                          *
*   STEP NAME HASPGEN    STEP END TIME  20:00:16.62   PGM START TIME 20:00:13.15   MAIN STORAGE ----- 58K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:03.53   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  HASPGEN    STEP CPU TIME  00:00:01.84   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0151 --------- 2924       0151 --------- 2881       0665 --------- 1388       0666 ------------ 0    *
*   0158 ----------- 27       0151 ---------- 631                                                                                  *
************************************************************************************************************************************

IEF375I  JOB /P01GEN  / START 78240.2000
IEF376I  JOB /P01GEN  / STOP  78240.2000 CPU   0MIN 01.92SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  P01GEN     JOB READ TIME 20:00:12.58   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.92   *
*   JOB CLASS B          JOB INIT TIME 20:00:12.86   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:03.78   *
*   JOB ID    JOB00016   JOB END TIME  20:00:16.64   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 2   *
************************************************************************************************************************************


 PPPPPPPPPPPP       0000000           11          GGGGGGGGGGG    EEEEEEEEEEEEE   NN         NN
 PPPPPPPPPPPPP     000000000         111         GGGGGGGGGGGGG   EEEEEEEEEEEEE   NNN        NN
 PP         PP    00       00       1111         GG         GG   EE              NNNN       NN
 PP         PP   00         00        11         GG         GG   EE              NN NN      NN
 PP         PP   00         00        11         GG              EE              NN  NN     NN
 PP         PP   00         00        11         GG              EEEEEEEEE       NN   NN    NN
 PPPPPPPPPPPPP   00         00        11         GG      GGGG    EEEEEEEEE       NN    NN   NN
 PPPPPPPPPPPP    00         00        11         GG      GGGGG   EE              NN     NN  NN
 PP              00         00        11         GG         GG   EE              NN      NN NN
 PP               00       00         11         GG         GG   EE              NN       NNNN
 PP                000000000        111111       GGGGGGGGGGGGG   EEEEEEEEEEEEE   NN        NNN
 PP                 0000000         111111        GGGGGGGGGGG    EEEEEEEEEEEEE   NN         NN









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11          666666666666
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111         6666666666666
            JJ   OO         OO   BB         BB                    00       00     00       00       1111         66
            JJ   OO         OO   BB         BB                   00         00   00         00        11         66
            JJ   OO         OO   BB         BB                   00         00   00         00        11         66
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11         666666666666
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11         6666666666666
            JJ   OO         OO   BB         BB                   00         00   00         00        11         66         66
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11         66         66
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11         66         66
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111       6666666666666
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111        66666666666









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    PPPPPPPPPPPP    RRRRRRRRRRRR    IIIIIIIIIIII    NN         NN   TTTTTTTTTTTT
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRRR   IIIIIIIIIIII    NNN        NN   TTTTTTTTTTTT
 SS         SS     YY    YY      SS         SS   PP         PP   RR         RR        II         NNNN       NN        TT
 SS                 YY  YY       SS              PP         PP   RR         RR        II         NN NN      NN        TT
 SS                  YYYY        SS              PP         PP   RR         RR        II         NN  NN     NN        TT
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    PP         PP   RRRRRRRRRRRRR        II         NN   NN    NN        TT
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRR         II         NN    NN   NN        TT
            SS        YY                    SS   PPPPPPPPPPPP    RR      RR           II         NN     NN  NN        TT
            SS        YY                    SS   PP              RR       RR          II         NN      NN NN        TT
 SS         SS        YY         SS         SS   PP              RR        RR         II         NN       NNNN        TT
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   PP              RR         RR   IIIIIIIIIIII    NN        NNN        TT
  SSSSSSSSSSS         YY          SSSSSSSSSSS    PP              RR         RR   IIIIIIIIIIII    NN         NN        TT










DATA SET UTILITY - GENERATE                                                                       PAGE 0001



PROCESSING ENDED AT EOD

                         HASPGEN OPTIONS                                                                        PAGE   1


 NAME                  STANDARD VALUE              DESCRIPTION

&NUMRDRS                  1                   NUMBER OF READERS
&NUMINRS                  0                   NUMBER OF INTERNAL READERS
&NUMPRTS                  2                   NUMBER OF PRINTERS
&NUMPUNS                  1                   NUMBER OF PUNCHES
&NUMDA                    2                   NUMBER OF DIRECT ACCESS MODULES
&BUFSIZE                  1960                HASP BUFFER SIZE
&NUMBUF                   15                  NUMBER OF ASSEMBLED BUFFERS
&RESCORE                  0                   RESERVED DYNAMIC CORE, K BYTES
&NUMOACE                  2                   NUMBER OF OVERLAY AREAS
&OLAYLEV                  15                  DEGREE OF OVERLAY
&NUMWTOQ                  15                  NUMBER OF WTO QUEUES
&NUMSMFB                  5                   NUMBER OF HASP SMF BUFFERS
&SMFRSIZ                  228                 MAXIMUM SIZE OF HASP SMF RECORD
&MAXJOBS                  100                 MAXIMUM NUMBER OF JOBS IN SYSTEM
&NUMTGV                   400                 NUMBER OF TRACK GROUPS PER VOLUME
&MAXXEQS                  3                   MAXIMUM JOBS FOR O/S MULTI-JOBBING
&MAXPART                  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS
&MAXCLAS                  8                   MAXIMUM CLASSES/PIT
&NUMDDT                   40                  NUMBER OF DATA DEFINITION TABLES
&NUMCLAS                  8                   MAX CLASSES PER PRT/PUN
&PRIRATE                  0                   PRIORITY AGING RATE
&PRIHIGH                  10                  PRIORITY AGING UPPER LIMIT
&PRILOW                   5                   PRIORITY AGING LOWER LIMIT
&NOPRCCW                  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT
&NOPUCCW                  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN
$CKPTIME                  60                  SYSTEM CHECKPOINT INTERVAL
&APGPRTY                  7                   AUTOMATIC PRIORITY GROUP - VS2
&RDR                      '0FC'               EBCDIC NAME OF SYSTEM READER
&WTR                      '0FE'               EBCDIC NAME OF SYSTEM WRITER
&WTRCLAS                  'A'                 CLASSES PROCESSED BY HASP WRITER
&WCLSREQ                  '********'          RE-QUEUE CLASSES FOR HASP WRITER
&XBATCHC                  ''                  XEQ BATCHING CLASSES
&XBATCHN                  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX
&SPOOL                    'SPOOL'             SPOOL VOLUME PREFIX
&AUTORDR                  (&YES)              AUTOMATIC STARTING READER OPTION
&RJOBOPT                  2                   JOB CARD SCAN OPTION
&OSINOPT                  (&NO)               O/S INPUT SPOOLING OPTION
&TSOSTCN                  (&NO)               STATUS/CANCEL SUPPORT OPTION
&LOGOPT                   (&YES)              HASP LOG OPTION
&TIMEOPT                  4                   TIME EXCESSION OPTION
&OUTPOPT                  0                   OUTPUT EXCESSION OPTION
&JCOPYLM                  3                   OUTPUT JOB COPY LIMIT
&STDFORM                  'STD.'              STANDARD FORMS ID
&PRTFCB                   '6'                 STANDARD FCB ID
&PRTRANS                  (&YES)              PRINT TRANSLATE OPTION
&DMNDSET                  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS
&PRTUCS                   '0'                 PRINTER UNIV CHAR SET OPTION
&FCBV                     (&NO)               VARIABLE 3211 FCB OPTION
&RPS                      (&NO)               ROTATIONAL POSITION SENSING
&DEBUG                    (&NO)               DEBUG MODE
&TRACE                    0                   NUMBER ENTRIES IN HASP TRACE TABLE
&OREPSIZ                  50                  SIZE OF OVERLAY REP STORAGE AREA
&NUMLNES                  0                   NUMBER OF REMOTE LINE ADAPTERS
&NUMRJE                   &NUMLNES            NUMBER OF REMOTE TERMINALS
&TPBFSIZ                  400                 LENGTH OF RJE BUFFER WORK AREA

                         HASPGEN OPTIONS                                                                        PAGE   2


 NAME                  STANDARD VALUE              DESCRIPTION

&NUMTPBF                  &NUMLNES            NUMBER OF RJE BUFFERS
&SPOLMSG                  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE
&BSCCPU                   (&NO)               BSC CPU TERMINAL RJE OPTION
&NUMTPRD                  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS
&NUMTPPR                  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS
&NUMTPPU                  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS
&NUMJOES                  10*&NUMPRC          NUMBER OF JOB OUTPUT ELEMENTS
&MINJOES                  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES
&MINBUF                   &MINBUF             MINIMUM BUFFER WARNING THRESHOLD
&RPRT(1)                  2                   FIRST INTERVAL
&RPRT(2)                  5                   SECOND INTERVAL
&RPRT(3)                  15                  THIRD INTERVAL
&RPRT(4)                  X'FFFFFF'/60        FOURTH INTERVAL
&RPRT(5)                  X'FFFFFF'/60        FIFTH INTERVAL
&RPRT(6)                  X'FFFFFF'/60        SIXTH INTERVAL
&RPRT(7)                  X'FFFFFF'/60        SEVENTH INTERVAL
&RPRT(8)                  X'FFFFFF'/60        EIGHTH INTERVAL
&RPRT(9)                  X'FFFFFF'/60        NINTH INTERVAL
&RPRI(1)                  9                   FIRST INTERVAL
&RPRI(2)                  8                   SECOND INTERVAL
&RPRI(3)                  7                   THIRD INTERVAL
&RPRI(4)                  6                   FOURTH INTERVAL
&RPRI(5)                  5                   FIFTH INTERVAL
&RPRI(6)                  4                   SIXTH INTERVAL
&RPRI(7)                  3                   SEVENTH INTERVAL
&RPRI(8)                  2                   EIGHTH INTERVAL
&RPRI(9)                  1                   NINTH INTERVAL
&XLIN(1)                  2000                FIRST INTERVAL
&XLIN(2)                  5000                SECOND INTERVAL
&XLIN(3)                  15000               THIRD INTERVAL
&XLIN(4)                  X'FFFFFF'           FOURTH INTERVAL
&XLIN(5)                  X'FFFFFF'           FIFTH INTERVAL
&XLIN(6)                  X'FFFFFF'           SIXTH INTERVAL
&XLIN(7)                  X'FFFFFF'           SEVENTH INTERVAL
&XLIN(8)                  X'FFFFFF'           EIGHTH INTERVAL
&XLIN(9)                  X'FFFFFF'           NINTH INTERVAL
&XPRI(1)                  9                   FIRST INTERVAL
&XPRI(2)                  8                   SECOND INTERVAL
&XPRI(3)                  7                   THIRD INTERVAL
&XPRI(4)                  6                   FOURTH INTERVAL
&XPRI(5)                  5                   FIFTH INTERVAL
&XPRI(6)                  4                   SIXTH INTERVAL
&XPRI(7)                  3                   SEVENTH INTERVAL
&XPRI(8)                  2                   EIGHTH INTERVAL
&XPRI(9)                  1                   NINTH INTERVAL
&NUMOSC                   3                   NUMBER OF OS CONSOLES
&LONGCOM                  (&NO)               LONG FORM OF COMMAND OPTION
$BSPACE                   '5F'                CONSOLE BACKSPACE CHARACTER
$REPRDR                   '00C'               REP INPUT DEVICE ADDRESS
$REPWTR                   '00E'               REP LISTING DEVICE ADDRESS
LINE01                    '***01'             LINE  1 DESCRIPTION
LINE02                    '***01'             LINE  2 DESCRIPTION
LINE03                    '***01'             LINE  3 DESCRIPTION
LINE04                    '***01'             LINE  4 DESCRIPTION
LINE05                    '***01'             LINE  5 DESCRIPTION

                         HASPGEN OPTIONS                                                                        PAGE   3


 NAME                  STANDARD VALUE              DESCRIPTION

LINE06                    '***01'             LINE  6 DESCRIPTION
LINE07                    '***01'             LINE  7 DESCRIPTION
LINE08                    '***01'             LINE  8 DESCRIPTION
LINE09                    '***01'             LINE  9 DESCRIPTION
LINE10                    '***01'             LINE 10 DESCRIPTION
LINE11                    '***01'             LINE 11 DESCRIPTION
LINE12                    '***01'             LINE 12 DESCRIPTION
LINE13                    '***01'             LINE 13 DESCRIPTION
LINE14                    '***01'             LINE 14 DESCRIPTION
LINE15                    '***01'             LINE 15 DESCRIPTION
LINE16                    '***01'             LINE 16 DESCRIPTION
LINE17                    '***01'             LINE 17 DESCRIPTION
LINE18                    '***01'             LINE 18 DESCRIPTION
LINE19                    '***01'             LINE 19 DESCRIPTION
LINE20                    '***01'             LINE 20 DESCRIPTION
LINE21                    '***01'             LINE 21 DESCRIPTION
LINE22                    '***01'             LINE 22 DESCRIPTION
LINE23                    '***01'             LINE 23 DESCRIPTION
LINE24                    '***01'             LINE 24 DESCRIPTION
LINE25                    '***01'             LINE 25 DESCRIPTION
LINE26                    '***01'             LINE 26 DESCRIPTION
LINE27                    '***01'             LINE 27 DESCRIPTION
LINE28                    '***01'             LINE 28 DESCRIPTION
LINE29                    '***01'             LINE 29 DESCRIPTION
LINE30                    '***01'             LINE 30 DESCRIPTION
LINE31                    '***01'             LINE 31 DESCRIPTION
LINE32                    '***01'             LINE 32 DESCRIPTION
LINE33                    '***01'             LINE 33 DESCRIPTION
LINE34                    '***01'             LINE 34 DESCRIPTION
LINE35                    '***01'             LINE 35 DESCRIPTION
LINE36                    '***01'             LINE 36 DESCRIPTION
LINE37                    '***01'             LINE 37 DESCRIPTION
LINE38                    '***01'             LINE 38 DESCRIPTION
LINE39                    '***01'             LINE 39 DESCRIPTION
LINE40                    '***01'             LINE 40 DESCRIPTION
LINE41                    '***01'             LINE 41 DESCRIPTION
LINE42                    '***01'             LINE 42 DESCRIPTION
LINE43                    '***01'             LINE 43 DESCRIPTION
LINE44                    '***01'             LINE 44 DESCRIPTION
LINE45                    '***01'             LINE 45 DESCRIPTION
LINE46                    '***01'             LINE 46 DESCRIPTION
LINE47                    '***01'             LINE 47 DESCRIPTION
LINE48                    '***01'             LINE 48 DESCRIPTION
LINE49                    '***01'             LINE 49 DESCRIPTION
LINE50                    '***01'             LINE 50 DESCRIPTION
LINE51                    '***01'             LINE 51 DESCRIPTION
LINE52                    '***01'             LINE 52 DESCRIPTION
LINE53                    '***01'             LINE 53 DESCRIPTION
LINE54                    '***01'             LINE 54 DESCRIPTION
LINE55                    '***01'             LINE 55 DESCRIPTION
LINE56                    '***01'             LINE 56 DESCRIPTION
LINE57                    '***01'             LINE 57 DESCRIPTION
LINE58                    '***01'             LINE 58 DESCRIPTION
LINE59                    '***01'             LINE 59 DESCRIPTION
LINE60                    '***01'             LINE 60 DESCRIPTION

                         HASPGEN OPTIONS                                                                        PAGE   4


 NAME                  STANDARD VALUE              DESCRIPTION

LINE61                    '***01'             LINE 61 DESCRIPTION
LINE62                    '***01'             LINE 62 DESCRIPTION
LINE63                    '***01'             LINE 63 DESCRIPTION
LINE64                    '***01'             LINE 64 DESCRIPTION
LINE65                    '***01'             LINE 65 DESCRIPTION
LINE66                    '***01'             LINE 66 DESCRIPTION
LINE67                    '***01'             LINE 67 DESCRIPTION
LINE68                    '***01'             LINE 68 DESCRIPTION
LINE69                    '***01'             LINE 69 DESCRIPTION
LINE70                    '***01'             LINE 70 DESCRIPTION
LINE71                    '***01'             LINE 71 DESCRIPTION
LINE72                    '***01'             LINE 72 DESCRIPTION
LINE73                    '***01'             LINE 73 DESCRIPTION
LINE74                    '***01'             LINE 74 DESCRIPTION
LINE75                    '***01'             LINE 75 DESCRIPTION
LINE76                    '***01'             LINE 76 DESCRIPTION
LINE77                    '***01'             LINE 77 DESCRIPTION
LINE78                    '***01'             LINE 78 DESCRIPTION
LINE79                    '***01'             LINE 79 DESCRIPTION
LINE80                    '***01'             LINE 80 DESCRIPTION
LINE81                    '***01'             LINE 81 DESCRIPTION
LINE82                    '***01'             LINE 82 DESCRIPTION
LINE83                    '***01'             LINE 83 DESCRIPTION
LINE84                    '***01'             LINE 84 DESCRIPTION
LINE85                    '***01'             LINE 85 DESCRIPTION
LINE86                    '***01'             LINE 86 DESCRIPTION
LINE87                    '***01'             LINE 87 DESCRIPTION
LINE88                    '***01'             LINE 88 DESCRIPTION
LINE89                    '***01'             LINE 89 DESCRIPTION
LINE90                    '***01'             LINE 90 DESCRIPTION
LINE91                    '***01'             LINE 91 DESCRIPTION
LINE92                    '***01'             LINE 92 DESCRIPTION
LINE93                    '***01'             LINE 93 DESCRIPTION
LINE94                    '***01'             LINE 94 DESCRIPTION
LINE95                    '***01'             LINE 95 DESCRIPTION
LINE96                    '***01'             LINE 96 DESCRIPTION
LINE97                    '***01'             LINE 97 DESCRIPTION
LINE98                    '***01'             LINE 98 DESCRIPTION
LINE99                    '***01'             LINE 99 DESCRIPTION
RMT01                     '**010000153131'    REMOTE  1 DESCRIPTION
RMT02                     '**020000153131'    REMOTE  2 DESCRIPTION
RMT03                     '**030000153131'    REMOTE  3 DESCRIPTION
RMT04                     '**040000153131'    REMOTE  4 DESCRIPTION
RMT05                     '**050000153131'    REMOTE  5 DESCRIPTION
RMT06                     '**060000153131'    REMOTE  6 DESCRIPTION
RMT07                     '**070000153131'    REMOTE  7 DESCRIPTION
RMT08                     '**080000153131'    REMOTE  8 DESCRIPTION
RMT09                     '**090000153131'    REMOTE  9 DESCRIPTION
RMT10                     '**100000153131'    REMOTE 10 DESCRIPTION
RMT11                     '**110000153131'    REMOTE 11 DESCRIPTION
RMT12                     '**120000153131'    REMOTE 12 DESCRIPTION
RMT13                     '**130000153131'    REMOTE 13 DESCRIPTION
RMT14                     '**140000153131'    REMOTE 14 DESCRIPTION
RMT15                     '**150000153131'    REMOTE 15 DESCRIPTION
RMT16                     '**160000153131'    REMOTE 16 DESCRIPTION

                         HASPGEN OPTIONS                                                                        PAGE   5


 NAME                  STANDARD VALUE              DESCRIPTION

RMT17                     '**170000153131'    REMOTE 17 DESCRIPTION
RMT18                     '**180000153131'    REMOTE 18 DESCRIPTION
RMT19                     '**190000153131'    REMOTE 19 DESCRIPTION
RMT20                     '**200000153131'    REMOTE 20 DESCRIPTION
RMT21                     '**210000153131'    REMOTE 21 DESCRIPTION
RMT22                     '**220000153131'    REMOTE 22 DESCRIPTION
RMT23                     '**230000153131'    REMOTE 23 DESCRIPTION
RMT24                     '**240000153131'    REMOTE 24 DESCRIPTION
RMT25                     '**250000153131'    REMOTE 25 DESCRIPTION
RMT26                     '**260000153131'    REMOTE 26 DESCRIPTION
RMT27                     '**270000153131'    REMOTE 27 DESCRIPTION
RMT28                     '**280000153131'    REMOTE 28 DESCRIPTION
RMT29                     '**290000153131'    REMOTE 29 DESCRIPTION
RMT30                     '**300000153131'    REMOTE 30 DESCRIPTION
RMT31                     '**310000153131'    REMOTE 31 DESCRIPTION
RMT32                     '**320000153131'    REMOTE 32 DESCRIPTION
RMT33                     '**330000153131'    REMOTE 33 DESCRIPTION
RMT34                     '**340000153131'    REMOTE 34 DESCRIPTION
RMT35                     '**350000153131'    REMOTE 35 DESCRIPTION
RMT36                     '**360000153131'    REMOTE 36 DESCRIPTION
RMT37                     '**370000153131'    REMOTE 37 DESCRIPTION
RMT38                     '**380000153131'    REMOTE 38 DESCRIPTION
RMT39                     '**390000153131'    REMOTE 39 DESCRIPTION
RMT40                     '**400000153131'    REMOTE 40 DESCRIPTION
RMT41                     '**410000153131'    REMOTE 41 DESCRIPTION
RMT42                     '**420000153131'    REMOTE 42 DESCRIPTION
RMT43                     '**430000153131'    REMOTE 43 DESCRIPTION
RMT44                     '**440000153131'    REMOTE 44 DESCRIPTION
RMT45                     '**450000153131'    REMOTE 45 DESCRIPTION
RMT46                     '**460000153131'    REMOTE 46 DESCRIPTION
RMT47                     '**470000153131'    REMOTE 47 DESCRIPTION
RMT48                     '**480000153131'    REMOTE 48 DESCRIPTION
RMT49                     '**490000153131'    REMOTE 49 DESCRIPTION
RMT50                     '**500000153131'    REMOTE 50 DESCRIPTION
RMT51                     '**510000153131'    REMOTE 51 DESCRIPTION
RMT52                     '**520000153131'    REMOTE 52 DESCRIPTION
RMT53                     '**530000153131'    REMOTE 53 DESCRIPTION
RMT54                     '**540000153131'    REMOTE 54 DESCRIPTION
RMT55                     '**550000153131'    REMOTE 55 DESCRIPTION
RMT56                     '**560000153131'    REMOTE 56 DESCRIPTION
RMT57                     '**570000153131'    REMOTE 57 DESCRIPTION
RMT58                     '**580000153131'    REMOTE 58 DESCRIPTION
RMT59                     '**590000153131'    REMOTE 59 DESCRIPTION
RMT60                     '**600000153131'    REMOTE 60 DESCRIPTION
RMT61                     '**610000153131'    REMOTE 61 DESCRIPTION
RMT62                     '**620000153131'    REMOTE 62 DESCRIPTION
RMT63                     '**630000153131'    REMOTE 63 DESCRIPTION
RMT64                     '**640000153131'    REMOTE 64 DESCRIPTION
RMT65                     '**650000153131'    REMOTE 65 DESCRIPTION
RMT66                     '**660000153131'    REMOTE 66 DESCRIPTION
RMT67                     '**670000153131'    REMOTE 67 DESCRIPTION
RMT68                     '**680000153131'    REMOTE 68 DESCRIPTION
RMT69                     '**690000153131'    REMOTE 69 DESCRIPTION
RMT70                     '**700000153131'    REMOTE 70 DESCRIPTION
RMT71                     '**710000153131'    REMOTE 71 DESCRIPTION

                         HASPGEN OPTIONS                                                                        PAGE   6


 NAME                  STANDARD VALUE              DESCRIPTION

RMT72                     '**720000153131'    REMOTE 72 DESCRIPTION
RMT73                     '**730000153131'    REMOTE 73 DESCRIPTION
RMT74                     '**740000153131'    REMOTE 74 DESCRIPTION
RMT75                     '**750000153131'    REMOTE 75 DESCRIPTION
RMT76                     '**760000153131'    REMOTE 76 DESCRIPTION
RMT77                     '**770000153131'    REMOTE 77 DESCRIPTION
RMT78                     '**780000153131'    REMOTE 78 DESCRIPTION
RMT79                     '**790000153131'    REMOTE 79 DESCRIPTION
RMT80                     '**800000153131'    REMOTE 80 DESCRIPTION
RMT81                     '**810000153131'    REMOTE 81 DESCRIPTION
RMT82                     '**820000153131'    REMOTE 82 DESCRIPTION
RMT83                     '**830000153131'    REMOTE 83 DESCRIPTION
RMT84                     '**840000153131'    REMOTE 84 DESCRIPTION
RMT85                     '**850000153131'    REMOTE 85 DESCRIPTION
RMT86                     '**860000153131'    REMOTE 86 DESCRIPTION
RMT87                     '**870000153131'    REMOTE 87 DESCRIPTION
RMT88                     '**880000153131'    REMOTE 88 DESCRIPTION
RMT89                     '**890000153131'    REMOTE 89 DESCRIPTION
RMT90                     '**900000153131'    REMOTE 90 DESCRIPTION
RMT91                     '**910000153131'    REMOTE 91 DESCRIPTION
RMT92                     '**920000153131'    REMOTE 92 DESCRIPTION
RMT93                     '**930000153131'    REMOTE 93 DESCRIPTION
RMT94                     '**940000153131'    REMOTE 94 DESCRIPTION
RMT95                     '**950000153131'    REMOTE 95 DESCRIPTION
RMT96                     '**960000153131'    REMOTE 96 DESCRIPTION
RMT97                     '**970000153131'    REMOTE 97 DESCRIPTION
RMT98                     '**980000153131'    REMOTE 98 DESCRIPTION
RMT99                     '**990000153131'    REMOTE 99 DESCRIPTION
$PRIDCT                   61                  LINES ON LOCAL PRINT SEP PAGE
$TPIDCT                   6                   LINES ON REMOTE PRINT SEP PAGE
$PRTBOPT                  2                   LOCAL PRINT BUFFERING OPTION
$PUNBOPT                  1                   LOCAL PUNCH BUFFERING OPTION
$RPRBOPT                  1                   REMOTE PRINT BUFFERING OPTION
$RPUBOPT                  1                   REMOTE PUNCH BUFFERING OPTION
$ESTIME                   2                   ESTIMATED MINUTES OF EXECUTION TIME
$ESTLNCT                  2                   ESTIMATED THOUSANDS OF LINES
$ESTPUN                   100                 ESTIMATED CARDS TO BE PUNCHED
$LINECT                   61                  NUMBER OF LINES PER PAGE
&MLBFSIZ                  400                 MULTI-LEAVING BUFFER SIZE
&BSC2770                  (&NO)               BSC 2770 TERMINAL OPTION
&BSC2780                  (&NO)               BSC 2780 TERMINAL OPTION
&BSC3780                  (&NO)               BSC 3780 TERMINAL OPTION
&BSHPRSU                  (&YES)              BSC HARDWARE PRINTER SUSPEND OPTION
&BSHTAB                   (&YES)              BSC HDW PRT HORIZ FORM CTL OPT
&BSVBOPT                  (&NO)               2780 VARIABLE BLOCKING OPTION
&BSHPRES                  (&NO)               BSC HARDWARE COMPRESS OPTION
&USASCII                  (&NO)               USASCII OPTION
$WAITIME                  1                   TERMINAL POLLING TIME IN SECONDS
$DELAYTM                  100                 MODEL 20 DELAY TIME
$TIMEXS                   1                   TIME EXCESSION MESSAGE INCREMENT
$OUTXS                    2000                OUTPUT EXCESSION MESSAGE INCREMENT
&PID(1)                   '1'                 ID FOR LOGICAL PARTITION 1
&PID(2)                   '2'                 ID FOR LOGICAL PARTITION 2
&PID(3)                   '3'                 ID FOR LOGICAL PARTITION 3
&PID(4)                   '4'                 ID FOR LOGICAL PARTITION 4

                         HASPGEN OPTIONS                                                                        PAGE   7


 NAME                  STANDARD VALUE              DESCRIPTION

&PID(5)                   '5'                 ID FOR LOGICAL PARTITION 5
&PID(6)                   '6'                 ID FOR LOGICAL PARTITION 6
&PID(7)                   '7'                 ID FOR LOGICAL PARTITION 7
&PID(8)                   '8'                 ID FOR LOGICAL PARTITION 8
&PID(9)                   '9'                 ID FOR LOGICAL PARTITION 9
&PID(10)                  '10'                ID FOR LOGICAL PARTITION 10
&PID(11)                  '11'                ID FOR LOGICAL PARTITION 11
&PID(12)                  '12'                ID FOR LOGICAL PARTITION 12
&PID(13)                  '13'                ID FOR LOGICAL PARTITION 13
&PID(14)                  '14'                ID FOR LOGICAL PARTITION 14
&PID(15)                  '15'                ID FOR LOGICAL PARTITION 15
&PRI(1)                   7                   PRIORITY (PRTY) OF INITIATOR 1
&PRI(2)                   7                   PRIORITY (PRTY) OF INITIATOR 2
&PRI(3)                   7                   PRIORITY (PRTY) OF INITIATOR 3
&PRI(4)                   7                   PRIORITY (PRTY) OF INITIATOR 4
&PRI(5)                   7                   PRIORITY (PRTY) OF INITIATOR 5
&PRI(6)                   7                   PRIORITY (PRTY) OF INITIATOR 6
&PRI(7)                   7                   PRIORITY (PRTY) OF INITIATOR 7
&PRI(8)                   7                   PRIORITY (PRTY) OF INITIATOR 8
&PRI(9)                   7                   PRIORITY (PRTY) OF INITIATOR 9
&PRI(10)                  7                   PRIORITY (PRTY) OF INITIATOR 10
&PRI(11)                  7                   PRIORITY (PRTY) OF INITIATOR 11
&PRI(12)                  7                   PRIORITY (PRTY) OF INITIATOR 12
&PRI(13)                  7                   PRIORITY (PRTY) OF INITIATOR 13
&PRI(14)                  7                   PRIORITY (PRTY) OF INITIATOR 14
&PRI(15)                  7                   PRIORITY (PRTY) OF INITIATOR 15
&OSC(1)                   'A'                 O/S CLASS FOR PART/INIT 1
&OSC(2)                   'B'                 O/S CLASS FOR PART/INIT 2
&OSC(3)                   'C'                 O/S CLASS FOR PART/INIT 3
&OSC(4)                   'D'                 O/S CLASS FOR PART/INIT 4
&OSC(5)                   'E'                 O/S CLASS FOR PART/INIT 5
&OSC(6)                   'F'                 O/S CLASS FOR PART/INIT 6
&OSC(7)                   'G'                 O/S CLASS FOR PART/INIT 7
&OSC(8)                   'H'                 O/S CLASS FOR PART/INIT 8
&OSC(9)                   'I'                 O/S CLASS FOR PART/INIT 9
&OSC(10)                  'J'                 O/S CLASS FOR PART/INIT 10
&OSC(11)                  'K'                 O/S CLASS FOR PART/INIT 11
&OSC(12)                  'L'                 O/S CLASS FOR PART/INIT 12
&OSC(13)                  'M'                 O/S CLASS FOR PART/INIT 13
&OSC(14)                  'N'                 O/S CLASS FOR PART/INIT 14
&OSC(15)                  'O'                 O/S CLASS FOR PART/INIT 15
&CLS(1)                   'A'                 HASP CLASSES FOR PART/INIT 1
&CLS(2)                   'BA'                HASP CLASSES FOR PART/INIT 2
&CLS(3)                   'CBA'               HASP CLASSES FOR PART/INIT 3
&CLS(4)                   'DCBA'              HASP CLASSES FOR PART/INIT 4
&CLS(5)                   'EDCBA'             HASP CLASSES FOR PART/INIT 5
&CLS(6)                   'FEDCBA'            HASP CLASSES FOR PART/INIT 6
&CLS(7)                   'GFEDCBA'           HASP CLASSES FOR PART/INIT 7
&CLS(8)                   'HGFEDCBA'          HASP CLASSES FOR PART/INIT 8
&CLS(9)                   'IHGFEDCB'          HASP CLASSES FOR PART/INIT 9
&CLS(10)                  'JIHGFEDC'          HASP CLASSES FOR PART/INIT 10
&CLS(11)                  'KJIHGFED'          HASP CLASSES FOR PART/INIT 11
&CLS(12)                  'LKJIHGFE'          HASP CLASSES FOR PART/INIT 12
&CLS(13)                  'MLKJIHGF'          HASP CLASSES FOR PART/INIT 13
&CLS(14)                  'NMLKJIHG'          HASP CLASSES FOR PART/INIT 14

                         HASPGEN OPTIONS                                                                        PAGE   8


 NAME                  STANDARD VALUE              DESCRIPTION

&CLS(15)                  'ONMLKJIH'          HASP CLASSES FOR PART/INIT 15
$$A                       'A'                    A        A
$$B                       'B'                    B        B
$$C                       'A'                    C        A
$$D                       'A'                    D        A
$$E                       'A'                    E        A
$$F                       'A'                    F        A
$$G                       'A'                    G        A
$$H                       'A'                    H        A
$$I                       'A'                    I        A
$$J                       'A'                    J        A
$$K                       'B'                    K        B
$$L                       'A'                    L        A
$$M                       'A'                    M        A
$$N                       'A'                    N        A
$$O                       'A'                    O        A
$$P                       'A'                    P        A
$$Q                       'A'                    Q        A
$$R                       'A'                    R        A
$$S                       'A'                    S        A
$$T                       'A'                    T        A
$$U                       'A'                    U        A
$$V                       'A'                    V        A
$$W                       'A'                    W        A
$$X                       'A'                    X        A
$$Y                       'A'                    Y        1&
$$Z                       'A'                    Z        A
$$0                       'A'                    0        A
$$1                       'A'                    1        A
$$2                       'A'                    2        A
$$3                       'A'                    3        A
$$4                       'A'                    4        A
$$5                       'A'                    5        A
$$6                       'A'                    6        A
$$7                       'A'                    7        A
$$8                       'A'                    8        A
$$9                       'A'                    9        A
&TPBFSIZ                  400                 DEFAULT BUFFER SIZE
&MLBFSIZ                  400                 MULTI-LEAVING BUFFER SIZE
&BSCCPU                   'NO'                BSC CPU TERMINAL RJE OPTION
&TPBFSIZ                  400                 LENGTH OF TP BUFFER WORK AREA
&TPBFSIZ                  400                 HASP RJE BUFFER SIZE
&MLBFSIZ                  400                 MULTI-LEAVING BUFFER SIZE
&TPBFSIZ                  400                 DEFAULT HASP TP BUFFER SIZE
&MLBFSIZ                  400                 MULTI-LEAVING TP BUFFER SIZE

HASPGEN OPTION MODIFICATIONS


&CLS(1)  SET TO RA9
&CLS(2)  SET TO RA9
&CLS(3)  SET TO RA9
&JCOPYLM SET TO 20
&MAXJOBS SET TO 100
&MAXXEQS SET TO 3
&NUMDDT  SET TO 96
&NUMINRS SET TO 6
&NUMOSC  SET TO 5
&NUMPRTS SET TO 2
&NUMPUNS SET TO 1
&NUMRDRS SET TO 1
&NUMJOES SET TO 64
&NUMWTOQ SET TO 64
&PRTRANS SET TO NO
&RDR     SET TO 700
&TSOSTCN SET TO YES
&WCLSREQ SET TO *X
&WTRCLAS SET TO AH
&WTR     SET TO 720
$$H      SET TO *

          HASPGEN UPDATE                LOG                                                                     PAGE   1


                                        ./    ADD NAME=$INITSVC,LIST=ALL
                                        ./    NUMBER NEW1=1000,INCR=1000
         SOURCE LINE INSERTED           &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT

          HASPGEN UPDATE                LOG                                                                     PAGE   2


                                        ./ CHANGE NAME=$CMB
         SOURCE LINE INSERTED           CMBEND   EQU   *                   END OF CMB                   OY05859 CM121000

          HASPGEN UPDATE                LOG                                                                     PAGE   3


                                        ./  CHANGE  NAME=$DCB                                           OY10188
         SOURCE LINE DELETED            .A       DCBD                                                           DB010000
         SOURCE LINE INSERTED           .A       DCBD  DSORG=PS                                         OY10188 DB010000

          HASPGEN UPDATE                LOG                                                                     PAGE   4


                                        ./ CHANGE NAME=$HASPGEN
         SOURCE LINE INSERTED           &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000

          HASPGEN UPDATE                LOG                                                                     PAGE   5


                                        ./ CHANGE NAME=$PPPWORK
         SOURCE LINE INSERTED           PLSAVE2  DS    F                   SECOND LINK REG SAVE WORD    OY04719 PW599000
         SOURCE LINE INSERTED           PLSAVE3  DS    F                   THIRD LINK REG SAVE WORD     OY07290 PW599500

          HASPGEN UPDATE                LOG                                                                     PAGE   6


                                        ./ CHANGE NAME=$XXC
         SOURCE LINE DELETED                     AIF   ('&OP' NE 'CLC' OR &COUNT LE 256).CLC2                   XX050500
         SOURCE LINE INSERTED                    AIF   ('&OP' NE 'CLC' OR &D1 EQ 0).CLC2                OY04701 XX050500

          HASPGEN UPDATE                LOG                                                                     PAGE   7


                                        ./ CHANGE NAME=HASPCOMM
         SOURCE LINE INSERTED                    ST    WA,PCEWA            SAVE WORK REGISTER           OY08684 C0488500
         SOURCE LINE INSERTED                    L     WA,4(0,R1)          CLEAR HIGH ORDER BYTE OF     OY08684 C0489000
         SOURCE LINE INSERTED                    LA    WA,0(0,WA)          NEXT OPERAND POINTER         OY08684 C0489500
         SOURCE LINE DELETED                     C     R15,4(0,R1)         DID WE GO TOO FAR                    C0490000
         SOURCE LINE INSERTED                    CR    R15,WA              DID WE GO TOO FAR            OY08684 C0490000
         SOURCE LINE INSERTED                    L     WA,PCEWA            RESTORE WORK REGISTER        OY08684 C0491000
         SOURCE LINE DELETED                     BL    *-16                LOOP UNTIL NUMERIC OR ERROR          C0492000
         SOURCE LINE INSERTED                    BL    *-30                LOOP UNTIL NUMERIC OR ERROR  OY08684 C0492000
         SOURCE LINE INSERTED           .F       CLI   1(R15),C'0'         IS NEXT CHARACTER NUMERIC    OY05847 C0560300
         SOURCE LINE INSERTED                    AIF   ('&TYPE' EQ 'CALL').FA                           OY05847 C0560600
         SOURCE LINE INSERTED                    BCR   L,LINK              NO RETURN INVALID OPERAND    OY05847 C0560900
         SOURCE LINE INSERTED                    AGO   .FB                                              OY05847 C0561200
         SOURCE LINE INSERTED           .FA      BL    &NOK                NO RETURN INVALID OPERAND    OY05847 C0561500
         SOURCE LINE DELETED            .F       LR    R1,R0               SET START OF STRING                  C0562000
         SOURCE LINE INSERTED           .FB      LR    R1,R0               SET START OF STRING          OY05847 C0562000
         SOURCE LINE DELETED            &N       SETA  23767               5 DIGIT JOB NUMBER                   C0590000
         SOURCE LINE INSERTED           &N       SETA  32767               5 DIGIT JOB NUMBER           OY08662 C0590000
         SOURCE LINE INSERTED                    COPY  $HASPGEN            COPY HASPGEN PARAMETERS      OY02728 C2107000
                                        ./      DELETE SEQ1=C2132000,SEQ2=C2132000                      OY02728 C2132000
         SOURCE LINE DELETED                     COPY  $HASPGEN            COPY HASPGEN PARAMETERS              C2132000
         SOURCE LINE INSERTED                    SLR   WC,BASE3            SET WC RELATIVE TO BASE3     OY05824 C2592950
         SOURCE LINE INSERTED                    ALR   WC,BASE3            RESTORE ABSOLUTE WC VALUE    OY05824 C2593250
         SOURCE LINE DELETED                     $CFCVB POINTER=(WD),NOK=CDQTYPE CONVERT ROUTE RANGE TO BINARY  C2960000
         SOURCE LINE INSERTED                    $CFCVB POINTER=(WD),NOK=CDQERR CONVERT ROUTE RANGE     OY09757 C2960000
         SOURCE LINE DELETED                     LR    R1,WA               POINT TO OPERAND 3                   C2966000
         SOURCE LINE INSERTED           CDQERR   LR    R1,WA               POINT TO OPERAND 3           OY09757 C2966000
         SOURCE LINE DELETED            CDQTYPE  MVC   COMPNTER+2(14),CDQXEQD SET DEFAULT VALUES                C2968000
         SOURCE LINE INSERTED           CDQTYPE  MVC   COMPNTER+2(14),CDQXEQD  SET DEFAULT VALUES       OY09757 C2968000
         SOURCE LINE INSERTED                    NC    PDDBSKIP-PCEDSECT(2,LINK),PDDBSKIP-PCEDSECT(LINK) Y05835 C4264500
         SOURCE LINE INSERTED           *                                  CURRENTLY SPACING?           OY05835 C4265000
         SOURCE LINE INSERTED                    BNZ   CBXNG               YES - RETURN W/ DIAGNOSTIC   OY05835 C4265500
         SOURCE LINE INSERTED                    C     R15,CBXMASK         CHECK FOR MAXIMUM VALUE      OY02728 C4284200
         SOURCE LINE INSERTED                    BL    *+10                BRANCH IF LESS               OY02728 C4284400
         SOURCE LINE INSERTED                    L     R15,CBXMASK         ELSE SET MAXIMUM VALUE       OY02728 C4284600
         SOURCE LINE INSERTED                    BCTR  R15,0               LESS ONE SO NOT DATASET      OY02728 C4284800
         SOURCE LINE INSERTED           CBXNG    MVC   COMMAND(8),DCTDEVN  DEVICE                       OY05835 C4300200
         SOURCE LINE INSERTED                    MVC   COMMAND+8(CBXMSGL),CBXMSG IN USE                 OY05835 C4300400
         SOURCE LINE INSERTED                    $CRET L=CBXMSGL+8         RETURN W/ 'IN USE' MESSAGE   OY05835 C4300600
         SOURCE LINE INSERTED           CBXMSG   DC    C' IN USE'                                       OY05835 C4301200
         SOURCE LINE INSERTED           CBXMSGL  EQU   *-CBXMSG                                         OY05835 C4301400
                                        ./      DELETE SEQ1=C4410000,SEQ2=C4412000                      OY02728 C4410000
         SOURCE LINE DELETED                     TM    DCTDEVTP,DCTPUN     ELIMINATE PUNCH DEVICE               C4410000
         SOURCE LINE DELETED                     BO    CBXINVO             IF PUNCH, ERROR                      C4412000
         SOURCE LINE DELETED            CSXRMT   NI    DCTSTAT,255-DCTDRAIN REMOVE DRAIN FLAG                   C4682000
         SOURCE LINE INSERTED           CSXRMT   TM    DCTFLAGS,DCTSTOP    TEST FOR STOP BIT            OY10205 C4682000
         SOURCE LINE INSERTED                    BO    *+8                 BIF YES - GO PAST DRAIN POINT Y10205 C4682650

          HASPGEN UPDATE                LOG                                                                     PAGE   8


         SOURCE LINE INSERTED                    NI    DCTSTAT,255-DCTDRAIN REMOVE DRAIN FLAG           OY10205 C4683300
         SOURCE LINE DELETED            CTXC     CLI   2(R1),C'1'          IS THIS A SPACE COMMAND              C4946000
         SOURCE LINE INSERTED           CTXC     CLC   2(2,R1),CTXONE      IS THIS A SPACE COMMAND      OY08660 C4946000
                                        ./ DELETE SEQ1=C4948100,SEQ2=C4948200                           OY08660 C4948100
         SOURCE LINE INSERTED           CTXQTST  TRT   2(*-*,R1),CTXQTTAB  **** EXECUTE ONLY ****       OY02728 C4971500
         SOURCE LINE INSERTED                    STM   R1,WA,COMDWORK      SAVE R1 AND WA OVER 'TRT'    OY02728 C4980400
         SOURCE LINE INSERTED                    EX    WB,CTXQTST          TEST IF 'Q=' VALID (A-Z,0-9) OY02728 C4980800
         SOURCE LINE INSERTED                    LM    R1,WA,COMDWORK      RESTORE REGISTERS R1, WA     OY02728 C4981200
         SOURCE LINE INSERTED                    BNZR  WC                  EXIT ON INVALID CHARACTERS   OY02728 C4981600
         SOURCE LINE INSERTED           CTXONE   DC    C'1 '               CONSTANT ONE+BLANK           OY08660 C5044100
         SOURCE LINE INSERTED           CTXQTTAB DC    193X'01'            VALIDITY TBL  (00-C0)        OY02728 C5198500
         SOURCE LINE INSERTED                    DC    9X'00',7X'01',9X'00',8X'01'       (C1-E1)        OY02728 C5199000
         SOURCE LINE INSERTED                    DC    8X'00',6X'01',10X'00',6X'01'      (E2-FF)        OY02728 C5199500
         SOURCE LINE DELETED                     B     CSIRET              POST JOB              WC = 4         C5442000
         SOURCE LINE INSERTED                    B     CPIRET              RETURN WITH OK        WC = 4 OY08674 C5442000
         SOURCE LINE DELETED                     LA    WB,FCBINDEX-FCBDSECT GET INDEX BYTE OFFSET               C5547700
         SOURCE LINE INSERTED                    LA    WB,FCBINDEX-FCBDSECT+BUFSTART-BUFDSECT  OFFSET   OY02728 C5547700
         SOURCE LINE INSERTED                    LA    R15,FCBINDEX-1(WD)  POINT TO LAST LINE           OY02728 C5547820
         SOURCE LINE INSERTED                    OI    0(R15),X'10'        SET LAST LINE INDICATOR      OY02728 C5547840
                                        ./      DELETE SEQ1=C5548500,SEQ2=C5548600                      OY02728 C5548500
         SOURCE LINE DELETED                     LA    WD,FCBINDEX-1(WD)   POINT TO LAST LINE                   C5548500
         SOURCE LINE DELETED                     OI    0(WD),X'10'         SET LAST LINE INDICATOR              C5548600
                                        ./ DELETE SEQ1=C5820000,SEQ2=C5822000                           OY08663 C5820000
         SOURCE LINE DELETED                     AIF   (NOT &DEBUG).CPSND                                       C5820000
         SOURCE LINE DELETED                     XC    0(8),0              SET RESTART PSW TO ZERO              C5822000
         SOURCE LINE DELETED            .CPSND   AIF   (NOT &AUTORDR).CPSNAUT                                   C5824000
         SOURCE LINE INSERTED                    AIF   (NOT &AUTORDR).CPSNAUT                           OY08663 C5824000
         SOURCE LINE INSERTED                    CLI   DCTDEVTP,DCTPRT     TEST DEVICE TYPE             OY02728 C5840050
         SOURCE LINE INSERTED                    BNE   CPSPRTN             BRANCH IF NOT LOCAL PRINTER  OY02728 C5840100
         SOURCE LINE INSERTED                    L     WB,DCTDCB           GET DCB ADDRESS              OY02728 C5840150
         SOURCE LINE INSERTED                    L     WB,DCBDEBAD-DCBDSECT(,WB) GET DEB ADDRESS        OY02728 C5840200
         SOURCE LINE INSERTED                    LH    WB,DEBUCBAD+2-DEBDSECT(,WB) GET UCB ADDRESS      OY02728 C5840250
         SOURCE LINE INSERTED                    LTR   WB,WB               HAS DEB BEEN INITIALIZED     OY02728 C5840300
         SOURCE LINE INSERTED                    BZ    CPSPRTN             BRANCH IF NO                 OY02728 C5840350
         SOURCE LINE INSERTED                    USING UCBDSECT,WB         ACTIVATE UCB ADDRESSABILITY  OY02728 C5840400
         SOURCE LINE INSERTED                    CLI   UCBTBYT4,X'09'      TEST DEVICE TYPE             OY02728 C5840450
         SOURCE LINE INSERTED                    BNE   CPSPRTN             BRANCH IF NOT 3211           OY02728 C5840500
         SOURCE LINE INSERTED                    L     WB,UCBXTADR         ADDRESS UCB EXTENSION        OY02728 C5840550
         SOURCE LINE INSERTED                    USING UCBUCS,WB           UCB EXTENSION ADDRESSABILITY OY02728 C5840600
         SOURCE LINE INSERTED                    SLR   R1,R1               GET ZERO REGISTER            OY02728 C5840650
         SOURCE LINE INSERTED                    ICM   R1,1,UCBERADR       GET AND TEST OPEN DCB COUNT  OY02728 C5840700
         SOURCE LINE INSERTED                    BZ    CPSPRTN             BRANCH IF ZERO               OY02728 C5840750
         SOURCE LINE INSERTED                    BCTR  R1,0                DECREMENT COUNT BY 1         OY02728 C5840800
         SOURCE LINE INSERTED                    STC   R1,UCBERADR         STORE IN UCB                 OY02728 C5840850
         SOURCE LINE INSERTED                    LTR   R1,R1               IS THIS LAST USER            OY02728 C5840900
         SOURCE LINE INSERTED                    BNZ   CPSPRTN             BRANCH IF NO                 OY02728 C5840950
         SOURCE LINE INSERTED                    ICM   R1,15,UCBERADR      GET, TEST LOG AREA ADDRESS   OY02728 C5841000

          HASPGEN UPDATE                LOG                                                                     PAGE   9


         SOURCE LINE INSERTED                    BZ    CPSPRTN             BRANCH IF ZERO               OY02728 C5841050
         SOURCE LINE INSERTED                    FREEMAIN R,LV=570,A=(R1),SP=245 FREE LOG AREA          OY02728 C5841100
         SOURCE LINE INSERTED                    XC    UCBERADR,UCBERADR   CLEAR UCB LOG AREA ADDRESS   OY02728 C5841150
         SOURCE LINE INSERTED           CPSPRTN  DS    0H                  END OF LOG BUFFER ROUTINE    OY02728 C5841200
         SOURCE LINE INSERTED                    TM    COMNULOP,CRXPRINT   DID WE CNGE PRINT&PNCH?      OY08690 C6522250
         SOURCE LINE INSERTED                    BZ    CRXRET              NOT 'ALL' ROUT-RETURN        OY08690 C6522300

          HASPGEN UPDATE                LOG                                                                     PAGE  10


                                        ./ CHANGE NAME=HASPCON
         SOURCE LINE DELETED                     STM   R13,R1,WQREGS       SAVE CALLER'S REGISTERS.             W0124000
         SOURCE LINE INSERTED                    STM   R10,R1,WQREGS       SAVE CALLER'S REGISTERS      OY02728 W0124000
         SOURCE LINE DELETED                     LA    R1,$WTOECB          R1 = $HASPWTO ECB ADDRESS            W0162000
         SOURCE LINE INSERTED                    L     R15,CVTPTR          POINT TO CVT                 OY02728 W0162000
         SOURCE LINE INSERTED                    L     R15,CVT0PT01-CVTDSECT(,R15)  POINT TO POST       OY02728 W0162500
         SOURCE LINE INSERTED                    LM    R10,R12,WQPREGS     PICK UP POST REGISTERS       OY02728 W0163000
         SOURCE LINE INSERTED                    BALR  R14,R15             ENTER POST                   OY02728 W0163500
         SOURCE LINE DELETED                     POST  (1)                 POST $HASPWTO SUBTASK                W0164000
         SOURCE LINE INSERTED                    USING *,R14                                            OY02728 W0164000
         SOURCE LINE INSERTED                    LM    R11,R12,WBASES      RESTORE BASES                OY02728 W0164500
         SOURCE LINE INSERTED                    DROP  R14                                              OY02728 W0165000
         SOURCE LINE DELETED            WQEXIT   LM    R13,R1,WQREGS       RELOAD REGISTERS                     W0172000
         SOURCE LINE INSERTED           WQEXIT   LM    R10,R1,WQREGS       RELOAD REGISTERS             OY02728 W0172000
         SOURCE LINE DELETED            WQREGS   DS    5F                  REGISTER SAVE AREA.                  W0176000
         SOURCE LINE INSERTED           WQREGS   DS    8F                  REGISTER SAVE AREA           OY02728 W0176000
         SOURCE LINE INSERTED                    LA    R15,CMBEND-CMBDSECT-9 CMB LENGTH -1 -7 -1        OY05859 W0476200
         SOURCE LINE INSERTED                    SR    R15,R14             SUBTRACT START LOC -1 -7     OY05859 W0476400
         SOURCE LINE INSERTED                    CR    R15,R1              COMPARE W/ PLANNED LNG -1    OY05859 W0476600
         SOURCE LINE INSERTED                    BH    *+6                 TOO LONG?                    OY05859 W0476800
         SOURCE LINE INSERTED                    LR    R1,R15              TRUNCATE                     OY05859 W0477000
         SOURCE LINE INSERTED                    LR    R1,WC               RESTORE CMB POINTER          OY04680 W0913000
         SOURCE LINE INSERTED           WQPREGS  DC    F'0',A($WTOECB)     COMPL CODE AND ECB ADDR FOR  OY02728 W3549000

          HASPGEN UPDATE                LOG                                                                     PAGE  11


                                        ./ CHANGE NAME=HASPINIT
         SOURCE LINE INSERTED                    MACRO                GENERATE ADDITIONAL REMOTE DCTS   OY02728 N0040000
         SOURCE LINE INSERTED           &NAME    $RMTDCT &TYPE,&DEV                                     OY02728 N0042000
         SOURCE LINE INSERTED           &NAME    $GENDCT &TYPE,1,(,&DEV),WORKWDS=2                      OY02728 N0044000
         SOURCE LINE INSERTED                    MEND                                                   OY02728 N0046000
         SOURCE LINE INSERTED                    ST    BASE2,PCEBASE2      RESTORE CLOBBERED PCEBASE2   OY02728 N1930200
         SOURCE LINE INSERTED           N$#CAN   DC    V($#CAN)            ADR OF $#CAN ROUTINE         OY08672 N1957500
         SOURCE LINE DELETED                     STAE  (WA)                SET HASP TASK ABEND EXIT             N2051400
         SOURCE LINE INSERTED                    STAE  (WA),PURGE=HALT     SET HASP TASK ABEND EXIT     OY02728 N2051400
         SOURCE LINE DELETED            NDCDEDUM DC    AL2(0),B'1010000000000000',A(0),B'00010000',AL3(0)       N2318100
         SOURCE LINE INSERTED           NDCDEDUM DS    0F                                               OY04678 N2318100
         SOURCE LINE INSERTED                    DC    AL2(0)              TIOT                         OY04678 N2318120
         SOURCE LINE INSERTED                    DC    B'1010000000000000' MACRF                        OY04678 N2318140
         SOURCE LINE INSERTED                    DC    A(0)                DEB                          OY04678 N2318160
         SOURCE LINE INSERTED                    DC    B'00010000'         OFLGS                        OY04678 N2318180
         SOURCE LINE INSERTED                    DC    AL3(0)                                           OY04678 N2318190
                                        ./ DELETE SEQ1=N4496000,SEQ2=N4496000                           OY07271 N4496000
         SOURCE LINE DELETED            NUR1442  DC    AL1(UCB3UREC,UCB1442),AL2(NURPUNCH-NURB)    1442         N4496000
         SOURCE LINE DELETED                     BC    5,NURDRAIN          IF NOT OPER. CSW STORED BRANCH       N4666000
         SOURCE LINE INSERTED                    BC    7,NURDRAIN          BR IF CSW ST, BUSY, NOT OPER OY10951 N4666000
         SOURCE LINE INSERTED                    CLI   UCBTBYT4,X'09'      TEST DEVICE TYPE             OY02728 N4700100
         SOURCE LINE INSERTED                    BNER  WC                  BRANCH IF NOT 3211           OY02728 N4700200
         SOURCE LINE INSERTED                    L     WB,UCBXTADR         ADDRESS UCB EXTENSION        OY02728 N4700300
         SOURCE LINE INSERTED                    USING UCBUCS,WB           UCB EXTENSION ADDRESSABILITY OY02728 N4700400
         SOURCE LINE INSERTED                    LA    R0,1                ONE IN REGISTER FOR COMPARE  OY02728 N4700500
         SOURCE LINE INSERTED                    SLR   WD,WD               GET ZERO REGISTER            OY02728 N4700600
         SOURCE LINE INSERTED                    IC    WD,UCBERADR         GET OPEN DCB COUNT           OY02728 N4700700
         SOURCE LINE INSERTED                    ALR   WD,R0               INCREMENT COUNT              OY02728 N4700800
         SOURCE LINE INSERTED                    STC   WD,UCBERADR         SAVE COUNT IN UCB            OY02728 N4700900
         SOURCE LINE INSERTED                    CLR   R0,WD               IS THIS FIRST USER           OY02728 N4701000
         SOURCE LINE INSERTED                    BNER  WC                  BRANCH IF NO                 OY02728 N4701100
         SOURCE LINE INSERTED                    LA    WD,NURGMA           GETMAIN RETURN ADDRESS       OY02728 N4701200
         SOURCE LINE INSERTED                    GETMAIN EC,LV=570,A=(WD),SP=245 GET LOG AREA           OY02728 N4701300
         SOURCE LINE INSERTED                    MVC   UCBERADR+1(3),NURGMA+1 GETMAIN AREA TO UCB       OY02728 N4701400
         SOURCE LINE INSERTED                    LTR   R15,R15             WAS GETMAIN SUCCESSFUL       OY02728 N4701500
         SOURCE LINE INSERTED                    BZR   WC                  BRANCH IF YES                OY02728 N4701600
         SOURCE LINE INSERTED                    XC    UCBERADR,UCBERADR   ZERO UCB LOG BUFFER POINTER  OY02728 N4701700
         SOURCE LINE INSERTED           NURGMA   DS    F                   GETMAIN RETURN ADDRESS AREA  OY02728 N4753000
         SOURCE LINE DELETED                     NI    QUEFLAGS(NQ),255-QUEHOLD2  RESET DUP HOLD FLAG.          N6397100
         SOURCE LINE INSERTED                    NI    QUEFLAGS(NQ),255-QUEHOLD2-QUEJCTSW  RESET FLAGS  OY02728 N6397100
         SOURCE LINE DELETED                     TM    QUETYPE(NQ),$XEQ    IS JOB IN EXECUTION...               N6398600
         SOURCE LINE INSERTED                    BAL   R10,NQ780           CHECK THE JCT.               OY02728 N6398600
                                        ./      DELETE SEQ1=N6398700,SEQ2=N6398700                      OY02728 N6398700
         SOURCE LINE DELETED                     BZ    NQ100               BRANCH IF NOT.                       N6398700
         SOURCE LINE INSERTED                    TM    QUETYPE(NQ),$XEQ    IS JOB IN EXECUTION...       OY02728 N6399130
         SOURCE LINE INSERTED                    BZ    NQ100               BRANCH IF NOT.               OY02728 N6399160
         SOURCE LINE DELETED                     TM    QUETYPE(NQ),QENTBY  IS JOB BUSY IN XEQ...                N6399700

          HASPGEN UPDATE                LOG                                                                     PAGE  12


         SOURCE LINE INSERTED                    CL    R0,QUETRAK(,NQ)     IS JOB BUSY IN XEQ...        OY02728 N6399700
         SOURCE LINE DELETED                     NI    QUETYPE(NQ),255-QENTBY  SHOW NOT BUSY IN XEQ.            N6401600
         SOURCE LINE INSERTED                    BAL   R10,NQREAD          READ THE INPUT JCT.          OY02728 N6401600
         SOURCE LINE DELETED                     BAL   R10,NQREAD          READ THE INPUT JCT.                  N6401700
         SOURCE LINE INSERTED                    BAL   R10,NQ780           CHECK THE JCT.               OY02728 N6401700
         SOURCE LINE INSERTED                    NI    QUETYPE(NQ),255-QENTBY  RESET THE BUSY FLAG.     OY02728 N6401950
                                        ./      DELETE SEQ1=N6403200,SEQ2=N6403300                      OY02728 N6403200
         SOURCE LINE DELETED                     SPACE 3                                                        N6403200
         SOURCE LINE DELETED            NQ090    DS    0H                                                       N6403300
         SOURCE LINE INSERTED           NQ090    DS    0H                                               OY02728 N6403750
         SOURCE LINE INSERTED                    TM    QUEFLAGS(NQ),QUEPURGE PURGE BIT ON?              OY05858 N6404310
         SOURCE LINE INSERTED                    BZ    NQ110               NO - DON'T DELETE JOB        OY05858 N6404320
         SOURCE LINE INSERTED                    MVI   QUETYPE(NQ),$PURGE  YES - SET PURGE QUEUE        OY05858 N6404330
         SOURCE LINE INSERTED                    LA    R1,NQPURGM          POINT TO PURGE MESSAGE       OY05858 N6404340
         SOURCE LINE INSERTED                    BAL   R10,NQWTO           ISSUE IT                     OY05858 N6404350
         SOURCE LINE INSERTED           NQ110    DS    0H                                               OY05858 N6404360
         SOURCE LINE INSERTED                    LA    R1,NQIBAD           SET 'BAD IOT -' MESSAGE.     OY02728 N6404520
         SOURCE LINE INSERTED                    CLI   BUFECBCC-BUFDSECT(NQBF),X'7F'  WAS READ OK...    OY02728 N6404540
         SOURCE LINE INSERTED                    BNE   NQ790               GO QUE FOR PURGE IF NOT.     OY02728 N6404560
         SOURCE LINE INSERTED                    CLC   IOTJCTTR,QUETRAK(NQ)  DOES IOT POINT TO JCT...   OY02728 N6404620
         SOURCE LINE INSERTED                    BNE   NQ790               GO QUE FOR PURGE IF NOT.     OY02728 N6404640
         SOURCE LINE INSERTED                    CLC   IOTTRACK,DCTSEEK    DOES IOT POINT TO ITSELF...  OY02728 N6404660
         SOURCE LINE INSERTED                    BNE   NQ790               GO QUE FOR PURGE IF NOT.     OY02728 N6404680
         SOURCE LINE INSERTED                    B     NQ800               THEN CONTINUE.               OY02728 N6405320
         SOURCE LINE INSERTED                    SPACE 3                                                OY02728 N6405340
         SOURCE LINE INSERTED           NQ780    LA    R1,NQBADJ           SET 'BAD JCT -' MESSAGE.     OY02728 N6405360
         SOURCE LINE INSERTED                    CLI   BUFECBCC-BUFDSECT(NQBF),X'7F'  WAS READ OK...    OY02728 N6405380
         SOURCE LINE DELETED                     SPACE 3                                                        N6405400
         SOURCE LINE INSERTED                    BNE   NQ790               GO QUE FOR PURGE IF NOT.     OY02728 N6405400
         SOURCE LINE INSERTED                    L     R0,JCTJQE-JCTDSECT(,NQBF) GET Q OFFSET FROM JCT. OY02728 N6405420
         SOURCE LINE INSERTED                    AL    R0,$JOBQPTR         ADD JOBQUE ORIGIN.           OY02728 N6405440
         SOURCE LINE INSERTED                    CLR   R0,NQ               DOES JCT POINT TO JQE...     OY02728 N6405460
         SOURCE LINE INSERTED                    BER   R10                 RETURN IF YES.               OY02728 N6405480
         SOURCE LINE DELETED            *                                                                       N6405500
         SOURCE LINE INSERTED           NQ790    BAL   R10,NQWTO           INFORM OPERATOR.             OY02728 N6405500
         SOURCE LINE INSERTED                    MVI   QUETYPE(NQ),$PURGE  QUEUE JOB FOR PURGE.         OY02728 N6405520
         SOURCE LINE INSERTED                    SPACE 3                                                OY02728 N6405540
                                        ./ DELETE SEQ1=N6413300,SEQ2=N6413400                           OY08672 N6413300
         SOURCE LINE DELETED                     TM    JOEFLAG,$JOEBUSY    WAS THIS ELEMENT ACTIVE              N6413300
         SOURCE LINE DELETED                     BNO   NQ960               BRANCH IF NO                         N6413400
         SOURCE LINE INSERTED                    CLI   QUETYPE(NQ),$PURGE  IS JOB ON PURGE Q            OY08672 N6413620
         SOURCE LINE INSERTED                    BE    NQREM               BRANCH IF YES                OY08672 N6413640
         SOURCE LINE INSERTED                    TM    JOEFLAG,$JOEBUSY    WAS THIS ELEMENT ACTIVE      OY08672 N6413660
         SOURCE LINE INSERTED                    BNO   NQ960               BRANCH IF NO                 OY08672 N6413680
         SOURCE LINE INSERTED           NQREM    DS    0H                                               OY08672 N6414010
         SOURCE LINE INSERTED                    NI    JOEFLAG,255-$JOEBUSY RESET BUSY BIT              OY08672 N6414020
         SOURCE LINE INSERTED                    LR    R1,NQ               R1 POINTS TO JQE             OY08672 N6414030

          HASPGEN UPDATE                LOG                                                                     PAGE  13


         SOURCE LINE INSERTED                    LH    R6,JOENEXT          GET NEXT JOE DISPLACEMENT    OY08672 N6414040
         SOURCE LINE INSERTED                    L     R15,N$#CAN          LOAD ADR OF $#CAN ROUTINE    OY08672 N6414050
         SOURCE LINE INSERTED                    BALR  R14,R15             BRANCH TO $#CAN              OY08672 N6414060
         SOURCE LINE INSERTED                    MVI   QUETYPE(NQ),$PURGE  MAKE SURE STILL PURGE        OY08672 N6414080
         SOURCE LINE INSERTED                    B     NQ950               RESTART JOE SCAN             PP43948 N6414090
         SOURCE LINE DELETED                     BOR   R10                 RETURN IF SUCCESSFUL.                N6416600
         SOURCE LINE INSERTED                    BNZR  R10                 RETURN IF COMPLETE.          OY02728 N6416600
         SOURCE LINE DELETED                     DC    AL2(39,0)           LENGTH OF MSG.                       N6420900
         SOURCE LINE INSERTED                    DC    AL2(NQEDMSK-NQMSG,0) LENGTH, MCS FLAGS           OY05860 N6420900
         SOURCE LINE INSERTED           NQPURGM  DC    AL1(16),C'QUEUED FOR PURGE'                      OY05858 N6421810

          HASPGEN UPDATE                LOG                                                                     PAGE  14


                                        ./ CHANGE NAME=HASPMISC
                                        ./ DELETE SEQ1=V0168000,SEQ2=V0168000                           OY07275 V0168000
         SOURCE LINE DELETED                    $PURGE JCTCYSAV,OLAY=YES   FREE JOBS INPUT TRACKS               V0168000
         SOURCE LINE INSERTED                   $PURGE JCTCYSAV,OLAY=YES   FREE JOB'S INPUT TRACKS      OY07275 V0175600
         SOURCE LINE INSERTED                    TM    BUFECBCC-BUFDSECT(WD),X'7F' IOT READ ERRORS?     OY07275 V0175800
         SOURCE LINE DELETED                     BC    1,VNOIOTER          YES, CONTINUE PROCESSING             V0176000
         SOURCE LINE INSERTED                    BO    VNOIOTER            NO, CONTINUE PROCESSING      OY07275 V0176000

          HASPGEN UPDATE                LOG                                                                     PAGE  15


                                        ./ CHANGE NAME=HASPNUC
         SOURCE LINE DELETED                    $DISABLE ALL               DISABLE INTERRUPTS                   H0228000
         SOURCE LINE INSERTED                    STNSM HASPSM,X'FC'        DISABLE INTERRUPTS           OY02728 H0228000
         SOURCE LINE DELETED                    $ENABLE ALL                RE-ENABLE FOR INTERRUPTS             H0238000
         SOURCE LINE INSERTED                    STOSM HASPSM,X'03'        RE-ENABLE INTERRUPTS         OY02728 H0238000
         SOURCE LINE INSERTED           HASPSM   DS    C                   SAVE FOR SYSTEM MASK         OY02728 H0387000
                                        ./      DELETE SEQ1=H4536000,SEQ2=H4560000                      OY02728 H4536000
         SOURCE LINE DELETED                     AIF   (&NUMLNES EQ 0).ERJE01                                   H4536000
         SOURCE LINE DELETED                     TM    BUFTYPE,TPBUF       TEST FOR RJE CHANNEL END             H4538000
         SOURCE LINE DELETED                     BZ    ENORMAL             BRANCH IF NOT                        H4540000
         SOURCE LINE DELETED                     L     R10,ERJECHEP        R10 = LINE MANAGER PCE EWF           H4542000
         SOURCE LINE DELETED                     LA    R12,$RJECHEQ        R12 = RJE BUFFER QUEUE ADDRESS       H4544000
         SOURCE LINE DELETED                     B     ENEXT               CHAIN AND POST                       H4546000
         SOURCE LINE DELETED                     SPACE 3                                                        H4548000
         SOURCE LINE DELETED            ERJECHEP DC    A($MLLMPCE+PCEEWF-PCEDSECT)   LINE MANAGER PCE EWF       H4552000
         SOURCE LINE DELETED                     SPACE 3                                                        H4556000
         SOURCE LINE DELETED            ENORMAL  NULL                                                           H4558000
         SOURCE LINE DELETED            .ERJE01  ANOP                                                           H4560000
         SOURCE LINE INSERTED                    STNSM AA$ASYNC,X'FC'      DISABLE FOR QUEUE TEST       OY02728 H4602000
         SOURCE LINE INSERTED                    STOSM AA$ASYNC,X'03'      ENABLE FOR PAGE FAULT        OY02728 H4609000
         SOURCE LINE INSERTED                    AIF   (&NUMLNES EQ 0).ARJE01                           OY02728 H4622150
         SOURCE LINE INSERTED                    TM    BUFTYPE,TPBUF       TEST BUFFER TYPE             OY02728 H4622300
         SOURCE LINE INSERTED                    BZ    ANORMAL             BRANCH IF NOT TP BUFFER      OY02728 H4622450
         SOURCE LINE INSERTED                    MVC   BUFCHAIN,$RJECHEQ   MOVE BUFFER TO               OY02728 H4622600
         SOURCE LINE INSERTED                    ST    R1,$RJECHEQ          LINE MANAGER QUEUE          OY02728 H4622750
         SOURCE LINE INSERTED                    L     R1,AAMLLM           POST                         OY02728 H4622900
         SOURCE LINE INSERTED                   $POST  $EWBWORK(R1),WORK    LINE MANAGER                OY02728 H4623050
         SOURCE LINE INSERTED                    B     $ASYNC              LOOK FOR ANOTHER BUFFER      OY02728 H4623200
         SOURCE LINE INSERTED           AAMLLM   DC    A($MLLMPCE+PCEEWF-PCEDSECT)                      OY02728 H4623350
         SOURCE LINE INSERTED           ANORMAL  DS    0H                                               OY02728 H4623500
         SOURCE LINE INSERTED           .ARJE01  ANOP                                                   OY02728 H4623650
         SOURCE LINE INSERTED                    OI    PCEEWF+$EWBWORK,$EWFWORK  SET $WAIT WORK BIT     OY02728 H4693000
         SOURCE LINE DELETED                    $WAIT  WORK                WAIT                                 H4694000
         SOURCE LINE INSERTED                    STOSM AA$ASYNC,X'03'      RE-ENABLE                    OY02728 H4694000
         SOURCE LINE INSERTED                   $WAIT  ABIT                WAIT                         OY02728 H4695000
         SOURCE LINE INSERTED                    STOSM AA$ASYNC,X'03'      RE-ENABLE                    OY02728 H4700400
         SOURCE LINE DELETED                     BE    *+8                 BR IF YES                            H5152000
         SOURCE LINE INSERTED                    BNE   *+6                 BR IF NO                     OY02728 H5152000
         SOURCE LINE INSERTED                    SR    R4,R4               ZERO COUNTER                 OY02728 H5153000
         SOURCE LINE DELETED            TRACEMAX DC    Y(X'7FFF')          MAXIMUM TRACE COUNT                  H5182000
         SOURCE LINE INSERTED           TRACEMAX DC    Y(X'FFF')           MAXIMUM TRACE COUNT          OY02728 H5182000

          HASPGEN UPDATE                LOG                                                                     PAGE  16


                                        ./ CHANGE NAME=HASPPRPU
         SOURCE LINE DELETED            JOT      EQU   9                   JOB OUTPUT TABLE BASE                P0082000
         SOURCE LINE INSERTED           JOT      EQU   8                   JOB OUTPUT TABLE BASE        OY02744 P0082000
         SOURCE LINE INSERTED                    CLI   OPJOBCPY,0          ZERO JOB COPIES REQUESTED    OY02728 P0272500
         SOURCE LINE INSERTED                    BNE   *+8                 BRANCH IF NO                 OY02728 P0273000
         SOURCE LINE INSERTED                    MVI   OPJOBCPY,1          ASSUME ONE COPY              OY02728 P0273500
         SOURCE LINE DELETED                     MVC   JCTOUTON(12),OPTIMEON HOPE SIGN-ON TIME/DATE             P1036000
         SOURCE LINE INSERTED                    MVC   JCTOUTON(8),OPTIMEON HOPE SIGN-ON TIME/DATE      OY07285 P1036000
         SOURCE LINE DELETED                     LR    R8,R1               COPY DCT ADDRESS                     P1858000
         SOURCE LINE INSERTED                    LR    R5,R1               COPY DCT ADDRESS             OY02744 P1858000
         SOURCE LINE DELETED                     USING DCTDSECT,R8         ACTIVATE DCT ADDRESSABILITY          P1860000
         SOURCE LINE INSERTED                    USING DCTDSECT,R5         ACTIVATE DCT ADDRESSABILTY   OY02744 P1860000
         SOURCE LINE DELETED                     LTR   R8,R8               IS $#GET IN HAVE=NO MODE             P2110000
         SOURCE LINE INSERTED                    LTR   R5,R5               IS $ GET IN HAVE=NO MODE     OY02744 P2110000
         SOURCE LINE DELETED                     LA    R5,0(R3,JOT)        ADD JOB OUTPUT TABLE ORIGIN          P2124000
         SOURCE LINE INSERTED                    LA    R2,0(R3,JOT)        ADD JOB OUTPUT TABLE ORIGIN  OY02744 P2124000
         SOURCE LINE DELETED                     XC    0(20,R5),0(R5)      ZERO CKPT-JOE                        P2126000
         SOURCE LINE INSERTED                    XC    0(20,R2),0(R2)      ZERO CKPT-JOE                OY02744 P2126000
         SOURCE LINE DELETED                     DROP  R8                  SUSPEND DCT ADDRESSABILITY           P2154000
         SOURCE LINE INSERTED                    DROP  R5                  SUSPEND DCT ADDRESSABILITY   OY02744 P2154000
         SOURCE LINE INSERTED                    MVI   PLSAVE3,X'00'       RESET TERMINATION FLAG       OY07290 P2883000
         SOURCE LINE DELETED                     BAL   PL,PRDCHK           CHECK READ                           P3104000
         SOURCE LINE INSERTED                    BAL   PL,PRDCHKOL         CHECK READ                   OY07290 P3104000
         SOURCE LINE INSERTED                    TM    PCEID,PCEPRSID      IS THIS A PRINTER            OY02728 P3162200
         SOURCE LINE INSERTED                    BO    *+8                 BRANCH IF YES                OY02728 P3162400
         SOURCE LINE INSERTED                    LA    PW,8(,PW)           STEP OVER PUNCH ERROR CCW    OY02728 P3162600
         SOURCE LINE DELETED                     BAL   PL,PRDCHK           CHECK READ                           P3322000
         SOURCE LINE INSERTED                    BAL   PL,PRDCHKOL         CHECK READ                   OY07290 P3322000
                                        ./      DELETE SEQ1=P3526000,SEQ2=P3532000                      OY02728 P3526000
         SOURCE LINE DELETED                     TM    PCEID,PCELCLID      IS THIS A LOCAL PUNCH                P3526000
         SOURCE LINE DELETED                     BNO   *+8                 BRANCH IF NO                         P3528000
         SOURCE LINE DELETED                     BAL   PL,PPUTOLAY         PUNCH LACE CARD                      P3530000
         SOURCE LINE DELETED                     ST    PW,PUERRPT          SET ERROR RECOVERY CUTOFF            P3532000
         SOURCE LINE DELETED                     BAL   PL,PRDCHK           CHECK READ                           P3566000
         SOURCE LINE INSERTED                    BAL   PL,PRDCHKOL         CHECK READ                   OY07290 P3566000
         SOURCE LINE DELETED                     BO    PRTRAILR            BRANCH IF YES                        P3706000
         SOURCE LINE INSERTED                    BO    PPDONE              BRANCH IF YES                OY02744 P3706000
                                        ./      DELETE SEQ1=P3714000,SEQ2=P3718000                      OY02728 P3714000
         SOURCE LINE DELETED                     L     R1,PJOB             ADDRESS JOB QUEUE ELEMENT            P3714000
         SOURCE LINE DELETED                     CLC   IOTJCTTR,QUETRAK(R1) IS IOT VALID                        P3716000
         SOURCE LINE DELETED                     BE    PPIOTOK             BRANCH IF YES                        P3718000
         SOURCE LINE INSERTED                    L     PW,PRPAGECT         SET                          OY07280 P4123000
         SOURCE LINE INSERTED                    LA    PW,1(,PW)           FIRST                        OY07280 P4123100
         SOURCE LINE INSERTED                    ST    PW,PRPAGECT         SYSOUT PAGE COUNT            OY07280 P4123200
         SOURCE LINE INSERTED                    XC    PDDBSKIP,PDDBSKIP   CLEAR SKIP COUNT             OY02728 P4327000
         SOURCE LINE INSERTED                    L     PW,PDCT             GET DCT ADRESS FROM PCE      OY07280 P4327100
         SOURCE LINE INSERTED                    CLI   PCCWORK,X'8B'       IS IT SKIP TO 1 IMMED        OY07280 P4327200

          HASPGEN UPDATE                LOG                                                                     PAGE  17


         SOURCE LINE INSERTED                    BNE   *+12                NO UPDATE TOTAL PAGE COUNT   OY07280 P4327300
         SOURCE LINE INSERTED                    TM    DCTSTAT-DCTDSECT(PW),DCTEJECT IS IT TOP OF PAGE  OY07280 P4327400
         SOURCE LINE INSERTED                    BO    PRCKPTCT            YES DO NOT BUMP PAGE COUNT   OY07280 P4327450
         SOURCE LINE INSERTED           PRCKPTCT DS    0H                  LABEL FOR BRANCH AROUND      OY07280 P4332100
         SOURCE LINE INSERTED                    TM    PPFLAG,PPNOJOE      HAS WORK JOE BEEN RELEASED   OY07290 P4406100
         SOURCE LINE INSERTED                    BO    PPDONE              IF YES BRANCH                OY07290 P4406200
                                        ./      DELETE SEQ1=P4438000,SEQ2=P4438000                      OY02728 P4438000
         SOURCE LINE DELETED                     B     PPPIOTRD            FORCE READ OF IOT                    P4438000
         SOURCE LINE INSERTED                    OI    PPFLAG,PRDELSW      BLOCK OPERATOR COMMANDS      OY08667 P4505000
         SOURCE LINE INSERTED                    NI    PPFLAG,255-PRDELSW  ENABLE OPERATOR COMMANDS     OY08667 P4507000
         SOURCE LINE DELETED                     BM    PENDINIT            BRANCH IF START OF DS                P4536000
         SOURCE LINE INSERTED                    BNP   PENDINIT            BRANCH IF START OF DS        OY02728 P4536000
         SOURCE LINE INSERTED                    TM    PCEID,PCEPUSID      IS THIS A PUNCH PROCESSOR    OY02728 P4583000
         SOURCE LINE INSERTED                    BO    PRCPYTST            BRANCH IF YES                OY02728 P4583500
         SOURCE LINE DELETED                     XC    PMESSAGE,PMESSAGE   CLEAR MESSAGE AREA                   P4588000
         SOURCE LINE INSERTED                    MVI   PMESSAGE,X'40'      INIT MESSAGE FIELD           OY04708 P4588000
         SOURCE LINE INSERTED                    MVC   PMESSAGE+1(L'PMESSAGE-1),PMESSAGE TO BLANKS      OY04708 P4588100
         SOURCE LINE DELETED                     XC    PMESSAGE,PMESSAGE   CLEAR MESSAGE AREA                   P4594000
         SOURCE LINE INSERTED                    MVI   PMESSAGE,X'40'      INIT MESSAGE FIELD           OY04708 P4594000
         SOURCE LINE INSERTED                    MVC   PMESSAGE+1(L'PMESSAGE-1),PMESSAGE TO BLANKS      OY04708 P4594100
         SOURCE LINE DELETED                     XC    PMESSAGE,PMESSAGE   CLEAR MESSAGE AREA                   P4606000
         SOURCE LINE INSERTED                    MVI   PMESSAGE,X'40'      INIT MESSAGE FIELD           OY04708 P4606000
         SOURCE LINE INSERTED                    MVC   PMESSAGE+1(L'PMESSAGE-1),PMESSAGE TO BLANKS      OY04708 P4606100
         SOURCE LINE DELETED                     XC    PMESSAGE,PMESSAGE   CLEAR MESSAGE AREA                   P4618000
         SOURCE LINE INSERTED                    MVI   PMESSAGE,X'40'      INIT MESSAGE FIELD           OY04708 P4618000
         SOURCE LINE INSERTED                    MVC   PMESSAGE+1(L'PMESSAGE-1),PMESSAGE TO BLANKS      OY04708 P4618100
         SOURCE LINE DELETED                     XC    PMESSAGE,PMESSAGE   CLEAR MESSAGE AREA                   P4630000
         SOURCE LINE INSERTED                    MVI   PMESSAGE,X'40'      INIT MESSAGE FIELD           OY04708 P4630000
         SOURCE LINE INSERTED                    MVC   PMESSAGE+1(L'PMESSAGE-1),PMESSAGE TO BLANKS      OY04708 P4630100
         SOURCE LINE INSERTED                    MVI   PLSAVE3,X'FF'       SET TERMINATION FLAG         OY07290 P4680050
         SOURCE LINE INSERTED                    TM    PPFLAG,PPNOJOE      HAS WORK JOE BEEN RELEASED   OY07290 P4680100
         SOURCE LINE INSERTED                    BO    PPEND01             IF YES WRITE MESSAGE         OY07290 P4680200
         SOURCE LINE INSERTED           PPDONE1  DS    0H                                               OY07290 P4680300
         SOURCE LINE DELETED                     B     PPDONE              TRY AGAIN FOR THE JCT                P4692000
         SOURCE LINE INSERTED                    B     PPDONE1             TRY AGAIN FOR JCT            OY07290 P4692000
         SOURCE LINE DELETED                     BE    PPEND01             BRANCH IF YES                        P4714000
         SOURCE LINE INSERTED                    BE    *+8                 BRANCH IF YES                OY07290 P4714000
         SOURCE LINE INSERTED                    TM    PPFLAG,PPNOJOE      HAS WORK JOE BEEN RELEASED   OY07290 P4716100
         SOURCE LINE INSERTED                    BO    PTIMEOFF            IF YES UPDATE JCT            OY07290 P4716200
         SOURCE LINE INSERTED                    NI    PPFLAG,255-PPDELSW  RESET SUSPEND FLAG           OY07290 P4719000
         SOURCE LINE DELETED                     BO    PTIMEOFF            BRANCH IF YES                        P4722000
         SOURCE LINE INSERTED                    BO    PRDELCM1            BRANCH IF YES                OY07290 P4722000
         SOURCE LINE INSERTED           PRDELCM1 DS    0H                                               OY07290 P4768100
         SOURCE LINE INSERTED                    TM    PPFLAG,PPNOJOE      HAS WORK JOE BEEN RELEASED   OY07290 P4768200
         SOURCE LINE INSERTED                    BO    PUNSEPCD            IF YES PRINT TRAILER         OY07290 P4768300
         SOURCE LINE INSERTED                    L     R1,JCTJQE           JOB QUEUE ELEMENT OFFSET     OY02728 P4770200
         SOURCE LINE INSERTED                    A     R1,$JOBQPTR         ADD JOB QUEUE ORIGIN         OY02728 P4770400

          HASPGEN UPDATE                LOG                                                                     PAGE  18


         SOURCE LINE INSERTED                    CLM   R1,7,PJOB+1         IS JCT VALID                 OY02728 P4770600
         SOURCE LINE INSERTED                    BNE   PJCTWOK             BRANCH IF NO                 OY02728 P4770800
         SOURCE LINE INSERTED                   $TIME                      SIGN-OFF TIME/DATE           OY02728 P4771000
         SOURCE LINE INSERTED                    STM   R0,R1,JCTOUTOF      PRPU SIGN-OFF TIME/DATE      OY02728 P4771500
         SOURCE LINE INSERTED                    TM    PDCTFLAG,DCTDELET   $C - (CANCEL)                OY02728 P4801000
         SOURCE LINE INSERTED                    BO    PJCTWOK             BRANCH IF YES                OY02728 P4801500
                                        ./ DELETE SEQ1=P4842000,SEQ2=P4842000                           OY04676 P4842000
         SOURCE LINE DELETED                     MVC   SMFRDW+2(2),=C'  '  FORMAT V BLANKS                      P4842000
         SOURCE LINE DELETED                     XC    SMFHDFLG(SMF6END-SMFHDFLG),SMFHDFLG  CLEAR RECORD        P4844000
         SOURCE LINE INSERTED                    XC    SMFRDW+2(SMF6END-SMFRDW-2),SMFRDW+2 CLEAR RECORD OY04676 P4844000
         SOURCE LINE INSERTED                    TM    PPFLAG,PPNOJOE      HAS WORK JOE BEEN RELEASED   OY07290 P4896100
         SOURCE LINE INSERTED                    BO    PPIOTST             IF YES CHECK IO              OY07290 P4896200
         SOURCE LINE INSERTED           PUNSEPCD DS    0H                                               OY07290 P4897800
         SOURCE LINE INSERTED                    LR    JCT,PBUF            SET JCT TO CURRENT BUFFER    OY07290 P4897900
         SOURCE LINE DELETED                     BO    PNOJOE              BRANCH IF YES                        P4956000
         SOURCE LINE INSERTED                    BO    PNOJOE              BRANCH IF YES                OY07290 P4956000
                                        ./ DELETE SEQ1=P4956100,SEQ2=P4956950                           OY07290 P4956100
         SOURCE LINE INSERTED                    MVC   PMESSAGE(12),DCTFORMS SAVE CURRENT SETUP         OY02728 P5035000
         SOURCE LINE INSERTED                    MVC   DCTFORMS,0(PL)      NEW FORMS ID TO DCT          OY02728 P5043000
         SOURCE LINE INSERTED                    MVC   DCTFCB,4(PL)        NEW FCB ID TO DCT            OY02728 P5061000
         SOURCE LINE DELETED                     BZ    *+8                 BRANCH IF YES                        P5084000
         SOURCE LINE INSERTED                    BZ    DSVMSG              BRANCH IF YES                OY02728 P5084000
         SOURCE LINE INSERTED                    MVC   DCTUCS,8(PL)        NEW UCSB ID TO DCT           OY02728 P5087000
         SOURCE LINE INSERTED                    NI    DCTFLAGS,255-DCTDELET-DCTRSTRT-DCTBKSP RESET     OY04719 P5101000
         SOURCE LINE DELETED                     MVC   BUFSTART+34(4),0(PL) FORMS ID                            P5108000
         SOURCE LINE INSERTED                    MVC   BUFSTART+34(4),DCTFORMS FORMS ID                 OY02728 P5108000
         SOURCE LINE DELETED                     MVC   BUFSTART+46(4),4(PL) FCB ID                              P5110000
         SOURCE LINE INSERTED                    MVC   BUFSTART+46(4),DCTFCB FCB ID                     OY02728 P5110000
         SOURCE LINE DELETED                     MVC   BUFSTART+58(4),8(PL) UCSB ID                             P5112000
         SOURCE LINE INSERTED                    MVC   BUFSTART+58(4),DCTUCS UCSB ID                    OY02728 P5112000
                                        ./      DELETE SEQ1=P5192000,SEQ2=P5194000                      OY02728 P5192000
         SOURCE LINE DELETED                     MVC   PMESSAGE(12),DCTFORMS SAVE CURRENT SETUP                 P5192000
         SOURCE LINE DELETED                     MVC   DCTFORMS(12),0(PL)  NEW SETUP TO DCT                     P5194000
                                        ./      DELETE SEQ1=P5258000,SEQ2=P5266000                      OY02728 P5258000
         SOURCE LINE DELETED                     CLC   DCTUCS,=CL4'****'   HAS UCS ID BEEN SUPPLIED             P5258000
         SOURCE LINE DELETED                     BNE   DSVLUCST            BRANCH IF YES                        P5260000
         SOURCE LINE DELETED                     NI    DCTPPSW,255-DCTPPSWU RESET NON STD UCS IMAGE             P5262000
         SOURCE LINE DELETED                     MVC   DCTUCS,PMESSAGE+8   NO - USE PREVIOUS                    P5264000
         SOURCE LINE DELETED            DSVLUCST DS    0H                                                       P5266000
         SOURCE LINE DELETED                     CLI   PMESSAGE,X'00'      WAS UCSB IMAGE LOADED                P5286000
         SOURCE LINE INSERTED                    CLI   PLSAVE2,X'00'       UCSB IMAGE LOADED?           OY04719 P5286000
                                        ./      DELETE SEQ1=P5304000,SEQ2=P5304000                      OY02728 P5304000
         SOURCE LINE DELETED                     MVC   DCTUCS(4),PMESSAGE+8 USE PREVIOUS IMAGE ID               P5304000
         SOURCE LINE DELETED                     CLI   PMESSAGE,X'00'      WAS FCB IMAGE LOADED                 P5334000
         SOURCE LINE INSERTED                    CLI   PLSAVE2,X'00'       FCB IMAGE LOADED?            OY04719 P5334000
                                        ./      DELETE SEQ1=P5350000,SEQ2=P5350000                      OY02728 P5350000
         SOURCE LINE DELETED                     LA    PL,DCTFORMS         ADDRESS SETUP AREA IN DCT            P5350000

          HASPGEN UPDATE                LOG                                                                     PAGE  19


         SOURCE LINE DELETED                     ST    PL,PMESSAGE         SAVE RETURN ADDRESS                  P5370000
         SOURCE LINE INSERTED                    ST    PL,PLSAVE2          SAVE RETURN ADDRESS          OY04719 P5370000
         SOURCE LINE DELETED                     L     PL,PMESSAGE         GET RETURN ADDRESS                   P5388000
         SOURCE LINE INSERTED                    L     PL,PLSAVE2          GET RETURN ADDRESS           OY04719 P5388000
         SOURCE LINE DELETED                     MVI   PMESSAGE,X'FF'      SET IMAGE NOT FOUND INDICATION       P5390000
         SOURCE LINE INSERTED                    MVI   PLSAVE2,X'FF'       SET IMAGE NOT FOUND          OY04719 P5390000
         SOURCE LINE DELETED                     L     PL,PMESSAGE         GET RETURN ADDRESS                   P5458000
         SOURCE LINE INSERTED                    L     PL,PLSAVE2          GET RETURN ADDRESS           OY04719 P5458000
         SOURCE LINE DELETED                     MVI   PMESSAGE,X'00'      SET IMAGE FOUND INDICATION           P5460000
         SOURCE LINE INSERTED                    MVI   PLSAVE2,X'00'       SET IMAGE FOUND INDICATION   OY04719 P5460000
         SOURCE LINE INSERTED           PRDCHKOL LA    PL,0(,PL)           CLEAR HIGH ORDER BYTE        OY07290 P5873000
         SOURCE LINE DELETED            PRDCHK   SLR   PL,BASE3            COMPUTE RELATIVE RETURN              P5874000
         SOURCE LINE INSERTED                    SLR   PL,BASE3            COMPUTE RELATIVE RETURN      OY07290 P5874000
         SOURCE LINE INSERTED           PRDCHK   DS    0H                                               OY07290 P5875000
         SOURCE LINE DELETED            PRDCOMP  ALR   PL,BASE3            COMPUTE ABSOLUTE RETURN              P5898000
         SOURCE LINE INSERTED           PRDCOMP  DS    0H                                               OY07290 P5898000
         SOURCE LINE DELETED                     BCR   Z,PL                BRANCH IF NO DELETE                  P5906000
         SOURCE LINE INSERTED                    BZ    PRDCHKRT            RETURN IF NO DELETE          OY07290 P5906000
         SOURCE LINE DELETED                     BR    PL                  AND RETURN                           P5910000
         SOURCE LINE INSERTED                    B     PRDCHKRT            RETURN                       OY07290 P5910000
         SOURCE LINE DELETED                     TM    PPFLAG,PPDELSW+PPRDERR   TEST FOR DELETE                 P5922000
         SOURCE LINE INSERTED                    TM    PPFLAG,PPDELSW      TEST FOR SUSPENSION          OY02728 P5922000
         SOURCE LINE INSERTED           PRDCHKRT DS    0H                                               OY07290 P6021000
         SOURCE LINE DELETED            PPWRITE  TM    PPFLAG,PPWSW+PPDELSW+PPRDERR  TEST STATUS                P6032000
         SOURCE LINE INSERTED           PPWRITE  TM    PPFLAG,PPWSW        IS A WRITE STAGED            OY02728 P6032000
         SOURCE LINE INSERTED                    CLI   PDEVTYPE+3,X'0C'    TEST DEVICE TYPE             OY02728 P6086200
         SOURCE LINE INSERTED                    BNE   PUREXCP             BRANCH IF NOT 3525 PUNCH     OY02728 P6086400
         SOURCE LINE INSERTED                    L     R15,DCTDCB-DCTDSECT(,R1)  R15 = DCB ADDRESS      OY02728 P6086600
         SOURCE LINE INSERTED                    L     R15,DCBDEBAD-DCBDSECT(,R15)  R15 = DEB ADDRESS   OY02728 P6086800
         SOURCE LINE INSERTED                    L     R15,DEBUCBAD-DEBDSECT(,R15)  R15 = UCB ADDRESS   OY02728 P6087000
         SOURCE LINE INSERTED                    OI    UCBFL1-UCBDSECT(R15),UCBNOTRD  SET NOT READY     OY02728 P6087200
         SOURCE LINE INSERTED           PUREXCP  DS    0H                                               OY02728 P6087400
         SOURCE LINE INSERTED                    NI    PDCTFLAG,255-DCTSPACE  OPER MAY RESET C=1 FLAG   OY02728 P6120500
         SOURCE LINE INSERTED                    OC    PDCTFLAG,DCTFLAGS   ADD DCT FLAGS TO PCE         OY02728 P6121000
                                        ./      DELETE SEQ1=P6126000,SEQ2=P6126000                      OY02728 P6126000
         SOURCE LINE DELETED                     OC    PDCTFLAG,DCTFLAGS   ADD DCT FLAGS TO PCE                 P6126000
                                        ./ DELETE SEQ1=P6186000,SEQ2=P6186000                           OY03498 P6186000
         SOURCE LINE DELETED                    $#REM  WORK=PWKJOE         REMOVE WORK-JOE FROM JOT             P6186000
         SOURCE LINE DELETED                     B     PRDEL               GO WRITE OPERATOR MESSAGE            P6214000
         SOURCE LINE INSERTED                    B     PRNOJOE             GO WRITE AN OPERATOR MESSAGE OY03498 P6214000
         SOURCE LINE INSERTED           PRNOJOE  OI    PPFLAG,PPNOJOE      $E OR $I                     OY03498 P6263000
                                        ./ DELETE SEQ1=P6263200,SEQ2=P6263800                           OY07290 P6263200
         SOURCE LINE DELETED            PRDEL    OI    PPFLAG,PRDELSW+PPNOJOE TERMINATE - $E, $C, $I            P6264000
         SOURCE LINE INSERTED           PRDEL    OI    PPFLAG,PRDELSW      $C                           OY03498 P6264000
         SOURCE LINE INSERTED                    TM    PPFLAG,PPNOJOE      HAS WORK JOE BEEN RELEASED   OY07290 P6280100
         SOURCE LINE INSERTED                    BZ    PPIOTEST            NO,CHECK IO                  OY07290 P6280200
         SOURCE LINE INSERTED                    CLI   PLSAVE3,X'FF'       TERMINATION ENTERED          OY07290 P6280230

          HASPGEN UPDATE                LOG                                                                     PAGE  20


         SOURCE LINE INSERTED                    BE    PPIOTEST            YES CHECK IO                 OY07290 P6280260
         SOURCE LINE INSERTED                    ST    PL,PLSAVE3          SAVE RETURN                  OY07290 P6280300
         SOURCE LINE INSERTED                    CLI   PBUFOPT,2           CHECK DOUBLE BUFFER OPTION   OY07290 P6280400
         SOURCE LINE INSERTED                    BE    PPDONE1             YES,UPDATE JCT               OY07290 P6280500
         SOURCE LINE INSERTED           PPIOTSTA DS    0H                                               OY07290 P6280550
         SOURCE LINE INSERTED                   $GETBUF  ,                 GET BUFFER FOR JCT           OY07290 P6280600
         SOURCE LINE INSERTED                    ST    R1,PBUFSAVE         STORE BUFFER ADDRESS         OY07290 P6280700
         SOURCE LINE INSERTED                    BC    7,PPDONE1           UPDATE JCT IF BUFFER         OY07290 P6280730
         SOURCE LINE INSERTED                   $WAIT  BUF                 ELSE WAIT FOR BUFFER         OY07290 P6280760
         SOURCE LINE INSERTED                    B     PPIOTSTA            TRY AGAIN                    OY07290 P6280800
         SOURCE LINE INSERTED           PPIOTST  DS    0H                                               OY07290 P6280900
         SOURCE LINE INSERTED                    OI    PPFLAG,PPDELSW      SET SUSPEND FLAG             OY07290 P6281000
         SOURCE LINE INSERTED                    L     R3,PBUFSAVE         RESTORE BUFFER ADDRESS       OY07290 P6281100
         SOURCE LINE INSERTED                    ST    JCT,PBUFSAVE        SWAP BUFFER ADDRESS          OY07290 P6281150
         SOURCE LINE INSERTED                    L     PL,PLSAVE3          RESTORE RETURN ADDRESS       OY07290 P6281200
         SOURCE LINE INSERTED                    L     R1,PDADCT           ADDRESS DA DCT               OY07290 P6281230
         SOURCE LINE INSERTED                    MVI   DCTIOTYP-DCTDSECT(R1),DCTREAD INDICATE READ      OY07290 P6281260
         SOURCE LINE INSERTED                    CLI   PBUFOPT,2           CHECK DOUBLE BUFFER OPTION   OY07290 P6281300
         SOURCE LINE INSERTED                    BE    PPIOTEST            YES,CHECK IO                 OY07290 P6281400
         SOURCE LINE INSERTED                   $FREEBUF (JCT)             FREE JCT BUFFER              OY07290 P6281500
         SOURCE LINE INSERTED                    ST    R3,PBUFSAVE         SAVE SINGLE BUFFER ADDRESS   OY07290 P6281600
                                        ./ DELETE SEQ1=P6422000,SEQ2=P6422000                           OY07271 P6422000
         SOURCE LINE DELETED            P1442CON DC    0F'0',X'80000000'   1442 CCW CONVERSION CONSTANT         P6422000

          HASPGEN UPDATE                LOG                                                                     PAGE  21


                                        ./ CHANGE NAME=HASPRDR
         SOURCE LINE INSERTED                    AIF   (&RJOBOPT LE 2).RFLUSWI                          OY08664 R1822500
         SOURCE LINE INSERTED                    OI    RDRSW,RJFLUSH       INITIALIZE JOB FLUSH SWITCH  OY08664 R1823000
         SOURCE LINE INSERTED           .RFLUSWI ANOP                      *                            OY08664 R1823500
         SOURCE LINE INSERTED           CHKFREQ  OC    $JQFREE+1(3),$JQFREE+1  ARE ANY FREE QUEUES LEFT OY10158 R1856200
         SOURCE LINE INSERTED                    BNZ   GETJOBNO            BIF YES - GO ASSIGN IT       OY10158 R1856400
         SOURCE LINE INSERTED                    $WAIT JOB,OLAY=YES        ELSE, WAIT FOR JQE           OY10158 R1856600
         SOURCE LINE INSERTED                    B     CHKFREQ             HI-PRI RDR MAY HAVE JOB #    OY10158 R1856800
         SOURCE LINE INSERTED           GETJOBNO NULL                                                   OY10158 R1858500
         SOURCE LINE INSERTED                    MVI   JCTPNAME,C' '       SETUP TO PAD PROG NAME       OY07780 R1985000
         SOURCE LINE INSERTED                    MVC   JCTPNAME+1(L'JCTPNAME-1),JCTPNAME  WITH BLANKS   OY07780 R1985200
         SOURCE LINE INSERTED                    LA    R1,JCTWORK-1        ASSUME                       OY02728 R2045000
         SOURCE LINE DELETED                     BXH   RW,R14,RILLJOBC     FIND                                 R2046000
         SOURCE LINE INSERTED                    ST    R1,RSAVE1            NO ACCOUNTING FIELD         OY02728 R2046000
         SOURCE LINE INSERTED                    BXH   RW,R14,RJOBCEND     FIND                         OY02728 R2047000
                                        ./      DELETE SEQ1=R2062000,SEQ2=R2064000                      OY02728 R2062000
         SOURCE LINE DELETED                     LA    R1,JCTWORK-1        INDICATE                             R2062000
         SOURCE LINE DELETED                     ST    R1,RSAVE1            NO ACCOUNTING FIELD                 R2064000
         SOURCE LINE DELETED                     XC    JCTPNAME,JCTPNAME   INDICATE NO PROGRAMMER NAME          R2082000
         SOURCE LINE INSERTED                    MVI   JCTPNAME,C' '       SETUP TO PAD PROG NAME       OY07780 R2082000
         SOURCE LINE INSERTED                    MVC   JCTPNAME+1(L'JCTPNAME-1),JCTPNAME  WITH BLANKS   OY07780 R2082200
         SOURCE LINE INSERTED           RJOBMSGC CLI   9(RW),C'A'          IS MSGCLASS VALID            OY05831 R2121000
         SOURCE LINE INSERTED                    BL    *+10                IF NOT LEAVE DEFAULT         OY05831 R2121500
         SOURCE LINE DELETED            RJOBMSGC MVC   RMSGCLAS,9(RW)      SET MSGCLASS SPECIFIED               R2122000
         SOURCE LINE INSERTED                    MVC   RMSGCLAS,9(RW)      SET MSGCLASS SPECIFIED       OY05831 R2122000
         SOURCE LINE INSERTED                    CLI   6(RW),C','          CONT. COMMA IN CC71?         OY11591 R2136400
         SOURCE LINE INSERTED                    BE    RJOBCONT            BIF YES - GET NEXT           OY11591 R2137000
         SOURCE LINE DELETED                     LA    RL1,RJOBSRCH        SET RETURN ADDRESS                   R2142000
         SOURCE LINE INSERTED           RJOBCONT LA    RL1,RJOBSRCH        SET RETURN ADDRESS           OY11591 R2142000
         SOURCE LINE INSERTED                    LTR   JCT,JCT             CK FOR 0 JCT                 OY04717 R2308010
         SOURCE LINE INSERTED                    BZ    RJOBRET             BRANCH AROUND WTO            OY04717 R2308020
         SOURCE LINE DELETED                     BNE   &SCNTGT2            BR IF NOT CORECTLY SPECIFIED         R2764000
         SOURCE LINE INSERTED                    BNE   4(,RL1)             RESUME ACCT FIELD SCAN IF NO OY02728 R2764000
         SOURCE LINE DELETED                     XC    IOBCSW(3),IOBCSW    INSURE COMMAND ADDRESS IS ZERO       R3354000
         SOURCE LINE INSERTED                    MVC   IOBCSW+5(2),RDCF80+2    FORCE RESIDUAL TO 80     OY08682 R3354000
                                        ./  DELETE  SEQ1=R3372000,SEQ2=R3376000                         OY08682 R3372000
         SOURCE LINE DELETED                     LA    RW,0(RW)            CLEAR HIGH ORDER BYTE                R3372000
         SOURCE LINE DELETED                     LTR   RW,RW               TEST COMMAND ADDRESS                 R3374000
         SOURCE LINE DELETED                     BZ    RCOMPZ              BRANCH IF ZERO                       R3376000
         SOURCE LINE INSERTED                    OI    RTEMP+7,X'F0'       EBCDIC                       OY02744 R3709000

          HASPGEN UPDATE                LOG                                                                     PAGE  22


                                        ./ CHANGE NAME=HASPRTAM
         SOURCE LINE DELETED            M27XOPEN NI    DCTPSTAT-DCTDSECT(R1),255-DCTETX   RESET ETX SWITCH      M0314000
         SOURCE LINE INSERTED           M27XOPEN OI    DCTPSTAT-DCTDSECT(R1),DCTETX  SET ETX SWITCH     OY02728 M0314000
         SOURCE LINE DELETED                     NI    MDCTATTN-DCTDSECT(R1),255-MDCTPAWS  AND LINE PAUSE       M0316000
         SOURCE LINE INSERTED                    NI    MDCTATTN-DCTDSECT(R1),255-MDCTPAWS  RESET PAUSE  OY02728 M0316000
         SOURCE LINE DELETED                     BM    MBHGNREC            BRANCH IF LENGTH IS ZERO             M0973000
         SOURCE LINE INSERTED                    BM    MBHGIREC            BR IF LGTH IS ZERO OR LESS   OY02728 M0973000
         SOURCE LINE INSERTED           MBHGIREC C     WA,=F'-1'           WAS BAD IGS DATA ENCOUNTERED OY02728 M0975100
         SOURCE LINE INSERTED                    BL    *+6                 IF YES, AVOID DEBLOCK LOOP   OY02728 M0975200
         SOURCE LINE INSERTED                    CLI   TPBRECNT,0          TEST BUFFER CONTENTS         OY02744 M2753000
         SOURCE LINE INSERTED                    BE    MBHCLOSE            BRANCH IF EMPTY              OY02744 M2753500
         SOURCE LINE INSERTED           MEXCPNXT NULL                      *                            OY02728 M3925000
         SOURCE LINE INSERTED           MBSCSOH  DS    0X                  START OF HEADER CHARACTER    OY02728 M4093000
         SOURCE LINE DELETED            MCHANTST $DISABLE ALL              DISABLE WHILE INSPECTING QUEUES      M4934000
         SOURCE LINE INSERTED           MCHANTST DS    0H                                               OY02728 M4934000
         SOURCE LINE DELETED                    $WAIT  WORK,ENABLE         WAIT FOR SOMETHING TO DO             M4972000
         SOURCE LINE INSERTED                   $WAIT  WORK                WAIT FOR WORK                OY02728 M4972000
                                        ./      DELETE SEQ1=M4980000,SEQ2=M4990000                      OY02728 M4980000
         SOURCE LINE DELETED                    $ENABLE ALL                RE-ENABLE                            M4980000
         SOURCE LINE DELETED                     SPACE 2                                                        M4982000
         SOURCE LINE DELETED                     LH    R1,$EXCPCT          DECREMENT                            M4984000
         SOURCE LINE DELETED                     S     R1,=F'1'             MASTER I/O COUNT                    M4986000
         SOURCE LINE DELETED                     BM    E01                 ERROR IF NEGATIVE                    M4988000
         SOURCE LINE DELETED                     STH   R1,$EXCPCT          UPDATE MASTER I/O COUNT              M4990000
         SOURCE LINE INSERTED                    CLC   MBSCSOH,TPBUFST     TEST FIRST DATA BYTE         OY02728 M5695000
         SOURCE LINE INSERTED                    BE    MBCENULL            BRANCH IF SOH                OY02728 M5695500
         SOURCE LINE INSERTED                    NI    DCTPSTAT,255-DCTETX RESET ETX SWITCH             OY02728 M5713000
         SOURCE LINE DELETED                     BNE   MNORMAL             BRANCH IF NOT ETX                    M5716000
         SOURCE LINE INSERTED                    BNE   *+8                 BRANCH IF NOT ETX            OY02728 M5716000
         SOURCE LINE INSERTED                    LA    R1,&TPBFSIZ-2       GET MAXIMUM DATA LENGTH      OY02728 M5720000
         SOURCE LINE INSERTED                    CLC   MBSCDLE,TPBUFST     TEST FIRST DATA BYTE         OY02728 M5721000
         SOURCE LINE INSERTED                    BNE   *+6                 BRANCH IF NOT DLE            OY02728 M5722000
         SOURCE LINE INSERTED                    BCTR  R1,0                REDUCE MAXIMUM DATA LENGTH   OY02728 M5723000
         SOURCE LINE INSERTED                    CH    R1,IOBCSW+5         COMPARE WITH RESIDUAL LENGTH OY02728 M5724000
         SOURCE LINE INSERTED                    BH    MNORMAL             BRANCH IF DATA PRESENT       OY02728 M5725000
         SOURCE LINE INSERTED                    SPACE 1                                                OY02728 M5726000
         SOURCE LINE INSERTED           MBCENULL L     R1,IOBRESTR         SET UP                       OY02728 M5727000
         SOURCE LINE INSERTED                    ST    R1,IOBSTART          ADDRESS OF RESTART CCW      OY02728 M5728000
         SOURCE LINE INSERTED                    BAL   ML,MEXCPNXT         READ NEXT BLOCK              OY02728 M5729000
         SOURCE LINE DELETED                     B     MNORMAL             TAKE NORMAL ENDING                   M5730000
         SOURCE LINE INSERTED                    B     MSEARCH             SEARCH FOR OTHER PROCESSING  OY02728 M5730000
         SOURCE LINE INSERTED                    BAL   ML,MABORT           ABORT ALL ACTIVE FUNCTIONS   OY02744 M5995000
                                        ./      DELETE SEQ1=M6502000,SEQ2=M6504000                      OY02728 M6502000
         SOURCE LINE DELETED                     SPACE 3                                                        M6502000
         SOURCE LINE DELETED            E01     $ERROR                     NEGATIVE MASTER I/O COUNT            M6504000
                                        ./      DELETE SEQ1=M6512000,SEQ2=M6512000                      OY02728 M6512000
         SOURCE LINE DELETED                    $ENABLE ALL                RE-ENABLE                            M6512000

          HASPGEN UPDATE                LOG                                                                     PAGE  23


         SOURCE LINE INSERTED                    MVI   MSEQTYPE,0          ZERO SEQENCE TYPE            OY02744 M6515000
         SOURCE LINE DELETED            MSTIMER $ENABLE ALL                RE-ENABLE                            M6718000
         SOURCE LINE INSERTED           MSTIMER  DS    0H                                               OY02728 M6718000
                                        ./      DELETE SEQ1=M6752000,SEQ2=M6752000                      OY02728 M6752000
         SOURCE LINE DELETED                    $ENABLE ALL                YES, RE-ENABLE                       M6752000
                                        ./      DELETE SEQ1=M6764000,SEQ2=M6764000                      OY02728 M6764000
         SOURCE LINE DELETED                    $ENABLE ALL                YES, RE-ENABLE                       M6764000

          HASPGEN UPDATE                LOG                                                                     PAGE  24


                                        ./ CHANGE NAME=HASPXEQ
         SOURCE LINE INSERTED                    DC    AL4(16777215)       END OF TABLE                 OY10206 X0155000
         SOURCE LINE DELETED                     OC    DDBTTR,DDBTTR       WAS THIS DDB REFERENCED...           X1432000
         SOURCE LINE INSERTED                    TM    DDBSTAT2,XOPEN      WAS THIS DDB REFERENCED...   OY02728 X1432000
         SOURCE LINE DELETED                     BNE   XBADIOT             BRANCH IF BAD IOT.                   X2520000
         SOURCE LINE INSERTED                    BNE   XBADIOT1            BRANCH IF BAD IOT.           OY02728 X2520000
         SOURCE LINE INSERTED                    OI    IOTFLAGS,IOTWRITE   SET TO WRITE IOT AND         OY02728 X2577000
         SOURCE LINE INSERTED                    MVC   HDBSTART+9(3),XPCEJOBN+5  REFRESH JOBNAME        OY02728 X2703000
         SOURCE LINE INSERTED                    MVC   HDBSTART+82+19(3),XPCEJOBN+5  REFRESH PROCNAME   OY02728 X2703500
         SOURCE LINE INSERTED           XBADIOT1 DS    0H                                               OY02728 X2917000
                                        ./      DELETE SEQ1=X3240000,SEQ2=X3240000                      OY02728 X3240000
         SOURCE LINE DELETED                     USING DEBDSECT,R3         ADDRESSABILITY FOR DEB               X3240000
         SOURCE LINE INSERTED                    LA    R3,10               SET TIC COUNTER.             OY02728 X3333000
         SOURCE LINE INSERTED                    BC    1,XPROTRDR          PCE FOUND BY JOBNAME-BRANCH  OY08671 X3501000
         SOURCE LINE DELETED                     ICM   R13,15,$RDRPCE      IS THE READER ACTIVE...              X4442000
         SOURCE LINE INSERTED                    ICM   R5,15,$RDRDDB       IS THE READER ACTIVE...      OY02728 X4442000
         SOURCE LINE INSERTED                    L     R13,$RDRPCE         POINT TO RDR'S PCE.          OY02728 X4445000
         SOURCE LINE DELETED                     BC    1,XWC4              BRANCH IF PCE FOUND.                 X4638000
         SOURCE LINE INSERTED                    BC    8+4,XWC5            BRANCH IF PCE NOT FOUND      OY04721 X4638000
         SOURCE LINE DELETED                     OI    IOBCSW+3,4          PCE NOT FOUND.  SHOW CCW COMPLETE    X4640000
         SOURCE LINE INSERTED                    TM    XSYNCFLG,XEOJBIT    EOJ ALREADY SIGNALED?        OY04721 X4640000
         SOURCE LINE DELETED                     B     XWCALL              AND GO GET NEXT CCW.                 X4642000
         SOURCE LINE INSERTED                    BO    XWC5                YES - BRANCH                 OY04721 X4642000
         SOURCE LINE DELETED            * SPACE TO SCAN OUT JOBNAME.                                            X4644000
         SOURCE LINE INSERTED                    BAL   LINK,XPROTRD1       CHECK READER                 OY08671 X4644000
                                        ./ DELETE SEQ1=X4646000,SEQ2=X4648000                           OY04721 X4646000
         SOURCE LINE DELETED            XWJN     DS    16C                 WORK AREA FOR JOBNAME.               X4646000
         SOURCE LINE DELETED            * JOB'S PCE IS FOUND. CONTINUE IF SAFE.                                 X4648000
         SOURCE LINE DELETED            XWC4     CLI   $CURPCE,PCEXEQID    IS IT SAFE TO PROCEED...             X4650000
         SOURCE LINE INSERTED                    CLI   $CURPCE,PCEXEQID    SAFE TO PROCEED?             OY04721 X4650000
                                        ./ DELETE      SEQ1=X4652000,SEQ2=X4652000                      OY08671 X4652000
         SOURCE LINE DELETED                     MVC   XPCEJST,TCBJSTCB    SAVE TCB ADDRESS IN PCE.             X4652000
         SOURCE LINE INSERTED                    SPACE 1                                                OY04721 X4668200
         SOURCE LINE INSERTED           XWJN     DS    16C                 WORK AREA FOR JOBNAME        OY04721 X4668400
         SOURCE LINE INSERTED                    SPACE 1                                                OY04721 X4668600
         SOURCE LINE INSERTED           XWC5     OI    IOBCSW+3,4          SHOW CCW COMPLETE,           OY04721 X4668800
         SOURCE LINE INSERTED                    B     XWCALL              AND GO GET ANOTHER           OY04721 X4669000
         SOURCE LINE INSERTED                    AIF   ('&XBATCHC' EQ '').XNOB7                         OY02728 X4684400
         SOURCE LINE INSERTED                    L     R1,XPCEPIT          INSURE PITBUNIT IN CORE      OY02728 X4684800
         SOURCE LINE INSERTED                    CLI   PITBUNIT(R1),0       PRIOR TO XEOCP PROCESSING   OY02728 X4685200
         SOURCE LINE INSERTED           .XNOB7   ANOP                                                   OY02728 X4685600
         SOURCE LINE DELETED                     XC    $RDRPCE,$RDRPCE     YES.  DISCONNECT THE READER.         X5088000
         SOURCE LINE INSERTED                    XC    $RDRDDB,$RDRDDB     YES.  DISCONNECT THE READER. OY02728 X5088000
                                        ./ DELETE      SEQ1=X5096000,SEQ2=X5098000                      OY03479 X5096000
         SOURCE LINE DELETED                     L     R15,=A(XCOOL)       POINT TO FREEZE SUBROUTINE.          X5096000
         SOURCE LINE DELETED                     BALR  R14,R15             FREEZE TILL DDB TERMINATES.          X5098000
                                        ./      DELETE SEQ1=X5160000,SEQ2=X5168000                      OY02728 X5160000

          HASPGEN UPDATE                LOG                                                                     PAGE  25


         SOURCE LINE DELETED                     SPACE 1                                                        X5160000
         SOURCE LINE DELETED                     LA    R0,254              GET MAXIMUM ALLOWABLE DATA COUNT.    X5162000
         SOURCE LINE DELETED                     CR    R10,R0              IS CCW COUNT TOO HIGH...             X5164000
         SOURCE LINE DELETED                     BNH   *+6                 SKIP ONE IF NOT.                     X5166000
         SOURCE LINE DELETED                     LR    R10,R0              TOO HIGH - USE MAXIMUM COUNT.        X5168000
         SOURCE LINE DELETED                     CLI   UCBTBYT4,XPUNUCB    IS THIS PUNCHED OUTPUT...            X5268000
         SOURCE LINE INSERTED                    CLI   DDBTYPE,XPUNDDB     IS THIS PUNCHED OUTPUT...    OY02728 X5268000
         SOURCE LINE DELETED                     LA    R15,73(,R9)         FOR BXH                              X5298000
         SOURCE LINE INSERTED                    L     R15,DDBPBUF         FOR BXH                      OY06923 X5298000
         SOURCE LINE INSERTED                    AR    R15,R8              R15 = NEXT BUFFER FIELD      OY06923 X5301000
         SOURCE LINE INSERTED                    BCT   R3,XCCW2             AND PERFORM THE TIC.        OY02728 X5415000
         SOURCE LINE DELETED                     B     XCCW2               AND GO CHECK IT.                     X5416000
         SOURCE LINE INSERTED                    BAL   LINK,XFIREUP        TIC LIMIT.  POST HASP.       OY02728 X5416000
         SOURCE LINE INSERTED                    B     XFREEZE             FREEZE CALLER.               OY02728 X5417000
         SOURCE LINE INSERTED                    LH    R10,6(,R6)          GET CCW COUNT FIELD          OY02728 X5420200
         SOURCE LINE INSERTED                    LTR   R10,R10              AND TEST FOR ZERO.          OY02728 X5420400
         SOURCE LINE INSERTED                    BZ    XCCW8               IF 0, GO SET CHAN PROG CK.   OY02728 X5420600
         SOURCE LINE INSERTED                    LA    R0,254              IF CCW COUNT                 OY02728 X5420800
         SOURCE LINE INSERTED                    CLR   R10,R0               IS GREATER THAN             OY02728 X5421000
         SOURCE LINE INSERTED                    BNH   *+6                   MAX COUNT OF 254,          OY02728 X5421200
         SOURCE LINE INSERTED                    LR    R10,R0              SET COUNT TO 254.            OY02728 X5421400
         SOURCE LINE INSERTED                    LA    R0,240              R0 IS PROTECT KEY MASK.      OY02728 X5421600
         SOURCE LINE INSERTED                    LH    R1,32               GET CALLER'S PROTECT KEY     OY02728 X5421800
         SOURCE LINE DELETED                     SR    R10,R10             ZERO THE COUNT REGISTER.             X5422000
         SOURCE LINE INSERTED                    NR    R1,R0                AND CLEAR OTHER BITS.       OY02728 X5422000
         SOURCE LINE INSERTED                    BZ    4(,R14)             RETURN +4, KEY ZERO CALLER.  OY02728 X5422200
         SOURCE LINE INSERTED                    TM    0(R6),X'03'         TEST COMAND MODE             OY02744 X5422300
         SOURCE LINE INSERTED                    BO    4(,R14)             RETURN +4 IF CONTROL         OY02744 X5422350
         SOURCE LINE INSERTED                    LR    R7,R15              GET LEFT DATA ADDRESS.       OY02728 X5422400
         SOURCE LINE INSERTED                    IC    R7,=X'00'           ZERO LOW BYTE OF ADDRESS.    OY02728 X5422600
         SOURCE LINE INSERTED                    CLI   0(R7),0             INSURE PAGE IN STORAGE.      OY02728 X5422800
         SOURCE LINE INSERTED                    LRA   R7,0(,R7)           GENERATE REAL ADDRESS.       OY02728 X5423000
         SOURCE LINE INSERTED                    ISK   R7,R7               GET KEY FROM STORAGE         OY02728 X5423200
         SOURCE LINE INSERTED                    NR    R7,R0                AND CLEAR OTHER BITS.       OY02728 X5423400
         SOURCE LINE INSERTED                    CLR   R7,R1               COMPARE KEYS.                OY02728 X5423600
         SOURCE LINE INSERTED                    BNE   XCCW7               IF NE, GO SET CHAN PROT CK.  OY02728 X5423800
         SOURCE LINE DELETED                     ICM   R10,3,6(R6)         GET CCW COUNT FIELD.                 X5424000
         SOURCE LINE INSERTED                    LA    R7,0(R15,R10)       GENERATE RIGHT               OY02728 X5424000
         SOURCE LINE INSERTED                    BCTR  R7,0                 DATA ADDRESS.               OY02728 X5424200
         SOURCE LINE INSERTED                    IC    R7,=X'00'           ZERO LOW BYTE OF ADDRESS.    OY02728 X5424400
         SOURCE LINE INSERTED                    CLI   0(R7),0             INSURE PAGE IN STORAGE.      OY02728 X5424600
         SOURCE LINE INSERTED                    LRA   R7,0(,R7)           GENERATE REAL ADDRESS.       OY02728 X5424800
         SOURCE LINE INSERTED                    ISK   R7,R7               GET KEY FROM STORAGE         OY02728 X5425000
         SOURCE LINE INSERTED                    NR    R7,R0                AND CLEAR OTHER BITS.       OY02728 X5425200
         SOURCE LINE INSERTED                    CLR   R7,R1               COMPARE KEYS.                OY02728 X5425400
         SOURCE LINE INSERTED                    BNE   XCCW7               IF NE, GO SET CHAN PROT CK.  OY02728 X5425600
         SOURCE LINE INSERTED                    L     R1,CVTPTR           GET USER SEGMENT TABLE       OY02728 X5425800

          HASPGEN UPDATE                LOG                                                                     PAGE  26


         SOURCE LINE DELETED                     BNZ   4(,R14)             RETURN TO +4 IF NONZERO.             X5426000
         SOURCE LINE INSERTED                    L     R1,CVTSEGA-CVTDSECT(,R1)  ADDRESS FROM CVT.      OY02728 X5426000
         SOURCE LINE INSERTED                    IC    R7,1(,R6)           GET LEFT SEGMENT INDEX.      OY02728 X5426200
         SOURCE LINE INSERTED                    SLL   R7,2                GENERATE SEGMENT TABLE       OY02728 X5426400
         SOURCE LINE INSERTED                    ALR   R7,R1                ENTRY ADDRESS.              OY02728 X5426600
         SOURCE LINE INSERTED                    TM    3(R7),1             IS SEGMENT VALID...          OY02728 X5426800
         SOURCE LINE INSERTED                    BO    XCCW7               IF NOT, GO SET CHAN PROT CK. OY02728 X5427000
         SOURCE LINE INSERTED                    LA    R7,0(R15,R10)       GENERATE RIGHT               OY02728 X5427200
         SOURCE LINE INSERTED                    BCTR  R7,0                 DATA ADDRESS.               OY02728 X5427400
         SOURCE LINE INSERTED                    SRL   R7,16               ISOLATE SEGMENT INDEX.       OY02728 X5427600
         SOURCE LINE INSERTED                    SLL   R7,2                GENERATE SEGMENT TABLE       OY02728 X5427800
         SOURCE LINE DELETED            *                                  IF ZERO, CHANNEL PROGRAM CHECK.      X5428000
         SOURCE LINE INSERTED                    ALR   R7,R1                ENTRY ADDRESS.              OY02728 X5428000
         SOURCE LINE INSERTED                    TM    3(R7),1             IS SEGMENT VALID...          OY02728 X5428200
         SOURCE LINE INSERTED                    BZ    4(,R14)             IF YES, RETURN +4.           OY02728 X5428400
         SOURCE LINE INSERTED           XCCW7    OI    IOBCSW+4,X'10'      SET CHANNEL PROTECT CHECK.   OY02728 X5428600
         SOURCE LINE INSERTED                    B     XCCW9               GO END CHANNEL PROGRAM.      OY02728 X5428800
         SOURCE LINE INSERTED           XJSCC2   L     R15,XPCEJST         TEST FOR VALID               OY03480 X5579000
         SOURCE LINE DELETED            XJSCC2   LPR   R15,R15             PCE FOUND BY JSCB -                  X5580000
         SOURCE LINE INSERTED                    LPR   R15,R15             PCE SET                      OY03480 X5580000
         SOURCE LINE DELETED                     BR    LINK                RETURN CC=2.                         X5582000
         SOURCE LINE INSERTED                    BR    LINK                CC2 OR CC0                   OY03480 X5582000
         SOURCE LINE INSERTED                    SPACE 1                                                OY08671 X5614100
         SOURCE LINE INSERTED           *                                                               OY08671 X5614200
         SOURCE LINE INSERTED           *              CHECK FOR READER ON PCE                          OY08671 X5614300
         SOURCE LINE INSERTED           *                                                               OY08671 X5614400
         SOURCE LINE INSERTED                    SPACE 1                                                OY08671 X5614450
         SOURCE LINE INSERTED           XPROTRDR DS    0H                                               OY08671 X5614500
         SOURCE LINE INSERTED                    LA    LINK,XTERMDDB       LOAD RETURN ADDRESS          OY08671 X5614600
         SOURCE LINE INSERTED           XPROTRD1 DS    0H                                               OY08671 X5614700
         SOURCE LINE INSERTED                    ICM   R5,15,$RDRDDB       IS READER ACTIVE             OY08671 X5614800
         SOURCE LINE INSERTED                    BNP   XRDRNA              NO, THEN BRANCH              OY08671 X5614900
         SOURCE LINE INSERTED                    CL    R13,$RDRPCE         IS THIS THE READERS PCE      OY08671 X5615000
         SOURCE LINE INSERTED                    BNE   XRDRNA              NO, THEN BRANCH              OY08671 X5615100
         SOURCE LINE INSERTED                    L     R1,=A(XTHRDTCB)     ELSE,                        OY08671 X5615200
         SOURCE LINE INSERTED                    MVC   0(4,R1),TCBJSTCB    PREPARE TO FREEZE            OY08671 X5615300
         SOURCE LINE INSERTED                    B     XSLUSHY             THE CALLER                   OY08671 X5615400
         SOURCE LINE INSERTED           XRDRNA   DS    0H                                               OY08671 X5615500
         SOURCE LINE INSERTED                    MVC   XPCEJST,TCBJSTCB    PUT JOBSTEP TCB IN XEQ PCE   OY08671 X5615600
         SOURCE LINE INSERTED                    BR    LINK                RETURN                       OY08671 X5615700
         SOURCE LINE DELETED                     MVC   XPCEJST,TCBJSTCB    PUT TCB ADDRESS IN PCE.              X5634000
         SOURCE LINE INSERTED                    BAL   LINK,XPROTRD1       CHECK READER                 OY08671 X5634000
         SOURCE LINE INSERTED                    L     R1,CVTPTR           R1 = CVT ADDRESS             OY02728 X5714300
         SOURCE LINE INSERTED                    L     R1,CVTTCBP-CVTDSECT(,R1)  R1 = TCB PTRS ADDRESS  OY02728 X5714600
         SOURCE LINE INSERTED                    CLC   0(4,R1),4(R1)       ANY PREVIOUS TASK SWITCH     OY02728 X5714900
         SOURCE LINE INSERTED                    BNER  R14                 IF YES, RETURN TO CALLER     OY02728 X5715200
         SOURCE LINE INSERTED                    XC    0(4,R1),0(R1)       INDICATE TASK SWITCH         OY02728 X5715500

          HASPGEN UPDATE                LOG                                                                     PAGE  27


         SOURCE LINE INSERTED                    ICM   R4,8,=X'80'         SET H-O BIT ON IN TCB ADDR   OY02728 X5731000
         SOURCE LINE DELETED                    $DISABLE ALL                                                    X5732000
         SOURCE LINE INSERTED                    STNSM XWARM9+1,X'FC'      DISABLE INTERRUPTS           OY02728 X5732000
         SOURCE LINE DELETED                     LA    R1,0(,R4)           SET R1 = TCB ADDRESS,                X5764000
         SOURCE LINE INSERTED                    LR    R1,R4               SET R1 = TCB ADDRESS         OY02728 X5764000
                                        ./      DELETE SEQ1=X5766000,SEQ2=X5766000                      OY02728 X5766000
         SOURCE LINE DELETED                     AL    R1,=X'80000000'     WITH HIGH-ORDER BIT ON.              X5766000
         SOURCE LINE INSERTED                    L     R15,XWARMA-*(,R14)  RELOAD LOCAL ADDRESSABILITY  OY02728 X5773000
         SOURCE LINE DELETED            XWARM9   BALR  R15,0               ESTABLISH                            X5778000
         SOURCE LINE INSERTED                    B     XWARM9              GO DO RETURN                 OY02728 X5778000
                                        ./      DELETE SEQ1=X5780000,SEQ2=X5782000                      OY02728 X5780000
         SOURCE LINE DELETED                     USING *,R15                NEW ADDRESSABILITY.                 X5780000
         SOURCE LINE DELETED                    $ENABLE ALL                                                     X5782000
         SOURCE LINE DELETED                     BR    R14                  AND RETURN TO CALLER.               X5784000
         SOURCE LINE INSERTED           XWARMA   DC    A(XWARM)            ENTRY POINT ADDRESS          OY02728 X5784000
         SOURCE LINE INSERTED           XWARM9   STOSM XWARMA,*-*          RESTORE ENTRY SYSTEM MASK    OY02728 X5787000
         SOURCE LINE INSERTED                    BR    R14                 RETURN                       OY02728 X5789000
         SOURCE LINE DELETED                     DROP  R2,R3,R4,R5,R7,R12  DROP ADDRESSABILITY.                 X5794000
         SOURCE LINE INSERTED                    DROP  R2,R4,R5,R7,BASE2                                OY02728 X5794000
         SOURCE LINE DELETED                     BNZ   XJCLXIT4            CANCEL JOB IF SO.                    X5992000
         SOURCE LINE INSERTED                    BZ    XJCLNOFL            CONTINUE TEXT SCAN IF NONE   OY03485 X5992000
         SOURCE LINE INSERTED                    CLC   XINTXKEY(1),XJSEXEKE TEST FOR 'EXEC' STATEMENT.  OY03485 X5992500
         SOURCE LINE INSERTED                    BNE   XJCLEXIT            IGNORE STATEMENT IF NOT      OY03485 X5993000
         SOURCE LINE DELETED                     L     SAVE,=A($RDRPCE)    GET ADDRESS IN R13 OF                X5994000
         SOURCE LINE INSERTED           XJCLNOFL L     SAVE,=A($RDRPCE)    GET ADDRESS IN R 13 OF       OY03485 X5994000
         SOURCE LINE DELETED                     BNE   XJCLPR2             SKIP JMR CODE IF UNEQUAL.            X6146000
         SOURCE LINE INSERTED                    L     JCT,PCEJCT          ESTABLISH JCT POINTER        OY04711 X6146000
         SOURCE LINE DELETED                     L     JCT,PCEJCT          POINT TO HASP JCT.                   X6148000
         SOURCE LINE INSERTED                    BNE   XJCLPR2             SKIP JMR MOVES IF UNEQUAL    OY04711 X6148000
         SOURCE LINE INSERTED                    CLI   XJCLOMC+1,C'A'      IS MSGCLASS VALID            OY05831 X6218500
         SOURCE LINE INSERTED                    BL    *+12                IF NOT BRANCH                OY05831 X6218750
         SOURCE LINE INSERTED                    CLI   XJCLOMC+1,X'FE'     IS MSGCLASS NULL             OY05831 X6219000
         SOURCE LINE INSERTED                    BNE   *+8                 IF NOT BRANCH                OY05831 X6219250
         SOURCE LINE INSERTED                    MVI   XJCLOMC+1,C'&TEMPC' INSERT DEFAULT MSGCLASS      OY05831 X6219500
         SOURCE LINE INSERTED                    ICM   WA,15,XINTXTTR      TEXT OVERFLOW ON THIS STMT$  OY03485 X6407000
         SOURCE LINE INSERTED                    BNZ   XJCLEXIT            SKIP DPRTY KEYWRD CHK IF SO. OY03485 X6407500
         SOURCE LINE INSERTED                    SR    WA,WA               CLEAR WA.                    OY02728 X8001000
                                        ./ DELETE SEQ1=X8602000,SEQ2=X8602000                           OY06636 X8602000
         SOURCE LINE DELETED                     STC   R0,XTERMIND         SAVE TERMINATION INDICATOR           X8602000
         SOURCE LINE DELETED                     CLI   XTERMIND,XJOBTERM   IS THIS JOB TERMINATION              X8614000
         SOURCE LINE INSERTED                    CLI   XTERMIND(WA),XJOBTERM IS THIS JOB TERMINATION    OY06636 X8614000
         SOURCE LINE DELETED            XTERMIND DS    BL1                 STEP OR JOB TERMINATION INDICATOR    X8630000
         SOURCE LINE INSERTED           XTERMIND EQU   23                  R0 BYTE 3 IN SAVE AREA       OY06636 X8630000
         SOURCE LINE INSERTED                    ICM   R4,15,XTHRDTCB      ANYONE WAITING FOR READER    OY08671 X8772100
         SOURCE LINE INSERTED                    BZ    XTH4                NO, THEN WAIT                OY08671 X8772200
         SOURCE LINE INSERTED                    L     R15,=V(XWARM)       ELSE PREPARE TO              OY08671 X8772300
         SOURCE LINE INSERTED                    BALR  LINK,R15            THAW WAITING TASK            OY08761 X8772400

          HASPGEN UPDATE                LOG                                                                     PAGE  28


         SOURCE LINE INSERTED                    XC    XTHRDTCB,XTHRDTCB   CLEAR THAW CELL              OY08671 X8772500
         SOURCE LINE INSERTED           XTH4     DS    0H                                               OY08671 X8772600
         SOURCE LINE INSERTED           XTHRDTCB DC    A(0)                READER SPECIAL THAW CELL     OY08671 X8779000

          HASPGEN UPDATE                LOG                                                                     PAGE  29


                                        ./ CHANGE NAME=HRTPB360
         SOURCE LINE DELETED                     BNE   PTSTRCB             IF NOT ZERO COUNT TEST TYPE          F4468000
         SOURCE LINE INSERTED                    BNE   PTSTEOF             BRANCH IF NON ZERO COUNT     OY05856 F4468000
         SOURCE LINE INSERTED                    MVI   PEOFSW,X'FF'        INDICATE END OF FILE         OY05856 F4468500
         SOURCE LINE DELETED                     MVC   TANKRCB(TANKDATA-TANKRCB+1),=AL1(&WRCB(1),X'B1',0,1,64)  F4474000
         SOURCE LINE INSERTED                    MVI   TANKSRCB,X'B1'      SET TO EJECT IMMEDIATE       OY05856 F4474000
         SOURCE LINE DELETED            *                                  SET TO PRINT BLANK LINE AND EJECT    F4476000
         SOURCE LINE INSERTED                    B     PSETCC              GO AHEAD AND EJECT           OY05856 F4476000
         SOURCE LINE INSERTED           PEOFSW   DC    AL1(*-*,*-*)        END OF FILE SWITCH           OY05856 F4476200
         SOURCE LINE INSERTED           PTSTEOF  CLI   PEOFSW,0            IS END OF FILE SW ON         OY05856 F4476400
         SOURCE LINE INSERTED                    BE    PTSTRCB             TEST TYPE IF NOT             OY05856 F4476600
         SOURCE LINE INSERTED                    CLC   TANKCNT(3),=AL1(0,1,X'40') PRINT BLANK LINE$     OY05856 F4476800
         SOURCE LINE INSERTED                    BNE   PTSTRCB             ALLOW PRINT IF NOT           OY05856 F4477000
         SOURCE LINE INSERTED                    OI    TANKSRCB,X'20'      FORCE IMMEDIATE COMMAND      OY05856 F4477200
         SOURCE LINE INSERTED                    CLI   TANKSRCB,X'B1'      IS COMMAND EJECT             OY05856 F4477400
         SOURCE LINE INSERTED                    BE    PSKIO               SUPPRESS EJECT IF SO         OY05856 F4477600
         SOURCE LINE DELETED                     OI    PCTSTAT,TCTREL      SET SUPPRESS EJECT FLAG              F4478000
         SOURCE LINE INSERTED           PTSTRCB  CLC   TANKRCB,PCTRCB      IS THIS A PRINTERS RCB$      OY05856 F4478000
         SOURCE LINE DELETED            PTSTRCB  CLC   TANKRCB,PCTRCB      IS IT PRINTER RCB                    F4480000
         SOURCE LINE INSERTED                    BNE   PTCON               NO, DO CONSOLE PROCESSING    OY05856 F4480000
         SOURCE LINE INSERTED                    MVI   PEOFSW,X'00'        SET OFF END OF FILE SWITCH   OY05856 F4481000
         SOURCE LINE DELETED                     BNE   PSETCC              IF NOT SET UP FOR PRINT CONSOLE      F4482000
         SOURCE LINE INSERTED                    NI    PCTSTAT,255-TCTPRTSW RESET PRINTER AVAILABLE SW  OY05856 F4482000
         SOURCE LINE DELETED                     TM    PCTSTAT,TCTPRTSW    TEST FOR PREVIOUS PRINT CONSOLE      F4484000
         SOURCE LINE INSERTED                    TM    PCTSTAT,TCTREL      WAS LAST PRINT FOR CONSOLES  OY05856 F4484000
         SOURCE LINE DELETED                     BZ    PSETCC              IF NOT SET UP FOR NORMAL PRINT       F4486000
         SOURCE LINE INSERTED                    BZ    PSETCC              NO, NO NEED TO EJECT         OY05856 F4486000
         SOURCE LINE INSERTED                    NI    PCTSTAT,255-TCTREL  RESET CONSOLE ACTIVE SWITCH  OY05856 F4487000
         SOURCE LINE DELETED                     MVI   TANKSRCB,X'B1'      SET FOR IMMEDIATE SKIP               F4488000
         SOURCE LINE INSERTED                    NI    TANKSRCB,X'7F'      FORCE EJECT BEFORE PRINTING  OY05856 F4488000
         SOURCE LINE INSERTED                    B     PSETCC              GO AND PRINT                 OY05856 F4489000
         SOURCE LINE DELETED                     NI    PCTSTAT,255-TCTPRTSW TURN SWITCH OFF                     F4490000
         SOURCE LINE INSERTED           PTCON    TM    PCTSTAT,TCTREL      WAS PRINT FOR CONSOLES       OY05856 F4490000
         SOURCE LINE DELETED                     TM    PCTSTAT,TCTREL      IS SUPPRESS EJECT FLAG ON            F4492000
         SOURCE LINE INSERTED                    BO    PSETCC              IF SO,GO AHEAD AND PRINT     OY05856 F4492000
         SOURCE LINE DELETED                     BZ    PSETCC              IF NOT GO ON AND EJECT               F4494000
         SOURCE LINE INSERTED                    OI    PCTSTAT,TCTREL      INDICATE CONSOLE PROCESSING  OY05856 F4494000
         SOURCE LINE DELETED                     MVI   TANKSRCB,X'80'      PREPARE FOR SEPARATOR PAGE           F4496000
         SOURCE LINE INSERTED                    NI    TANKSRCB,X'7F'      FORCE EJECT BEFORE PRINTING  OY05856 F4496000
         SOURCE LINE INSERTED                    TM    PCIO+3,X'80'        IS SPECIAL EJECT REQUIRED    OY05856 F4582200
         SOURCE LINE INSERTED                    BO    PNOEJECT            SKIP NEXT IF NOT             OY05856 F4582300
         SOURCE LINE INSERTED                    $DELAY P,TYPE=SETUP       PREPARE FOR WAITING          OY05856 F4582400
         SOURCE LINE INSERTED                    CIO   1,X'45'             EJECT IMMEDIATE              OY05856 F4582500
         SOURCE LINE INSERTED                    BC    7,$PCOMM1+4         WAIT FOR START               OY05856 F4582600
         SOURCE LINE INSERTED                    $CHECK P                  WAIT FOR FINISH              OY05856 F4582700
         SOURCE LINE INSERTED           PNOEJECT DS    0H                                               OY05856 F4582800
         SOURCE LINE INSERTED                    TM    PCIO+1,X'02'        IMMEDIATE CARRIAGE COMMAND?  OY05856 F4599000

          HASPGEN UPDATE                LOG                                                                     PAGE  30


         SOURCE LINE INSERTED                    BZ    PSKIO               YES, SKIP PRINT              OY05856 F4599500
         SOURCE LINE INSERTED           PSKIO    DS    0H                                               OY05856 F4605000
                                        ./ DELETE      SEQ1=F5344000,SEQ2=F5344000                      OY05856 F5344000
         SOURCE LINE DELETED                     NI    PCTSTAT,255-TCTREL  RESET SUPPRESS EJECT FLAG            F5344000
                                        ./ DELETE      SEQ1=F5366000,SEQ2=F5366000                      OY05856 F5366000
         SOURCE LINE DELETED                     MVI   TANKSRCB-TANKDSEC(R9),X'B1' EJECT AND PRINT CODE         F5366000

          HASPGEN UPDATE                LOG                                                                     PAGE  31


                                        ./ CHANGE NAME=HRTPLOAD
         SOURCE LINE DELETED            UPPER    EQU   START+2*(1024-42)                                        L3454000
         SOURCE LINE INSERTED           UPPER    EQU   START+2*(1024-43)                                OY02728 L3454000

          HASPGEN UPDATE                LOG                                                                     PAGE  32


                                        ./ CHANGE NAME=HRTPSYS3
         SOURCE LINE INSERTED           .ERR     MNOTE 8,'MORE THAN 2 CHARACTERS IN' '&A''.  ''$USING'' IGNORED+G0334500
         SOURCE LINE INSERTED                          .'                                               OY04157 G0335000
         SOURCE LINE INSERTED                    MEXIT                                                  OY04157 G0335500


























































************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************










          ASP JOB NO. = 0016                                     DATE = 78.240




//P01GEN   JOB 1,'HASPGEN  HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A




          ELAPSED TIME ON MAIN = ASP1     = 000.07, START TIME = 20.00.12

          DDNAME = SYSMSG                     PRINTED ON PR1     , LINES = 000217
          DDNAME = SYSPRINT                   PRINTED ON PR1     , LINES = 001391
          LINES OUTPUT FOR THIS JOB = 001608

       CARDS FROM MAIN FOR THIS JOB = NONE



























************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************

 PPPPPPPPPPPP       0000000       22222222222    RRRRRRRRRRRR    FFFFFFFFFFFFF   IIIIIIIIIIII    TTTTTTTTTTTT
 PPPPPPPPPPPPP     000000000     2222222222222   RRRRRRRRRRRRR   FFFFFFFFFFFFF   IIIIIIIIIIII    TTTTTTTTTTTT
 PP         PP    00       00    22         22   RR         RR   FF                   II              TT
 PP         PP   00         00              22   RR         RR   FF                   II              TT
 PP         PP   00         00              22   RR         RR   FF                   II              TT
 PP         PP   00         00             22    RRRRRRRRRRRRR   FFFFFFFFF            II              TT
 PPPPPPPPPPPPP   00         00           22      RRRRRRRRRRRR    FFFFFFFFF            II              TT
 PPPPPPPPPPPP    00         00         22        RR      RR      FF                   II              TT
 PP              00         00       22          RR       RR     FF                   II              TT
 PP               00       00      22            RR        RR    FF                   II              TT
 PP                000000000     2222222222222   RR         RR   FF              IIIIIIIIIIII         TT
 PP                 0000000      2222222222222   RR         RR   FF              IIIIIIIIIIII         TT









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11          88888888888
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111         8888888888888
            JJ   OO         OO   BB         BB                    00       00     00       00       1111         88         88
            JJ   OO         OO   BB         BB                   00         00   00         00        11         88         88
            JJ   OO         OO   BB         BB                   00         00   00         00        11         88         88
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11          88888888888
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11          88888888888
            JJ   OO         OO   BB         BB                   00         00   00         00        11         88         88
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11         88         88
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11         88         88
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111       8888888888888
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111        88888888888









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 PPPPPPPPPPPP       0000000       22222222222    RRRRRRRRRRRR    FFFFFFFFFFFFF   IIIIIIIIIIII    TTTTTTTTTTTT
 PPPPPPPPPPPPP     000000000     2222222222222   RRRRRRRRRRRRR   FFFFFFFFFFFFF   IIIIIIIIIIII    TTTTTTTTTTTT
 PP         PP    00       00    22         22   RR         RR   FF                   II              TT
 PP         PP   00         00              22   RR         RR   FF                   II              TT
 PP         PP   00         00              22   RR         RR   FF                   II              TT
 PP         PP   00         00             22    RRRRRRRRRRRRR   FFFFFFFFF            II              TT
 PPPPPPPPPPPPP   00         00           22      RRRRRRRRRRRR    FFFFFFFFF            II              TT
 PPPPPPPPPPPP    00         00         22        RR      RR      FF                   II              TT
 PP              00         00       22          RR       RR     FF                   II              TT
 PP               00       00      22            RR        RR    FF                   II              TT
 PP                000000000     2222222222222   RR         RR   FF              IIIIIIIIIIII         TT
 PP                 0000000      2222222222222   RR         RR   FF              IIIIIIIIIIII         TT









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11          88888888888
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111         8888888888888
            JJ   OO         OO   BB         BB                    00       00     00       00       1111         88         88
            JJ   OO         OO   BB         BB                   00         00   00         00        11         88         88
            JJ   OO         OO   BB         BB                   00         00   00         00        11         88         88
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11          88888888888
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11          88888888888
            JJ   OO         OO   BB         BB                   00         00   00         00        11         88         88
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11         88         88
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11         88         88
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111       8888888888888
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111        88888888888









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 ISV40 JOB ORIGIN FROM GROUP=LOCAL   , DSP=CR , DEVICE=RD1     , 00C
//P02RFIT  JOB 1,'P02RFIT  HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
//*********************************************************************
//*                                                                 ***
//*    Job:      P02RFIT                                            ***
//*    Product:  HASP V4 for MVT.                                   ***
//*    Purpose:  Update customized HASP source in SYS1.HASPSRC      ***
//*              with MVT refit mods.                               ***
//*    Update:   2003/01/26                                         ***
//*                                                                 ***
//*********************************************************************
//*
/*JOBPARM LINES=9999
//*
//RFIT    EXEC PGM=IEBUPDTE,PARM=MOD,REGION=96K
//SYSUT1   DD  DISP=OLD,DSN=SYS1.HASPSRC
//SYSUT2   DD  DISP=OLD,DSN=SYS1.HASPSRC
//SYSPRINT DD  SYSOUT=A
//SYSIN    DD  DISP=OLD,DSN=SYS1.HASPRFIT
//


 LOCATE' 0018SYS1.HASPSRC                                '
 AL00180E001/ASPSUP0003
 LOCATE' 0018SYS1.HASPSRC                                '
 AL00180E001/ASPSUP0003
 LOCATE' 0018SYS1.HASPRFIT                               '
 AL00180E001/ASPSUP0003


 P02RFIT  IEF403I P02RFIT  STARTED    TIME=20.00.28
 P02RFIT  IEF234E D 665,ASP665
*P02RFIT *23 IECASP0 665 IS P02RFIT  A         RFIT    SYSPRINT
 P02RFIT  STEP: P02RFIT  RFIT              ET=00.00.02 RC=0000
 P02RFIT  IEF404I P02RFIT  ENDED      TIME=20.00.31
//P02RFIT  JOB 1,'P02RFIT  HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      P02RFIT                                            ***
***    Product:  HASP V4 for MVT.                                   ***
***    Purpose:  Update customized HASP source in SYS1.HASPSRC      ***
***              with MVT refit mods.                               ***
***    Update:   2003/01/26                                         ***
***                                                                 ***
***********************************************************************
***
***
//RFIT    EXEC PGM=IEBUPDTE,PARM=MOD,REGION=96K
//SYSUT1   DD  DISP=OLD,DSN=SYS1.HASPSRC
//SYSUT2   DD  DISP=OLD,DSN=SYS1.HASPSRC
//SYSPRINT DD  SYSOUT=A
//SYSIN    DD  DISP=OLD,DSN=SYS1.HASPRFIT
//
IEF236I ALLOC. FOR P02RFIT  RFIT
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T200028.RV001.P02RFIT.ASPOA001      DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPRFIT                                KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /RFIT    / START 78240.2000
IEF374I STEP /RFIT    / STOP  78240.2000 CPU   0MIN 01.25SEC MAIN  32K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 20:00:28.78   ALLOC START    20:00:28.78   MAIN REGION ------ 96K                          *
*   STEP NAME RFIT       STEP END TIME  20:00:31.30   PGM START TIME 20:00:28.82   MAIN STORAGE ----- 32K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:02.52   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:01.25   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0151 --------- 1493       0151 --------- 1600       0665 --------- 3005       0151 ---------- 136                              *
************************************************************************************************************************************

IEF375I  JOB /P02RFIT / START 78240.2000
IEF376I  JOB /P02RFIT / STOP  78240.2000 CPU   0MIN 01.25SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  P02RFIT    JOB READ TIME 20:00:28.58   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:01.25   *
*   JOB CLASS B          JOB INIT TIME 20:00:28.78   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:02.53   *
*   JOB ID    JOB00018   JOB END TIME  20:00:31.31   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 2   *
************************************************************************************************************************************


 PPPPPPPPPPPP       0000000       22222222222    RRRRRRRRRRRR    FFFFFFFFFFFFF   IIIIIIIIIIII    TTTTTTTTTTTT
 PPPPPPPPPPPPP     000000000     2222222222222   RRRRRRRRRRRRR   FFFFFFFFFFFFF   IIIIIIIIIIII    TTTTTTTTTTTT
 PP         PP    00       00    22         22   RR         RR   FF                   II              TT
 PP         PP   00         00              22   RR         RR   FF                   II              TT
 PP         PP   00         00              22   RR         RR   FF                   II              TT
 PP         PP   00         00             22    RRRRRRRRRRRRR   FFFFFFFFF            II              TT
 PPPPPPPPPPPPP   00         00           22      RRRRRRRRRRRR    FFFFFFFFF            II              TT
 PPPPPPPPPPPP    00         00         22        RR      RR      FF                   II              TT
 PP              00         00       22          RR       RR     FF                   II              TT
 PP               00       00      22            RR        RR    FF                   II              TT
 PP                000000000     2222222222222   RR         RR   FF              IIIIIIIIIIII         TT
 PP                 0000000      2222222222222   RR         RR   FF              IIIIIIIIIIII         TT









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000           11          88888888888
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000         111         8888888888888
            JJ   OO         OO   BB         BB                    00       00     00       00       1111         88         88
            JJ   OO         OO   BB         BB                   00         00   00         00        11         88         88
            JJ   OO         OO   BB         BB                   00         00   00         00        11         88         88
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11          88888888888
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00        11          88888888888
            JJ   OO         OO   BB         BB                   00         00   00         00        11         88         88
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00        11         88         88
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00         11         88         88
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000        111111       8888888888888
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000         111111        88888888888









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    PPPPPPPPPPPP    RRRRRRRRRRRR    IIIIIIIIIIII    NN         NN   TTTTTTTTTTTT
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRRR   IIIIIIIIIIII    NNN        NN   TTTTTTTTTTTT
 SS         SS     YY    YY      SS         SS   PP         PP   RR         RR        II         NNNN       NN        TT
 SS                 YY  YY       SS              PP         PP   RR         RR        II         NN NN      NN        TT
 SS                  YYYY        SS              PP         PP   RR         RR        II         NN  NN     NN        TT
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    PP         PP   RRRRRRRRRRRRR        II         NN   NN    NN        TT
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRR         II         NN    NN   NN        TT
            SS        YY                    SS   PPPPPPPPPPPP    RR      RR           II         NN     NN  NN        TT
            SS        YY                    SS   PP              RR       RR          II         NN      NN NN        TT
 SS         SS        YY         SS         SS   PP              RR        RR         II         NN       NNNN        TT
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   PP              RR         RR   IIIIIIIIIIII    NN        NNN        TT
  SSSSSSSSSSS         YY          SSSSSSSSSSS    PP              RR         RR   IIIIIIIIIIII    NN         NN        TT










       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./  CHANGE NAME=$#ADD
                        ICM   R0,8,&CLAS          CLASS QUEUE ID TO BYTE 0             AD020000     *          REPLACED*
               *        ICM   R0,8,&CLAS          CLASS QUEUE ID TO BYTE 0        RFIT AD020000     *       REPLACEMENT*
                        SLL   R0,8                                                RFIT AD020005     *          INSERTED*
                        SRL   R0,8                                                RFIT AD020010     *          INSERTED*
                        IC    R15,&CLAS                                           RFIT AD020015     *          INSERTED*
                        SLL   R15,24                                              RFIT AD020020     *          INSERTED*
                        OR    R0,R15                                              RFIT AD020025     *          INSERTED*
IEB816I MEMBER NAME ($#ADD   ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002


       ./    CHANGE NAME=$#GET                                            RFIT

                        ICM   R1,8,=X'80'         SET HAVE=NO BIT                      GT020000     *          REPLACED*
               *        ICM   R1,8,=X'80'         GET HAVE=NO BIT                 RFIT GT020000     *       REPLACEMENT*
                        SLL   R1,8                                                RFIT GT020005     *          INSERTED*
                        SRL   R1,8                                                RFIT GT020010     *          INSERTED*

                        O     R1,=F'-2147483648'       YIELDS X'80'               RFIT GT020015     *          INSERTED*
IEB816I MEMBER NAME ($#GET   ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0003


       ./       ADD NAME=$ABSTR
                TITLE 'HASP ABSTRACTS -- RFIT -- V4.0 RETROFIT TO MFT'    RFIT AB010000
       *A  V4.0 RETROFIT TO MFT/II                                     SDU  RF AB010100
       *B  ORIGINAL         083073 JAMES W ALLEN  083073 NONE          SDU  RF AB010200
       *C  COMM, $GLOBAL, $HASPGEN, $HCT, NUC, INIT, SVC, $TCB, CON,   SDU  RF AB010300
       *C  COMM, HASPINTF(NEW), AND $LRA(NEW).                         SDU  RF AB010400
       *D  THIS MODIFICATION RETROFITS V4.0 TO MFT/II.  THIS IS DONE   SDU  RF AB010500
       *D  BY USING THE STANDARD SVC INTERFACES (EXCP, LINK, XCTL,     SDU  RF AB010600
       *D  WTO, WTL) TO PROVIDE HASP WITH THE EXITS NECESSARY.  A      SDU  RF AB010700

       *D  NEW ASSEMBLY, HASPINTF, HAS BEEN WRITTEN WHICH GETS         SDU  RF AB010800
       *D  CONTROL FROM THE INTERRUPT HANDLERS AND BUILDS THE PROPER   SDU  RF AB010900
       *D  PARAMETER LIST FOR SIMULATING A VS2 ENVIRONMENT.  THE       SDU  RF AB011000

       *D  RETROFIT USES CONDITIONAL ASSEMBLY FEATURES TO AID THE      SDU  RF AB011100
       *D  TRANSITION FROM S/360 TO ADVANCED FUNCTION.  THE MVT CODE   SDU  RF AB011200
       *D  WHICH WAS AVAILABLE IN V3.1 WAS INCLUDED, BUT HAS NOT       SDU  RF AB011300
       *D  BEEN TESTED.  THE RETROFIT IS REASONABLY COMPLETE EXCEPT    SDU  RF AB011400
       *D  AS FOLLOWS:                                                 SDU  RF AB011500
       *D                                                              SDU  RF AB011600
       *D       1) HASP SVC 35 EXIT TWO IS NOT PROVIDED.               SDU  RF AB011700
       *D                                                              SDU  RF AB011800
       *D       2) XTERMSMF EXIT IS NOT PROVIDED.  (OUR SYSTEM DOES    SDU  RF AB011900
       *D        NOT HAVE SMF.)                                        SDU  RF AB012000
       *D                                                              SDU  RF AB012100
       *D       3) JOB/STEP INITIATION EXITS NOT PROVIDED. (HASP DOES  SDU  RF AB012200

       *D        NOT USE THESE EXITS CURRENTLY.)                       SDU  RF AB012300
       *D                                                              SDU  RF AB012400
       *D       4) EXECUTION TASK MONITOR NOT PROVIDED.                SDU  RF AB012500
       *D                                                              SDU  RF AB012600

       *D  THIS MODIFICATION HAS BEEN SUBMITTED TO THE SHARE PROGRAM   SDU  RF AB012700
       *D  LIBRARY AGENCY FOR GENERAL DISTRIBUTION.  IT HAS PROGRAM    SDU  RF AB012800
       *D  NUMBER 360D-05.0.004.  SEE SHARE SSD #233 MARCH 9, 1973     SDU  RF AB012900
       *D  FOR INFORMATION ON ORDERING THIS MODIFICATION.  THE AUTHOR  SDU  RF AB013000
       *D  CONSIDERS THIS A GOOD BASE FOR THE GENERAL V4.0 RETROFIT,   SDU  RF AB013100
       *D  BUT CANNOT GUARANTEE THAT IT WILL WORK UNDER ALL HASP       SDU  RF AB013200
       *D  SYSTEMS.  HOWEVER, THOSE INSTALLATIONS WHO WANT TO RUN      SDU  RF AB013300
       *D  V4.0 WILL FIND THAT IT SOLVES A LARGE NUMBER OF PROBLEMS.   SDU  RF AB013400
       *D                                                              SDU  RF AB013500
       *D                                                              SDU  RF AB013600
       *D  THIS PACKAGE HAS BEEN FURTHER MODIFIED TO WORK CORRECTLY ON DOT UKY AB013700
       *D  AN MVT SYSTEM (RELEASE 21.7). BESIDES CORRECTING SEVERAL    DOT UKY AB013800

       *D  CODING ERRORS IN JIM ALLEN'S MVT CODING THE CURRENT HASP    DOT UKY AB013900
       *D  VERSION 4 PTFS (OY02728,OY02744,OY03480) ARE PRESENT.  TWO  DOT UKY AB014000
       *D  OTHER ENHANCEMENTS HAVE BEEN MADE:                          DOT UKY AB014100

       *D                                                              DOT UKY AB014200
       *D     1) EXECUTION TASK MONITOR IS SUPPORTED WITH ADDITION OF  DOT UKY AB014300
       *D        HASP ASSEMBLY OPTIONS &MONINTV,&XZMFTL,&XZMFTH,       DOT UKY AB014400
       *D        &XZMULT. THE DEFAULT VALUES FOR THESE ARE 2,0,255,    DOT UKY AB014500
       *D        AND YES, RESPECTIVELY.                                DOT UKY AB014600
       *D     2) THE UCS BUFFER LOADS TN AND T11 ARE ADDED FOR USE     DOT UKY AB014700
       *D        IN THE $TPRTX,U= COMMAND.                             DOT UKY AB014800
       *D                                                              DOT UKY AB014900
       *D  THE NEW MODULES $ABSTR, $LRA, AND HASPINTF HAVE BEEN MOVED  DOT UKY AB015000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0004


       *D  TO THE APPROPRIATE LOCATION IN THE HASPGEN DECK, RATHER     DOT UKY AB015100
       *D  THAN COMING SEPARATELY AT THE END OF THE TAPE AS IN JIM     DOT UKY AB015200

       *D  ALLEN'S RELEASE.  THIS DECK WILL HASPGEN CORRECTLY USING THEDOT UKY AB015300
       *D  VERSION 4 HASPGEN PROGRAM.                                  DOT UKY AB015400
       *D                                                              DOT UKY AB015500

       *D  AT PRESENT THIS RETROFIT WORKS ONLY ON 370S. A PROGRAM      DOT UKY AB015600
       *D  CHECK HANDLER TO FIXUP 0C1S DUE TO 370 INSTRUCTIONS & SPEC- DOT UKY AB015700
       *D  IFICATION INTERRUPTS IS BEING WRITTEN.  THIS WILL ALLOW THE DOT UKY AB015800
       *D  RETROFIT TO RUN ON A 360.                                   DOT UKY AB015900
IEB817I MEMBER NAME ($ABSTR  ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0005


       ./    CHANGE NAME=$CVT
                        CVT   SYS=AOS2,TSO=YES,RPS=YES,LIST=&DOC                       CT016000     *          REPLACED*
                        CVT   SYS=MVT,TSO=NO,PATCH=YES                                 CT016000     *       REPLACEMENT*
IEB816I MEMBER NAME ($CVT    ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0006


       ./       CHANGE NAME=$GLOBAL

                        GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100     *          INSERTED*
                        GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200     *          INSERTED*
                        GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300     *          INSERTED*
                        GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100     *          INSERTED*

                        GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100     *          INSERTED*
                        GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200     *          INSERTED*
                        GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300     *          INSERTED*
                        GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400     *          INSERTED*
                        GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100     *          INSERTED*
IEB816I MEMBER NAME ($GLOBAL ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0007


       ./       CHANGE NAME=$HASPGEN
               &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100     *          INSERTED*
               &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200     *          INSERTED*
               &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300     *          INSERTED*
               &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100     *          INSERTED*

               &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200     *          INSERTED*
               &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300     *          INSERTED*
               &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400     *          INSERTED*

                        SPACE 3                                                   RFIT HA125500     *          INSERTED*
               *                                                                  RFIT HA125600     *          INSERTED*
               *                             HASP SVC NUMBER                      RFIT HA125700     *          INSERTED*
               *                                                                  RFIT HA125800     *          INSERTED*
                        COPY  $INITSVC                                            RFIT HA125900     *          INSERTED*
               &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100     *          INSERTED*
IEB816I MEMBER NAME ($HASPGEN) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0008


       ./       CHANGE NAME=$HCT
                        GBLB  &SYSVS2                                             RFIT HC003100     *          INSERTED*
                        AIF   ('&SYSECT' EQ 'HASPNUC').END                             HC598000     *          REPLACED*
                        AIF   (&SYSVS2).VS2                                       RFIT HC598000     *       REPLACEMENT*

                        SPACE 2                                                        HC599000     *          REPLACED*
               *                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000     *       REPLACEMENT*
               &SYSECT  CSECT                     END OF HCT DSECT                     HC600000     *          REPLACED*
                        SPACE 1                                                   RFIT HC600000     *       REPLACEMENT*

               .END     MEND                                                           HC601000     *          REPLACED*
               $NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000     *       REPLACEMENT*
               $ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000     *          INSERTED*
               $SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000     *          INSERTED*
               $SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000     *          INSERTED*
               $NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000     *          INSERTED*
                        SPACE 2                                                   RFIT HC606000     *          INSERTED*
               *                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000     *          INSERTED*
                        SPACE 1                                                   RFIT HC608000     *          INSERTED*
               $IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000     *          INSERTED*
               $WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000     *          INSERTED*
               $LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000     *          INSERTED*

               $XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000     *          INSERTED*
               $SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000     *          INSERTED*
               $SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000     *          INSERTED*

               $SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000     *          INSERTED*
               $SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000     *          INSERTED*
               $SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000     *          INSERTED*
               $ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000     *          INSERTED*
                        SPACE 3                                                   RFIT HC619000     *          INSERTED*
               .VS2     ANOP                                                      RFIT HC620000     *          INSERTED*
                        AIF   ('&SYSECT' EQ 'HASPNUC').END                        RFIT HC996000     *          INSERTED*
                        SPACE 2                                                   RFIT HC997000     *          INSERTED*
               &SYSECT  CSECT ,                   END OF HCT DSECT                RFIT HC998000     *          INSERTED*
               .END     MEND                                                      RFIT HC999000     *          INSERTED*
IEB816I MEMBER NAME ($HCT    ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0009



       ./    CHANGE NAME=$JOE
               JOEUNUSD DS    H                   UNUSED, PROVIDES 360 WD BNDRY   RFIT JE286005     *          INSERTED*
IEB816I MEMBER NAME ($JOE    ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0010



       ./       ADD   NAME=$LRA
                MACRO -- $LRA -- HASP LOAD REAL ADDRESS INSTRUCTION       RFIT LR002000
       &L      $LRA   &A,&B                                               RFIT LR004000
                GBLB  &SYSMFT,&SYSMVT,&SYSVS1,&SYSVS2                     RFIT LR006000
                AIF   (&SYSMFT OR &SYSMVT).LRA                            RFIT LR008000
       &L       LRA   &A,&B               TRANSLATE LOGICAL ADDRESS       RFIT LR010000
                MEXIT ,                                                   RFIT LR012000
       .LRA     ANOP                                                      RFIT LR014000
       &L       LA    &A,&B               VIRTUAL TRANSLATION             RFIT LR016000
                CR    0,0                 CC = 0                          RFIT LR018000
                MEND                                                      RFIT LR020000
IEB817I MEMBER NAME ($LRA    ) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0011


       ./       CHANGE NAME=$TCB
                        GBLB  &SYSVS2,&SYSVS1,&SYSMVT,&SYSMFT                     RFIT TC004100     *          INSERTED*

                        AIF   (&SYSMFT OR &SYSVS1).TCB1                           RFIT TC038100     *          INSERTED*
                        AGO   .TCB2                                               RFIT TC040100     *          INSERTED*
               .TCB1    ANOP                                                      RFIT TC040200     *          INSERTED*
               TCBJSTCB DS    F .                 ADDRESS OF JOB STEP TCB         RFIT TC040300     *          INSERTED*
               .TCB2    ANOP                                                      RFIT TC040400     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSVS1).TCB3                           RFIT TC052100     *          INSERTED*
                        AGO   .TCB4                                               RFIT TC056100     *          INSERTED*
               .TCB3    ANOP                                                      RFIT TC056200     *          INSERTED*
               TCBPIB   DS    F .                 PARTITION TYPE AND ADDR PIB     RFIT TC056300     *          INSERTED*
               .TCB4    ANOP                                                      RFIT TC056400     *          INSERTED*
                        AIF   (&SYSVS2).NTCB1                                 FJP/RFIT TC081600     *          INSERTED*
               TCBPCE   DS    0F .                ADDRESS OF HASP PCE         FJP/RFIT TC081700     *          INSERTED*

               TCBPCEND EQU   X'01' .             HASP NON-DISPATCH. FLAG     FJP/RFIT TC081800     *          INSERTED*
               .NTCB1   ANOP                                                  FJP/RFIT TC081900     *          INSERTED*
IEB816I MEMBER NAME ($TCB    ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0012



       ./  REPL NAME=CVT
                MACRO                                                          00400000
       &CVTNAME CVT   &SYS=MVT,&OPTIONS=(NOSLICE,INTERVAL,0),&TSO=NO,         *00410000
                      &PREFIX=NO,&FLAG=00,&FLAGB=00,&PATCH=NO,&RPS=NO,        *00476721
                      &WARN=0                                           S21167 00486721
       *                                                                       00510000
       *              OS/360                                                   00560000
       *        COMMUNICATION VECTOR TABLE                                     00800000
       *                                                                       00810000
       *    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5                    01050021
       *                                                                       01200000
       .*       CALLED DURING PCP & MFT SYSGEN STAGE I BY SGIEA2CV             01200400

       .*       CALLED DURING MVT & MPS SYSGEN STAGE II BY IEAQBK              01200800
       .*                                                                      01200900
       .*             OPERATING SYSTEM OPTIONS                                 01201000

                LCLB  &CVTPCP,&CVTMFT,&CVTMVT,&CVTMPS,&CVTMUL                  01210000
       .*                                                                      01210100
       .*             UNIPROGRAMMING PRIMARY CONTROL PROGRAM                   01211000
       &CVTPCP  SETB  (('&SYS' EQ 'PCP') OR ('&SYS' EQ 'MIN'))                 01220000
       .*                                                                      01220100
       .*             MULTIPROGRAMMING WITH A FIXED NUMBER OF PARTITION TASKS  01221000
       &CVTMFT  SETB  (('&SYS' EQ 'MFT') OR ('&SYS' EQ 'INT'))                 01230000
       .*                                                                      01230100
       .*             MULTIPROGRAMMING WITH A VARIABLE NUMBER OF REGION TASKS  01231000
       &CVTMVT  SETB  (('&SYS' EQ 'MVT') OR ('&SYS' EQ 'VMS'))                 01240000
       .*                                                                      01240200
       .*             MULTIPROCESSING ON THE MODEL 65 UNDER MVT                01240400

       &CVTMPS  SETB  ('&SYS' EQ 'MPS')                                        01241000
       .*                                                                      01242000
       .*             EITHER OF THE LAST TWO OPTIONS                           01242100
       &CVTMUL  SETB  (&CVTMVT OR &CVTMPS)                                     01243000

       .*                                                                      01250000
       CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT         01400000
       *                                                                       01600000
       *              BEGINNING OF CVT PROPER                                  01601000
       *                                                                       01610000
                DS    0F                                                       01611000
                AIF   ('&CVTNAME' EQ '').CVT01                                 01620000
       &CVTNAME EQU   * -           CVTPTR CONTENT POINTS HERE                 01820000
                AGO   .CVT02                                                   01821000
       .CVT01   ANOP                                                           01830000
       CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE                 01840000
       .CVT02   ANOP                                                           01850000

       *                                                                       02000000
       CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST  02200000
       CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE                02610000

       *                              ASYNCHRONOUS EXITS                       02620000
       CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB                   02800000
       CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB                     03000000
       CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT                03200000
       *                              CONSOLE INTERRUPTION ROUTINE             03400000
       CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE         03600000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0013


       CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING 03800000
       *                              ROUTINE FOR SUPERVISOR                   04000000
       CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04200000
       *                              RELATIVE TRACK ADDR TO ABSOLUTE          04400000
       CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04600000

       *                              ABSOLUTE TRACK ADDR TO RELATIVE          04800000
       CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION   05000000
       *                              IN UCB LOOKUP TABLE                      05200000

       CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION     05400000
       *                              IN UCB LOOKUP TABLE                      05600000
       CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE           05800000
       *                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES 06000000
       CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY      06200000
       *                              IN UCB LOOKUP TABLE                      06400000
       CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE         06600000
       CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL             06800000
       .*                                                                      06801000
       .*             CVTMSLT: PCP, MFT/MVT                                    06802000
       .*                                                                      06803000
                AIF   (NOT &CVTPCP).CVT11                                      06810000

       CVTMSLT  DC    V(IEEMSLT) -  ADDR OF MASTER RESIDENT CORE (PCP)         07000000
                AGO   .CVT12                                                   07200400
       .CVT11   ANOP                                                           07201000
       CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)       07210000

       *                              PLEASE USE CVTMSER INSTEAD TO ADDRESS    07220000
       *                              MASTER SCHEDULER RESIDENT DATA AREA      07221000
       .CVT12   ANOP                                                           07230000
       .*                                                                      07240000
       CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE    07400000
       CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE          07600000
       CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS       08000000
       *                              FOR DAMAGE ASSESSMENT ROUTINES           08200000
       .*                                                                      08401000
       .*             CVT0FN00: PCP/MFT, MVT                                   08402000
       .*                                                                      08403000
                AIF   (&CVTMUL).CVT21                                          08410000

       CVT0FN00 DC    V(IEA0FN00) - ENTRY POINT ADDR TO FINCH (PCP/MFT)        08420000
                AGO   .CVT22                                                   08601000
       .CVT21   ANOP                                                           08602000

       CVT0FN00 DC    A(0) -        RESERVED (MVT)                             08610000
       .CVT22   ANOP                                                           08620000
       .*                                                                      08630000
       CVTEXIT  SVC   3 -           EXIT TO DISPATCHER                         08800000
       CVTBRET  BR    14 -          RETURN TO CALLER                           09000000
       CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB                    09200000
       .*                                                                      09201000
       .*             CVTTPC: INTERVAL TIMING, NONE                            09202000
       .*                                                                      09203000
                AIF   ('&OPTIONS(2)' EQ 'INTERVAL').CVT31                      09210000
       CVTTPC   DC    A(0) -        RESERVED (NO INTERVAL TIMER)               09410000
                AGO   .CVT32                                                   09410400

       .CVT31   ANOP                                                           09410500
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0014


       CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER     09411000
       *                              ROUTINE (SHPC FIRST)                     09412000

       .CVT32   ANOP                                                           09420000
       .*                                                                      09421000
       CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL              09430000
       .*                                                                      09440000
       .*             CVTSJQ: PCP/MFT, MVT                                     09441000
       .*                                                                      09442000
                AIF   (&CVTMUL).CVT41                                          09450000
       CVTSJQ   DC    V(IEESJQ) -   ADDR OF SELECTED JOB QUEUE (PCP/MFT)       09800000
                AGO   .CVT42                                                   09801000
       .CVT41   ANOP                                                           09802000
       CVTSJQ   DC    A(0) -        RESERVED (MVT)                             09810000
       .CVT42   ANOP                                                           09820000

       .*                                                                      09830000
       CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR  10000000
       .*                                                                      10001000

       .*             CVTQTE00, CVTQTD00: INTERVAL TIMING, NONE                10001100
       .*                                                                      10002000
                AIF   ('&OPTIONS(2)' EQ 'INTERVAL').CVT51                      10010000
       CVTQTE00 DC    A(0) -        RESERVED (NO INTERVAL TIMER)               10200000
       CVTQTD00 DC    A(0) -        RESERVED (NO INTERVAL TIMER)               10400000
                AGO   .CVT52                                                   10401000
       .CVT51   ANOP                                                           10402000
       CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE              10410000
       *                              FOR INTERVAL TIMER                       10411000
       CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE              10420000
       *                              FOR INTERVAL TIMER                       10421000
       .CVT52   ANOP                                                           10430000

       .*                                                                      10440000
       CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE         10600000
       .*                                                                      10610000
       .*             CVTDCB, CVTDCBA: PCP, MFT, MPS, MVT                      10620000

       .*                                                                      10630000
                AIF   (NOT &CVTPCP).CVT61                                      11010000
       CVTDCB   DC    XL1'40' -     OPERATING SYSTEM                           11200000
       CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11200100
       CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11200200
       CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11200300
       CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11200400
       CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11201000
                AGO   .CVT64                                                   11210000
       .CVT61   ANOP                                                           11220000
                AIF   (NOT &CVTMFT).CVT62                                      11230000
       CVTDCB   DC    XL1'20' -     OPERATING SYSTEM                           11400000

       CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11400100
       CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11400200
       CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11400300

       CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11400400
       CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11401000
                AGO   .CVT64                                                   11410000
       .CVT62   ANOP                                                           11420000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0015


                AIF   (NOT &CVTMPS).CVT63                                      11430000
       CVTDCB   DC    XL1'14' -     OPERATING SYSTEM                           11440000
       CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11440100
       CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11440200
       CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11440300
       CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11440400
       CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11441000

                AGO   .CVT64                                                   11450000
       .CVT63   ANOP                                                           11460000
       CVTDCB   DC    XL1'10' -     OPERATING SYSTEM                           11600000
       CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11600100

       CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11600200
       CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11600300
       CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11600400
       CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11601000
       .CVT64   ANOP                                                           11610000
       .*                                                                      11620000
       CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE            11820000
       CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER    12400000
       CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS               12600000
       CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE              12800000
       CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER             13000000
       CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE         13200000

       CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE            13400000
       .*                                                                      13401000
       .*             CVTMSER: PCP, MFT/MVT                                    13402000

       .*                                                                      13403000
                AIF   (NOT &CVTPCP).CVT71                                      13410000
       CVTMSER  DC    A(0) -        ADDR OF MAJOR QCB (PCP)                    13600000
                AGO   .CVT72                                                   13801000
       .CVT71   ANOP                                                           13802000
       CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT          13810000
       *                              DATA AREA (MVT/MFT)                      13820000
       .CVT72   ANOP                                                           13830000
       .*                                                                      13840000
       CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE    14000000
       CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE                14200000
       CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE           14400000

       CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS                    14600000
       CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)      14601000
       .*                                                                      14610000
       .*             CVTQOCR, CVTQMWR, CVTSNCTR, CVTOPTA+FLAGS: PCP, MFT, MVT 14610100

       .*                                                                      14610500
                AIF   (NOT &CVTPCP).CVT81                                      14611000
       CVTQOCR  DC    A(0) -        RESERVED (PCP)                             14630000
       CVTQMWR  DC    A(0) -        RESERVED (PCP)                             15400000
       CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    15800000
       CVTOPTA  DC    AL1(&FLAG) -     MISCELLANEOUS FLAGS                     16000021
       CVTCCH   EQU   X'80' -       RESERVED (PCP)                             16200000
       CVTNIP   EQU   X'10' -       NIP RUNNING                                16400000
       CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16410000
       CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16420000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0016


       CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16470000

       CVTOPTB  DC    AL1(&FLAGB) -     MISCELLANEOUS FLAGS                    16600021
                AGO   .CVT82                                                   16615521
       .CVT81   ANOP                                                           16617821

       .*                                                                      16620121
       .*             CVTQOCR: MFT, MVT                                        16622421
       .*                                                                      16624721
                AIF   (NOT &CVTMFT).CVT83                                      16630000
       CVTQOCR  DC    V(IEAQOCR) -  ADDR OF SEVENTH GFX PARM LIST WORD         16631000
       *                              (0 IF GFX INACTIVE) MFT                  16631621
                AGO   .CVT84                                                   16633921
       .CVT83   ANOP                                                           16636221
       CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD         16638521
       *                              (0 IF GFX INACTIVE) MVT                  16640821
       .CVT84   ANOP                                                           16643121
       .*                                                                      16645421

       CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA       16647721
       *                              (MVT/MFT)                                16650000
       CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    16660000

       CVTOPTA  DC    AL1(&FLAG) -     MISCELLANEOUS FLAGS                     16670021
       CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)               16680000
       CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --                    16681000
       *                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16681100
       CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --          16683000
       *                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16683200
       CVTNIP   EQU   X'10' -       NIP RUNNING                                16690000
       CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)                     16691000
       CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16692000
       CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16693000
       CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16695000
       CVTOPTB  DC    AL1(&FLAGB) - MISCELLANEOUS FLAGS                        16700021

       CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)            16702000
       CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)        16704000
       .CVT82   ANOP                                                           16710000
       *                                                                       16800000

       *              PCP OVERLAY                                              17000000
       *                                                                       17200000
       CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART            17400000
       CVTSTUSA DS    B -           STATUS BYTE A                              17600000
       CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART     17800000
       *                              WAS INITIATED INTRASTEP                  18000000
       CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART           18200000
       *                              WAS INITIATED INTERSTEP                  18400000
       CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM          18600000
       *                              AND DATA HAS NOT BEEN READ               18800000
                DS    CL2 -         RESERVED                                   19000000
                DS    CL2 -         RESERVED                                   19200000

       .*                                                                      19210000
                AIF   (&CVTPCP).CVT93                                          19220000
       *                                                                       19400000

       *              MVT/MFT OVERLAY                                          19600000
       *                                                                       19800000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0017


                ORG   CVTCRTTR                                                 20000000
       *                                                                       20200000
       .*             CVTQCDSR, CVTQLPAQ: MVT, MFT                             20202000
       .*                                                                      20203000
                AIF   (&CVTMFT).CVT91                                          20210000
       CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR           20400000
       CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21000000
                AGO   .CVT92                                                   21600000
       .CVT91   ANOP                                                           21601000

       CVTQCDSR DC    A(0) -        MVT/MFT: CDE SEARCH ROUTINE ADDR           21620000
       CVTQLPAQ DC    A(0) -        MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21641000
       .CVT92   ANOP                                                           21661000
       .*                                                                      21662000

       .CVT93   ANOP                                                           21663000
       *                                                                       21670000
       *              END OF OVERLAYS                                          21800000
       *                                                                       22000000
       .*             CVTMPCVT: MULTIPROCESSING, NONE                          22001000
       .*                                                                      22002000
                AIF   (NOT &CVTMPS).CVTA1                                      22010000
       CVTMPCVT DC    V(IEAMPCVT) - ADDR OF M65MP SECONDARY CVT (M65MP)        22200000
                AGO   .CVTA2                                                   22410000
       .CVTA1   ANOP                                                           22420000
       CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)                       22421000
       .CVTA2   ANOP                                                           22430000

       .*                                                                      22440000
       CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA            22600000
       .*                                                                      22602000

       .*             CVTABEND: MVT, MFT/PCP                                   22603000
       .*                                                                      22604000
                AIF   (NOT &CVTMUL).CVTB1                                      22605000
       CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT     22610000
       *                              (MVT/MPS)                                22610100
                AGO   .CVTB2                                                   22611000
       .CVTB1   ANOP                                                           22612000
       CVTABEND DC    A(0) -        RESERVED (PCP/MFT)                         22613000
       .CVTB2   ANOP                                                           22614000
       .*                                                                      22615000
       CVTUSER  DC    A(0) -        A WORD TO THE USER                         22620000
                ORG   CVTUSER -     REMAP CVTUSER AS CVTHJES              RFIT 22620100

       CVTHJES  DS    0A -          SAME AS CVTHJESA BELOW                RFIT 22620300
                DC    XL1'00' -     RESERVED - FIRST BYTE OF CVTHJES      RFIT 22620500
       CVTHJESA DC    AL3(0) -      ADDRESS OF HASP COMMUNICATION TABLE   RFIT 22620700
                ORG   , -           RESTORE LOCATION COUNTER              RFIT 22620900

       .*                                                                      22630000
                AIF   (&CVTPCP).CVTD1                                          22640000
       *                                                                       23000000
       *              MFT/MVT CVT EXTENSION                                    24000000
       *                                                                       24200000
       CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT       24400021
       CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)                 24600000
       CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)   25000000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0018


       .*                                                                      25001000
       .*             CVTTSCE: TIME SLICING, NONE                              25002000
       .*                                                                      25003000

                AIF   ('&OPTIONS(1)' NE 'TSLICE').CVTC1                        25010000
       CVTTSCE  DC    V(IEATSCE) -  ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25400000
                AGO   .CVTC2                                                   25410000

       .CVTC1   ANOP                                                           25420000
       CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25421000
       .CVTC2   ANOP                                                           25430000
       .*                                                                      25440000
       .*             CVTPATCH: PATCH AREA, NONE                               25450000
       .*                                                                      25460000
                AIF   ('&PATCH' NE 'YES').CVTC3                                25490000
       CVTPATCH DC    V(IEAPATCH) - ADDR OF FE PATCH AREA                      25540000
                AGO   .CVTC4                                                   25590000
       .CVTC3   ANOP                                                           25592000
       CVTPATCH DC    A(0) -        ADDR OF FE PATCH AREA                      25594000
       .CVTC4   ANOP                                                           25596000

       .*                                                                      25600000
       CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA  25800000
       *                              (MVT/MFT)                                25810000
       CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)             26000000

       CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)                   26050000
       CVTTSRDY EQU   X'80' -       TIME SHARING READY                         26100000
       CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)             26150000
                AIF   ('&RPS' EQ 'NO').CVTC5                                   26200021
       CVT0SCR1 DC    V(IEC0SCR1) - ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     26650021
                AGO   .CVTC6                                                   27392421
       .CVTC5   ANOP                                                           27392821
       CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     27393221
       .CVTC6   ANOP                                                           27393621
       CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)   27394021
       CVTGTFST DC    B'0' -        STATUS FLAGS                               27396021
       CVTGTFS  EQU   X'C0' -       STATE                                      27398021

       */       00    CVTGTFIN      INACTIVE                                   27398421
       */       01    CVTGTFSR      STARTING                                   27398821
       */       10    CVTGTFSP      STOPPING                                   27399221

       */       11    CVTGTFAC      ACTIVE                                     27399621
       CVTSTATE EQU   X'20' -       IN CONTROL                                 27399721
       CVTMODE  EQU   X'10' -       EXT MODE                                   27399821
       CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA                27399921
       CVTUSR   EQU   X'04' -       USR TRACE                                  27449921
       CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID                       27459921
       CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE                27469921
       CVTTCMFG DS    0B -          TCAM FLAGS                                 27499921
       CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)                         27600000
       CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF             27610000
       *                            TCAM ADDRESS VECTOR TABLE                  27620021
                AIF   (NOT &CVTMFT).CVTP2                               S21167 27720021

       *                                                                       28000000
       *              MFT WITH SUBTASKING CVT EXTENSION                        28200000
       *                                                                       28400000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0019



       CVTTATA  DS    0A -          ADDR OF TCB ADDR TAB (P0 TCB POINTER)      28410000
       CVTTSKS  DC    FL1'0' -      MAXIMAL NUMBER OF TCB ADDR TAB ENTRIES     28800000
       CVTTAT   DC    AL3(0) -      ADDR OF TCB ADDR TAB (P0 TCB POINTER)      29000000
       CVTATER  DS    0A -          SAME AS CVTATERA BELOW              ICB306 29002021
       .*                                                                      29010000
       .*             CVTSYST: OPTIONS(3)                                      29012000
       .*                                                                      29020000
                AIF   ('&OPTIONS(3)' EQ '').CVT85                              29050000
       CVTSYST  DC    AL1(&OPTIONS(3)) -      NUMBER OF TCB ADDR TAB ENTRIES   29060021
                AGO   .CVT86                                                   29190000
       .CVT85   ANOP                                                           29192000
       CVTSYST  DC    AL1(0) -       NUMBER OF TCB ADDR TAB ENTRIES            29200021

       .CVT86   ANOP                                                           29250000
       CVTATERA DC    VL3(IEASETCB) ADDRESS OF SYSTEM ERROR TCB (ICB306) 41451 29400021
                AGO   .CVTP3                                                   29400421

       .CVTP2   ANOP                                                           29400821
       *                                                                       29401221
       *              MVT CVT EXTENSION                                        29401321
       *                                                                       29401421
       CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE 29401521
       *                            (PWF)                               S21167 29401621
       CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY   29404021
       *                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167 29404221
       CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167 29404421
       CVTVOLT2 DC    AL3(&WARN) -  PWF RECHECK TIME DELAY.  THIS VALUE IS     29404621
       *                            OVERLAID BY CVTVOLM2 AFTER PWF             29404821
       *                            INITIALIZATION                      S21167 29405021

                DC    A(0) -        RESERVED                                   29405221
       .CVTP3   ANOP                                                           29406021
       *                                                                       29407021

       *              MVT/MFT CVT EXTENSION                                    29408021
       *                                                                       29408821
       CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1              29410821
       *                            (ICB421)                APAR'S 47331,47332 29413221
                DS    F -           RESERVED                                   29414221
       CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE         29415221
                DS    X -           RESERVED                                   29416421
       CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE         29417421
                DS    F -           RESERVED                                   29418421
       CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307 29419421
                DS    X -           RESERVED                            ICB307 29420421
       CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND              29421421

       *                            COMMUNICATION AREA                  ICB307 29422421
       CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308 29423421
                DS    X -           RESERVED                            ICB308 29424421
       CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY      29425421

       *                            ROUTINE                             ICB308 29426421
       *                                                                       29427421
       *              COMMON EXTENSION 1                                       29435721
       *              ADDRESS OF EXTENSION IS IN CVTEXT1                       29445721
       *                                                                       29455721
       *              TO REFERENCE ANY FIELDS IN THIS EXTENSION,               29456121
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0020


       *              YOU SHOULD CODE -                                        29462521
       *                                                                       29464521
       *              L     REG,CVTEXT1                                        29466521
       *              USING CVTXTNT1,REG                                       29468521
       *                                                                       29468621

       *              WHERE REG IS ANY REGISTER OTHER THAN ZERO.               29468721
       *                                                                       29468821
       CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1                29475221

       *                            (ICB421)                APAR'S 47331,47332 29475721
       CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS        29477221
       *                            (ISAM) (ICB421)         APAR'S 47331,47332 29479221
       .*                                                                      29481621
       .CVTD1   ANOP                                                           29488021
       *                                                                       29494421
       *              END OF CVT PROPER                                        29513521
       *                                                                       29532621
                AIF   ('&PREFIX' EQ 'NO').CVTE1                                29551721
       .*                                                                      29570821
       *              BEGINNING OF CVT PREFIX                                  29589921
       *                                                                       29609021

       CVTFIX   DSECT -             CVTMAP-256 - PREFIX                        29628121
       *                                                                       29647221
                DS    CL248 -       RESERVED                                   29666321
                DS    H -           RESERVED                                   29685421

       CVTMDL   DS    CL2 -         CPU MODEL NUMBER IN SIGNLESS PACKED        29704521
       *                            DECIMAL, I.E., A MODEL 50 WOULD BE         29723621
       *                            REPRESENTED AS 0050 HEX                    29742721
       CVTRELNO DS    CL4 -         OS RELEASE NUMBER (CHAR)                   29761821
       *                                                                       29780921
       *              END OF CVT PREFIX                                        29800000
       *                                                                       29810000
                AGO   .CVTE2                                                   29820000
       .CVTE1   ANOP                                                           29860000
       *                                                                       29870000
       *              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT           29880000
       *                                                                       29890000

       .CVTE2   ANOP                                                           29910000
                MEND  , */                                                     30000000
       //*

                COPY  $ABSTR                                              8341 B0052100
                SPACE 5                                                   8341 B0052200
IEB816I MEMBER NAME (CVT     ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0021


       ./      CHANGE NAME=HASPCOMM,SEQFLD=747
               *                                                                  RFIT C0000000     *          INSERTED*
               *                            KILL ALL 370 INSTRUCTIONS             RFIT C0000010     *          INSERTED*
               *                                                                  RFIT C0000020     *          INSERTED*
               MVCL     OPSYN ,                                                   RFIT C0000030     *          INSERTED*
               CLCL     OPSYN ,                                                   RFIT C0000040     *          INSERTED*
               SIOF     OPSYN ,                                                   RFIT C0000050     *          INSERTED*
               HDV      OPSYN ,                                                   RFIT C0000070     *          INSERTED*

               STNSM    OPSYN ,                                                   RFIT C0000080     *          INSERTED*
               STOSM    OPSYN ,                                                   RFIT C0000090     *          INSERTED*
               MC       OPSYN ,                                                   RFIT C0000110     *          INSERTED*
               LRA      OPSYN ,                                                   RFIT C0000120     *          INSERTED*

               STCTL    OPSYN ,                                                   RFIT C0000130     *          INSERTED*
               LCTL     OPSYN ,                                                   RFIT C0000140     *          INSERTED*
               CLM      OPSYN ,                                                   RFIT C0000180     *          INSERTED*
               STCM     OPSYN ,                                                   RFIT C0000190     *          INSERTED*
               ICM      OPSYN ,                                                   RFIT C0000200     *          INSERTED*
               STIDP    OPSYN ,                                                   RFIT C0000210     *          INSERTED*
               STIDC    OPSYN ,                                                   RFIT C0000220     *          INSERTED*
               SCK      OPSYN ,                                                   RFIT C0000230     *          INSERTED*
               STCK     OPSYN ,                                                   RFIT C0000240     *          INSERTED*
               SCKC     OPSYN ,                                                   RFIT C0000250     *          INSERTED*
               STCKC    OPSYN ,                                                   RFIT C0000260     *          INSERTED*
               SPT      OPSYN ,                                                   RFIT C0000270     *          INSERTED*

               STPT     OPSYN ,                                                   RFIT C0000280     *          INSERTED*
               PTLB     OPSYN ,                                                   RFIT C0000310     *          INSERTED*
               RRB      OPSYN ,                                                   RFIT C0000350     *          INSERTED*

               SRP      OPSYN ,                                                   RFIT C0000360     *          INSERTED*
               COF&R.L  ICM   R1,7,DCTCHAIN-DCTDSECT+1(R1) NEXT DCT                    C1308000     *          REPLACED*
               COF&R.L  L     R1,DCTCHAIN-DCTDSECT(0,R1) NEXT DCT                 RFIT C1308000     *       REPLACEMENT*
                        LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1308100     *          INSERTED*
                        LTR   R1,R1                                               RFIT C1308200     *          INSERTED*
               &IGNORE  ICM   R1,7,QUECHAIN+1(R1) PICK UP NEXT ENTRY                   C1694000     *          REPLACED*
               &IGNORE  L     R1,QUECHAIN(0,R1)   PICK UP NEXT ENTRY              RFIT C1694000     *       REPLACEMENT*
                        LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1694100     *          INSERTED*
                        LTR   R1,R1                   SET CONDITION CODE          RFIT C1694200     *          INSERTED*
                        ICM   R1,15,$COMMQUE      PICK UP CMB                          C2178000     *          REPLACED*
               *        ICM   R1,15,$COMMQUE      PICK UP CMB                     RFIT C2178000     *       REPLACEMENT*
                        L     R1,$COMMQUE                                         RFIT C2178005     *          INSERTED*

                        LTR   R1,R1                                               RFIT C2178010     *          INSERTED*
                        ICM   WD,8,COMPNTER       PICK UP JOB TYPE FLAGS               C3400000     *          REPLACED*
               *        ICM   WD,8,COMPNTER       PICK UP JOB TYPE FLAGS          RFIT C3400000     *       REPLACEMENT*
                        IC    WC,COMPNTER         PICK UP JOB TYPE FLAGS          RFIT C3400100     *          INSERTED*

                        SLL   WC,24               SHIFT OVER TO HI BYTE           RFIT C3400200     *          INSERTED*
                        OR    WD,WC               OR TOGETHER                     RFIT C3400300     *          INSERTED*
                        ICM   WC,3,JOENEXT        PICK UP FIRST JOE OFFSET             C3405500     *          REPLACED*
               *        ICM   WC,3,JOENEXT        PICK UP FIRST JOE OFFSET        RFIT C3405500     *       REPLACEMENT*
                        SR    WC,WC                   CLEAR REGISTER              RFIT C3405502     *          INSERTED*
                        IC    WC,JOENEXT              SIMULATE                    RFIT C3405505     *          INSERTED*
                        SLL   WC,8                    ICM                         RFIT C3405510     *          INSERTED*
                        IC    WC,JOENEXT+1            WC,3,JOENEXT                RFIT C3405515     *          INSERTED*
                        LTR   WC,WC                   SET CONDITION CODE          RFIT C3405520     *          INSERTED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0022


               CDFNXTJO ICM   WC,3,JOENEXT        PICK UP OFFSET OF NEXT               C3425500     *          REPLACED*
               *CDFNXTJOICM   WC,3,JOENEXT        PICK UP OFFSET OF NEXT          RFIT C3425500     *       REPLACEMENT*

               CDFNXTJO SR    WC,WC                   CLEAR REGISTER              RFIT C3425502     *          INSERTED*
                        IC    WC,JOENEXT              SIMULATE                    RFIT C3425505     *          INSERTED*
                        SLL   WC,8                    ICM                         RFIT C3425510     *          INSERTED*

                        IC    WC,JOENEXT+1            WC,3,JOENEXT                RFIT C3425515     *          INSERTED*
                        LTR   WC,WC                   SET CINDITION CODE          RFIT C3425520     *          INSERTED*
               CDFRTEOK ICM   WC,3,JOECHAR        GET CHARACTERISTIC JOE               C3439000     *          REPLACED*
               *CDFRTEOKICM   WC,3,JOECHAR        GET CHARACTERISTIC JOE          RFIT C3439000     *       REPLACEMENT*
               CDFRTEOK SR    WC,WC                   CLEAR REGISTER              RFIT C3439002     *          INSERTED*
                        IC    WC,JOECHAR              SIMULATE                    RFIT C3439005     *          INSERTED*
                        SLL   WC,8                    ICM                         RFIT C3439010     *          INSERTED*
                        IC    WC,JOECHAR+1            WC,3,JOECHAR                RFIT C3439015     *          INSERTED*
                        CLM   WD,7,CDFCOMPR       CHECK FOR OUTPUT REQUIRED            C3456500     *          REPLACED*
               *        CLM   WD,7,CDFCOMPR       CHECK FOR OUTPUT REQUIRED       RFIT C3456500     *       REPLACEMENT*
                        ST    WD,COMEWORK             SIMULATE                    RFIT C3456510     *          INSERTED*
                        CLC   COMEWORK+1(3),CDFCOMPR  CODE                        RFIT C3456520     *          INSERTED*

               CDFEJOB  ICM   WC,3,JOENEXT        PICK UP NEXT JOE OFFSET              C3465000     *          REPLACED*
               *CDFEJOB ICM   WC,3,JOENEXT        PICK UP NEXT JOE OFFSET         RFIT C3465000     *       REPLACEMENT*
               CDFEJOB  SR    WC,WC                   CLEAR REGISTER              RFIT C3465002     *          INSERTED*
                        IC    WC,JOENEXT              SIMULATE                    RFIT C3465005     *          INSERTED*

                        SLL   WC,8                    ICM                         RFIT C3465010     *          INSERTED*
                        IC    WC,JOENEXT+1            WC,3,JOENEXT                RFIT C3465015     *          INSERTED*
                        LTR   WC,WC                   SET CONDITION CODE          RFIT C3465020     *          INSERTED*
                        STCM  WB,7,FCBCCW+1       STORE IMAGE START OFFSET             C5548400     *          REPLACED*
               *        STCM  WB,7,FCBCCW+1       RESTORE IMAGE COUNT OFFSET      RFIT C5548400     *       REPLACEMENT*
                        ST    WB,COMEWORK             SIMULATE                    RFIT C5548405     *          INSERTED*
                        MVC   FCBCCW+1(3),COMEWORK+1                              RFIT C5548410     *          INSERTED*
                        ICM   R4,15,0(R4)         GET READER CONTROL WORD.             C5652000     *          REPLACED*
               *        ICM   R4,15,0(R4)         GET RDR CONTROL WORD            RFIT C5652000     *       REPLACEMENT*
                        L     R4,0(,R4)                                           RFIT C5652010     *          INSERTED*
                        $ENABLE ALL               MUST RE-ENABLE AFTER XWARM      RFIT C5659000     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSVS1).CPSMFT1                        RFIT C5698000     *          INSERTED*

                        AIF   (&SYSVS2).CPSVS21                                   RFIT C5722000     *          INSERTED*
               * MVT WITHDRAWAL                                                   RFIT C5724000     *          INSERTED*
                        $DISABLE ALL,OLAY=YES                                     RFIT C5726000     *          INSERTED*

                        L     WA,$SVCIOS          LOCATE IOS SVC ENTRY            RFIT C5728000     *          INSERTED*
                        MVC   6*4(4,WA),$LINKENT  REPLACE LINK ENTRY IN SVC TABLE RFIT C5732000     *          INSERTED*
                        MVC   7*4(4,WA),$XCTLENT  REPLACE XCTL ENTRY IN SVC TABLE RFIT C5734000     *          INSERTED*
                        MVC   35*4(4,WA),$SVCWTO  REPLACE WTO(R) ENTRY IN SVC TBL RFIT C5736000     *          INSERTED*
                        MVC   36*4(4,WA),$SVCWTL  REPLACE WTL ENTRY IN SVC TABLE  RFIT C5738000     *          INSERTED*
                       $ENABLE ALL,OLAY=YES                                       RFIT C5740000     *          INSERTED*
               .CPSVS21 AGO   .CPSVS22                                            RFIT C5742000     *          INSERTED*
               .CPSMFT1 ANOP                                                      RFIT C5744000     *          INSERTED*
               * MFT/VS1 WITHDRAWAL                                               RFIT C5746000     *          INSERTED*
                       $DISABLE ALL,OLAY=YES                                      RFIT C5748000     *          INSERTED*
                        L     WA,$SVCLINK         LOCATE LINK SVC ENTRY           RFIT C5750000     *          INSERTED*
                        NC    *+7(1),2(WA)        SEPARATE TYPE BITS              RFIT C5752000     *          INSERTED*

                        OI    $LINKENT+3,7        *** MODIFIED ***, SET TYPE BITS RFIT C5754000     *          INSERTED*
                        MVC   0(3,WA),$LINKENT+1  RESTORE LINK SVC ENTRY          RFIT C5756000     *          INSERTED*
                        L     WA,$SVCXCTL         LOCATE XCTL SVC ENTRY           RFIT C5758000     *          INSERTED*
                        NC    *+7(1),2(WA)        SEPARATE TYPE BITS              RFIT C5760000     *          INSERTED*

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0023


                        OI    $XCTLENT+3,7        *** MODIFIED ***, SET TYPE BITS RFIT C5762000     *          INSERTED*
                        MVC   0(3,WA),$XCTLENT+1  RESTORE XCTL SVC ENTRY          RFIT C5764000     *          INSERTED*
                        L     WA,$SVCTABR         LOCATE RELOCATION TABLE         RFIT C5766000     *          INSERTED*
                        L     WB,$SVCTABV         WB = ADDRESS OF SVC TABLE       RFIT C5768000     *          INSERTED*
                        SR    WC,WC               CLEAR WC                        RFIT C5770000     *          INSERTED*
                        IC    WC,35(,WA)          WC = SVC 35 RELOCATION INDEX    RFIT C5772000     *          INSERTED*
                        LA    WD,0(WC,WC)         WD = 2*WC                       RFIT C5774000     *          INSERTED*
                        AR    WD,WD               WD = 4*WC                       RFIT C5776000     *          INSERTED*
                        AR    WD,WB               WD = SVC 35 TABLE ENTRY         RFIT C5778000     *          INSERTED*
                        MVC   0(4,WD),$SVCWTO     RESTORE SVC 35 ENTRY            RFIT C5780000     *          INSERTED*
                        IC    WC,36(,WA)          WC = SVC 36 RELOCATION INDEX    RFIT C5782000     *          INSERTED*

                        LA    WD,0(WC,WC)         WD = 2*WC                       RFIT C5784000     *          INSERTED*
                        AR    WD,WD               WD = 4*WC                       RFIT C5786000     *          INSERTED*
                        AR    WD,WB               WD = SVC 36 TABLE ENTRY         RFIT C5788000     *          INSERTED*

                        MVC   0(4,WD),$SVCWTL     RESTORE SVC 36 ENTRY            RFIT C5790000     *          INSERTED*
                        L     WA,$SVCIOS          LOCATE IOS ENTRY                RFIT C5792000     *          INSERTED*
                        MVC   0(3,WA),$IOSENT+1   RESET OS ENTRY TO IOS           RFIT C5794000     *          INSERTED*
                        $ENABLE ALL                                               RFIT C5796000     *          INSERTED*
               .CPSVS22 ANOP                                                      RFIT C5798000     *          INSERTED*
                        AIF   (&SYSVS2).CPSVS23                                   RFIT C5826000     *          INSERTED*
                        L     WA,$ATTNENT         GET ADDRESS OF ATTENTION ROUTINERFIT C5826100     *          INSERTED*
                        MVC   0(12,WA),$ATTNSAV   RESTORE REMOVED BYTES           RFIT C5826200     *          INSERTED*
               .CPSVS23 ANOP                                                      RFIT C5826300     *          INSERTED*
                        ICM   R1,1,UCBERADR       GET AND TEST OPEN DCB COUNT  OY02728 C5840700     *          REPLACED*
               *        ICM   R1,1,UCBERADR       GET AND TEST OPEN DCB COUNT     RFIT C5840700     *       REPLACEMENT*
                        IC    R1,UCBERADR                                         RFIT C5840710     *          INSERTED*

                        LTR   R1,R1                                               RFIT C5840715     *          INSERTED*
                        ICM   R1,15,UCBERADR      GET, TEST LOG AREA ADDRESS   OY02728 C5841000     *          REPLACED*
               *        ICM   R1,15,UCNERADR      GET, TEST LOG AREA ADDRESS      RFIT C5841000     *       REPLACEMENT*

                        L     R1,UCBERADR                                         RFIT C5841010     *          INSERTED*
                        LTR   R1,R1                                               RFIT C5841015     *          INSERTED*
               CTMALL   STCM  WA,3,0(WB)          SET RESPONSE CONSOLE                 C5965200     *          REPLACED*
               *CTMALL  STCM  WA,3,0(WB)          SET RESPONSE CONSOLE            RFIT C5965200     *       REPLACEMENT*
               CTMALL   STH   WA,0(,WB)                                           RFIT C5965205     *          INSERTED*
                        CLM   WD,1,1(R14)         CHECK FOR MATCHING OFFSET            C5968200     *          REPLACED*
               *        CLM   WD,1,1(R14)         CHECK FOR MATCHING OFFSET       RFIT C5968200     *       REPLACEMENT*
                        ST    WD,COMEWORK                                         RFIT C5968205     *          INSERTED*
                        CLC   COMEWORK+3(1),1(R14)                                RFIT C5968210     *          INSERTED*
                        STCM  WA,3,0(WB)          SET                                  C5971200     *          REPLACED*
               *        STCM  WA,3,0(WB)          SET                             RFIT C5971200     *       REPLACEMENT*
                        STH   WA,0(,WB)                                           RFIT C5971205     *          INSERTED*

               CDRLOOPA ICM   R1,7,CMBCHAIN+1     POINT TO NEXT CMB                    C6092000     *          REPLACED*
               *CDRLOOPAICM   R1,7,CMBCHAIN)      POINT TO NEXT CMB               RFIT C6092000     *       REPLACEMENT*
               CDRLOOPA L     R1,CMBCHAIN                                         RFIT C6092005     *          INSERTED*
                        LA    R1,0(,R1)                                           RFIT C6092010     *          INSERTED*

                        LTR   R1,R1                                               RFIT C6092015     *          INSERTED*
               CRXNXTJO ICM   WC,3,JOENEXT        POINT TO NEXT JOE (REL)              C6490100     *          REPLACED*
               *CRXNXTJOICM   WC,3,JOENEXT        POINT TO HEXT JOE (REL)         RFIT C6490100     *       REPLACEMENT*
               CRXNXTJO SR    WC,WC                                               RFIT C6490102     *          INSERTED*
                        IC WC,JOENEXT                                             RFIT C6490105     *          INSERTED*
                        SLL   WC,8                                                RFIT C6490110     *          INSERTED*
                        IC    WC,JOENEXT+1                                        RFIT C6490115     *          INSERTED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0024


                        LTR   WC,WC                                               RFIT C6490120     *          INSERTED*
               CDSNXTJO ICM   WA,3,JOENEXT        PICK UP JOE OFFSET                   C6680000     *          REPLACED*
               *CDSNXTJOICM   WA,3,JOENEXT        PICK UP JOE OFFSET              RFIT C6680000     *       REPLACEMENT*
               CDSNXTJO SR   WA,WA                                                RFIT C6680002     *          INSERTED*

                        IC    WA,JOENEXT                                          RFIT C6680005     *          INSERTED*
                        SLL   WA,8                                                RFIT C6680010     *          INSERTED*
                        IC    WA,JOENEXT+1                                        RFIT C6680015     *          INSERTED*

                        LTR   WA,WA                                               RFIT C6680020     *          INSERTED*
                        CLM   WB,7,JOEJQE+1       CHECK FOR DESIRED JOB                C6686000     *          REPLACED*
               *        CLM   WB,7,JOEJQE+1       CHECK FOR DESIRED JOB           RFIT C6686000     *       REPLACEMENT*
                        ST    WB,COMEWORK                                         RFIT C6686005     *          INSERTED*
                        CLC   COMEWORK+1(3),JOEJQE+1                              RFIT C6686010     *          INSERTED*
                        CLM   R0,3,COMPNTER       CHECK ROUTE WITHIN RANGE             C6696000     *          REPLACED*
               *        CLM   R0,3,COMPNTER       CHECK ROUTE WITHIN RANBE        RFIT C6696000     *       REPLACEMENT*
                        ST    R0,COMEWORK                                         RFIT C6696005     *          INSERTED*
                        CLC   COMEWORK+2(2),COMPNTER                              RFIT C6696010     *          INSERTED*
                        CLM   R0,3,COMPNTER+2     CHECK HIGH                           C6700000     *          REPLACED*
               *        CLM   R0,3,COMPNTER+2     CHECK HIGH                      RFIT C6700000     *       REPLACEMENT*
                        CLC   COMEWORK+2(2),COMPNTER+2                            RFIT C6700005     *          INSERTED*

IEB816I MEMBER NAME (HASPCOMM) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0025


       ./      CHANGE NAME=HASPCON,SEQFLD=747
               *                                                                  RFIT W0000000     *          INSERTED*

               *                            KILL ALL 370 INSTRUCTIONS             RFIT W0000010     *          INSERTED*
               *                                                                  RFIT W0000020     *          INSERTED*
               MVCL     OPSYN ,                                                   RFIT W0000030     *          INSERTED*
               CLCL     OPSYN ,                                                   RFIT W0000040     *          INSERTED*
               SIOF     OPSYN ,                                                   RFIT W0000050     *          INSERTED*
               HDV      OPSYN ,                                                   RFIT W0000070     *          INSERTED*
               STNSM    OPSYN ,                                                   RFIT W0000080     *          INSERTED*
               STOSM    OPSYN ,                                                   RFIT W0000090     *          INSERTED*
               MC       OPSYN ,                                                   RFIT W0000110     *          INSERTED*
               LRA      OPSYN ,                                                   RFIT W0000120     *          INSERTED*
               STCTL    OPSYN ,                                                   RFIT W0000130     *          INSERTED*
               LCTL     OPSYN ,                                                   RFIT W0000140     *          INSERTED*

               CLM      OPSYN ,                                                   RFIT W0000180     *          INSERTED*
               STCM     OPSYN ,                                                   RFIT W0000190     *          INSERTED*
               ICM      OPSYN ,                                                   RFIT W0000200     *          INSERTED*

               STIDP    OPSYN ,                                                   RFIT W0000210     *          INSERTED*
               STIDC    OPSYN ,                                                   RFIT W0000220     *          INSERTED*
               SCK      OPSYN ,                                                   RFIT W0000230     *          INSERTED*
               STCK     OPSYN ,                                                   RFIT W0000240     *          INSERTED*
               SCKC     OPSYN ,                                                   RFIT W0000250     *          INSERTED*
               STCKC    OPSYN ,                                                   RFIT W0000260     *          INSERTED*
               SPT      OPSYN ,                                                   RFIT W0000270     *          INSERTED*
               STPT     OPSYN ,                                                   RFIT W0000280     *          INSERTED*
               PTLB     OPSYN ,                                                   RFIT W0000310     *          INSERTED*
               RRB      OPSYN ,                                                   RFIT W0000350     *          INSERTED*
               SRP      OPSYN ,                                                   RFIT W0000360     *          INSERTED*
                        ICM   R1,7,CMBCHAIN+1     GET NEXT BUFFER ON CHAIN             W0718000     *          REPLACED*

               *        ICM   R1,7,CMBCHAIN+1     GET NEXT BUFFER ON CHAIN        RFIT W0718000     *       REPLACEMENT*
                        L     R1,CMBCHAIN                                         RFIT W0718005     *          INSERTED*
                        LA    R1,0(,R1)                                           RFIT W0718010     *          INSERTED*
                        LTR   R1,R1                                               RFIT W0718015     *          INSERTED*

                        NI    WTOLINET,X'FF'-WLTDATA  TURN OFF DATA INDICATOR     RFIT W0792010     *          INSERTED*
                        ICM   WB,14,WCONNECT+1    PICK UP CONNECT ID                   W0816000     *          REPLACED*
               *        ICM   WB,14,WCONNECT+1    PICK UP CONNECT ID              RFIT W0816000     *       REPLACEMENT*
                        LR    WC,WB                                               RFIT W0816005     *          INSERTED*
                        SLL   WC,24                                               RFIT W0816010     *          INSERTED*
                        SRL   WC,24                                               RFIT W0816015     *          INSERTED*
                        L     WB,WCONNECT                                         RFIT W0816020     *          INSERTED*
                        SLL   WB,8                                                RFIT W0816025     *          INSERTED*
                        OR    WB,WC                                               RFIT W0816030     *          INSERTED*
                        ICM   R1,7,CMBCHAIN+1     POINT TO NEXT CMB                    W0896000     *          REPLACED*
               *        ICM   R1,7,CMBCHAIN+1     POINT TO NEXT CMB               RFIT W0896000     *       REPLACEMENT*
                        L     R1,CMBCHAIN                                         RFIT W0896005     *          INSERTED*

                        LA    R1,0(,R1)                                           RFIT W0896010     *          INSERTED*
                        LTR   R1,R1                                               RFIT W0896015     *          INSERTED*
                        ICM   R15,15,$WCOMRES     INSURE COMM HAS A CMB                W0922000     *          REPLACED*

               *        ICM   R15,15,$WCOMRES     INSURE COMM HAS A CMB           RFIT W0922000     *       REPLACEMENT*
                        L     R15,$WCOMRES                                        RFIT W0922005     *          INSERTED*
                        LTR   R15,R15                                             RFIT W0922010     *          INSERTED*
                        ICM   R1,15,$WCOMRES      TEST FOR RESERVED BUFFER             W0978000     *          REPLACED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0026


               *        ICM   R1,15,$WCOMRES      TEST FOR RESERVED BUFFER        RFIT W0978000     *       REPLACEMENT*
                        L     R1,$WCOMRES                                         RFIT W0978005     *          INSERTED*
                        LTR   R1,R1                                               RFIT W0978010     *          INSERTED*
                        LRA   R3,0(0,R3)          TEST FOR IN                          W1336000     *          REPLACED*
                       $LRA   R3,0(0,R3)          TEST FOR IN                     RFIT W1336000     *       REPLACEMENT*
                        LRA   R3,0(0,R1)          TEST FOR IN                          W1340000     *          REPLACED*
                       $LRA   R3,0(0,R3)          TEST FOR IN                     RFIT W1340000     *       REPLACEMENT*

                        ICM   R8,8,=C' '          SET BLANK                            W1812000     *          REPLACED*
               *        ICM   R8,8,=C' '          SET BLANK                       RFIT W1812000     *       REPLACEMENT*
                        LA    R5,C' '                                             RFIT W1812002     *          INSERTED*
                        SLL   R5,24                                               RFIT W1812010     *          INSERTED*

                        SLL   R8,8                                                RFIT W1812015     *          INSERTED*
                        SRL   R8,8                                                RFIT W1812020     *          INSERTED*
                        OR    R8,R5                                               RFIT W1812025     *          INSERTED*
               WS34GET  ICM   R2,15,$FREEQUE      PICK UP FREE BUFFER POINTER          W1838000     *          REPLACED*
               *WS34GET ICM   R2,15,$FREEQUE      PICK UP FREE BUFFER POINTER     RFIT W1838000     *       REPLACEMENT*
               WS34GET  L     R2,$FREEQUE                                         RFIT W1838005     *          INSERTED*
                        LTR   R2,R2                                               RFIT W1838010     *          INSERTED*
                        ICM   R2,15,0(R7)          RESERVE BUFFER                      W1844000     *          REPLACED*
               *        ICM   R2,15,0(R7)         RESERVE BUFFER                  RFIT W1844000     *       REPLACEMENT*
                        L     R2,0(,R7)                                           RFIT W1844005     *          INSERTED*
                        LTR   R2,R2                                               RFIT W1844010     *          INSERTED*
                        ICM   R14,8,=C'L'         ASSUME SVC 36                        W2114000     *          REPLACED*

               *        ICM   R14,8,=C'L'         ASSUME SVC 36                   RFIT W2114000     *       REPLACEMENT*
                        LA    R2,C'L'                                             RFIT W2114005     *          INSERTED*
                        SLL   R2,24                                               RFIT W2114010     *          INSERTED*

                        SLL   R14,8                                               RFIT W2114015     *          INSERTED*
                        SRL   R14,8                                               RFIT W2114020     *          INSERTED*
                        OR    R14,R2                                              RFIT W2114025     *          INSERTED*
       ./   DELETE    SEQ1=2124000,SEQ2=2126000                       FJP/RFIT
                        SH    R2,=Y(RBDSECT-RBPREFIX)  POINT TO PREFIX                 W2124000     *           DELETED*
                        USING RBPREFIX,R2                                              W2126000     *           DELETED*
                        CLI   RBINTCOD+1,36       TEST FOR SVC 36                      W2128000     *          REPLACED*
                        CLI   RBOPSW+3-RBDSECT(R2),36  TEST FOR SVC 36        FJP/RFIT W2128000     *       REPLACEMENT*
                        DROP  R2,R4                                                    W2130000     *          REPLACED*
                        DROP  R4                                              FJP/RFIT W2130000     *       REPLACEMENT*
                        ICM   R14,8,=C' '         SET NORMAL WTO                       W2134000     *          REPLACED*
               *        ICM   R14,8,=C' '         SET NORMAL WTO                  RFIT W2134000     *       REPLACEMENT*

                        LA    R2,C' '                                             RFIT W2134005     *          INSERTED*
                        SLL   R2,24                                               RFIT W2134010     *          INSERTED*
                        SLL   R14,8                                               RFIT W2134015     *          INSERTED*
                        SRL   R14,8                                               RFIT W2134020     *          INSERTED*

                        OR    R14,R2                                              RFIT W2134025     *          INSERTED*
                        CLM   R0,14,=X'FFFFFF'    CHECK FOR DUMMY CONNECT              W2154000     *          REPLACED*
               *        CLM   R0,14,=X'FFFFFF'    CHECK FOR DUMMY COMMECT         RFIT W2154000     *       REPLACEMENT*
                        ST    R0,CSTORE                                           RFIT W2154005     *          INSERTED*
                        CLC   CSTORE+1(3),=X'FFFFFF'                              RFIT W2154010     *          INSERTED*
                        LRA   R0,0(0,R8)          IS START POINT IN                    W2318000     *          REPLACED*
                       $LRA   R0,0(0,R8)          IS START POINT IN               RFIT W2318000     *       REPLACEMENT*
                        LRA   R0,0(0,R2)          IS END POINT IN                      W2322000     *          REPLACED*
                       $LRA   R0,0(0,R2)          IS END POINT IN                 RFIT W2322000     *       REPLACEMENT*
                        ICM   R1,8,WSVCSAVE+R14*4 INSERT 'L', 'R', OR ' '              W2968000     *          REPLACED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0027


               *        ICM   R1,8,WSVCSAVE+R14*4 INSERT 'L', 'R', OR ' '         RFIT W2968000     *       REPLACEMENT*

                        IC    R14,WSVCSAVE+R14*4                                  RFIT W2968005     *          INSERTED*
                        SLL   R14,24                                              RFIT W2968010     *          INSERTED*
                        SLL   R1,8                                                RFIT W2968015     *          INSERTED*

                        SRL   R1,8                                                RFIT W2968020     *          INSERTED*
                        OR    R1,R14                                              RFIT W2968025     *          INSERTED*
               WTSNEXT  ICM   R1,7,QUECHAIN+1(R1) POINT TO NEXT QUEUE ELEMENT          W3304000     *          REPLACED*
               *WTSNEXT ICM   R1,7,QUECHAIN+1(R1) POINT TO NEXT QUEUE ELEMENT     RFIT W3304000     *       REPLACEMENT*
               WTSNEXT  L     R1,QUECHAIN(R1)                                     RFIT W3304005     *          INSERTED*
                        LA    R1,0(,R1)                                           RFIT W3304010     *          INSERTED*
                        LTR   R1,R1                                               RFIT W3304015     *          INSERTED*
                        ICM   R1,15,WTSTJID       PICK UP TJID                         W3432000     *          REPLACED*
               *        ICM   R1,15,WTSTJID       PICK UP TJID                    RFIT W3432000     *       REPLACEMENT*
                        L     R1,WTSTJID                                          RFIT W3432005     *          INSERTED*
                        LTR   R1,R1                                               RFIT W3432010     *          INSERTED*
               WTSPL1   ICM   R4,15,TCBTCB        POINT TO NEXT TCB                    W3464000     *          REPLACED*

               *WTSPL1  ICM   R4,15,TCBTCB        POINT TO NEXT TCB               RFIT W3464000     *       REPLACEMENT*
               WTSPL1   L     R4,TCBTCB                                           RFIT W3464005     *          INSERTED*
                        LTR   R4,R4                                               RFIT W3464010     *          INSERTED*

               WTSPL2   ICM   R5,7,RBLINK+1       POINT TO NEXT RB                     W3478000     *          REPLACED*
               *WTSPL2  ICM   R5,7,RBLINK+1       POINT TO NEXT RB                RFIT W3478000     *       REPLACEMENT*
               WTSPL2   L     R5,RBLINK                                           RFIT W3478005     *          INSERTED*
                        LA    R5,0(,R5)                                           RFIT W3478010     *          INSERTED*
                        CLM   R5,7,WTSECB+1       CHECK FOR MATCHING RB                W3484000     *          REPLACED*
               *        CLM   R5,7,WTSECB+1       XHECK FOR MATCHING RB           RFIT W3484000     *       REPLACEMENT*
                        ST    R5,CSTORE                                           RFIT W3484005     *          INSERTED*
                        CLC   CSTORE+1(3),WTSECB+1                                RFIT W3484010     *          INSERTED*
               CSTORE   DC    F'0'                TEMPORARY STORAGE AREA          RFIT W3620100     *          INSERTED*
IEB816I MEMBER NAME (HASPCON ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0028


       ./  CHANGE  NAME=HASPINIT,SEQFLD=747

               *                                                                  RFIT N0000000     *          INSERTED*
               *                            KILL ALL 370 INSTRUCTIONS             RFIT N0000010     *          INSERTED*
               *                                                                  RFIT N0000020     *          INSERTED*
               MVCL     OPSYN ,                                                   RFIT N0000030     *          INSERTED*

               CLCL     OPSYN ,                                                   RFIT N0000040     *          INSERTED*
               SIOF     OPSYN ,                                                   RFIT N0000050     *          INSERTED*
               HDV      OPSYN ,                                                   RFIT N0000070     *          INSERTED*
               STNSM    OPSYN ,                                                   RFIT N0000080     *          INSERTED*
               STOSM    OPSYN ,                                                   RFIT N0000090     *          INSERTED*
               MC       OPSYN ,                                                   RFIT N0000110     *          INSERTED*
               LRA      OPSYN ,                                                   RFIT N0000120     *          INSERTED*
               STCTL    OPSYN ,                                                   RFIT N0000130     *          INSERTED*
               LCTL     OPSYN ,                                                   RFIT N0000140     *          INSERTED*
               CLM      OPSYN ,                                                   RFIT N0000180     *          INSERTED*
               STCM     OPSYN ,                                                   RFIT N0000190     *          INSERTED*
               ICM      OPSYN ,                                                   RFIT N0000200     *          INSERTED*

               STIDP    OPSYN ,                                                   RFIT N0000210     *          INSERTED*
               STIDC    OPSYN ,                                                   RFIT N0000220     *          INSERTED*
               SCK      OPSYN ,                                                   RFIT N0000230     *          INSERTED*

               STCK     OPSYN ,                                                   RFIT N0000240     *          INSERTED*
               SCKC     OPSYN ,                                                   RFIT N0000250     *          INSERTED*
               STCKC    OPSYN ,                                                   RFIT N0000260     *          INSERTED*
               SPT      OPSYN ,                                                   RFIT N0000270     *          INSERTED*
               STPT     OPSYN ,                                                   RFIT N0000280     *          INSERTED*
               PTLB     OPSYN ,                                                   RFIT N0000310     *          INSERTED*
               RRB      OPSYN ,                                                   RFIT N0000350     *          INSERTED*
               SRP      OPSYN ,                                                   RFIT N0000360     *          INSERTED*
                        LCLA  &PAGESIZ                                            RFIT N0290100     *          INSERTED*
                        LCLB  &SYSMFT,&SYSMVT,&SYSVS1,&SYSVS2                     RFIT N0290200     *          INSERTED*
               &PAGESIZ SETA  16777216            ASSUME MFT OR MVT               RFIT N0294100     *          INSERTED*
                        AIF   (NOT &SYSVS1).ORGBUF1                               RFIT N0294200     *          INSERTED*

               &PAGESIZ SETA  2048                VS1 PAGE SIZE                   RFIT N0294300     *          INSERTED*
               .ORGBUF1 AIF   (NOT &SYSVS2).ORGBUF2                               RFIT N0294400     *          INSERTED*
               &PAGESIZ SETA  4096                VS2 PAGE SIZE                   RFIT N0294500     *          INSERTED*
               .ORGBUF2 ANOP                                                      RFIT N0294600     *          INSERTED*

                        AIF   (&LGTH LE 4096).LGTHOK                                   N0296000     *          REPLACED*
                        AIF   (&LGTH LE &PAGESIZ).LGTHOK                          RFIT N0296000     *       REPLACEMENT*
               .LGTHOK  AIF   (&LASTBYT/4096 EQ &NITLGTH/4096).INPAGE                  N0300000     *          REPLACED*
               .LGTHOK  AIF   (&LASTBYT/&PAGESIZ EQ &NITLGTH/&PAGESIZ).INPAGE     RFIT N0300000     *       REPLACEMENT*
               &NITLGTH SETA  &LASTBYT/4096*4096                                       N0302000     *          REPLACED*
               &NITLGTH SETA  &LASTBYT/&PAGESIZ*&PAGESIZ                          RFIT N0302000     *       REPLACEMENT*
                        LCLA  &PRCPRC                                             RFIT N0556001     *          INSERTED*
                        SVC   116                 CALL EXTENDED SVC ROUTER             N2050800     *          REPLACED*
                        SVC   &INITSVC            CALL EXTENDED SVC ROUTER        RFIT N2050800     *       REPLACEMENT*
                        AIF   (&SYSVS2).NOINITA                                   RFIT N2051010     *          INSERTED*
                        MVC   $NUCTBLE($NUCLENE),$NUCLEN(R1) SAVE REST OF TBL     RFIT N2051020     *          INSERTED*
               .NOINITA ANOP                                                      RFIT N2051030     *          INSERTED*

                        GETMAIN R,SP=255,LV=96*2  GET STORAGE FOR REP I/O              N2062100     *          REPLACED*
                        GETMAIN R,SP=&SYSVS1*255+&SYSVS2*255,LV=96*2 REP I/O STOR RFIT N2062100     *       REPLACEMENT*
                        LRA   R1,NCARD            R1 = REAL ADDR OF DATA AREA          N2063000     *          REPLACED*

                       $LRA   R1,NCARD            R1 = REAL ADDRESS OF DATA AREA  RFIT N2063000     *       REPLACEMENT*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0029


                        LRA   R1,NREPCCW          PUT CCW REAL ADDRESS                 N2074000     *          REPLACED*
                       $LRA   R1,NREPCCW          PUT CCW REAL ADDRESS            RFIT N2074000     *       REPLACEMENT*
                        LRA   R1,NREPCCW          PUT CCW REAL ADDRESS                 N2100000     *          REPLACED*
                       $LRA   R1,NREPCCW          PUT CCW REAL ADDRESS            RFIT N2100000     *       REPLACEMENT*
               NREPEND  FREEMAIN R,SP=255,LV=96*2,A=(R10)                              N2310300     *          REPLACED*
               NREPEND  FREEMAIN R,SP=&SYSVS1*255+&SYSVS2*255,LV=96*2,A=(R10)     RFIT N2310300     *       REPLACEMENT*
                        AIF   (&SYSMFT OR &SYSMVT).NNFIX                          RFIT N2310450     *          INSERTED*
               .NNFIX   ANOP                                                      RFIT N2311650     *          INSERTED*
                        GETMAIN R,SP=254,LV=&TEMP  GET LSQA STORAGE FOR ALL            N2312300     *          REPLACED*
                        GETMAIN R,SP=&SYSVS1*254+&SYSVS2*254,LV=&TEMP GET STORAGE RFIT N2312300     *       REPLACEMENT*

                        MVCL  WA,R14              CLEAR GOTTEN AREA                    N2312700     *          REPLACED*
               *        MVCL  WA,R14              CLEAR GOTTEN AREA               RFIT N2312700     *       REPLACEMENT*
                        $XXC  XC,(0,WA),(0,WA),&TEMP                              RFIT N2312705     *          INSERTED*
                        STCM  R1,7,DCTDCB+1       DCB ADDR INTO DCT                    N2316100     *          REPLACED*

               *        STCM  R1,7,DCTDCB+1       DCB ADDR INTO DCT               RFIT N2316100     *       REPLACEMENT*
                        ST    R1,NFIXECB                                          RFIT N2316105     *          INSERTED*
                        MVC   DCTDCB+1(3),NFIXECB+1                               RFIT N2316110     *          INSERTED*
                        STCM  R1,7,DEBDCBAD+1     DCB ADDR INTO DEB                    N2316300     *          REPLACED*
               *        STCM  R1,7,DEBDCBAD+1     DCB ADDR INTO DEB               RFIT N2316300     *       REPLACEMENT*
                        MVC   DEBDCBAD+1(3),NFIXECB+1                             RFIT N2316310     *          INSERTED*
                        AIF   (&SYSVS2).NOINITG                                   RFIT N2394000     *          INSERTED*
                        MVI   TCBPKF-TCBDSECT(WB),0 FORCE ZERO KEY                RFIT N2396000     *          INSERTED*
               .NOINITG ANOP                                                      RFIT N2398000     *          INSERTED*
                        AIF   (&SYSVS2 OR &SYSMVT).NOINIT9                        RFIT N2592000     *          INSERTED*
               NOMFTMCS WTO   'HASP MFT SUPPORT REQUIRES RESIDENT SVC OPTION (TRSVC) S*N2594000     *          INSERTED*
                              PECIFICATION AT SYSGEN TIME - HASP TERMINATED',MF=L RFIT N2596000     *          INSERTED*

               .NOINIT9 ANOP                                                      RFIT N2598000     *          INSERTED*
                        MVCL  R14,R0              MOVE PRT CKPT FROM CKPT REC.         N2739000     *          REPLACED*
               *        MVCL  R14,R0              MOVE PRT CKPT FROM CKPT REC.    RFIT N2739000     *       REPLACEMENT*

                        LR    R1,R0                                               RFIT N2739005     *          INSERTED*
               &PRCPRC  SETA  &NUMPRC*28  THIS VALUE MUST BE CHANGED IF PRT CKPT  RFIT N2739010     *          INSERTED*
               *                             IS EVER EXPANDED        .......CKPT  RFIT N2739011     *          INSERTED*
                        $XXC  MVC,(0,R14),(0,R1),&PRCPRC                          RFIT N2739015     *          INSERTED*
                        MVCL  R0,R14              CLEAR THE PRINT CHECKPOINT.          N3186000     *          REPLACED*
               *        MVCL  R0,R14              CLEAR THE PRINT CHECKPOINT.     RFIT N3186000     *       REPLACEMENT*
                        LR    R1,R0                                               RFIT N3186005     *          INSERTED*
                        $XXC  XC,(0,R1),(0,R1),&PRCPRC                            RFIT N3186010     *          INSERTED*
                        MVCL  R0,R14              MOVE PRT CKPT TO CKPT REC.           N4085000     *          REPLACED*
               *        MVCL  R0,R14              MOVE PRT CKPT TO CKPT REC.      RFOT N4085000     *       REPLACEMENT*
                        LR    R1,R0                                               RFOT N4085005     *          INSERTED*
                        $XXC  MVC,(0,R1),(0,R14),&PRCPRC                          RFIT N4085010     *          INSERTED*

                        AIF   (NOT &SYSVS2).NOINITH                               RFIT N4303100     *          INSERTED*
                        AGO   .NOINITI                                            RFIT N4306100     *          INSERTED*
               .NOINITH ANOP                                                      RFIT N4306200     *          INSERTED*
                       $ENABLE ALL                ALLOW INTERRUPTS MOMENTARY TO   RFIT N4306300     *          INSERTED*

                       $DISABLE ALL                PREVENT ENDLESS LOOP           RFIT N4306400     *          INSERTED*
                        TM    UCBFL2,X'A0'        IS THERE ACTIVITY ON DEVICE?    RFIT N4308000     *          INSERTED*
                        BNZ   NUREAL              ASSUME DEVICE IS REAL           RFIT N4310000     *          INSERTED*
               * TEST I/O TO SEPARATE PSEUDO DEVICES FROM REAL DEVICES            RFIT N4312000     *          INSERTED*
               *        ASSUME UNI-PROCESSOR SYSTEM                               RFIT N4314000     *          INSERTED*
               NURTIO   DS    0H                                                  RFIT N4328000     *          INSERTED*
                        TIO   0(WD)               IS UNIT ATTACHED TO SYSTEM?     RFIT N4330000     *          INSERTED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0030


                        BC    8,NUREAL            IF DEVICE IS AVAILABLE, ITS REALRFIT N4332000     *          INSERTED*
                        BC    4,NURTCSW           IF CSW STORED EXAMINE           RFIT N4334000     *          INSERTED*
                        BC    2,NURFND            REPEAT UNTIL BROKEN             RFIT N4336000     *          INSERTED*
               NURPSE   DS    0H                                                  RFIT N4338000     *          INSERTED*

               .NOINITI ANOP                                                      RFIT N4338100     *          INSERTED*
                        MVI   UCBATI,X'01'        SET HASP PSEUDO UCB FLAG        RFIT N4360000     *          INSERTED*
                        MVI   UCBATI,X'01'        SET HASP PSEUDO UCB FLAG        RFIT N4428100     *          INSERTED*

                        AIF   (&SYSVS2).NOINITJ                                   RFIT N4431900     *          INSERTED*
               * CSW STORED ON TEST I/O                                           RFIT N4432000     *          INSERTED*
               NURTCSW  TM    68,X'1C'            TEST FOR UNIT BUSY              RFIT N4434000     *          INSERTED*
                        BNZ   NURFND              TRY TEST AGAIN IF BUSY          RFIT N4436000     *          INSERTED*
               .NOINITJ ANOP                                                      RFIT N4436100     *          INSERTED*
                        MVI   UCBATI,X'24'        SET ATTENTION TABLE INDEX            N4578000     *          REPLACED*
               &TEMP    SETA  4                   ASSUME MFT/MVT/VS1 ATTN INDEX   RFIT N4578000     *       REPLACEMENT*
                        AIF   (NOT &SYSVS2).NOARDR1                               RFIT N4578100     *          INSERTED*
               &TEMP    SETA  X'24'               HASP AUTO READER INDEX          RFIT N4578200     *          INSERTED*
               .NOARDR1 MVI   UCBATI,&TEMP        SET ATTENTION TABLE INDEX       RFIT N4578300     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).NOPGALN                        RFIT N5201300     *          INSERTED*
               .NOPGALN ANOP                                                      RFIT N5204900     *          INSERTED*

                        AIF   (&SYSVS2).NOINITB                                   RFIT N5502000     *          INSERTED*
               ***************************************************************    RFIT N5504000     *          INSERTED*
               *              SET CON UCM PARAMETERS ACCORDING TO OS VINTAGE *    RFIT N5506000     *          INSERTED*
               ***************************************************************    RFIT N5508000     *          INSERTED*

                        L     WA,$CVTPTR          CVT ADDRESS                     RFIT N5510000     *          INSERTED*
                        LR    WB,WA                TO WB                          RFIT N5512000     *          INSERTED*
                        BCTR  WB,0                  CALCULATE                     RFIT N5514000     *          INSERTED*
                        BCTR  WB,0                   CVT                          RFIT N5516000     *          INSERTED*
                        BCTR  WB,0                    MINUS                       RFIT N5518000     *          INSERTED*
                        BCTR  WB,0                     FOUR                       RFIT N5520000     *          INSERTED*
                        L     WA,CVTCUCB-CVTDSECT(,WA) ADDRESS OF UCM             RFIT N5522000     *          INSERTED*
                        SR    WC,WC               ASSUME RELEASE PRIOR TO 20      RFIT N5524000     *          INSERTED*
                        CLI   0(WB),C'2'          TEST FOR RELEASE 2X             RFIT N5526000     *          INSERTED*
                        BNE   NNOTR20             BRANCH IF NOT                   RFIT N5528000     *          INSERTED*
                        LA    WC,4                SET FOR RELEASE 2X UCM          RFIT N5530000     *          INSERTED*
               NNOTR20  L     WB,=V(WUCMSVE3)     ADDRESS OF INTF UCM DATA AREA   RFIT N5532000     *          INSERTED*

               ***************************************************************    RFIT N5534000     *          INSERTED*
               *              WA = UCM, WB = CON, WC = RELEASE               *    RFIT N5536000     *          INSERTED*
               ***************************************************************    RFIT N5538000     *          INSERTED*

                        LA    WD,136(WA,WC)       ADDRESS OF UCM SAVE AREA        RFIT N5540000     *          INSERTED*
                        ST    WD,0(,WB)           SET UP CON DATA                 RFIT N5542000     *          INSERTED*
                        L     WD,60(WA,WC)        COMM TASK TCB                   RFIT N5544000     *          INSERTED*
                        ST    WD,4(,WB)           SETUP CON DATA                  RFIT N5546000     *          INSERTED*
                        LA    WD,68(WA,WC)        ADDRESS OF UCMVEA FIELD         RFIT N5548000     *          INSERTED*
                        ST    WD,8(,WB)           SET UP CON DATA                 RFIT N5550000     *          INSERTED*
                        IC    WD,64(WA,WC)        GET MODE FLAGS                  RFIT N5552000     *          INSERTED*
                        SPACE 1                                                        N5554000     *          REPLACED*
                        STC   WD,12(,WB)          SET CON DATA                    RFIT N5554000     *       REPLACEMENT*
                        L     WA,=V(XSTATUS)      SETUP HASP                      RFIT N5554200     *          INSERTED*
                        ST    WA,$STATENT          XSTATUS ROUTINE                RFIT N5554400     *          INSERTED*
               .NOINITB ANOP                                                      RFIT N5554800     *          INSERTED*

                        $DISABLE ALL              PREVENT INTERRUPTIONS           RFIT N5612000     *          INSERTED*
                        AIF   (&SYSMVT OR &SYSVS2).NOINIT5                        RFIT N5614000     *          INSERTED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0031



                        L     WA,$SVCTABR         WA = ADDRESS OF SVC REL TBL     RFIT N5616000     *          INSERTED*
                        L     WB,$SVCTABV         WB = ADDRESS OF SVC TBL ADCONS  RFIT N5618000     *          INSERTED*
                        SR    WC,WC               CLEAR REGISTER                  RFIT N5620000     *          INSERTED*
                        IC    WC,11(WA)           WC = SVC 11 (TIME) REL INDEX    RFIT N5622000     *          INSERTED*
               NSVCHECK LA    WD,0(WC,WC)         WD = 2*WC                       RFIT N5624000     *          INSERTED*
               NSVCSW   AR    WD,WD               SET WD = 4*WC                   RFIT N5626000     *          INSERTED*
                        LA    WB,1(,WB)           OFFSET SVC TABLE ORIGIN         RFIT N5628000     *          INSERTED*
                        AR    WD,WB               ADD ADDRESS OF SVC TABLE        RFIT N5630000     *          INSERTED*
                        CLC   0(3,WD),$TIMENT+1   DOES TIME ENTRY MATCH?          RFIT N5632000     *          INSERTED*
                        BE    NSVCSET             BRANCH IF MATCH                 RFIT N5634000     *          INSERTED*
                        LA    R1,NOMFTMCS         ADDRESS OF ERROR MESSAGE        RFIT N5636000     *          INSERTED*
                        B     NQUIKOUT            ABORT HASP                      RFIT N5638000     *          INSERTED*

               NSVCSET  NULL                                                      RFIT N5640000     *          INSERTED*
                        IC    WC,1(WA)            WC = SVC 1 (WAIT) REL INDEX     RFIT N5656000     *          INSERTED*
                        LA    WD,0(WC,WC)         WD = 2*2C                       RFIT N5658000     *          INSERTED*
                        EX    0,NSVCSW            WD = 3*WC OR 4*WC               RFIT N5660000     *          INSERTED*

                        AR    WD,WB               ADD ADDRESS OF SVC TABLE        RFIT N5662000     *          INSERTED*
                        MVC   $WAITENT+1(3),0(WD) SAVE ENTRY POINT TO WAIT(IGC001)RFIT N5664000     *          INSERTED*
                        IC    WC,6(WA)            WC = SVC 6 (LINK) REL INDEX     RFIT N5666000     *          INSERTED*
                        LA    WD,0(WC,WC)         WD = 2*WC                       RFIT N5668000     *          INSERTED*
                        EX    0,NSVCSW            WD = 3*WC OR 4*WC               RFIT N5670000     *          INSERTED*
                        AR    WD,WB               ADD ADDRESS OF SVC TABLE        RFIT N5672000     *          INSERTED*
                        ST    WD,$SVCLINK         SAVE LINK SVC TABLE ENTRY ADDR  RFIT N5674000     *          INSERTED*
                        MVC   $LINKENT+1(3),0(WD) SAVE ENTRY POINT TO LINK(IGC006)RFIT N5676000     *          INSERTED*
                        MVC   0(3,WD),NLINKSVC+1  SET ENTRY POINT TO HASP LINK    RFIT N5678000     *          INSERTED*
                        LA    WC,7                WC = SVC TYPE MASK              RFIT N5680000     *          INSERTED*
                        N     WC,$LINKENT         ISOLATE SVC TYPE BITS           RFIT N5682000     *          INSERTED*
                        EX    WC,NSVCOI           ADD SVC TYPE TO NEW ADDRESS     RFIT N5684000     *          INSERTED*

                        STC   WC,*+L'*+1          REMOVE SVC TYPE BITS            RFIT N5686000     *          INSERTED*
                        XI    $LINKENT+3,*-*       FROM OLD ADDRESS               RFIT N5688000     *          INSERTED*
                        IC    WC,7(WA)            WD = SVC 7 (XCTL) REL INDEX     RFIT N5690000     *          INSERTED*

                        LA    WD,0(WC,WC)         WD = 2*WC                       RFIT N5692000     *          INSERTED*
                        EX    0,NSVCSW            WD = 3*WC OR 4*WC               RFIT N5694000     *          INSERTED*
                        AR    WD,WB               ADD ADDRESS OF SVC TABLE        RFIT N5696000     *          INSERTED*
                        ST    WD,$SVCXCTL         SAVE XCTL SVC TABLE ENTRY ADDR  RFIT N5698000     *          INSERTED*
                        MVC   $XCTLENT+1(3),0(WD) SAVE ENTRY POINT TO XCTL(IGC007)RFIT N5700000     *          INSERTED*
                        MVC   0(3,WD),NXCTLSVC+1  SET ENTRY POINT TO HASP XCTL    RFIT N5702000     *          INSERTED*
                        LA    WC,7                WC = SVC TYPE MASK              RFIT N5704000     *          INSERTED*
                        N     WC,$XCTLENT         ISOLATE SVC TYPE BITS           RFIT N5706000     *          INSERTED*
                        EX    WC,NSVCOI           ADD SVC TYPE TO NEW ADDRESS     RFIT N5708000     *          INSERTED*
                        STC   WC,*+L'*+1          REMOVE SVC TYPE BITS            RFIT N5710000     *          INSERTED*
                        XI    $XCTLENT+3,*-*       FROM OLD ADDRESS               RFIT N5712000     *          INSERTED*
                        IC    WC,35(,WA)          WC = SVC 35 RELOCATION INDEX    RFIT N5714000     *          INSERTED*

                        LA    WD,0(WC,WC)         WD = 2*WC                       RFIT N5716000     *          INSERTED*
                        AR    WD,WD               WD = 4*WC                       RFIT N5718000     *          INSERTED*
                        AR    WD,WB               WD = SVC 35 TABLE ENTRY         RFIT N5720000     *          INSERTED*
                        BCTR  WD,0                SET WD TO ADDRESS OF BYTE 1     RFIT N5722000     *          INSERTED*

                        MVC   $SVCWTO(4),0(WD)    SAVE ENTRY FOR GRACEFUL TERM    RFIT N5724000     *          INSERTED*
                        MVC   1(3,WD),NHASPXIO+1  SET ENTRY TO HASP AND           RFIT N5726000     *          INSERTED*
                        MVI   0(WD),X'FF'          DISGUISE AS RESIDENT TYPE 3    RFIT N5728000     *          INSERTED*
                        OI    3(WD),X'06'           AND REQUEST ESA = 48 BYTES    RFIT N5730000     *          INSERTED*
                        IC    WC,36(,WA)          WC =SVC 36 RELOCATION INDEX     RFIT N5732000     *          INSERTED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0032


                        LA    WD,0(WC,WC)         WD = 2*WC                       RFIT N5734000     *          INSERTED*
                        AR    WD,WD               WD = 4*WC                       RFIT N5736000     *          INSERTED*
                        AR    WD,WB               WD = SVC 36 TABLE ENTRY         RFIT N5738000     *          INSERTED*
                        BCTR  WD,0                SET WD TO ADDRESS OF BYTE 1     RFIT N5740000     *          INSERTED*
                        MVC   $SVCWTL(4),0(WD)    SAVE ENTRY FOR GRACEFUL TERM    RFIT N5742000     *          INSERTED*
                        MVC   1(3,WD),NHASPXIO+1  SET ENTRY TO HASP AND           RFIT N5744000     *          INSERTED*

                        MVI   0(WD),X'FF'          DISGUISE AS RESIDENT TYPE 3    RFIT N5746000     *          INSERTED*
                        OI    3(WD),X'06'           AND REQUEST ESA = 48 BYTES    RFIT N5748000     *          INSERTED*
                        AGO   .NOINIT6                                            RFIT N5750000     *          INSERTED*

               .NOINIT5 AIF   (&SYSVS2).NOINIT7                                   RFIT N5752000     *          INSERTED*
               NSVCMVT  L     WA,$SVCTABV         WA = ADDRESS OF SVC TABLE       RFIT N5754000     *          INSERTED*
                        ST    WA,$SVCIOS          SAVE EXCP SVC TABLE ENTRY ADDR  RFIT N5756000     *          INSERTED*
                        MVC   $WAITENT,1*4(WA)    SAVE ENTRY POINT TO WAIT        RFIT N5762000     *          INSERTED*
                        MVC   $LINKENT,6*4(WA)    SAVE ENTRY POINT TO LINK        RFIT N5764000     *          INSERTED*
                        MVC   6*4+1(3,WA),NLINKSVC+1   SET ENTRY POINT TO LINK    RFIT N5766000     *          INSERTED*
                        MVC   $XCTLENT,7*4(WA)    SAVE ENTRY POINT TO XCTL        RFIT N5768000     *          INSERTED*
                        MVC   7*4+1(3,WA),NXCTLSVC+1   SET ENTRY POINT TO XCTL    RFIT N5770000     *          INSERTED*
                        MVC   $SVCWTO,35*4(WA)    SAVE WTO/WTOR SVC TABLE ENTRY   RFIT N5772000     *          INSERTED*
                        MVC   35*4(4,WA),NWTOLSVC SET WTO/WTOR EXIT TO $WTOXIT    RFIT N5774000     *          INSERTED*
                        MVI   35*4(WA),X'80'      MAKE IT LOOK LIKE TYPE 2 SVC    RFIT N5776000     *          INSERTED*
                        MVC   $SVCWTL,36*4(WA)    SAVE WTL SVC TABLE ENTRY        RFIT N5778000     *          INSERTED*

                        MVC   36*4(4,WA),NWTOLSVC SET WTL EXIT TO $WTOXIT         RFIT N5780000     *          INSERTED*
                        MVI   36*4(WA),X'80'      MAKE IT LOOK LIKE TYPE 2 SVC    RFIT N5782000     *          INSERTED*
               .NOINIT6 AIF   (NOT &AUTORDR).NOBAA1                               RFIT N5784000     *          INSERTED*
                        L     R1,$ATTNENT         ADDRESS OF IEEBA1               RFIT N5786000     *          INSERTED*

                        MVC   $ATTNSAV(12),0(R1)  SAVE FIRST 12 BYTES             RFIT N5788000     *          INSERTED*
                        MVC   0(12,R1),NOVERLAY   SETUP ENTRY TO HASP             RFIT N5790000     *          INSERTED*
               .NOBAA1  ANOP                                                      RFIT N5792000     *          INSERTED*
               .NOINIT7 ANOP                                                      RFIT N5794000     *          INSERTED*
                        $ENABLE ALL               ALLOW INTERRUPTIONS             RFIT N5796000     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSVS1).NOINIT1                        RFIT N6038100     *          INSERTED*
               .NOINIT1 ANOP                                                      RFIT N6044100     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSVS1).NOINIT2                        RFIT N6050100     *          INSERTED*
               .NOINIT2 ANOP                                                      RFIT N6056100     *          INSERTED*
                        AIF   (&SYSMVT OR &SYSVS2).NOINIT3                        RFIT N6154000     *          INSERTED*
               NSTRDRV  DC    0F'0',AL2(15,0),CL22'S INIT.ALL'                    RFIT N6156000     *          INSERTED*
               NSTINITV DC    0F'0',AL2(20,0),CL27'S HOSRDR.S,&RDR'               RFIT N6158000     *          INSERTED*

                        AGO   .NOINIT4                                            RFIT N6160000     *          INSERTED*
               .NOINIT3 ANOP                                                      RFIT N6162000     *          INSERTED*
               .NOINIT4 ANOP                                                      RFIT N6168100     *          INSERTED*

               NSVCOI   OI    2(WD),*-*           INSTRUCTION TO ADD SVC TYPE     RFIT N6173100     *          INSERTED*
                        AIF   (&SYSVS1 OR &SYSVS2).NOINITC                        RFIT N6208100     *          INSERTED*
                        LR    R14,WB              GET TOTAL                       RFIT N6208200     *          INSERTED*
                        SRDL  R14,32               SIZE INTO WD-WE                RFIT N6208300     *          INSERTED*
                        D     R14,NBUFSIZ         COMPUTE NUMBER OF BUFFERS       RFIT N6208400     *          INSERTED*
                        LR    WB,R15              PUT IT INTO WB                  RFIT N6208500     *          INSERTED*
                        SR    WC,R14              FREE THE RESIDUAL MEMORY        RFIT N6208600     *          INSERTED*
                        AGO   .NOINITD                                            RFIT N6208700     *          INSERTED*
               .NOINITC ANOP                                                      RFIT N6208800     *          INSERTED*
               .NOINITD ANOP                                                      RFIT N6212100     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).NOINITE                        RFIT N6372100     *          INSERTED*
                        SRL   R1,12                 DIVIDED BY 4K                      N6372600     *          REPLACED*

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0033


                        SRL   R1,12-&SYSVS1         DIVIDED BY PAGE SIZE          RFIT N6372600     *       REPLACEMENT*
                        SRL   R0,12                DIVIDED BY 4K                       N6373000     *          REPLACED*
                        SRL   R0,12-&SYSVS1        DIVIDED BY PAGE SIZE           RFIT N6373000     *       REPLACEMENT*

                        SLL   R1,12               USE ADDR OF NEXT 4K PAGE             N6373600     *          REPLACED*
                        SLL   R1,12-&SYSVS1        USE ADDR OF NEXT PAGE          RFIT N6373600     *       REPLACEMENT*
               .NOINITE ANOP                                                      RFIT N6373900     *          INSERTED*
               &TEMP    SETA  4                   VS2 PAGE SIZE (/K)              RFIT N6382100     *          INSERTED*
                        AIF   (&SYSVS2).NOINITF                                   RFIT N6382200     *          INSERTED*
               &TEMP    SETA  2                   VS1 PAGE SIZE (/K)              RFIT N6382300     *          INSERTED*
               .NOINITF ANOP                                                      RFIT N6382400     *          INSERTED*
               NBUFSIZ  DC    A(&BUFSIZE+88)      BUFFER MEMORY REQUIREMENTS      RFIT N6382500     *          INSERTED*
               NIBLDRES DC    A((&RESCORE+3)/4*4096)  RESERVED CORE SIZE               N6386000     *          REPLACED*
               NIBLDRES DC    A((&RESCORE+&TEMP-1)/&TEMP*&TEMP*1024) RESERVED MEM RFIT N6386000     *       REPLACEMENT*
               NMCORE   DC    A(4096,4096*256)    VARIABLE GETMAIN PARAMETERS          N6388000     *          REPLACED*
               NMCORE   DC    A(1*&TEMP*1024,512*&TEMP*1024)                      RFIT N6388000     *       REPLACEMENT*

               NUMBUFPG DC    Y(4096/((&BUFSIZE+BUFSTART-BUFDSECT+7)/8*8))             N6390000     *          REPLACED*
               NUMBUFPG DC    Y(&TEMP*1024/((&BUFSIZE+BUFSTART-BUFDSECT+7)/8*8))  RFIT N6390000     *       REPLACEMENT*
                        AIF   (&SYSVS2).NOINIT8                                   RFIT N6440100     *          INSERTED*

               NOVERLAY DS    0F                  *                               RFIT N6440200     *          INSERTED*
                        L     R1,8(0,R15)         THIS CODE OVERLAYS              RFIT N6440300     *          INSERTED*
                        B     0(0,R1)              THE FIRST 12 BYTES             RFIT N6440400     *          INSERTED*
                        DC    V($ATTNXIT)           OF IEEBA1                     RFIT N6440500     *          INSERTED*
               NWTOLSVC DC    V($WTOXIT)          HASP WTO/WTL EXIT               RFIT N6440600     *          INSERTED*
               NLINKSVC DC    V($LINKXIT)         HASP LINK EXIT                  RFIT N6440700     *          INSERTED*
               NXCTLSVC DC    V($XCTLXIT)         HASP XCTL EXIT                  RFIT N6440800     *          INSERTED*
               .NOINIT8 ANOP                                                      RFIT N6440900     *          INSERTED*
                        DC    C'INTF',V(HASPINTF)                                 RFIT N6516100     *          INSERTED*
IEB816I MEMBER NAME (HASPINIT) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0034


       ./       ADD   NAME=HASPINTF

       INTF     TITLE 'HASP OS INTERFACE MODULE'                               K0002000
                PRINT OFF                 FOR $GLOBAL                          K0004000
                COPY  $GLOBAL                                                  K0006000
                PRINT ON                                                       K0008000

                SPACE 6                                                        K0010000
       HASPINTF START 0                   HASP OS INTERFACE MODULE             K0012000
                SPACE 3                                                        K0014000
                PRINT OFF                 FOR $HASPGEN                         K0020000
                COPY  $HASPGEN                                                 K0022000
                PRINT ON                                                       K0024000
                TITLE 'HASP CONTROL BLOCKS'                                    K0026000
                AIF   (&SYSVS2).KNOINTF                                        K0028000
               $HASPCB HCT,CVT,UCB,DCT,DCB,DEB,TCB,RB,BUFFER,PCE,             *K0030000
                      XEQWORK,                                                *K0032000
                      DOC=NO                                                   K0034000
                AIF   (NOT &AUTORDR).KNOARDR                                   K0036000

                TITLE 'HASP ATTENTION APPENDAGE'                               K0038000
       *        THE FOLLOWING ROUTINE FUNCTIONS AS AN IOS APPENDAGE.           K0040000
       *        REGISTER 7 CONTAINS THE UCB ADDRESS AT ENTRANCE AND            K0042000

       *        R14 CONTAINS THE RETURN ADDRESS.                               K0044000
       *                                                                       K0046000
                ENTRY $ATTNXIT                                                 K0048000
                USING $ATTNXIT,R1                                              K0050000
                USING UCBDSECT,R7                                              K0052000
       $ATTNXIT L     R1,WUCMSVE3         ADDRESS OF UCM SAVE AREA             K0054000
                STM   R0,R15,0(R1)        SAVE ALL REGISTERS IN UCM            K0056000
                LR    R10,R1              PRESERVE UCM SAVE AREA ADDRESS       K0058000
                DROP  R1                                                       K0060000
                BALR  R15,0               ESTABLISH LOCAL                      K0062000
                USING *,R15                ADDRESSIBILITY                      K0064000
                L     BASE1,APPBASE1      SET UP BASE1 ADDRESSIBILITY          K0066000

                CLI   UCBTBYT4,X'20'      TEST UCB TYPE                        K0068000
                BE    ANOTRDR             BRANCH IF 1052 CONSOLE               K0070000
                LA    R0,&NUMRDRS         R0 = NUMBER OF READERS               K0072000

                L     R14,$DCTPOOL        R14 = FIRST READER DCT ADDRESS       K0074000
                USING DCTDSECT,R14        ESTABLISH DCT ADDRESSIBILITY         K0076000
       ANEXTRDR L     R13,DCTDCB          R13 = DCB ADDRESS                    K0078000
                L     R13,DCBDEBAD-DCBDSECT(,R13) R13 = DEB ADDRESS            K0080000
                CH    R7,DEBUCBAD+2-DEBDSECT(,R13) COMPARE UCB ADDRESSES       K0082000
                BE    ASTRTRDR            BRANCH IF UCB ADDRESS MATCH          K0084000
                L     R14,DCTCHAIN        R14 = NEXT READER DCT ADDRESS        K0086000
                BCT   R0,ANEXTRDR         CHECK NEXT DCT                       K0088000
                B     ANOTRDR             NOT FOUND, CALL IIIBA1               K0090000
       ASTRTRDR NI    DCTSTAT,255-DCTHOLD TURN OFF HOLD BIT IN DCT             K0092000
                DROP  R14                                                      K0094000
               $POST  $HASPECF,UNIT       $POST MASTER EVENT CONTROL FIELD.    K0096000

       APENPOST NULL                                                           K0098000
                MVC   AHASPTCB,$HASPTCB    POST                                K0100000
                LA    R14,$HASPECB        FETCH ADDRESS OF ECB TO BE POSTED    K0102000
                ST    R14,AHASPECB          STORE INTO PARM LIST               K0104000

                LM    R15,R0,AADDCONS     GO                                   K0106000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0035


                BALR  R14,R15               HASP                               K0108000
       APPENRET LM    R0,R15,0(R10)       RESTORE ALL REGISTERS                K0110000
                BR    R14                 RETURN TO IOS                        K0112000
                DROP  R7                                                       K0114000
       ANOTRDR  LM    R0,R15,0(R10)       RESTORE ALL REGISTERS                K0116000
                L     R1,$CVTPTR           CVT ADDRESS                         K0118000
                L     R1,CVTCUCB-CVTDSECT(,R1) UCM ADDRESS                     K0120000
                B     14(,R15)            RETURN TO IEEBA1 PROCESSING          K0122000
       APPBASE1 DC    V(HASP)             ADDRESSIBILITY BASE                  K0124000
       AADDCONS DC    A($POSTECB)         ADDRESS OF POST ROUTINE              K0126000

                DC    A(*+4)              PARAMETER POINTER                    K0128000
                DC    A(0)                COMPLETION CODE                      K0130000
       AHASPECB DC    A(*-*)              HASP ECB ADDRESS                     K0132000

       AHASPTCB DC    A(*-*)              SET TO HASP TCB ADDRESS              K0134000
                DROP  R15                                                      K0136000
       .KNOARDR ANOP                                                           K0138000
                TITLE 'HASP STATUS ROUTINE'                                    K0312000
       ***************************************************************         K0314000
       *                                                             *         K0316000
       * TITLE - HASP STATUS ROUTINE                                 *         K0318000
       *                                                             *         K0320000
       * FUNCTION/OPERATION -                                        *         K0322000
       *        THIS ROUTINE GETS CALLED IN NON-VS2 SYSTEMS INSTEAD  *         K0324000
       *  OF THE STATUS SVC.  IF IT IS BEING USED TO COOL THE TASK,  *         K0326000
       *  THEN IT ASSUMES R2 POINTS TO THE IOB OF THE ISSUER OF THE  *         K0328000

       *  PSEUDO EXCP.  XSTATUS THEN USES THE ECB POINTED TO BY THE  *         K0330000
       *  IOB TO MAKE THE CALLER WAIT.  THE TCBPCEND FLAG IS SET TO  *         K0332000
       *  SHOW THAT THE TASK HAS BEEN COOLED BY HASP.  IF XSTATUS    *         K0334000
       *  HAS BEEN USED TO WARM A JOB, THEN IT WILL RUN THE TCBS     *         K0336000

       *  AND POST ANY TASK WHICH IS PART OF THE JOBSTEP AND HAS     *         K0338000
       *  THE TCBPCEND FLAG SET.  THE ECB WILL BE LOCATED THROUGH    *         K0340000
       *  THE IOB WHICH REGISTER R1 (IN TCBGRS) ADDRESSES.           *         K0342000
       *                                                             *         K0344000
       *                                                             *         K0346000
       ***************************************************************         K0348000
                SPACE 3                                                        K0350000
                ENTRY XSTATUS                                                  K0352000
                USING XSTATUS,R15                                              K0354000
       XSTATUS  STM   R0,R15,STATSAVE     SAVE ALL REGISTERS                   K0356000
                LR    BASE2,R15                                                K0358000
                DROP  R15                                                      K0360000

                USING XSTATUS,BASE2                                            K0362000
                CLI   STATSAVE+3,X'0C'    HASP FREEZE?                         K0364000
                BNE   STATWARM            BIF NOT                              K0366000

                LR    R4,R1               BE SURE TO USE ARGUMENT              K0368000
                USING BUFDSECT,R2         $EXCPSVC REGISTER                    K0370000
                L     R1,IOBECBCC         ECB ADDR                             K0372000
                DROP  R2                                                       K0374000
                LA    R0,1                WAIT COUNT                           K0376000
                LA    R1,0(R1)            ZERO HIGH ORDER BYTE                 K0378000
                L     R3,$CVTPTR          SET UP FAKE SVC FLIH INFO       RFIT K0380000
                L     R15,$WAITENT        ADDRESS OF WAIT ROUTINE              K0384000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0036


                NI    0(R1),X'3F'         TURN OFF WAIT AND POST BITS          K0386000
                USING TCBDSECT,R4                                              K0388000
                L     R5,TCBRBP           SET UP FAKE SVC FLIH INFO       RFIT K0388200

                OI    TCBPCE,TCBPCEND     SHOW HASP NON-DISPATCHABILITY        K0390000
                DROP  R4                                                       K0392000
                BALR  R14,R15             ENTER WAIT                           K0394000
                USING *,R14               R14 WAS RETURN                       K0396000

                LM    R0,R15,STATSAVE     RESTORE REGISERS                     K0398000
                BR    R14                                                      K0400000
                DROP  R14                                                      K0402000
                SPACE 3                                                        K0404000
       STATWARM L     R3,$CVTPTR                                               K0406000
                USING CVTDSECT,R3                                              K0408000
                LA    R5,CVTHEAD-(TCBTCB-TCBDSECT) TREAT CVT AS 1ST TCB        K0410000
                USING TCBDSECT,R5                                              K0412000
       STATWRM1 L     R5,TCBTCB                                                K0414000
                LA    R5,0(R5)            CLEAR                                K0416000
                LTR   R5,R5               TEST FOR END                         K0418000
                BZ    STATWRM2            BIF END                              K0420000

                CLC   STATSAVE+5(3),TCBJSTCB+1 SAME JOB STEP?             RFIT K0422000
                BNE   STATWRM1            BIF NOT                              K0424000
                TM    TCBPCE,TCBPCEND     COOLED BY HASP?                      K0426000

                BZ    STATWRM1            BIF NOT                              K0428000
                AIF   (&SYSMVT).KNOMFT3                                   RFIT K0429000
                L     R7,TCBGRS+28        FETCH R1 FROM TCB SAVEAREA           K0430000
                AGO   .KNOMFT4                                            RFIT K0430500
       .KNOMFT3 L     R7,TCBGRS+4         FETCH R1 FROM TCB SAVEAREA      RFIT K0431000
       .KNOMFT4 ANOP                                                      RFIT K0431500
                L   R14,TCBRBP            GET TCB RBLINK ADDRESS          RFIT K0431510
                TM    10(R14),X'C0'       IRB OR SIRB?                    RFIT K0431520
                BNM   RBOK                NO - USE TCB REGS               RFIT K0431530
                L     R7,36(,R14)         YES - USE RB REGS               RFIT K0431540
       RBOK     NULL                                                      RFIT K0431550
                LA    R7,0(R7)                                                 K0432000

                CL    R7,CVTMZ00          TOO LARGE?                           K0434000
                BNL   STATWRM1            BIF TOO LARGE                        K0436000
                NI    TCBPCE,255-TCBPCEND CLEAR FLAG                           K0438000
                L     R7,IOBECBCC-BUFDSECT(R7) TO GET TO ECB                   K0440000

                ST    R7,STATPARM+4       ECB ADDR                             K0442000
                ST    R5,STATPARM+8       TCB ADDR                             K0444000
                LA    R0,STATPARM         FIREUP                               K0446000
                LA    R15,$POSTECB                                             K0448000
                BALR  R14,R15             POST TASK                            K0450000
                B     STATWRM1            LOOP                                 K0452000
       STATWRM2 LM    R0,R15,STATSAVE                                          K0454000
                BR    R14                                                      K0456000
                SPACE 3                                                        K0458000
       STATSAVE DS    16F                                                      K0460000
       STATPARM DC    F'0'                COMPLETION CODE                      K0462000
                DC    F'0'                ECB ADDRESS                          K0464000

                DC    F'0'                TCB ADDRESS                          K0466000
                DROP  BASE2                                                    K0470000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0037



                DROP  R5,R3                                                    K0472000
                TITLE 'HASP WTO/WTOR/WTL ENTRY POINT'                          K0474000
       **************************************************************          K0476000
       *                                                             *         K0478000
       *        HASP SVC 35 EXIT 1 AND SVC 36 INTERFACE ROUTINE      *         K0480000
       *                                                             *         K0482000
       * FUNCTION/PURPOSE                                            *         K0484000
       *                                                             *         K0486000
       *        THIS ROUTINE GETS CONTROL FROM THE SLIH FOR SVCS     *         K0488000
       *        35 & 36 AND CALLS $WTOSVC.  UPON RETURN, R15= 0      *         K0490000
       *        INDICATES CONTINUE SVC 35/36 PROCESSING AND R15 = 4  *         K0492000
       *        MEANS TO IGNORE THE MESSAGE.                         *         K0494000

       *                                                             *         K0496000
       *  REGISTER CONTENT ON ENTRY FROM SVC SLIH..                  *         K0498000
       *                                                             *         K0500000
       *                             REG  CONTENTS                   *         K0502000

       *                             ---  --------                   *         K0504000
       *                             R1   INPUT ADDRESS              *         K0506000
       *                             R3   CVT ADDRESS                *         K0508000
       *                             R4   TCB ADDRESS                *         K0510000
       *                             R5   SVRB ADDRESS               *         K0512000
       *                             R14  RETURN ADDRESS             *         K0514000
       *                                                             *         K0516000
       **************************************************************          K0518000
                SPACE 2                                                        K0520000
       ***************************************************************         K0522000
       *              ENTRY POINT                                    *         K0524000
       ***************************************************************         K0526000

                SPACE 2                                                        K0528000
                USING TCBDSECT,R4         ESTABLISH TCB ADDRESSABILITY         K0530000
                USING RBDSECT,R5          ESTABLISH RB ADDRESSABILITY          K0532000

                SPACE 2                                                        K0536000
                ENTRY $WTOXIT                                                  K0538000
       $WTOXIT  DS    0D                  DOUBLE WORD BOUNDRY FOR SVC TBL RFIT K0540000
                BALR  R2,0                TEMP                            RFIT K0540010
                USING *,R2                ADDRESSABILITY                  RFIT K0540020
                LM    BASE1,BASE2,XBASCON1 NOW USE STD HASP ADDRESSABILITYRFIT K0540030
                DROP  R2                                                  RFIT K0540040
                USING $WTOXIT,BASE2                                       RFIT K0540050
                SPACE 3                                                        K0542000
       WTOMTST  NULL                                                           K0544000
                L     R9,RBLINK           SET R9 = NEXT RB ADDRESS             K0546000
                STM   R14,R1,WXSAVE(R5)   SAVE PARAMETER REGISTERS             K0548000

                TM    WXSAVE+12(R5),X'FF' TEST INPUT ADDRESS DISPOSITION       K0550000
                BO    WTXXIT               AND LET OS HAVE IT IF NEGATIVE      K0552000
                LR    R15,R1                                                   K0554000
                CLI   0(R1),0             TEST MESSAGE TYPE (WTO/WTOR)         K0556000

                BE    WTXPROC             BRANCH IF WTO MESSAGE                K0558000
                LA    R15,8(,R1)          POINT TO MESSAGE LENGTH FIELD        K0560000
       WTXPROC  CLI   1(R15),4            TEST FOR ZERO LENGTH MESSAGE         K0562000
                BNH   WTXXIT              BRANCH IF ZERO LENGTH                K0564000
                L     R15,WTXADDR         GET ADDRESS OF $WTOSVC               K0566000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0038


                BALR  R14,R15             CALL HASP EXIT                       K0568000
                LTR   R15,R15             TEST RC                              K0570000
                BZ    WTXXIT              BIF MESSAGE TO BE DISPLAYED          K0572000
                SVC   3                    ELSE IGNORE MESSAGE                 K0574000
       WTXXIT   LM    R14,R1,WXSAVE(R5)   RESTORE PARAMETERS                   K0576000
                CLI   RBOPSW+3-RBDSECT(R9),35 TEST FOR WTO(R) OR WTL           K0578000

                BE    WTOXSET             BRANCH IF WTO(R)                     K0580000
               $TRACE                                                          K0582000
                MVC   WXAXNM(8,R5),WTLFLNM SETUP FOR XCTL TO WTL               K0584000

                B     WTOXCTL             GO TO XCTL PROCEDURE                 K0586000
       ***************************************************************         K0588000
       *              XCTL TO REAL FIRST LOAD OF SVC 35 OR 36        *         K0590000
       ***************************************************************         K0592000
       WTOXSET  DS    0H                                                       K0594000
               $TRACE                                                          K0596000
                MVC   WXAXNM(8,R5),WTOFLNM SETUP XCTL TO WTO FIRST LOAD        K0598000
       WTOXCTL  SR    R15,R15             CLEAR                                K0600000
                ST    R15,WXADCB(,R5)      DCB                                 K0602000
                LA    R15,WXAXNM(,R5)     ADDRESS OF ENTRY POINT NAME          K0604000
                ST    R15,WXAPTR(,R5)     STORE IN XSA FIELD                   K0606000
                LA    R15,WXAPTR(,R5)     XCTL PARAMETER LIST                  K0608000

                XCTL  SF=(E,(15))         GO TO FIRST LOAD                     K0610000
                SPACE 2                                                        K0612000
       WTXADDR  DC    V($WTOSVC)          HASP WTO/WTL EXIT                    K0614000

       WTOFLNM  DC    CL8'IGC0003E'       SVC 35 FIRST LOAD NAME               K0616000
       WTLFLNM  DC    CL8'IGC0003F'       SVC 36 FIRST LOAD NAME               K0618000
       XBASCON1 DC    V(HASP),A($WTOXIT)  BASE1 AND BASE2 ADDRESSES            K0618100
       ***************************************************************         K0620000
       *              SVRB EXTENDED SAVE AREA DEFINITION             *         K0622000
       ***************************************************************         K0624000
                SPACE 2                                                        K0626000
       WXSAVE   EQU   RBEXSAV-RBDSECT     ORIGIN OF SVRB EXTENDED SAVE AREA    K0628000
       WXAPTR   EQU   WXSAVE              POINTER TO XCTL NAME                 K0630000
       WXADCB   EQU   WXSAVE+4            DCB POINTER (SET TO 0)               K0632000
       WXAXNM   EQU   WXSAVE+8            XCTL NAME                            K0634000
       WXSVRX   EQU   WXSAVE+16           R0, R1 SAVE IF FORCED WAIT           K0636000

       ***************************************************************         K0638000
       *              UCM DATA (SET BY INITIALIZATION) AND EQUATES   *         K0640000
       ***************************************************************         K0642000
                ENTRY WUCMSVE3                                                 K0644000

                SPACE 1                                                        K0646000
       WUCMSVE3 DC    A(*-*)              ADDRESS OF UCM SAVE AREA             K0648000
       WUCMSTCB DC    A(*-*)              COMMUNICATIONS TASK TCB              K0650000
       WUCMVEA  DC    A(*-*)              ADDRESS OF UCMVEA FIELD              K0652000
       WUCMMODE DC    AL1(*-*)            CONTENTS OF MODE FLAG BYTE           K0654000
                SPACE 2                                                        K0656000
       WUCMMCS  EQU   X'02'               MCS AUTHORIZATION FLAG FIELD         K0658000
       WUCMID   EQU   X'1A'               UCMID FIELD IN EACH UCM ENTRY        K0660000
       WUCMAUTH EQU   X'28'               AUTHORIZATION CODE FIELD             K0662000
                DROP   BASE2                                                   K0664000
                TITLE 'HASP LINK/XCTL INTERFACE'                               K0666000
       *                                                                       K0668000

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0039


       *              SVC INTERCEPT ROUTINES (LINK AND XCTL)                   K0670000
       *                                                                       K0672000

                SPACE 2                                                        K0674000
                ENTRY $LINKXIT                                                 K0676000
       $LINKXIT DS    0D                  LINK (SVC 6) INTERCEPT ROUTINE       K0678000
                BALR  R7,0                ESTABLISH                            K0680000
                USING *,R7                 TEMPORARY ADDRESSABILITY            K0682000
                L     R6,XHASPBAS         GET ADDRESS OF                       K0684000
                L     R6,$LINKENT-HCTDSECT(,R6) ENTRY TO LINK (IGC006)         K0686000
                B     XSVCSRCH            GO TO COMMON CODE                    K0688000
                SPACE 3                                                        K0690000
                ENTRY $XCTLXIT                                                 K0692000
       $XCTLXIT DS    0D                  XCTL (SVC 7) INTERCEPT ROUTINE       K0694000
                BALR  R7,0                ESTABLISH                            K0696000

                USING *,R7                 TEMPORARY ADDRESSABILITY            K0698000
                L     R6,XHASPBAS         GET ADDRESS OF                       K0700000
                L     R6,$XCTLENT-HCTDSECT(,R6) ENTRY TO XCTL (IGC007)         K0702000
                SPACE 3                                                        K0704000

       XSVCSRCH BALR  R7,0                ESTABLISH                            K0706000
                USING *,R7                 ADDRESSABILITY                      K0708000
                L     R8,0(R15)           R8 = ADDRESS OF EBCDIC MODULE NAME   K0710000
                LA    R9,XSVCTABL         R9 = ADDRESS OF NAME TABLE           K0712000
                LA    R10,(XSVCTEND-XSVCTABL)/12    R10 = TABLE LENGTH         K0714000
       XSVCSCH1 CLC   0(8,R8),0(R9)       SEARCH                               K0716000
                BE    XSVCSCH2             FOR                                 K0718000
                LA    R9,12(R9)             MATCHING                           K0720000
                BCT   R10,XSVCSCH1           NAME                              K0722000
                BR    R6                  NOT FOUND, EXIT                      K0724000
       XSVCSCH2 STM   R13,R7,XSVCSAVE     SAVE REGISTERS                       K0726000
                L     R15,8(R9)           GET APPENDAGE ADDRESS                K0728000

               $TRACE                                                          K0730000
                BALR  R14,R15             ENTER APPENDAGE                      K0732000
                USING *,R14               ESTABLISH TEMPORARY ADDRESSABILITY   K0734000

                LM    R13,R7,XSVCSAVE     RESTORE REGISTERS                    K0736000
                BR    R6                   AND EXIT                            K0738000
                DROP  R7,R14              KILL ADDRESSABILITY                  K0740000
       XHASPBAS DC    V(HASP)             ADDRESS OF HASP COMMUNICATION TABLE  K0742000
                SPACE 3                                                        K0744000
       XSVCTABL DS    0F                  LINK/XCTL INTERCEPT NAME TABLE       K0746000
                DC    CL8'IEFVHA  ',A(XNEXRCON)                                K0748000
                DC    CL8'IEFVHCB ',A(XRESTORE)                                K0750000
                DC    CL8'IGC0403D',A(WMGCRSVC)                                K0752000
                AIF   (&SYSMVT).KNOMFT5                                   RFIT K0753999
                DC    CL8'IEFSD512',A(XEQSD512)                                K0754000
       .KNOMFT5 ANOP                                                      RFIT K0754001

       XSVCTEND DS    0F                  END OF TABLE                         K0756000
                TITLE 'HASP SVC 34 INTERFACE -- ENTRY POINT'                   K0758000
       ***************************************************************         K0760000
       *                                                             *         K0762000

       * TITLE - WMGCRSVC (SVC 34 PROCESSOR)                         *         K0764000
       *                                                             *         K0766000
       * FUNCTION/OPERATION -                                        *         K0768000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0040


       *                                                             *         K0770000
       *  ENTERED FROM HASP XCTL/LINK INTERCEPT ROUTINE WHEN A XCTL  *         K0772000
       *  TO MODULE 'IGC0403D' IS DETECTED.  THE FOLLOWING MAJOR     *         K0774000
       *  STEPS ARE PERFORMED...                                     *         K0776000
       *                                                             *         K0778000
       *        (1)   HASP IS ENTERED AT $MGCRSVC TO PROCESS THE     *         K0780000
       *              COMMAND.                                       *         K0782000
       *                                                             *         K0784000

       *        (2)   IF R15=0 UPON RETURN FROM $MGCRSVC, THEN THE   *         K0786000
       *              RESUME PSW IN THE SVRB OF THE ISSUER OF THE    *         K0788000
       *              XCTL TO IGC0403D IS CHANGED TO POINT TO CVTEXIT*         K0790000

       *              IN THE CVT.  THE CURRENT SVRB IS TERMINATED BY *         K0792000
       *              AN SVC 3 WHICH EVENTUALLY RESULTS IN THE       *         K0794000
       *              COMMAND BEING IGNORED BY OS.                   *         K0796000
       *                                                             *         K0798000
       *        (3)   IF R15^=0 UPON RETURN, THEN IT IS EITHER AN OS *         K0800000
       *              COMMAND OR A HASP COMMAND WHEN HASP IS OUT OF  *         K0802000
       *              CMBS.  THE PROCESSING CONTINUES WITH A RETURN  *         K0804000
       *              TO LINK/XCTL.                                  *         K0806000
       *                                                             *         K0808000
       ***************************************************************         K0810000
                SPACE 3                                                        K0812000
                USING CVTDSECT,R3                                              K0814000

                USING WMGCRSVC,R8                                              K0816000
       WMGCRSVC LR    R8,R15              SET BASE REGISTER                    K0818000
                LM    R13,R7,XSVCSAVE     RESTORE SLIH REGISERSS               K0820000
                LR    R9,R14              PRESERVE RETURN ADDRESS              K0822000

                LR    R10,R15             PRESERVE R15 VALUE                   K0824000
                L     R15,WMGCRAD         PICK UP PTR TO $MGCRSVC              K0826000
                BALR  R14,R15              AND ENTER HIM                       K0828000
                SSM   *+1                 MUST ENTER LINK/XCTL DISABLED   RFIT K0829000
                LR    R14,R9              RESTORE ORIGINAL R14                 K0830000
                LR    R11,R15             CAPTURE RU5                          K0832000
                LR    R15,R10              AND THEN RESTORE                    K0834000
                LTR   R11,R11             TEST RETURN CODE                     K0836000
                BCR   NZ,R6               GO TO LINK/XCTL IF NOT HASP COMMAND  K0838000
                L     R10,RBLINK-RBDSECT(,R5)  GET NEXT SVRB                   K0840000
                LA    R4,CVTEXIT-CVTDSECT(R3) ADDRESS OF CVTEXIT               K0842000
                ST    R4,RBOPSW+4-RBDSECT(,R10) RESET RESUME PSW               K0844000

                SVC   3                   COMMENCE EXIT PROCEDURE              K0846000
                SPACE 3                                                        K0848000
       WMGCRAD  DC    V($MGCRSVC)         HASP SVC 34 PROCESSOR                K0850000

                SPACE 3                                                        K0852000
                DROP  R8,R3                                                    K0854000
                AIF   (&SYSMVT).KNOMFT6                                   RFIT K0855999
                TITLE 'STEP INITIATION INTERFACE'                              K0856000
       ***************************************************************         K0858000
       *                                                             *         K0860000
       * TITLE - XEQSD512 (STEP INITIATION INTERFACE)                *         K0862000
       *                                                             *         K0864000
       * FUNCTION/OPERATION -                                        *         K0866000
       *                                                             *         K0868000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0041


       *  ENTERED FROM HASP XCTL/LINK INTERCEPT ROUTINE WHEN A XCTL  *         K0870000

       *  TO MODULE 'IEFSD512' IS DETECTED.  THE TCBPCE FIELD IS     *         K0872000
       *  CLEARED TO INDICATE TO HASP THAT IT IS STEP INITIATION.    *         K0874000
       *  IN ADDITION, THE CURRENT STEP NUMBER FROM THE LCT IS       *         K0876000
       *  COPIED TO THE XPCESTEP FIELD.                              *         K0878000

       *                                                             *         K0880000
       *                                                             *         K0882000
       ***************************************************************         K0884000
                SPACE 3                                                        K0886000
                USING XEQSD512,R15                                             K0888000
       XEQSD512 NULL  R0,R0                                                    K0890000
                LR    R12,R14              SAVE RETURN REGISTER                K0892000
                LR    R2,R1               SAVE LCT PTR                         K0894000
                LA    R1,X'F8'(R2)        JOBNAME FROM QMPA IN LOT             K0896000
                L     R4,8(R2)            TCB FROM THE LCT                     K0898000
                USING TCBDSECT,R4                                              K0900000
                L     R15,XSDSRCH         FIND THE PCE                         K0902000

                BALR  R14,R15              FOR TASK                            K0904000
                LR    R14,R12             RESTORE R14 FOR PROPER RETURN        K0906000
                BCR   8+4,R14             BIF NOT FOUND                        K0908000

                DROP  R15                                                      K0910000
                MVC   XPCESTEP+1(1),X'3A'(R2) SET STEP NUMBER                  K0912000
                XC    TCBPCE+1(3),TCBPCE+1  STEP INITIATION                    K0914000
                BR    R14                                                      K0916000
                DROP  R4                                                       K0918000
                SPACE 3                                                        K0920000
       XSDSRCH  DC    V(XJOBSRC2)         XEQ JOB SEARCH ROUTINE               K0922000
       .KNOMFT6 ANOP                                                      RFIT K0922001
                TITLE 'HASP R/I APPENDAGE -- ESTABLISH INTERPRETER EXIT'       K0924000
       *****************************************************************       K0926000
       *                                                               *       K0928000
       * TITLE - INTERPRETER ACCOUNTING ROUTINE EXIT FIXER             *       K0930000

       *                                                               *       K0932000
       * FUNCTION/OPERATION -                                          *       K0934000
       *        THIS ROUTINE INSPECTS THE ESOTERIC NAME (E.G., SYSDA)  *       K0936000

       *   SPECIFIED IN THE INTERPRETER OPTION LIST (THE SAME AS THAT  *       K0938000
       *   SPECIFIED IN THE READER/ASB PROCEDURE PARM= FIELD) TO SEE   *       K0940000
       *   IF IT IS CL8'SPOOL'.  IF THAT IS THE CASE, THE READER HAS   *       K0942000
       *   BEEN STARTED FOR THE USE OF HASP.  THIS ROUTINE STORES IN   *       K0944000
       *   THE INTERPRETER WORK AREA (IWA) AT OFFSET X'C8' A POINTER   *       K0946000
       *   TO THE HASP ACCOUNTING-ROUTINE EXIT SPECIFIER, THUS AVOID-  *       K0948000
       *   ING CHANGES TO THE INTERPRETER EXIT LIST.  WHEN CONTROL     *       K0950000
       *   SECTION IEFVFA HAS CONVERTED A JCL STATEMENT TO INTERNAL    *       K0952000
       *   TEXT, IT EXAMINES IWA+X'C8' TO SEE IF AN EXIT WAS SPECIFIED.*       K0954000
       *   IF AN EXIT WAS SPECIFIED, IEFVFA GIVES CONTROL TO THE EXIT  *       K0956000
       *   ROUTINE.  ON RETURN, IEFVFA INVOKES THE APPROPRIATE STATE-  *       K0958000
       *   MENT PROCESSOR -- IEFVJA, IEFVEA, OR IEFVDA.                *       K0960000

       *                                                               *       K0962000
       * ENTRY -                                                       *       K0964000
       *                                                               *       K0966000
       *        FROM HASP LINK/XCTL INTERFACE, WHEN THE REQUESTED LOAD *       K0968000

       *   MODULE IS NAMED IEFVHA (MAIN ENTRY TO THE INTERPRETER) OR   *       K0970000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0042


       *   IEFVHCB (ALTERNATE ENTRY TO INTERPRETER FOR TRANSIENT MFT   *       K0972000
       *   READER RESTORE).                                            *       K0974000
       *                                                               *       K0976000
       * EXIT -                                                        *       K0978000
       *                                                               *       K0980000
       *        TO HASP LINK/XCTL INTERFACE.                           *       K0982000
       *                                                               *       K0984000
       * INPUT -                                                       *       K0986000
       *                                                               *       K0988000
       *        GPR 5 POINTS TO THE LINK/XCTL SVRB OF WHICH GPR 12     *       K0990000

       *   POINTS TO THE INTERPRETER WORK AREA (IWA).                  *       K0992000
       *                                                               *       K0994000
       * OUTPUT -                                                      *       K0996000

       *                                                               *       K0998000
       *        IWA FIELD IWAINTS3 (IWA+X'C8') IS MODIFIED IF APPRO-   *       K1000000
       *   PRIATE TO POINT TO THE INTERPRETER ACCOUNTING-ROUTINE EXIT  *       K1002000
       *   SPECIFIER IN HASP.                                          *       K1004000
       *                                                               *       K1006000
       * CONTROL BLOCKS USED -                                         *       K1008000
       *                                                               *       K1010000
       *   SUPERVISOR REQUEST BLOCK (SVRB)                             *       K1012000
       *     RBGRSV12, GPR 12 AT ISSUANCE OF THE LINK/XCTL             *       K1014000
       *   INTERPRETER WORK AREA (IWA)                                 *       K1016000
       *     IWACSCBP, A POINTER TO THE NEL                            *       K1018000
       *     IWAINTS3, A POINTER TO ACCOUNTING-ROUTINE EXIT SPECIFIER  *       K1020000

       *   INTERPRETER ENTRANCE LIST (NEL)                             *       K1022000
       *     XNELOPLP, A POINTER TO THE OPTION LIST                    *       K1024000
       *   OPTION LIST                                                 *       K1026000
       *     XOPLSYSN, THE SYSOUT ESOTERIC NAME                        *       K1028000

       *                                                               *       K1030000
       *****************************************************************       K1032000
                SPACE 3                                                        K1034000
       RBGRSV12 EQU   X'50'               DISPL TO GPR 12 IN SVRB.             K1036000
       IWACSCBP EQU   X'C'                DISPL TO NEL POINTER IN IWA.         K1038000
       XNELOPLP EQU   0                   DISPL TO OPT LIST PTR IN NEL.        K1040000
       XOPLSYSN EQU   X'18'               DISPL TO ESO NAME IN OPT LIST.       K1042000
       IWAINTS3 EQU   X'C8'               DISPL TO PTR TO ACCTG-RTN            K1044000
       *                                   EXIT SPECIFIER IN THE IWA.          K1046000
                SPACE 3                                                        K1048000
       XNEXRCON DS    0H                  ENTERED ON XCTL TO IEFVHA.           K1050000
       XRESTORE DS    0H                  ENTERED ON XCTL TO IEFVHCB.          K1052000

                USING *,R15               FROM HASP LINK/XCTL INTERFACE.       K1054000
                SPACE 1                                                        K1056000
                L     R1,RBGRSV12(,R5)    AT XCTL, R12 PTS TO THE IWA.         K1058000

                L     R2,IWACSCBP(,R1)    USE THE IWA TO PT TO THE NEL.        K1060000
                L     R3,XNELOPLP(,R2)    USE THE NEL TO PT TO OPT LIST.       K1062000
                CLC   XNEXSYSD,XOPLSYSN(R3) IS THE ESO NAME C'SPOOL'...        K1064000
                BCR   NE,R14              IF NOT, RETURN.                      K1066000
                LA    R4,XNEXNEW          OTHERWISE, STORE A PTR TO OUR        K1068000
                ST    R4,IWAINTS3(R1)     ACCTG-RTN EXIT SPECIFIER             K1070000
                BR    R14                  IN THE IWA, AND RETURN              K1072000
                DROP  R15                                                      K1074000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0043


                SPACE 3                                                        K1076000
       XNEXSYSD DC    CL8'SPOOL'          ESOTERIC NAME FOR HASP RDR           K1078000
       XNEXNEW  DC    0D'0',X'40800000',A(XJCLEXIT)                            K1080000

                SPACE 3                                                        K1082000
       XJCLEXIT BALR  R15,0                                                    K1084000
                USING *,R15                                                    K1086000
                MVC   XJCLPARM+5(3),1(R1) JCL POINTER                          K1088000

                MVC   XJCLPARM+1(3),X'D1'(R12) JMR POINTER                     K1090000
                STM   R14,R1,XJCLSAVE     SAVE A FEW                           K1092000
                LA    R1,XJCLPARM                                              K1094000
                L     R15,XJCLADDR        CALL XJCLSCAN                        K1096000
                DROP  R15                                                      K1098000
                BALR  R14,R15                                                  K1100000
                USING *,R14                                                    K1102000
                LM    R14,R1,XJCLSAVE     RESTORE                              K1104000
                BR    R14                 RETURN                               K1106000
                DROP  R14                                                      K1108000
                SPACE 3                                                        K1110000
       XJCLPARM DC    2F'0'                                                    K1112000

       XJCLSAVE DC    4F'0'                                                    K1114000
       XJCLADDR DC    V(XJCLSCAN)                                              K1116000
       XSVCSAVE DS    11F                 REGISTER SAVE AREA                   K1118000

                TITLE 'HASP TASK POSTING SUBROUTINE'                           K1120000
       *                                                                       K1122000
       *                                                                       K1124000
       *      THE FOLLOWING ROUTINE CAUSES AN ECB TO BE POSTED WITHOUT         K1126000
       *      GOING THROUGH FLIH.  THE ROUTINE IS TRANSPARENT TO R1 - R13.     K1128000
       *      R0, R14, AND R15 MUST BE SET AS FOLLOWS-                         K1130000
       *                                                                       K1132000
       *         R0  -  ADDRESS OF PARAMETER LIST.                             K1134000
       *         R14 -  RETURN ADDRESS                                         K1136000
       *         R15 -  ADDRESS OF THIS ROUTINE ($POSTECB)                     K1138000
       *                                                                       K1140000
       *      THE PARAMETER LIST IS 3 WORDS LONG AND HAS THE FOLLOWING         K1142000

       *      FORMAT-                                                          K1144000
       *                                                                       K1146000
       *        DC    A(X'COMPLETION CODE')                                    K1148000
       *        DC    A(ECB ADDRESS)                                           K1150000

       *        DC    A(TCB ADDRESS)                                           K1152000
       *                                                                       K1154000
                SPACE 5                                                        K1156000
                USING *,R15               ESTABLISH ADDRESSABILITY             K1158000
                ENTRY $POSTECB                                                 K1160000
       $POSTECB STM   R9,R14,WPOSTSAV     SAVE ALL REGISTERS                   K1162000
                ST    R3,WPOSTSV3          WHICH WILL BE USED                  K1164000
                L     R3,$CVTPTR          ESTABLISH                            K1166000
                USING CVTDSECT,R3          CVT ADDRESSABILITY                  K1168000
                SPACE 3                                                        K1170000
                LR    R10,R0              GET ADDRESS OF PARAMETER LIST        K1172000
                TM    7(R10),X'03'        VALIDATE ADDRESS OF ECB              K1174000

                BNZ   WPOSTRET            BRANCH IF NOT ON WORD BOUNDARY       K1176000
                LM    R10,R12,0(R10)      PICK UP PARAMETER LIST               K1178000
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0044



                LA    R11,0(,R11)         CLEAR HIGH-ORDER BYTE                K1180000
                CL    R11,CVTMZ00         VALIDATE ADDRESS OF ECB              K1182000
                BNL   WPOSTRET            BRANCH IF INVALID ECB ADDRESS        K1184000
                SPACE 3                                                        K1186000
                LA    R12,0(,R12)         CLEAR HIGH BYTE OF TCB ADDRESS       K1188000
                LA    R13,CVTHEAD-(TCBTCB-TCBDSECT) TREAT CVT AS FIRST TCB     K1190000
                DROP  SAVE                ESTABLISH                            K1192000
                USING TCBDSECT,R13         TCB ADDRESSABILITY                  K1194000
                SPACE 1                                                        K1196000
       WPOSTCB  L     R13,TCBTCB          GET ADDRESS OF NEXT TCB              K1198000
                LA    R13,0(,R13)         CLEAR HIGH-ORDER BYTE                K1200000
                LTR   R13,R13             TEST FOR END-OF-CHAIN                K1202000

                BZ    WPOSTRET            INVALID TCB IF END-OF-CHAIN          K1204000
                CLR   R13,R12             TEST TCB ADDRESS                     K1206000
                BNE   WPOSTCB             BRANCH IF NOT TCB SPECIFIED          K1208000
                EJECT                                                          K1210000

                TM    0(R11),X'80'        TEST STATUS OF ECB                   K1212000
                BZ    WPOST               BRANCH IF ECB IS NOT WAITING         K1214000
                SPACE 2                                                        K1216000
                L     R14,0(,R11)         GET ADDRESS OF WAITING RB            K1218000
                LA    R14,0(,R14)         CLEAR HIGH-ORDER BYTE                K1220000
                SL    R13,WPOSTDSP        TREAT TCB AS RB                      K1222000
                USING RBDSECT,R13         ESTABLISH RB ADDRESSABILITY          K1224000
                SPACE 1                                                        K1226000
       WPOSTRB  L     R13,RBLINK          GET ADDRESS OF NEXT RB               K1228000
                LA    R13,0(,R13)         CLEAR HIGH-ORDER BYTE                K1230000
                CLR   R13,R12             TEST FOR END-OF-CHAIN                K1232000
                BE    WPOSTRET            INVALID RB IF END-OF-CHAIN           K1234000

                CLR   R13,R14             TEST RB ADDRESS                      K1236000
                BNE   WPOSTRB             BRANCH IF NOT RB SPECIFIED           K1238000
                SPACE 3                                                        K1240000

       WPOST    L     R15,CVT0PT01        GET ADDRESS OF POST ROUTINE          K1242000
                BAL   R14,(&SYSMFT*4+&SYSVS1*4)(,R15) BRANCH TO EFFECT THE     K1244000
       *                                   POST                                K1246000
                SPACE 3                                                        K1248000
       WPOSTRET BALR  R15,0               ESTABLISH NEW                        K1250000
                USING *,R15                TEMPORARY ADDRESSABILITY            K1252000
                L     R3,WPOSTSV3         RESTORE                              K1254000
                LM    R9,R14,WPOSTSAV      REGISTERS                           K1256000
                BR    R14                   AND RETURN                         K1258000
                DROP  R3,R13,R15          *                                    K1260000
                USING PCEDSECT,SAVE       RE-ESTABLISH PCE ADDRESSABILITY      K1262000
                SPACE 5                                                        K1264000

       WPOSTSAV DS    6F                  REGISTER                             K1266000
       WPOSTSV3 DS    F                    SAVE AREA                           K1268000
       WPOSTDSP DC    A(RBLINK-RBDSECT)   DISPLACEMENT OF RB LINK FIELD        K1270000

       .KNOINTF ANOP                                                           K1272000
                LTORG ,                                                        K9994000
       $DLENGTH $DLENGTH                                                       K9996000
                END   ,                                                        K9998000
IEB817I MEMBER NAME (HASPINTF) NOT FOUND IN NM DIRECTORY.  STOWED WITH TTR.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0045


       ./      CHANGE NAME=HASPMISC                                       RFIT
               *                                                                  RFIT V0000000     *          INSERTED*
               *                            KILL ALL 370 INSTRUCTIONS             RFIT V0000010     *          INSERTED*
               *                                                                  RFIT V0000020     *          INSERTED*
               MVCL     OPSYN ,                                                   RFIT V0000030     *          INSERTED*
               CLCL     OPSYN ,                                                   RFIT V0000040     *          INSERTED*

               SIOF     OPSYN ,                                                   RFIT V0000050     *          INSERTED*
               HDV      OPSYN ,                                                   RFIT V0000070     *          INSERTED*
               STNSM    OPSYN ,                                                   RFIT V0000080     *          INSERTED*
               STOSM    OPSYN ,                                                   RFIT V0000090     *          INSERTED*

               MC       OPSYN ,                                                   RFIT V0000110     *          INSERTED*
               LRA      OPSYN ,                                                   RFIT V0000120     *          INSERTED*
               STCTL    OPSYN ,                                                   RFIT V0000130     *          INSERTED*
               LCTL     OPSYN ,                                                   RFIT V0000140     *          INSERTED*
               CLM      OPSYN ,                                                   RFIT V0000180     *          INSERTED*
               STCM     OPSYN ,                                                   RFIT V0000190     *          INSERTED*
               ICM      OPSYN ,                                                   RFIT V0000200     *          INSERTED*
               STIDP    OPSYN ,                                                   RFIT V0000210     *          INSERTED*
               STIDC    OPSYN ,                                                   RFIT V0000220     *          INSERTED*
               SCK      OPSYN ,                                                   RFIT V0000230     *          INSERTED*
               STCK     OPSYN ,                                                   RFIT V0000240     *          INSERTED*
               SCKC     OPSYN ,                                                   RFIT V0000250     *          INSERTED*

               STCKC    OPSYN ,                                                   RFIT V0000260     *          INSERTED*
               SPT      OPSYN ,                                                   RFIT V0000270     *          INSERTED*
               STPT     OPSYN ,                                                   RFIT V0000280     *          INSERTED*

               PTLB     OPSYN ,                                                   RFIT V0000310     *          INSERTED*
               RRB      OPSYN ,                                                   RFIT V0000350     *          INSERTED*
               SRP      OPSYN ,                                                   RFIT V0000360     *          INSERTED*
                        LCLA  &PRCPRC                                             RFIT V0006010     *          INSERTED*
                              PRC,TQE,TCB,SMF,DOC=&DOC                                 V0060000     *          REPLACED*
                              PRC,TQE,TCB,SMF,XEQWORK,DOC=&DOC                    RFIT V0060000     *       REPLACEMENT*
                        AIF   (&SYSVS2).XZEXIT                                    RFIT V0261000     *          INSERTED*
                        AIF   (&MAXXEQS LT 2 OR &MONINTV EQ 0).XZEXIT             RFIT V0262000     *          INSERTED*
                        TITLE 'HASP EXECUTION TASK MONITOR PROCESSOR'             RFIT V0264000     *          INSERTED*
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  RFIT V0266000     *          INSERTED*
               *                                                               *  RFIT V0268000     *          INSERTED*
               * THIS PROCESSOR ARRANGES THE DISPATCHING ORDER OF EXECUTING    *  RFIT V0270000     *          INSERTED*

               * TASKS IN THE SYSTEM ACHIEVING BETTER CPU/IO BALANCE.          *  RFIT V0272000     *          INSERTED*
               * REARRANGEMENT OCCURS AT THE END OF TIME INTERVAL &MONINTV.    *  RFIT V0274000     *          INSERTED*
               *                                                               *  RFIT V0276000     *          INSERTED*
               * ARRANGEMENT IS BASED ON CHANGE IN TIMER UNITS (CPU TIME)      *  RFIT V0278000     *          INSERTED*

               * FOR EACH TASK MONITORED. LOW CHANGE IN CPU TIME GOES HIGH     *  RFIT V0280000     *          INSERTED*
               * IN THE TCB CHAIN. TASKS OF MULTI-TASKING JOB STEPS ARE NOT    *  RFIT V0282000     *          INSERTED*
               * MONITORED.                                                    *  RFIT V0284000     *          INSERTED*
               *                                                               *  RFIT V0286000     *          INSERTED*
               * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  RFIT V0288000     *          INSERTED*
                        USING *,BASE2                                             RFIT V0290000     *          INSERTED*
                        ENTRY HASPXMON            DEFINE FOR EXTERNAL REFERENCE   RFIT V0292000     *          INSERTED*
               HASPXMON NULL                                                      RFIT V0294000     *          INSERTED*
                        $LINK HASPXDDM            ENTER OVERLAY SEGMENT           RFIT V0296000     *          INSERTED*
               *                                  NO RETURN IS EXPECTED           RFIT V0298000     *          INSERTED*
               HASPXDDM $OVERLAY &HIGH,&MED       DYNAMIC DISPATCHING MONITOR     RFIT V0300000     *          INSERTED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0046



               XZLOOP   CLI   $XEQACT,2           CHECK NUMBER OF JOBS EXECUTING  RFIT V0302000     *          INSERTED*
                        BL    XZWAIT              BYPASS PROCESSING IF LESS THAN 2RFIT V0304000     *          INSERTED*
                        TM    XZTQE+IPOST,X'80'   HAS TIME EXPIRED                RFIT V0306000     *          INSERTED*

                        BZ    XZWAIT              BRANCH IF NO                    RFIT V0308000     *          INSERTED*
                        LA    WA,&MONINTV         PICK MONITOR TIME INTERVAL      RFIT V0310000     *          INSERTED*
                        ST    WA,XZTQE+ITIME      INSERT TIME INTERVAL            RFIT V0312000     *          INSERTED*
                        $STIMER XZTQE,OLAY=YES    START THE INTERVAL              RFIT V0314000     *          INSERTED*
               XZWAIT   $WAIT WORK                WAIT FOR TIME TO PASS           RFIT V0316000     *          INSERTED*
               *        DISABLE INTERRUPTS WE ARE ABOUT TO BREAK UP TCB CHAIN     RFIT V0356000     *          INSERTED*
                        $DISABLE ALL,OLAY=YES     DISABLE I/O AND TIMER           RFIT V0358000     *          INSERTED*
               *        SEARCH TCB CHAIN FOR MONITORED GROUP                      RFIT V0360000     *          INSERTED*
                        L     WB,$HASPTCB         GET HASP TCB                    RFIT V0362000     *          INSERTED*
                        SR    R15,R15             ZERO OUT TOTAL MEASURED         RFIT V0364000     *          INSERTED*
                        USING TCBDSECT,WE         ESTABLISH TCB ADDRESSABILITY    RFIT V0366000     *          INSERTED*
               XZISRCH  LR    WE,WB               SET PREVIOUS TCB PTR            RFIT V0368000     *          INSERTED*

                        L     WB,TCBTCB           GET NEXT LOWER TCB              RFIT V0370000     *          INSERTED*
                        LTR   WB,WB               IS IT THE END OF CHAIN          RFIT V0372000     *          INSERTED*
                        BE    XZEXIT              IF SO NONE TO MONITOR           RFIT V0374000     *          INSERTED*
                        AIF   (&SYSMVT).XZMVT1                                    RFIT V0375000     *          INSERTED*

                        BAL   LINK,XZMATCH        LOOK FOR ONE OF OURS            RFIT V0376000     *          INSERTED*
                        AGO   .XZMVT2                                             RFIT V0376100     *          INSERTED*
               .XZMVT1  BAL   LINK,XZMATCHA       LOOK FOR ONE OF OURS            RFIT V0376200     *          INSERTED*
               .XZMVT2  ANOP                                                      RFIT V0376300     *          INSERTED*
                        B     XZISRCH             IF NOT OURS GO TO NEXT          RFIT V0378000     *          INSERTED*
               *        CONSOLIDATE MONITORED TCBS, CHAIN MAY BE BROKEN NOW       RFIT V0380000     *          INSERTED*
                        LA    WA,XZTCBTAB         PICK UP MONITOR CONTROL TABLE   RFIT V0382000     *          INSERTED*
                        SR    WF,WF               SET UP ELEMENT COUNTER          RFIT V0384000     *          INSERTED*
               XZSOLID  DS    0H                                                  RFIT V0384200     *          INSERTED*
                        AIF   (&SYSMVT).XZMVT3                                    RFIT V0384300     *          INSERTED*
                        AIF   (&XZMFTH LE 0).XZC                                  RFIT V0384400     *          INSERTED*
                        MVI   TCBDSP-TCBDSECT(WB),&XZMFTL SET PRIORITY            RFIT V0384600     *          INSERTED*

               .XZMVT3  ANOP                                                      RFIT V0384700     *          INSERTED*
               .XZC     AIF   (NOT &XZMULT).XZMM1                                 RFIT V0384800     *          INSERTED*
                        LTR   R0,WF               CHECK FOR ANY ENTRIES           RFIT V0385000     *          INSERTED*

                        BZ    XZSOLIDB            IF NOT, EXIT                    RFIT V0385200     *          INSERTED*
                        LA    R14,XZTCBTAB        POINT TO FIRST ENTRY            RFIT V0385400     *          INSERTED*
               XZSOLIDL C     JCT,XZJSTCB(0,R14)  DOES JOB STEP MATCH             RFIT V0385600     *          INSERTED*
                        BE    XZSOLIDC            IF SO ADD TO CHAIN              RFIT V0385800     *          INSERTED*
                        LA    R14,XZTCBL(0,R14)   UP TO NEXT                      RFIT V0386000     *          INSERTED*
                        BCT   R0,XZSOLIDL         LOOP                            RFIT V0386200     *          INSERTED*
               XZSOLIDB C     JCT,XZJSTCB(0,WA)   ARE ENTRIES IN ORDER            RFIT V0386400     *          INSERTED*
                        AGO   .XZMM1A                                             RFIT V0386600     *          INSERTED*
               .XZMM1   ANOP                                                      RFIT V0386800     *          INSERTED*
               XZSOLIDB C     WB,XZTCBTCB(0,WA)   ARE ENTRIES IN ORDER            RFIT V0387000     *          INSERTED*
               .XZMM1A  ANOP                                                      RFIT V0387400     *          INSERTED*
                        BNE   XZATTDET            IF NOT COUNTS HAVE NO MEANING   RFIT V0388000     *          INSERTED*

               * UPDATE TIMING TABLES, R1 = NEW JOB STEP TIMER VALUE              RFIT V0390000     *          INSERTED*
               XZUPDAT  L     R14,XZJSCNT(WA)     PICKUP OLD JOB STEP COUNT       RFIT V0392000     *          INSERTED*
                        ST    R1,XZJSCNT(WA)      PUT NEW JOB STEP COUNT          RFIT V0394000     *          INSERTED*
                        SR    R14,R1              TIMER DECREMENTS                RFIT V0396000     *          INSERTED*

                        BC    Z+H,*+6             IF NEGATIVE                     RFIT V0398000     *          INSERTED*
                        SR    R14,R14             IGNORE                          RFIT V0400000     *          INSERTED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0047


                        LA    R14,0(R14)          GET RID OF ANY HIGH BITS        RFIT V0402000     *          INSERTED*
                        A     R14,XZHIST(WA)      ADD TASK HISTORY                RFIT V0404000     *          INSERTED*
                        AR    R15,R14             ADD TO TOTAL MEASURED           RFIT V0406000     *          INSERTED*
                        ST    R14,XZHIST(WA)      SAVE FOR BALANCE AND NEXT TIME  RFIT V0408000     *          INSERTED*
                        C     R14,XZLFACT         TEST FOR BELOW LIMIT            RFIT V0414000     *          INSERTED*
                        BC    Z+H,XZCKNXT         HIST .GE. SKIP LOSS OF TIME     RFIT V0416000     *          INSERTED*
               * TASKS THAT FALL BELOW THE LIMIT WILL LOSE OUT ON CPU TIME        RFIT V0418000     *          INSERTED*
                        MVC   XZHIST(4,WA),XZLFACT SET HISTORY TO LOW LIMIT       RFIT V0420000     *          INSERTED*
                        AIF   (NOT &XZMULT).XZMM2                                 RFIT V0420200     *          INSERTED*

               XZCKNXT  ST    WB,XZTCBTCB(0,WA)   SAVE THIS TCB ADDRESS           RFIT V0420400     *          INSERTED*
                        LA    WA,XZTCBL(0,WA)     INCR TO NEXT ELEMENT            RFIT V0420600     *          INSERTED*
                        LA    WF,1(0,WF)          INCR ELEMENT COUNTER            RFIT V0420800     *          INSERTED*

               XZNEXT   LR    JCT,WB              SAVE CURRENT TCB POINTER        RFIT V0421000     *          INSERTED*
                        L     WB,TCBTCB-TCBDSECT(0,WB) GO TO NEXT LOWER TCB       RFIT V0421200     *          INSERTED*
                        ST    R0,TCBTCB-TCBDSECT(0,JCT) SET END OF CHAIN          RFIT V0421400     *          INSERTED*
               XZCKMTCH LTR   WB,WB               TEST FOR END OF CHAIN           RFIT V0421600     *          INSERTED*
                        AGO   .XZMM2A                                             RFIT V0421800     *          INSERTED*
               .XZMM2   ANOP                                                      RFIT V0421900     *          INSERTED*
               XZCKNXT  LA    WA,XZTCBL(0,WA)     INCR TO NEXT ELEMENT            RFIT V0422000     *          INSERTED*
                        LA    WF,1(0,WF)          INCR ELEMENT COUNTER            RFIT V0424000     *          INSERTED*
               XZCKMTCH L     WB,TCBTCB-TCBDSECT(0,WB) GO TO NEXT LOWER TCB       RFIT V0426000     *          INSERTED*
                        LTR   WB,WB               TEST FOR END OF CHAIN           RFIT V0428000     *          INSERTED*
               .XZMM2A  BE    XZSORTA             IF SO, SORT THE ONES WE HAVE    RFIT V0430000     *          INSERTED*
                        AIF   (&SYSMVT).XZMVT4                                    RFIT V0431000     *          INSERTED*

                        BAL   LINK,XZMATCH        LOOK FOR ONE OF OURS            RFIT V0432000     *          INSERTED*
                        AGO   .XZMVT5                                             RFIT V0432100     *          INSERTED*
               .XZMVT4  BAL   LINK,XZMATCHA       LOOK FOR ONE OF OURS            RFIT V0432200     *          INSERTED*
               .XZMVT5  ANOP                                                      RFIT V0432300     *          INSERTED*

                        B     *+8                 NOT OURS JUMP OVER NI           RFIT V0434000     *          INSERTED*
                        B     XZSOLID             CHECK FOR ORDER                 RFIT V0436000     *          INSERTED*
                        AIF   (&SYSMVT).XZD                                       RFIT V0437000     *          INSERTED*
                        AIF   (&XZMFTH LE 0).XZD                                  RFIT V0438000     *          INSERTED*
                        CLI   TCBDSP-TCBDSECT(WB),&XZMFTL TEST PRIORITY RANGE     RFIT V0440000     *          INSERTED*
                        AGO   .XZDA                                               RFIT V0442000     *          INSERTED*
               .XZD     CLI   TCBDSP-TCBDSECT(WB),&APGPRTY*16+11 TEST PRTY RANGE  RFIT V0444000     *          INSERTED*
               .XZDA    BL    XZSORTA             END THE SEARCH                  RFIT V0446000     *          INSERTED*
                        ST    WB,TCBTCB           CHAIN HIGH                      RFIT V0448000     *          INSERTED*
                        LR    WE,WB               PULL WE UP TO THIS TCB          RFIT V0450000     *          INSERTED*
                        AIF   (NOT &XZMULT).XZMM2B                                RFIT V0451000     *          INSERTED*
                        L     WB,TCBTCB           POINT TO NEXT TCB               RFIT V0452000     *          INSERTED*

               .XZMM2B  B     XZCKMTCH            CHECK NEXT TCB                  RFIT V0453000     *          INSERTED*
               XZSORTA  TM    XZTCBTCB(WA),X'80'  END OF ENTRIES                  RFIT V0454000     *          INSERTED*
                        BO    XZSORTB             EXIT LOOP IF SO                 RFIT V0456000     *          INSERTED*

                        MVC   XZTCBTCB(XZTCBL,WA),XZSPARE-XZTCBL INITIALIZE       RFIT V0458000     *          INSERTED*
                        LA    WA,XZTCBL(0,WA)     BUMP TO NEXT AREA               RFIT V0460000     *          INSERTED*
                        B     XZSORTA             LOOP BACK                       RFIT V0462000     *          INSERTED*
               XZSORTB  LA    WA,XZTCBTAB         POINT TO FIRST ELEMENT          RFIT V0464000     *          INSERTED*
                        SR    R14,R14             PREPARE TO DIVIDE               RFIT V0466000     *          INSERTED*
                        LTR   R15,R15             TEST FOR NEGATIVE               RFIT V0468000     *          INSERTED*
                        BNL   *+6                 IF NOT DIVIDE                   RFIT V0470000     *          INSERTED*
                        SR    R15,R15             IF SO ZERO DIVIDEND             RFIT V0472000     *          INSERTED*
                        DR    R14,WF              FACT = TOTAL / NO. ACTIVE TCBS  RFIT V0474000     *          INSERTED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0048


                        BCT   WF,XZSORTC          CHECK FOR ONLY ONE TCB          RFIT V0476000     *          INSERTED*
                        MVC   XZHIST(4,WA),=F'0'  ONLY ONE. RESET HISTORY         RFIT V0478000     *          INSERTED*

                        B     XZCHAIN             CHAIN UP                        RFIT V0480000     *          INSERTED*
               XZSORTC  L     R1,XZHIST(WA)       PICK UP HISTORY                 RFIT V0482000     *          INSERTED*
                        SR    R1,R15              REDUCE THE TIME FRAME           RFIT V0484000     *          INSERTED*

                        ST    R1,XZHIST(WA)       SAVE FOR SHIFT AND NEXT TIME    RFIT V0486000     *          INSERTED*
               XZSORTL  L     R1,XZHIST+XZTCBL(WA) PICK UP ELEMENT+1              RFIT V0488000     *          INSERTED*
                        SR    R1,R15              REDUCE THE TIME FRAME           RFIT V0490000     *          INSERTED*
                        ST    R1,XZHIST+XZTCBL(WA) SAVE                           RFIT V0492000     *          INSERTED*
                        C     R1,XZHIST(WA)       CHECK RELATIVE CPU USAGE        RFIT V0494000     *          INSERTED*
                        BNL   XZNOSW              IF NOT LOW NO SHIFT             RFIT V0496000     *          INSERTED*
               * TCBS WITH HIGH TIMER UNIT CHANGE DROP LOW ON DISPATCH CHAIN      RFIT V0498000     *          INSERTED*
                        MVC   XZSPARE(XZTCBL),XZTCBTCB+XZTCBL(WA) MOVE LOW OUT    RFIT V0500000     *          INSERTED*
                        MVC   XZTCBTCB+XZTCBL(XZTCBL,WA),XZTCBTCB(WA) MOVE LOW    RFIT V0502000     *          INSERTED*
                        MVC   XZTCBTCB(XZTCBL,WA),XZSPARE NEW HIGH IN PLACE       RFIT V0504000     *          INSERTED*
               XZNOSW   MVC   TCBTCB,XZTCBTCB(WA) INSERT INTO DISPATCHING CHAIN   RFIT V0506000     *          INSERTED*
                        AIF   (NOT &XZMULT).XZMM3                                 RFIT V0506400     *          INSERTED*

                        BAL   LINK,XZSORTCH       SEARCH FOR END OF JOB'S CHAIN   RFIT V0506800     *          INSERTED*
                        LA    WA,XZTCBL(0,WA)     GET NEXT TABLE ELEMENT          RFIT V0507600     *          INSERTED*
                        BCT   WF,XZSORTL          LOOP BACK UNTIL FINISHED        RFIT V0508000     *          INSERTED*
               XZCHAIN  MVC   TCBTCB,XZTCBTCB(WA) CHAIN LAST TCP UP               RFIT V0508400     *          INSERTED*

                        BAL   LINK,XZSORTCH       SEARCH FOR END OF JOB'S CHAIN   RFIT V0508800     *          INSERTED*
                        AGO   .XZMM3A                                             RFIT V0509200     *          INSERTED*
               .XZMM3   L     WE,XZTCBTCB(0,WA)   MAKE CURRENT TCB PREVIOUS       RFIT V0509600     *          INSERTED*
                        LA    WA,XZTCBL(0,WA)     GET OUR NEXT TCB                RFIT V0510000     *          INSERTED*
                        BCT   WF,XZSORTL          LOOP BACK UNTIL FINISHED        RFIT V0512000     *          INSERTED*
               XZCHAIN  MVC   TCBTCB,XZTCBTCB(WA) CHAIN LAST TCB UP               RFIT V0514000     *          INSERTED*
                        L     WE,XZTCBTCB(0,WA)   PULL PREVIOUS POINTER UP        RFIT V0516000     *          INSERTED*
               .XZMM3A  ANOP                                                      RFIT V0518000     *          INSERTED*
                        ST    WB,TCBTCB           CHAIN LOW PRIORITY TCBS         RFIT V0520000     *          INSERTED*
               XZEXIT   $ENABLE ALL,OLAY=YES      ENABLE AGAIN                    RFIT V0522000     *          INSERTED*
                        B     XZLOOP              GO BACK FOR NEXT TIME INTERVAL  RFIT V0524000     *          INSERTED*
                        AIF   (NOT &XZMULT).XZMM4                                 RFIT V0524100     *          INSERTED*

               XZSOLIDC L     JCT,XZTCBTCB(0,R14) PICK UP TCB CHAIN               RFIT V0524200     *          INSERTED*
               XZSOLIDD L     R14,TCBTCB-TCBDSECT(0,JCT) PICK NEXT TCB POINTER    RFIT V0524300     *          INSERTED*
                        LTR   R0,R14              TEST FOR END                    RFIT V0524400     *          INSERTED*

                        BZ    XZSOLIDE            IF END, EXIT                    RFIT V0524500     *          INSERTED*
                        LR    JCT,R14             PULL TRAILLER UP                RFIT V0524600     *          INSERTED*
                        B     XZSOLIDD            LOOP                            RFIT V0524700     *          INSERTED*
               XZSOLIDE ST    WB,TCBTCB-TCBDSECT(0,JCT) ADD TO END OF CHAIN       RFIT V0524800     *          INSERTED*
                        B     XZNEXT              DO NEXT TCB                     RFIT V0524900     *          INSERTED*
               XZSORTCH L     WE,XZTCBTCB(0,WA)   PICK UP CHAIN                   RFIT V0525000     *          INSERTED*
               XZSORTCA L     JCT,TCBTCB          SEARCH                          RFIT V0525100     *          INSERTED*
                        LTR   JCT,JCT              FOR                            RFIT V0525200     *          INSERTED*
                        BCR   Z,LINK               END                            RFIT V0525300     *          INSERTED*
                        LR    WE,JCT               OF                             RFIT V0525400     *          INSERTED*
                        B     XZSORTCA             CHAIN                          RFIT V0525500     *          INSERTED*
               .XZMM4   ANOP                                                      RFIT V0525600     *          INSERTED*

                        DROP  WE                                                  RFIT V0525800     *          INSERTED*
               XZATTDET TM    XZTCBTCB(WA),X'80'  TEST FOR BEYOND TABLE           RFIT V0526000     *          INSERTED*
                        BZ    XZSHIFT             CONSOLIDATE TABLE, IF NO        RFIT V0528000     *          INSERTED*
                        C     WA,XZTABEND         TEST FOR TOO MANY TASKS         RFIT V0530000     *          INSERTED*

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0049


                        BNL   XZSORTA             REJECT TASK IF SO               RFIT V0532000     *          INSERTED*
                        AIF   (NOT &XZMULT).XZMM5                                 RFIT V0533000     *          INSERTED*
                        ST    JCT,XZJSTCB(0,WA)   INSERT JOB STEP TCB POINTER     RFIT V0534000     *          INSERTED*
                        AGO   .XZMM5A                                             RFIT V0535000     *          INSERTED*
               .XZMM5   ST    WB,XZTCBTCB(0,WA)   INSERT NEW TCB ENTRY            RFIT V0536000     *          INSERTED*
               .XZMM5A  ST    R1,XZJSCNT(0,WA)    INITIALIZE JOB STEP COUNT       RFIT V0537000     *          INSERTED*
                        B     XZUPDAT             UPDATE TIMEING TABLES           RFIT V0538000     *          INSERTED*
               XZSHIFT  LR    WC,WA               PREP FOR SHIFT                  RFIT V0540000     *          INSERTED*
               XZSHIFTS MVC   0(XZTCBL,WC),XZTCBL(WC) SHIFT ELEMENT UP ONE        RFIT V0542000     *          INSERTED*
                        TM    0(WC),X'80'         ARE WE FINISHED SHIFTING        RFIT V0544000     *          INSERTED*
                        BO    XZSOLIDB            TEST FOR SOLID NOW, IF YES      RFIT V0546000     *          INSERTED*

                        LA    WC,XZTCBL(0,WC)     BUMP TO NEXT ENTRY              RFIT V0548000     *          INSERTED*
                        B     XZSHIFTS            SHIFT MORE                      RFIT V0550000     *          INSERTED*
                        USING TCBDSECT,WB         ESTABLISH TCB ADDRESSABILITY    RFIT V0552000     *          INSERTED*

                        AIF   (&SYSMVT).XZMA                                      RFIT V0553000     *          INSERTED*
               XZMATCH  DS    0H                  VERIFY TCB AND PICK TIMER VALUE RFIT V0554000     *          INSERTED*
                        AIF   (&XZMFTH LE 0).XZMA                                 RFIT V0556000     *          INSERTED*
                        CLI   TCBDSP,&XZMFTH      IS TASK IN PRIORITY RANGE       RFIT V0558000     *          INSERTED*
                        BCR   H,LINK              IF PRIORITY HIGH, NOT FOUND     RFIT V0560000     *          INSERTED*
                        CLI   TCBDSP,&XZMFTL      LOOK AT LOWER BOUND             RFIT V0562000     *          INSERTED*
                        BCR   L,LINK              IF PRIORITY LOW, NOT FOUND      RFIT V0564000     *          INSERTED*
                        AIF   (NOT &XZMULT).XZMM6                                 RFIT V0564400     *          INSERTED*
                        L     JCT,TCBJPQ          PICK UP JOB STEP POINTER        RFIT V0564800     *          INSERTED*
                        LTR   JCT,JCT             TEST FOR PRESENT                RFIT V0565200     *          INSERTED*
                        BCR   Z,LINK              RETURN NOT FOUND                RFIT V0565600     *          INSERTED*
                        L     R1,TCBPIB-TCBDSECT(0,JCT) PICK UP ADDRESS OF PIB    RFIT V0566000     *          INSERTED*

                        AGO   .XZMM6A                                             RFIT V0566400     *          INSERTED*
               .XZMM6   C     WB,TCBJPQ           IS THIS A JOB STEP TCB          RFIT V0566800     *          INSERTED*
                        BCR   NE,LINK             IF NOT JOB STEP, RETURN NOT FOUNRFIT V0568000     *          INSERTED*
                        CLC   TCBLTC+1(3),=F'0'   DOES TCB HAVE DAUGHTERS         RFIT V0570000     *          INSERTED*

                        BCR   NE,LINK             IF DAUGHTERS, RETURN NOT FOUND  RFIT V0572000     *          INSERTED*
                        L     R1,TCBPIB           PICK UP ADDRESS OF PIB          RFIT V0574000     *          INSERTED*
               .XZMM6A  L     R1,PIBJSTQE(0,R1)   PICK UP ADDRESS OF TIMER ELEMT  RFIT V0576000     *          INSERTED*
                        LTR   R1,R1               TEST FOR HIGH BIT ON            RFIT V0578000     *          INSERTED*
                        BCR   NM,LINK             IF OFF, NO TIMER ELEMENT        RFIT V0580000     *          INSERTED*
                        TM    TQEFLGS(R1),X'08'   TEST FOR WAIT TIMER             RFIT V0582000     *          INSERTED*
                        AIF   (&APGPRTY LT 0 OR &XZMFTH LE 0).XZMA                RFIT V0584000     *          INSERTED*
                        B     XZMATCHT            TEST CONDITION CODES            RFIT V0586000     *          INSERTED*
               .XZMA    AIF   (&APGPRTY LT 0).XZMB                                RFIT V0590000     *          INSERTED*
               XZMATCHA CLI   TCBDSP,&APGPRTY*16+11 IS TASK IN PRIORITY RANGE     RFIT V0592000     *          INSERTED*
                        BCR   NE,LINK             BR NOT FOUND                    RFIT V0594000     *          INSERTED*
                        C     WB,0(0,WB)          CHECK FOR DUMMY TCB             RFIT V0594300     *          INSERTED*

                        BCR   E,LINK              RETURN NOT FOUND                RFIT V0594600     *          INSERTED*
                        AIF   (NOT &XZMULT).XZMM7                                 RFIT V0594900     *          INSERTED*
                        L     R1,TCBLTC           PICK UP DAUGHTER                RFIT V0595200     *          INSERTED*

                        LTR   R1,R1               IS THERE A DAUGHTER             RFIT V0595500     *          INSERTED*
                        BNZ   *+6                 SKIP IF DAUGHTER                RFIT V0595800     *          INSERTED*
                        LR    R1,WB               USE CURRENT IF NO DAUGHTER      RFIT V0596000     *          INSERTED*
                        L     JCT,TCBJSTCB-TCBDSECT(0,R1) LOCATE JOB STEP TCB     RFIT V0596300     *          INSERTED*
                        L     R1,TCBOTC-TCBDSECT(0,JCT) LOCATE MOTHER OF JOBSTEP  RFIT V0596600     *          INSERTED*
                        AGO   .XZMM7A                                             RFIT V0596900     *          INSERTED*
               .XZMM7   C     WB,TCBJSTCB         IS THIS TCB A JOB STEP          RFIT V0597200     *          INSERTED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0050


                        BCR   NE,LINK             NOT JOB STEP, RETURN NOT FOUND  RFIT V0598000     *          INSERTED*
                        CLC   TCBLTC+1(3),=F'0'   DOES TCB HAVE DAUGHTERS         RFIT V0600000     *          INSERTED*
                        BCR   NE,LINK             RETURN NOT FOUND IF DAUGHTERS   RFIT V0602000     *          INSERTED*
                        L     R1,TCBOTC           PICK UP INITIATOR TCB           RFIT V0604000     *          INSERTED*

               .XZMM7A  LTR   R1,R1               IS IT A GOOD POINTER            RFIT V0606000     *          INSERTED*
                        BCR   E,LINK              RETURN NOT FOUND IF ZERO        RFIT V0608000     *          INSERTED*
                        TM    TCBPKF-TCBDSECT(R1),X'F0'     ZERO KEY ?            RFIT V0610000     *          INSERTED*
                        BCR   Z,LINK              IF SO, RETURN NOT FOUND         RFIT V0612000     *          INSERTED*

                        L     R1,TCBTME-TCBDSECT(0,R1) PICK UP TIMER ELEMENT      RFIT V0614000     *          INSERTED*
                        LTR   R1,R1               IS IT A GOOD PTR                RFIT V0616000     *          INSERTED*
                        BCR   E,LINK              RETURN NOT FOUND IF ZERO        RFIT V0618000     *          INSERTED*
                        TM    TQEFLGS(R1),X'03'   TEST FOR WAIT TIMER             RFIT V0620000     *          INSERTED*
               .XZMB    ANOP                                                      RFIT V0622000     *          INSERTED*
               XZMATCHT BO    *+12                JUMP OVER PRIMARY TIMER PICK UP RFIT V0624000     *          INSERTED*
                        L     R1,TQEVAL(R1)       PICK UP JOB STEP TIMER          RFIT V0626000     *          INSERTED*
                        B     *+8                 JUMP OVER ALTERNATE PICK UP     RFIT V0628000     *          INSERTED*
                        L     R1,TQESAV(R1)       PICK UP JOB STEP TIMER          RFIT V0630000     *          INSERTED*
                        L     WD,TCBTIO           PICK UP TASK I/O TABLE          RFIT V0632000     *          INSERTED*
                        L     WC,=V($EXECPCE)     PICK UP FIRST EXEC PCE          RFIT V0634000     *          INSERTED*
                        LA    R0,&MAXXEQS         MAXIMUM NUMBER OF JOBS          RFIT V0636000     *          INSERTED*

               XZMATCHL CLC   XPCEJOBN-PCEDSECT(8,WC),0(WD) TEST FOR MONITORED    RFIT V0638000     *          INSERTED*
                        BE    4(LINK)             RETURN IF FOUND                 RFIT V0640000     *          INSERTED*
                        L     WC,PCENEXT-PCEDSECT(WC) PICK UP NEXT PCE            RFIT V0642000     *          INSERTED*

                        BCT   R0,XZMATCHL         LOOP TO END OF ALL JOBS         RFIT V0644000     *          INSERTED*
                        BR    LINK                RETURN NOT FOUND                RFIT V0646000     *          INSERTED*
                        DROP  WB                  DROP TCB ADDRESSABILTIY         RFIT V0648000     *          INSERTED*
               *                                                                  RFIT V0650000     *          INSERTED*
               *        WORK AREAS FOR EXECUTION TASK MONITOR                     RFIT V0652000     *          INSERTED*
               *                                                                  RFIT V0654000     *          INSERTED*
                        DROP  BASE3               KILL OLAY                       RFIT V0656000     *          INSERTED*
               HASPMISC CSECT                     RESUME BASE2                    RFIT V0658000     *          INSERTED*
               XZTQE    DC    A(0,0),X'80',AL3($XMONPCE+PCEEWF+$EWBWORK-PCEDSECT) RFIT V0660000     *          INSERTED*
                        EXTRN $XMONPCE            DEFINE EXTERNAL SYMBOL          RFIT V0662000     *          INSERTED*
               XZTCBTAB DS    0F                                                  RFIT V0664000     *          INSERTED*
               XZTCBTCB EQU   0                   MONITORED TASK POINTER          RFIT V0666000     *          INSERTED*

               XZJSCNT  EQU   XZTCBTCB+4          JOB STEP COUNTER                RFIT V0668000     *          INSERTED*
               XZHIST   EQU   XZJSCNT+4           TASK CPU HISTORY                RFIT V0670000     *          INSERTED*
                        AIF   (NOT &XZMULT).XZMM8                                 RFIT V0670500     *          INSERTED*
               XZJSTCB  EQU   XZHIST+4            JOB STEP TCB POINTER            RFIT V0671000     *          INSERTED*

                        DC    (&MAXXEQS+1)X'80000000000000000000000000000000'     RFIT V0671500     *          INSERTED*
               XZSPARE  DS    4F                  AREA USED FOR SORTS             RFIT V0672000     *          INSERTED*
                        AGO   .XZMM8A                                             RFIT V0672500     *          INSERTED*
               .XZMM8   DC    (&MAXXEQS+1)X'800000000000000000000000'             RFIT V0673000     *          INSERTED*
               XZSPARE  DS    3F                  AREA USED FOR SORTS             RFIT V0674000     *          INSERTED*
               .XZMM8A  ANOP                                                      RFIT V0675000     *          INSERTED*
               XZTCBL   EQU   (XZSPARE-XZTCBTAB)/(&MAXXEQS+1) LENGTH OF ELEMENT   RFIT V0676000     *          INSERTED*
               XZTABEND DC    A(XZSPARE-XZTCBL)   END OF TABLE POINTER            RFIT V0678000     *          INSERTED*
               &TEMP    SETA  100                 RECOVERY TIME PERCENTAGE        RFIT V0680000     *          INSERTED*
               &TEMP    SETA  &MONINTV*1000000/26*&TEMP/100                       RFIT V0682000     *          INSERTED*
               XZLFACT  DC    F'-&TEMP'           RECOVERY FACTOR IN TIMER UNITS  RFIT V0684000     *          INSERTED*
               TQEVAL   EQU   12                  OS REL 17 MVT TIMER VALUE       RFIT V0686000     *          INSERTED*

               TQESAV   EQU   20                  OS REL 17 MVT TIMER SAVE        RFIT V0688000     *          INSERTED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0051


               TQEFLGS  EQU   0                   OS REL 17 MVT TIMER FLAGS       RFIT V0690000     *          INSERTED*

               PIBJSTQE EQU   40                  OS REL 19 MFT JOB STEP TIMER    RFIT V0692000     *          INSERTED*
                        DS    0D             EXECUTION MONITOR RESIDENT LITERAL PORFIT V0694000     *          INSERTED*
                        LTORG                                                     RFIT V0696000     *          INSERTED*
               .XZEXIT  ANOP                                                      RFIT V0698000     *          INSERTED*
                        MVCL  R0,R14              MOVE PRPU CHKPT TO CHKPT REC         V0796000     *          REPLACED*
               *        MVCL  R0,R14              MOVE PRPU CHKPT TO CHKPT REC    RFIT V0796000     *       REPLACEMENT*
                        LR    R1,R0                                               RFIT V0796005     *          INSERTED*
               &PRCPRC  SETA  &NUMPRC*28  THIS VALUE MUST BE CHANGED IF PRT CKPT  RFIT V0796010     *          INSERTED*
               *                             IS EVER EXPANDED        .......C     RFIT V0796015     *          INSERTED*
                        $XXC  MVC,(0,R1),(0,R14),&PRCPRC                          RFIT V0796020     *          INSERTED*
IEB816I MEMBER NAME (HASPMISC) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0052



       ./  CHANGE  NAME=HASPNUC,SEQFLD=747
               *                                                                  RFIT H0000000     *          INSERTED*
               *                            KILL ALL 370 INSTRUCTIONS             RFIT H0000010     *          INSERTED*
               *                                                                  RFIT H0000020     *          INSERTED*

               MVCL     OPSYN ,                                                   RFIT H0000030     *          INSERTED*
               CLCL     OPSYN ,                                                   RFIT H0000040     *          INSERTED*
               SIOF     OPSYN ,                                                   RFIT H0000050     *          INSERTED*
               HDV      OPSYN ,                                                   RFIT H0000070     *          INSERTED*
               STNSM    OPSYN ,                                                   RFIT H0000080     *          INSERTED*
               STOSM    OPSYN ,                                                   RFIT H0000090     *          INSERTED*
               MC       OPSYN ,                                                   RFIT H0000110     *          INSERTED*
               LRA      OPSYN ,                                                   RFIT H0000120     *          INSERTED*
               STCTL    OPSYN ,                                                   RFIT H0000130     *          INSERTED*
               LCTL     OPSYN ,                                                   RFIT H0000140     *          INSERTED*
               CLM      OPSYN ,                                                   RFIT H0000180     *          INSERTED*
               STCM     OPSYN ,                                                   RFIT H0000190     *          INSERTED*

               ICM      OPSYN ,                                                   RFIT H0000200     *          INSERTED*
               STIDP    OPSYN ,                                                   RFIT H0000210     *          INSERTED*
               STIDC    OPSYN ,                                                   RFIT H0000220     *          INSERTED*

               SCK      OPSYN ,                                                   RFIT H0000230     *          INSERTED*
               STCK     OPSYN ,                                                   RFIT H0000240     *          INSERTED*
               SCKC     OPSYN ,                                                   RFIT H0000250     *          INSERTED*
               STCKC    OPSYN ,                                                   RFIT H0000260     *          INSERTED*
               SPT      OPSYN ,                                                   RFIT H0000270     *          INSERTED*
               STPT     OPSYN ,                                                   RFIT H0000280     *          INSERTED*
               PTLB     OPSYN ,                                                   RFIT H0000310     *          INSERTED*
               RRB      OPSYN ,                                                   RFIT H0000350     *          INSERTED*
               SRP      OPSYN ,                                                   RFIT H0000360     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).HASP1                          RFIT H0227900     *          INSERTED*
                        AGO   .HASP2                                              RFIT H0228100     *          INSERTED*
               .HASP1  $DISABLE ALL                                               RFIT H0228200     *          INSERTED*

               .HASP2   ANOP                                                      RFIT H0228300     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).HASP3                          RFIT H0237900     *          INSERTED*
                        AGO   .HASP4                                              RFIT H0238100     *          INSERTED*

               .HASP3  $ENABLE ALL                                                RFIT H0238200     *          INSERTED*
               .HASP4   ANOP                                                      RFIT H0238300     *          INSERTED*
                        STCM  R1,7,BUFDCT+1       MAKE THE IOB POINT TO THE DCT.       H0460000     *          REPLACED*
               *        STCM  R1,7,BUFDCT+1       MAKE THE IOB POINT TO THE DCT   RFIT H0460000     *       REPLACEMENT*
                        ST    R1,TEMPSAVE                                         RFIT H0460005     *          INSERTED*
                        MVC   BUFDCT+1(3),TEMPSAVE+1                              RFIT H0460010     *          INSERTED*
               WFMLOOP  ICM   R13,15,TCBTCB       PICK UP NEXT TCB                     H2420800     *          REPLACED*
               *WFMLOOP ICM   R13,15,TCBTCB       PICK UP NEXT TCB                RFIT H2420800     *       REPLACEMENT*
               WFMLOOP  L     R13,TCBTCB                                          RFIT H2420805     *          INSERTED*
                        LTR   R13,R13                                             RFIT H2420810     *          INSERTED*
               WFMLOOPR ICM   R13,7,RBLINK+1      POINT TO NEXT RB                     H2423600     *          REPLACED*
               *WFMLOOPRICM   R13,7,RBLINK+1      POINT TO NEXT RB                RFIT H2423600     *       REPLACEMENT*

               WFMLOOPR L     R13,RBLINK                                          RFIT H2423605     *          INSERTED*
                        SLL   R13,8                                               RFIT H2423610     *          INSERTED*
                        SRL   R13,8                                               RFIT H2423615     *          INSERTED*
                        CLM   R13,7,$CMBWECB+1    CHECK FOR MATCHING RB                H2424800     *          REPLACED*

               *        CLM   R13,7,$CMBWECB+1    CHECK FOR MATCHING RB           RFIT H2424800     *       REPLACEMENT*
                        ST    R13,TEMPSAVE                                        RFIT H2424805     *          INSERTED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0053


                        CLC   TEMPSAVE+1(3),$CMBWECB+1                            RFIT H2424810     *          INSERTED*
                        SPACE 5                                                   RFIT H2429205     *          INSERTED*
               TEMPSAVE DS    F                                                   RFIT H2429210     *          INSERTED*
                        SPACE 5                                                   RFIT H2429215     *          INSERTED*
                        ICM   R2,7,CMBCHAIN-CMBDSECT+1(R2) POINT TO NEXT               H2452800     *          REPLACED*
               *        ICM   R2,7,CMBCHAIN-CMBDSECT+1(R2) POINT TO NEXT          RFIT H2452800     *       REPLACEMENT*
                        L     R2,CMBCHAIN-CMBDSECT(R2)                            RFIT H2452805     *          INSERTED*
                        SLL   R2,8                                                RFIT H2452810     *          INSERTED*
                        SRL   R2,8                                                RFIT H2452815     *          INSERTED*

                        LTR   R2,R2                                               RFIT H2452820     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).ESIO1                          RFIT H4473900     *          INSERTED*
                        AGO   .ESIO2                                              RFIT H4474100     *          INSERTED*

               .ESIO1   DC    A(ERETURN)          SIO                             RFIT H4474200     *          INSERTED*
               .ESIO2   ANOP                                                      RFIT H4474300     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).ESIO3                          RFIT H4480100     *          INSERTED*
               .ESIO3   ANOP                                                      RFIT H4483400     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).ASYNC1                         RFIT H4601900     *          INSERTED*
                        AGO   .ASYNC2                                             RFIT H4602100     *          INSERTED*
               .ASYNC1 $DISABLE ALL                                               RFIT H4602200     *          INSERTED*
               .ASYNC2  ANOP                                                      RFIT H4602300     *          INSERTED*
                        AIF   (NOT &SYSVS2).ASYNC3                                RFIT H4606900     *          INSERTED*
               .ASYNC3  ANOP                                                      RFIT H4607100     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).ASYNC4                         RFIT H4608900     *          INSERTED*
               .ASYNC4  ANOP                                                      RFIT H4609100     *          INSERTED*

                        AIF   (&SYSMFT OR &SYSMVT).ASYNC5                         RFIT H4611400     *          INSERTED*
               .ASYNC5  ANOP                                                      RFIT H4613600     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).ASYNC6                         RFIT H4614400     *          INSERTED*
                        AGO   .ASYNC7                                             RFIT H4614600     *          INSERTED*

               .ASYNC6 $ENABLE ALL                                                RFIT H4614700     *          INSERTED*
               .ASYNC7  ANOP                                                      RFIT H4614800     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).ASYNC8                         RFIT H4693900     *          INSERTED*
                        AGO   .ASYNC9                                             RFIT H4694100     *          INSERTED*
               .ASYNC8 $ENABLE ALL                                                RFIT H4694200     *          INSERTED*
               .ASYNC9  ANOP                                                      RFIT H4694300     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).ASYNCB                         RFIT H4700250     *          INSERTED*
                        AGO   .ASYNCC                                             RFIT H4700450     *          INSERTED*
               .ASYNCB $ENABLE ALL                RE-ENABLE                       RFIT H4700500     *          INSERTED*
               .ASYNCC  ANOP                                                      RFIT H4700550     *          INSERTED*
                        AIF   (NOT &SYSVS2).ASYNCA                                RFIT H4700900     *          INSERTED*
               .ASYNCA  ANOP                                                      RFIT H4703300     *          INSERTED*

                     AIF (((&MAXXEQS LT 2) OR (&MONINTV EQ 0)) OR &SYSVS2).HNOXM1 RFIT H5424000     *          INSERTED*
               *                                                                  RFIT H5425000     *          INSERTED*
               *                                  TASK MONITOR PROCESSOR          RFIT H5426000     *          INSERTED*

               *                                                                  RFIT H5427000     *          INSERTED*
                        SPACE 3                                                   RFIT H5428000     *          INSERTED*
                        ENTRY $XMONPCE            ADDRESS OF TASK MONITOR PCE     RFIT H5429000     *          INSERTED*
               $XMONPCE $GENPCE 1,PCEXZMID,HASPXMON                               RFIT H5430000     *          INSERTED*
                        SPACE 2                                                   RFIT H5431000     *          INSERTED*
               .HNOXM1  ANOP                                                      RFIT H5432000     *          INSERTED*
IEB816I MEMBER NAME (HASPNUC ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0054


       ./    CHANGE NAME=HASPOBLD
               *                                                                  RFIT O0000000     *          INSERTED*
               *                            KILL ALL 370 INSTRUCTIONS             RFIT O0000010     *          INSERTED*
               *                                                                  RFIT O0000020     *          INSERTED*

               MVCL     OPSYN ,                                                   RFIT O0000030     *          INSERTED*
               CLCL     OPSYN ,                                                   RFIT O0000040     *          INSERTED*
               SIOF     OPSYN ,                                                   RFIT O0000050     *          INSERTED*
               HDV      OPSYN ,                                                   RFIT O0000070     *          INSERTED*

               STNSM    OPSYN ,                                                   RFIT O0000080     *          INSERTED*
               STOSM    OPSYN ,                                                   RFIT O0000090     *          INSERTED*
               MC       OPSYN ,                                                   RFIT O0000110     *          INSERTED*
               LRA      OPSYN ,                                                   RFIT O0000120     *          INSERTED*
               STCTL    OPSYN ,                                                   RFIT O0000130     *          INSERTED*
               LCTL     OPSYN ,                                                   RFIT O0000140     *          INSERTED*
               CLM      OPSYN ,                                                   RFIT O0000180     *          INSERTED*
               STCM     OPSYN ,                                                   RFIT O0000190     *          INSERTED*
               ICM      OPSYN ,                                                   RFIT O0000200     *          INSERTED*
               STIDP    OPSYN ,                                                   RFIT O0000210     *          INSERTED*
               STIDC    OPSYN ,                                                   RFIT O0000220     *          INSERTED*
               SCK      OPSYN ,                                                   RFIT O0000230     *          INSERTED*

               STCK     OPSYN ,                                                   RFIT O0000240     *          INSERTED*
               SCKC     OPSYN ,                                                   RFIT O0000250     *          INSERTED*
               STCKC    OPSYN ,                                                   RFIT O0000260     *          INSERTED*

               SPT      OPSYN ,                                                   RFIT O0000270     *          INSERTED*
               STPT     OPSYN ,                                                   RFIT O0000280     *          INSERTED*
               PTLB     OPSYN ,                                                   RFIT O0000310     *          INSERTED*
               RRB      OPSYN ,                                                   RFIT O0000350     *          INSERTED*
               SRP      OPSYN ,                                                   RFIT O0000360     *          INSERTED*
IEB816I MEMBER NAME (HASPOBLD) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0055


       ./  CHANGE  NAME=HASPPRPU,SEQFLD=747
               *                                                                  RFIT P0000000     *          INSERTED*
               *                            KILL ALL 370 INSTRUCTIONS             RFIT P0000010     *          INSERTED*
               *                                                                  RFIT P0000020     *          INSERTED*
               MVCL     OPSYN ,                                                   RFIT P0000030     *          INSERTED*

               CLCL     OPSYN ,                                                   RFIT P0000040     *          INSERTED*
               SIOF     OPSYN ,                                                   RFIT P0000050     *          INSERTED*
               HDV      OPSYN ,                                                   RFIT P0000070     *          INSERTED*
               STNSM    OPSYN ,                                                   RFIT P0000080     *          INSERTED*

               STOSM    OPSYN ,                                                   RFIT P0000090     *          INSERTED*
               MC       OPSYN ,                                                   RFIT P0000110     *          INSERTED*
               LRA      OPSYN ,                                                   RFIT P0000120     *          INSERTED*
               STCTL    OPSYN ,                                                   RFIT P0000130     *          INSERTED*
               LCTL     OPSYN ,                                                   RFIT P0000140     *          INSERTED*
               CLM      OPSYN ,                                                   RFIT P0000180     *          INSERTED*
               STCM     OPSYN ,                                                   RFIT P0000190     *          INSERTED*
               ICM      OPSYN ,                                                   RFIT P0000200     *          INSERTED*
               STIDP    OPSYN ,                                                   RFIT P0000210     *          INSERTED*
               STIDC    OPSYN ,                                                   RFIT P0000220     *          INSERTED*
               SCK      OPSYN ,                                                   RFIT P0000230     *          INSERTED*
               STCK     OPSYN ,                                                   RFIT P0000240     *          INSERTED*

               SCKC     OPSYN ,                                                   RFIT P0000250     *          INSERTED*
               STCKC    OPSYN ,                                                   RFIT P0000260     *          INSERTED*
               SPT      OPSYN ,                                                   RFIT P0000270     *          INSERTED*

               STPT     OPSYN ,                                                   RFIT P0000280     *          INSERTED*
               PTLB     OPSYN ,                                                   RFIT P0000310     *          INSERTED*
               RRB      OPSYN ,                                                   RFIT P0000350     *          INSERTED*
               SRP      OPSYN ,                                                   RFIT P0000360     *          INSERTED*
                        ICM   R1,8,=AL1(DCTREAD)  INDICATE READ OPERATION              P0220000     *          REPLACED*
               *        ICM   R1,8,=AL1(DCTREAD)  INDICATE READ OPERATION         RFIT P0220000     *       REPLACEMENT*
                        SLL   R1,8                                                RFIT P0220005     *          INSERTED*
                        SRL   R1,8                                                RFIT P0220010     *          INSERTED*
                        IC    RNP,=AL1(DCTREAD)                                   RFIT P0220015     *          INSERTED*
                        SLL   RNP,24                                              RFIT P0220020     *          INSERTED*
                        OR    R1,RNP                                              RFIT P0220025     *          INSERTED*
                        CLM   R1,7,OPJQE+1        IS JOB CONTROL TABLE VALID           P0232000     *          REPLACED*

               *        CLM   R1,7,OPJQE+1        IS JOB CONTROL TABLE VALID      RFIT P0232000     *       REPLACEMENT*
                        ST    R1,DARTSCR1                                         RFIT P0232005     *          INSERTED*
                        CLC   DARTSCR1+1(3),OPJQE+1                               RFIT P0232010     *          INSERTED*
                        ICM   R1,8,=AL1(DCTREAD)  INDICATE READ OPERATION              P0302000     *          REPLACED*

               *        ICM   R1,8,=AL1(DCTREAD)  INDICATE READ OPERATION         RFIT P0302000     *       REPLACEMENT*
                        SLL   R1,8                                                RFIT P0302005     *          INSERTED*
                        SRL   R1,8                                                RFIT P0302010     *          INSERTED*
                        IC    RNP,=AL1(DCTREAD)                                   RFIT P0302015     *          INSERTED*
                        SLL   RNP,24                                              RFIT P0302020     *          INSERTED*
                        OR    R1,RNP                                              RFIT P0302025     *          INSERTED*
                        ICM   R0,15,IOTIOTTR      LOAD AND TEST NEXT IOT TRACK         P0336000     *          REPLACED*
               *        ICM   R0,15,IOTIOTTR      LOAD AND TEST NEXT TRACK        RFIT P0336000     *       REPLACEMENT*
                        L     R0,IOTIOTTR                                         RFIT P0336005     *          INSERTED*
                        LTR   R0,R0                                               RFIT P0336010     *          INSERTED*
                        ICM   JCT,15,IOTIOT       LOAD AND TEST IOT CHAIN              P0384000     *          REPLACED*
               *        ICM   JCT,15,IOTIOT       LOAD AND TEST IOT CHAIN         RFIT P0384000     *       REPLACEMENT*

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0056


                        L     JCT,IOTIOT                                          RFIT P0384005     *          INSERTED*
                        LTR   JCT,JCT                                             RFIT P0384010     *          INSERTED*

                        BZ    *+8                 BRANCH IF NO                         P0430000     *          REPLACED*
                        BZ    DART01A             BRANCH IF NO                    RFIT P0430000     *       REPLACEMENT*
                        ICM   RNP,8,PDBFLAG2      SELECT OPTION FLAGS                  P0432000     *          REPLACED*
               *        ICM   RNP,8,PDBFLAG2      SELECT OPTION FLAGS             RFIT P0432000     *       REPLACEMENT*
                        IC    RNP,PDBFLAG2                                        RFIT P0432005     *          INSERTED*
                        SLL   RNP,24                                              RFIT P0432010     *          INSERTED*
               DART01A  EQU   *                                                   RFIT P0432015     *          INSERTED*
                        ICM   JCT,15,IOTIOT       LOAD AND TEST IOT CHAIN              P0700000     *          REPLACED*
               *        ICM   JCT,15,IOTIOT       LOAD AND TEST IOT CHAIN         RFIT P0700000     *       REPLACEMENT*
                        L     JCT,IOTIOT                                          RFIT P0700005     *          INSERTED*
                        LTR   JCT,JCT                                             RFIT P0700010     *          INSERTED*
                        BZ    *+8                 BRANCH IF NO                         P0742000     *          REPLACED*

                        BZ    DART01B             BRANCH IF NO                    RFIT P0742000     *       REPLACEMENT*
                        ICM   RNP,8,PDBFLAG2      SELECT OPTION FLAGS                  P0744000     *          REPLACED*
               *        ICM   RNP,8,PDBFLAG2      SELECT OPTION FLAGS             RFIT P0744000     *       REPLACEMENT*

                        IC    RNP,PDBFLAG2                                        RFIT P0744005     *          INSERTED*
                        SLL   RNP,24                                              RFIT P0744010     *          INSERTED*
               DART01B  EQU   *                                                   RFIT P0744015     *          INSERTED*
                        ICM   R2,15,OPDDB         IS RESTART ADDRESS 0                 P0972000     *          REPLACED*
               *        ICM   R2,15,OPDDB         IS RESTART ADDRESS ZERO         RFIT P0972000     *       REPLACEMENT*
                        L     R2,OPDDB                                            RFIT P0972005     *          INSERTED*
                        LTR   R2,R2                                               RFIT P0972010     *          INSERTED*
                        ICM   R1,8,=AL1(DCTREAD)  INDICATE READ OPERATION              P1018000     *          REPLACED*
               *        ICM   R1,8,=AL1(DCTREAD)  INDICATE READ OPERATION         RFIT P1018000     *       REPLACEMENT*
                        SLL   R1,8                                                RFIT P1018005     *          INSERTED*
                        SRL   R1,8                                                RFIT P1018010     *          INSERTED*
                        IC    R0,=AL1(DCTREAD)                                    RFIT P1018015     *          INSERTED*

                        SLL   R0,24                                               RFIT P1018020     *          INSERTED*
                        OR    R1,R0                                               RFIT P1018025     *          INSERTED*
                        CLM   R3,7,OPJQE+1        IS JCT VALID                         P1032000     *          REPLACED*
               *        CLM   R3,7,OPJQE+1        IS JCT VALIT                    RFIT P1032000     *       REPLACEMENT*

                        ST    R3,DARTSCR1                                         RFIT P1032002     *          INSERTED*
                        CLC   DARTSCR1+1(3),OPJQE+1                               RFIT P1032010     *          INSERTED*
                        ICM   R1,8,=AL1(DCTWRITE) INDICATE WRITE OPERATION             P1046000     *          REPLACED*
               *        ICM   R1,8,=AL1(DCTWRITE) VALIDATE WRITE OPERATION        RFIT P1046000     *       REPLACEMENT*
                        SLL   R1,8                                                RFIT P1046005     *          INSERTED*
                        SRL   R1,8                                                RFIT P1046010     *          INSERTED*
                        IC    RNP,=AL1(DCTWRITE)                                  RFIT P1046015     *          INSERTED*
                        SLL   RNP,24                                              RFIT P1046020     *          INSERTED*
                        OR    R1,RNP                                              RFIT P1046025     *          INSERTED*
                        ICM   JCT,15,OPJCTBUF     LOAD AND TEST BUFFER POINTER         P1082000     *          REPLACED*
               *        ICM   JCT,15,OPJCTBUF     LOAD AND TEST BUFFER POINTER    RFIT P1082000     *       REPLACEMENT*
                        L     JCT,OPJCTBUF                                        RFIT P1082005     *          INSERTED*

                        LTR   JCT,JCT                                             RFIT P1082010     *          INSERTED*
                        STCM  R1,8,DCTIOTYP       SET TYPE TO READ OR WRITE            P1160000     *          REPLACED*
               *        STCM  R1,8,DCTIOTYP       SET TYPE TO READ OR WRITE       RFIT P1160000     *       REPLACEMENT*

                        ST    R1,DARTSCR1                                         RFIT P1160005     *          INSERTED*
                        MVC   DCTIOTYP(1),DARTSCR1                                RFIT P1160010     *          INSERTED*
                        ICM   R15,8,PCELINK       CLASS ID TO RETURN REG               P2146000     *          REPLACED*
               *        ICM   R15,8,PCELINK       CLASS ID TO RETURN REG          RFIT P2146000     *       REPLACEMENT*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0057


                        SLL   R15,8                                               RFIT P2146005     *          INSERTED*
                        SRL   R15,8                                               RFIT P2146010     *          INSERTED*
                        IC    R2,PCELINK                                          RFIT P2146015     *          INSERTED*
                        SLL   R2,24                                               RFIT P2146020     *          INSERTED*
                        OR    R15,R2                                              RFIT P2146025     *          INSERTED*
                        CLM   R2,12,0(R3)         IS NEXT FREE DISPL ZERO              P2706000     *          REPLACED*
               *        CLM   R2,12,0(R3)         IS NEXT FREE DISPL ZERO         RFIT P2706000     *       REPLACEMENT*

                        ST    R2,DARTSCR1                                         RFIT P2706005     *          INSERTED*
                        CLC   DARTSCR1(2),0(R3)                                   RFIT P2706015     *          INSERTED*
                        ICM   R2,12,0(R3)         GET OLD NEXT FREE DISPL              P2718000     *          REPLACED*
               *        ICM   R2,12,0(R3)         GET OLD NEXT FREE DISPL         RFIT P2718000     *       REPLACEMENT*

                        XC    DARTSCR1,DARTSCR1                                   RFIT P2718005     *          INSERTED*
                        SLL   R2,16                                               RFIT P2718010     *          INSERTED*
                        SRL   R2,16                                               RFIT P2718015     *          INSERTED*
                        MVC   DARTSCR1(2),0(R3)                                   RFIT P2718020     *          INSERTED*
                        O     R2,DARTSCR1                                         RFIT P2718025     *          INSERTED*
                        STCM  R2,12,0(R3)         RECONNECT CHAIN                      P2728000     *          REPLACED*
               *        STCM  R2,12,0(R3)         RECONNECT CHAIN                 RFIT P2728000     *       REPLACEMENT*
                        ST    R2,DARTSCR1                                         RFIT P2728005     *          INSERTED*
                        MVC   0(2,R3),DARTSCR1                                    RFIT P2728010     *          INSERTED*
               DARTSCR1 DS    F                                                   RFIT P2734005     *          INSERTED*
                        CLM   R1,7,PJOB+1         IS JOB CONTROL TABLE VALID           P3112000     *          REPLACED*
               *        CLM   R1,7,PJOB+1         IS JOB CONTROL TABLE VALID      RFIT P3112000     *       REPLACEMENT*

                        ST    R1,DARTSCR2                                         RFIT P3112005     *          INSERTED*
                        CLC   DARTSCR2+1(3),PJOB+1                                RFIT P3112010     *          INSERTED*
                        CLM   R1,7,PJOB+1         IS JOB CONTROL TABLE VALID           P3312000     *          REPLACED*

               *        CLM   R1,7,PJOB+1         IS JOB CONTROL TABLE VALID      RFIT P3312000     *       REPLACEMENT*
                        ST    R1,DARTSCR2                                         RFIT P3312005     *          INSERTED*
                        CLC   DARTSCR2+1(3),PJOB+1                                RFIT P3312010     *          INSERTED*
                        CLM   R1,7,PJOB+1         IS JOB CONTROL TABLE VALID           P3330000     *          REPLACED*
               *        CLM   R1,7,PJOB+1         IS JOB CONTROL TABLE VALID      RFIT P3330000     *       REPLACEMENT*
                        ST    R1,DARTSCR2                                         RFIT P3330005     *          INSERTED*
                        CLC   DARTSCR2+1(3),PJOB+1                                RFIT P3330010     *          INSERTED*
                        ICM   R15,15,IOTIOTTR     LOAD AND TEST NEXT TRACK             P3758000     *          REPLACED*
               *        ICM   R15,15,IOTIOTTR     LOAD AND TEST NEXT TRACK        RFIT P3758000     *       REPLACEMENT*
                        L     R15,IOTIOTTR                                        RFIT P3758005     *          INSERTED*
                        LTR   R15,R15                                             RFIT P3758010     *          INSERTED*
                        BZ    *+8                 BRANCH IF NO                         P3798000     *          REPLACED*

                        BZ    DART01C             BRANCH IF NO                    RFIT P3798000     *       REPLACEMENT*
                        ICM   R0,8,PDBFLAG2       SELECT OPTION FLAGS                  P3800000     *          REPLACED*
               *        ICM   R0,8,PDBFLAG2       SELECT OPTION FLAGS             RFIT P3800000     *       REPLACEMENT*
                        IC    R0,PDBFLAG2                                         RFIT P3800005     *          INSERTED*

                        SLL   R0,24                                               RFIT P3800010     *          INSERTED*
               DART01C  DS    0H                                                  RFIT P3800015     *          INSERTED*
                        ICM   PC1,3,PCEEJRCB      GET RCB DISPLACEMENT                 P4168000     *          REPLACED*
               *        ICM   PC1,3,PCEEJRCB      GET RCB DISPLACEMENT            RFIT P4168000     *       REPLACEMENT*
                        SRL   PC1,16                                              RFIT P4168005     *          INSERTED*
                        SLL   PC1,16                                              RFIT P4168010     *          INSERTED*
                        LH    R1,PCEEJRCB                                         RFIT P4168015     *          INSERTED*
                        OR    PC1,R1                                              RFIT P4168020     *          INSERTED*
                        LH    R1,PCEEJRCB         GET CURRENT RCB DISPL                P4172000     *          REPLACED*
               *        LH    R1,PCEEJRCB         GET CURRENT RCB DISPL           RFIT P4172000     *       REPLACEMENT*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0058


                        ICM   R15,15,HDBNXTRK     LOAD AND TEST CHAIN TRACK            P4408000     *          REPLACED*

               *        ICM   R15,15,HDBNXTRK     LOAD AND TEST CHAIN TRACK       RFIT P4408000     *       REPLACEMENT*
                        L     R15,HDBNXTRK                                        RFIT P4408005     *          INSERTED*
                        LTR   R15,R15                                             RFIT P4408010     *          INSERTED*

                        CLM   R1,7,PJOB+1         IS JOB CONTROL TABLE VALID           P4712000     *          REPLACED*
               *        CLM   R1,7,PJOB+1         IS JOB CONTROL TABLE VALID      RFIT P4712000     *       REPLACEMENT*
                        ST    R1,DARTSCR2                                         RFIT P4712005     *          INSERTED*
                        CLC   DARTSCR2+1(3),PJOB+1                                RFIT P4712010     *          INSERTED*
                        CLM   R1,7,PJOB+1         IS JCT VALID                 OY02728 P4770600     *          REPLACED*
               *        CLM   R1,7,PJOB+1         IS JCT VALID                    RFIT P4770600     *       REPLACEMENT*
                        ST    R1,DARTSCR2                                         RFIT P4770605     *          INSERTED*
                        CLC   DARTSCR2+1(3),PJOB+1                                RFIT P4770610     *          INSERTED*
                        CLM   PL,1,=AL1(30)       AT LEAST 30 LINES REQUESTED          P5498000     *          REPLACED*
               *        CLM   PL,1,=AL1(30)       IS AT LEAST 30 LINES REQUESTED  RFIT P5498000     *       REPLACEMENT*
                        ST    PL,DARTSCR2                                         RFIT P5498005     *          INSERTED*
                        CLC   DARTSCR2+3(1),=AL1(30)                              RFIT P5498010     *          INSERTED*

                        ICM   PC1,8,=X'13'        SET CCW TO DOUBLE SPACE              P5524000     *          REPLACED*
               *        ICM   PC1,8,=X'13'        SET CCW TO DOUBLE SPACE         RFIT P5524000     *       REPLACEMENT*
                        SLL   PC1,8                                               RFIT P5524005     *          INSERTED*
                        SRL   PC1,8                                               RFIT P5524010     *          INSERTED*

                        IC    PL,=X'13'                                           RFIT P5524015     *          INSERTED*
                        SLL   PL,24                                               RFIT P5524020     *          INSERTED*
                        OR    PC1,PL                                              RFIT P5524025     *          INSERTED*
                        CLM   PLC,1,=AL1(30)      WAS BLOCK LETTER SEGMENT USED        P5668000     *          REPLACED*
               *        CLM   PLC,1,=AL1(30)      WAS BLOCK LETTER SEGMENT USED   RFIT P5668000     *       REPLACEMENT*
                        ST    PLC,DARTSCR2                                        RFIT P5668005     *          INSERTED*
                        CLC   DARTSCR2+3(1),=AL1(30)                              RFIT P5668010     *          INSERTED*
                        ICM   R15,1,0(R7)         GET TRANSLATED LETTER INDEX          P5728000     *          REPLACED*
               *        ICM   R15,1,0(R7)         GET TRANSLATED LETTER INDEX     RFIT P5728000     *       REPLACEMENT*
                        IC    R15,0(R7)                                           RFIT P5728005     *          INSERTED*
                        LTR   R15,R15                                             RFIT P5728010     *          INSERTED*
                        ICM   R15,12,0(R15)       LETTER MASK BITS                     P5740000     *          REPLACED*

               *        ICM   R15,12,0(R15)       LETTER MASK BITS                RFIT P5740000     *       REPLACEMENT*
                        XC    DARTSCR2,DARTSCR2                                   RFIT P5740005     *          INSERTED*
                        MVC   DARTSCR2(2),0(R15)                                  RFIT P5740010     *          INSERTED*

                        SLL   R15,16                                              RFIT P5740015     *          INSERTED*
                        SRL   R15,16                                              RFIT P5740020     *          INSERTED*
                        O     R15,DARTSCR2                                        RFIT P5740025     *          INSERTED*
               PRDNXTB  ICM   R15,15,HDBNXTRK     IS CHAIN TRACK ZERO                  P5836000     *          REPLACED*
               *PRDNXTB ICM   R15,15,HDBNXTRK     IS CHAIN TRACK ZERO             RFIT P5836000     *       REPLACEMENT*
               PRDNXTB  L     R15,HDBNXTRK                                        RFIT P5836005     *          INSERTED*
                        LTR   R15,R15                                             RFIT P5836010     *          INSERTED*
                        SPACE 3                                                   RFIT P6524050     *          INSERTED*
               DARTSCR2 DS    F                                                   RFIT P6524100     *          INSERTED*
IEB816I MEMBER NAME (HASPPRPU) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0059


       ./  CHANGE NAME=HASPRDR,SEQFLD=747                                 RFIT

               *                                                                  RFIT R0000000     *          INSERTED*
               *                            KILL ALL 370 INSTRUCTIONS             RFIT R0000010     *          INSERTED*
               *                                                                  RFIT R0000020     *          INSERTED*
               MVCL     OPSYN ,                                                   RFIT R0000030     *          INSERTED*

               CLCL     OPSYN ,                                                   RFIT R0000040     *          INSERTED*
               SIOF     OPSYN ,                                                   RFIT R0000050     *          INSERTED*
               HDV      OPSYN ,                                                   RFIT R0000070     *          INSERTED*
               STNSM    OPSYN ,                                                   RFIT R0000080     *          INSERTED*
               STOSM    OPSYN ,                                                   RFIT R0000090     *          INSERTED*
               MC       OPSYN ,                                                   RFIT R0000110     *          INSERTED*
               LRA      OPSYN ,                                                   RFIT R0000120     *          INSERTED*
               STCTL    OPSYN ,                                                   RFIT R0000130     *          INSERTED*
               LCTL     OPSYN ,                                                   RFIT R0000140     *          INSERTED*
               CLM      OPSYN ,                                                   RFIT R0000180     *          INSERTED*
               STCM     OPSYN ,                                                   RFIT R0000190     *          INSERTED*
               ICM      OPSYN ,                                                   RFIT R0000200     *          INSERTED*

               STIDP    OPSYN ,                                                   RFIT R0000210     *          INSERTED*
               STIDC    OPSYN ,                                                   RFIT R0000220     *          INSERTED*
               SCK      OPSYN ,                                                   RFIT R0000230     *          INSERTED*

               STCK     OPSYN ,                                                   RFIT R0000240     *          INSERTED*
               SCKC     OPSYN ,                                                   RFIT R0000250     *          INSERTED*
               STCKC    OPSYN ,                                                   RFIT R0000260     *          INSERTED*
               SPT      OPSYN ,                                                   RFIT R0000270     *          INSERTED*
               STPT     OPSYN ,                                                   RFIT R0000280     *          INSERTED*
               PTLB     OPSYN ,                                                   RFIT R0000310     *          INSERTED*
               RRB      OPSYN ,                                                   RFIT R0000350     *          INSERTED*
               SRP      OPSYN ,                                                   RFIT R0000360     *          INSERTED*
                        ICM   R0,3,5(R1)          GET DELIMITER                        R0558000     *          REPLACED*
               *        ICM   R0,3,5(R1)          GET DELIMITER                   RFIT R0558000     *       REPLACEMENT*
                        IC    R0,5(,R1)                                           RFIT R0558005     *          INSERTED*
                        SLL   R0,8                                                RFIT R0558010     *          INSERTED*

                        IC    R0,6(,R1)                                           RFIT R0558015     *          INSERTED*
                        LH    R0,6(,R1)           GET DELIMITER                        R0564000     *          REPLACED*
               *        LH    R0,6(,R1)           GET DELIMITER                   RFIT R0564000     *       REPLACEMENT*

                        SR    R0,R0                                               RFIT R0564005     *          INSERTED*
                        IC    R0,6(,R1)                                           RFIT R0564010     *          INSERTED*
                        SLL   R0,8                                                RFIT R0564015     *          INSERTED*
                        IC    R0,7(,R1)                                           RFIT R0564020     *          INSERTED*
                        STCK  RTEMP               STORE CLOCK                          R1944000     *          REPLACED*
               *        STCK  RTEMP               STORE CLOCK                     RFIT R1944000     *       REPLACEMENT*
                        B     RSETKEY             FORCE CLOCK NOT VALID           RFIT R1944005     *          INSERTED*
IEB816I MEMBER NAME (HASPRDR ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0060


       ./  CHANGE NAME=HASPRTAM                                           RFIT
               *                                                                  RFIT M0000000     *          INSERTED*
               *                            KILL ALL 370 INSTRUCTIONS             RFIT M0000010     *          INSERTED*

               *                                                                  RFIT M0000020     *          INSERTED*
               MVCL     OPSYN ,                                                   RFIT M0000030     *          INSERTED*
               CLCL     OPSYN ,                                                   RFIT M0000040     *          INSERTED*
               SIOF     OPSYN ,                                                   RFIT M0000050     *          INSERTED*

               HDV      OPSYN ,                                                   RFIT M0000070     *          INSERTED*
               STNSM    OPSYN ,                                                   RFIT M0000080     *          INSERTED*
               STOSM    OPSYN ,                                                   RFIT M0000090     *          INSERTED*
               MC       OPSYN ,                                                   RFIT M0000110     *          INSERTED*
               LRA      OPSYN ,                                                   RFIT M0000120     *          INSERTED*
               STCTL    OPSYN ,                                                   RFIT M0000130     *          INSERTED*
               LCTL     OPSYN ,                                                   RFIT M0000140     *          INSERTED*
               CLM      OPSYN ,                                                   RFIT M0000180     *          INSERTED*
               STCM     OPSYN ,                                                   RFIT M0000190     *          INSERTED*
               ICM      OPSYN ,                                                   RFIT M0000200     *          INSERTED*
               STIDP    OPSYN ,                                                   RFIT M0000210     *          INSERTED*
               STIDC    OPSYN ,                                                   RFIT M0000220     *          INSERTED*

               SCK      OPSYN ,                                                   RFIT M0000230     *          INSERTED*
               STCK     OPSYN ,                                                   RFIT M0000240     *          INSERTED*
               SCKC     OPSYN ,                                                   RFIT M0000250     *          INSERTED*

               STCKC    OPSYN ,                                                   RFIT M0000260     *          INSERTED*
               SPT      OPSYN ,                                                   RFIT M0000270     *          INSERTED*
               STPT     OPSYN ,                                                   RFIT M0000280     *          INSERTED*
               PTLB     OPSYN ,                                                   RFIT M0000310     *          INSERTED*
               RRB      OPSYN ,                                                   RFIT M0000350     *          INSERTED*
               SRP      OPSYN ,                                                   RFIT M0000360     *          INSERTED*
                        STCK  MWORK               GET                                  M3977000     *          REPLACED*
               *        STCK  MWORK               GET                             RFIT M3977000     *       REPLACEMENT*
                        $TIME                                                     RFIT M3977005     *          INSERTED*
                        LR    R1,R0                                               RFIT M3977010     *          INSERTED*
                        SR    R0,R0                                               RFIT M3977015     *          INSERTED*
                        M     R0,=F'10000'                                        RFIT M3977020     *          INSERTED*

                        STM   R0,R1,MWORK                                         RFIT M3977025     *          INSERTED*
                        STCK  MWORK+8             GET NEW TIME                         M3980000     *          REPLACED*
               *        STCK  MWORK+8             GET NEW TIME                    RFIT M3980000     *       REPLACEMENT*
                        $TIME                                                     RFIT M3980005     *          INSERTED*

                        SR    R1,R0                                               RFIT M3980010     *          INSERTED*
                        SR    R0,R0                                               RFIT M3980015     *          INSERTED*
                        M     R0,=F'10000'                                        RFIT M3980020     *          INSERTED*
                        STM   R0,R1,MWORK+8                                       RFIT M3980025     *          INSERTED*
IEB816I MEMBER NAME (HASPRTAM) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0061


       ./       CHANGE NAME=HASPSVC                                       RFIT
               HASPSVC  START 0                   HASP SVC ROUTINE                     S0010000     *          REPLACED*
               HASP4SVC START 0                   HASP V4.0 SVC ROUTINE           RFIT S0010000     *       REPLACEMENT*
                        AIF   (NOT &SYSVS2).SVC1                                  RFIT S0025900     *          INSERTED*
                        AGO   .SVC2                                               RFIT S0026100     *          INSERTED*
               .SVC1    ENTRY IGC&INITSVC                                         RFIT S0026200     *          INSERTED*

               IGC&INITSVC DS 0D                                                  RFIT S0026300     *          INSERTED*
               .SVC2    ANOP                                                      RFIT S0026400     *          INSERTED*
                        L     R15,CVTHJES         R15 = $HVT ADDRESS                   S0040000     *          REPLACED*

                        L     R15,CVTUSER         R15=$HVT ADDRESS                RFIT S0040000     *       REPLACEMENT*
                        BNZ   ABORT               ABTERM IF NOT ZERO                   S0054000     *          REPLACED*
                        BC    &SYSVS2*7,ABORT     ABTERM IF NOT ZERO AND          RFIT S0054000     *       REPLACEMENT*
               *                                   VS2 SYSTEM                     RFIT S0054100     *          INSERTED*
                        ST    R0,CVTHJES          STORE $HVT ADDRESS IN CVT            S0060000     *          REPLACED*
                        ST    R0,CVTUSER          STORE $HVT ADDRESS IN CVT       RFIT S0060000     *       REPLACEMENT*
                        XC    CVTHJES(4),CVTHJES  CLEAR $HVT ADDRESS FROM CVT          S0108000     *          REPLACED*
                        XC    CVTUSER,CVTUSER     CLEAR $HVT ADDRESS FROM CVT     RFIT S0108000     *       REPLACEMENT*
                        DC    V(IEEBA1)           ENTRY OF IOS CONSOLE ATTEN APPNDRFIT S0150100     *          INSERTED*
                        AIF   (NOT &SYSMFT).SVC9                                  RFIT S0150200     *          INSERTED*
                        DC    V(SVCTBL)           ADDRESS OF MFT SVC TABLE        RFIT S0150300     *          INSERTED*
                        DC    V(SVPRFX)           ADDRESS OF MVT SVC REL INDEX    RFIT S0150400     *          INSERTED*

                        AGO   .SVC11                                              RFIT S0150500     *          INSERTED*
               .SVC9    AIF   (NOT &SYSMVT).SVC10                                 RFIT S0150600     *          INSERTED*
                        DC    V(IBMORG)           ADDRESS OF MVT SVC TABLE        RFIT S0150700     *          INSERTED*
                        AGO   .SVC11                                              RFIT S0150800     *          INSERTED*

               .SVC10   ANOP                                                      RFIT S0150900     *          INSERTED*
               .SVC11   ANOP                                                      RFIT S0151000     *          INSERTED*
                        ICM   R15,7,CVTHJES+1     R15 = $HVT ADDRESS                   S0168000     *          REPLACED*
               *        ICM   R15,7,CVTHJES+1     R15 = $HVT ADDRESS              RFIT S0168000     *       REPLACEMENT*
                        L     R15,CVTUSER                                         RFIT S0168005     *          INSERTED*
                        LTR   R15,R15                                             RFIT S0168010     *          INSERTED*
                        ICM   R10,7,CVTHJES+1     R10 = $HVT ADDRESS                   S0198000     *          REPLACED*
               *        ICM   R10,7,CVTHJES+1     R10 = $HVT ADDRESS              RFIT S0198000     *       REPLACEMENT*
                        L     R10,CVTUSER                                         RFIT S0198005     *          INSERTED*
                        LTR   R10,R10                                             RFIT S0198010     *          INSERTED*
IEB816I MEMBER NAME (HASPSVC ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0062



       ./  CHANGE  NAME=HASPXEQ,SEQFLD=747
               *                            KILL ALL 370 INSTRUCTIONS             RFIT X0000010     *          INSERTED*
               *                                                                  RFIT X0000020     *          INSERTED*

               MVCL     OPSYN ,                                                   RFIT X0000030     *          INSERTED*
               CLCL     OPSYN ,                                                   RFIT X0000040     *          INSERTED*
               SIOF     OPSYN ,                                                   RFIT X0000050     *          INSERTED*
               HDV      OPSYN ,                                                   RFIT X0000070     *          INSERTED*
               STNSM    OPSYN ,                                                   RFIT X0000080     *          INSERTED*
               STOSM    OPSYN ,                                                   RFIT X0000090     *          INSERTED*
               MC       OPSYN ,                                                   RFIT X0000110     *          INSERTED*
               LRA      OPSYN ,                                                   RFIT X0000120     *          INSERTED*
               STCTL    OPSYN ,                                                   RFIT X0000130     *          INSERTED*
               LCTL     OPSYN ,                                                   RFIT X0000140     *          INSERTED*
               CLM      OPSYN ,                                                   RFIT X0000180     *          INSERTED*
               STCM     OPSYN ,                                                   RFIT X0000190     *          INSERTED*

               ICM      OPSYN ,                                                   RFIT X0000200     *          INSERTED*
               STIDP    OPSYN ,                                                   RFIT X0000210     *          INSERTED*
               STIDC    OPSYN ,                                                   RFIT X0000220     *          INSERTED*
               SCK      OPSYN ,                                                   RFIT X0000230     *          INSERTED*

               STCK     OPSYN ,                                                   RFIT X0000240     *          INSERTED*
               SCKC     OPSYN ,                                                   RFIT X0000250     *          INSERTED*
               STCKC    OPSYN ,                                                   RFIT X0000260     *          INSERTED*
               SPT      OPSYN ,                                                   RFIT X0000270     *          INSERTED*
               STPT     OPSYN ,                                                   RFIT X0000280     *          INSERTED*
               PTLB     OPSYN ,                                                   RFIT X0000310     *          INSERTED*
               RRB      OPSYN ,                                                   RFIT X0000350     *          INSERTED*
               SRP      OPSYN ,                                                   RFIT X0000360     *          INSERTED*
                        ORG   *-4                                                 RFIT X0714005     *          INSERTED*
                        MVC   DARTSCR1,PDBMTTR    SAVE STEP AND                   RFIT X0714010     *          INSERTED*
                        L     XLK,DARTSCR1        DD NUMBER                       RFIT X0714015     *          INSERTED*
                        ORG   *-4                                                 RFIT X0750005     *          INSERTED*

                        ST    XLK,DARTSCR1        NO.  DO STEP,                   RFIT X0750010     *          INSERTED*
                        CLC   DARTSCR1,PDBSTNR     DD NUMBER MATCH...             RFIT X0750015     *          INSERTED*
                        ICM   WB,7,IOTIOT+1       POINT TO NEXT IOT.                   X0766000     *          REPLACED*

               *        ICM   WB,7,IOTIOT+1       POINT TO NEXT IOT               RFIT X0766000     *       REPLACEMENT*
                        L     WB,IOTIOT                                           RFIT X0766005     *          INSERTED*
                        LA    WB,0(,WB)                                           RFIT X0766010     *          INSERTED*
                        LTR   WB,WB                                               RFIT X0766015     *          INSERTED*
                        ORG   *-4                                                 RFIT X0834005     *          INSERTED*
                        ST    R1,DARTSCR1         SET TRACK ADDRESS               RFIT X0834010     *          INSERTED*
                        MVC   PDBMTTR(4),DARTSCR1  IN PDDB.                       RFIT X0834015     *          INSERTED*
                        ICM   WA,7,IOTIOT+1       POINT TO NEXT IOT.                   X0964000     *          REPLACED*
               *        ICM   WA,7,IOTIOT+1       POINT TO NEXT IOT               RFIT X0964000     *       REPLACEMENT*
                        L     WA,IOTIOT                                           RFIT X0964005     *          INSERTED*
                        LA    WA,0(WA)                                            RFIT X0964010     *          INSERTED*
                        LTR   WA,WA                                               RFIT X0964015     *          INSERTED*

                        STCM  R1,7,IOTIOT+1       SET POINTER TO NEW IOT.              X0970000     *          REPLACED*
               *        STCM  R1,7,IOTIOT+1       SET POINTER TO NEW IOT.         RFIT X0970000     *       REPLACEMENT*
                        ST    R1,DARTSCR1                                         RFIT X0970005     *          INSERTED*
                        MVC   IOTIOT+1(3),DARTSCR1+1                              RFIT X0970010     *          INSERTED*

                        MVCL  WA,WC               CLEAR THE IOT.                       X0996000     *          REPLACED*
               *        MVCL  WA,WC               CLEAR THE IOT                   RFIT X0996000     *       REPLACEMENT*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0063


                        $XXC  XC,(0,WA),(0,WA),&BUFSIZE                           RFIT X0996005     *          INSERTED*
                        ICM   WA,7,IOTIOT+1       GET IOT                              X1162000     *          REPLACED*
               *        ICM   WA,7,IOTIOT+1       GET IOT                         RFIT X1162000     *       REPLACEMENT*
                        L     WA,IOTIOT                                           RFIT X1162005     *          INSERTED*
                        LA    WA,0(,WA)                                           RFIT X1162010     *          INSERTED*
                        LTR   WA,WA                                               RFIT X1162015     *          INSERTED*
                        CLM   WA,7,XPCEIOT+1      WAS BAD WRITE ON 1ST IOT...          X1212000     *          REPLACED*
               *        CLM   WA,7,XPCEIOT+1      WAS BAD WRITE ON 1ST IOT        RFIT X1212000     *       REPLACEMENT*
                        ST    WA,DARTSCR1                                         RFIT X1212005     *          INSERTED*

                        CLC   DARTSCR1+1(3),XPCEIOT+1                             RFIT X1212010     *          INSERTED*
               XIOTCKP1 ICM   WD,7,IOTIOT+1       POINT TO NEXT IOT.                   X1302000     *          REPLACED*
               *XIOTCKP1ICM   WD,7,IOTIOT+1       POINT TO NEXT IOT               RFIT X1302000     *       REPLACEMENT*

               XIOTCKP1 L     WD,IOTIOT                                           RFIT X1302005     *          INSERTED*
                        LA    WD,0(,WD)                                           RFIT X1302010     *          INSERTED*
                        LTR   WD,WD                                               RFIT X1302015     *          INSERTED*
                AIF (((&MAXXEQS LT 2) OR (&MONINTV EQ 0)) OR &SYSVS2).XNOXMN      RFIT X2818100     *          INSERTED*
                        L     R1,=V($XMONPCE)     GET ADDRESS OF TASK MONITOR PCE RFIT X2818200     *          INSERTED*
                       $POST PCEEWF-PCEDSECT+$EWBWORK(R1),WORK FIRE UP EXEC MON   RFIT X2818300     *          INSERTED*
               .XNOXMN  ANOP                                                      RFIT X2818400     *          INSERTED*
               XQNEXT   ICM   R1,7,QUECHAIN+1(R1) IS THIS A JQE...                     X3178000     *          REPLACED*
               *XQNEXT  ICM   R1,7,QUECHAIN+1(R1) IS THIS A JQE...                RFIT X3178000     *       REPLACEMENT*
               XQNEXT   L     R1,QUECHAIN(R1)                                     RFIT X3178005     *          INSERTED*
                        LA    R1,0(,R1)                                           RFIT X3178015     *          INSERTED*
                        LTR   R1,R1                                               RFIT X3178020     *          INSERTED*

               DARTSCR1 DS    F                   SCRATCH AREA                    RFIT X3214005     *          INSERTED*
                        ICM   R15,15,$XSMFENT     GET ADDRESS OF IEASMFEX.             X3308000     *          REPLACED*
               *        ICM   R15,15,$XSMFENT     GET ADDRESS OF IEAMSFEX.        RFIT X3308000     *       REPLACEMENT*

                        L     R15,$XSMFENT                                        RFIT X3308005     *          INSERTED*
                        LTR   R15,R15                                             RFIT X3308010     *          INSERTED*
               XTDDB1   ICM   R5,7,DDBCHAIN+1     GET NEXT DDB.                        X3524000     *          REPLACED*
               *XTDDB1  ICM   R5,7,DDBCHAIN+1     GET NEXT DDB.                   RFIT X3524000     *       REPLACEMENT*
               XTDDB1   L     R5,DDBCHAIN                                         RFIT X3524005     *          INSERTED*
                        LTR   R5,R5                                               RFIT X3524010     *          INSERTED*
                        AIF   (&SYSMVT OR &SYSVS2).XMVT1                          RFIT X3562100     *          INSERTED*
               XTDDB3   NULL                                                      RFIT X3562200     *          INSERTED*
               *                             XPCESTEP HAS BEEN SET BY LINK/XCTL   RFIT X3562300     *          INSERTED*
               *                                   INTERFACE ROUTINE XEQSD512     RFIT X3562400     *          INSERTED*
                        AGO   .XMFT1                                              RFIT X3562500     *          INSERTED*
               .XMVT1   ANOP                                                      RFIT X3562600     *          INSERTED*

               .XMFT1   ANOP                                                      RFIT X3580100     *          INSERTED*
               *                                                                       X3610000     *          REPLACED*
               *                                                                  RFIT X3610000     *       REPLACEMENT*
               *        I N S U R E   N O   F A U L T S   D U R I N G   U P D A T E S  X3612000     *          REPLACED*

               *                                                                  RFIT X3612000     *       REPLACEMENT*
               *                                                                       X3614000     *          REPLACED*
               *                                                                  RFIT X3614000     *       REPLACEMENT*
                        LA    R6,XPCEIOT-(IOTIOT-IOTDSECT)  SET UP TO CHAIN IOTS       X3618000     *          REPLACED*
               *                                                                  RFIT X3618000     *       REPLACEMENT*
                        ICM   R6,7,IOTIOT+1-IOTDSECT(R6)  GET ADDRESS OF NEXT IOT      X3622000     *          REPLACED*
               *                                                                  RFIT X3622000     *       REPLACEMENT*
                        BNZ   *-4                 BR IF ANOTHER IOT                    X3624000     *          REPLACED*
               *                                                                  RFIT X3624000     *       REPLACEMENT*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0064


               XNDDB1   ICM   R5,7,DDBCHAIN+1     GET ADDRESS OF NEXT DDB              X3632000     *          REPLACED*
               *XNDDB1  ICM   R5,7,DDBCHAIN+1     GET ADDRESS OF NEXT DDB         RFIT X3632000     *       REPLACEMENT*

               XNDDB1   L     R5,DDBCHAIN                                         RFIT X3632005     *          INSERTED*
                        LTR   R5,R5                                               RFIT X3632010     *          INSERTED*
               XNDDB2   ICM   R5,7,DDBCHAIN+1     GET ADDRESS OF NEXT DDB              X3646000     *          REPLACED*

               *XNDDB2  ICM   R5,7,DDBCHAIN+1     GET ADDRESS OF NEXT DDB         RFIT X3646000     *       REPLACEMENT*
               XNDDB2   L     R5,DDBCHAIN                                         RFIT X3646005     *          INSERTED*
                        LTR   R5,R5               GET ADDRESS OF NEXT DDB         RFIT X3646010     *          INSERTED*
               XNXTNTRY ICM   R1,1,0(R8)          GET LENGTH OF TIOT DD ENTRY          X3658000     *          REPLACED*
               *XNXTNTRYICM   R1,1,0(R8)          GET LENGTH OF TIOT DD ENTRY     RFIT X3658000     *       REPLACEMENT*
               XNXTNTRY IC    R1,0(R8)                                            RFIT X3658005     *          INSERTED*
                        CLI   0(R8),0                                             RFIT X3658010     *          INSERTED*
                        ICM   R7,3,18(R8)         GET UCB ADDRESS                      X3668000     *          REPLACED*
               *        ICM   R7,3,18(R8)         GET UCB ADDRESS                 RFIT X3668000     *       REPLACEMENT*
                        LH    R7,18(,R8)                                          RFIT X3668005     *          INSERTED*
                        LTR   R7,R7               GET UCB ADDRESS                 RFIT X3668020     *          INSERTED*
               XNIOT1   ICM   R6,7,IOTIOT+1       GET ADDRESS OF NEXT IOT              X3730000     *          REPLACED*

               *XNIOT1  ICM   R6,7,IOTIOT+1       GET ADDRESS OF NEXT IOT         RFIT X3730000     *       REPLACEMENT*
               XNIOT1   L     R6,IOTIOT           GET ADDRESS OF NEXT IOT         RFIT X3730005     *          INSERTED*
                        LA    R6,0(,R6)           GET ADDRESS OF NEXT IOT         RFIT X3730010     *          INSERTED*
                        LTR   R6,R6               GET ADDRESS OF NEXT IOT         RFIT X3730015     *          INSERTED*

                        ORG   *-4                                                 RFIT X3760005     *          INSERTED*
                        XR    R7,R7                                               RFIT X3760010     *          INSERTED*
                        IC    R7,PDBDDNR+1-PDBDSECT(R10) GET PDDB DD NUMBER       RFIT X3760015     *          INSERTED*
               XNIOT2   ICM   R6,7,IOTIOT+1       GET ADDRESS OF NEXT IOT              X3782000     *          REPLACED*
               *XNIOT2  ICM   R6,7,IOTIOT+1       GET ADDRESS OF NEXT IOT         RFIT X3782000     *       REPLACEMENT*
               XNIOT2   L     R6,IOTIOT           GET ADDRESS OF NEXT IOT         RFIT X3782005     *          INSERTED*
                        LA    R6,0(,R6)           GET ADDRESS OF NEXT IOT         RFIT X3782010     *          INSERTED*
                        LTR   R6,R6               GET ADDRESS OF NEXT IOT         RFIT X3782015     *          INSERTED*
                        ORG   *-4                                                 RFIT X3818005     *          INSERTED*
                        XR    R15,R15                                             RFIT X3818010     *          INSERTED*
                        IC    R15,PDBDDNR+1-PDBDSECT(R10) GET PDDB DD NUMBER      RFIT X3818015     *          INSERTED*
               XNIOT3   ICM   R6,7,IOTIOT+1       GET ADDRESS OF NEXT IOT              X3850000     *          REPLACED*

               *XNIOT3  ICM   R6,7,IOTIOT+1       GET ADDRESS OF NEXT IOT         RFIT X3850000     *       REPLACEMENT*
               XNIOT3   L     R6,IOTIOT           GET ADDRESS OF NEXT IOT         RFIT X3850005     *          INSERTED*
                        LA    R6,0(,R6)           GET ADDRESS OF NEXT IOT         RFIT X3850010     *          INSERTED*

                        LTR   R6,R6               GET ADDRESS OF NEXT IOT         RFIT X3850015     *          INSERTED*
                        ORG   *-4                                                 RFIT X3876005     *          INSERTED*
                        MVC   DARTSCR2(2),PDBDDNR   TEST FOR                      RFIT X3876010     *          INSERTED*
                        CH    R7,DARTSCR2             SAME DD NUMBER              RFIT X3876015     *          INSERTED*
               XNDDB4   ICM   R5,7,DDBCHAIN+1     GET ADDRESS OF NEXT DDB              X3934000     *          REPLACED*
               *XNDDB4  ICM   R5,7,DDBCHAIN+1     GET ADDRESS OF NEXT DDB         RFIT X3934000     *       REPLACEMENT*
               XNDDB4   L     R5,DDBCHAIN                                         RFIT X3934005     *          INSERTED*
                        LTR   R5,R5                                               RFIT X3934010     *          INSERTED*
                        AIF   (&SYSVS2).XVS21                                     RFIT X3960100     *          INSERTED*
                        L     R1,TCBJSTCB         POINT TO JOB STEP TCB           RFIT X3960200     *          INSERTED*
               *        STCM  SAVE,B'0111',TCBPCE+1-TCBDSECT(R1)                  RFIT X3960300     *          INSERTED*
                        ST    SAVE,TCBPCE-TCBDSECT(R1)                            RFIT X3960305     *          INSERTED*

               *                                  SET PCE ADDRESS IN JOB STEP TCB RFIT X3960400     *          INSERTED*
                        AGO   .XVS22                                              RFIT X3960500     *          INSERTED*
               .XVS21   ANOP                                                      RFIT X3960600     *          INSERTED*
               .XVS22   ANOP                       X                              RFIT X3964100     *          INSERTED*

       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0065


               XFD1     ICM   R5,7,DDBCHAIN+1     POINT TO NEXT DDB.                   X3978000     *          REPLACED*
               *XFD1    ICM   R5,7,DDBCHAIN+1     POINT TO NEXT DDB               RFIT X3978000     *       REPLACEMENT*
               XFD1     L     R5,DDBCHAIN         POINT TO NEXT DDB               RFIT X3978005     *          INSERTED*
                        LTR   R5,R5               POINT TO NEXT DDB               RFIT X3978010     *          INSERTED*
                        SPACE 1                                               FJP/RFIT X4047000     *          INSERTED*
               *                                                              FJP/RFIT X4047500     *          INSERTED*
                        L     R1,TCBJSCB          DISASSOCIATE                         X4048000     *          REPLACED*
               *        DISASSOCIATE THE PCE FROM THE JOBSTEP                 FJP/RFIT X4048000     *       REPLACEMENT*
               *                                                              FJP/RFIT X4049000     *          INSERTED*
                        USING JSCDSECT,R1          PCE                                 X4050000     *          REPLACED*
                        L     R1,TCBJSTCB         GET JOBSTEP TCB             FJP/RFIT X4050000     *       REPLACEMENT*

                        XC    JSCHPCE,JSCHPCE       FROM                               X4052000     *          REPLACED*
                        XC    TCBPCE+1-TCBDSECT(3,R1),TCBPCE+1-TCBDSECT(R1)   FJP/RFIT X4052000     *       REPLACEMENT*
                        DROP  R1                     JOBSTEP.                          X4054000     *          REPLACED*

                        SPACE 1                                               FJP/RFIT X4054000     *       REPLACEMENT*
               DARTSCR2 DS    F                     SCRATCH AREA                  RFIT X4100005     *          INSERTED*
                        ICM   R5,1,0(R15)         LENGTH OF ENTRY                      X4142000     *          REPLACED*
               *        ICM   R5,1,0(R15)         LENGTH OF ENTRY                 RFIT X4142000     *       REPLACEMENT*
                        IC    R5,0(R15)           LENGTH OF ENTRY                 RFIT X4142005     *          INSERTED*
                        CLI   0(R15),0            LENGTH OF ENTRY                 RFIT X4142010     *          INSERTED*
                        ICM   R8,12,XPCESTEP      ADD STEP NUMBER                      X4162000     *          REPLACED*
               *        ICM   R8,12,XPCESTEP      ADD STEP NUMBER                 RFIT X4162000     *       REPLACEMENT*
                        SLL   R8,16                                               RFIT X4162005     *          INSERTED*
                        SRL   R8,16                                               RFIT X4162010     *          INSERTED*
                        LH    R5,XPCESTEP                                         RFIT X4162015     *          INSERTED*
                        SLL   R5,16                                               RFIT X4162020     *          INSERTED*

                        OR    R8,R5                                               RFIT X4162025     *          INSERTED*
               XINRQA   ICM   R5,7,DDBCHAIN+1     GET DDB                              X4172000     *          REPLACED*
               *XINRQA  ICM   R5,7,DDBCHAIN+1     GET DDB                         RFIT X4172000     *       REPLACEMENT*
               XINRQA   L     R5,DDBCHAIN         GET DDB                         RFIT X4172005     *          INSERTED*

                        LTR   R5,R5               GET DDB                         RFIT X4172010     *          INSERTED*
                        ORG   *-4                                                 RFIT X4238005     *          INSERTED*
                        MVC   DARTSCR2,PDBSTNR    YES, DOES IT                    RFIT X4238010     *          INSERTED*
                        CL    R8,DARTSCR2             MATCH USER...               RFIT X4238015     *          INSERTED*
                        ICM   R6,7,IOTIOT+1       YES.  POINT TO NEXT IOT.             X4250000     *          REPLACED*
               *        ICM   R6,7,IOTIOT+1       YES, POINT TO NEXT IOT.         RFIT X4250000     *       REPLACEMENT*
                        L     R6,IOTIOT                                           RFIT X4250005     *          INSERTED*
                        LTR   R6,R6                                               RFIT X4250010     *          INSERTED*
                        ICM   R5,15,$RDRDDB       IS THE READER ACTIVE...      OY02728 X4442000     *          REPLACED*
               *        ICM   R5,15,$RDRDDB       IS THE READER ACTIVE OY02728    RFIT X4442000     *       REPLACEMENT*
                        L     R5,$RDRDDB                                          RFIT X4442005     *          INSERTED*
                        LTR   R5,R5                                               RFIT X4442010     *          INSERTED*

                        ICM   R13,15,$WTRPCE      IS THE WRITER ACTIVE...              X4510000     *          REPLACED*
               *        ICM   R13,15,$WTRPCE      IS THE WRITER ACTIVE...         RFIT X4510000     *       REPLACEMENT*
                        L     R13,$WTRPCE                                         RFIT X4510005     *          INSERTED*

                        LTR   R13,R13                                             RFIT X4510010     *          INSERTED*
                        ICM   R5,15,$WTRDDB       DOES WRITER HAVE A DDB YET...        X4520000     *          REPLACED*
               *        ICM   R5,15,$WTRDDB       DOES WRITER HAVE A DDB YET...   RFIT X4520000     *       REPLACEMENT*
                        L     R5,$WTRDDB                                          RFIT X4520005     *          INSERTED*
                        LTR   R5,R5                                               RFIT X4520010     *          INSERTED*
                        AIF   (NOT &SYSVS2).XVS28                                 RFIT X5095900     *          INSERTED*
                        AGO   .XVS29                                              RFIT X5100100     *          INSERTED*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0066


               .XVS28   B     XFREEZE             FREEZE TILL DDB TERMINATES      RFIT X5100200     *          INSERTED*
               .XVS29   ANOP                                                      RFIT X5100300     *          INSERTED*
                        LRA   R7,0(,R7)           GENERATE REAL ADDRESS.       OY02728 X5423000     *          REPLACED*
                       $LRA   R7,0(,R7)           GENERATE REAL ADDRESS. OY02728  RFIT X5423000     *       REPLACEMENT*

                        LRA   R7,0(,R7)           GENERATE REAL ADDRESS.       OY02728 X5424800     *          REPLACED*
                       $LRA   R7,0(,R7)           GENERATE REAL ADDRESS. OY02728  RFIT X5424800     *       REPLACEMENT*
                        AIF   (&SYSMFT OR &SYSMVT).XSGVAL1                        RFIT X5425650     *          INSERTED*
                        AGO   .XSGVAL2                                            RFIT X5428450     *          INSERTED*

               .XSGVAL1  ANOP                                                     RFIT X5428500     *          INSERTED*
                        B     4(,R14)             SEGMENT IS VALID FOR NON-VS     RFIT X5428550     *          INSERTED*
               .XSGVAL2  ANOP                                                     RFIT X5428575     *          INSERTED*
                        STCM  R6,7,IOBCSW         SHOW ADR OF LAST CCW+8.              X5434000     *          REPLACED*
               *        STCM  R6,7,IOBCSW         SHOW ADR OF LAST CCW+8          RFIT X5434000     *       REPLACEMENT*
                        ST    R6,DARTSCR2                                         RFIT X5434005     *          INSERTED*
                        MVC   IOBCSW(3),DARTSCR2+1                                RFIT X5434010     *          INSERTED*
               XJOBSRCH ICM   R1,7,TCBJSCB+1 ENTRY FOR SCAN BY JSCB & JOBNAME.         X5552000     *          REPLACED*
               *XJOBSRCHICM  R1,7,TCBJSCB+1  ENTRY FOR SCAN BY JSCB & JOBNAME.    RFIT X5552000     *       REPLACEMENT*
               XJOBSRCH L     R1,TCBJSCB                                          RFIT X5552005     *          INSERTED*
                        LA    R1,0(,R1)                                           RFIT X5552010     *          INSERTED*
                        LTR   R1,R1                                               RFIT X5552015     *          INSERTED*

                        AIF   (&SYSVS2).XVS23                                     RFIT X5556100     *          INSERTED*
                        L     R1,TCBJSTCB         GO TO JOB STEP TCB              RFIT X5556200     *          INSERTED*
               *        ICM   R13,B'0111',TCBPCE+1-TCBDSECT(R1)                   RFIT X5556300     *          INSERTED*

                        L     R13,TCBPCE-TCBDSECT(R1)                             RFIT X5556305     *          INSERTED*
                        LA    R13,0(,R13)                                         RFIT X5556310     *          INSERTED*
                        LTR   R13,R13                                             RFIT X5556315     *          INSERTED*
               *                                  TO GET POTENTIAL PCE ADDRESS    RFIT X5556400     *          INSERTED*
                        AGO   .XVS24                                              RFIT X5556500     *          INSERTED*
               .XVS23   ANOP                                                      RFIT X5556600     *          INSERTED*
               .XVS24   ANOP                                                      RFIT X5558100     *          INSERTED*
                        ICM   R13,15,$WTRPCE      POINT TO PCE ASSOC WITH WRITER.      X5602000     *          REPLACED*
               *        ICM   R13,15,$WTRPCE      POINT TO PCE ASSOC WITH WTR     RFIT X5602000     *       REPLACEMENT*
                        L     R13,$WTRPCE                                         RFIT X5602005     *          INSERTED*
                        LTR   R13,R13                                             RFIT X5602010     *          INSERTED*
                        ICM   R5,15,$RDRDDB       IS READER ACTIVE             OY08671 X5614800     *          REPLACED*

               *        ICM   R5,15,$RDRDDB       IS READER ACTIVE?            OY08671 X5614800     *       REPLACEMENT*
                        L     R5,$RDRDDB                                      FJP/RFIT X5614805     *          INSERTED*
                        LTR   R5,R5                                           FJP/RFIT X5614810     *          INSERTED*
                        AIF   (&SYSVS2).XVS25                                     RFIT X5654100     *          INSERTED*

                        L     R0,36               SVC OLD                         RFIT X5654200     *          INSERTED*
                        BCTR  R0,0                BACK UP ONE                     RFIT X5654300     *          INSERTED*
                        BCTR  R0,0                BACK UP ANOTHER                 RFIT X5654400     *          INSERTED*
                        TM    36,X'80'            WAS SVC EXECUTED                RFIT X5654500     *          INSERTED*
                        BZ    *+8                 BR IF NO                        RFIT X5654600     *          INSERTED*
                        BCTR  R0,0                YES...BACK UP ANOTHER           RFIT X5654700     *          INSERTED*
                        BCTR  R0,0                AND ONE MORE                    RFIT X5654800     *          INSERTED*
                        ST    R0,36               RESET SVC OLD                   RFIT X5654900     *          INSERTED*
                        AGO   .XVS26                                              RFIT X5655000     *          INSERTED*
               .XVS25   ANOP                                                      RFIT X5655100     *          INSERTED*
               .XVS26   ANOP                                                      RFIT X5660100     *          INSERTED*
                        STCM  R6,7,IOBCSW         AND PUT ITS ADDRESS IN CSW.          X5676000     *          REPLACED*

               *        STCM  R6,7,IOBCSW         AND PUT ITS ADDRESS IN CSW.     RFIT X5676000     *       REPLACEMENT*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0067


                        ST    R6,DARTSCR2                                         RFIT X5676005     *          INSERTED*

                        MVC   IOBCSW(3),DARTSCR2+1                                RFIT X5676010     *          INSERTED*
                        STCM  R1,8,0(R1)          PUT COMPLETION CODE IN ECB.          X5684000     *          REPLACED*
               *        STCM  R1,8,0(R1)          PUT COMPLETION CODE IN ECB.     RFIT X5684000     *       REPLACEMENT*
                        MVC   0(1,R1),IOBECBCC                                    RFIT X5684005     *          INSERTED*
                        ICM   R4,8,=X'80'         SET H-O BIT ON IN TCB ADDR   OY02728 X5731000     *          REPLACED*
               *        ICM   R4,8,=X'80'         SET H-O BIT ON IN TCB ADDROY2728RFIT X5731000     *       REPLACEMENT*
                        IC    R0,=X'80'                                           RFIT X5731005     *          INSERTED*
                        SLL   R0,24                                               RFIT X5731010     *          INSERTED*
                        SLL   R4,8                                                RFIT X5731015     *          INSERTED*
                        SRL   R4,8                                                RFIT X5731020     *          INSERTED*
                        OR    R4,R0                                               RFIT X5731025     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).XVS2C                          RFIT X5731500     *          INSERTED*

                        AGO   .XVS2D                                              RFIT X5732100     *          INSERTED*
               .XVS2C   $DISABLE ALL              DISABLE INTERRUPTS              RFIT X5732200     *          INSERTED*
               *                                                                  RFIT X5732300     *          INSERTED*

               * CODE BRANCHING TO XWARM ENABLED, MUST ENABLE UPON RETURN.        RFIT X5732400     *          INSERTED*
               *                                                                  RFIT X5732500     *          INSERTED*
               .XVS2D   ANOP                                                      RFIT X5732600     *          INSERTED*
                        LRA   R0,0(,R4)           IF ARGUMENT TCB IS                   X5736000     *          REPLACED*
                       $LRA   R0,0(,R4)           IF ARGUMENT TCB IS              RFIT X5736000     *       REPLACEMENT*
                        CLM   R4,7,TCBJSTCB+1     IF ARGUMENT TCB IS                   X5744000     *          REPLACED*
               *        CLM   R4,7,TCBJSTCB+1     IF ARGUMENT TCB IS              RFIT X5744000     *       REPLACEMENT*
                        ST    R4,DARTSCR3                                         RFIT X5744005     *          INSERTED*
                        CLC   DARTSCR3+1(3),TCBJSTCB+1                            RFIT X5744010     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSVS1).XVS27                          RFIT X5746100     *          INSERTED*
                        ICM   R1,7,TCBOTC+1       IF ARGUMENT TCB IS                   X5748000     *          REPLACED*
               *        ICM   R1,7,TCBOTC+1       IF ARGUMENT TCB IS              RFIT X5748000     *       REPLACEMENT*

                        L     R1,TCBOTC                                           RFIT X5748005     *          INSERTED*
                        LTR   R1,R1                                               RFIT X5748010     *          INSERTED*
                        LRA   R0,0(,R1)           IF MOTHER TCB IS                     X5752000     *          REPLACED*
                       $LRA   R0,0(,R1)           IF MOTHER TCB IS                RFIT X5752000     *       REPLACEMENT*

                        CLM   R4,7,TCBLTC+1-TCBDSECT(R1) IF ARGUMENT TCB IS            X5756000     *          REPLACED*
               *        CLM   R4,7,TCBLTC+1-TCBDSECT(R1) IF ARGUMENT TCB IS       RFIT X5756000     *       REPLACEMENT*
                        ST    R4,DARTSCR3                                         RFIT X5756005     *          INSERTED*
                        CLC   DARTSCR3+1(3),TCBLTC+1-TCBDSECT(R1)                 RFIT X5756010     *          INSERTED*
               .XVS27   ANOP                                                      RFIT X5758100     *          INSERTED*
               DARTSCR3 DS    F                       SCRATCH AREA                RFIT X5784005     *          INSERTED*
                        AIF   (&SYSMFT OR &SYSMVT).XVS2A                          RFIT X5786500     *          INSERTED*
                        AGO   .XVS2B                                              RFIT X5787100     *          INSERTED*
               .XVS2A   ANOP                                                      RFIT X5787200     *          INSERTED*
               *                                                                  RFIT X5787300     *          INSERTED*
               * CODE BRANCHING TO XWARM ENABLED, MUST ENABLE UPON RETURN.        RFIT X5787400     *          INSERTED*
               *                                                                  RFIT X5787500     *          INSERTED*

               XWARM9   DS    0H                                                  RFIT X5787600     *          INSERTED*
               .XVS2B   ANOP                                                      RFIT X5787700     *          INSERTED*
                        AIF   (NOT &SYSVS2).XJCL1                                 RFIT X5960100     *          INSERTED*

               .XJCL1   ANOP                                                      RFIT X5972100     *          INSERTED*
                        AIF   (NOT &SYSVS2).XJCL2                                 RFIT X6030100     *          INSERTED*
               .XJCL2   ANOP                                                      RFIT X6034100     *          INSERTED*
                        ICM   WA,15,XINTXTTR      TEXT OVERFLOW ON THIS STMT$  OY03485 X6407000     *          REPLACED*
               *        ICM   WA,15,XINTXTTR      TEXT OVERFLOW ON THIS STMT?  OY03485 X6407000     *       REPLACEMENT*
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0068


                        L     WA,XINTXTTR                                     FJP/RFIT X6407005     *          INSERTED*
                        LTR   WA,WA                                           FJP/RFIT X6407010     *          INSERTED*
                        ICM   R0,8,XJCPDBF2       GET PDDB FLAG BYTE 2.                X6788000     *          REPLACED*
               *        ICM   R0,8,XJCPDBF2       GET PDDB FLAG BYTE 2.           RFIT X6788000     *       REPLACEMENT*
                        IC    R0,XJCPDBF2                                         RFIT X6788005     *          INSERTED*
                        SLL   R0,24                                               RFIT X6788010     *          INSERTED*

                        LTR   R0,R0                                               RFIT X6788015     *          INSERTED*
                        ICM   R0,8,XJCPDBF2       ARE ANY OPTION BITS ON NOW...        X6944000     *          REPLACED*
               *        ICM   R0,8,XJCPDBF2       ARE ANY OPTION BITS ON NOW...   RFIT X6944000     *       REPLACEMENT*
                        IC    R0,XJCPDBF2                                         RFIT X6944005     *          INSERTED*

                        SLL   R0,24                                               RFIT X6944010     *          INSERTED*
                        LTR   R0,R0                                               RFIT X6944015     *          INSERTED*
                        ICM   R1,8,XJCPDBF2       GET THE FLAG 2 BYTE.                 X7070000     *          REPLACED*
               *        ICM   R1,8,XJCPDBF2       GET THE FLAG 2 BYTE.            RFIT X7070000     *       REPLACEMENT*
                        SLL   R1,8                                                RFIT X7070005     *          INSERTED*
                        SRL   R1,8                                                RFIT X7070010     *          INSERTED*
                        IC    R15,XJCPDBF2                                        RFIT X7070015     *          INSERTED*
                        SLL   R15,24                                              RFIT X7070020     *          INSERTED*
                        OR    R1,R15                                              RFIT X7070025     *          INSERTED*
                        ICM   WB,1,2(WA)          GET LENGTH OF DDNAME.                X8182000     *          REPLACED*
               *        ICM   WB,1,2(WA)          GET LENGTH OF DDNAME            RFIT X8182000     *       REPLACEMENT*
                        IC    WB,2(WA)                                            RFIT X8182005     *          INSERTED*

                        CLI   2(WA),0                                             RFIT X8182010     *          INSERTED*
               XFDDN002 ICM   R1,3,8(R15)         DDNAME= FOUND.  SET DD NR.           X8210000     *          REPLACED*
               *XFDDN002ICM   R1,3,8(R15)         DDNAME FOUND.  SET DD NR.       RFIT X8210000     *       REPLACEMENT*

               XFDDN002 XC    XFDDNW(4),XFDDNW                                    RFIT X8210005     *          INSERTED*
                        MVC   XFDDNW+2(2),8(R15)                                  RFIT X8210010     *          INSERTED*
                        SRL   R1,16                                               RFIT X8210015     *          INSERTED*
                        SLL   R1,16                                               RFIT X8210020     *          INSERTED*
                        O     R1,XFDDNW                                           RFIT X8210025     *          INSERTED*
                        ICM   R4,15,XTHWRTCB      LOOK AT SPECIAL THAW CELL.           X8740000     *          REPLACED*
               *        ICM   R4,15,XTHWRTCB      LOOK AT SPECIAL THAW CELL       RFIT X8740000     *       REPLACEMENT*
                        L     R4,XTHWRTCB                                         RFIT X8740005     *          INSERTED*
                        LTR   R4,R4                                               RFIT X8740010     *          INSERTED*
                        ICM   R4,7,XPCEJST+1      GET TCB ADDRESS TO THAW.             X8758000     *          REPLACED*
               *        ICM   R4,7,XPCEJST+1      GET TCB ADDRESS TO THAW         RFIT X8758000     *       REPLACEMENT*
                        L     R4,XPCEJST                                          RFIT X8758005     *          INSERTED*

                        LA    R4,0(,R4)                                           RFIT X8758010     *          INSERTED*
                        LTR   R4,R4                                               RFIT X8758015     *          INSERTED*
                        ICM   R4,15,XTHRDTCB      ANYONE WAITING FOR READER    OY08671 X8772100     *          REPLACED*
               *        ICM   R4,15,XTHRDTCB      ANYONE WAITING FOR RDR?      OY08671 X8772100     *       REPLACEMENT*

                        L     R4,XTHRDTCB                                     FJP/RFIT X8772105     *          INSERTED*
                        LTR   R4,R4                                           FJP/RFIT X8772110     *          INSERTED*
       ./ ENDUP
IEB816I MEMBER NAME (HASPXEQ ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
IEB818I HIGHEST CONDITION CODE WAS 00000000
IEB819I END OF JOB IEBUPDTE.


























































************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************










          ASP JOB NO. = 0018                                     DATE = 78.240




//P02RFIT  JOB 1,'P02RFIT  HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A




          ELAPSED TIME ON MAIN = ASP1     = 000.05, START TIME = 20.00.28

          DDNAME = SYSMSG                     PRINTED ON PR1     , LINES = 000092
          DDNAME = SYSPRINT                   PRINTED ON PR1     , LINES = 003005
          LINES OUTPUT FOR THIS JOB = 003097

       CARDS FROM MAIN FOR THIS JOB = NONE



























************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************

 PPPPPPPPPPPP       0000000       33333333333    UU         UU   MM         MM    OOOOOOOOOOO    DDDDDDDDDDDD     SSSSSSSSSSS
 PPPPPPPPPPPPP     000000000     3333333333333   UU         UU   MMM       MMM   OOOOOOOOOOOOO   DDDDDDDDDDDDD   SSSSSSSSSSSSS
 PP         PP    00       00    33         33   UU         UU   MMMM     MMMM   OO         OO   DD         DD   SS         SS
 PP         PP   00         00              33   UU         UU   MM MM   MM MM   OO         OO   DD         DD   SS
 PP         PP   00         00              33   UU         UU   MM  MM MM  MM   OO         OO   DD         DD   SS
 PP         PP   00         00            333    UU         UU   MM   MMM   MM   OO         OO   DD         DD   SSSSSSSSSSSS
 PPPPPPPPPPPPP   00         00            333    UU         UU   MM    M    MM   OO         OO   DD         DD    SSSSSSSSSSSS
 PPPPPPPPPPPP    00         00              33   UU         UU   MM         MM   OO         OO   DD         DD              SS
 PP              00         00              33   UU         UU   MM         MM   OO         OO   DD         DD              SS
 PP               00       00    33         33   UU         UU   MM         MM   OO         OO   DD         DD   SS         SS
 PP                000000000     333333333333    UUUUUUUUUUUUU   MM         MM   OOOOOOOOOOOOO   DDDDDDDDDDDDD   SSSSSSSSSSSSS
 PP                 0000000       3333333333      UUUUUUUUUUU    MM         MM    OOOOOOOOOOO    DDDDDDDDDDDD     SSSSSSSSSSS









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000       22222222222       0000000
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222     000000000
            JJ   OO         OO   BB         BB                    00       00     00       00    22         22    00       00
            JJ   OO         OO   BB         BB                   00         00   00         00              22   00         00
            JJ   OO         OO   BB         BB                   00         00   00         00              22   00         00
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00             22    00         00
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00           22      00         00
            JJ   OO         OO   BB         BB                   00         00   00         00         22        00         00
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00       22          00         00
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00      22             00       00
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222     000000000
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000      2222222222222      0000000









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 PPPPPPPPPPPP       0000000       33333333333    UU         UU   MM         MM    OOOOOOOOOOO    DDDDDDDDDDDD     SSSSSSSSSSS
 PPPPPPPPPPPPP     000000000     3333333333333   UU         UU   MMM       MMM   OOOOOOOOOOOOO   DDDDDDDDDDDDD   SSSSSSSSSSSSS
 PP         PP    00       00    33         33   UU         UU   MMMM     MMMM   OO         OO   DD         DD   SS         SS
 PP         PP   00         00              33   UU         UU   MM MM   MM MM   OO         OO   DD         DD   SS
 PP         PP   00         00              33   UU         UU   MM  MM MM  MM   OO         OO   DD         DD   SS
 PP         PP   00         00            333    UU         UU   MM   MMM   MM   OO         OO   DD         DD   SSSSSSSSSSSS
 PPPPPPPPPPPPP   00         00            333    UU         UU   MM    M    MM   OO         OO   DD         DD    SSSSSSSSSSSS
 PPPPPPPPPPPP    00         00              33   UU         UU   MM         MM   OO         OO   DD         DD              SS
 PP              00         00              33   UU         UU   MM         MM   OO         OO   DD         DD              SS
 PP               00       00    33         33   UU         UU   MM         MM   OO         OO   DD         DD   SS         SS
 PP                000000000     333333333333    UUUUUUUUUUUUU   MM         MM   OOOOOOOOOOOOO   DDDDDDDDDDDDD   SSSSSSSSSSSSS
 PP                 0000000       3333333333      UUUUUUUUUUU    MM         MM    OOOOOOOOOOO    DDDDDDDDDDDD     SSSSSSSSSSS









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000       22222222222       0000000
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222     000000000
            JJ   OO         OO   BB         BB                    00       00     00       00    22         22    00       00
            JJ   OO         OO   BB         BB                   00         00   00         00              22   00         00
            JJ   OO         OO   BB         BB                   00         00   00         00              22   00         00
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00             22    00         00
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00           22      00         00
            JJ   OO         OO   BB         BB                   00         00   00         00         22        00         00
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00       22          00         00
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00      22             00       00
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222     000000000
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000      2222222222222      0000000









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 ISV40 JOB ORIGIN FROM GROUP=LOCAL   , DSP=CR , DEVICE=RD1     , 00C
//P03UMODS JOB 1,'P03UMODS HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
//*********************************************************************
//*                                                                 ***
//*    Job:      P03UMODS                                           ***
//*    Product:  HASP V4 for MVT.                                   ***
//*    Purpose:  Update customized HASP source in SYS1.HASPSRC      ***
//*              with user modifications.  Usermods included        ***
//*              in this sample job are:                            ***
//*                                                                 ***
//*                THAS811    Test if hot reader is ready during    ***
//*                           initialization and leave DCTHOLD on   ***
//*                           if not.                               ***
//*                THAS812    Recognize "SYSOUT=*".                 ***
//*                THAS813    Start and stop HOSBRDR.               ***
//*                THAS814    Set HASP job ID in JMR user           ***
//*                           identification field                  ***
//*                                                                 ***
//*    Update:   2008/08/10                                         ***
//*                                                                 ***
//*    Note:     Message "IEB805I CONTROL STATEMENT ERROR" and      ***
//*              return code 4 are normal if there are no usermods  ***
//*              in the SYSIN input stream.  If usermods are        ***
//*              present, any return code except 0 indicates        ***
//*              an error.                                          ***
//*                                                                 ***
//*********************************************************************
//*
//UMODS   EXEC PGM=IEBUPDTE,PARM=MOD,REGION=96K
//SYSUT1   DD  DISP=OLD,DSN=SYS1.HASPSRC
//SYSUT2   DD  DISP=OLD,DSN=SYS1.HASPSRC
//SYSPRINT DD  SYSOUT=A
//SYSIN    DD  DATA,DLM='??'
??
//


 LOCATE' 0020SYS1.HASPSRC                                '
 AL00200E001/ASPSUP0003
 LOCATE' 0020SYS1.HASPSRC                                '
 AL00200E001/ASPSUP0003


 P03UMODS IEF403I P03UMODS STARTED    TIME=20.00.56
 P03UMODS IEF234E D 665,ASP665
*P03UMODS*24 IECASP0 665 IS P03UMODS A         UMODS   SYSPRINT
*P03UMODS*25 IECASP0 666 IS P03UMODS           UMODS   ASPI0001
 P03UMODS IEF280E K 666,010020,P03UMODS,UMODS
 P03UMODS STEP: P03UMODS UMODS             ET=00.00.00 RC=0000
 P03UMODS IEF404I P03UMODS ENDED      TIME=20.00.57
//P03UMODS JOB 1,'P03UMODS HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      P03UMODS                                           ***
***    Product:  HASP V4 for MVT.                                   ***
***    Purpose:  Update customized HASP source in SYS1.HASPSRC      ***
***              with user modifications.  Usermods included        ***
***              in this sample job are:                            ***
***                                                                 ***
***                THAS811    Test if hot reader is ready during    ***
***                           initialization and leave DCTHOLD on   ***
***                           if not.                               ***
***                THAS812    Recognize "SYSOUT=*".                 ***
***                THAS813    Start and stop HOSBRDR.               ***
***                THAS814    Set HASP job ID in JMR user           ***
***                           identification field                  ***
***                                                                 ***
***    Update:   2008/08/10                                         ***
***                                                                 ***
***    Note:     Message "IEB805I CONTROL STATEMENT ERROR" and      ***
***              return code 4 are normal if there are no usermods  ***
***              in the SYSIN input stream.  If usermods are        ***
***              present, any return code except 0 indicates        ***
***              an error.                                          ***
***                                                                 ***
***********************************************************************
***
//UMODS   EXEC PGM=IEBUPDTE,PARM=MOD,REGION=96K
//SYSUT1   DD  DISP=OLD,DSN=SYS1.HASPSRC
//SYSUT2   DD  DISP=OLD,DSN=SYS1.HASPSRC
//SYSPRINT DD  SYSOUT=A
//SYSIN DD UNIT=(CTC,,DEFER),DSNAME=&&ASPI0001,                        *
// DISP=(OLD,DELETE),VOL=SER=010020,DCB=(LRECL=80,BLKSIZE=80,RECFM=F)
//
IEF236I ALLOC. FOR P03UMODS UMODS
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 666   ALLOCATED TO SYSIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T200056.RV001.P03UMODS.ASPOA001     DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS78240.T200056.RV001.P03UMODS.ASPI0001     DELETED
IEF285I   VOL SER NOS= 010020.
IEF280E K 666,010020,P03UMODS,UMODS
IEF373I STEP /UMODS   / START 78240.2000
IEF374I STEP /UMODS   / STOP  78240.2000 CPU   0MIN 00.48SEC MAIN  30K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 20:00:56.42   ALLOC START    20:00:56.43   MAIN REGION ------ 96K                          *
*   STEP NAME UMODS      STEP END TIME  20:00:57.01   PGM START TIME 20:00:56.46   MAIN STORAGE ----- 30K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.59   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEBUPDTE   STEP CPU TIME  00:00:00.48   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0151 ---------- 754       0151 ---------- 753       0665 ----------- 75       0666 ----------- 62                              *
************************************************************************************************************************************

IEF375I  JOB /P03UMODS/ START 78240.2000
IEF376I  JOB /P03UMODS/ STOP  78240.2000 CPU   0MIN 00.48SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  P03UMODS   JOB READ TIME 20:00:56.22   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.48   *
*   JOB CLASS B          JOB INIT TIME 20:00:56.42   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.60   *
*   JOB ID    JOB00020   JOB END TIME  20:00:57.02   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 2   *
************************************************************************************************************************************


 PPPPPPPPPPPP       0000000       33333333333    UU         UU   MM         MM    OOOOOOOOOOO    DDDDDDDDDDDD     SSSSSSSSSSS
 PPPPPPPPPPPPP     000000000     3333333333333   UU         UU   MMM       MMM   OOOOOOOOOOOOO   DDDDDDDDDDDDD   SSSSSSSSSSSSS
 PP         PP    00       00    33         33   UU         UU   MMMM     MMMM   OO         OO   DD         DD   SS         SS
 PP         PP   00         00              33   UU         UU   MM MM   MM MM   OO         OO   DD         DD   SS
 PP         PP   00         00              33   UU         UU   MM  MM MM  MM   OO         OO   DD         DD   SS
 PP         PP   00         00            333    UU         UU   MM   MMM   MM   OO         OO   DD         DD   SSSSSSSSSSSS
 PPPPPPPPPPPPP   00         00            333    UU         UU   MM    M    MM   OO         OO   DD         DD    SSSSSSSSSSSS
 PPPPPPPPPPPP    00         00              33   UU         UU   MM         MM   OO         OO   DD         DD              SS
 PP              00         00              33   UU         UU   MM         MM   OO         OO   DD         DD              SS
 PP               00       00    33         33   UU         UU   MM         MM   OO         OO   DD         DD   SS         SS
 PP                000000000     333333333333    UUUUUUUUUUUUU   MM         MM   OOOOOOOOOOOOO   DDDDDDDDDDDDD   SSSSSSSSSSSSS
 PP                 0000000       3333333333      UUUUUUUUUUU    MM         MM    OOOOOOOOOOO    DDDDDDDDDDDD     SSSSSSSSSSS









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000       22222222222       0000000
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222     000000000
            JJ   OO         OO   BB         BB                    00       00     00       00    22         22    00       00
            JJ   OO         OO   BB         BB                   00         00   00         00              22   00         00
            JJ   OO         OO   BB         BB                   00         00   00         00              22   00         00
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00             22    00         00
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00           22      00         00
            JJ   OO         OO   BB         BB                   00         00   00         00         22        00         00
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00       22          00         00
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00      22             00       00
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222     000000000
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000      2222222222222      0000000









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    PPPPPPPPPPPP    RRRRRRRRRRRR    IIIIIIIIIIII    NN         NN   TTTTTTTTTTTT
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRRR   IIIIIIIIIIII    NNN        NN   TTTTTTTTTTTT
 SS         SS     YY    YY      SS         SS   PP         PP   RR         RR        II         NNNN       NN        TT
 SS                 YY  YY       SS              PP         PP   RR         RR        II         NN NN      NN        TT
 SS                  YYYY        SS              PP         PP   RR         RR        II         NN  NN     NN        TT
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    PP         PP   RRRRRRRRRRRRR        II         NN   NN    NN        TT
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRR         II         NN    NN   NN        TT
            SS        YY                    SS   PPPPPPPPPPPP    RR      RR           II         NN     NN  NN        TT
            SS        YY                    SS   PP              RR       RR          II         NN      NN NN        TT
 SS         SS        YY         SS         SS   PP              RR        RR         II         NN       NNNN        TT
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   PP              RR         RR   IIIIIIIIIIII    NN        NNN        TT
  SSSSSSSSSSS         YY          SSSSSSSSSSS    PP              RR         RR   IIIIIIIIIIII    NN         NN        TT










       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0001


       ./ CHANGE NAME=HASPCOMM ========================================================
                        XR    R0,R0               Issue                       @THAS813 C5699020     *          INSERTED*
                        LA    R1,CPSBRDR           "STOP HOSBRDR"             @THAS813 C5699040     *          INSERTED*
                        SVC   34                    command                   @THAS813 C5699060     *          INSERTED*
               CPSBRDR  DC    0F'0',AL2(CPSBRDRL,0),C'P HOSBRDR.HOSBRDR '     @THAS813 C5958130     *          INSERTED*
               CPSBRDRL EQU   *-CPSBRDR                                       @THAS813 C5958160     *          INSERTED*
IEB816I MEMBER NAME (HASPCOMM) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0002


       ./ CHANGE NAME=HASPINIT ========================================================
                        AIF   (NOT &AUTORDR).NOARDRB                          @THAS811 N4667010     *          INSERTED*
               *------------------------------------------------------------* @THAS811 N4667020     *          INSERTED*

               *        The following logic tests if a hot reader is        * @THAS811 N4667030     *          INSERTED*
               *        ready.  If the reader is not ready, DCTHOLD         * @THAS811 N4667040     *          INSERTED*
               *        will be left turned on in its DCT so HASPRDR's      * @THAS811 N4667050     *          INSERTED*
               *        $GETUNIT for the device will fail, preventing       * @THAS811 N4667060     *          INSERTED*

               *        HASPRDR from trying to read from the not ready      * @THAS811 N4667070     *          INSERTED*
               *        device.  If the reader is ready, DCTHOLD will be    * @THAS811 N4667080     *          INSERTED*
               *        turned off to permit normal HASPRDR processing.     * @THAS811 N4667090     *          INSERTED*
               *------------------------------------------------------------* @THAS811 N4667100     *          INSERTED*
                        CLI   DCTDEVTP,DCTRDR     Is this a reader?           @THAS811 N4667110     *          INSERTED*
                        BNE   NURAVAIL            Branch if not a reader      @THAS811 N4667120     *          INSERTED*
                        TM    UCBFL1,X'FE'        Test UCB flags              @THAS811 N4667130     *          INSERTED*
                        BNZ   NURDRAIN            Drain reader if unavailable @THAS811 N4667140     *          INSERTED*
               NURRDSIO LA    R1,NURRDCCW         Get CCW address             @THAS811 N4667150     *          INSERTED*
                        ST    R1,72                and put in CAW             @THAS811 N4667160     *          INSERTED*
                        LH    R1,UCBCHA           Get reader address          @THAS811 N4667170     *          INSERTED*
                        N     R1,=A(X'00000FFF')   in R1                      @THAS811 N4667180     *          INSERTED*

                        SIO   0(R1)                 and issue NOP to reader   @THAS811 N4667190     *          INSERTED*
                        BC    1,NURDRAIN          Drain reader if inoperative @THAS811 N4667200     *          INSERTED*
                        BC    4,NURRDCST          Branch if CSW stored        @THAS811 N4667210     *          INSERTED*

                        BC    2,NURRDSIO          Wait for I/O to take        @THAS811 N4667220     *          INSERTED*
               NURRDTIO LH    R1,UCBCHA           Get reader address          @THAS811 N4667230     *          INSERTED*
                        N     R1,=A(X'00000FFF')   in R1                      @THAS811 N4667240     *          INSERTED*
                        TIO   0(R1)                 and test for completion   @THAS811 N4667250     *          INSERTED*
                        BC    1,NURDRAIN          Drain reader if inoperative @THAS811 N4667260     *          INSERTED*
                        BC    2,NURRDTIO          Loop until complete         @THAS811 N4667270     *          INSERTED*
                        BC    8,NURAVAIL          Available, go lift DCTHOLD  @THAS811 N4667280     *          INSERTED*
               NURRDCST TM    68,X'02'            Test for unit check         @THAS811 N4667290     *          INSERTED*
                        BO    NURRDHLD            Leave reader DCT held if so @THAS811 N4667300     *          INSERTED*
                        TM    69,X'3F'            Test permanent I/O errors   @THAS811 N4667310     *          INSERTED*
                        BZ    NURAVAIL            None, make reader available @THAS811 N4667320     *          INSERTED*
               NURRDHLD NI    DCTSTAT,255-DCTDRAIN Else leave reader DCT held @THAS811 N4667330     *          INSERTED*

                        B     NURASOFF            Continue                    @THAS811 N4667340     *          INSERTED*
               NURRDCCW CCW   X'03',0,X'20',1     NOP CCW for reader test     @THAS811 N4667350     *          INSERTED*
               *------------------------------------------------------------* @THAS811 N4667360     *          INSERTED*
               *        End of code to test if hot reader is ready.         * @THAS811 N4667370     *          INSERTED*

               *------------------------------------------------------------* @THAS811 N4667380     *          INSERTED*
               .NOARDRB ANOP  ,                                               @THAS811 N4667390     *          INSERTED*
                        NI    SRTESTAT,255-SRTEONLI VARY AUTO STARTS OFFLINE           N4670000     *          REPLACED*
               NURASOFF NI    SRTESTAT,255-SRTEONLI Vary auto starts offline  @THAS811 N4670000     *       REPLACEMENT*
                        XR    R0,R0               Issue                       @THAS813 N6038320     *          INSERTED*
                        LA    R1,NSTRBRDR          "START HOSBRDR"            @THAS813 N6038340     *          INSERTED*
                        SVC   34                    command                   @THAS813 N6038360     *          INSERTED*
               NSTRBRDR DC    0F'0',AL2(NSTRBRDL,0),C'S HOSBRDR.HOSBRDR '     @THAS813 N6168030     *          INSERTED*
               NSTRBRDL EQU   *-NSTRBRDR                                      @THAS813 N6168070     *          INSERTED*
IEB816I MEMBER NAME (HASPINIT) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0003


       ./ CHANGE NAME=HASPRDR =========================================================

                        MVC   JCTUSEID,RKBLANKS   BLANK OUT JMR USER IDENTIFICATION    R2012000     *          REPLACED*
                        MVC   JCTUSEID(4),RJOBCON   Set HASP job number       @THAS814 R2012000     *       REPLACEMENT*
                        MVC   JCTUSEID+4(4),JCTJOBEB   in JMR user ID         @THAS814 R2012050     *          INSERTED*

IEB816I MEMBER NAME (HASPRDR ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
       SYSIN                            NEW MASTER                                        IEBUPDTE LOG PAGE 0004


       ./ CHANGE NAME=HASPXEQ =========================================================
                        MVC   JCTUSEID-JCTJMR(4,WE),=CL4'JOB'  Set HASP jobid @THAS814 X6149040     *          INSERTED*
                        MVC   JCTUSEID+4-JCTJMR(4,WE),JCTJOBEB  in JMRUSEID   @THAS814 X6149060     *          INSERTED*
                        CLI   3(R1),C'*'          Was class specified as "*"? @THAS812 X6698040     *          INSERTED*
                        BE    XJCLSYST            Go set to MSGCLASS if so    @THAS812 X6698060     *          INSERTED*
                        IC    WA,XJCLOMC+1        SET SYSOUT CLASS = MSGCLASS          X6704000     *          REPLACED*
               XJCLSYST IC    WA,XJCLOMC+1        Set SYSOUT class = MSGCLASS @THAS812 X6704000     *       REPLACEMENT*
       ./ ENDUP =======================================================================
IEB816I MEMBER NAME (HASPXEQ ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED.
IEB818I HIGHEST CONDITION CODE WAS 00000000

IEB819I END OF JOB IEBUPDTE.


























































************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************










          ASP JOB NO. = 0020                                     DATE = 78.240




//P03UMODS JOB 1,'P03UMODS HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A




          ELAPSED TIME ON MAIN = ASP1     = 000.02, START TIME = 20.00.56

          DDNAME = SYSMSG                     PRINTED ON PR1     , LINES = 000124
          DDNAME = SYSPRINT                   PRINTED ON PR1     , LINES = 000075
          LINES OUTPUT FOR THIS JOB = 000199

       CARDS FROM MAIN FOR THIS JOB = NONE



























************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************

 PPPPPPPPPPPP       0000000              44        AAAAAAAAA      SSSSSSSSSSS    MM         MM
 PPPPPPPPPPPPP     000000000            444       AAAAAAAAAAA    SSSSSSSSSSSSS   MMM       MMM
 PP         PP    00       00          4444      AA         AA   SS         SS   MMMM     MMMM
 PP         PP   00         00        44 44      AA         AA   SS              MM MM   MM MM
 PP         PP   00         00       44  44      AA         AA   SS              MM  MM MM  MM
 PP         PP   00         00      44   44      AA         AA   SSSSSSSSSSSS    MM   MMM   MM
 PPPPPPPPPPPPP   00         00     44    44      AAAAAAAAAAAAA    SSSSSSSSSSSS   MM    M    MM
 PPPPPPPPPPPP    00         00    444444444444   AAAAAAAAAAAAA              SS   MM         MM
 PP              00         00   4444444444444   AA         AA              SS   MM         MM
 PP               00       00            44      AA         AA   SS         SS   MM         MM
 PP                000000000             44      AA         AA   SSSSSSSSSSSSS   MM         MM
 PP                 0000000              44      AA         AA    SSSSSSSSSSS    MM         MM









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000       22222222222     22222222222
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222   2222222222222
            JJ   OO         OO   BB         BB                    00       00     00       00    22         22   22         22
            JJ   OO         OO   BB         BB                   00         00   00         00              22              22
            JJ   OO         OO   BB         BB                   00         00   00         00              22              22
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00             22              22
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00           22              22
            JJ   OO         OO   BB         BB                   00         00   00         00         22              22
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00       22              22
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00      22              22
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222   2222222222222
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000      2222222222222   2222222222222









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 PPPPPPPPPPPP       0000000              44        AAAAAAAAA      SSSSSSSSSSS    MM         MM
 PPPPPPPPPPPPP     000000000            444       AAAAAAAAAAA    SSSSSSSSSSSSS   MMM       MMM
 PP         PP    00       00          4444      AA         AA   SS         SS   MMMM     MMMM
 PP         PP   00         00        44 44      AA         AA   SS              MM MM   MM MM
 PP         PP   00         00       44  44      AA         AA   SS              MM  MM MM  MM
 PP         PP   00         00      44   44      AA         AA   SSSSSSSSSSSS    MM   MMM   MM
 PPPPPPPPPPPPP   00         00     44    44      AAAAAAAAAAAAA    SSSSSSSSSSSS   MM    M    MM
 PPPPPPPPPPPP    00         00    444444444444   AAAAAAAAAAAAA              SS   MM         MM
 PP              00         00   4444444444444   AA         AA              SS   MM         MM
 PP               00       00            44      AA         AA   SS         SS   MM         MM
 PP                000000000             44      AA         AA   SSSSSSSSSSSSS   MM         MM
 PP                 0000000              44      AA         AA    SSSSSSSSSSS    MM         MM









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000       22222222222     22222222222
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222   2222222222222
            JJ   OO         OO   BB         BB                    00       00     00       00    22         22   22         22
            JJ   OO         OO   BB         BB                   00         00   00         00              22              22
            JJ   OO         OO   BB         BB                   00         00   00         00              22              22
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00             22              22
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00           22              22
            JJ   OO         OO   BB         BB                   00         00   00         00         22              22
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00       22              22
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00      22              22
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222   2222222222222
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000      2222222222222   2222222222222









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 ISV40 JOB ORIGIN FROM GROUP=LOCAL   , DSP=CR , DEVICE=RD1     , 00C
//P04ASM   JOB 1,'P04ASM   HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
//*********************************************************************
//*                                                                 ***
//*    Job:      P04ASM                                             ***
//*    Product:  HASP V4 for MVT.                                   ***
//*    Purpose:  Assemble HASP source.                              ***
//*    Update:   2006/08/10                                         ***
//*                                                                 ***
//*********************************************************************
//*
/*JOBPARM LINES=9999
//*MAIN LINES=100
//*
//*-----------------------------------------------------------------***
//*    Delete existing SYS1.HASPOBJ data set.                       ***
//*-----------------------------------------------------------------***
//DELETE  EXEC PGM=IEFBR14
//HASPOBJ  DD  DISP=(OLD,DELETE),DSN=SYS1.HASPOBJ
//*
//*-----------------------------------------------------------------***
//*    Allocate new SYS1.HASPOBJ data set.                          ***
//*-----------------------------------------------------------------***
//ALLOC   EXEC PGM=IEFBR14
//HASPOBJ  DD  DSN=SYS1.HASPOBJ,
//             VOL=REF=SYS1.HASPIBM,
//             DCB=SYS1.HASPIBM,
//             DISP=(NEW,CATLG),
//             SPACE=(CYL,(5,,8))
//*
//*-----------------------------------------------------------------***
//*    Compress SYS1.HASPMOD.                                       ***
//*-----------------------------------------------------------------***
//COMPRESS EXEC PGM=IEBCOPY
//SYSPRINT DD  SYSOUT=A
//SYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSUT4   DD  UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSUT1   DD  DISP=OLD,DSN=SYS1.HASPMOD
//SYSUT2   DD  DISP=OLD,DSN=SYS1.HASPMOD
//SYSIN    DD  DUMMY
//*
//*-----------------------------------------------------------------***
//*    Assemble HASP modules to SYS1.HASPOBJ data set,              ***
//*    and link HASPOBLD to SYS1.HASPMOD.                           ***
//*-----------------------------------------------------------------***
//HASPACCT EXEC ASMHASP,MODULE=HASPACCT
//HASPBR1  EXEC ASMHASP,MODULE=HASPBR1
//HASPCOMM EXEC ASMHASP,MODULE=HASPCOMM
//HASPCON  EXEC ASMHASP,MODULE=HASPCON
//HASPINIT EXEC ASMHASP,MODULE=HASPINIT
//HASPINTF EXEC ASMHASP,MODULE=HASPINTF
//HASPMISC EXEC ASMHASP,MODULE=HASPMISC
//HASPNUC  EXEC ASMHASP,MODULE=HASPNUC
//HASPOBLD EXEC ASMHASP,MODULE=HASPOBLD
//LNKOBLD  EXEC PGM=IEWL,PARM='LIST,MAP,NCAL',REGION=96K
//SYSLIN    DD DSNAME=SYS1.HASPOBJ(HASPOBLD),DISP=SHR
//SYSUT1    DD DSN=&&UT1,UNIT=SYSALLDA,SPACE=(CYL,(10,5))
//SYSLMOD   DD DSNAME=SYS1.HASPMOD(HASPOBLD),DISP=OLD
//SYSPRINT  DD SYSOUT=A
//HASPPRPU EXEC ASMHASP,MODULE=HASPPRPU
//HASPRDR  EXEC ASMHASP,MODULE=HASPRDR
//HASPRTAM EXEC ASMHASP,MODULE=HASPRTAM
//HASPSVC  EXEC ASMHASP,MODULE=HASPSVC
//HASPWTR  EXEC ASMHASP,MODULE=HASPWTR
//HASPXEQ  EXEC ASMHASP,MODULE=HASPXEQ
//


 LOCATE' 0022SYS1.HASPOBJ                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPIBM                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPMOD                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPMOD                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPMOD                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003
 LOCATE' 0022SYS1.HASPSRC                                '
 AL00220E001/ASPSUP0003


 P04ASM   IEF403I P04ASM   STARTED    TIME=20.01.41
 P04ASM   STEP: P04ASM   DELETE            ET=00.00.00 RC=0000
 P04ASM   STEP: P04ASM   ALLOC             ET=00.00.00 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *26 IECASP0 665 IS P04ASM   A         COMPRESSSYSPRINT
 P04ASM   STEP: P04ASM   COMPRESS          ET=00.00.00 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *27 IECASP0 665 IS P04ASM   A ASM     HASPACCTSYSPRINT
 P04ASM   STEP: P04ASM   HASPACCT ASM      ET=00.00.01 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *28 IECASP0 665 IS P04ASM   A ASM     HASPBR1 SYSPRINT
 P04ASM   STEP: P04ASM   HASPBR1  ASM      ET=00.00.02 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *29 IECASP0 665 IS P04ASM   A ASM     HASPCOMMSYSPRINT
 P04ASM   STEP: P04ASM   HASPCOMM ASM      ET=00.00.06 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *30 IECASP0 665 IS P04ASM   A ASM     HASPCON SYSPRINT
 P04ASM   STEP: P04ASM   HASPCON  ASM      ET=00.00.03 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *31 IECASP0 665 IS P04ASM   A ASM     HASPINITSYSPRINT
 P04ASM   STEP: P04ASM   HASPINIT ASM      ET=00.00.05 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *32 IECASP0 665 IS P04ASM   A ASM     HASPINTFSYSPRINT
 P04ASM   STEP: P04ASM   HASPINTF ASM      ET=00.00.02 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *33 IECASP0 665 IS P04ASM   A ASM     HASPMISCSYSPRINT
 P04ASM   STEP: P04ASM   HASPMISC ASM      ET=00.00.02 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *34 IECASP0 665 IS P04ASM   A ASM     HASPNUC SYSPRINT
 P04ASM   STEP: P04ASM   HASPNUC  ASM      ET=00.00.03 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *35 IECASP0 665 IS P04ASM   A ASM     HASPOBLDSYSPRINT
 P04ASM   STEP: P04ASM   HASPOBLD ASM      ET=00.00.03 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *36 IECASP0 665 IS P04ASM   A         LNKOBLD SYSPRINT
 P04ASM   STEP: P04ASM   LNKOBLD           ET=00.00.00 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *37 IECASP0 665 IS P04ASM   A ASM     HASPPRPUSYSPRINT
 P04ASM   STEP: P04ASM   HASPPRPU ASM      ET=00.00.04 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *38 IECASP0 665 IS P04ASM   A ASM     HASPRDR SYSPRINT
 P04ASM   STEP: P04ASM   HASPRDR  ASM      ET=00.00.04 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *39 IECASP0 665 IS P04ASM   A ASM     HASPRTAMSYSPRINT
 P04ASM   STEP: P04ASM   HASPRTAM ASM      ET=00.00.02 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *40 IECASP0 665 IS P04ASM   A ASM     HASPSVC SYSPRINT
 P04ASM   STEP: P04ASM   HASPSVC  ASM      ET=00.00.01 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *41 IECASP0 665 IS P04ASM   A ASM     HASPWTR SYSPRINT
 P04ASM   STEP: P04ASM   HASPWTR  ASM      ET=00.00.02 RC=0000
 P04ASM   IEF234E D 665,ASP665
*P04ASM  *42 IECASP0 665 IS P04ASM   A ASM     HASPXEQ SYSPRINT
 P04ASM   STEP: P04ASM   HASPXEQ  ASM      ET=00.00.07 RC=0000
 P04ASM   IEF404I P04ASM   ENDED      TIME=20.02.36
//P04ASM   JOB 1,'P04ASM   HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      P04ASM                                             ***
***    Product:  HASP V4 for MVT.                                   ***
***    Purpose:  Assemble HASP source.                              ***
***    Update:   2006/08/10                                         ***
***                                                                 ***
***********************************************************************
***
***
***-----------------------------------------------------------------***
***    Delete existing SYS1.HASPOBJ data set.                       ***
***-----------------------------------------------------------------***
//DELETE  EXEC PGM=IEFBR14
//HASPOBJ  DD  DISP=(OLD,DELETE),DSN=SYS1.HASPOBJ
***
***-----------------------------------------------------------------***
***    Allocate new SYS1.HASPOBJ data set.                          ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR P04ASM   DELETE
IEF237I 151   ALLOCATED TO HASPOBJ
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPOBJ                                 UNCATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 DELETED
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /DELETE  / START 78240.2001
IEF374I STEP /DELETE  / STOP  78240.2001 CPU   0MIN 00.02SEC MAIN   4K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 20:01:41.51   ALLOC START    20:01:41.52   MAIN REGION ----- 256K                          *
*   STEP NAME DELETE     STEP END TIME  20:01:41.58   PGM START TIME 20:01:41.54   MAIN STORAGE ------ 4K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.07   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEFBR14    STEP CPU TIME  00:00:00.02   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT                                                                                                            *
*   0151 ------------ 0                                                                                                            *
************************************************************************************************************************************

//ALLOC   EXEC PGM=IEFBR14
//HASPOBJ  DD  DSN=SYS1.HASPOBJ,
//             VOL=REF=SYS1.HASPIBM,
//             DCB=SYS1.HASPIBM,
//             DISP=(NEW,CATLG),
//             SPACE=(CYL,(5,,8))
***
***-----------------------------------------------------------------***
***    Compress SYS1.HASPMOD.                                       ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR P04ASM   ALLOC
IEF237I 151   ALLOCATED TO HASPOBJ
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPOBJ                                 CATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ALLOC   / START 78240.2001
IEF374I STEP /ALLOC   / STOP  78240.2001 CPU   0MIN 00.02SEC MAIN   4K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 20:01:41.59   ALLOC START    20:01:41.60   MAIN REGION ----- 256K                          *
*   STEP NAME ALLOC      STEP END TIME  20:01:41.66   PGM START TIME 20:01:41.64   MAIN STORAGE ------ 4K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.07   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEFBR14    STEP CPU TIME  00:00:00.02   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT                                                                                                            *
*   0151 ------------ 0                                                                                                            *
************************************************************************************************************************************

//COMPRESS EXEC PGM=IEBCOPY
//SYSPRINT DD  SYSOUT=A
//SYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSUT4   DD  UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSUT1   DD  DISP=OLD,DSN=SYS1.HASPMOD
//SYSUT2   DD  DISP=OLD,DSN=SYS1.HASPMOD
//SYSIN    DD  DUMMY
***
***-----------------------------------------------------------------***
***    Assemble HASP modules to SYS1.HASPOBJ data set,              ***
***    and link HASPOBLD to SYS1.HASPMOD.                           ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR P04ASM   COMPRESS
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 159   ALLOCATED TO SYSUT4
IEF237I 151   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSUT2
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA001       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000004       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000005       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS1.HASPMOD                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPMOD                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /COMPRESS/ START 78240.2001
IEF374I STEP /COMPRESS/ STOP  78240.2001 CPU   0MIN 00.07SEC MAIN 254K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 20:01:41.66   ALLOC START    20:01:41.67   MAIN REGION ----- 256K                          *
*   STEP NAME COMPRESS   STEP END TIME  20:01:41.85   PGM START TIME 20:01:41.74   MAIN STORAGE ---- 254K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.19   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEBCOPY    STEP CPU TIME  00:00:00.07   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0665 ----------- 11       0158 ------------ 0       0159 ------------ 0       0151 ---------- 108       0151 ----------- 12    *
************************************************************************************************************************************

//HASPACCT EXEC ASMHASP,MODULE=HASPACCT
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPACCT),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPACCT),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPACCT
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000006       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000007       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000008       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA002       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2001
IEF374I STEP /ASM     / STOP  78240.2001 CPU   0MIN 01.24SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  004        STEP INIT TIME 20:01:41.87   ALLOC START    20:01:41.87   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:01:43.36   PGM START TIME 20:01:41.96   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPACCT   ELAPSED TIME   00:00:01.49   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:01.24   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 359       0150 ----------- 77       0158 ---------- 535       0159 ----------- 58       0158 ----------- 20    *
*   0665 ----------- 93       0151 ------------ 9       0151 ------------ 3                                                        *
************************************************************************************************************************************

//HASPBR1  EXEC ASMHASP,MODULE=HASPBR1
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPBR1),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPBR1),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPBR1
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000009       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000010       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000011       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA003       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2001
IEF374I STEP /ASM     / STOP  78240.2001 CPU   0MIN 02.04SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  005        STEP INIT TIME 20:01:43.38   ALLOC START    20:01:43.39   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:01:45.96   PGM START TIME 20:01:43.48   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPBR1    ELAPSED TIME   00:00:02.58   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:02.04   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 355       0150 ----------- 65       0158 ---------- 775       0159 ---------- 219       0158 ----------- 70    *
*   0665 ---------- 478       0151 ------------ 4       0151 ------------ 1                                                        *
************************************************************************************************************************************

//HASPCOMM EXEC ASMHASP,MODULE=HASPCOMM
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPCOMM),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPCOMM),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPCOMM
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000012       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000013       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000014       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA004       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2001
IEF374I STEP /ASM     / STOP  78240.2001 CPU   0MIN 05.39SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  006        STEP INIT TIME 20:01:45.97   ALLOC START    20:01:45.99   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:01:52.23   PGM START TIME 20:01:46.08   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPCOMM   ELAPSED TIME   00:00:06.26   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:05.39   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 379       0150 ----------- 81       0158 --------- 5303       0159 ---------- 452       0158 ---------- 332    *
*   0665 ---------- 744       0151 ---------- 222       0151 ----------- 61                                                        *
************************************************************************************************************************************

//HASPCON  EXEC ASMHASP,MODULE=HASPCON
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPCON),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPCON),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPCON
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000015       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000016       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000017       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA005       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2001
IEF374I STEP /ASM     / STOP  78240.2001 CPU   0MIN 02.55SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  007        STEP INIT TIME 20:01:52.24   ALLOC START    20:01:52.26   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:01:55.47   PGM START TIME 20:01:52.35   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPCON    ELAPSED TIME   00:00:03.23   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:02.55   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 370       0150 ----------- 92       0158 --------- 1085       0159 ---------- 214       0158 ---------- 137    *
*   0665 ---------- 356       0151 ---------- 101       0151 ----------- 18                                                        *
************************************************************************************************************************************

//HASPINIT EXEC ASMHASP,MODULE=HASPINIT
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPINIT),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPINIT),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPINIT
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000018       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000019       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000020       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA006       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2001
IEF374I STEP /ASM     / STOP  78240.2002 CPU   0MIN 04.99SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  008        STEP INIT TIME 20:01:55.49   ALLOC START    20:01:55.50   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:02:01.27   PGM START TIME 20:01:55.59   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPINIT   ELAPSED TIME   00:00:05.78   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:04.99   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 380       0150 ---------- 190       0158 --------- 2237       0159 ---------- 354       0158 ---------- 277    *
*   0665 ---------- 573       0151 ---------- 177       0151 ----------- 90                                                        *
************************************************************************************************************************************

//HASPINTF EXEC ASMHASP,MODULE=HASPINTF
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPINTF),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPINTF),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPINTF
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000021       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000022       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000023       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA007       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2002
IEF374I STEP /ASM     / STOP  78240.2002 CPU   0MIN 01.79SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  009        STEP INIT TIME 20:02:01.28   ALLOC START    20:02:01.30   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:02:03.53   PGM START TIME 20:02:01.55   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPINTF   ELAPSED TIME   00:00:02.25   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:01.79   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 360       0150 ----------- 78       0158 ---------- 692       0159 ---------- 125       0158 ----------- 70    *
*   0665 ---------- 174       0151 ----------- 31       0151 ------------ 6                                                        *
************************************************************************************************************************************

//HASPMISC EXEC ASMHASP,MODULE=HASPMISC
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPMISC),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPMISC),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPMISC
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000024       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000025       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000026       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA008       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2002
IEF374I STEP /ASM     / STOP  78240.2002 CPU   0MIN 01.76SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  010        STEP INIT TIME 20:02:03.54   ALLOC START    20:02:03.56   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:02:05.59   PGM START TIME 20:02:03.65   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPMISC   ELAPSED TIME   00:00:02.05   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:01.76   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 390       0150 ----------- 65       0158 --------- 1209       0159 ----------- 87       0158 ----------- 44    *
*   0665 ---------- 168       0151 ----------- 38       0151 ----------- 17                                                        *
************************************************************************************************************************************

//HASPNUC  EXEC ASMHASP,MODULE=HASPNUC
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPNUC),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPNUC),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPNUC
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000027       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000028       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000029       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA009       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2002
IEF374I STEP /ASM     / STOP  78240.2002 CPU   0MIN 03.33SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  011        STEP INIT TIME 20:02:05.60   ALLOC START    20:02:05.62   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:02:09.57   PGM START TIME 20:02:05.71   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPNUC    ELAPSED TIME   00:00:03.97   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:03.33   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 379       0150 ----------- 87       0158 --------- 2441       0159 ---------- 279       0158 ---------- 171    *
*   0665 ---------- 468       0151 ---------- 147       0151 ----------- 45                                                        *
************************************************************************************************************************************

//HASPOBLD EXEC ASMHASP,MODULE=HASPOBLD
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPOBLD),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPOBLD),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPOBLD
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000030       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000031       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000032       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA010       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2002
IEF374I STEP /ASM     / STOP  78240.2002 CPU   0MIN 02.87SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  012        STEP INIT TIME 20:02:09.59   ALLOC START    20:02:09.60   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:02:12.96   PGM START TIME 20:02:09.70   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPOBLD   ELAPSED TIME   00:00:03.37   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:02.87   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 359       0150 ---------- 172       0158 ---------- 912       0159 ---------- 142       0158 ----------- 56    *
*   0665 ---------- 204       0151 ----------- 35       0151 ----------- 44                                                        *
************************************************************************************************************************************

//LNKOBLD  EXEC PGM=IEWL,PARM='LIST,MAP,NCAL',REGION=96K
//SYSLIN    DD DSNAME=SYS1.HASPOBJ(HASPOBLD),DISP=SHR
//SYSUT1    DD DSN=&&UT1,UNIT=SYSALLDA,SPACE=(CYL,(10,5))
//SYSLMOD   DD DSNAME=SYS1.HASPMOD(HASPOBLD),DISP=OLD
//SYSPRINT  DD SYSOUT=A
IEF236I ALLOC. FOR P04ASM   LNKOBLD
IEF237I 151   ALLOCATED TO SYSLIN
IEF237I 130   ALLOCATED TO SYSUT1
IEF237I 151   ALLOCATED TO SYSLMOD
IEF237I 665   ALLOCATED TO SYSPRINT
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T200140.RV001.P04ASM.UT1            DELETED
IEF285I   VOL SER NOS= SORTA0.
IEF285I   SYS1.HASPMOD                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA011       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF373I STEP /LNKOBLD / START 78240.2002
IEF374I STEP /LNKOBLD / STOP  78240.2002 CPU   0MIN 00.06SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  013        STEP INIT TIME 20:02:12.97   ALLOC START    20:02:12.99   MAIN REGION ------ 96K                          *
*   STEP NAME LNKOBLD    STEP END TIME  20:02:13.14   PGM START TIME 20:02:13.05   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.17   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.06   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT                              *
*   0151 ----------- 45       0130 ------------ 0       0151 ----------- 10       0665 ----------- 15                              *
************************************************************************************************************************************

//HASPPRPU EXEC ASMHASP,MODULE=HASPPRPU
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPPRPU),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPPRPU),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPPRPU
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000033       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000034       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000035       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA012       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2002
IEF374I STEP /ASM     / STOP  78240.2002 CPU   0MIN 04.13SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  014        STEP INIT TIME 20:02:13.15   ALLOC START    20:02:13.16   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:02:17.77   PGM START TIME 20:02:13.25   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPPRPU   ELAPSED TIME   00:00:04.62   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:04.13   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 413       0150 ----------- 66       0158 --------- 2580       0159 ---------- 322       0158 ---------- 262    *
*   0665 ---------- 567       0151 ---------- 189       0151 ----------- 69                                                        *
************************************************************************************************************************************

//HASPRDR  EXEC ASMHASP,MODULE=HASPRDR
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPRDR),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPRDR),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPRDR
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000036       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000037       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000038       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA013       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2002
IEF374I STEP /ASM     / STOP  78240.2002 CPU   0MIN 03.39SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  015        STEP INIT TIME 20:02:17.79   ALLOC START    20:02:17.80   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:02:21.84   PGM START TIME 20:02:18.08   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPRDR    ELAPSED TIME   00:00:04.05   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:03.39   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 390       0150 ----------- 66       0158 --------- 1874       0159 ---------- 224       0158 ---------- 171    *
*   0665 ---------- 400       0151 ---------- 115       0151 ----------- 31                                                        *
************************************************************************************************************************************

//HASPRTAM EXEC ASMHASP,MODULE=HASPRTAM
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPRTAM),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPRTAM),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPRTAM
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000039       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000040       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000041       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA014       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2002
IEF374I STEP /ASM     / STOP  78240.2002 CPU   0MIN 02.28SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  016        STEP INIT TIME 20:02:21.86   ALLOC START    20:02:21.87   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:02:24.48   PGM START TIME 20:02:21.99   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPRTAM   ELAPSED TIME   00:00:02.62   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:02.28   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 395       0150 ----------- 66       0158 ---------- 402       0159 ----------- 51       0158 ----------- 24    *
*   0665 ----------- 44       0151 ---------- 212       0151 ------------ 1                                                        *
************************************************************************************************************************************

//HASPSVC  EXEC ASMHASP,MODULE=HASPSVC
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPSVC),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPSVC),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPSVC
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000042       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000043       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000044       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA015       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2002
IEF374I STEP /ASM     / STOP  78240.2002 CPU   0MIN 01.58SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  017        STEP INIT TIME 20:02:24.51   ALLOC START    20:02:24.52   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:02:26.39   PGM START TIME 20:02:24.64   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPSVC    ELAPSED TIME   00:00:01.88   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:01.58   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 354       0150 ----------- 65       0158 ---------- 476       0159 ----------- 74       0158 ----------- 24    *
*   0665 ----------- 93       0151 ------------ 9       0151 ------------ 3                                                        *
************************************************************************************************************************************

//HASPWTR  EXEC ASMHASP,MODULE=HASPWTR
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPWTR),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPWTR),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
IEF236I ALLOC. FOR P04ASM   ASM      HASPWTR
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000045       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000046       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000047       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA016       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2002
IEF374I STEP /ASM     / STOP  78240.2002 CPU   0MIN 01.85SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  018        STEP INIT TIME 20:02:26.40   ALLOC START    20:02:26.42   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:02:28.59   PGM START TIME 20:02:26.54   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPWTR    ELAPSED TIME   00:00:02.19   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:01.85   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 353       0150 ---------- 103       0158 ---------- 507       0159 ----------- 68       0158 ----------- 24    *
*   0665 ---------- 109       0151 ----------- 32       0151 ------------ 7                                                        *
************************************************************************************************************************************

//HASPXEQ  EXEC ASMHASP,MODULE=HASPXEQ
XXASMHASP PROC ASMBLR=IFOX00,MODULE=HASPBR1                             00020000
XXASM     EXEC PGM=&ASMBLR,REGION=96K,PARM='DECK,NOLOAD'                00040000
IEF653I SUBSTITUTION JCL - PGM=IFOX00,REGION=96K,PARM='DECK,NOLOAD'
XXSYSLIB    DD DSNAME=SYS1.HASPSRC,DISP=SHR,DCB=BLKSIZE=3120            00060000
XX          DD DSNAME=SYS1.MACLIB,DISP=SHR                              00080000
XXSYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(30,10))                           00100000
XXSYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00120000
XXSYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(10,10))                           00140000
XXSYSPRINT  DD SYSOUT=A,SPACE=(1815,(600,100),RLSE),                    00160000
XX             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1815)                   00180000
XXSYSIN     DD DSNAME=SYS1.HASPSRC(&MODULE),DISP=SHR                    00200000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPSRC(HASPXEQ),DISP=SHR
XXSYSGO     DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00220000
XXSYSLIN    DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                00240000
XXSYSPUNCH  DD DSNAME=SYS1.HASPOBJ(&MODULE),DISP=OLD,                   00260000
IEF653I SUBSTITUTION JCL - DSNAME=SYS1.HASPOBJ(HASPXEQ),DISP=OLD,
XX             DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)                      00280000
//
IEF236I ALLOC. FOR P04ASM   ASM      HASPXEQ
IEF237I 151   ALLOCATED TO SYSLIB
IEF237I 150   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 159   ALLOCATED TO SYSUT2
IEF237I 158   ALLOCATED TO SYSUT3
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 151   ALLOCATED TO SYSIN
IEF237I 151   ALLOCATED TO SYSPUNCH
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000048       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000049       DELETED
IEF285I   VOL SER NOS= WORKA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.R0000050       DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200140.RV001.P04ASM.ASPOA017       DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS1.HASPSRC                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /ASM     / START 78240.2002
IEF374I STEP /ASM     / STOP  78240.2002 CPU   0MIN 06.62SEC MAIN  96K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  019        STEP INIT TIME 20:02:28.61   ALLOC START    20:02:28.63   MAIN REGION ------ 96K                          *
*   STEP NAME ASM        STEP END TIME  20:02:36.23   PGM START TIME 20:02:28.75   MAIN STORAGE ----- 96K    CONDITION CODE 0000   *
*   PSTP NAME HASPXEQ    ELAPSED TIME   00:00:07.62   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IFOX00     STEP CPU TIME  00:00:06.62   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ---------- 398       0150 ----------- 75       0158 --------- 3190       0159 ---------- 361       0158 ---------- 341    *
*   0665 ---------- 670       0151 ---------- 247       0151 ----------- 65                                                        *
************************************************************************************************************************************

IEF375I  JOB /P04ASM  / START 78240.2001
IEF376I  JOB /P04ASM  / STOP  78240.2002 CPU   0MIN 45.98SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  P04ASM     JOB READ TIME 20:01:40.15   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:45.98   *
*   JOB CLASS B          JOB INIT TIME 20:01:41.51   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:54.73   *
*   JOB ID    JOB00022   JOB END TIME  20:02:36.24   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 2   *
************************************************************************************************************************************


 PPPPPPPPPPPP       0000000              44        AAAAAAAAA      SSSSSSSSSSS    MM         MM
 PPPPPPPPPPPPP     000000000            444       AAAAAAAAAAA    SSSSSSSSSSSSS   MMM       MMM
 PP         PP    00       00          4444      AA         AA   SS         SS   MMMM     MMMM
 PP         PP   00         00        44 44      AA         AA   SS              MM MM   MM MM
 PP         PP   00         00       44  44      AA         AA   SS              MM  MM MM  MM
 PP         PP   00         00      44   44      AA         AA   SSSSSSSSSSSS    MM   MMM   MM
 PPPPPPPPPPPPP   00         00     44    44      AAAAAAAAAAAAA    SSSSSSSSSSSS   MM    M    MM
 PPPPPPPPPPPP    00         00    444444444444   AAAAAAAAAAAAA              SS   MM         MM
 PP              00         00   4444444444444   AA         AA              SS   MM         MM
 PP               00       00            44      AA         AA   SS         SS   MM         MM
 PP                000000000             44      AA         AA   SSSSSSSSSSSSS   MM         MM
 PP                 0000000              44      AA         AA    SSSSSSSSSSS    MM         MM









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000       22222222222     22222222222
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222   2222222222222
            JJ   OO         OO   BB         BB                    00       00     00       00    22         22   22         22
            JJ   OO         OO   BB         BB                   00         00   00         00              22              22
            JJ   OO         OO   BB         BB                   00         00   00         00              22              22
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00             22              22
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00           22              22
            JJ   OO         OO   BB         BB                   00         00   00         00         22              22
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00       22              22
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00      22              22
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222   2222222222222
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000      2222222222222   2222222222222









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    PPPPPPPPPPPP    RRRRRRRRRRRR    IIIIIIIIIIII    NN         NN   TTTTTTTTTTTT
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRRR   IIIIIIIIIIII    NNN        NN   TTTTTTTTTTTT
 SS         SS     YY    YY      SS         SS   PP         PP   RR         RR        II         NNNN       NN        TT
 SS                 YY  YY       SS              PP         PP   RR         RR        II         NN NN      NN        TT
 SS                  YYYY        SS              PP         PP   RR         RR        II         NN  NN     NN        TT
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    PP         PP   RRRRRRRRRRRRR        II         NN   NN    NN        TT
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRR         II         NN    NN   NN        TT
            SS        YY                    SS   PPPPPPPPPPPP    RR      RR           II         NN     NN  NN        TT
            SS        YY                    SS   PP              RR       RR          II         NN      NN NN        TT
 SS         SS        YY         SS         SS   PP              RR        RR         II         NN       NNNN        TT
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   PP              RR         RR   IIIIIIIIIIII    NN        NNN        TT
  SSSSSSSSSSS         YY          SSSSSSSSSSS    PP              RR         RR   IIIIIIIIIIII    NN         NN        TT










                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001


IEB161I  COMPRESS TO BE DONE USING INDD NAMED SYSUT1
IEB152I  HASPGEN  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  EXRMTGEN COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  RMTGEN   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  GENRMT   COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  LETRRIP  COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB152I  SYS3CNVT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED
IEB153I  ALL MEMBERS COMPRESSED - ALL WERE ORIGINALLY COMPRESSED
IEB144I  THERE ARE 0000007 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2
IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE

ACCT                                           EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.01 08/28/78

HASPACCT  SD  0001 000000 000168
HASP      ER  0002

IEFUJP    ER  0003
$HASPECB  ER  0004
IEFUJP    SD  0005 000168 000004
ACCT     HASP GLOBAL DEFINITIONS                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                      2          COPY  $GLOBAL                                                  A0004000

                                      3 *                                                                       GL002000
                                      4 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                      5 *                                                                       GL006000



                                      7          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000

                                      8          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000
                                      9          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                     10          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000
                                     11          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000






                                     13 *                                                                       GL032000
                                     14 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000
                                     15 *                                                                       GL036000




                                     17          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000
                                     18          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                     19          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000
                                     20          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                     21          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000

                                     22          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000
                                     23          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                     24          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000
                                     25          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000
                                     26          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000
                                     27          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000

                                     28          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                     29          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000
                                     30          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000
                                     31          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000

                                     32          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000
                                     33          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                     34          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200
                                     35          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300
                                     36          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000

                                     37          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000
                                     38          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                     39          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000
                                     40          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                     41          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                     42          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000
                                     43          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000

                                     44          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                     45          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000
                                     46          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000

                                     47          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000
ACCT     HASP GLOBAL DEFINITIONS                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                     49 *                                                                       GL116000
                                     50 *                             O/S INTERFACE PARAMETERS                  GL118000

                                     51 *                                                                       GL120000



                                     53          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000
                                     54          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                     55          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000
                                     56          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000
                                     57          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000
                                     58          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000

                                     59          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                     60          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000

                                     61          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000
                                     62          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000
                                     63          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                     64          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200
                                     65          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300

                                     66          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400





                                     68 *                                                                       GL150000
                                     69 *                             HASP OPTION PARAMETERS                    GL152000
                                     70 *                                                                       GL154000



                                     72          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000
                                     73          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000

                                     74          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000

                                     75          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000
                                     76          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000
                                     77          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000
                                     78          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000
                                     79          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000

                                     80          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000
                                     81          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000
                                     82          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100
                                     83          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500
                                     84          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                     85          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                     86          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000
                                     87          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                     88          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000
                                     89          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000

                                     90          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000

                                     91          GBLB  &DEBUG              DEBUG MODE                           GL186000
                                     92          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000
                                     93          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000
ACCT     HASP GLOBAL DEFINITIONS                                                                               PAGE    4



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                     95 *                                                                       GL226000
                                     96 *                             REMOTE JOB ENTRY PARAMETERS               GL228000
                                     97 *                                                                       GL230000



                                     99          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                    100          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000
                                    101          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000
                                    102          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    103          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000
                                    104          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000

                                    105          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000
                                    106          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000
                                    107          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000






                                    109 *                                                                       GL260000
                                    110 *                             INTERNAL GENERATION PARAMETERS            GL262000
                                    111 *                                                                       GL264000



                                    113          GBLC  &VERSION            HASP VERSION                         GL270000
                                    114          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000
                                    115          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                    116          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000
                                    117          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500
                                    118          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000
                                    119          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500

                                    120          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                    121          GBLA  &LOW                OVERLAY PRIORITY                     GL280000
                                    122          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000

                                    123          GBLA  &HIGH                 PARAMETER VALUES                   GL284000
                                    124          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000
                                    125          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000
                                    126          LCLC  &DOC                DOCUMENTATION OPTION                 A0006000
ACCT     HASP ACCOUNTING ROUTINE                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                              129 HASPACCT START 0                   HASP ACCOUNTING ROUTINE              A0012000





                                    131          COPY  $HASPGEN            COPY HASPGEN PARAMETERS              A0016000

ACCT     HASPGEN PARAMETER VALUES                                                                              PAGE    6



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    133 *                                                                       HA004000

                                    134 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000
                                    135 *                                                                       HA008000



                                    137 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000
                                    138 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                    139 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000
                                    140 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000
                                    141 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000




                                    143 *                                                                       HA028000
                                    144 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000

                                    145 *                                                                       HA032000




                                    147 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000

                                    148 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000
                                    149 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000
                                    150 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000
                                    151 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000
                                    152 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                    153 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000
                                    154 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000
                                    155 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000
                                    156 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000
                                    157 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    158 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000
                                    159 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000

                                    160 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000
                                    161 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000
                                    162 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000

                                    163 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000
                                    164 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                    165 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200
                                    166 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300
                                    167 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                    168 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000
                                    169 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                    170 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000
                                    171 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000
                                    172 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                    173 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000
                                    174 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000

                            0003C   175 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000
ACCT     HASPGEN PARAMETER VALUES                                                                              PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                    178 *                                                                       HA100000
                                    179 *                             O/S INTERFACE PARAMETERS                  HA102000
                                    180 *                                                                       HA104000



                                    182 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                    183 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000
                                    184 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000
                                    185 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000
                                    186 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000
                                    187 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000

                                    188 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                    189 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                    190 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000
                                    191 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100

                                    192 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200
                                    193 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300
                                    194 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400



                                    196 *                                                                  RFIT HA125600
                                    197 *                             HASP SVC NUMBER                      RFIT HA125700

                                    198 *                                                                  RFIT HA125800
                                    199          COPY  $INITSVC                                            RFIT HA125900
                                    200 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT





                                    202 *                                                                       HA130000
                                    203 *                             HASP OPTION PARAMETERS                    HA132000
                                    204 *                                                                       HA134000




                                    206 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000

                                    207 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000
                                    208 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000
                                    209 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000
                                    210 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                    211 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000
                                    212 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    213 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000
                                    214 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000

                                    215 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000
                                    216 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100
                                    217 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500
                                    218 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
ACCT     HASPGEN PARAMETER VALUES                                                                              PAGE    8



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    219 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500
                                    220 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000

                                    221 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000
                                    222 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                    223 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000
                                    224 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                    225 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000
                                    226 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                    227 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000

ACCT     HASPGEN PARAMETER VALUES                                                                              PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                    230 *                                                                       HA174000

                                    231 *                             REMOTE JOB ENTRY PARAMETERS               HA176000
                                    232 *                                                                       HA178000



                                    234 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000

                                    235 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000
                                    236 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000
                                    237 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000
                                    238 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                    239 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000
                                    240 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000

                                    241 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000
                                    242 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000





                                    244 *                                                                       HA202000

                                    245 *                             INTERNAL GENERATION PARAMETERS            HA204000
                                    246 *                                                                       HA206000



                                    248 &VERSION SETC  '4.0'               HASP VERSION                         HA210000
                                    249 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000

                                    250 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000
                                    251 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                    252 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000
                                    253 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                    254 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000

                                    255 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500
                                    256 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                    257 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000
                                    258 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000
                                    259 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000

                                    260 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000
                                    261 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
ACCT     HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                    264 *                                                                       HA234000
                                    265 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000
                                    266 *                                                                       HA238000




                            00000   268 R0       EQU   0                                                        HA242000
                            00001   269 R1       EQU   1                                                        HA244000
                            00002   270 R2       EQU   2                                                        HA246000
                            00003   271 R3       EQU   3                                                        HA248000
                            00004   272 R4       EQU   4                                                        HA250000

                            00005   273 R5       EQU   5                                                        HA252000
                            00006   274 R6       EQU   6                                                        HA254000
                            00007   275 R7       EQU   7                                                        HA256000
                            00008   276 R8       EQU   8                                                        HA258000
                            00009   277 R9       EQU   9                                                        HA260000
                            0000A   278 R10      EQU   10                                                       HA262000
                            0000B   279 R11      EQU   11                                                       HA264000

                            0000C   280 R12      EQU   12                                                       HA266000
                            0000D   281 R13      EQU   13                                                       HA268000
                            0000E   282 R14      EQU   14                                                       HA270000

                            0000F   283 R15      EQU   15                                                       HA272000





                                    285 *                                                                       HA276000
                                    286 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000

                                    287 *                                                                       HA280000



                            00002   289 WA       EQU   R2                  WORK REGISTER A                      HA284000
                            00003   290 WB       EQU   R3                  WORK REGISTER B                      HA286000
                            00004   291 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   292 WD       EQU   R5                  WORK REGISTER D                      HA290000
                            00006   293 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007   294 WF       EQU   R7                  WORK REGISTER F                      HA294000

                            00008   295 WG       EQU   R8                  WORK REGISTER G                      HA296000
                            00008   296 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000

                            0000A   297 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000
                            0000B   298 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000
                            0000C   299 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000
                            0000D   300 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000
                            0000E   301 LINK     EQU   R14                 LINK REGISTER                        HA308000

ACCT     HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78











                            00000   304 NOP      EQU   0                   NO-OP                                HA314000
                            00001   305 O        EQU   1                   ONES OR OVERFLOW                     HA316000
                            00002   306 H        EQU   2                   HIGH                                 HA318000

                            00002   307 P        EQU   2                   PLUS                                 HA320000

                            00004   308 L        EQU   4                   LOW                                  HA322000
                            00004   309 M        EQU   4                   MINUS OR MIXED                       HA324000
                            00007   310 NE       EQU   7                   NOT EQUAL                            HA326000
                            00007   311 NZ       EQU   7                   NOT ZERO                             HA328000
                            00008   312 E        EQU   8                   EQUAL                                HA330000

                            00008   313 Z        EQU   8                   ZERO                                 HA332000
                            0000B   314 NL       EQU   11                  NOT LOW                              HA334000
                            0000B   315 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000
                            0000D   316 NH       EQU   13                  NOT HIGH                             HA338000
                            0000D   317 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   318 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
ACCT     HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    320 *                                                                       HA346000
                                    321 *                             BIT DEFINITIONS                           HA348000

                                    322 *                                                                       HA350000




                            00080   324 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000
                            00040   325 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000
                            00020   326 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000

                            00010   327 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000
                            00008   328 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000
                            00004   329 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000
                            00002   330 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000
                            00002   331 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001   332 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000
                                    333 *                                                                       HA370000
                            00080   334 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000
                            00040   335 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020   336 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   337 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000

                            00008   338 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000
                            00004   339 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000
                            00002   340 $EWF15   EQU   X'02'               SPARE                                HA384000
                            00001   341 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000






                                    343 *                                                                       HA390000
                                    344 *                             BYTE DEFINITIONS                          HA392000
                                    345 *                                                                       HA394000



                            00000   347 $EWBPOST EQU   0                   BYTE 0                               HA398000
                            00000   348 $EWBBUF  EQU   0                   BYTE 0                               HA400000
                            00000   349 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   350 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000   351 $EWBUNIT EQU   0                   BYTE 0                               HA406000
                            00000   352 $EWBCKPT EQU   0                   BYTE 0                               HA408000

                            00000   353 $EWBCMB  EQU   0                   BYTE 0                               HA410000
                            00000   354 $EWBSMF  EQU   0                   BYTE 0                               HA411000
                            00000   355 $EWBJOT  EQU   0                   BYTE 0                               HA412000

                                    356 *                                                                       HA414000
                            00001   357 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001   358 $EWBIO   EQU   1                   BYTE 1                               HA418000
                            00001   359 $EWBWORK EQU   1                   BYTE 1                               HA420000
                            00001   360 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001   361 $EWBDDB  EQU   1                   BYTE 1                               HA424000
                            00001   362 $EWBOLAY EQU   1                   BYTE 1                               HA426000
                            00001   363 $EWB15   EQU   1                   BYTE 1                               HA428000
                            00001   364 $EWBOROL EQU   1                   BYTE 1                               HA430000
ACCT     HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78








                                    367 *                                                                       HA436000
                                    368 *                             LOGICAL CONSOLE DEFINITIONS               HA438000

                                    369 *                                                                       HA440000



                            00001   371 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002   372 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000
                            00004   373 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008   374 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000
                            00010   375 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000
                            00020   376 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000
                            00040   377 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   378 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   379 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000
                            00000   380 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000







                                    382 *                                                                       HA466000

                                    383 *                             MESSAGE CLASS DEFINITIONS                 HA468000
                                    384 *                                                                       HA470000



                            00010   386 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000
                            00030   387 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050   388 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000
                            00070   389 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000
                            00080   390 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000




                                    392 *                                                                       HA484000
                                    393 *                             MESSAGE PRIORITY DEFINITIONS              HA486000

                                    394 *                                                                       HA488000



                            00001   396 $LO      EQU   1                   LOW PRIORITY                         HA492000

                            00004   397 $ST      EQU   4                   STANDARD PRIORITY                    HA494000
                            00007   398 $HI      EQU   7                   HIGH PRIORITY                        HA496000
ACCT     HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    401 *                                                                       HA502000
                                    402 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000
                                    403 *                                                                       HA506000



                            00080   405 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000
                            00000   406 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000

                            00040   407 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000
                            00000   408 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000
                            00020   409 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000

                            00000   410 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000
                            00010   411 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000
                            00000   412 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000
                            00008   413 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000
                            00000   414 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000
                            00004   415 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000   416 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000





                                    418 *                                                                       HA536000
                                    419 *                             HASP STATUS BIT DEFINITIONS               HA538000
                                    420 *                                                                       HA540000




                            00080   422 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040   423 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000
                            00020   424 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000

                            00010   425 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000
                            00008   426 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000
                            00004   427 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000
                            00002   428 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000
ACCT     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    431 *                                                                       HA560000
                                    432 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000
                                    433 *                                                                       HA564000



                                    435 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                    436 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000

                                    437 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000
                                    438 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000

                                    439 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000
                                    440 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000
                                    441 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000
                                    442 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                    443 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000





                                    445 *                                                                       HA588000

                                    446 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000
                                    447 *                                                                       HA592000



                                    449 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                    450 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000

                                    451 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000
                                    452 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                    453 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000

                                    454 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000
                                    455 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                    456 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000
                                    457 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
ACCT     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    460 *                                                                       HA618000
                                    461 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000
                                    462 *                                                                       HA622000




                                    464 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000
                                    465 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000
                                    466 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000
                                    467 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000

                                    468 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000
                                    469 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000
                                    470 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000
                                    471 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                    472 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000






                                    474 *                                                                       HA646000
                                    475 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000
                                    476 *                                                                       HA650000




                                    478 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000
                                    479 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                    480 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000
                                    481 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000
                                    482 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000

                                    483 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000
                                    484 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                    485 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000
                                    486 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
                                    487          AIF   (&NUMSMFB LT 2).NOACCT                                   A0018000

ACCT     HASP ACCOUNTING ROUTINE                                                                               PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78












                                    491 *                                                                       A0028000
                                    492 *                             DOCUMENTATION OPTION                      A0030000
                                    493 *                                                                       A0032000



                                    495 &DOC     SETC  'NO'                TURN OFF DOCUMENTATION               A0036000






                                    497 *                                                                       A0040000
                                    498 *                             GENERATE HASP CONTROL BLOCKS              A0042000

                                    499 *                                                                       A0044000



                                    501         $HASPCB HCT,BUFFER,JCT,SMF,DOC=&DOC                             A0048000
ACCT     HASP COMMUNICATION TABLE DSECT                                                                        PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000000                              503+HCTDSECT DSECT                     HASP COMMUNICATION TABLE DSECT       HC437000


                            00000   505+         USING HCTDSECT,BASE1      ESTABLISH HCT ADDRESSABILITY         HC439000


000000 40E540F44BF0F0F9             507+$VERSION DC    CL8' V 4.009762'         HASP VERSION                    HC441000


                                    509+*                             VS2 - HASP VECTOR TABLE                   HC451050


000008                              511+$HVT     DS    0F                                                       HC451150
000008 00000000                     512+$HVTEXCP DC    V($EXCPSVC)         IOS PSEUDO DEVICE EXIT ADDRESS       HC451200

00000C 00000000                     513+         DC    V(XJCLSCAN)         INTERPRETTER EXIT ADDRESS            HC451250
000010 00000000                     514+         DC    V($MGCRSVC)         MGCR EXIT ADDRESS                    HC451300
000014 00000000                     515+         DC    V($WTOSVC)          WTO(R)/WTL EXIT 1 ADDRESS            HC451350
000018 00000000                     516+         DC    V($WTOSVC2)         WTO(R) EXIT 2 ADDRESS                HC451400
00001C 0000002C                     517+         DC    A($EXITNOP)         JOB INITIATION EXIT ADDRESS          HC451450

000020 0000002C                     518+         DC    A($EXITNOP)         STEP INITIATION EXIT ADDRESS         HC451500
000024 00000000                     519+         DC    V(XTERMSMF)         TERMINATION EXIT ADDRESS             HC451550
000028 00000000                     520+         DC    V($TSOCOMM)         TSO STATUS/CANCEL EXIT ADDRESS       HC451600

00002C 1BFF                         522+$EXITNOP SR    R15,R15             R15 = RC = 0                         HC451750
00002E 07FE                         523+         BR    R14                 RETURN                               HC451800


                                    525+*                             ENTRY TO HASP DISPATCHER                  HC452000


000030 47F0 B030      00030         527+$WAIT    B     *                                                        HN016000



                                    529+*                             ENTRIES TO HASP BUFFER SERVICES           HC456000

000034 47F0 B034      00034         531+$GETBUF  B     *                                                        HN016000
000038 47F0 B038      00038         532+$GETPBUF B     *                                                        HN016000

00003C 47F0 B03C      0003C         533+$FREEBUF B     *                                                        HN016000


                                    535+*                             ENTRIES TO HASP UNIT SERVICES             HC462000

000040 47F0 B040      00040         537+$GETUNIT B     *                                                        HN016000
000044 47F0 B044      00044         538+$FREUNIT B     *                                                        HN016000


                                    540+*                             ENTRIES TO HASP JOB QUEUE SERVICES        HC467000


000048 47F0 B048      00048         542+$QADD    B     *                                                        HN016000

00004C 47F0 B04C      0004C         543+$QGET    B     *                                                        HN016000
000050 47F0 B050      00050         544+$QPUT    B     *                                                        HN016000
000054 47F0 B054      00054         545+$QREM    B     *                                                        HN016000
000058 47F0 B058      00058         546+$QSIZ    B     *                                                        HN016000
00005C 47F0 B05C      0005C         547+$QLOC    B     *                                                        HN016000

000060 47F0 B060      00060         548+$QJITLOC B     *                                                        HN016000
ACCT     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    550+*                             ENTRIES TO DIRECT ACCESS SPACE SERVICES   HC477000

000064 47F0 B064      00064         552+$TRACK   B     *                                                        HN016000
000068 47F0 B068      00068         553+$PURGER  B     *                                                        HN016000


                                    555+*                             ENTRIES TO HASP INPUT/OUTPUT SERVICES     HC482000


00006C 47F0 B06C      0006C         557+$EXCP    B     *                                                        HN016000

000070 47F0 B070      00070         558+$EXTPOPE B     *                                                        HN016000
000074 47F0 B074      00074         559+$EXTPGET B     *                                                        HN016000
000078 47F0 B078      00078         560+$EXTPPUT B     *                                                        HN016000
00007C 47F0 B07C      0007C         561+$EXTPCLO B     *                                                        HN016000

000080 47F0 B080      00080         562+$RESTORE B     *                                                        HN016000


                                    564+*                             ENTRIES TO HASP OVERLAY SERVICES          HC491000

000084 47F0 B084      00084         566+$ODEL    B     *                                                        HN016000
000088 47F0 B088      00088         567+$ORET    B     *                                                        HN016000
00008C 47F0 B08C      0008C         568+$OLINK   B     *                                                        HN016000
000090 47F0 B090      00090         569+$OXCTL   B     *                                                        HN016000
000094 47F0 B094      00094         570+$OLOAD   B     *                                                        HN016000


                                    572+*                             ENTRIES TO HASP CONSOLE SERVICES          HC499000


000098 47F0 B098      00098         574+$WTO     B     *                                                        HN016000
00009C 47F0 B09C      0009C         575+$FREEMSG B     *                                                        HN016000
0000A0 47F0 B0A0      000A0         576+$DOM     B     *                                                        HN016000



                                    578+*                             ENTRIES TO HASP SMF BUFFER SERVICES       HC503200

0000A4 47F0 B0A4      000A4         580+$QUESMFB B     *                                                        HN016000
0000A8 47F0 B0A8      000A8         581+$GETSMFB B     *                                                        HN016000


                                    583+*                             ENTRIES TO HASP INTERVAL TIMER SERVICES   HC504000

0000AC 47F0 B0AC      000AC         585+$STIMER  B     *                                                        HN016000
0000B0 47F0 B0B0      000B0         586+$TTIMER  B     *                                                        HN016000


                                    588+*                             ENTRIES TO HASP ERROR SERVICES            HC509000


0000B4 47F0 B0B4      000B4         590+$IOERROR B     *                                                        HN016000
0000B8 47F0 B0B8      000B8         591+$ERROR   B     *                                                        HN016000

0000BC 47F0 B0BC      000BC         592+$DISTERR B     *                                                        HN016000
ACCT     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0000C0 00                           594+         DC    AL1(0)              RESERVED                             HC515000
0000C1 00                           595+$OPTSTAT DC    AL1(*-*)            HASP INITIALIZATION OPTIONS          HC516000
0000C2 00                           596+$STATUS  DC    AL1(*-*)            HASP SYSTEM STATUS                   HC517000
0000C3 00                           597+$CURPCE  DC    AL1(*-*)            CURRENT PCE ID                       HC518000
0000C4 00                           598+$HASPECF DC    AL1(*-*)            MASTER EVENT CONTROL FIELD           HC519000
0000C5 00                           599+MHASPECF DC    AL1(*-*)            LINE MANAGER EVENT CONTROL FIELD     HC520000
0000C6 00                           600+$XEQACT  DC    AL1(*-*)            COUNT OF JOBS IN O/S EXECUTION       HC521000
0000C7 00                           601+$ACTIVE  DC    AL1(*-*)            COUNT OF ACTIVE FUNCTIONS            HC522000
0000C8 FF                           602+$ENBALL  DC    X'FF'               ENABLE ALL MASK                      HC523000

0000C9 00                           603+$DISALL  DC    X'00'               DISABLE ALL MASK                     HC524000

0000CA FE                           604+$DISINT  DC    X'FE'               DISABLE INTERVAL TIMER MASK          HC525000
0000CB 00                           605+         DC    X'00'               RESERVED                             HC526000

0000CC 0000                         606+$EXCPCT  DC    Y(*-*)              ACTIVE HASP I/O COUNT                HC531000
0000CE 0040                         607+$COMMCT  DC    Y(64)                     ACTIVE HASP COMMAND COUNT      HC532000
0000D0 0000                         608+$CKPTRAK DC    Y(*-*)              HASP CHECKPOINT TRACK ADDRESS        HC533000
0000D2 0000                         609+         DC    Y(0)                RESERVED                             HC534000
0000D4 00000000                     610+$HASPTCB DC    A(*-*)              ADDRESS OF HASP TASK CONTROL BLOCK   HC535000
0000D8 00000000                     611+$HASPECB DC    F'0'                COMMON HASP ECB                      HC535200
0000DC 00000000                     612+$ASYNCQ  DC    A(0)                ASYNC I/O COMPLETION QUEUE           HC535400
0000E0 00000000                     613+$RJECHEQ DC    A(0)                RJE I/O COMPLETION QUEUE             HC535600
                                    614+*                                  ADDRESS OF FIRST HASP PCE            HC536000
0000E4 00000000                     615+$PCEORG  DC    A(*-*)                                                   HN010000
0000E8 00000000                     616+$BUFPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE HASP BUFFER HC538000
0000EC 00000000                     617+$TPBPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE RJE BUFFER  HC539000

0000F0 00000000                     618+$DCTPOOL DC    A(*-*)              ADDRESS OF FIRST HASP DCT            HC540000

0000F4 00000000                     619+$JITABLE DC    A(*-*)              ADDRESS OF HASP JOB INFO TABLE       HC541000
0000F8 00000000                     620+$JOTABLE DC    V($JOT)             ADDRESS OF JOB OUTPUT TABLE          HC541500

0000FC 00000000                     621+$CYLMAP  DC    A(*-*)              ADDRESS OF FIRST CYLINDER MODULE MAP HC542000
000100 00000000                     622+$TEDADDR DC    A(*-*)              ADDRESS OF FIRST EXTENT DATA TABLE   HC543000
000104 00000000                     623+$DCBLIST DC    A(*-*)              ADDRESS OF DIRECT ACCESS DCB         HC544000
000108 00000000                     624+$FREEQUE DC    A(*-*)              ADDR OF 1ST FREE CONSOLE MSG BUFFER  HC545000
00010C 00000000                     625+$BUSYQUE DC    A(*-*)              CONSOLE MSG BUFFERS QUEUED FOR I/O   HC546000
000110 00000000                     626+$LOGQUE  DC    A(*-*)              CMB'S QUEUED FOR LOG PROCESSOR       HC547000
000114 00000000                     627+$COMMQUE DC    A(*-*)              COMMANDS QUEUED FOR COMMAND PROC     HC548000
000118 00000000                     628+$DOMQUE  DC    A(*-*)              CMB'S AWAITING ACTION                HC548200
00011C 00000000                     629+$SMFFREE DC    A(*-*)              ADDR OF 1ST FREE SMF BUFFER          HC548400
000120 00000000                     630+$SMFBUSY DC    A(*-*)              SMF BUFFERS QUEUED FOR I/O           HC548600
000124 00000000                     631+$PRCHKPT DC    A(*-*)              ADDRESS OF PRINT CHECKPOINT TABLE    HC549000
000128 00000002                     632+$TIMEARG DC    F'2'                FAKE SVRB+36 FOR IGC011              HC549500

ACCT     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    634+*                             NUCLEUS ADDRESS TABLE                     HC551000


00012C                              636+$NUCTABL DS    0F                  START OF NUCLEUS ADDRESS TABLE       HC553000
00012C 00000000                     637+$STATENT DC    A(*-*)              ENTRY TO STATUS ROUTINE              HC554000
000130 00000000                     638+$TIMENT  DC    A(*-*)              ENTRY TO TIME ROUTINE                HC555000
000134 00000000                     639+$XSMFENT DC    A(*-*)              ENTRY TO SMF EXCP COUNTING ROUTINE   HC559000
000138 00000000                     640+$SVCRSET DC    A(*-*)              ENTRY TO HASP SVC RESET ROUTINE      HC560000
                            00010   641+$NUCLEN  EQU   *-$NUCTABL          LENGTH OF NUCLEUS ADDRESS TABLE      HC561000


                                    643+*********************************************************************** HC576000
                                    644+*  ALL VARIABLES LOCATED IN THIS AREA WILL BE REGULARLY CHECKPOINTED  * HC577000
                                    645+*  BY HASP AND WILL BE RESTORED ON ANY WARM START.....                * HC578000
                                    646+*                                                                     * HC579000

                                    647+*                                                                     * HC580000
                                    648+*                                                                     * HC581000
00013C                              649+$SAVEBEG DS    0F                  BEGINNING OF SAVE AREA             * HC582000

00013C 00000000                     650+$JOBQPTR DC    A(*-*)              ADDRESS OF HASP JOB QUEUE          * HC583000
000140 00000000                     651+$JQFREE  DC    A(*-*)              BEGINNING OF FREE QUEUE CHAIN      * HC584000
000144 00000000                     652+$JQENT   DC    A(*-*)              BEGINNING OF ACTIVE QUEUE CHAIN    * HC585000
000148 00000000                     653+$DATAKEY DC    F'0'                MASTER PERIPHERAL DATA SET KEY     * HC588000
00014C 0000                         654+$JOBNO   DC    H'0'                HASP JOB NUMBER                    * HC589000
00014E 0000                         655+$MSGRPNO DC    H'0'                LAST CONSOLE MESSAGE TRACK GROUP   * HC590000
000150 0000000000000000             656+$DACKPT  DC    2XL6'0'             DA CHECKPOINT FOR WARM START       * HC591000
                            0015C   657+$SAVEEND EQU   *                   END OF SAVE AREA                   * HC592000
                            00020   658+$SAVELEN EQU   $SAVEEND-$SAVEBEG   LENGTH OF SAVE AREA                * HC593000
                                    659+*                                                                     * HC594000
                                    660+*                                                                     * HC595000
                                    661+*                                                                     * HC596000

                                    662+*********************************************************************** HC597000
                                    663+*                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000

00015C                              665+$NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000

00015C 00000000                     666+$ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000
000160 00000000                     667+$SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000
000164 00000000                     668+$SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000
                            0000C   669+$NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000


                                    671+*                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000


000168 00000000                     673+$IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000
00016C 00000000                     674+$WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000
000170 00000000                     675+$LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000
000174 00000000                     676+$XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000
000178 00000000                     677+$SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000
00017C 00000000                     678+$SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000
000180 00000000                     679+$SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000

000184 00000000                     680+$SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000
000188 00000000                     681+$SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000

00018C                              682+$ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000



ACCT     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                              685+HASPACCT CSECT ,                   END OF HCT DSECT                RFIT HC998000
ACCT     HASP BUFFER DSECT                                                                                     PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                              687+BUFDSECT DSECT                     BUFFER DSECT                         BU444000

000000                              688+IOBFLAG1 DS    C                   I/O FLAGS                            BU446000
000001                              689+IOBFLAG2 DS    C                   I/O FLAGS                            BU448000
000002                              690+IOBSENS0 DS    C                   FIRST SENSE BYTE                     BU450000
000003                              691+IOBSENS1 DS    C                   SECOND SENSE BYTE                    BU452000
000004                              692+IOBECBCC DS    0C                  I/O COMPLETION CODE                  BU454000

000004                              693+IOBECBPT DS    F                   ADDRESS OF HASP EVENT CONTROL BLOCK  BU456000
000008                              694+IOBFLAG3 DS    C                   I/O FLAGS                            BU458000
000009                              695+IOBCSW   DS    CL7                 CHANNEL STATUS WORD                  BU460000

000010                              696+IOBSIOCC DS    0C                  SIO CONDITION CODE                   BU462000
000010                              697+IOBSTART DS    F                   ADDRESS OF CHANNEL PROGRAM           BU464000
000014                              698+IOBDCBPT DS    F                   ADDRESS OF DATA CONTROL BLOCK        BU466000
000018                              699+IOBREPM  DS    0C                  REPOSITION MODIFIER                  BU468000
000018                              700+IOBRESTR DS    F                   RESTART ADDRESS OF CHANNEL PROGRAM   BU470000
00001C                              701+TPBMXREC DS    0C                  MAXIMUM RJE OUTPUT RECORD COUNT      BU472000
00001C                              702+IOBINCAM DS    H                   BLOCK COUNT INCREMENT                BU474000

00001E                              703+IOBERRCT DS    H                   ERROR COUNT                          BU476000
000020                              704+TPBLCCC  DS    0C                  LAST REMOTE OUTPUT COMMAND OP.       BU478000
000020                              705+TPBLCCAD DS    0F                  ADDR OF LAST REMOTE CARRIAGE CONTROL BU480000
000020                              706+IOBXTENT DS    C                   DEB EXTENT                           BU482000
000021                              707+IOBSEEK  DS    0CL7,3C             DIRECT ACCESS SEEK ADDRESS           BU484000

000024                              708+TPBRECNT DS    0C                  CURRENT REMOTE OUTPUT RECORD COUNT   BU486000
000024                              709+TPBFDATA DS    F                   REMOTE DATA POINTER                  BU488000
000028                              710+BUFECBCC DS    0C                  I/O COMPLETION CODE                  BU490000
000028                              711+BUFCHAIN DS    F                   BUFFER CHAIN FIELD                   BU492000

00002C                              712+BUFTYPE  DS    0C                  BUFFER TYPE                          BU494000
00002C                              713+BUFDCT   DS    F                   ADDRESS OF DEVICE CONTROL TABLE      BU496000
000030                              714+BUFEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     BU498000
000034                              715+OACECHN  DS    0F                  OVERLAY AREA CHAIN WORD              BU500000
000034                              716+BUFDDB   DS    0F                  DDB ADDRESS                          BU501000
000034                              717+LCBMCB   DS    C                   REMOTE MODE BYTE                     BU502000

000035                              718+LCBACK   DS    C                   REMOTE NEXT ACKNOWLEDGEMENT          BU504000
000036                              719+LCBRCB   DS    H                   REMOTE RESPONSE CONTROL BLOCK        BU506000
000038                              720+IOBCCW1  DS    D                   CHANNEL COMMAND WORD 1               BU508000
000040                              721+IOBCCW2  DS    D                   CHANNEL COMMAND WORD 2               BU510000
000048                              722+IOBCCW3  DS    0D,5C               CHANNEL COMMAND WORD 3               BU511000

00004D                              723+OACEPRIO DS    C                   PRIO OF OLAY ROUTINE IN THIS AREA    BU512000
00004E                              724+OACEOCON DS    H                   OVERLAY CALL CONSTANT                BU514000
000050                              725+IOBCCW4  DS    D                   CHANNEL COMMAND WORD 4               BU516000
000058                              726+BUFSTART DS    0D                  START OF BUFFER WORK SPACE           BU518000
000058                              727+OACENAME DS    0F                  NAME OF OVERLAY ROUTINE              BU520000

000058                              728+HDBNXTRK DS    F                   HASP DATA BLOCK CHAIN TRACK          BU522000
00005C                              729+OACEASMO DS    0F                  ASSEMBLY ORIGIN OF OVERLAY ROUTINE   BU524000
00005C                              730+HDBDSKEY DS    F                   HASP DATA BLOCK DATA SET KEY         BU526000
000060                              731+OACEPROG DS    0F                  ENTRY POINT OF OVERLAY ROUTINE       BU528000
000060                              732+HDBSTART DS    F                   HASP DATA BLOCK START                BU529000

000064                      00058   733+         ORG   BUFSTART                                                 BU530000
000058                              734+IOBCCW5  DS    D                   CHANNEL COMMAND WORD 5               BU534000
000060                              735+IOBCCW6  DS    D                   CHANNEL COMMAND WORD 6               BU536000
000068                              736+IOBCCW7  DS    D                   CHANNEL COMMAND WORD 7               BU538000
000070                              737+IOBCCW8  DS    D                   CHANNEL COMMAND WORD 8               BU540000

000078                              738+TPBUFST  DS    0F                  START OF REMOTE BUFFER WORK SPACE    BU542000
000078                      00558   739+         ORG   BUFSTART+1280           SPACE OVER OVERLAY AREA          BU544000
000558                              740+OACEPCE  DS    F                   CHAIN OF PCE'S USING OVERLAY AREA    BU546000
000000                              741+HASPACCT CSECT                     END OF BUFFER DSECT                  BU548000
ACCT     HASP BUFFER STATUS BIT DEFINITIONS                                                                    PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    744+*                             BUFFER TYPE BIT DEFINITIONS               BU554000




                            00080   746+TPBUF    EQU   X'80'               REMOTE BUFFER TYPE                   BU558000
                            00040   747+OLAYBUF  EQU   X'40'               OVERLAY AREA TYPE                    BU560000
                            00000   748+HASPBUF  EQU   X'00'               HASP BUFFER TYPE                     BU562000
ACCT     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000000                              750+JCTDSECT DSECT                     JOB CONTROL TABLE DSECT              JC650000
                            00000   751+         USING JCTDSECT,JCT        ESTABLISH JCT ADDRESSABILITY         JC652000
000000                              752+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      JC654000
000058                              753+JCTJQE   DS    F                   OFFSET OF HASP JOB QUEUE ELEMENT     JC656000
00005C                              754+JCTIOTTR DS    F                   TRACK ADDRESS OF FIRST IOT           JC658000
000060                              755+JCTDSKEY DS    F                   PERIPHERAL DATA SET KEY              JC660000
000064                              756+JCTINJCT DS    F                   TRACK ADDRESS OF INPUT JCT           JC662000

000068                              757+         DS    X                   RESERVED                             JC664000
000069                              758+JCTSMFLG DS    BL1                 SMF FLAGS                            JC666000
00006A                              759+JCTPURGE DS    X                   START OF SMF PURGE RECORD            JC668000

00006B                              760+JCTJBOPT DS    BL1                 HASP JOB OPTIONS                     JC670000
00006C                              761+JCTJOBEB DS    CL4                 HASP ASSIGNED JOB NUMBER (EBCDIC)    JC672000
000070                              762+JCTJNAME DS    CL8                 JOB NAME FROM JOB CARD               JC674000
000078                              763+JCTPNAME DS    CL20                PROGRAMMER'S NAME FROM JOB CARD      JC676000
00008C                              764+JCTMCLAS DS    C                   MSGCLASS FROM JOB CARD               JC678000

00008D                              765+JCTJCLAS DS    C                   JOB CLASS FROM JOB CARD              JC680000
00008E                              766+         DS    X                   RESERVED                             JC682000
00008F                              767+JCTPRIO  DS    X                   HASP EXECUTION SELECTION PRIORITY    JC684000
000090                              768+         DS    X                   RESERVED                             JC686000
000091                              769+JCTOPRIO DS    X                   HASP OUTPUT SELECTION PRIORITY       JC688000
000092                              770+JCTROUTE DS    XL2                 INPUT ROUTE CODE                     JC690000
000094                              771+JCTINDEV DS    CL8                 HASP INPUT DEVICE NAME               JC692000
00009C                              772+JCTACCTN DS    CL4                 JOB ACCOUNTING NUMBER FROM JOB CARD  JC694000

0000A0                              773+JCTROOMN DS    CL4                 PROGRAMMER'S ROOM NUMBER             JC696000
0000A4                              774+JCTETIME DS    F                   ESTIMATED EXECUTION TIME             JC698000

0000A8                              775+JCTESTLN DS    F                   ESTIMATED OUTPUT LINES               JC700000
0000AC                              776+JCTESTPU DS    F                   ESTIMATED PUNCHED OUTPUT             JC702000
0000B0                              777+JCTFORMS DS    CL4                 JOB OUTPUT FORMS                     JC704000
0000B4                              778+         DS    X                   RESERVED                             JC706000
0000B5                              779+JCTCPYCT DS    X                   JOB PRINT COPY COUNT                 JC708000

0000B6                              780+         DS    X                   RESERVED                             JC710000
0000B7                              781+JCTLINCT DS    X                   LINES PER PAGE                       JC712000
0000B8                              782+JCTPROUT DS    XL2                 JOB PRINT ROUTE CODE                 JC714000
0000BA                              783+JCTPUOUT DS    XL2                 JOB PUNCH ROUTE CODE                 JC716000
0000BC                              784+JCTXEQON DS    F                   TIME ON EXECUTION PROCESSOR          JC718000
0000C0                              785+JCTXDTON DS    F                   DATE ON EXECUTION PROCESSOR          JC720000
0000C4                              786+JCTXEQOF DS    F                   TIME OFF EXECUTION PROCESSOR         JC722000
0000C8                              787+JCTXDTOF DS    F                   DATE OFF EXECUTION PROCESSOR         JC724000
0000CC                              788+JCTOUTON DS    F                   TIME ON OUTPUT PROCESSOR             JC726000

0000D0                              789+JCTODTON DS    F                   DATE ON OUTPUT PROCESSOR             JC728000

0000D4                              790+JCTOUTOF DS    F                   TIME OFF OUTPUT PROCESSOR            JC730000
0000D8                              791+JCTODTOF DS    F                   DATE OFF OUTPUT PROCESSOR            JC732000
0000DC                              792+JCTCARDS DS    F                   TOTAL NUMBER OF INPUT CARDS          JC734000
0000E0                              793+JCTLINES DS    F                   GENERATED OUTPUT LINES               JC736000
0000E4                              794+JCTPUNCH DS    F                   GENERATED PUNCHED OUTPUT             JC738000

0000E8                              795+         DS    F                   RESERVED                             JC740000
0000EC                              796+JCTPRTCT DS    F                   CURRENT NUMBER OF LINES PRINTED      JC742000
0000F0                              797+JCTPAGCT DS    F                   CURRENT NUMBER OF PAGES PRINTED      JC744000
0000F4                              798+JCTPUNCT DS    F                   CURRENT NUMBER OF CARDS PUNCHED      JC746000
0000F8                              799+JCTESOUT DS    F                   ESTIMATED OUTPUT (LINES+CARDS)       JC748000
0000FC                              800+JCTXOUT  DS    F                   GENERATED OUTPUT RECORDS             JC750000
000100                              801+         DS    F                   RESERVED                             JC752000
000104                              802+JCTCYSAV DS    XL100               INPUT ALLOCATION BIT MAP             JC754000
000168                              803+JCTWORK  DS    XL144               144-BYTE WORK AREA                   JC756000
0001F8                              804+         DS    0F                                                       JC758000

ACCT     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   26



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0001F8                              805+JCTJMR   DS    XL56                JMR AREA                             JC760000
000230                      001F8   806+         ORG   JCTJMR                                                   JC762000
0001F8                              807+JCTJMRJN DS    CL8                 JMR JOB NAME                         JC764000

000200                              808+JCTRDRON DS    F                   TIME ON INPUT PROCESSOR              JC766000
000204                              809+JCTRDTON DS    F                   DATE ON INPUT PROCESSOR              JC768000
000208                              810+JCTCPUID DS    XL4                 JMR CPU IDENTIFICATION               JC770000
00020C                              811+JCTUSEID DS    CL8                 JMR USER IDENTIFICATION              JC772000
000214                              812+JCTSTEP  DS    X                   CURRENT STEP NUMBER                  JC774000
000215                              813+JCTINDC  DS    BL1                 JMR SMF OPTIONS                      JC776000
000216                              814+         DS    XL2                 RESERVED                             JC778000
000218                              815+JCTUCOM  DS    F                   JMR USER COMMUNICATION AREA          JC780000
00021C                              816+JCTUJVP  DS    F                   JMR ADDRESS OF USER EXIT ROUTINE     JC782000
000220                              817+JCTRDROF DS    F                   TIME OFF INPUT PROCESSOR             JC784000
000224                              818+JCTRDTOF DS    F                   DATE OFF INPUT PROCESSOR             JC786000

000228                              819+JCTJOBIN DS    F                   JMR JOB SYSIN COUNT                  JC788000
00022C                              820+JCTRDR   DS    XL2                 READER DEVICE TYPE AND CLASS         JC790000
00022E                              821+JCTJMOPT DS    BL1                 JMR SMF OPTIONS                      JC792000
00022F                              822+         DS    X                   RESERVED                             JC794000

000230                      00230   823+         ORG                                                            JC796000
                            00230   824+JCTEND   EQU   *                   END OF JOB CONTROL TABLE             JC798000





                                    826+*                             JCTSMFLG                                  JC802000



                            00080   828+JCTSMFL0 EQU   B'10000000'         RESERVED                             JC806000
                            00040   829+JCTSMFL1 EQU   B'01000000'         RESERVED                             JC808000
                            00020   830+JCTSMFL2 EQU   B'00100000'         RESERVED                             JC810000
                            00010   831+JCTSMFL3 EQU   B'00010000'         RESERVED                             JC812000
                            00008   832+JCTSMFL4 EQU   B'00001000'         RESERVED                             JC814000
                            00004   833+JCTSMFL5 EQU   B'00000100'         RESERVED                             JC816000

                            00002   834+JCTSMFL6 EQU   B'00000010'         RESERVED                             JC818000
                            00001   835+JCTSMFL7 EQU   B'00000001'         RESERVED                             JC820000






                                    837+*                             JCTJBOPT                                  JC824000



                            00080   839+JCTPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              JC828000
                            00040   840+JCTSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              JC830000
                            00020   841+JCTTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           JC832000
                            00010   842+JCTNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    JC834000
                            00008   843+JCTXBACH EQU   B'00001000'         EXECUTION BATCHING JOB               JC836000
                            00004   844+JCTJBOP5 EQU   B'00000100'         RESERVED                             JC838000
                            00002   845+JCTJBOP6 EQU   B'00000010'         RESERVED                             JC840000
                            00001   846+JCTJBOP7 EQU   B'00000001'         RESERVED                             JC842000
ACCT     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   27



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    849+*                             JCTJMOPT                                  JC848000



                            00020   851+JCTJMRUX EQU   B'00100000'         IF ON, TAKE USER EXITS FOR SMF       JC852000





                                    853+*                                                                       JC856000
                                    854+*        IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT      JC858000
                                    855+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  JC860000
                                    856+*        THE JCT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    JC862000
                                    857+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    JC864000
                                    858+*                                                                       JC866000
                            005D0   859+$JCTTEST EQU   1960-JCTEND+JCTJQE                                       JC868000

000230 05D0                         860+         DC    Y($JCTTEST)         TEST INSTRUCTION                     JC870000

000000                              861+HASPACCT CSECT                     END OF JOB CONTROL TABLE DSECT       JC872000
ACCT     HASP SMF BUFFER DSECT                                                                                 PAGE   28



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                              864+SMFDSECT DSECT                     HASP SMF BUFFER DSECT                SM561000
000000                              865+SMFCHAIN DS    F                   SMF BUFFER CHAIN TO NEXT BUFFER      SM562000
000004                              866+SMFTYPE  DS    C                   TYPE OF BUFFER  X'FF' = JMR BUFFER   SM563000
000005                              867+SMFPARM  DS    3C                  RESERVED                             SM564000
000008                              868+JMRCHAIN DS    0CL4                POINTER TO PURGE RECORD BUFFER       SM565000
000008                              869+SMFRDW   DS    CL4                 SMF RECORD DESCRIPTOR WORD           SM566000


                                    871+*  BEGINNING OF JMR OR HASP SMF RECORD                                  SM568000
00000C                              872+SMFJMR   DS    0CL56               JMR DATA AREA                        SM569000


00000C 00                           874+SMFHDFLG DC    BL1'0'              HEADER FLAG BYTE                     SM571000

00000D 00                           875+SMFHDRTY DC    BL1'0'              RECORD TYPE                          SM572000

00000E 00000000                     876+SMFHDTME DC    BL4'0'              TOD, USING FORMAT FROM TIME MACRO    SM573000
000012 0000000C                     877+SMFHDDTE DC    PL4'0000'           DATE IN PACKD DECIMAL FORM  00YYDDDF SM574000
000016 4040                         878+SMFHDSID DC    CL2'  '             SYSTEM IDENTIFICATION                SM575000
000018 4040                         879+SMFHDMOD DC    CL2'  '             SYSTEM MODEL IDENTIFIER              SM576000


00001A                              881+SMFRSTRT DS    0C                  DEFINE START OF RECORD AFTER HEADER  SM578000

                                    883+* BEGINNING OF HASP TYPE 6 OUTPUT PROCESSOR RECORD AFTER STD. HEADER    SM580000

00001A 4040404040404040             885+SMF6JBN  DC    CL8' '              JOB NAME FROM JMR                    SM582000
000022 00000000                     886+SMF6RST  DC    BL4'0'              READER START TIME                    SM583000
000026 0000000C                     887+SMF6RSD  DC    PL4'0000'           READER START DATE                    SM584000

00002A F040404040404040             888+SMF6UIF  DC    CL8'0'              USER IDENTIFICATION FIELD            SM585000
000032 40                           889+SMF6OWC  DC    CL1' '              OUTPUT WRITER CLASS                  SM586000
000033 00000000                     890+SMF6WST  DC    BL4'0'              WRITER START TIME                    SM587000

000037 0000000C                     891+SMF6WSD  DC    PL4'0000'           WRITER START DATE                    SM588000
00003B 00000000                     892+SMF6NLR  DC    BL4'0'              # OF LOGICAL RECORDS FOR WRITER      SM589000
00003F 00                           893+SMF6IOE  DC    BL1'0'              I/O ERROR INDICATOR                  SM590000
000040 00                           894+SMF6NDS  DC    BL1'0'              # OF DATA SETS PROCESSED BY WTR      SM591000
000041 40404040                     895+SMF6FMN  DC    CL4' '              FORM NUMBER                          SM592000
000045 00000000000000               896+SMF6RV1  DC    BL7'0'              RESERVED                             SM593000
00004C 40404040                     897+SMF6JNM  DC    CL4' '              HASP ASSIGNED JOB NUMBER             SM594000
000050 4040404040404040             898+SMF6OUT  DC    CL8' '              HASP LOGICAL OUTPUT DEVICE NAME      SM595000
000058 40404040                     899+SMF6FCB  DC    CL4' '              FCB ID                               SM596000
00005C 40404040                     900+SMF6UCS  DC    CL4' '              UCS ID                               SM597000
000060 00000000                     901+SMF6PGE  DC    BL4'0'              PAGE COUNT                           SM598000
000064 0000                         902+SMF6RTE  DC    BL2'0'              OUTPUT ROUTE CODE                    SM599000

000066                              903+SMF6END  DS    0C                  END OF TYPE 6 RECORD                 SM600000
ACCT     HASP SMF BUFFER DSECT                                                                                 PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    905+* BEGINNING OF HASP TYPE 26 PURGE RECORD AFTER STANDARD HEADER          SM602000


000066                      0001A   907+         ORG   SMFRSTRT                                                 SM604000
00001A 4040404040404040             908+SMF26JBN DC    CL8' '              JOB NAME FROM JMR                    SM605000
000022 00000000                     909+SMF26RST DC    BL4'0'              READER START TIME                    SM606000
000026 0000000C                     910+SMF26RSD DC    PL4'0000'           READER START DATE                    SM607000
00002A F040404040404040             911+SMF26UIF DC    CL8'0'              USER IDENTIFICATION FIELD            SM608000

000032 00000000                     912+SMF26RSV DC    BL4'0'              RESERVED                             SM609000
000036 0000                         913+SMF26SBS DC    BL2'0'              SUBSYSTEM ID - HASP =X'0002'         SM610000
000038 0000                         914+SMF26IND DC    BL2'0'              SECTION INDICATOR =X'E000'           SM611000
00003A 0000                         915+SMF26LN1 DC    BL2'0'              DESCRIPTOR SECTION LENGTH            SM612000
00003C 000000                       916+SMF26RV1 DC    BL3'0'              RESERVED                             SM613000
00003F 00                           917+SMF26INF DC    BL1'0'              JOB INFORMATION                      SM614000
000040 40404040                     918+SMF26JNM DC    CL4' '              HASP ASSIGNED JOB NUMBER             SM615000
000044 4040404040404040             919+SMF26RV0 DC    CL8' '              JOB NAME FROM JOB CARD               SM616000

00004C 4040404040404040             920+SMF26NAM DC    CL20' '             PROGRAMMER'S NAME FROM JOB CARD      SM617000
000060 40                           921+SMF26MSG DC    CL1' '              MSGCLASS FROM JOB CARD               SM618000

000061 40                           922+SMF26CLS DC    CL1' '              JOB CLASS FROM JOB CARD              SM619000
000062 0000                         923+SMF26XPR DC    H'0'                HASP EXECUTION SELECTION PRIORITY    SM620000
000064 0000                         924+SMF26OPR DC    H'0'                HASP OUTPUT SELECTION PRIORITY       SM621000
000066 0000                         925+SMF26LOC DC    H'0'                INPUT ROUTE CODE                     SM622000
000068 4040404040404040             926+SMF26DEV DC    CL8' '              HASP LOGICAL INPUT DEVICE NAME       SM623000
000070 40404040                     927+SMF26ACT DC    CL4' '              PROGRAMMER'S ACCOUNTING NUMBER       SM624000
000074 40404040                     928+SMF26ROM DC    CL4' '              PROGRAMMER'S ROOM NUMBER             SM625000
000078 00000000                     929+SMF26XTM DC    BL4'0'              ESTIMATED EXECUTION TIME             SM626000

00007C 00000000                     930+SMF26ELN DC    BL4'0'              ESTIMATED OUTPUT LINES               SM627000
000080 00000000                     931+SMF26EPU DC    BL4'0'              ESTIMATED PUNCHED OUTPUT             SM628000
000084 40404040                     932+SMF26FRM DC    CL4' '              DEFAULT OUTPUT FORM NUMBER           SM629000
000088 0000                         933+SMF26CYP DC    BL2'0'              PRINT COPY COUNT                     SM630000
00008A 0000                         934+SMF26LIN DC    BL2'0'              LINES PER PAGE                       SM631000

00008C 0000                         935+SMF26PRR DC    BL2'0'              PRINT ROUTE CODE                     SM632000
00008E 0000                         936+SMF26PUR DC    BL2'0'              PUNCH ROUTE CODE                     SM633000
000090 0000                         937+SMF26LN2 DC    BL2'0'              EVENTS SECTION LENGTH                SM634000

000092 0000                         938+SMF26RV2 DC    BL2'0'              RESERVED                             SM635000
000094 00000000                     939+SMF26RPT DC    BL4'0'              READER STOP TIME                     SM636000
000098 0000000C                     940+SMF26RPD DC    PL4'0000'           READER STOP DATE                     SM637000
00009C 0000000000000000             941+SMF26RV3 DC    BL16'0'             RESERVED                             SM638000
0000AC 00000000                     942+SMF26XST DC    BL4'0'              EXECUTION START TIME                 SM639000
0000B0 0000000C                     943+SMF26XSD DC    PL4'0000'           EXECUTION START DATE                 SM640000
0000B4 00000000                     944+SMF26XPT DC    BL4'0'              EXECUTION STOP TIME                  SM641000

0000B8 0000000C                     945+SMF26XPD DC    PL4'0000'           EXECUTION STOP DATE                  SM642000
0000BC 00000000                     946+SMF26OST DC    BL4'0'              OUTPUT PROCESSOR START TIME          SM643000
0000C0 0000000C                     947+SMF26OSD DC    PL4'0000'           OUTPUT PROCESSOR START DATE          SM644000
0000C4 00000000                     948+SMF26OPT DC    BL4'0'              OUTPUT PROCESSOR STOP TIME           SM645000
0000C8 0000000C                     949+SMF26OPD DC    PL4'0000'           OUTPUT PROCESSOR STOP DATE           SM646000

0000CC 0000                         950+SMF26LN3 DC    BL2'0'              ACTUALS SECTION LENGTH               SM647000
0000CE 0000                         951+SMF26RV4 DC    BL2'0'              RESERVED                             SM648000
0000D0 00000000                     952+SMF26ICD DC    BL4'0'              NUMBER OF INPUT CARDS (JCL AND DATA) SM649000
0000D4 00000000                     953+SMF26XLN DC    BL4'0'              GENERATED OUTPUT LINES               SM650000

0000D8 00000000                     954+SMF26XPU DC    BL4'0'              GENERATED PUNCHED OUTPUT             SM651000
0000DC 00000000                     955+SMF26RV5 DC    BL4'0'              RESERVED                             SM652000
0000E0 00000000                     956+SMF26PLN DC    BL4'0'              PRINTED LINES                        SM653000
0000E4 00000000                     957+SMF26PPG DC    BL4'0'              PRINTED PAGES                        SM654000
0000E8 00000000                     958+SMF26PUC DC    BL4'0'              PUNCHED CARDS                        SM655000
0000EC                              959+SMF26END DS    0C                  END OF TYPE 26 RECORD                SM656000

ACCT     HASP SMF BUFFER DSECT                                                                                 PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    961+* SUBSYSTEM HEADER FOR HASP SUBSYSTEM RECORD TYPES 43, 45, 47, & 48     SM658000

0000EC                      0001A   963+         ORG   SMFRSTRT                                                 SM660000

00001A 0002                         964+SMFSSID  DC    XL2'0002'           HASP SUBSYSTEM ID                    SM661000
00001C 0000                         965+SMFSSRSV DC    BL2'0'              RESERVED                             SM662000
00001E 0000                         966+SMFSSLEN DC    BL2'0'              LENGTH OF REST OF RECORD             SM663000


000020                              968+SMFSSTRT DS    0C                  DEFINE START OF SUBSYSTEM PORTION    SM665000


                                    970+* BEGINNING OF HASP TYPE 43 START HASP RECORD AFTER HDR & SUBSYSTEM HDR SM667000

000020 000000                       972+SMF43RV1 DC    BL3'0'              RESERVED                             SM669000
000023 00                           973+SMF43OPT DC    BL1'0'              START HASP OPTIONS                   SM670000

000024                              974+SMF43END DS    0C                  END OF TYPE 43 SMF RECORD            SM671000


                                    976+* BEGINNING OF HASP TYPE 45 STOP  HASP RECORD AFTER HDR & SUBSYSTEM HDR SM673000
000024                      00020   977+         ORG   SMFSSTRT                                                 SM674000
000020                              978+SMF45END DS    0C                  END OF TYPE 45 RECORD                SM675000



                                    980+* BEGINNING OF HASP TYPE 47 START SUBSYSTEM EVENT AFTER TWO HEADERS     SM677000

000020                      00020   982+         ORG   SMFSSTRT                                                 SM679000
000020 0000                         983+SMF47EVT DC    BL2'0'              EVENT STARTING                       SM680000
000022 0000                         984+SMF47LN1 DC    BL2'0'              ID SEC LGTH (INCL SMF47LN1)          SM681000

000024 4040404040404040             985+SMF47RMT DC    CL8' '              REMOTE NAME                          SM682000
00002C 4040404040404040             986+SMF47LIN DC    CL8' '              LINE NAME                            SM683000
000034 4040404040404040             987+SMF47PSW DC    CL8' '              PASSWORD                             SM684000
00003C 0000                         988+SMF47LN2 DC    BL2'0'              MSG SEC LGTH (INCL SMF47LN2)         SM685000

00003E F040404040404040             989+SMF47MSG DC    CL36'0'             MESSAGE                              SM686000
000062                              990+SMF47END DS    0C                  END OF TYPE 47 RECORD                SM687000


                                    992+* BEGINNING OF HASP TYPE 48 STOP  SUBSYSTEM EVENT AFTER TWO HEADERS     SM689000


000062                      00020   994+         ORG   SMFSSTRT                                                 SM691000
000020 0000                         995+SMF48EVT DC    BL2'0'              EVENT STOPPING                       SM692000
000022 0000                         996+SMF48RV1 DC    BL2'0'              RESERVED                             SM693000
000024 4040404040404040             997+SMF48RMT DC    CL8' '              REMOTE NAME                          SM694000
00002C 4040404040404040             998+SMF48LIN DC    CL8' '              LINE NAME                            SM695000
000034 4040404040404040             999+SMF48PSW DC    CL8' '              PASSWORD                             SM696000
00003C                             1000+SMF48END DS    0C                  END OF TYPE 48 RECORD                SM697000






                                   1002+*                             SMFSSID                                   SM699000




                            00002  1004+SMFHSPID EQU   X'0002'             HASP SUBSYSTEM IDENTIFICATION        SM701000
ACCT     HASP SMF BUFFER DSECT                                                                                 PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1006+*                             SMFTYPE & SMFHDRTY                        SM703000




                            000FF  1008+SMFJMRTP EQU   X'FF'               JMR BUFFER                           SM705000
                            00000  1009+SMFRECTP EQU   X'00'               SMF RECORD BUFFER                    SM706000
                            00006  1010+SMFOUTTP EQU   6                   HASP OUTPUT PROCESSOR SMF RECORD TYP SM707000
                            0001A  1011+SMFPRGTP EQU   26                  HASP PURGE RECORD TYPE               SM708000
                            0002B  1012+SMFSSSTP EQU   43                  START SUBSYSTEM RECORD TYPE          SM709000
                            0002D  1013+SMFPSSTP EQU   45                  STOP  SUBSYSTEM RECORD TYPE          SM710000
                            0002F  1014+SMFSSETP EQU   47                  START SUBSYSTEM EVENT ID             SM711000

                            00030  1015+SMFPSETP EQU   48                  STOP  SUBSYSTEM EVENT ID             SM712000






                                   1017+*                             SMF6IOE                                   SM714000



                            00004  1019+SMFDSER  EQU   X'04'               DATA SET ERROR                       SM716000
                            00001  1020+SMFCBER  EQU   X'01'               CONTROL BLOCK READ ERROR             SM717000






                                   1022+*                             SMF26INF                                  SM719000



                            00080  1024+SMFPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              SM721000
                            00040  1025+SMFSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              SM722000
                            00020  1026+SMFTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           SM723000
                            00010  1027+SMFNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    SM724000
                            00008  1028+SMFEXBCH EQU   B'00001000'         EXECUTION BATCHING JOB               SM725000

                            00004  1029+SMFJBOP5 EQU   B'00000100'         RESERVED                             SM726000

                            00002  1030+SMFJBOP6 EQU   B'00000010'         RESERVED                             SM727000
                            00001  1031+SMFOPCAN EQU   B'00000001'         JOB CANCELED BY $C OR $P             SM728000





                                   1033+*                             SMF47EVT & SMF48EVT                       SM730000




                            00001  1035+SMFRMTEV EQU   X'0001'             HASP SIGNON/SIGNOFF SUBSYSTEM EVENT  SM732000
                            00002  1036+SMFLINEV EQU   X'0002'             HASP START/STOP LINE SUBSYSTEM EVENT SM733000
000000                             1037+HASPACCT CSECT                     END OF HASP SMF BUFFER DSECT         SM734000
ACCT     HASP ACCOUNTING ROUTINE FOR SMF                                                                       PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1039 ******************************************************************      A0052000
                                   1040 *                                                                *      A0054000
                                   1041 *    INSTEAD OF PUNCHING A HASP ACCOUNTING CARD, AS IN THE PAST, *      A0056000
                                   1042 *    THE HASP ACCOUNTING ROUTINE NOW IS AN INTERFACE TO SMF.     *      A0058000

                                   1043 *    THE HASP ACCT ROUTINE, WHILE A PART OF HASP, IS A SUBTASK OF*      A0060000

                                   1044 *    HASP AND IS ACTIVATED BY AN OS POST WHEN A HASP ROUTINE     *      A0062000
                                   1045 *    NEEDS TO WRITE A SMF RECORD.                                *      A0064000
                                   1046 *    THE FUNCTION OF THE ROUTINE IS TO LOOK AT $SMFBUSY QUEUE,   *      A0066000
                                   1047 *    TAKE BUFFERS OFF THE QUEUE, AND INTERFACE WITH THE SMF             A0068000

                                   1048 *    WRITER IN THE FOLLOWING MANNER                              *      A0070000
                                   1049 *                                                                *      A0072000
                                   1050 *        1.  IF BUFFER INDICATES IT IS A COMMON EXIT PARMATER    *      A0074000
                                   1051 *            LIST(JMR), THE IEFUJP EXIT IS CALLED FIRST.         *      A0076000
                                   1052 *                                                                *      A0078000
                                   1053 *        2.  THEN THE SMF WRITER IS CALLED TO WRITE A SMF RECORD.*      A0080000
                                   1054 *                                                                *      A0082000
                                   1055 *        3.  PUTS FREED BUFFER(S) ON $SMFFREE                    *      A0084000
                                   1056 *                                                                *      A0086000
                                   1057 *        4.  CONTINUES ABOVE STEPS UNTIL $SMFBUSY IS EMPTY       *      A0088000
                                   1058 *                                                                *      A0090000
                                   1059 *        5.  ENTERS AN OS WAIT STATE TO AWAIT POST BY HASP       *      A0092000

                                   1060 *                                                                *      A0094000
                                   1061 ******************************************************************      A0096000



                                   1063 *    WB  IS USED TO HOLD THE JMR BUFFER ADDR. FOR AUNQSMF        *      A0100000
                                   1064 *    WE  IS USED TO HOLD THE SMF BUFFER ADDR. FOR AUNQSMF        *      A0102000





000000 90EC D00C      0000C        1066 ABEGIN   STM   R14,R12,12(R13)     SAVE REGISTERS                       A0106000
000004 05C0                        1067          BALR  BASE2,0             ESTABLISH BASE                       A0108000
                            00006  1068          USING *,BASE2                                                  A0110000
                            00000  1069          USING SMFDSECT,R1         SMF BUFFER ADDRESSABILITY            A0112000
000006 50D0 C0FE      00104        1070          ST    R13,ASAVAREA+4      STORE BACKWARD POINTER               A0114000
00000A 184D                        1071          LR    WC,R13                                                   A0116000
00000C 41D0 C0FA      00100        1072          LA    R13,ASAVAREA                                             A0118000

000010 50D4 0008      00008        1073          ST    R13,8(WC)           STORE FORWARD POINTER                A0120000
000014 58B0 C152      00158        1074          L     BASE1,=V(HASP)      HCT ADDRESSABILITY                   A0122000
000018 4132 0008      00008        1075          LA    WB,8(WA)            SECURE ADDR. OF $ACCTECB             A0124000
00001C 5030 C142      00148        1076          ST    WB,ADDRECB          SAVE ADDR. OF $ACCTECB TO WAIT ON    A0126000

                                   1077          POST  (WA)                POST HASP THAT HASPACCT IS IN        A0128000
000020 1B00                        1078+         SR    0,0                    . SET POST CODE REG ZERO          00640021
000022 4110 2000      00000        1079+         LA    1,0(0,WA)              . LOAD ECB REG 1, CLEAR HI BYTE   02250021
000026 0A02                        1080+         SVC   2                      . ISSUE THE POST SVC              08250021
000028 47F0 C048      0004E        1081          B     AWAIT               WAIT FOR HASP POST FOR WORK          A0130000
                                   1082 AENDQ    NULL  END OF $SMFBUSY QUEUE                                    A0132000
00002C                             1083+AENDQ    DS    0H                                                       NU006000
00002C 5810 C142      00148        1084          L     R1,ADDRECB          GET ADDRESS OF  $ACCTECB             A0134000
000030 9200 1000      00000        1085          MVI   0(R1),0             RESET POST ECB                       A0136000
                                   1086         $ENABLE ALL                ENABLE INTERRUPTS                    A0138000
000034 8000 B0C8      000C8        1087+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
000038 9104 B0C2      000C2        1088          TM    $STATUS,$SYSEXIT    TEST FOR WITHDRAWAL OF HASP          A0140000

ACCT     HASP ACCOUNTING ROUTINE FOR SMF                                                                       PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00003C 4780 C048      0004E        1089          BZ    AWAIT               NO                                   A0142000

000040 58D0 C0FE      00104        1090          L     R13,ASAVAREA+4      RETURN AFTER $PHASP COMMAND          A0144000
                                   1091          RETURN (14,12),RC=0                                            A0146000
000044 98EC D00C      0000C        1092+         LM    14,12,12(13)                      RESTORE THE REGISTERS  00260000
000048 41F0 0000      00000        1093+         LA    15,0(0,0)                         LOAD RETURN CODE       00700000
00004C 07FE                        1094+         BR    14                                RETURN                 00800000
00004E 5810 C142      00148        1095 AWAIT    L     R1,ADDRECB          WAIT TO BE POSTED FOR WORK BY HASP   A0148000
                                   1096          WAIT  ECB=(1)                                                  A0150000
000052 4110 1000      00000        1097+         LA    1,0(0,1)                    CLEAR HIGH BYTE OF REG       00087017
000056 4100 0001      00001        1098+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
00005A 0A01                        1099+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
                                   1100 *    REMOVE A SMF BUFFER FROM $SMFBUSY                                  A0152000
                                   1101 AFREESMF NULL                                                           A0154000

00005C                             1102+AFREESMF DS    0H                                                       NU006000

00005C 1B33                        1103          SR    WB,WB               ZERO JMR BUF. ADDR REGISTER          A0156000
                                   1104         $DISABLE ALL               PROTECT QUEUE FROM HASP              A0158000

00005E 8000 B0C9      000C9        1105+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
000062 4110 B120      00120        1106          LA    R1,$SMFBUSY         ADDRESS OF BUFFERS QUEUED            A0160000
000066 1821                        1107          LR    WA,R1               SAVE POINTER TO PREVIOUS BUFFER      A0162000
000068 5810 1000      00000        1108          L     R1,SMFCHAIN         GET NEXT BUFFER ON CHAIN             A0164000
00006C 1211                        1109          LTR   R1,R1               IS THIS THE END OF THE CHAIN         A0166000
00006E 4780 C026      0002C        1110          BZ    AENDQ               YES                                  A0168000
000072 D203 2000 1000 00000 00000  1111          MVC   0(4,WA),SMFCHAIN    UPDATE CHAIN POINTER                 A0170000
                                   1112         $ENABLE ALL                ENABLE INTERRUPTS                    A0172000
000078 8000 B0C8      000C8        1113+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
00007C 1861                        1114          LR    WE,R1               SAVE FOR AUNQSMF                     A0174000
00007E 95FF 1004      00004        1115          CLI   SMFTYPE,SMFJMRTP    IS BUFFER JMR                        A0176000
000082 4770 C0AC      000B2        1116          BNE   AWRITSMF            NO                                   A0178000

000086 9200 1004      00004        1117          MVI   SMFTYPE,SMFRECTP    REINITIALIZE SMFTYPE                 A0180000
00008A 1831                        1118          LR    WB,R1               SAVE R1 ADDR FOR AUNQSMF             A0182000

00008C 5860 1008      00008        1119          L     WE,JMRCHAIN         SAVE PURGE RECORD PTR. FOR AUNQ      A0184000

000090 4150 100C      0000C        1120          LA    WD,SMFJMR           SET UP ADDR OF JMR                   A0190000
000094 5050 C146      0014C        1121          ST    WD,APRGPARM         PUT ADDR INTO PARMLIST FOR IEFUJP    A0192000
000098 4116 0008      00008        1122          LA    R1,SMFRDW-SMFDSECT(WE)   BEGINNING OF PURGE RECORD       A0194000
00009C 5010 C14A      00150        1123          ST    R1,APRGREC          PUT ADDR PURGE RECORD IN PARMLIST    A0196000
0000A0 4110 C146      0014C        1124          LA    R1,APRGPARM         PUT ADDR. OF PARM. LIST IN R1        A0198000
0000A4 58F0 C156      0015C        1125          L     R15,=V(IEFUJP)                                           A0200000
0000A8 05EF                        1126          BALR  LINK,R15            CALL IEFUJP                          A0202000
0000AA 59F0 C15A      00160        1127          C     R15,=F'4'           WRITE SMF RECORD                     A0204000
0000AE 4780 C0B4      000BA        1128          BE    AUNQSMF             NO                                   A0206000
0000B2 1816                        1129 AWRITSMF LR    R1,WE               SET UP SMF RECORD ADDR IN R1         A0208000
0000B4 4111 0008      00008        1130          LA    R1,SMFRDW-SMFDSECT(R1)   DISP. OF RECORD IN SMF BUF      A0210000
                                   1131          SMFWTM (1)                WRITE SMF RECORD                     A0212000

0000B8 0A53                        1132+         SVC   83                  ISSUE SVC                            50000018
                                   1133 AUNQSMF  NULL                      RETURN BUFFERS TO $SMFFREE           A0214000
0000BA                             1134+AUNQSMF  DS    0H                                                       NU006000

0000BA 1816                        1135          LR    R1,WE               SMF RECORD BUFFER                    A0216000
                                   1136         $DISABLE ALL               DISABLE INTERRUPTS                   A0218000
0000BC 8000 B0C9      000C9        1137+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
0000C0 5850 B11C      0011C        1138          L     WD,$SMFFREE         SAVE $SMFFREE TO TEST FOR POST       A0220000
0000C4 D203 1000 B11C 00000 0011C  1139          MVC   SMFCHAIN,$SMFFREE   RETURN SMF RECORD BUFFER TO          A0222000
0000CA 5010 B11C      0011C        1140          ST    R1,$SMFFREE         FREE CHAIN                           A0224000
0000CE 1233                        1141          LTR   WB,WB               IS THERE A JMR BUFFER TO BE FREED    A0226000
0000D0 4780 C0DA      000E0        1142          BZ    AENABLE             NO                                   A0228000
0000D4 1813                        1143          LR    R1,WB                                                    A0230000
ACCT     HASP ACCOUNTING ROUTINE FOR SMF                                                                       PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0000D6 D203 1000 B11C 00000 0011C  1144          MVC   SMFCHAIN,$SMFFREE   RETURN JMR BUFFER TO                 A0232000

0000DC 5010 B11C      0011C        1145          ST    R1,$SMFFREE         FREE CHAIN                           A0234000
                                   1146 AENABLE $ENABLE ALL                ENABLE INTERRUPTS                    A0236000
0000E0 8000 B0C8      000C8        1147+AENABLE  SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
0000E4 1255                        1148          LTR   WD,WD               WAS $SMFFREE EMPTY$                  A0238000

0000E6 4770 C056      0005C        1149          BNZ   AFREESMF            GO CHECK FOR MORE WORK               A0240000
                                   1150         $POST  $HASPECF,SMF        $POST HASP FOR SMF                   A0242000
0000EA 94FD B0C4      000C4        1151+         NI    $HASPECF,255-$EWFSMF                                     PO008000
0000EE 5810 C15E      00164        1152          L     R1,=V($HASPECB)     POST HASP                            A0244000
                                   1153          POST  (1)                                                      A0246000
0000F2 1B00                        1154+         SR    0,0                    . SET POST CODE REG ZERO          00640021

0000F4 4110 1000      00000        1155+         LA    1,0(0,1)               . LOAD ECB REG 1, CLEAR HI BYTE   02250021
0000F8 0A02                        1156+         SVC   2                      . ISSUE THE POST SVC              08250021
0000FA 47F0 C056      0005C        1157          B     AFREESMF            GO CHECK FOR MORE WORK               A0248000
000100                             1158 ASAVAREA DS    18F                 SAVE AREA                            A0250000
000148 00000000                    1159 ADDRECB  DC    F'0'                ADDRESS OF $ACCTECB                  A0252000
                                   1160 *    THE FOLLOWING PARAMETER LIST IS POINTED TO IN R1 WHEN IEFUJP       A0254000
                                   1161 *    IS CALLED- IT POINTS TO THE EXIT PARAMETER LIST(JMR)&PURGE RECORD  A0256000
00014C                             1162 APRGPARM DS    F                   POINTER TO JMR DATA(JOB LOG)         A0258000

000150                             1163 APRGREC  DS    F                   POINTER TO RDW FOR PURGE REC.        A0260000
000158                             1164          LTORG                                                          A0262000

000158 00000000                    1165                =V(HASP)
00015C 00000000                    1166                =V(IEFUJP)
000160 00000004                    1167                =F'4'
000164 00000000                    1168                =V($HASPECB)
                                   1169 $DLENGTH $DLENGTH                  COMPUTE CONTROL SECTION LENGTH       A0264000
ACCT     HASPACCT CONTROL SECTION LENGTH                                                                       PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78












000168                             1172+         DS    0D                  FILL OUT CONTROL SECTION             DN016000
                            00168  1173+$L       EQU   *-HASPACCT                                               DN018000

                            00000  1174+$L1      EQU   $L/100000*100000              COMPUTE                    DN020000
                            00000  1175+$L2      EQU   ($L-$L1)/10000*10000            INTERMEDIATE             DN022000
                            00000  1176+$L3      EQU   ($L-$L1-$L2)/1000*1000            LENGTH                 DN024000

                            0012C  1177+$L4      EQU   ($L-$L1-$L2-$L3)/100*100            VALUES               DN026000
                            0003C  1178+$L5      EQU   ($L-$L1-$L2-$L3-$L4)/10*10                               DN028000
                            00000  1179+$L6      EQU   $L-$L1-$L2-$L3-$L4-$L5                                   DN030000





                                   1181+*                                                                       DN034000
                                   1182+*                                  DECIMAL LENGTH                       DN036000

                                   1183+*                                                                       DN038000



                            00360  1185+$DLENGTH EQU   $L1/100000*1048576+$L2/10000*65536+$L3/1000*4096+$L4/100CDN042000
                                       +               *256+$L5/10*16+$L6                                       DN044000






                                   1187 .NOACCT  ANOP                                                           A0266000
000168                             1188 IEFUJP   CSECT                                                          A0268000
000168 1BFF                        1189          SR    R15,R15             ZERO OUT R/C REG.                    A0270000

00016A 07FE                        1190          BR    R14                 RETURN                               A0272000
                                   1191          END                                                            A0274000
ACCT                                              RELOCATION DICTIONARY                                        PAGE   36


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.01 08/28/78

 0001     0002      1C     000158
 0001     0003      1C     00015C

 0001     0004      1C     000164

ACCT                                              CROSS-REFERENCE                                              PAGE   37


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

$DISALL  00001 000000C9 00603  01105 01137

$ENBALL  00001 000000C8 00602  01087 01113 01147
$EWFSMF  00001 00000002 00331  01151
$EXITNOP 00002 0000002C 00522  00517 00518
$HASPECF 00001 000000C4 00598  01151
$JCTTEST 00001 000005D0 00859  00860

$L       00001 00000168 01173  01174 01175 01176 01177 01178 01179
$L1      00001 00000000 01174  01175 01176 01177 01178 01179 01185
$L2      00001 00000000 01175  01176 01177 01178 01179 01185
$L3      00001 00000000 01176  01177 01178 01179 01185
$L4      00001 0000012C 01177  01178 01179 01185

$L5      00001 0000003C 01178  01179 01185
$L6      00001 00000000 01179  01185
$NUCTABL 00004 0000012C 00636  00641
$NUCTBLE 00004 0000015C 00665  00669
$SAVEBEG 00004 0000013C 00649  00658

$SAVEEND 00001 0000015C 00657  00658
$SMFBUSY 00004 00000120 00630  01106
$SMFFREE 00004 0000011C 00629  01138 01139 01140 01144 01145
$STATUS  00001 000000C2 00596  01088
$SYSEXIT 00001 00000004 00427  01088
ADDRECB  00004 00000148 01159  01076 01084 01095

AENABLE  00004 000000E0 01147  01142
AENDQ    00002 0000002C 01083  01110
AFREESMF 00002 0000005C 01102  01149 01157
APRGPARM 00004 0000014C 01162  01121 01124

APRGREC  00004 00000150 01163  01123
ASAVAREA 00004 00000100 01158  01070 01072 01090
AUNQSMF  00002 000000BA 01134  01128
AWAIT    00004 0000004E 01095  01081 01089
AWRITSMF 00002 000000B2 01129  01116

BASE1    00001 0000000B 00298  00505 01074
BASE2    00001 0000000C 00299  01067 01068
BUFDSECT 00001 00000000 00687  00752
BUFSTART 00008 00000058 00726  00733 00739 00752
HASPACCT 00001 00000000 00129  00685 00741 00861 01037 01173
HCTDSECT 00001 00000000 00503  00505
JCT      00001 0000000A 00297  00751

JCTDSECT 00001 00000000 00750  00751
JCTEND   00001 00000230 00824  00859
JCTJMR   00056 000001F8 00805  00806

JCTJQE   00004 00000058 00753  00859
JMRCHAIN 00004 00000008 00868  01119
LINK     00001 0000000E 00301  01126
R1       00001 00000001 00269  01069 01084 01085 01095 01106 01107 01108 01109 01109 01114 01118 01122 01123 01124 01129
                               01130 01130 01135 01140 01143 01145 01152

R10      00001 0000000A 00278  00297
R11      00001 0000000B 00279  00298
R12      00001 0000000C 00280  00299 01066
R13      00001 0000000D 00281  00300 01066 01070 01071 01072 01073 01090
R14      00001 0000000E 00282  00301 00523 01066 01190
R15      00001 0000000F 00283  00522 00522 01125 01126 01127 01189 01189
R2       00001 00000002 00270  00289
R3       00001 00000003 00271  00290

R4       00001 00000004 00272  00291
ACCT                                              CROSS-REFERENCE                                              PAGE   38



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

R5       00001 00000005 00273  00292
R6       00001 00000006 00274  00293
R7       00001 00000007 00275  00294
R8       00001 00000008 00276  00295 00296

SMFCHAIN 00004 00000000 00865  01108 01111 01139 01144
SMFDSECT 00001 00000000 00864  01069 01122 01130
SMFJMR   00056 0000000C 00872  01120
SMFJMRTP 00001 000000FF 01008  01115
SMFRDW   00004 00000008 00869  01122 01130
SMFRECTP 00001 00000000 01009  01117
SMFRSTRT 00001 0000001A 00881  00907 00963
SMFSSTRT 00001 00000020 00968  00977 00982 00994
SMFTYPE  00001 00000004 00866  01115 01117

WA       00001 00000002 00289  01075 01079 01107 01111

WB       00001 00000003 00290  01075 01076 01103 01103 01118 01141 01141 01143
WC       00001 00000004 00291  01071 01073
WD       00001 00000005 00292  01120 01121 01138 01148 01148
WE       00001 00000006 00293  01114 01119 01122 01129 01135
ACCT                                              LITERAL CROSS-REFERENCE                                      PAGE   39



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

=V(HASP) 00004 00000158 01165  01074
=V(IEFUJP)
         00004 0000015C 01166  01125
=F'4'    00004 00000160 01167  01127
=V($HASPECB)
         00004 00000164 01168  01152
ACCT                                              ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE   40


                                                                                                 ASM 0201 20.01 08/28/78


NO STATEMENTS FLAGGED IN THIS ASSEMBLY

HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()

WORK FILE BUFFER SIZE/NUMBER = 6398/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT        134
TOTAL RECORDS READ FROM SYSTEM LIBRARY     9491
TOTAL RECORDS PUNCHED                        12
TOTAL RECORDS PRINTED                      1385

BR1                                            EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.01 08/28/78

HASPBR1   SD  0001 000000 000008
$JOT      ER  0002
BR1      HASP GLOBAL DEFINITIONS                                                                               PAGE    2



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                      2          COPY  $GLOBAL                                                  B0004000
                                      3 *                                                                       GL002000
                                      4 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                      5 *                                                                       GL006000




                                      7          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000
                                      8          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000
                                      9          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                     10          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000

                                     11          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000





                                     13 *                                                                       GL032000
                                     14 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000
                                     15 *                                                                       GL036000




                                     17          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000
                                     18          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                     19          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000

                                     20          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                     21          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000
                                     22          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000
                                     23          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                     24          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000

                                     25          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000
                                     26          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000
                                     27          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000
                                     28          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                     29          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000
                                     30          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000
                                     31          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000

                                     32          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000
                                     33          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                     34          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200

                                     35          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300
                                     36          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000
                                     37          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000
                                     38          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                     39          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000

                                     40          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                     41          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                     42          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000
                                     43          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000
                                     44          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                     45          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000
                                     46          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000
                                     47          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000

BR1      HASP GLOBAL DEFINITIONS                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                     49 *                                                                       GL116000
                                     50 *                             O/S INTERFACE PARAMETERS                  GL118000
                                     51 *                                                                       GL120000



                                     53          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000

                                     54          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                     55          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000
                                     56          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000
                                     57          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000
                                     58          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000
                                     59          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                     60          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000
                                     61          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000
                                     62          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000

                                     63          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100

                                     64          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200
                                     65          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300
                                     66          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400






                                     68 *                                                                       GL150000
                                     69 *                             HASP OPTION PARAMETERS                    GL152000
                                     70 *                                                                       GL154000



                                     72          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000
                                     73          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000
                                     74          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000
                                     75          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000
                                     76          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000
                                     77          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000

                                     78          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000

                                     79          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000
                                     80          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000
                                     81          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000
                                     82          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100

                                     83          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500
                                     84          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                     85          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                     86          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000
                                     87          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                     88          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000
                                     89          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000
                                     90          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000
                                     91          GBLB  &DEBUG              DEBUG MODE                           GL186000
                                     92          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000
                                     93          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000

BR1      HASP GLOBAL DEFINITIONS                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                     95 *                                                                       GL226000
                                     96 *                             REMOTE JOB ENTRY PARAMETERS               GL228000

                                     97 *                                                                       GL230000



                                     99          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                    100          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000
                                    101          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000
                                    102          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    103          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000
                                    104          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000
                                    105          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000
                                    106          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000
                                    107          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000






                                    109 *                                                                       GL260000
                                    110 *                             INTERNAL GENERATION PARAMETERS            GL262000

                                    111 *                                                                       GL264000



                                    113          GBLC  &VERSION            HASP VERSION                         GL270000
                                    114          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000
                                    115          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                    116          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000
                                    117          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500
                                    118          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000
                                    119          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500
                                    120          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                    121          GBLA  &LOW                OVERLAY PRIORITY                     GL280000
                                    122          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000

                                    123          GBLA  &HIGH                 PARAMETER VALUES                   GL284000
                                    124          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000
                                    125          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000

                                    126          LCLC  &DOC                DOCUMENTAION OPTION                  B0006000
BR1      HASP RETURN MODULE                                                                                    PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                              129 HASPBR1  START 0                   HASP RETURN MODULE                   B0012000
000000 07F1                         130          BR    R1                  GIVE CONTROL TO CALLER               B0014000
                                    131 *                                   AT ADDRESS IN REGISTER ONE.         B0016000





                                    133          COPY  $HASPGEN            COPY HASPGEN PARAMETERS              B0020000
BR1      HASPGEN PARAMETER VALUES                                                                              PAGE    6



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    135 *                                                                       HA004000
                                    136 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000

                                    137 *                                                                       HA008000



                                    139 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000
                                    140 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                    141 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000
                                    142 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000
                                    143 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000




                                    145 *                                                                       HA028000
                                    146 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000
                                    147 *                                                                       HA032000




                                    149 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000

                                    150 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000

                                    151 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000
                                    152 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000
                                    153 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000
                                    154 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                    155 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000
                                    156 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000
                                    157 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000
                                    158 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000
                                    159 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    160 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000
                                    161 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000
                                    162 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000

                                    163 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000
                                    164 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000
                                    165 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000

                                    166 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                    167 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200
                                    168 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300
                                    169 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                    170 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000
                                    171 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                    172 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000
                                    173 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000
                                    174 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                    175 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000
                                    176 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000
                            0003C   177 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000

BR1      HASPGEN PARAMETER VALUES                                                                              PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                    180 *                                                                       HA100000
                                    181 *                             O/S INTERFACE PARAMETERS                  HA102000
                                    182 *                                                                       HA104000



                                    184 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                    185 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000

                                    186 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000
                                    187 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000
                                    188 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000
                                    189 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000
                                    190 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                    191 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                    192 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000
                                    193 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100

                                    194 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200
                                    195 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300

                                    196 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400



                                    198 *                                                                  RFIT HA125600
                                    199 *                             HASP SVC NUMBER                      RFIT HA125700
                                    200 *                                                                  RFIT HA125800
                                    201          COPY  $INITSVC                                            RFIT HA125900
                                    202 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT






                                    204 *                                                                       HA130000
                                    205 *                             HASP OPTION PARAMETERS                    HA132000
                                    206 *                                                                       HA134000




                                    208 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000
                                    209 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000
                                    210 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000

                                    211 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000
                                    212 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                    213 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000
                                    214 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    215 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000
                                    216 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000
                                    217 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000

                                    218 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100
                                    219 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500
                                    220 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
BR1      HASPGEN PARAMETER VALUES                                                                              PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    221 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500
                                    222 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                    223 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000
                                    224 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000

                                    225 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000
                                    226 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                    227 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000
                                    228 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                    229 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000
BR1      HASPGEN PARAMETER VALUES                                                                              PAGE    9



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                    232 *                                                                       HA174000
                                    233 *                             REMOTE JOB ENTRY PARAMETERS               HA176000

                                    234 *                                                                       HA178000



                                    236 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000
                                    237 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000
                                    238 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000

                                    239 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000
                                    240 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                    241 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000
                                    242 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000
                                    243 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000

                                    244 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000





                                    246 *                                                                       HA202000
                                    247 *                             INTERNAL GENERATION PARAMETERS            HA204000

                                    248 *                                                                       HA206000



                                    250 &VERSION SETC  '4.0'               HASP VERSION                         HA210000
                                    251 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000
                                    252 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000
                                    253 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000

                                    254 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000
                                    255 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                    256 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000
                                    257 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500

                                    258 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                    259 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000
                                    260 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000
                                    261 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000
                                    262 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000

                                    263 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
BR1      HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                    266 *                                                                       HA234000
                                    267 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000

                                    268 *                                                                       HA238000



                            00000   270 R0       EQU   0                                                        HA242000

                            00001   271 R1       EQU   1                                                        HA244000
                            00002   272 R2       EQU   2                                                        HA246000
                            00003   273 R3       EQU   3                                                        HA248000
                            00004   274 R4       EQU   4                                                        HA250000
                            00005   275 R5       EQU   5                                                        HA252000

                            00006   276 R6       EQU   6                                                        HA254000
                            00007   277 R7       EQU   7                                                        HA256000
                            00008   278 R8       EQU   8                                                        HA258000
                            00009   279 R9       EQU   9                                                        HA260000
                            0000A   280 R10      EQU   10                                                       HA262000
                            0000B   281 R11      EQU   11                                                       HA264000
                            0000C   282 R12      EQU   12                                                       HA266000
                            0000D   283 R13      EQU   13                                                       HA268000

                            0000E   284 R14      EQU   14                                                       HA270000
                            0000F   285 R15      EQU   15                                                       HA272000






                                    287 *                                                                       HA276000
                                    288 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000
                                    289 *                                                                       HA280000




                            00002   291 WA       EQU   R2                  WORK REGISTER A                      HA284000
                            00003   292 WB       EQU   R3                  WORK REGISTER B                      HA286000
                            00004   293 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   294 WD       EQU   R5                  WORK REGISTER D                      HA290000
                            00006   295 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007   296 WF       EQU   R7                  WORK REGISTER F                      HA294000
                            00008   297 WG       EQU   R8                  WORK REGISTER G                      HA296000
                            00008   298 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000

                            0000A   299 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000

                            0000B   300 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000
                            0000C   301 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000
                            0000D   302 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000
                            0000E   303 LINK     EQU   R14                 LINK REGISTER                        HA308000
BR1      HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   11



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78











                            00000   306 NOP      EQU   0                   NO-OP                                HA314000
                            00001   307 O        EQU   1                   ONES OR OVERFLOW                     HA316000
                            00002   308 H        EQU   2                   HIGH                                 HA318000
                            00002   309 P        EQU   2                   PLUS                                 HA320000
                            00004   310 L        EQU   4                   LOW                                  HA322000

                            00004   311 M        EQU   4                   MINUS OR MIXED                       HA324000

                            00007   312 NE       EQU   7                   NOT EQUAL                            HA326000
                            00007   313 NZ       EQU   7                   NOT ZERO                             HA328000
                            00008   314 E        EQU   8                   EQUAL                                HA330000
                            00008   315 Z        EQU   8                   ZERO                                 HA332000

                            0000B   316 NL       EQU   11                  NOT LOW                              HA334000
                            0000B   317 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000
                            0000D   318 NH       EQU   13                  NOT HIGH                             HA338000
                            0000D   319 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   320 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
BR1      HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    322 *                                                                       HA346000
                                    323 *                             BIT DEFINITIONS                           HA348000
                                    324 *                                                                       HA350000





                            00080   326 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000
                            00040   327 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000
                            00020   328 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000
                            00010   329 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000

                            00008   330 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000
                            00004   331 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000
                            00002   332 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000
                            00002   333 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001   334 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000
                                    335 *                                                                       HA370000
                            00080   336 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000
                            00040   337 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020   338 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   339 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000
                            00008   340 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000

                            00004   341 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000
                            00002   342 $EWF15   EQU   X'02'               SPARE                                HA384000
                            00001   343 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000






                                    345 *                                                                       HA390000
                                    346 *                             BYTE DEFINITIONS                          HA392000
                                    347 *                                                                       HA394000



                            00000   349 $EWBPOST EQU   0                   BYTE 0                               HA398000
                            00000   350 $EWBBUF  EQU   0                   BYTE 0                               HA400000
                            00000   351 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   352 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000   353 $EWBUNIT EQU   0                   BYTE 0                               HA406000
                            00000   354 $EWBCKPT EQU   0                   BYTE 0                               HA408000
                            00000   355 $EWBCMB  EQU   0                   BYTE 0                               HA410000

                            00000   356 $EWBSMF  EQU   0                   BYTE 0                               HA411000
                            00000   357 $EWBJOT  EQU   0                   BYTE 0                               HA412000
                                    358 *                                                                       HA414000

                            00001   359 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001   360 $EWBIO   EQU   1                   BYTE 1                               HA418000
                            00001   361 $EWBWORK EQU   1                   BYTE 1                               HA420000
                            00001   362 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001   363 $EWBDDB  EQU   1                   BYTE 1                               HA424000
                            00001   364 $EWBOLAY EQU   1                   BYTE 1                               HA426000
                            00001   365 $EWB15   EQU   1                   BYTE 1                               HA428000
                            00001   366 $EWBOROL EQU   1                   BYTE 1                               HA430000
BR1      HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    369 *                                                                       HA436000

                                    370 *                             LOGICAL CONSOLE DEFINITIONS               HA438000
                                    371 *                                                                       HA440000




                            00001   373 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002   374 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000
                            00004   375 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008   376 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000
                            00010   377 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000
                            00020   378 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000
                            00040   379 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   380 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   381 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000
                            00000   382 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000






                                    384 *                                                                       HA466000

                                    385 *                             MESSAGE CLASS DEFINITIONS                 HA468000

                                    386 *                                                                       HA470000



                            00010   388 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000
                            00030   389 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050   390 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000
                            00070   391 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000
                            00080   392 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000




                                    394 *                                                                       HA484000
                                    395 *                             MESSAGE PRIORITY DEFINITIONS              HA486000
                                    396 *                                                                       HA488000




                            00001   398 $LO      EQU   1                   LOW PRIORITY                         HA492000
                            00004   399 $ST      EQU   4                   STANDARD PRIORITY                    HA494000

                            00007   400 $HI      EQU   7                   HIGH PRIORITY                        HA496000
BR1      HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    403 *                                                                       HA502000
                                    404 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000
                                    405 *                                                                       HA506000



                            00080   407 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000
                            00000   408 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000
                            00040   409 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000

                            00000   410 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000
                            00020   411 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000
                            00000   412 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000
                            00010   413 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000

                            00000   414 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000
                            00008   415 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000
                            00000   416 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000
                            00004   417 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000   418 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000






                                    420 *                                                                       HA536000
                                    421 *                             HASP STATUS BIT DEFINITIONS               HA538000
                                    422 *                                                                       HA540000



                            00080   424 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040   425 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000
                            00020   426 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000

                            00010   427 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000
                            00008   428 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000

                            00004   429 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000
                            00002   430 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000
BR1      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    433 *                                                                       HA560000
                                    434 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000

                                    435 *                                                                       HA564000



                                    437 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                    438 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000
                                    439 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000

                                    440 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000
                                    441 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000
                                    442 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000

                                    443 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000
                                    444 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                    445 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000





                                    447 *                                                                       HA588000
                                    448 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000

                                    449 *                                                                       HA592000



                                    451 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                    452 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000
                                    453 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000

                                    454 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                    455 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                    456 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000
                                    457 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000

                                    458 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000
                                    459 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
BR1      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    462 *                                                                       HA618000
                                    463 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000
                                    464 *                                                                       HA622000



                                    466 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000

                                    467 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000
                                    468 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000
                                    469 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000
                                    470 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000
                                    471 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000

                                    472 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000
                                    473 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                    474 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000






                                    476 *                                                                       HA646000
                                    477 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000
                                    478 *                                                                       HA650000



                                    480 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000

                                    481 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                    482 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000
                                    483 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000
                                    484 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000
                                    485 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000
                                    486 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000

                                    487 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000
                                    488 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
BR1      HASP CONTROL BLOCKS                                                                                   PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    491 *                                                                       B0026000
                                    492 *                             DOCUMENTATION OPTION                      B0028000
                                    493 *                                                                       B0030000




                                    495 &DOC     SETC  'YES'               TURN ON DOCUMENTATION                B0034000





                                    497 *                                                                       B0038000
                                    498 *                             GENERATE HASP CONTROL BLOCKS              B0040000
                                    499 *                                                                       B0042000




                                    501         $HASPCB HCT,PCE,BUFFER,CMB,SMF,DCT,JQE,JIT,JCT,IOT,TED,TQE,    CB0046000
                                                       OTB,DDT,OCR,PDDB,PIT,JOE,JOT,PRC,MSA,CVT,TCB,RB,JSCB,   CB0048000

                                                       DCB,DEB,UCB,RDRWORK,XEQWORK,OUTWORK,PPPWORK,DOC=&DOC     B0050000
BR1      HASP COMMUNICATION TABLE FORMAT                                                                       PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    504+*****************************************************                   HC011000
                                    505+*   $VERSION *            *            *            *                   HC012000
                                    506+*                                                   *                   HC013000
                                    507+*                   HASP VERSION                    *                   HC014000
                                    508+*            *            *            *            *                   HC015000
                                    509+*****************************************************                   HC016000
                                    510+*            *            *            *            *                   HC017000
                                    511+*                                                   *                   HC018000

                                    512+*             HASP VERSION (CONTINUED)              *                   HC019000
                                    513+*            *            *            *            *                   HC020000

                                    514+*****************************************************      *            HC020010
                                    515+*   $HVTEXCP *            *            *            *     ***           HC020020
                                    516+*                                                   *    *****          HC020030
                                    517+*           IOS PSEUDO DEVICE EXIT ADDRESS          *      *            HC020040
                                    518+*            *            *            *            *      *            HC020050

                                    519+*****************************************************      *            HC020060
                                    520+*            *            *            *            *      *            HC020070
                                    521+*                                                   *      *            HC020080
                                    522+*              INTERPRETTER EXIT ADDRESS            *      *            HC020090
                                    523+*            *            *            *            *      *            HC020100
                                    524+*****************************************************      *            HC020110
                                    525+*            *            *            *            *      *            HC020120
                                    526+*                                                   *      *            HC020130
                                    527+*                  MGCR EXIT ADDRESS                *      *            HC020140
                                    528+*            *            *            *            *      *            HC020150
                                    529+*****************************************************      *            HC020160
                                    530+*            *            *            *            *      *            HC020170

                                    531+*                                                   *      *            HC020180
                                    532+*              WTO(R)/WTL EXIT 1 ADDRESS            *      *            HC020190
                                    533+*            *            *            *            *      *            HC020200

                                    534+*****************************************************      *            HC020210
                                    535+*            *            *            *            *      *            HC020220
                                    536+*                                                   *      *            HC020230
                                    537+*                WTO(R) EXIT 2 ADDRESS              *                   HC020240
                                    538+*            *            *            *            *    HASP           HC020250
                                    539+*****************************************************   VECTOR          HC020260
                                    540+*            *            *            *            *    TABLE          HC020270
                                    541+*                                                   *                   HC020280
                                    542+*             JOB INITIATION EXIT ADDRESS           *      *            HC020290

                                    543+*            *            *            *            *      *            HC020300

                                    544+*****************************************************      *            HC020310
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    547+*****************************************************      *            HC020340
                                    548+*            *            *            *            *      *            HC020350
                                    549+*                                                   *      *            HC020360
                                    550+*            STEP INITIATION EXIT ADDRESS           *      *            HC020370
                                    551+*            *            *            *            *      *            HC020380
                                    552+*****************************************************      *            HC020390
                                    553+*            *            *            *            *      *            HC020400
                                    554+*                                                   *      *            HC020410
                                    555+*              TERMINATION EXIT ADDRESS             *      *            HC020420
                                    556+*            *            *            *            *      *            HC020430

                                    557+*****************************************************      *            HC020440

                                    558+*            *            *            *            *      *            HC020450
                                    559+*                                                   *      *            HC020460
                                    560+*           TSO STATUS/CANCEL EXIT ADDRESS          *      *            HC020470
                                    561+*            *            *            *            *      *            HC020480

                                    562+*****************************************************      *            HC020490
                                    563+*   $EXITNOP *            *            *            *      *            HC020500
                                    564+*                                                   *      *            HC020510
                                    565+*      EXIT NOP RETURN    SR R15,R15   BR R14       *    *****          HC020520
                                    566+*            *            *            *            *     ***           HC020530
                                    567+*****************************************************      *            HC020540
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    570+*****************************************************                   HC021000

                                    571+*   $WAIT    *            *            *            *                   HC022000
                                    572+*                                                   *                   HC023000
                                    573+*             ENTRY TO HASP DISPATCHER              *                   HC024000
                                    574+*            *            *            *            *                   HC025000

                                    575+*****************************************************                   HC026000
                                    576+*   $GETBUF  *            *            *            *                   HC027000
                                    577+*                                                   *                   HC028000
                                    578+*        ENTRY TO HASP BUFFER 'GET' ROUTINE         *                   HC029000
                                    579+*            *            *            *            *                   HC030000
                                    580+*****************************************************                   HC031000
                                    581+*   $GETPBUF *            *            *            *                   HC032000
                                    582+*                                                   *                   HC033000
                                    583+*      ENTRY TO HASP RJE BUFFER 'GET' ROUTINE       *                   HC034000
                                    584+*            *            *            *            *                   HC035000
                                    585+*****************************************************                   HC036000
                                    586+*   $FREEBUF *            *            *            *                   HC037000

                                    587+*                                                   *                   HC038000
                                    588+*        ENTRY TO HASP BUFFER 'FREE' ROUTINE        *                   HC039000
                                    589+*            *            *            *            *                   HC040000

                                    590+*****************************************************                   HC041000
                                    591+*   $GETUNIT *            *            *            *                   HC042000
                                    592+*                                                   *                   HC043000
                                    593+*         ENTRY TO HASP UNIT 'GET' ROUTINE          *                   HC044000
                                    594+*            *            *            *            *                   HC045000
                                    595+*****************************************************                   HC046000
                                    596+*   $FREUNIT *            *            *            *                   HC047000
                                    597+*                                                   *                   HC048000
                                    598+*         ENTRY TO HASP UNIT 'FREE' ROUTINE         *                   HC049000
                                    599+*            *            *            *            *                   HC050000
                                    600+*****************************************************                   HC051000
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   21



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78








                                    603+*****************************************************                   HC054000
                                    604+*   $QADD    *            *            *            *                   HC055000
                                    605+*                                                   *                   HC056000
                                    606+*   ENTRY TO HASP JOB QUEUE ELEMENT 'ADD' ROUTINE   *                   HC057000
                                    607+*            *            *            *            *                   HC058000
                                    608+*****************************************************                   HC059000
                                    609+*   $QGET    *            *            *            *                   HC060000
                                    610+*                                                   *                   HC061000
                                    611+*   ENTRY TO HASP JOB QUEUE ELEMENT 'GET' ROUTINE   *                   HC062000
                                    612+*            *            *            *            *                   HC063000
                                    613+*****************************************************                   HC064000
                                    614+*   $QPUT    *            *            *            *                   HC065000

                                    615+*                                                   *                   HC066000
                                    616+*   ENTRY TO HASP JOB QUEUE ELEMENT 'PUT' ROUTINE   *                   HC067000

                                    617+*            *            *            *            *                   HC068000

                                    618+*****************************************************                   HC069000
                                    619+*   $QREM    *            *            *            *                   HC070000
                                    620+*                                                   *                   HC071000
                                    621+* ENTRY TO HASP JOB QUEUE ELEMENT 'REMOVE' ROUTINE  *                   HC072000
                                    622+*            *            *            *            *                   HC073000
                                    623+*****************************************************                   HC074000
                                    624+*   $QSIZ    *            *            *            *                   HC075000
                                    625+*                                                   *                   HC076000
                                    626+*      ENTRY TO HASP JOB QUEUE 'SIZE' ROUTINE       *                   HC077000
                                    627+*            *            *            *            *                   HC078000
                                    628+*****************************************************                   HC079000
                                    629+*   $QLOC    *            *            *            *                   HC080000

                                    630+*                                                   *                   HC081000
                                    631+* ENTRY TO HASP JOB QUEUE ELEMENT 'LOCATE' ROUTINE  *                   HC082000
                                    632+*            *            *            *            *                   HC083000

                                    633+*****************************************************                   HC084000
                                    634+*   $QJITLOC *            *            *            *                   HC085000
                                    635+*                                                   *                   HC086000
                                    636+*    ENTRY TO HASP JIT ELEMENT 'LOCATE' ROUTINE     *                   HC087000
                                    637+*            *            *            *            *                   HC088000
                                    638+*****************************************************                   HC088250
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    641+*****************************************************                   HC089000
                                    642+*   $TRACK   *            *            *            *                   HC090000

                                    643+*                                                   *                   HC091000
                                    644+*      ENTRY TO HASP TRACK ALLOCATION ROUTINE       *                   HC092000
                                    645+*            *            *            *            *                   HC093000
                                    646+*****************************************************                   HC097000

                                    647+*   $PURGER  *            *            *            *                   HC098000
                                    648+*                                                   *                   HC099000
                                    649+*        ENTRY TO HASP TRACK PURGE ROUTINE          *                   HC100000
                                    650+*            *            *            *            *                   HC101000
                                    651+*****************************************************                   HC102000
                                    652+*   $EXCP    *            *            *            *                   HC103000

                                    653+*                                                   *                   HC104000
                                    654+*       ENTRY TO HASP INPUT/OUTPUT SUPERVISOR       *                   HC105000
                                    655+*            *            *            *            *                   HC106000
                                    656+*****************************************************                   HC107000
                                    657+*   $EXTPOPE *            *            *            *                   HC108000
                                    658+*                                                   *                   HC109000
                                    659+*          ENTRY TO HASP RTAM OPEN ROUTINE          *                   HC110000
                                    660+*            *            *            *            *                   HC111000

                                    661+*****************************************************                   HC112000
                                    662+*   $EXTPGET *            *            *            *                   HC113000

                                    663+*                                                   *                   HC114000
                                    664+*          ENTRY TO HASP RTAM GET ROUTINE           *                   HC115000
                                    665+*            *            *            *            *                   HC116000
                                    666+*****************************************************                   HC117000
                                    667+*   $EXTPPUT *            *            *            *                   HC118000
                                    668+*                                                   *                   HC119000
                                    669+*          ENTRY TO HASP RTAM PUT ROUTINE           *                   HC120000
                                    670+*            *            *            *            *                   HC121000

                                    671+*****************************************************                   HC122000
                                    672+*   $EXTPCLO *            *            *            *                   HC123000
                                    673+*                                                   *                   HC124000
                                    674+*         ENTRY TO HASP RTAM CLOSE ROUTINE          *                   HC125000
                                    675+*            *            *            *            *                   HC126000

                                    676+*****************************************************                   HC127000
                                    677+*   $RESTORE *            *            *            *                   HC128000
                                    678+*                                                   *                   HC129000

                                    679+*        ENTRY TO HASP RTAM RESTORE ROUTINE         *                   HC130000
                                    680+*            *            *            *            *                   HC131000
                                    681+*****************************************************                   HC131250
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    684+*****************************************************                   HC132000
                                    685+*   $ODEL    *            *            *            *                   HC133000
                                    686+*                                                   *                   HC134000
                                    687+*         ENTRY TO OVERLAY $DELETE ROUTINE          *                   HC135000
                                    688+*            *            *            *            *                   HC136000

                                    689+*****************************************************                   HC140000
                                    690+*   $ORET    *            *            *            *                   HC141000
                                    691+*                                                   *                   HC142000
                                    692+*         ENTRY TO OVERLAY $RETURN ROUTINE          *                   HC143000

                                    693+*            *            *            *            *                   HC144000
                                    694+*****************************************************                   HC145000
                                    695+*   $OLINK   *            *            *            *                   HC146000
                                    696+*                                                   *                   HC147000
                                    697+*          ENTRY TO OVERLAY $LINK ROUTINE           *                   HC148000
                                    698+*            *            *            *            *                   HC149000

                                    699+*****************************************************                   HC150000
                                    700+*   $OXCTL   *            *            *            *                   HC151000
                                    701+*                                                   *                   HC152000
                                    702+*          ENTRY TO OVERLAY $XCTL ROUTINE           *                   HC153000
                                    703+*            *            *            *            *                   HC154000

                                    704+*****************************************************                   HC155000
                                    705+*   $OLOAD   *            *            *            *                   HC156000
                                    706+*                                                   *                   HC157000
                                    707+*          ENTRY TO OVERLAY $LOAD ROUTINE           *                   HC158000
                                    708+*            *            *            *            *                   HC159000

                                    709+*****************************************************                   HC159250
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    712+*****************************************************                   HC160000
                                    713+*   $WTO     *            *            *            *                   HC161000
                                    714+*                                                   *                   HC162000
                                    715+*      ENTRY TO HASP WRITE-TO-OPERATOR ROUTINE      *                   HC163000
                                    716+*            *            *            *            *                   HC164000

                                    717+*****************************************************                   HC165000
                                    718+*   $FREEMSG *            *            *            *                   HC166000
                                    719+*                                                   *                   HC167000
                                    720+*     ENTRY TO FREE HASP CONSOLE MESSAGE BUFFER     *                   HC168000
                                    721+*            *            *            *            *                   HC168100
                                    722+*****************************************************                   HC168200

                                    723+*    $DOM    *            *            *            *                   HC168300
                                    724+*                                                   *                   HC168400
                                    725+*      ENTRY TO DELETE HASP OPERATOR MESSAGE        *                   HC168500
                                    726+*            *            *            *            *                   HC169000

                                    727+*****************************************************                   HC169100
                                    728+*   $QUESMFB *            *            *            *                   HC169200
                                    729+*                                                   *                   HC169300
                                    730+*     ENTRY TO QUEUE HASP SMF BUFFER ROUTINE        *                   HC169400
                                    731+*            *            *            *            *                   HC169500

                                    732+*****************************************************                   HC169600
                                    733+*   $GETSMFB *            *            *            *                   HC169700
                                    734+*                                                   *                   HC169800
                                    735+*     ENTRY TO REMOVE SMF BUFFER FORM $SMFFREE QUEUE*                   HC169900
                                    736+*            *            *            *            *                   HC169950
                                    737+*****************************************************                   HC170000
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   25



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    740+*****************************************************                   HC170750
                                    741+*   $STIMER  *            *            *            *                   HC171000
                                    742+*                                                   *                   HC172000
                                    743+*     ENTRY TO HASP SET INTERVAL TIMER ROUTINE      *                   HC173000
                                    744+*            *            *            *            *                   HC174000

                                    745+*****************************************************                   HC175000
                                    746+*   $TTIMER  *            *            *            *                   HC176000
                                    747+*                                                   *                   HC177000
                                    748+*     ENTRY TO HASP TEST INTERVAL TIMER ROUTINE     *                   HC178000
                                    749+*            *            *            *            *                   HC179000
                                    750+*****************************************************                   HC180000
                                    751+*   $IOERROR *            *            *            *                   HC184000

                                    752+*                                                   *                   HC185000
                                    753+* ENTRY TO HASP INPUT/OUTPUT ERROR LOGGING ROUTINE  *                   HC186000
                                    754+*            *            *            *            *                   HC187000

                                    755+*****************************************************                   HC188000
                                    756+*   $ERROR   *            *            *            *                   HC189000
                                    757+*                                                   *                   HC190000
                                    758+*     ENTRY TO HASP CATASTROPHIC ERROR ROUTINE      *                   HC191000
                                    759+*            *            *            *            *                   HC192000

                                    760+*****************************************************                   HC193000
                                    761+*   $DISTERR *            *            *            *                   HC194000
                                    762+*                                                   *                   HC195000
                                    763+*      ENTRY TO HASP DISASTROUS ERROR ROUTINE       *                   HC196000
                                    764+*            *            *            *            *                   HC197000
                                    765+*****************************************************                   HC198000
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78








                                    768+*****************************************************                   HC198750
                                    769+*            *   $OPTSTAT *   $STATUS  *   $CURPCE  *                   HC199000
                                    770+*            *            *            *            *                   HC200000
                                    771+*  RESERVED  *    INIT    *    HASP    *   CURRENT  *                   HC201000
                                    772+*            *  OPTIONS   *   STATUS   *    PCE ID  *                   HC202000

                                    773+*****************************************************                   HC203000
                                    774+*   $HASPECF *   MHASPECF *   $XEQACT  *   $ACTIVE  *                   HC204000
                                    775+*            *            *            *            *                   HC205000
                                    776+*MASTER EVENT* RJE EVENT  *  O/S EXEC  *   ACTIVE   *                   HC206000
                                    777+*CNTRL FIELD *CNTRL FIELD *   COUNT    *   COUNT    *                   HC207000
                                    778+*****************************************************                   HC208000
                                    779+*   $ENBALL  *   $DISALL  *   $DISINT  *            *                   HC209000
                                    780+*            *            *            *            *                   HC210000
                                    781+* ENABLE ALL *DISABLE ALL *DISABLE INT *  RESERVED  *                   HC211000

                                    782+*    MASK    *    MASK    * TIMER MASK *            *                   HC212000

                                    783+*****************************************************                   HC213000
                                    784+*   $EXCPCT  *            *   $COMMCT  *            *                   HC219000
                                    785+*                         *                         *                   HC220000
                                    786+*    ACTIVE I/O COUNT     *  ACTIVE COMMAND COUNT   *                   HC221000
                                    787+*            *            *            *            *                   HC222000

                                    788+*****************************************************                   HC223000
                                    789+*   $CKPTRAK *            *            *            *                   HC227000
                                    790+*                         *                         *                   HC228000
                                    791+*     CHECKPOINT TRACK    *          RESERVED       *                   HC229000
                                    792+*            *            *            *            *                   HC230000
                                    793+*****************************************************                   HC231000
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    796+*****************************************************                   HC231750

                                    797+*   $HASPTCB *            *            *            *                   HC232000
                                    798+*                                                   *                   HC233000
                                    799+*        ADDRESS OF HASP TASK CONTROL BLOCK         *                   HC234000
                                    800+*            *            *            *            *                   HC234700

                                    801+*****************************************************                   HC234800
                                    802+*  $HASPECB  *            *            *            *                   HC234900
                                    803+*                                                   *                   HC235000
                                    804+*          COMMON HASP EVENT CONTROL BLOCK          *                   HC235100
                                    805+*            *            *            *            *                   HC235200
                                    806+*****************************************************                   HC235300
                                    807+*  $ASYNCQ   *            *            *            *                   HC235400
                                    808+*                                                   *                   HC235500
                                    809+*          ASYNC I/O COMPLETION QUEUE               *                   HC235600
                                    810+*            *            *            *            *                   HC235700
                                    811+*****************************************************                   HC235800

                                    812+*  $RJECHEQ  *            *            *            *                   HC235900
                                    813+*                                                   *                   HC236000
                                    814+*             RJE I/O COMPLETION QUEUE              *                   HC236100
                                    815+*            *            *            *            *                   HC236200

                                    816+*****************************************************                   HC236300
                                    817+*   $PCEORG  *            *            *            *                   HC237000
                                    818+*                                                   *                   HC238000
                                    819+*  ADDRESS OF FIRST HASP PROCESSOR CONTROL ELEMENT  *                   HC239000
                                    820+*            *            *            *            *                   HC240000
                                    821+*****************************************************                   HC241000
                                    822+*   $BUFPOOL *            *            *            *                   HC242000
                                    823+*                                                   *                   HC243000
                                    824+*      ADDRESS OF FIRST AVAILABLE HASP BUFFER       *                   HC244000
                                    825+*            *            *            *            *                   HC245000
                                    826+*****************************************************                   HC246000
                                    827+*   $TPBPOOL *            *            *            *                   HC247000

                                    828+*                                                   *                   HC248000
                                    829+*    ADDRESS OF FIRST AVAILABLE HASP RJE BUFFER     *                   HC249000
                                    830+*            *            *            *            *                   HC250000

                                    831+*****************************************************                   HC251000
                                    832+*   $DCTPOOL *            *            *            *                   HC252000
                                    833+*                                                   *                   HC253000
                                    834+*    ADDRESS OF FIRST HASP DEVICE CONTROL TABLE     *                   HC254000
                                    835+*            *            *            *            *                   HC255000
                                    836+*****************************************************                   HC255250
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    839+*****************************************************                   HC256000
                                    840+*   $JITABLE *            *            *            *                   HC257000

                                    841+*                                                   *                   HC258000

                                    842+*       ADDRESS OF HASP JOB INFORMATION TABLE       *                   HC259000
                                    843+*            *            *            *            *                   HC260000

                                    844+*****************************************************                   HC260200
                                    845+*  $JOTABLE  *            *            *            *                   HC260400
                                    846+*                                                   *                   HC260600
                                    847+*        ADDRESS OF HASP JOB OUTPUT TABLE           *                   HC260800
                                    848+*            *            *            *            *                   HC261000
                                    849+*****************************************************                   HC261200
                                    850+*   $CYLMAP  *            *            *            *                   HC262000
                                    851+*                                                   *                   HC263000
                                    852+*     ADDRESS OF FIRST HASP CYLINDER MODULE MAP     *                   HC264000
                                    853+*            *            *            *            *                   HC265000
                                    854+*****************************************************                   HC269000
                                    855+*   $TEDADDR *            *            *            *                   HC270000

                                    856+*                                                   *                   HC271000
                                    857+*     ADDRESS OF FIRST TRACK EXTENT DATA TABLE      *                   HC272000

                                    858+*            *            *            *            *                   HC273000

                                    859+*****************************************************                   HC274000
                                    860+*   $DCBLIST *            *            *            *                   HC275000
                                    861+*                                                   *                   HC276000
                                    862+*           ADDRESS OF DIRECT ACCESS DCB            *                   HC277000
                                    863+*            *            *            *            *                   HC278000
                                    864+*****************************************************                   HC278250
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    867+*****************************************************                   HC279000
                                    868+*   $FREEQUE *            *            *            *                   HC280000

                                    869+*                                                   *                   HC281000
                                    870+* ADDRESS OF FIRST FREE HASP CONSOLE MESSAGE BUFFER *                   HC282000
                                    871+*            *            *            *            *                   HC283000

                                    872+*****************************************************                   HC284000
                                    873+*   $BUSYQUE *            *            *            *                   HC285000
                                    874+*                                                   *                   HC286000
                                    875+*      CONSOLE MESSAGE BUFFERS QUEUED FOR I/O       *                   HC287000
                                    876+*            *            *            *            *                   HC288000
                                    877+*****************************************************                   HC289000
                                    878+*   $LOGQUE  *            *            *            *                   HC290000
                                    879+*                                                   *                   HC291000
                                    880+* CONSOLE MESSAGE BUFFERS QUEUED FOR LOG PROCESSOR  *                   HC292000
                                    881+*            *            *            *            *                   HC293000
                                    882+*****************************************************                   HC294000
                                    883+*   $COMMQUE *            *            *            *                   HC295000

                                    884+*                                                   *                   HC296000
                                    885+*    HASP COMMANDS QUEUED FOR COMMAND PROCESSOR     *                   HC297000
                                    886+*            *            *            *            *                   HC297100
                                    887+*****************************************************                   HC297200

                                    888+*  $DOMQUE   *            *            *            *                   HC297300
                                    889+*                                                   *                   HC297400
                                    890+*  CONSOLE MESSAGE BUFFERS AWAITING OPERATOR ACTION *                   HC297500
                                    891+*            *            *            *            *                   HC298000
                                    892+*****************************************************                   HC298100
                                    893+*   $SMFFREE *            *            *            *                   HC298200

                                    894+*                                                   *                   HC298300
                                    895+*     ADDRESS OF FIRST FREE HASP SMF BUFFER         *                   HC298400
                                    896+*            *            *            *            *                   HC298500
                                    897+*****************************************************                   HC298600
                                    898+*   $SMFBUSY *            *            *            *                   HC298700
                                    899+*                                                   *                   HC298800
                                    900+*     HASP SMF BUFFERS QUEUED FOR I/O               *                   HC298900
                                    901+*            *            *            *            *                   HC298950

                                    902+*****************************************************                   HC299000
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   30



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    905+*****************************************************                   HC299750
                                    906+*   $PRCHKPT *            *            *            *                   HC300000
                                    907+*                                                   *                   HC301000
                                    908+*      ADDRESS OF HASP PRINT CHECKPOINT TABLE       *                   HC302000
                                    909+*            *            *            *            *                   HC303000

                                    910+*****************************************************                   HC303200
                                    911+*  $TIMEARG  *            *            *            *                   HC303400
                                    912+*                                                   *                   HC303600
                                    913+*                FAKE SVRB+36 FOR IGC011            *                   HC303800
                                    914+*            *            *            *            *                   HC304000

                                    915+*****************************************************                   HC304200
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    918+*****************************************************      *            HC322000
                                    919+*   $STATENT *            *            *            *     ***           HC323000
                                    920+*                                                   *    *****          HC324000
                                    921+*              ENTRY TO STATUS ROUTINE              *      *            HC325000
                                    922+*            *            *            *            *      *            HC326000

                                    923+*****************************************************                   HC327000
                                    924+*   $TIMENT  *            *            *            *   NUCLEUS         HC328000
                                    925+*                                                   *   ADDRESS         HC329000
                                    926+*               ENTRY TO TIME ROUTINE               *    TABLE          HC330000
                                    927+*            *            *            *            *                   HC331000

                                    928+*****************************************************      *            HC332000
                                    929+*   $XSMFENT *            *            *            *      *            HC333000
                                    930+*                                                   *      *            HC334000
                                    931+*        ENTRY TO SMF EXCP COUNTING ROUTINE         *      *            HC335000

                                    932+*            *            *            *            *      *            HC336000
                                    933+*****************************************************      *            HC337000
                                    934+*   $SVCRSET *            *            *            *      *            HC338000
                                    935+*                                                   *      *            HC339000
                                    936+*          ENTRY TO HASP SVC RESET ROUTINE          *    *****          HC340000
                                    937+*            *            *            *            *     ***           HC341000

                                    938+*****************************************************      *            HC342000
BR1      HASP COMMUNICATION TABLE FORMAT (CONTINUED)                                                           PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    941+*****************************************************      *            HC393000
                                    942+*   $JOBQPTR *            *            *            *     ***           HC394000
                                    943+*                                                   *    *****          HC395000
                                    944+*             ADDRESS OF HASP JOB QUEUE             *      *            HC396000
                                    945+*            *            *            *            *      *            HC397000

                                    946+*****************************************************      *            HC398000
                                    947+*   $JQFREE  *            *            *            *      *            HC399000
                                    948+*                                                   *      *            HC400000
                                    949+*     BEGINNING OF FREE JOB QUEUE ELEMENT CHAIN     *      *            HC401000
                                    950+*            *            *            *            *      *            HC402000

                                    951+*****************************************************      *            HC403000
                                    952+*   $JQENT   *            *            *            *      *            HC404000
                                    953+*                                                   *      *            HC405000
                                    954+*    BEGINNING OF ACTIVE JOB QUEUE ELEMENT CHAIN    *                   HC406000
                                    955+*            *            *            *            *  CHECKPOINT       HC407000

                                    956+*****************************************************     SAVE          HC408000
                                    957+*   $DATAKEY *            *            *            *     AREA          HC419000
                                    958+*                                                   *                   HC420000
                                    959+*          MASTER PERIPHERAL DATA SET KEY           *      *            HC421000
                                    960+*            *            *            *            *      *            HC422000
                                    961+*****************************************************      *            HC423000

                                    962+*   $JOBNO   *            *   $MSGRPNO *            *      *            HC424000
                                    963+*                         *                         *      *            HC425000
                                    964+*     HASP JOB NUMBER     *   LAST CONSOLE TRACK    *      *            HC426000
                                    965+*            *            *            *            *      *            HC427000

                                    966+*****************************************************      *            HC428000
                                    967+*   $DACKPT  *            *            *            *      *            HC429000
                                    968+*            *            *            *            *      *            HC430000
                                    969+*        VARIABLE LENGTH DA CHECKPOINT AREA         *    *****          HC431000
                                    970+*            *            *            *            *     ***           HC432000

                                    971+*****************************************************      *            HC433000
BR1      HASP COMMUNICATION TABLE DSECT                                                                        PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                              973+HCTDSECT DSECT                     HASP COMMUNICATION TABLE DSECT       HC437000


                            00000   975+         USING HCTDSECT,BASE1      ESTABLISH HCT ADDRESSABILITY         HC439000



000000 40E540F44BF0F0F9             977+$VERSION DC    CL8' V 4.009762'         HASP VERSION                    HC441000


                                    979+*                             VS2 - HASP VECTOR TABLE                   HC451050


000008                              981+$HVT     DS    0F                                                       HC451150
000008 00000000                     982+$HVTEXCP DC    V($EXCPSVC)         IOS PSEUDO DEVICE EXIT ADDRESS       HC451200
00000C 00000000                     983+         DC    V(XJCLSCAN)         INTERPRETTER EXIT ADDRESS            HC451250
000010 00000000                     984+         DC    V($MGCRSVC)         MGCR EXIT ADDRESS                    HC451300

000014 00000000                     985+         DC    V($WTOSVC)          WTO(R)/WTL EXIT 1 ADDRESS            HC451350
000018 00000000                     986+         DC    V($WTOSVC2)         WTO(R) EXIT 2 ADDRESS                HC451400
00001C 0000002C                     987+         DC    A($EXITNOP)         JOB INITIATION EXIT ADDRESS          HC451450
000020 0000002C                     988+         DC    A($EXITNOP)         STEP INITIATION EXIT ADDRESS         HC451500
000024 00000000                     989+         DC    V(XTERMSMF)         TERMINATION EXIT ADDRESS             HC451550
000028 00000000                     990+         DC    V($TSOCOMM)         TSO STATUS/CANCEL EXIT ADDRESS       HC451600


00002C 1BFF                         992+$EXITNOP SR    R15,R15             R15 = RC = 0                         HC451750
00002E 07FE                         993+         BR    R14                 RETURN                               HC451800



                                    995+*                             ENTRY TO HASP DISPATCHER                  HC452000

000030 47F0 B030      00030         997+$WAIT    B     *                                                        HN016000


                                    999+*                             ENTRIES TO HASP BUFFER SERVICES           HC456000


000034 47F0 B034      00034        1001+$GETBUF  B     *                                                        HN016000
000038 47F0 B038      00038        1002+$GETPBUF B     *                                                        HN016000
00003C 47F0 B03C      0003C        1003+$FREEBUF B     *                                                        HN016000


                                   1005+*                             ENTRIES TO HASP UNIT SERVICES             HC462000

000040 47F0 B040      00040        1007+$GETUNIT B     *                                                        HN016000

000044 47F0 B044      00044        1008+$FREUNIT B     *                                                        HN016000



                                   1010+*                             ENTRIES TO HASP JOB QUEUE SERVICES        HC467000

000048 47F0 B048      00048        1012+$QADD    B     *                                                        HN016000
00004C 47F0 B04C      0004C        1013+$QGET    B     *                                                        HN016000
000050 47F0 B050      00050        1014+$QPUT    B     *                                                        HN016000

000054 47F0 B054      00054        1015+$QREM    B     *                                                        HN016000
000058 47F0 B058      00058        1016+$QSIZ    B     *                                                        HN016000
00005C 47F0 B05C      0005C        1017+$QLOC    B     *                                                        HN016000
000060 47F0 B060      00060        1018+$QJITLOC B     *                                                        HN016000
BR1      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1020+*                             ENTRIES TO DIRECT ACCESS SPACE SERVICES   HC477000

000064 47F0 B064      00064        1022+$TRACK   B     *                                                        HN016000

000068 47F0 B068      00068        1023+$PURGER  B     *                                                        HN016000



                                   1025+*                             ENTRIES TO HASP INPUT/OUTPUT SERVICES     HC482000

00006C 47F0 B06C      0006C        1027+$EXCP    B     *                                                        HN016000
000070 47F0 B070      00070        1028+$EXTPOPE B     *                                                        HN016000

000074 47F0 B074      00074        1029+$EXTPGET B     *                                                        HN016000
000078 47F0 B078      00078        1030+$EXTPPUT B     *                                                        HN016000
00007C 47F0 B07C      0007C        1031+$EXTPCLO B     *                                                        HN016000
000080 47F0 B080      00080        1032+$RESTORE B     *                                                        HN016000


                                   1034+*                             ENTRIES TO HASP OVERLAY SERVICES          HC491000

000084 47F0 B084      00084        1036+$ODEL    B     *                                                        HN016000
000088 47F0 B088      00088        1037+$ORET    B     *                                                        HN016000
00008C 47F0 B08C      0008C        1038+$OLINK   B     *                                                        HN016000

000090 47F0 B090      00090        1039+$OXCTL   B     *                                                        HN016000

000094 47F0 B094      00094        1040+$OLOAD   B     *                                                        HN016000


                                   1042+*                             ENTRIES TO HASP CONSOLE SERVICES          HC499000


000098 47F0 B098      00098        1044+$WTO     B     *                                                        HN016000
00009C 47F0 B09C      0009C        1045+$FREEMSG B     *                                                        HN016000
0000A0 47F0 B0A0      000A0        1046+$DOM     B     *                                                        HN016000


                                   1048+*                             ENTRIES TO HASP SMF BUFFER SERVICES       HC503200

0000A4 47F0 B0A4      000A4        1050+$QUESMFB B     *                                                        HN016000
0000A8 47F0 B0A8      000A8        1051+$GETSMFB B     *                                                        HN016000


                                   1053+*                             ENTRIES TO HASP INTERVAL TIMER SERVICES   HC504000


0000AC 47F0 B0AC      000AC        1055+$STIMER  B     *                                                        HN016000
0000B0 47F0 B0B0      000B0        1056+$TTIMER  B     *                                                        HN016000


                                   1058+*                             ENTRIES TO HASP ERROR SERVICES            HC509000


0000B4 47F0 B0B4      000B4        1060+$IOERROR B     *                                                        HN016000
0000B8 47F0 B0B8      000B8        1061+$ERROR   B     *                                                        HN016000
0000BC 47F0 B0BC      000BC        1062+$DISTERR B     *                                                        HN016000
BR1      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0000C0 00                          1064+         DC    AL1(0)              RESERVED                             HC515000
0000C1 00                          1065+$OPTSTAT DC    AL1(*-*)            HASP INITIALIZATION OPTIONS          HC516000
0000C2 00                          1066+$STATUS  DC    AL1(*-*)            HASP SYSTEM STATUS                   HC517000
0000C3 00                          1067+$CURPCE  DC    AL1(*-*)            CURRENT PCE ID                       HC518000
0000C4 00                          1068+$HASPECF DC    AL1(*-*)            MASTER EVENT CONTROL FIELD           HC519000
0000C5 00                          1069+MHASPECF DC    AL1(*-*)            LINE MANAGER EVENT CONTROL FIELD     HC520000

0000C6 00                          1070+$XEQACT  DC    AL1(*-*)            COUNT OF JOBS IN O/S EXECUTION       HC521000
0000C7 00                          1071+$ACTIVE  DC    AL1(*-*)            COUNT OF ACTIVE FUNCTIONS            HC522000
0000C8 FF                          1072+$ENBALL  DC    X'FF'               ENABLE ALL MASK                      HC523000

0000C9 00                          1073+$DISALL  DC    X'00'               DISABLE ALL MASK                     HC524000
0000CA FE                          1074+$DISINT  DC    X'FE'               DISABLE INTERVAL TIMER MASK          HC525000
0000CB 00                          1075+         DC    X'00'               RESERVED                             HC526000
0000CC 0000                        1076+$EXCPCT  DC    Y(*-*)              ACTIVE HASP I/O COUNT                HC531000
0000CE 0040                        1077+$COMMCT  DC    Y(64)                     ACTIVE HASP COMMAND COUNT      HC532000
0000D0 0000                        1078+$CKPTRAK DC    Y(*-*)              HASP CHECKPOINT TRACK ADDRESS        HC533000
0000D2 0000                        1079+         DC    Y(0)                RESERVED                             HC534000
0000D4 00000000                    1080+$HASPTCB DC    A(*-*)              ADDRESS OF HASP TASK CONTROL BLOCK   HC535000
0000D8 00000000                    1081+$HASPECB DC    F'0'                COMMON HASP ECB                      HC535200
0000DC 00000000                    1082+$ASYNCQ  DC    A(0)                ASYNC I/O COMPLETION QUEUE           HC535400
0000E0 00000000                    1083+$RJECHEQ DC    A(0)                RJE I/O COMPLETION QUEUE             HC535600
                                   1084+*                                  ADDRESS OF FIRST HASP PCE            HC536000

0000E4 00000000                    1085+$PCEORG  DC    A(*-*)                                                   HN010000

0000E8 00000000                    1086+$BUFPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE HASP BUFFER HC538000
0000EC 00000000                    1087+$TPBPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE RJE BUFFER  HC539000

0000F0 00000000                    1088+$DCTPOOL DC    A(*-*)              ADDRESS OF FIRST HASP DCT            HC540000
0000F4 00000000                    1089+$JITABLE DC    A(*-*)              ADDRESS OF HASP JOB INFO TABLE       HC541000
0000F8 00000000                    1090+$JOTABLE DC    V($JOT)             ADDRESS OF JOB OUTPUT TABLE          HC541500
0000FC 00000000                    1091+$CYLMAP  DC    A(*-*)              ADDRESS OF FIRST CYLINDER MODULE MAP HC542000
000100 00000000                    1092+$TEDADDR DC    A(*-*)              ADDRESS OF FIRST EXTENT DATA TABLE   HC543000
000104 00000000                    1093+$DCBLIST DC    A(*-*)              ADDRESS OF DIRECT ACCESS DCB         HC544000
000108 00000000                    1094+$FREEQUE DC    A(*-*)              ADDR OF 1ST FREE CONSOLE MSG BUFFER  HC545000
00010C 00000000                    1095+$BUSYQUE DC    A(*-*)              CONSOLE MSG BUFFERS QUEUED FOR I/O   HC546000
000110 00000000                    1096+$LOGQUE  DC    A(*-*)              CMB'S QUEUED FOR LOG PROCESSOR       HC547000
000114 00000000                    1097+$COMMQUE DC    A(*-*)              COMMANDS QUEUED FOR COMMAND PROC     HC548000
000118 00000000                    1098+$DOMQUE  DC    A(*-*)              CMB'S AWAITING ACTION                HC548200
00011C 00000000                    1099+$SMFFREE DC    A(*-*)              ADDR OF 1ST FREE SMF BUFFER          HC548400

000120 00000000                    1100+$SMFBUSY DC    A(*-*)              SMF BUFFERS QUEUED FOR I/O           HC548600
000124 00000000                    1101+$PRCHKPT DC    A(*-*)              ADDRESS OF PRINT CHECKPOINT TABLE    HC549000

000128 00000002                    1102+$TIMEARG DC    F'2'                FAKE SVRB+36 FOR IGC011              HC549500

BR1      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1104+*                             NUCLEUS ADDRESS TABLE                     HC551000

00012C                             1106+$NUCTABL DS    0F                  START OF NUCLEUS ADDRESS TABLE       HC553000
00012C 00000000                    1107+$STATENT DC    A(*-*)              ENTRY TO STATUS ROUTINE              HC554000
000130 00000000                    1108+$TIMENT  DC    A(*-*)              ENTRY TO TIME ROUTINE                HC555000
000134 00000000                    1109+$XSMFENT DC    A(*-*)              ENTRY TO SMF EXCP COUNTING ROUTINE   HC559000
000138 00000000                    1110+$SVCRSET DC    A(*-*)              ENTRY TO HASP SVC RESET ROUTINE      HC560000
                            00010  1111+$NUCLEN  EQU   *-$NUCTABL          LENGTH OF NUCLEUS ADDRESS TABLE      HC561000


                                   1113+*********************************************************************** HC576000

                                   1114+*  ALL VARIABLES LOCATED IN THIS AREA WILL BE REGULARLY CHECKPOINTED  * HC577000
                                   1115+*  BY HASP AND WILL BE RESTORED ON ANY WARM START.....                * HC578000
                                   1116+*                                                                     * HC579000

                                   1117+*                                                                     * HC580000
                                   1118+*                                                                     * HC581000
00013C                             1119+$SAVEBEG DS    0F                  BEGINNING OF SAVE AREA             * HC582000
00013C 00000000                    1120+$JOBQPTR DC    A(*-*)              ADDRESS OF HASP JOB QUEUE          * HC583000
000140 00000000                    1121+$JQFREE  DC    A(*-*)              BEGINNING OF FREE QUEUE CHAIN      * HC584000
000144 00000000                    1122+$JQENT   DC    A(*-*)              BEGINNING OF ACTIVE QUEUE CHAIN    * HC585000
000148 00000000                    1123+$DATAKEY DC    F'0'                MASTER PERIPHERAL DATA SET KEY     * HC588000
00014C 0000                        1124+$JOBNO   DC    H'0'                HASP JOB NUMBER                    * HC589000
00014E 0000                        1125+$MSGRPNO DC    H'0'                LAST CONSOLE MESSAGE TRACK GROUP   * HC590000
000150 0000000000000000            1126+$DACKPT  DC    2XL6'0'             DA CHECKPOINT FOR WARM START       * HC591000
                            0015C  1127+$SAVEEND EQU   *                   END OF SAVE AREA                   * HC592000
                            00020  1128+$SAVELEN EQU   $SAVEEND-$SAVEBEG   LENGTH OF SAVE AREA                * HC593000

                                   1129+*                                                                     * HC594000
                                   1130+*                                                                     * HC595000
                                   1131+*                                                                     * HC596000
                                   1132+*********************************************************************** HC597000

                                   1133+*                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000

00015C                             1135+$NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000
00015C 00000000                    1136+$ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000
000160 00000000                    1137+$SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000
000164 00000000                    1138+$SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000

                            0000C  1139+$NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000


                                   1141+*                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000

000168 00000000                    1143+$IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000
00016C 00000000                    1144+$WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000
000170 00000000                    1145+$LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000
000174 00000000                    1146+$XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000

000178 00000000                    1147+$SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000
00017C 00000000                    1148+$SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000

000180 00000000                    1149+$SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000
000184 00000000                    1150+$SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000
000188 00000000                    1151+$SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000
00018C                             1152+$ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000



BR1      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000002                             1155+HASPBR1  CSECT ,                   END OF HCT DSECT                RFIT HC998000

BR1      HASP PROCESSOR CONTROL ELEMENT FORMAT                                                                 PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1158+*****************************************************                   PC012000

                                   1159+*   PCESAVEA *            *            *            *                   PC014000
                                   1160+*                                                   *                   PC016000
                                   1161+*                  R E S E R V E D                  *                   PC018000

                                   1162+*            *            *            *            *                   PC020000
                                   1163+*****************************************************                   PC022000
                                   1164+*   PCEPREV  *            *            *            *                   PC024000
                                   1165+*                                                   *                   PC026000
                                   1166+*   ADDRESS OF PREVIOUS PROCESSOR CONTROL ELEMENT   *                   PC028000
                                   1167+*            *            *            *            *                   PC030000
                                   1168+*****************************************************                   PC032000

                                   1169+*   PCENEXT  *            *            *            *                   PC034000
                                   1170+*                                                   *                   PC036000
                                   1171+*     ADDRESS OF NEXT PROCESSOR CONTROL ELEMENT     *                   PC038000
                                   1172+*            *            *            *            *                   PC040000
                                   1173+*****************************************************                   PC042000

                                   1174+*   PCELINK  *            *            *            *                   PC044000
                                   1175+*                                                   *                   PC046000
                                   1176+*       PROCESSOR REGISTER 14 (LINK) STORAGE        *                   PC048000
                                   1177+*            *            *            *            *                   PC050000

                                   1178+*****************************************************                   PC052000
                                   1179+*   PCER15   *            *            *            *                   PC054000
                                   1180+*                                                   *                   PC056000
                                   1181+*           PROCESSOR REGISTER 15 STORAGE           *                   PC058000
                                   1182+*            *            *            *            *                   PC060000
                                   1183+*****************************************************                   PC062000

                                   1184+*   PCER0    *            *            *            *                   PC064000
                                   1185+*                                                   *                   PC066000
                                   1186+*           PROCESSOR REGISTER 0 STORAGE            *                   PC068000
                                   1187+*            *            *            *            *                   PC070000
                                   1188+*****************************************************                   PC072000

                                   1189+*   PCER1    *            *            *            *                   PC074000
                                   1190+*                                                   *                   PC076000
                                   1191+*           PROCESSOR REGISTER 1 STORAGE            *                   PC078000
                                   1192+*            *            *            *            *                   PC080000

                                   1193+*****************************************************                   PC082000
                                   1194+*   PCEWA    *            *            *            *                   PC084000
                                   1195+*                                                   *                   PC086000
                                   1196+*         PROCESSOR REGISTER 2 (WA) STORAGE         *                   PC088000
                                   1197+*            *            *            *            *                   PC090000
                                   1198+*****************************************************                   PC092000

BR1      HASP PROCESSOR CONTROL ELEMENT FORMAT (CONTINUED)                                                     PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1201+*****************************************************                   PC098000

                                   1202+*   PCEWB    *            *            *            *                   PC100000
                                   1203+*                                                   *                   PC102000
                                   1204+*         PROCESSOR REGISTER 3 (WB) STORAGE         *                   PC104000
                                   1205+*            *            *            *            *                   PC106000
                                   1206+*****************************************************                   PC108000

                                   1207+*   PCEWC    *            *            *            *                   PC110000
                                   1208+*                                                   *                   PC112000
                                   1209+*         PROCESSOR REGISTER 4 (WC) STORAGE         *                   PC114000
                                   1210+*            *            *            *            *                   PC116000
                                   1211+*****************************************************                   PC118000

                                   1212+*   PCEWD    *            *            *            *                   PC120000
                                   1213+*                                                   *                   PC122000
                                   1214+*         PROCESSOR REGISTER 5 (WD) STORAGE         *                   PC124000
                                   1215+*            *            *            *            *                   PC126000
                                   1216+*****************************************************                   PC128000

                                   1217+*   PCEWE    *            *            *            *                   PC130000
                                   1218+*                                                   *                   PC132000
                                   1219+*         PROCESSOR REGISTER 6 (WE) STORAGE         *                   PC134000
                                   1220+*            *            *            *            *                   PC136000
                                   1221+*****************************************************                   PC138000
                                   1222+*   PCEWF    *            *            *            *                   PC140000

                                   1223+*                                                   *                   PC142000
                                   1224+*         PROCESSOR REGISTER 7 (WF) STORAGE         *                   PC144000
                                   1225+*            *            *            *            *                   PC146000
                                   1226+*****************************************************                   PC148000

                                   1227+*   PCEWG    *            *            *            *                   PC150000
                                   1228+*   PCEBASE3                                        *                   PC152000
                                   1229+*    PROCESSOR REGISTER 8 (WG OR BASE3) STORAGE     *                   PC154000
                                   1230+*            *            *            *            *                   PC156000
                                   1231+*****************************************************                   PC158000

                                   1232+*   PCER9    *            *            *            *                   PC160000
                                   1233+*                                                   *                   PC162000
                                   1234+*           PROCESSOR REGISTER 9 STORAGE            *                   PC164000
                                   1235+*            *            *            *            *                   PC166000
                                   1236+*****************************************************                   PC168000
                                   1237+*   PCEJCT   *            *            *            *                   PC170000
                                   1238+*                                                   *                   PC172000

                                   1239+*        PROCESSOR REGISTER 10 (JCT) STORAGE        *                   PC174000
                                   1240+*            *            *            *            *                   PC176000
                                   1241+*****************************************************                   PC178000

BR1      HASP PROCESSOR CONTROL ELEMENT FORMAT (CONTINUED)                                                     PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1244+*****************************************************                   PC184000

                                   1245+*   PCEBASE1 *            *            *            *                   PC186000
                                   1246+*                                                   *                   PC188000
                                   1247+*       PROCESSOR REGISTER 11 (BASE1) STORAGE       *                   PC190000
                                   1248+*            *            *            *            *                   PC192000
                                   1249+*****************************************************                   PC194000
                                   1250+*   PCEBASE2 *            *            *            *                   PC196000
                                   1251+*                                                   *                   PC198000
                                   1252+*       PROCESSOR REGISTER 12 (BASE2) STORAGE       *                   PC200000

                                   1253+*            *            *            *            *                   PC202000
                                   1254+*****************************************************                   PC204000

                                   1255+*   PCEEWF   *            *   PCEID    *            *                   PC206000
                                   1256+*                         *                         *                   PC208000
                                   1257+*    EVENT WAIT FIELD     *     PROCESSOR TYPE      *                   PC210000
                                   1258+*            *            *            *            *                   PC212000
                                   1259+*****************************************************                   PC214000

                                   1260+*            *   PCEOPRIO *   PCEOCON  *            *                   PC216000
                                   1261+*            *            *                         *                   PC218000
                                   1262+*  RESERVED  *  OVERLAY   *  OVERLAY ROUTINE OCON   *                   PC220000
                                   1263+*            *  PRIORITY  *            *            *                   PC222000
                                   1264+*****************************************************                   PC224000
                                   1265+*   PCEORTRN *            *            *            *                   PC226000
                                   1266+*                                                   *                   PC228000
                                   1267+*            $RETURN PAST $LINK STORAGE             *                   PC230000
                                   1268+*            *            *            *            *                   PC232000

                                   1269+*****************************************************                   PC234000

                                   1270+*   PCEOPCE  *            *            *            *                   PC236000
                                   1271+*                                                   *                   PC238000
                                   1272+*     CHAIN OF PCE'S USING SAME OVERLAY ROUTINE     *                   PC240000
                                   1273+*            *            *            *            *                   PC242000
                                   1274+*****************************************************                   PC244000

                                   1275+*   PCEWORK  *            *            *            *                   PC246000
                                   1276+*                                                   *                   PC248000
                                   1277+*        VARIABLE LENGTH PROCESSOR WORK AREA        *                   PC250000
                                   1278+*            *            *            *            *                   PC252000
                                   1279+*****************************************************                   PC254000
BR1      HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             1282+PCEDSECT DSECT                     PROCESSOR CONTROL ELEMENT DSECT      PC260000





                            00000  1284+         USING PCEDSECT,SAVE       ESTABLISH PCE ADDRESSABILITY         PC264000



000000                             1286+PCESAVEA DS    F                   RESERVED                             PC268000
000004                             1287+PCEPREV  DS    F                   ADDRESS OF PREVIOUS PCE              PC270000

000008                             1288+PCENEXT  DS    F                   ADDRESS OF NEXT PCE                  PC272000
00000C                             1289+PCELINK  DS    F                   REGISTER 14 (LINK) STORAGE           PC274000
000010                             1290+PCER15   DS    F                   REGISTER 15 STORAGE                  PC276000
000014                             1291+PCER0    DS    F                   REGISTER 0 STORAGE                   PC278000
000018                             1292+PCER1    DS    F                   REGISTER 1 STORAGE                   PC280000
00001C                             1293+PCEWA    DS    F                   REGISTER 2 (WA) STORAGE              PC282000
000020                             1294+PCEWB    DS    F                   REGISTER 3 (WB) STORAGE              PC284000
000024                             1295+PCEWC    DS    F                   REGISTER 4 (WC) STORAGE              PC286000
000028                             1296+PCEWD    DS    F                   REGISTER 5 (WD) STORAGE              PC288000
00002C                             1297+PCEWE    DS    F                   REGISTER 6 (WE) STORAGE              PC290000
000030                             1298+PCEWF    DS    F                   REGISTER 7 (WF) STORAGE              PC292000

000034                             1299+PCEWG    DS    0F                  REGISTER 8 (WG) STORAGE              PC294000
000034                             1300+PCEBASE3 DS    F                   REGISTER 8 (BASE3) STORAGE           PC296000
000038                             1301+PCER9    DS    F                   REGISTER 9 STORAGE                   PC298000
00003C                             1302+PCEJCT   DS    F                   REGISTER 10 (JCT) STORAGE            PC300000

000040                             1303+PCEBASE1 DS    F                   REGISTER 11 (BASE1) STORAGE          PC302000
000044                             1304+PCEBASE2 DS    F                   REGISTER 12 (BASE2) STORAGE          PC304000
000048                             1305+PCEEWF   DS    H                   PROCESSOR EVENT WAIT FIELD           PC306000
00004A                             1306+PCEID    DS    H                   PROCESSOR TYPE                       PC308000
00004C                             1307+         DS    C                   RESERVED                             PC310000
00004D                             1308+PCEOPRIO DS    C                   REQUESTED OVERLAY ROUTINE PRIORITY   PC312000
00004E                             1309+PCEOCON  DS    H                   REQUESTED OVERLAY ROUTINE OCON       PC314000
000050                             1310+PCEORTRN DS    F                   $RETURN PAST $LINK STORAGE           PC316000
000054                             1311+PCEOPCE  DS    F                   CHAIN OF PCE'S USING SAME OVERLAY    PC318000
000058                             1312+PCEWORK  DS    0D                  VARIABLE LENGTH PROCESSOR WORK AREA  PC320000
000002                             1313+HASPBR1  CSECT                     END OF PCE DSECT                     PC322000
BR1      HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   42



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1315+*                                                                       PC326000
                                   1316+*                             PROCESSOR CONTROL ELEMENT IDENTIFICATION  PC328000

                                   1317+*                                                                       PC330000





                                   1319+*                                                                       PC334000
                                   1320+*                             BYTE 1                                    PC336000
                                   1321+*                                                                       PC338000



                            00001  1323+PCELCLID EQU   X'01'               LOCAL SPECIAL PCE ID                 PC342000
                            00002  1324+PCERJEID EQU   X'02'               REMOTE SPECIAL PCE ID                PC344000
                            00004  1325+PCEINRID EQU   X'04'               INTERNAL SPECIAL PCE ID              PC346000
                            00080  1326+PCEPRSID EQU   X'80'               PRINT SPECIAL PCE ID                 PC348000
                            00040  1327+PCEPUSID EQU   X'40'               PUNCH SPECIAL PCE ID                 PC350000







                                   1329+*                                                                       PC354000

                                   1330+*                             BYTE 2                                    PC356000
                                   1331+*                                                                       PC358000



                            00000  1333+PCEASYID EQU   0                   ASYNCH PCE ID                        PC362000
                            00001  1334+PCERDRID EQU   1                   INPUT PCE ID                         PC364000
                            00002  1335+PCESETID EQU   2                   SETUP PCE ID                         PC366000
                            00003  1336+PCEXEQID EQU   3                   EXECUTION PCE ID                     PC368000
                            00004  1337+PCETHWID EQU   4                   EXECUTION THAW PCE ID                PC370000
                            00005  1338+PCEXZMID EQU   5                   EXECUTION TASK MONITOR PCE ID        PC372000
                            00006  1339+PCEOUTID EQU   6                   OUTPUT PROCESSOR PCE ID              PC374000
                            00007  1340+PCEPRTID EQU   7                   PRINT PCE ID                         PC376000
                            00008  1341+PCEPUNID EQU   8                   PUNCH PCE ID                         PC378000

                            00009  1342+PCEPRGID EQU   9                   PURGE PCE ID                         PC380000
                            0000A  1343+PCECONID EQU   10                  CONSOLE PCE ID                       PC382000

                            0000B  1344+PCEMLMID EQU   11                  LINE MANAGER PCE ID                  PC384000

                            0000C  1345+PCETIMID EQU   12                  TIMER PCE ID                         PC386000
                            0000D  1346+PCECKPID EQU   13                  CHECKPOINT PCE ID                    PC388000
                            0000E  1347+PCEGPRID EQU   14                  PRIORITY AGING PCE ID                PC390000
BR1      HASP BUFFER FORMAT                                                                                    PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1350+*****************************************************                   BU014000
                                   1351+*   IOBFLAG1 *   IOBFLAG2 *   IOBSENS0 *   IOBSENS1 *                   BU016000
                                   1352+*            *            *                         *                   BU018000
                                   1353+* I/O FLAGS  * I/O FLAGS  *  FIRST TWO SENSE BYTES  *                   BU020000
                                   1354+*            *            *            *            *                   BU022000

                                   1355+*****************************************************                   BU024000
                                   1356+*   IOBECBPT *            *            *            *                   BU026000
                                   1357+*   IOBECBCC *                                      *                   BU028000

                                   1358+*I/O COMPLE- * ADDRESS OF HASP EVENT CONTROL BLOCK  *                   BU030000
                                   1359+* TION CODE  *            *            *            *                   BU032000
                                   1360+*****************************************************                   BU034000
                                   1361+*   IOBFLAG3 *    IOBCSW  *     +1     *     +2     *                   BU036000
                                   1362+*            *                                      *                   BU038000
                                   1363+* I/O FLAGS  *         CHANNEL STATUS WORD          *                   BU040000
                                   1364+*            *   BYTE 2   *   BYTE 3   *   BYTE 4   *                   BU042000
                                   1365+*****************************************************                   BU044000
                                   1366+*     +3     *     +4     *     +5     *     +6     *                   BU046000
                                   1367+*                                                   *                   BU048000
                                   1368+*          CHANNEL STATUS WORD (CONTINUED)          *                   BU050000
                                   1369+*   BYTE 5   *   BYTE 6   *   BYTE 7   *   BYTE 8   *                   BU052000

                                   1370+*****************************************************                   BU054000
                                   1371+*   IOBSTART *            *            *            *                   BU056000
                                   1372+*   IOBSIOCC *                                      *                   BU058000
                                   1373+* SIO CONDI- *      ADDRESS OF CHANNEL PROGRAM      *                   BU060000

                                   1374+*  TION CODE *            *            *            *                   BU062000
                                   1375+*****************************************************                   BU064000
                                   1376+*   IOBDCBPT *            *            *            *                   BU066000
                                   1377+*                                                   *                   BU068000
                                   1378+*           ADDRESS OF DATA CONTROL BLOCK           *                   BU070000
                                   1379+*            *            *            *            *                   BU072000

                                   1380+*****************************************************                   BU074000
                                   1381+*   IOBRESTR *            *            *            *                   BU076000
                                   1382+*   IOBREPM  *                                      *                   BU078000
                                   1383+* REPOSITION *  RESTART ADDRESS OF CHANNEL PROGRAM  *                   BU080000
                                   1384+*  MODIFIER  *            *            *            *                   BU082000
                                   1385+*****************************************************                   BU084000
                                   1386+*   IOBINCAM *            *   IOBERRCT *            *                   BU086000
                                   1387+*   TPBMXREC *    BLOCK   *                         *                   BU088000

                                   1388+* REMOTE MAX *    COUNT   *       ERROR COUNT       *                   BU090000
                                   1389+*RECORD COUNT*  INCREMENT *            *            *                   BU092000

                                   1390+*****************************************************                   BU094000
BR1      HASP BUFFER FORMAT (CONTINUED)                                                                        PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1393+*****************************************************                   BU100000
                                   1394+*   IOBXTENT *   IOBSEEK  *     +1     *     +2     *                   BU102000
                                   1395+*   TPBLCCAD *      DIRECT ACCESS SEEK ADDRESS      *                   BU104000

                                   1396+*   TPBLCCC  * ADDR OF LAST REMOTE CARRIAGE CONTROL *                   BU106000
                                   1397+*LAST CAR CTL*            *            *            *                   BU108000
                                   1398+*****************************************************                   BU110000
                                   1399+*     +3     *     +4     *     +5     *     +6     *                   BU112000
                                   1400+*   TPBFDATA *DIRECT ACCESS SEEK ADDRESS (CONTINUED)*                   BU114000

                                   1401+*   TPBRECNT *         REMOTE DATA POINTER          *                   BU116000
                                   1402+*RECORD COUNT*            *            *            *                   BU118000
                                   1403+*****************************************************                   BU120000

                                   1404+*   BUFCHAIN *            *            *            *                   BU122000
                                   1405+*   BUFECBCC *                                      *                   BU124000
                                   1406+*I/O COMPLE- *          BUFFER CHAIN FIELD          *                   BU126000
                                   1407+* TION CODE  *            *            *            *                   BU128000
                                   1408+*****************************************************                   BU130000
                                   1409+*   BUFDCT   *            *            *            *                   BU132000
                                   1410+*   BUFTYPE  *                                      *                   BU134000

                                   1411+*BUFFER TYPE *   ADDRESS OF DEVICE CONTROL TABLE    *                   BU136000
                                   1412+*            *            *            *            *                   BU138000
                                   1413+*****************************************************                   BU140000
                                   1414+*   BUFEWF   *            *            *            *                   BU142000
                                   1415+*            *                                      *                   BU144000

                                   1416+* EWF FLAGS  *   EVENT WAIT FIELD OR POST ADDRESS   *                   BU146000
                                   1417+*            *            *            *            *                   BU148000
                                   1418+*****************************************************                   BU150000

                                   1419+*   OACECHN  *       OVERLAY AREA CHAIN WORD        *                   BU152000
                                   1420+*   BUFDDB   *            ADDRESS OF DDB            *                   BU154000
                                   1421+*   LCBMCB   *   LCBACK   *   LCBRCB   *            *                   BU156000
                                   1422+* MODE BYTE  *  NEXT ACK  * RESPONSE CONTROL BLOCK  *                   BU158000
                                   1423+*****************************************************                   BU160000
                                   1424+*   IOBCCW1  *     +1     *     +2     *     +3     *                   BU162000
                                   1425+*                                                   *                   BU164000

                                   1426+*              CHANNEL COMMAND WORD 1               *                   BU166000
                                   1427+*COMMAND CODE* DATA ADDR. * DATA ADDR. * DATA ADDR. *                   BU168000
                                   1428+*****************************************************                   BU170000
                                   1429+*     +4     *     +5     *     +6     *     +7     *                   BU172000
                                   1430+*            *   MSEQTYPE *                         *                   BU174000

                                   1431+*        CHANNEL COMMAND WORD 1 (CONTINUED)         *                   BU176000
                                   1432+*   FLAGS    *SEQ/COM TYPE*   COUNT    *   COUNT    *                   BU178000
                                   1433+*****************************************************                   BU180000
BR1      HASP BUFFER FORMAT (CONTINUED)                                                                        PAGE   45



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1436+*****************************************************                   BU186000
                                   1437+*   IOBCCW2  *            *            *            *                   BU188000
                                   1438+*                                                   *                   BU190000

                                   1439+*              CHANNEL COMMAND WORD 2               *                   BU192000
                                   1440+*            *            *            *            *                   BU194000
                                   1441+*****************************************************                   BU196000
                                   1442+*            *            *            *            *                   BU196100
                                   1443+*                                                   *                   BU196300

                                   1444+*        CHANNEL COMMAND WORD 2 (CONTINUED)         *                   BU196500
                                   1445+*            *            *            *            *                   BU196700
                                   1446+*****************************************************                   BU196900
                                   1447+*   IOBCCW3  *            *            *            *                   BU197100
                                   1448+*                                                   *                   BU197300

                                   1449+*              CHANNEL COMMAND WORD 3               *                   BU197500
                                   1450+*            *            *            *            *                   BU197700
                                   1451+*****************************************************                   BU197900
                                   1452+*            *   OACEPRIO *   OACEOCON *            *                   BU198000
                                   1453+*            *            *                         *                   BU200000

                                   1454+*  RESERVED  *  OVERLAY   *  OVERLAY CALL CONSTANT  *                   BU202000
                                   1455+*            *  PRIORITY  *            *            *                   BU204000
                                   1456+*****************************************************                   BU206000
                                   1457+*   IOBCCW4  *            *            *            *                   BU208000
                                   1458+*                                                   *                   BU210000

                                   1459+*              CHANNEL COMMAND WORD 4               *                   BU212000
                                   1460+*            *            *            *            *                   BU214000
                                   1461+*****************************************************                   BU216000
                                   1462+*            *            *            *            *                   BU218000
                                   1463+*                                                   *                   BU220000
                                   1464+*        CHANNEL COMMAND WORD 4 (CONTINUED)         *                   BU222000

                                   1465+*            *            *            *            *                   BU224000
                                   1466+*****************************************************                   BU226000
                                   1467+*   BUFSTART *            *            *            *                   BU228000
                                   1468+*                                                   *                   BU230000

                                   1469+*              VARIABLE LENGTH BUFFER               *                   BU232000
                                   1470+*            *            *            *            *                   BU234000
                                   1471+*****************************************************                   BU236000
BR1      HASP BUFFER FORMAT (CONTINUED)                                                                        PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   1474+*****************************************************                   BU240000
                                   1475+*   HDBNXTRK *            *            *            *                   BU242000
                                   1476+*   NOTE -- THIS WORD IS SYNONYMOUS WITH BUFSTART   *                   BU244000
                                   1477+*            HASP DATA BLOCK CHAIN TRACK            *                   BU246000
                                   1478+*            *            *            *            *                   BU248000

                                   1479+*****************************************************                   BU250000
                                   1480+*   HDBDSKEY *            *            *            *                   BU250200
                                   1481+*                                                   *                   BU250600

                                   1482+*           HASP DATA BLOCK DATA SET KEY            *                   BU251000
                                   1483+*            *            *            *            *                   BU251400
                                   1484+*****************************************************                   BU251800
                                   1485+*   HDBSTART *            *            *            *                   BU252000
                                   1486+*                                                   *                   BU254000

                                   1487+*               HASP DATA BLOCK START               *                   BU256000
                                   1488+*            *            *            *            *                   BU258000
                                   1489+*****************************************************                   BU260000
BR1      HASP OVERLAY AREA FORMAT                                                                              PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1492+*****************************************************                   BU390000

                                   1493+*   OACENAME *            *            *            *                   BU392000
                                   1494+*   NOTE -- THIS WORD IS SYNONYMOUS WITH BUFSTART   *                   BU394000

                                   1495+*              NAME OF OVERLAY ROUTINE              *                   BU396000
                                   1496+*            *            *            *            *                   BU398000
                                   1497+*****************************************************                   BU400000
                                   1498+*   OACEASMO *            *            *            *                   BU402000
                                   1499+*                                                   *                   BU404000

                                   1500+*        ASSEMBLY ORIGIN OF OVERLAY ROUTINE         *                   BU406000
                                   1501+*            *            *            *            *                   BU408000
                                   1502+*****************************************************                   BU410000
                                   1503+*   OACEPROG *            *            *            *                   BU412000
                                   1504+*                                                   *                   BU414000
                                   1505+*          ENTRY POINT OF OVERLAY ROUTINE           *                   BU416000
                                   1506+*            *            *            *            *                   BU418000
                                   1507+*****************************************************                   BU420000
                                   1508+*            *            *            *            *                   BU422000

                                   1509+*                                                   *                   BU424000

                                   1510+*           VARIABLE LENGTH OVERLAY AREA            *                   BU426000
                                   1511+*            *            *            *            *                   BU428000
                                   1512+*****************************************************                   BU430000
                                   1513+*   OACEPCE  *            *            *            *                   BU432000
                                   1514+*                                                   *                   BU434000

                                   1515+*         CHAIN OF PCE'S USING OVERLAY AREA         *                   BU436000
                                   1516+*            *            *            *            *                   BU438000
                                   1517+*****************************************************                   BU440000
BR1      HASP BUFFER DSECT                                                                                     PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             1519+BUFDSECT DSECT                     BUFFER DSECT                         BU444000
000000                             1520+IOBFLAG1 DS    C                   I/O FLAGS                            BU446000
000001                             1521+IOBFLAG2 DS    C                   I/O FLAGS                            BU448000
000002                             1522+IOBSENS0 DS    C                   FIRST SENSE BYTE                     BU450000
000003                             1523+IOBSENS1 DS    C                   SECOND SENSE BYTE                    BU452000

000004                             1524+IOBECBCC DS    0C                  I/O COMPLETION CODE                  BU454000

000004                             1525+IOBECBPT DS    F                   ADDRESS OF HASP EVENT CONTROL BLOCK  BU456000
000008                             1526+IOBFLAG3 DS    C                   I/O FLAGS                            BU458000
000009                             1527+IOBCSW   DS    CL7                 CHANNEL STATUS WORD                  BU460000
000010                             1528+IOBSIOCC DS    0C                  SIO CONDITION CODE                   BU462000

000010                             1529+IOBSTART DS    F                   ADDRESS OF CHANNEL PROGRAM           BU464000
000014                             1530+IOBDCBPT DS    F                   ADDRESS OF DATA CONTROL BLOCK        BU466000
000018                             1531+IOBREPM  DS    0C                  REPOSITION MODIFIER                  BU468000
000018                             1532+IOBRESTR DS    F                   RESTART ADDRESS OF CHANNEL PROGRAM   BU470000
00001C                             1533+TPBMXREC DS    0C                  MAXIMUM RJE OUTPUT RECORD COUNT      BU472000
00001C                             1534+IOBINCAM DS    H                   BLOCK COUNT INCREMENT                BU474000
00001E                             1535+IOBERRCT DS    H                   ERROR COUNT                          BU476000
000020                             1536+TPBLCCC  DS    0C                  LAST REMOTE OUTPUT COMMAND OP.       BU478000
000020                             1537+TPBLCCAD DS    0F                  ADDR OF LAST REMOTE CARRIAGE CONTROL BU480000
000020                             1538+IOBXTENT DS    C                   DEB EXTENT                           BU482000
000021                             1539+IOBSEEK  DS    0CL7,3C             DIRECT ACCESS SEEK ADDRESS           BU484000

000024                             1540+TPBRECNT DS    0C                  CURRENT REMOTE OUTPUT RECORD COUNT   BU486000
000024                             1541+TPBFDATA DS    F                   REMOTE DATA POINTER                  BU488000
000028                             1542+BUFECBCC DS    0C                  I/O COMPLETION CODE                  BU490000
000028                             1543+BUFCHAIN DS    F                   BUFFER CHAIN FIELD                   BU492000

00002C                             1544+BUFTYPE  DS    0C                  BUFFER TYPE                          BU494000
00002C                             1545+BUFDCT   DS    F                   ADDRESS OF DEVICE CONTROL TABLE      BU496000
000030                             1546+BUFEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     BU498000
000034                             1547+OACECHN  DS    0F                  OVERLAY AREA CHAIN WORD              BU500000
000034                             1548+BUFDDB   DS    0F                  DDB ADDRESS                          BU501000
000034                             1549+LCBMCB   DS    C                   REMOTE MODE BYTE                     BU502000
000035                             1550+LCBACK   DS    C                   REMOTE NEXT ACKNOWLEDGEMENT          BU504000
000036                             1551+LCBRCB   DS    H                   REMOTE RESPONSE CONTROL BLOCK        BU506000
000038                             1552+IOBCCW1  DS    D                   CHANNEL COMMAND WORD 1               BU508000
000040                             1553+IOBCCW2  DS    D                   CHANNEL COMMAND WORD 2               BU510000
000048                             1554+IOBCCW3  DS    0D,5C               CHANNEL COMMAND WORD 3               BU511000
00004D                             1555+OACEPRIO DS    C                   PRIO OF OLAY ROUTINE IN THIS AREA    BU512000

00004E                             1556+OACEOCON DS    H                   OVERLAY CALL CONSTANT                BU514000
000050                             1557+IOBCCW4  DS    D                   CHANNEL COMMAND WORD 4               BU516000
000058                             1558+BUFSTART DS    0D                  START OF BUFFER WORK SPACE           BU518000

000058                             1559+OACENAME DS    0F                  NAME OF OVERLAY ROUTINE              BU520000
000058                             1560+HDBNXTRK DS    F                   HASP DATA BLOCK CHAIN TRACK          BU522000
00005C                             1561+OACEASMO DS    0F                  ASSEMBLY ORIGIN OF OVERLAY ROUTINE   BU524000
00005C                             1562+HDBDSKEY DS    F                   HASP DATA BLOCK DATA SET KEY         BU526000
000060                             1563+OACEPROG DS    0F                  ENTRY POINT OF OVERLAY ROUTINE       BU528000
000060                             1564+HDBSTART DS    F                   HASP DATA BLOCK START                BU529000
000064                      00058  1565+         ORG   BUFSTART                                                 BU530000
000058                             1566+IOBCCW5  DS    D                   CHANNEL COMMAND WORD 5               BU534000
000060                             1567+IOBCCW6  DS    D                   CHANNEL COMMAND WORD 6               BU536000
000068                             1568+IOBCCW7  DS    D                   CHANNEL COMMAND WORD 7               BU538000
000070                             1569+IOBCCW8  DS    D                   CHANNEL COMMAND WORD 8               BU540000
000078                             1570+TPBUFST  DS    0F                  START OF REMOTE BUFFER WORK SPACE    BU542000

000078                      00558  1571+         ORG   BUFSTART+1280           SPACE OVER OVERLAY AREA          BU544000

000558                             1572+OACEPCE  DS    F                   CHAIN OF PCE'S USING OVERLAY AREA    BU546000
000002                             1573+HASPBR1  CSECT                     END OF BUFFER DSECT                  BU548000

BR1      HASP BUFFER STATUS BIT DEFINITIONS                                                                    PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1576+*                             BUFFER TYPE BIT DEFINITIONS               BU554000



                            00080  1578+TPBUF    EQU   X'80'               REMOTE BUFFER TYPE                   BU558000
                            00040  1579+OLAYBUF  EQU   X'40'               OVERLAY AREA TYPE                    BU560000
                            00000  1580+HASPBUF  EQU   X'00'               HASP BUFFER TYPE                     BU562000
BR1      HASP CONSOLE MESSAGE BUFFER FORMAT                                                                    PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   1583+*****************************************************                   CM012000

                                   1584+*   CMBCHAIN *            *            *            *                   CM014000

                                   1585+*                                                   *                   CM016000
                                   1586+*      ADDRESS OF NEXT CONSOLE MESSAGE BUFFER       *                   CM018000
                                   1587+*            *            *            *            *                   CM020000
                                   1588+*****************************************************                   CM022000
                                   1589+*   CMBFLAGS *   CMBCONS  *   CMBMSGL  *   CMBPRIO  *                   CM024000
                                   1590+*            *            *            *   CMBCLASS *                   CM026000
                                   1591+*   FLAGS    *  CONSOLES  *  MESSAGE   * CLASS/AREA *                   CM028000
                                   1592+*            * SPECIFIED  *   LENGTH   * & PRIORITY *                   CM030000
                                   1593+*****************************************************                   CM032000
                                   1594+*   CMBMSG   *   CMBTIME  *            *            *                   CM034000
                                   1595+*   CMBDOMID        DOM ID FOR OS                   *                   CM036000
                                   1596+*   CMBMARK  *                TIME OF DAY           *                   CM038000

                                   1597+*            *            *            *            *                   CM040000
                                   1598+*****************************************************                   CM042000
                                   1599+*            *            *            *            *                   CM044000

                                   1600+*                                                   *                   CM046000
                                   1601+*              TIME OF DAY (CONTINUED)              *                   CM048000
                                   1602+*            *            *            *            *                   CM050000
                                   1603+*****************************************************                   CM052000
                                   1604+*            *            *   CMBJOBNO *            *                   CM054000
                                   1605+*                         *                         *                   CM056000
                                   1606+* TIME OF DAY (CONTINUED) *       JOB NUMBER        *                   CM058000
                                   1607+*            *            *            *            *                   CM060000
                                   1608+*****************************************************                   CM062000
                                   1609+*            *            *            *            *                   CM064000
                                   1610+*                                                   *                   CM066000
                                   1611+*              JOB NUMBER (CONTINUED)               *                   CM068000

                                   1612+*            *            *            *            *                   CM070000
                                   1613+*****************************************************                   CM072000
                                   1614+*            *            *            *   CMBTEXT  *                   CM074000
                                   1615+*                                      *            *                   CM076000

                                   1616+*        JOB NUMBER (CONTINUED)        *  MESSAGE   *                   CM078000
                                   1617+*            *            *            *    TEXT    *                   CM080000
                                   1618+*****************************************************                   CM082000
                                   1619+*            *            *            *            *                   CM084000
                                   1620+*                                                   *                   CM086000
                                   1621+*      MESSAGE TEXT (CONTINUED FOR 112 BYTES)       *                   CM088000

                                   1622+*            *            *            *            *                   CM090000
                                   1623+*****************************************************                   CM092000
BR1      HASP CONSOLE MESSAGE BUFFER DSECT                                                                     PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             1626+CMBDSECT DSECT                     CONSOLE MESSAGE BUFFER DSECT         CM098000
000000                             1627+CMBCHAIN DS    F                   ADDR OF NEXT CONSOLE MESSAGE BUFFER  CM100000

000004                             1628+CMBFLAGS DS    C                   FLAG BYTE                            CM102000
000005                             1629+CMBCONS  DS    C                   CONSOLES SPECIFIED                   CM104000
000006                             1630+CMBMSGL  DS    C                   MESSAGE LENGTH                       CM106000
000007                             1631+CMBPRIO  DS    0C                  MESSAGE PRIORITY                     CM108000
000007                             1632+CMBCLASS DS    C                   MESSAGE CLASS OR DISPLAY AREA        CM110000
000008                             1633+CMBMSG   DS    0CL132              CONSOLE MESSAGE                      CM112000
000008                             1634+CMBDOMID DS    0F                  DOM ID FOR CMB                       CM113000
000008                             1635+CMBMARK  DS    C                   ATTENTION INDICATOR                  CM114000
000009                             1636+CMBTIME  DS    CL9                 TIME OF DAY                          CM116000
000012                             1637+CMBJOBNO DS    CL9                 JOB NUMBER                           CM118000
00001B                             1638+CMBTEXT  DS    CL113               MESSAGE TEXT                         CM120000
                            0008C  1639+CMBEND   EQU   *                   END OF CMB                   OY05859 CM121000

000002                             1640+HASPBR1  CSECT                     END OF CMB DSECT                     CM122000


                                   1642+*                                  SYMBOLIC DISPLACEMENTS               CM126000



                            00004  1644+CMBFLD   EQU   CMBFLAGS-CMBDSECT   FLAG BYTE                            CM130000

                            00006  1645+CMBMLD   EQU   CMBMSGL-CMBDSECT    MESSAGE LENGTH                       CM132000
                            00008  1646+CMBMSD   EQU   CMBMSG-CMBDSECT     MESSAGE                              CM134000


                                   1648+*                                  FLAG BYTE BITS                       CM138000


                            00080  1650+WCMBFD   EQU   X'80'               END OF OUT OF LINE WTO (MLWTO)       CM142000
                            00040  1651+WCMBFH   EQU   X'40'               OPERATION TYPE                       CM144000
                            00020  1652+WCMBFE   EQU   X'20'               MESSAGE FOR HASP LOG ONLY            CM146000

                            00010  1653+WCMBFF   EQU   X'10'               CMBCONS CONTAINS UCMID               CM148000
                            00008  1654+WCMBFG   EQU   X'08'               CMBCONS CONTAINS REMOTE NUMBER       CM150000
                            00004  1655+WCMBFA   EQU   X'04'               RESERVED FOR COMMAND PROCESSOR       CM152000
                            00002  1656+WCMBFB   EQU   X'02'               RESERVED FOR COMMAND PROCESSOR       CM154000
                            00001  1657+WCMBFC   EQU   X'01'               RESERVED FOR COMMAND PROCESSOR       CM156000



                                   1659+*                         NOTE (1) LOGICAL CONSOLES (CMBCONS) ARE       CM160000
                                   1660+*                                  SPECIFIED BY NULL WCMBFD, WCMBFF     CM162000

                                   1661+*                                  AND WCMBFG SETTINGS.                 CM164000
                                   1662+*                                                                       CM166000
                                   1663+*                              (2) FOR WCMBFH...READ=1, WRITE=0         CM168000
                                   1664+*                                                                       CM170000
BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   1667+*****************************************************                   SM007000
                                   1668+*   SMFCHAIN *            *            *            *                   SM008000
                                   1669+*                                                   *                   SM009000
                                   1670+*         SMF BUFFER CHAIN TO NEXT BUFFER           *                   SM010000

                                   1671+*            *            *            *            *                   SM011000
                                   1672+*****************************************************                   SM012000
                                   1673+*   SMFTYPE  *   SMFPARM  *            *            *                   SM013000
                                   1674+*            *                                      *                   SM014000

                                   1675+*   BUFFER   *           R E S E R V E D            *                   SM015000
                                   1676+*    TYPE    *            *            *            *                   SM016000
                                   1677+*****************************************************                   SM017000
                                   1678+*   JMRCHAIN *            *            *            *                   SM018000
                                   1679+*                                                   *                   SM019000
                                   1680+*         POINTER TO PURGE RECORD BUFFER            *                   SM020000

                                   1681+*            *            *            *            *                   SM021000
                                   1682+*****************************************************                   SM022000
                                   1683+*   SMFRDW   *            *            *            *                   SM023000
                                   1684+*   NOTE -- THIS WORD IS SYNONYMOUS WITH JMRCHAIN   *                   SM024000
                                   1685+*            SMF RECORD DESCRIPTOR WORD             *                   SM025000

                                   1686+*            *            *            *            *                   SM026000
                                   1687+*****************************************************                   SM027000
                                   1688+*   SMFJMR   *            *            *            *                   SM028000
                                   1689+*   NOTE -- THE SIZE OF THIS FIELD IS &JMRSIZE      *                   SM029000
                                   1690+*                  JMR DATA AREA                    *                   SM030000

                                   1691+*            *            *            *            *                   SM031000
                                   1692+*****************************************************                   SM032000
                                   1693+*   SMFHDFLG *   SMFHDRTY *   SMFHDTME *            *                   SM033000
                                   1694+*    NOTE -- THIS WORD IS SYNONYMOUS WITH SMFJMR    *                   SM034000
                                   1695+*   HEADER   *   RECORD   *       TIME OF DAY       *                   SM035000

                                   1696+*  FLAG BYTE *    TYPE    *      RECORD WRITTEN     *                   SM036000
                                   1697+*****************************************************                   SM037000
                                   1698+*            *            *   SMFHDDTE *            *                   SM038000
                                   1699+*                         *                         *                   SM039000
                                   1700+*                         *   DATE RECORD WRITTEN   *                   SM040000

                                   1701+*            *            *            *            *                   SM041000
                                   1702+*****************************************************                   SM042000
                                   1703+*            *            *   SMFHDSID *            *                   SM043000
                                   1704+*                         *                         *                   SM044000
                                   1705+*                         *  SYSTEM IDENTIFICATION  *                   SM045000
                                   1706+*            *            *            *            *                   SM046000

                                   1707+*****************************************************                   SM047000
BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   1710+*****************************************************                   SM050000
                                   1711+*   SMFHDMOD *            *   SMFRSTRT *            *                   SM051000
                                   1712+*                         *   SMF6JBN               *                   SM052000
                                   1713+* SYSTEM MODEL IDENTIFIER *BEGIN RECORD AFTER HEADER*                   SM053000

                                   1714+*            *            *    JOB NAME FROM JMR    *                   SM054000
                                   1715+*****************************************************                   SM055000
                                   1716+*            *            *            *            *                   SM056000
                                   1717+*                                                   *                   SM057000
                                   1718+*               JOB NAME (CONTINUED)                *                   SM058000
                                   1719+*            *            *            *            *                   SM059000
                                   1720+*****************************************************                   SM060000

                                   1721+*            *            *   SMF6RST  *            *                   SM061000
                                   1722+*                         *                         *                   SM062000
                                   1723+*                         *    READER START TIME    *                   SM063000

                                   1724+*            *            *            *            *                   SM064000
                                   1725+*****************************************************                   SM065000
                                   1726+*            *            *   SMF6RSD  *            *                   SM066000
                                   1727+*                         *                         *                   SM067000
                                   1728+*                         *    READER START DATE    *                   SM068000

                                   1729+*            *            *            *            *                   SM069000
                                   1730+*****************************************************                   SM070000
                                   1731+*            *            *   SMF6UIF  *            *                   SM071000
                                   1732+*                         *                         *                   SM072000
                                   1733+*                         *   USER IDENTIFICATION   *                   SM073000
                                   1734+*            *            *         FIELD           *                   SM074000
                                   1735+*****************************************************                   SM075000
                                   1736+*            *            *            *            *                   SM076000

                                   1737+*                                                   *                   SM077000
                                   1738+*       USER IDENTIFICATION FIELD (CONTINUED)       *                   SM078000

                                   1739+*            *            *            *            *                   SM079000
                                   1740+*****************************************************                   SM080000
                                   1741+*            *            *   SMF6OWC  *   SMF6WST  *                   SM081000
                                   1742+*                         *            *            *                   SM082000
                                   1743+*                         *   OUTPUT   *   WRITER   *                   SM083000

                                   1744+*            *            *   CLASS    * START TIME *                   SM084000
                                   1745+*****************************************************                   SM085000
                                   1746+*            *            *            *   SMF6WSD  *                   SM086000
                                   1747+*                                      *            *                   SM087000
                                   1748+*                                      *   WRITER   *                   SM088000
                                   1749+*            *            *            * START DATE *                   SM089000
                                   1750+*****************************************************                   SM090000
BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78








                                   1753+*****************************************************                   SM093000
                                   1754+*            *            *            *   SMF6NLR  *                   SM094000
                                   1755+*                                      *            *                   SM095000
                                   1756+*                                      * NUMBER OF  *                   SM096000

                                   1757+*            *            *            *  RECORDS   *                   SM097000
                                   1758+*****************************************************                   SM098000
                                   1759+*            *            *            *  SMF6IOE   *                   SM099000
                                   1760+*                                      *            *                   SM100000
                                   1761+*                                      *  I/O ERROR *                   SM101000
                                   1762+*            *            *            *  INDICATOR *                   SM102000
                                   1763+*****************************************************                   SM103000
                                   1764+*   SMF6NDS  *   SMF6FMN  *            *            *                   SM104000
                                   1765+*            *                                      *                   SM105000
                                   1766+* NUMBER OF  *             FORM NUMBER              *                   SM106000

                                   1767+* DATA SETS  *            *            *            *                   SM107000

                                   1768+*****************************************************                   SM108000
                                   1769+*            *   SMF6RV1  *            *            *                   SM109000
                                   1770+*            *                                      *                   SM110000
                                   1771+*            *           R E S E R V E D            *                   SM111000

                                   1772+*            *            *            *            *                   SM112000
                                   1773+*****************************************************                   SM113000
                                   1774+*            *            *            *            *                   SM114000
                                   1775+*                                                   *                   SM115000
                                   1776+*            R E S E R V E D (CONTINUED)            *                   SM116000
                                   1777+*            *            *            *            *                   SM117000
                                   1778+*****************************************************                   SM118000
                                   1779+*   SMF6JNM  *            *            *            *                   SM119000
                                   1780+*                                                   *                   SM120000
                                   1781+*             HASP ASSIGNED JOB NUMBER              *                   SM121000
                                   1782+*            *            *            *            *                   SM122000

                                   1783+*****************************************************                   SM123000
                                   1784+*   SMF6OUT  *            *            *            *                   SM124000
                                   1785+*                                                   *                   SM125000
                                   1786+*          HASP LOGICAL OUTPUT DEVICE NAME          *                   SM126000

                                   1787+*            *            *            *            *                   SM127000
                                   1788+*****************************************************                   SM128000
                                   1789+*            *            *            *            *                   SM129000
                                   1790+*                                                   *                   SM130000
                                   1791+*              DEVICE NAME (CONTINUED)              *                   SM131000
                                   1792+*            *            *            *            *                   SM132000
                                   1793+*****************************************************                   SM133000
BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1796+*****************************************************                   SM136000

                                   1797+*   SMF6FCB  *            *            *            *                   SM137000
                                   1798+*                                                   *                   SM138000
                                   1799+*                      FCB ID                       *                   SM139000

                                   1800+*            *            *            *            *                   SM140000
                                   1801+*****************************************************                   SM141000
                                   1802+*   SMF6UCS  *            *            *            *                   SM142000
                                   1803+*                                                   *                   SM143000
                                   1804+*                      UCS ID                       *                   SM144000
                                   1805+*            *            *            *            *                   SM145000
                                   1806+*****************************************************                   SM146000
                                   1807+*   SMF6PGE  *            *            *            *                   SM147000
                                   1808+*                                                   *                   SM148000
                                   1809+*                    PAGE COUNT                     *                   SM149000
                                   1810+*            *            *            *            *                   SM150000
                                   1811+*****************************************************                   SM151000

                                   1812+*   SMF6RTE  *            *   SMF6END  *            *                   SM152000

                                   1813+*                         *            *            *                   SM153000
                                   1814+*    OUTPUT ROUTE CODE    * END TYPE 6 *            *                   SM154000

                                   1815+*            *            *   RECORD   *            *                   SM155000
                                   1816+*****************************************************                   SM156000
                                   1817+*            *            *   SMF26JBN *            *                   SM157000
                                   1818+*   NOTE --  SMF26JBN IS SYNONYMOUS WITH SMFRSTRT   *                   SM158000
                                   1819+*                         *    JOB NAME FROM JMR    *                   SM159000
                                   1820+*            *            *            *            *                   SM160000
                                   1821+*****************************************************                   SM161000
                                   1822+*            *            *            *            *                   SM162000
                                   1823+*                                                   *                   SM163000
                                   1824+*               JOB NAME (CONTINUED)                *                   SM164000
                                   1825+*            *            *            *            *                   SM165000
                                   1826+*****************************************************                   SM166000

                                   1827+*            *            *   SMF26RST *            *                   SM167000
                                   1828+*                         *                         *                   SM168000

                                   1829+*                         *    READER START TIME    *                   SM169000

                                   1830+*            *            *            *            *                   SM170000
                                   1831+*****************************************************                   SM171000
                                   1832+*            *            *   SMF26RSD *            *                   SM172000
                                   1833+*                         *                         *                   SM173000
                                   1834+*                         *    READER START DATE    *                   SM174000
                                   1835+*            *            *            *            *                   SM175000
                                   1836+*****************************************************                   SM176000
BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1839+*****************************************************                   SM179000

                                   1840+*            *            *   SMF26UIF *            *                   SM180000
                                   1841+*                         *                         *                   SM181000
                                   1842+*                         *   USER IDENTIFICATION   *                   SM182000

                                   1843+*            *            *          FIELD          *                   SM183000
                                   1844+*****************************************************                   SM184000
                                   1845+*            *            *            *            *                   SM185000
                                   1846+*                                                   *                   SM186000
                                   1847+*       USER IDENTIFICATION FIELD (CONTINUED)       *                   SM187000
                                   1848+*            *            *            *            *                   SM188000
                                   1849+*****************************************************                   SM189000
                                   1850+*            *            *   SMF26RSV *            *                   SM190000
                                   1851+*                         *                         *                   SM191000
                                   1852+*                         *     R E S E R V E D     *                   SM192000
                                   1853+*            *            *            *            *                   SM193000
                                   1854+*****************************************************                   SM194000

                                   1855+*            *            *   SMF26SBS *            *                   SM195000
                                   1856+*                         *                         *                   SM196000
                                   1857+*                         *    HASP SUBSYSTEM ID    *                   SM197000

                                   1858+*            *            *            *            *                   SM198000
                                   1859+*****************************************************                   SM199000
                                   1860+*   SMF26IND *            *   SMF26LN1 *            *                   SM200000
                                   1861+*                         *                         *                   SM201000
                                   1862+*    SECTION INDICATORS   *   DESCRIPTOR SECTION    *                   SM202000
                                   1863+*            *            *         LENGTH          *                   SM203000
                                   1864+*****************************************************                   SM204000
                                   1865+*   SMF26RV1 *            *            *   SMF26INF *                   SM205000
                                   1866+*                                      *            *                   SM206000
                                   1867+*           R E S E R V E D            *    JOB     *                   SM207000
                                   1868+*            *            *            * INFORMATION*                   SM208000
                                   1869+*****************************************************                   SM209000

                                   1870+*   SMF26JNM *            *            *            *                   SM210000
                                   1871+*                                                   *                   SM211000
                                   1872+*             HASP ASSIGNED JOB NUMBER              *                   SM212000
                                   1873+*            *            *            *            *                   SM213000

                                   1874+*****************************************************                   SM214000
                                   1875+*   SMF26RV0 *            *            *            *                   SM215000
                                   1876+*                                                   *                   SM216000
                                   1877+*              JOB NAME FROM JOB CARD               *                   SM217000
                                   1878+*            *            *            *            *                   SM218000
                                   1879+*****************************************************                   SM219000

BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1882+*****************************************************                   SM222000
                                   1883+*            *            *            *            *                   SM223000
                                   1884+*                                                   *                   SM224000
                                   1885+*               JOB NAME (CONTINUED)                *                   SM225000

                                   1886+*            *            *            *            *                   SM226000
                                   1887+*****************************************************                   SM227000

                                   1888+*   SMF26NAM *            *            *            *                   SM228000
                                   1889+*                                                   *                   SM229000
                                   1890+*          PROGRAMMER'S NAME FROM JOB CARD          *                   SM230000
                                   1891+*            *            *            *            *                   SM231000
                                   1892+*****************************************************                   SM232000
                                   1893+*            *            *            *            *                   SM233000
                                   1894+*                                                   *                   SM234000
                                   1895+*           PROGRAMMER'S NAME (CONTINUED)           *                   SM235000

                                   1896+*            *            *            *            *                   SM236000
                                   1897+*****************************************************                   SM237000
                                   1898+*            *            *            *            *                   SM238000
                                   1899+*                                                   *                   SM239000
                                   1900+*           PROGRAMMER'S NAME (CONTINUED)           *                   SM240000

                                   1901+*            *            *            *            *                   SM241000
                                   1902+*****************************************************                   SM242000
                                   1903+*            *            *            *            *                   SM243000

                                   1904+*                                                   *                   SM244000
                                   1905+*           PROGRAMMER'S NAME (CONTINUED)           *                   SM245000
                                   1906+*            *            *            *            *                   SM246000
                                   1907+*****************************************************                   SM247000
                                   1908+*            *            *            *            *                   SM248000
                                   1909+*                                                   *                   SM249000
                                   1910+*           PROGRAMMER'S NAME (CONTINUED)           *                   SM250000

                                   1911+*            *            *            *            *                   SM251000
                                   1912+*****************************************************                   SM252000
                                   1913+*   SMF26MSG *   SMF26CLS *   SMF26XPR *            *                   SM253000
                                   1914+*            *            *                         *                   SM254000
                                   1915+*  MSGCLASS  * JOB CLASS  *     HASP EXECUTION      *                   SM255000

                                   1916+*            *            *   SELECTION PRIORITY    *                   SM256000
                                   1917+*****************************************************                   SM257000
                                   1918+*   SMF26OPR *            *   SMF26LOC *            *                   SM258000
                                   1919+*                         *                         *                   SM259000

                                   1920+*       HASP OUTPUT       *    INPUT ROUTE CODE     *                   SM260000
                                   1921+*   SELECTION PRIORITY    *            *            *                   SM261000
                                   1922+*****************************************************                   SM262000
BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   1925+*****************************************************                   SM265000
                                   1926+*   SMF26DEV *            *            *            *                   SM266000
                                   1927+*                                                   *                   SM267000
                                   1928+*          HASP LOGICAL INPUT DEVICE NAME           *                   SM268000

                                   1929+*            *            *            *            *                   SM269000
                                   1930+*****************************************************                   SM270000
                                   1931+*            *            *            *            *                   SM271000
                                   1932+*                                                   *                   SM272000
                                   1933+*              DEVICE NAME (CONTINUED)              *                   SM273000

                                   1934+*            *            *            *            *                   SM274000
                                   1935+*****************************************************                   SM275000
                                   1936+*   SMF26ACT *            *            *            *                   SM276000
                                   1937+*                                                   *                   SM277000
                                   1938+*          PROGRAMMER'S ACCOUNTING NUMBER           *                   SM278000

                                   1939+*            *            *            *            *                   SM279000
                                   1940+*****************************************************                   SM280000
                                   1941+*   SMF26ROM *            *            *            *                   SM281000
                                   1942+*                                                   *                   SM282000
                                   1943+*             PROGRAMMER'S ROOM NUMBER              *                   SM283000

                                   1944+*            *            *            *            *                   SM284000
                                   1945+*****************************************************                   SM285000
                                   1946+*   SMF26XTM *            *            *            *                   SM286000
                                   1947+*                                                   *                   SM287000
                                   1948+*             ESTIMATED EXECUTION TIME              *                   SM288000
                                   1949+*            *            *            *            *                   SM289000

                                   1950+*****************************************************                   SM290000
                                   1951+*   SMF26ELN *            *            *            *                   SM291000
                                   1952+*                                                   *                   SM292000
                                   1953+*              ESTIMATED OUTPUT LINES               *                   SM293000

                                   1954+*            *            *            *            *                   SM294000
                                   1955+*****************************************************                   SM295000
                                   1956+*   SMF26EPU *            *            *            *                   SM296000
                                   1957+*                                                   *                   SM297000
                                   1958+*             ESTIMATED PUNCHED OUTPUT              *                   SM298000

                                   1959+*            *            *            *            *                   SM299000
                                   1960+*****************************************************                   SM300000
                                   1961+*   SMF26FRM *            *            *            *                   SM301000
                                   1962+*                                                   *                   SM302000
                                   1963+*            DEFAULT OUTPUT FORM NUMBER             *                   SM303000
                                   1964+*            *            *            *            *                   SM304000
                                   1965+*****************************************************                   SM305000

BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   1968+*****************************************************                   SM308000
                                   1969+*   SMF26CYP *            *   SMF26LIN *            *                   SM309000
                                   1970+*                         *                         *                   SM310000
                                   1971+*    PRINT COPY COUNT     *     LINES PER PAGE      *                   SM311000

                                   1972+*            *            *            *            *                   SM312000
                                   1973+*****************************************************                   SM313000
                                   1974+*   SMF26PRR *            *   SMF26PUR *            *                   SM314000
                                   1975+*                         *                         *                   SM315000
                                   1976+*    PRINT ROUTE CODE     *    PUNCH ROUTE CODE     *                   SM316000
                                   1977+*            *            *            *            *                   SM317000
                                   1978+*****************************************************                   SM318000
                                   1979+*   SMF26LN2 *            *   SMF26RV2 *            *                   SM319000

                                   1980+*                         *                         *                   SM320000
                                   1981+*  EVENTS SECTION LENGTH  *     R E S E R V E D     *                   SM321000

                                   1982+*            *            *            *            *                   SM322000
                                   1983+*****************************************************                   SM323000
                                   1984+*   SMF26RPT *            *            *            *                   SM324000
                                   1985+*                                                   *                   SM325000
                                   1986+*                 READER STOP TIME                  *                   SM326000

                                   1987+*            *            *            *            *                   SM327000
                                   1988+*****************************************************                   SM328000
                                   1989+*   SMF26RPD *            *            *            *                   SM329000
                                   1990+*                                                   *                   SM330000
                                   1991+*                 READER STOP DATE                  *                   SM331000
                                   1992+*            *            *            *            *                   SM332000
                                   1993+*****************************************************                   SM333000
                                   1994+*   SMF26RV3 *            *            *            *                   SM334000
                                   1995+*                                                   *                   SM335000

                                   1996+*                  R E S E R V E D                  *                   SM336000

                                   1997+*            *            *            *            *                   SM337000
                                   1998+*****************************************************                   SM338000
                                   1999+*            *            *            *            *                   SM339000
                                   2000+*                                                   *                   SM340000
                                   2001+*                  R E S E R V E D                  *                   SM341000

                                   2002+*            *            *            *            *                   SM342000
                                   2003+*****************************************************                   SM343000
                                   2004+*            *            *            *            *                   SM344000
                                   2005+*                                                   *                   SM345000
                                   2006+*                  R E S E R V E D                  *                   SM346000
                                   2007+*            *            *            *            *                   SM347000
                                   2008+*****************************************************                   SM348000
BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78








                                   2011+*****************************************************                   SM351000
                                   2012+*            *            *            *            *                   SM352000
                                   2013+*                                                   *                   SM353000
                                   2014+*                  R E S E R V E D                  *                   SM354000

                                   2015+*            *            *            *            *                   SM355000
                                   2016+*****************************************************                   SM356000
                                   2017+*   SMF26XST *            *            *            *                   SM357000
                                   2018+*                                                   *                   SM358000
                                   2019+*               EXECUTION START TIME                *                   SM359000
                                   2020+*            *            *            *            *                   SM360000
                                   2021+*****************************************************                   SM361000
                                   2022+*   SMF26XSD *            *            *            *                   SM362000
                                   2023+*                                                   *                   SM363000
                                   2024+*               EXECUTION START DATE                *                   SM364000
                                   2025+*            *            *            *            *                   SM365000

                                   2026+*****************************************************                   SM366000
                                   2027+*   SMF26XPT *            *            *            *                   SM367000
                                   2028+*                                                   *                   SM368000
                                   2029+*                EXECUTION STOP TIME                *                   SM369000

                                   2030+*            *            *            *            *                   SM370000
                                   2031+*****************************************************                   SM371000
                                   2032+*   SMF26XPD *            *            *            *                   SM372000
                                   2033+*                                                   *                   SM373000
                                   2034+*                EXECUTION STOP DATE                *                   SM374000
                                   2035+*            *            *            *            *                   SM375000
                                   2036+*****************************************************                   SM376000
                                   2037+*   SMF26OST *            *            *            *                   SM377000
                                   2038+*                                                   *                   SM378000
                                   2039+*            OUTPUT PROCESSOR START TIME            *                   SM379000
                                   2040+*            *            *            *            *                   SM380000
                                   2041+*****************************************************                   SM381000

                                   2042+*   SMF26OSD *            *            *            *                   SM382000
                                   2043+*                                                   *                   SM383000
                                   2044+*            OUTPUT PROCESSOR START DATE            *                   SM384000

                                   2045+*            *            *            *            *                   SM385000
                                   2046+*****************************************************                   SM386000
                                   2047+*   SMF26OPT *            *            *            *                   SM387000
                                   2048+*                                                   *                   SM388000
                                   2049+*            OUTPUT PROCESSOR STOP TIME             *                   SM389000
                                   2050+*            *            *            *            *                   SM390000
                                   2051+*****************************************************                   SM391000
BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   2054+*****************************************************                   SM394000

                                   2055+*   SMF26OPD *            *            *            *                   SM395000

                                   2056+*                                                   *                   SM396000
                                   2057+*            OUTPUT PROCESSOR STOP DATE             *                   SM397000

                                   2058+*            *            *            *            *                   SM398000
                                   2059+*****************************************************                   SM399000
                                   2060+*   SMF26LN3 *            *   SMF26RV4 *            *                   SM400000
                                   2061+*                         *                         *                   SM401000
                                   2062+*  ACTUALS SECTION LENGTH *     R E S E R V E D     *                   SM402000
                                   2063+*            *            *            *            *                   SM403000
                                   2064+*****************************************************                   SM404000
                                   2065+*   SMF26ICD *            *            *            *                   SM405000
                                   2066+*                                                   *                   SM406000
                                   2067+*       NUMBER OF INPUT CARDS (JCL AND DATA)        *                   SM407000
                                   2068+*            *            *            *            *                   SM408000
                                   2069+*****************************************************                   SM409000

                                   2070+*   SMF26XLN *            *            *            *                   SM410000
                                   2071+*                                                   *                   SM411000

                                   2072+*              GENERATED OUTPUT LINES               *                   SM412000

                                   2073+*            *            *            *            *                   SM413000
                                   2074+*****************************************************                   SM414000
                                   2075+*   SMF26XPU              *            *            *                   SM415000
                                   2076+*                                                   *                   SM416000
                                   2077+*             GENERATED PUNCHED OUTPUT              *                   SM417000
                                   2078+*            *            *            *            *                   SM418000
                                   2079+*****************************************************                   SM419000
                                   2080+*   SMF26RV5 *            *            *            *                   SM420000
                                   2081+*                                                   *                   SM421000
                                   2082+*                  R E S E R V E D                  *                   SM422000
                                   2083+*            *            *            *            *                   SM423000
                                   2084+*****************************************************                   SM424000

                                   2085+*   SMF26PLN *            *            *            *                   SM425000
                                   2086+*                                                   *                   SM426000
                                   2087+*                   PRINTED LINES                   *                   SM427000

                                   2088+*            *            *            *            *                   SM428000
                                   2089+*****************************************************                   SM429000
                                   2090+*   SMF26PPG *            *            *            *                   SM430000
                                   2091+*                                                   *                   SM431000
                                   2092+*                   PRINTED PAGES                   *                   SM432000
                                   2093+*            *            *            *            *                   SM433000
                                   2094+*****************************************************                   SM434000
BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   2097+*****************************************************                   SM437000

                                   2098+*   SMF26PUC *            *            *            *                   SM438000
                                   2099+*                                                   *                   SM439000
                                   2100+*                   PUNCHED CARDS                   *                   SM440000

                                   2101+*            *            *            *            *                   SM441000
                                   2102+*****************************************************                   SM442000
                                   2103+*   SMF26END *            *   SMFSSID  *            *                   SM443000
                                   2104+*   NOTE -- SMFSSID IS SYNONYMOUS WITH SMFRSTRT     *                   SM444000
                                   2105+* END TYPE 26*            *    HASP SUBSYSTEM ID    *                   SM445000
                                   2106+*   RECORD   *            *            *            *                   SM446000
                                   2107+*****************************************************                   SM447000
                                   2108+*   SMFSSRSV *            *   SMFSSLEN *            *                   SM448000
                                   2109+*                         *                         *                   SM449000
                                   2110+*     R E S E R V E D     * LENGTH OF REST OF RECORD*                   SM450000
                                   2111+*            *            *            *            *                   SM451000
                                   2112+*****************************************************                   SM452000

                                   2113+*   SMFSSTRT *            *            *   SMF43OPT *                   SM453000
                                   2114+*   SMF43RV1                           *            *                   SM454000
                                   2115+*  DEFINE START OF SUBSYSTEM PORTION   * START HASP *                   SM455000
                                   2116+*           R E S E R V E D            *  OPTIONS   *                   SM456000

                                   2117+*****************************************************                   SM457000
                                   2118+*   SMF43END *            *            *            *                   SM458000
                                   2119+*            *                                      *                   SM459000
                                   2120+* END TYPE 43*                                      *                   SM460000
                                   2121+*   RECORD   *            *            *            *                   SM461000
                                   2122+*****************************************************                   SM462000

                                   2123+*   SMF45END *            *            *            *                   SM463000
                                   2124+*   NOTE -- SMF45END IS SYNONYMOUS WITH SMFSSTRT    *                   SM464000
                                   2125+* END TYPE 45*                                      *                   SM465000
                                   2126+*   RECORD   *            *            *            *                   SM466000
                                   2127+*****************************************************                   SM467000
                                   2128+*   SMF47EVT *            *   SMF47LN1 *            *                   SM468000
                                   2129+*   NOTE -- SMF47EVT IS SYNONYMOUS WITH SMFSSTRT    *                   SM469000
                                   2130+*     EVENT STARTING      *     IDENTIFICATION      *                   SM470000

                                   2131+*            *            *     SECTION LENGTH      *                   SM471000
                                   2132+*****************************************************                   SM472000

                                   2133+*   SMF47RMT *            *            *            *                   SM473000
                                   2134+*                                                   *                   SM474000
                                   2135+*                    REMOTE NAME                    *                   SM475000
                                   2136+*            *            *            *            *                   SM476000
                                   2137+*****************************************************                   SM477000
BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   2140+*****************************************************                   SM480000
                                   2141+*            *            *            *            *                   SM481000
                                   2142+*                                                   *                   SM482000
                                   2143+*              REMOTE NAME (CONTINUED)              *                   SM483000

                                   2144+*            *            *            *            *                   SM484000
                                   2145+*****************************************************                   SM485000
                                   2146+*   SMF47LIN *            *            *            *                   SM486000

                                   2147+*                                                   *                   SM487000
                                   2148+*                     LINE NAME                     *                   SM488000
                                   2149+*            *            *            *            *                   SM489000
                                   2150+*****************************************************                   SM490000
                                   2151+*            *            *            *            *                   SM491000
                                   2152+*                                                   *                   SM492000
                                   2153+*               LINE NAME (CONTINUED)               *                   SM493000

                                   2154+*            *            *            *            *                   SM494000
                                   2155+*****************************************************                   SM495000
                                   2156+*   SMF47PSW *            *            *            *                   SM496000
                                   2157+*                                                   *                   SM497000
                                   2158+*                     PASSWORD                      *                   SM498000

                                   2159+*            *            *            *            *                   SM499000
                                   2160+*****************************************************                   SM500000
                                   2161+*            *            *            *            *                   SM501000
                                   2162+*                                                   *                   SM502000

                                   2163+*             PASSWORD (CONTINUED)                  *                   SM503000
                                   2164+*            *            *            *            *                   SM504000
                                   2165+*****************************************************                   SM505000
                                   2166+*   SMF47LN2 *            *   SMF47MSG *            *                   SM506000
                                   2167+*                                                   *                   SM507000
                                   2168+* MESSAGE SECTION LENGTH  *         MESSAGE         *                   SM508000

                                   2169+*            *            *            *            *                   SM509000
                                   2170+*****************************************************                   SM510000
                                   2171+*   SMF47END *            *            *            *                   SM511000
                                   2172+*            *                                      *                   SM512000
                                   2173+* END TYPE 47*                                      *                   SM513000

                                   2174+*   RECORD   *            *            *            *                   SM514000
                                   2175+*****************************************************                   SM515000
                                   2176+*   SMF48EVT *            *   SMF48RV1 *            *                   SM516000
                                   2177+*   NOTE -- SMF48EVT IS SYNONYMOUS WITH SMFSSTRT    *                   SM517000
                                   2178+*     EVENT STOPPING      *     R E S E R V E D     *                   SM518000

                                   2179+*            *            *            *            *                   SM519000
                                   2180+*****************************************************                   SM520000
BR1      HASP SMF BUFFER FORMAT                                                                                PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   2183+*****************************************************                   SM523000
                                   2184+*   SMF48RMT *            *            *            *                   SM524000
                                   2185+*                                                   *                   SM525000
                                   2186+*                    REMOTE NAME                    *                   SM526000

                                   2187+*            *            *            *            *                   SM527000
                                   2188+*****************************************************                   SM528000
                                   2189+*            *            *            *            *                   SM529000
                                   2190+*                                                   *                   SM530000
                                   2191+*              REMOTE NAME (CONTINUED)              *                   SM531000
                                   2192+*            *            *            *            *                   SM532000

                                   2193+*****************************************************                   SM533000
                                   2194+*   SMF48LIN *            *            *            *                   SM534000
                                   2195+*                                                   *                   SM535000
                                   2196+*                     LINE NAME                     *                   SM536000

                                   2197+*            *            *            *            *                   SM537000
                                   2198+*****************************************************                   SM538000
                                   2199+*            *            *            *            *                   SM539000
                                   2200+*                                                   *                   SM540000
                                   2201+*               LINE NAME (CONTINUED)               *                   SM541000

                                   2202+*            *            *            *            *                   SM542000
                                   2203+*****************************************************                   SM543000
                                   2204+*   SMF48PSW *            *            *            *                   SM544000
                                   2205+*                                                   *                   SM545000
                                   2206+*                     PASSWORD                      *                   SM546000
                                   2207+*            *            *            *            *                   SM547000
                                   2208+*****************************************************                   SM548000

                                   2209+*            *            *            *            *                   SM549000
                                   2210+*                                                   *                   SM550000
                                   2211+*             PASSWORD (CONTINUED)                  *                   SM551000

                                   2212+*            *            *            *            *                   SM552000
                                   2213+*****************************************************                   SM553000
                                   2214+*   SMF48END *            *            *            *                   SM554000
                                   2215+*            *                                      *                   SM555000
                                   2216+* END TYPE 48*                                      *                   SM556000

                                   2217+*   RECORD   *            *            *            *                   SM557000
                                   2218+*****************************************************                   SM558000
BR1      HASP SMF BUFFER DSECT                                                                                 PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             2221+SMFDSECT DSECT                     HASP SMF BUFFER DSECT                SM561000
000000                             2222+SMFCHAIN DS    F                   SMF BUFFER CHAIN TO NEXT BUFFER      SM562000

000004                             2223+SMFTYPE  DS    C                   TYPE OF BUFFER  X'FF' = JMR BUFFER   SM563000
000005                             2224+SMFPARM  DS    3C                  RESERVED                             SM564000

000008                             2225+JMRCHAIN DS    0CL4                POINTER TO PURGE RECORD BUFFER       SM565000
000008                             2226+SMFRDW   DS    CL4                 SMF RECORD DESCRIPTOR WORD           SM566000


                                   2228+*  BEGINNING OF JMR OR HASP SMF RECORD                                  SM568000
00000C                             2229+SMFJMR   DS    0CL56               JMR DATA AREA                        SM569000


00000C 00                          2231+SMFHDFLG DC    BL1'0'              HEADER FLAG BYTE                     SM571000
00000D 00                          2232+SMFHDRTY DC    BL1'0'              RECORD TYPE                          SM572000
00000E 00000000                    2233+SMFHDTME DC    BL4'0'              TOD, USING FORMAT FROM TIME MACRO    SM573000
000012 0000000C                    2234+SMFHDDTE DC    PL4'0000'           DATE IN PACKD DECIMAL FORM  00YYDDDF SM574000
000016 4040                        2235+SMFHDSID DC    CL2'  '             SYSTEM IDENTIFICATION                SM575000
000018 4040                        2236+SMFHDMOD DC    CL2'  '             SYSTEM MODEL IDENTIFIER              SM576000


00001A                             2238+SMFRSTRT DS    0C                  DEFINE START OF RECORD AFTER HEADER  SM578000



                                   2240+* BEGINNING OF HASP TYPE 6 OUTPUT PROCESSOR RECORD AFTER STD. HEADER    SM580000

00001A 4040404040404040            2242+SMF6JBN  DC    CL8' '              JOB NAME FROM JMR                    SM582000
000022 00000000                    2243+SMF6RST  DC    BL4'0'              READER START TIME                    SM583000
000026 0000000C                    2244+SMF6RSD  DC    PL4'0000'           READER START DATE                    SM584000

00002A F040404040404040            2245+SMF6UIF  DC    CL8'0'              USER IDENTIFICATION FIELD            SM585000
000032 40                          2246+SMF6OWC  DC    CL1' '              OUTPUT WRITER CLASS                  SM586000
000033 00000000                    2247+SMF6WST  DC    BL4'0'              WRITER START TIME                    SM587000
000037 0000000C                    2248+SMF6WSD  DC    PL4'0000'           WRITER START DATE                    SM588000
00003B 00000000                    2249+SMF6NLR  DC    BL4'0'              # OF LOGICAL RECORDS FOR WRITER      SM589000
00003F 00                          2250+SMF6IOE  DC    BL1'0'              I/O ERROR INDICATOR                  SM590000
000040 00                          2251+SMF6NDS  DC    BL1'0'              # OF DATA SETS PROCESSED BY WTR      SM591000
000041 40404040                    2252+SMF6FMN  DC    CL4' '              FORM NUMBER                          SM592000
000045 00000000000000              2253+SMF6RV1  DC    BL7'0'              RESERVED                             SM593000
00004C 40404040                    2254+SMF6JNM  DC    CL4' '              HASP ASSIGNED JOB NUMBER             SM594000

000050 4040404040404040            2255+SMF6OUT  DC    CL8' '              HASP LOGICAL OUTPUT DEVICE NAME      SM595000

000058 40404040                    2256+SMF6FCB  DC    CL4' '              FCB ID                               SM596000
00005C 40404040                    2257+SMF6UCS  DC    CL4' '              UCS ID                               SM597000
000060 00000000                    2258+SMF6PGE  DC    BL4'0'              PAGE COUNT                           SM598000
000064 0000                        2259+SMF6RTE  DC    BL2'0'              OUTPUT ROUTE CODE                    SM599000

000066                             2260+SMF6END  DS    0C                  END OF TYPE 6 RECORD                 SM600000
BR1      HASP SMF BUFFER DSECT                                                                                 PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2262+* BEGINNING OF HASP TYPE 26 PURGE RECORD AFTER STANDARD HEADER          SM602000

000066                      0001A  2264+         ORG   SMFRSTRT                                                 SM604000
00001A 4040404040404040            2265+SMF26JBN DC    CL8' '              JOB NAME FROM JMR                    SM605000
000022 00000000                    2266+SMF26RST DC    BL4'0'              READER START TIME                    SM606000
000026 0000000C                    2267+SMF26RSD DC    PL4'0000'           READER START DATE                    SM607000
00002A F040404040404040            2268+SMF26UIF DC    CL8'0'              USER IDENTIFICATION FIELD            SM608000
000032 00000000                    2269+SMF26RSV DC    BL4'0'              RESERVED                             SM609000

000036 0000                        2270+SMF26SBS DC    BL2'0'              SUBSYSTEM ID - HASP =X'0002'         SM610000
000038 0000                        2271+SMF26IND DC    BL2'0'              SECTION INDICATOR =X'E000'           SM611000
00003A 0000                        2272+SMF26LN1 DC    BL2'0'              DESCRIPTOR SECTION LENGTH            SM612000
00003C 000000                      2273+SMF26RV1 DC    BL3'0'              RESERVED                             SM613000

00003F 00                          2274+SMF26INF DC    BL1'0'              JOB INFORMATION                      SM614000
000040 40404040                    2275+SMF26JNM DC    CL4' '              HASP ASSIGNED JOB NUMBER             SM615000
000044 4040404040404040            2276+SMF26RV0 DC    CL8' '              JOB NAME FROM JOB CARD               SM616000
00004C 4040404040404040            2277+SMF26NAM DC    CL20' '             PROGRAMMER'S NAME FROM JOB CARD      SM617000
000060 40                          2278+SMF26MSG DC    CL1' '              MSGCLASS FROM JOB CARD               SM618000
000061 40                          2279+SMF26CLS DC    CL1' '              JOB CLASS FROM JOB CARD              SM619000
000062 0000                        2280+SMF26XPR DC    H'0'                HASP EXECUTION SELECTION PRIORITY    SM620000
000064 0000                        2281+SMF26OPR DC    H'0'                HASP OUTPUT SELECTION PRIORITY       SM621000
000066 0000                        2282+SMF26LOC DC    H'0'                INPUT ROUTE CODE                     SM622000
000068 4040404040404040            2283+SMF26DEV DC    CL8' '              HASP LOGICAL INPUT DEVICE NAME       SM623000
000070 40404040                    2284+SMF26ACT DC    CL4' '              PROGRAMMER'S ACCOUNTING NUMBER       SM624000
000074 40404040                    2285+SMF26ROM DC    CL4' '              PROGRAMMER'S ROOM NUMBER             SM625000

000078 00000000                    2286+SMF26XTM DC    BL4'0'              ESTIMATED EXECUTION TIME             SM626000
00007C 00000000                    2287+SMF26ELN DC    BL4'0'              ESTIMATED OUTPUT LINES               SM627000
000080 00000000                    2288+SMF26EPU DC    BL4'0'              ESTIMATED PUNCHED OUTPUT             SM628000

000084 40404040                    2289+SMF26FRM DC    CL4' '              DEFAULT OUTPUT FORM NUMBER           SM629000
000088 0000                        2290+SMF26CYP DC    BL2'0'              PRINT COPY COUNT                     SM630000
00008A 0000                        2291+SMF26LIN DC    BL2'0'              LINES PER PAGE                       SM631000
00008C 0000                        2292+SMF26PRR DC    BL2'0'              PRINT ROUTE CODE                     SM632000
00008E 0000                        2293+SMF26PUR DC    BL2'0'              PUNCH ROUTE CODE                     SM633000
000090 0000                        2294+SMF26LN2 DC    BL2'0'              EVENTS SECTION LENGTH                SM634000
000092 0000                        2295+SMF26RV2 DC    BL2'0'              RESERVED                             SM635000
000094 00000000                    2296+SMF26RPT DC    BL4'0'              READER STOP TIME                     SM636000
000098 0000000C                    2297+SMF26RPD DC    PL4'0000'           READER STOP DATE                     SM637000
00009C 0000000000000000            2298+SMF26RV3 DC    BL16'0'             RESERVED                             SM638000
0000AC 00000000                    2299+SMF26XST DC    BL4'0'              EXECUTION START TIME                 SM639000
0000B0 0000000C                    2300+SMF26XSD DC    PL4'0000'           EXECUTION START DATE                 SM640000

0000B4 00000000                    2301+SMF26XPT DC    BL4'0'              EXECUTION STOP TIME                  SM641000

0000B8 0000000C                    2302+SMF26XPD DC    PL4'0000'           EXECUTION STOP DATE                  SM642000
0000BC 00000000                    2303+SMF26OST DC    BL4'0'              OUTPUT PROCESSOR START TIME          SM643000

0000C0 0000000C                    2304+SMF26OSD DC    PL4'0000'           OUTPUT PROCESSOR START DATE          SM644000
0000C4 00000000                    2305+SMF26OPT DC    BL4'0'              OUTPUT PROCESSOR STOP TIME           SM645000
0000C8 0000000C                    2306+SMF26OPD DC    PL4'0000'           OUTPUT PROCESSOR STOP DATE           SM646000
0000CC 0000                        2307+SMF26LN3 DC    BL2'0'              ACTUALS SECTION LENGTH               SM647000
0000CE 0000                        2308+SMF26RV4 DC    BL2'0'              RESERVED                             SM648000
0000D0 00000000                    2309+SMF26ICD DC    BL4'0'              NUMBER OF INPUT CARDS (JCL AND DATA) SM649000
0000D4 00000000                    2310+SMF26XLN DC    BL4'0'              GENERATED OUTPUT LINES               SM650000
0000D8 00000000                    2311+SMF26XPU DC    BL4'0'              GENERATED PUNCHED OUTPUT             SM651000
0000DC 00000000                    2312+SMF26RV5 DC    BL4'0'              RESERVED                             SM652000
0000E0 00000000                    2313+SMF26PLN DC    BL4'0'              PRINTED LINES                        SM653000
0000E4 00000000                    2314+SMF26PPG DC    BL4'0'              PRINTED PAGES                        SM654000
0000E8 00000000                    2315+SMF26PUC DC    BL4'0'              PUNCHED CARDS                        SM655000

0000EC                             2316+SMF26END DS    0C                  END OF TYPE 26 RECORD                SM656000

BR1      HASP SMF BUFFER DSECT                                                                                 PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   2318+* SUBSYSTEM HEADER FOR HASP SUBSYSTEM RECORD TYPES 43, 45, 47, & 48     SM658000

0000EC                      0001A  2320+         ORG   SMFRSTRT                                                 SM660000
00001A 0002                        2321+SMFSSID  DC    XL2'0002'           HASP SUBSYSTEM ID                    SM661000
00001C 0000                        2322+SMFSSRSV DC    BL2'0'              RESERVED                             SM662000
00001E 0000                        2323+SMFSSLEN DC    BL2'0'              LENGTH OF REST OF RECORD             SM663000


000020                             2325+SMFSSTRT DS    0C                  DEFINE START OF SUBSYSTEM PORTION    SM665000

                                   2327+* BEGINNING OF HASP TYPE 43 START HASP RECORD AFTER HDR & SUBSYSTEM HDR SM667000

000020 000000                      2329+SMF43RV1 DC    BL3'0'              RESERVED                             SM669000

000023 00                          2330+SMF43OPT DC    BL1'0'              START HASP OPTIONS                   SM670000
000024                             2331+SMF43END DS    0C                  END OF TYPE 43 SMF RECORD            SM671000




                                   2333+* BEGINNING OF HASP TYPE 45 STOP  HASP RECORD AFTER HDR & SUBSYSTEM HDR SM673000
000024                      00020  2334+         ORG   SMFSSTRT                                                 SM674000
000020                             2335+SMF45END DS    0C                  END OF TYPE 45 RECORD                SM675000


                                   2337+* BEGINNING OF HASP TYPE 47 START SUBSYSTEM EVENT AFTER TWO HEADERS     SM677000

000020                      00020  2339+         ORG   SMFSSTRT                                                 SM679000
000020 0000                        2340+SMF47EVT DC    BL2'0'              EVENT STARTING                       SM680000
000022 0000                        2341+SMF47LN1 DC    BL2'0'              ID SEC LGTH (INCL SMF47LN1)          SM681000
000024 4040404040404040            2342+SMF47RMT DC    CL8' '              REMOTE NAME                          SM682000
00002C 4040404040404040            2343+SMF47LIN DC    CL8' '              LINE NAME                            SM683000
000034 4040404040404040            2344+SMF47PSW DC    CL8' '              PASSWORD                             SM684000

00003C 0000                        2345+SMF47LN2 DC    BL2'0'              MSG SEC LGTH (INCL SMF47LN2)         SM685000
00003E F040404040404040            2346+SMF47MSG DC    CL36'0'             MESSAGE                              SM686000
000062                             2347+SMF47END DS    0C                  END OF TYPE 47 RECORD                SM687000



                                   2349+* BEGINNING OF HASP TYPE 48 STOP  SUBSYSTEM EVENT AFTER TWO HEADERS     SM689000

000062                      00020  2351+         ORG   SMFSSTRT                                                 SM691000
000020 0000                        2352+SMF48EVT DC    BL2'0'              EVENT STOPPING                       SM692000
000022 0000                        2353+SMF48RV1 DC    BL2'0'              RESERVED                             SM693000
000024 4040404040404040            2354+SMF48RMT DC    CL8' '              REMOTE NAME                          SM694000
00002C 4040404040404040            2355+SMF48LIN DC    CL8' '              LINE NAME                            SM695000
000034 4040404040404040            2356+SMF48PSW DC    CL8' '              PASSWORD                             SM696000
00003C                             2357+SMF48END DS    0C                  END OF TYPE 48 RECORD                SM697000






                                   2359+*                             SMFSSID                                   SM699000



                            00002  2361+SMFHSPID EQU   X'0002'             HASP SUBSYSTEM IDENTIFICATION        SM701000
BR1      HASP SMF BUFFER DSECT                                                                                 PAGE   68



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2363+*                             SMFTYPE & SMFHDRTY                        SM703000



                            000FF  2365+SMFJMRTP EQU   X'FF'               JMR BUFFER                           SM705000
                            00000  2366+SMFRECTP EQU   X'00'               SMF RECORD BUFFER                    SM706000
                            00006  2367+SMFOUTTP EQU   6                   HASP OUTPUT PROCESSOR SMF RECORD TYP SM707000

                            0001A  2368+SMFPRGTP EQU   26                  HASP PURGE RECORD TYPE               SM708000
                            0002B  2369+SMFSSSTP EQU   43                  START SUBSYSTEM RECORD TYPE          SM709000
                            0002D  2370+SMFPSSTP EQU   45                  STOP  SUBSYSTEM RECORD TYPE          SM710000
                            0002F  2371+SMFSSETP EQU   47                  START SUBSYSTEM EVENT ID             SM711000
                            00030  2372+SMFPSETP EQU   48                  STOP  SUBSYSTEM EVENT ID             SM712000





                                   2374+*                             SMF6IOE                                   SM714000




                            00004  2376+SMFDSER  EQU   X'04'               DATA SET ERROR                       SM716000

                            00001  2377+SMFCBER  EQU   X'01'               CONTROL BLOCK READ ERROR             SM717000





                                   2379+*                             SMF26INF                                  SM719000



                            00080  2381+SMFPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              SM721000
                            00040  2382+SMFSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              SM722000
                            00020  2383+SMFTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           SM723000

                            00010  2384+SMFNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    SM724000
                            00008  2385+SMFEXBCH EQU   B'00001000'         EXECUTION BATCHING JOB               SM725000
                            00004  2386+SMFJBOP5 EQU   B'00000100'         RESERVED                             SM726000
                            00002  2387+SMFJBOP6 EQU   B'00000010'         RESERVED                             SM727000
                            00001  2388+SMFOPCAN EQU   B'00000001'         JOB CANCELED BY $C OR $P             SM728000






                                   2390+*                             SMF47EVT & SMF48EVT                       SM730000




                            00001  2392+SMFRMTEV EQU   X'0001'             HASP SIGNON/SIGNOFF SUBSYSTEM EVENT  SM732000
                            00002  2393+SMFLINEV EQU   X'0002'             HASP START/STOP LINE SUBSYSTEM EVENT SM733000
000002                             2394+HASPBR1  CSECT                     END OF HASP SMF BUFFER DSECT         SM734000
BR1      HASP DEVICE CONTROL TABLE FORMAT                                                                      PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   2397+*****************************************************                   DC014000
                                   2398+*   DCTSTAT  *            *            *            *                   DC016000
                                   2399+*   DCTPCE     ADDRESS OF PROCESSOR CONTROL ELEMENT *                   DC018000
                                   2400+*                                                   *                   DC020000

                                   2401+* STATUS     *            *            *            *                   DC022000
                                   2402+*****************************************************                   DC024000
                                   2403+*   DCTBUFAD *            *            *            *                   DC026000
                                   2404+*                                                   *                   DC028000

                                   2405+*              CURRENT BUFFER ADDRESS               *                   DC030000
                                   2406+*            *            *            *            *                   DC032000
                                   2407+*****************************************************                   DC034000
                                   2408+*   DCTPSTAT *            *            *            *                   DC036000
                                   2409+*   DCTDCB          DCB ADDRESS (SEQUENTIAL ONLY)   *                   DC038000
                                   2410+*   DCTSEEK         CURRENT TRACK ADDRESS (DA ONLY) *                   DC040000

                                   2411+* RJE FLAGS  *            *            *            *                   DC042000
                                   2412+*****************************************************                   DC044000
                                   2413+*   MDCTOPCT *            *            *            *                   DC046000
                                   2414+*   DCTEWF       EVENT WAIT FIELD OR POST ADDRESS   *                   DC048000
                                   2415+*   MDCTOBUF      RJE OUTPUT BUFFER CHAIN FIELD     *                   DC050000

                                   2416+*RJE OPEN CT *            *            *            *                   DC052000
                                   2417+*****************************************************                   DC054000
                                   2418+*   DCTBUFCT *   DCTNO    *   DCTDEVTP *   DCTIOTYP *                   DC056000
                                   2419+*            *   MDCTATTN *            *I/O REQ TYPE*                   DC058000
                                   2420+*   ACTIVE   *    DCT     *   DEVICE   *   DCTPCODE *                   DC060000

                                   2421+*BUFFER COUNT*   NUMBER   *    TYPE    * LINE CODE  *                   DC062000
                                   2422+*****************************************************                   DC064000
                                   2423+*   DCTFLAGS *            *            *            *                   DC066000
                                   2424+*   DCTCHAIN           ADDRESS OF NEXT DCT          *                   DC068000
                                   2425+*  OPERATOR  *                                      *                   DC070000

                                   2426+*  COMMANDS  *            *            *            *                   DC072000
                                   2427+*****************************************************                   DC074000
                                   2428+*   DCTDEVN  *            *            *            *                   DC076000
                                   2429+*                                                   *                   DC078000
                                   2430+*                EBCDIC DEVICE NAME                 *                   DC080000

                                   2431+*            *            *            *            *                   DC082000
                                   2432+*****************************************************                   DC084000
                                   2433+*   DCTOTC   *            *   DCTOTT   *            *                   DC086000
                                   2434+* OVERLAY TRACKS/CYLINDER *  OVERLAY EXTENT ORIGIN  *                   DC088000
                                   2435+*          EBCDIC DEVICE NAME (CONTINUED)           *                   DC090000
                                   2436+*            *            *            *            *                   DC092000

                                   2437+*****************************************************                   DC094000
BR1      HASP DEVICE CONTROL TABLE FORMAT (CONTINUED)                                                          PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   2440+*****************************************************      *            DC100000
                                   2441+*   DCTPRINT *   DCTPUNCH *   DCTPRINC *   DCTPRLIM *     ***           DC102000
                                   2442+*            *            *            *            *      *  INPUT     DC104000
                                   2443+*   PRINT    *   PUNCH    *  PRIORITY  *  PRIORITY  *      *  DEVICES   DC106000

                                   2444+*DESTINATION *DESTINATION * INCREMENT  *   LIMIT    *     ***           DC108000
                                   2445+*****************************************************      *            DC110000




                                   2447+*****************************************************      *            DC114000
                                   2448+*   DCTFORMS *            *            *            *     ***           DC116000
                                   2449+*                                                   *      *  OUTPUT    DC118000

                                   2450+*                 PRINT/PUNCH FORMS                 *      *  DEVICES   DC120000
                                   2451+*            *            *            *            *     ***           DC122000
                                   2452+*****************************************************      *            DC124000





                                   2454+*****************************************************      *            DC128000
                                   2455+*   MDCTCODE *            *            *            *     ***           DC130000
                                   2456+*                                                   *      *  RJE       DC132000

                                   2457+*             ADDRESS OF RJE CODE TABLE             *      *  LINE      DC134000
                                   2458+*            *            *            *            *     ***           DC136000
                                   2459+*****************************************************      *            DC138000
BR1      HASP DEVICE CONTROL TABLE FORMAT (CONTINUED)                                                          PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   2462+*****************************************************                   DC140070

                                   2463+*   DCTFCB   *            *            *            *                   DC140140
                                   2464+*                                                   *                   DC140210

                                   2465+*        FORMS CONTROL BUFFER IDENTIFICATION        *                   DC140280
                                   2466+*            *            *            *            *                   DC140350
                                   2467+*****************************************************                   DC140420
                                   2468+*   DCTUCS   *            *            *            *                   DC140490
                                   2469+*                                                   *                   DC140560

                                   2470+*       UNIVERSAL CHARACTER SET IDENTIFICATION      *                   DC140630
                                   2471+*            *            *            *            *                   DC140700
                                   2472+*****************************************************                   DC140770
                                   2473+*   DCTPPSW  *  DCTCLASS  *            *            *                   DC140840
                                   2474+* PRINT/     *                                      *                   DC140910
                                   2475+* PUNCH      *         PRINT/PUNCH CLASS MASK       *                   DC140980
                                   2476+* SWITCHES   *            *            *            *                   DC141050
                                   2477+*****************************************************                   DC141120
                                   2478+*            *            *            *            *                   DC141190

                                   2479+*                                                   *                   DC141260

                                   2480+*        PRINT/PUNCH CLASS MASK (CONTINUED)         *                   DC141330
                                   2481+*            *            *            *            *                   DC141400
                                   2482+*****************************************************                   DC141470
                                   2483+*            *            *            *            *                   DC141500
                                   2484+*   CLASS    *   MASK     *                         *                   DC141540

                                   2485+*   MASK     *  TERMIN-   *        (UNUSED)         *                   DC141610
                                   2486+*   (CONT)   *   ATOR     *            *            *                   DC141680
                                   2487+*****************************************************                   DC141750
BR1      HASP DEVICE CONTROL TABLE FORMAT (CONTINUED)                                                          PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   2490+*****************************************************                   DC142000
                                   2491+*   DCTWORK  *            *            *            *                   DC144000
                                   2492+*                                                   *                   DC146000

                                   2493+*         VARIABLE LENGTH DEVICE WORK AREA          *                   DC148000

                                   2494+*            *            *            *            *                   DC150000
                                   2495+*****************************************************                   DC152000
BR1      HASP INTERNAL READER DCT WORK AREA FORMAT                                                             PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   2498+*****************************************************      *            DC160000
                                   2499+*   RIDUCB   *            *            *            *     ***           DC162000
                                   2500+*                                                   *    *****          DC164000
                                   2501+*          ADDRESS OF INTERNAL READER UCB           *      *            DC166000
                                   2502+*            *            *            *            *      *            DC168000
                                   2503+*****************************************************      *            DC170000
                                   2504+*   RIDFLAGS *            *   RIDTJID  *            *      *            DC172000
                                   2505+*                         *                         *      *            DC174000
                                   2506+*  SYNCHRONIZATION FLAGS  *        RESERVED         *      *            DC176000

                                   2507+*            *            *            *            *      *            DC178000
                                   2508+*****************************************************      *            DC180000
                                   2509+*   RIDECB   *            *            *            *   INTERNAL        DC182000
                                   2510+*                                                   *    READER         DC184000

                                   2511+*          ADDRESS OF INTERNAL READER ECB           *     DCT           DC186000
                                   2512+*            *            *            *            *  WORK AREA        DC188000
                                   2513+*****************************************************      *            DC190000
                                   2514+*   RIDTCB   *            *            *            *      *            DC192000
                                   2515+*                                                   *      *            DC194000
                                   2516+*          ADDRESS OF INTERNAL READER TCB           *      *            DC196000
                                   2517+*            *            *            *            *      *            DC198000
                                   2518+*****************************************************      *            DC200000
                                   2519+*   RIDDATA  *            *            *            *      *            DC212000
                                   2520+*                                                   *      *            DC214000
                                   2521+*         80-BYTE INTERNAL READER DATA AREA         *    *****          DC216000
                                   2522+*            *            *            *            *     ***           DC218000

                                   2523+*****************************************************      *            DC220000
BR1      HASP DEVICE CONTROL TABLE DSECT                                                                       PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





000000                             2526+DCTDSECT DSECT                     DEVICE CONTROL TABLE DSECT           DC308000
000000                             2527+DCTSTAT  DS    0C                  DCT STATUS                           DC310000
000000                             2528+DCTPCE   DS    F                   ADDRESS OF PROCESSOR CONTROL ELEMENT DC312000
000004                             2529+DCTBUFAD DS    F                   CURRENT BUFFER ADDRESS               DC314000
000008                             2530+DCTPSTAT DS    0C                  REMOTE JOB ENTRY FLAGS               DC316000
000008                             2531+DCTDCB   DS    0F                  ADDRESS OF DATA CONTROL BLOCK        DC318000
000008                             2532+DCTSEEK  DS    F                   CURRENT TRACK ADDRESS                DC320000
00000C                             2533+MDCTOPCT DS    0C                  COUNT OF OPEN RJE PROCESSORS         DC322000
00000C                             2534+MDCTOBUF DS    0F                  RJE OUTPUT BUFFER CHAIN              DC324000
00000C                             2535+DCTEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     DC326000

000010                             2536+DCTBUFCT DS    C                   ACTIVE BUFFER COUNT                  DC328000
000011                             2537+MDCTATTN DS    0C                  RJE LINE ACTION PENDING FLAGS        DC330000
000011                             2538+DCTNO    DS    C                   DCT NUMBER                           DC332000

000012                             2539+DCTDEVTP DS    C                   DEVICE TYPE                          DC334000
000013                             2540+DCTIOTYP DS    0C                  I/O REQUEST TYPE                     DC336000
000013                             2541+DCTPCODE DS    C                   LINE/REMOTE CODE                     DC338000
000014                             2542+DCTFLAGS DS    0C                  OPERATOR COMMAND FLAGS               DC340000
000014                             2543+DCTCHAIN DS    F                   ADDRESS OF NEXT DCT                  DC342000
000018                             2544+DCTDEVN  DS    0CL8,CL4            EBCDIC DEVICE NAME                   DC344000
00001C                             2545+DCTOTC   DS    H                   OVERLAY DEVICE TRACKS/CYLINDER       DC346000
00001E                             2546+DCTOTT   DS    H                   OVERLAY EXTENT BEGINNING TT          DC348000
000020                             2547+MDCTCODE DS    0F                  ADDRESS OF RJE CODE TABLE            DC350000
000020                             2548+DCTFORMS DS    0F                  PRINT/PUNCH FORMS ID                 DC352000
000020                             2549+DCTPRINT DS    C                   DEFAULT PRINT ROUTING                DC354000
000021                             2550+DCTPUNCH DS    C                   DEFAULT PUNCH ROUTING                DC356000

000022                             2551+DCTPRINC DS    C                   PRIORITY INCREMENT                   DC358000

000023                             2552+DCTPRLIM DS    C                   PRIORITY LIMIT                       DC360000
000024                             2553+DCTFCB   DS    F                   PRINT FCB ID                         DC360300

000028                             2554+DCTUCS   DS    F                   PRINT UCS ID                         DC360600
00002C                             2555+DCTPPSW  DS    X                   PRINT/PUNCH SWITCHES                 DC360900
00002D                             2556+DCTCLASS DS    CL8                 PRINT/PUNCH CLASS MASK               DC361200
000035                             2557+         DS    C                   CLASS MASK TERMINATOR                DC361500
000038                             2558+DCTWORK  DS    0F                  START OF DEVICE WORK AREA            DC362000
000038                             2559+RIDUCB   DS    0F                  INTERNAL READER UCB ADDRESS          DC364000
000038                             2560+MDCTFCS  DS    H                   REMOTE TERMINAL FUNCTION CONTROL SEQ DC366000
00003A                             2561+MDCTERCT DS    0C                  REMOTE TERMINAL ERROR COUNT          DC368000
00003A                             2562+DCTPRLEN DS    C                   REMOTE TERMINAL DATA WIDTH           DC370000
00003B                             2563+DCTPLINE DS    C                   REMOTE TERMINAL LINE CHARACTERISTICS DC372000
00003C                             2564+MDCTRCB  DS    0C                  REMOTE TERMINAL RECORD CONTROL BYTE  DC374000
00003C                             2565+MDCTDCT  DS    0F                  REMOTE TERMINAL DCT CHAIN FIELD      DC376000

00003C                             2566+RIDFLAGS DS    H                   INTERNAL READER SYNCH FLAGS          DC378000
00003E                             2567+RIDTJID  DS    H                   RESERVED                             DC380000

000040                             2568+RIDECB   DS    0F                  INTERNAL READER ECB ADDRESS          DC382000

000040                             2569+MDCTRSEQ DS    C                   REMOTE TERMINAL TRANSMIT SEQUENCE    DC384000
000041                             2570+MDCTTSEQ DS    C,H                 REMOTE TERMINAL RECEIVE SEQUENCE     DC386000
000044                             2571+MDCTPSWD DS    0CL8                REMOTE TERMINAL PASSWORD             DC388000
000044                             2572+RIDTCB   DS    F                   INTERNAL READER TCB ADDRESS          DC390000
000048                             2573+RIDDATA  DS    CL80                INTERNAL READER DATA AREA            DC394000
                            00098  2574+DCTEND   EQU   *                   SYMBOL FOR END OF DCT                DC395000
000002                             2575+HASPBR1  CSECT                     END OF DEVICE CONTROL TABLE DSECT    DC396000
BR1      HASP DCT STATUS BIT DEFINITIONS                                                                       PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                   2578+*                             DCTSTAT                                   DC402000




                            00080  2580+DCTINUSE EQU   X'80'               DCT IS IN USE                        DC406000
                            00040  2581+DCTDRAIN EQU   X'40'               DCT IS DRAINED                       DC408000

                            00020  2582+DCTHOLD  EQU   X'20'               DCT IS HELD                          DC410000
                            00010  2583+DCTEJECT EQU   X'10'               DEVICE IS AT CHNL 1 POSITION         DC411000





                                   2585+*                             DCTPSTAT                                  DC414000



                            00080  2587+DCTLOGAL EQU   X'80'               LOG EVERY CHANNEL END                DC418000
                            00040  2588+DCTLEASE EQU   X'40'               LEASED LINE                          DC420000
                            00020  2589+DCTETX   EQU   X'20'               AN ETX HAS BEEN RECEIVED             DC422000
                            00010  2590+DCTSOFF  EQU   X'10'               A /*SIGNOFF CARD HAS BEEN RECEIVED   DC424000
                            00010  2591+DCTEOF   EQU   X'10'               AN EOF HAS BEEN DETECTED             DC425000
                            00008  2592+DCTSINON EQU   X'08'               REMOTE DCT IS ATTACHED TO LINE DCT   DC426000

                            00004  2593+DCTPOST  EQU   X'04'               I/O COMPLETE FLAG                    DC428000
                            00002  2594+DCTABORT EQU   X'02'               TRANSMISSION WAS ABORTED             DC430000
                            00001  2595+DCTPBUF  EQU   X'01'               REMOTE OUTPUT BUFFER INDICATION      DC432000






                                   2597+*                             DCTDEVTP                                  DC436000



                            00000  2599+DCTDA    EQU   X'00'               DIRECT ACCESS DEVICE                 DC440000
                            00001  2600+DCTOLAY  EQU   X'01'               OVERLAY DEVICE                       DC442000
                            00002  2601+DCTLNE   EQU   X'02'               REMOTE JOB ENTRY LINE                DC444000

                            00010  2602+DCTRDR   EQU   X'10'               LOCAL CARD READER                    DC446000
                            00012  2603+DCTRJR   EQU   X'12'               REMOTE CARD READER                   DC450000
                            00014  2604+DCTINR   EQU   X'14'               INTERNAL READER                      DC452000
                            00020  2605+DCTPRT   EQU   X'20'               LOCAL PRINTER                        DC454000
                            00022  2606+DCTRPR   EQU   X'22'               REMOTE PRINTER                       DC456000
                            00030  2607+DCTPUN   EQU   X'30'               LOCAL PUNCH                          DC458000
                            00032  2608+DCTRPU   EQU   X'32'               REMOTE PUNCH                         DC460000
                            00042  2609+DCTRCON  EQU   X'42'               REMOTE CONSOLE                       DC464000

BR1      HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                   2612+*                             DCTIOTYP                                  DC470000



                            00080  2614+DCTREAD  EQU   X'80'               READ REQUEST                         DC474000
                            00040  2615+DCTWRITE EQU   X'40'               WRITE REQUEST                        DC476000
                            00008  2616+DCTREJRM EQU   X'08'               REMOTE RESTRICTION ALWAYS 0          DC482000
                            00004  2617+DCTREJJB EQU   X'04'               RESTRICTED FROM JOB COMMANDS         DC484000

                            00002  2618+DCTREJDV EQU   X'02'               RESTRICTED FROM DEVICE COMMANDS      DC486000
                            00001  2619+DCTREJSY EQU   X'01'               RESTRICTED FROM SYSTEM COMMANDS      DC488000





                                   2621+*                             DCTPCODE                                  DC492000




                            00000  2623+DCTPHALF EQU   X'00'               HALF-DUPLEX LINE                     DC496000
                            00001  2624+DCTPFULL EQU   X'01'               FULL-DUPLEX LINE                     DC498000

                            00002  2625+DCTPWIDE EQU   X'02'               WIDE-BAND LINE                       DC500000
                            00020  2626+DCTPPRES EQU   X'20'               HARDWARE COMPRESS FEATURE            DC501000
                            00010  2627+DCTPCON  EQU   X'10'               REMOTE TERMINAL CONSOLE              DC502000
                            00010  2628+DCTPMRF  EQU   X'10'               MULTIPLE-RECORD FEATURE              DC504000
                            00008  2629+DCTPTAB  EQU   X'08'               HORIZONTAL FORMAT CONTROL            DC506000
                            00004  2630+DCTPROG  EQU   X'04'               PROGRAMMABLE INTERFACE               DC508000
                            00002  2631+DCTPVAR  EQU   X'02'               VARIABLE LENGTH RECORDS              DC510000

                            00001  2632+DCTPBLK  EQU   X'01'               BLOCKED RECORDS                      DC512000





                                   2634+*                             DCTPLINE                                  DC516000




                            00000  2636+DCTP2770 EQU   X'00'               1009, 2770, 3780                     DC520000
                            00001  2637+DCTPHARD EQU   X'01'               1978, 2780                           DC522000
                            00002  2638+DCTP20   EQU   X'02'               360/20 SUB-MODEL 5 OR 6              DC524000
                            00004  2639+DCTP360  EQU   X'04'               360/22, 25, 30, 40, ETC.             DC526000

                            00006  2640+DCTP20S2 EQU   X'06'               360/20 SUB-MODEL 2 OR 4              DC528000
                            00008  2641+DCTP1130 EQU   X'08'               1130                                 DC530000
                            0000A  2642+DCTPSYS3 EQU   X'0A'               SYSTEM/3                             DC532000
                            0000E  2643+DCTPCPU  EQU   X'0E'               CPU TERMINAL                         DC534000
                            00010  2644+DCTPHASP EQU   X'10'               HASP                                 DC536000
                            00020  2645+DCTPASCI EQU   X'20'               USASCII CODE                         DC538000

                            00040  2646+DCTPTRSP EQU   X'40'               TRANSPARENCY                         DC540000
                            00080  2647+DCTPBSC  EQU   X'80'               BINARY SYNCHRONOUS LINE              DC542000
BR1      HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                   2650+*                             DCTFLAGS                                  DC548000



                            00080  2652+DCTSTOP  EQU   X'80'               $Z ($STOP) COMMAND                   DC552000
                            00040  2653+DCTDELET EQU   X'40'               $C ($DELETE) COMMAND                 DC554000

                            00020  2654+DCTRSTRT EQU   X'20'               $E ($RESTART) COMMAND                DC556000
                            00010  2655+DCTRPT   EQU   X'10'               $N ($REPEAT) COMMAND                 DC558000
                            00008  2656+DCTBKSP  EQU   X'08'               $B ($BACKSPACE) COMMAND              DC560000
                            00004  2657+DCTHOLDJ EQU   X'04'               $T...,H COMMAND                      DC562000
                            00004  2658+DCTSPACE EQU   X'04'               $T...,C=1 COMMAND                    DC564000






                                   2660+*                                  DCTPPSW                              DC568000



                            00080  2662+DCTPPSWC EQU   X'80'               FCB CARRAGE ALTERED                  DC571000

                            00040  2663+DCTPPSWF EQU   X'40'               FORMS CONTROLLED BY OPERATOR         DC572000
                            00020  2664+DCTPPSWQ EQU   X'20'               QUEUE CLASSES ARE ALTERED            DC573000
                            00010  2665+DCTPPSWS EQU   X'10'               SUPPRESS SEPARATOR PAGES             DC574000
                            00008  2666+DCTPPSWT EQU   X'08'               UCS TRAIN ALTERED                    DC575000
                            00004  2667+DCTPPSWU EQU   X'04'               UCS NOT STANDARD                     DC575500
                            00002  2668+DCTPPSWI EQU   X'02'               DEVICE IDLE MESSAGE ISSUED           DC576000

                            00001  2669+DCTPPSWO EQU   X'01'               OPERATOR ACTION ALLOWED              DC577000





                                   2671+*                             RIDFLAGS                                  DC580000




                            00080  2673+RIDPOST  EQU   X'80'               USER WAITING FOR POST                DC584000
                            00040  2674+RIDBUSY  EQU   X'40'               I/O SIMULATION IN PROCESS            DC585000
BR1      HASP JOB QUEUE ENTRY FORMAT                                                                           PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   2677+*****************************************************                   JQ012000
                                   2678+*   QUEPRIO  *   QUETYPE  *   QUEJOBNO *            *                   JQ014000
                                   2679+*            *            *                         *                   JQ016000
                                   2680+*  PRIORITY  *    TYPE    *       JOB NUMBER        *                   JQ018000
                                   2681+*            *            *            *            *                   JQ020000

                                   2682+*****************************************************                   JQ022000
                                   2683+*   QUECHAIN *            *            *            *                   JQ024000
                                   2684+*   QUEFLAGS *                                      *                   JQ026000

                                   2685+*  OPERATOR  *  ADDRESS OF NEXT JOB QUEUE ELEMENT   *                   JQ028000
                                   2686+*  COMMANDS  *            *            *            *                   JQ030000
                                   2687+*****************************************************                   JQ032000
                                   2688+*   QUETRAK  *            *            *            *                   JQ034000
                                   2689+*                                                   *                   JQ036000

                                   2690+*        TRACK ADDRESS OF JOB CONTROL TABLE         *                   JQ038000
                                   2691+*            *            *            *            *                   JQ040000
                                   2692+*****************************************************                   JQ042000
                                   2693+*   QUEPRTRT *   QUEPUNRT *  QUEJOECT  *            *                   JQ044000
                                   2694+*            *            *                         *                   JQ046000
                                   2695+*    PRINT   *    PUNCH   * JOB OUTPUT ELEMENT COUNT*                   JQ048000
                                   2696+*    ROUTE   *    ROUTE   *            *            *                   JQ050000
                                   2697+*****************************************************                   JQ052000

BR1      HASP JOB QUEUE ENTRY FIELD DEFINITIONS                                                                PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   2699+*                             HASP JOB QUEUE ENTRY DISPLACEMENTS        JQ056000


                            00000  2701+QUEPRIO  EQU   0                   JOB PRIORITY                         JQ060000
                            00001  2702+QUETYPE  EQU   1                   LOGICAL QUEUE TYPE                   JQ062000
                            00002  2703+QUEJOBNO EQU   2                   HASP JOB NUMBER                      JQ064000

                            00004  2704+QUEFLAGS EQU   4                   JOB QUEUE FLAGS                      JQ066000
                            00004  2705+QUECHAIN EQU   4                   ADDRESS OF NEXT JOB QUEUE ELEMENT    JQ068000
                            00008  2706+QUETRAK  EQU   8                   TRACK ADDRESS OF JOB CONTROL TABLE   JQ070000
                            0000C  2707+QUEPRTRT EQU   12                  PRINT ROUTE                          JQ072000
                            0000D  2708+QUEPUNRT EQU   13                  PUNCH ROUTE                          JQ074000
                            0000E  2709+QUEJOECT EQU   14                  JOB OUTPUT ELEMENT COUNT             JQ076000









                                   2711+*                             HASP JOB QUEUE ENTRY BIT DEFINITIONS      JQ084000





                                   2713+*                             QUETYPE                                   JQ088000


                            00080  2715+QENTBY   EQU   X'80'               QUEUE ENTRY BUSY BIT                 JQ092000

                            00040  2716+$XEQ     EQU   X'40'               OS EXECUTION QUEUE                   JQ094000
                            00020  2717+$INPUT   EQU   X'20'               INPUT QUEUE                          JQ096000
                            00010  2718+$SETUP   EQU   X'10'               SETUP QUEUE                          JQ098000
                            00008  2719+$BRKDOWN EQU   X'08'               BREAKDOWN QUEUE                      JQ100000
                            00004  2720+$OUTPUT  EQU   X'04'               OUTPUT QUEUE                         JQ102000
                            00002  2721+$HARDCPY EQU   X'02'               OUTPUT IN-PROGRESS QUEUE             JQ104000
                            00001  2722+$PLOT    EQU   X'01'               PLOT QUEUE                           JQ106000
                            00000  2723+$PURGE   EQU   X'00'               PURGE QUEUE                          JQ108000





                                   2725+*                             QUEFLAGS                                  JQ112000



                            00080  2727+QUEHOLDA EQU   X'80'               HOLD ALL JOBS                        JQ116000
                            00040  2728+QUEHOLD1 EQU   X'40'               HOLD SINGLE JOB                      JQ118000
                            00020  2729+QUEHOLD2 EQU   X'20'               HOLD FOR DUPLICATE JOB NAME          JQ120000

                            00010  2730+QUEPURGE EQU   X'10'               JOB IS TO BE PURGED                  JQ122000
                            00008  2731+QUEOPCAN EQU   X'08'               OPERATOR ISSUED $C OR $P JOB         JQ124000
                            00004  2732+QUEOPRTE EQU   X'04'               OPERATOR HAS ISSUED $R ALL           JQ125000
                            00002  2733+QUEJCTSW EQU   X'02'               JCT INTERLOCK FOR UPDATE             JQ125100
BR1      HASP JOB INFORMATION TABLE ELEMENT FORMAT                                                             PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   2736+*****************************************************                   JI016000
                                   2737+*   JITJNAME *            *            *            *                   JI018000
                                   2738+*                                                   *                   JI020000
                                   2739+*                     JOB NAME                      *                   JI022000

                                   2740+*            *            *            *            *                   JI024000
                                   2741+*****************************************************                   JI026000
                                   2742+*            *            *            *            *                   JI028000

                                   2743+*                                                   *                   JI030000
                                   2744+*               JOB NAME (CONTINUED)                *                   JI032000
                                   2745+*            *            *            *            *                   JI034000
                                   2746+*****************************************************                   JI036000
BR1      HASP JOB INFORMATION TABLE ELEMENT FIELD DEFINITIONS                                                  PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2748+*                   HASP JOB INFORMATION TABLE ELEMENT DISPLACEMENTS    JI040000





                            00000  2750+JITJNAME EQU   0                   JOB NAME                             JI044000
                                   2751+*                                                                       JI046000

                                   2752+*                                                                       JI048000
                                   2753+*        THE FOLLOWING ENTRIES ARE NOT IMPLEMENTED BUT REPRESENT        JI050000
                                   2754+*        SUGGESTIONS AS TO POSSIBLE INSTALLATION MODIFICATIONS...       JI052000
                                   2755+*                                                                       JI054000

                                   2756+*                                                                       JI056000
                                   2757+*                                                                       JI058000
                                   2758+*JITLINE EQU   8                   ESTIMATED THEN ACTUAL PRINT LINES    JI060000
                                   2759+*JITCARD EQU   12                  ESTIMATED THEN ACTUAL PUNCHED CARDS  JI062000
                                   2760+*JITETIM EQU   16                  ESTIMATED EXECUTION TIME             JI064000
                                   2761+*JITSAFE EQU   20                  JOB SECURITY CONTROL PASSWORD        JI066000
                                   2762+*JITSTAT EQU   28                  ADDITIONAL JOB STATUS BITS           JI068000
                                   2763+*JITETC  EQU   29                  ANYTHING ELSE                        JI070000
BR1      HASP JOB CONTROL TABLE FORMAT                                                                         PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   2766+*****************************************************                   JC014000
                                   2767+*   JCTJQE   *            *            *            *                   JC016000
                                   2768+*                                                   *                   JC018000

                                   2769+*      DISPLACEMENT OF HASP JOB QUEUE ELEMENT       *                   JC020000
                                   2770+*            *            *            *            *                   JC022000
                                   2771+*****************************************************                   JC024000
                                   2772+*   JCTIOTTR *            *            *            *                   JC026000
                                   2773+*                                                   *                   JC028000
                                   2774+*     TRACK ADDRESS OF FIRST INPUT/OUTPUT TABLE     *                   JC030000
                                   2775+*            *            *            *            *                   JC032000
                                   2776+*****************************************************                   JC034000
                                   2777+*   JCTDSKEY *            *            *            *                   JC036000
                                   2778+*                                                   *                   JC038000
                                   2779+*              PERIPHERAL DATA SET KEY              *                   JC040000
                                   2780+*            *            *            *            *                   JC042000

                                   2781+*****************************************************                   JC044000

                                   2782+*   JCTINJCT *            *            *            *                   JC046000
                                   2783+*                                                   *                   JC048000

                                   2784+*            TRACK ADDRESS OF INPUT JCT             *                   JC050000
                                   2785+*            *            *            *            *                   JC052000
                                   2786+*****************************************************                   JC054000
                                   2787+*            *   JCTSMFLG *   JCTPURGE *   JCTJBOPT *                   JC056000
                                   2788+*            *            *            *            *                   JC058000
                                   2789+*  RESERVED  * SMF FLAGS  *START OF SMF*    JOB     *                   JC060000
                                   2790+*            *            *PURGE RECORD*  OPTIONS   *                   JC062000
                                   2791+*****************************************************                   JC064000
                                   2792+*   JCTJOBEB *            *            *            *                   JC066000
                                   2793+*                                                   *                   JC068000
                                   2794+*         HASP ASSIGNED JOB NUMBER (EBCDIC)         *                   JC070000
                                   2795+*            *            *            *            *                   JC072000

                                   2796+*****************************************************                   JC074000
                                   2797+*   JCTJNAME *            *            *            *                   JC076000

                                   2798+*                                                   *                   JC078000

                                   2799+*              JOB NAME FROM JOB CARD               *                   JC080000
                                   2800+*            *            *            *            *                   JC082000
                                   2801+*****************************************************                   JC084000
                                   2802+*            *            *            *            *                   JC086000
                                   2803+*                                                   *                   JC088000
                                   2804+*               JOB NAME (CONTINUED)                *                   JC090000
                                   2805+*            *            *            *            *                   JC092000
                                   2806+*****************************************************                   JC094000
BR1      HASP JOB CONTROL TABLE FORMAT (CONTINUED)                                                             PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   2809+*****************************************************                   JC100000
                                   2810+*   JCTPNAME *            *            *            *                   JC102000
                                   2811+*                                                   *                   JC104000

                                   2812+*          PROGRAMMER'S NAME FROM JOB CARD          *                   JC106000
                                   2813+*            *            *            *            *                   JC108000
                                   2814+*****************************************************                   JC110000
                                   2815+*            *            *            *            *                   JC112000
                                   2816+*                                                   *                   JC114000
                                   2817+*           PROGRAMMER'S NAME (CONTINUED)           *                   JC116000
                                   2818+*            *            *            *            *                   JC118000
                                   2819+*****************************************************                   JC120000
                                   2820+*            *            *            *            *                   JC122000
                                   2821+*                                                   *                   JC124000
                                   2822+*           PROGRAMMER'S NAME (CONTINUED)           *                   JC126000
                                   2823+*            *            *            *            *                   JC128000

                                   2824+*****************************************************                   JC130000
                                   2825+*            *            *            *            *                   JC132000
                                   2826+*                                                   *                   JC134000
                                   2827+*           PROGRAMMER'S NAME (CONTINUED)           *                   JC136000

                                   2828+*            *            *            *            *                   JC138000
                                   2829+*****************************************************                   JC140000
                                   2830+*            *            *            *            *                   JC142000
                                   2831+*                                                   *                   JC144000
                                   2832+*           PROGRAMMER'S NAME (CONTINUED)           *                   JC146000
                                   2833+*            *            *            *            *                   JC148000

                                   2834+*****************************************************                   JC150000
                                   2835+*   JCTMCLAS *   JCTJCLAS *            *   JCTPRIO  *                   JC152000
                                   2836+*            *            *            *            *                   JC154000
                                   2837+*  MSGCLASS  * JOB CLASS  *  RESERVED  * EXECUTION  *                   JC156000
                                   2838+*            *            *            *  PRIORITY  *                   JC158000
                                   2839+*****************************************************                   JC160000
                                   2840+*            *   JCTOPRIO *   JCTROUTE *            *                   JC162000
                                   2841+*            *            *                         *                   JC164000

                                   2842+*  RESERVED  *   OUTPUT   *    INPUT ROUTE CODE     *                   JC166000
                                   2843+*            *  PRIORITY  *            *            *                   JC168000

                                   2844+*****************************************************                   JC170000
                                   2845+*   JCTINDEV *            *            *            *                   JC172000
                                   2846+*                                                   *                   JC174000
                                   2847+*              HASP INPUT DEVICE NAME               *                   JC176000
                                   2848+*            *            *            *            *                   JC178000
                                   2849+*****************************************************                   JC180000
BR1      HASP JOB CONTROL TABLE FORMAT (CONTINUED)                                                             PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   2852+*****************************************************                   JC186000
                                   2853+*            *            *            *            *                   JC188000
                                   2854+*                                                   *                   JC190000

                                   2855+*        HASP INPUT DEVICE NAME (CONTINUED)         *                   JC192000
                                   2856+*            *            *            *            *                   JC194000
                                   2857+*****************************************************                   JC196000

                                   2858+*   JCTACCTN *            *            *            *                   JC198000
                                   2859+*                                                   *                   JC200000
                                   2860+*        JOB ACCOUNTING NUMBER FROM JOB CARD        *                   JC202000
                                   2861+*            *            *            *            *                   JC204000
                                   2862+*****************************************************                   JC206000
                                   2863+*   JCTROOMN *            *            *            *                   JC208000
                                   2864+*                                                   *                   JC210000

                                   2865+*             PROGRAMMER'S ROOM NUMBER              *                   JC212000
                                   2866+*            *            *            *            *                   JC214000
                                   2867+*****************************************************                   JC216000
                                   2868+*   JCTETIME *            *            *            *                   JC218000
                                   2869+*                                                   *                   JC220000

                                   2870+*             ESTIMATED EXECUTION TIME              *                   JC222000
                                   2871+*            *            *            *            *                   JC224000
                                   2872+*****************************************************                   JC226000
                                   2873+*   JCTESTLN *            *            *            *                   JC228000

                                   2874+*                                                   *                   JC230000
                                   2875+*              ESTIMATED OUTPUT LINES               *                   JC232000
                                   2876+*            *            *            *            *                   JC234000
                                   2877+*****************************************************                   JC236000
                                   2878+*   JCTESTPU *            *            *            *                   JC238000
                                   2879+*                                                   *                   JC240000

                                   2880+*              ESTIMATED PUNCHED OUTPUT             *                   JC242000
                                   2881+*            *            *            *            *                   JC244000
                                   2882+*****************************************************                   JC246000
                                   2883+*   JCTFORMS *            *            *            *                   JC248000
                                   2884+*                                                   *                   JC250000

                                   2885+*                 JOB OUTPUT FORMS                  *                   JC252000
                                   2886+*            *            *            *            *                   JC254000
                                   2887+*****************************************************                   JC256000
                                   2888+*            *   JCTCPYCT *            *   JCTLINCT *                   JC258000
                                   2889+*            *            *            *            *                   JC260000

                                   2890+*  RESERVED  *   PRINT    *  RESERVED  *   LINES    *                   JC262000
                                   2891+*            * COPY COUNT *            *  PER PAGE  *                   JC264000
                                   2892+*****************************************************                   JC266000
BR1      HASP JOB CONTROL TABLE FORMAT (CONTINUED)                                                             PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   2895+*****************************************************                   JC272000
                                   2896+*   JCTPROUT *            *   JCTPUOUT *            *                   JC274000
                                   2897+*                         *                         *                   JC276000

                                   2898+*  JOB PRINT ROUTE CODE   *  JOB PUNCH ROUTE CODE   *                   JC278000
                                   2899+*            *            *            *            *                   JC280000
                                   2900+*****************************************************                   JC282000
                                   2901+*   JCTXEQON *            *            *            *                   JC284000
                                   2902+*                                                   *                   JC286000
                                   2903+*            TIME ON EXECUTION PROCESSOR            *                   JC288000

                                   2904+*            *            *            *            *                   JC290000
                                   2905+*****************************************************                   JC292000
                                   2906+*   JCTXDTON *            *            *            *                   JC294000
                                   2907+*                                                   *                   JC296000

                                   2908+*            DATE ON EXECUTION PROCESSOR            *                   JC298000
                                   2909+*            *            *            *            *                   JC300000
                                   2910+*****************************************************                   JC302000
                                   2911+*   JCTXEQOF *            *            *            *                   JC304000
                                   2912+*                                                   *                   JC306000

                                   2913+*           TIME OFF EXECUTION PROCESSOR            *                   JC308000
                                   2914+*            *            *            *            *                   JC310000
                                   2915+*****************************************************                   JC312000
                                   2916+*   JCTXDTOF *            *            *            *                   JC314000
                                   2917+*                                                   *                   JC316000
                                   2918+*           DATE OFF EXECUTION PROCESSOR            *                   JC318000
                                   2919+*            *            *            *            *                   JC320000

                                   2920+*****************************************************                   JC322000
                                   2921+*   JCTOUTON *            *            *            *                   JC324000
                                   2922+*                                                   *                   JC326000

                                   2923+*             TIME ON OUTPUT PROCESSOR              *                   JC328000
                                   2924+*            *            *            *            *                   JC330000
                                   2925+*****************************************************                   JC332000
                                   2926+*   JCTODTON *            *            *            *                   JC334000
                                   2927+*                                                   *                   JC336000

                                   2928+*             DATE ON OUTPUT PROCESSOR              *                   JC338000
                                   2929+*            *            *            *            *                   JC340000
                                   2930+*****************************************************                   JC342000
                                   2931+*   JCTOUTOF *            *            *            *                   JC344000
                                   2932+*                                                   *                   JC346000
                                   2933+*             TIME OFF OUTPUT PROCESSOR             *                   JC348000
                                   2934+*            *            *            *            *                   JC350000
                                   2935+*****************************************************                   JC352000

BR1      HASP JOB CONTROL TABLE FORMAT (CONTINUED)                                                             PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   2938+*****************************************************                   JC358000
                                   2939+*   JCTODTOF *            *            *            *                   JC360000
                                   2940+*                                                   *                   JC362000

                                   2941+*             DATE OFF OUTPUT PROCESSOR             *                   JC364000
                                   2942+*            *            *            *            *                   JC366000
                                   2943+*****************************************************                   JC368000
                                   2944+*   JCTCARDS *            *            *            *                   JC370000
                                   2945+*                                                   *                   JC372000
                                   2946+*    TOTAL NUMBER OF INPUT CARDS (JCL AND SYSIN)    *                   JC374000
                                   2947+*            *            *            *            *                   JC376000
                                   2948+*****************************************************                   JC378000
                                   2949+*   JCTLINES *            *            *            *                   JC380000

                                   2950+*                                                   *                   JC382000

                                   2951+*              GENERATED OUTPUT LINES               *                   JC384000
                                   2952+*            *            *            *            *                   JC386000
                                   2953+*****************************************************                   JC388000
                                   2954+*   JCTPUNCH *            *            *            *                   JC390000
                                   2955+*                                                   *                   JC392000

                                   2956+*             GENERATED PUNCHED OUTPUT              *                   JC394000
                                   2957+*            *            *            *            *                   JC396000
                                   2958+*****************************************************                   JC398000
                                   2959+*            *            *            *            *                   JC400000
                                   2960+*                                                   *                   JC402000
                                   2961+*                  R E S E R V E D                  *                   JC404000
                                   2962+*            *            *            *            *                   JC406000
                                   2963+*****************************************************                   JC408000
                                   2964+*   JCTPRTCT *            *            *            *                   JC410000

                                   2965+*                                                   *                   JC412000

                                   2966+*          CURRENT NUMBER OF LINES PRINTED          *                   JC414000
                                   2967+*            *            *            *            *                   JC416000
                                   2968+*****************************************************                   JC418000
                                   2969+*   JCTPAGCT *            *            *            *                   JC420000
                                   2970+*                                                   *                   JC422000

                                   2971+*          CURRENT NUMBER OF PAGES PRINTED          *                   JC424000
                                   2972+*            *            *            *            *                   JC426000
                                   2973+*****************************************************                   JC428000
                                   2974+*   JCTPUNCT *            *            *            *                   JC430000
                                   2975+*                                                   *                   JC432000
                                   2976+*          CURRENT NUMBER OF CARDS PUNCHED          *                   JC434000
                                   2977+*            *            *            *            *                   JC436000
                                   2978+*****************************************************                   JC438000
BR1      HASP JOB CONTROL TABLE FORMAT (CONTINUED)                                                             PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78








                                   2981+*****************************************************                   JC444000
                                   2982+*   JCTESOUT *            *            *            *                   JC446000
                                   2983+*                                                   *                   JC448000

                                   2984+*        ESTIMATED OUTPUT (LINES AND CARDS)         *                   JC450000
                                   2985+*            *            *            *            *                   JC452000
                                   2986+*****************************************************                   JC454000
                                   2987+*   JCTXOUT  *            *            *            *                   JC456000
                                   2988+*                                                   *                   JC458000
                                   2989+*             GENERATED OUTPUT RECORDS              *                   JC460000
                                   2990+*            *            *            *            *                   JC462000
                                   2991+*****************************************************                   JC464000
                                   2992+*            *            *            *            *                   JC466000
                                   2993+*                                                   *                   JC468000
                                   2994+*                  R E S E R V E D                  *                   JC470000

                                   2995+*            *            *            *            *                   JC472000
                                   2996+*****************************************************                   JC474000
                                   2997+*   JCTCYSAV *            *            *            *                   JC476000
                                   2998+*                                                   *                   JC478000

                                   2999+*      INPUT FILE ALLOCATION BIT MAP SAVE AREA      *                   JC480000
                                   3000+*            *            *            *            *                   JC482000
                                   3001+*****************************************************                   JC484000
                                   3002+*   JCTWORK  *            *            *            *                   JC486000
                                   3003+*                                                   *                   JC488000
                                   3004+*                144-BYTE WORK AREA                 *                   JC490000
                                   3005+*            *            *            *            *                   JC492000
                                   3006+*****************************************************                   JC494000
                                   3007+*   JCTJMR   *            *            *            *                   JC496000
                                   3008+*         JOB MANAGEMENT RECORD AREA (JMR)          *                   JC498000
                                   3009+*   JCTJMRJN        JMR JOB NAME                    *                   JC500000
                                   3010+*            *            *            *            *                   JC502000

                                   3011+*****************************************************                   JC504000
                                   3012+*            *            *            *            *                   JC506000
                                   3013+*                                                   *                   JC508000

                                   3014+*             JMR JOB NAME (CONTINUED)              *                   JC510000
                                   3015+*            *            *            *            *                   JC512000
                                   3016+*****************************************************                   JC514000
                                   3017+*   JCTRDRON *            *            *            *                   JC516000
                                   3018+*                                                   *                   JC518000
                                   3019+*              TIME ON INPUT PROCESSOR              *                   JC520000
                                   3020+*            *            *            *            *                   JC522000
                                   3021+*****************************************************                   JC524000
BR1      HASP JOB CONTROL TABLE FORMAT (CONTINUED)                                                             PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   3024+*****************************************************                   JC530000

                                   3025+*   JCTRDTON *            *            *            *                   JC532000
                                   3026+*                                                   *                   JC534000

                                   3027+*              DATE ON INPUT PROCESSOR              *                   JC536000
                                   3028+*            *            *            *            *                   JC538000
                                   3029+*****************************************************                   JC540000
                                   3030+*   JCTCPUID *            *            *            *                   JC542000
                                   3031+*                                                   *                   JC544000
                                   3032+*              JMR CPU IDENTIFICATION               *                   JC546000
                                   3033+*            *            *            *            *                   JC548000
                                   3034+*****************************************************                   JC550000
                                   3035+*   JCTUSEID *            *            *            *                   JC552000
                                   3036+*                                                   *                   JC554000
                                   3037+*              JMR USER IDENTIFICATION              *                   JC556000
                                   3038+*            *            *            *            *                   JC558000

                                   3039+*****************************************************                   JC560000
                                   3040+*            *            *            *            *                   JC562000

                                   3041+*                                                   *                   JC564000

                                   3042+*        JMR USER IDENTIFICATION (CONTINUED)        *                   JC566000
                                   3043+*            *            *            *            *                   JC568000
                                   3044+*****************************************************                   JC570000
                                   3045+*   JCTSTEP  *   JCTINDC  *            *            *                   JC572000
                                   3046+*            *            *                         *                   JC574000
                                   3047+*CURRENT STEP*  JMR SMF   *     R E S E R V E D     *                   JC576000
                                   3048+*   NUMBER   *  OPTIONS   *            *            *                   JC578000
                                   3049+*****************************************************                   JC580000
                                   3050+*   JCTUCOM  *            *            *            *                   JC582000
                                   3051+*                                                   *                   JC584000
                                   3052+*            JMR USER COMMUNICATION AREA            *                   JC586000
                                   3053+*            *            *            *            *                   JC588000

                                   3054+*****************************************************                   JC590000
                                   3055+*   JCTUJVP  *            *            *            *                   JC592000
                                   3056+*                                                   *                   JC594000

                                   3057+*         JMR ADDRESS OF USER EXIT ROUTINE          *                   JC596000
                                   3058+*            *            *            *            *                   JC598000
                                   3059+*****************************************************                   JC600000
                                   3060+*   JCTRDROF *            *            *            *                   JC602000
                                   3061+*                                                   *                   JC604000
                                   3062+*             TIME OFF INPUT PROCESSOR              *                   JC606000
                                   3063+*            *            *            *            *                   JC608000
                                   3064+*****************************************************                   JC610000
BR1      HASP JOB CONTROL TABLE FORMAT (CONTINUED)                                                             PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   3067+*****************************************************                   JC616000
                                   3068+*   JCTRDTOF *            *            *            *                   JC618000
                                   3069+*                                                   *                   JC620000
                                   3070+*             DATE OFF INPUT PROCESSOR              *                   JC622000

                                   3071+*            *            *            *            *                   JC624000
                                   3072+*****************************************************                   JC626000
                                   3073+*   JCTJOBIN *            *            *            *                   JC628000
                                   3074+*                                                   *                   JC630000
                                   3075+*                JMR JOB SYSIN COUNT                *                   JC632000
                                   3076+*            *            *            *            *                   JC634000

                                   3077+*****************************************************                   JC636000
                                   3078+*   JCTRDR   *            *   JCTJMOPT *            *                   JC638000
                                   3079+*         READER          *            *            *                   JC640000
                                   3080+*  DEVICE TYPE AND CLASS  *  JMR SMF   *  RESERVED  *                   JC642000
                                   3081+*            *            *  OPTIONS   *            *                   JC644000
                                   3082+*****************************************************                   JC646000
BR1      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000000                             3084+JCTDSECT DSECT                     JOB CONTROL TABLE DSECT              JC650000
                            00000  3085+         USING JCTDSECT,JCT        ESTABLISH JCT ADDRESSABILITY         JC652000

000000                             3086+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      JC654000
000058                             3087+JCTJQE   DS    F                   OFFSET OF HASP JOB QUEUE ELEMENT     JC656000
00005C                             3088+JCTIOTTR DS    F                   TRACK ADDRESS OF FIRST IOT           JC658000
000060                             3089+JCTDSKEY DS    F                   PERIPHERAL DATA SET KEY              JC660000
000064                             3090+JCTINJCT DS    F                   TRACK ADDRESS OF INPUT JCT           JC662000
000068                             3091+         DS    X                   RESERVED                             JC664000
000069                             3092+JCTSMFLG DS    BL1                 SMF FLAGS                            JC666000
00006A                             3093+JCTPURGE DS    X                   START OF SMF PURGE RECORD            JC668000

00006B                             3094+JCTJBOPT DS    BL1                 HASP JOB OPTIONS                     JC670000
00006C                             3095+JCTJOBEB DS    CL4                 HASP ASSIGNED JOB NUMBER (EBCDIC)    JC672000
000070                             3096+JCTJNAME DS    CL8                 JOB NAME FROM JOB CARD               JC674000
000078                             3097+JCTPNAME DS    CL20                PROGRAMMER'S NAME FROM JOB CARD      JC676000
00008C                             3098+JCTMCLAS DS    C                   MSGCLASS FROM JOB CARD               JC678000

00008D                             3099+JCTJCLAS DS    C                   JOB CLASS FROM JOB CARD              JC680000
00008E                             3100+         DS    X                   RESERVED                             JC682000
00008F                             3101+JCTPRIO  DS    X                   HASP EXECUTION SELECTION PRIORITY    JC684000

000090                             3102+         DS    X                   RESERVED                             JC686000
000091                             3103+JCTOPRIO DS    X                   HASP OUTPUT SELECTION PRIORITY       JC688000
000092                             3104+JCTROUTE DS    XL2                 INPUT ROUTE CODE                     JC690000
000094                             3105+JCTINDEV DS    CL8                 HASP INPUT DEVICE NAME               JC692000
00009C                             3106+JCTACCTN DS    CL4                 JOB ACCOUNTING NUMBER FROM JOB CARD  JC694000
0000A0                             3107+JCTROOMN DS    CL4                 PROGRAMMER'S ROOM NUMBER             JC696000
0000A4                             3108+JCTETIME DS    F                   ESTIMATED EXECUTION TIME             JC698000

0000A8                             3109+JCTESTLN DS    F                   ESTIMATED OUTPUT LINES               JC700000
0000AC                             3110+JCTESTPU DS    F                   ESTIMATED PUNCHED OUTPUT             JC702000
0000B0                             3111+JCTFORMS DS    CL4                 JOB OUTPUT FORMS                     JC704000
0000B4                             3112+         DS    X                   RESERVED                             JC706000
0000B5                             3113+JCTCPYCT DS    X                   JOB PRINT COPY COUNT                 JC708000

0000B6                             3114+         DS    X                   RESERVED                             JC710000
0000B7                             3115+JCTLINCT DS    X                   LINES PER PAGE                       JC712000
0000B8                             3116+JCTPROUT DS    XL2                 JOB PRINT ROUTE CODE                 JC714000
0000BA                             3117+JCTPUOUT DS    XL2                 JOB PUNCH ROUTE CODE                 JC716000

0000BC                             3118+JCTXEQON DS    F                   TIME ON EXECUTION PROCESSOR          JC718000
0000C0                             3119+JCTXDTON DS    F                   DATE ON EXECUTION PROCESSOR          JC720000
0000C4                             3120+JCTXEQOF DS    F                   TIME OFF EXECUTION PROCESSOR         JC722000
0000C8                             3121+JCTXDTOF DS    F                   DATE OFF EXECUTION PROCESSOR         JC724000
0000CC                             3122+JCTOUTON DS    F                   TIME ON OUTPUT PROCESSOR             JC726000
0000D0                             3123+JCTODTON DS    F                   DATE ON OUTPUT PROCESSOR             JC728000

0000D4                             3124+JCTOUTOF DS    F                   TIME OFF OUTPUT PROCESSOR            JC730000
0000D8                             3125+JCTODTOF DS    F                   DATE OFF OUTPUT PROCESSOR            JC732000
0000DC                             3126+JCTCARDS DS    F                   TOTAL NUMBER OF INPUT CARDS          JC734000
0000E0                             3127+JCTLINES DS    F                   GENERATED OUTPUT LINES               JC736000
0000E4                             3128+JCTPUNCH DS    F                   GENERATED PUNCHED OUTPUT             JC738000

0000E8                             3129+         DS    F                   RESERVED                             JC740000
0000EC                             3130+JCTPRTCT DS    F                   CURRENT NUMBER OF LINES PRINTED      JC742000
0000F0                             3131+JCTPAGCT DS    F                   CURRENT NUMBER OF PAGES PRINTED      JC744000
0000F4                             3132+JCTPUNCT DS    F                   CURRENT NUMBER OF CARDS PUNCHED      JC746000
0000F8                             3133+JCTESOUT DS    F                   ESTIMATED OUTPUT (LINES+CARDS)       JC748000

0000FC                             3134+JCTXOUT  DS    F                   GENERATED OUTPUT RECORDS             JC750000
000100                             3135+         DS    F                   RESERVED                             JC752000
000104                             3136+JCTCYSAV DS    XL100               INPUT ALLOCATION BIT MAP             JC754000
000168                             3137+JCTWORK  DS    XL144               144-BYTE WORK AREA                   JC756000
0001F8                             3138+         DS    0F                                                       JC758000

BR1      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   91


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0001F8                             3139+JCTJMR   DS    XL56                JMR AREA                             JC760000
000230                      001F8  3140+         ORG   JCTJMR                                                   JC762000
0001F8                             3141+JCTJMRJN DS    CL8                 JMR JOB NAME                         JC764000

000200                             3142+JCTRDRON DS    F                   TIME ON INPUT PROCESSOR              JC766000
000204                             3143+JCTRDTON DS    F                   DATE ON INPUT PROCESSOR              JC768000
000208                             3144+JCTCPUID DS    XL4                 JMR CPU IDENTIFICATION               JC770000
00020C                             3145+JCTUSEID DS    CL8                 JMR USER IDENTIFICATION              JC772000
000214                             3146+JCTSTEP  DS    X                   CURRENT STEP NUMBER                  JC774000
000215                             3147+JCTINDC  DS    BL1                 JMR SMF OPTIONS                      JC776000

000216                             3148+         DS    XL2                 RESERVED                             JC778000
000218                             3149+JCTUCOM  DS    F                   JMR USER COMMUNICATION AREA          JC780000
00021C                             3150+JCTUJVP  DS    F                   JMR ADDRESS OF USER EXIT ROUTINE     JC782000
000220                             3151+JCTRDROF DS    F                   TIME OFF INPUT PROCESSOR             JC784000

000224                             3152+JCTRDTOF DS    F                   DATE OFF INPUT PROCESSOR             JC786000
000228                             3153+JCTJOBIN DS    F                   JMR JOB SYSIN COUNT                  JC788000
00022C                             3154+JCTRDR   DS    XL2                 READER DEVICE TYPE AND CLASS         JC790000
00022E                             3155+JCTJMOPT DS    BL1                 JMR SMF OPTIONS                      JC792000
00022F                             3156+         DS    X                   RESERVED                             JC794000

000230                      00230  3157+         ORG                                                            JC796000
                            00230  3158+JCTEND   EQU   *                   END OF JOB CONTROL TABLE             JC798000





                                   3160+*                             JCTSMFLG                                  JC802000



                            00080  3162+JCTSMFL0 EQU   B'10000000'         RESERVED                             JC806000

                            00040  3163+JCTSMFL1 EQU   B'01000000'         RESERVED                             JC808000
                            00020  3164+JCTSMFL2 EQU   B'00100000'         RESERVED                             JC810000
                            00010  3165+JCTSMFL3 EQU   B'00010000'         RESERVED                             JC812000

                            00008  3166+JCTSMFL4 EQU   B'00001000'         RESERVED                             JC814000
                            00004  3167+JCTSMFL5 EQU   B'00000100'         RESERVED                             JC816000
                            00002  3168+JCTSMFL6 EQU   B'00000010'         RESERVED                             JC818000
                            00001  3169+JCTSMFL7 EQU   B'00000001'         RESERVED                             JC820000






                                   3171+*                             JCTJBOPT                                  JC824000



                            00080  3173+JCTPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              JC828000
                            00040  3174+JCTSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              JC830000
                            00020  3175+JCTTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           JC832000
                            00010  3176+JCTNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    JC834000
                            00008  3177+JCTXBACH EQU   B'00001000'         EXECUTION BATCHING JOB               JC836000

                            00004  3178+JCTJBOP5 EQU   B'00000100'         RESERVED                             JC838000
                            00002  3179+JCTJBOP6 EQU   B'00000010'         RESERVED                             JC840000

                            00001  3180+JCTJBOP7 EQU   B'00000001'         RESERVED                             JC842000
BR1      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   92


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   3183+*                             JCTJMOPT                                  JC848000



                            00020  3185+JCTJMRUX EQU   B'00100000'         IF ON, TAKE USER EXITS FOR SMF       JC852000





                                   3187+*                                                                       JC856000
                                   3188+*        IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT      JC858000
                                   3189+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  JC860000

                                   3190+*        THE JCT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    JC862000
                                   3191+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    JC864000

                                   3192+*                                                                       JC866000
                            005D0  3193+$JCTTEST EQU   1960-JCTEND+JCTJQE                                       JC868000
000230 05D0                        3194+         DC    Y($JCTTEST)         TEST INSTRUCTION                     JC870000
000002                             3195+HASPBR1  CSECT                     END OF JOB CONTROL TABLE DSECT       JC872000
BR1      HASP INPUT/OUTPUT TABLE FORMAT                                                                        PAGE   93



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3198+*****************************************************                   IT014000
                                   3199+*   IOTIOT   *            *            *            *                   IT016000
                                   3200+*   IOTFLAGS *                                      *                   IT018000
                                   3201+*   FLAGS    *  ADDRESS OF NEXT INPUT/OUTPUT TABLE  *                   IT020000
                                   3202+*            *            *            *            *                   IT022000
                                   3203+*****************************************************                   IT024000

                                   3204+*   IOTTRACK *            *            *            *                   IT026000

                                   3205+*                                                   *                   IT028000
                                   3206+*    TRACK ADDRESS OF CURRENT INPUT/OUTPUT TABLE    *                   IT030000
                                   3207+*            *            *            *            *                   IT032000
                                   3208+*****************************************************                   IT034000
                                   3209+*   IOTIOTTR *            *            *            *                   IT036000

                                   3210+*                                                   *                   IT038000
                                   3211+*     TRACK ADDRESS OF NEXT INPUT/OUTPUT TABLE      *                   IT040000
                                   3212+*            *            *            *            *                   IT042000
                                   3213+*****************************************************                   IT044000
                                   3214+*   IOTJCTTR *            *            *            *                   IT046000
                                   3215+*                                                   *                   IT048000
                                   3216+*        TRACK ADDRESS OF JOB CONTROL TABLE         *                   IT050000
                                   3217+*            *            *            *            *                   IT052000
                                   3218+*****************************************************                   IT054000
                                   3219+*   IOTCYMXM *            *            *            *                   IT056000

                                   3220+*                                                   *                   IT058000

                                   3221+*       MAXIMUM MTTR FOR CURRENT TRACK GROUP        *                   IT060000
                                   3222+*            *            *            *            *                   IT062000
                                   3223+*****************************************************                   IT064000
                                   3224+*   IOTMTTR  *            *            *            *                   IT066000

                                   3225+*                                                   *                   IT068000
                                   3226+*                LAST MTTR ALLOCATED                *                   IT070000
                                   3227+*            *            *            *            *                   IT072000
                                   3228+*****************************************************                   IT074000
                                   3229+*   IOTCYMAP *            *            *            *                   IT076000
                                   3230+*                                                   *                   IT078000
                                   3231+*        VARIABLE LENGTH ALLOCATION BIT MAP         *                   IT080000
                                   3232+*            *            *            *            *                   IT082000
                                   3233+*****************************************************                   IT084000
                                   3234+*   IOTPDDBP *            *            *            *                   IT086000
                                   3235+*          DISPLACEMENT OF NEXT AVAILABLE           *                   IT088000

                                   3236+*      PERIPHERAL DATA DEFINITION BLOCK SPACE       *                   IT090000
                                   3237+*            *            *            *            *                   IT092000
                                   3238+*****************************************************                   IT094000
BR1      HASP INPUT/OUTPUT TABLE FORMAT (CONTINUED)                                                            PAGE   94



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3241+*****************************************************                   IT100000
                                   3242+*   IOTPDDB  *            *            *            *                   IT102000
                                   3243+*                  VARIABLE LENGTH                  *                   IT104000
                                   3244+*       PERIPHERAL DATA DEFINITION BLOCK AREA       *                   IT106000
                                   3245+*            *            *            *            *                   IT108000
                                   3246+*****************************************************                   IT110000
BR1      HASP INPUT/OUTPUT TABLE DSECT                                                                         PAGE   95


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                             3249+IOTDSECT DSECT                     HASP INPUT/OUTPUT TABLE DSECT        IT116000
000000                             3250+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      IT118000

000058                             3251+IOTFLAGS DS    0BL1                MISCELLANEOUS FLAGS                  IT120000
000058                             3252+IOTIOT   DS    F                   ADDRESS OF NEXT INPUT/OUTPUT TABLE   IT122000
00005C                             3253+IOTTRACK DS    F                   TRACK ADDRESS OF CURRENT IOT         IT124000
000060                             3254+IOTIOTTR DS    F                   TRACK ADDRESS OF NEXT IOT            IT126000
000064                             3255+IOTJCTTR DS    F                   TRACK ADDRESS OF JOB CONTROL TABLE   IT128000
000068                             3256+IOTCYMXM DS    F                   MAXIMUM MTTR FOR CURRENT TRACK GROUP IT130000
00006C                             3257+IOTMTTR  DS    F                   LAST MTTR ALLOCATED                  IT132000
000070                             3258+IOTCYMAP DS    XL100               OUTPUT ALLOCATION BIT MAP            IT134000
0000D4                             3259+IOTPDDBP DS    F                   OFFSET OF NEXT AVAILABLE PDDB SPACE  IT136000
0000D8                             3260+IOTPDDB  DS    0F                  PERIPHERAL DATA DEFINITION BLOCKS    IT138000






                                   3262+*                            IOTFLAGS                                   IT142000




                            00080  3264+IOTWRITE EQU   B'10000000'         CHECKPOINT IOT                       IT146000

                            00040  3265+IOTFLAG1 EQU   B'01000000'         RESERVED                             IT148000
                            00020  3266+IOTFLAG2 EQU   B'00100000'         RESERVED                             IT150000
                            00010  3267+IOTFLAG3 EQU   B'00010000'         RESERVED                             IT152000
                            00008  3268+IOTFLAG4 EQU   B'00001000'         RESERVED                             IT154000
                            00004  3269+IOTFLAG5 EQU   B'00000100'         RESERVED                             IT156000
                            00002  3270+IOTFLAG6 EQU   B'00000010'         RESERVED                             IT158000
                            00001  3271+IOTFLAG7 EQU   B'00000001'         RESERVED                             IT160000





                                   3273+*                                                                       IT164000
                                   3274+*           IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT   IT166000
                                   3275+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  IT168000

                                   3276+*        THE IOT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    IT170000
                                   3277+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    IT172000

                                   3278+*                                                                       IT174000

                            00722  3279+$IOTTEST EQU   1960-IOTPDDB+IOTJCTTR-18                                 IT176000
0000D8 0722                        3280+         DC    Y($IOTTEST)         TEST INSTRUCTION                     IT178000
000002                             3281+HASPBR1  CSECT                     END OF HASP INPUT/OUTPUT TABLE DSECT IT180000
BR1      HASP TRACK EXTENT DATA TABLE FORMAT                                                                   PAGE   96


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3284+*****************************************************                   TE018000
                                   3285+*   TNCH     *            *            *            *                   TE020000
                                   3286+*                                                   *                   TE022000
                                   3287+*       MTTR FOR MOST-RECENT $EXCP ON THIS MODULE   *                   TE024000
                                   3288+*            *            *            *            *                   TE026000

                                   3289+*****************************************************                   TE028000
                                   3290+*   TNTC     *            *            *            *                   TE030000
                                   3291+*                                                   *                   TE032000

                                   3292+*       NUMBER OF TRACKS PER CYL ON THIS DEVICE     *                   TE034000
                                   3293+*            *            *            *            *                   TE036000
                                   3294+*****************************************************                   TE038000
                                   3295+*   TNMD     *            *   TNRT     *            *                   TE040000
                                   3296+*     DEB EXTENT NUMBER,  *      NUMBER OF HASP     *                   TE042000
                                   3297+*         TIMES 256       *       BUFFERS PER TRK   *                   TE044000
                                   3298+*            *            *            *            *                   TE046000
                                   3299+*****************************************************                   TE048000
                                   3300+*   TNGE     *            *   TNTG     *            *                   TE050000
                                   3301+*                         *                         *                   TE052000
                                   3302+*     NR OF GROUPS/EXTENT *     NR OF TRACKS/GROUP  *                   TE054000
                                   3303+*            *            *            *            *                   TE056000

                                   3304+*****************************************************                   TE058000
                                   3305+*   TNMO     *            *   TNMB     *            *                   TE060000
                                   3306+*     OFFSET OF THIS MAP  *    NUMBER OF BYTES      *                   TE062000
                                   3307+*       FROM FIRST MAP    *       IN THIS MAP       *                   TE064000

                                   3308+*            *            *            *            *                   TE066000
                                   3309+*****************************************************                   TE068000
BR1      HASP TRACK EXTENT DATA TABLE DSECT                                                                    PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                             3312+TEDDSECT DSECT                     EXTENT DATA DUMMY SECTION            TE074000
000000 00000000                    3313+TNCH     DC    F'0'                SEEK ADDRESS OF MOST RECENT $EXCP    TE076000
000004 00000000                    3314+TNTC     DC    F'0'                NR OF TRACKS PER CYL ON THIS DEVICE  TE078000
000008 0000                        3315+TNMD     DC    HS8'0'              EXTENT NUMBER, SHIFTED LEFT 8        TE080000
00000A 0000                        3316+TNRT     DC    H'0'                MAXIMUM RECORD NUMBER                TE082000
00000C 0190                        3317+TNGE     DC    H'400'              NUMBER OF TRACK GROUPS IN EXTENT     TE084000
00000E 0001                        3318+TNTG     DC    H'1'                NUMBER OF TRACKS PER GROUP           TE086000
000010 0000                        3319+TNMO     DC    H'0'                OFFSET OF THIS MAP FROM FIRST MAP    TE088000

000012 0032                        3320+TNMB     DC    H'50'               NUMBER OF BYTES IN A MAP             TE092000
000014                             3321+         DS    0F                                                       TE094000

                            00014  3322+TEDSIZ   EQU   *-TEDDSECT          LENGTH OF DSECT                      TE096000
000002                             3323+HASPBR1  CSECT                     END OF EXTENT DATA TABLE DSECT       TE098000
BR1      HASP TIMER QUEUE ELEMENT FORMAT                                                                       PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3326+*****************************************************                   TQ012000
                                   3327+*   ICHAIN   *            *            *            *                   TQ014000

                                   3328+*                                                   *                   TQ016000
                                   3329+*     ADDRESS OF NEXT HASP TIMER QUEUE ELEMENT      *                   TQ018000
                                   3330+*            *            *            *            *                   TQ020000
                                   3331+*****************************************************                   TQ022000
                                   3332+*   ITIME    *            *            *            *                   TQ024000

                                   3333+*                                                   *                   TQ026000
                                   3334+*        SPECIFIED INTERVAL (IN TIMER UNITS)        *                   TQ028000
                                   3335+*            *            *            *            *                   TQ030000

                                   3336+*****************************************************                   TQ032000
                                   3337+*   IPOST    *            *            *            *                   TQ034000
                                   3338+*            *                                      *                   TQ036000
                                   3339+* FLAG BYTE  *     ADDRESS OF EVENT WAIT FIELD      *                   TQ038000
                                   3340+*            *            *            *            *                   TQ040000
                                   3341+*****************************************************                   TQ042000
BR1      HASP TIMER QUEUE ELEMENT FIELD DEFINITIONS                                                            PAGE   99



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78












                                   3344+*                             HASP TIMER QUEUE ELEMENT DISPLACEMENTS    TQ048000





                            00000  3346+ICHAIN   EQU   0                   ADDRESS OF NEXT TIMER QUEUE ELEMENT  TQ052000

                            00004  3347+ITIME    EQU   4                   SPECIFIED INTERVAL (IN TIMER UNITS)  TQ054000
                            00008  3348+IPOST    EQU   8                   FLAG BYTE AND ADDRESS OF EWF         TQ056000
BR1      HASP OVERLAY TABLE FORMAT                                                                             PAGE  100


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   3351+*****************************************************                   OT028000
                                   3352+*  OTBADDR   *            *   OTBTRAK  *            *                   OT030000
                                   3353+*   OTBPRIO  *  ADDRESS OF RESIDENT OVERLAY MODULE  *                   OT032000
                                   3354+*  PRIORITY  *  RESERVED  * RELATIVE T R IF OVERLAY *                   OT034000
                                   3355+*            *            *            *            *                   OT036000

                                   3356+*****************************************************                   OT038000
BR1      HASP OVERLAY TABLE DSECT                                                                              PAGE  101


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                             3359+OTBDSECT DSECT                     HASP OVERLAY TABLE DSECT             OT056000
000000                             3360+OTBADDR  DS    0F                  ADDRESS OF RESIDENT OVERLAY MODULE   OT064000
000000                             3361+OTBPRIO  DS    C                   PRIORITY OF NON-RESIDENT OVERLAY     OT066000
                                   3362+*                                   OR X'FF' IF RESIDENT                OT068000
000001                             3363+         DS    C                   RESERVED                             OT070000

000002                             3364+OTBTRAK  DS    H                   RELATIVE DISK T R OF OVERLAY MODULE  OT072000
                            00004  3365+OTBSIZE  EQU   *-OTBDSECT                                               OT082000
000002                             3366+HASPBR1  CSECT                     END OF OVERLAY TABLE DSECT           OT084000
BR1      HASP DATA DEFINITION TABLE FORMAT                                                                     PAGE  102


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   3369+*****************************************************                   DD012000
                                   3370+*   DDBCHAIN *            *            *            *                   DD014000
                                   3371+*                                                   *                   DD016000
                                   3372+*       ADDRESS OF NEXT DATA DEFINITION TABLE       *                   DD018000

                                   3373+*            *            *            *            *                   DD020000
                                   3374+*****************************************************                   DD022000
                                   3375+*   DDBTYPE  *   DDBUNIT  *            *            *                   DD024000
                                   3376+*            *                                      *                   DD026000

                                   3377+*  DATA SET  *        UNIT ADDRESS (EBCDIC)         *                   DD028000
                                   3378+*    TYPE    *            *            *            *                   DD030000
                                   3379+*****************************************************                   DD032000
                                   3380+*   DDBSTAT1 *   DDBSTAT2 *   DDBUFPTR *            *                   DD034000
                                   3381+*     (XS)   *            *                         *                   DD036000

                                   3382+*   STATUS   *   STATUS   * CURRENT BUFFER POINTER  *                   DD038000
                                   3383+*  BYTE ONE  *  BYTE TWO  *            *            *                   DD040000
                                   3384+*****************************************************                   DD042000
                                   3385+*   DDBPBUF  *            *            *            *                   DD044000
                                   3386+*                                                   *                   DD046000
                                   3387+*             ADDRESS OF PRIMARY BUFFER             *                   DD048000

                                   3388+*            *            *            *            *                   DD050000
                                   3389+*****************************************************                   DD052000
                                   3390+*   DDBSBUF  *            *            *            *                   DD054000
                                   3391+*                                                   *                   DD056000

                                   3392+*        ADDRESS OF SECONDARY BUFFER (INPUT)        *                   DD058000
                                   3393+*            *            *            *            *                   DD060000
                                   3394+*****************************************************                   DD062000
                                   3395+*   DDBDDNR  *            *            *            *                   DD064000
                                   3396+*                                                   *                   DD066000

                                   3397+*                STEP AND DD NUMBER                 *                   DD068000
                                   3398+*            *            *            *            *                   DD070000
                                   3399+*****************************************************                   DD072000
                                   3400+*   DDBTTR   *            *            *            *                   DD074000
                                   3401+*       NEXT TRACK ADDRESS (INPUT DATA SETS)        *                   DD076000
                                   3402+*      FIRST TRACK ADDRESS (OUTPUT DATA SETS)       *                   DD078000
                                   3403+*            *            *            *            *                   DD080000

                                   3404+*****************************************************                   DD082000
                                   3405+*   DDBCOUNT *            *            *            *                   DD084000
                                   3406+*                         *                         *                   DD086000

                                   3407+*   OUTPUT RECORD COUNT   *         UNUSED          *                   DD088000
                                   3408+*            *            *            *            *                   DD090000
                                   3409+*****************************************************                   DD092000
BR1      HASP DATA DEFINITION TABLE FORMAT (CONTINUED)                                                         PAGE  103


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   3412+*****************************************************                   DD098000
                                   3413+*   DDBPCE   *            *            *            *                   DD100000
                                   3414+*                                                   *                   DD102000
                                   3415+*       ADDRESS OF PROCESSOR CONTROL ELEMENT        *                   DD104000
                                   3416+*            *            *            *            *                   DD106000
                                   3417+*****************************************************                   DD108000

BR1      HASP DATA DEFINITION TABLE DSECT                                                                      PAGE  104


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                             3420+DDBDSECT DSECT                     DATA DEFINITION TABLE DSECT          DD114000
000000                             3421+DDBCHAIN DS    F                   NEXT DATA DEFINITION TABLE ADDRESS   DD116000
000004                             3422+DDBTYPE  DS    C                   DATA SET TYPE                        DD118000

000005                             3423+DDBUNIT  DS    CL3                 UNIT ADDRESS (EBCDIC)                DD120000
000008                             3424+DDBSTAT1 DS    C                   STATUS BYTE ONE                      DD122000
                            00008  3425+XS       EQU   DDBSTAT1            FOR SHORTHAND                        DD124000
000009                             3426+DDBSTAT2 DS    C                   STATUS BYTE TWO                      DD126000
00000A                             3427+DDBUFPTR DS    H                   CURRENT BUFFER POINTER               DD128000
00000C                             3428+DDBPBUF  DS    F                   ADDRESS OF PRIMARY BUFFER            DD130000
000010                             3429+DDBSBUF  DS    F                   ADR OF SECONDARY BUF (INPUT)         DD132000
000014                             3430+DDBDDNR  DS    F                   STEP AND DD NUMBER                   DD135000
000018                             3431+DDBTTR   DS    F                   NEXT/FIRST TRACK ADDRESS             DD136000

00001C                             3432+DDBCOUNT DS    H                   OUTPUT RECORD COUNT                  DD138000

00001E                             3433+         DS    H                   UNUSED                               DD140000
000020                             3434+DDBPCE   DS    F                   ADDRESS OF PROCESSOR CONTROL ELEMENT DD142000
000024                             3435+DDBEND   DS    0C                  END OF DDT                           DD144000
                            00024  3436+DDBLNG   EQU   DDBEND-DDBCHAIN     LENGTH OF DDT                        DD146000
000002                             3437+HASPBR1  CSECT                     END OF DATA DEFINITION TABLE DSECT   DD148000

BR1      HASP OUTPUT CONTROL RECORD FORMAT                                                                     PAGE  105


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3440+*****************************************************                   OR012000
                                   3441+*   OCRCODE  *            *            *            *                   OR014000
                                   3442+*                                                   *                   OR016000
                                   3443+*                    FORMS CODE                     *                   OR018000
                                   3444+*            *            *            *            *                   OR020000
                                   3445+*****************************************************                   OR022000

                                   3446+*   OCRFLAGS *            *   OCRCOPY  *   OCRINDEX *                   OR024000

                                   3447+*            *            *            *            *                   OR026000
                                   3448+*   OUTPUT   *  RESERVED  *    COPY    *   PRINT    *                   OR028000
                                   3449+*   FLAGS    *            *   COUNT    *   INDEX    *                   OR030000
                                   3450+*****************************************************                   OR032000

                                   3451+*   OCRFORMS *            *            *            *                   OR034000
                                   3452+*                                                   *                   OR036000
                                   3453+*                FORMS SPECIFICATION                *                   OR038000
                                   3454+*            *            *            *            *                   OR040000
                                   3455+*****************************************************                   OR042000
                                   3456+*   OCRFCB   *            *            *            *                   OR044000
                                   3457+*                                                   *                   OR046000
                                   3458+*                 FCB SPECIFICATION                 *                   OR048000
                                   3459+*            *            *            *            *                   OR050000
                                   3460+*****************************************************                   OR052000
                                   3461+*   OCRUCS   *            *            *            *                   OR054000

                                   3462+*                                                   *                   OR056000
                                   3463+*                 UCS SPECIFICATION                 *                   OR058000
                                   3464+*            *            *            *            *                   OR060000
                                   3465+*****************************************************                   OR062000

                                   3466+*   OCRRECNT *            *            *            *                   OR064000
                                   3467+*                                                   *                   OR066000
                                   3468+*                RECORD COUNT LIMIT                 *                   OR068000
                                   3469+*            *            *            *            *                   OR070000
                                   3470+*****************************************************                   OR072000
                                   3471+*   OCRDEST1 *            *   OCRDEST2 *            *                   OR074000
                                   3472+*                         *                         *                   OR076000
                                   3473+*      DESTINATION 1      *      DESTINATION 2      *                   OR078000
                                   3474+*            *            *            *            *                   OR080000
                                   3475+*****************************************************                   OR082000
                                   3476+*   OCRDEST3 *            *   OCRDEST4 *            *                   OR084000
                                   3477+*                         *                         *                   OR086000

                                   3478+*      DESTINATION 3      *      DESTINATION 4      *                   OR088000
                                   3479+*            *            *            *            *                   OR090000
                                   3480+*****************************************************                   OR092000

BR1      HASP OUTPUT CONTROL RECORD DSECT                                                                      PAGE  106


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             3483+OCRDSECT DSECT                     OUTPUT CONTROL RECORD DSECT          OR098000
000000                             3484+OCRCODE  DS    CL4                 FORMS CODE                           OR100000
000004                             3485+OCRFLAGS DS    BL1                 OUTPUT FLAGS                         OR102000
000005                             3486+         DS    X                   RESERVED                             OR104000
000006                             3487+OCRCOPY  DS    X                   COPY COUNT                           OR106000
000007                             3488+OCRINDEX DS    X                   PRINT INDEX                          OR108000
000008                             3489+OCRFORMS DS    CL4                 FORMS SPECIFICATION                  OR110000
00000C                             3490+OCRFCB   DS    CL4                 FCB SPECIFICATION                    OR112000

000010                             3491+OCRUCS   DS    CL4                 UCS SPECIFICATION                    OR114000

000014                             3492+OCRRECNT DS    F                   RECORD COUNT LIMIT                   OR116000
000018                             3493+OCRDEST1 DS    H                   DESTINATION 1                        OR118000

00001A                             3494+OCRDEST2 DS    H                   DESTINATION 2                        OR120000
00001C                             3495+OCRDEST3 DS    H                   DESTINATION 3                        OR122000
00001E                             3496+OCRDEST4 DS    H                   DESTINATION 4                        OR124000
                            00020  3497+OCREND   EQU   *                   END OF HASP OUTPUT CONRTOL RECO      OR126000
000002                             3498+HASPBR1  CSECT                     END OF OUTPUT CONTROL RECORD DSECT   OR128000





                                   3500+*                             OCRFLAGS                                  OR132000



                            00080  3502+OCRFLAG0 EQU   B'10000000'         RESERVED                             OR136000
                            00040  3503+OCRFLAG1 EQU   B'01000000'         RESERVED                             OR138000
                            00020  3504+OCRFLAG2 EQU   B'00100000'         RESERVED                             OR140000

                            00010  3505+OCRFLAG3 EQU   B'00010000'         RESERVED                             OR142000
                            00008  3506+OCRFLAG4 EQU   B'00001000'         RESERVED                             OR144000

                            00004  3507+OCRFLAG5 EQU   B'00000100'         RESERVED                             OR146000

                            00002  3508+OCRFLAG6 EQU   B'00000010'         RESERVED                             OR148000
                            00001  3509+OCRFLAG7 EQU   B'00000001'         RESERVED                             OR150000
BR1      HASP PERIPHERAL DATA DEFINITION BLOCK FORMAT (MAXIMUM SIZE)                                           PAGE  107


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3512+*****************************************************                   PD012000
                                   3513+*   PDBFLAG1 *   PDBCLASS *   PDBLENG  *   PDBMTTR  *                   PD014000
                                   3514+*            *            *            *            *                   PD016000
                                   3515+*   FIRST    *   OUTPUT   *    PDDB    *  STARTING  *                   PD018000
                                   3516+* FLAG BYTE  *   CLASS    *   LENGTH   * TRACK ADDR *                   PD020000
                                   3517+*****************************************************                   PD022000

                                   3518+*            *            *            *   PDBFLAG2 *                   PD024000
                                   3519+*                                      *            *                   PD026000
                                   3520+*  STARTING TRACK ADDRESS (CONTINUED)  *   SECOND   *                   PD028000

                                   3521+*            *            *            * FLAG BYTE  *                   PD030000
                                   3522+*****************************************************                   PD032000
                                   3523+*   PDBFORMS *            *            *            *                   PD034000
                                   3524+*                                                   *                   PD036000
                                   3525+*              FOUR-BYTE FORMS NUMBER               *                   PD038000
                                   3526+*            *            *            *            *                   PD040000
                                   3527+*****************************************************                   PD042000
                                   3528+*   PDBFCB   *            *            *            *                   PD044000
                                   3529+*                                                   *                   PD046000
                                   3530+*               FOUR-BYTE 3211 FCB ID               *                   PD048000
                                   3531+*            *            *            *            *                   PD050000
                                   3532+*****************************************************                   PD052000

                                   3533+*   PDBUCS   *            *            *            *                   PD054000
                                   3534+*                                                   *                   PD056000
                                   3535+*           FOUR-BYTE 1403 OR 3211 UCS ID           *                   PD058000
                                   3536+*            *            *            *            *                   PD060000

                                   3537+*****************************************************                   PD062000
                                   3538+*   PDBRECCT *            *            *            *                   PD064000
                                   3539+*                                                   *                   PD066000
                                   3540+*          FOUR-BYTE OUTPUT RECORD MAXIMUM          *                   PD068000
                                   3541+*            *            *            *            *                   PD070000
                                   3542+*****************************************************                   PD072000

                                   3543+*   PDBSEC   *   PDBINDEX *   PDBDEST  *            *                   PD074000
                                   3544+*            *            *                         *                   PD076000
                                   3545+*  DATA SET  *  3211 FCB  *  DATA SET DESTINATION   *                   PD078000
                                   3546+*  SECURITY  *   INDEX    *            *            *                   PD080000
                                   3547+*****************************************************                   PD082000
                                   3548+*   PDBCOPYS *   PDBCPU   *            *            *                   PD084000
                                   3549+*            *            *                         *                   PD086000
                                   3550+*  DATA SET  * CPU IDENT  *        (RESERVED)       *                   PD088000

                                   3551+*   COPIES   *            *            *            *                   PD090000
                                   3552+*****************************************************                   PD092000

BR1      PERIPHERAL DATA DEFINITION BLOCK FORMAT (CONTINUED)                                                   PAGE  108


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3555+*****************************************************                   PD098000
                                   3556+*   PDBWTRID *            *            *            *                   PD100000
                                   3557+*                                                   *                   PD102000
                                   3558+*           OUTPUT WRITER IDENTIFICATION            *                   PD104000

                                   3559+*            *            *            *            *                   PD106000
                                   3560+*****************************************************                   PD108000
                                   3561+*            *            *            *            *                   PD110000
                                   3562+*                                                   *                   PD112000
                                   3563+*     OUTPUT WRITER IDENTIFICATION (CONTINUED)      *                   PD114000

                                   3564+*            *            *            *            *                   PD116000
                                   3565+*****************************************************                   PD118000
BR1      HASP PERIPHERAL DATA DEFINITION BLOCK DSECT                                                           PAGE  109



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             3567+PDBDSECT DSECT                     HASP PDDB DSECT                      PD122000
000000                             3568+PDBFLAG1 DS    BL1                 FIRST FLAG BYTE ---                  PD124000
                            00080  3569+PDB1FLG2 EQU   B'10000000'         FLAG 2 (OPTIONS FLAG) EXISTS         PD126000
                            00040  3570+PDB1NULL EQU   B'01000000'         THIS IS A NULL PDDB                  PD128000
                            00020  3571+PDB1LOG  EQU   B'00100000'         THIS PDDB IS FOR THE HASP JOB LOG    PD130000
                            00010  3572+PDB1MDES EQU   B'00010000'         THIS PDDB IS FOLLOWED BY OTHERS      PD132000

                                   3573+*                                   INDICATING MULTIPLE DESTINATIONS    PD134000
                            00008  3574+PDB1RSV4 EQU   B'00001000'         RESERVED                             PD136000
                            00004  3575+PDB1RSV5 EQU   B'00000100'         RESERVED                             PD138000
                            00002  3576+PDB1RSV6 EQU   B'00000010'         RESERVED                             PD140000
                            00001  3577+PDB1RSV7 EQU   B'00000001'         RESERVED                             PD142000

000001                             3578+PDBCLASS DS    C                   OUTPUT CLASS OF THIS DATA SET        PD144000
000002                             3579+PDBLENG  DS    X                   LENGTH OF THIS PDDB                  PD146000
000003                             3580+PDBMTTR  DS    0FL4                STARTING TRACK OF THIS DATA SET      PD148000
000003                             3581+PDBSTNR  DS    HL2                 STEP NUMBER OF THIS DATA SET         PD150000

000005                             3582+PDBDDNR  DS    HL2                 DD NUMBER OF THIS DATA SET           PD152000
                            00007  3583+PDBBASLN EQU   *-PDBDSECT          BASIC PDDB LENGTH                    PD154000
                                   3584+*                                                                       PD156000
                                   3585+*              FOLLOWING FIELDS ARE PRESENT ONLY IF PDB1FLG2 IS ONE     PD158000
                                   3586+*                                                                       PD160000
000007                             3587+PDBFLAG2 DS    BL1                 OPTIONAL FIELDS FLAG BYTE ---        PD162000

                            00080  3588+PDB2FORM EQU   B'10000000'         PDBFORMS                             PD164000
                            00040  3589+PDB2FCB  EQU   B'01000000'         PDBFCB                               PD166000
                            00020  3590+PDB2UCS  EQU   B'00100000'         PDBUCS                               PD168000
                            00010  3591+PDB2RECC EQU   B'00010000'         PDBRECCT                             PD170000
                            00008  3592+PDB2MSC1 EQU   B'00001000'         PDBMISC1                             PD172000

                            00004  3593+PDB2MSC2 EQU   B'00000100'         PDBMISC2                             PD174000
                            00003  3594+PDB2WTRI EQU   B'00000011'         PDBWTRID                             PD176000
                            00008  3595+PDBFL2LN EQU   *-PDBDSECT          MINIMUM NON-BASIC LENGTH             PD178000
                                   3596+*                                                                       PD180000
                                   3597+*              EACH OF THE FOLLOWING FOUR-BYTE OPTIONAL FIELDS          PD182000

                                   3598+*              IS PRESENT ONLY IF THE ASSOCIATED BIT IN PDBFLAG2        PD184000
                                   3599+*              IS ONE.                                                  PD186000
                                   3600+*                                                                       PD188000
000008                             3601+PDBFORMS DS    0FL4                FOUR-BYTE FORMS NUMBER               PD190000
000008                             3602+PDBFCB   DS    0FL4                FOUR-BYTE 3211 FCB ID                PD192000

000008                             3603+PDBUCS   DS    0FL4                FOUR-BYTE 1403 OR 3211 UCS ID        PD194000
000008                             3604+PDBRECCT DS    0FL4                FOUR-BYTE OUTPUT RECORD MAXIMUM      PD196000
000008                             3605+PDBMISC1 DS    0FL4                MISCELLANEOUS ---                    PD198000
000008                             3606+PDBSEC   DS    X                   - DATA SET SECURITY ID               PD200000
000009                             3607+PDBINDEX DS    X                   - 3211 FCB INDEX VALUE               PD202000

00000A                             3608+PDBDEST  DS    HL2                 - DATA SET OUTPUT DESTINATION        PD204000
00000C                      00008  3609+         ORG   PDBMISC1                                                 PD206000
000008                             3610+PDBMISC2 DS    0FL4                MISCELLANEOUS ---                    PD208000
000008                             3611+PDBCOPYS DS    X                   - COPIES OF THIS DATA SET            PD210000
000009                             3612+PDBCPU   DS    X                   - CPU ID                             PD212000

00000A                             3613+         DS    2X                  - RESERVED                           PD214000
00000C                      00008  3614+         ORG   PDBMISC2                                                 PD216000
000008                             3615+PDBWTRID DS    0CL8                EIGHT-BYTE OUTPUT WRITER ID          PD218000
000002                             3616+HASPBR1  CSECT                     END OF PDDB DSECT                    PD220000
BR1      HASP PARTITION INFORMATION TABLE FORMAT                                                               PAGE  110



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3619+*****************************************************                   PI016000
                                   3620+*   PITSTAT  *   PITICLAS *   PITPATID *            *                   PI018000

                                   3621+*            *            *                         *                   PI020000
                                   3622+*STATUS BYTE * INIT CLASS *  LOGICAL PARTITION ID   *                   PI022000
                                   3623+*            *            *            *            *                   PI024000
                                   3624+*****************************************************                   PI026000
                                   3625+*   PITSIZE  *            *   PITPRIO  *            *                   PI028000
                                   3626+*                         *                         *                   PI030000

                                   3627+* LOGICAL PARTITION SIZE  * LOGICAL PARTITION PRTY  *                   PI032000
                                   3628+*            *            *            *            *                   PI034000
                                   3629+*****************************************************                   PI036000
                                   3630+*   PITCLASS *            *            *            *                   PI084000

                                   3631+*                                                   *                   PI088000
                                   3632+*   VARIABLE NUMBER OF LOGICAL PARTITION CLASSES    *                   PI090000
                                   3633+*            *            *            *            *                   PI092000
                                   3634+*****************************************************                   PI094000
BR1      HASP PARTITION INFORMATION TABLE FIELD DEFINITIONS                                                    PAGE  111



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3636+*                        HASP PARTITION INFORMATION TABLE DISPLACEMENTS PI098000





                            00000  3638+PITSTAT  EQU   0                   LOGICAL PARTITION STATUS BYTE        PI102000
                            00001  3639+PITICLAS EQU   1                   LOGICAL PARTITION INITIATOR CLASS    PI104000
                            00002  3640+PITPATID EQU   2                   LOGICAL PARTITION IDENTIFICATION     PI106000

                            00004  3641+PITSIZE  EQU   4                   LOGICAL PARTITION SIZE               PI108000
                            00006  3642+PITPRIO  EQU   6                   LOGICAL PARTITION PRTY               PI110000
                            00008  3643+PITCLASS EQU   8                   LOGICAL PARTITION CLASSES            PI128000

                            00014  3644+PITLNGTH EQU   (PITCLASS+8+4)/4*4         LENGTH OF PIT                 PI132000











                                   3646+*                        HASP PARTITION INFORMATION TABLE               PI136000
                                   3647+*                             STATUS BIT DEFINITIONS                    PI138000





                            00080  3649+PITHOLDA EQU   X'80'               PIT IS DRAINED ($P I)                PI142000
                            00040  3650+PITHOLD1 EQU   X'40'               PIT IS DRAINED ($P IN)               PI144000
                            00020  3651+PITBUSY  EQU   X'20'               PARTITION BUSY INDICATOR             PI146000
                            00010  3652+PITIDLE  EQU   X'10'               PIT IDLE MESSAGE SWITCH              PI148000

                            00001  3653+PITLAST  EQU   X'01'               LAST PIT INDICATOR                   PI150000
BR1      HASP JOB OUTPUT ELEMENT FORMAT                                                                        PAGE  112



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3656+*        JOE FIELDS - USED AS A WORK ELEMENT                            JE012000



                                   3658+*****************************************************                   JE016000
                                   3659+*   JOENEXT  *            *   JOEFLAG  *            *                   JE018000
                                   3660+*     POINTER TO NEXT     *                         *                   JE020000
                                   3661+*      WORK ELEMENT       *        FLAG BITS        *                   JE022000
                                   3662+*            *            *            *            *                   JE024000
                                   3663+*****************************************************                   JE026000
                                   3664+*   JOECHAR  *            *   JOECKPT  *            *                   JE028000
                                   3665+*     POINTER TO CHAR-    *        POINTER TO       *                   JE030000
                                   3666+*    ACTERISTICS ELEMENT  *    CHECKPOINT ELEMENT   *                   JE032000

                                   3667+*            *            *            *            *                   JE034000

                                   3668+*****************************************************                   JE036000
                                   3669+*   JOESEC   *   JOECPU   *   JOEROUT  *            *                   JE038000
                                   3670+* DATA       * CPU ID     *                         *                   JE040000
                                   3671+* SECURITY   * OF DATA    *    REMOTE ID OF DATA    *                   JE042000
                                   3672+* LEVEL      *            *            *            *                   JE044000

                                   3673+*****************************************************                   JE046000
                                   3674+*   JOERECCT *            *            *            *                   JE048000
                                   3675+*                                                   *                   JE050000
                                   3676+*           LINE/CARD COUNT FOR THIS JOE            *                   JE052000
                                   3677+*            *            *            *            *                   JE054000
                                   3678+*****************************************************                   JE056000
                                   3679+*   JOEJQE   *            *            *            *                   JE058000
                                   3680+*                                                   *                   JE060000
                                   3681+*          OFFSET OF HASP JOB QUEUE ELEMENT         *                   JE062000
                                   3682+*            *            *            *            *                   JE064000

                                   3683+*****************************************************                   JE066000

                                   3684+*   JOEDEST  *            *            *            *                   JE068000
                                   3685+*    DESTINATION CODE     *                         *                   JE070000
                                   3686+*       FROM PDDB         *        (UNUSED)         *                   JE072000
                                   3687+*            *            *            *            *                   JE074000

                                   3688+*****************************************************                   JE076000
BR1      HASP JOB OUTPUT ELEMENT FORMAT (CONTINUED)                                                            PAGE  113


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3691+*        JOE FIELDS - USED A CHARACTERISTICS ELEMENT                    JE082000


                                   3693+*****************************************************                   JE086000
                                   3694+*            *            *   JOEUSE   *            *                   JE088000
                                   3695+*       POINTER TO        *     NUMBER OF JOES      *                   JE090000
                                   3696+*       NEXT CHAR-JOE     *     USING THIS ELEMENT  *                   JE092000

                                   3697+*            *            *            *            *                   JE094000
                                   3698+*****************************************************                   JE096000
                                   3699+*   JOEFORM  *            *            *            *                   JE098000
                                   3700+*                                                   *                   JE100000

                                   3701+*                   FORMS NUMBER                    *                   JE102000
                                   3702+*            *            *            *            *                   JE104000
                                   3703+*****************************************************                   JE106000
                                   3704+*   JOEFCB   *            *            *            *                   JE108000
                                   3705+*                                                   *                   JE110000
                                   3706+*                     FCB NUMBER                    *                   JE112000
                                   3707+*            *            *            *            *                   JE114000
                                   3708+*****************************************************                   JE116000
                                   3709+*   JOEUCS   *            *            *            *                   JE118000
                                   3710+*                                                   *                   JE120000
                                   3711+*                     UCS NUMBER                    *                   JE122000
                                   3712+*            *            *            *            *                   JE124000

                                   3713+*****************************************************                   JE126000
                                   3714+*JOEWTRID    *            *            *            *                   JE128000
                                   3715+*                                                   *                   JE130000

                                   3716+*        SPECIAL SYSOUT WRITER IDENTIFICATION       *                   JE132000
                                   3717+*            *            *            *            *                   JE134000
                                   3718+*****************************************************                   JE136000
                                   3719+*            *            *            *            *                   JE138000
                                   3720+*                                                   *                   JE140000
                                   3721+*        SPECIAL SYSOUT WRITER ID (CONT)            *                   JE142000
                                   3722+*            *            *            *            *                   JE144000
                                   3723+*****************************************************                   JE146000
                                   3724+*   JOEACTPR *   JOEACTPU *            *            *                   JE148000
                                   3725+* NUMBER OF  * NUMBER OF  *                         *                   JE150000
                                   3726+* ACTIVE     * ACTIVE     *         (UNUSED)        *                   JE152000
                                   3727+* PRINTERS   * PUNCHES    *            *            *                   JE154000

                                   3728+*****************************************************                   JE156000

BR1      HASP JOB OUTPUT ELEMENT FORMAT (CONTINUED)                                                            PAGE  114


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   3731+*        JOE FIELDS - USED AS A CHECKPOINT ELEMENT                      JE162000


                                   3733+*****************************************************                   JE166000
                                   3734+*   JOECKFLG *   JOECOPY  *   JOEJRCB  *            *                   JE168000
                                   3735+* CHECK-     * COPY       *                         *                   JE170000
                                   3736+* POINT      * NUMBER IN  * DISPL INTO EJECT BUFFER *                   JE172000
                                   3737+* FLAGS      * PROGRESS   *            *            *                   JE174000
                                   3738+*****************************************************                   JE176000
                                   3739+*   JOEPDDB  *            *   JOEPPCT  *            *                   JE178000
                                   3740+*                         *                         *                   JE180000

                                   3741+*  DISPL OF PDDB IN IOT   *      PDDB PAGE COUNT    *                   JE182000
                                   3742+*            *            *            *            *                   JE184000

                                   3743+*****************************************************                   JE186000

                                   3744+*   JOETLNC  *            *            *            *                   JE188000
                                   3745+*                                                   *                   JE190000
                                   3746+*               TOTAL JOE LINE COUNT                *                   JE192000
                                   3747+*            *            *            *            *                   JE194000
                                   3748+*****************************************************                   JE196000
                                   3749+*   JOETPCT  *            *            *            *                   JE198000
                                   3750+*                                                   *                   JE200000
                                   3751+*               TOTAL JOE PAGE COUNT                *                   JE202000
                                   3752+*            *            *            *            *                   JE204000
                                   3753+*****************************************************                   JE206000
                                   3754+*   JOEMTTR  *            *            *            *                   JE208000
                                   3755+*                                                   *                   JE210000

                                   3756+*          LAST EJECT BUFFER TRACK ADDRESS          *                   JE212000
                                   3757+*            *            *            *            *                   JE214000
                                   3758+*****************************************************                   JE216000

                                   3759+*   JOEIOTTR *            *            *            *                   JE218000
                                   3760+*                                                   *                   JE220000
                                   3761+*             CURRENT IOT TRACK ADDRESS             *                   JE222000
                                   3762+*            *            *            *            *                   JE224000
                                   3763+*****************************************************                   JE226000
BR1      HASP JOB OUTPUT ELEMENT DSECT                                                                         PAGE  115


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             3765+JOEDSECT DSECT                     JOB OUTPUT ELEMENT DSECT             JE230000
                                   3766+*                                                                       JE232000
                                   3767+*        JOE FIELDS - USED AS A WORK ELEMENT                            JE234000
                                   3768+*                                                                       JE236000
000000                             3769+JOENEXT  DS    H                   PTR TO NEXT WORK ELEMENT             JE238000

000002                             3770+JOEFLAG  DS    H                   FLAG BITS                            JE240000
                            00080  3771+$JOEBUSY EQU   X'80'               JOE BUSY FLAG                        JE242000
                            00040  3772+$JOECKV  EQU   X'40'               CHECKPOINT ELEMENT VALID FLAG        JE244000
000004                             3773+JOECHAR  DS    H                   PTR TO CHARACTERISTICS ELEMENT       JE246000

000006                             3774+JOECKPT  DS    H                   PTR TO CHECKPOINT ELEMENT            JE248000
000008                             3775+JOESEC   DS    X                   SECURITY LEVEL OF DATA               JE250000
000009                             3776+JOECPU   DS    X                   CPU ID OF DATA                       JE252000
00000A                             3777+JOEROUT  DS    H                   REMOTE ID OF DATA                    JE254000
                            00080  3778+$JOEIRTE EQU   X'80'               EXPLICIT ROUTING                     JE256000
00000C                             3779+JOERECCT DS    F                   LINE/CARD COUNT FOR THIS JOE         JE258000

000010                             3780+JOEJQE   DS    F                   A(HASP JOB QUEUE ELEMENT)            JE260000
000014                             3781+JOEDEST  DS    H                   DESTINATION CODE FROM PDDB           JE262000
                                   3782+*                                                                       JE264000
                                   3783+*        JOE FIELDS - USED AS A CHARACTERISTICS ELEMENT                 JE266000
                                   3784+*                                                                       JE268000
000016                      00000  3785+         ORG   JOEDSECT            RESET LOCATION TO START OF JOE       JE270000
000000                             3786+         DS    H                   POINTER TO NEXT CHAR-JOE             JE272000
000002                             3787+JOEUSE   DS    H                   # OF JOES USING THIS ELEMENT         JE274000

000004                             3788+JOEFORM  DS    F                   FORMS NUMBER                         JE276000
000008                             3789+JOEFCB   DS    F                   FCB NUMBER                           JE278000

00000C                             3790+JOEUCS   DS    F                   UCS NUMBER                           JE280000
000010                             3791+JOEWTRID DS    CL8                 SPECIAL SYSOUT WRITER ID             JE282000
000018                             3792+JOEACTPR DS    X                   # OF ACTIVE PRINTERS                 JE284000
000019                             3793+JOEACTPU DS    X                   # OF ACTIVE PUNCHES                  JE286000
00001A                             3794+JOEUNUSD DS    H                   UNUSED, PROVIDES 360 WD BNDRY   RFIT JE286005
                                   3795+*                                                                       JE288000
                                   3796+*        JOE FIELDS - USED AS A CHECKPOINT ELEMENT                      JE290000
                                   3797+*                                                                       JE292000

00001C                      00000  3798+         ORG   JOEDSECT            RESET LOCATION TO START OF JOE       JE294000
000000                             3799+JOECKFLG DS    X                   CHECKPOINT FLAGS                     JE296000
000001                             3800+JOECOPY  DS    X                   COPY NUMBER IN PROGRESS              JE298000
000002                             3801+JOEJRCB  DS    H                   DISPL INTO EJECT BUFFER              JE300000
000004                             3802+JOEPDDB  DS    H                   DISPL IN JCT OF PDDB                 JE302000

000006                             3803+JOEPPCT  DS    H                   PDDB PAGE COUNT                      JE304000
000008                             3804+JOETLNC  DS    F                   TOTAL JOE LINE COUNT                 JE306000
00000C                             3805+JOETPCT  DS    F                   TOTAL JOE PAGE COUNT                 JE308000

000010                             3806+JOEMTTR  DS    F                   LAST EJECT BUFFER TRACK ADDRESS      JE310000
000014                             3807+JOEIOTTR DS    F                   CURRENT IOT TRACK ADDRESS            JE312000
000018                      0001C  3808+JOEEND   ORG   ,                                                        JE314000
                            0001C  3809+JOESIZE  EQU   *-JOEDSECT          LENGTH OF MAX JOE                    JE316000
000002                             3810+HASPBR1  CSECT                     END OF JOE DSECT                     JE318000
BR1      HASP JOB OUTPUT TABLE FORMAT                                                                          PAGE  116


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   3813+*****************************************************                   JT014000
                                   3814+*   JOTJOBNO *            *   JOTCKPT  *            *                   JT016000
                                   3815+*       JOB NUMBER        *      INDEX OF LAST      *                   JT018000

                                   3816+*    ACTIVE IN $OUTPUT    *    JOE ADDED FOR JOB    *                   JT020000
                                   3817+*            *            *            *            *                   JT022000
                                   3818+*****************************************************                   JT024000
                                   3819+*   JOTFREC  *            *   JOTFREL  *            *                   JT026000
                                   3820+*                         *         MINIMUM         *                   JT028000
                                   3821+*   COUNT OF FREE JOES    *    FREE COUNT ALLOWED   *                   JT030000
                                   3822+*            *            *            *            *                   JT032000
                                   3823+*****************************************************                   JT034000
                                   3824+*   JOTFREQ  *            *   JOTCJRQ  *            *                   JT036000
                                   3825+*                         *                         *                   JT038000
                                   3826+*   QUEUE OF FREE JOES    *   QUEUE OF CHAR-JOES    *                   JT040000
                                   3827+*            *            *            *            *                   JT042000

                                   3828+*****************************************************                   JT044000
                                   3829+*   JOTCLSQ  *            *            *            *                   JT046000
                                   3830+*         QUEUES          *     36-HALFWORD AREA    *                   JT048000

                                   3831+*  OF WORK-JOES BY CLASS  *  (STARTING AT JOTCLSQ)  *                   JT050000
                                   3832+*            *            *            *            *                   JT052000
                                   3833+*****************************************************                   JT054000






                                   3835+*          START OF JOB OUTPUT ELEMENTS                                 JT058000


                                   3837+*****************************************************                   JT062000
                                   3838+*   JOTJOES  *            *            *            *                   JT064000
                                   3839+*                                                   *                   JT066000

                                   3840+*                SPACE TAKEN BY JOES                *                   JT068000
                                   3841+*            *            *            *            *                   JT070000
                                   3842+*****************************************************                   JT072000
BR1      HASP JOB OUTPUT TABLE DSECT                                                                           PAGE  117


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   3844+         EXTRN $JOT                HASP JOB OUTPUT TABLE                JT076000
000000                             3845+JOTDSECT DSECT                     JOB OUTPUT TABLE DSECT               JT078000
000000                             3846+JOTJOBNO DS    H                   JOB NUMBER ACTIVE IN $OUTPUT         JT080000
000002                             3847+JOTCKPT  DS    H                   INDEX OF LAST JOE ADDED FOR JOB      JT082000
000004                             3848+JOTFREC  DS    H                   COUNT OF FREE JOES                   JT084000

000006                             3849+JOTFREL  DS    H                   MINIMUM FREE COUNT ALLOWED           JT086000
000008                             3850+JOTFREQ  DS    H                   QUEUE OF FREE JOES                   JT088000
00000A                             3851+JOTCHRQ  DS    H                   QUEUE OF CHAR-JOES                   JT090000
00000C                             3852+JOTCLSQ  DS    36H                 QUEUES OF WORK-JOES BY CLASS         JT092000
000054                             3853+JOTJOES  DS    0F                  START OF JOES                        JT094000

000054 0000000000000000            3854+         DC    (64*JOESIZE)X'00'       SPACE TAKEN BY JOES              JT096000
000758                             3855+         DS    0D                                                       JT098000
                            00758  3856+JOTSIZE  EQU   *-JOTDSECT          SIZE OF JOB OUTPUT TABLE             JT100000
000002                             3857+HASPBR1  CSECT                     END OF JOB OUTPUT TABLE DSECT        JT102000
BR1      HASP PRINT CHECKPOINT ELEMENT FORMAT                                                                  PAGE  118



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3860+*****************************************************                   PR012000
                                   3861+*   PRCJOBNO *            *   PRCKJOE  *            *                   PR014000
                                   3862+*                         *     CHECKPOINT JOE      *                   PR016000

                                   3863+*  CHECKPOINT JOB NUMBER  *      DISPLACEMENT       *                   PR018000
                                   3864+*            *            *            *            *                   PR020000
                                   3865+*****************************************************                   PR022000
                                   3866+*   PRCFLAGS *   PRCCPYCT *   PRCEJRCB *            *                   PR024000

                                   3867+*            *            *     EJECT RCB           *                   PR026000
                                   3868+* CHECKPOINT * CHECKPOINT *     DISPLACEMENT        *                   PR028000
                                   3869+*   FLAGS    * COPY COUNT *            *            *                   PR030000
                                   3870+*****************************************************                   PR032000
                                   3871+*   PRCPDDBD *            *   PRCPDDBP *            *                   PR034000

                                   3872+*                         *                         *                   PR036000
                                   3873+*  CHECKPOINT PDDB DISPL  * CHECKPOINT PDDB PAGE CT *                   PR038000
                                   3874+*            *            *            *            *                   PR040000
                                   3875+*****************************************************                   PR042000
                                   3876+*   PRCLINCT *            *            *            *                   PR044000
                                   3877+*                                                   *                   PR046000
                                   3878+*            CHECKPOINT TOTAL LINE COUNT            *                   PR048000

                                   3879+*            *            *            *            *                   PR050000
                                   3880+*****************************************************                   PR052000
                                   3881+*   PRCPAGCT *            *            *            *                   PR054000

                                   3882+*                                                   *                   PR056000
                                   3883+*            CHECKPOINT TOTAL PAGE COUNT            *                   PR058000
                                   3884+*            *            *            *            *                   PR060000
                                   3885+*****************************************************                   PR062000
                                   3886+*   PRCEMTTR *            *            *            *                   PR064000

                                   3887+*                                                   *                   PR066000
                                   3888+*                MTTR OF LAST EJECT                 *                   PR068000
                                   3889+*            *            *            *            *                   PR070000
                                   3890+*****************************************************                   PR072000
                                   3891+*   PRCIOTTR *            *            *            *                   PR074000
                                   3892+*                                                   *                   PR076000
                                   3893+*                MTTR OF CURRENT IOT                *                   PR078000
                                   3894+*            *            *            *            *                   PR080000

                                   3895+*****************************************************                   PR082000
BR1      HASP PRINT CHECKPOINT ELEMENT FIELD DEFINITIONS                                                       PAGE  119



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3898+*                        PRINT CHECKPOINT ELEMENT ENTRY DISPLACEMENTS   PR088000




                            00000  3900+PRCJOBNO EQU   0                   CKPT - H - JOB NUMBER                PR092000
                            00002  3901+PRCKJOE  EQU   2                   CKPT - H - CKPT JOE DISPL            PR094000
                            00004  3902+PRCFLAGS EQU   4                   CKPT - C - FLAGS                     PR096000
                            00005  3903+PRCCPYCT EQU   5                   CKPT - C - CURRENT COPY COUNT        PR098000
                            00006  3904+PRCEJRCB EQU   6                   CKPT - H - EJECT RCB DISPL           PR100000
                            00008  3905+PRCPDDBD EQU   8                   CKPT - H - PDDB DISPLACEMENT         PR102000
                            0000A  3906+PRCPDDBP EQU   10                  CKPT - H - PDDB PAGE COUNT           PR104000
                            0000C  3907+PRCLINCT EQU   12                  CKPT - F - TOTAL LINT COUNT          PR106000
                            00010  3908+PRCPAGCT EQU   16                  CKPT - F - TOTAL PAGE COUNT          PR108000

                            00014  3909+PRCEMTTR EQU   20                  CKPT - F - MTTR OF LAST EJECT        PR110000

                            00018  3910+PRCIOTTR EQU   24                  CKPT - F - MTTR OF CURRENT IOT       PR112000
                            0001C  3911+PRCSIZE  EQU   28,28               LENGTH OF A PRC ELEMENT              PR114000





                                   3913+*                   PRINT CHECKPOINT ELEMENT FLAG DEFINITIONS           PR118000




                            00080  3915+PRCHKUSE EQU   X'80'               CHECKPOINT ENTRY IS IN USE           PR122000
                            00040  3916+PRCHKJOB EQU   X'40'               JOB ACTIVE INDICATOR                 PR124000
BR1      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE  120


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00010  3918+$CVTPTR  EQU   16                  ADDRESS OF CVT POINTER               CT008000
000000                             3919+CVTDSECT DSECT                     COMMUNICATION VECTOR TABLE DSECT     CT012000


                                   3921+*                                                                       00510000
                                   3922+*              OS/360                                                   00560000

                                   3923+*        COMMUNICATION VECTOR TABLE                                     00800000

                                   3924+*                                                                       00810000
                                   3925+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5                    01050021
                                   3926+*                                                                       01200000
                            00010  3927+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT         01400000

                                   3928+*                                                                       01600000
                                   3929+*              BEGINNING OF CVT PROPER                                  01601000
                                   3930+*                                                                       01610000
000000                             3931+         DS    0F                                                       01611000
                            00000  3932+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE                 01840000
                                   3933+*                                                                       02000000
000000 00000000                    3934+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST  02200000
000004 00000000                    3935+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE                02610000
                                   3936+*                              ASYNCHRONOUS EXITS                       02620000
000008 00000000                    3937+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB                   02800000
00000C 00000000                    3938+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB                     03000000

000010 00000000                    3939+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT                03200000
                                   3940+*                              CONSOLE INTERRUPTION ROUTINE             03400000
000014 00000000                    3941+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE         03600000
000018 00000000                    3942+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING 03800000

                                   3943+*                              ROUTINE FOR SUPERVISOR                   04000000
00001C 00000000                    3944+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04200000
                                   3945+*                              RELATIVE TRACK ADDR TO ABSOLUTE          04400000
000020 00000000                    3946+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04600000
                                   3947+*                              ABSOLUTE TRACK ADDR TO RELATIVE          04800000
000024 00000000                    3948+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION   05000000
                                   3949+*                              IN UCB LOOKUP TABLE                      05200000
000028 00000000                    3950+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION     05400000
                                   3951+*                              IN UCB LOOKUP TABLE                      05600000
00002C 00000000                    3952+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE           05800000
                                   3953+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES 06000000
000030 00000000                    3954+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY      06200000

                                   3955+*                              IN UCB LOOKUP TABLE                      06400000
000034 00000000                    3956+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE         06600000
000038 00000000                    3957+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL             06800000

00003C 00000000                    3958+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)       07210000
                                   3959+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS    07220000
                                   3960+*                              MASTER SCHEDULER RESIDENT DATA AREA      07221000
000040 00000000                    3961+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE    07400000
000044 00000000                    3962+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE          07600000
000048 00000000                    3963+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS       08000000
                                   3964+*                              FOR DAMAGE ASSESSMENT ROUTINES           08200000
00004C 00000000                    3965+CVT0FN00 DC    A(0) -        RESERVED (MVT)                             08610000
000050 0A03                        3966+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER                         08800000
000052 07FE                        3967+CVTBRET  BR    14 -          RETURN TO CALLER                           09000000
000054 00000000                    3968+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB                    09200000
000058 00000000                    3969+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER     09411000

                                   3970+*                              ROUTINE (SHPC FIRST)                     09412000

00005C 00000000                    3971+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL              09430000
BR1      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE  121



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000060 00000000                    3972+CVTSJQ   DC    A(0) -        RESERVED (MVT)                             09810000
000064 00000000                    3973+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR  10000000
000068 00000000                    3974+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE              10410000
                                   3975+*                              FOR INTERVAL TIMER                       10411000
00006C 00000000                    3976+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE              10420000
                                   3977+*                              FOR INTERVAL TIMER                       10421000
000070 00000000                    3978+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE         10600000
000074 10                          3979+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM                           11600000
                            00040  3980+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11600100
                            00020  3981+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11600200
                            00010  3982+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11600300

                            00004  3983+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11600400
000075 000000                      3984+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11601000

000078 00000000                    3985+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE            11820000

00007C 00000000                    3986+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER    12400000
000080 00000000                    3987+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS               12600000
000084 00000000                    3988+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE              12800000
000088 00000000                    3989+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER             13000000
00008C 00000000                    3990+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE         13200000
000090 00000000                    3991+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE            13400000
000094 00000000                    3992+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT          13810000
                                   3993+*                              DATA AREA (MVT/MFT)                      13820000
000098 00000000                    3994+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE    14000000
00009C 00000000                    3995+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE                14200000
0000A0 00000000                    3996+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE           14400000
0000A4 00000000                    3997+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS                    14600000

0000A8 00000000                    3998+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)      14601000
0000AC 00000000                    3999+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD         16638521
                                   4000+*                              (0 IF GFX INACTIVE) MVT                  16640821

0000B0 00000000                    4001+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA       16647721
                                   4002+*                              (MVT/MFT)                                16650000
0000B4 0000                        4003+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    16660000
0000B6 00                          4004+CVTOPTA  DC    AL1(00)    -     MISCELLANEOUS FLAGS                     16670021
                            00080  4005+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)               16680000
                            00040  4006+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --                    16681000
                                   4007+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16681100
                            00020  4008+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --          16683000
                                   4009+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16683200
                            00010  4010+CVTNIP   EQU   X'10' -       NIP RUNNING                                16690000
                            00008  4011+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)                     16691000
                            00004  4012+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16692000

                            00002  4013+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16693000
                            00001  4014+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16695000
0000B7 00                          4015+CVTOPTB  DC    AL1(00)     - MISCELLANEOUS FLAGS                        16700021
                            00080  4016+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)            16702000

                            00020  4017+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)        16704000
                                   4018+*                                                                       16800000
                                   4019+*              PCP OVERLAY                                              17000000
                                   4020+*                                                                       17200000
0000B8                             4021+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART            17400000
0000BB                             4022+CVTSTUSA DS    B -           STATUS BYTE A                              17600000

                            00008  4023+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART     17800000
                                   4024+*                              WAS INITIATED INTRASTEP                  18000000
                            00004  4025+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART           18200000
                                   4026+*                              WAS INITIATED INTERSTEP                  18400000
BR1      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE  122


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00002  4027+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM          18600000
                                   4028+*                              AND DATA HAS NOT BEEN READ               18800000

0000BC                             4029+         DS    CL2 -         RESERVED                                   19000000
0000BE                             4030+         DS    CL2 -         RESERVED                                   19200000

                                   4031+*                                                                       19400000
                                   4032+*              MVT/MFT OVERLAY                                          19600000
                                   4033+*                                                                       19800000
0000C0                      000B8  4034+         ORG   CVTCRTTR                                                 20000000
                                   4035+*                                                                       20200000
0000B8 00000000                    4036+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR           20400000
0000BC 00000000                    4037+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21000000
                                   4038+*                                                                       21670000

                                   4039+*              END OF OVERLAYS                                          21800000
                                   4040+*                                                                       22000000
0000C0 00000000                    4041+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)                       22421000
0000C4 00000000                    4042+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA            22600000
0000C8 00000000                    4043+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT     22610000

                                   4044+*                              (MVT/MPS)                                22610100
0000CC 00000000                    4045+CVTUSER  DC    A(0) -        A WORD TO THE USER                         22620000

0000D0                      000CC  4046+         ORG   CVTUSER -     REMAP CVTUSER AS CVTHJES              RFIT 22620100
0000CC                             4047+CVTHJES  DS    0A -          SAME AS CVTHJESA BELOW                RFIT 22620300
0000CC 00                          4048+         DC    XL1'00' -     RESERVED - FIRST BYTE OF CVTHJES      RFIT 22620500
0000CD 000000                      4049+CVTHJESA DC    AL3(0) -      ADDRESS OF HASP COMMUNICATION TABLE   RFIT 22620700
0000D0                      000D0  4050+         ORG   , -           RESTORE LOCATION COUNTER              RFIT 22620900
                                   4051+*                                                                       23000000
                                   4052+*              MFT/MVT CVT EXTENSION                                    24000000
                                   4053+*                                                                       24200000

0000D0 00000000                    4054+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT       24400021
0000D4 0A0D                        4055+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)                 24600000
0000D6 0A06                        4056+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)   25000000
0000D8 00000000                    4057+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25421000
0000DC 00000000                    4058+CVTPATCH DC    V(IEAPATCH) - ADDR OF FE PATCH AREA                      25540000

0000E0 00000000                    4059+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA  25800000
                                   4060+*                              (MVT/MFT)                                25810000
0000E4                             4061+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)             26000000

0000E4 00                          4062+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)                   26050000
                            00080  4063+CVTTSRDY EQU   X'80' -       TIME SHARING READY                         26100000
0000E5 000000                      4064+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)             26150000
0000E8 00000000                    4065+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     27393221
0000EC                             4066+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)   27394021
0000EC 00                          4067+CVTGTFST DC    B'0' -        STATUS FLAGS                               27396021
                            000C0  4068+CVTGTFS  EQU   X'C0' -       STATE                                      27398021

                                   4069+*/       00    CVTGTFIN      INACTIVE                                   27398421
                                   4070+*/       01    CVTGTFSR      STARTING                                   27398821
                                   4071+*/       10    CVTGTFSP      STOPPING                                   27399221
                                   4072+*/       11    CVTGTFAC      ACTIVE                                     27399621
                            00020  4073+CVTSTATE EQU   X'20' -       IN CONTROL                                 27399721

                            00010  4074+CVTMODE  EQU   X'10' -       EXT MODE                                   27399821
                            00008  4075+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA                27399921
                            00004  4076+CVTUSR   EQU   X'04' -       USR TRACE                                  27449921
                            00002  4077+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID                       27459921

0000ED 000000                      4078+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE                27469921
0000F0                             4079+CVTTCMFG DS    0B -          TCAM FLAGS                                 27499921
                            00080  4080+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)                         27600000
0000F0 00000000                    4081+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF             27610000
BR1      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE  123


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   4082+*                            TCAM ADDRESS VECTOR TABLE                  27620021
                                   4083+*                                                                       29401221
                                   4084+*              MVT CVT EXTENSION                                        29401321
                                   4085+*                                                                       29401421
0000F4                             4086+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE 29401521

                                   4087+*                            (PWF)                               S21167 29401621
0000F4 80                          4088+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY   29404021
                                   4089+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167 29404221
                            00080  4090+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167 29404421
0000F5 000000                      4091+CVTVOLT2 DC    AL3(0)     -  PWF RECHECK TIME DELAY.  THIS VALUE IS     29404621

                                   4092+*                            OVERLAID BY CVTVOLM2 AFTER PWF             29404821
                                   4093+*                            INITIALIZATION                      S21167 29405021
0000F8 00000000                    4094+         DC    A(0) -        RESERVED                                   29405221
                                   4095+*                                                                       29407021
                                   4096+*              MVT/MFT CVT EXTENSION                                    29408021

                                   4097+*                                                                       29408821
0000FC 00000114                    4098+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1              29410821
                                   4099+*                            (ICB421)                APAR'S 47331,47332 29413221
000100                             4100+         DS    F -           RESERVED                                   29414221
000104                             4101+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE         29415221

000104                             4102+         DS    X -           RESERVED                                   29416421
000105 000000                      4103+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE         29417421
000108                             4104+         DS    F -           RESERVED                                   29418421
00010C                             4105+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307 29419421
00010C                             4106+         DS    X -           RESERVED                            ICB307 29420421
00010D 000000                      4107+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND              29421421

                                   4108+*                            COMMUNICATION AREA                  ICB307 29422421
000110                             4109+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308 29423421
000110                             4110+         DS    X -           RESERVED                            ICB308 29424421
000111 000000                      4111+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY      29425421

                                   4112+*                            ROUTINE                             ICB308 29426421
                                   4113+*                                                                       29427421
                                   4114+*              COMMON EXTENSION 1                                       29435721
                                   4115+*              ADDRESS OF EXTENSION IS IN CVTEXT1                       29445721
                                   4116+*                                                                       29455721

                                   4117+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,               29456121
                                   4118+*              YOU SHOULD CODE -                                        29462521
                                   4119+*                                                                       29464521
                                   4120+*              L     REG,CVTEXT1                                        29466521
                                   4121+*              USING CVTXTNT1,REG                                       29468521
                                   4122+*                                                                       29468621
                                   4123+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.               29468721

                                   4124+*                                                                       29468821
                            00114  4125+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1                29475221
                                   4126+*                            (ICB421)                APAR'S 47331,47332 29475721

000114 00000000                    4127+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS        29477221
                                   4128+*                            (ISAM) (ICB421)         APAR'S 47331,47332 29479221
                                   4129+*                                                                       29494421
                                   4130+*              END OF CVT PROPER                                        29513521
                                   4131+*                                                                       29532621

                                   4132+*                                                                       29870000
                                   4133+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT           29880000
                                   4134+*                                                                       29890000
000002                             4135+HASPBR1  CSECT                     END OF CVT DSECT                     CT020000
BR1      OS TASK CONTROL BLOCK DSECT                                                                           PAGE  124


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                             4138+TCBDSECT DSECT                     TASK CONTROL BLOCK DSECT             TC010000
000000                             4139+TCBRBP   DS    F                   ADDRESS OF TOP RB                    TC012000

000004                             4140+TCBPIE   DS    F                   ADDRESS OF PROGRAM INTERRUPT ELEMENT TC014000
000008                             4141+TCBDEB   DS    F                   ADDRESS OF DEB QUEUE                 TC016000
00000C                             4142+TCBTIO   DS    F                   ADDRESS OF TASK I/O TABLE            TC018000
000010                             4143+TCBCMP   DS    F                   TASK COMPLETION CODE                 TC020000
000014                             4144+TCBTRN   DS    F                   ADDRESS OF TESTRAN CONTROL TABLE     TC022000

000018                             4145+TCBMSS   DS    F                   MAIN STORAGE SUPERVISOR POINTER      TC026000
00001C                             4146+TCBPKF   DS    C                   PROTECTION KEY                       TC028000
00001D                             4147+TCBFLGS  DS    3C                  MISCELLANEOUS FLAGS                  TC028800
000020                             4148+TCBFLGS4 DS    C                   NONDISPATCHABILITY FLAGS             TC029600
                            00010  4149+TCBHNDSP EQU   X'10'               HASP FREEZE BIT                      TC030400
000021                             4150+TCBFLGS5 DS    C                   NONDISPATCHABILITY FLAGS             TC031200
000022                             4151+TCBLMP   DS    C                   ENQUEUE COUNT / LIMIT PRIORITY       TC032000
000023                             4152+TCBDSP   DS    C                   DISPATCHING PRIORITY                 TC034000
000024                             4153+TCBLLS   DS    F                   LOAD LIST                            TC036000

000028                             4154+TCBJLB   DS    F                   ADDRESS OF JOBLIB DCB                TC038000

00002C                             4155+TCBJPQ   DS    F                   ADDRESS OF CDE FOR JPA               TC040000
000030                             4156+TCBGRS   DS    16F                 GENERAL REGISTER SAVE AREA           TC042000
000070                             4157+TCBQEL   DS    0C                  ENQUEUE COUNT (MVT)                  TC046000
000070                             4158+TCBFSA   DS    F                   ADDRESS OF FIRST PROGRAM SAVE AREA   TC048000
000074                             4159+TCBTCB   DS    F                   ADDRESS OF NEXT LOWER PRIORITY TCB   TC050000

000078                             4160+TCBTME   DS    F                   ADDRESS OF TIMER ELEMENT             TC052000
00007C                             4161+TCBJSTCB DS    F                   ADDRESS OF FIRST TCB FOR JOB STEP    TC056000
000080                             4162+TCBNTC   DS    F                   ADDRESS OF PREVIOUS TCB              TC058000
000084                             4163+TCBOTC   DS    F                   ADDRESS OF ORIGINATING TCB           TC060000
000088                             4164+TCBLTC   DS    F                   ADDRESS OF LAST TCB ON SUBTASK QUEUE TC062000
00008C                             4165+TCBIQE   DS    F                   ADDRESS OF IQE FOR ETXR ROUTINE      TC064000
000090                             4166+TCBECB   DS    F                   ADDRESS OF ECB POSTED ON COMPLETION  TC066000
000094                             4167+TCBTSFLG DS    C                   TIME SHARING FLAGS                   TC066800
000095                             4168+TCBSTPCT DS    C                   STATUS STOP COUNT                    TC067600
000096                             4169+TCBTSLP  DS    C                   TS TASK LIMIT PRIORITY               TC068400

000097                             4170+TCBTSDP  DS    C                   TS TASK DISPATCHING PRIORITY         TC069200

000098                             4171+TCBPQE   DS    F                   ADDRESS OF REGION DUMMY PQE - 8      TC070000
00009C                             4172+TCBAQE   DS    F                   ADDRESS OF ALLOCATED QUEUE ELEMENT   TC072000
0000A0                             4173+TCBNSTAE DS    F                   ADDR OF CURRENT STAE CONTROL BLOCK   TC074000
0000A4                             4174+TCBTCT   DS    F                   ADDRESS OF THE TCT                   TC076000

0000A8                             4175+TCBUSER  DS    F                   USER FIELD                           TC078000
0000AC                             4176+TCBNDSP  DS    F                   SECONDARY NONDISPATCHABILITY         TC080000
0000B0                             4177+TCBPCE   DS    0F .                ADDRESS OF HASP PCE         FJP/RFIT TC081700
                            00001  4178+TCBPCEND EQU   X'01' .             HASP NON-DISPATCH. FLAG     FJP/RFIT TC081800
0000B0                             4179+         DS    F                   RESERVED                             TC082000
0000B4                             4180+TCBJSCB  DS    F                   ADDRESS OF JSCB                      TC083000
000002                             4181+HASPBR1  CSECT                     END OF TASK CONTROL BLOCK DSECT      TC084000
BR1      OS GENERAL REQUEST BLOCK DSECT                                                                        PAGE  125


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                             4184+RBPREFIX DSECT                     REQUEST BLOCK PREFIX DSECT           RB009000
000000                             4185+         DS    (X'3E')C                                                 RB010000
00003E                             4186+RBINTCOD DS    H                   INTERRUPT CODE                       RB011000
000040                             4187+RBDSECT  DS    0F                  REQUEST BLOCK DSECT                  RB012000

000040                             4188+RBEXRTNM DS    0CL8                MVT SIRB ERROR EXIT ROUTINE NAME     RB014000
000040                             4189+RBTABNO  DS    0H                  MVT SVRB DISPLACEMENT FOR TACT ENTRY RB016000
000040                             4190+RBTMFLD  DS    0C                  MVT IRB INDICATORS                   RB018000
000040                             4191+RBPPSAV  DS    0F,H                MVT IRB PROBLEM PROGRAM SAVE AREA    RB020000
000042                             4192+RBRTLNTH DS    H                   MVT SVRB SVC ROUTINE LENGTH          RB022000
000044                             4193+RBABOPSW DS    F                   MVT RIGHT HALF OF USERS OLD PSW      RB024000
000048                             4194+RBWCSA   DS    C                   MVT WAIT COUNT SAVE AREA             RB028000
000049                             4195+RBSIZE   DS    C                   MVT SIZE OF THIS RB                  RB030000
00004A                             4196+RBSTAB   DS    H                   MVT STATUS AND ATTRIBUTE BITS        RB034000
00004C                             4197+RBEP     DS    0F                  MVT IRB ASYNCHRONOUS ROUTINE ENTRY   RB040000
00004C                             4198+RBCDFLGS DS    0C                  MVT CONTENTS CONTROL FLAGS           RB042000
00004C                             4199+RBCDE    DS    0F                  MVT ADDRESS OF CDE                   RB044000

00004C                             4200+RBSVTQN  DS    F                   MVT SVRB ADDRESS OF NEXT TRANS RB    RB046000
000050                             4201+RBOPSW   DS    D                   MVT OLD PSW                          RB050000
000058                             4202+RBUSE    DS    0C                  MVT ATTACH USE COUNT                 RB054000

000058                             4203+RBPGMQ   DS    0F                  MVT ADDR OF SERIALLY REUSE PROG RB   RB056000
000058                             4204+RBTAWCSA DS    C                   MVT SVRB WAIT COUNT SAVE AREA        RB058000
000059                             4205+RBSVTTR  DS    0CL3                MVT SVRB TTR FOR SVC ROUTINE         RB060000
00005A                             4206+RBIQE    DS    H                   MVT IRB LIST ORIGIN FOR IQE (RQE)    RB062000
00005C                             4207+RBWCF    DS    0C                  MVT WAIT COUNT                       RB068000
00005C                             4208+RBLINK   DS    F                   MVT ADDRESS OF NEXT RB OR TCB        RB070000
000060                             4209+RBGRSAV  DS    16F                 MVT GENERAL REGISTER SAVE AREA       RB074000
0000A0                             4210+RBNEXAV  DS    0F                  MVT IRB ADDR OF NEXT AVAILABLE IQE   RB076000
0000A0                             4211+RBEXSAV  DS    16F                 MVT SVRB EXTENDED SAVE AREA          RB078000
000002                             4212+HASPBR1  CSECT                     END OF REQUEST BLOCK DSECT           RB080000
BR1      OS JOB STEP CONTROL BLOCK DSECT                                                                       PAGE  126


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78








000000                             4215+JSCDSECT DSECT                     OS JSCB DSECT                        JS010000

                            000C0  4216+JSCHPCE  EQU   JSCDSECT+X'C0',4    OPTIONAL JES PCE ADDRESS.            JS012000
                            000E4  4217+JSCBSTEP EQU   JSCDSECT+X'E4',1    CURRENT STEP NUMBER.                 JS014000
                            0010C  4218+JSCBTJID EQU   JSCDSECT+X'10C',2   TSO TERMINAL JOB IDENTIFIER.         JS016000
000002                             4219+HASPBR1  CSECT                     END OF OS JSCB DSECT                 JS018000
BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  127


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4221+*,***  IHB069  DEVD NOT SPECIFIED-ALL ASSUMED


                                   4223+*                       DCB SYMBOLIC DEFINITION FOR                     07700000
                                   4224+*                       PHYSICAL SEQUENTIAL                             07900000

                                   4226+*********************************************************************** 09960021

                                   4227+*  OS     RELEASE 21.8, 03/22/74                                      * 10000021
                                   4228+*  OS/VS1 RELEASE 03.1, 03/22/74                                      * 10010021

                                   4229+*********************************************************************** 10020021


000000                             4231+IHADCB   DSECT , -            DCBPTR                                    10150000

                            00080  4233+DCBBIT0  EQU   128                                                      10210021
                            00040  4234+DCBBIT1  EQU   64                                                       10220021
                            00020  4235+DCBBIT2  EQU   32                                                       10230021
                            00010  4236+DCBBIT3  EQU   16                                                       10240021
                            00008  4237+DCBBIT4  EQU   8                                                        10242021
                            00004  4238+DCBBIT5  EQU   4                                                        10244021
                            00002  4239+DCBBIT6  EQU   2                                                        10246021
                            00001  4240+DCBBIT7  EQU   1                                                        10248021


                                   4242+*                       DEVICE INTERFACES                               10350000

                                   4244+*                       DIRECT ACCESS DEVICES                           10500000


000000                             4246+DCBRELAD DS    CL4 -          PARTITIONED ORGANIZATION DATA SET -       10600000
                                   4247+*                             ADDRESS (IN THE FORM TTRN) OF MEMBER      10650000
                                   4248+*                             CURRENTLY USED.  ---                      10700000
                                   4249+*                             SYS1.LOGREC DATA SET - IF CCH OPTION HAS  10750000
                                   4250+*                             BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS 10800000
                                   4251+*                             OF A 12-BYTE PARAMETER IN THE EXPANSION   10850000
                                   4252+*                             OF MACRO INSTRUCTION IGFCATAP             10900000
000004                             4253+DCBKEYCN DS    FL1 -          KEYED BLOCK OVERHEAD CONSTANT             10950000
000005                             4254+DCBFDAD  DS    CL8 -          FULL DISK ADDRESS IN THE FORM OF MBBCCHHR 11000000
                                   4255+*                             OF RECORD THAT WAS JUST READ OR WRITTEN   11050000


00000D                      0000C  4257+         ORG   DCBFDAD+7                                                11150000
00000C                             4258+DCBDVTBL DS    0A -           SAME AS DCBDVTBA BELOW                    11200000
00000C                             4259+         DS    X -            LAST BYTE OF DCBFDAD                      11250000
00000D                             4260+DCBDVTBA DS    AL3 -          ADDRESS OF ENTRY IN I/O DEVICE            11300000

                                   4261+*                             CHARACTERISTICS TABLE FOR DEVICE BEING    11350000
                                   4262+*                             USED                                      11400000
000010                             4263+         DS    FL1 -          DCBKEYLE - KEY LENGTH OF DATA SET         11450000
000011                             4264+         DS    C -            DCBDEVT - DEVICE TYPE                     11500000
                                   4265+*   FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION      11550000
                            00021  4266+DCBDV311 EQU   X'21' -        2311 DISK DRIVE                           11600000

                            00022  4267+DCBDV301 EQU   X'22' -        2301 PARALLEL DRUM                        11650000
                            00023  4268+DCBDV303 EQU   X'23' -        2303 SERIAL DRUM                          11700000
                            00024  4269+DCBDV302 EQU   X'24' -        2302 DISK STORAGE                         11750000
                            00025  4270+DCBDV321 EQU   X'25' -        2321 DATA CELL DRIVE                      11800000
                            00028  4271+DCBDV314 EQU   X'28' -        2314 DISK STORAGE FACILITY                11850000
000012                             4272+DCBTRBAL DS    H -            TRACK BALANCE.  NUMBER OF BYTES REMAINING 11900000
                                   4273+*                             ON CURRENT TRACK AFTER A WRITE OPERATION  11950000
                                   4274+*                             (THIS QUANTITY MAY BE NEGATIVE IF THERE   12000000

BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  128



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4275+*                             ARE NO BYTES REMAINING ON TRACK).         12050000

                                   4277+*                       MAGNETIC TAPE                                   12200000

000014                      00000  4279+         ORG   IHADCB                                                   12300000
000000                             4280+         DS    CL12 -         RESERVED FOR I/O SUPERVISOR               12350000
00000C                             4281+DCBBLKCT DS    F -            BLOCK COUNT FOR EACH VOLUME               12400000
000010                             4282+DCBTRTCH DS    C -            TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 12450000

                            00023  4283+DCBMTE   EQU   X'23' -        E  - EVEN PARITY                          12500000
                            0003B  4284+DCBMTT   EQU   X'3B' -        T  - BCD/EBCDIC TRANSLATION               12550000
                            00013  4285+DCBMTC   EQU   X'13' -        C  - DATA CONVERSION                      12600000
                            0002B  4286+DCBMTET  EQU   X'2B' -        ET - EVEN PARITY AND TRANSLATION          12650000
000011                             4287+         DS    C -            DCBDEVT - DEVICE TYPE                     12700000

                            00081  4288+DCBDVMT  EQU   X'81' -        2400 SERIES MAGNETIC TAPE UNIT (7-TRACK   12750000
                                   4289+*                             OR 9-TRACK)                               12800000

                            00083  4290+DCBDVMT3 EQU   X'83' -        3400 SERIES MAGNETIC TAPE UNIT     ICB277 12850000
000012                             4291+DCBDEN   DS    C -            TAPE DENSITY - 2400 SERIES MAGNETIC TAPE  12900000
                                   4292+*                             UNITS                                     12950000
                                   4293+*                             CODE    7-TRACK     9-TRACK               13000000
                            00003  4294+DCBMTDN0 EQU   X'03' -         0       200 BPI       -                  13050000
                            00043  4295+DCBMTDN1 EQU   X'43' -         1       556 BPI       -                  13100000
                            00083  4296+DCBMTDN2 EQU   X'83' -         2       800 BPI     800 BPI              13150000
                            000C3  4297+DCBMTDN3 EQU   X'C3' -         3         -        1600 BPI              13200000

                            000D3  4298+DCBMTDN4 EQU   X'D3' -         4         -        6250 BPI        99223 13210003
000013                             4299+         DS    X -            RESERVED                                  13250000

                                   4301+*                       PAPER TAPE                                      13400000


000014                      00008  4303+         ORG   IHADCB+8                                                 13500000
000008                             4304+DCBLCTBL DS    A -            ADDRESS OF TRANSLATE TABLE                13550000
00000C                             4305+         DS    XL4 -          RESERVED                                  13600000

000010                             4306+DCBCODE  DS    C -            PAPER TAPE CODE BEING USED.  THE          13650000
                                   4307+*                             APPROPRIATE TRANSLATE TABLE IS MADE       13700000
                                   4308+*                             AVAILABLE                                 13750000
                            00080  4309+DCBPTCDN EQU   X'80' -        N - NO CONVERSION                         13800000
                            00040  4310+DCBPTCDI EQU   X'40' -        I - IBM BCD                               13850000
                            00020  4311+DCBPTCDF EQU   X'20' -        F - FRIDEN                                13900000
                            00010  4312+DCBPTCDB EQU   X'10' -        B - BURROUGHS                             13950000

                            00008  4313+DCBPTCDC EQU   X'08' -        C - NATIONAL CASH REGISTER                14000000
                            00004  4314+DCBPTCDA EQU   X'04' -        A - ASCII (8-TRACK)                       14050000
                            00002  4315+DCBPTCDT EQU   X'02' -        T - TELETYPE                              14100000
000011                             4316+         DS    C -            DCBDEVT - DEVICE TYPE                     14150000
                            00050  4317+DCBDVPTP EQU   X'50' -        2671 PAPER TAPE READER                    14200000

000012                             4318+         DS    X -            RESERVED                                  14250000
000013                             4319+DCBPTFLG DS    BL1 -          PAPER TAPE FLAGS                          14300000
                            00010  4320+DCBPTIC  EQU   DCBBIT3 -      INVALID CHARACTER IN LAST RECORD READ     14350003
                            00008  4321+DCBPTECT EQU   DCBBIT4 -      END OF RECORD CHARACTER REACHED IN        14400003

                                   4322+*                             TRANSLATION                               14450000
                            00004  4323+DCBPTECR EQU   DCBBIT5 -      END OF RECORD CHARACTER DETECTED DURING   14500003
                                   4324+*                             READ                                      14550000
                            00002  4325+DCBPTUCT EQU   DCBBIT6 -      IF ONE, UPPER CASE TRANSLATE.             14600003
                                   4326+*                             IF ZERO, LOWER CASE TRANSLATE             14650000
                            00001  4327+DCBPTERR EQU   DCBBIT7 -      ERROR DETECTED ON READ                    14700003


                                   4329+*                       PRINTER                                         14850000
BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  129


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000014                      00010  4331+         ORG   IHADCB+16                                                14950000

000010                             4332+DCBPRTSP DS    C -            NUMBER INDICATING NORMAL PRINTER SPACING  15000000
                            00001  4333+DCBPRSP0 EQU   X'01' -        0 - NO SPACING                            15050000
                            00009  4334+DCBPRSP1 EQU   X'09' -        1 - SPACE ONE LINE                        15100000
                            00011  4335+DCBPRSP2 EQU   X'11' -        2 - SPACE TWO LINES                       15150000
                            00019  4336+DCBPRSP3 EQU   X'19' -        3 - SPACE THREE LINES                     15200003

000011                             4337+         DS    C -            DCBDEVT - DEVICE TYPE                     15250000
                            00048  4338+DCBDVPR1 EQU   X'48' -        1403 PRINTER AND 1404 PRINTER (CONTINUOUS 15300000
                                   4339+*                             FORM SUPPORT ONLY)                        15350000
                            0004A  4340+DCBDVPR2 EQU   X'4A' -        1443 PRINTER                              15400000
                            00049  4341+DCBDVPR3 EQU   X'49' -        3211 PRINTER                              15450000

000012                             4342+DCBPRTOV DS    C -            TEST-FOR-PRINTER-OVERFLOW MASK            15500000
                                   4343+*                             (PRTOV MASK)                              15550000
                            00020  4344+DCBPRC9  EQU   X'20' -        9  - TEST FOR CHANNEL 9 OVERFLOW          15600000
                            00010  4345+DCBPRC12 EQU   X'10' -        12 - TEST FOR CHANNEL 12 OVERFLOW         15650000
000013                             4346+         DS    X -            RESERVED                                  15700000


                                   4348+*                       CARD READER, CARD PUNCH                         15850000

000014                      00010  4350+         ORG   IHADCB+16                                                15950000
000010                             4351+DCBMODE  DS    0B -           MODE OF OPERATION FOR 1442 CARD READ      16000000
                                   4352+*                             PUNCH (BITS 0-3)                          16050000

000010                             4353+DCBSTACK DS    B -            STACKER SELECTION (BITS 4-7)              16100000
                            00080  4354+DCBMODEC EQU   DCBBIT0 -      COLUMN BINARY MODE                        16150003
                            00040  4355+DCBMODEE EQU   DCBBIT1 -      EBCDIC MODE                               16200003
                            00020  4356+DCBMODEO EQU   DCBBIT2 -      OPTICAL MARK READ MODE                    16250003

                            00010  4357+DCBMODER EQU   DCBBIT3 -      READ COLUMN ELIMINATE MODE                16300003
                            00002  4358+DCBSTCK2 EQU   DCBBIT6 -      STACKER 2                                 16350003
                            00001  4359+DCBSTCK1 EQU   DCBBIT7 -      STACKER 1                                 16400003
000011                             4360+         DS    C -            DCBDEVT - DEVICE TYPE                     16450000
                            00041  4361+DCBDVCR0 EQU   X'41' -        2540 CARD READER                          16500000

                            00042  4362+DCBDVCP0 EQU   X'42' -        2540 CARD PUNCH                           16550000
                            00043  4363+DCBDVCRP EQU   X'43' -        1442 CARD READ PUNCH                      16600000
                            00044  4364+DCBDVCR1 EQU   X'44' -        2501 CARD READER                          16650000
                            00045  4365+DCBDVCPR EQU   X'45' -        2520 CARD READ PUNCH                      16700000
                            00046  4366+DCBDVCR2 EQU   X'46'          3505 CARD READER                   XM0629 16710002
                            0004C  4367+DCBDVCP1 EQU   X'4C'          3525 CARD PUNCH                    XM0629 16720002
000012                             4368+         DS    X -            RESERVED                                  16750000

000013                             4369+DCBFUNC  DS    B -            FUNCTION INDICATOR FOR THE 3525           16800000
                            00080  4370+DCBFNCBI EQU   DCBBIT0 -      INTERPRET (PUNCH AND PRINT TWO LINES)     16850003
                            00040  4371+DCBFNCBR EQU   DCBBIT1 -      READ                                      16900003

                            00020  4372+DCBFNCBP EQU   DCBBIT2 -      PUNCH                                     16950003
                            00010  4373+DCBFNCBW EQU   DCBBIT3 -      PRINT                                     17000003
                            00008  4374+DCBFNCBD EQU   DCBBIT4 -      DATA PROTECTION                           17050003
                            00004  4375+DCBFNCBX EQU   DCBBIT5 -      THIS DATA SET IS TO BE PRINTED            17100003
                            00002  4376+DCBFNCBT EQU   DCBBIT6 -      TWO-LINE PRINT SUPPORT REQUEST            17150003


                                   4378+*                       OPTICAL READER AND MAGNETIC CHAR READER         18100000

000014                      00000  4380+         ORG   IHADCB                                                   18200000
000000                             4381+DCBWTOID DS    0A -           SAME AS DCBWTOIA BELOW                    18250000
000000                             4382+         DS    X -            RESERVED                                  18300000
000001                             4383+DCBWTOIA DS    AL3 -          A BINARY IDENTIFICATION NUMBER ASSIGNED   18350000
                                   4384+*                             BY COMMUNICATIONS TASK TO MESSAGE ISSUED  18400000

                                   4385+*                             BY WTO MACRO.  THIS NUMBER IS USED BY THE 18450000
BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  130



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4386+*                             DOM MACRO WHEN MESSAGE IS NO LONGER       18500000
                                   4387+*                             REQUIRED (MCS SUPPORT).  ---              18550000
                                   4388+*                             FOR MAGNETIC CHAR READER - AFTER FIRST    18600000
                                   4389+*                             READ HAS BEEN ISSUED, CONTAINS ADDRESS OF 18650000

                                   4390+*                             MAGNETIC INTERRUPT CONTROL BLOCK (MICB)   18700000
                                   4391+*                             BEING USED BY THE APPENDAGES.             18750000

                                   4393+*                       OPTICAL READER DEVICES                          18900000
                                   4394+*                       1285, 1287, 1288, 3886                          18950003

000004                      00004  4396+         ORG   DCBWTOID+4                                               19050000
000004                             4397+DCBERRCN DS    0A -           SAME AS DCBERRCA BELOW                    19100000
000004                             4398+DCBERRCA DS    AL3 -          ADDRESS OF 32 BYTES OF DECLARED STORAGE   19200000

                                   4399+*                             SPECIFIED BY THE USER IN HIS PROGRAM.     19250000

                                   4400+*                             THIS STORAGE WILL BE USED BY THE          19300000
                                   4401+*                             PROGRAMMING SUPPORT AS EIGHT 4-BYTE       19350000
                                   4402+*                             COUNTERS IN WHICH TOTALS OF CERTAIN 1285, 19400000
                                   4403+*                             1287 AND 1288 ERROR CONDITIONS ARE        19450000
                                   4404+*                             ACCUMULATED.                              19500000

000007                      00004  4405+         ORG   DCBWTOID+4                                               19510003
000004                             4406+DCBLNNUM DS    X              3886  DOCUMENT LINE NUMBER                19520003
000005                             4407+DCBLFMAT DS    X              3886  LINE FORMAT NUMBER                  19530003
000006                             4408+DCBORFLG DS    X              3886  FLAGS                               19540003
                            00080  4409+DCBEOPFG EQU   DCBBIT0        END OF PAGE                               19540403
000007                             4410+         DS    X              RESERVED                                  19542003
000008                             4411+DCBDSPLY DS    0A -           SAME AS DCBDSPLA BELOW                    19550000
000008                             4412+DCBFRID  DS    0CL4           3886  FORMAT RECORD ID                    19560003
000008                             4413+         DS    X -            RESERVED                                  19600000
000009                             4414+DCBDSPLA DS    AL3 -          ADDRESS OF DSPLY (BSAM) ROUTINE USED FOR  19650000

                                   4415+*                             KEYBOARD ENTRY OF A COMPLETE FIELD        19700000

00000C                             4416+DCBRESCN DS    0A -           SAME AS DCBRESCA BELOW                    19750000
00000C                             4417+DCBRDLNE DS    0A -           SAME AS DCBRDLNA BELOW                    19800000
00000C                             4418+DCBFRTBA DS    0A             3886  FORMAT RECORD TABLE                 19810003
00000C                             4419+         DS    X -            RESERVED                                  19850000

00000D                             4420+DCBRESCA DS    0AL3 -         ADDRESS OF RESCN (BSAM) ROUTINE USED TO   19900000
                                   4421+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    19950000
                                   4422+*                             CHARACTERS                                20000000
00000D                             4423+DCBRDLNA DS    AL3 -          ADDRESS OF RDLNE (QSAM) ROUTINE USED TO   20050000
                                   4424+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    20100000
                                   4425+*                             CHARACTERS                                20150000
000010                             4426+DCBORBYT DS    BL1 -          OPTICAL READER BYTE USED BY BSAM/QSAM     20200000
                            00080  4427+DCBORSYN EQU   DCBBIT0 -      SYNAD IN CONTROL                          20250003
                            00040  4428+DCBOREOF EQU   DCBBIT1 -      END OF FILE (EOF)                         20300003
                            00020  4429+DCBORBFP EQU   DCBBIT2 -      BUFFERS PRIMED (QSAM)                     20350003
000011                             4430+         DS    C -            DCBDEVT - DEVICE TYPE                     20400000

                            0005A  4431+DCBDVOR5 EQU   X'5A' -        1285 OPTICAL READER                       20450000
                            0005B  4432+DCBDVOR7 EQU   X'5B' -        1287 OPTICAL READER                       20500000
                            0005C  4433+DCBDVOR8 EQU   X'5C' -        1288 OPTICAL READER                       20550000
                            00057  4434+DCBDVOR9 EQU   X'57'          3886 OPTICAL READER                       20560003

000012                             4435+DCBEIB   DS    BL1 -          ERROR INDICATOR BYTE                      20600000
                            00040  4436+DCBORNRM EQU   DCBBIT1 -      THE 1287 OR 1288 SCANNER WAS UNABLE TO    20650003
                                   4437+*                             LOCATE THE REFERENCE MARK                 20700000
                            00020  4438+DCBORREJ EQU   DCBBIT2 -      FOR 1287, A STACKER SELECT COMMAND WAS    20750003
                                   4439+*                             GIVEN AFTER ALLOTTED TIME HAD ELAPSED AND 20800000
                                   4440+*                             THE DOCUMENT HAS BEEN PUT IN REJECT       20850000
BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  131


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4441+*                             POCKET.  FOR 1288 UNFORMATTED ONLY,       20900000
                                   4442+*                             END-OF-PAGE HAS OCCURRED.                 20950000
                            00010  4443+DCBORERR EQU   DCBBIT3 -      A NONRECOVERABLE ERROR HAS OCCURRED.      21000003
                            00008  4444+DCBORECK EQU   DCBBIT4 -      AN EQUIPMENT CHECK RESULTED IN AN         21050003

                                   4445+*                             INCOMPLETE READ                           21100000
                            00004  4446+DCBORWLR EQU   DCBBIT5 -      A WRONG-LENGTH RECORD CONDITION HAS       21150003
                                   4447+*                             OCCURRED                                  21200000

                            00002  4448+DCBORHPR EQU   DCBBIT6 -      FOR QSAM - OPERATOR ENTERED ONE OR MORE   21250003
                                   4449+*                             CHARACTERS FROM THE KEYBOARD.             21300000
                                   4450+*                             FOR BSAM - A HOPPER EMPTY CONDITION HAS   21350000
                                   4451+*                             OCCURRED                                  21400000
                            00001  4452+DCBORDCK EQU   DCBBIT7 -      A DATA CHECK HAS OCCURRED                 21450003
000013                             4453+         DS    X -            RESERVED                                  21500000

                                   4455+*                       MAGNETIC CHARACTER READER DEVICES               21650000
                                   4456+*                       1419 MAGNETIC CHARACTER READER                  21700000
                                   4457+*                       1275 OPTICAL READER SORTER                      21750000
                                   4458+*                       3890 MAGNETIC CHARACTER READER                  21760003


000014                      00000  4460+         ORG   IHADCB                                                   21850000

000000                             4461+DCBSSID  DS    CL8 -          BEFORE DCB IS OPENED - NAME OF USER'S     21900000
                                   4462+*                             STACKER SELECT ROUTINE.                   21950000


000008                      00000  4464+         ORG   DCBSSID                                                  22050000
000000                             4465+         DS    A -            AFTER DCB IS OPENED - DCBWTOID            22100000
000004                             4466+DCBSSAD  DS    0A -           ADDRESS OF USER'S STACKER SELECT ROUTINE  22150000
000004                             4467+DCBIMG   DS    0A             3890  ADDR OF USER'S IMAGE PROC RTN       22160003
000004                             4468+         DS    X -            RESERVED                                  22200000
000005                             4469+DCBSSADA DS    AL3 -          ADDRESS OF USER'S STACKER SELECT ROUTINE  22250000
000008                             4470+DCBIMAGE DS    0A -           SAME AS DCBIMAGA BELOW                    22300000
000008                             4471+DCBMRFG  DS    BL1 -          BUFFER INDICATOR                          22350000
                            000C0  4472+DCBMRBCT EQU   DCBBIT0+DCBBIT1 -                                        22400003
                                   4473+*                             TWO-BIT BINARY COUNTER WHICH INDICATES    22410003
                                   4474+*                             INTO WHICH BUFFER STATUS INFORMATION IS   22450000

                                   4475+*                             TO BE POSTED                              22500000
000009                             4476+DCBIMAGA DS    AL3 -          ADDRESS OF PARAMETER LIST USED TO         22550000

                                   4477+*                             COMMUNICATE BETWEEN USER'S PROCESSING     22600000

                                   4478+*                             ROUTINES AND HIS STACKER SELECT ROUTINES  22650000
00000C                             4479+DCBECBLT DS    0A -           SAME AS DCBECBLA BELOW                    22700000
00000C                             4480+DCBHDR   DS    0A             3890  ADDR OF USER'S HEADER DATA AREA     22702003
00000C                             4481+DCBMRIND DS    BL1 -          INDICATOR AND COUNTER BYTE                22750000
                            000E0  4482+DCBMRDCT EQU   DCBBIT0+DCBBIT1+DCBBIT2                                  22800003
                                   4483+*                             THREE-BIT BINARY COUNTER OF NUMBER OF     22810003
                                   4484+*                             DOCUMENTS READ AFTER DISENGAGE            22850000
                            00010  4485+DCBMRSCU EQU   DCBBIT3 -      DCB WAS ALTERED WHEN SYNAD ROUTINE WAS    22900003
                                   4486+*                             ENTERED DUE TO SECONDARY CONTROL UNIT     22950000
                                   4487+*                             (SCU) ERROR                               23000000
                            00008  4488+DCBMRPLO EQU   DCBBIT4 -      POCKET LIGHT HAS BEEN TURNED ON           23050003
                            00004  4489+DCBMRPLS EQU   DCBBIT5 -      POCKET LIGHT 0-6 IS BEING SET ON          23100003

                            00002  4490+DCBMRERP EQU   DCBBIT6 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23150003
                                   4491+*                             PRIMARY CONTROL UNIT (PCU)                23200000
                            00001  4492+DCBMRERS EQU   DCBBIT7 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23250003

                                   4493+*                             SECONDARY CONTROL UNIT (SCU)              23300000
00000D                             4494+DCBECBLA DS    AL3 -          ADDRESS OF ECB LIST PASSED TO WAIT MACRO  23350000
                                   4495+*                             BY CHECK MACRO WHEN NO 1419/1275 IS       23400000
BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  132


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4496+*                             AVAILABLE FOR PROCESSING                  23450000
000010                             4497+DCBMRFLG DS    BL1 -          FLAG BYTE                                 23500000
                            00080  4498+DCBMRSCC EQU   DCBBIT0 -      FIRST OR SECOND SECONDARY CONTROL UNIT    23550003
                                   4499+*                             COMMAND CHAIN IS BEING USED               23600000
                            00040  4500+DCBMRDBG EQU   DCBBIT1 -      DEBUGGING MODE IN USE                     23650003
                            00020  4501+DCBMRDRU EQU   DCBBIT2 -      DISENGAGE REQUESTED BY USER               23700003
                            00010  4502+DCBMRDR  EQU   DCBBIT3 -      DISENGAGE REQUESTED                       23750003

                            0000C  4503+DCBMRPCC EQU   DCBBIT4+DCBBIT5 -                                        23800003
                                   4504+*                             TWO-BIT BINARY COUNTER INDICATING FIRST,  23802003
                                   4505+*                             SECOND OR THIRD PRIMARY CONTROL UNIT      23850000

                                   4506+*                             COMMAND CHAIN IS BEING USED               23900000
                            00002  4507+DCBMRDWT EQU   DCBBIT6 -      WTO MESSAGE MUST BE DELETED               23950003
                            00001  4508+DCBMRUE  EQU   DCBBIT7 -      UNIT EXCEPTION                            24000003
000011                             4509+         DS    C -            DCBDEVT - DEVICE TYPE                     24050000
                            0005D  4510+DCBDVMR  EQU   X'5D' -        1419 MAGNETIC CHARACTER READER            24100000
                            0005F  4511+DCBDVORS EQU   X'5F' -        1275 OPTICAL READER SORTER                24150000
                            00056  4512+DCBDVMRS EQU   X'56'          3890 MAGNETIC CHARACTER READER SORTER     24160003
000012                             4513+DCBAPPIN DS    C -            AN INDICATOR USED BY THE APPENDAGES TO    24200000
                                   4514+*                             PASS INFORMATION ABOUT ONE CHANNEL CHAIN  24250000
                                   4515+*                             TO AN APPENDAGE ASSOCIATED WITH ANOTHER   24300000
                                   4516+*                             CHANNEL CHAIN                             24350000
000013                             4517+         DS    X -            RESERVED                                  24400000


                                   4519+*                       ACCESS METHOD COMMON INTERFACE                  24600000

000014                      00010  4521+         ORG   IHADCB+16                                                24700000

000010                             4522+DCBRELB  DS    0F -           SAME AS DCBREL BELOW                      24750000
000010                             4523+DCBKEYLE DS    FL1 -          KEY LENGTH OF DATA SET                    24800000
000011                             4524+DCBDEVT  DS    0C -           DEVICE TYPE                               24850000
                            0004F  4525+DCBDVTRM EQU   X'4F' -        TERMINAL.  (DD CONTAINS TERM=TS)          24900000
000011                             4526+DCBREL   DS    FL3 -          NUMBER OF RELATIVE TRACKS OR BLOCKS IN    24950000
                                   4527+*                             THIS DATA SET (BDAM)                      25000000

000014                             4528+DCBBUFCB DS    0A -           ADDRESS OF BUFFER POOL CONTROL BLOCK      25050000
000014                             4529+DCBBUFNO DS    FL1 -          NUMBER OF BUFFERS REQUIRED FOR THIS DATA  25100000
                                   4530+*                             SET.  MAY RANGE FROM 0 TO 255.  IF        25150000
                                   4531+*                             UNBLOCKED SPANNED RECORDS ARE USED,       25200000
                                   4532+*                             NUMBER OF SEGMENT WORK AREAS REQUIRED     25250000
                                   4533+*                             FOR THIS DATA SET.                        25300000
000015                             4534+DCBBUFCA DS    AL3 -          ADDRESS OF BUFFER POOL CONTROL BLOCK      25350000
000018                             4535+DCBBUFL  DS    H -            LENGTH OF BUFFER.  MAY RANGE FROM 0 TO    25400000

                                   4536+*                             32,767.                                   25450000
00001A                             4537+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED          25500000

00001A                             4538+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG                    25550000
                            00080  4539+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION      25600003
                            00040  4540+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION     25650003
                            00020  4541+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION                  25700003
                            00010  4542+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP              25750003
                            00008  4543+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE     25800003
                            00004  4544+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE   25850003
                            00002  4545+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION             25900003

                            00001  4546+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS         25950003
                                   4547+*                                  LOCATION DEPENDENT INFORMATION       26000000
00001B                             4548+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG                   26050000
                            00080  4549+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION                26100003
                            00040  4550+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP                      26150003

BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  133


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00020  4551+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE                   26200003

                            00008  4552+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1 26250003
                            00004  4553+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024 26260003
00001C                             4554+DCBIOBAD DS    0A -           ADDRESS OF IOB WHEN CHAINED SCHEDULING IS 26300000
                                   4555+*                             USED OR FOR 1419/1275                     26350000
00001C                             4556+DCBODEB  DS    0A -           ADDRESS OF OLD DEB                        26400000
00001C                             4557+DCBLNP   DS    0FL1 -         3525 PRINTER LINE POSITION COUNTER        26450000
00001C                             4558+DCBQSLM  DS    BL1 -          QSAM LOCATE MODE LOGICAL RECORD INTERFACE 26500000

                                   4559+*                             INDICATOR BYTE FOR UPDAT PROCESSING OF    26550000
                                   4560+*                             SPANNED RECORDS                           26600000
                            00080  4561+DCB1DVDS EQU   DCBBIT0 -      ONLY ONE DEVICE IS ALLOCATED TO THIS      26650003
                                   4562+*                             DATA SET                                  26700000
                            00040  4563+DCBUPDCM EQU   DCBBIT1 -      UPDATE COMPLETE, FREE OLD DEB             26750003

                            00030  4564+DCBUPDBT EQU   DCBBIT2+DCBBIT3 -                                        26800003
                                   4565+*                             UPDATE BITS                               26810003
                            00020  4566+DCBUPDT  EQU   DCBBIT2 -      UPDATE TO TAKE PLACE                      26850003
                            00030  4567+DCBNUPD  EQU   DCBBIT2+DCBBIT3 -                                        26900003

                                   4568+*                             NO UPDATE TO TAKE PLACE                   26910003
                            00010  4569+DCBSVDEB EQU   DCBBIT3 -      OLD DEB ADDRESS MUST BE SAVED             26950003
00001D                             4570+DCBIOBAA DS    0AL3 -         SAME AS DCBIOBAD ABOVE                    27000000
00001D                             4571+DCBODEBA DS    AL3 -          ADDRESS OF OLD DEB                        27050000
000020                      0001C  4572+         ORG   IHADCB+28                                     ICBI DCB-4 27100000
00001C                             4573+DCBSVCXL DS    0A -           SAME AS DCBSVCXA BELOW         ICBI DCB-4 27150000

00001C                             4574+         DS    X -            RESERVED                       ICBI DCB-4 27200000
00001D                             4575+DCBSVCXA DS    AL3 -          POINTER TO EXIT LIST OF JES    ICBI DCB-4 27250000
                                   4576+*                             C.I. INTERFACE CONTROL SVC     ICBI DCB-4 27300000

                                   4578+*                       FOUNDATION EXTENSION                            27400000


000020                             4580+DCBEODAD DS    0A -           SAME AS DCBEODA BELOW                     27500000
000020                             4581+DCBHIARC DS    0BL1 -         HIERARCHY BITS                            27550000
000020                             4582+DCBBFTEK DS    0BL1 -         BUFFERING TECHNIQUE BITS                  27600000
000020                             4583+DCBBFALN DS    BL1 -          BUFFER ALIGNMENT BITS                     27650000

                            00080  4584+DCBH1    EQU   DCBBIT0 -      HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO  27700003
                            00070  4585+DCBBFT   EQU   DCBBIT1+DCBBIT2+DCBBIT3                                  27750003
                                   4586+*                             BUFFERING TECHNIQUE                       27760003
                            00060  4587+DCBBFTA  EQU   DCBBIT1+DCBBIT2 -                                        27800003
                                   4588+*                             QSAM LOCATE MODE PROCESSING OF SPANNED    27810003

                                   4589+*                             RECORDS - OPEN IS TO CONSTRUCT A RECORD   27850000
                                   4590+*                             AREA IF IT AUTOMATICALLY CONSTRUCTS       27900000
                                   4591+*                             BUFFERS                                   27950000
                            00020  4592+DCBBFTR  EQU   DCBBIT2 -      FOR BSAM CREATE BDAM PROCESSING OF        28000003
                                   4593+*                             UNBLOCKED SPANNED RECORDS - SOFTWARE      28050000

                                   4594+*                             TRACK OVERFLOW.  FOR BSAM INPUT           28100000
                                   4595+*                             PROCESSING OF UNBLOCKED SPANNED RECORDS   28150000
                                   4596+*                             WITH KEYS - RECORD OFFSET PROCESSING.     28200000
                            00040  4597+DCBBFTS  EQU   DCBBIT1 -      SIMPLE BUFFERING - BIT 3 IS ZERO          28250003
                            00020  4598+DCBBFTKR EQU   DCBBIT2 -      UNBLOCKED SPANNED RECORDS - SOFTWARE      28300003
                                   4599+*                             TRACK OVERFLOW (BDAM)                     28350000

                            00010  4600+DCBBFTE  EQU   DCBBIT3 -      EXCHANGE BUFFERING - BIT 1 IS ZERO        28400003
                            00008  4601+DCBBFTKD EQU   DCBBIT4 -      DYNAMIC BUFFERING (BTAM)                  28450003
                            00004  4602+DCBH0    EQU   DCBBIT5 -      HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO  28500003
                            00003  4603+DCBBFA   EQU   DCBBIT6+DCBBIT7 -                                        28550003

                                   4604+*                             BUFFER ALIGNMENT                          28560003
                            00002  4605+DCBBFAD  EQU   DCBBIT6 -      DOUBLEWORD BOUNDARY                       28600003
BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  134


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00001  4606+DCBBFAF1 EQU   DCBBIT7 -      FULLWORD NOT A DOUBLEWORD BOUNDARY,       28650003

                                   4607+*                             CODED IN DCB MACRO INSTRUCTION            28700000
                            00003  4608+DCBBFAF2 EQU   DCBBIT6+DCBBIT7 -                                        28750003
                                   4609+*                             FULLWORD NOT A DOUBLEWORD BOUNDARY,       28760003
                                   4610+*                             CODED IN DCB MACRO INSTRUCTION            28800000
000021                             4611+DCBEODA  DS    AL3 -          ADDRESS OF A USER-PROVIDED ROUTINE TO     28850000
                                   4612+*                             HANDLE END-OF-DATA CONDITIONS             28900000
000024                             4613+DCBEXLST DS    0A -           ADDRESS OF USER-PROVIDED LIST OF EXITS    28950000

000024                             4614+DCBRECFM DS    BL1 -          RECORD FORMAT                             29000000
                            000E0  4615+DCBRECLA EQU   DCBBIT0+DCBBIT1+DCBBIT2  -                               29050003
                                   4616+*                             RECORD LENGTH INDICATOR - ASCII           29060003

                            00020  4617+DCBRECD  EQU   DCBBIT2 -      ASCII VARIABLE RECORD LENGTH              29100003
                            000C0  4618+DCBRECL  EQU   DCBBIT0+DCBBIT1 -                                        29150003
                                   4619+*                             RECORD LENGTH INDICATOR                   29160003
                            00080  4620+DCBRECF  EQU   DCBBIT0 -      FIXED RECORD LENGTH                       29200003
                            00040  4621+DCBRECV  EQU   DCBBIT1 -      VARIABLE RECORD LENGTH                    29250003

                            000C0  4622+DCBRECU  EQU   DCBBIT0+DCBBIT1 -                                        29300003
                                   4623+*                             UNDEFINED RECORD LENGTH                   29310003
                            00020  4624+DCBRECTO EQU   DCBBIT2 -      TRACK OVERFLOW                            29350003
                            00010  4625+DCBRECBR EQU   DCBBIT3 -      BLOCKED RECORDS                           29400003
                            00008  4626+DCBRECSB EQU   DCBBIT4 -      FOR FIXED LENGTH RECORD FORMAT - STANDARD 29450003
                                   4627+*                             BLOCKS.  FOR VARIABLE LENGTH RECORD       29500000
                                   4628+*                             FORMAT - SPANNED RECORDS                  29550000
                            00006  4629+DCBRECCC EQU   DCBBIT5+DCBBIT6 -                                        29600003

                                   4630+*                             CONTROL CHARACTER INDICATOR               29610003
                            00004  4631+DCBRECCA EQU   DCBBIT5 -      ASA CONTROL CHARACTER                     29650003

                            00002  4632+DCBRECCM EQU   DCBBIT6 -      MACHINE CONTROL CHARACTER                 29700003
                            00000  4633+DCBRECC  EQU   X'00' -        NO CONTROL CHARACTER                      29750000
                            00001  4634+DCBRECKL EQU   DCBBIT7 -      KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB  29800003
                                   4635+*                             MACRO INSTRUCTION                         29850000
000025                             4636+DCBEXLSA DS    AL3 -          ADDRESS OF USER-PROVIDED LIST OF EXITS    29900000



                                   4639+*                       FOUNDATION BEFORE OPEN                          47150000

000028                      00028  4641+         ORG   IHADCB+40                                                47250000
000028                             4642+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES    47300000
                                   4643+*                             THE DATA SET ASSOCIATED WITH THIS DCB     47350000
000030                             4644+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE                47400000
                            00080  4645+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR   47450003

                                   4646+*                             POINT.  IF ONE, LAST I/O OPERATION WAS    47500000

                                   4647+*                             WRITE.                                    47550000
                            00080  4648+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR     47600003
                                   4649+*                             OUTPUT (BDAM)                             47650000
                            00040  4650+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD   47700003
                                   4651+*                             MODE                                      47750000

                            00020  4652+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE       47800003
                                   4653+*                             ROUTINE FOR CONCATENATION OF DATA SETS    47850000
                                   4654+*                             WITH UNLIKE ATTRIBUTES                    47900000
                            00010  4655+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED   47950003
                            00008  4656+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 48000003
                                   4657+*                             CONCATENATION OF UNLIKE ATTRIBUTES        48050000
                            00004  4658+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ                   48100003
                            00002  4659+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN  48150003
                                   4660+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1 48200000
BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  135



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   4661+*                             ON RETURN FROM USER EXIT TO THE I/O       48250000
                                   4662+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.     48300000
                            00001  4663+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF    48350003
                                   4664+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION   48400000

000031                             4665+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR  48450000
                                   4666+*                             CONDITIONS AND IN DETERMINING CORRECTIVE  48500000
                                   4667+*                             PROCEDURES                                48550000
                            000C0  4668+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -                                        48600003
                                   4669+*                             ERROR CORRECTION INDICATOR                48610003
                            00000  4670+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE                    48650000
                            00040  4671+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN       48700003
                                   4672+*                             PROCESS                                   48750000
                            000C0  4673+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -                                        48800003
                                   4674+*                             PERMANENT ERROR CORRECTION                48810003
                            00030  4675+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -                                        48850003

                                   4676+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     48860003
                            00020  4677+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH     48900003
                                   4678+*                             SENSED                                    48950000
                            00010  4679+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH    49000003

                                   4680+*                             SENSED                                    49050000
                            0000C  4681+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -                                        49100003
                                   4682+*                             IOS ERROR ROUTINE USE INDICATOR           49110003
                            00000  4683+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE   49150000
                            00004  4684+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49200003
                            00004  4685+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE  49250003
                                   4686+*                             (BTAM)                                    49300000
                            00008  4687+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49350003
                            0000C  4688+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -                                        49400003
                                   4689+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE    49410003
000032                             4690+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE               49450000
000032                             4691+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR                     49500000

                            00080  4692+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---        49550003
                                   4693+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,     49600000
                                   4694+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)    49650000

                            00040  4695+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)    49700003
                            00040  4696+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)                   49750003
                            00040  4697+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---          49800003
                                   4698+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 49850000
                                   4699+*                             RESERVED (BTAM)                           49900000
                            00020  4700+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)            49950003
                            00020  4701+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)      50000003
                            00020  4702+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---           50050003
                                   4703+*                             ALWAYS ZERO (QSAM, QISAM)                 50100000
                            00010  4704+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)                   50150003
                            00010  4705+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)            50200003
                            00010  4706+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---          50250003

                                   4707+*                             ALWAYS ZERO (BISAM) ---                   50300000

                                   4708+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)         50350000
                            00008  4709+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)          50400003

                            00008  4710+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---          50450003
                                   4711+*                             ALWAYS ZERO (BISAM) ---                   50500000
                                   4712+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   50550000
                            00004  4713+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK   50600003
                                   4714+*                             COUNT (EXCP)                              50650000
                            00004  4715+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   50700003
BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  136


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00004  4716+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)             50750003
                            00004  4717+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---       50800003
                                   4718+*                             ALWAYS ZERO (QISAM) ---                   50850000
                                   4719+*                             RESERVED (QTAM, BTAM)                     50900000

                            00002  4720+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)    50950003
                            00002  4721+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        51000003
                            00002  4722+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)                             51050003

                            00002  4723+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---                 51100003
                                   4724+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)        51150000
                            00001  4725+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)                   51200003
                            00001  4726+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,    51250003
                                   4727+*                             BPAM, BISAM, QISAM, QTAM, BTAM)           51300000
000033                             4728+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR                    51350000
                            00080  4729+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM, 51400003
                                   4730+*                             BPAM, BISAM, BDAM) ---                    51450000
                                   4731+*                             RESERVED (EXCP, QTAM, BTAM)               51500000
                            00040  4732+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)    51550003
                            00040  4733+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---          51600003
                                   4734+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 51650000

                                   4735+*                             RESERVED (EXCP, BTAM)                     51700000
                            00020  4736+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)     51750003

                            00020  4737+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---            51800003

                                   4738+*                             ALWAYS ZERO (QSAM, QISAM) ---             51850000
                                   4739+*                             RESERVED (EXCP)                           51900000
                            00010  4740+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)            51950003
                            00010  4741+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---         52000003
                                   4742+*                             ALWAYS ZERO (BISAM) ---                   52050000
                                   4743+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   52100000
                            00008  4744+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)         52150003
                            00008  4745+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)     52200003
                                   4746+*                             (BSAM)                                    52250000
                            00008  4747+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)          52300003
                            00008  4748+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---         52350003
                                   4749+*                             ALWAYS ZERO (BISAM) ---                   52400000

                                   4750+*                             RESERVED (BPAM, QTAM, BTAM)               52450000
                            00004  4751+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)         52500003
                            00004  4752+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   52550003

                            00004  4753+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)                    52600003
                            00004  4754+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---        52650003
                                   4755+*                             ALWAYS ZERO (BISAM) ---                   52700000
                                   4756+*                             RESERVED (BDAM, QTAM, BTAM)               52750000
                            00002  4757+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)        52800003
                            00002  4758+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        52850003
                            00002  4759+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)                       52900003
                            00002  4760+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---              52950003
                                   4761+*                             ALWAYS ZERO (BISAM) ---                   53000000
                                   4762+*                             RESERVED (BPAM, QTAM, BTAM)               53050000
                            00001  4763+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)          53100003
                            00001  4764+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT     53150003

                                   4765+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)   53200000
                            00001  4766+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)                          53250003
                            00001  4767+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---                    53300003
                                   4768+*                             ALWAYS ZERO (BISAM) ---                   53350000

                                   4769+*                             RESERVED (BPAM, QTAM, BTAM)               53400000

BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  137


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4771+*                       FOUNDATION AFTER OPEN                           53500000


000034                      00028  4773+         ORG   IHADCB+40                                                53600000
000028                             4774+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD 53650000
                                   4775+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED 53700000
                                   4776+*                             WITH THIS DCB                             53750000
00002A                             4777+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN               53800000
00002A                             4778+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF                    53850000
00002B                             4779+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF                   53900000
00002C                             4780+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB                 53950000

00002C                             4781+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN               54000000
                            000C0  4782+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -                                        54050003

                                   4783+*                             ERROR CORRECTION INDICATOR                54060003
                            00030  4784+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -                                        54100003
                                   4785+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     54110003
                            0000C  4786+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -                                        54150003
                                   4787+*                             IOS ERROR ROUTINE USE INDICATOR           54160003
00002D                             4788+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB                 54200000

000030                      00030  4790+         ORG   IHADCB+48                                                54350000

000030                             4791+DCBREAD  DS    0A -           ADDRESS OF READ MODULE                    54400000
000030                             4792+DCBWRITE DS    A -            ADDRESS OF WRITE MODULE                   54450000

000034                      00030  4794+         ORG   IHADCB+48                                                54600000
000030                             4795+DCBGET   DS    0A -           ADDRESS OF GET MODULE                     54650000

000030                             4796+DCBPUT   DS    A -            ADDRESS OF PUT MODULE                     54700000

                                   4798+*                       QSAM-BSAM-BPAM COMMON INTERFACE                 77750000


000034                      00034  4800+         ORG   IHADCB+52                                                77850000
000034                             4801+DCBGERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  77950000
000034                             4802+DCBPERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  78000000
000034                             4803+DCBCHECK DS    0A -           ADDRESS OF CHECK MODULE                   78050000
000034                             4804+DCBOPTCD DS    BL1 -          OPTION CODES                              78150000
                            00080  4805+DCBOPTW  EQU   DCBBIT0 -      WRITE VALIDITY CHECK (DASD)               78500003

                                   4806+*                             (BSAM, BPAM, QSAM, ISAM, BDAM)            78550000
                            00040  4807+DCBOPTU  EQU   DCBBIT1 -      ALLOW DATA CHECK CAUSED BY INVALID        78600003
                                   4808+*                             CHARACTER (1403 PRINTER WITH UCS FEATURE) 78650000
                                   4809+*                             (BSAM, BPAM, QSAM)                        78700000
                            00020  4810+DCBOPTC  EQU   DCBBIT2 -      CHAINED SCHEDULING USING PCI              78750003

                                   4811+*                             (BSAM, BPAM, QSAM)                        78800000
                            00010  4812+DCBOPTH  EQU   DCBBIT3 -      1287/1288 OPTICAL READER - HOPPER EMPTY   78850003
                                   4813+*                             EXIT (BSAM, BPAM)                         78900000
                            00010  4814+DCBOPTO  EQU   DCBBIT3 -      1285/1287 OPTICAL READER - ON-LINE        78950003

                                   4815+*                             CORRECTION (QSAM)                         79000000
                            00010  4816+DCBBCKPT EQU   DCBBIT3 -      CHANNEL-END APPENDAGE IS TO BYPASS DOS    79050003
                                   4817+*                             EMBEDDED CHECKPOINT RECORDS ON TAPE       79100000
                                   4818+*                             (BSAM, QSAM)                       ICB226 79150000
                            00008  4819+DCBOPTQ  EQU   DCBBIT4 -      TRANSLATION TO OR FROM ASCII              79200003
                                   4820+*                             (BSAM, BPAM, QSAM)                        79250000

                            00004  4821+DCBOPTZ  EQU   DCBBIT5 -      MAGNETIC TAPE DEVICES - USE REDUCED ERROR 79300003
                                   4822+*                             RECOVERY PROCEDURE (EXCP, BSAM, BPAM,     79350000
                                   4823+*                             QSAM)                                     79400000
                            00004  4824+DCBSRCHD EQU   DCBBIT5 -      USE SEARCH DIRECT, INSTEAD OF SEARCH      79450003
                                   4825+*                             PREVIOUS, ON RECORD POSITION SENSING      79500000

BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  138


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4826+*                             DEVICE  (EXCP, BSAM, BPAM, QSAM)   ICB217 79550000
                            00002  4827+DCBOPTT  EQU   DCBBIT6 -      USER TOTALING (BSAM, QSAM)                79600003
000035                             4828+DCBGERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  79700000

000035                             4829+DCBPERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  79750000
000035                             4830+DCBCHCKA DS    AL3 -          ADDRESS OF CHECK MODULE                   79800000
000038                             4831+DCBSYNAD DS    0A -           ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80050000
000038                             4832+DCBIOBL  DS    FL1 -          IOB LENGTH IN DOUBLE WORDS                80100000
000039                             4833+DCBSYNA  DS    AL3 -          ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80150000

00003C                             4834+DCBFLAG1 DS    0BL1           TCAM APPLICATION PROGRAM FLAGS ICBI DCB-3 80460000
                                   4835+*                             (BSAM, BPAM, QSAM)                        80470000
00003C                             4836+DCBCIND1 DS    BL1 -          CONDITION INDICATORS                      80500000
                            00080  4837+DCBCNTOV EQU   DCBBIT0 -      DIRECT ACCESS - TRACK OVERFLOW IN USE     80550003
                                   4838+*                             (BSAM, BPAM, QSAM)                        80600000

                                   4839+*                             2540 CARD PUNCH - DATA SET WAS OPENED BUT 80650000
                                   4840+*                             NO DATA WAS WRITTEN (QSAM)                80700000
                            00080  4841+DCBSTQCK EQU   DCBBIT0 -      STOP EQUAL QUICK WAS SPECIFIED FOR        80710003
                                   4842+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80720000
                            00040  4843+DCBSTFLS EQU   DCBBIT1 -      STOP EQUAL FLUSH WAS SPECIFIED FOR        80730003
                                   4844+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80740000

                            00040  4845+DCBCNSRD EQU   DCBBIT1 -      SEARCH DIRECT (BSAM, BPAM, QSAM)          80750003
                            00020  4846+DCBCNEVB EQU   DCBBIT2 -      END OF VOLUME - USED BY EOB ROUTINES      80800003
                                   4847+*                             (BSAM, BPAM, QSAM)                        80850000
                            00010  4848+DCBCNEVA EQU   DCBBIT3 -      END OF VOLUME - USED BY CHANNEL-END       80900003

                                   4849+*                             APPENDAGE ROUTINES (BSAM, BPAM, QSAM)     80950000
                            00004  4850+DCBCNBRM EQU   DCBBIT5 -      BLOCKED RECORD BIT MODIFIED (BSAM,BPAM,   81000003
                                   4851+*                             QSAM)                          ICBI DCB-2 81050000
                            00001  4852+DCBCNEXB EQU   DCBBIT7 -      EXCHANGE BUFFERING SUPPORTED (QSAM)       81100003
00003D                             4853+DCBCIND2 DS    BL1 -          CONDITION INDICATORS                      81150000

                            00080  4854+DCBCNSTO EQU   DCBBIT0 -      PARTITIONED DATA SET - STOW HAS BEEN      81200003
                                   4855+*                             PERFORMED (BSAM, BPAM, QSAM)              81250000
                                   4856+*                             SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM) 81300000
                            00040  4857+DCBCNWR0 EQU   DCBBIT1 -      DIRECT ORGANIZATION DATA SET - LAST I/O   81350003
                                   4858+*                             WAS A WRITE RECORD ZERO                   81400000
                                   4859+*                             (BSAM, BPAM, QSAM)                        81450000
                                   4860+*                             SEQUENTIAL DATA SET - UPDATE EOF IS       81500000

                                   4861+*                             INDICATED (BSAM, BPAM)                    81550000
                            00020  4862+DCBCNCLO EQU   DCBBIT2 -      CLOSE IN PROCESS (QSAM)                   81600003
                            00010  4863+DCBCNIOE EQU   DCBBIT3 -      PERMANENT I/O ERROR (BSAM, BPAM, QSAM)    81650003

                            00008  4864+DCBCNBFP EQU   DCBBIT4 -      OPEN ACQUIRED BUFFER POOL                 81700003
                                   4865+*                             (BSAM, BPAM, QSAM)                        81750000
                            00004  4866+DCBCNCHS EQU   DCBBIT5 -      CHAINED SCHEDULING BEING SUPPORTED        81800003
                                   4867+*                             (BSAM, BPAM, QSAM)                        81850000
                            00002  4868+DCBCNFEO EQU   DCBBIT6 -      FEOV BIT (BSAM, BPAM, QSAM)               81900003

                            00001  4869+DCBCNQSM EQU   DCBBIT7 -      ALWAYS ZERO (BSAM, BPAM)                  81950003
                                   4870+*                             THIS IS A QSAM DCB (QSAM)                 82000000
00003E                             4871+DCBBLKSI DS    H -            MAXIMUM BLOCK SIZE                        82100000
000040                             4872+DCBWCPO  DS    AL1 -          OFFSET OF WRITE CHANNEL PROGRAM FROM THE  82350000
                                   4873+*                             START OF IOB                              82400000
000041                             4874+DCBWCPL  DS    FL1 -          LENGTH OF WRITE CHANNEL PROGRAM           82450000
000042                             4875+DCBOFFSR DS    AL1 -          OFFSET OF READ CCW FROM BSAM/BPAM PREFIX  82500000
                                   4876+*                             OF IOB                                    82550000

000043                             4877+DCBOFFSW DS    AL1 -          OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX 82600000
                                   4878+*                             OF IOB                                    82650000

000044                             4879+DCBIOBA  DS    A -            FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR 82700000
                                   4880+*                             BSAM/BPAM PREFIX OF IOB.  FOR CHAINED     82750000
BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  139


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4881+*                             SCHEDULING, ADDRESS OF ICB.  FOR          82800000

                                   4882+*                             1419/1275, ADDRESS OF MAGNETIC INTERRUPT  82850000
                                   4883+*                             CONTROL BLOCK (MICB) CURRENTLY BEING      82900000
                                   4884+*                             PROCESSED BY READ ROUTINE.  FOR TSO       82950000
                                   4885+*                             TERMINAL DATA SET OPENED FOR INPUT AND    83000000
                                   4886+*                             FORMAT U, SIMULATED LOW-ORDER FOUR BYTES  83050000
                                   4887+*                             OF IOBCSW                                 83100000

000048                      00044  4889+         ORG   IHADCB+68                                         ICB354 83160000
000044                             4890+DCBCICB  DS    0A -           SAME AS DCBCICBA BELOW             ICB354 83200000

000044                             4891+         DS    X -            DCBNCP  (BSAM,BPAM)                ICB354 83250000

000045                             4892+DCBCICBA DS    AL3 -          POINTER TO JES C.I.                ICB354 83300000
                                   4893+*                             CONTROL BLOCK (CICB)               ICB354 83350000

000048                      00050  4895+         ORG   IHADCB+80                                     ICBI DCB-4 83450000
000050                             4896+DCBDIRCT DS    0H -           NUMBER OF BYTES USED IN LAST DIRECTORY    83500000

                                   4897+*                             BLOCK (RANGE 0-254)  (BSAM, BPAM)  ICB295 83550000
000050                             4898+DCBQSWS  DS    0BL1 -         FLAG BYTE                          ICB295 83600000
                            00004  4899+DCBPOPEN EQU   DCBBIT5 -      QSAM PARALLEL INPUT PROCESSING            83610003
000050                             4900+DCBUSASI DS    B -            FLAG BYTE FOR ASCII TAPES                 83650000
                            00040  4901+DCBBLBP  EQU   DCBBIT1 -      BLOCK PREFIX IS FOUR BYTE FIELD           83700003
                                   4902+*                             CONTAINING BLOCK LENGTH IN UNPACKED       83750000
                                   4903+*                             DECIMAL (SPECIFIED BY BUFFER=L).          83800000
                            00038  4904+DCBQADFS EQU   DCBBIT2+DCBBIT3+DCBBIT4                                  83850003
                                   4905+*                             USED TO PERFORM SEQUENCE CHECKING WITH    83860003
                                   4906+*                             MULTIPLE FUNCTION SUPPORT FOR 3525        83900000

                                   4907+*                             (BSAM, QSAM)                              83950000

                            00020  4908+DCBQADF1 EQU   DCBBIT2 -      FIRST BIT OF DCBQADFS                     84000003
                            00010  4909+DCBQADF2 EQU   DCBBIT3 -      SECOND BIT OF DCBQADFS                    84050003
                            00008  4910+DCBQADF3 EQU   DCBBIT4 -      THIRD BIT OF DCBQADFS                     84100003
                            00001  4911+DCBQSTRU EQU   DCBBIT7 -      TRUNC ENTRY POINT ENTERED (QSAM)          84150003

000051                             4912+DCBBUFOF DS    0FL1 -         BLOCK PREFIX LENGTH (0-99), SPECIFIED BY  84200000
                                   4913+*                             BUFOFF=N OR BUFOFF=L                      84250000
000051                             4914+DCBDIRCQ DS    FL1 -          NUMBER OF BYTES USED IN LAST DIRECTORY    84300000
                                   4915+*                             BLOCK (RANGE 0-254)  (QSAM)        ICB295 84350000

                                   4917+*                       BSAM-BPAM INTERFACE                             84500000

000052                      00048  4919+         ORG   IHADCB+72                                                84600000
000048                             4920+DCBEOBR  DS    0A -           ADDRESS OF END-OF-BLOCK MODULE FOR READ   84650000
000048                             4921+DCBNCP   DS    FL1 -          NUMBER OF CHANNEL PROGRAMS.               84750000
                                   4922+*                             NUMBER OF READ OR WRITE REQUESTS WHICH    85000000

                                   4923+*                             MAY BE ISSUED PRIOR TO A CHECK, NUMBER    85050000
                                   4924+*                             OF IOB'S GENERATED.  (99 MAXIMUM)         85100000
000049                             4925+DCBEOBRA DS    AL3 -          ADDRESS OF END-OF-BLOCK MODULE FOR READ   85150000
00004C                             4926+DCBEOBW  DS    A -            ADDRESS OF END-OF-BLOCK MODULE FOR WRITE. 85200000

                                   4927+*                             FOR BSAM CREATE BDAM PROCESSING OF        85250000
                                   4928+*                             UNBLOCKED SPANNED RECORDS WITH BKTEK=R    85300000
                                   4929+*                             SPECIFIED, ADDRESS OF SEGMENT WORK AREA   85350000
                                   4930+*                             CONTROL BLOCK                             85400000
000050                             4931+         DS    H -            DCBDIRCT - NUMBER OF BYTES USED IN LAST   85450000
                                   4932+*                             DIRECTORY BLOCK  (RANGE 0-254)     ICB295 85500000
000052                             4933+DCBLRECL DS    H -            LOGICAL RECORD LENGTH                     85600000
000054                             4934+DCBCNTRL DS    0A -           ADDRESS OF CNTRL MODULE                   85850000
000054                             4935+DCBNOTE  DS    0A -           ADDRESS OF NOTE/POINT MODULE              85900000
BR1      OS DATA CONTROL BLOCK DSECT                                                                           PAGE  140


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000054                             4936+DCBPOINT DS    A -            ADDRESS OF NOTE/POINT MODULE              85950000


                                   4938+*                       QSAM INTERFACE                                  86100000


000058                      00048  4940+         ORG   IHADCB+72                                                86650021
000048                             4941+DCBLCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF LAST   86700000
                                   4942+*                             CCW IN LIST                               86750000
000048                             4943+DCBEOBAD DS    A -            FOR SIMPLE BUFFERING, ADDRESS OF LAST     86800000
                                   4944+*                             BYTE OF CURRENT BUFFER                    86850000
00004C                             4945+DCBCCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF        86900000
                                   4946+*                             CURRENT OR NEXT CCW                       86950000
00004C                             4947+DCBRECAD DS    0A -           ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87000000
00004C                             4948+DCBRECBT DS    BL1 -          FLAG BYTE                                 87050000
                            000F0  4949+DCBRCREL EQU   DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3  -                       87100003
                                   4950+*                             RELSE MACRO HAS BEEN ISSUED               87110003
                                   4951+*                             (QSAM WITH SIMPLE BUFFERING)              87150000

                            00080  4952+DCBRCTRU EQU   DCBBIT0 -      TRUNC MACRO HAS BEEN ISSUED (QSAM LOCATE  87200003
                                   4953+*                             MODE)                                     87250000
                            00040  4954+DCBRCFGT EQU   DCBBIT1 -      FIRST GET AFTER OPEN (QSAM LOCATE MODE)   87300003

00004D                             4955+DCBRECA  DS    AL3 -          ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87350000
000050                             4956+         DS    B -            DCBQSWS - FLAG BYTE                ICB295 87400000
000051                             4957+         DS    FL1 -          DCBDIRCQ - NUMBER OF BYTES USED IN LAST   87450000
                                   4958+*                             DIRECTORY BLOCK (RANGE 0-254)      ICB295 87500000
000052                             4959+         DS    H -            DCBLRECL - LOGICAL RECORD LENGTH          87750021
000054                             4960+         DS    0A -           DCBCNTRL - ADDRESS OF CNTRL MODULE        88000021
000054                             4961+DCBEROPT DS    BL1 -          ERROR OPTION                              88100000
                            00080  4962+DCBERACC EQU   DCBBIT0 -         ACCEPT PERMANENT ERROR                 88150003
                            00040  4963+DCBERSKP EQU   DCBBIT1 -         SKIP PERMANENT ERROR                   88200003
                            00020  4964+DCBERABE EQU   DCBBIT2 -         ABNORMAL END OF TASK                   88250003
000055                             4965+         DS    AL3 -          DCBCNTRA - ADDRESS OF CNTRL MODULE        88500021
000058                             4966+         DS    XL2 -          RESERVED                                  88600021

00005A                             4967+DCBPRECL DS    H -            BLOCK LENGTH, MAXIMUM BLOCK LENGTH OR     88650000

                                   4968+*                             DATA LENGTH                               88700000
00005C                             4969+DCBEOB   DS    A -            ADDRESS OF END OF BLOCK MODULE            88750000




                            00000  4972+DCBDSECT EQU   IHADCB   DEFINE ALTERNATE DSECT NAME                     DB012000

000002                             4974+HASPBR1  CSECT          END OF DATA CONTROL BLOCK DSECT                 DB016000
BR1      OS DATA EXTENT BLOCK DSECT                                                                            PAGE  141


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             4977+DEBDSECT DSECT                     DATA EXTENT BLOCK DSECT              DE010000
000000                             4978+DEBTCBAD DS    F                   ADDRESS OF TCB                       DE012000
000004                             4979+DEBDEBAD DS    F                   ADDRESS OF NEXT DEB                  DE014000

000008                             4980+DEBIRBAD DS    F                   ADDRESS OF IRB                       DE016000
00000C                             4981+         DS    F                   RESERVED                             DE018000

000010                             4982+DEBNMEXT DS    0C                  NUMBER OF EXTENTS                    DE019000

000010                             4983+DEBUSRPG DS    F                   ADDR OF 1ST IOB IN USER PURGE CHAIN  DE020000
000014                             4984+DEBPRIOR DS    0C                  PRIORITY OF THE TASK                 DE022000
000014                             4985+DEBECBAD DS    F                   ADDRESS OF PURGE ECB PARAMETER LIST  DE024000
000018                             4986+DEBPROTG DS    0C                  PROTECTION KEY OF TASK               DE026000
000018                             4987+DEBDEBID DS    0C                  DEB IDENTIFICATION (X'0F')           DE028000
000018                             4988+DEBDCBAD DS    F                   ADDRESS OF DCB                       DE030000
00001C                             4989+DEBEXSCL DS    0C                  EXTENT SCALE                         DE031000
00001C                             4990+DEBAPPAD DS    F                   ADDR OF I/O APPENDAGE VECTOR TABLE   DE032000
000020                             4991+DEBDVMOD DS    0C                  DEVICE MODIFIER / FILE MASK          DE034000
000020                             4992+DEBUCBAD DS    F                   ADDRESS OF UCB                       DE036000
000024                             4993+DEBEXTNT DS    0CL12               DATA SET EXTENT                      DE038000
000024                             4994+DEBBINUM DS    H                   BIN NUMBER                           DE040000

000026                             4995+DEBSTRCC DS    H                   CYLINDER START ADDRESS               DE042000
000028                             4996+DEBSTRHH DS    H                   READ OR WRITE TRACK START ADDRESS    DE044000
00002A                             4997+DEBENDCC DS    H                   CYLINDER END ADDRESS                 DE046000

00002C                             4998+DEBENDHH DS    H                   READ OR WRITE TRACK END ADDRESS      DE048000
00002E                             4999+DEBNUMTR DS    H                   NUMBER OF TRACKS IN THIS EXTENT      DE050000
000002                             5000+HASPBR1  CSECT                     END OF DATA EXTENT BLOCK DSECT       DE052000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  142


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             5002+UCBDSECT DSECT                     UNIT CONTROL BLOCK DSECT             UC008000


                                   5004+*%UCBL1 : ;                                                             IE005000
                                   5005+*/* **************************************************************** */ IE006000
                                   5006+*/*                                                                  */ IE007000
                                   5007+*/*            U N I T   C O N T R O L   B L O C K                   */ IE008000
                                   5008+*/*                                                                  */ IE009000

                                   5009+*/* **************************************************************** */ IE010000
                                   5010+*/*                                                                  */ IE011000
                                   5011+*/*  STATUS                                                          */ IE012000
                                   5012+*/*                                                                  */ IE013000

                                   5013+*/*      OS/VS2 RELEASE 1, OS/VS1 RELEASE 2, 08/14/72, LEVEL=14      */ IE014000
                                   5014+*/*                                                                  */ IE015000
                                   5015+*/*  METHOD OF ACCESS                                                */ IE016000
                                   5016+*/*                                                                  */ IE017000
                                   5017+*/*      PL/S - DCL (UCBPTR,UCBDCPTR) PTR                            */ IE018000
                                   5018+*/*      BAL  - DSECT CARD SHOULD PRECEDE MACRO CALL.  SYMBOLS IN    */ IE019000

                                   5019+*/*             COMMON SECTION AND DEVICE DEPENDENT SECTIONS ARE     */ IE020000
                                   5020+*/*             ADDRESSABLE BY A USING ON UCBOB.  ADDITIONAL USINGS  */ IE021000
                                   5021+*/*             ARE NECESSARY TO OBTAIN ADDRESSABILITY FOR EACH      */ IE022000
                                   5022+*/*             EXTENSION OR PREFIX.  THESE ARE AS FOLLOWS -         */ IE023000
                                   5023+*/*                                                                  */ IE024000
                                   5024+*/*             DIRECT ACCESS EXTENSION           UCBDA              */ IE025000
                                   5025+*/*             DIRECT ACCESS EXTENSION 2         UCBDA2             */ IE026000
                                   5026+*/*             PREFIX TO MAGNETIC TAPE EXTENSION UCBMTPRF           */ IE027000

                                   5027+*/*             MAGNETIC TAPE EXTENSION           UCBMT              */ IE028000
                                   5028+*/*             TAPE CARTRIDGE READER EXTENSION   UCBTCR             */ IE029000

                                   5029+*/*             OPTICAL READER EXTENSION          UCBOR              */ IE030000
                                   5030+*/*             UNIT RECORD WITH UCS EXTENSION    UCBUCS             */ IE031000
                                   5031+*/*             3211 SENSE INFORMATION EXTENSION  UCBSNINF           */ IE032000
                                   5032+*/*             M65 MULTIPROCESSING PREFIX        UCBM65MP           */ IE033000
                                   5033+*/*                                                                  */ IE034000
                                   5034+*/*             WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH  */ IE035000
                                   5035+*/*             DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER   */ IE036000
                                   5036+*/*             IN THE DEFN COLUMN IN THE CORSS REFERENCE LISTING.   */ IE037000

                                   5037+*/*             FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE          */ IE038000
                                   5038+*/*             STATEMENT NUMBERS FOR UCBDA AND UCBDA2 IS IN THE     */ IE039000
                                   5039+*/*             UCBDA DSECT.                                         */ IE040000
                                   5040+*/*                                                                  */ IE041000
                                   5041+*/*  F.E.'S                                                          */ IE042000

                                   5042+*/*                                                                  */ IE043000
                                   5043+*/*      MICROFICHE LISTING - IEFUCBOB                               */ IE044000
                                   5044+*/*                                                                  */ IE045000

                                   5045+*/*  DEVELOPERS                                                      */ IE046000
                                   5046+*/*                                                                  */ IE047000
                                   5047+*/*      BAL LISTING  - SPECIFY LIST=YES ON MACRO CALL               */ IE048000
                                   5048+*/*      PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE        */ IE049000
                                   5049+*/*                                                                  */ IE050000
                                   5050+*/*      FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS     */ IE051000
                                   5051+*/*      YOUR MODULE CREATES THE CSECT.                              */ IE052000

                                   5052+*/*                                                                  */ IE053000
                                   5053+*/*  FUNCTION                                                        */ IE054000
                                   5054+*/*                                                                  */ IE055000
                                   5055+*/*      A UNIT CONTROL BLOCK                                        */ IE056000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  143



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5056+*/*      INCORPORATING A SYSTEM RESOURCE TABLE                       */ IE057000
                                   5057+*/*      RECORDS THE STATUS OF                                       */ IE058000
                                   5058+*/*        A PHYSICAL INPUT OUTPUT DEVICE ADDRESS                    */ IE059000

                                   5059+*/*      IS CREATED AND INITIALIZED DURING SYSTEM GENERATION         */ IE060000
                                   5060+*/*      RESIDES IN THE NUCLEUS BELOW 32 K                           */ IE061000
                                   5061+*/*      POINTS TO A DEVICE TYPE DEPENDENT EXTENSION                 */ IE062000
                                   5062+*/*        RESIDING HIGHER IN THE NUCLEUS                            */ IE063000
                                   5063+*/*      IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY            */ IE064000
                                   5064+*/*        A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS     */ IE065000

                                   5065+*/*      MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES               */ IE066000
                                   5066+*/*        AND DATA EXTENT BLOCKS                                    */ IE067000
                                   5067+*/*      CONTAINS INDICES INTO TABLES FOR                            */ IE068000
                                   5068+*/*        DEVICE STATISTICS ATTENTION LOGICAL CHANNEL               */ IE069000
                                   5069+*/*      MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS    */ IE070000

                                   5070+*/*                                                                  */ IE071000
                                   5071+*/*  OUTPUT                                                          */ IE072000
                                   5072+*/*                                                                  */ IE073000
                                   5073+*/*      SYSGEN INDEPENDENT COMMON SECTION                           */ IE074000
                                   5074+*/*        INCLUDING UCBTYP WORD                                     */ IE075000

                                   5075+*/*      DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)             */ IE076000
                                   5076+*/*        DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE         */ IE077000
                                   5077+*/*        DATACELL (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)*/ IE078000
                                   5078+*/*        UNIT RECORD WITH UNIVERSAL CHARACTER SET                  */ IE079000
                                   5079+*/*        GRAPHICS                                                  */ IE080000

                                   5080+*/*        TAPE CARTRIDGE READER AND OPTICAL READER                  */ IE081000
                                   5081+*/*      CELL DESCRIPTION FOR ONE OF THE TEN CELLS                   */ IE082000
                                   5082+*/*        IN THE DATACELL DEVICE SEGMENT ABOVE                      */ IE083000
                                   5083+*/*      UCB EXTENSION (ONE OF THE FOLLOWING)                        */ IE084000
                                   5084+*/*        DIRECT ACCESS                                             */ IE085000

                                   5085+*/*        DIRECT ACCESS 2                                           */ IE086000
                                   5086+*/*        MAGNETIC TAPE AND ITS PREFIX                              */ IE087000
                                   5087+*/*        TAPE CARTRIDGE READER                                     */ IE088000
                                   5088+*/*        OPTICAL READER                                            */ IE089000
                                   5089+*/*        UNIVERSAL CHARACTER SET                                   */ IE090000
                                   5090+*/*        3211 SENSE INFORMATION                                    */ IE091000

                                   5091+*/*      M65 MULTIPROCESSING PREFIX                                  */ IE092000
                                   5092+*/*        (CONTIGUOUSLY PRECEDING COMMON SECTION)                   */ IE093000
                                   5093+*/*                                                                  */ IE094000
                                   5094+*/* **************************************************************** */ IE095000

                                   5095+*%GOTO UCBL2;   /*                                                      IE096000
                                   5096+         PUSH  PRINT                                                    IE097000
                                   5097+*                                                                       IE101000
                                   5098+*       SYSGEN-INDEPENDENT                                              IE102000
                                   5099+*       COMMON SECTION                                                  IE103000

                                   5100+*                                                                       IE104000
000000                             5101+         DS    0D -                    UNIT CONTROL BLOCK PROPER        IE105000
                                   5102+*                                                                       IE106000
                            00000  5103+UCBOB    EQU   * -                     UCBPTR -> UCBOB                  IE107000
                                   5104+*                                                                       IE108000
                                   5105+*********************************************************************** IE109000
                                   5106+*                                                                       IE110000

000000                             5107+UCBJBNR  DS    B -                     INTERNAL JOB ID                  IE111000
                            000FC  5108+UCBJBNRF EQU   X'FC' -                 IDENTIFIER OF INITIATOR          IE112000
                                   5109+*                                      REQUESTING RETAIN OR PASSED      IE113000

                                   5110+*                                      DATA SET USAGE (AOS/2)   ICB347  IE114000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  144


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            000F0  5111+UCBKEY   EQU   X'F0' -                 JOB PROTECTION KEY (AOS/1)       IE115000
                                   5112+*                                        (SET FOR RETAIN OR PASS)       IE116000

                            00008  5113+UCBRSV01 EQU   X'08',,C'X' -           RESERVED                         IE117000
                            00004  5114+UCBRSV02 EQU   X'04',,C'X' -           RESERVED                         IE118000
                            00002  5115+UCBDEM   EQU   X'02' -                 DEMOUNT AND RETAIN OR PASS       IE119000
                                   5116+*                                        (SET DURING DEVICE ALLOC)      IE120000
                            00001  5117+UCBMONT  EQU   X'01' -                 MOUNT AND RETAIN OR PASS         IE121000
                                   5118+*                                        (SET DURING DEVICE ALLOC)      IE122000
000001                             5119+UCBFL5   DS    B -                     FLAGS                            IE123000
                            00080  5120+UCBRSV03 EQU   X'80',,C'X' -           RESERVED                         IE124000

                            00040  5121+UCBAF    EQU   X'40' -                 ATTENTION FOR THIS CONSOLE       IE125000
                                   5122+*                                      DEVICE TO BE PROCESSED BY        IE126000

                                   5123+*                                      COMMUNICATIONS TASK       ICB321 IE127000
                            00040  5124+UCBAMV   EQU   X'40' -                 FOR DIRECT ACCESS DEVICES ONLY - IE128000
                                   5125+*                                      IF ONE, IT INDICATES A           IE129000
                                   5126+*                                      SUCCESSFUL COMPARISON CHECKING   IE130000
                                   5127+*                                      OF THE ACCESS METHOD CATALOG AND IE131000

                                   5128+*                                      THE VOLUME CONTENTS       ICB437 IE132000
                            00020  5129+UCBTICBT EQU   X'20' -                 CHANNEL END AND/OR DEVICE END    IE133000
                                   5130+*                                      OR MOUNT CONDITION PENDING.      IE134000
                                   5131+*                                      USED ONLY WITH PTF.       ICB289 IE135000
                            00010  5132+UCBVSDR  EQU   X'10' -                 DEVICE HAS VARIABLE LENGTH SDRS  IE136000
                            00008  5133+UCBEXTSN EQU   X'08' -                 UCNBRSN CONTAINS LENGTH AND      IE137000
                                   5134+*                                        UCBSNADR ADDRESS OF SENSE INFO IE138000
                            00004  5135+UCBNALOC EQU   X'04' -                 DEVICE NOT ALLOCABLE             IE139000
                                   5136+*                                        BECAUSE OWNED BY OLTEP         IE140000

                            00002  5137+UCBALTCU EQU   X'02' -                 DEVICE HAS ALTERNATE CU ADDRESS  IE141000

                            00001  5138+UCBALTPH EQU   X'01' -                 DEVICE HAS ALTERNATE PATH        IE142000
000002                             5139+UCBID    DS    C -                     UCB ID (FF)                      IE143000
000003                             5140+UCBSTAT  DS    B -                     DEVICE STATUS                    IE144000
                            00080  5141+UCBONLI  EQU   X'80' -                 DEVICE ONLINE                    IE145000
                            00040  5142+UCBCHGS  EQU   X'40' -                 DEVICE TO BE VARIED OFFLINE      IE146000

                            00020  5143+UCBRESV  EQU   X'20' -                 VOLUME RESERVED                  IE147000
                            00010  5144+UCBUNLD  EQU   X'10' -                 UNLOAD PENDING                   IE148000
                            00008  5145+UCBALOC  EQU   X'08' -                 DEVICE ALLOCATED                 IE149000
                            00004  5146+UCBPRES  EQU   X'04' -                 VOLUME PERMANENTLY RESIDENT      IE150000
                            00002  5147+UCBSYSR  EQU   X'02' -                 SYSTEM RESIDENCE OR              IE151000
                                   5148+*                                      PRIMARY CONSOLE OR               IE152000
                                   5149+*                                      ACTIVE CONSOLE                   IE153000
                            00001  5150+UCBDADI  EQU   X'01' -                 STANDARD TAPE LABELS VERIFIED    IE154000
                                   5151+*                                      OR ALTERNATE CONSOLE OR          IE155000
                                   5152+*                                      CONSOLE STATUS CHANGING          IE156000

000004                             5153+UCBCHA   DS    B -                     CHANNEL ADDRESS FLAGS            IE157000

                            00080  5154+UCBHIO   EQU   X'80' -                 HALT I/O                         IE158000
                            00040  5155+UCBMOD   EQU   X'40' -                 STATUS MODIFIER                  IE159000
                            0003F  5156+UCBCHANA EQU   X'3F' -                 CHANNEL ADDRESS                  IE160000
000005                             5157+UCBUA    DS    FL1 -                   UNIT ADDRESS                     IE161000

000006                             5158+UCBFL1   DS    B -                     FLAGS                            IE162000
                            00080  5159+UCBBUSYD EQU   X'80' -                 DEVICE BUSY                      IE163000
                            00040  5160+UCBNOTRD EQU   X'40' -                 DEVICE NOT READY                 IE164000
                            00020  5161+UCBUSING EQU   X'20' -                 CHANNEL PROGRAM EXECUTED         IE165000
                                   5162+*                                        AND NOT YET POSTED COMPLETE    IE166000
                            00010  5163+UCBINTER EQU   X'10' -                 DEVICE END ERROR                 IE167000
                                   5164+*                                        AFTER CHANNEL END              IE168000
                                   5165+*                                        (IOB INTERCEPT)                IE169000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  145


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00008  5166+UCBNOTRC EQU   X'08' -                 CONTROL UNIT BUSY                IE170000

                            00006  5167+UCBSTS   EQU   X'06' -                 DEVICE STATUS                    IE171000
                                   5168+*/       01    UCBNTRAN                DIRECT ACCESS ARM SEEKING        IE172000
                                   5169+*                                        (IOS STANDALONE CP EXECUTED)   IE173000
                                   5170+*                                        OR TC RECEIVE STATUS           IE174000

                                   5171+*                                        (INHIBIT HIO)                  IE175000
                                   5172+*/       11    UCBTRANS                DIRECT ACCESS DATA TRANSFER      IE176000
                                   5173+*                                        (USER CP EXECUTING)            IE177000
                            00001  5174+UCBERR   EQU   X'01' -                 ERROR ROUTINE USING DEVICE       IE178000
                                   5175+*                                        EXCLUSIVELY                    IE179000
000007                             5176+UCBDTI   DS    FL1 -                   DEVICE TABLE INDEX               IE180000
000008                             5177+UCBETI   DS    FL1 -                   ERROR TABLE INDEX                IE181000
                                   5178+*                                        (ERROR ROUTINE SUFFIX)         IE182000
000009                             5179+UCBSTI   DS    FL1 -                   STATUS TABLE INDEX               IE183000
                                   5180+*                                        (*10 = STATAB INDEX)           IE184000
00000A                             5181+UCBLCI   DS    FL1 -                   LOGICAL CHANNEL WORD TABLE INDEX IE185000

                                   5182+*                                        (*8 = LCHTAB INDEX)            IE186000
00000B                             5183+UCBATI   DS    FL1 -                   ATTENTION TABLE (ANTAB) INDEX    IE187000
                            00080  5184+UCBRSV04 EQU   X'80',,C'X' -           RESERVED                         IE188000
                            00040  5185+UCBRSV05 EQU   X'40',,C'X' -           RESERVED                         IE189000

                            00020  5186+UCBRSV06 EQU   X'20',,C'X' -           RESERVED                         IE190000
                            00010  5187+UCBRSV07 EQU   X'10',,C'X' -           RESERVED                         IE191000
                            00008  5188+UCBRSV08 EQU   X'08',,C'X' -           RESERVED                         IE192000
                            00004  5189+UCBRSV09 EQU   X'04',,C'X' -           RESERVED                         IE193000
                            00002  5190+UCBHALI  EQU   X'02' -                 OPTIONAL JOB ENTRY SYSTEM        IE194000
                                   5191+*                                      ALLOCATION INDICATOR      ICB455 IE195000
                            00001  5192+UCBHPDV  EQU   X'01' -                 IF ONE, INDICATES OPTIONAL JOB   IE196000
                                   5193+*                                      ENTRY SYSTEM PSEUDO DEVICE       IE197000
                                   5194+*                                                                ICB455 IE198000
00000C                             5195+UCBWGT   DS    B -                     FLAGS AND CHANNEL MASK           IE199000
                            00080  5196+UCBIN    EQU   X'80' -                 SYSIN                            IE200000
                            00040  5197+UCBOUT   EQU   X'40' -                 SYSOUT                           IE201000

                            00020  5198+UCBPUB   EQU   X'20' -                 ASSUME PUBLIC VOLUME             IE202000
                            00010  5199+UCBREW   EQU   X'10' -                 REWIND COMMAND                   IE203000
                            0000F  5200+UCBPATH  EQU   X'0F' -                 INOPERATIVE PATHS                IE204000

                            00008  5201+UCBPATH0 EQU   X'08' -                 PRIMARY PATH INOPERATIVE         IE205000
                            00004  5202+UCBPATH1 EQU   X'04' -                 OPTIONAL PATH 1 INOPERATIVE      IE206000
                            00002  5203+UCBPATH2 EQU   X'02' -                 OPTIONAL PATH 2 INOPERATIVE      IE207000
                            00001  5204+UCBPATH3 EQU   X'01' -                 OPTIONAL PATH 3 INOPERATIVE      IE208000
00000D                             5205+UCBNAME  DS    CL3 -                   EBCDIC UNIT NAME                 IE209000
000010                             5206+UCBTYP   DS    0CL4 -                  DEVICE DESCRIPTION               IE210000
000010                             5207+UCBTBYT1 DS    B -                     MODEL BITS                       IE211000
                            00080  5208+UCB1FEA0 EQU   X'80' -                 BIT 0                            IE212000
                            00040  5209+UCB1FEA1 EQU   X'40' -                 BIT 1                            IE213000
                            00020  5210+UCB1FEA2 EQU   X'20' -                 BIT 2                            IE214000
                            00010  5211+UCB1FEA3 EQU   X'10' -                 BIT 3                            IE215000
                            00008  5212+UCB1FEA4 EQU   X'08' -                 BIT 4                            IE216000

                            00004  5213+UCB1FEA5 EQU   X'04' -                 BIT 5                            IE217000

                            00002  5214+UCB1FEA6 EQU   X'02' -                 BIT 6                            IE218000
                            00001  5215+UCB1FEA7 EQU   X'01' -                 BIT 7                            IE219000

000011                             5216+UCBTBYT2 DS    B -                     OPTION FLAGS                     IE220000
                            00080  5217+UCB2OPT0 EQU   X'80' -                 FLAG 0                           IE221000
                            00040  5218+UCB2OPT1 EQU   X'40' -                 FLAG 1                           IE222000
                            00020  5219+UCB2OPT2 EQU   X'20' -                 FLAG 2                           IE223000
                            00010  5220+UCB2OPT3 EQU   X'10' -                 FLAG 3                           IE224000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  146


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00008  5221+UCB2OPT4 EQU   X'08' -                 FLAG 4                           IE225000
                            00004  5222+UCB2OPT5 EQU   X'04' -                 FLAG 5                           IE226000
                            00002  5223+UCB2OPT6 EQU   X'02' -                 FLAG 6                           IE227000
                            00001  5224+UCB2OPT7 EQU   X'01' -                 FLAG 7                           IE228000
000012                             5225+UCBTBYT3 DS    B -                     CLASS BITS                       IE229000

                            00080  5226+UCB3TAPE EQU   X'80' -                 TAPE                             IE230000
                            00040  5227+UCB3COMM EQU   X'40' -                 COMMUNICATIONS                   IE231000

                            00020  5228+UCB3DACC EQU   X'20' -                 DIRECT ACCESS                    IE232000

                            00010  5229+UCB3DISP EQU   X'10' -                 DISPLAY                          IE233000
                            00008  5230+UCB3UREC EQU   X'08' -                 UNIT RECORD                      IE234000
                            00004  5231+UCB3CHAR EQU   X'04' -                 CHARACTER READER                 IE235000
                            00002  5232+UCBRSV10 EQU   X'02',,C'X' -           RESERVED                         IE236000
                            00001  5233+UCBRSV11 EQU   X'01',,C'X' -           RESERVED                         IE237000
000013                             5234+UCBTBYT4 DS    C -                     DEVICE CODE                      IE238000
                            00011  5235+UCB42AD1 EQU   X'11' -                 2702 CONTROL UNIT WITH TYPE 1    IE239000
                                   5236+*                                      ADAPTOR                          IE240000
                            00001  5237+UCB2400  EQU   X'01' -                 2400 SERIES MAGNETIC TAPE        IE241000
                                   5238+*                                      DEVICE                    ICB376 IE242000
000014                             5239+UCBLTS   DS    CL2 -                   LAST REQUEST ELEMENT             IE243000
000016                             5240+UCBSNS   DS    0CL2 -                  SENSE INFORMATION FOR DEVICES    IE244000

                                   5241+*                                      WITHOUT EXTENDED SENSE    ICB425 IE245000
000016                             5242+UCBFL7   DS    B -                     FLAG BYTE FOR DEVICES WITH       IE246000
                                   5243+*                                      EXTENDED SENSE            ICB425 IE247000

                            00080  5244+UCBASDEP EQU   X'80' -                 INDICATES CANCEL KEY DEPRESSED   IE248000
                                   5245+*                                      ON 3211                   ICB425 IE249000
                            00040  5246+UCBRSV12 EQU   X'40',,C'X' -           RESERVED                         IE250000
                            00020  5247+UCBRSV13 EQU   X'20',,C'X' -           RESERVED                         IE251000
                            00010  5248+UCBRSV14 EQU   X'10',,C'X' -           RESERVED                         IE252000
                            00008  5249+UCBRSV15 EQU   X'08',,C'X' -           RESERVED                         IE253000
                            00004  5250+UCBRSV16 EQU   X'04',,C'X' -           RESERVED                         IE254000
                            00002  5251+UCBRSV17 EQU   X'02',,C'X' -           RESERVED                         IE255000
                            00001  5252+UCBRSV18 EQU   X'01',,C'X' -           RESERVED                         IE256000
000017                             5253+UCBRSV19 DS    X -                     RESERVED BYTE FOR DEVICES WITH   IE257000
                                   5254+*                                      EXTENDED SENSE            ICB425 IE258000
                                   5255+*                                                                       IE259000

                            00000  5256+SRTEJBNR EQU   UCBJBNR -               ALIAS                            IE260000
                            00001  5257+SRTEMNT  EQU   UCBMONT -               ALIAS                            IE261000
                            00003  5258+SRTESTAT EQU   UCBSTAT -               ALIAS                            IE262000
                            00080  5259+SRTEONLI EQU   UCBONLI -               ALIAS                            IE263000

                            00040  5260+SRTECHGS EQU   UCBCHGS -               ALIAS                            IE264000
                            00020  5261+SRTERESV EQU   UCBRESV -               ALIAS                            IE265000
                            00010  5262+SRTEUNLD EQU   UCBUNLD -               ALIAS                            IE266000
                            00008  5263+SRTEALOC EQU   UCBALOC -               ALIAS                            IE267000
                            00004  5264+SRTEPRES EQU   UCBPRES -               ALIAS                            IE268000
                            00002  5265+SRTESYSR EQU   UCBSYSR -               ALIAS                            IE269000

                            00001  5266+SRTEDADI EQU   UCBDADI -               ALIAS                            IE270000
                            00006  5267+UCBFL2   EQU   UCBFL1 -                ALIAS (UCBCHA WAS ONCE UCBFL1)   IE271000
                                   5268+*                                                                       IE272000
                                   5269+*********************************************************************** IE273000
                                   5270+*                                                                       IE274000
                                   5271+*        DEVICE-DEPENDENT UCB SEGMENTS                                  IE275000
                                   5272+*                                                                       IE276000
                            00018  5273+UCBDEV   EQU   *                                                        IE277000

                                   5274+*                                                                       IE278000
                                   5275+*********************************************************************** IE279000

BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  147


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5276+*                                                                       IE280000
                                   5277+*             DIRECT ACCESS (2300)                                      IE281000
                                   5278+*             (EXCEPT DATA CELL)                                        IE282000
                                   5279+*             AND MAGNETIC TAPE (2400)                                  IE283000
                                   5280+*             UCB SEGMENT                                               IE284000
                                   5281+*                                                                       IE285000

000018                      00018  5282+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT         IE286000
                                   5283+*                                                                       IE287000
                                   5284+*********************************************************************** IE288000
                                   5285+*                                                                       IE289000
000018                             5286+UCBSENSE DS    0CL4 -                  ADDITIONAL SENSE INFORMATION FOR IE290000

                                   5287+*                                      DEVICES WITH SIX SENSE BYTES     IE291000
000018                             5288+UCBSENSB DS    0A -                    SAME AS UCBSENSA BELOW           IE292000
000018                             5289+UCBSENSN DS    FL1 -                   NUMBER OF EXPANDED SENSE BYTES   IE293000

000019                             5290+UCBSENSA DS    AL3 -                   ADDRESS OF EXPANDED SENSE        IE294000
                                   5291+*                                      INFORMATION                      IE295000
00001C                             5292+UCBVOLI  DS    CL6 -                   VOLUME SERIAL NUMBER             IE296000
000022                             5293+UCBSTAB  DS    B -                     VOLUME STATUS                    IE297000
                            00080  5294+UCBBSVL  EQU   X'80' -                 NOT SHARABLE (DIRECT ACCESS)     IE298000
                            00080  5295+UCBDVSHR EQU   X'80' -                 WHEN ONE, DEVICE SHARABLE AMONG  IE299000
                                   5296+*                                      SEVERAL CPU'S  (3420 MAGNETIC    IE300000

                                   5297+*                                      TAPE DEVICES ONLY)        ICB485 IE301000
                            00040  5298+UCBPGFL  EQU   X'40' -                 UCB IS OPEN AND IS USED AS A     IE302000
                                   5299+*                                      PAGE FILE                 ICB338 IE303000
                            00020  5300+UCBBALB  EQU   X'20' -                 MORE VOLUME LABEL PROCESSING     IE304000
                            00020  5301+UCBPRSRS EQU   X'20' -                 THIS DEVICE WAS SPECIFIED IN     IE305000

                                   5302+*                                      PRESRES BUT WAS NOT MOUNTED AT   IE306000
                                   5303+*                                      IPL                              IE307000
                            00010  5304+UCBBPRV  EQU   X'10' -                 PRIVATE USE                      IE308000
                            00008  5305+UCBBPUB  EQU   X'08' -                 PUBLIC USE                       IE309000

                            00004  5306+UCBBSTR  EQU   X'04' -                 STORAGE USE (DA)                 IE310000
                                   5307+*                                        ANSI LABEL (MT)                IE311000
                            00002  5308+UCBBJLB  EQU   X'02' -                 JOBLIB VOLUME (DA)               IE312000
                            00001  5309+UCBBNUL  EQU   X'01' -                 MCS MOUNT/DEMOUNT MSGS ISSUED    IE313000
                                   5310+*                                        (MESSAGE IDS IN UCBFSER) (MT)  IE314000
                                   5311+*                                        CONTROL VOLUME (DA)            IE315000

000023                             5312+UCBDMCT  DS    B -                     VOLUME USE BYTE                  IE316000
                            00080  5313+UCBMOUNT EQU   X'80' -                 MOUNTED OR REQUEST ISSUED        IE317000
                                   5314+*                                        (OFF MEANS MOUNT VERIFIED)     IE318000
                            0007F  5315+UCBDMC   EQU   X'7F' -                 NUMBER OF OPEN DCBS              IE319000
000024                             5316+UCBVTOC  DS    0CL4 -                  TTR0 OF VTOC (DA)                IE320000

000024                             5317+UCBFSCT  DS    H -                     DATASET SEQUENCE COUNT (MT)      IE321000
000026                             5318+UCBFSEQ  DS    H -                     DATASET SEQUENCE NUMBER (MT)     IE322000
000028                             5319+UCBFSER  DS    0CL8 -                  DATASET SERIAL NUMBER            IE323000
                                   5320+*                                        (MT AFTER OPEN) OR             IE324000
                                   5321+*                                        MESSAGE IDS  (MT BEFORE OPEN)  IE325000

                                   5322+*                                        PLUS TWO RESERVED BYTES (MT)   IE326000
000028                             5323+UCBSQC   DS    FL1 -                   NUMBER OF RESERVE MACROS         IE327000
                                   5324+*                                        (DA INCLUDING DATACELL)        IE328000
000029                             5325+UCBDVRES DS    FL1 -                   DEVICE RESERVATION (SHARED DASD) IE329000
                                   5326+*                                        (DA INCLUDING DATACELL)        IE330000

                                   5327+*                                        SET TO UCBSQC AFTER GOOD SIO   IE331000
00002A                             5328+UCBRQESV DS    H -                     ADDRESS OF RQE TO VERIFY         IE332000
                                   5329+*                                        VOL SER NUMBER IN UCB          IE333000
                                   5330+*                                        (SET FROM UCBLTS AFTER         IE334000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  148



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5331+*                                        UNSOLICITED DEVICE END)        IE335000
                                   5332+*                                        (DA INCLUDING DATACELL)        IE336000
00002C                             5333+UCBORSVA DS    0A -                    ADDRESS OF DEB FOR FIRST USER    IE337000
                                   5334+*                                        ON QUEUE FOR DEVICE            IE338000
                                   5335+*                                        (DA INCLUDING DATACELL)        IE339000

00002C                             5336+UCBFL4   DS    B -                     FLAGS (DA INCLUDING DATACELL)    IE340000
                            000F8  5337+UCBDAV   EQU   X'F8' -                 VOLUME VERIFICATION FLAGS        IE341000
                            00080  5338+UCBMNT   EQU   X'80' -                 VOL SER VERIFIER ISSUED MOUNT    IE342000
                            00040  5339+UCBVVRTN EQU   X'40' -                 VOL SER VERIFIER IN CONTROL      IE343000

                            00020  5340+UCBFT    EQU   X'20' -                 FIRST VERIFIER ENTRY FOR VOL     IE344000
                            00010  5341+UCBTCC   EQU   X'10' -                 ALTERNATE TRACK PROCEDURE        IE345000
                                   5342+*                                        HANDLING VOL LABEL             IE346000
                            00008  5343+UCBVER   EQU   X'08' -                 VERIFIER VERIFIED VOL            IE347000
                            00007  5344+UCBORCNT EQU   X'07' -                 NUMBER OF REQUESTS FOR DEVICE    IE348000

                                   5345+*                                        FROM FIRST USER ON QUEUE       IE349000
00002D                             5346+UCBORSVB DS    AL3 -                   ADDRESS OF DEB FOR FIRST USER    IE350000
                                   5347+*                                        ON QUEUE FOR DEVICE            IE351000
                                   5348+*                                        (DA INCLUDING DATACELL)        IE352000
000030                             5349+UCBSKA   DS    0CL8 -                  MBBCCHHR OF LAST SEEK            IE353000
                                   5350+*                                        (DA INCLUDING DATACELL)        IE354000
000030                             5351+UCBXTN   DS    0A -                    ADDRESS OF UCB EXTENSION (MT)    IE355000

000030                             5352+UCBVOPT  DS    B -                     VOLUME STATISTIC FLAGS           IE356000
                            00080  5353+UCBESV   EQU   X'80' -                 ESV RECORDS KEPT                 IE357000
                            00040  5354+UCBEVA   EQU   X'40' -                 EVA RECORDS MAY BE KEPT          IE358000

                            00020  5355+UCBESVC  EQU   X'20' -                 ESV RECORDS SENT TO CONSOLE      IE359000
                                   5356+*                                        AS OPPOSED TO SYS1.MAN         IE360000
                            00010  5357+UCBERPC  EQU   X'10' -                 ERROR RECOVERY PROC IN CONTROL   IE361000
                            00008  5358+UCBESVE  EQU   X'08' -                 ESV RECORD ISSUED FOR VOLUME     IE362000
                                   5359+*                                        BECAUSE OF EOV                 IE363000

                            00004  5360+UCBRSV20 EQU   X'04',,C'X' -           RESERVED                         IE364000
                            00002  5361+UCBRSV21 EQU   X'02',,C'X' -           RESERVED                         IE365000
                            00001  5362+UCBASNDE EQU   X'01' -                 UNSOLICITED DEVICE END OCCURRED  IE366000
                                   5363+*                                      ON 3420                   ICB394 IE367000
000031                             5364+UCBXTNB  DS    AL3 -                   ADDRESS OF UCB EXTENSION (MT)    IE368000
                                   5365+*                                        (MAP BELOW)                    IE369000
000034                             5366+         DS    CL4 -                   UCBSKA PADDING (NOT IN UCB)      IE370000
                                   5367+*                                         NO LONGER EXISTS (MT)         IE371000

000038                             5368+UCBEXTN  DS    0A -                    SAME AS UCBEXTNA BELOW    ICB371 IE372000
000038                             5369+UCBUSER  DS    FL1 -                   NUMBER OF CURRENT USERS (DA)     IE373000

000039                             5370+UCBEXTNA DS    AL3 -                   ADDRESS OF DIRECT ACCESS UCB     IE374000
                                   5371+*                                      EXTENSION 2 (MAPPED BELOW)ICB371 IE375000
00003C                             5372+UCBEXT   DS    0A -                    ADDRESS OF UCB EXTENSION (DA)    IE376000
                                   5373+*                                        (MAPPED BELOW)                 IE377000
00003C                             5374+UCBFL6   DS    B -                     FLAG BYTE                 ICB364 IE378000

                            00080  5375+UCBDSS   EQU   X'80' -                 READ HOME ADDRESS AND READ       IE379000
                                   5376+*                                      RECORD ZERO OPERATIONS PERFORMED IE380000
                                   5377+*                                      BY DYNAMIC SUPPORT SYSTEM ICB364 IE381000
                            00040  5378+UCBRSV22 EQU   X'40',,C'X' -           RESERVED                         IE382000
                            00020  5379+UCBRSV23 EQU   X'20',,C'X' -           RESERVED                         IE383000
                            00010  5380+UCBRSV24 EQU   X'10',,C'X' -           RESERVED                         IE384000
                            00008  5381+UCBRSV25 EQU   X'08',,C'X' -           RESERVED                         IE385000
                            00004  5382+UCBRSV26 EQU   X'04',,C'X' -           RESERVED                         IE386000
                            00002  5383+UCBRSV27 EQU   X'02',,C'X' -           RESERVED                         IE387000

                            00001  5384+UCBRSV28 EQU   X'01',,C'X' -           RESERVED                         IE388000

00003D                             5385+UCBEXTA  DS    AL3 -                   SAME AS UCBEXT ABOVE      ICB364 IE389000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  149


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5386+*                                                                       IE390000
                            0001C  5387+SRTEVOLI EQU   UCBVOLI -               ALIAS                            IE391000

                            00022  5388+SRTESTAB EQU   UCBSTAB -               ALIAS                            IE392000
                            00080  5389+SRTEBSVL EQU   UCBBSVL -               ALIAS                            IE393000
                            00020  5390+SRTEBALB EQU   UCBBALB -               ALIAS                            IE394000
                            00010  5391+SRTEBPRV EQU   UCBBPRV -               ALIAS                            IE395000
                            00008  5392+SRTEBPUB EQU   UCBBPUB -               ALIAS                            IE396000
                            00004  5393+SRTEBSTR EQU   UCBBSTR -               ALIAS                            IE397000
                            00004  5394+SRTEASCI EQU   UCBBSTR -               ALIAS                            IE398000
                            00004  5395+UCBASCI  EQU   SRTEASCI -              ALIAS                            IE399000
                            00004  5396+SRTEBVQS EQU   SRTEBSTR -              ALIAS                            IE400000
                            00002  5397+SRTEBJLB EQU   UCBBJLB -               ALIAS                            IE401000
                            00001  5398+SRTEBNUL EQU   UCBBNUL -               ALIAS                            IE402000
                            00023  5399+SRTEDMCT EQU   UCBDMCT -               ALIAS                            IE403000

                            00024  5400+SRTEFSCT EQU   UCBFSCT -               ALIAS                            IE404000
                            00026  5401+SRTEFSEQ EQU   UCBFSEQ -               ALIAS                            IE405000
                            00038  5402+SRTEUSER EQU   UCBUSER -               ALIAS                            IE406000

                                   5403+*                                                                       IE407000
                                   5404+*********************************************************************** IE408000
                                   5405+*                                                                       IE409000
                                   5406+*             DATA CELL (2321)                                          IE410000
                                   5407+*             UCB SEGMENT                                               IE411000
                                   5408+*                                                                       IE412000
000040                      00018  5409+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT         IE413000
                                   5410+*                                                                       IE414000
                                   5411+*********************************************************************** IE415000
                                   5412+*                                                                       IE416000

000018                             5413+UCBSEN   DS    CL4 -                   MORE SENSE INFORMATION           IE417000

00001C                             5414+UCBERPA  DS    CL12 -                  ERROR RECOVERY WORK AREA A       IE418000
000028                             5415+UCBDASD  DS    CL16 -                  DATA CELL FIELDS MAPPED BY       IE419000
                                   5416+*                                        UCBSQC (1 BYTE)                IE420000
                                   5417+*                                        UCBDVRES (1 BYTE)              IE421000

                                   5418+*                                        UCBRQESV (2 BYTES)             IE422000
                                   5419+*                                        UCBFL4 (1 FLAG BYTE)           IE423000
                                   5420+*                                        UCBORSVA/B (3 BYTES)           IE424000
                                   5421+*                                        UCBSKA (8 BYTES)               IE425000
                                   5422+*                                        UNDER DIRECT ACCESS ABOVE      IE426000
000038                             5423+UCBCELLS DS    0CL160 -                CELL DESCRIPTIONS (MAPPED BELOW) IE427000
000038                             5424+UCBCELL0 DS    CL16 -                  CELL 0                           IE428000
000048                             5425+UCBCELL1 DS    CL16 -                  CELL 1                           IE429000
000058                             5426+UCBCELL2 DS    CL16 -                  CELL 2                           IE430000
000068                             5427+UCBCELL3 DS    CL16 -                  CELL 3                           IE431000
000078                             5428+UCBCELL4 DS    CL16 -                  CELL 4                           IE432000

000088                             5429+UCBCELL5 DS    CL16 -                  CELL 5                           IE433000
000098                             5430+UCBCELL6 DS    CL16 -                  CELL 6                           IE434000
0000A8                             5431+UCBCELL7 DS    CL16 -                  CELL 7                           IE435000
0000B8                             5432+UCBCELL8 DS    CL16 -                  CELL 8                           IE436000

0000C8                             5433+UCBCELL9 DS    CL16 -                  CELL 9                           IE437000
0000D8                             5434+UCBDC    DS    A -                     ADDRESS OF DATACELL UCB EXT      IE438000
                                   5435+*                                        (MAPPED BELOW)                 IE439000
                                   5436+*                                                                       IE440000
                                   5437+*********************************************************************** IE441000
                                   5438+*                                                                       IE442000
                                   5439+*             UNIT RECORD WITH                                          IE443000
                                   5440+*             UNIVERSAL CHARACTER SET (1403, 3211)                      IE444000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  150


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5441+*             UCB SEGMENT                                               IE445000
                                   5442+*                                                                       IE446000

0000DC                      00018  5443+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT         IE447000
                                   5444+*                                                                       IE448000
                                   5445+*********************************************************************** IE449000

                                   5446+*                                                                       IE450000
000018                             5447+UCBNBRSN DS    FL1 -                   LENGTH OF SENSE INFO (3211)      IE451000
000019                             5448+UCBSNADR DS    AL3 -                   ADDR OF SENSE INFO --            IE452000
                                   5449+*                                        THAT OF UCBSNS (1403)          IE453000
                                   5450+*                                        OR UCBSNSXT (3211)             IE454000
00001C                             5451+UCBXTADR DS    A -                     ADDR OF UCS UCB EXTENSION        IE455000
                                   5452+*                                                                       IE456000
                                   5453+*********************************************************************** IE457000
                                   5454+*                                                                       IE458000
                                   5455+*             GRAPHICS EXCEPT                                           IE459000
                                   5456+*             M85 CRT CONSOLE AND 3270                                  IE460000
                                   5457+*             UCB SEGMENT                                               IE461000

                                   5458+*                                                                       IE462000

000020                      00018  5459+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT         IE463000
                                   5460+*                                                                       IE464000

                                   5461+*********************************************************************** IE465000
                                   5462+*                                                                       IE466000
000018                             5463+UCBSENS  DS    CL2 -                   MORE SENSE INFORMATION           IE467000
00001A                             5464+UCBOPEN  DS    FL1 -                   NUMBER OF OPEN DCBS              IE468000
00001B                             5465+UCBGCB   DS    C -                     GRAPHIC CONTROL BYTE             IE469000
00001C                             5466+UCBTEB   DS    A -                     ADDRESS OF TASK ENTRY BLOCK      IE470000
000020                             5467+UCBSTART DS    A -                     RESTART ADDRESS                  IE471000
000024                             5468+UCBBTA   DS    0A -                    ADDRESS OF BUFFER TABLE          IE472000
000024                             5469+UCBDI    DS    FL1 -                   DEVICES ON A CONTROL UNIT        IE473000
                                   5470+*                                        TO WHICH BUFFER SECTIONS       IE474000
                                   5471+*                                        ARE ASSIGNED                   IE475000
000025                             5472+UCBBTB   DS    AL3 -                   ADDRESS OF BUFFER TABLE          IE476000

                                   5473+*                                                                       IE477000
                                   5474+*********************************************************************** IE478000

                                   5475+*                                                                       IE479000

                                   5476+*             3270 GRAPHICS                                             IE480000
                                   5477+*             UCB SEGMENT                                               IE481000
                                   5478+*                                                                       IE482000
000028                      00018  5479+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT  ICB480 IE483000
                                   5480+*                                                                       IE484000
                                   5481+*********************************************************************** IE485000
                                   5482+*                                                                       IE486000
000018                             5483+UCBAOF   DS    0BL2 -                  ADDITIONAL OPTIONAL FEATURES.    IE487000
                                   5484+*                                      AN EXTENSION OF THE OPTIONAL     IE488000
                                   5485+*                                      FEATURES BYTE OF THE UCBTYP      IE489000
                                   5486+*                                      FIELD.                    ICB480 IE490000
000018                             5487+UCBAOF1  DS    B -                     FIRST BYTE OF UCBAOF      ICB480 IE491000

                            00080  5488+UCBOFMCR EQU   X'80' -                 MAGNETIC CARD READER ADAPTER -   IE492000
                                   5489+*                                      FOR 3277 ONLY             ICB480 IE493000
                            00040  5490+UCBOFSP  EQU   X'40' -                 SELECTOR PEN - FOR 3277 ONLY     IE494000

                                   5491+*                                                                ICB480 IE495000
                            00020  5492+UCBOFNL  EQU   X'20' -                 NUMERIC LOCK - FOR 3277 ONLY     IE496000
                                   5493+*                                                                ICB480 IE497000
                            00010  5494+UCBRSV64 EQU   X'10',,C'X' -           RESERVED                  ICB480 IE498000
                            00008  5495+UCBRSV65 EQU   X'08',,C'X' -           RESERVED                  ICB480 IE499000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  151


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00004  5496+UCBRSV66 EQU   X'04',,C'X' -           RESERVED                  ICB480 IE500000
                            00002  5497+UCBRSV67 EQU   X'02',,C'X' -           RESERVED                  ICB480 IE501000
                            00001  5498+UCBRSV68 EQU   X'01',,C'X' -           RESERVED                  ICB480 IE502000
000019                             5499+UCBAOF2  DS    B -                     SECOND BYTE OF UCBAOF     ICB480 IE503000
                            00080  5500+UCBRSV69 EQU   X'80',,C'X' -           RESERVED                  ICB480 IE504000

                            00040  5501+UCBRSV70 EQU   X'40',,C'X' -           RESERVED                  ICB480 IE505000
                            00020  5502+UCBRSV71 EQU   X'20',,C'X' -           RESERVED                  ICB480 IE506000
                            00010  5503+UCBRSV72 EQU   X'10',,C'X' -           RESERVED                  ICB480 IE507000
                            00008  5504+UCBRSV73 EQU   X'08',,C'X' -           RESERVED                  ICB480 IE508000

                            00004  5505+UCBRSV74 EQU   X'04',,C'X' -           RESERVED                  ICB480 IE509000
                            00002  5506+UCBRSV75 EQU   X'02',,C'X' -           RESERVED                  ICB480 IE510000
                            00001  5507+UCBRSV76 EQU   X'01',,C'X' -           RESERVED                  ICB480 IE511000
00001A                             5508+UCBATNCT DS    FL1 -                   ATTENTION COUNT.  THE NUMBER OF  IE512000
                                   5509+*                                      ATTENTIONS NOT SERVICED IN THE   IE513000
                                   5510+*                                      LINE GROUP.  PRESENT ONLY IF THE IE514000

                                   5511+*                                      DEVICE INDEX FIELD IS 1.         IE515000
                                   5512+*                                      OTHERWISE, THIS FIELD IS         IE516000
                                   5513+*                                      RESERVED.                 ICB480 IE517000
00001B                             5514+         DS    B -                     UCBGCB - CONTROL BYTE.  USED     IE518000
                                   5515+*                                      FOR ATTENTION HANDLING FLAGS     IE519000
                                   5516+*                                                                ICB480 IE520000
                            00080  5517+UCBOLTEP EQU   X'80' -                 OLTEP IN CONTROL OF THE DEVICE   IE521000
                                   5518+*                                                                ICB480 IE522000

                            00040  5519+UCBRSV77 EQU   X'40',,C'X' -           RESERVED                  ICB480 IE523000
                            00020  5520+UCBRSV78 EQU   X'20',,C'X' -           RESERVED                  ICB480 IE524000

                            00010  5521+UCBRSV79 EQU   X'10',,C'X' -           RESERVED                  ICB480 IE525000
                            00008  5522+UCBRSV80 EQU   X'08',,C'X' -           RESERVED                  ICB480 IE526000
                            00004  5523+UCBRIPND EQU   X'04' -                 READ INITIAL PENDING      ICB480 IE527000
                            00002  5524+UCBSKPFG EQU   X'02' -                 SKIP FLAG                 ICB480 IE528000
                            00001  5525+UCBATRCD EQU   X'01' -                 ATTENTION RECEIVED FROM THE      IE529000
                                   5526+*                                      DEVICE                    ICB480 IE530000
00001C                             5527+UCBIRB   DS    A -                     ADDRESS OF THE IRB USED FOR      IE531000
                                   5528+*                                      SCHEDULING THE SECOND LEVEL      IE532000

                                   5529+*                                      ATTENTION ROUTINE         ICB480 IE533000
000020                             5530+UCBIRLN  DS    FL1 -                   INITIALIZED RLN.  THE RELATIVE   IE534000
                                   5531+*                                      LINE NUMBER OF THE IOB           IE535000
                                   5532+*                                      INITIALIZED FOR A READ INITIAL.  IE536000
                                   5533+*                                      IF 0, NO READ INITIAL IS         IE537000

                                   5534+*                                      OUTSTANDING.  PRESENT ONLY IF    IE538000
                                   5535+*                                      THE DEVICE INDEX FIELD IS 1.     IE539000
                                   5536+*                                      OTHERWISE, THIS FIELD IS         IE540000

                                   5537+*                                      RESERVED.                 ICB480 IE541000
000021                             5538+UCBRSV81 DS    XL1 -                   RESERVED                  ICB480 IE542000
000022                             5539+UCBRSV82 DS    H -                     RESERVED                  ICB480 IE543000
000024                             5540+UCBCTLNK DS    0A -                    SAME AS UCBCTLNA BELOW    ICB480 IE544000
000024                             5541+UCBRLN   DS    FL1 -                   DEVICE INDEX.  INDEX TO THE DEB  IE545000
                                   5542+*                                      UCB ADDRESS FIELD FOR THIS       IE546000
                                   5543+*                                      DEVICE.  THIS INDEX IS ALSO THE  IE547000

                                   5544+*                                      RELATIVE LINE NUMBER.     ICB480 IE548000
000025                             5545+UCBCTLNA DS    AL3 -                   CONTROL BLOCK LINK.  IF THE      IE549000
                                   5546+*                                      DEVICE INDEX FIELD IS 1, THIS    IE550000
                                   5547+*                                      FIELD CONTAINS THE ADDRESS OF    IE551000
                                   5548+*                                      THE DEB FOR THE LINE GROUP.  IF  IE552000

                                   5549+*                                      THE DEVICE INDEX FIELD IS        IE553000
                                   5550+*                                      BETWEEN 2 AND 255 INCLUSIVE,     IE554000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  152


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   5551+*                                      THIS FIELD CONTAINS THE ADDRESS  IE555000
                                   5552+*                                      OF THE UCB WITH A DEVICE INDEX   IE556000
                                   5553+*                                      OF 1.                     ICB480 IE557000
                                   5554+*                                                                       IE558000
                                   5555+*********************************************************************** IE559000
                                   5556+*                                                                       IE560000

                                   5557+*             TAPE CARTRIDGE READER (2495)                              IE561000
                                   5558+*             AND OPTICAL READER (1285, 1287, 1288)                     IE562000
                                   5559+*             UCB SEGMENT                                               IE563000
                                   5560+*                                                                       IE564000
000028                      00018  5561+         ORG   UCBDEV -                DEVICE-DEPENDENT SEGMENT         IE565000

                                   5562+*                                                                       IE566000
                                   5563+*********************************************************************** IE567000
                                   5564+*                                                                       IE568000
000018                             5565+UCBCRWKA DS    A -                     ADDRESS OF UCB EXTENSION         IE569000
                                   5566+*                                        FOR THIS DEVICE                IE570000

                                   5567+*                                        (MAPPED BELOW)                 IE571000
                                   5568+*                                                                       IE572000
                                   5569+*********************************************************************** IE573000
                                   5570+*                                                                       IE574000
                                   5571+*       CELL DESCRIPTION                                                IE575000

                                   5572+*       FOR UCBCELL0/.../9                                              IE576000
                                   5573+*       IN DATACELL (2321)                                              IE577000
                                   5574+*                                                                       IE578000
00001C                      00038  5575+         ORG   UCBUSER                                                  IE579000
                                   5576+*                                                                       IE580000

                            00038  5577+UCBDCLL  EQU   * -                     UCBDCPTR -> UCBDCLL              IE581000
                                   5578+*                                                                       IE582000
                                   5579+*********************************************************************** IE583000
                                   5580+*                                                                       IE584000
000038                             5581+UCBDCELL DS    0CL16 -                 ONE OF TEN CELLS                 IE585000
                                   5582+*                                                                       IE586000

000038                             5583+UCBDBBNR DS    H -                     BIN NUMBER                       IE587000
00003A                             5584+UCBDSTAB DS    B -                     VOLUME STATUS BYTE B             IE588000
                                   5585+*                                        (ANALOGOUS TO UCBSTAB)         IE589000
                            00080  5586+UCBDBSVL EQU   X'80' -                 NOT SHARABLE                     IE590000

                            00040  5587+UCBRSV35 EQU   X'40',,C'X' -           RESERVED                         IE591000
                            00020  5588+UCBDBPRS EQU   X'20' -                 THIS DEVICE WAS SPECIFIED IN     IE592000
                                   5589+*                                      PRESRES BUT WAS NOT MOUNTED AT   IE593000
                                   5590+*                                      IPL                              IE594000
                            00010  5591+UCBDBPRV EQU   X'10' -                 PRIVATE USE                      IE595000

                            00008  5592+UCBDBPUB EQU   X'08' -                 PUBLIC USE                       IE596000
                            00004  5593+UCBDBSTR EQU   X'04' -                 STORAGE USE                      IE597000
                            00002  5594+UCBDBJLB EQU   X'02' -                 JOBLIB VOLUME                    IE598000
                            00001  5595+UCBDBNUL EQU   X'01' -                 CONTROL VOLUME                   IE599000
00003B                             5596+UCBDSTAT DS    B -                     CELL/BIN STATUS                  IE600000
                                   5597+*                                        (ANALOGOUS TO UCBSTAT)         IE601000
                            00080  5598+UCBDNORM EQU   X'80' -                 ONLINE WITH NORMAL CELL          IE602000

                                   5599+*                                        (NOT OFFLINE OR BALLAST)       IE603000
                            00040  5600+UCBRSV29 EQU   X'40',,C'X' -           RESERVED                         IE604000
                            00020  5601+UCBDRESV EQU   X'20' -                 RESERVED CELL                    IE605000

                            00010  5602+UCBDUNLD EQU   X'10' -                 UNLOAD PENDING                   IE606000
                            00008  5603+UCBDALOC EQU   X'08' -                 BIN ALLOCATED                    IE607000
                            00004  5604+UCBDPRES EQU   X'04' -                 CELL PERMANENTLY RESIDENT        IE608000
                            00002  5605+UCBRSV30 EQU   X'02',,C'X' -           RESERVED                         IE609000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  153



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00001  5606+UCBRSV31 EQU   X'01',,C'X' -           RESERVED                         IE610000
00003C                             5607+UCBDVOLI DS    CL6 -                   VOLUME SERIAL NUMBER             IE611000
000042                             5608+UCBDJBNR DS    FL1 -                   INTERNAL JOB NUMBER              IE612000
000043                             5609+UCBDDMCT DS    FL1 -                   NUMBER OF OPEN DCBS FOR THIS     IE613000
                                   5610+*                                      CELL (BITS 1-7)                  IE614000
                            00080  5611+UCBDDMNT EQU   X'80' -                 IF 0, MOUNT VERIFICATION HAS     IE615000
                                   5612+*                                      BEEN PERFORMED ---               IE616000

                                   5613+*                                      IF 1, MOUNT REQUEST HAS BEEN     IE617000
                                   5614+*                                      ISSUED                           IE618000

000044                             5615+UCBDVTOC DS    CL3 -                   TTR OF VTOC                      IE619000
000047                             5616+UCBDUSER DS    FL1 -                   CURRENT NUMBER OF DATASETS       IE620000
                                   5617+*                                                                       IE621000
                            00038  5618+DATACELL EQU   UCBDCELL -              ALIAS                            IE622000
                            00038  5619+DCELBBNR EQU   UCBDBBNR -              ALIAS                            IE623000

                            0003A  5620+DCELSTAB EQU   UCBDSTAB -              ALIAS                            IE624000
                            0003B  5621+DCELSTAT EQU   UCBDSTAT -              ALIAS                            IE625000
                            0003C  5622+DCELVOLI EQU   UCBDVOLI -              ALIAS                            IE626000
                            00042  5623+DCELJBNR EQU   UCBDJBNR -              ALIAS                            IE627000
                            00043  5624+DCELDMCT EQU   UCBDDMCT -              ALIAS                            IE628000
                            00044  5625+DCELVTOC EQU   UCBDVTOC -              ALIAS                            IE629000
                            00047  5626+DCELUSER EQU   UCBDUSER -              ALIAS                            IE630000
                                   5627+*                                                                       IE631000

                                   5628+*********************************************************************** IE632000
                                   5629+*                                                                       IE633000

                                   5630+*       UNIT CONTROL BLOCK EXTENSIONS                                   IE634000
                                   5631+*                                                                       IE635000
                                   5632+*********************************************************************** IE636000
                                   5633+*                                                                       IE637000
                                   5634+*             DIRECT ACCESS (2300)                                      IE638000

                                   5635+*             UCB EXTENSION                                             IE639000
                                   5636+*                                                                       IE640000
000000                             5637+UCBDA    DSECT ,                       UCBEXT -> UCBDA                  IE641000
                                   5638+*                                                                       IE642000
                                   5639+*********************************************************************** IE643000
                                   5640+*                                                                       IE644000
000000                             5641+         DS    CL104 -                 OFFSET                           IE645000
000068                             5642+UCBERP   DS    CL40 -                  ERROR RECOVERY WORK AREA         IE646000
000090                             5643+UCBOVFLW DS    CL40 -                  TRACK OVERFLOW WORK AREA         IE647000

                                   5644+*                                                                       IE648000

                                   5645+*********************************************************************** IE649000
                                   5646+*                                                                       IE650000
                                   5647+*             DIRECT ACCESS (2300)                                      IE651000
                                   5648+*             UCB EXTENSION 2                                           IE652000
                                   5649+*                                                                       IE653000

000000                             5650+UCBDA2   DSECT ,                       UCBEXTN -> UCBDA2        ICB371  IE654000
                                   5651+*                                                                       IE655000
                                   5652+*********************************************************************** IE656000
                                   5653+*                                                                       IE657000
000000                             5654+UCBDEXP  DS    0A -                    SAME AS UCBDEXPA BELOW    ICB371 IE658000
000000                             5655+UCBRSV32 DS    X -                     RESERVED                  ICB371 IE659000
000001                             5656+UCBDEXPA DS    AL3 -                   ADDRESS OF THE EXCPCNTS TABLE    IE660000
                                   5657+*                                      ENTRY FOR THIS DIRECT ACCESS     IE661000
                                   5658+*                                      DEVICE                    ICB371 IE662000
000004                             5659+UCBLTTDS DS    FL1 -                   COUNT OF LONG TERM TEMPORARY     IE663000

                                   5660+*                                      DATA SETS (LTTDS) THAT ARE       IE664000

BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  154


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5661+*                                      CURRENTLY ALLOCATED ON A DIRECT  IE665000
                                   5662+*                                      ACCESS DEVICE.  LTTDS ARE        IE666000

                                   5663+*                                      INITIATOR SWADS AND DEDICATED    IE667000
                                   5664+*                                      WORK FILES. (OS/VS1)      ICB481 IE668000
000005                             5665+UCBRSV53 DS    X -                     RESERVED (OS/VS1)                IE669000
000006                             5666+UCBRSV54 DS    X -                     RESERVED (OS/VS1)                IE670000
000007                             5667+UCBRSV55 DS    B -                     RESERVED (OS/VS1)                IE671000
                            00080  5668+UCBRSV56 EQU   X'80',,C'X' -           RESERVED (OS/VS1)                IE672000
                            00040  5669+UCBRSV57 EQU   X'40',,C'X' -           RESERVED (OS/VS1)                IE673000
                            00020  5670+UCBRSV58 EQU   X'20',,C'X' -           RESERVED (OS/VS1)                IE674000
                            00010  5671+UCBRSV59 EQU   X'10',,C'X' -           RESERVED (OS/VS1)                IE675000
                            00008  5672+UCBRSV60 EQU   X'08',,C'X' -           RESERVED (OS/VS1)                IE676000
                            00004  5673+UCBRSV61 EQU   X'04',,C'X' -           RESERVED (OS/VS1)                IE677000

                            00002  5674+UCBRSV62 EQU   X'02',,C'X' -           RESERVED (OS/VS1)                IE678000
                            00001  5675+UCBRSV63 EQU   X'01',,C'X' -           RESERVED (OS/VS1)                IE679000
                                   5676+*                                                                       IE680000
                                   5677+*********************************************************************** IE681000

                                   5678+*                                                                       IE682000
                                   5679+*             PREFIX TO THE                                             IE683000
                                   5680+*             MAGNETIC TAPE                                             IE684000
                                   5681+*             UCB EXTENSION                                             IE685000
                                   5682+*                                                                       IE686000
000000                             5683+UCBMTPRF DSECT ,                       UCBXTN-4 -> UCBMTPRF     ICB371  IE687000
                                   5684+*                                                                       IE688000
                                   5685+*********************************************************************** IE689000
                                   5686+*                                                                       IE690000
000000                             5687+UCBTEXP  DS    0A -                    SAME AS UCBTEXPA BELOW    ICB371 IE691000
000000                             5688+UCBRSV33 DS    X -                     RESERVED                  ICB371 IE692000
000001                             5689+UCBTEXPA DS    AL3 -                   ADDRESS OF THE EXCPCNTS TABLE    IE693000

                                   5690+*                                      ENTRY FOR THIS MAGNETIC TAPE     IE694000
                                   5691+*                                      DEVICE                    ICB371 IE695000
000004                             5692+UCBMTPND DS    0C -                    END OF PREFIX             ICB371 IE696000

                                   5693+*                                                                       IE697000
                                   5694+*********************************************************************** IE698000
                                   5695+*                                                                       IE699000
                                   5696+*             MAGNETIC TAPE                                             IE700000
                                   5697+*             UCB EXTENSION                                             IE701000
                                   5698+*                                                                       IE702000
000000                             5699+UCBMT    DSECT ,                       UCBXTN -> UCBMT                  IE703000
                                   5700+*                                                                       IE704000
                                   5701+*********************************************************************** IE705000
                                   5702+*                                                                       IE706000
000000                             5703+UCBROR   DS    CL8 -                   READ OPPOSITE DIRECTION          IE707000
                                   5704+*                                        RECOVERY CCW                   IE708000

000008                             5705+UCBRSV34 DS    CL2 -                   RESERVED                  ICB463 IE709000

00000A                             5706+UCBTRT   DS    FL1 -                   TEMP READ ERROR THRESHOLD        IE710000
                                   5707+*                                        (IF ZERO THEN EVA ABSENT)      IE711000

00000B                             5708+UCBTWT   DS    FL1 -                   TEMP WRITE ERROR THRESHOLD       IE712000
                                   5709+*                                        (IF ZERO THEN EVA ABSENT)      IE713000
00000C                             5710+UCBTR    DS    FL1 -                   TEMP READ ERROR COUNT            IE714000
00000D                             5711+UCBTW    DS    FL1 -                   TEMP WRITE ERROR COUNT           IE715000
00000E                             5712+UCBSIO   DS    H -                     SIO COUNT                        IE716000
000010                             5713+UCBPR    DS    FL1 -                   PERM READ ERROR COUNT            IE717000
000011                             5714+UCBPW    DS    FL1 -                   PERM WRITE ERROR COUNT           IE718000
000012                             5715+UCBNB    DS    FL1 -                   NOISE BLOCK COUNT                IE719000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  155


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000013                             5716+UCBMS    DS    CL1 -                   MODE SET OPERATION CODE FOR DATA IE720000
                                   5717+*                                      BLOCKS ON 3420            ICB394 IE721000

000014                             5718+UCBERG   DS    H -                     ERASE GAP COUNT                  IE722000
000016                             5719+UCBCLN   DS    H -                     CLEANER ACTION COUNT             IE723000

                                   5720+*                                                                       IE724000

                                   5721+*********************************************************************** IE725000
                                   5722+*                                                                       IE726000
                                   5723+*             TAPE CARTRIDGE READER (2495)                              IE727000
                                   5724+*             UCB EXTENSION                                             IE728000
                                   5725+*                                                                       IE729000
000000                             5726+UCBTCR   DSECT ,                       UCBCRWKA -> UCBTCR               IE730000
                                   5727+*                                                                       IE731000
                                   5728+*********************************************************************** IE732000
                                   5729+*                                                                       IE733000
000000                             5730+UCBTCERP DS    0CL24 -                 ERROR RECOVERY CHANNEL PROGRAM   IE734000
000000                             5731+UCBRCCW1 DS    D -                     RETRY CCW 1                      IE735000
000008                             5732+UCBRCCW2 DS    D -                     RETRY CCW 2                      IE736000

000010                             5733+UCBRCCW3 DS    D -                     RETRY CCW 3                      IE737000
000018                             5734+UCBCSWSA DS    CL8 -                   CSW SAVE AREA                    IE738000
                                   5735+*                                                                       IE739000

                                   5736+*********************************************************************** IE740000
                                   5737+*                                                                       IE741000
                                   5738+*            OPTICAL READER (1285, 1287, 1288)                          IE742000
                                   5739+*            UCB EXTENSION                                              IE743000
                                   5740+*                                                                       IE744000
000000                             5741+UCBOR    DSECT ,                       UCBCRWKA -> UCBOR                IE745000
                                   5742+*                                                                       IE746000
                                   5743+*********************************************************************** IE747000
                                   5744+*                                                                       IE748000
000000                             5745+UCBCRDDC DS    FL1 -                   DATA CHECK ERROR COUNT           IE749000
000001                             5746+UCBCRILC DS    FL1 -                   INCORRECT LENGTH ERROR COUNT     IE750000
000002                             5747+UCBCRECC DS    FL1 -                   EQUIPMENT CHECK ERROR COUNT      IE751000

000003                             5748+         DS    CL5 -                   RESERVED                         IE752000
                                   5749+*                                                                       IE753000
                                   5750+*********************************************************************** IE754000
                                   5751+*                                                                       IE755000

                                   5752+*              UNIT RECORD WITH                                         IE756000
                                   5753+*              UNIVERSAL CHARACTER SET (1403, 3211)                     IE757000
                                   5754+*              UCB EXTENSION                                            IE758000
                                   5755+*                                                                       IE759000
000000                             5756+UCBUCS   DSECT ,                       UCBXTADR -> UCBUCS               IE760000
                                   5757+*                                                                       IE761000

                                   5758+*********************************************************************** IE762000
                                   5759+*                                                                       IE763000
000000                             5760+UCBUCSID DS    CL4 -                   ID OF UCS IMAGE IN BUFFER        IE764000
000004                             5761+UCBUCSOP DS    B -                     FORMAT OF UCS IMAGE IN BUFFER    IE765000
                                   5762+*                                        (O FOR OPTION)                 IE766000
                            00080  5763+UCBUCSO1 EQU   X'80' -                 DEFAULT IMAGE                    IE767000
                            00040  5764+UCBUCSO2 EQU   X'40' -                 FOLD MODE                        IE768000
                            00020  5765+UCBRSV39 EQU   X'20',,C'X' -           RESERVED                         IE769000

                            00010  5766+UCBRSV40 EQU   X'10',,C'X' -           RESERVED                         IE770000
                            00008  5767+UCBRSV41 EQU   X'08',,C'X' -           RESERVED                         IE771000

                            00004  5768+UCBRSV42 EQU   X'04',,C'X' -           RESERVED                         IE772000
                            00002  5769+UCBRSV43 EQU   X'02',,C'X' -           RESERVED                         IE773000
                            00001  5770+UCBUCSPE EQU   X'01' -                 IMAGE HAS PARITY ERROR (3211)    IE774000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  156


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000005                             5771+UCBFCBOP DS    B -                     RESERVED (1403) OR FLAGS (3211)  IE775000
                                   5772+*                                        (O FOR OPTION)                 IE776000
                            00080  5773+UCBFCBO1 EQU   X'80' -                 FCB DEFAULT IMAGE                IE777000

                            00040  5774+UCBRSV44 EQU   X'40',,C'X' -           RESERVED                         IE778000
                            00020  5775+UCBRSV45 EQU   X'20',,C'X' -           RESERVED                         IE779000
                            00010  5776+UCBRSV46 EQU   X'10',,C'X' -           RESERVED                         IE780000
                            00008  5777+UCBRSV47 EQU   X'08',,C'X' -           RESERVED                         IE781000
                            00004  5778+UCBRSV48 EQU   X'04',,C'X' -           RESERVED                         IE782000

                            00002  5779+UCBRSV49 EQU   X'02',,C'X' -           RESERVED                         IE783000
                            00001  5780+UCBRSV50 EQU   X'01',,C'X' -           RESERVED                         IE784000
000006                             5781+UCBRSV51 DS    X -                     RESERVED                         IE785000

000007                             5782+UCBERCNT DS    FL1 -                   COUNT OF ERRORS THAT HAVE        IE786000
                                   5783+*                                      OCCURRED (3211)                  IE787000
000008                             5784+UCBFCBID DS    CL4 -                   FCB IMAGE ID                     IE788000
00000C                             5785+UCBERADR DS    0A -                    ADDRESS OF ERP LOGOUT AREA       IE789000
                                   5786+*                                                                XM6168 IE790000
00000C                             5787+UCBDCBNR DS    FL1 -                   COUNT OF DCB'S USING THIS DEVICE IE791000
                                   5788+*                                                                XM6168 IE792000

00000D                             5789+UCBERADD DS    AL3 -                   ADDRESS OF ERP LOGOUT AREA       IE793000
                                   5790+*                                                                XM6168 IE794000
                                   5791+*                                                                       IE795000
                                   5792+*********************************************************************** IE796000
                                   5793+*                                                                       IE797000

                                   5794+*              3211 SENSE INFORMATION UCB EXTENSION                     IE798000
                                   5795+*                                                                       IE799000
                                   5796+*        THIS EXTENSION IS POINTED TO BY THE UCBSNADR FIELD OF THE      IE800000
                                   5797+*        UCB AND IS NOT CONTIGUOUS TO THE UCB.                          IE801000

                                   5798+*                                                                       IE802000
000000                             5799+UCBSNINF DSECT ,                                                        IE803000
                                   5800+*                                                                       IE804000
                                   5801+*********************************************************************** IE805000
                                   5802+*                                                                       IE806000
000000                             5803+UCBSNSXT DS    CL6 -                   SENSE INFORMATION                IE807000

000006                             5804+UCBRSV52 DS    XL2 -                   RESERVED                         IE808000
                                   5805+*                                                                       IE809000
                                   5806+*********************************************************************** IE810000
                                   5807+*                                                                       IE811000
                                   5808+*       MODEL 65 MULTIPROCESSING UCB PREFIX                             IE812000

                                   5809+*                                                                       IE813000
000000                             5810+UCBM65MP DSECT , -                     UCBPTR-4 IF MP65                 IE814000
                                   5811+*                                                                       IE815000
                                   5812+*********************************************************************** IE816000
                                   5813+*                                                                       IE817000

000000                             5814+UCBFL3   DS    B -                     M65MP FLAGS                      IE818000
                            00080  5815+UCBACU   EQU   X'80' -                 ALTERNATE CONTROL UNITS EXIST    IE819000
                            00020  5816+UCBHIOB  EQU   X'20' -                 CPU B TO USE HIO                 IE820000
                            00010  5817+UCBHIOA  EQU   X'10' -                 CPU A TO USE HIO                 IE821000
                            00008  5818+UCBSIOB  EQU   X'08' -                 CPU B ISSUED LAST SIO            IE822000

                            00002  5819+UCBNOB   EQU   X'02' -                 NO PATH TO CPU B                 IE823000
                            00001  5820+UCBNOA   EQU   X'01' -                 NO PATH TO CPU A                 IE824000
000001                             5821+         DS    CL2 -                   RESERVED                         IE825000
000003                             5822+UCBMPFLG DS    B -                     FLAGS                            IE826000
                            00002  5823+UCBPROC  EQU   X'02' -                 USED BY PROCESSING PROGRAMS      IE827000

                            00001  5824+UCBIPL   EQU   X'01' -                 DEVICE OFFLINE AT IPL            IE828000
                                   5825+*                                                                       IE829000
BR1      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE  157


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5826+*********************************************************************** IE830000
                                   5827+*                                                                       IE831000

                                   5828+*              U N I T   C O N T R O L   B L O C K                      IE832000
                                   5829+*                                                                       IE833000
                                   5830+*********************************************************************** IE834000
                                   5831+*                                                                       IE835000

                                   5832+         POP   PRINT                                                    IE836000


000002                             5834+HASPBR1  CSECT                     END UNIT CONTROL BLOCK DSECT         UC016000
BR1      HASP INPUT PROCESSOR PCE WORK AREA FORMAT                                                             PAGE  158


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   5837+*****************************************************                   RW014000
                                   5838+*   RDRDCT   *            *            *            *                   RW016000
                                   5839+*   RCARDID  *                                      *                   RW018000
                                   5840+* CARD IDENT *         ADDRESS OF INPUT DCT         *                   RW020000
                                   5841+*    BYTE    *            *            *            *                   RW022000

                                   5842+*****************************************************                   RW024000
                                   5843+*   RDADCT   *            *            *            *                   RW026000
                                   5844+*   RDRSW    *                                      *                   RW028000

                                   5845+*   READER   *     ADDRESS OF DIRECT-ACCESS DCT     *                   RW030000
                                   5846+*  SWITCHES  *            *            *            *                   RW032000
                                   5847+*****************************************************                   RW034000
                                   5848+*   RBIEND   *            *            *            *                   RW036000
                                   5849+*                                                   *                   RW038000

                                   5850+*       ADDRESS OF LAST CARD IN INPUT BUFFER        *                   RW040000
                                   5851+*            *            *            *            *                   RW042000
                                   5852+*****************************************************                   RW044000
                                   5853+*   RBONEXT  *            *            *            *                   RW046000
                                   5854+*                                                   *                   RW048000
                                   5855+*       ADDRESS OF NEXT CARD IN OUTPUT BUFFER       *                   RW050000
                                   5856+*            *            *            *            *                   RW052000

                                   5857+*****************************************************                   RW054000
                                   5858+*   RBOEND   *            *            *            *                   RW056000
                                   5859+*                                                   *                   RW058000

                                   5860+*          ADDRESS OF END OF OUTPUT BUFFER          *                   RW060000
                                   5861+*            *            *            *            *                   RW062000
                                   5862+*****************************************************                   RW064000
                                   5863+*   RLSAVE1  *            *            *            *                   RW066000
                                   5864+*                                                   *                   RW068000

                                   5865+*             LINK REGISTER SAVE WORD 1             *                   RW070000
                                   5866+*            *            *            *            *                   RW072000
                                   5867+*****************************************************                   RW074000
                                   5868+*   RLSAVE2  *            *            *            *                   RW076000
                                   5869+*                                                   *                   RW078000
                                   5870+*             LINK REGISTER SAVE WORD 2             *                   RW080000
                                   5871+*            *            *            *            *                   RW082000
                                   5872+*****************************************************                   RW084000

                                   5873+*   RLSAVE3  *            *            *            *                   RW086000
                                   5874+*                                                   *                   RW088000

                                   5875+*             LINK REGISTER SAVE WORD 3             *                   RW090000
                                   5876+*            *            *            *            *                   RW092000
                                   5877+*****************************************************                   RW094000
BR1      HASP INPUT PROCESSOR PCE WORK AREA FORMAT (CONTINUED)                                                 PAGE  159


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   5880+*****************************************************                   RW100000
                                   5881+*   RSAVE1   *            *            *            *                   RW102000
                                   5882+*                                                   *                   RW104000
                                   5883+*            GENERAL PURPOSE SAVE WORD 1            *                   RW106000
                                   5884+*            *            *            *            *                   RW108000
                                   5885+*****************************************************                   RW110000
                                   5886+*   RSAVE2   *            *            *            *                   RW112000

                                   5887+*                                                   *                   RW114000

                                   5888+*            GENERAL PURPOSE SAVE WORD 2            *                   RW116000
                                   5889+*            *            *            *            *                   RW118000
                                   5890+*****************************************************                   RW120000
                                   5891+*   RJCLTRAK *            *            *            *                   RW122000
                                   5892+*                                                   *                   RW124000

                                   5893+*          TRACK ADDRESS OF NEXT JCL BLOCK          *                   RW126000
                                   5894+*            *            *            *            *                   RW128000
                                   5895+*****************************************************                   RW130000
                                   5896+*   RMESSAGE *            *            *            *                   RW132000
                                   5897+*                                                   *                   RW134000
                                   5898+*                READER MESSAGE AREA                *                   RW136000
                                   5899+*            *            *            *            *                   RW138000
                                   5900+*****************************************************                   RW140000
                                   5901+*            *            *            *            *                   RW142000
                                   5902+*                                                   *                   RW144000

                                   5903+*          READER MESSAGE AREA (CONTINUED)          *                   RW146000

                                   5904+*            *            *            *            *                   RW148000
                                   5905+*****************************************************                   RW150000
                                   5906+*            *            *            *            *                   RW152000
                                   5907+*                                                   *                   RW154000

                                   5908+*          READER MESSAGE AREA (CONTINUED)          *                   RW156000
                                   5909+*            *            *            *            *                   RW158000
                                   5910+*****************************************************                   RW160000
                                   5911+*            *            *            *            *                   RW162000
                                   5912+*                                                   *                   RW164000
                                   5913+*          READER MESSAGE AREA (CONTINUED)          *                   RW166000
                                   5914+*            *            *            *            *                   RW168000
                                   5915+*****************************************************                   RW170000
                                   5916+*            *            *            *            *                   RW172000
                                   5917+*                                                   *                   RW174000
                                   5918+*          READER MESSAGE AREA (CONTINUED)          *                   RW176000

                                   5919+*            *            *            *            *                   RW178000
                                   5920+*****************************************************                   RW180000
BR1      HASP INPUT PROCESSOR PCE WORK AREA FORMAT (CONTINUED)                                                 PAGE  160


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   5923+*****************************************************                   RW186000
                                   5924+*            *            *            *            *                   RW188000
                                   5925+*                                                   *                   RW190000
                                   5926+*          READER MESSAGE AREA (CONTINUED)          *                   RW192000
                                   5927+*            *            *            *            *                   RW194000
                                   5928+*****************************************************                   RW196000
                                   5929+*            *            *            *            *                   RW198000
                                   5930+*                                                   *                   RW200000
                                   5931+*          READER MESSAGE AREA (CONTINUED)          *                   RW202000
                                   5932+*            *            *            *            *                   RW204000

                                   5933+*****************************************************                   RW206000
                                   5934+*            *            *            *            *                   RW208000
                                   5935+*                                                   *                   RW210000

                                   5936+*          READER MESSAGE AREA (CONTINUED)          *                   RW212000
                                   5937+*            *            *            *            *                   RW214000
                                   5938+*****************************************************                   RW216000
                                   5939+*            *            *            *            *                   RW218000
                                   5940+*                                                   *                   RW220000
                                   5941+*          READER MESSAGE AREA (CONTINUED)          *                   RW222000
                                   5942+*            *            *            *            *                   RW224000
                                   5943+*****************************************************                   RW226000
                                   5944+*            *            *            *            *                   RW228000
                                   5945+*                                                   *                   RW230000
                                   5946+*          READER MESSAGE AREA (CONTINUED)          *                   RW232000
                                   5947+*            *            *            *            *                   RW234000

                                   5948+*****************************************************                   RW236000

                                   5949+*            *            *            *            *                   RW238000
                                   5950+*                                                   *                   RW240000

                                   5951+*          READER MESSAGE AREA (CONTINUED)          *                   RW242000
                                   5952+*            *            *            *            *                   RW244000
                                   5953+*****************************************************                   RW246000
                                   5954+*            *            *            *            *                   RW248000
                                   5955+*                                                   *                   RW250000
                                   5956+*          READER MESSAGE AREA (CONTINUED)          *                   RW252000
                                   5957+*            *            *            *            *                   RW254000
                                   5958+*****************************************************                   RW256000
                                   5959+*            *            *            *            *                   RW258000
                                   5960+*                                                   *                   RW260000
                                   5961+*          READER MESSAGE AREA (CONTINUED)          *                   RW262000
                                   5962+*            *            *            *            *                   RW264000

                                   5963+*****************************************************                   RW266000
BR1      HASP INPUT PROCESSOR PCE WORK AREA FORMAT (CONTINUED)                                                 PAGE  161



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   5966+*****************************************************                   RW272000
                                   5967+*   RJOB     *            *            *            *                   RW274000
                                   5968+*                                                   *                   RW276000
                                   5969+*            ADDRESS OF JOB QUEUE ENTRY             *                   RW278000
                                   5970+*            *            *            *            *                   RW280000
                                   5971+*****************************************************                   RW282000
                                   5972+*   RPRIORTY *   RMSGCLAS *   RDRDLM   *            *                   RW314000
                                   5973+*            *            *                         *                   RW316000
                                   5974+*  PRIORITY  *  MSGCLASS  *   DATA SET DELIMITER    *                   RW318000
                                   5975+* CHARACTER  *            *            *            *                   RW320000

                                   5976+*****************************************************                   RW322000
                                   5977+*   RTPCARD  *            *            *            *                   RW562000
                                   5978+*                                                   *                   RW564000

                                   5979+*            80-BYTE RJE CARD IMAGE AREA            *                   RW566000
                                   5980+*            *            *            *            *                   RW568000
                                   5981+*****************************************************                   RW570000
BR1      HASP INPUT PROCESSOR PCE WORK AREA DSECT                                                              PAGE  162


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000058                             5983+PCEDSECT DSECT                     HASP INPUT PROCESSOR                 RW574000
000058                      00058  5984+         ORG   PCEWORK              PCE WORK AREA DSECT                 RW576000
000058                             5985+RCARDID  DS    0C                  CARD IDENTIFICATION BYTE             RW578000
000058                             5986+RDRDCT   DS    F                   ADDRESS OF INPUT DCT                 RW580000
00005C                             5987+RDRSW    DS    0C                  READER SWITCHES                      RW582000
00005C                             5988+RDADCT   DS    F                   ADDRESS OF DIRECT-ACCESS DCT         RW584000
000060                             5989+RBIEND   DS    F                   ADDRESS OF LAST CARD IN INPUT BUFFER RW586000

000064                             5990+RBONEXT  DS    F                   ADDR OF NEXT CARD IN OUTPUT BUFFER   RW588000
000068                             5991+RBOEND   DS    F                   ADDRESS OF END OF OUTPUT BUFFER      RW590000
00006C                             5992+RLSAVE1  DS    F                   LINK REGISTER SAVE WORD 1            RW592000
000070                             5993+RLSAVE2  DS    F                   LINK REGISTER SAVE WORD 2            RW594000

000074                             5994+RLSAVE3  DS    F                   LINK REGISTER SAVE WORD 3            RW596000
000078                             5995+RSAVE1   DS    F                   GENERAL PURPOSE SAVE WORD 1          RW598000
00007C                             5996+RSAVE2   DS    F                   GENERAL PURPOSE SAVE WORD 2          RW600000
000080                             5997+RJCLTRAK DS    F                   TRACK ADDRESS OF NEXT JCL BLOCK      RW602000
000084                             5998+RMESSAGE DS    CL52                READER MESSAGE AREA                  RW604000
0000B8                             5999+RJOB     DS    F                   ADDRESS OF JOB QUEUE ENTRY           RW606000

0000BC                             6000+RPRIORTY DS    C                   CHARACTER FROM /*PRIORITY CARD       RW628000
0000BD                             6001+RMSGCLAS DS    C                   MSGCLASS FROM JOB CARD               RW630000
0000BE                             6002+RDRDLM   DS    CL2                 INPUT DATA SET DELIMITER             RW632000
                            00068  6003+RDRPCEWS EQU   *-PCEWORK           LENGTH OF NORMAL INPUT PCE WORK AREA RW676000
0000C0                             6004+RTPCARD  DS    CL80                RJE INPUT CARD IMAGE                 RW678000
                            000B8  6005+RJEPCEWS EQU   *-PCEWORK           LENGTH OF RJE INPUT PCE WORK AREA    RW680000
000002                             6006+HASPBR1  CSECT                     END OF INPUT PCE WORK AREA DSECT     RW682000
BR1      HASP EXECUTION PROCESSOR PCE WORK AREA FORMAT                                                         PAGE  163



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   6009+*****************************************************                   XW012000
                                   6010+*   XPCESTAT *   XSYNCFLG *   XPCESTEP *            *                   XW014000
                                   6011+*            *            *                         *                   XW016000
                                   6012+* PCE STATUS * SYN ACTION *   CURRENT STEP NUMBER   *                   XW018000
                                   6013+*    BYTE    *   FLAGS    *            *            *                   XW020000
                                   6014+*****************************************************                   XW020250
                                   6015+*   XPCEOUTC *            *            *            *                   XW020500

                                   6016+*                                                   *                   XW020750
                                   6017+*          POINTER TO /*OUTPUT CARD BUFFER          *                   XW021000
                                   6018+*            *            *            *            *                   XW021500
                                   6019+*****************************************************                   XW022000
                                   6020+*   XPCEJST  *            *            *            *                   XW024000

                                   6021+*                                                   *                   XW026000
                                   6022+*        ADDRESS OF USER TASK CONTROL BLOCK         *                   XW028000
                                   6023+*            *            *            *            *                   XW030000

                                   6024+*****************************************************                   XW032000
                                   6025+*   XPCEJOB  *            *            *            *                   XW034000
                                   6026+*                                                   *                   XW036000
                                   6027+*            ADDRESS OF JOB QUEUE ENTRY             *                   XW038000
                                   6028+*            *            *            *            *                   XW040000
                                   6029+*****************************************************                   XW042000
                                   6030+*   XPCEIOT  *            *            *            *                   XW044000

                                   6031+*                                                   *                   XW046000
                                   6032+*               ADDRESS OF FIRST IOT                *                   XW048000
                                   6033+*            *            *            *            *                   XW050000
                                   6034+*****************************************************                   XW052000
                                   6035+*   XPCEJOBN *            *            *            *                   XW054000

                                   6036+*                                                   *                   XW056000
                                   6037+*                     JOB NAME                      *                   XW058000
                                   6038+*            *            *            *            *                   XW060000
                                   6039+*****************************************************                   XW062000

                                   6040+*            *            *            *            *                   XW064000
                                   6041+*                                                   *                   XW066000
                                   6042+*               JOB NAME (CONTINUED)                *                   XW068000
                                   6043+*            *            *            *            *                   XW070000
                                   6044+*****************************************************                   XW072000
                                   6045+*   XPCEDCT  *            *            *            *                   XW074000

                                   6046+*                                                   *                   XW076000
                                   6047+*           ADDRESS OF DIRECT-ACCESS DCT            *                   XW078000
                                   6048+*            *            *            *            *                   XW080000
                                   6049+*****************************************************                   XW082000
BR1      HASP EXECUTION PCE WORK AREA FORMAT (CONTINUED)                                                       PAGE  164



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   6052+*****************************************************                   XW083500
                                   6053+*   XPCEDDB  *            *            *            *                   XW084000

                                   6054+*                                                   *                   XW086000
                                   6055+*       START OF DATA DEFINITION TABLE CHAIN        *                   XW088000
                                   6056+*            *            *            *            *                   XW090000
                                   6057+*****************************************************                   XW092000
                                   6058+*   XPCEPRT  *            *            *            *                   XW140000

                                   6059+*                                                   *                   XW142000
                                   6060+*              PRINT INFORMATION TABLE              *                   XW144000
                                   6061+*            *            *            *            *                   XW146000
                                   6062+*****************************************************                   XW148000
                                   6063+*            *            *            *            *                   XW150000

                                   6064+*                                                   *                   XW152000
                                   6065+*        PRINT INFORMATION TABLE (CONTINUED)        *                   XW154000
                                   6066+*            *            *            *            *                   XW156000
                                   6067+*****************************************************                   XW158000
                                   6068+*            *            *            *            *                   XW160000

                                   6069+*                                                   *                   XW162000
                                   6070+*        PRINT INFORMATION TABLE (CONTINUED)        *                   XW164000
                                   6071+*            *            *            *            *                   XW166000
                                   6072+*****************************************************                   XW168000
                                   6073+*            *            *            *            *                   XW170000

                                   6074+*                                                   *                   XW172000
                                   6075+*        PRINT INFORMATION TABLE (CONTINUED)        *                   XW174000
                                   6076+*            *            *            *            *                   XW176000
                                   6077+*****************************************************                   XW178000
                                   6078+*   XPCEPUN  *            *            *            *                   XW186000

                                   6079+*                                                   *                   XW188000
                                   6080+*              PUNCH INFORMATION TABLE              *                   XW190000
                                   6081+*            *            *            *            *                   XW192000
                                   6082+*****************************************************                   XW194000
                                   6083+*            *            *            *            *                   XW196000
                                   6084+*                                                   *                   XW198000

                                   6085+*        PUNCH INFORMATION TABLE (CONTINUED)        *                   XW200000
                                   6086+*            *            *            *            *                   XW202000
                                   6087+*****************************************************                   XW204000
                                   6088+*            *            *            *            *                   XW206000

                                   6089+*                                                   *                   XW208000
                                   6090+*        PUNCH INFORMATION TABLE (CONTINUED)        *                   XW210000
                                   6091+*            *            *            *            *                   XW212000
                                   6092+*****************************************************                   XW214000
BR1      HASP EXECUTION PCE WORK AREA FORMAT (CONTINUED)                                                       PAGE  165



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   6095+*****************************************************                   XW215500
                                   6096+*            *            *            *            *                   XW216000
                                   6097+*                                                   *                   XW218000
                                   6098+*        PUNCH INFORMATION TABLE (CONTINUED)        *                   XW220000

                                   6099+*            *            *            *            *                   XW222000
                                   6100+*****************************************************                   XW224000
                                   6101+*   XPCEPIT  *            *            *            *                   XW226000

                                   6102+*                                                   *                   XW228000
                                   6103+*      ADDRESS OF PARTITION INFORMATION TABLE       *                   XW230000
                                   6104+*            *            *            *            *                   XW232000
                                   6105+*****************************************************                   XW234000
                                   6106+*   XSTQE    *            *            *            *                   XW236000

                                   6107+*                                                   *                   XW238000
                                   6108+*           EXECUTION TIMER QUEUE ELEMENT           *                   XW240000
                                   6109+*            *            *            *            *                   XW242000
                                   6110+*****************************************************                   XW244000
                                   6111+*            *            *            *            *                   XW246000
                                   6112+*                                                   *                   XW248000
                                   6113+*     EXECUTION TIMER QUEUE ELEMENT (CONTINUED)     *                   XW250000
                                   6114+*            *            *            *            *                   XW252000

                                   6115+*****************************************************                   XW254000
                                   6116+*            *            *            *            *                   XW256000

                                   6117+*                                                   *                   XW258000
                                   6118+*     EXECUTION TIMER QUEUE ELEMENT (CONTINUED)     *                   XW260000
                                   6119+*            *            *            *            *                   XW262000
                                   6120+*****************************************************                   XW264000
                                   6121+*   XXSTIME  *            *            *            *                   XW272000

                                   6122+*                                                   *                   XW274000
                                   6123+*          TIME ESTIMATE EXCESSION AMOUNT           *                   XW276000
                                   6124+*            *            *            *            *                   XW278000
                                   6125+*****************************************************                   XW280000
BR1      HASP EXECUTION PROCESSOR PCE WORK AREA DSECT                                                          PAGE  166


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000110                             6128+PCEDSECT DSECT                     HASP EXECUTION PROCESSOR             XW296000

000110                      00058  6129+         ORG   PCEWORK              PCE WORK AREA DSECT                 XW298000

000058                             6130+XPCESTAT DS    B                   PCE STATUS BYTE                      XW299000
                            00080  6131+XDUPBIT  EQU   X'80'               JOB WITH DUP NAME WAITING            XW299100
                            00040  6132+XEOJMES  EQU   X'40'               END-EXECUTION MESSAGE SENT           XW299200
                            00020  6133+XPOSTBIT EQU   X'20'               XTHAW SHOULD THAW XPCEJST            XW299300
                            00010  6134+XREXREQ  EQU   X'10'               REQUEUE FOR XEQ AT END XEQ           XW299400

                            00008  6135+XSYNCREQ EQU   X'08'               SYNCHRONOUS ACTION REQUIRED          XW299500
                            00004  6136+XOCRMES  EQU   X'04'               OCR-OVERFLOW MESSAGE SENT            XW299600
                            00002  6137+XPCERSV6 EQU   X'02'               RESERVED                             XW299700
                            00001  6138+XPCERSV7 EQU   X'01'               RESERVED                             XW299800
000059                             6139+XSYNCFLG DS    B                   SYNCHRONOUS ACTION FLAGS             XW299900
                            00080  6140+XEOJBIT  EQU   X'80'               TERMINATE JOB EXECUTION              XW300000
                            00040  6141+XALLOCWT EQU   X'40'               WRITE 'AWAITING ALLOCATION'          XW300100
                            00020  6142+XGETIOT  EQU   X'20'               GET ANOTHER IOT FOR RDR/INTRP        XW300200
                            00010  6143+XIOTWREQ EQU   X'10'               IOT CHECKPOINT REQUIRED              XW300300
                            00008  6144+XOUTCDBF EQU   X'08'               GET A /*OUTPUT CARD BUFFER           XW300400

                            00004  6145+XOCRMSG  EQU   X'04'               WRITE OCR OVERFLOW MESSAGE           XW300500

                            00002  6146+XSYNRSV6 EQU   X'02'               RESERVED                             XW300600
                            00001  6147+XSYNRSV7 EQU   X'01'               RESERVED                             XW300700
00005A                             6148+XPCESTEP DS    H                   CURRENT STEP NUMBER                  XW300800
00005C                             6149+XPCEOUTC DS    F                   POINTER TO /*OUTPUT CARD BUFFER      XW300900

000060                             6150+XPCEJST  DS    F                   ADDRESS OF USER TASK CONTROL BLOCK   XW302000
000064                             6151+XPCEJOB  DS    F                   ADDRESS OF JOB QUEUE ENTRY           XW304000
000068                             6152+XPCEIOT  DS    F                   ADDRESS OF FIRST IOT                 XW306000
00006C                             6153+XPCEJOBN DS    CL8                 JOB NAME                             XW308000
000074                             6154+XPCEDCT  DS    F                   ADDRESS OF DIRECT-ACCESS DCT         XW312000
000078                             6155+XPCEDDB  DS    F                   START OF DATA DEFINITION TABLE CHAIN XW314000
                            00000  6156+XOUTTOTL EQU   0                   TOTAL OUTPUT RECORDS                 XW318000
                            00004  6157+XOUTEST  EQU   4                   ESTIMATED OUTPUT RECORDS             XW320000
                            00008  6158+XOUTXCES EQU   8                   ESTIMATED EXCESSION AMOUNT           XW322000
                            0000C  6159+XOUTTYPE EQU   12                  OUTPUT RECORD TYPE (EBCDIC)          XW324000
                            00010  6160+XOUTENT  EQU   16                  OUTPUT INFORMATION TABLE LENGTH      XW326000

00007C                             6161+XPCEPRT  DS    CL(XOUTENT)         PRINT INFORMATION TABLE              XW328000
00008C                             6162+XPCEPUN  DS    CL(XOUTENT)         PUNCH INFORMATION TABLE              XW330000
00009C                             6163+XPCEPIT  DS    F                   ADDR OF PARTITION INFORMATION TABLE  XW332000
0000A0                             6164+XSTQE    DS    3F                  EXECUTION TIMER QUEUE ELEMENT        XW334000

0000AC                             6165+XXSTIME  DS    F                   TIME ESTIMATE EXCESSION AMOUNT       XW336000
                            00058  6166+XEQPCEWS EQU   *-PCEWORK           LENGTH OF EXECUTION PCE WORK AREA    XW340000
000002                             6167+HASPBR1  CSECT                     END OF EXECUTION PCE WORK AREA DSECT XW342000
BR1      HASP OUTPUT PROCESSOR EXECUTIVE PCE WORK AREA FORMAT                                                  PAGE  167


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   6170+*****************************************************                   OW012000
                                   6171+*   OPJQE    *            *            *            *                   OW014000
                                   6172+*                                                   *                   OW016000
                                   6173+*           ADDRESS OF JOB QUEUE ELEMENT            *                   OW018000
                                   6174+*            *            *            *            *                   OW020000

                                   6175+*****************************************************                   OW022000
                                   6176+*   OPDADCT  *            *            *            *                   OW024000
                                   6177+*                                                   *                   OW026000

                                   6178+*           ADDRESS OF DIRECT ACCESS DCT            *                   OW028000
                                   6179+*            *            *            *            *                   OW030000
                                   6180+*****************************************************                   OW032000
                                   6181+*   OPJCTBUF *            *            *            *                   OW034000
                                   6182+*                                                   *                   OW036000
                                   6183+*              WORK BUFFER QUEUE HEAD               *                   OW038000
                                   6184+*            *            *            *            *                   OW040000
                                   6185+*****************************************************                   OW042000
                                   6186+*   OPDDB    *            *            *            *                   OW044000
                                   6187+*                                                   *                   OW046000
                                   6188+*               RESTART PDDB POINTER                *                   OW048000
                                   6189+*            *            *            *            *                   OW050000

                                   6190+*****************************************************                   OW052000

                                   6191+*   OPTIMEON *            *            *            *                   OW054000
                                   6192+*                                                   *                   OW056000

                                   6193+*            OUTPUT PROCESSOR TIME/DATE             *                   OW058000
                                   6194+*            *            *            *            *                   OW060000
                                   6195+*****************************************************                   OW062000
                                   6196+*            *            *            *            *                   OW064000
                                   6197+*                                                   *                   OW066000
                                   6198+*         OUTPUT PROCESSOR TIME/DATE (CONT)         *                   OW068000
                                   6199+*            *            *            *            *                   OW070000
                                   6200+*****************************************************                   OW072000


                                   6202+*****************************************************                   OW076000
                                   6203+*   OPWORK   *            *            *            *                   OW078000
                                   6204+*            *         PROTOTYPE WORK - JOE         *                   OW080000

                                   6205+* (VARIABLE) *        SIZE = (JOESIZE) BYTES        *                   OW082000
                                   6206+*            *            *            *            *                   OW084000

                                   6207+*****************************************************                   OW086000

BR1      HASP OUTPUT PROCESSOR EXECUTIVE PCE WORK AREA FORMAT                                                  PAGE  168


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   6210+*****************************************************                   OW092000
                                   6211+*   OPCHAR   *            *            *            *                   OW094000
                                   6212+*            *         PROTOTYPE CHAR - JOE         *                   OW096000
                                   6213+* (VARIABLE) *        SIZE = (JOESIZE) BYTES        *                   OW098000
                                   6214+*            *            *            *            *                   OW100000
                                   6215+*****************************************************                   OW102000


                                   6217+*****************************************************                   OW106000

                                   6218+*   OPDBEND  *            *            *            *                   OW108000
                                   6219+*                                                   *                   OW110000
                                   6220+*            FIRST FREE PDDB SLOT IN IOT            *                   OW112000

                                   6221+*            *            *            *            *                   OW114000
                                   6222+*****************************************************                   OW116000
                                   6223+*   OPIOT    *            *            *            *                   OW118000
                                   6224+*                                                   *                   OW120000
                                   6225+*                RESTART IOT ADDRESS                *                   OW122000
                                   6226+*            *            *            *            *                   OW124000
                                   6227+*****************************************************                   OW126000
                                   6228+*   OPRECCT  *            *            *            *                   OW128000
                                   6229+*                                                   *                   OW130000
                                   6230+*           RECORD COUNT FOR CURRENT PDDB           *                   OW132000
                                   6231+*            *            *            *            *                   OW134000
                                   6232+*****************************************************                   OW136000

                                   6233+*   OPJOBFRM *            *            *            *                   OW138000
                                   6234+*                                                   *                   OW140000
                                   6235+*          JOB DEFAULT FORMS IDENTIFICATION         *                   OW142000
                                   6236+*            *            *            *            *                   OW144000

                                   6237+*****************************************************                   OW146000
                                   6238+*   OPJOBCPY *   OPMSGCLS *   OPCKPT   *            *                   OW148000
                                   6239+*            * JOB        *                         *                   OW150000
                                   6240+* COPY COUNT * MESSAGE    * INDEX TO JOE BEING BUILT*                   OW152000
                                   6241+*  FROM JCT  * CLASS      *            *            *                   OW154000
                                   6242+*****************************************************                   OW156000

                                   6243+*   OPCLASS  *            *            *            *                   OW158000
                                   6244+*  CLASS OF  *                                      *                   OW160000
                                   6245+* ACTIVE JOE *               (UNUSED)               *                   OW162000
                                   6246+*            *            *            *            *                   OW164000
                                   6247+*****************************************************                   OW166000
BR1      HASP OUTPUT PROCESSOR EXECUTIVE PCE WORK AREA DSECT                                                   PAGE  169


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0000B0                             6249+PCEDSECT DSECT                     HASP OUTPUT PROCESSOR EXECUTIVE      OW170000

0000B0                      00058  6250+         ORG   PCEWORK             PCE WORK AREA DSECT                  OW172000
000058                             6251+OPJQE    DS    F                                                        OW174000

00005C                             6252+OPDADCT  DS    F                                                        OW176000
000060                             6253+OPJCTBUF DS    F                                                        OW178000
000064                             6254+OPDDB    DS    F                   RESTART PDDB POINTER                 OW180000
000068                             6255+OPTIMEON DS    2F                  OUTPUT PROCESSOR TIME/DATE           OW182000
000070                             6256+OPWORK   DS    (JOESIZE)X          PROTOTYPE WORK-JOE                   OW184000
00008C                             6257+OPCHAR   DS    (JOESIZE)X          PROTOTYPE CHAR-JOE                   OW186000
0000A8                             6258+OPDBEND  DS    F                   1ST FREE PDDB SLOT IN IOT            OW188000
0000AC                             6259+OPIOT    DS    F                   RESTART IOT ADDRESS                  OW190000

0000B0                             6260+OPRECCT  DS    F                   RECORD COUNT FOR CURRENT PDDB        OW192000
0000B4                             6261+OPJOBFRM DS    F                   JOB DEFAULT FORMS ID                 OW194000
0000B8                             6262+OPJOBCPY DS    X                   JOB LEVEL COPY COUNT FROM JCT        OW196000
0000B9                             6263+OPMSGCLS DS    X                   JOB MESSAGE CLASS                    OW198000
0000BA                             6264+OPCKPT   DS    H                   INDEX TO JOE BEING BUILT             OW200000

0000BC                             6265+OPCLASS  DS    X                   CLASS OF ACTIVE JOE                  OW202000
                            00065  6266+OUTWKSIZ EQU   *-PCEWORK           LENGTH OF HOPE PCE WORK AREA         OW204000
000002                             6267+HASPBR1  CSECT                     END OF HOPE PCE WORK AREA DSECT      OW206000

BR1      HASP PRINT/PUNCH PROCESSOR PCE WORK AREA FORMAT                                                       PAGE  170


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   6270+*****************************************************                   PW014000
                                   6271+*   PDCT     *            *            *            *                   PW016000
                                   6272+*   PPFLAG   *                                      *                   PW018000

                                   6273+*PRINT/PUNCH *  ADDRESS OF PRINT/PUNCH/REMOTE DCT   *                   PW020000
                                   6274+*SYNCH FLAGS *            *            *            *                   PW022000
                                   6275+*****************************************************                   PW024000
                                   6276+*   PDADCT   *            *            *            *                   PW026000
                                   6277+*   PDCTFLAG *                                      *                   PW028000

                                   6278+* DCT FLAGS  *     ADDRESS OF DIRECT-ACCESS DCT     *                   PW030000
                                   6279+*            *            *            *            *                   PW032000
                                   6280+*****************************************************                   PW034000
                                   6281+*   PJOB     *            *            *            *                   PW036000

                                   6282+*                                                   *                   PW038000
                                   6283+*            ADDRESS OF JOB QUEUE ENTRY             *                   PW040000
                                   6284+*            *            *            *            *                   PW042000
                                   6285+*****************************************************                   PW044000
                                   6286+*   PRCHKPTE *            *            *            *                   PW046000
                                   6287+*                                                   *                   PW048000

                                   6288+*           ADDRESS OF CHECKPOINT ELEMENT           *                   PW050000
                                   6289+*            *            *            *            *                   PW052000
                                   6290+*****************************************************                   PW054000
                                   6291+*   PUERRPT  *            *            *            *                   PW056000
                                   6292+*                                                   *                   PW058000

                                   6293+*            ADDRESS OF PUNCH ERROR CCW             *                   PW060000
                                   6294+*            *            *            *            *                   PW062000
                                   6295+*****************************************************                   PW064000
                                   6296+*   PTIMEON  *            *            *            *                   PW066000

                                   6297+*                                                   *                   PW068000
                                   6298+*           PRINT/PUNCH SIGN-ON TIME/DATE           *                   PW070000
                                   6299+*            *            *            *            *                   PW072000
                                   6300+*****************************************************                   PW074000
                                   6301+*            *            *            *            *                   PW076000
                                   6302+*                                                   *                   PW078000

                                   6303+*     PRINT/PUNCH SIGN-ON TIME/DATE (CONTINUED)     *                   PW080000
                                   6304+*            *            *            *            *                   PW082000
                                   6305+*****************************************************                   PW084000
                                   6306+*   PBUFSAVE *            *            *            *                   PW086000
                                   6307+*                                                   *                   PW088000

                                   6308+*        ADDRESS OF NEXT PRINT/PUNCH BUFFER         *                   PW090000
                                   6309+*            *            *            *            *                   PW092000
                                   6310+*****************************************************                   PW094000
BR1      HASP PRINT/PUNCH PCE WORK AREA FORMAT (CONTINUED)                                                     PAGE  171


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   6313+*****************************************************                   PW100000
                                   6314+*   PCCWPT   *            *            *            *                   PW102000
                                   6315+*                                                   *                   PW104000

                                   6316+*                ADDRESS OF LAST CCW                *                   PW106000
                                   6317+*            *            *            *            *                   PW108000
                                   6318+*****************************************************                   PW110000
                                   6319+*   PCCWEND  *            *            *            *                   PW112000
                                   6320+*                                                   *                   PW114000

                                   6321+*           ADDRESS OF LAST POSSIBLE CCW            *                   PW116000
                                   6322+*            *            *            *            *                   PW118000
                                   6323+*****************************************************                   PW120000
                                   6324+*   PMESSAGE *            *            *            *                   PW122000
                                   6325+*                                                   *                   PW124000
                                   6326+*             PRINT/PUNCH MESSAGE AREA              *                   PW126000

                                   6327+*            *            *            *            *                   PW128000
                                   6328+*****************************************************                   PW130000
                                   6329+*            *            *            *            *                   PW132000
                                   6330+*                                                   *                   PW134000

                                   6331+*       PRINT/PUNCH MESSAGE AREA (CONTINUED)        *                   PW136000
                                   6332+*            *            *            *            *                   PW138000
                                   6333+*****************************************************                   PW140000





                                   6335+*       PRINT/PUNCH MESSAGE AREA (CONTINUED)                            PW144000




                                   6337+*****************************************************                   PW148000
                                   6338+*            *            *            *            *                   PW150000
                                   6339+*                                                   *                   PW152000
                                   6340+*       PRINT/PUNCH MESSAGE AREA (CONTINUED)        *                   PW154000

                                   6341+*            *            *            *            *                   PW156000
                                   6342+*****************************************************                   PW158000
                                   6343+*   PDDBSKIP *            *            *            *                   PW160000

                                   6344+*                         *                         *                   PW162000
                                   6345+* COUNT OF PAGES TO SKIP  *         (UNUSED)        *                   PW164000
                                   6346+*            *            *            *            *                   PW166000
                                   6347+*****************************************************                   PW168000
BR1      HASP PRINT/PUNCH PCE WORK AREA FORMAT (CONTINUED)                                                     PAGE  172



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   6350+*****************************************************                   PW174000
                                   6351+*   PPRCFLAG *   PPRCPYCT *   PCEEJRCB *            *                   PW176000
                                   6352+*            *            *                         *                   PW178000
                                   6353+* CHECKPOINT * CHECKPOINT *  LAST EJECT RCB DISPL   *                   PW180000
                                   6354+*   FLAGS    * COPY COUNT *            *            *                   PW182000

                                   6355+*****************************************************                   PW184000
                                   6356+*   PDDBDISP *            *   PDDBPGCT *            *                   PW186000

                                   6357+*                         *                         *                   PW188000
                                   6358+*   CURRENT PDDB DISPL    * CURRENT PDDB PAGE COUNT *                   PW190000
                                   6359+*            *            *            *            *                   PW192000
                                   6360+*****************************************************                   PW194000
                                   6361+*   PPLNCDCT *            *            *            *                   PW196000

                                   6362+*                                                   *                   PW198000
                                   6363+*            CURRENT LINE OR CARD COUNT             *                   PW200000
                                   6364+*            *            *            *            *                   PW202000
                                   6365+*****************************************************                   PW204000
                                   6366+*   PRPAGECT *            *            *            *                   PW206000
                                   6367+*                                                   *                   PW208000
                                   6368+*                CURRENT PAGE COUNT                 *                   PW210000
                                   6369+*            *            *            *            *                   PW212000
                                   6370+*****************************************************                   PW214000

                                   6371+*   PCEJMTTR *            *            *            *                   PW216000

                                   6372+*                                                   *                   PW218000
                                   6373+*              LAST EJECT BUFFER MTTR               *                   PW220000
                                   6374+*            *            *            *            *                   PW222000
                                   6375+*****************************************************                   PW224000
                                   6376+*   PCEIOTTR *            *            *            *                   PW226000

                                   6377+*                                                   *                   PW228000
                                   6378+*                CURRENT IOT MTTR                   *                   PW230000
                                   6379+*            *            *            *            *                   PW232000
                                   6380+*****************************************************                   PW234000
                                   6381+*   PDEVTYPE *            *            *            *                   PW236000
                                   6382+*   PBUFOPT  *                                      *                   PW238000
                                   6383+* BUFFERING  *       PRINT/PUNCH DEVICE TYPE        *                   PW240000
                                   6384+*   OPTION   *            *            *            *                   PW242000
                                   6385+*****************************************************                   PW244000
                                   6386+*   PLSAVE   *            *            *            *                   PW246000

                                   6387+*                                                   *                   PW248000

                                   6388+*              LINK REGISTER SAVE WORD              *                   PW250000
                                   6389+*            *            *            *            *                   PW252000
                                   6390+*****************************************************                   PW254000
BR1      HASP PRINT/PUNCH PCE WORK AREA FORMAT (CONTINUED)                                                     PAGE  173



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   6393+*****************************************************                   PW260000
                                   6394+*   PRLINECT *            *            *            *                   PW262000
                                   6395+*                                                   *                   PW264000
                                   6396+*              MAXIMUM LINES PER PAGE               *                   PW266000
                                   6397+*            *            *            *            *                   PW268000
                                   6398+*****************************************************                   PW270000
                                   6399+*   PWKJOE   *            *            *            *                   PW272000
                                   6400+*            *                                      *                   PW274000

                                   6401+*    CLASS   *         ADDRESS OF WORK-JOE          *                   PW276000
                                   6402+*            *            *            *            *                   PW278000
                                   6403+*****************************************************                   PW280000
                                   6404+*   PCHJOE   *            *            *            *                   PW282000

                                   6405+*                                                   *                   PW284000
                                   6406+*          ADDRESS OF CHARACTERISTICS JOE           *                   PW286000
                                   6407+*            *            *            *            *                   PW288000
                                   6408+*****************************************************                   PW290000
                                   6409+*   PCEFORM  *            *            *            *                   PW292000
                                   6410+*                                                   *                   PW294000
                                   6411+*              FORMS FOR CURRENT PDDB               *                   PW296000
                                   6412+*            *            *            *            *                   PW298000
                                   6413+*****************************************************                   PW300000
                                   6414+*   PCEFCB   *            *            *            *                   PW302000
                                   6415+*                                                   *                   PW304000
                                   6416+*               FCB FOR CURRENT PDDB                *                   PW306000

                                   6417+*            *            *            *            *                   PW308000
                                   6418+*****************************************************                   PW310000
                                   6419+*   PCEUCSB  *            *            *            *                   PW312000

                                   6420+*                                                   *                   PW314000
                                   6421+*               UCS FOR CURRENT PDDB                *                   PW316000
                                   6422+*            *            *            *            *                   PW318000
                                   6423+*****************************************************                   PW320000
                                   6424+*   PPJOBFRM *            *            *            *                   PW322000
                                   6425+*                                                   *                   PW324000
                                   6426+*                JOB DEFAULT FORMS ID               *                   PW326000
                                   6427+*            *            *            *            *                   PW328000
                                   6428+*****************************************************                   PW330000
                                   6429+*   PPRECCT  *            *            *            *                   PW332000
                                   6430+*                                                   *                   PW334000
                                   6431+*               MAXIMUM RECORD COUNT                *                   PW336000

                                   6432+*            *            *            *            *                   PW338000

                                   6433+*****************************************************                   PW340000
BR1      HASP PRINT/PUNCH PCE WORK AREA FORMAT (CONTINUED)                                                     PAGE  174



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   6436+*****************************************************                   PW346000
                                   6437+*   PPJCARDS *            *            *            *                   PW348000
                                   6438+*                                                   *                   PW350000
                                   6439+*                NUMBER OF CARDS READ               *                   PW352000
                                   6440+*            *            *            *            *                   PW354000
                                   6441+*****************************************************                   PW356000
                                   6442+*   PPJLINES *            *            *            *                   PW358000
                                   6443+*                                                   *                   PW360000
                                   6444+*               NUMBER OF SYSOUT LINES              *                   PW362000

                                   6445+*            *            *            *            *                   PW364000
                                   6446+*****************************************************                   PW366000

                                   6447+*   PPJPUNCH *            *            *            *                   PW368000

                                   6448+*                                                   *                   PW370000
                                   6449+*               NUMBER OF SYSOUT CARDS              *                   PW372000
                                   6450+*            *            *            *            *                   PW374000
                                   6451+*****************************************************                   PW376000
                                   6452+*   PPJXEQOF *            *            *            *                   PW378000
                                   6453+*                                                   *                   PW380000
                                   6454+*                 TIME OFF EXECUTION                *                   PW382000
                                   6455+*            *            *            *            *                   PW384000
                                   6456+*****************************************************                   PW386000
                                   6457+*   PPJXEQON *            *            *            *                   PW388000
                                   6458+*                                                   *                   PW390000
                                   6459+*                 TIME ON EXECUTION                 *                   PW392000

                                   6460+*            *            *            *            *                   PW394000
                                   6461+*****************************************************                   PW396000
                                   6462+*   PPJDSKEY *            *            *            *                   PW398000

                                   6463+*                                                   *                   PW400000
                                   6464+*           DATA SET BUFFER VALIDITY KEY            *                   PW402000
                                   6465+*            *            *            *            *                   PW404000
                                   6466+*****************************************************                   PW406000
                                   6467+*   PPJJOBEB *            *            *            *                   PW408000
                                   6468+*                                                   *                   PW410000
                                   6469+*                    JOB NUMBER                     *                   PW412000
                                   6470+*            *            *            *            *                   PW414000
                                   6471+*****************************************************                   PW416000
                                   6472+*   PPJROOMN *            *            *            *                   PW418000
                                   6473+*                                                   *                   PW420000
                                   6474+*                    ROOM NUMBER                    *                   PW422000

                                   6475+*            *            *            *            *                   PW424000
                                   6476+*****************************************************                   PW426000
BR1      HASP PRINT/PUNCH PCE WORK AREA FORMAT (CONTINUED)                                                     PAGE  175


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   6479+*****************************************************                   PW432000
                                   6480+*   PPJJNAME *            *            *            *                   PW434000
                                   6481+*                                                   *                   PW436000
                                   6482+*                     JOB NAME                      *                   PW438000

                                   6483+*            *            *            *            *                   PW440000
                                   6484+*****************************************************                   PW442000
                                   6485+*            *            *            *            *                   PW444000
                                   6486+*                                                   *                   PW446000
                                   6487+*               JOB NAME (CONTINUED)                *                   PW448000
                                   6488+*            *            *            *            *                   PW450000
                                   6489+*****************************************************                   PW452000
                                   6490+*   PPJPNAME *            *            *            *                   PW454000

                                   6491+*                                                   *                   PW456000
                                   6492+*                  PROGRAMMER NAME                  *                   PW458000

                                   6493+*            *            *            *            *                   PW460000
                                   6494+*****************************************************                   PW462000
                                   6495+*            *            *            *            *                   PW464000
                                   6496+*                                                   *                   PW466000
                                   6497+*            PROGRAMMER NAME (CONTINUED)            *                   PW468000
                                   6498+*            *            *            *            *                   PW470000
                                   6499+*****************************************************                   PW472000
                                   6500+*            *            *            *            *                   PW474000

                                   6501+*                                                   *                   PW476000
                                   6502+*            PROGRAMMER NAME (CONTINUED)            *                   PW478000
                                   6503+*            *            *            *            *                   PW480000
                                   6504+*****************************************************                   PW482000
                                   6505+*            *            *            *            *                   PW484000

                                   6506+*                                                   *                   PW486000
                                   6507+*            PROGRAMMER NAME (CONTINUED)            *                   PW488000
                                   6508+*            *            *            *            *                   PW490000
                                   6509+*****************************************************                   PW492000
                                   6510+*            *            *            *            *                   PW494000
                                   6511+*                                                   *                   PW496000
                                   6512+*            PROGRAMMER NAME (CONTINUED)            *                   PW498000
                                   6513+*            *            *            *            *                   PW500000
                                   6514+*****************************************************                   PW502000
                                   6515+*   PRINDEX  *   PPMSGCLS *   PPDSCPY  *   PPJNDS   *                   PW504000
                                   6516+*    2311    *     JOB    *  DATA SET  *  DATA SET  *                   PW506000
                                   6517+*   INDEX    *   MESSAGE  * COPY COUNT *  PER JOE   *                   PW508000

                                   6518+*   VALUE    *    CLASS   *            *  COUNTER   *                   PW510000
                                   6519+*****************************************************                   PW512000
BR1      HASP PRINT/PUNCH PCE WORK AREA FORMAT (CONTINUED)                                                     PAGE  176



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   6522+*****************************************************                   PW518000
                                   6523+*   PBSPTBL  *            *            *            *                   PW520000
                                   6524+*                                                   *                   PW522000
                                   6525+*          VARIABLE LENGTH BACKSPACE TABLE          *                   PW524000
                                   6526+*            *            *            *            *                   PW526000
                                   6527+*****************************************************                   PW528000
                                   6528+*   PCCWCHN  *            *            *            *                   PW530000

                                   6529+*                                                   *                   PW532000
                                   6530+*       VARIABLE LENGTH PRINT/PUNCH CCW CHAIN       *                   PW534000
                                   6531+*            *            *            *            *                   PW536000
                                   6532+*****************************************************                   PW538000
BR1      HASP PRINT/PUNCH PROCESSOR PCE WORK AREA DSECT                                                        PAGE  177



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






0000BD                             6535+PCEDSECT DSECT                     HASP PRINT/PUNCH PROCESSOR           PW544000

0000BD                      00058  6536+         ORG   PCEWORK              PCE WORK AREA DSECT                 PW546000
000058                             6537+PPFLAG   DS    0C                  PRINT/PUNCH SYNCHRONIZATION FLAGS    PW548000
000058                             6538+PDCT     DS    F                   ADDRESS OF PRINT/PUNCH/REMOTE DCT    PW550000
00005C                             6539+PDCTFLAG DS    0C                  PRINT/PUNCH/REMOTE DCT FLAGS         PW552000
00005C                             6540+PDADCT   DS    F                   ADDRESS OF DIRECT-ACCESS DCT         PW554000
000060                             6541+PJOB     DS    F                   ADDRESS OF JOB QUEUE ENTRY           PW556000

000064                             6542+PRCHKPTE DS    F                   ADDRESS OF CHECKPOINT ELEMENT        PW558000
000068                             6543+PUERRPT  DS    F                   ADDRESS OF PUNCH ERROR CCW           PW560000
00006C                             6544+PTIMEON  DS    2F                  PRINT/PUNCH SIGN-ON TIME/DATE        PW562000
000074                             6545+PBUFSAVE DS    F                   ADDRESS OF NEXT PRINT/PUNCH BUFFER   PW564000
000078                             6546+PCCWPT   DS    F                   ADDRESS OF LAST CCW                  PW566000

00007C                             6547+PCCWEND  DS    F                   ADDRESS OF LAST POSSIBLE CCW         PW568000
000080                             6548+PMESSAGE DS    CL40                MESSAGE WORK AREA                    PW570000
0000A8                             6549+PDDBSKIP DS    H                   COUNT OF PAGES TO SKIP               PW572000
0000AA                             6550+         DS    H                   UNUSED                               PW574000
0000AC                             6551+PPRCFLAG DS    C                   CHECKPOINT FLAGS                     PW576000

0000AD                             6552+PPRCPYCT DS    C                   COPY COUNT                           PW578000
0000AE                             6553+PCEEJRCB DS    H                   LAST EJECT RCB DISPLACEMENT          PW580000
0000B0                             6554+PDDBDISP DS    H                   CURRENT PDDB DISPLACEMENT            PW582000
0000B2                             6555+PDDBPGCT DS    H                   CURRENT PDDB PAGE COUNT              PW584000
0000B4                             6556+PPLNCDCT DS    F                   CURRENT LINE OR CARD COUNT           PW586000

0000B8                             6557+PRPAGECT DS    F                   CURRENT PAGE COUNT                   PW588000
0000BC                             6558+PCEJMTTR DS    F                   LAST EJECT BUFFER MTTR               PW590000
0000C0                             6559+PCEIOTTR DS    F                   CURRENT IOT MTTR                     PW592000
0000C4                             6560+PBUFOPT  DS    0C                  PRINT/PUNCH BUFFERING OPTION         PW594000
0000C4                             6561+PDEVTYPE DS    F                   PRINT/PUNCH DEVICE TYPE              PW596000

0000C8                             6562+PLSAVE   DS    F                   LINK REGISTER SAVE WORD              PW598000
0000CC                             6563+PLSAVE2  DS    F                   SECOND LINK REG SAVE WORD    OY04719 PW599000
0000D0                             6564+PLSAVE3  DS    F                   THIRD LINK REG SAVE WORD     OY07290 PW599500
0000D4                             6565+PRLINECT DS    F                   MAXIMUM LINES PER PAGE               PW600000
0000D8 00000000                    6566+PWKJOE   DC    F'0'                C'CLASS',AL3(WORK JOE)               PW602000
0000DC 00000000                    6567+PCHJOE   DC    F'0'                A(CHARACTERISTICS JOE)               PW604000

0000E0                             6568+PCEFORM  DS    F                   FORMS FOR CURRENT PDDB               PW606000
0000E4                             6569+PCEFCB   DS    F                   FCB   FOR CURRENT PDDB               PW608000
0000E8                             6570+PCEUCSB  DS    F                   UCSB  FOR CURRENT PDDB               PW610000
0000EC                             6571+PPJOBFRM DS    F                   JOB DEFAULT FORMS ID                 PW612000

0000F0                             6572+PPRECCT  DS    F                   MAXIMUM RECORD COUNT                 PW614000
0000F4                             6573+PPJCARDS DS    F                   NUMBER OF CARDS READ                 PW616000
0000F8                             6574+PPJLINES DS    F                   NUMBER OF SYSOUT PRINT RECORDS       PW618000
0000FC                             6575+PPJPUNCH DS    F                   NUMBER OF SYSOUT PUNCH RECORDS       PW620000
000100                             6576+PPJXEQOF DS    F                   TIME OFF EXECUTION                   PW622000

000104                             6577+PPJXEQON DS    F                   TIME ON EXECUTION                    PW624000
000108                             6578+PPJDSKEY DS    F                   DATA SET BUFFER VALIDITY KEY         PW626000
00010C                             6579+PPJJOBEB DS    CL(L'JCTJOBEB)      JOB NUMBER                           PW628000
000110                             6580+PPJROOMN DS    CL(L'JCTROOMN)      ROOM NUMBER                          PW630000
000114                             6581+PPJJNAME DS    CL(L'JCTJNAME)      JOB NAME                             PW632000
00011C                             6582+PPJPNAME DS    CL(L'JCTPNAME)      PROGRAMMER NAME                      PW634000
000130                             6583+PRINDEX  DS    X                   3211 INDEX VALUE                     PW636000

BR1      HASP PRINT/PUNCH PROCESSOR PCE WORK AREA DSECT                                                        PAGE  178


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000131                             6584+PPMSGCLS DS    X                   JOB MESSAGE CLASS                    PW638000

000132                             6585+PPDSCPY  DS    X                   DATA SET COPY COUNT                  PW640000
000133                             6586+PPJNDS   DS    X                   DATA SET PER JOE COUNTER             PW642000
000134                             6587+PBSPGCT  DS    H                   BSP PAGE COUNTER                     PW646000
000136                             6588+PBSPTBL  DS    CL(4*6)             BSP TABLE                            PW648000
                            000F6  6589+PRRPCEWS EQU   *-PCEWORK           LENGTH OF REMOTE PRINT PCE WORK AREA PW652000

                            000F6  6590+PURPCEWS EQU   *-PCEWORK           LENGTH OF REMOTE PUNCH PCE WORK AREA PW654000
000150                             6591+PCCWCHN  DS    (30+1)D                   PRINT CCW CHAIN                PW656000
                            001F0  6592+PRTPCEWS EQU   *-PCEWORK           LENGTH OF LOCAL PRINT PCE WORK AREA  PW658000
000248                      00150  6593+         ORG   PCCWCHN                                                  PW660000
000150                             6594+         DS    (30+2)D                   PUNCH CCW CHAIN                PW662000
                            001F8  6595+PUNPCEWS EQU   *-PCEWORK           LENGTH OF LOCAL PUNCH PCE WORK AREA  PW664000
000002                             6596+HASPBR1  CSECT                     END OF PRINT/PUNCH WORK AREA DSECT   PW666000






                                   6598 $DLENGTH $DLENGTH                  COMPUTE CONTROL SECTION LENGTH       B0054000

BR1      HASPBR1 CONTROL SECTION LENGTH                                                                        PAGE  179


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78












000008                             6601+         DS    0D                  FILL OUT CONTROL SECTION             DN016000
                            00008  6602+$L       EQU   *-HASPBR1                                                DN018000
                            00000  6603+$L1      EQU   $L/100000*100000              COMPUTE                    DN020000
                            00000  6604+$L2      EQU   ($L-$L1)/10000*10000            INTERMEDIATE             DN022000
                            00000  6605+$L3      EQU   ($L-$L1-$L2)/1000*1000            LENGTH                 DN024000
                            00000  6606+$L4      EQU   ($L-$L1-$L2-$L3)/100*100            VALUES               DN026000
                            00000  6607+$L5      EQU   ($L-$L1-$L2-$L3-$L4)/10*10                               DN028000
                            00008  6608+$L6      EQU   $L-$L1-$L2-$L3-$L4-$L5                                   DN030000







                                   6610+*                                                                       DN034000
                                   6611+*                                  DECIMAL LENGTH                       DN036000
                                   6612+*                                                                       DN038000




                            00008  6614+$DLENGTH EQU   $L1/100000*1048576+$L2/10000*65536+$L3/1000*4096+$L4/100CDN042000
                                       +               *256+$L5/10*16+$L6                                       DN044000





                                   6616          END                                                            B0056000
BR1                                               CROSS-REFERENCE                                              PAGE  180


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

$EXITNOP 00002 0000002C 00992  00987 00988
$IOTTEST 00001 00000722 03279  03280
$JCTTEST 00001 000005D0 03193  03194

$L       00001 00000008 06602  06603 06604 06605 06606 06607 06608

$L1      00001 00000000 06603  06604 06605 06606 06607 06608 06614
$L2      00001 00000000 06604  06605 06606 06607 06608 06614
$L3      00001 00000000 06605  06606 06607 06608 06614
$L4      00001 00000000 06606  06607 06608 06614

$L5      00001 00000000 06607  06608 06614
$L6      00001 00000008 06608  06614
$NUCTABL 00004 0000012C 01106  01111
$NUCTBLE 00004 0000015C 01135  01139
$SAVEBEG 00004 0000013C 01119  01128
$SAVEEND 00001 0000015C 01127  01128
BASE1    00001 0000000B 00300  00975
BUFDSECT 00001 00000000 01519  03086 03250
BUFSTART 00008 00000058 01558  01565 01571 03086 03250
CMBDSECT 00001 00000000 01626  01644 01645 01646
CMBFLAGS 00001 00000004 01628  01644

CMBMSG   00132 00000008 01633  01646
CMBMSGL  00001 00000006 01630  01645
CVTCRTTR 00003 000000B8 04021  04034
CVTUSER  00004 000000CC 04045  04046

CVTXTNT1 00001 00000114 04125  04098
DCBBIT0  00001 00000080 04233  04354 04370 04409 04427 04472 04482 04498 04539 04549 04561 04584 04615 04618 04620 04622
                               04645 04648 04668 04673 04692 04729 04782 04805 04837 04841 04854 04949 04952 04962
DCBBIT1  00001 00000040 04234  04355 04371 04428 04436 04472 04482 04500 04540 04550 04563 04585 04587 04597 04615 04618
                               04621 04622 04650 04668 04671 04673 04695 04696 04697 04732 04733 04782 04807 04843 04845
                               04857 04901 04949 04954 04963
DCBBIT2  00001 00000020 04235  04356 04372 04429 04438 04482 04501 04541 04551 04564 04566 04567 04585 04587 04592 04598
                               04615 04617 04624 04652 04675 04677 04700 04701 04702 04736 04737 04784 04810 04846 04862
                               04904 04908 04949 04964
DCBBIT3  00001 00000010 04236  04320 04357 04373 04443 04485 04502 04542 04564 04567 04569 04585 04600 04625 04655 04675
                               04679 04704 04705 04706 04740 04741 04784 04812 04814 04816 04848 04863 04904 04909 04949
DCBBIT4  00001 00000008 04237  04321 04374 04444 04488 04503 04543 04552 04601 04626 04656 04681 04687 04688 04709 04710

                               04744 04745 04747 04748 04786 04819 04864 04904 04910
DCBBIT5  00001 00000004 04238  04323 04375 04446 04489 04503 04544 04553 04602 04629 04631 04658 04681 04684 04685 04688
                               04713 04715 04716 04717 04751 04752 04753 04754 04786 04821 04824 04850 04866 04899

DCBBIT6  00001 00000002 04239  04325 04358 04376 04448 04490 04507 04545 04603 04605 04608 04629 04632 04659 04720 04721
                               04722 04723 04757 04758 04759 04760 04827 04868
DCBBIT7  00001 00000001 04240  04327 04359 04452 04492 04508 04546 04603 04606 04608 04634 04663 04725 04726 04763 04764
                               04766 04767 04852 04869 04911
DCBFDAD  00008 00000005 04254  04257
DCBSSID  00008 00000000 04461  04464
DCBWTOID 00004 00000000 04381  04396 04405
DDBCHAIN 00004 00000000 03421  03436
DDBEND   00001 00000024 03435  03436
DDBSTAT1 00001 00000008 03424  03425
HASPBR1  00001 00000000 00129  01155 01313 01573 01640 02394 02575 03195 03281 03323 03366 03437 03498 03616 03810 03857
                               04135 04181 04212 04219 04974 05000 05834 06006 06167 06267 06596 06602

HCTDSECT 00001 00000000 00973  00975

IHADCB   00001 00000000 04231  04279 04303 04331 04350 04380 04460 04521 04572 04641 04773 04790 04794 04800 04889 04895
                               04919 04940 04972

IOTJCTTR 00004 00000064 03255  03279
IOTPDDB  00004 000000D8 03260  03279
BR1                                               CROSS-REFERENCE                                              PAGE  181


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

JCT      00001 0000000A 00299  03085
JCTDSECT 00001 00000000 03084  03085
JCTEND   00001 00000230 03158  03193
JCTJMR   00056 000001F8 03139  03140
JCTJNAME 00008 00000070 03096  06581
JCTJOBEB 00004 0000006C 03095  06579
JCTJQE   00004 00000058 03087  03193
JCTPNAME 00020 00000078 03097  06582

JCTROOMN 00004 000000A0 03107  06580
JOEDSECT 00001 00000000 03765  03785 03798 03809

JOESIZE  00001 0000001C 03809  03854 06256 06257

JOTDSECT 00001 00000000 03845  03856
JSCDSECT 00001 00000000 04215  04216 04217 04218
OTBDSECT 00001 00000000 03359  03365
PCCWCHN  00008 00000150 06591  06593
PCEDSECT 00001 00000000 01282  01284 05983 06128 06249 06535
PCEWORK  00008 00000058 01312  05984 06003 06005 06129 06166 06250 06266 06536 06589 06590 06592 06595
PDBDSECT 00001 00000000 03567  03583 03595
PDBMISC1 00004 00000008 03605  03609
PDBMISC2 00004 00000008 03610  03614
PITCLASS 00001 00000008 03643  03644
R1       00001 00000001 00271  00130
R10      00001 0000000A 00280  00299

R11      00001 0000000B 00281  00300
R12      00001 0000000C 00282  00301
R13      00001 0000000D 00283  00302

R14      00001 0000000E 00284  00303 00993
R15      00001 0000000F 00285  00992 00992
R2       00001 00000002 00272  00291
R3       00001 00000003 00273  00292
R4       00001 00000004 00274  00293
R5       00001 00000005 00275  00294
R6       00001 00000006 00276  00295
R7       00001 00000007 00277  00296
R8       00001 00000008 00278  00297 00298
SAVE     00001 0000000D 00302  01284
SMFRSTRT 00001 0000001A 02238  02264 02320
SMFSSTRT 00001 00000020 02325  02334 02339 02351

SRTEASCI 00001 00000004 05394  05395
SRTEBSTR 00001 00000004 05393  05396
TEDDSECT 00001 00000000 03312  03322
UCBALOC  00001 00000008 05145  05263

UCBBALB  00001 00000020 05300  05390
UCBBJLB  00001 00000002 05308  05397
UCBBNUL  00001 00000001 05309  05398
UCBBPRV  00001 00000010 05304  05391
UCBBPUB  00001 00000008 05305  05392
UCBBSTR  00001 00000004 05306  05393 05394

UCBBSVL  00001 00000080 05294  05389
UCBCHGS  00001 00000040 05142  05260
UCBDADI  00001 00000001 05150  05266
UCBDBBNR 00002 00000038 05583  05619
UCBDCELL 00016 00000038 05581  05618
UCBDDMCT 00001 00000043 05609  05624
UCBDEV   00001 00000018 05273  05282 05409 05443 05459 05479 05561
BR1                                               CROSS-REFERENCE                                              PAGE  182



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78


UCBDJBNR 00001 00000042 05608  05623
UCBDMCT  00001 00000023 05312  05399
UCBDSTAB 00001 0000003A 05584  05620
UCBDSTAT 00001 0000003B 05596  05621
UCBDUSER 00001 00000047 05616  05626
UCBDVOLI 00006 0000003C 05607  05622
UCBDVTOC 00003 00000044 05615  05625
UCBFL1   00001 00000006 05158  05267
UCBFSCT  00002 00000024 05317  05400

UCBFSEQ  00002 00000026 05318  05401
UCBJBNR  00001 00000000 05107  05256
UCBMONT  00001 00000001 05117  05257
UCBONLI  00001 00000080 05141  05259
UCBPRES  00001 00000004 05146  05264

UCBRESV  00001 00000020 05143  05261
UCBSTAB  00001 00000022 05293  05388

UCBSTAT  00001 00000003 05140  05258
UCBSYSR  00001 00000002 05147  05265
UCBUNLD  00001 00000010 05144  05262
UCBUSER  00001 00000038 05369  05402 05575
UCBVOLI  00006 0000001C 05292  05387
XOUTENT  00001 00000010 06160  06161 06162
BR1                                               ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE  183


                                                                                                 ASM 0201 20.01 08/28/78


NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)

  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT         28

TOTAL RECORDS READ FROM SYSTEM LIBRARY     9095
TOTAL RECORDS PUNCHED                         3
TOTAL RECORDS PRINTED                      7161

COMM                                           EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.01 08/28/78

HASPCOMM  SD  0001 000000 00013C
$JOT      ER  0002
HA$QCOME  XD  0003 000007 000000
$CKPTPCE  ER  0004
$ALSTATB  ER  0005
$MLLMPCE  ER  0006
$PITABLE  ER  0007
$EXECPCE  ER  0008
$XTHPCE   ER  0009
$PWTRECB  LD       000104        0001

$PSMFECB  LD       000110        0001

$ACCTECB  LD       000118        0001
$WTOPECB  LD       00011C        0001

WTOTCBA   ER  000A
$WTOECB   ER  000B
WCNLSTBL  ER  000C
HA$OCOME  SD  000D 000140 0003F2
HA$ICOME  LD       000144        000D
HA$QCJB3  XD  000E 000007 000000
HA$QCJB1  XD  000F 000007 000000
HA$QCJB2  XD  0010 000007 000000
HA$QCDV1  XD  0011 000007 000000
HA$QCMS1  XD  0012 000007 000000
HA$QCJ1B  XD  0013 000007 000000
HA$QCSY1  XD  0014 000007 000000

HA$QCRM1  XD  0015 000007 000000
HA$QCRM2  XD  0016 000007 000000

HA$QCJB4  XD  0017 000007 000000

HA$QCSY2  XD  0018 000007 000000
HA$QCDV2  XD  0019 000007 000000
HA$QCJ3A  XD  001A 000007 000000
HA$QCSY3  XD  001B 000007 000000
HA$QCDV3  XD  001C 000007 000000
HA$OCJB1  SD  001D 000538 000367
HA$ICJB1  LD       000538        001D
HA$QCJ1A  XD  001E 000007 000000
HA$OCJ1A  SD  001F 0008A0 000382
HA$ICJ1A  LD       0008A0        001F
HA$OCJ1B  SD  0020 000C28 0003AC
HA$ICJ1B  LD       000C28        0020

HA$OCJB2  SD  0021 000FD8 0003DA
HA$ICJB2  LD       000FD8        0021
HA$OCJB4  SD  0022 0013B8 000314

HA$ICJB4  LD       0013B8        0022
HA$OCJB3  SD  0023 0016D0 000392
HA$ICJB3  LD       0016D0        0023
HA$OCJ3A  SD  0024 001A68 000358
HA$ICJ3A  LD       001A68        0024
HA$OCDV1  SD  0025 001DC0 00029B
HA$ICDV1  LD       001DC0        0025
HA$OCDV2  SD  0026 002060 000207
HA$ICDV2  LD       002060        0026
HA$OCDV3  SD  0027 002268 0004BA
HA$ICDV3  LD       002268        0027
HA$OCSY1  SD  0028 002728 000196

COMM                                           EXTERNAL SYMBOL DICTIONARY                                      PAGE    2


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.01 08/28/78

HA$ICSY1  LD       002728        0028
HA$OCSY2  SD  0029 0028C0 000306

HA$ICSY2  LD       0028C0        0029
HA$OCSY3  SD  002A 002BC8 000278
HA$ICSY3  LD       002BC8        002A
HA$OCMS1  SD  002B 002E40 000392
HA$ICMS1  LD       002E40        002B
HA$OCRM1  SD  002C 0031D8 0003E3

HA$ICRM1  LD       0031D8        002C
HA$OCRM2  SD  002D 0035C0 0002B2
HA$ICRM2  LD       0035C0        002D
$#CAN     ER  002E
$RDRPCE   ER  002F
XWARM     ER  0030
COMM                                                                                                           PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                      1 *                                                                  RFIT C0000000
                                      2 *                            KILL ALL 370 INSTRUCTIONS             RFIT C0000010

                                      3 *                                                                  RFIT C0000020
                                      4 MVCL     OPSYN ,                                                   RFIT C0000030
                                      5 CLCL     OPSYN ,                                                   RFIT C0000040
                                      6 SIOF     OPSYN ,                                                   RFIT C0000050
                                      7 HDV      OPSYN ,                                                   RFIT C0000070
                                      8 STNSM    OPSYN ,                                                   RFIT C0000080
                                      9 STOSM    OPSYN ,                                                   RFIT C0000090
                                     10 MC       OPSYN ,                                                   RFIT C0000110

                                     11 LRA      OPSYN ,                                                   RFIT C0000120
                                     12 STCTL    OPSYN ,                                                   RFIT C0000130
                                     13 LCTL     OPSYN ,                                                   RFIT C0000140
                                     14 CLM      OPSYN ,                                                   RFIT C0000180
                                     15 STCM     OPSYN ,                                                   RFIT C0000190

                                     16 ICM      OPSYN ,                                                   RFIT C0000200
                                     17 STIDP    OPSYN ,                                                   RFIT C0000210

                                     18 STIDC    OPSYN ,                                                   RFIT C0000220
                                     19 SCK      OPSYN ,                                                   RFIT C0000230
                                     20 STCK     OPSYN ,                                                   RFIT C0000240
                                     21 SCKC     OPSYN ,                                                   RFIT C0000250
                                     22 STCKC    OPSYN ,                                                   RFIT C0000260
                                     23 SPT      OPSYN ,                                                   RFIT C0000270
                                     24 STPT     OPSYN ,                                                   RFIT C0000280
                                     25 PTLB     OPSYN ,                                                   RFIT C0000310

                                     26 RRB      OPSYN ,                                                   RFIT C0000350
                                     27 SRP      OPSYN ,                                                   RFIT C0000360
COMM     HASP COMMAND PROCESSOR MACRO DEFINITIONS                                                              PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                     29          MACRO -- $COMWORK -- $COMMAND PROCESSOR WORK AREA OF PCEDSECT  C0004000

                                     30          $COMWORK &DOC=NO                                               C0006000
                                     31          GBLA  &JBNOLEN,&MAXRTE                                         C0008000
                                     32          AIF   ('&DOC' NE 'YES').A                                      C0010000

                                     33 .A TITLE 'HASP COMMAND PROCESSOR PCE WORK AREA DSECT'                   C0012000
                                     34          SPACE 5                                                        C0014000
                                     35 PCEDSECT DSECT                     COMMAND PROCESSOR WORK AREA          C0016000
                                     36          ORG   PCEWORK             BEGINNING OF WORK AREA               C0018000
                                     37          SPACE 1                                                        C0020000
                                     38 *        CONTROL ELEMENT FOR $WTO PROCESSING                            C0022000
                                     39          SPACE 1                                                        C0024000

                                     40 COMFLAGS DS    C                   NO JOB REQUIRED, NO CONVERSION       C0026000
                                     41 COMROUTE DS    C                   CURRENT CONSOLE                      C0028000
                                     42 COMLNGTH DS    C                   ZERO LENGTH RECORD                   C0030000
                                     43 COMCLASS DS    C                   CLASS AND PRIORITY                   C0032000
                                     44          SPACE 1                                                        C0034000

                                     45 *        FUNCTION WORK SPACE                                            C0036000
                                     46          SPACE 1                                                        C0038000
                                     47 COMEWORK DS    F                   SINGLE PRECISION WORK AREA           C0040000
                                     48 COMDWORK DS    D                   DOUBLE PRECISION WORK AREA           C0042000

                                     49          SPACE 1                                                        C0044000
                                     50 *        COMMAND TEXT AREA                                              C0046000
                                     51          SPACE 1                                                        C0048000
                                     52 COMMAND  DS    CL120               MESSAGE AREA                         C0050000
                                     53 COMVERB  EQU   COMMAND+1           LOCATION OF VERB WITHIN COMMAND      C0052000
                                     54 COMOPRND EQU   COMMAND+2           LOCATION OF FIRST OPERAND IN COMMAND C0054000

                                     55          SPACE 1                                                        C0056000
                                     56 *        OPERAND POINTER AREA                                           C0058000
                                     57          SPACE 1                                                        C0060000
                                     58 COMPNTER DS    5F                  AREA FOR OPERAND POINTERS            C0062000
                                     59 COMNULOP DS    F                   NULL OPERAND POINTER                 C0064000

                                     60 COMWKEND EQU   *                   END OF WORK AREA                     C0066000
                                     61 COMPCEWS EQU   *-PCEWORK           LENGTH OF COMMAND PROCESSOR WORK     C0068000
                                     62          SPACE 1                                                        C0070000
                                     63 *        COMMAND PROCESSOR DEFINITIONS -- BASE 2 SERVICES               C0072000
                                     64          SPACE 1                                                        C0074000

                                     65 CORTNORM EQU   0                   OFFSET FOR NORMAL RETURN             C0076000
                                     66 CORTOK   EQU   4                   OFFSET FOR RETURN WITH OK REPLY      C0078000
                                     67 CORTMSG  EQU   8                   OFFSET FOR RETURN WITH GENERAL REPLY C0080000
                                     68 COWTO    EQU   12                  GENERAL REPLY SURROUTINE, USE        C0082000
                                     69 *                                  ADDRESS COWTO(BASE2) TO REFERANCE    C0084000

                                     70          SPACE 1                                                        C0086000
                                     71 *        MISCELLANEOUS DEFINITIONS                                      C0088000
                                     72          SPACE 1                                                        C0090000
                                     73 COMJBLEN EQU   &JBNOLEN                   LENGTH OF JOB NUMBER TEXT     C0092000
                                     74 COMAXRTE EQU   &MAXRTE                   MAXIMUM ROUTING CODE           C0094000

                                     75 COMPAGE  EQU   1                   DEFAULT BACKSPACE PAGE COUNT         C0096000
                                     76          MEND                                                           C0098000
COMM     HASP COMMAND PROCESSOR MACRO DEFINITIONS                                                              PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                     78          MACRO -- $COMGRUP -- DEFINE GROUP OF COMMAND SUB-PROCESSORS    C0102000
                                     79 &NAME    $COMGRUP &A0,&A1,&A2,&A3,&A4,&A5,&A6,&A7,&A8,&A9,&AA,&AB,&AC, CC0104000

                                                       &AD,&AE,&AF,                                            CC0106000
                                                       &PRTY=0,&DELAY=NO                                        C0108000
                                     80          GBLA  &COMPRTY,&COMIPL,&LOW                                    C0110000
                                     81          LCLA  &A                                                       C0112000

                                     82 &NAME    $OVERLAY &PRTY,&LOW                                            C0114000
                                     83          AIF   (N'&SYSLIST LT 2).D                                      C0116000
                                     84          LH    R1,&NAME.(R1)       PICK UP TABLE OFFSET                 C0118000
                                     85 &A       SETA  0                                                        C0120000
                                     86          AIF   ('&DELAY' EQ 'NO').A                                     C0122000

                                     87          B     COF&SYSNDX             EXIT FOR DELAYED ENTRY            C0124000
                                     88          AGO   .B                                                       C0126000
                                     89 .A       B     &NAME.(R1)          GO TO ROUTINE SELECTED               C0128000
                                     90 .B       AIF   (&A GE N'&SYSLIST).C                                     C0130000
                                     91 &A       SETA  &A+1                                                     C0132000
                                     92 CO&SYSLIST(&A,1) DC AL2(C&SYSLIST(&A,1)-&NAME)                          C0134000
                                     93          AGO   .B                                                       C0136000

                                     94 .C       AIF   ('&DELAY' EQ 'NO').XIT                                   C0138000
                                     95 COF&SYSNDX DS  0H                  $BRR R1 TO ENTER ROUTINE             C0140000
                                     96          MEXIT                                                          C0142000

                                     97 .D       AIF   (N'&SYSLIST NE 1).XIT                                    C0144000
                                     98 CO&SYSLIST(1,1) EQU &NAME                                               C0146000
                                     99 .XIT     MEND                                                           C0146100





                                    101          MACRO -- $COMRESP -- REDIRECTED RESPONSE TABLE                 C0146300
                                    102 &N       $COMRESP ,                                                     C0146400
                                    103          GBLA  &NUMOSC                                                  C0146500
                                    104          LCLA  &T,&COMMNO                                               C0146600
                                    105 &COMMNO  SETA  9                                                        C0146700
                                    106 ******************************************************************      C0146800
                                    107 *                                                                       C0146900
                                    108 *        REDIRECTED RESPONSE TABLE                                      C0147000

                                    109 *                                                                       C0147100
                                    110 ******************************************************************      C0147200

                                    111 COMCONO  EQU   &NUMOSC                                                  C0147300
                                    112 COMOCON  DC    Y(COMCONO)          NUMBER OF CONSOLES                   C0147400
                                    113 COMCONL  EQU   2*&COMMNO                                                C0147500
                                    114 COMLCON  DC    Y(COMCONL)          LENGTH IN TABLE FOR CONSOLE          C0147600
                                    115 COMCON   EQU   0                   CONSOLE ID                           C0147700

                                    116 COMCONA  EQU   1                   AREA ID                              C0147800
                                    117 &N       DS    0C                                                       C0147900
                                    118 &T       SETA  0                                                        C0148000
                                    119 .A       ANOP                                                           C0148100
                                    120 &T       SETA  &T+1                                                     C0148200
                                    121          DC    &COMMNO.AL1(&T,0)                                        C0148300
                                    122          AIF   (&T LT &NUMOSC).A                                        C0148400
                                    123          MEND                                                           C0148500
COMM     HASP COMMAND PROCESSOR MACRO DEFINITIONS                                                              PAGE    6



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    125          MACRO -- $COMTAB -- DEFINE COMMAND TABLE ENTRY                 C0152000
                                    126 &NAME    $COMTAB &VERB,&GROUP,&REDIR=0,&REJECT=0                        C0154000
                                    127          LCLC  &C,&D                                                    C0156000
                                    128 &NAME    $OCON &GROUP                                                   C0158000
                                    129          DC    AL1(CO&VERB-&GROUP),AL1(&REDIR*16+&REJECT)               C0160000

                                    130          AIF   (K'&VERB LT 2).A                                         C0162000
                                    131          AIF   (K'&VERB EQ 3).B                                         C0164000
                                    132          DC    CL2'&VERB'                                               C0166000
                                    133          MEXIT                                                          C0168000
                                    134 .A       DC    CL1'&VERB',X'FF'                                         C0170000
                                    135          MEXIT                                                          C0172000
                                    136 .B       ANOP                                                           C0174000
                                    137 &C       SETC  '&VERB'(1,1)                                             C0176000
                                    138 &D       SETC  '&VERB'(2,2)                                             C0178000
                                    139          DC    CL1'&C',X'&D'                                            C0180000

                                    140          MEND                                                           C0182000

COMM     HASP COMMAND PROCESSOR MACRO DEFINITIONS                                                              PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    142          MACRO -- $CRET -- RETURN TO MAIN COMMAND PROCESSOR             C0186000
                                    143 &NAME    $CRET &D,&DD,&MSG=,&L=,&INFO=                                  C0188000

                                    144          GBLC  &DOC                                                     C0190000
                                    145          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C0192000
                                    146          EJECT                                                          C0194000
                                    147 *********************************************************************** C0196000
                                    148 *                                                                     * C0198000
                                    149 *        $CRET -- RETURN TO MAIN COMMAND PROCESSOR                    * C0200000
                                    150 *                                                                     * C0202000
                                    151 *        ROUTINE MAY ISSUE $WTO AND $WAIT AS DIRECTED BY CALLER       * C0204000
                                    152 *                                                                     * C0206000
                                    153 * REGISTERS USED                                                      * C0208000
                                    154 *        R0    = LENGTH OF MESSAGE IF RESPONSE REQUESTED, NOT MSG=OK  * C0210000

                                    155 *        R1    = MESSAGE ADDRESS -- COMMAND                           * C0212000
                                    156 *        R15   = RETURN CODE -- NO MESSAGE, OK, OR GENERAL MESSAGE    * C0214000
                                    157 *                                                                     * C0216000
                                    158 *********************************************************************** C0218000

                                    159 .Z       ANOP                                                           C0220000
                                    160 &NAME    NULL                                                           C0222000
                                    161          AIF   ('&MSG' EQ '' AND '&L' EQ '').H                          C0224000
                                    162          AIF   ('&L' EQ '').F                                           C0226000
                                    163          AIF   ('&L'(1,1) EQ '(').A                                     C0228000
                                    164          LA    R0,&L                                                    C0230000
                                    165          AGO   .C                                                       C0232000
                                    166 .A       AIF   ('&L' EQ '(R0)').B                                       C0234000
                                    167          LR    R0,&L(1)                                                 C0236000
                                    168 .B       AIF   ('&MSG' EQ '').E                                         C0238000
                                    169          MNOTE 4,'REGISTER FORM OF LENGTH INVALID'                      C0240000
                                    170          MEXIT                                                          C0242000

                                    171 .C       AIF   ('&MSG' EQ '').E                                         C0244000
                                    172          AIF   ('&MSG'(1,1) EQ '(').D                                   C0246000
                                    173          MVC   COMMAND(&L),&MSG                                         C0248000

                                    174          AGO   .E                                                       C0250000
                                    175 .D       MVC   COMMAND(&L),0&MSG                                        C0252000
                                    176 .E       LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
                                    177          AGO   .I                                                       C0256000
                                    178 .F       AIF   ('&MSG' EQ 'OK').G                                       C0258000
                                    179          MNOTE 4,'LENGTH REQUIRED'                                      C0260000
                                    180          MEXIT                                                          C0262000
                                    181 .G       LA    R15,CORTOK          RETURN AND ISSUE OK MESSAGE          C0264000
                                    182          AGO   .I                                                       C0266000
                                    183 .H       LA    R15,CORTNORM        NORMAL RETURN                        C0268000
                                    184 .I       $RETURN                                                        C0270000
                                    185          MEND                                                           C0272000

COMM     HASP COMMAND PROCESSOR MACRO DEFINITIONS                                                              PAGE    8



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    187          MACRO -- $CWTO -- WRITE TO OPERATOR -- RESPONSE                C0276000

                                    188 &NAME    $CWTO &MSG=,&L=,&INFO=,&RET=                                   C0278000
                                    189          GBLC  &DOC                                                     C0280000
                                    190          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C0282000
                                    191          EJECT                                                          C0284000
                                    192 *********************************************************************** C0286000
                                    193 *                                                                     * C0288000
                                    194 *        COWTO(0,BASE2) -- WRITE TO OPERATOR                          * C0290000
                                    195 *                                                                     * C0292000
                                    196 *        ROUTINE ISSUES A $WAIT                                       * C0294000
                                    197 *                                                                     * C0296000
                                    198 * REGISTERS USED                                                      * C0298000
                                    199 *        R0    = LENGTH OF MESSAGE                                    * C0300000

                                    200 *        R1    = MESSAGE ADDRESS -- COMMAND                           * C0302000
                                    201 *        WA    = LINK REGISTER                                        * C0304000

                                    202 *        LINK  = LINKAGE FOR $WTO                                     * C0306000

                                    203 *        R15   = WAIT REENTRY                                         * C0308000
                                    204 *                                                                     * C0310000
                                    205 *********************************************************************** C0312000
                                    206 .Z       ANOP                                                           C0314000
                                    207 &NAME    NULL                                                           C0316000
                                    208          AIF   ('&MSG' EQ '' AND '&L' EQ '').F                          C0318000
                                    209          AIF   ('&L' EQ '').F                                           C0320000
                                    210          AIF   ('&L'(1,1) EQ '(').A                                     C0322000
                                    211          LA    R0,&L                                                    C0324000
                                    212          AIF   ('&MSG' EQ '').D                                         C0326000
                                    213          AIF   ('&MSG'(1,1) EQ '(').C                                   C0328000
                                    214          MVC   COMMAND(&L),&MSG                                         C0330000

                                    215          AGO   .D                                                       C0332000
                                    216 .A       AIF   ('&L' EQ '(R0)').B                                       C0334000
                                    217          LR    R0,&L(1)                                                 C0336000

                                    218 .B       AIF   ('&MSG' EQ '').D                                         C0338000
                                    219          MNOTE 4,'REGISTER FORM OF LENGTH INVALID'                      C0340000
                                    220          MEXIT                                                          C0342000
                                    221 .C       MVC   COMMAND(&L),0(&MSG)                                      C0344000
                                    222 .D       AIF   ('&RET' EQ '').E                                         C0346000
                                    223          $DECODE &RET,RA=WA                                             C0348000
                                    224          B     COWTO(0,BASE2)      REPLY TO OPERATOR                    C0350000
                                    225          MEXIT                                                          C0352000
                                    226 .E       BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
                                    227          MEXIT                                                          C0356000
                                    228 .F       MNOTE 4,'LENGTH REQUIRED'                                      C0358000
                                    229          MEND                                                           C0360000

COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    231          MACRO -- $CFCVB -- CONVERT TO BINARY                           C0364000
                                    232 &NAME    $CFCVB &TYPE=CALL,&SYMBOL=,&POINTER=(R1),&NUM=2,&INFO=,&NOK=   C0366000

                                    233          GBLA  &COMPRTY                                                 C0368000
                                    234          GBLA  &JBNOLEN                                                 C0370000
                                    235          GBLC  &DOC                                                     C0372000
                                    236          LCLA  &N                                                       C0374000
                                    237          LCLC  &R                                                       C0376000
                                    238 &N       SETA  1                   SET GENERATION PRIORITY              C0378000

                                    239 &R       SETC  '&SYSNDX'                                                C0380000
                                    240          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C0382000
                                    241          EJECT                                                          C0384000
                                    242 *********************************************************************** C0386000
                                    243 *                                                                     * C0388000
                                    244 *        COFCVB -- CONVERT TO BINARY                                  * C0390000
                                    245 *                                                                     * C0392000
                                    246 *        ROUTINE CONVERTS A PAIR OF NUMBERS OF THE FORM               * C0394000

                                    247 *                                                                     * C0396000

                                    248 *        TEXTN1-N2 WHERE                                              * C0398000
                                    249 *        TEXT  = OPTIONAL TEXT IDENTIFIERS  JOB, PRT, RM ETC.         * C0400000
                                    250 *        N1    = FIRST OF A SERIES OF NUMBERS LT 32768 IN VALUE       * C0402000
                                    251 *        -N2   = OPTIONAL LAST OF A SERIES OF NUMBERS LT 32768        * C0404000
                                    252 *        IN A SERIES OF VALUES, N1-N2-N3-N4, THE LAST TWO VALUES      * C0406000
                                    253 *        ARE CONCIDERED TO BE START-STOP VALUES.                      * C0408000
                                    254 *        THE MEANING OF THE START-STOP VALUES FOR EXAMPLE 1-5 ARE     * C0410000
                                    255 *        THE USER DESIRES AN OPERATION PERFORMED ON JOB OR FACILITY   * C0412000
                                    256 *        TYPE INDICATED, NUMBERS 1, 2, 3, 4, AND 5.                   * C0414000

                                    257 *                                                                     * C0416000
                                    258 *        NO $WAITS ARE ISSUED.                                        * C0418000
                                    259 *                                                                     * C0420000
                                    260 * REGISTERS USED                                                      * C0422000
                                    261 *        R0    = ACCUMULATOR - STOP VALUE                             * C0424000

                                    262 *        R1    = ADDRESS OF OPERAND POINTER -- START VALUE            * C0426000
                                    263 *        LINK  = LINK REGISTER                                        * C0428000

                                    264 *        R15   = WORK REGISTER                                        * C0430000
                                    265 *                                                                     * C0432000
                                    266 * EXITS                                                               * C0434000
                                    267 *        LINK+0 OPERAND DOES NOT CONTAIN NUMERIC OR NUMERIC TOO LARGE * C0436000
                                    268 *        LINK+4 NORMAL EXIT                                           * C0438000
                                    269 *                                                                     * C0440000
                                    270 * NOTES                                                               * C0442000
                                    271 *        R1 VALUE IS EQUAL TO R0 IF USER REQUESTS NUM=2 AND ONLY      * C0444000

                                    272 *        ONE VALUE IS PRESENT. IF NUM=1 IS USED R1 VALUE IS           * C0446000
                                    273 *        UNPREDICTABLE. ( NUM=1 MAY BE IGNORED ).                     * C0448000
                                    274 *                                                                     * C0450000
                                    275 *********************************************************************** C0452000
                                    276 .Z       ANOP                                                           C0454000

                                    277          AIF   ('&TYPE' EQ 'RES' AND &COMPRTY LT &N OR '&TYPE' EQ 'DEF'CC0456000
                                                       AND &COMPRTY GE &N).XIT                                  C0458000
                                    278 &NAME    NULL                                                           C0460000

                                    279          AIF   ('&TYPE' NE 'CALL').INL                                  C0462000
                                    280          $DECODE &POINTER                                               C0464000
                                    281          AIF   ('&SYMBOL' EQ '' AND &COMPRTY LT &N).INL                 C0466000
                                    282          AIF   ('&SYMBOL' EQ '' OR &COMPRTY GE &N).CAL                  C0468000
                                    283          BAL   LINK,&SYMBOL                                             C0470000
                                    284          B     &NOK                                                     C0472000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   10



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    285          MEXIT                                                          C0474000
                                    286 .CAL     BAL   LINK,COFCVB         CONVERT NUMBERS TO BINARY            C0476000
                                    287          B     &NOK                                                     C0478000
                                    288          MEXIT                                                          C0480000

                                    289 .INL     L     R15,0(0,R1)         PICK UP FIRST PARAMETER              C0482000
                                    290          CLI   0(R15),C'0'         LOOK FOR NUMERIC ( FA-FF INCLUDED )  C0484000
                                    291          BNL   COF&R.L            IF NUMERIC CONVERT                    C0486000
                                    292          LA    R15,1(0,R15)        NEXT CHARACTER                       C0488000

                                    293          ST    WA,PCEWA            SAVE WORK REGISTER           OY08684 C0488500
                                    294          L     WA,4(0,R1)          CLEAR HIGH ORDER BYTE OF     OY08684 C0489000
                                    295          LA    WA,0(0,WA)          NEXT OPERAND POINTER         OY08684 C0489500
                                    296          CR    R15,WA              DID WE GO TOO FAR            OY08684 C0490000
                                    297          L     WA,PCEWA            RESTORE WORK REGISTER        OY08684 C0491000
                                    298          BL    *-30                LOOP UNTIL NUMERIC OR ERROR  OY08684 C0492000

                                    299          AIF   ('&TYPE' EQ 'CALL').A                                    C0494000
                                    300          BR    LINK                RETURN INVALID OPERAND               C0496000
                                    301          AGO   .B                                                       C0498000
                                    302 .A       B     &NOK                                                     C0500000
                                    303 .B       ANOP                                                           C0502000

                                    304 * CONVERT PAIR OF START STOP VALUES                                     C0504000
                                    305 COF&R.L  SR    R0,R0               ZERO ACCUMULATOR, STOP VALUE         C0506000
                                    306          AIF   ('&NUM' NE '2').BA                                       C0508000
                                    307          LNR   R1,R15              SET NEGATIVE FLAGS                   C0510000
                                    308 .BA      ANOP                                                           C0512000

                                    309 COF&R.C MVN COF&R.W+1(1),0(R15)    MOVE NUMERIC TO WORK AREA            C0514000
                                    310          MH    R0,COF&R.T         MULTIPLY BY 10                        C0516000
                                    311          AH    R0,COF&R.W         ADD LOW DIGIT                         C0518000
                                    312          CH    R0,COF&R.U         LOOK FOR MAXIMUM VALUE                C0520000
                                    313          AIF   ('&TYPE' EQ 'CALL').C                                    C0522000

                                    314          BCR   H,LINK              RETURN INVALID OPERAND               C0524000
                                    315          AGO   .D                                                       C0526000
                                    316 .C       BH    &NOK                                                     C0528000
                                    317 .D       ANOP                                                           C0530000
                                    318 COF&R.N  LA    R15,1(0,R15)        NEXT CHARACTER                       C0532000

                                    319          CLI   0(R15),C'0'         TEST FOR NUMERIC ( FA-FF INCLUDED )  C0534000
                                    320          BNL   COF&R.C            IF NUMERIC CONVERT THE CHARACTER      C0536000
                                    321          AIF   ('&NUM' NE '2').G                                        C0538000
                                    322          CLI   0(R15),C'-'         LOOK FOR SEPARATOR                   C0540000
                                    323          BE    *+16                CONVERT NEXT VALUE                   C0542000
                                    324          CLR   R1,R0               TEST FOR BOTH VALUES                 C0544000

                                    325          AIF   ('&TYPE' EQ 'CALL').E                                    C0546000
                                    326          BNH   4(0,LINK)           RETURN WITH CONVERTED VALUES         C0548000
                                    327          LR    R1,R0               SET TO SAME                          C0550000
                                    328          B     4(0,LINK)           RETURN WITH CONVERTED VALUES         C0552000

                                    329          AGO   .F                                                       C0554000
                                    330 .E       BNH   COF&R.E             EXIT WITH CONVERTED VALUES           C0556000
                                    331          LR    R1,R0               SET TO SAME                          C0558000
                                    332          B     COF&R.E             EXIT WITH CONVERTED VALUES           C0560000
                                    333 .F       CLI   1(R15),C'0'         IS NEXT CHARACTER NUMERIC    OY05847 C0560300

                                    334          AIF   ('&TYPE' EQ 'CALL').FA                           OY05847 C0560600
                                    335          BCR   L,LINK              NO RETURN INVALID OPERAND    OY05847 C0560900
                                    336          AGO   .FB                                              OY05847 C0561200
                                    337 .FA      BL    &NOK                NO RETURN INVALID OPERAND    OY05847 C0561500
                                    338 .FB      LR    R1,R0               SET START OF STRING          OY05847 C0562000
                                    339          SR    R0,R0               PREPARE FOR NEXT                     C0564000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   11



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    340          B     COF&R.N            CONVERT NEXT VALUE OF SET             C0566000
                                    341          AGO   .I                                                       C0568000

                                    342 .G       AIF   ('&TYPE' EQ 'CALL').H                                    C0570000
                                    343          B     4(0,LINK)           RETURN                               C0572000
                                    344          AGO   .I                                                       C0574000
                                    345 .H       B     COF&R.E             EXIT WITH CONVERTED VALUES           C0576000
                                    346 .I       ANOP                                                           C0578000

                                    347 COF&R.T  DC    H'10'               CONVERSION CONSTANT                  C0580000
                                    348 &N       SETA  999                 3 DIGIT JOB NUMBER                   C0582000
                                    349          AIF   (&JBNOLEN LT 4).J                                        C0584000
                                    350 &N       SETA  9999                4 DIGIT JOB NUMBER                   C0586000
                                    351          AIF   (&JBNOLEN EQ 4).J                                        C0588000
                                    352 &N       SETA  32767               5 DIGIT JOB NUMBER           OY08662 C0590000
                                    353 .J       ANOP                                                           C0592000
                                    354 COF&R.U  DC    H'&N'                                                    C0594000

                                    355 COF&R.W  DC    H'0'                WORK AREA FOR CONVERSION             C0596000
                                    356          AIF   ('&TYPE' NE 'CALL').XIT                                  C0598000

                                    357 COF&R.E  DS    0H                  END OF BINARY CONVERT                C0600000
                                    358 .XIT     MEND                                                           C0602000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    360          MACRO -- $CFCVE -- CONVERT TO EBCDIC                           C0606000

                                    361 &NAME    $CFCVE &VALUE=(R0),&TYPE=CALL,&SYMBOL=,&INFO=                  C0608000
                                    362          GBLA  &COMPRTY                                                 C0610000
                                    363          GBLC  &DOC                                                     C0612000
                                    364          LCLA  &N                                                       C0614000
                                    365          LCLC  &R                                                       C0616000
                                    366 &N       SETA  1                   SET GENERATION PRIORITY              C0618000
                                    367 &R       SETC  '&SYSNDX'                                                C0620000
                                    368          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C0622000
                                    369          EJECT                                                          C0624000

                                    370 *********************************************************************** C0626000

                                    371 *                                                                     * C0628000
                                    372 *        COFCVE -- CONVERT TO EBCDIC                                  * C0630000
                                    373 *                                                                     * C0632000
                                    374 *        ROUTINE CONVERTS A HALF WORD BINARY NUMBER LOCATED           * C0634000
                                    375 *        AT ADDRESS 'VALUE'.  ANSWER WILL BE IN FIRST FIVE            * C0636000

                                    376 *        CHARACTERS OF COMDWORK.                                      * C0638000
                                    377 *        NO $WAITS ARE ISSUED.                                        * C0640000
                                    378 *                                                                     * C0642000
                                    379 * REGISTERS USED                                                      * C0644000
                                    380 *        R0    = VALUE TO BE CONVERTED                                * C0646000
                                    381 *        LINK  = RETURN LINKAGE                                       * C0648000
                                    382 *                                                                     * C0650000
                                    383 * NOTES                                                               * C0652000
                                    384 *        COMEWORK - COMDWORK AREAS ARE USED FOR SCRATCH               * C0654000
                                    385 *                                                                     * C0656000

                                    386 *********************************************************************** C0658000

                                    387 .Z       ANOP                                                           C0660000
                                    388          AIF   ('&TYPE' EQ 'RES' AND &COMPRTY LT &N OR '&TYPE' EQ 'DEF'CC0662000
                                                       AND &COMPRTY GE &N).XIT                                  C0664000
                                    389 &NAME    $DECODE &VALUE,OPA=LH,RA=R0                                    C0666000

                                    390          AIF   ('&TYPE' NE 'CALL').INL                                  C0668000
                                    391          AIF   ('&SYMBOL' EQ '' AND &COMPRTY LT &N).INL                 C0670000
                                    392          AIF   ('&SYMBOL' EQ '' OR &COMPRTY GE &N).CAL                  C0672000
                                    393          BAL   LINK,&SYMBOL                                             C0674000
                                    394          MEXIT                                                          C0676000
                                    395 .CAL     BAL   LINK,COFCVE         CONVERT TO EBCDIC                    C0678000
                                    396          MEXIT                                                          C0680000
                                    397 .INL     ANOP                                                           C0682000
                                    398 * CONVERT TO EBCDIC AND LEAVE ANSWER IN COMDWORK ( 5 DIGITS )           C0684000
                                    399          CVD   R0,COMDWORK         CONVERT TO DECIMAL                   C0686000
                                    400          MVC   COMDWORK-1(6),COF&R MOVE MASK TO BLANK OUT HIGH ZEROS    C0688000

                                    401          ED    COMDWORK-1(6),COMDWORK+5 CONVERT TO EBCDIC               C0690000
                                    402          AIF   ('&TYPE' EQ 'CALL').A                                    C0692000
                                    403          BR    LINK                RETURN                               C0694000
                                    404 COF&R    DC    X'402020202120'     MASK FOR EDIT                        C0696000

                                    405          MEXIT                                                          C0698000
                                    406 .A       B     COF&R.E             SKIP OVER CONSTANT                   C0700000
                                    407 COF&R    DC    X'402020202120'     MASK FOR EDIT                        C0702000
                                    408 COF&R.E  DS    0H                  END OF CONVERT TO EBCDIC             C0704000
                                    409 .XIT     MEND                                                           C0706000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    411          MACRO -- $CFDCTD -- DISPLAY DEVICE CONTROL TABLE               C0710000
                                    412 &NAME    $CFDCTD &DCT=(R1),&TYPE=CALL,&SYMBOL=,&INFO=                   C0712000
                                    413          GBLA  &COMPRTY                                                 C0714000
                                    414          GBLC  &DOC                                                     C0718000
                                    415          LCLA  &N                                                       C0720000

                                    416          LCLC  &R                                                       C0722000
                                    417 &N       SETA  1                   SET GENERATION PRIORITY              C0724000
                                    418 &R       SETC  '&SYSNDX'                                                C0726000

                                    419          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C0728000
                                    420          EJECT                                                          C0730000
                                    421 *********************************************************************** C0732000
                                    422 *                                                                     * C0734000
                                    423 *        COFDCTD -- DEVICE CONTROL TABLE DISPLAY                      * C0736000
                                    424 *                                                                     * C0738000
                                    425 *        ROUTINE CREATES A STATUS MESSAGE IN AREA 'COMMAND' AND       * C0740000
                                    426 *        INITIATES OPERATOR RESPONSE.                                 * C0742000
                                    427 *        $WAIT MAY BE ISSUED.                                         * C0744000
                                    428 *                                                                     * C0746000
                                    429 * REGISTERS USED                                                      * C0748000
                                    430 *        R0    = LENGTH OF MESSAGE                                    * C0750000

                                    431 *        R1    = ADDRESS OF DCT, WORK REGISTER, PARAMETER TO $WTO     * C0752000

                                    432 *        WA    = LINK REGISTER, RELATIVE ON RETURN                    * C0754000
                                    433 *        LINK  = LINKAGE TO $WTO                                      * C0756000

                                    434 *        R15   = WAIT RETURN                                          * C0758000
                                    435 *                                                                     * C0760000
                                    436 *********************************************************************** C0762000
                                    437 .Z       AIF   ('&TYPE' EQ 'RES' AND &COMPRTY LT &N OR '&TYPE' EQ 'DEF'CC0764000
                                                       AND &COMPRTY GE &N).XIT                                  C0766000
                                    438 &NAME    $DECODE &DCT                                                   C0768000
                                    439          AIF   ('&TYPE' NE 'CALL').INL                                  C0770000
                                    440          AIF   ('&SYMBOL' EQ '' AND &COMPRTY LT &N).INLA                C0772000
                                    441          AIF   ('&SYMBOL' EQ '' OR &COMPRTY GE &N).CAL                  C0774000
                                    442          BAL   WA,&SYMBOL                                               C0776000
                                    443          MEXIT                                                          C0778000
                                    444 .CAL     BAL   WA,COFDCTD          DISPLAY DCT STATUS                   C0780000

                                    445          MEXIT                                                          C0782000
                                    446 .INLA    LA    WA,COF&R.J          LOCATE RETURN POINT                  C0784000

                                    447 .INL     MVC   COMMAND(8),DCTDEVN-DCTDSECT(R1) SET DEVICE NAME          C0786000

                                    448          MVC   COMMAND+8(14),COF&R.E SET '  *** DRAINING'               C0788000
                                    449          TM    DCTSTAT-DCTDSECT(R1),DCTDRAIN TEST FOR DRAIN BIT         C0790000
                                    450          BZ    COF&R.A             BRANCH IF NOT DRAINED OR DRAINING    C0792000
                                    451          TM    DCTSTAT-DCTDSECT(R1),DCTINUSE TEST FOR DRAINING          C0794000
                                    452          BO    COF&R.B             LOCATE UCB 'DRAINING'                C0796000
                                    453          MVC   COMMAND+19(3),COF&R.F SET 'DRAINED '                     C0798000
                                    454          B     COF&R.B             LOCATE UCB 'DRAINED '                C0800000
                                    455 COF&R.A  MVC   COMMAND+14(8),COF&R.H SET 'ACTIVE  '                     C0802000
                                    456          TM    DCTSTAT-DCTDSECT(R1),DCTINUSE TEST FOR ACTIVE            C0816000
                                    457          BO    COF&R.B             LOCATE UCB 'ACTIVE  '                C0818000
                                    458          MVC   COMMAND+14(8),COF&R.G SET 'INACTIVE'                     C0820000
                                    459 * DCT STATUS SET IN MESSAGE - LOCATE AND SET DEVICE ADDRESS             C0822000

                                    460 COF&R.B  CLC   DCTDEVN-DCTDSECT(2,R1),COF&R.I LOOK FOR 'RM'             C0824000
                                    461          BNE   COF&R.C             IF NOT REMOTE LOOK AT OTHERS         C0826000
                                    462          TM    DCTPSTAT-DCTDSECT(R1),DCTSINON IS REMOTE SIGNED ON       C0828000

                                    463          BZ    COF&R.D             IF NOT, MESSAGE IS COMPLETE          C0830000
                                    464          L     R1,DCTDCB-DCTDSECT(0,R1) PICK UP LINE DCT                C0832000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    465 COF&R.C  L     R1,DCTDCB-DCTDSECT(0,R1) PICK UP DCB                     C0834000
                                    466          L     R1,DCBDEBAD-DCBDSECT(0,R1) PICK UP DEB                   C0836000
                                    467          OC    DEBTCBAD+1-DEBDSECT(3,R1),DEBTCBAD+1-DEBDSECT(R1)        C0838000
                                    468          BZ    COF&R.D             IF DEB NOT INITIALIZED, MESSAGE SET  C0840000
                                    469          LH    R1,DEBUCBAD+2-DEBDSECT(0,R1) PICK UP UCB                 C0842000
                                    470          LTR   R1,R1               VERIFY UCB POINTER SET               C0844000
                                    471          BZ    COF&R.D             IF NOT, MESSAGE COMPLETE             C0846000
                                    472          MVC   COMMAND+10(3),UCBNAME-UCBDSECT(R1) INSERT UNIT ADDRESS   C0848000

                                    473 COF&R.D  $CWTO L=22,RET=(WA),INFO=NO                                    C0850000
                                    474 COF&R.E  DC    C'  *** DRAINING'   UNIT DRAINING                        C0852000
                                    475 COF&R.F  DC    C'ED '              UNIT DRAINED                         C0854000

                                    476 COF&R.G  DC    C'IN'               UNIT INACTIVE                        C0856000
                                    477 COF&R.H  DC    C'ACTIVE  '         UNIT ACTIVE                          C0858000
                                    478 COF&R.I  DC    C'RM'               TEST CONSTANT                        C0860000
                                    479          AIF   ('&TYPE' NE 'CALL').XIT                                  C0862000
                                    480 COF&R.J  DS    0H                                                       C0864000
                                    481 .XIT     MEND                                                           C0866000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    483          MACRO -- $CFDCTL -- DEVICE CONTROL TABLE LOCATE                C0870000
                                    484 &NAME    $CFDCTL &POINTER=(R1),&TYPE=CALL,&SYMBOL=,&INFO=               C0872000
                                    485          GBLA  &COMPRTY,&NUMPRTS                                        C0874000
                                    486          GBLC  &DOC                                                     C0876000

                                    487          LCLA  &N                                                       C0878000
                                    488          LCLC  &R                                                       C0880000
                                    489 &N       SETA  1                   SET GENERATION PRIORITY              C0882000
                                    490 &R       SETC  '&SYSNDX'                                                C0884000

                                    491          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C0886000
                                    492          EJECT                                                          C0888000
                                    493 *********************************************************************** C0890000
                                    494 *                                                                     * C0892000
                                    495 *        COFDCTL -- DEVICE CONTROL TABLE LOCATE                       * C0894000
                                    496 *                                                                     * C0896000

                                    497 *        ROUTINE EXAMINES DEVICE NAMED BY THE CURRENT OPERAND         * C0898000
                                    498 *        'POINTER', CONVERTS OPERAND TO EIGHT CHARACTER FORMAT,       * C0900000
                                    499 *        AND LOCATES THE DCT.                                         * C0902000
                                    500 *        NO $WAITS ARE ISSUED.                                        * C0904000
                                    501 *                                                                     * C0906000
                                    502 * REGISTERS USED                                                      * C0908000
                                    503 *        R0    = WORK REGISTER                                        * C0910000
                                    504 *        R1    = OPERAND POINTER - SET TO ADDRESS OF DCT OR ZERO      * C0912000

                                    505 *        R15   = WORK REGISTER                                        * C0914000
                                    506 *        LINK  = RETURN LINKAGE                                       * C0916000

                                    507 *                                                                     * C0918000
                                    508 * NOTES                                                               * C0920000
                                    509 *        COMEWORK - COMDWORK AREAS ARE USED FOR SCRATCH               * C0922000
                                    510 *                                                                     * C0924000
                                    511 *********************************************************************** C0926000
                                    512 .Z       ANOP                                                           C0928000
                                    513          AIF   ('&TYPE' NE 'CALL').INL                                  C0930000
                                    514 &NAME    $DECODE &POINTER                                               C0932000

                                    515          AIF   ('&SYMBOL' EQ '' AND &COMPRTY LT &N).INLA                C0934000
                                    516          AIF   ('&SYMBOL' EQ '' OR &COMPRTY GE &N).CAL                  C0936000
                                    517          BAL   LINK,&SYMBOL                                             C0938000
                                    518          MEXIT                                                          C0940000
                                    519 .CAL     BAL   LINK,COFDCTL        LOCATE DCT                           C0942000

                                    520          MEXIT                                                          C0944000
                                    521 .INL     AIF   ('&TYPE' EQ 'RES' AND &COMPRTY LT &N OR '&TYPE' EQ 'DEF'CC0946000
                                                       AND &COMPRTY GE &N).XIT                                  C0948000

                                    522 * DEVICE CONTROL LOCATE                                                 C0950000
                                    523 &NAME    NULL                                                           C0952000
                                    524 * SEPARATE DEVICE NAME                                                  C0954000
                                    525 .INLA    MVI   COMEWORK,C' '       BLANK OUT WORK AREA                  C0956000
                                    526          MVC   COMEWORK+1(7),COMEWORK CONTINUE                          C0958000
                                    527          L     R15,4(,R1)          LOCATE NEXT OPERAND                  C0960000
                                    528          L     R1,0(0,R1)          LOCATE THIS ONE                      C0962000

                                    529          SR    R15,R1              LENGTH OF OPERAND + 1                C0964000
                                    530          BCT   R15,*+8             ACTUAL LENGTH                        C0966000
                                    531          B     COF&R.E             IF NULL, COMPARE AGAINST BLANK       C0968000
                                    532          BCTR  R15,0               MACHINE LENGTH                       C0970000
                                    533          LA    R0,7                SET MAXIMUM LENGTH                   C0972000

                                    534          CLR   R15,R0              TEST FOR WITHIN MAXIMUM              C0974000
                                    535          BNH   *+6                 ACCEPT CURRENT LENGTH IF YES         C0976000
                                    536          LR    R15,R0              SET TO MOVE EIGHT CHARACTERS         C0978000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   16



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    537          STC   R15,*+5             SET MACHINE LENGTH FOR MOVE          C0980000
                                    538          MVC   COMEWORK(*-*),0(R1) MOVE COMPLETE OPERAND                C0982000
                                    539          MVC   COMDWORK+6(2),COMEWORK+3 MOVE NUMERIC PART               C0984000
                                    540 * CONVERT SHORT FORM OF DEVICE TO LONG FORM                             C0986000
                                    541          LA    R1,COF&R.T         POINT TO CONVERT TABLE                C0988000

                                    542 COF&R.L  IC    R15,3(0,R1)         PICK UP MACHINE LENGTH OF ANSWER     C0990000
                                    543          CLC   COMEWORK(3),0(R1)   LOOK FOR MATCH                       C0992000
                                    544          BE    COF&R.F            IF MATCH REPLACE WITH LONG FORM       C0994000
                                    545          LA    R1,5(R15,R1)        POINT TO NEXT TABLE ELEMENT          C0996000
                                    546          CLI   0(R1),X'FF'         CHECK FOR END OF TABLE               C0998000

                                    547          BNE   COF&R.L             IF NOT, LOOP                         C1000000
                                    548          B     COF&R.E             IF END, EXIT                         C1002000
                                    549 * DEVICE ABBREVIATION TABLE                                             C1004000
                                    550 COF&R.T  DS    0H                                                       C1006000
                                    551          DC    C'LNE',X'03',C'LINE'                                     C1008000

                                    552          AIF   (&NUMPRTS GE 10).PRT                                     C1009000
                                    553          DC    C'PRT',X'06',C'PRINTER'                                  C1010000
                                    554          AGO   .PRTA                                                    C1011000
                                    555 .PRT     DC    C'PRT',X'05',C'PRINTR'                                   C1012000
                                    556 .PRTA    DC    C'PUN',X'04',C'PUNCH'                                    C1013000

                                    557          DC    C'RDR',X'05',C'READER'                                   C1014000
                                    558          DC    C'RDI',X'05',C'INTRDR'                                   C1018000
                                    559          DC    X'FF'                                                    C1020000
                                    560 * ARGUMENT FOUND, MOVE NUMERIC PORTION INTO PLACE                       C1022000
                                    561 COF&R.F  STC   R15,*+5             SET MOVE INSTRUCTION                 C1024000

                                    562          MVC   COMEWORK(*-*),4(R1) MOVE LONG FORM OF TEXT               C1026000
                                    563          LA    R15,COMEWORK+1(R15) POINT TO END OF TEXT PORTION         C1028000
                                    564          MVC   0(2,R15),COMDWORK+6 MOVE IN NUMERIC                      C1030000
                                    565 * LOCATE DEVICE CONTROL TABLE                                           C1032000
                                    566 COF&R.E  L     R1,$DCTPOOL         POINT TO FIRST DCT                   C1034000
                                    567 COF&R.K  CLC   DCTDEVN-DCTDSECT(L'DCTDEVN,R1),COMEWORK LOOK FOR MATCH   C1036000

                                    568          AIF   ('&TYPE' EQ 'CALL').A                                    C1038000
                                    569          BCR   E,LINK              RETURN WITH DEVICE FOUND             C1040000
                                    570          AGO   .B                                                       C1042000
                                    571 .A       BE    COF&R.X             EXIT WITH DEVICE FOUND               C1044000

                                    572 .B       L     R1,DCTCHAIN-DCTDSECT(0,R1) LOOK AT NEXT DCT              C1046000
                                    573          CLI   DCTDEVTP-DCTDSECT(R1),DCTDA TEST FOR TOO FAR DOWN CHAIN  C1048000
                                    574          BNE   COF&R.K             LOOP IF NOT TOO FAR                  C1050000
                                    575          SR    R1,R1               FLAG DCT NOT FOUND                   C1052000
                                    576          AIF   ('&TYPE' EQ 'CALL').C                                    C1054000

                                    577          BR    LINK                RETURN WITHOUT DCT                   C1056000
                                    578          MEXIT                                                          C1058000
                                    579 .C       ANOP                                                           C1060000
                                    580 COF&R.X  DS    0H                  R1 = ADDRESS OF DCT OR R1 = 0        C1062000
                                    581 .XIT     MEND                                                           C1064000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    583          MACRO -- $CFINVC -- INVALID COMMAND                            C1068000
                                    584 &NAME    $CFINVC &D,&DD,&TYPE=CALL,&SYMBOL=,&INFO=                      C1070000
                                    585          GBLA  &COMPRTY                                                 C1072000

                                    586          GBLC  &DOC                                                     C1074000
                                    587          LCLA  &N                                                       C1076000
                                    588          LCLC  &R                                                       C1078000
                                    589 &N       SETA  1                   SET GENERATION PRIORITY              C1080000
                                    590 &R       SETC  '&SYSNDX'                                                C1082000

                                    591          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C1084000
                                    592          EJECT                                                          C1086000
                                    593 *********************************************************************** C1088000
                                    594 *                                                                     * C1090000
                                    595 *        COFINVC -- REPLY INVALID COMMAND                             * C1092000
                                    596 *                                                                     * C1094000
                                    597 *        ROUTINE RETURNS TO MAIN COMMAND PROCESSOR BEFORE $WAIT       * C1096000
                                    598 *                                                                     * C1098000

                                    599 *********************************************************************** C1100000
                                    600 .Z       ANOP                                                           C1102000

                                    601          AIF   ('&TYPE' NE 'CALL').INL                                  C1104000
                                    602          AIF   ('&SYMBOL' EQ '' AND &COMPRTY LT &N).INL                 C1106000
                                    603          AIF   ('&SYMBOL' EQ '' OR &COMPRTY GE &N).CAL                  C1108000
                                    604 &NAME    B     &SYMBOL                                                  C1110000
                                    605          MEXIT                                                          C1112000

                                    606 .CAL     ANOP                                                           C1114000
                                    607 &NAME    B     COFINVC             REPLY INVALID COMMAND                C1116000
                                    608          MEXIT                                                          C1118000
                                    609 .INL     AIF   ('&TYPE' EQ 'RES' AND &COMPRTY LT &N OR '&TYPE' EQ 'DEF'CC1120000
                                                       AND &COMPRTY GE &N).XIT                                  C1122000
                                    610 * RETURN WITH INVALID COMMAND AS RESPONSE                               C1124000
                                    611 &NAME    MVC   COMMAND+9(16),COF&R MOVE DIAGNOSTIC BEHIND TEXT          C1126000
                                    612          $CRET L=25,INFO=NO                                             C1128000
                                    613 COF&R    DC    C' INVALID COMMAND'                                      C1130000

                                    614 .XIT     MEND                                                           C1132000

COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    616          MACRO -- $CFINVO -- INVALID OPERAND                            C1136000
                                    617 &NAME    $CFINVO &TYPE=CALL,&SYMBOL=,&OPERAND=(R1),&INFO=               C1138000
                                    618          GBLA  &COMPRTY                                                 C1140000

                                    619          GBLC  &DOC                                                     C1142000
                                    620          LCLA  &N                                                       C1144000
                                    621          LCLC  &C,&R                                                    C1146000
                                    622 &C       SETC  '0&OPERAND'         MVC X,0(OPERAND)                     C1148000
                                    623          AIF   ('&OPERAND'(1,1) EQ '(').A                               C1150000
                                    624 &C       SETC  '&OPERAND'          MVC X,OPERAND                        C1152000
                                    625 .A       ANOP                                                           C1154000
                                    626 &N       SETA  1                   SET GENERATION PRIORITY              C1156000
                                    627 &R       SETC  '&SYSNDX'                                                C1158000
                                    628          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C1160000

                                    629          EJECT                                                          C1162000

                                    630 *********************************************************************** C1164000
                                    631 *                                                                     * C1166000
                                    632 *        COFINVO -- REPLY INVALID OPERAND                             * C1168000
                                    633 *                                                                     * C1170000

                                    634 *        ROUTINE RETURNS TO MAIN COMMAND PROCESSOR BEFORE $WAIT       * C1172000
                                    635 *                                                                     * C1174000
                                    636 *********************************************************************** C1176000
                                    637 .Z       ANOP                                                           C1178000
                                    638          AIF   ('&TYPE' NE 'CALL').INL                                  C1180000
                                    639          AIF   ('&SYMBOL' EQ '' AND &COMPRTY LT &N).INL                 C1182000
                                    640 &NAME    $DECODE &OPERAND                                               C1184000
                                    641          AIF   ('&SYMBOL' EQ '' OR &COMPRTY GE &N).CAL                  C1186000
                                    642          B     &SYMBOL                                                  C1188000
                                    643          MEXIT                                                          C1190000
                                    644 .CAL     ANOP                                                           C1192000

                                    645          B     COFINVO             REPLY INVALID OPERAND                C1194000
                                    646          MEXIT                                                          C1196000
                                    647 .INL     AIF   ('&TYPE' EQ 'RES' AND &COMPRTY LT &N OR '&TYPE' EQ 'DEF'CC1198000
                                                       AND &COMPRTY GE &N).XIT                                  C1200000

                                    648 * RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
                                    649 &NAME    MVC   COMMAND(9),&C                                            C1204000
                                    650          MVC   COMMAND+9(16),COF&R MOVE DIAGNOSTIC BEHIND TEXT          C1206000
                                    651          $CRET L=25,INFO=NO                                             C1208000
                                    652 COF&R    DC    C' INVALID OPERAND'                                      C1210000
                                    653 .XIT     MEND                                                           C1212000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    655          MACRO -- $CFJDCT -- FIND JOB'S DCT                             C1216000
                                    656 &NAME    $CFJDCT &JOBQE=(R1),&TYPE=CALL,&SYMBOL=,&INFO=,&CONT=          C1218000
                                    657          GBLA  &COMPRTY                                                 C1220000
                                    658          GBLC  &DOC                                                     C1222000

                                    659          LCLA  &N                                                       C1224000
                                    660          LCLC  &R                                                       C1226000
                                    661 &N       SETA  1                   SET GENERATION PRIORITY              C1228000

                                    662 &R       SETC  '&SYSNDX'                                                C1230000
                                    663          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C1232000
                                    664          EJECT                                                          C1234000
                                    665 *********************************************************************** C1236000
                                    666 *                                                                     * C1238000
                                    667 *        COFJDCT -- FIND JOB'S DEVICE CONTROL TABLE                   * C1240000
                                    668 *                                                                     * C1242000
                                    669 *        ROUTINE SEARCHES THE DCT CHAIN FOR AN ACTIVE PRINT/PUNCH     * C1244000
                                    670 *        DEVICE WITH A PCE WHICH POINTS TO THE DESIGNATED JOB         * C1246000
                                    671 *        QUEUE ELEMENT.                                               * C1248000
                                    672 *        NO $WAITS ARE ISSUED.                                        * C1250000
                                    673 *                                                                     * C1252000

                                    674 * REGISTERS USED                                                      * C1254000

                                    675 *        R1    = JOB QUEUE ENTRY ADDRESS, DCT ADDRESS                 * C1256000
                                    676 *        LINK  = LINKAGE                                              * C1258000

                                    677 *        R15   = WORK REGISTER                                        * C1260000
                                    678 *                                                                     * C1262000
                                    679 * EXITS                                                               * C1264000
                                    680 *        LINK+0 DCT NOT FOUND                                         * C1266000
                                    681 *        LINK+4 DCT FOUND                                             * C1268000
                                    682 *                                                                     * C1270000
                                    683 * NOTES                                                               * C1272000
                                    684 *        JOB QUEUE POINTER IS SAVED IN COMEWORK                       * C1274000
                                    685 *                                                                     * C1276000
                                    686 *********************************************************************** C1278000
                                    687 .Z       ANOP                                                           C1280000
                                    688          AIF   ('&TYPE' EQ 'RES' AND &COMPRTY LT &N OR '&TYPE' EQ 'DEF'CC1282000

                                                       AND &COMPRTY GE &N).XIT                                  C1284000
                                    689 &NAME    $DECODE &JOBQE                                                 C1286000

                                    690          AIF   ('&TYPE' NE 'CALL').INL                                  C1288000

                                    691          AIF   ('&SYMBOL' EQ '' AND &COMPRTY LT &N).INC                 C1290000
                                    692          AIF   ('&SYMBOL' EQ '' OR &COMPRTY GE &N).CAL                  C1292000
                                    693          BAL   LINK,&SYMBOL                                             C1294000
                                    694          MEXIT                                                          C1296000
                                    695 .CAL     BAL   LINK,COFJDCT        FIND DCT PERFORMING JOB I/O          C1298000
                                    696          MEXIT                                                          C1300000
                                    697 .INC     LA    LINK,COF&R.Z        POINT TO EXIT                        C1301000
                                    698 .INL     ST    R1,COMEWORK         SET JOB QUEUE LOCATION FOR COMPARE   C1302000
                                    699          LA    R1,$DCTPOOL-DCTCHAIN+DCTDSECT POINT TO HEAD OF DCTS      C1304000
                                    700 &CONT    DS    0H                  CONTINUE                             C1306000
                                    701 COF&R.L  L     R1,DCTCHAIN-DCTDSECT(0,R1) NEXT DCT                 RFIT C1308000
                                    702          LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1308100

                                    703          LTR   R1,R1                                               RFIT C1308200
                                    704          BCR   Z,LINK              EXIT IF END OF CHAIN                 C1320000

                                    705 .B       TM    DCTDEVTP-DCTDSECT(R1),DCTPUN TEST DCT CLASS              C1322000

                                    706 * TEST INCLUDES READER, PRINTER, AND PUNCH DEVICES                      C1324000
                                    707          BZ    COF&R.L            GET NEXT DCT IF NOT CORRECT CLASS     C1326000
                                    708          TM    DCTSTAT-DCTDSECT(R1),DCTINUSE IS DCT IN USE              C1328000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    709          BZ    COF&R.L            GET NEXT DCT IF NOT                   C1330000
                                    710          L     R15,DCTPCE-DCTDSECT(0,R1) PICK UP PCE                    C1332000
                                    711          TM    DCTDEVTP-DCTDSECT(R1),DCTPRT IS IT PRINT OR PUNCH        C1334000
                                    712          BO    *+8                 IF YES, SKIP NEXT INSTRUCTION        C1336000
                                    713          LA    R15,RJOB-PJOB(0,R15) OFFSET PCE POINTER                  C1338000
                                    714          CLC   PJOB+1-PCEDSECT(3,R15),COMEWORK+1 CHECK FOR SAME JOB     C1340000
                                    715          BNE   COF&R.L            GET NEXT DCT IF NOT SAME JOB          C1342000

                                    716          B     4(0,LINK)           RETURN                               C1346000
                                    717 COF&R.Z  DS    0H                  ERROR EXIT                           C1352000
                                    718 .XIT     MEND                                                           C1352100

COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    720          MACRO -- $CFJDCTC -- CONTINUE FIND JOB'S DCT                   C1352300
                                    721 &NAME    $CFJDCTC &SYMBOL=,&INFO=                                       C1352400
                                    722          GBLA  &COMPRTY                                                 C1352500
                                    723          GBLC  &DOC                                                     C1352600
                                    724          LCLA  &N                                                       C1352700
                                    725          LCLC  &R                                                       C1352800
                                    726 &N       SETA  1                   SET GENERATION PRIORITY              C1352900
                                    727 &R       SETC  '&SYSNDX'                                                C1353000
                                    728          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C1353100
                                    729          EJECT                                                          C1353200

                                    730 ******************************************************************      C1353300
                                    731 *                                                                       C1353400
                                    732 *        COFJDCTC -- CONTINUE FIND JOB'S DEVICE CONTROL TABLE           C1353500
                                    733 *                                                                       C1353600

                                    734 *        ROUTINE CONTINUES THE SEARCH OF DCTS STARTED BY COFJDCT        C1353700
                                    735 *        BY USING THE BODY OF THAT ROUTINE. THE ENTRY POINT IN          C1353800
                                    736 *        COFJDCT IS SET BY THE CONT= PARAMETER ON THE CALL OR           C1353900
                                    737 *        SUBROUTINE VERSION OF THE ROUTINE.                             C1354000
                                    738 *        NO $WAITS ARE ISSUED.                                          C1354100
                                    739 *                                                                       C1354200

                                    740 * REGISTERS USED                                                        C1354300
                                    741 *        R1    = DCT ADDRESS                                            C1354400
                                    742 *        LINK  = LINKAGE                                                C1354500
                                    743 *        R15   = WORK REGISTER                                          C1354600
                                    744 *                                                                       C1354700
                                    745 * EXITS                                                                 C1354800
                                    746 *        LINK+0 DCT NOT FOUND                                           C1354900
                                    747 *        LINK+4 DCT FOUND                                               C1355000

                                    748 *                                                                       C1355100
                                    749 * NOTES                                                                 C1355200

                                    750 *        JOB QUEUE POINTER IN COMEWORK AS SET BY COFJDCT                C1355300
                                    751 *                                                                       C1355400
                                    752 ******************************************************************      C1355500
                                    753 .Z       ANOP                                                           C1355600
                                    754          AIF   (&COMPRTY GE &N).RES                                     C1355700
                                    755 &NAME    BAL   LINK,&SYMBOL                                             C1355800
                                    756          MEXIT                                                          C1355900
                                    757 .RES     ANOP                                                           C1356000

                                    758 &NAME    BAL   LINK,COFJDCTC       CONTINUE DCT SCAN                    C1356100
                                    759 .XIT     MEND                                                           C1356200
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    761          MACRO -- $CFJMSG -- COLLECT JOB INFORMATION FOR MESSAGE        C1358000

                                    762 &NAME    $CFJMSG &JOBQE=(R1),&JDCT=,&JOB=,&TYPE=CALL,&SYMBOL=,&INFO=,  CC1360000
                                                       &CVE=,&OPT=,&CONT=                                       C1362000
                                    763          GBLA  &COMPRTY,&JBNOLEN                                        C1364000

                                    764          GBLC  &DOC                                                     C1366000
                                    765          LCLA  &A,&B,&C,&D,&E,&F                                        C1367000
                                    766          LCLA  &N                                                       C1368000
                                    767          LCLC  &R                                                       C1370000
                                    768          LCLC  &T                                                       C1371000
                                    769 &N       SETA  16                  SET GENERATION PRIORITY              C1372000
                                    770 &A       SETA  &JBNOLEN+5                                               C1372100

                                    771 &B       SETA  &A                                                       C1372200
                                    772 &B       SETA  &A+9                                                     C1372400
                                    773 &C       SETA  &B+12                                                    C1372600
                                    774 &D       SETA  &C                                                       C1372700
                                    775          AIF   ('&OPT' EQ 'A').SACT                                     C1372800

                                    776 &D       SETA  &B+19                                                    C1372900
                                    777 .SACT    ANOP                                                           C1373000
                                    778 &E       SETA  &D+8                                                     C1373100
                                    779 &F       SETA  &E+9                                                     C1373200

                                    780 &T       SETC  '&CONT'                                                  C1373300
                                    781 &R       SETC  '&SYSNDX'                                                C1374000
                                    782          AIF   ('&CONT' NE '').SCON                                     C1374500
                                    783 &T       SETC  'COF&R'                                                  C1375000
                                    784 .SCON    ANOP                                                           C1375500
                                    785          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C1376000

                                    786          EJECT                                                          C1378000
                                    787 *********************************************************************** C1380000
                                    788 *                                                                     * C1382000
                                    789 *        COFJMSG -- JOB INFORMATION MESSAGE OUTPUT                    * C1384000
                                    790 *                                                                     * C1386000

                                    791 *        ROUTINE COLLECTS JOB INFORMATION INTO AREA 'COMMAND' AND     * C1388000
                                    792 *        INITIATES OUTPUT RESPONSE.                                   * C1390000
                                    793 *        $WAIT MAY BE ISSUED.                                         * C1392000
                                    794 *                                                                     * C1394000
                                    795 * REGISTERS USED                                                      * C1396000

                                    796 *        R0    = WORK - MESSAGE LENGTH                                * C1398000
                                    797 *        R1    = JOB QUEUE ELEMENT ADDRESS - WORK - AREA 'COMMAND'    * C1400000
                                    798 *        WA    = LINKAGE - MAY BE RELATIVE ON RETURN                    C1402000
                                    799 *        LINK  = LINKAGE                                              * C1404000
                                    800 *        R15   = WORK                                                 * C1406000

                                    801 *                                                                       C1406400
                                    802 * EXITS                                                                 C1406800
                                    803 *        WA+0  JOB DISPLAYED                                            C1407200
                                    804 *        WA+4  JOB NOT DISPLAYED ( CONDITIONAL REQUEST ONLY )           C1407600
                                    805 *                                                                     * C1408000

                                    806 * NOTES                                                               * C1410000
                                    807 *        COMDWORK USED FOR SCRATCH                                      C1412000
                                    808 *        JOB=SET - USER HAS SET TEXT 'JOB N' INTO AREA 'COMMAND'      * C1414000
                                    809 *        OPT=A   - DISPLAY ONLY IF JOB ACTIVE                           C1416000
                                    810 *        OPT=Q   - DISPLAY ONLY IF JOB QUEUED                           C1418000
                                    811 *                                                                     * C1420000

                                    812 *********************************************************************** C1422000
                                    813 .Z       ANOP                                                           C1424000
                                    814          AIF   ('&TYPE' EQ 'RES' AND &COMPRTY LT &N OR '&TYPE' EQ 'DEF'CC1426000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   23



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                                       AND &COMPRTY GE &N).XIT                                  C1428000
                                    815 &NAME    $DECODE &JOBQE                                                 C1430000
                                    816          AIF   ('&TYPE' NE 'CALL').INL                                  C1432000
                                    817          AIF   ('&SYMBOL' EQ '' AND &COMPRTY LT &N).INC                 C1434000

                                    818          AIF   ('&SYMBOL' EQ '' OR &COMPRTY GE &N).CAL                  C1436000
                                    819          BAL   WA,&SYMBOL                                               C1438000
                                    820          MEXIT                                                          C1440000
                                    821 .CAL     BAL   WA,COFJMSG          CREATE JOB MESSAGE                   C1442000
                                    822          MEXIT                                                          C1444000
                                    823 .INC     LA    WA,COF&R.Z          POINT TO EXIT                        C1445000
                                    824 .INL     AIF   ('&JOB' EQ 'SET').A                                      C1446000

                                    825 * MOVE 'JOB' AND NUMBER INTO MESSAGE AREA                               C1448000
                                    826          MVC   COMMAND(3),COF&R.L PLACE 'JOB' INTO MESSAGE AREA         C1450000
                                    827          $CFCVE INFO=NO,SYMBOL=&CVE,VALUE=QUEJOBNO(0,R1)                C1452000

                                    828          MVC   COMMAND+3(COMJBLEN+1),COMDWORK-COMJBLEN+4 SET NUMBER     C1454000
                                    829 .A       ANOP                                                           C1456000
                                    830          MVI   COMMAND+4+COMJBLEN,C' ' BLANK OUT MESSAGE AREA           C1458000
                                    831          MVC   COMMAND+5+COMJBLEN(45),COMMAND+4+COMJBLEN                C1460000
                                    832 * MOVE JOB NAME FROM JIT                                                C1464000

                                    833          BAL   LINK,$QJITLOC       LOCATE JOB NAME ( R0 POINTS )        C1466000
                                    834          LR    R15,R0              PREPARE FOR MOVE                     C1468000
                                    835          MVC   COMMAND+5+COMJBLEN(8),JITJNAME(R15) MOVE NAME            C1470000
                                    836 * BUILD END OF JOB INFORMATION MESSAGE                                  C1473000
                                    837          MVC   COMMAND+&D.(4),COF&R.S SET 'PRIO'                        C1474000
                                    838          SR    R0,R0               ZERO WORK                            C1475000
                                    839          IC    R0,QUEPRIO(0,R1)    GET JOB PRIORITY                     C1476000
                                    840          SRA   R0,4                ALIGN                                C1477000

                                    841          $CFCVE SYMBOL=&CVE,INFO=NO CONVERT TO EBCDIC                   C1478000
                                    842          MVC   COMMAND+&D+5(2),COMDWORK+3 SET PRIORITY                  C1479000

                                    843          TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1+QUEHOLD2+QUEPURGE         C1480000
                                    844          BZ    COF&R.A             BRANCH IF NO SPECIAL CONDITIONS      C1481000
                                    845          MVC   COMMAND+&E.(4),COF&R.T  SET 'HOLD'                       C1482000
                                    846          TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1 IS IT HELD                C1483000
                                    847          BNZ   COF&R.A             BRANCH IF HELD                       C1484000

                                    848          MVC   COMMAND+&E.(5),COF&R.U SET 'PURGE'                       C1485000
                                    849          TM    QUEFLAGS(R1),QUEPURGE IS IT FLAGGED FOR PURGE            C1486000
                                    850          BO    COF&R.A             BRANCH IF YES                        C1487000
                                    851          MVC   COMMAND+&E.(9),COF&R.V SET 'DUPLICATE'                   C1488000
                                    852 COF&R.A  DS    0H                                                       C1489000
                                    853 * DETERMINE NORMAL QUEUE ACTIVITY                                       C1490000
                                    854          AIF   ('&OPT' EQ 'A').NA1                                      C1491000
                                    855          MVC   COMMAND+&B.(12),COF&R.Q SET 'AWAITING OUT'               C1492000
                                    856 .NA1     TM    QUETYPE(R1),$XEQ    TEST FOR EXECUTION                   C1493000

                                    857          BO    COF&R.F             EXIT IF EXECUTION                    C1494000

                                    858 * DETERMINE DEVICE ACTIVITY                                             C1495000
                                    859          MVC   COMMAND+56(2),QUEJOBNO(R1) SAVE JOB NUMBER               C1496000
                                    860          $CFJDCT SYMBOL=&JDCT,CONT=&T,INFO=NO                           C1497000
                                    861          AIF   ('&OPT' EQ 'A').NA2                                      C1498000
                                    862          B     COF&R.C             DISPLAY 'AWAITING OUT'               C1499000

                                    863          AGO   .NA2A                                                    C1500000
                                    864 .NA2     B     4(0,WA)             EXIT WITHOUT DISPLAY                 C1501000
                                    865 .NA2A    AIF   ('&OPT' EQ 'Q').NQ1                                      C1502000
                                    866          AIF   ('&OPT' EQ 'A').NA3                                      C1503000
                                    867          MVC   COMMAND+&C-1(&F-&D+1),COMMAND+&D-1 MOVE BODY             C1504000
                                    868 .NA3     MVC   COMMAND+&B.(3),COF&R.N SET 'ON '                         C1505000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    869          $SRR  WA                  MAKE RELATIVE                        C1506000
                                    870 * DEVICE FOUND - DISPLAY FOR ALL DEVICES                                C1507000

                                    871 COF&R.B  MVC   COMMAND+&B+3(8),DCTDEVN-DCTDSECT(R1) SET DEVICE          C1508000

                                    872          STM   R1,WA,COMDWORK      SAVE                                 C1509000
                                    873          LA    R0,&F-(&D-&C)       SET LENGTH                           C1510000
                                    874          $CWTO L=(R0)              DISPLAY                              C1511000
                                    875          L     R1,COMEWORK         PICK UP JOB QUEUE POINTER            C1512000

                                    876          CLC   COMMAND+56(2),QUEJOBNO(R1) SAME JOB NUMBER               C1513000
                                    877          LM    R1,WA,COMDWORK      RESTORE                              C1514000
                                    878          BNE   0(WA,BASE3)         EXIT IF NOT SAME                     C1515000
                                    879          $CFJDCTC SYMBOL=&T,INFO=NO CONTINUE SCAN OF DCTS               C1516000
                                    880          B     0(WA,BASE3)         EXIT                                 C1517000
                                    881          B     COF&R.B             LOOP                                 C1518000
                                    882          AGO   .NQ1A                                                    C1519000
                                    883 .NQ1     B     4(0,WA)             EXIT WITHOUT DISPLAY                 C1520000
                                    884 .NQ1A    AIF   ('&OPT' EQ 'A').NA4                                      C1521000
                                    885 * NO DEVICE FOUND - DISPLAY OUTPUT PRT PUN ROUTE CODES IN JQE           C1522000
                                    886 COF&R.C  L     R1,COMEWORK         POINT TO JOB QUEUE ELEMENT           C1523000

                                    887          SR    R0,R0               ZERO WORK                            C1524000
                                    888          IC    R0,QUEPRTRT(0,R1)   GET PRINT ROUTE                      C1525000
                                    889          $CFCVE SYMBOL=&CVE,INFO=NO                                     C1526000
                                    890          MVC   COMMAND+&B+12(3),COMDWORK+2 INSERT PRINT ROUTING         C1527000

                                    891          IC    R0,QUEPUNRT(0,R1)   GET PUNCH ROUTE                      C1528000
                                    892          $CFCVE SYMBOL=&CVE,INFO=NO                                     C1529000
                                    893          MVC   COMMAND+&B+15(3),COMDWORK+2 INSERT PUNCH ROUTING         C1530000
                                    894 COF&R.D  LA    R0,&F               SET LENGTH                           C1531000
                                    895 COF&R.E  $CWTO L=(R0),RET=(WA)     DISPLAY WITH EXIT                    C1532000
                                    896 .NA4     ANOP                                                           C1533000
                                    897 * DETERMINE EXECUTION QUEUE STATUS - DISPLAY AS APPROPRIATE             C1534000
                                    898 COF&R.F  TM    QUETYPE(R1),QENTBY  IS IT BUSY                           C1535000
                                    899          AIF   ('&OPT' EQ 'A').NA5                                      C1536000
                                    900          AIF   ('&OPT' EQ 'Q').NQ2                                      C1537000
                                    901          BO    COF&R.G             DISPLAY EXECUTING IF BUSY            C1538000
                                    902          AGO   .NQ2A                                                    C1539000

                                    903 .NA5     BZ    4(0,WA)             EXIT IF NOT BUSY (NO DISPLAY)        C1540000
                                    904          AGO   .NA5A                                                    C1541000
                                    905 .NQ2     BO    4(0,WA)             EXIT IF BUSY ( NO DISPLAY )          C1542000

                                    906 .NQ2A    ANOP                                                           C1543000
                                    907          MVC   COMMAND+&B+9(4),COF&R.R  SET 'EXEC'                      C1544000
                                    908          MVC   COMMAND+&B+17(1),QUETYPE(R1) INSERT CLASS                C1545000
                                    909          OI    COMMAND+&B+17,QENTBY UPPER CASE IT                       C1546000
                                    910          B     COF&R.D             DISPLAY IT                           C1547000
                                    911          AIF   ('&OPT' EQ 'Q').C                                        C1548000
                                    912 COF&R.G  MVC   COMMAND+&C-1(&F-&D+1),COMMAND+&D-1 MOVE BODY             C1549000
                                    913 .NA5A    MVC   COMMAND+&B.(10),COF&R.R SET 'EXECUTING '                 C1550000
                                    914          MVC   COMMAND+&B+10(1),QUETYPE(R1) SET CLASS                   C1551000
                                    915          LA    R0,&F-(&D-&C)       SET COUNT                            C1552000
                                    916          AIF   ('&OPT' EQ 'A').NA6                                      C1553000
                                    917          B     COF&R.E             DISPLAY IT                           C1554000

                                    918          AGO   .C                                                       C1555000
                                    919 .NA6     $CWTO L=(R0),RET=(WA)     DISPLAY WITH EXIT                    C1556000
                                    920          AGO   .C                                                       C1557000

                                    921 .C       AIF   ('&JOB' EQ 'SET').D                                      C1620000
                                    922 COF&R.L  DC    C'JOB'              JOB                                  C1622000
                                    923 .D       AIF   ('&OPT' EQ 'Q').E                                        C1624000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    924 COF&R.N  DC    C'ON '              ON DEVICE                            C1628000
                                    925 .E       AIF   ('&OPT' EQ 'A').F                                        C1630000
                                    926 COF&R.Q  DC    C'AWAITING OUT'     AWAITING OUT                         C1636000
                                    927          AIF   ('&OPT' NE 'Q').F                                        C1638000
                                    928 COF&R.R  DC    C'EXEC'             AWAITING EXEC                        C1640000
                                    929          AGO   .G                                                       C1642000
                                    930 .F       ANOP                                                           C1644000

                                    931 COF&R.R  DC    C'EXECUTING '       AWAITING EXEC - EXECUTING            C1646000

                                    932 .G       ANOP                                                           C1648000
                                    933 COF&R.S  DC    C'PRIO'             PRIO                                 C1650000

                                    934 COF&R.T  DC    C'HOLD'             HOLD                                 C1652000
                                    935 COF&R.U  DC    C'PURGE'            PURGE                                C1654000
                                    936 COF&R.V  DC    C'DUPLICATE'        DUPLICATE                            C1656000
                                    937 COF&R.Z  DS    0H                  END OF MESSAGE PREPARATION           C1660000
                                    938 .XIT     MEND                                                           C1662000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    940          MACRO -- $CFJSCAN -- SCAN JOB QUEUE ASSISTANCE                 C1666000
                                    941 &NAME    $CFJSCAN &PROCESS=,&EMPTY=,&NEXT=,&IGNORE=                     C1668000
                                    942          $CHEK &PROCESS,&NEXT                                           C1670000
                                    943 * SCAN JOB QUEUE FOR SELECTED JOBS                                      C1672000
                                    944 &NAME    LA    R1,$JQENT-QUECHAIN  LOCATE HEAD OF JOB CHAIN             C1674000

                                    945          AIF   ('&EMPTY' EQ '' OR '&IGNORE' EQ '').A                    C1676000
                                    946          MVI   PCEBASE2,X'00'      SET FOUND SWITCH OFF                 C1678000

                                    947          B     *+8                 SKIP OVER SWITCH SETTING             C1680000

                                    948 &NEXT    MVI   PCEBASE2,X'80'      SET FOUND SWITCH ON                  C1682000
                                    949          L     BASE2,PCEBASE2      SET SWITCH INTO REGISTER             C1684000
                                    950          AGO   .B                                                       C1686000
                                    951 .A       ANOP                                                           C1688000
                                    952 &NEXT    NULL                                                           C1690000
                                    953 .B       ANOP                                                           C1692000
                                    954 &IGNORE  L     R1,QUECHAIN(0,R1)   PICK UP NEXT ENTRY              RFIT C1694000
                                    955          LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1694100
                                    956          LTR   R1,R1                   SET CONDITION CODE          RFIT C1694200
                                    957          BNE   &PROCESS                                                 C1700000
                                    958          AIF   ('&EMPTY' EQ '' OR '&IGNORE' EQ '').E                    C1702000
                                    959          LTR   BASE2,BASE2         IF END EXIT, NO ENTRIES PROCESSED    C1704000

                                    960          BP    &EMPTY                                                   C1706000
                                    961 .E       MEND                                                           C1708000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   27



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    963          MACRO -- $CFSEL -- SELECT A ROUTINE BASED ON CHARACTER         C1712000
                                    964 &NAME    $CFSEL &A0,&A1,&A2,&A3,&A4,&A5,&A6,&A7,&A8,&A9,&AA,&AB,&AC,   CC1714000
                                                       &AD,&AE,&AF,                                            CC1716000
                                                       &OPERAND=(R1),&TYPE=CALL,&SYMBOL=,&INFO=                 C1718000
                                    965          GBLA  &COMPRTY                                                 C1720000
                                    966          GBLC  &DOC                                                     C1722000
                                    967          LCLA  &A,&B,&N                                                 C1724000
                                    968          LCLC  &C,&R                                                    C1726000
                                    969 &A       SETA  3                   SET MAX ARG TO PREVENT BAL           C1728000
                                    970 &B       SETA  6                   SET MAX ARG TO PREVENT TABLE SEARCH  C1730000
                                    971 &C       SETC  '&OPERAND'          MVC X,OPERAND                        C1732000

                                    972          AIF   ('&OPERAND'(1,1) NE '(').A                               C1734000
                                    973 &C       SETC  '0&OPERAND'         MVC X,0(OPERAND)                     C1736000
                                    974 .A       ANOP                                                           C1738000
                                    975 &N       SETA  16                  SET GENERATION PRIORITY              C1740000

                                    976 &R       SETC  '&SYSNDX'                                                C1742000
                                    977          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C1744000
                                    978          EJECT                                                          C1746000
                                    979 *********************************************************************** C1748000
                                    980 *                                                                     * C1750000
                                    981 *        COFSEL -- SELECT A ROUTINE BASED ON KEY INPUT CHARACTER      * C1752000

                                    982 *                                                                     * C1754000
                                    983 *        ROUTINE MATCHES THE DESIGNATED INPUT CHARACTER AGAINST       * C1756000
                                    984 *        THE LIST OF ARGUMENTS PROVIDED AND TRANSFERS CONTROL TO      * C1758000
                                    985 *        THE ROUTINE DESIGNATED BY THE CORRESPONDING ADDRESS.         * C1760000
                                    986 *        NO $WAITS ARE ISSUED.                                        * C1762000
                                    987 *                                                                     * C1764000
                                    988 * REGISTERS USED                                                      * C1766000
                                    989 *        R1    = ADDRESS OF INPUT CHARACTER                           * C1768000

                                    990 *        LINK  = RETURN ( USED IF NO MATCH FOUND )                    * C1770000
                                    991 *        R15   = WORK REGISTER                                        * C1772000

                                    992 *                                                                     * C1774000
                                    993 * NOTES                                                               * C1776000
                                    994 *        SEVERAL METHODS OF SELECTION ARE USED BASED UPON THE         * C1778000
                                    995 *        LENGTH OF THE ARGUMENT LIST.                                 * C1780000
                                    996 *        THE SELECTED ROUTINE MUST BE LOCATEABLE VIA AN S TYPE        * C1782000
                                    997 *        CONSTANT.                                                    * C1784000
                                    998 *                                                                     * C1786000
                                    999 *********************************************************************** C1788000

                                   1000 .Z       ANOP                                                           C1790000
                                   1001          AIF   ('&TYPE' EQ 'RES' AND &COMPRTY LT &N OR '&TYPE' EQ 'DEF'CC1792000
                                                       AND &COMPRTY GE &N).XIT                                  C1794000
                                   1002 &NAME    NULL                                                           C1796000
                                   1003          AIF   ('&TYPE' NE 'CALL').INL                                  C1798000

                                   1004          AIF   (&COMPRTY GE &N).B                                       C1800000
                                   1005          AIF   (N'&SYSLIST LE &B).SHORT                                 C1802000
                                   1006 .B       AIF   (N'&SYSLIST LE &A).SHORT                                 C1804000

                                   1007          BAL   R15,COF&R.T         PICK UP TABLE FOR SELECTION          C1806000
                                   1008 &A       SETA  0                                                        C1808000
                                   1009 .C       AIF   (&A GE N'&SYSLIST).D                                     C1810000
                                   1010 &A       SETA  &A+1                                                     C1812000
                                   1011          DC    CL1'&SYSLIST(&A,1)',SL2(&SYSLIST(&A,2))                  C1814000
                                   1012          AGO   .C                                                       C1816000
                                   1013 .D       DC    X'FF'               END OF SELECT TABLE                  C1818000

                                   1014          AIF   ('&SYMBOL' EQ '' AND &COMPRTY LT &N).INL                 C1820000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1015          AIF   ('&SYMBOL' EQ '' OR &COMPRTY GE &N).CAL                  C1822000
                                   1016 COF&R.T  BAL   LINK,&SYMBOL                                             C1824000

                                   1017          MEXIT                                                          C1826000
                                   1018 .CAL     ANOP                                                           C1828000
                                   1019 COF&R.T  BAL   LINK,COFSEL         SELECT ROUTINE                       C1830000
                                   1020          MEXIT                                                          C1832000

                                   1021 .INL     ANOP                                                           C1834000
                                   1022 COF&R.T  CLC   0(1,R15),&C                                              C1836000
                                   1023          BNE   *+14                IF NOT FOUND LOOK AT NEXT            C1838000
                                   1024          MVC   *+8(2),1(R15)       SET BRANCH INSTRUCTION               C1840000
                                   1025          B     *-*                 *** MODIFIED *** MODIFIED ***        C1842000
                                   1026          LA    R15,3(0,R15)        NEXT TABLE ENTRY                     C1844000

                                   1027          BL    COF&R.T             LOOP                                 C1846000
                                   1028          AIF   ('&TYPE' EQ 'CALL').XIT                                  C1848000
                                   1029          BR    LINK                RETURN                               C1850000
                                   1030          MEXIT                                                          C1852000
                                   1031 .SHORT   ANOP                                                           C1854000

                                   1032 &A       SETA  0                                                        C1856000
                                   1033 .H       AIF   (&A GE N'&SYSLIST).XIT                                   C1858000
                                   1034 &A       SETA  &A+1                                                     C1860000
                                   1035          CLI   &C,C'&SYSLIST(&A,1)'                                     C1862000
                                   1036          BE    &SYSLIST(&A,2)                                           C1864000

                                   1037          AGO   .H                                                       C1866000
                                   1038 .XIT     MEND                                                           C1868000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1040          MACRO -- $CFVQE -- VERIFY CONSOLE CONTROL OVER JOB             C1872000

                                   1041 &NAME    $CFVQE &JOBQE=(R1),&OK=(,BC),&NOK=(,BC),&TYPE=CALL,&SYMBOL=,  CC1874000
                                                       &INFO=                                                   C1876000
                                   1042          GBLA  &NUMRJE,&COMPRTY                                         C1878000
                                   1043          GBLC  &DOC                                                     C1880000
                                   1044          LCLA  &N                                                       C1882000

                                   1045          LCLC  &ADR,&OP,&R                                              C1884000
                                   1046 &N       SETA  1                   SET GENERATION PRIORITY              C1886000
                                   1047 &R       SETC  '&SYSNDX'                                                C1888000
                                   1048          AIF   ('&INFO' EQ '' AND '&DOC' EQ 'NO' OR '&INFO' EQ 'NO').Z  C1890000
                                   1049          EJECT                                                          C1892000
                                   1050 *********************************************************************** C1894000

                                   1051 *                                                                     * C1896000
                                   1052 *        COFVQE -- VERIFY CONSOLE CONTROL OVER JOB                    * C1898000
                                   1053 *                                                                     * C1900000
                                   1054 *        ROUTINE TESTS FOR RESTRICTED CONSOLE AND, IF RESTRICTED      * C1902000

                                   1055 *        AND NEITHER PRINT OR PUNCH ROUTING IS TO THE RESTRICTED      * C1904000
                                   1056 *        UNIT RECORD GROUP, THE JOB IS 'NOT OK'.                      * C1906000
                                   1057 *        OTHERWISE THE JOB IS 'OK'.                                   * C1908000
                                   1058 *        NO $WAITS ARE ISSUED.                                        * C1910000
                                   1059 *                                                                     * C1912000

                                   1060 * REGISTERS USED                                                      * C1914000
                                   1061 *        R1    = JOB QUEUE ELEMENT ADDRESS                            * C1916000
                                   1062 *        LINK  = RETURN                                               * C1918000
                                   1063 *                                                                     * C1920000
                                   1064 * EXITS                                                               * C1922000
                                   1065 *        CC    = (E)  - JOB QUEUE ELEMENT OK                          * C1924000
                                   1066 *        CC    = (NE) - JOB QUEUE ELEMENT NOK                         * C1926000

                                   1067 *                                                                     * C1928000
                                   1068 *********************************************************************** C1930000
                                   1069 .Z       AIF   ('&TYPE' EQ 'RES' AND &COMPRTY LT &N OR '&TYPE' EQ 'DEF'CC1932000

                                                       AND &COMPRTY GE &N).XIT                                  C1934000
                                   1070 &NAME    NULL                                                           C1936000
                                   1071 &OP      SETC  'BCR'                                                    C1938000
                                   1072 &ADR     SETC  'LINK'                                                   C1940000
                                   1073          AIF   ('&TYPE' NE 'CALL').INL                                  C1942000

                                   1074 &OP      SETC  'BC'                                                     C1944000
                                   1075 &ADR     SETC  'COF'.'&R'.'B'                                           C1946000
                                   1076          AIF   ('&OK(1)' EQ '').A                                       C1948000
                                   1077 &ADR     SETC  '0('.'&OK(1)'.',WG)'                                     C1950000
                                   1078          AIF   ('&OK(2)' EQ '$BRR').B                                   C1952000
                                   1079 &OP      SETC  '&OK(2)'                                                 C1954000
                                   1080 &ADR     SETC  '&OK(1)'                                                 C1956000
                                   1081          AGO   .B                                                       C1958000

                                   1082 .A       AIF   ('&NOK(1)' NE '').B                                      C1960000
                                   1083          MNOTE 12,'NOT OK PARAMETER REQUIRED'                           C1962000

                                   1084          MEXIT                                                          C1964000
                                   1085 .B       AIF   (&NUMRJE EQ 0).H                                         C1966000
                                   1086          $DECODE &JOBQE                                                 C1968000
                                   1087          AIF   ('&SYMBOL' EQ '' AND &COMPRTY LT &N).INL                 C1970000
                                   1088          AIF   ('&SYMBOL' EQ '' OR &COMPRTY GE &N).CAL                  C1972000

                                   1089          BAL   LINK,&SYMBOL                                             C1974000
                                   1090          AGO   .C                                                       C1976000
                                   1091 .CAL     BAL   LINK,COFVQE         VERIFY JOB QUEUE ELEMENT             C1978000
                                   1092          AGO   .C                                                       C1980000
COMM     HASP COMMAND PROCESSOR FUNCTION MACRO DEFINITIONS                                                     PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1093 .INL     AIF   (&NUMRJE EQ 0).XIT                                       C1982000
                                   1094          TM    COMFLAGS,WCMBFG     TEST FOR REMOTE SOURCE               C1984000
                                   1095          &OP   E,&ADR                                                   C1986000

                                   1096          CLC   QUEPRTRT(1,R1),COMROUTE LOOK FOR OWNER OF PRINT          C1988000

                                   1097          &OP   E,&ADR                                                   C1990000
                                   1098          CLC   QUEPUNRT(1,R1),COMROUTE LOOK FOR OWNER OF PUNCH          C1992000
                                   1099          AIF   ('&TYPE' EQ 'CALL').C                                    C1994000
                                   1100          BR    &ADR                RETURN EQ = OK, NE = NOT OK          C1996000
                                   1101          MEXIT                                                          C1998000

                                   1102 .C       AIF   ('&OK(1)' EQ '').D                                       C2000000
                                   1103          &OP   E,&ADR                                                   C2002000
                                   1104 .D       AIF   ('&NOK(1)' EQ '').XIT                                    C2004000
                                   1105          AIF   ('&NOK(2)' EQ '$BRR').E                                  C2006000
                                   1106          AIF   ('&NOK(2)' EQ '').F                                      C2008000
                                   1107          &NOK(2) NE,&NOK(1)                                             C2010000
                                   1108          AGO   .G                                                       C2012000
                                   1109 .E       $BRR  NE,&NOK(1)                                               C2014000
                                   1110          AGO   .G                                                       C2016000
                                   1111 .F       BNE   &NOK(1)                                                  C2018000

                                   1112 .G       AIF   ('&SYMBOL' NE '' OR &COMPRTY GE &N).XIT                  C2020000

                                   1113 COF&R.B  DS    0H                                                       C2022000
                                   1114          MEXIT                                                          C2024000
                                   1115 .H       AIF   ('&OK(1)' EQ '').XIT                                     C2026000
                                   1116          &OP   15,&ADR                                                  C2028000

                                   1117 .XIT     MEND                                                           C2030000
COMM     HASP COMMAND PROCESSOR RELATIVE REGISTER MACROS                                                       PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1119          MACRO -- $ARR -- ADD RELATIVE REGISTER                         C2034000
                                   1120 &NAME    $ARR  &R                                                       C2036000
                                   1121 &NAME    ALR   &R,BASE3                                                 C2038000
                                   1122          MEND                                                           C2040000
COMM     HASP COMMAND PROCESSOR RELATIVE REGISTER MACROS                                                       PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1124          MACRO -- $BRR -- BRANCH RELATIVE REGISTER                      C2044000
                                   1125 &NAME    $BRR  &C,&R                                                    C2046000

                                   1126          GBLC  &OSECT                                                   C2048000
                                   1127          AIF   ('&R' EQ '').A                                           C2050000
                                   1128 &NAME    BC    &C,&OSECT+OACEPROG-BUFSTART(&R)                          C2052000
                                   1129          MEXIT                                                          C2054000

                                   1130 .A       ANOP                                                           C2056000
                                   1131 &NAME    B     &OSECT+OACEPROG-BUFSTART(&C)                             C2058000
                                   1132          MEND                                                           C2060000
COMM     HASP COMMAND PROCESSOR RELATIVE REGISTER MACROS                                                       PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1134          MACRO -- $SRR -- SUBTRACT RELATIVE REGISTER                    C2064000
                                   1135 &NAME    $SRR  &R                                                       C2066000
                                   1136 &NAME    SLR   &R,BASE3                                                 C2068000
                                   1137          MEND                                                           C2070000
COMM     HASP COMMAND PROCESSOR - GLOBAL DEFINITIONS                                                           PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                   1140 *        COMMAND PROCESSOR DEFINITIONS                                  C2076000




                                   1142          GBLA  &COMPRTY            0-15 COMMAND PROCESSOR PRIORITY      C2080000
                                   1143 *                                  IF 0,   ALL COMMANDS OVERLAYABLE     C2082000
                                   1144 *                                  IF 15, ALL KNOWN COMMANDS RESIDENT   C2084000
                                   1145 *                                          UNKNOWN COMMANDS OVERLAYABLE C2086000
                                   1146          GBLA  &COMIPL             0-7 OPTIONAL RESIDENCY PRIORITY      C2088000
                                   1147          GBLA  &JBNOLEN            EBCDIC LENGTH OF JOB NUMBER 2-5      C2090000
                                   1148          GBLA  &NUMOSC             NUMBER OF OS CONSOLES                C2091000
                                   1149          GBLA  &MAXRTE             MAXIMUM ROUTING CODE                 C2092000
                                   1150          GBLB  &LONGCOM            LONG FORM OF COMMAND OPTION          C2094000
                                   1151          GBLC  &DOC                DOCUMENTATION OPTION                 C2096000
                                   1152          GBLC  &GEN                MACRO GENERATION OPTION              C2098000
                                   1153          GBLC  &CDV2               ASSEMBLY AID FOR DEVICE COMMANDS     C2100000

                                   1154          GBLC  &CDV3               ASSEMBLY AID FOR DEVICE COMMANDS     C2102000
                                   1155          COPY  $GLOBAL             COPY HASP GLOBALS                    C2104000
                                   1156 *                                                                       GL002000

                                   1157 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                   1158 *                                                                       GL006000



                                   1160          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000
                                   1161          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000
                                   1162          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                   1163          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000
                                   1164          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000





                                   1166 *                                                                       GL032000
                                   1167 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000

                                   1168 *                                                                       GL036000




                                   1170          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000

                                   1171          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                   1172          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000
                                   1173          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                   1174          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000
                                   1175          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000
                                   1176          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                   1177          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000
                                   1178          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000
                                   1179          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000
                                   1180          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000
COMM     HASP COMMAND PROCESSOR - GLOBAL DEFINITIONS                                                           PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   1181          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                   1182          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000

                                   1183          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000

                                   1184          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000
                                   1185          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000
                                   1186          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                   1187          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200
                                   1188          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300
                                   1189          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000
                                   1190          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000
                                   1191          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                   1192          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000
                                   1193          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                   1194          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                   1195          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000

                                   1196          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000
                                   1197          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                   1198          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000

                                   1199          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000
                                   1200          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000
COMM     HASP COMMAND PROCESSOR - GLOBAL DEFINITIONS                                                           PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1202 *                                                                       GL116000
                                   1203 *                             O/S INTERFACE PARAMETERS                  GL118000
                                   1204 *                                                                       GL120000



                                   1206          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000
                                   1207          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                   1208          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000
                                   1209          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000

                                   1210          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000
                                   1211          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000
                                   1212          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                   1213          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000

                                   1214          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000
                                   1215          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000
                                   1216          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                   1217          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200
                                   1218          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300
                                   1219          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400






                                   1221 *                                                                       GL150000
                                   1222 *                             HASP OPTION PARAMETERS                    GL152000
                                   1223 *                                                                       GL154000



                                   1225          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000
                                   1226          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000

                                   1227          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000
                                   1228          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000

                                   1229          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000
                                   1230          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000
                                   1231          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000
                                   1232          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000
                                   1233          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000
                                   1234          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000
                                   1235          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100
                                   1236          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500

                                   1237          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                   1238          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                   1239          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000
                                   1240          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                   1241          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000

                                   1242          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000
                                   1243          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000
                                   1244          GBLB  &DEBUG              DEBUG MODE                           GL186000

                                   1245          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000
                                   1246          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000
COMM     HASP COMMAND PROCESSOR - GLOBAL DEFINITIONS                                                           PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1248 *                                                                       GL226000
                                   1249 *                             REMOTE JOB ENTRY PARAMETERS               GL228000
                                   1250 *                                                                       GL230000




                                   1252          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                   1253          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000
                                   1254          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000
                                   1255          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000

                                   1256          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000
                                   1257          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000
                                   1258          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000
                                   1259          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000

                                   1260          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000





                                   1262 *                                                                       GL260000
                                   1263 *                             INTERNAL GENERATION PARAMETERS            GL262000
                                   1264 *                                                                       GL264000




                                   1266          GBLC  &VERSION            HASP VERSION                         GL270000
                                   1267          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000
                                   1268          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                   1269          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000

                                   1270          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500
                                   1271          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000
                                   1272          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500
                                   1273          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                   1274          GBLA  &LOW                OVERLAY PRIORITY                     GL280000

                                   1275          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000
                                   1276          GBLA  &HIGH                 PARAMETER VALUES                   GL284000
                                   1277          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000
                                   1278          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000
000000                             1279 HASPCOMM START 0                                                        C2106000

                                   1280          COPY  $HASPGEN            COPY HASPGEN PARAMETERS      OY02728 C2107000
COMM     HASPGEN PARAMETER VALUES                                                                              PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1282 *                                                                       HA004000
                                   1283 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000

                                   1284 *                                                                       HA008000



                                   1286 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000
                                   1287 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                   1288 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000
                                   1289 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000

                                   1290 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000




                                   1292 *                                                                       HA028000

                                   1293 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000
                                   1294 *                                                                       HA032000



                                   1296 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000
                                   1297 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000

                                   1298 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000
                                   1299 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000
                                   1300 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000
                                   1301 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                   1302 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000
                                   1303 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000
                                   1304 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000

                                   1305 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000
                                   1306 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                   1307 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000

                                   1308 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000
                                   1309 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000
                                   1310 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000
                                   1311 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000
                                   1312 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000

                                   1313 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                   1314 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200
                                   1315 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300
                                   1316 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                   1317 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000
                                   1318 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                   1319 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000
                                   1320 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000

                                   1321 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                   1322 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000

                                   1323 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000
                            0003C  1324 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000
COMM     HASPGEN PARAMETER VALUES                                                                              PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                   1327 *                                                                       HA100000
                                   1328 *                             O/S INTERFACE PARAMETERS                  HA102000
                                   1329 *                                                                       HA104000



                                   1331 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                   1332 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000
                                   1333 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000
                                   1334 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000

                                   1335 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000

                                   1336 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000
                                   1337 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                   1338 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                   1339 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000
                                   1340 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100

                                   1341 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200
                                   1342 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300
                                   1343 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400



                                   1345 *                                                                  RFIT HA125600
                                   1346 *                             HASP SVC NUMBER                      RFIT HA125700
                                   1347 *                                                                  RFIT HA125800
                                   1348          COPY  $INITSVC                                            RFIT HA125900
                                   1349 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT





                                   1351 *                                                                       HA130000

                                   1352 *                             HASP OPTION PARAMETERS                    HA132000
                                   1353 *                                                                       HA134000




                                   1355 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000
                                   1356 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000
                                   1357 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000
                                   1358 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000
                                   1359 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                   1360 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000
                                   1361 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                   1362 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000
                                   1363 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000
                                   1364 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000

                                   1365 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100

                                   1366 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500
                                   1367 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
COMM     HASPGEN PARAMETER VALUES                                                                              PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   1368 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500
                                   1369 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                   1370 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000
                                   1371 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                   1372 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000
                                   1373 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                   1374 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000
                                   1375 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                   1376 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000
COMM     HASPGEN PARAMETER VALUES                                                                              PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                   1379 *                                                                       HA174000
                                   1380 *                             REMOTE JOB ENTRY PARAMETERS               HA176000

                                   1381 *                                                                       HA178000



                                   1383 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000
                                   1384 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000
                                   1385 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000
                                   1386 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000
                                   1387 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                   1388 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000
                                   1389 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000
                                   1390 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000
                                   1391 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000






                                   1393 *                                                                       HA202000
                                   1394 *                             INTERNAL GENERATION PARAMETERS            HA204000

                                   1395 *                                                                       HA206000



                                   1397 &VERSION SETC  '4.0'               HASP VERSION                         HA210000
                                   1398 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000
                                   1399 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000
                                   1400 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                   1401 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000
                                   1402 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                   1403 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000
                                   1404 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500
                                   1405 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                   1406 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000

                                   1407 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000

                                   1408 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000
                                   1409 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000

                                   1410 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
COMM     HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                   1413 *                                                                       HA234000
                                   1414 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000
                                   1415 *                                                                       HA238000



                            00000  1417 R0       EQU   0                                                        HA242000
                            00001  1418 R1       EQU   1                                                        HA244000
                            00002  1419 R2       EQU   2                                                        HA246000

                            00003  1420 R3       EQU   3                                                        HA248000
                            00004  1421 R4       EQU   4                                                        HA250000

                            00005  1422 R5       EQU   5                                                        HA252000

                            00006  1423 R6       EQU   6                                                        HA254000
                            00007  1424 R7       EQU   7                                                        HA256000
                            00008  1425 R8       EQU   8                                                        HA258000
                            00009  1426 R9       EQU   9                                                        HA260000
                            0000A  1427 R10      EQU   10                                                       HA262000
                            0000B  1428 R11      EQU   11                                                       HA264000
                            0000C  1429 R12      EQU   12                                                       HA266000
                            0000D  1430 R13      EQU   13                                                       HA268000
                            0000E  1431 R14      EQU   14                                                       HA270000
                            0000F  1432 R15      EQU   15                                                       HA272000






                                   1434 *                                                                       HA276000
                                   1435 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000
                                   1436 *                                                                       HA280000




                            00002  1438 WA       EQU   R2                  WORK REGISTER A                      HA284000
                            00003  1439 WB       EQU   R3                  WORK REGISTER B                      HA286000
                            00004  1440 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005  1441 WD       EQU   R5                  WORK REGISTER D                      HA290000
                            00006  1442 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007  1443 WF       EQU   R7                  WORK REGISTER F                      HA294000
                            00008  1444 WG       EQU   R8                  WORK REGISTER G                      HA296000
                            00008  1445 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000
                            0000A  1446 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000
                            0000B  1447 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000
                            0000C  1448 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000

                            0000D  1449 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000
                            0000E  1450 LINK     EQU   R14                 LINK REGISTER                        HA308000
COMM     HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78












                            00000  1453 NOP      EQU   0                   NO-OP                                HA314000
                            00001  1454 O        EQU   1                   ONES OR OVERFLOW                     HA316000

                            00002  1455 H        EQU   2                   HIGH                                 HA318000
                            00002  1456 P        EQU   2                   PLUS                                 HA320000
                            00004  1457 L        EQU   4                   LOW                                  HA322000
                            00004  1458 M        EQU   4                   MINUS OR MIXED                       HA324000
                            00007  1459 NE       EQU   7                   NOT EQUAL                            HA326000
                            00007  1460 NZ       EQU   7                   NOT ZERO                             HA328000
                            00008  1461 E        EQU   8                   EQUAL                                HA330000
                            00008  1462 Z        EQU   8                   ZERO                                 HA332000

                            0000B  1463 NL       EQU   11                  NOT LOW                              HA334000
                            0000B  1464 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000

                            0000D  1465 NH       EQU   13                  NOT HIGH                             HA338000
                            0000D  1466 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E  1467 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
COMM     HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1469 *                                                                       HA346000
                                   1470 *                             BIT DEFINITIONS                           HA348000
                                   1471 *                                                                       HA350000




                            00080  1473 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000
                            00040  1474 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000
                            00020  1475 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000
                            00010  1476 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000

                            00008  1477 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000
                            00004  1478 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000
                            00002  1479 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000

                            00002  1480 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001  1481 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000
                                   1482 *                                                                       HA370000
                            00080  1483 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000
                            00040  1484 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020  1485 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010  1486 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000

                            00008  1487 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000
                            00004  1488 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000
                            00002  1489 $EWF15   EQU   X'02'               SPARE                                HA384000
                            00001  1490 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000






                                   1492 *                                                                       HA390000
                                   1493 *                             BYTE DEFINITIONS                          HA392000
                                   1494 *                                                                       HA394000




                            00000  1496 $EWBPOST EQU   0                   BYTE 0                               HA398000
                            00000  1497 $EWBBUF  EQU   0                   BYTE 0                               HA400000
                            00000  1498 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000  1499 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000  1500 $EWBUNIT EQU   0                   BYTE 0                               HA406000

                            00000  1501 $EWBCKPT EQU   0                   BYTE 0                               HA408000
                            00000  1502 $EWBCMB  EQU   0                   BYTE 0                               HA410000
                            00000  1503 $EWBSMF  EQU   0                   BYTE 0                               HA411000
                            00000  1504 $EWBJOT  EQU   0                   BYTE 0                               HA412000
                                   1505 *                                                                       HA414000

                            00001  1506 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001  1507 $EWBIO   EQU   1                   BYTE 1                               HA418000
                            00001  1508 $EWBWORK EQU   1                   BYTE 1                               HA420000
                            00001  1509 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001  1510 $EWBDDB  EQU   1                   BYTE 1                               HA424000

                            00001  1511 $EWBOLAY EQU   1                   BYTE 1                               HA426000
                            00001  1512 $EWB15   EQU   1                   BYTE 1                               HA428000
                            00001  1513 $EWBOROL EQU   1                   BYTE 1                               HA430000
COMM     HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   1516 *                                                                       HA436000
                                   1517 *                             LOGICAL CONSOLE DEFINITIONS               HA438000
                                   1518 *                                                                       HA440000




                            00001  1520 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002  1521 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000
                            00004  1522 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008  1523 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000
                            00010  1524 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000

                            00020  1525 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000
                            00040  1526 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080  1527 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF  1528 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000

                            00000  1529 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000





                                   1531 *                                                                       HA466000
                                   1532 *                             MESSAGE CLASS DEFINITIONS                 HA468000

                                   1533 *                                                                       HA470000



                            00010  1535 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000
                            00030  1536 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050  1537 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000
                            00070  1538 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000
                            00080  1539 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000





                                   1541 *                                                                       HA484000

                                   1542 *                             MESSAGE PRIORITY DEFINITIONS              HA486000
                                   1543 *                                                                       HA488000



                            00001  1545 $LO      EQU   1                   LOW PRIORITY                         HA492000
                            00004  1546 $ST      EQU   4                   STANDARD PRIORITY                    HA494000

                            00007  1547 $HI      EQU   7                   HIGH PRIORITY                        HA496000
COMM     HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1550 *                                                                       HA502000
                                   1551 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000
                                   1552 *                                                                       HA506000




                            00080  1554 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000

                            00000  1555 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000
                            00040  1556 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000
                            00000  1557 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000
                            00020  1558 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000
                            00000  1559 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000

                            00010  1560 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000
                            00000  1561 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000
                            00008  1562 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000
                            00000  1563 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000
                            00004  1564 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000  1565 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000






                                   1567 *                                                                       HA536000
                                   1568 *                             HASP STATUS BIT DEFINITIONS               HA538000

                                   1569 *                                                                       HA540000



                            00080  1571 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040  1572 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000
                            00020  1573 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000

                            00010  1574 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000
                            00008  1575 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000
                            00004  1576 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000
                            00002  1577 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000
COMM     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1580 *                                                                       HA560000

                                   1581 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000

                                   1582 *                                                                       HA564000



                                   1584 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                   1585 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000
                                   1586 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000

                                   1587 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000
                                   1588 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000
                                   1589 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000
                                   1590 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000
                                   1591 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                   1592 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000





                                   1594 *                                                                       HA588000
                                   1595 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000

                                   1596 *                                                                       HA592000




                                   1598 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                   1599 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000
                                   1600 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000

                                   1601 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                   1602 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                   1603 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000
                                   1604 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                   1605 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000
                                   1606 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
COMM     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1609 *                                                                       HA618000

                                   1610 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000
                                   1611 *                                                                       HA622000



                                   1613 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000

                                   1614 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000
                                   1615 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000
                                   1616 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000
                                   1617 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000
                                   1618 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000
                                   1619 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000
                                   1620 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                   1621 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000





                                   1623 *                                                                       HA646000
                                   1624 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000

                                   1625 *                                                                       HA650000



                                   1627 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000

                                   1628 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                   1629 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000
                                   1630 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000
                                   1631 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000
                                   1632 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000
                                   1633 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                   1634 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000
                                   1635 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
COMM     HASP COMMAND PROCESSOR PARAMETER VALUES                                                               PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1637 &COMPRTY SETA  0                   COMMAND PROCESSOR PRIORITY           C2110000
                                   1638 &COMIPL  SETA  &COMPRTY/2          OPTIONAL RESIDENCY PROIRITY          C2112000

                                   1639 &JBNOLEN SETA  4                   EBCDIC LENGTH OF JOB NUMBER          C2114000

                                   1640 &NUMOSC  SETA  5 ******************NUMBER OF OS CONSOLES                C2115000
                                   1641 &LONGCOM SETB  (&NO)               LONG FORM OF COMMAND OPTION          C2116000

                                   1642 &DOC     SETC  'NO'                DOCUMENTATION OPTION                 C2118000
                                   1643 &GEN     SETC  'GEN'                                                    C2120000
                                   1644 &CDV2    SETC  'HASPCDV1'          ASSUME SINGLE DEVICE COMMAND CSECT   C2122000
                                   1645          AIF   (&COMPRTY GE 1).CDV                                      C2124000
                                   1646 &CDV2    SETC  'HASPCDV2'          SET FOR SPLIT DEVICE COMMAND CSECTS  C2126000
                                   1647 &CDV3    SETC  'HASPCDV3'          SET FOR SPLIT DEVICE COMMAND CSECTS  C2128000
                                   1648 .CDV     ANOP                                                           C2130000
                                   1649 &MAXRTE  SETA  &NUMRJE             MAXIMUM ROUTING CODE                 C2134000
                                   1650          $HASPCB HCT,PCE,BUFFER,CMB,DCT,JQE,JIT,PIT,CVT,TCB,DCB,DEB,   CC2136000
                                                       UCB,JOE,JOT,XEQWORK,JCT,PPPWORK,RDRWORK,SMF,DOC=&DOC     C2138000
COMM     HASP COMMUNICATION TABLE DSECT                                                                        PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000000                             1652+HCTDSECT DSECT                     HASP COMMUNICATION TABLE DSECT       HC437000



                            00000  1654+         USING HCTDSECT,BASE1      ESTABLISH HCT ADDRESSABILITY         HC439000



000000 40E540F44BF0F0F9            1656+$VERSION DC    CL8' V 4.009762'         HASP VERSION                    HC441000


                                   1658+*                             VS2 - HASP VECTOR TABLE                   HC451050

000008                             1660+$HVT     DS    0F                                                       HC451150
000008 00000000                    1661+$HVTEXCP DC    V($EXCPSVC)         IOS PSEUDO DEVICE EXIT ADDRESS       HC451200
00000C 00000000                    1662+         DC    V(XJCLSCAN)         INTERPRETTER EXIT ADDRESS            HC451250
000010 00000000                    1663+         DC    V($MGCRSVC)         MGCR EXIT ADDRESS                    HC451300
000014 00000000                    1664+         DC    V($WTOSVC)          WTO(R)/WTL EXIT 1 ADDRESS            HC451350
000018 00000000                    1665+         DC    V($WTOSVC2)         WTO(R) EXIT 2 ADDRESS                HC451400
00001C 0000002C                    1666+         DC    A($EXITNOP)         JOB INITIATION EXIT ADDRESS          HC451450

000020 0000002C                    1667+         DC    A($EXITNOP)         STEP INITIATION EXIT ADDRESS         HC451500
000024 00000000                    1668+         DC    V(XTERMSMF)         TERMINATION EXIT ADDRESS             HC451550
000028 00000000                    1669+         DC    V($TSOCOMM)         TSO STATUS/CANCEL EXIT ADDRESS       HC451600


00002C 1BFF                        1671+$EXITNOP SR    R15,R15             R15 = RC = 0                         HC451750
00002E 07FE                        1672+         BR    R14                 RETURN                               HC451800


                                   1674+*                             ENTRY TO HASP DISPATCHER                  HC452000

000030 47F0 B030      00030        1676+$WAIT    B     *                                                        HN016000


                                   1678+*                             ENTRIES TO HASP BUFFER SERVICES           HC456000

000034 47F0 B034      00034        1680+$GETBUF  B     *                                                        HN016000
000038 47F0 B038      00038        1681+$GETPBUF B     *                                                        HN016000

00003C 47F0 B03C      0003C        1682+$FREEBUF B     *                                                        HN016000


                                   1684+*                             ENTRIES TO HASP UNIT SERVICES             HC462000


000040 47F0 B040      00040        1686+$GETUNIT B     *                                                        HN016000
000044 47F0 B044      00044        1687+$FREUNIT B     *                                                        HN016000


                                   1689+*                             ENTRIES TO HASP JOB QUEUE SERVICES        HC467000

000048 47F0 B048      00048        1691+$QADD    B     *                                                        HN016000

00004C 47F0 B04C      0004C        1692+$QGET    B     *                                                        HN016000
000050 47F0 B050      00050        1693+$QPUT    B     *                                                        HN016000
000054 47F0 B054      00054        1694+$QREM    B     *                                                        HN016000
000058 47F0 B058      00058        1695+$QSIZ    B     *                                                        HN016000
00005C 47F0 B05C      0005C        1696+$QLOC    B     *                                                        HN016000
000060 47F0 B060      00060        1697+$QJITLOC B     *                                                        HN016000
COMM     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   1699+*                             ENTRIES TO DIRECT ACCESS SPACE SERVICES   HC477000


000064 47F0 B064      00064        1701+$TRACK   B     *                                                        HN016000
000068 47F0 B068      00068        1702+$PURGER  B     *                                                        HN016000


                                   1704+*                             ENTRIES TO HASP INPUT/OUTPUT SERVICES     HC482000

00006C 47F0 B06C      0006C        1706+$EXCP    B     *                                                        HN016000
000070 47F0 B070      00070        1707+$EXTPOPE B     *                                                        HN016000
000074 47F0 B074      00074        1708+$EXTPGET B     *                                                        HN016000

000078 47F0 B078      00078        1709+$EXTPPUT B     *                                                        HN016000
00007C 47F0 B07C      0007C        1710+$EXTPCLO B     *                                                        HN016000
000080 47F0 B080      00080        1711+$RESTORE B     *                                                        HN016000


                                   1713+*                             ENTRIES TO HASP OVERLAY SERVICES          HC491000


000084 47F0 B084      00084        1715+$ODEL    B     *                                                        HN016000
000088 47F0 B088      00088        1716+$ORET    B     *                                                        HN016000

00008C 47F0 B08C      0008C        1717+$OLINK   B     *                                                        HN016000
000090 47F0 B090      00090        1718+$OXCTL   B     *                                                        HN016000
000094 47F0 B094      00094        1719+$OLOAD   B     *                                                        HN016000


                                   1721+*                             ENTRIES TO HASP CONSOLE SERVICES          HC499000

000098 47F0 B098      00098        1723+$WTO     B     *                                                        HN016000

00009C 47F0 B09C      0009C        1724+$FREEMSG B     *                                                        HN016000
0000A0 47F0 B0A0      000A0        1725+$DOM     B     *                                                        HN016000


                                   1727+*                             ENTRIES TO HASP SMF BUFFER SERVICES       HC503200


0000A4 47F0 B0A4      000A4        1729+$QUESMFB B     *                                                        HN016000
0000A8 47F0 B0A8      000A8        1730+$GETSMFB B     *                                                        HN016000


                                   1732+*                             ENTRIES TO HASP INTERVAL TIMER SERVICES   HC504000


0000AC 47F0 B0AC      000AC        1734+$STIMER  B     *                                                        HN016000
0000B0 47F0 B0B0      000B0        1735+$TTIMER  B     *                                                        HN016000


                                   1737+*                             ENTRIES TO HASP ERROR SERVICES            HC509000


0000B4 47F0 B0B4      000B4        1739+$IOERROR B     *                                                        HN016000
0000B8 47F0 B0B8      000B8        1740+$ERROR   B     *                                                        HN016000
0000BC 47F0 B0BC      000BC        1741+$DISTERR B     *                                                        HN016000
COMM     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


0000C0 00                          1743+         DC    AL1(0)              RESERVED                             HC515000
0000C1 00                          1744+$OPTSTAT DC    AL1(*-*)            HASP INITIALIZATION OPTIONS          HC516000
0000C2 00                          1745+$STATUS  DC    AL1(*-*)            HASP SYSTEM STATUS                   HC517000
0000C3 00                          1746+$CURPCE  DC    AL1(*-*)            CURRENT PCE ID                       HC518000
0000C4 00                          1747+$HASPECF DC    AL1(*-*)            MASTER EVENT CONTROL FIELD           HC519000

0000C5 00                          1748+MHASPECF DC    AL1(*-*)            LINE MANAGER EVENT CONTROL FIELD     HC520000
0000C6 00                          1749+$XEQACT  DC    AL1(*-*)            COUNT OF JOBS IN O/S EXECUTION       HC521000
0000C7 00                          1750+$ACTIVE  DC    AL1(*-*)            COUNT OF ACTIVE FUNCTIONS            HC522000
0000C8 FF                          1751+$ENBALL  DC    X'FF'               ENABLE ALL MASK                      HC523000
0000C9 00                          1752+$DISALL  DC    X'00'               DISABLE ALL MASK                     HC524000

0000CA FE                          1753+$DISINT  DC    X'FE'               DISABLE INTERVAL TIMER MASK          HC525000
0000CB 00                          1754+         DC    X'00'               RESERVED                             HC526000
0000CC 0000                        1755+$EXCPCT  DC    Y(*-*)              ACTIVE HASP I/O COUNT                HC531000
0000CE 0040                        1756+$COMMCT  DC    Y(64)                     ACTIVE HASP COMMAND COUNT      HC532000
0000D0 0000                        1757+$CKPTRAK DC    Y(*-*)              HASP CHECKPOINT TRACK ADDRESS        HC533000

0000D2 0000                        1758+         DC    Y(0)                RESERVED                             HC534000
0000D4 00000000                    1759+$HASPTCB DC    A(*-*)              ADDRESS OF HASP TASK CONTROL BLOCK   HC535000
0000D8 00000000                    1760+$HASPECB DC    F'0'                COMMON HASP ECB                      HC535200
0000DC 00000000                    1761+$ASYNCQ  DC    A(0)                ASYNC I/O COMPLETION QUEUE           HC535400
0000E0 00000000                    1762+$RJECHEQ DC    A(0)                RJE I/O COMPLETION QUEUE             HC535600
                                   1763+*                                  ADDRESS OF FIRST HASP PCE            HC536000

0000E4 00000000                    1764+$PCEORG  DC    A(*-*)                                                   HN010000
0000E8 00000000                    1765+$BUFPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE HASP BUFFER HC538000
0000EC 00000000                    1766+$TPBPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE RJE BUFFER  HC539000
0000F0 00000000                    1767+$DCTPOOL DC    A(*-*)              ADDRESS OF FIRST HASP DCT            HC540000

0000F4 00000000                    1768+$JITABLE DC    A(*-*)              ADDRESS OF HASP JOB INFO TABLE       HC541000
0000F8 00000000                    1769+$JOTABLE DC    V($JOT)             ADDRESS OF JOB OUTPUT TABLE          HC541500
0000FC 00000000                    1770+$CYLMAP  DC    A(*-*)              ADDRESS OF FIRST CYLINDER MODULE MAP HC542000
000100 00000000                    1771+$TEDADDR DC    A(*-*)              ADDRESS OF FIRST EXTENT DATA TABLE   HC543000
000104 00000000                    1772+$DCBLIST DC    A(*-*)              ADDRESS OF DIRECT ACCESS DCB         HC544000

000108 00000000                    1773+$FREEQUE DC    A(*-*)              ADDR OF 1ST FREE CONSOLE MSG BUFFER  HC545000
00010C 00000000                    1774+$BUSYQUE DC    A(*-*)              CONSOLE MSG BUFFERS QUEUED FOR I/O   HC546000
000110 00000000                    1775+$LOGQUE  DC    A(*-*)              CMB'S QUEUED FOR LOG PROCESSOR       HC547000
000114 00000000                    1776+$COMMQUE DC    A(*-*)              COMMANDS QUEUED FOR COMMAND PROC     HC548000
000118 00000000                    1777+$DOMQUE  DC    A(*-*)              CMB'S AWAITING ACTION                HC548200
00011C 00000000                    1778+$SMFFREE DC    A(*-*)              ADDR OF 1ST FREE SMF BUFFER          HC548400
000120 00000000                    1779+$SMFBUSY DC    A(*-*)              SMF BUFFERS QUEUED FOR I/O           HC548600

000124 00000000                    1780+$PRCHKPT DC    A(*-*)              ADDRESS OF PRINT CHECKPOINT TABLE    HC549000
000128 00000002                    1781+$TIMEARG DC    F'2'                FAKE SVRB+36 FOR IGC011              HC549500
COMM     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   53



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1783+*                             NUCLEUS ADDRESS TABLE                     HC551000

00012C                             1785+$NUCTABL DS    0F                  START OF NUCLEUS ADDRESS TABLE       HC553000
00012C 00000000                    1786+$STATENT DC    A(*-*)              ENTRY TO STATUS ROUTINE              HC554000

000130 00000000                    1787+$TIMENT  DC    A(*-*)              ENTRY TO TIME ROUTINE                HC555000
000134 00000000                    1788+$XSMFENT DC    A(*-*)              ENTRY TO SMF EXCP COUNTING ROUTINE   HC559000
000138 00000000                    1789+$SVCRSET DC    A(*-*)              ENTRY TO HASP SVC RESET ROUTINE      HC560000
                            00010  1790+$NUCLEN  EQU   *-$NUCTABL          LENGTH OF NUCLEUS ADDRESS TABLE      HC561000


                                   1792+*********************************************************************** HC576000
                                   1793+*  ALL VARIABLES LOCATED IN THIS AREA WILL BE REGULARLY CHECKPOINTED  * HC577000

                                   1794+*  BY HASP AND WILL BE RESTORED ON ANY WARM START.....                * HC578000
                                   1795+*                                                                     * HC579000
                                   1796+*                                                                     * HC580000

                                   1797+*                                                                     * HC581000
00013C                             1798+$SAVEBEG DS    0F                  BEGINNING OF SAVE AREA             * HC582000
00013C 00000000                    1799+$JOBQPTR DC    A(*-*)              ADDRESS OF HASP JOB QUEUE          * HC583000
000140 00000000                    1800+$JQFREE  DC    A(*-*)              BEGINNING OF FREE QUEUE CHAIN      * HC584000
000144 00000000                    1801+$JQENT   DC    A(*-*)              BEGINNING OF ACTIVE QUEUE CHAIN    * HC585000

000148 00000000                    1802+$DATAKEY DC    F'0'                MASTER PERIPHERAL DATA SET KEY     * HC588000
00014C 0000                        1803+$JOBNO   DC    H'0'                HASP JOB NUMBER                    * HC589000
00014E 0000                        1804+$MSGRPNO DC    H'0'                LAST CONSOLE MESSAGE TRACK GROUP   * HC590000
000150 0000000000000000            1805+$DACKPT  DC    2XL6'0'             DA CHECKPOINT FOR WARM START       * HC591000
                            0015C  1806+$SAVEEND EQU   *                   END OF SAVE AREA                   * HC592000
                            00020  1807+$SAVELEN EQU   $SAVEEND-$SAVEBEG   LENGTH OF SAVE AREA                * HC593000
                                   1808+*                                                                     * HC594000
                                   1809+*                                                                     * HC595000

                                   1810+*                                                                     * HC596000
                                   1811+*********************************************************************** HC597000

                                   1812+*                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000

00015C                             1814+$NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000
00015C 00000000                    1815+$ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000
000160 00000000                    1816+$SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000

000164 00000000                    1817+$SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000
                            0000C  1818+$NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000


                                   1820+*                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000

000168 00000000                    1822+$IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000
00016C 00000000                    1823+$WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000
000170 00000000                    1824+$LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000
000174 00000000                    1825+$XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000

000178 00000000                    1826+$SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000

00017C 00000000                    1827+$SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000
000180 00000000                    1828+$SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000
000184 00000000                    1829+$SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000
000188 00000000                    1830+$SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000
00018C                             1831+$ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000




COMM     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             1834+HASPCOMM CSECT ,                   END OF HCT DSECT                RFIT HC998000
COMM     HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             1837+PCEDSECT DSECT                     PROCESSOR CONTROL ELEMENT DSECT      PC260000




                            00000  1839+         USING PCEDSECT,SAVE       ESTABLISH PCE ADDRESSABILITY         PC264000




000000                             1841+PCESAVEA DS    F                   RESERVED                             PC268000
000004                             1842+PCEPREV  DS    F                   ADDRESS OF PREVIOUS PCE              PC270000
000008                             1843+PCENEXT  DS    F                   ADDRESS OF NEXT PCE                  PC272000

00000C                             1844+PCELINK  DS    F                   REGISTER 14 (LINK) STORAGE           PC274000
000010                             1845+PCER15   DS    F                   REGISTER 15 STORAGE                  PC276000
000014                             1846+PCER0    DS    F                   REGISTER 0 STORAGE                   PC278000
000018                             1847+PCER1    DS    F                   REGISTER 1 STORAGE                   PC280000
00001C                             1848+PCEWA    DS    F                   REGISTER 2 (WA) STORAGE              PC282000
000020                             1849+PCEWB    DS    F                   REGISTER 3 (WB) STORAGE              PC284000
000024                             1850+PCEWC    DS    F                   REGISTER 4 (WC) STORAGE              PC286000
000028                             1851+PCEWD    DS    F                   REGISTER 5 (WD) STORAGE              PC288000
00002C                             1852+PCEWE    DS    F                   REGISTER 6 (WE) STORAGE              PC290000
000030                             1853+PCEWF    DS    F                   REGISTER 7 (WF) STORAGE              PC292000
000034                             1854+PCEWG    DS    0F                  REGISTER 8 (WG) STORAGE              PC294000

000034                             1855+PCEBASE3 DS    F                   REGISTER 8 (BASE3) STORAGE           PC296000
000038                             1856+PCER9    DS    F                   REGISTER 9 STORAGE                   PC298000
00003C                             1857+PCEJCT   DS    F                   REGISTER 10 (JCT) STORAGE            PC300000
000040                             1858+PCEBASE1 DS    F                   REGISTER 11 (BASE1) STORAGE          PC302000

000044                             1859+PCEBASE2 DS    F                   REGISTER 12 (BASE2) STORAGE          PC304000
000048                             1860+PCEEWF   DS    H                   PROCESSOR EVENT WAIT FIELD           PC306000
00004A                             1861+PCEID    DS    H                   PROCESSOR TYPE                       PC308000
00004C                             1862+         DS    C                   RESERVED                             PC310000
00004D                             1863+PCEOPRIO DS    C                   REQUESTED OVERLAY ROUTINE PRIORITY   PC312000
00004E                             1864+PCEOCON  DS    H                   REQUESTED OVERLAY ROUTINE OCON       PC314000
000050                             1865+PCEORTRN DS    F                   $RETURN PAST $LINK STORAGE           PC316000
000054                             1866+PCEOPCE  DS    F                   CHAIN OF PCE'S USING SAME OVERLAY    PC318000
000058                             1867+PCEWORK  DS    0D                  VARIABLE LENGTH PROCESSOR WORK AREA  PC320000
000000                             1868+HASPCOMM CSECT                     END OF PCE DSECT                     PC322000
COMM     HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   1870+*                                                                       PC326000
                                   1871+*                             PROCESSOR CONTROL ELEMENT IDENTIFICATION  PC328000
                                   1872+*                                                                       PC330000






                                   1874+*                                                                       PC334000
                                   1875+*                             BYTE 1                                    PC336000
                                   1876+*                                                                       PC338000



                            00001  1878+PCELCLID EQU   X'01'               LOCAL SPECIAL PCE ID                 PC342000
                            00002  1879+PCERJEID EQU   X'02'               REMOTE SPECIAL PCE ID                PC344000
                            00004  1880+PCEINRID EQU   X'04'               INTERNAL SPECIAL PCE ID              PC346000
                            00080  1881+PCEPRSID EQU   X'80'               PRINT SPECIAL PCE ID                 PC348000
                            00040  1882+PCEPUSID EQU   X'40'               PUNCH SPECIAL PCE ID                 PC350000







                                   1884+*                                                                       PC354000
                                   1885+*                             BYTE 2                                    PC356000

                                   1886+*                                                                       PC358000



                            00000  1888+PCEASYID EQU   0                   ASYNCH PCE ID                        PC362000
                            00001  1889+PCERDRID EQU   1                   INPUT PCE ID                         PC364000
                            00002  1890+PCESETID EQU   2                   SETUP PCE ID                         PC366000
                            00003  1891+PCEXEQID EQU   3                   EXECUTION PCE ID                     PC368000
                            00004  1892+PCETHWID EQU   4                   EXECUTION THAW PCE ID                PC370000
                            00005  1893+PCEXZMID EQU   5                   EXECUTION TASK MONITOR PCE ID        PC372000
                            00006  1894+PCEOUTID EQU   6                   OUTPUT PROCESSOR PCE ID              PC374000
                            00007  1895+PCEPRTID EQU   7                   PRINT PCE ID                         PC376000
                            00008  1896+PCEPUNID EQU   8                   PUNCH PCE ID                         PC378000
                            00009  1897+PCEPRGID EQU   9                   PURGE PCE ID                         PC380000

                            0000A  1898+PCECONID EQU   10                  CONSOLE PCE ID                       PC382000
                            0000B  1899+PCEMLMID EQU   11                  LINE MANAGER PCE ID                  PC384000

                            0000C  1900+PCETIMID EQU   12                  TIMER PCE ID                         PC386000

                            0000D  1901+PCECKPID EQU   13                  CHECKPOINT PCE ID                    PC388000
                            0000E  1902+PCEGPRID EQU   14                  PRIORITY AGING PCE ID                PC390000
COMM     HASP BUFFER DSECT                                                                                     PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             1904+BUFDSECT DSECT                     BUFFER DSECT                         BU444000
000000                             1905+IOBFLAG1 DS    C                   I/O FLAGS                            BU446000
000001                             1906+IOBFLAG2 DS    C                   I/O FLAGS                            BU448000
000002                             1907+IOBSENS0 DS    C                   FIRST SENSE BYTE                     BU450000
000003                             1908+IOBSENS1 DS    C                   SECOND SENSE BYTE                    BU452000
000004                             1909+IOBECBCC DS    0C                  I/O COMPLETION CODE                  BU454000
000004                             1910+IOBECBPT DS    F                   ADDRESS OF HASP EVENT CONTROL BLOCK  BU456000
000008                             1911+IOBFLAG3 DS    C                   I/O FLAGS                            BU458000

000009                             1912+IOBCSW   DS    CL7                 CHANNEL STATUS WORD                  BU460000
000010                             1913+IOBSIOCC DS    0C                  SIO CONDITION CODE                   BU462000
000010                             1914+IOBSTART DS    F                   ADDRESS OF CHANNEL PROGRAM           BU464000

000014                             1915+IOBDCBPT DS    F                   ADDRESS OF DATA CONTROL BLOCK        BU466000
000018                             1916+IOBREPM  DS    0C                  REPOSITION MODIFIER                  BU468000
000018                             1917+IOBRESTR DS    F                   RESTART ADDRESS OF CHANNEL PROGRAM   BU470000
00001C                             1918+TPBMXREC DS    0C                  MAXIMUM RJE OUTPUT RECORD COUNT      BU472000
00001C                             1919+IOBINCAM DS    H                   BLOCK COUNT INCREMENT                BU474000
00001E                             1920+IOBERRCT DS    H                   ERROR COUNT                          BU476000
000020                             1921+TPBLCCC  DS    0C                  LAST REMOTE OUTPUT COMMAND OP.       BU478000
000020                             1922+TPBLCCAD DS    0F                  ADDR OF LAST REMOTE CARRIAGE CONTROL BU480000
000020                             1923+IOBXTENT DS    C                   DEB EXTENT                           BU482000
000021                             1924+IOBSEEK  DS    0CL7,3C             DIRECT ACCESS SEEK ADDRESS           BU484000
000024                             1925+TPBRECNT DS    0C                  CURRENT REMOTE OUTPUT RECORD COUNT   BU486000
000024                             1926+TPBFDATA DS    F                   REMOTE DATA POINTER                  BU488000

000028                             1927+BUFECBCC DS    0C                  I/O COMPLETION CODE                  BU490000
000028                             1928+BUFCHAIN DS    F                   BUFFER CHAIN FIELD                   BU492000
00002C                             1929+BUFTYPE  DS    0C                  BUFFER TYPE                          BU494000
00002C                             1930+BUFDCT   DS    F                   ADDRESS OF DEVICE CONTROL TABLE      BU496000

000030                             1931+BUFEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     BU498000
000034                             1932+OACECHN  DS    0F                  OVERLAY AREA CHAIN WORD              BU500000
000034                             1933+BUFDDB   DS    0F                  DDB ADDRESS                          BU501000
000034                             1934+LCBMCB   DS    C                   REMOTE MODE BYTE                     BU502000
000035                             1935+LCBACK   DS    C                   REMOTE NEXT ACKNOWLEDGEMENT          BU504000
000036                             1936+LCBRCB   DS    H                   REMOTE RESPONSE CONTROL BLOCK        BU506000

000038                             1937+IOBCCW1  DS    D                   CHANNEL COMMAND WORD 1               BU508000
000040                             1938+IOBCCW2  DS    D                   CHANNEL COMMAND WORD 2               BU510000
000048                             1939+IOBCCW3  DS    0D,5C               CHANNEL COMMAND WORD 3               BU511000
00004D                             1940+OACEPRIO DS    C                   PRIO OF OLAY ROUTINE IN THIS AREA    BU512000
00004E                             1941+OACEOCON DS    H                   OVERLAY CALL CONSTANT                BU514000
000050                             1942+IOBCCW4  DS    D                   CHANNEL COMMAND WORD 4               BU516000
000058                             1943+BUFSTART DS    0D                  START OF BUFFER WORK SPACE           BU518000
000058                             1944+OACENAME DS    0F                  NAME OF OVERLAY ROUTINE              BU520000

000058                             1945+HDBNXTRK DS    F                   HASP DATA BLOCK CHAIN TRACK          BU522000
00005C                             1946+OACEASMO DS    0F                  ASSEMBLY ORIGIN OF OVERLAY ROUTINE   BU524000

00005C                             1947+HDBDSKEY DS    F                   HASP DATA BLOCK DATA SET KEY         BU526000
000060                             1948+OACEPROG DS    0F                  ENTRY POINT OF OVERLAY ROUTINE       BU528000
000060                             1949+HDBSTART DS    F                   HASP DATA BLOCK START                BU529000
000064                      00058  1950+         ORG   BUFSTART                                                 BU530000
000058                             1951+IOBCCW5  DS    D                   CHANNEL COMMAND WORD 5               BU534000
000060                             1952+IOBCCW6  DS    D                   CHANNEL COMMAND WORD 6               BU536000
000068                             1953+IOBCCW7  DS    D                   CHANNEL COMMAND WORD 7               BU538000
000070                             1954+IOBCCW8  DS    D                   CHANNEL COMMAND WORD 8               BU540000

000078                             1955+TPBUFST  DS    0F                  START OF REMOTE BUFFER WORK SPACE    BU542000
000078                      00558  1956+         ORG   BUFSTART+1280           SPACE OVER OVERLAY AREA          BU544000
000558                             1957+OACEPCE  DS    F                   CHAIN OF PCE'S USING OVERLAY AREA    BU546000
000000                             1958+HASPCOMM CSECT                     END OF BUFFER DSECT                  BU548000
COMM     HASP BUFFER STATUS BIT DEFINITIONS                                                                    PAGE   58



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   1961+*                             BUFFER TYPE BIT DEFINITIONS               BU554000



                            00080  1963+TPBUF    EQU   X'80'               REMOTE BUFFER TYPE                   BU558000
                            00040  1964+OLAYBUF  EQU   X'40'               OVERLAY AREA TYPE                    BU560000
                            00000  1965+HASPBUF  EQU   X'00'               HASP BUFFER TYPE                     BU562000
COMM     HASP CONSOLE MESSAGE BUFFER DSECT                                                                     PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                             1968+CMBDSECT DSECT                     CONSOLE MESSAGE BUFFER DSECT         CM098000
000000                             1969+CMBCHAIN DS    F                   ADDR OF NEXT CONSOLE MESSAGE BUFFER  CM100000
000004                             1970+CMBFLAGS DS    C                   FLAG BYTE                            CM102000

000005                             1971+CMBCONS  DS    C                   CONSOLES SPECIFIED                   CM104000
000006                             1972+CMBMSGL  DS    C                   MESSAGE LENGTH                       CM106000
000007                             1973+CMBPRIO  DS    0C                  MESSAGE PRIORITY                     CM108000
000007                             1974+CMBCLASS DS    C                   MESSAGE CLASS OR DISPLAY AREA        CM110000

000008                             1975+CMBMSG   DS    0CL132              CONSOLE MESSAGE                      CM112000
000008                             1976+CMBDOMID DS    0F                  DOM ID FOR CMB                       CM113000
000008                             1977+CMBMARK  DS    C                   ATTENTION INDICATOR                  CM114000
000009                             1978+CMBTIME  DS    CL9                 TIME OF DAY                          CM116000
000012                             1979+CMBJOBNO DS    CL9                 JOB NUMBER                           CM118000
00001B                             1980+CMBTEXT  DS    CL113               MESSAGE TEXT                         CM120000

                            0008C  1981+CMBEND   EQU   *                   END OF CMB                   OY05859 CM121000
000000                             1982+HASPCOMM CSECT                     END OF CMB DSECT                     CM122000


                                   1984+*                                  SYMBOLIC DISPLACEMENTS               CM126000



                            00004  1986+CMBFLD   EQU   CMBFLAGS-CMBDSECT   FLAG BYTE                            CM130000
                            00006  1987+CMBMLD   EQU   CMBMSGL-CMBDSECT    MESSAGE LENGTH                       CM132000
                            00008  1988+CMBMSD   EQU   CMBMSG-CMBDSECT     MESSAGE                              CM134000


                                   1990+*                                  FLAG BYTE BITS                       CM138000



                            00080  1992+WCMBFD   EQU   X'80'               END OF OUT OF LINE WTO (MLWTO)       CM142000
                            00040  1993+WCMBFH   EQU   X'40'               OPERATION TYPE                       CM144000
                            00020  1994+WCMBFE   EQU   X'20'               MESSAGE FOR HASP LOG ONLY            CM146000
                            00010  1995+WCMBFF   EQU   X'10'               CMBCONS CONTAINS UCMID               CM148000

                            00008  1996+WCMBFG   EQU   X'08'               CMBCONS CONTAINS REMOTE NUMBER       CM150000
                            00004  1997+WCMBFA   EQU   X'04'               RESERVED FOR COMMAND PROCESSOR       CM152000
                            00002  1998+WCMBFB   EQU   X'02'               RESERVED FOR COMMAND PROCESSOR       CM154000
                            00001  1999+WCMBFC   EQU   X'01'               RESERVED FOR COMMAND PROCESSOR       CM156000



                                   2001+*                         NOTE (1) LOGICAL CONSOLES (CMBCONS) ARE       CM160000
                                   2002+*                                  SPECIFIED BY NULL WCMBFD, WCMBFF     CM162000
                                   2003+*                                  AND WCMBFG SETTINGS.                 CM164000
                                   2004+*                                                                       CM166000
                                   2005+*                              (2) FOR WCMBFH...READ=1, WRITE=0         CM168000
                                   2006+*                                                                       CM170000
COMM     HASP DEVICE CONTROL TABLE DSECT                                                                       PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




000000                             2009+DCTDSECT DSECT                     DEVICE CONTROL TABLE DSECT           DC308000
000000                             2010+DCTSTAT  DS    0C                  DCT STATUS                           DC310000

000000                             2011+DCTPCE   DS    F                   ADDRESS OF PROCESSOR CONTROL ELEMENT DC312000
000004                             2012+DCTBUFAD DS    F                   CURRENT BUFFER ADDRESS               DC314000
000008                             2013+DCTPSTAT DS    0C                  REMOTE JOB ENTRY FLAGS               DC316000

000008                             2014+DCTDCB   DS    0F                  ADDRESS OF DATA CONTROL BLOCK        DC318000
000008                             2015+DCTSEEK  DS    F                   CURRENT TRACK ADDRESS                DC320000
00000C                             2016+MDCTOPCT DS    0C                  COUNT OF OPEN RJE PROCESSORS         DC322000
00000C                             2017+MDCTOBUF DS    0F                  RJE OUTPUT BUFFER CHAIN              DC324000
00000C                             2018+DCTEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     DC326000
000010                             2019+DCTBUFCT DS    C                   ACTIVE BUFFER COUNT                  DC328000

000011                             2020+MDCTATTN DS    0C                  RJE LINE ACTION PENDING FLAGS        DC330000
000011                             2021+DCTNO    DS    C                   DCT NUMBER                           DC332000
000012                             2022+DCTDEVTP DS    C                   DEVICE TYPE                          DC334000
000013                             2023+DCTIOTYP DS    0C                  I/O REQUEST TYPE                     DC336000

000013                             2024+DCTPCODE DS    C                   LINE/REMOTE CODE                     DC338000
000014                             2025+DCTFLAGS DS    0C                  OPERATOR COMMAND FLAGS               DC340000
000014                             2026+DCTCHAIN DS    F                   ADDRESS OF NEXT DCT                  DC342000
000018                             2027+DCTDEVN  DS    0CL8,CL4            EBCDIC DEVICE NAME                   DC344000
00001C                             2028+DCTOTC   DS    H                   OVERLAY DEVICE TRACKS/CYLINDER       DC346000

00001E                             2029+DCTOTT   DS    H                   OVERLAY EXTENT BEGINNING TT          DC348000
000020                             2030+MDCTCODE DS    0F                  ADDRESS OF RJE CODE TABLE            DC350000
000020                             2031+DCTFORMS DS    0F                  PRINT/PUNCH FORMS ID                 DC352000
000020                             2032+DCTPRINT DS    C                   DEFAULT PRINT ROUTING                DC354000
000021                             2033+DCTPUNCH DS    C                   DEFAULT PUNCH ROUTING                DC356000
000022                             2034+DCTPRINC DS    C                   PRIORITY INCREMENT                   DC358000
000023                             2035+DCTPRLIM DS    C                   PRIORITY LIMIT                       DC360000

000024                             2036+DCTFCB   DS    F                   PRINT FCB ID                         DC360300
000028                             2037+DCTUCS   DS    F                   PRINT UCS ID                         DC360600
00002C                             2038+DCTPPSW  DS    X                   PRINT/PUNCH SWITCHES                 DC360900

00002D                             2039+DCTCLASS DS    CL8                 PRINT/PUNCH CLASS MASK               DC361200
000035                             2040+         DS    C                   CLASS MASK TERMINATOR                DC361500
000038                             2041+DCTWORK  DS    0F                  START OF DEVICE WORK AREA            DC362000
000038                             2042+RIDUCB   DS    0F                  INTERNAL READER UCB ADDRESS          DC364000
000038                             2043+MDCTFCS  DS    H                   REMOTE TERMINAL FUNCTION CONTROL SEQ DC366000

00003A                             2044+MDCTERCT DS    0C                  REMOTE TERMINAL ERROR COUNT          DC368000
00003A                             2045+DCTPRLEN DS    C                   REMOTE TERMINAL DATA WIDTH           DC370000
00003B                             2046+DCTPLINE DS    C                   REMOTE TERMINAL LINE CHARACTERISTICS DC372000
00003C                             2047+MDCTRCB  DS    0C                  REMOTE TERMINAL RECORD CONTROL BYTE  DC374000
00003C                             2048+MDCTDCT  DS    0F                  REMOTE TERMINAL DCT CHAIN FIELD      DC376000
00003C                             2049+RIDFLAGS DS    H                   INTERNAL READER SYNCH FLAGS          DC378000
00003E                             2050+RIDTJID  DS    H                   RESERVED                             DC380000
000040                             2051+RIDECB   DS    0F                  INTERNAL READER ECB ADDRESS          DC382000

000040                             2052+MDCTRSEQ DS    C                   REMOTE TERMINAL TRANSMIT SEQUENCE    DC384000
000041                             2053+MDCTTSEQ DS    C,H                 REMOTE TERMINAL RECEIVE SEQUENCE     DC386000

000044                             2054+MDCTPSWD DS    0CL8                REMOTE TERMINAL PASSWORD             DC388000
000044                             2055+RIDTCB   DS    F                   INTERNAL READER TCB ADDRESS          DC390000
000048                             2056+RIDDATA  DS    CL80                INTERNAL READER DATA AREA            DC394000
                            00098  2057+DCTEND   EQU   *                   SYMBOL FOR END OF DCT                DC395000
000000                             2058+HASPCOMM CSECT                     END OF DEVICE CONTROL TABLE DSECT    DC396000

COMM     HASP DCT STATUS BIT DEFINITIONS                                                                       PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                   2061+*                             DCTSTAT                                   DC402000



                            00080  2063+DCTINUSE EQU   X'80'               DCT IS IN USE                        DC406000
                            00040  2064+DCTDRAIN EQU   X'40'               DCT IS DRAINED                       DC408000
                            00020  2065+DCTHOLD  EQU   X'20'               DCT IS HELD                          DC410000

                            00010  2066+DCTEJECT EQU   X'10'               DEVICE IS AT CHNL 1 POSITION         DC411000






                                   2068+*                             DCTPSTAT                                  DC414000



                            00080  2070+DCTLOGAL EQU   X'80'               LOG EVERY CHANNEL END                DC418000

                            00040  2071+DCTLEASE EQU   X'40'               LEASED LINE                          DC420000
                            00020  2072+DCTETX   EQU   X'20'               AN ETX HAS BEEN RECEIVED             DC422000
                            00010  2073+DCTSOFF  EQU   X'10'               A /*SIGNOFF CARD HAS BEEN RECEIVED   DC424000
                            00010  2074+DCTEOF   EQU   X'10'               AN EOF HAS BEEN DETECTED             DC425000
                            00008  2075+DCTSINON EQU   X'08'               REMOTE DCT IS ATTACHED TO LINE DCT   DC426000
                            00004  2076+DCTPOST  EQU   X'04'               I/O COMPLETE FLAG                    DC428000
                            00002  2077+DCTABORT EQU   X'02'               TRANSMISSION WAS ABORTED             DC430000
                            00001  2078+DCTPBUF  EQU   X'01'               REMOTE OUTPUT BUFFER INDICATION      DC432000






                                   2080+*                             DCTDEVTP                                  DC436000




                            00000  2082+DCTDA    EQU   X'00'               DIRECT ACCESS DEVICE                 DC440000
                            00001  2083+DCTOLAY  EQU   X'01'               OVERLAY DEVICE                       DC442000
                            00002  2084+DCTLNE   EQU   X'02'               REMOTE JOB ENTRY LINE                DC444000

                            00010  2085+DCTRDR   EQU   X'10'               LOCAL CARD READER                    DC446000
                            00012  2086+DCTRJR   EQU   X'12'               REMOTE CARD READER                   DC450000
                            00014  2087+DCTINR   EQU   X'14'               INTERNAL READER                      DC452000
                            00020  2088+DCTPRT   EQU   X'20'               LOCAL PRINTER                        DC454000
                            00022  2089+DCTRPR   EQU   X'22'               REMOTE PRINTER                       DC456000
                            00030  2090+DCTPUN   EQU   X'30'               LOCAL PUNCH                          DC458000
                            00032  2091+DCTRPU   EQU   X'32'               REMOTE PUNCH                         DC460000
                            00042  2092+DCTRCON  EQU   X'42'               REMOTE CONSOLE                       DC464000
COMM     HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                   2095+*                             DCTIOTYP                                  DC470000



                            00080  2097+DCTREAD  EQU   X'80'               READ REQUEST                         DC474000

                            00040  2098+DCTWRITE EQU   X'40'               WRITE REQUEST                        DC476000
                            00008  2099+DCTREJRM EQU   X'08'               REMOTE RESTRICTION ALWAYS 0          DC482000
                            00004  2100+DCTREJJB EQU   X'04'               RESTRICTED FROM JOB COMMANDS         DC484000
                            00002  2101+DCTREJDV EQU   X'02'               RESTRICTED FROM DEVICE COMMANDS      DC486000
                            00001  2102+DCTREJSY EQU   X'01'               RESTRICTED FROM SYSTEM COMMANDS      DC488000





                                   2104+*                             DCTPCODE                                  DC492000



                            00000  2106+DCTPHALF EQU   X'00'               HALF-DUPLEX LINE                     DC496000
                            00001  2107+DCTPFULL EQU   X'01'               FULL-DUPLEX LINE                     DC498000
                            00002  2108+DCTPWIDE EQU   X'02'               WIDE-BAND LINE                       DC500000

                            00020  2109+DCTPPRES EQU   X'20'               HARDWARE COMPRESS FEATURE            DC501000
                            00010  2110+DCTPCON  EQU   X'10'               REMOTE TERMINAL CONSOLE              DC502000
                            00010  2111+DCTPMRF  EQU   X'10'               MULTIPLE-RECORD FEATURE              DC504000

                            00008  2112+DCTPTAB  EQU   X'08'               HORIZONTAL FORMAT CONTROL            DC506000
                            00004  2113+DCTPROG  EQU   X'04'               PROGRAMMABLE INTERFACE               DC508000
                            00002  2114+DCTPVAR  EQU   X'02'               VARIABLE LENGTH RECORDS              DC510000
                            00001  2115+DCTPBLK  EQU   X'01'               BLOCKED RECORDS                      DC512000





                                   2117+*                             DCTPLINE                                  DC516000



                            00000  2119+DCTP2770 EQU   X'00'               1009, 2770, 3780                     DC520000
                            00001  2120+DCTPHARD EQU   X'01'               1978, 2780                           DC522000
                            00002  2121+DCTP20   EQU   X'02'               360/20 SUB-MODEL 5 OR 6              DC524000
                            00004  2122+DCTP360  EQU   X'04'               360/22, 25, 30, 40, ETC.             DC526000

                            00006  2123+DCTP20S2 EQU   X'06'               360/20 SUB-MODEL 2 OR 4              DC528000

                            00008  2124+DCTP1130 EQU   X'08'               1130                                 DC530000
                            0000A  2125+DCTPSYS3 EQU   X'0A'               SYSTEM/3                             DC532000

                            0000E  2126+DCTPCPU  EQU   X'0E'               CPU TERMINAL                         DC534000
                            00010  2127+DCTPHASP EQU   X'10'               HASP                                 DC536000
                            00020  2128+DCTPASCI EQU   X'20'               USASCII CODE                         DC538000
                            00040  2129+DCTPTRSP EQU   X'40'               TRANSPARENCY                         DC540000
                            00080  2130+DCTPBSC  EQU   X'80'               BINARY SYNCHRONOUS LINE              DC542000
COMM     HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                   2133+*                             DCTFLAGS                                  DC548000



                            00080  2135+DCTSTOP  EQU   X'80'               $Z ($STOP) COMMAND                   DC552000

                            00040  2136+DCTDELET EQU   X'40'               $C ($DELETE) COMMAND                 DC554000
                            00020  2137+DCTRSTRT EQU   X'20'               $E ($RESTART) COMMAND                DC556000

                            00010  2138+DCTRPT   EQU   X'10'               $N ($REPEAT) COMMAND                 DC558000

                            00008  2139+DCTBKSP  EQU   X'08'               $B ($BACKSPACE) COMMAND              DC560000
                            00004  2140+DCTHOLDJ EQU   X'04'               $T...,H COMMAND                      DC562000
                            00004  2141+DCTSPACE EQU   X'04'               $T...,C=1 COMMAND                    DC564000





                                   2143+*                                  DCTPPSW                              DC568000



                            00080  2145+DCTPPSWC EQU   X'80'               FCB CARRAGE ALTERED                  DC571000
                            00040  2146+DCTPPSWF EQU   X'40'               FORMS CONTROLLED BY OPERATOR         DC572000
                            00020  2147+DCTPPSWQ EQU   X'20'               QUEUE CLASSES ARE ALTERED            DC573000
                            00010  2148+DCTPPSWS EQU   X'10'               SUPPRESS SEPARATOR PAGES             DC574000
                            00008  2149+DCTPPSWT EQU   X'08'               UCS TRAIN ALTERED                    DC575000

                            00004  2150+DCTPPSWU EQU   X'04'               UCS NOT STANDARD                     DC575500
                            00002  2151+DCTPPSWI EQU   X'02'               DEVICE IDLE MESSAGE ISSUED           DC576000
                            00001  2152+DCTPPSWO EQU   X'01'               OPERATOR ACTION ALLOWED              DC577000






                                   2154+*                             RIDFLAGS                                  DC580000



                            00080  2156+RIDPOST  EQU   X'80'               USER WAITING FOR POST                DC584000
                            00040  2157+RIDBUSY  EQU   X'40'               I/O SIMULATION IN PROCESS            DC585000
COMM     HASP JOB QUEUE ENTRY FIELD DEFINITIONS                                                                PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2159+*                             HASP JOB QUEUE ENTRY DISPLACEMENTS        JQ056000


                            00000  2161+QUEPRIO  EQU   0                   JOB PRIORITY                         JQ060000
                            00001  2162+QUETYPE  EQU   1                   LOGICAL QUEUE TYPE                   JQ062000

                            00002  2163+QUEJOBNO EQU   2                   HASP JOB NUMBER                      JQ064000
                            00004  2164+QUEFLAGS EQU   4                   JOB QUEUE FLAGS                      JQ066000
                            00004  2165+QUECHAIN EQU   4                   ADDRESS OF NEXT JOB QUEUE ELEMENT    JQ068000
                            00008  2166+QUETRAK  EQU   8                   TRACK ADDRESS OF JOB CONTROL TABLE   JQ070000

                            0000C  2167+QUEPRTRT EQU   12                  PRINT ROUTE                          JQ072000
                            0000D  2168+QUEPUNRT EQU   13                  PUNCH ROUTE                          JQ074000
                            0000E  2169+QUEJOECT EQU   14                  JOB OUTPUT ELEMENT COUNT             JQ076000









                                   2171+*                             HASP JOB QUEUE ENTRY BIT DEFINITIONS      JQ084000




                                   2173+*                             QUETYPE                                   JQ088000


                            00080  2175+QENTBY   EQU   X'80'               QUEUE ENTRY BUSY BIT                 JQ092000
                            00040  2176+$XEQ     EQU   X'40'               OS EXECUTION QUEUE                   JQ094000
                            00020  2177+$INPUT   EQU   X'20'               INPUT QUEUE                          JQ096000

                            00010  2178+$SETUP   EQU   X'10'               SETUP QUEUE                          JQ098000
                            00008  2179+$BRKDOWN EQU   X'08'               BREAKDOWN QUEUE                      JQ100000

                            00004  2180+$OUTPUT  EQU   X'04'               OUTPUT QUEUE                         JQ102000
                            00002  2181+$HARDCPY EQU   X'02'               OUTPUT IN-PROGRESS QUEUE             JQ104000
                            00001  2182+$PLOT    EQU   X'01'               PLOT QUEUE                           JQ106000
                            00000  2183+$PURGE   EQU   X'00'               PURGE QUEUE                          JQ108000




                                   2185+*                             QUEFLAGS                                  JQ112000



                            00080  2187+QUEHOLDA EQU   X'80'               HOLD ALL JOBS                        JQ116000
                            00040  2188+QUEHOLD1 EQU   X'40'               HOLD SINGLE JOB                      JQ118000
                            00020  2189+QUEHOLD2 EQU   X'20'               HOLD FOR DUPLICATE JOB NAME          JQ120000
                            00010  2190+QUEPURGE EQU   X'10'               JOB IS TO BE PURGED                  JQ122000
                            00008  2191+QUEOPCAN EQU   X'08'               OPERATOR ISSUED $C OR $P JOB         JQ124000

                            00004  2192+QUEOPRTE EQU   X'04'               OPERATOR HAS ISSUED $R ALL           JQ125000
                            00002  2193+QUEJCTSW EQU   X'02'               JCT INTERLOCK FOR UPDATE             JQ125100
COMM     HASP JOB INFORMATION TABLE ELEMENT FIELD DEFINITIONS                                                  PAGE   65



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2195+*                   HASP JOB INFORMATION TABLE ELEMENT DISPLACEMENTS    JI040000





                            00000  2197+JITJNAME EQU   0                   JOB NAME                             JI044000
                                   2198+*                                                                       JI046000
                                   2199+*                                                                       JI048000

                                   2200+*        THE FOLLOWING ENTRIES ARE NOT IMPLEMENTED BUT REPRESENT        JI050000
                                   2201+*        SUGGESTIONS AS TO POSSIBLE INSTALLATION MODIFICATIONS...       JI052000
                                   2202+*                                                                       JI054000
                                   2203+*                                                                       JI056000
                                   2204+*                                                                       JI058000

                                   2205+*JITLINE EQU   8                   ESTIMATED THEN ACTUAL PRINT LINES    JI060000
                                   2206+*JITCARD EQU   12                  ESTIMATED THEN ACTUAL PUNCHED CARDS  JI062000
                                   2207+*JITETIM EQU   16                  ESTIMATED EXECUTION TIME             JI064000
                                   2208+*JITSAFE EQU   20                  JOB SECURITY CONTROL PASSWORD        JI066000

                                   2209+*JITSTAT EQU   28                  ADDITIONAL JOB STATUS BITS           JI068000
                                   2210+*JITETC  EQU   29                  ANYTHING ELSE                        JI070000
COMM     HASP PARTITION INFORMATION TABLE FIELD DEFINITIONS                                                    PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2212+*                        HASP PARTITION INFORMATION TABLE DISPLACEMENTS PI098000






                            00000  2214+PITSTAT  EQU   0                   LOGICAL PARTITION STATUS BYTE        PI102000
                            00001  2215+PITICLAS EQU   1                   LOGICAL PARTITION INITIATOR CLASS    PI104000
                            00002  2216+PITPATID EQU   2                   LOGICAL PARTITION IDENTIFICATION     PI106000
                            00004  2217+PITSIZE  EQU   4                   LOGICAL PARTITION SIZE               PI108000

                            00006  2218+PITPRIO  EQU   6                   LOGICAL PARTITION PRTY               PI110000
                            00008  2219+PITCLASS EQU   8                   LOGICAL PARTITION CLASSES            PI128000
                            00014  2220+PITLNGTH EQU   (PITCLASS+8+4)/4*4         LENGTH OF PIT                 PI132000











                                   2222+*                        HASP PARTITION INFORMATION TABLE               PI136000
                                   2223+*                             STATUS BIT DEFINITIONS                    PI138000






                            00080  2225+PITHOLDA EQU   X'80'               PIT IS DRAINED ($P I)                PI142000
                            00040  2226+PITHOLD1 EQU   X'40'               PIT IS DRAINED ($P IN)               PI144000
                            00020  2227+PITBUSY  EQU   X'20'               PARTITION BUSY INDICATOR             PI146000
                            00010  2228+PITIDLE  EQU   X'10'               PIT IDLE MESSAGE SWITCH              PI148000

                            00001  2229+PITLAST  EQU   X'01'               LAST PIT INDICATOR                   PI150000
COMM     OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00010  2231+$CVTPTR  EQU   16                  ADDRESS OF CVT POINTER               CT008000
000000                             2232+CVTDSECT DSECT                     COMMUNICATION VECTOR TABLE DSECT     CT012000



                                   2234+*                                                                       00510000
                                   2235+*              OS/360                                                   00560000
                                   2236+*        COMMUNICATION VECTOR TABLE                                     00800000
                                   2237+*                                                                       00810000

                                   2238+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5                    01050021
                                   2239+*                                                                       01200000
                            00010  2240+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT         01400000
                                   2241+*                                                                       01600000
                                   2242+*              BEGINNING OF CVT PROPER                                  01601000

                                   2243+*                                                                       01610000
000000                             2244+         DS    0F                                                       01611000
                            00000  2245+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE                 01840000
                                   2246+*                                                                       02000000
000000 00000000                    2247+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST  02200000
000004 00000000                    2248+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE                02610000

                                   2249+*                              ASYNCHRONOUS EXITS                       02620000
000008 00000000                    2250+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB                   02800000
00000C 00000000                    2251+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB                     03000000
000010 00000000                    2252+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT                03200000

                                   2253+*                              CONSOLE INTERRUPTION ROUTINE             03400000
000014 00000000                    2254+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE         03600000
000018 00000000                    2255+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING 03800000
                                   2256+*                              ROUTINE FOR SUPERVISOR                   04000000
00001C 00000000                    2257+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04200000

                                   2258+*                              RELATIVE TRACK ADDR TO ABSOLUTE          04400000
000020 00000000                    2259+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04600000
                                   2260+*                              ABSOLUTE TRACK ADDR TO RELATIVE          04800000
000024 00000000                    2261+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION   05000000
                                   2262+*                              IN UCB LOOKUP TABLE                      05200000
000028 00000000                    2263+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION     05400000
                                   2264+*                              IN UCB LOOKUP TABLE                      05600000

00002C 00000000                    2265+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE           05800000
                                   2266+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES 06000000
000030 00000000                    2267+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY      06200000

                                   2268+*                              IN UCB LOOKUP TABLE                      06400000
000034 00000000                    2269+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE         06600000
000038 00000000                    2270+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL             06800000
00003C 00000000                    2271+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)       07210000
                                   2272+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS    07220000

                                   2273+*                              MASTER SCHEDULER RESIDENT DATA AREA      07221000
000040 00000000                    2274+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE    07400000
000044 00000000                    2275+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE          07600000
000048 00000000                    2276+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS       08000000
                                   2277+*                              FOR DAMAGE ASSESSMENT ROUTINES           08200000
00004C 00000000                    2278+CVT0FN00 DC    A(0) -        RESERVED (MVT)                             08610000
000050 0A03                        2279+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER                         08800000
000052 07FE                        2280+CVTBRET  BR    14 -          RETURN TO CALLER                           09000000

000054 00000000                    2281+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB                    09200000
000058 00000000                    2282+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER     09411000

                                   2283+*                              ROUTINE (SHPC FIRST)                     09412000
00005C 00000000                    2284+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL              09430000
COMM     OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000060 00000000                    2285+CVTSJQ   DC    A(0) -        RESERVED (MVT)                             09810000

000064 00000000                    2286+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR  10000000
000068 00000000                    2287+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE              10410000
                                   2288+*                              FOR INTERVAL TIMER                       10411000
00006C 00000000                    2289+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE              10420000
                                   2290+*                              FOR INTERVAL TIMER                       10421000
000070 00000000                    2291+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE         10600000
000074 10                          2292+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM                           11600000
                            00040  2293+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11600100
                            00020  2294+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11600200

                            00010  2295+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11600300

                            00004  2296+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11600400
000075 000000                      2297+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11601000
000078 00000000                    2298+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE            11820000
00007C 00000000                    2299+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER    12400000
000080 00000000                    2300+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS               12600000

000084 00000000                    2301+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE              12800000
000088 00000000                    2302+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER             13000000
00008C 00000000                    2303+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE         13200000
000090 00000000                    2304+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE            13400000
000094 00000000                    2305+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT          13810000
                                   2306+*                              DATA AREA (MVT/MFT)                      13820000
000098 00000000                    2307+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE    14000000
00009C 00000000                    2308+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE                14200000
0000A0 00000000                    2309+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE           14400000
0000A4 00000000                    2310+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS                    14600000

0000A8 00000000                    2311+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)      14601000

0000AC 00000000                    2312+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD         16638521
                                   2313+*                              (0 IF GFX INACTIVE) MVT                  16640821
0000B0 00000000                    2314+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA       16647721
                                   2315+*                              (MVT/MFT)                                16650000

0000B4 0000                        2316+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    16660000
0000B6 00                          2317+CVTOPTA  DC    AL1(00)    -     MISCELLANEOUS FLAGS                     16670021
                            00080  2318+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)               16680000
                            00040  2319+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --                    16681000
                                   2320+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16681100
                            00020  2321+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --          16683000
                                   2322+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16683200
                            00010  2323+CVTNIP   EQU   X'10' -       NIP RUNNING                                16690000
                            00008  2324+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)                     16691000
                            00004  2325+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16692000
                            00002  2326+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16693000

                            00001  2327+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16695000
0000B7 00                          2328+CVTOPTB  DC    AL1(00)     - MISCELLANEOUS FLAGS                        16700021
                            00080  2329+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)            16702000
                            00020  2330+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)        16704000

                                   2331+*                                                                       16800000
                                   2332+*              PCP OVERLAY                                              17000000
                                   2333+*                                                                       17200000
0000B8                             2334+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART            17400000
0000BB                             2335+CVTSTUSA DS    B -           STATUS BYTE A                              17600000
                            00008  2336+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART     17800000
                                   2337+*                              WAS INITIATED INTRASTEP                  18000000
                            00004  2338+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART           18200000
                                   2339+*                              WAS INITIATED INTERSTEP                  18400000
COMM     OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00002  2340+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM          18600000

                                   2341+*                              AND DATA HAS NOT BEEN READ               18800000
0000BC                             2342+         DS    CL2 -         RESERVED                                   19000000
0000BE                             2343+         DS    CL2 -         RESERVED                                   19200000

                                   2344+*                                                                       19400000
                                   2345+*              MVT/MFT OVERLAY                                          19600000
                                   2346+*                                                                       19800000
0000C0                      000B8  2347+         ORG   CVTCRTTR                                                 20000000
                                   2348+*                                                                       20200000
0000B8 00000000                    2349+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR           20400000
0000BC 00000000                    2350+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21000000
                                   2351+*                                                                       21670000
                                   2352+*              END OF OVERLAYS                                          21800000
                                   2353+*                                                                       22000000
0000C0 00000000                    2354+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)                       22421000
0000C4 00000000                    2355+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA            22600000

0000C8 00000000                    2356+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT     22610000

                                   2357+*                              (MVT/MPS)                                22610100
0000CC 00000000                    2358+CVTUSER  DC    A(0) -        A WORD TO THE USER                         22620000

0000D0                      000CC  2359+         ORG   CVTUSER -     REMAP CVTUSER AS CVTHJES              RFIT 22620100
0000CC                             2360+CVTHJES  DS    0A -          SAME AS CVTHJESA BELOW                RFIT 22620300
0000CC 00                          2361+         DC    XL1'00' -     RESERVED - FIRST BYTE OF CVTHJES      RFIT 22620500
0000CD 000000                      2362+CVTHJESA DC    AL3(0) -      ADDRESS OF HASP COMMUNICATION TABLE   RFIT 22620700
0000D0                      000D0  2363+         ORG   , -           RESTORE LOCATION COUNTER              RFIT 22620900
                                   2364+*                                                                       23000000
                                   2365+*              MFT/MVT CVT EXTENSION                                    24000000
                                   2366+*                                                                       24200000
0000D0 00000000                    2367+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT       24400021
0000D4 0A0D                        2368+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)                 24600000
0000D6 0A06                        2369+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)   25000000
0000D8 00000000                    2370+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25421000

0000DC 00000000                    2371+CVTPATCH DC    V(IEAPATCH) - ADDR OF FE PATCH AREA                      25540000
0000E0 00000000                    2372+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA  25800000

                                   2373+*                              (MVT/MFT)                                25810000

0000E4                             2374+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)             26000000
0000E4 00                          2375+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)                   26050000
                            00080  2376+CVTTSRDY EQU   X'80' -       TIME SHARING READY                         26100000
0000E5 000000                      2377+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)             26150000
0000E8 00000000                    2378+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     27393221
0000EC                             2379+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)   27394021
0000EC 00                          2380+CVTGTFST DC    B'0' -        STATUS FLAGS                               27396021
                            000C0  2381+CVTGTFS  EQU   X'C0' -       STATE                                      27398021
                                   2382+*/       00    CVTGTFIN      INACTIVE                                   27398421
                                   2383+*/       01    CVTGTFSR      STARTING                                   27398821
                                   2384+*/       10    CVTGTFSP      STOPPING                                   27399221
                                   2385+*/       11    CVTGTFAC      ACTIVE                                     27399621

                            00020  2386+CVTSTATE EQU   X'20' -       IN CONTROL                                 27399721
                            00010  2387+CVTMODE  EQU   X'10' -       EXT MODE                                   27399821
                            00008  2388+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA                27399921

                            00004  2389+CVTUSR   EQU   X'04' -       USR TRACE                                  27449921
                            00002  2390+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID                       27459921
0000ED 000000                      2391+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE                27469921
0000F0                             2392+CVTTCMFG DS    0B -          TCAM FLAGS                                 27499921
                            00080  2393+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)                         27600000
0000F0 00000000                    2394+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF             27610000
COMM     OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2395+*                            TCAM ADDRESS VECTOR TABLE                  27620021
                                   2396+*                                                                       29401221
                                   2397+*              MVT CVT EXTENSION                                        29401321
                                   2398+*                                                                       29401421

0000F4                             2399+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE 29401521
                                   2400+*                            (PWF)                               S21167 29401621
0000F4 80                          2401+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY   29404021
                                   2402+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167 29404221

                            00080  2403+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167 29404421
0000F5 000000                      2404+CVTVOLT2 DC    AL3(0)     -  PWF RECHECK TIME DELAY.  THIS VALUE IS     29404621
                                   2405+*                            OVERLAID BY CVTVOLM2 AFTER PWF             29404821
                                   2406+*                            INITIALIZATION                      S21167 29405021
0000F8 00000000                    2407+         DC    A(0) -        RESERVED                                   29405221
                                   2408+*                                                                       29407021

                                   2409+*              MVT/MFT CVT EXTENSION                                    29408021
                                   2410+*                                                                       29408821
0000FC 00000114                    2411+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1              29410821
                                   2412+*                            (ICB421)                APAR'S 47331,47332 29413221
000100                             2413+         DS    F -           RESERVED                                   29414221
000104                             2414+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE         29415221
000104                             2415+         DS    X -           RESERVED                                   29416421
000105 000000                      2416+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE         29417421

000108                             2417+         DS    F -           RESERVED                                   29418421
00010C                             2418+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307 29419421

00010C                             2419+         DS    X -           RESERVED                            ICB307 29420421
00010D 000000                      2420+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND              29421421
                                   2421+*                            COMMUNICATION AREA                  ICB307 29422421
000110                             2422+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308 29423421
000110                             2423+         DS    X -           RESERVED                            ICB308 29424421
000111 000000                      2424+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY      29425421
                                   2425+*                            ROUTINE                             ICB308 29426421
                                   2426+*                                                                       29427421

                                   2427+*              COMMON EXTENSION 1                                       29435721
                                   2428+*              ADDRESS OF EXTENSION IS IN CVTEXT1                       29445721
                                   2429+*                                                                       29455721
                                   2430+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,               29456121
                                   2431+*              YOU SHOULD CODE -                                        29462521

                                   2432+*                                                                       29464521
                                   2433+*              L     REG,CVTEXT1                                        29466521
                                   2434+*              USING CVTXTNT1,REG                                       29468521

                                   2435+*                                                                       29468621
                                   2436+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.               29468721
                                   2437+*                                                                       29468821
                            00114  2438+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1                29475221
                                   2439+*                            (ICB421)                APAR'S 47331,47332 29475721
000114 00000000                    2440+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS        29477221
                                   2441+*                            (ISAM) (ICB421)         APAR'S 47331,47332 29479221

                                   2442+*                                                                       29494421
                                   2443+*              END OF CVT PROPER                                        29513521
                                   2444+*                                                                       29532621
                                   2445+*                                                                       29870000
                                   2446+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT           29880000

                                   2447+*                                                                       29890000
000000                             2448+HASPCOMM CSECT                     END OF CVT DSECT                     CT020000
COMM     OS TASK CONTROL BLOCK DSECT                                                                           PAGE   71



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             2451+TCBDSECT DSECT                     TASK CONTROL BLOCK DSECT             TC010000
000000                             2452+TCBRBP   DS    F                   ADDRESS OF TOP RB                    TC012000
000004                             2453+TCBPIE   DS    F                   ADDRESS OF PROGRAM INTERRUPT ELEMENT TC014000
000008                             2454+TCBDEB   DS    F                   ADDRESS OF DEB QUEUE                 TC016000

00000C                             2455+TCBTIO   DS    F                   ADDRESS OF TASK I/O TABLE            TC018000
000010                             2456+TCBCMP   DS    F                   TASK COMPLETION CODE                 TC020000
000014                             2457+TCBTRN   DS    F                   ADDRESS OF TESTRAN CONTROL TABLE     TC022000
000018                             2458+TCBMSS   DS    F                   MAIN STORAGE SUPERVISOR POINTER      TC026000
00001C                             2459+TCBPKF   DS    C                   PROTECTION KEY                       TC028000

00001D                             2460+TCBFLGS  DS    3C                  MISCELLANEOUS FLAGS                  TC028800
000020                             2461+TCBFLGS4 DS    C                   NONDISPATCHABILITY FLAGS             TC029600
                            00010  2462+TCBHNDSP EQU   X'10'               HASP FREEZE BIT                      TC030400
000021                             2463+TCBFLGS5 DS    C                   NONDISPATCHABILITY FLAGS             TC031200

000022                             2464+TCBLMP   DS    C                   ENQUEUE COUNT / LIMIT PRIORITY       TC032000
000023                             2465+TCBDSP   DS    C                   DISPATCHING PRIORITY                 TC034000
000024                             2466+TCBLLS   DS    F                   LOAD LIST                            TC036000
000028                             2467+TCBJLB   DS    F                   ADDRESS OF JOBLIB DCB                TC038000
00002C                             2468+TCBJPQ   DS    F                   ADDRESS OF CDE FOR JPA               TC040000
000030                             2469+TCBGRS   DS    16F                 GENERAL REGISTER SAVE AREA           TC042000

000070                             2470+TCBQEL   DS    0C                  ENQUEUE COUNT (MVT)                  TC046000
000070                             2471+TCBFSA   DS    F                   ADDRESS OF FIRST PROGRAM SAVE AREA   TC048000
000074                             2472+TCBTCB   DS    F                   ADDRESS OF NEXT LOWER PRIORITY TCB   TC050000
000078                             2473+TCBTME   DS    F                   ADDRESS OF TIMER ELEMENT             TC052000
00007C                             2474+TCBJSTCB DS    F                   ADDRESS OF FIRST TCB FOR JOB STEP    TC056000

000080                             2475+TCBNTC   DS    F                   ADDRESS OF PREVIOUS TCB              TC058000
000084                             2476+TCBOTC   DS    F                   ADDRESS OF ORIGINATING TCB           TC060000
000088                             2477+TCBLTC   DS    F                   ADDRESS OF LAST TCB ON SUBTASK QUEUE TC062000
00008C                             2478+TCBIQE   DS    F                   ADDRESS OF IQE FOR ETXR ROUTINE      TC064000
000090                             2479+TCBECB   DS    F                   ADDRESS OF ECB POSTED ON COMPLETION  TC066000

000094                             2480+TCBTSFLG DS    C                   TIME SHARING FLAGS                   TC066800
000095                             2481+TCBSTPCT DS    C                   STATUS STOP COUNT                    TC067600
000096                             2482+TCBTSLP  DS    C                   TS TASK LIMIT PRIORITY               TC068400
000097                             2483+TCBTSDP  DS    C                   TS TASK DISPATCHING PRIORITY         TC069200
000098                             2484+TCBPQE   DS    F                   ADDRESS OF REGION DUMMY PQE - 8      TC070000

00009C                             2485+TCBAQE   DS    F                   ADDRESS OF ALLOCATED QUEUE ELEMENT   TC072000
0000A0                             2486+TCBNSTAE DS    F                   ADDR OF CURRENT STAE CONTROL BLOCK   TC074000
0000A4                             2487+TCBTCT   DS    F                   ADDRESS OF THE TCT                   TC076000
0000A8                             2488+TCBUSER  DS    F                   USER FIELD                           TC078000
0000AC                             2489+TCBNDSP  DS    F                   SECONDARY NONDISPATCHABILITY         TC080000

0000B0                             2490+TCBPCE   DS    0F .                ADDRESS OF HASP PCE         FJP/RFIT TC081700
                            00001  2491+TCBPCEND EQU   X'01' .             HASP NON-DISPATCH. FLAG     FJP/RFIT TC081800
0000B0                             2492+         DS    F                   RESERVED                             TC082000
0000B4                             2493+TCBJSCB  DS    F                   ADDRESS OF JSCB                      TC083000
000000                             2494+HASPCOMM CSECT                     END OF TASK CONTROL BLOCK DSECT      TC084000
COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   72



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2496+*,***  IHB069  DEVD NOT SPECIFIED-ALL ASSUMED


                                   2498+*                       DCB SYMBOLIC DEFINITION FOR                     07700000

                                   2499+*                       PHYSICAL SEQUENTIAL                             07900000

                                   2501+*********************************************************************** 09960021
                                   2502+*  OS     RELEASE 21.8, 03/22/74                                      * 10000021
                                   2503+*  OS/VS1 RELEASE 03.1, 03/22/74                                      * 10010021

                                   2504+*********************************************************************** 10020021

000000                             2506+IHADCB   DSECT , -            DCBPTR                                    10150000

                            00080  2508+DCBBIT0  EQU   128                                                      10210021
                            00040  2509+DCBBIT1  EQU   64                                                       10220021
                            00020  2510+DCBBIT2  EQU   32                                                       10230021

                            00010  2511+DCBBIT3  EQU   16                                                       10240021
                            00008  2512+DCBBIT4  EQU   8                                                        10242021
                            00004  2513+DCBBIT5  EQU   4                                                        10244021

                            00002  2514+DCBBIT6  EQU   2                                                        10246021
                            00001  2515+DCBBIT7  EQU   1                                                        10248021

                                   2517+*                       DEVICE INTERFACES                               10350000


                                   2519+*                       DIRECT ACCESS DEVICES                           10500000

000000                             2521+DCBRELAD DS    CL4 -          PARTITIONED ORGANIZATION DATA SET -       10600000
                                   2522+*                             ADDRESS (IN THE FORM TTRN) OF MEMBER      10650000
                                   2523+*                             CURRENTLY USED.  ---                      10700000
                                   2524+*                             SYS1.LOGREC DATA SET - IF CCH OPTION HAS  10750000
                                   2525+*                             BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS 10800000
                                   2526+*                             OF A 12-BYTE PARAMETER IN THE EXPANSION   10850000

                                   2527+*                             OF MACRO INSTRUCTION IGFCATAP             10900000
000004                             2528+DCBKEYCN DS    FL1 -          KEYED BLOCK OVERHEAD CONSTANT             10950000

000005                             2529+DCBFDAD  DS    CL8 -          FULL DISK ADDRESS IN THE FORM OF MBBCCHHR 11000000
                                   2530+*                             OF RECORD THAT WAS JUST READ OR WRITTEN   11050000

00000D                      0000C  2532+         ORG   DCBFDAD+7                                                11150000
00000C                             2533+DCBDVTBL DS    0A -           SAME AS DCBDVTBA BELOW                    11200000

00000C                             2534+         DS    X -            LAST BYTE OF DCBFDAD                      11250000
00000D                             2535+DCBDVTBA DS    AL3 -          ADDRESS OF ENTRY IN I/O DEVICE            11300000
                                   2536+*                             CHARACTERISTICS TABLE FOR DEVICE BEING    11350000
                                   2537+*                             USED                                      11400000
000010                             2538+         DS    FL1 -          DCBKEYLE - KEY LENGTH OF DATA SET         11450000
000011                             2539+         DS    C -            DCBDEVT - DEVICE TYPE                     11500000
                                   2540+*   FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION      11550000
                            00021  2541+DCBDV311 EQU   X'21' -        2311 DISK DRIVE                           11600000
                            00022  2542+DCBDV301 EQU   X'22' -        2301 PARALLEL DRUM                        11650000

                            00023  2543+DCBDV303 EQU   X'23' -        2303 SERIAL DRUM                          11700000

                            00024  2544+DCBDV302 EQU   X'24' -        2302 DISK STORAGE                         11750000
                            00025  2545+DCBDV321 EQU   X'25' -        2321 DATA CELL DRIVE                      11800000
                            00028  2546+DCBDV314 EQU   X'28' -        2314 DISK STORAGE FACILITY                11850000
000012                             2547+DCBTRBAL DS    H -            TRACK BALANCE.  NUMBER OF BYTES REMAINING 11900000
                                   2548+*                             ON CURRENT TRACK AFTER A WRITE OPERATION  11950000

                                   2549+*                             (THIS QUANTITY MAY BE NEGATIVE IF THERE   12000000
COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2550+*                             ARE NO BYTES REMAINING ON TRACK).         12050000

                                   2552+*                       MAGNETIC TAPE                                   12200000

000014                      00000  2554+         ORG   IHADCB                                                   12300000
000000                             2555+         DS    CL12 -         RESERVED FOR I/O SUPERVISOR               12350000
00000C                             2556+DCBBLKCT DS    F -            BLOCK COUNT FOR EACH VOLUME               12400000

000010                             2557+DCBTRTCH DS    C -            TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 12450000

                            00023  2558+DCBMTE   EQU   X'23' -        E  - EVEN PARITY                          12500000
                            0003B  2559+DCBMTT   EQU   X'3B' -        T  - BCD/EBCDIC TRANSLATION               12550000
                            00013  2560+DCBMTC   EQU   X'13' -        C  - DATA CONVERSION                      12600000
                            0002B  2561+DCBMTET  EQU   X'2B' -        ET - EVEN PARITY AND TRANSLATION          12650000

000011                             2562+         DS    C -            DCBDEVT - DEVICE TYPE                     12700000
                            00081  2563+DCBDVMT  EQU   X'81' -        2400 SERIES MAGNETIC TAPE UNIT (7-TRACK   12750000
                                   2564+*                             OR 9-TRACK)                               12800000
                            00083  2565+DCBDVMT3 EQU   X'83' -        3400 SERIES MAGNETIC TAPE UNIT     ICB277 12850000
000012                             2566+DCBDEN   DS    C -            TAPE DENSITY - 2400 SERIES MAGNETIC TAPE  12900000
                                   2567+*                             UNITS                                     12950000
                                   2568+*                             CODE    7-TRACK     9-TRACK               13000000
                            00003  2569+DCBMTDN0 EQU   X'03' -         0       200 BPI       -                  13050000
                            00043  2570+DCBMTDN1 EQU   X'43' -         1       556 BPI       -                  13100000
                            00083  2571+DCBMTDN2 EQU   X'83' -         2       800 BPI     800 BPI              13150000
                            000C3  2572+DCBMTDN3 EQU   X'C3' -         3         -        1600 BPI              13200000

                            000D3  2573+DCBMTDN4 EQU   X'D3' -         4         -        6250 BPI        99223 13210003
000013                             2574+         DS    X -            RESERVED                                  13250000

                                   2576+*                       PAPER TAPE                                      13400000


000014                      00008  2578+         ORG   IHADCB+8                                                 13500000
000008                             2579+DCBLCTBL DS    A -            ADDRESS OF TRANSLATE TABLE                13550000
00000C                             2580+         DS    XL4 -          RESERVED                                  13600000
000010                             2581+DCBCODE  DS    C -            PAPER TAPE CODE BEING USED.  THE          13650000
                                   2582+*                             APPROPRIATE TRANSLATE TABLE IS MADE       13700000
                                   2583+*                             AVAILABLE                                 13750000
                            00080  2584+DCBPTCDN EQU   X'80' -        N - NO CONVERSION                         13800000
                            00040  2585+DCBPTCDI EQU   X'40' -        I - IBM BCD                               13850000
                            00020  2586+DCBPTCDF EQU   X'20' -        F - FRIDEN                                13900000
                            00010  2587+DCBPTCDB EQU   X'10' -        B - BURROUGHS                             13950000
                            00008  2588+DCBPTCDC EQU   X'08' -        C - NATIONAL CASH REGISTER                14000000

                            00004  2589+DCBPTCDA EQU   X'04' -        A - ASCII (8-TRACK)                       14050000
                            00002  2590+DCBPTCDT EQU   X'02' -        T - TELETYPE                              14100000
000011                             2591+         DS    C -            DCBDEVT - DEVICE TYPE                     14150000

                            00050  2592+DCBDVPTP EQU   X'50' -        2671 PAPER TAPE READER                    14200000
000012                             2593+         DS    X -            RESERVED                                  14250000
000013                             2594+DCBPTFLG DS    BL1 -          PAPER TAPE FLAGS                          14300000
                            00010  2595+DCBPTIC  EQU   DCBBIT3 -      INVALID CHARACTER IN LAST RECORD READ     14350003
                            00008  2596+DCBPTECT EQU   DCBBIT4 -      END OF RECORD CHARACTER REACHED IN        14400003
                                   2597+*                             TRANSLATION                               14450000
                            00004  2598+DCBPTECR EQU   DCBBIT5 -      END OF RECORD CHARACTER DETECTED DURING   14500003
                                   2599+*                             READ                                      14550000
                            00002  2600+DCBPTUCT EQU   DCBBIT6 -      IF ONE, UPPER CASE TRANSLATE.             14600003
                                   2601+*                             IF ZERO, LOWER CASE TRANSLATE             14650000
                            00001  2602+DCBPTERR EQU   DCBBIT7 -      ERROR DETECTED ON READ                    14700003


                                   2604+*                       PRINTER                                         14850000

COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000014                      00010  2606+         ORG   IHADCB+16                                                14950000
000010                             2607+DCBPRTSP DS    C -            NUMBER INDICATING NORMAL PRINTER SPACING  15000000
                            00001  2608+DCBPRSP0 EQU   X'01' -        0 - NO SPACING                            15050000
                            00009  2609+DCBPRSP1 EQU   X'09' -        1 - SPACE ONE LINE                        15100000
                            00011  2610+DCBPRSP2 EQU   X'11' -        2 - SPACE TWO LINES                       15150000
                            00019  2611+DCBPRSP3 EQU   X'19' -        3 - SPACE THREE LINES                     15200003
000011                             2612+         DS    C -            DCBDEVT - DEVICE TYPE                     15250000
                            00048  2613+DCBDVPR1 EQU   X'48' -        1403 PRINTER AND 1404 PRINTER (CONTINUOUS 15300000
                                   2614+*                             FORM SUPPORT ONLY)                        15350000
                            0004A  2615+DCBDVPR2 EQU   X'4A' -        1443 PRINTER                              15400000
                            00049  2616+DCBDVPR3 EQU   X'49' -        3211 PRINTER                              15450000
000012                             2617+DCBPRTOV DS    C -            TEST-FOR-PRINTER-OVERFLOW MASK            15500000

                                   2618+*                             (PRTOV MASK)                              15550000
                            00020  2619+DCBPRC9  EQU   X'20' -        9  - TEST FOR CHANNEL 9 OVERFLOW          15600000

                            00010  2620+DCBPRC12 EQU   X'10' -        12 - TEST FOR CHANNEL 12 OVERFLOW         15650000

000013                             2621+         DS    X -            RESERVED                                  15700000

                                   2623+*                       CARD READER, CARD PUNCH                         15850000

000014                      00010  2625+         ORG   IHADCB+16                                                15950000
000010                             2626+DCBMODE  DS    0B -           MODE OF OPERATION FOR 1442 CARD READ      16000000
                                   2627+*                             PUNCH (BITS 0-3)                          16050000
000010                             2628+DCBSTACK DS    B -            STACKER SELECTION (BITS 4-7)              16100000
                            00080  2629+DCBMODEC EQU   DCBBIT0 -      COLUMN BINARY MODE                        16150003
                            00040  2630+DCBMODEE EQU   DCBBIT1 -      EBCDIC MODE                               16200003
                            00020  2631+DCBMODEO EQU   DCBBIT2 -      OPTICAL MARK READ MODE                    16250003
                            00010  2632+DCBMODER EQU   DCBBIT3 -      READ COLUMN ELIMINATE MODE                16300003

                            00002  2633+DCBSTCK2 EQU   DCBBIT6 -      STACKER 2                                 16350003
                            00001  2634+DCBSTCK1 EQU   DCBBIT7 -      STACKER 1                                 16400003
000011                             2635+         DS    C -            DCBDEVT - DEVICE TYPE                     16450000

                            00041  2636+DCBDVCR0 EQU   X'41' -        2540 CARD READER                          16500000
                            00042  2637+DCBDVCP0 EQU   X'42' -        2540 CARD PUNCH                           16550000
                            00043  2638+DCBDVCRP EQU   X'43' -        1442 CARD READ PUNCH                      16600000
                            00044  2639+DCBDVCR1 EQU   X'44' -        2501 CARD READER                          16650000
                            00045  2640+DCBDVCPR EQU   X'45' -        2520 CARD READ PUNCH                      16700000
                            00046  2641+DCBDVCR2 EQU   X'46'          3505 CARD READER                   XM0629 16710002
                            0004C  2642+DCBDVCP1 EQU   X'4C'          3525 CARD PUNCH                    XM0629 16720002
000012                             2643+         DS    X -            RESERVED                                  16750000
000013                             2644+DCBFUNC  DS    B -            FUNCTION INDICATOR FOR THE 3525           16800000
                            00080  2645+DCBFNCBI EQU   DCBBIT0 -      INTERPRET (PUNCH AND PRINT TWO LINES)     16850003
                            00040  2646+DCBFNCBR EQU   DCBBIT1 -      READ                                      16900003
                            00020  2647+DCBFNCBP EQU   DCBBIT2 -      PUNCH                                     16950003

                            00010  2648+DCBFNCBW EQU   DCBBIT3 -      PRINT                                     17000003
                            00008  2649+DCBFNCBD EQU   DCBBIT4 -      DATA PROTECTION                           17050003
                            00004  2650+DCBFNCBX EQU   DCBBIT5 -      THIS DATA SET IS TO BE PRINTED            17100003
                            00002  2651+DCBFNCBT EQU   DCBBIT6 -      TWO-LINE PRINT SUPPORT REQUEST            17150003


                                   2653+*                       OPTICAL READER AND MAGNETIC CHAR READER         18100000

000014                      00000  2655+         ORG   IHADCB                                                   18200000
000000                             2656+DCBWTOID DS    0A -           SAME AS DCBWTOIA BELOW                    18250000
000000                             2657+         DS    X -            RESERVED                                  18300000

000001                             2658+DCBWTOIA DS    AL3 -          A BINARY IDENTIFICATION NUMBER ASSIGNED   18350000
                                   2659+*                             BY COMMUNICATIONS TASK TO MESSAGE ISSUED  18400000
                                   2660+*                             BY WTO MACRO.  THIS NUMBER IS USED BY THE 18450000
COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2661+*                             DOM MACRO WHEN MESSAGE IS NO LONGER       18500000
                                   2662+*                             REQUIRED (MCS SUPPORT).  ---              18550000
                                   2663+*                             FOR MAGNETIC CHAR READER - AFTER FIRST    18600000

                                   2664+*                             READ HAS BEEN ISSUED, CONTAINS ADDRESS OF 18650000

                                   2665+*                             MAGNETIC INTERRUPT CONTROL BLOCK (MICB)   18700000
                                   2666+*                             BEING USED BY THE APPENDAGES.             18750000

                                   2668+*                       OPTICAL READER DEVICES                          18900000
                                   2669+*                       1285, 1287, 1288, 3886                          18950003

000004                      00004  2671+         ORG   DCBWTOID+4                                               19050000
000004                             2672+DCBERRCN DS    0A -           SAME AS DCBERRCA BELOW                    19100000
000004                             2673+DCBERRCA DS    AL3 -          ADDRESS OF 32 BYTES OF DECLARED STORAGE   19200000

                                   2674+*                             SPECIFIED BY THE USER IN HIS PROGRAM.     19250000
                                   2675+*                             THIS STORAGE WILL BE USED BY THE          19300000
                                   2676+*                             PROGRAMMING SUPPORT AS EIGHT 4-BYTE       19350000
                                   2677+*                             COUNTERS IN WHICH TOTALS OF CERTAIN 1285, 19400000
                                   2678+*                             1287 AND 1288 ERROR CONDITIONS ARE        19450000

                                   2679+*                             ACCUMULATED.                              19500000
000007                      00004  2680+         ORG   DCBWTOID+4                                               19510003

000004                             2681+DCBLNNUM DS    X              3886  DOCUMENT LINE NUMBER                19520003
000005                             2682+DCBLFMAT DS    X              3886  LINE FORMAT NUMBER                  19530003
000006                             2683+DCBORFLG DS    X              3886  FLAGS                               19540003
                            00080  2684+DCBEOPFG EQU   DCBBIT0        END OF PAGE                               19540403
000007                             2685+         DS    X              RESERVED                                  19542003
000008                             2686+DCBDSPLY DS    0A -           SAME AS DCBDSPLA BELOW                    19550000
000008                             2687+DCBFRID  DS    0CL4           3886  FORMAT RECORD ID                    19560003
000008                             2688+         DS    X -            RESERVED                                  19600000

000009                             2689+DCBDSPLA DS    AL3 -          ADDRESS OF DSPLY (BSAM) ROUTINE USED FOR  19650000
                                   2690+*                             KEYBOARD ENTRY OF A COMPLETE FIELD        19700000
00000C                             2691+DCBRESCN DS    0A -           SAME AS DCBRESCA BELOW                    19750000
00000C                             2692+DCBRDLNE DS    0A -           SAME AS DCBRDLNA BELOW                    19800000
00000C                             2693+DCBFRTBA DS    0A             3886  FORMAT RECORD TABLE                 19810003

00000C                             2694+         DS    X -            RESERVED                                  19850000
00000D                             2695+DCBRESCA DS    0AL3 -         ADDRESS OF RESCN (BSAM) ROUTINE USED TO   19900000
                                   2696+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    19950000

                                   2697+*                             CHARACTERS                                20000000
00000D                             2698+DCBRDLNA DS    AL3 -          ADDRESS OF RDLNE (QSAM) ROUTINE USED TO   20050000
                                   2699+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    20100000
                                   2700+*                             CHARACTERS                                20150000
000010                             2701+DCBORBYT DS    BL1 -          OPTICAL READER BYTE USED BY BSAM/QSAM     20200000
                            00080  2702+DCBORSYN EQU   DCBBIT0 -      SYNAD IN CONTROL                          20250003
                            00040  2703+DCBOREOF EQU   DCBBIT1 -      END OF FILE (EOF)                         20300003

                            00020  2704+DCBORBFP EQU   DCBBIT2 -      BUFFERS PRIMED (QSAM)                     20350003
000011                             2705+         DS    C -            DCBDEVT - DEVICE TYPE                     20400000
                            0005A  2706+DCBDVOR5 EQU   X'5A' -        1285 OPTICAL READER                       20450000
                            0005B  2707+DCBDVOR7 EQU   X'5B' -        1287 OPTICAL READER                       20500000
                            0005C  2708+DCBDVOR8 EQU   X'5C' -        1288 OPTICAL READER                       20550000

                            00057  2709+DCBDVOR9 EQU   X'57'          3886 OPTICAL READER                       20560003
000012                             2710+DCBEIB   DS    BL1 -          ERROR INDICATOR BYTE                      20600000
                            00040  2711+DCBORNRM EQU   DCBBIT1 -      THE 1287 OR 1288 SCANNER WAS UNABLE TO    20650003
                                   2712+*                             LOCATE THE REFERENCE MARK                 20700000

                            00020  2713+DCBORREJ EQU   DCBBIT2 -      FOR 1287, A STACKER SELECT COMMAND WAS    20750003
                                   2714+*                             GIVEN AFTER ALLOTTED TIME HAD ELAPSED AND 20800000
                                   2715+*                             THE DOCUMENT HAS BEEN PUT IN REJECT       20850000
COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2716+*                             POCKET.  FOR 1288 UNFORMATTED ONLY,       20900000

                                   2717+*                             END-OF-PAGE HAS OCCURRED.                 20950000
                            00010  2718+DCBORERR EQU   DCBBIT3 -      A NONRECOVERABLE ERROR HAS OCCURRED.      21000003
                            00008  2719+DCBORECK EQU   DCBBIT4 -      AN EQUIPMENT CHECK RESULTED IN AN         21050003
                                   2720+*                             INCOMPLETE READ                           21100000
                            00004  2721+DCBORWLR EQU   DCBBIT5 -      A WRONG-LENGTH RECORD CONDITION HAS       21150003

                                   2722+*                             OCCURRED                                  21200000
                            00002  2723+DCBORHPR EQU   DCBBIT6 -      FOR QSAM - OPERATOR ENTERED ONE OR MORE   21250003
                                   2724+*                             CHARACTERS FROM THE KEYBOARD.             21300000
                                   2725+*                             FOR BSAM - A HOPPER EMPTY CONDITION HAS   21350000
                                   2726+*                             OCCURRED                                  21400000

                            00001  2727+DCBORDCK EQU   DCBBIT7 -      A DATA CHECK HAS OCCURRED                 21450003
000013                             2728+         DS    X -            RESERVED                                  21500000

                                   2730+*                       MAGNETIC CHARACTER READER DEVICES               21650000
                                   2731+*                       1419 MAGNETIC CHARACTER READER                  21700000

                                   2732+*                       1275 OPTICAL READER SORTER                      21750000
                                   2733+*                       3890 MAGNETIC CHARACTER READER                  21760003

000014                      00000  2735+         ORG   IHADCB                                                   21850000
000000                             2736+DCBSSID  DS    CL8 -          BEFORE DCB IS OPENED - NAME OF USER'S     21900000

                                   2737+*                             STACKER SELECT ROUTINE.                   21950000

000008                      00000  2739+         ORG   DCBSSID                                                  22050000
000000                             2740+         DS    A -            AFTER DCB IS OPENED - DCBWTOID            22100000
000004                             2741+DCBSSAD  DS    0A -           ADDRESS OF USER'S STACKER SELECT ROUTINE  22150000
000004                             2742+DCBIMG   DS    0A             3890  ADDR OF USER'S IMAGE PROC RTN       22160003

000004                             2743+         DS    X -            RESERVED                                  22200000
000005                             2744+DCBSSADA DS    AL3 -          ADDRESS OF USER'S STACKER SELECT ROUTINE  22250000
000008                             2745+DCBIMAGE DS    0A -           SAME AS DCBIMAGA BELOW                    22300000
000008                             2746+DCBMRFG  DS    BL1 -          BUFFER INDICATOR                          22350000

                            000C0  2747+DCBMRBCT EQU   DCBBIT0+DCBBIT1 -                                        22400003
                                   2748+*                             TWO-BIT BINARY COUNTER WHICH INDICATES    22410003
                                   2749+*                             INTO WHICH BUFFER STATUS INFORMATION IS   22450000
                                   2750+*                             TO BE POSTED                              22500000
000009                             2751+DCBIMAGA DS    AL3 -          ADDRESS OF PARAMETER LIST USED TO         22550000

                                   2752+*                             COMMUNICATE BETWEEN USER'S PROCESSING     22600000
                                   2753+*                             ROUTINES AND HIS STACKER SELECT ROUTINES  22650000
00000C                             2754+DCBECBLT DS    0A -           SAME AS DCBECBLA BELOW                    22700000
00000C                             2755+DCBHDR   DS    0A             3890  ADDR OF USER'S HEADER DATA AREA     22702003
00000C                             2756+DCBMRIND DS    BL1 -          INDICATOR AND COUNTER BYTE                22750000
                            000E0  2757+DCBMRDCT EQU   DCBBIT0+DCBBIT1+DCBBIT2                                  22800003
                                   2758+*                             THREE-BIT BINARY COUNTER OF NUMBER OF     22810003

                                   2759+*                             DOCUMENTS READ AFTER DISENGAGE            22850000
                            00010  2760+DCBMRSCU EQU   DCBBIT3 -      DCB WAS ALTERED WHEN SYNAD ROUTINE WAS    22900003
                                   2761+*                             ENTERED DUE TO SECONDARY CONTROL UNIT     22950000

                                   2762+*                             (SCU) ERROR                               23000000
                            00008  2763+DCBMRPLO EQU   DCBBIT4 -      POCKET LIGHT HAS BEEN TURNED ON           23050003
                            00004  2764+DCBMRPLS EQU   DCBBIT5 -      POCKET LIGHT 0-6 IS BEING SET ON          23100003
                            00002  2765+DCBMRERP EQU   DCBBIT6 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23150003
                                   2766+*                             PRIMARY CONTROL UNIT (PCU)                23200000

                            00001  2767+DCBMRERS EQU   DCBBIT7 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23250003
                                   2768+*                             SECONDARY CONTROL UNIT (SCU)              23300000
00000D                             2769+DCBECBLA DS    AL3 -          ADDRESS OF ECB LIST PASSED TO WAIT MACRO  23350000
                                   2770+*                             BY CHECK MACRO WHEN NO 1419/1275 IS       23400000
COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2771+*                             AVAILABLE FOR PROCESSING                  23450000
000010                             2772+DCBMRFLG DS    BL1 -          FLAG BYTE                                 23500000

                            00080  2773+DCBMRSCC EQU   DCBBIT0 -      FIRST OR SECOND SECONDARY CONTROL UNIT    23550003
                                   2774+*                             COMMAND CHAIN IS BEING USED               23600000

                            00040  2775+DCBMRDBG EQU   DCBBIT1 -      DEBUGGING MODE IN USE                     23650003
                            00020  2776+DCBMRDRU EQU   DCBBIT2 -      DISENGAGE REQUESTED BY USER               23700003
                            00010  2777+DCBMRDR  EQU   DCBBIT3 -      DISENGAGE REQUESTED                       23750003
                            0000C  2778+DCBMRPCC EQU   DCBBIT4+DCBBIT5 -                                        23800003
                                   2779+*                             TWO-BIT BINARY COUNTER INDICATING FIRST,  23802003

                                   2780+*                             SECOND OR THIRD PRIMARY CONTROL UNIT      23850000
                                   2781+*                             COMMAND CHAIN IS BEING USED               23900000
                            00002  2782+DCBMRDWT EQU   DCBBIT6 -      WTO MESSAGE MUST BE DELETED               23950003
                            00001  2783+DCBMRUE  EQU   DCBBIT7 -      UNIT EXCEPTION                            24000003
000011                             2784+         DS    C -            DCBDEVT - DEVICE TYPE                     24050000
                            0005D  2785+DCBDVMR  EQU   X'5D' -        1419 MAGNETIC CHARACTER READER            24100000
                            0005F  2786+DCBDVORS EQU   X'5F' -        1275 OPTICAL READER SORTER                24150000
                            00056  2787+DCBDVMRS EQU   X'56'          3890 MAGNETIC CHARACTER READER SORTER     24160003
000012                             2788+DCBAPPIN DS    C -            AN INDICATOR USED BY THE APPENDAGES TO    24200000

                                   2789+*                             PASS INFORMATION ABOUT ONE CHANNEL CHAIN  24250000

                                   2790+*                             TO AN APPENDAGE ASSOCIATED WITH ANOTHER   24300000
                                   2791+*                             CHANNEL CHAIN                             24350000
000013                             2792+         DS    X -            RESERVED                                  24400000

                                   2794+*                       ACCESS METHOD COMMON INTERFACE                  24600000


000014                      00010  2796+         ORG   IHADCB+16                                                24700000
000010                             2797+DCBRELB  DS    0F -           SAME AS DCBREL BELOW                      24750000
000010                             2798+DCBKEYLE DS    FL1 -          KEY LENGTH OF DATA SET                    24800000
000011                             2799+DCBDEVT  DS    0C -           DEVICE TYPE                               24850000
                            0004F  2800+DCBDVTRM EQU   X'4F' -        TERMINAL.  (DD CONTAINS TERM=TS)          24900000
000011                             2801+DCBREL   DS    FL3 -          NUMBER OF RELATIVE TRACKS OR BLOCKS IN    24950000
                                   2802+*                             THIS DATA SET (BDAM)                      25000000
000014                             2803+DCBBUFCB DS    0A -           ADDRESS OF BUFFER POOL CONTROL BLOCK      25050000
000014                             2804+DCBBUFNO DS    FL1 -          NUMBER OF BUFFERS REQUIRED FOR THIS DATA  25100000

                                   2805+*                             SET.  MAY RANGE FROM 0 TO 255.  IF        25150000

                                   2806+*                             UNBLOCKED SPANNED RECORDS ARE USED,       25200000
                                   2807+*                             NUMBER OF SEGMENT WORK AREAS REQUIRED     25250000
                                   2808+*                             FOR THIS DATA SET.                        25300000
000015                             2809+DCBBUFCA DS    AL3 -          ADDRESS OF BUFFER POOL CONTROL BLOCK      25350000

000018                             2810+DCBBUFL  DS    H -            LENGTH OF BUFFER.  MAY RANGE FROM 0 TO    25400000
                                   2811+*                             32,767.                                   25450000
00001A                             2812+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED          25500000
00001A                             2813+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG                    25550000
                            00080  2814+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION      25600003
                            00040  2815+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION     25650003
                            00020  2816+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION                  25700003
                            00010  2817+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP              25750003
                            00008  2818+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE     25800003
                            00004  2819+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE   25850003
                            00002  2820+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION             25900003

                            00001  2821+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS         25950003
                                   2822+*                                  LOCATION DEPENDENT INFORMATION       26000000
00001B                             2823+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG                   26050000
                            00080  2824+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION                26100003

                            00040  2825+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP                      26150003
COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00020  2826+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE                   26200003
                            00008  2827+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1 26250003
                            00004  2828+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024 26260003
00001C                             2829+DCBIOBAD DS    0A -           ADDRESS OF IOB WHEN CHAINED SCHEDULING IS 26300000
                                   2830+*                             USED OR FOR 1419/1275                     26350000
00001C                             2831+DCBODEB  DS    0A -           ADDRESS OF OLD DEB                        26400000
00001C                             2832+DCBLNP   DS    0FL1 -         3525 PRINTER LINE POSITION COUNTER        26450000
00001C                             2833+DCBQSLM  DS    BL1 -          QSAM LOCATE MODE LOGICAL RECORD INTERFACE 26500000
                                   2834+*                             INDICATOR BYTE FOR UPDAT PROCESSING OF    26550000

                                   2835+*                             SPANNED RECORDS                           26600000
                            00080  2836+DCB1DVDS EQU   DCBBIT0 -      ONLY ONE DEVICE IS ALLOCATED TO THIS      26650003
                                   2837+*                             DATA SET                                  26700000

                            00040  2838+DCBUPDCM EQU   DCBBIT1 -      UPDATE COMPLETE, FREE OLD DEB             26750003
                            00030  2839+DCBUPDBT EQU   DCBBIT2+DCBBIT3 -                                        26800003
                                   2840+*                             UPDATE BITS                               26810003
                            00020  2841+DCBUPDT  EQU   DCBBIT2 -      UPDATE TO TAKE PLACE                      26850003
                            00030  2842+DCBNUPD  EQU   DCBBIT2+DCBBIT3 -                                        26900003
                                   2843+*                             NO UPDATE TO TAKE PLACE                   26910003
                            00010  2844+DCBSVDEB EQU   DCBBIT3 -      OLD DEB ADDRESS MUST BE SAVED             26950003
00001D                             2845+DCBIOBAA DS    0AL3 -         SAME AS DCBIOBAD ABOVE                    27000000
00001D                             2846+DCBODEBA DS    AL3 -          ADDRESS OF OLD DEB                        27050000
000020                      0001C  2847+         ORG   IHADCB+28                                     ICBI DCB-4 27100000
00001C                             2848+DCBSVCXL DS    0A -           SAME AS DCBSVCXA BELOW         ICBI DCB-4 27150000
00001C                             2849+         DS    X -            RESERVED                       ICBI DCB-4 27200000

00001D                             2850+DCBSVCXA DS    AL3 -          POINTER TO EXIT LIST OF JES    ICBI DCB-4 27250000

                                   2851+*                             C.I. INTERFACE CONTROL SVC     ICBI DCB-4 27300000


                                   2853+*                       FOUNDATION EXTENSION                            27400000

000020                             2855+DCBEODAD DS    0A -           SAME AS DCBEODA BELOW                     27500000
000020                             2856+DCBHIARC DS    0BL1 -         HIERARCHY BITS                            27550000
000020                             2857+DCBBFTEK DS    0BL1 -         BUFFERING TECHNIQUE BITS                  27600000
000020                             2858+DCBBFALN DS    BL1 -          BUFFER ALIGNMENT BITS                     27650000
                            00080  2859+DCBH1    EQU   DCBBIT0 -      HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO  27700003
                            00070  2860+DCBBFT   EQU   DCBBIT1+DCBBIT2+DCBBIT3                                  27750003
                                   2861+*                             BUFFERING TECHNIQUE                       27760003
                            00060  2862+DCBBFTA  EQU   DCBBIT1+DCBBIT2 -                                        27800003
                                   2863+*                             QSAM LOCATE MODE PROCESSING OF SPANNED    27810003
                                   2864+*                             RECORDS - OPEN IS TO CONSTRUCT A RECORD   27850000

                                   2865+*                             AREA IF IT AUTOMATICALLY CONSTRUCTS       27900000
                                   2866+*                             BUFFERS                                   27950000

                            00020  2867+DCBBFTR  EQU   DCBBIT2 -      FOR BSAM CREATE BDAM PROCESSING OF        28000003

                                   2868+*                             UNBLOCKED SPANNED RECORDS - SOFTWARE      28050000
                                   2869+*                             TRACK OVERFLOW.  FOR BSAM INPUT           28100000
                                   2870+*                             PROCESSING OF UNBLOCKED SPANNED RECORDS   28150000
                                   2871+*                             WITH KEYS - RECORD OFFSET PROCESSING.     28200000
                            00040  2872+DCBBFTS  EQU   DCBBIT1 -      SIMPLE BUFFERING - BIT 3 IS ZERO          28250003
                            00020  2873+DCBBFTKR EQU   DCBBIT2 -      UNBLOCKED SPANNED RECORDS - SOFTWARE      28300003
                                   2874+*                             TRACK OVERFLOW (BDAM)                     28350000
                            00010  2875+DCBBFTE  EQU   DCBBIT3 -      EXCHANGE BUFFERING - BIT 1 IS ZERO        28400003
                            00008  2876+DCBBFTKD EQU   DCBBIT4 -      DYNAMIC BUFFERING (BTAM)                  28450003
                            00004  2877+DCBH0    EQU   DCBBIT5 -      HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO  28500003
                            00003  2878+DCBBFA   EQU   DCBBIT6+DCBBIT7 -                                        28550003
                                   2879+*                             BUFFER ALIGNMENT                          28560003

                            00002  2880+DCBBFAD  EQU   DCBBIT6 -      DOUBLEWORD BOUNDARY                       28600003
COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                            00001  2881+DCBBFAF1 EQU   DCBBIT7 -      FULLWORD NOT A DOUBLEWORD BOUNDARY,       28650003
                                   2882+*                             CODED IN DCB MACRO INSTRUCTION            28700000
                            00003  2883+DCBBFAF2 EQU   DCBBIT6+DCBBIT7 -                                        28750003
                                   2884+*                             FULLWORD NOT A DOUBLEWORD BOUNDARY,       28760003
                                   2885+*                             CODED IN DCB MACRO INSTRUCTION            28800000
000021                             2886+DCBEODA  DS    AL3 -          ADDRESS OF A USER-PROVIDED ROUTINE TO     28850000
                                   2887+*                             HANDLE END-OF-DATA CONDITIONS             28900000
000024                             2888+DCBEXLST DS    0A -           ADDRESS OF USER-PROVIDED LIST OF EXITS    28950000
000024                             2889+DCBRECFM DS    BL1 -          RECORD FORMAT                             29000000
                            000E0  2890+DCBRECLA EQU   DCBBIT0+DCBBIT1+DCBBIT2  -                               29050003
                                   2891+*                             RECORD LENGTH INDICATOR - ASCII           29060003
                            00020  2892+DCBRECD  EQU   DCBBIT2 -      ASCII VARIABLE RECORD LENGTH              29100003

                            000C0  2893+DCBRECL  EQU   DCBBIT0+DCBBIT1 -                                        29150003
                                   2894+*                             RECORD LENGTH INDICATOR                   29160003
                            00080  2895+DCBRECF  EQU   DCBBIT0 -      FIXED RECORD LENGTH                       29200003

                            00040  2896+DCBRECV  EQU   DCBBIT1 -      VARIABLE RECORD LENGTH                    29250003
                            000C0  2897+DCBRECU  EQU   DCBBIT0+DCBBIT1 -                                        29300003
                                   2898+*                             UNDEFINED RECORD LENGTH                   29310003
                            00020  2899+DCBRECTO EQU   DCBBIT2 -      TRACK OVERFLOW                            29350003
                            00010  2900+DCBRECBR EQU   DCBBIT3 -      BLOCKED RECORDS                           29400003
                            00008  2901+DCBRECSB EQU   DCBBIT4 -      FOR FIXED LENGTH RECORD FORMAT - STANDARD 29450003
                                   2902+*                             BLOCKS.  FOR VARIABLE LENGTH RECORD       29500000
                                   2903+*                             FORMAT - SPANNED RECORDS                  29550000
                            00006  2904+DCBRECCC EQU   DCBBIT5+DCBBIT6 -                                        29600003
                                   2905+*                             CONTROL CHARACTER INDICATOR               29610003
                            00004  2906+DCBRECCA EQU   DCBBIT5 -      ASA CONTROL CHARACTER                     29650003
                            00002  2907+DCBRECCM EQU   DCBBIT6 -      MACHINE CONTROL CHARACTER                 29700003

                            00000  2908+DCBRECC  EQU   X'00' -        NO CONTROL CHARACTER                      29750000
                            00001  2909+DCBRECKL EQU   DCBBIT7 -      KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB  29800003
                                   2910+*                             MACRO INSTRUCTION                         29850000
000025                             2911+DCBEXLSA DS    AL3 -          ADDRESS OF USER-PROVIDED LIST OF EXITS    29900000



                                   2914+*                       FOUNDATION BEFORE OPEN                          47150000

000028                      00028  2916+         ORG   IHADCB+40                                                47250000
000028                             2917+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES    47300000

                                   2918+*                             THE DATA SET ASSOCIATED WITH THIS DCB     47350000
000030                             2919+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE                47400000
                            00080  2920+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR   47450003
                                   2921+*                             POINT.  IF ONE, LAST I/O OPERATION WAS    47500000
                                   2922+*                             WRITE.                                    47550000
                            00080  2923+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR     47600003
                                   2924+*                             OUTPUT (BDAM)                             47650000
                            00040  2925+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD   47700003

                                   2926+*                             MODE                                      47750000
                            00020  2927+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE       47800003

                                   2928+*                             ROUTINE FOR CONCATENATION OF DATA SETS    47850000
                                   2929+*                             WITH UNLIKE ATTRIBUTES                    47900000
                            00010  2930+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED   47950003
                            00008  2931+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 48000003
                                   2932+*                             CONCATENATION OF UNLIKE ATTRIBUTES        48050000
                            00004  2933+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ                   48100003
                            00002  2934+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN  48150003
                                   2935+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1 48200000

COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2936+*                             ON RETURN FROM USER EXIT TO THE I/O       48250000
                                   2937+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.     48300000
                            00001  2938+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF    48350003

                                   2939+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION   48400000
000031                             2940+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR  48450000
                                   2941+*                             CONDITIONS AND IN DETERMINING CORRECTIVE  48500000

                                   2942+*                             PROCEDURES                                48550000
                            000C0  2943+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -                                        48600003
                                   2944+*                             ERROR CORRECTION INDICATOR                48610003
                            00000  2945+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE                    48650000
                            00040  2946+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN       48700003
                                   2947+*                             PROCESS                                   48750000
                            000C0  2948+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -                                        48800003

                                   2949+*                             PERMANENT ERROR CORRECTION                48810003
                            00030  2950+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -                                        48850003
                                   2951+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     48860003
                            00020  2952+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH     48900003
                                   2953+*                             SENSED                                    48950000

                            00010  2954+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH    49000003
                                   2955+*                             SENSED                                    49050000
                            0000C  2956+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -                                        49100003
                                   2957+*                             IOS ERROR ROUTINE USE INDICATOR           49110003

                            00000  2958+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE   49150000
                            00004  2959+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49200003
                            00004  2960+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE  49250003
                                   2961+*                             (BTAM)                                    49300000
                            00008  2962+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49350003
                            0000C  2963+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -                                        49400003

                                   2964+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE    49410003
000032                             2965+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE               49450000
000032                             2966+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR                     49500000
                            00080  2967+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---        49550003
                                   2968+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,     49600000

                                   2969+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)    49650000
                            00040  2970+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)    49700003
                            00040  2971+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)                   49750003
                            00040  2972+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---          49800003
                                   2973+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 49850000

                                   2974+*                             RESERVED (BTAM)                           49900000
                            00020  2975+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)            49950003
                            00020  2976+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)      50000003
                            00020  2977+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---           50050003
                                   2978+*                             ALWAYS ZERO (QSAM, QISAM)                 50100000

                            00010  2979+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)                   50150003
                            00010  2980+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)            50200003
                            00010  2981+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---          50250003
                                   2982+*                             ALWAYS ZERO (BISAM) ---                   50300000
                                   2983+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)         50350000

                            00008  2984+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)          50400003
                            00008  2985+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---          50450003
                                   2986+*                             ALWAYS ZERO (BISAM) ---                   50500000
                                   2987+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   50550000
                            00004  2988+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK   50600003
                                   2989+*                             COUNT (EXCP)                              50650000

                            00004  2990+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   50700003
COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00004  2991+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)             50750003

                            00004  2992+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---       50800003
                                   2993+*                             ALWAYS ZERO (QISAM) ---                   50850000
                                   2994+*                             RESERVED (QTAM, BTAM)                     50900000
                            00002  2995+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)    50950003
                            00002  2996+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        51000003

                            00002  2997+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)                             51050003
                            00002  2998+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---                 51100003
                                   2999+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)        51150000
                            00001  3000+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)                   51200003
                            00001  3001+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,    51250003
                                   3002+*                             BPAM, BISAM, QISAM, QTAM, BTAM)           51300000
000033                             3003+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR                    51350000

                            00080  3004+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM, 51400003
                                   3005+*                             BPAM, BISAM, BDAM) ---                    51450000
                                   3006+*                             RESERVED (EXCP, QTAM, BTAM)               51500000

                            00040  3007+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)    51550003
                            00040  3008+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---          51600003
                                   3009+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 51650000
                                   3010+*                             RESERVED (EXCP, BTAM)                     51700000
                            00020  3011+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)     51750003

                            00020  3012+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---            51800003
                                   3013+*                             ALWAYS ZERO (QSAM, QISAM) ---             51850000
                                   3014+*                             RESERVED (EXCP)                           51900000
                            00010  3015+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)            51950003
                            00010  3016+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---         52000003
                                   3017+*                             ALWAYS ZERO (BISAM) ---                   52050000
                                   3018+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   52100000
                            00008  3019+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)         52150003

                            00008  3020+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)     52200003
                                   3021+*                             (BSAM)                                    52250000

                            00008  3022+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)          52300003
                            00008  3023+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---         52350003
                                   3024+*                             ALWAYS ZERO (BISAM) ---                   52400000
                                   3025+*                             RESERVED (BPAM, QTAM, BTAM)               52450000
                            00004  3026+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)         52500003

                            00004  3027+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   52550003
                            00004  3028+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)                    52600003
                            00004  3029+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---        52650003
                                   3030+*                             ALWAYS ZERO (BISAM) ---                   52700000
                                   3031+*                             RESERVED (BDAM, QTAM, BTAM)               52750000
                            00002  3032+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)        52800003
                            00002  3033+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        52850003
                            00002  3034+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)                       52900003
                            00002  3035+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---              52950003

                                   3036+*                             ALWAYS ZERO (BISAM) ---                   53000000

                                   3037+*                             RESERVED (BPAM, QTAM, BTAM)               53050000
                            00001  3038+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)          53100003
                            00001  3039+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT     53150003
                                   3040+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)   53200000
                            00001  3041+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)                          53250003

                            00001  3042+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---                    53300003
                                   3043+*                             ALWAYS ZERO (BISAM) ---                   53350000
                                   3044+*                             RESERVED (BPAM, QTAM, BTAM)               53400000

COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3046+*                       FOUNDATION AFTER OPEN                           53500000

000034                      00028  3048+         ORG   IHADCB+40                                                53600000
000028                             3049+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD 53650000

                                   3050+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED 53700000

                                   3051+*                             WITH THIS DCB                             53750000
00002A                             3052+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN               53800000
00002A                             3053+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF                    53850000
00002B                             3054+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF                   53900000

00002C                             3055+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB                 53950000
00002C                             3056+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN               54000000
                            000C0  3057+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -                                        54050003
                                   3058+*                             ERROR CORRECTION INDICATOR                54060003
                            00030  3059+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -                                        54100003
                                   3060+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     54110003
                            0000C  3061+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -                                        54150003
                                   3062+*                             IOS ERROR ROUTINE USE INDICATOR           54160003
00002D                             3063+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB                 54200000

000030                      00030  3065+         ORG   IHADCB+48                                                54350000

000030                             3066+DCBREAD  DS    0A -           ADDRESS OF READ MODULE                    54400000
000030                             3067+DCBWRITE DS    A -            ADDRESS OF WRITE MODULE                   54450000

000034                      00030  3069+         ORG   IHADCB+48                                                54600000

000030                             3070+DCBGET   DS    0A -           ADDRESS OF GET MODULE                     54650000
000030                             3071+DCBPUT   DS    A -            ADDRESS OF PUT MODULE                     54700000

                                   3073+*                       QSAM-BSAM-BPAM COMMON INTERFACE                 77750000

000034                      00034  3075+         ORG   IHADCB+52                                                77850000
000034                             3076+DCBGERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  77950000
000034                             3077+DCBPERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  78000000
000034                             3078+DCBCHECK DS    0A -           ADDRESS OF CHECK MODULE                   78050000
000034                             3079+DCBOPTCD DS    BL1 -          OPTION CODES                              78150000
                            00080  3080+DCBOPTW  EQU   DCBBIT0 -      WRITE VALIDITY CHECK (DASD)               78500003
                                   3081+*                             (BSAM, BPAM, QSAM, ISAM, BDAM)            78550000

                            00040  3082+DCBOPTU  EQU   DCBBIT1 -      ALLOW DATA CHECK CAUSED BY INVALID        78600003
                                   3083+*                             CHARACTER (1403 PRINTER WITH UCS FEATURE) 78650000
                                   3084+*                             (BSAM, BPAM, QSAM)                        78700000

                            00020  3085+DCBOPTC  EQU   DCBBIT2 -      CHAINED SCHEDULING USING PCI              78750003
                                   3086+*                             (BSAM, BPAM, QSAM)                        78800000
                            00010  3087+DCBOPTH  EQU   DCBBIT3 -      1287/1288 OPTICAL READER - HOPPER EMPTY   78850003
                                   3088+*                             EXIT (BSAM, BPAM)                         78900000
                            00010  3089+DCBOPTO  EQU   DCBBIT3 -      1285/1287 OPTICAL READER - ON-LINE        78950003
                                   3090+*                             CORRECTION (QSAM)                         79000000
                            00010  3091+DCBBCKPT EQU   DCBBIT3 -      CHANNEL-END APPENDAGE IS TO BYPASS DOS    79050003
                                   3092+*                             EMBEDDED CHECKPOINT RECORDS ON TAPE       79100000
                                   3093+*                             (BSAM, QSAM)                       ICB226 79150000
                            00008  3094+DCBOPTQ  EQU   DCBBIT4 -      TRANSLATION TO OR FROM ASCII              79200003
                                   3095+*                             (BSAM, BPAM, QSAM)                        79250000
                            00004  3096+DCBOPTZ  EQU   DCBBIT5 -      MAGNETIC TAPE DEVICES - USE REDUCED ERROR 79300003

                                   3097+*                             RECOVERY PROCEDURE (EXCP, BSAM, BPAM,     79350000

                                   3098+*                             QSAM)                                     79400000
                            00004  3099+DCBSRCHD EQU   DCBBIT5 -      USE SEARCH DIRECT, INSTEAD OF SEARCH      79450003

                                   3100+*                             PREVIOUS, ON RECORD POSITION SENSING      79500000
COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3101+*                             DEVICE  (EXCP, BSAM, BPAM, QSAM)   ICB217 79550000
                            00002  3102+DCBOPTT  EQU   DCBBIT6 -      USER TOTALING (BSAM, QSAM)                79600003
000035                             3103+DCBGERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  79700000
000035                             3104+DCBPERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  79750000
000035                             3105+DCBCHCKA DS    AL3 -          ADDRESS OF CHECK MODULE                   79800000
000038                             3106+DCBSYNAD DS    0A -           ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80050000
000038                             3107+DCBIOBL  DS    FL1 -          IOB LENGTH IN DOUBLE WORDS                80100000
000039                             3108+DCBSYNA  DS    AL3 -          ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80150000
00003C                             3109+DCBFLAG1 DS    0BL1           TCAM APPLICATION PROGRAM FLAGS ICBI DCB-3 80460000

                                   3110+*                             (BSAM, BPAM, QSAM)                        80470000
00003C                             3111+DCBCIND1 DS    BL1 -          CONDITION INDICATORS                      80500000

                            00080  3112+DCBCNTOV EQU   DCBBIT0 -      DIRECT ACCESS - TRACK OVERFLOW IN USE     80550003

                                   3113+*                             (BSAM, BPAM, QSAM)                        80600000
                                   3114+*                             2540 CARD PUNCH - DATA SET WAS OPENED BUT 80650000
                                   3115+*                             NO DATA WAS WRITTEN (QSAM)                80700000
                            00080  3116+DCBSTQCK EQU   DCBBIT0 -      STOP EQUAL QUICK WAS SPECIFIED FOR        80710003
                                   3117+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80720000
                            00040  3118+DCBSTFLS EQU   DCBBIT1 -      STOP EQUAL FLUSH WAS SPECIFIED FOR        80730003
                                   3119+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80740000
                            00040  3120+DCBCNSRD EQU   DCBBIT1 -      SEARCH DIRECT (BSAM, BPAM, QSAM)          80750003
                            00020  3121+DCBCNEVB EQU   DCBBIT2 -      END OF VOLUME - USED BY EOB ROUTINES      80800003
                                   3122+*                             (BSAM, BPAM, QSAM)                        80850000
                            00010  3123+DCBCNEVA EQU   DCBBIT3 -      END OF VOLUME - USED BY CHANNEL-END       80900003
                                   3124+*                             APPENDAGE ROUTINES (BSAM, BPAM, QSAM)     80950000

                            00004  3125+DCBCNBRM EQU   DCBBIT5 -      BLOCKED RECORD BIT MODIFIED (BSAM,BPAM,   81000003
                                   3126+*                             QSAM)                          ICBI DCB-2 81050000
                            00001  3127+DCBCNEXB EQU   DCBBIT7 -      EXCHANGE BUFFERING SUPPORTED (QSAM)       81100003

00003D                             3128+DCBCIND2 DS    BL1 -          CONDITION INDICATORS                      81150000
                            00080  3129+DCBCNSTO EQU   DCBBIT0 -      PARTITIONED DATA SET - STOW HAS BEEN      81200003
                                   3130+*                             PERFORMED (BSAM, BPAM, QSAM)              81250000
                                   3131+*                             SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM) 81300000
                            00040  3132+DCBCNWR0 EQU   DCBBIT1 -      DIRECT ORGANIZATION DATA SET - LAST I/O   81350003
                                   3133+*                             WAS A WRITE RECORD ZERO                   81400000
                                   3134+*                             (BSAM, BPAM, QSAM)                        81450000
                                   3135+*                             SEQUENTIAL DATA SET - UPDATE EOF IS       81500000
                                   3136+*                             INDICATED (BSAM, BPAM)                    81550000
                            00020  3137+DCBCNCLO EQU   DCBBIT2 -      CLOSE IN PROCESS (QSAM)                   81600003
                            00010  3138+DCBCNIOE EQU   DCBBIT3 -      PERMANENT I/O ERROR (BSAM, BPAM, QSAM)    81650003
                            00008  3139+DCBCNBFP EQU   DCBBIT4 -      OPEN ACQUIRED BUFFER POOL                 81700003

                                   3140+*                             (BSAM, BPAM, QSAM)                        81750000
                            00004  3141+DCBCNCHS EQU   DCBBIT5 -      CHAINED SCHEDULING BEING SUPPORTED        81800003
                                   3142+*                             (BSAM, BPAM, QSAM)                        81850000

                            00002  3143+DCBCNFEO EQU   DCBBIT6 -      FEOV BIT (BSAM, BPAM, QSAM)               81900003
                            00001  3144+DCBCNQSM EQU   DCBBIT7 -      ALWAYS ZERO (BSAM, BPAM)                  81950003
                                   3145+*                             THIS IS A QSAM DCB (QSAM)                 82000000
00003E                             3146+DCBBLKSI DS    H -            MAXIMUM BLOCK SIZE                        82100000
000040                             3147+DCBWCPO  DS    AL1 -          OFFSET OF WRITE CHANNEL PROGRAM FROM THE  82350000
                                   3148+*                             START OF IOB                              82400000
000041                             3149+DCBWCPL  DS    FL1 -          LENGTH OF WRITE CHANNEL PROGRAM           82450000
000042                             3150+DCBOFFSR DS    AL1 -          OFFSET OF READ CCW FROM BSAM/BPAM PREFIX  82500000
                                   3151+*                             OF IOB                                    82550000
000043                             3152+DCBOFFSW DS    AL1 -          OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX 82600000
                                   3153+*                             OF IOB                                    82650000
000044                             3154+DCBIOBA  DS    A -            FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR 82700000

                                   3155+*                             BSAM/BPAM PREFIX OF IOB.  FOR CHAINED     82750000
COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3156+*                             SCHEDULING, ADDRESS OF ICB.  FOR          82800000

                                   3157+*                             1419/1275, ADDRESS OF MAGNETIC INTERRUPT  82850000
                                   3158+*                             CONTROL BLOCK (MICB) CURRENTLY BEING      82900000
                                   3159+*                             PROCESSED BY READ ROUTINE.  FOR TSO       82950000
                                   3160+*                             TERMINAL DATA SET OPENED FOR INPUT AND    83000000
                                   3161+*                             FORMAT U, SIMULATED LOW-ORDER FOUR BYTES  83050000
                                   3162+*                             OF IOBCSW                                 83100000


000048                      00044  3164+         ORG   IHADCB+68                                         ICB354 83160000
000044                             3165+DCBCICB  DS    0A -           SAME AS DCBCICBA BELOW             ICB354 83200000
000044                             3166+         DS    X -            DCBNCP  (BSAM,BPAM)                ICB354 83250000
000045                             3167+DCBCICBA DS    AL3 -          POINTER TO JES C.I.                ICB354 83300000
                                   3168+*                             CONTROL BLOCK (CICB)               ICB354 83350000

000048                      00050  3170+         ORG   IHADCB+80                                     ICBI DCB-4 83450000

000050                             3171+DCBDIRCT DS    0H -           NUMBER OF BYTES USED IN LAST DIRECTORY    83500000
                                   3172+*                             BLOCK (RANGE 0-254)  (BSAM, BPAM)  ICB295 83550000

000050                             3173+DCBQSWS  DS    0BL1 -         FLAG BYTE                          ICB295 83600000
                            00004  3174+DCBPOPEN EQU   DCBBIT5 -      QSAM PARALLEL INPUT PROCESSING            83610003
000050                             3175+DCBUSASI DS    B -            FLAG BYTE FOR ASCII TAPES                 83650000
                            00040  3176+DCBBLBP  EQU   DCBBIT1 -      BLOCK PREFIX IS FOUR BYTE FIELD           83700003
                                   3177+*                             CONTAINING BLOCK LENGTH IN UNPACKED       83750000
                                   3178+*                             DECIMAL (SPECIFIED BY BUFFER=L).          83800000
                            00038  3179+DCBQADFS EQU   DCBBIT2+DCBBIT3+DCBBIT4                                  83850003
                                   3180+*                             USED TO PERFORM SEQUENCE CHECKING WITH    83860003

                                   3181+*                             MULTIPLE FUNCTION SUPPORT FOR 3525        83900000
                                   3182+*                             (BSAM, QSAM)                              83950000
                            00020  3183+DCBQADF1 EQU   DCBBIT2 -      FIRST BIT OF DCBQADFS                     84000003
                            00010  3184+DCBQADF2 EQU   DCBBIT3 -      SECOND BIT OF DCBQADFS                    84050003
                            00008  3185+DCBQADF3 EQU   DCBBIT4 -      THIRD BIT OF DCBQADFS                     84100003

                            00001  3186+DCBQSTRU EQU   DCBBIT7 -      TRUNC ENTRY POINT ENTERED (QSAM)          84150003
000051                             3187+DCBBUFOF DS    0FL1 -         BLOCK PREFIX LENGTH (0-99), SPECIFIED BY  84200000
                                   3188+*                             BUFOFF=N OR BUFOFF=L                      84250000

000051                             3189+DCBDIRCQ DS    FL1 -          NUMBER OF BYTES USED IN LAST DIRECTORY    84300000
                                   3190+*                             BLOCK (RANGE 0-254)  (QSAM)        ICB295 84350000

                                   3192+*                       BSAM-BPAM INTERFACE                             84500000

000052                      00048  3194+         ORG   IHADCB+72                                                84600000
000048                             3195+DCBEOBR  DS    0A -           ADDRESS OF END-OF-BLOCK MODULE FOR READ   84650000

000048                             3196+DCBNCP   DS    FL1 -          NUMBER OF CHANNEL PROGRAMS.               84750000
                                   3197+*                             NUMBER OF READ OR WRITE REQUESTS WHICH    85000000
                                   3198+*                             MAY BE ISSUED PRIOR TO A CHECK, NUMBER    85050000
                                   3199+*                             OF IOB'S GENERATED.  (99 MAXIMUM)         85100000
000049                             3200+DCBEOBRA DS    AL3 -          ADDRESS OF END-OF-BLOCK MODULE FOR READ   85150000

00004C                             3201+DCBEOBW  DS    A -            ADDRESS OF END-OF-BLOCK MODULE FOR WRITE. 85200000
                                   3202+*                             FOR BSAM CREATE BDAM PROCESSING OF        85250000
                                   3203+*                             UNBLOCKED SPANNED RECORDS WITH BKTEK=R    85300000
                                   3204+*                             SPECIFIED, ADDRESS OF SEGMENT WORK AREA   85350000

                                   3205+*                             CONTROL BLOCK                             85400000
000050                             3206+         DS    H -            DCBDIRCT - NUMBER OF BYTES USED IN LAST   85450000
                                   3207+*                             DIRECTORY BLOCK  (RANGE 0-254)     ICB295 85500000
000052                             3208+DCBLRECL DS    H -            LOGICAL RECORD LENGTH                     85600000
000054                             3209+DCBCNTRL DS    0A -           ADDRESS OF CNTRL MODULE                   85850000
000054                             3210+DCBNOTE  DS    0A -           ADDRESS OF NOTE/POINT MODULE              85900000

COMM     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000054                             3211+DCBPOINT DS    A -            ADDRESS OF NOTE/POINT MODULE              85950000

                                   3213+*                       QSAM INTERFACE                                  86100000


000058                      00048  3215+         ORG   IHADCB+72                                                86650021
000048                             3216+DCBLCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF LAST   86700000
                                   3217+*                             CCW IN LIST                               86750000
000048                             3218+DCBEOBAD DS    A -            FOR SIMPLE BUFFERING, ADDRESS OF LAST     86800000

                                   3219+*                             BYTE OF CURRENT BUFFER                    86850000
00004C                             3220+DCBCCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF        86900000
                                   3221+*                             CURRENT OR NEXT CCW                       86950000
00004C                             3222+DCBRECAD DS    0A -           ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87000000
00004C                             3223+DCBRECBT DS    BL1 -          FLAG BYTE                                 87050000

                            000F0  3224+DCBRCREL EQU   DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3  -                       87100003
                                   3225+*                             RELSE MACRO HAS BEEN ISSUED               87110003
                                   3226+*                             (QSAM WITH SIMPLE BUFFERING)              87150000
                            00080  3227+DCBRCTRU EQU   DCBBIT0 -      TRUNC MACRO HAS BEEN ISSUED (QSAM LOCATE  87200003
                                   3228+*                             MODE)                                     87250000

                            00040  3229+DCBRCFGT EQU   DCBBIT1 -      FIRST GET AFTER OPEN (QSAM LOCATE MODE)   87300003
00004D                             3230+DCBRECA  DS    AL3 -          ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87350000
000050                             3231+         DS    B -            DCBQSWS - FLAG BYTE                ICB295 87400000
000051                             3232+         DS    FL1 -          DCBDIRCQ - NUMBER OF BYTES USED IN LAST   87450000
                                   3233+*                             DIRECTORY BLOCK (RANGE 0-254)      ICB295 87500000
000052                             3234+         DS    H -            DCBLRECL - LOGICAL RECORD LENGTH          87750021

000054                             3235+         DS    0A -           DCBCNTRL - ADDRESS OF CNTRL MODULE        88000021
000054                             3236+DCBEROPT DS    BL1 -          ERROR OPTION                              88100000
                            00080  3237+DCBERACC EQU   DCBBIT0 -         ACCEPT PERMANENT ERROR                 88150003
                            00040  3238+DCBERSKP EQU   DCBBIT1 -         SKIP PERMANENT ERROR                   88200003

                            00020  3239+DCBERABE EQU   DCBBIT2 -         ABNORMAL END OF TASK                   88250003
000055                             3240+         DS    AL3 -          DCBCNTRA - ADDRESS OF CNTRL MODULE        88500021
000058                             3241+         DS    XL2 -          RESERVED                                  88600021
00005A                             3242+DCBPRECL DS    H -            BLOCK LENGTH, MAXIMUM BLOCK LENGTH OR     88650000
                                   3243+*                             DATA LENGTH                               88700000

00005C                             3244+DCBEOB   DS    A -            ADDRESS OF END OF BLOCK MODULE            88750000



                            00000  3247+DCBDSECT EQU   IHADCB   DEFINE ALTERNATE DSECT NAME                     DB012000

000000                             3249+HASPCOMM CSECT          END OF DATA CONTROL BLOCK DSECT                 DB016000
COMM     OS DATA EXTENT BLOCK DSECT                                                                            PAGE   86



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                             3252+DEBDSECT DSECT                     DATA EXTENT BLOCK DSECT              DE010000
000000                             3253+DEBTCBAD DS    F                   ADDRESS OF TCB                       DE012000
000004                             3254+DEBDEBAD DS    F                   ADDRESS OF NEXT DEB                  DE014000
000008                             3255+DEBIRBAD DS    F                   ADDRESS OF IRB                       DE016000
00000C                             3256+         DS    F                   RESERVED                             DE018000

000010                             3257+DEBNMEXT DS    0C                  NUMBER OF EXTENTS                    DE019000
000010                             3258+DEBUSRPG DS    F                   ADDR OF 1ST IOB IN USER PURGE CHAIN  DE020000
000014                             3259+DEBPRIOR DS    0C                  PRIORITY OF THE TASK                 DE022000
000014                             3260+DEBECBAD DS    F                   ADDRESS OF PURGE ECB PARAMETER LIST  DE024000
000018                             3261+DEBPROTG DS    0C                  PROTECTION KEY OF TASK               DE026000
000018                             3262+DEBDEBID DS    0C                  DEB IDENTIFICATION (X'0F')           DE028000
000018                             3263+DEBDCBAD DS    F                   ADDRESS OF DCB                       DE030000
00001C                             3264+DEBEXSCL DS    0C                  EXTENT SCALE                         DE031000

00001C                             3265+DEBAPPAD DS    F                   ADDR OF I/O APPENDAGE VECTOR TABLE   DE032000
000020                             3266+DEBDVMOD DS    0C                  DEVICE MODIFIER / FILE MASK          DE034000

000020                             3267+DEBUCBAD DS    F                   ADDRESS OF UCB                       DE036000
000024                             3268+DEBEXTNT DS    0CL12               DATA SET EXTENT                      DE038000
000024                             3269+DEBBINUM DS    H                   BIN NUMBER                           DE040000
000026                             3270+DEBSTRCC DS    H                   CYLINDER START ADDRESS               DE042000
000028                             3271+DEBSTRHH DS    H                   READ OR WRITE TRACK START ADDRESS    DE044000

00002A                             3272+DEBENDCC DS    H                   CYLINDER END ADDRESS                 DE046000
00002C                             3273+DEBENDHH DS    H                   READ OR WRITE TRACK END ADDRESS      DE048000
00002E                             3274+DEBNUMTR DS    H                   NUMBER OF TRACKS IN THIS EXTENT      DE050000
000000                             3275+HASPCOMM CSECT                     END OF DATA EXTENT BLOCK DSECT       DE052000
COMM     OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             3277+UCBDSECT DSECT                     UNIT CONTROL BLOCK DSECT             UC008000


                                   3279+*%UCBL1 : ;                                                             IE005000

                                   3280+*/* **************************************************************** */ IE006000

                                   3281+*/*                                                                  */ IE007000
                                   3282+*/*            U N I T   C O N T R O L   B L O C K                   */ IE008000
                                   3283+*/*                                                                  */ IE009000
                                   3284+*/* **************************************************************** */ IE010000
                                   3285+*/*                                                                  */ IE011000

                                   3286+*/*  STATUS                                                          */ IE012000
                                   3287+*/*                                                                  */ IE013000
                                   3288+*/*      OS/VS2 RELEASE 1, OS/VS1 RELEASE 2, 08/14/72, LEVEL=14      */ IE014000
                                   3289+*/*                                                                  */ IE015000
                                   3290+*/*  METHOD OF ACCESS                                                */ IE016000
                                   3291+*/*                                                                  */ IE017000
                                   3292+*/*      PL/S - DCL (UCBPTR,UCBDCPTR) PTR                            */ IE018000
                                   3293+*/*      BAL  - DSECT CARD SHOULD PRECEDE MACRO CALL.  SYMBOLS IN    */ IE019000
                                   3294+*/*             COMMON SECTION AND DEVICE DEPENDENT SECTIONS ARE     */ IE020000
                                   3295+*/*             ADDRESSABLE BY A USING ON UCBOB.  ADDITIONAL USINGS  */ IE021000

                                   3296+*/*             ARE NECESSARY TO OBTAIN ADDRESSABILITY FOR EACH      */ IE022000

                                   3297+*/*             EXTENSION OR PREFIX.  THESE ARE AS FOLLOWS -         */ IE023000
                                   3298+*/*                                                                  */ IE024000
                                   3299+*/*             DIRECT ACCESS EXTENSION           UCBDA              */ IE025000
                                   3300+*/*             DIRECT ACCESS EXTENSION 2         UCBDA2             */ IE026000

                                   3301+*/*             PREFIX TO MAGNETIC TAPE EXTENSION UCBMTPRF           */ IE027000
                                   3302+*/*             MAGNETIC TAPE EXTENSION           UCBMT              */ IE028000
                                   3303+*/*             TAPE CARTRIDGE READER EXTENSION   UCBTCR             */ IE029000
                                   3304+*/*             OPTICAL READER EXTENSION          UCBOR              */ IE030000
                                   3305+*/*             UNIT RECORD WITH UCS EXTENSION    UCBUCS             */ IE031000
                                   3306+*/*             3211 SENSE INFORMATION EXTENSION  UCBSNINF           */ IE032000
                                   3307+*/*             M65 MULTIPROCESSING PREFIX        UCBM65MP           */ IE033000
                                   3308+*/*                                                                  */ IE034000
                                   3309+*/*             WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH  */ IE035000
                                   3310+*/*             DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER   */ IE036000
                                   3311+*/*             IN THE DEFN COLUMN IN THE CORSS REFERENCE LISTING.   */ IE037000

                                   3312+*/*             FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE          */ IE038000
                                   3313+*/*             STATEMENT NUMBERS FOR UCBDA AND UCBDA2 IS IN THE     */ IE039000
                                   3314+*/*             UCBDA DSECT.                                         */ IE040000
                                   3315+*/*                                                                  */ IE041000

                                   3316+*/*  F.E.'S                                                          */ IE042000
                                   3317+*/*                                                                  */ IE043000
                                   3318+*/*      MICROFICHE LISTING - IEFUCBOB                               */ IE044000
                                   3319+*/*                                                                  */ IE045000
                                   3320+*/*  DEVELOPERS                                                      */ IE046000
                                   3321+*/*                                                                  */ IE047000
                                   3322+*/*      BAL LISTING  - SPECIFY LIST=YES ON MACRO CALL               */ IE048000
                                   3323+*/*      PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE        */ IE049000
                                   3324+*/*                                                                  */ IE050000
                                   3325+*/*      FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS     */ IE051000
                                   3326+*/*      YOUR MODULE CREATES THE CSECT.                              */ IE052000
                                   3327+*/*                                                                  */ IE053000

                                   3328+*/*  FUNCTION                                                        */ IE054000
                                   3329+*/*                                                                  */ IE055000
                                   3330+*/*      A UNIT CONTROL BLOCK                                        */ IE056000

COMM     OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3331+*/*      INCORPORATING A SYSTEM RESOURCE TABLE                       */ IE057000
                                   3332+*/*      RECORDS THE STATUS OF                                       */ IE058000
                                   3333+*/*        A PHYSICAL INPUT OUTPUT DEVICE ADDRESS                    */ IE059000
                                   3334+*/*      IS CREATED AND INITIALIZED DURING SYSTEM GENERATION         */ IE060000
                                   3335+*/*      RESIDES IN THE NUCLEUS BELOW 32 K                           */ IE061000
                                   3336+*/*      POINTS TO A DEVICE TYPE DEPENDENT EXTENSION                 */ IE062000
                                   3337+*/*        RESIDING HIGHER IN THE NUCLEUS                            */ IE063000
                                   3338+*/*      IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY            */ IE064000
                                   3339+*/*        A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS     */ IE065000
                                   3340+*/*      MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES               */ IE066000

                                   3341+*/*        AND DATA EXTENT BLOCKS                                    */ IE067000

                                   3342+*/*      CONTAINS INDICES INTO TABLES FOR                            */ IE068000
                                   3343+*/*        DEVICE STATISTICS ATTENTION LOGICAL CHANNEL               */ IE069000

                                   3344+*/*      MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS    */ IE070000
                                   3345+*/*                                                                  */ IE071000
                                   3346+*/*  OUTPUT                                                          */ IE072000
                                   3347+*/*                                                                  */ IE073000
                                   3348+*/*      SYSGEN INDEPENDENT COMMON SECTION                           */ IE074000
                                   3349+*/*        INCLUDING UCBTYP WORD                                     */ IE075000
                                   3350+*/*      DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)             */ IE076000
                                   3351+*/*        DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE         */ IE077000
                                   3352+*/*        DATACELL (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)*/ IE078000
                                   3353+*/*        UNIT RECORD WITH UNIVERSAL CHARACTER SET                  */ IE079000
                                   3354+*/*        GRAPHICS                                                  */ IE080000
                                   3355+*/*        TAPE CARTRIDGE READER AND OPTICAL READER                  */ IE081000

                                   3356+*/*      CELL DESCRIPTION FOR ONE OF THE TEN CELLS                   */ IE082000

                                   3357+*/*        IN THE DATACELL DEVICE SEGMENT ABOVE                      */ IE083000
                                   3358+*/*      UCB EXTENSION (ONE OF THE FOLLOWING)                        */ IE084000

                                   3359+*/*        DIRECT ACCESS                                             */ IE085000
                                   3360+*/*        DIRECT ACCESS 2                                           */ IE086000
                                   3361+*/*        MAGNETIC TAPE AND ITS PREFIX                              */ IE087000
                                   3362+*/*        TAPE CARTRIDGE READER                                     */ IE088000
                                   3363+*/*        OPTICAL READER                                            */ IE089000
                                   3364+*/*        UNIVERSAL CHARACTER SET                                   */ IE090000
                                   3365+*/*        3211 SENSE INFORMATION                                    */ IE091000
                                   3366+*/*      M65 MULTIPROCESSING PREFIX                                  */ IE092000
                                   3367+*/*        (CONTIGUOUSLY PRECEDING COMMON SECTION)                   */ IE093000
                                   3368+*/*                                                                  */ IE094000
                                   3369+*/* **************************************************************** */ IE095000
                                   3370+*%GOTO UCBL2;   /*                                                      IE096000

                                   3371+         PUSH  PRINT                                                    IE097000
                                   3372+         PRINT OFF                                                      IE099000

                                   4108+         POP   PRINT                                                    IE836000



000000                             4110+HASPCOMM CSECT                     END UNIT CONTROL BLOCK DSECT         UC016000
COMM     HASP JOB OUTPUT ELEMENT DSECT                                                                         PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             4112+JOEDSECT DSECT                     JOB OUTPUT ELEMENT DSECT             JE230000
                                   4113+*                                                                       JE232000
                                   4114+*        JOE FIELDS - USED AS A WORK ELEMENT                            JE234000
                                   4115+*                                                                       JE236000
000000                             4116+JOENEXT  DS    H                   PTR TO NEXT WORK ELEMENT             JE238000
000002                             4117+JOEFLAG  DS    H                   FLAG BITS                            JE240000
                            00080  4118+$JOEBUSY EQU   X'80'               JOE BUSY FLAG                        JE242000
                            00040  4119+$JOECKV  EQU   X'40'               CHECKPOINT ELEMENT VALID FLAG        JE244000

000004                             4120+JOECHAR  DS    H                   PTR TO CHARACTERISTICS ELEMENT       JE246000
000006                             4121+JOECKPT  DS    H                   PTR TO CHECKPOINT ELEMENT            JE248000
000008                             4122+JOESEC   DS    X                   SECURITY LEVEL OF DATA               JE250000

000009                             4123+JOECPU   DS    X                   CPU ID OF DATA                       JE252000
00000A                             4124+JOEROUT  DS    H                   REMOTE ID OF DATA                    JE254000
                            00080  4125+$JOEIRTE EQU   X'80'               EXPLICIT ROUTING                     JE256000
00000C                             4126+JOERECCT DS    F                   LINE/CARD COUNT FOR THIS JOE         JE258000
000010                             4127+JOEJQE   DS    F                   A(HASP JOB QUEUE ELEMENT)            JE260000
000014                             4128+JOEDEST  DS    H                   DESTINATION CODE FROM PDDB           JE262000
                                   4129+*                                                                       JE264000
                                   4130+*        JOE FIELDS - USED AS A CHARACTERISTICS ELEMENT                 JE266000
                                   4131+*                                                                       JE268000
000016                      00000  4132+         ORG   JOEDSECT            RESET LOCATION TO START OF JOE       JE270000
000000                             4133+         DS    H                   POINTER TO NEXT CHAR-JOE             JE272000
000002                             4134+JOEUSE   DS    H                   # OF JOES USING THIS ELEMENT         JE274000

000004                             4135+JOEFORM  DS    F                   FORMS NUMBER                         JE276000
000008                             4136+JOEFCB   DS    F                   FCB NUMBER                           JE278000
00000C                             4137+JOEUCS   DS    F                   UCS NUMBER                           JE280000
000010                             4138+JOEWTRID DS    CL8                 SPECIAL SYSOUT WRITER ID             JE282000

000018                             4139+JOEACTPR DS    X                   # OF ACTIVE PRINTERS                 JE284000
000019                             4140+JOEACTPU DS    X                   # OF ACTIVE PUNCHES                  JE286000
00001A                             4141+JOEUNUSD DS    H                   UNUSED, PROVIDES 360 WD BNDRY   RFIT JE286005
                                   4142+*                                                                       JE288000
                                   4143+*        JOE FIELDS - USED AS A CHECKPOINT ELEMENT                      JE290000
                                   4144+*                                                                       JE292000

00001C                      00000  4145+         ORG   JOEDSECT            RESET LOCATION TO START OF JOE       JE294000
000000                             4146+JOECKFLG DS    X                   CHECKPOINT FLAGS                     JE296000
000001                             4147+JOECOPY  DS    X                   COPY NUMBER IN PROGRESS              JE298000
000002                             4148+JOEJRCB  DS    H                   DISPL INTO EJECT BUFFER              JE300000
000004                             4149+JOEPDDB  DS    H                   DISPL IN JCT OF PDDB                 JE302000
000006                             4150+JOEPPCT  DS    H                   PDDB PAGE COUNT                      JE304000
000008                             4151+JOETLNC  DS    F                   TOTAL JOE LINE COUNT                 JE306000
00000C                             4152+JOETPCT  DS    F                   TOTAL JOE PAGE COUNT                 JE308000

000010                             4153+JOEMTTR  DS    F                   LAST EJECT BUFFER TRACK ADDRESS      JE310000
000014                             4154+JOEIOTTR DS    F                   CURRENT IOT TRACK ADDRESS            JE312000

000018                      0001C  4155+JOEEND   ORG   ,                                                        JE314000
                            0001C  4156+JOESIZE  EQU   *-JOEDSECT          LENGTH OF MAX JOE                    JE316000
000000                             4157+HASPCOMM CSECT                     END OF JOE DSECT                     JE318000
COMM     HASP JOB OUTPUT TABLE DSECT                                                                           PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4159+         EXTRN $JOT                HASP JOB OUTPUT TABLE                JT076000
000000                             4160+JOTDSECT DSECT                     JOB OUTPUT TABLE DSECT               JT078000
000000                             4161+JOTJOBNO DS    H                   JOB NUMBER ACTIVE IN $OUTPUT         JT080000

000002                             4162+JOTCKPT  DS    H                   INDEX OF LAST JOE ADDED FOR JOB      JT082000
000004                             4163+JOTFREC  DS    H                   COUNT OF FREE JOES                   JT084000
000006                             4164+JOTFREL  DS    H                   MINIMUM FREE COUNT ALLOWED           JT086000
000008                             4165+JOTFREQ  DS    H                   QUEUE OF FREE JOES                   JT088000
00000A                             4166+JOTCHRQ  DS    H                   QUEUE OF CHAR-JOES                   JT090000

00000C                             4167+JOTCLSQ  DS    36H                 QUEUES OF WORK-JOES BY CLASS         JT092000
000054                             4168+JOTJOES  DS    0F                  START OF JOES                        JT094000
000054 0000000000000000            4169+         DC    (64*JOESIZE)X'00'       SPACE TAKEN BY JOES              JT096000

000758                             4170+         DS    0D                                                       JT098000
                            00758  4171+JOTSIZE  EQU   *-JOTDSECT          SIZE OF JOB OUTPUT TABLE             JT100000
000000                             4172+HASPCOMM CSECT                     END OF JOB OUTPUT TABLE DSECT        JT102000
COMM     HASP EXECUTION PROCESSOR PCE WORK AREA DSECT                                                          PAGE   91


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000058                             4175+PCEDSECT DSECT                     HASP EXECUTION PROCESSOR             XW296000
000058                      00058  4176+         ORG   PCEWORK              PCE WORK AREA DSECT                 XW298000
000058                             4177+XPCESTAT DS    B                   PCE STATUS BYTE                      XW299000
                            00080  4178+XDUPBIT  EQU   X'80'               JOB WITH DUP NAME WAITING            XW299100
                            00040  4179+XEOJMES  EQU   X'40'               END-EXECUTION MESSAGE SENT           XW299200

                            00020  4180+XPOSTBIT EQU   X'20'               XTHAW SHOULD THAW XPCEJST            XW299300
                            00010  4181+XREXREQ  EQU   X'10'               REQUEUE FOR XEQ AT END XEQ           XW299400
                            00008  4182+XSYNCREQ EQU   X'08'               SYNCHRONOUS ACTION REQUIRED          XW299500
                            00004  4183+XOCRMES  EQU   X'04'               OCR-OVERFLOW MESSAGE SENT            XW299600

                            00002  4184+XPCERSV6 EQU   X'02'               RESERVED                             XW299700
                            00001  4185+XPCERSV7 EQU   X'01'               RESERVED                             XW299800
000059                             4186+XSYNCFLG DS    B                   SYNCHRONOUS ACTION FLAGS             XW299900
                            00080  4187+XEOJBIT  EQU   X'80'               TERMINATE JOB EXECUTION              XW300000
                            00040  4188+XALLOCWT EQU   X'40'               WRITE 'AWAITING ALLOCATION'          XW300100
                            00020  4189+XGETIOT  EQU   X'20'               GET ANOTHER IOT FOR RDR/INTRP        XW300200

                            00010  4190+XIOTWREQ EQU   X'10'               IOT CHECKPOINT REQUIRED              XW300300
                            00008  4191+XOUTCDBF EQU   X'08'               GET A /*OUTPUT CARD BUFFER           XW300400
                            00004  4192+XOCRMSG  EQU   X'04'               WRITE OCR OVERFLOW MESSAGE           XW300500
                            00002  4193+XSYNRSV6 EQU   X'02'               RESERVED                             XW300600
                            00001  4194+XSYNRSV7 EQU   X'01'               RESERVED                             XW300700

00005A                             4195+XPCESTEP DS    H                   CURRENT STEP NUMBER                  XW300800
00005C                             4196+XPCEOUTC DS    F                   POINTER TO /*OUTPUT CARD BUFFER      XW300900
000060                             4197+XPCEJST  DS    F                   ADDRESS OF USER TASK CONTROL BLOCK   XW302000
000064                             4198+XPCEJOB  DS    F                   ADDRESS OF JOB QUEUE ENTRY           XW304000
000068                             4199+XPCEIOT  DS    F                   ADDRESS OF FIRST IOT                 XW306000

00006C                             4200+XPCEJOBN DS    CL8                 JOB NAME                             XW308000
000074                             4201+XPCEDCT  DS    F                   ADDRESS OF DIRECT-ACCESS DCT         XW312000
000078                             4202+XPCEDDB  DS    F                   START OF DATA DEFINITION TABLE CHAIN XW314000
                            00000  4203+XOUTTOTL EQU   0                   TOTAL OUTPUT RECORDS                 XW318000
                            00004  4204+XOUTEST  EQU   4                   ESTIMATED OUTPUT RECORDS             XW320000

                            00008  4205+XOUTXCES EQU   8                   ESTIMATED EXCESSION AMOUNT           XW322000
                            0000C  4206+XOUTTYPE EQU   12                  OUTPUT RECORD TYPE (EBCDIC)          XW324000
                            00010  4207+XOUTENT  EQU   16                  OUTPUT INFORMATION TABLE LENGTH      XW326000
00007C                             4208+XPCEPRT  DS    CL(XOUTENT)         PRINT INFORMATION TABLE              XW328000
00008C                             4209+XPCEPUN  DS    CL(XOUTENT)         PUNCH INFORMATION TABLE              XW330000

00009C                             4210+XPCEPIT  DS    F                   ADDR OF PARTITION INFORMATION TABLE  XW332000
0000A0                             4211+XSTQE    DS    3F                  EXECUTION TIMER QUEUE ELEMENT        XW334000
0000AC                             4212+XXSTIME  DS    F                   TIME ESTIMATE EXCESSION AMOUNT       XW336000
                            00058  4213+XEQPCEWS EQU   *-PCEWORK           LENGTH OF EXECUTION PCE WORK AREA    XW340000
000000                             4214+HASPCOMM CSECT                     END OF EXECUTION PCE WORK AREA DSECT XW342000
COMM     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   92



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             4216+JCTDSECT DSECT                     JOB CONTROL TABLE DSECT              JC650000
                            00000  4217+         USING JCTDSECT,JCT        ESTABLISH JCT ADDRESSABILITY         JC652000
000000                             4218+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      JC654000

000058                             4219+JCTJQE   DS    F                   OFFSET OF HASP JOB QUEUE ELEMENT     JC656000
00005C                             4220+JCTIOTTR DS    F                   TRACK ADDRESS OF FIRST IOT           JC658000
000060                             4221+JCTDSKEY DS    F                   PERIPHERAL DATA SET KEY              JC660000
000064                             4222+JCTINJCT DS    F                   TRACK ADDRESS OF INPUT JCT           JC662000
000068                             4223+         DS    X                   RESERVED                             JC664000

000069                             4224+JCTSMFLG DS    BL1                 SMF FLAGS                            JC666000
00006A                             4225+JCTPURGE DS    X                   START OF SMF PURGE RECORD            JC668000
00006B                             4226+JCTJBOPT DS    BL1                 HASP JOB OPTIONS                     JC670000
00006C                             4227+JCTJOBEB DS    CL4                 HASP ASSIGNED JOB NUMBER (EBCDIC)    JC672000
000070                             4228+JCTJNAME DS    CL8                 JOB NAME FROM JOB CARD               JC674000
000078                             4229+JCTPNAME DS    CL20                PROGRAMMER'S NAME FROM JOB CARD      JC676000
00008C                             4230+JCTMCLAS DS    C                   MSGCLASS FROM JOB CARD               JC678000

00008D                             4231+JCTJCLAS DS    C                   JOB CLASS FROM JOB CARD              JC680000
00008E                             4232+         DS    X                   RESERVED                             JC682000
00008F                             4233+JCTPRIO  DS    X                   HASP EXECUTION SELECTION PRIORITY    JC684000

000090                             4234+         DS    X                   RESERVED                             JC686000
000091                             4235+JCTOPRIO DS    X                   HASP OUTPUT SELECTION PRIORITY       JC688000
000092                             4236+JCTROUTE DS    XL2                 INPUT ROUTE CODE                     JC690000
000094                             4237+JCTINDEV DS    CL8                 HASP INPUT DEVICE NAME               JC692000
00009C                             4238+JCTACCTN DS    CL4                 JOB ACCOUNTING NUMBER FROM JOB CARD  JC694000

0000A0                             4239+JCTROOMN DS    CL4                 PROGRAMMER'S ROOM NUMBER             JC696000
0000A4                             4240+JCTETIME DS    F                   ESTIMATED EXECUTION TIME             JC698000
0000A8                             4241+JCTESTLN DS    F                   ESTIMATED OUTPUT LINES               JC700000
0000AC                             4242+JCTESTPU DS    F                   ESTIMATED PUNCHED OUTPUT             JC702000
0000B0                             4243+JCTFORMS DS    CL4                 JOB OUTPUT FORMS                     JC704000
0000B4                             4244+         DS    X                   RESERVED                             JC706000
0000B5                             4245+JCTCPYCT DS    X                   JOB PRINT COPY COUNT                 JC708000
0000B6                             4246+         DS    X                   RESERVED                             JC710000

0000B7                             4247+JCTLINCT DS    X                   LINES PER PAGE                       JC712000
0000B8                             4248+JCTPROUT DS    XL2                 JOB PRINT ROUTE CODE                 JC714000

0000BA                             4249+JCTPUOUT DS    XL2                 JOB PUNCH ROUTE CODE                 JC716000
0000BC                             4250+JCTXEQON DS    F                   TIME ON EXECUTION PROCESSOR          JC718000
0000C0                             4251+JCTXDTON DS    F                   DATE ON EXECUTION PROCESSOR          JC720000
0000C4                             4252+JCTXEQOF DS    F                   TIME OFF EXECUTION PROCESSOR         JC722000
0000C8                             4253+JCTXDTOF DS    F                   DATE OFF EXECUTION PROCESSOR         JC724000

0000CC                             4254+JCTOUTON DS    F                   TIME ON OUTPUT PROCESSOR             JC726000
0000D0                             4255+JCTODTON DS    F                   DATE ON OUTPUT PROCESSOR             JC728000
0000D4                             4256+JCTOUTOF DS    F                   TIME OFF OUTPUT PROCESSOR            JC730000
0000D8                             4257+JCTODTOF DS    F                   DATE OFF OUTPUT PROCESSOR            JC732000
0000DC                             4258+JCTCARDS DS    F                   TOTAL NUMBER OF INPUT CARDS          JC734000
0000E0                             4259+JCTLINES DS    F                   GENERATED OUTPUT LINES               JC736000
0000E4                             4260+JCTPUNCH DS    F                   GENERATED PUNCHED OUTPUT             JC738000
0000E8                             4261+         DS    F                   RESERVED                             JC740000
0000EC                             4262+JCTPRTCT DS    F                   CURRENT NUMBER OF LINES PRINTED      JC742000

0000F0                             4263+JCTPAGCT DS    F                   CURRENT NUMBER OF PAGES PRINTED      JC744000

0000F4                             4264+JCTPUNCT DS    F                   CURRENT NUMBER OF CARDS PUNCHED      JC746000
0000F8                             4265+JCTESOUT DS    F                   ESTIMATED OUTPUT (LINES+CARDS)       JC748000
0000FC                             4266+JCTXOUT  DS    F                   GENERATED OUTPUT RECORDS             JC750000
000100                             4267+         DS    F                   RESERVED                             JC752000
000104                             4268+JCTCYSAV DS    XL100               INPUT ALLOCATION BIT MAP             JC754000

000168                             4269+JCTWORK  DS    XL144               144-BYTE WORK AREA                   JC756000
0001F8                             4270+         DS    0F                                                       JC758000
COMM     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0001F8                             4271+JCTJMR   DS    XL56                JMR AREA                             JC760000
000230                      001F8  4272+         ORG   JCTJMR                                                   JC762000
0001F8                             4273+JCTJMRJN DS    CL8                 JMR JOB NAME                         JC764000
000200                             4274+JCTRDRON DS    F                   TIME ON INPUT PROCESSOR              JC766000
000204                             4275+JCTRDTON DS    F                   DATE ON INPUT PROCESSOR              JC768000
000208                             4276+JCTCPUID DS    XL4                 JMR CPU IDENTIFICATION               JC770000

00020C                             4277+JCTUSEID DS    CL8                 JMR USER IDENTIFICATION              JC772000

000214                             4278+JCTSTEP  DS    X                   CURRENT STEP NUMBER                  JC774000
000215                             4279+JCTINDC  DS    BL1                 JMR SMF OPTIONS                      JC776000
000216                             4280+         DS    XL2                 RESERVED                             JC778000
000218                             4281+JCTUCOM  DS    F                   JMR USER COMMUNICATION AREA          JC780000

00021C                             4282+JCTUJVP  DS    F                   JMR ADDRESS OF USER EXIT ROUTINE     JC782000
000220                             4283+JCTRDROF DS    F                   TIME OFF INPUT PROCESSOR             JC784000
000224                             4284+JCTRDTOF DS    F                   DATE OFF INPUT PROCESSOR             JC786000
000228                             4285+JCTJOBIN DS    F                   JMR JOB SYSIN COUNT                  JC788000
00022C                             4286+JCTRDR   DS    XL2                 READER DEVICE TYPE AND CLASS         JC790000
00022E                             4287+JCTJMOPT DS    BL1                 JMR SMF OPTIONS                      JC792000
00022F                             4288+         DS    X                   RESERVED                             JC794000
000230                      00230  4289+         ORG                                                            JC796000
                            00230  4290+JCTEND   EQU   *                   END OF JOB CONTROL TABLE             JC798000






                                   4292+*                             JCTSMFLG                                  JC802000



                            00080  4294+JCTSMFL0 EQU   B'10000000'         RESERVED                             JC806000
                            00040  4295+JCTSMFL1 EQU   B'01000000'         RESERVED                             JC808000

                            00020  4296+JCTSMFL2 EQU   B'00100000'         RESERVED                             JC810000
                            00010  4297+JCTSMFL3 EQU   B'00010000'         RESERVED                             JC812000
                            00008  4298+JCTSMFL4 EQU   B'00001000'         RESERVED                             JC814000
                            00004  4299+JCTSMFL5 EQU   B'00000100'         RESERVED                             JC816000
                            00002  4300+JCTSMFL6 EQU   B'00000010'         RESERVED                             JC818000
                            00001  4301+JCTSMFL7 EQU   B'00000001'         RESERVED                             JC820000





                                   4303+*                             JCTJBOPT                                  JC824000



                            00080  4305+JCTPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              JC828000
                            00040  4306+JCTSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              JC830000

                            00020  4307+JCTTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           JC832000
                            00010  4308+JCTNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    JC834000
                            00008  4309+JCTXBACH EQU   B'00001000'         EXECUTION BATCHING JOB               JC836000

                            00004  4310+JCTJBOP5 EQU   B'00000100'         RESERVED                             JC838000
                            00002  4311+JCTJBOP6 EQU   B'00000010'         RESERVED                             JC840000
                            00001  4312+JCTJBOP7 EQU   B'00000001'         RESERVED                             JC842000
COMM     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   94


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   4315+*                             JCTJMOPT                                  JC848000



                            00020  4317+JCTJMRUX EQU   B'00100000'         IF ON, TAKE USER EXITS FOR SMF       JC852000






                                   4319+*                                                                       JC856000
                                   4320+*        IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT      JC858000
                                   4321+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  JC860000

                                   4322+*        THE JCT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    JC862000
                                   4323+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    JC864000
                                   4324+*                                                                       JC866000
                            005D0  4325+$JCTTEST EQU   1960-JCTEND+JCTJQE                                       JC868000
000230 05D0                        4326+         DC    Y($JCTTEST)         TEST INSTRUCTION                     JC870000
000000                             4327+HASPCOMM CSECT                     END OF JOB CONTROL TABLE DSECT       JC872000
COMM     HASP PRINT/PUNCH PROCESSOR PCE WORK AREA DSECT                                                        PAGE   95


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






0000B0                             4330+PCEDSECT DSECT                     HASP PRINT/PUNCH PROCESSOR           PW544000
0000B0                      00058  4331+         ORG   PCEWORK              PCE WORK AREA DSECT                 PW546000

000058                             4332+PPFLAG   DS    0C                  PRINT/PUNCH SYNCHRONIZATION FLAGS    PW548000

000058                             4333+PDCT     DS    F                   ADDRESS OF PRINT/PUNCH/REMOTE DCT    PW550000
00005C                             4334+PDCTFLAG DS    0C                  PRINT/PUNCH/REMOTE DCT FLAGS         PW552000

00005C                             4335+PDADCT   DS    F                   ADDRESS OF DIRECT-ACCESS DCT         PW554000
000060                             4336+PJOB     DS    F                   ADDRESS OF JOB QUEUE ENTRY           PW556000
000064                             4337+PRCHKPTE DS    F                   ADDRESS OF CHECKPOINT ELEMENT        PW558000
000068                             4338+PUERRPT  DS    F                   ADDRESS OF PUNCH ERROR CCW           PW560000
00006C                             4339+PTIMEON  DS    2F                  PRINT/PUNCH SIGN-ON TIME/DATE        PW562000
000074                             4340+PBUFSAVE DS    F                   ADDRESS OF NEXT PRINT/PUNCH BUFFER   PW564000
000078                             4341+PCCWPT   DS    F                   ADDRESS OF LAST CCW                  PW566000
00007C                             4342+PCCWEND  DS    F                   ADDRESS OF LAST POSSIBLE CCW         PW568000
000080                             4343+PMESSAGE DS    CL40                MESSAGE WORK AREA                    PW570000
0000A8                             4344+PDDBSKIP DS    H                   COUNT OF PAGES TO SKIP               PW572000
0000AA                             4345+         DS    H                   UNUSED                               PW574000
0000AC                             4346+PPRCFLAG DS    C                   CHECKPOINT FLAGS                     PW576000

0000AD                             4347+PPRCPYCT DS    C                   COPY COUNT                           PW578000
0000AE                             4348+PCEEJRCB DS    H                   LAST EJECT RCB DISPLACEMENT          PW580000

0000B0                             4349+PDDBDISP DS    H                   CURRENT PDDB DISPLACEMENT            PW582000

0000B2                             4350+PDDBPGCT DS    H                   CURRENT PDDB PAGE COUNT              PW584000
0000B4                             4351+PPLNCDCT DS    F                   CURRENT LINE OR CARD COUNT           PW586000
0000B8                             4352+PRPAGECT DS    F                   CURRENT PAGE COUNT                   PW588000
0000BC                             4353+PCEJMTTR DS    F                   LAST EJECT BUFFER MTTR               PW590000
0000C0                             4354+PCEIOTTR DS    F                   CURRENT IOT MTTR                     PW592000
0000C4                             4355+PBUFOPT  DS    0C                  PRINT/PUNCH BUFFERING OPTION         PW594000
0000C4                             4356+PDEVTYPE DS    F                   PRINT/PUNCH DEVICE TYPE              PW596000
0000C8                             4357+PLSAVE   DS    F                   LINK REGISTER SAVE WORD              PW598000
0000CC                             4358+PLSAVE2  DS    F                   SECOND LINK REG SAVE WORD    OY04719 PW599000
0000D0                             4359+PLSAVE3  DS    F                   THIRD LINK REG SAVE WORD     OY07290 PW599500
0000D4                             4360+PRLINECT DS    F                   MAXIMUM LINES PER PAGE               PW600000
0000D8 00000000                    4361+PWKJOE   DC    F'0'                C'CLASS',AL3(WORK JOE)               PW602000

0000DC 00000000                    4362+PCHJOE   DC    F'0'                A(CHARACTERISTICS JOE)               PW604000
0000E0                             4363+PCEFORM  DS    F                   FORMS FOR CURRENT PDDB               PW606000
0000E4                             4364+PCEFCB   DS    F                   FCB   FOR CURRENT PDDB               PW608000

0000E8                             4365+PCEUCSB  DS    F                   UCSB  FOR CURRENT PDDB               PW610000
0000EC                             4366+PPJOBFRM DS    F                   JOB DEFAULT FORMS ID                 PW612000
0000F0                             4367+PPRECCT  DS    F                   MAXIMUM RECORD COUNT                 PW614000
0000F4                             4368+PPJCARDS DS    F                   NUMBER OF CARDS READ                 PW616000
0000F8                             4369+PPJLINES DS    F                   NUMBER OF SYSOUT PRINT RECORDS       PW618000
0000FC                             4370+PPJPUNCH DS    F                   NUMBER OF SYSOUT PUNCH RECORDS       PW620000
000100                             4371+PPJXEQOF DS    F                   TIME OFF EXECUTION                   PW622000
000104                             4372+PPJXEQON DS    F                   TIME ON EXECUTION                    PW624000
000108                             4373+PPJDSKEY DS    F                   DATA SET BUFFER VALIDITY KEY         PW626000
00010C                             4374+PPJJOBEB DS    CL(L'JCTJOBEB)      JOB NUMBER                           PW628000
000110                             4375+PPJROOMN DS    CL(L'JCTROOMN)      ROOM NUMBER                          PW630000
000114                             4376+PPJJNAME DS    CL(L'JCTJNAME)      JOB NAME                             PW632000

00011C                             4377+PPJPNAME DS    CL(L'JCTPNAME)      PROGRAMMER NAME                      PW634000
000130                             4378+PRINDEX  DS    X                   3211 INDEX VALUE                     PW636000
COMM     HASP PRINT/PUNCH PROCESSOR PCE WORK AREA DSECT                                                        PAGE   96


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000131                             4379+PPMSGCLS DS    X                   JOB MESSAGE CLASS                    PW638000
000132                             4380+PPDSCPY  DS    X                   DATA SET COPY COUNT                  PW640000
000133                             4381+PPJNDS   DS    X                   DATA SET PER JOE COUNTER             PW642000
000134                             4382+PBSPGCT  DS    H                   BSP PAGE COUNTER                     PW646000
000136                             4383+PBSPTBL  DS    CL(4*6)             BSP TABLE                            PW648000
                            000F6  4384+PRRPCEWS EQU   *-PCEWORK           LENGTH OF REMOTE PRINT PCE WORK AREA PW652000

                            000F6  4385+PURPCEWS EQU   *-PCEWORK           LENGTH OF REMOTE PUNCH PCE WORK AREA PW654000
000150                             4386+PCCWCHN  DS    (30+1)D                   PRINT CCW CHAIN                PW656000
                            001F0  4387+PRTPCEWS EQU   *-PCEWORK           LENGTH OF LOCAL PRINT PCE WORK AREA  PW658000
000248                      00150  4388+         ORG   PCCWCHN                                                  PW660000
000150                             4389+         DS    (30+2)D                   PUNCH CCW CHAIN                PW662000
                            001F8  4390+PUNPCEWS EQU   *-PCEWORK           LENGTH OF LOCAL PUNCH PCE WORK AREA  PW664000
000000                             4391+HASPCOMM CSECT                     END OF PRINT/PUNCH WORK AREA DSECT   PW666000
COMM     HASP INPUT PROCESSOR PCE WORK AREA DSECT                                                              PAGE   97



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000250                             4393+PCEDSECT DSECT                     HASP INPUT PROCESSOR                 RW574000

000250                      00058  4394+         ORG   PCEWORK              PCE WORK AREA DSECT                 RW576000
000058                             4395+RCARDID  DS    0C                  CARD IDENTIFICATION BYTE             RW578000
000058                             4396+RDRDCT   DS    F                   ADDRESS OF INPUT DCT                 RW580000
00005C                             4397+RDRSW    DS    0C                  READER SWITCHES                      RW582000
00005C                             4398+RDADCT   DS    F                   ADDRESS OF DIRECT-ACCESS DCT         RW584000
000060                             4399+RBIEND   DS    F                   ADDRESS OF LAST CARD IN INPUT BUFFER RW586000
000064                             4400+RBONEXT  DS    F                   ADDR OF NEXT CARD IN OUTPUT BUFFER   RW588000
000068                             4401+RBOEND   DS    F                   ADDRESS OF END OF OUTPUT BUFFER      RW590000

00006C                             4402+RLSAVE1  DS    F                   LINK REGISTER SAVE WORD 1            RW592000
000070                             4403+RLSAVE2  DS    F                   LINK REGISTER SAVE WORD 2            RW594000
000074                             4404+RLSAVE3  DS    F                   LINK REGISTER SAVE WORD 3            RW596000
000078                             4405+RSAVE1   DS    F                   GENERAL PURPOSE SAVE WORD 1          RW598000
00007C                             4406+RSAVE2   DS    F                   GENERAL PURPOSE SAVE WORD 2          RW600000

000080                             4407+RJCLTRAK DS    F                   TRACK ADDRESS OF NEXT JCL BLOCK      RW602000
000084                             4408+RMESSAGE DS    CL52                READER MESSAGE AREA                  RW604000
0000B8                             4409+RJOB     DS    F                   ADDRESS OF JOB QUEUE ENTRY           RW606000

0000BC                             4410+RPRIORTY DS    C                   CHARACTER FROM /*PRIORITY CARD       RW628000
0000BD                             4411+RMSGCLAS DS    C                   MSGCLASS FROM JOB CARD               RW630000
0000BE                             4412+RDRDLM   DS    CL2                 INPUT DATA SET DELIMITER             RW632000
                            00068  4413+RDRPCEWS EQU   *-PCEWORK           LENGTH OF NORMAL INPUT PCE WORK AREA RW676000
0000C0                             4414+RTPCARD  DS    CL80                RJE INPUT CARD IMAGE                 RW678000
                            000B8  4415+RJEPCEWS EQU   *-PCEWORK           LENGTH OF RJE INPUT PCE WORK AREA    RW680000
000000                             4416+HASPCOMM CSECT                     END OF INPUT PCE WORK AREA DSECT     RW682000

COMM     HASP SMF BUFFER DSECT                                                                                 PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             4419+SMFDSECT DSECT                     HASP SMF BUFFER DSECT                SM561000

000000                             4420+SMFCHAIN DS    F                   SMF BUFFER CHAIN TO NEXT BUFFER      SM562000
000004                             4421+SMFTYPE  DS    C                   TYPE OF BUFFER  X'FF' = JMR BUFFER   SM563000
000005                             4422+SMFPARM  DS    3C                  RESERVED                             SM564000
000008                             4423+JMRCHAIN DS    0CL4                POINTER TO PURGE RECORD BUFFER       SM565000

000008                             4424+SMFRDW   DS    CL4                 SMF RECORD DESCRIPTOR WORD           SM566000


                                   4426+*  BEGINNING OF JMR OR HASP SMF RECORD                                  SM568000
00000C                             4427+SMFJMR   DS    0CL56               JMR DATA AREA                        SM569000

00000C 00                          4429+SMFHDFLG DC    BL1'0'              HEADER FLAG BYTE                     SM571000

00000D 00                          4430+SMFHDRTY DC    BL1'0'              RECORD TYPE                          SM572000
00000E 00000000                    4431+SMFHDTME DC    BL4'0'              TOD, USING FORMAT FROM TIME MACRO    SM573000
000012 0000000C                    4432+SMFHDDTE DC    PL4'0000'           DATE IN PACKD DECIMAL FORM  00YYDDDF SM574000
000016 4040                        4433+SMFHDSID DC    CL2'  '             SYSTEM IDENTIFICATION                SM575000
000018 4040                        4434+SMFHDMOD DC    CL2'  '             SYSTEM MODEL IDENTIFIER              SM576000



00001A                             4436+SMFRSTRT DS    0C                  DEFINE START OF RECORD AFTER HEADER  SM578000

                                   4438+* BEGINNING OF HASP TYPE 6 OUTPUT PROCESSOR RECORD AFTER STD. HEADER    SM580000


00001A 4040404040404040            4440+SMF6JBN  DC    CL8' '              JOB NAME FROM JMR                    SM582000
000022 00000000                    4441+SMF6RST  DC    BL4'0'              READER START TIME                    SM583000
000026 0000000C                    4442+SMF6RSD  DC    PL4'0000'           READER START DATE                    SM584000
00002A F040404040404040            4443+SMF6UIF  DC    CL8'0'              USER IDENTIFICATION FIELD            SM585000
000032 40                          4444+SMF6OWC  DC    CL1' '              OUTPUT WRITER CLASS                  SM586000

000033 00000000                    4445+SMF6WST  DC    BL4'0'              WRITER START TIME                    SM587000
000037 0000000C                    4446+SMF6WSD  DC    PL4'0000'           WRITER START DATE                    SM588000
00003B 00000000                    4447+SMF6NLR  DC    BL4'0'              # OF LOGICAL RECORDS FOR WRITER      SM589000
00003F 00                          4448+SMF6IOE  DC    BL1'0'              I/O ERROR INDICATOR                  SM590000
000040 00                          4449+SMF6NDS  DC    BL1'0'              # OF DATA SETS PROCESSED BY WTR      SM591000

000041 40404040                    4450+SMF6FMN  DC    CL4' '              FORM NUMBER                          SM592000
000045 00000000000000              4451+SMF6RV1  DC    BL7'0'              RESERVED                             SM593000
00004C 40404040                    4452+SMF6JNM  DC    CL4' '              HASP ASSIGNED JOB NUMBER             SM594000
000050 4040404040404040            4453+SMF6OUT  DC    CL8' '              HASP LOGICAL OUTPUT DEVICE NAME      SM595000
000058 40404040                    4454+SMF6FCB  DC    CL4' '              FCB ID                               SM596000
00005C 40404040                    4455+SMF6UCS  DC    CL4' '              UCS ID                               SM597000

000060 00000000                    4456+SMF6PGE  DC    BL4'0'              PAGE COUNT                           SM598000
000064 0000                        4457+SMF6RTE  DC    BL2'0'              OUTPUT ROUTE CODE                    SM599000
000066                             4458+SMF6END  DS    0C                  END OF TYPE 6 RECORD                 SM600000
COMM     HASP SMF BUFFER DSECT                                                                                 PAGE   99



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4460+* BEGINNING OF HASP TYPE 26 PURGE RECORD AFTER STANDARD HEADER          SM602000

000066                      0001A  4462+         ORG   SMFRSTRT                                                 SM604000
00001A 4040404040404040            4463+SMF26JBN DC    CL8' '              JOB NAME FROM JMR                    SM605000

000022 00000000                    4464+SMF26RST DC    BL4'0'              READER START TIME                    SM606000
000026 0000000C                    4465+SMF26RSD DC    PL4'0000'           READER START DATE                    SM607000
00002A F040404040404040            4466+SMF26UIF DC    CL8'0'              USER IDENTIFICATION FIELD            SM608000
000032 00000000                    4467+SMF26RSV DC    BL4'0'              RESERVED                             SM609000
000036 0000                        4468+SMF26SBS DC    BL2'0'              SUBSYSTEM ID - HASP =X'0002'         SM610000
000038 0000                        4469+SMF26IND DC    BL2'0'              SECTION INDICATOR =X'E000'           SM611000
00003A 0000                        4470+SMF26LN1 DC    BL2'0'              DESCRIPTOR SECTION LENGTH            SM612000

00003C 000000                      4471+SMF26RV1 DC    BL3'0'              RESERVED                             SM613000
00003F 00                          4472+SMF26INF DC    BL1'0'              JOB INFORMATION                      SM614000
000040 40404040                    4473+SMF26JNM DC    CL4' '              HASP ASSIGNED JOB NUMBER             SM615000

000044 4040404040404040            4474+SMF26RV0 DC    CL8' '              JOB NAME FROM JOB CARD               SM616000
00004C 4040404040404040            4475+SMF26NAM DC    CL20' '             PROGRAMMER'S NAME FROM JOB CARD      SM617000
000060 40                          4476+SMF26MSG DC    CL1' '              MSGCLASS FROM JOB CARD               SM618000
000061 40                          4477+SMF26CLS DC    CL1' '              JOB CLASS FROM JOB CARD              SM619000
000062 0000                        4478+SMF26XPR DC    H'0'                HASP EXECUTION SELECTION PRIORITY    SM620000

000064 0000                        4479+SMF26OPR DC    H'0'                HASP OUTPUT SELECTION PRIORITY       SM621000
000066 0000                        4480+SMF26LOC DC    H'0'                INPUT ROUTE CODE                     SM622000
000068 4040404040404040            4481+SMF26DEV DC    CL8' '              HASP LOGICAL INPUT DEVICE NAME       SM623000
000070 40404040                    4482+SMF26ACT DC    CL4' '              PROGRAMMER'S ACCOUNTING NUMBER       SM624000
000074 40404040                    4483+SMF26ROM DC    CL4' '              PROGRAMMER'S ROOM NUMBER             SM625000
000078 00000000                    4484+SMF26XTM DC    BL4'0'              ESTIMATED EXECUTION TIME             SM626000
00007C 00000000                    4485+SMF26ELN DC    BL4'0'              ESTIMATED OUTPUT LINES               SM627000
000080 00000000                    4486+SMF26EPU DC    BL4'0'              ESTIMATED PUNCHED OUTPUT             SM628000

000084 40404040                    4487+SMF26FRM DC    CL4' '              DEFAULT OUTPUT FORM NUMBER           SM629000
000088 0000                        4488+SMF26CYP DC    BL2'0'              PRINT COPY COUNT                     SM630000

00008A 0000                        4489+SMF26LIN DC    BL2'0'              LINES PER PAGE                       SM631000
00008C 0000                        4490+SMF26PRR DC    BL2'0'              PRINT ROUTE CODE                     SM632000
00008E 0000                        4491+SMF26PUR DC    BL2'0'              PUNCH ROUTE CODE                     SM633000
000090 0000                        4492+SMF26LN2 DC    BL2'0'              EVENTS SECTION LENGTH                SM634000
000092 0000                        4493+SMF26RV2 DC    BL2'0'              RESERVED                             SM635000

000094 00000000                    4494+SMF26RPT DC    BL4'0'              READER STOP TIME                     SM636000
000098 0000000C                    4495+SMF26RPD DC    PL4'0000'           READER STOP DATE                     SM637000
00009C 0000000000000000            4496+SMF26RV3 DC    BL16'0'             RESERVED                             SM638000
0000AC 00000000                    4497+SMF26XST DC    BL4'0'              EXECUTION START TIME                 SM639000
0000B0 0000000C                    4498+SMF26XSD DC    PL4'0000'           EXECUTION START DATE                 SM640000
0000B4 00000000                    4499+SMF26XPT DC    BL4'0'              EXECUTION STOP TIME                  SM641000
0000B8 0000000C                    4500+SMF26XPD DC    PL4'0000'           EXECUTION STOP DATE                  SM642000
0000BC 00000000                    4501+SMF26OST DC    BL4'0'              OUTPUT PROCESSOR START TIME          SM643000
0000C0 0000000C                    4502+SMF26OSD DC    PL4'0000'           OUTPUT PROCESSOR START DATE          SM644000

0000C4 00000000                    4503+SMF26OPT DC    BL4'0'              OUTPUT PROCESSOR STOP TIME           SM645000

0000C8 0000000C                    4504+SMF26OPD DC    PL4'0000'           OUTPUT PROCESSOR STOP DATE           SM646000
0000CC 0000                        4505+SMF26LN3 DC    BL2'0'              ACTUALS SECTION LENGTH               SM647000
0000CE 0000                        4506+SMF26RV4 DC    BL2'0'              RESERVED                             SM648000
0000D0 00000000                    4507+SMF26ICD DC    BL4'0'              NUMBER OF INPUT CARDS (JCL AND DATA) SM649000
0000D4 00000000                    4508+SMF26XLN DC    BL4'0'              GENERATED OUTPUT LINES               SM650000

0000D8 00000000                    4509+SMF26XPU DC    BL4'0'              GENERATED PUNCHED OUTPUT             SM651000
0000DC 00000000                    4510+SMF26RV5 DC    BL4'0'              RESERVED                             SM652000
0000E0 00000000                    4511+SMF26PLN DC    BL4'0'              PRINTED LINES                        SM653000
0000E4 00000000                    4512+SMF26PPG DC    BL4'0'              PRINTED PAGES                        SM654000
0000E8 00000000                    4513+SMF26PUC DC    BL4'0'              PUNCHED CARDS                        SM655000
0000EC                             4514+SMF26END DS    0C                  END OF TYPE 26 RECORD                SM656000
COMM     HASP SMF BUFFER DSECT                                                                                 PAGE  100


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4516+* SUBSYSTEM HEADER FOR HASP SUBSYSTEM RECORD TYPES 43, 45, 47, & 48     SM658000


0000EC                      0001A  4518+         ORG   SMFRSTRT                                                 SM660000

00001A 0002                        4519+SMFSSID  DC    XL2'0002'           HASP SUBSYSTEM ID                    SM661000
00001C 0000                        4520+SMFSSRSV DC    BL2'0'              RESERVED                             SM662000
00001E 0000                        4521+SMFSSLEN DC    BL2'0'              LENGTH OF REST OF RECORD             SM663000



000020                             4523+SMFSSTRT DS    0C                  DEFINE START OF SUBSYSTEM PORTION    SM665000

                                   4525+* BEGINNING OF HASP TYPE 43 START HASP RECORD AFTER HDR & SUBSYSTEM HDR SM667000

000020 000000                      4527+SMF43RV1 DC    BL3'0'              RESERVED                             SM669000
000023 00                          4528+SMF43OPT DC    BL1'0'              START HASP OPTIONS                   SM670000
000024                             4529+SMF43END DS    0C                  END OF TYPE 43 SMF RECORD            SM671000


                                   4531+* BEGINNING OF HASP TYPE 45 STOP  HASP RECORD AFTER HDR & SUBSYSTEM HDR SM673000
000024                      00020  4532+         ORG   SMFSSTRT                                                 SM674000
000020                             4533+SMF45END DS    0C                  END OF TYPE 45 RECORD                SM675000



                                   4535+* BEGINNING OF HASP TYPE 47 START SUBSYSTEM EVENT AFTER TWO HEADERS     SM677000

000020                      00020  4537+         ORG   SMFSSTRT                                                 SM679000

000020 0000                        4538+SMF47EVT DC    BL2'0'              EVENT STARTING                       SM680000
000022 0000                        4539+SMF47LN1 DC    BL2'0'              ID SEC LGTH (INCL SMF47LN1)          SM681000
000024 4040404040404040            4540+SMF47RMT DC    CL8' '              REMOTE NAME                          SM682000
00002C 4040404040404040            4541+SMF47LIN DC    CL8' '              LINE NAME                            SM683000
000034 4040404040404040            4542+SMF47PSW DC    CL8' '              PASSWORD                             SM684000
00003C 0000                        4543+SMF47LN2 DC    BL2'0'              MSG SEC LGTH (INCL SMF47LN2)         SM685000
00003E F040404040404040            4544+SMF47MSG DC    CL36'0'             MESSAGE                              SM686000
000062                             4545+SMF47END DS    0C                  END OF TYPE 47 RECORD                SM687000


                                   4547+* BEGINNING OF HASP TYPE 48 STOP  SUBSYSTEM EVENT AFTER TWO HEADERS     SM689000


000062                      00020  4549+         ORG   SMFSSTRT                                                 SM691000
000020 0000                        4550+SMF48EVT DC    BL2'0'              EVENT STOPPING                       SM692000
000022 0000                        4551+SMF48RV1 DC    BL2'0'              RESERVED                             SM693000
000024 4040404040404040            4552+SMF48RMT DC    CL8' '              REMOTE NAME                          SM694000

00002C 4040404040404040            4553+SMF48LIN DC    CL8' '              LINE NAME                            SM695000
000034 4040404040404040            4554+SMF48PSW DC    CL8' '              PASSWORD                             SM696000
00003C                             4555+SMF48END DS    0C                  END OF TYPE 48 RECORD                SM697000





                                   4557+*                             SMFSSID                                   SM699000



                            00002  4559+SMFHSPID EQU   X'0002'             HASP SUBSYSTEM IDENTIFICATION        SM701000
COMM     HASP SMF BUFFER DSECT                                                                                 PAGE  101


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4561+*                             SMFTYPE & SMFHDRTY                        SM703000




                            000FF  4563+SMFJMRTP EQU   X'FF'               JMR BUFFER                           SM705000
                            00000  4564+SMFRECTP EQU   X'00'               SMF RECORD BUFFER                    SM706000
                            00006  4565+SMFOUTTP EQU   6                   HASP OUTPUT PROCESSOR SMF RECORD TYP SM707000

                            0001A  4566+SMFPRGTP EQU   26                  HASP PURGE RECORD TYPE               SM708000
                            0002B  4567+SMFSSSTP EQU   43                  START SUBSYSTEM RECORD TYPE          SM709000
                            0002D  4568+SMFPSSTP EQU   45                  STOP  SUBSYSTEM RECORD TYPE          SM710000
                            0002F  4569+SMFSSETP EQU   47                  START SUBSYSTEM EVENT ID             SM711000
                            00030  4570+SMFPSETP EQU   48                  STOP  SUBSYSTEM EVENT ID             SM712000





                                   4572+*                             SMF6IOE                                   SM714000



                            00004  4574+SMFDSER  EQU   X'04'               DATA SET ERROR                       SM716000
                            00001  4575+SMFCBER  EQU   X'01'               CONTROL BLOCK READ ERROR             SM717000







                                   4577+*                             SMF26INF                                  SM719000




                            00080  4579+SMFPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              SM721000
                            00040  4580+SMFSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              SM722000
                            00020  4581+SMFTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           SM723000
                            00010  4582+SMFNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    SM724000
                            00008  4583+SMFEXBCH EQU   B'00001000'         EXECUTION BATCHING JOB               SM725000
                            00004  4584+SMFJBOP5 EQU   B'00000100'         RESERVED                             SM726000
                            00002  4585+SMFJBOP6 EQU   B'00000010'         RESERVED                             SM727000
                            00001  4586+SMFOPCAN EQU   B'00000001'         JOB CANCELED BY $C OR $P             SM728000





                                   4588+*                             SMF47EVT & SMF48EVT                       SM730000




                            00001  4590+SMFRMTEV EQU   X'0001'             HASP SIGNON/SIGNOFF SUBSYSTEM EVENT  SM732000
                            00002  4591+SMFLINEV EQU   X'0002'             HASP START/STOP LINE SUBSYSTEM EVENT SM733000

000000                             4592+HASPCOMM CSECT                     END OF HASP SMF BUFFER DSECT         SM734000

                                   4593          $COMWORK                                                       C2140000
COMM     HASP COMMAND PROCESSOR PCE WORK AREA DSECT                                                            PAGE  102


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000110                             4596+PCEDSECT DSECT                     COMMAND PROCESSOR WORK AREA          C0016000
000110                      00058  4597+         ORG   PCEWORK             BEGINNING OF WORK AREA               C0018000

                                   4599+*        CONTROL ELEMENT FOR $WTO PROCESSING                            C0022000

000058                             4601+COMFLAGS DS    C                   NO JOB REQUIRED, NO CONVERSION       C0026000
000059                             4602+COMROUTE DS    C                   CURRENT CONSOLE                      C0028000

00005A                             4603+COMLNGTH DS    C                   ZERO LENGTH RECORD                   C0030000
00005B                             4604+COMCLASS DS    C                   CLASS AND PRIORITY                   C0032000


                                   4606+*        FUNCTION WORK SPACE                                            C0036000

00005C                             4608+COMEWORK DS    F                   SINGLE PRECISION WORK AREA           C0040000
000060                             4609+COMDWORK DS    D                   DOUBLE PRECISION WORK AREA           C0042000

                                   4611+*        COMMAND TEXT AREA                                              C0046000

000068                             4613+COMMAND  DS    CL120               MESSAGE AREA                         C0050000
                            00069  4614+COMVERB  EQU   COMMAND+1           LOCATION OF VERB WITHIN COMMAND      C0052000
                            0006A  4615+COMOPRND EQU   COMMAND+2           LOCATION OF FIRST OPERAND IN COMMAND C0054000

                                   4617+*        OPERAND POINTER AREA                                           C0058000


0000E0                             4619+COMPNTER DS    5F                  AREA FOR OPERAND POINTERS            C0062000
0000F4                             4620+COMNULOP DS    F                   NULL OPERAND POINTER                 C0064000
                            000F8  4621+COMWKEND EQU   *                   END OF WORK AREA                     C0066000

                            000A0  4622+COMPCEWS EQU   *-PCEWORK           LENGTH OF COMMAND PROCESSOR WORK     C0068000

                                   4624+*        COMMAND PROCESSOR DEFINITIONS -- BASE 2 SERVICES               C0072000

                            00000  4626+CORTNORM EQU   0                   OFFSET FOR NORMAL RETURN             C0076000
                            00004  4627+CORTOK   EQU   4                   OFFSET FOR RETURN WITH OK REPLY      C0078000

                            00008  4628+CORTMSG  EQU   8                   OFFSET FOR RETURN WITH GENERAL REPLY C0080000
                            0000C  4629+COWTO    EQU   12                  GENERAL REPLY SURROUTINE, USE        C0082000
                                   4630+*                                  ADDRESS COWTO(BASE2) TO REFERANCE    C0084000

                                   4632+*        MISCELLANEOUS DEFINITIONS                                      C0088000

                            00004  4634+COMJBLEN EQU   4                          LENGTH OF JOB NUMBER TEXT     C0092000
                            00000  4635+COMAXRTE EQU   0                         MAXIMUM ROUTING CODE           C0094000

                            00001  4636+COMPAGE  EQU   1                   DEFAULT BACKSPACE PAGE COUNT         C0096000
                                   4637          PRINT &GEN                                                     C2142000

                                   4638+         PRINT GEN                                                      C2142000
000000                             4639 FCBDSECT DSECT                                                          C2142200
000000                             4640 FCBCCW   DS    0D                  CCW TO WRITE FCB IMAGE               C2142400
000000                             4641          DS    6C                                                       C2142600
000006                             4642 FCBCOUNT DS    H                   COUNT FIELD OF CCW                   C2142800
000008                             4643          DS    2D                                                       C2143000
000018                             4644 FCBINDEX DS    C                   INDEX OR FIRST OF IMAGE              C2143100
COMM     HASP COMMAND PROCESSOR PCE WORK AREA DSECT                                                            PAGE  103



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000019                             4645 FCBIMAGE DS    CL180               FCB IMAGE                            C2143200
COMM     HASP COMMAND PROCESSOR MAIN ENTRY POINT                                                               PAGE  104


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             4647 HASPCOMM CSECT                     ENTRY TO COMMAND PROCESSOR           C2146000

                            00000  4648          USING *,BASE2                                                  C2148000
                            00000  4649          USING PCEDSECT,SAVE                                            C2150000
                            00000  4650          USING HCTDSECT,BASE1                                           C2152000

000000 47F0 C036      00036        4651 COBTABLE B     CONUL               NEXT COMMAND                         C2154000
000004 47F0 C028      00028        4652 CORETOK  B     COROK               REPLY OK ENTRY                       C2156000
000008 4120 C042      00042        4653 CORETMSG LA    WA,CONEXT           REPLY GENERAL MESSAGE                C2158000
                                   4654          $SRR  WA                  MAKE RELATIVE                        C2160000
00000C 1F28                        4655+         SLR   WA,BASE3                                                 C2068000
00000E 94F8 D058      00058        4656          NI    COMFLAGS,255-COMJDS FORCE RESTRICTION BITS OFF           C2162000
                                   4657          $WTO  COMMAND,(R0),MF=(E,COMFLAGS) SEND MESSAGE                C2164000

000012 4110 D068      00068        4658+         LA    R1,COMMAND                                               DG012000
000016 8900 0008      00008        4659+         SLL   R0,8                SET UP MESSAGE LENGTH                WT072000
00001A 5600 D058      00058        4660+         O     R0,COMFLAGS         SET UP SECOND PARAMETER REGISTER     WT074000
00001E 05E0                        4661+         BALR  LINK,0              LINK TO                              WT080000
000020 47F0 B098      00098        4662+         B     $WTO                 CONTROL SERVICE PROGRAM             WT082000

                                   4663          $ARR  WA                  MAKE ABSOLUTE                        C2166000
000024 1E28                        4664+         ALR   WA,BASE3                                                 C2038000
000026 07F2                        4665          BR    WA                  RETURN                               C2168000
000028 D201 D068 C08A 00068 0008A  4666 COROK    MVC   COMMAND(2),COCOK    SET OK MESSAGE                       C2170000

00002E 4100 0002      00002        4667          LA    R0,2                SET LENGTH                           C2172000
000032 47F0 C008      00008        4668          B     CORETMSG            SEND MESSAGE                         C2174000
000036 4100 0001      00001        4669 CONUL    LA    R0,1                SET DUMMY LENGTH                     C2174500
00003A 9180 D058      00058        4670          TM    COMFLAGS,WCMBFD     IS THIS OUT OF LINE (END)            C2175000
00003E 4770 C008      00008        4671          BNZ   CORETMSG            SEND NULL MESSAGE                    C2175500
                                   4672 CONEXT   $DISABLE ALL              PREVENT INTERRUPTS                   C2176000

000042 8000 B0C9      000C9        4673+CONEXT   SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
                                   4674 *        ICM   R1,15,$COMMQUE      PICK UP CMB                     RFIT C2178000
000046 5810 B114      00114        4675          L     R1,$COMMQUE                                         RFIT C2178005
00004A 1211                        4676          LTR   R1,R1                                               RFIT C2178010
00004C 4770 C060      00060        4677          BNE   COWORK              DO WORK IF NOT EMPTY                 C2180000

                                   4678          $WAIT WORK,ENABLE         WAIT FOR WORK                        C2182000
000050 9620 D049      00049        4679+         OI    PCEEWF+$EWBWORK,$EWFWORK                                 WA016000
000054 8000 B0C8      000C8        4680+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
000058 45F0 B030      00030        4681+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
00005C 47F0 C042      00042        4682          B     CONEXT              CHECK FOR WORK                       C2183000

000060 D203 B114 1000 00114 00000  4683 COWORK   MVC   $COMMQUE,CMBCHAIN-CMBDSECT(R1) REMOVE FROM CHAIN         C2183600
                                   4684          $ENABLE ALL               ENABLE                               C2183800
000066 8000 B0C8      000C8        4685+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   4686          $LINK HASPCOME            COMPRESS AND ENTER PROCESSOR         C2184000
000000                             4687+HA$QCOME DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000

00006A                             4688+HASPCOMM CSECT                                                          OL014000
00006A 41E00000                    4689+         DC    Y(X'4100'+LINK*16),QL2(HA$QCOME) LOAD OCON INTO LINK     OL016000
00006E 45F0 B08C      0008C        4690+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000
000072 9110 D058      00058        4691 CORET    TM    COMFLAGS,WCMBFF     TEST FOR UCMID                       C2185000
000076 478F C000      00000        4692          BZ    COBTABLE(R15)       RETURN TO FUNCTION IF NO             C2185500

00007A 91F0 D05B      0005B        4693          TM    COMCLASS,X'F0'      TEST FOR OUT OF LINE AREA            C2186000
00007E 478F C000      00000        4694          BZ    COBTABLE(R15)       RETURN TO FUNCTION IF NO             C2186500
000082 9680 D058      00058        4695          OI    COMFLAGS,WCMBFD     SET TO END MLWTO                     C2187000
000086 47FF C000      00000        4696          B     COBTABLE(R15)       RETURN TO FUNCTION                   C2187500
00008A D6D2                        4697 COCOK    DC    C'OK'               MESSAGE FOR REPLY OK                 C2187600
COMM     HASP COMMAND PROCESSOR MAIN ENTRY POINT                                                               PAGE  105



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4699 COMRESP  $COMRESP                                                       C2187800
                                   4700+******************************************************************      C0146800
                                   4701+*                                                                       C0146900

                                   4702+*        REDIRECTED RESPONSE TABLE                                      C0147000
                                   4703+*                                                                       C0147100
                                   4704+******************************************************************      C0147200
                            00005  4705+COMCONO  EQU   5                                                        C0147300
00008C 0005                        4706+COMOCON  DC    Y(COMCONO)          NUMBER OF CONSOLES                   C0147400

                            00012  4707+COMCONL  EQU   2*9                                                      C0147500
00008E 0012                        4708+COMLCON  DC    Y(COMCONL)          LENGTH IN TABLE FOR CONSOLE          C0147600
                            00000  4709+COMCON   EQU   0                   CONSOLE ID                           C0147700
                            00001  4710+COMCONA  EQU   1                   AREA ID                              C0147800
000090                             4711+COMRESP  DS    0C                                                       C0147900
000090 0100010001000100            4712+         DC    9AL1(1,0)                                                C0148300
0000A2 0200020002000200            4713+         DC    9AL1(2,0)                                                C0148300

0000B4 0300030003000300            4714+         DC    9AL1(3,0)                                                C0148300
0000C6 0400040004000400            4715+         DC    9AL1(4,0)                                                C0148300
0000D8 0500050005000500            4716+         DC    9AL1(5,0)                                                C0148300




                                   4718 ******************************************************************      C2188000
                                   4719 *                                                                       C2188100
                                   4720 *        REDIRECTION VALUES FOR DISPLAY COMMANDS                        C2188200
                                   4721 *                                                                       C2188300

                                   4722 ******************************************************************      C2188400
                            00004  4723 $D7D     EQU   4                                                        C2188500
                            00001  4724 $DA      EQU   1                                                        C2188600
                            00009  4725 $DD      EQU   9                                                        C2188700
                            00002  4726 $DF      EQU   2                                                        C2188800
                            00003  4727 $DI      EQU   3                                                        C2188900
                            00004  4728 $DJ      EQU   4                                                        C2189000
                            00005  4729 $DL      EQU   5                                                        C2189100

                            00007  4730 $DN      EQU   7                                                        C2189200
                            00006  4731 $DO      EQU   6                                                        C2189300

                            00007  4732 $DQ      EQU   7                                                        C2189400
                            00005  4733 $DR      EQU   5                                                        C2189500
                            00008  4734 $DS      EQU   8                                                        C2189600
                            00009  4735 $DU      EQU   9                                                        C2189700
COMM     HASP COMMAND PROCESSOR MAIN ENTRY POINT                                                               PAGE  106



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4737          AIF   (NOT &FCBV).CTFN1                                        C2189900
                                   4738 .CTFN1   ANOP                                                           C2190100
0000EA 0000
0000EC 00000000                    4739 CAACKPT  DC    V($CKPTPCE)         CHECKPOINT PCE ADDRESS               C2190200
                            000F8  4740 CDFJOT   EQU   $JOTABLE            JOB OUTPUT TABLE POINTER             C2191000
0000F0 00000000                    4741 CDQSTAT  DC    V($ALSTATB)         ALLOCATION STATUS ADDRESS            C2192000
0000F4 00000000                    4742 CSXMLLM  DC    V($MLLMPCE)         LINE MANAGER PCE ADDRESS             C2194000
0000F8 00000000                    4743 CDIPIT   DC    V($PITABLE)         FIRST PIT ADDRESS                    C2196000

0000FC 00000000                    4744 CPSXPCE  DC    V($EXECPCE)         FIRST EXECUTION PCE ADDRESS          C2198000

000100 00000000                    4745 CPSTHAW  DC    V($XTHPCE)          XTHAW PCE ADDRESS                    C2202000
                                   4746          ENTRY $PWTRECB            ADDRESS OF $P HASPWTR ECB            C2206000
000104 00000000                    4747 $PWTRECB DC    F'0'                ECB TO SIGNAL $PHASP TO HASPWTR      C2208000
000108 00000000                    4748 $NWTRECB DC    F'0'                ECB POSTED WHEN HASPWTR TASK ENDS    C2210000
00010C                             4749 $WTRTCBA DS    F                   TCB ADDRESS OF HASPWTR TASK          C2212000

                                   4750          ENTRY $PSMFECB            ADDR OF $P HASPACCT ECB              C2213000
                                   4751          ENTRY $ACCTECB                                                 C2213500
000110 00000000                    4752 $PSMFECB DC    F'0'                ECB TO SIGNAL $PHASP HASPACCT        C2214000
000114                             4753 $SMFTCBA DS    F                   TCB ADDR OF HASPACCT TASK            C2216000
000118 00000000                    4754 $ACCTECB DC    F'0'                ECB POSTED FOR HASPACCT WORK         C2218000
                                   4755          ENTRY $WTOPECB                                                 C2228000
00011C 00000000                    4756 $WTOPECB DC    F'0'                COMPLETION CODE FOR $WTO TASK        C2230000
000120 00000000                    4757 CPSWTOTB DC    V(WTOTCBA)          COMMUNICATIONS TCB TO DETACH         C2232000
000124 00000000                    4758 CPSWTOEB DC    V($WTOECB)          COMMUNICATIONS ECB TO POST           C2234000

000128 00000000                    4759 CTXLSTBL DC    V(WCNLSTBL)         OS LOGICAL CONSOLE LIST TABLE        C2236000

COMM     HASP COMMAND PROCESSOR CONDITIONALLY RESIDENT FUNCTIONS                                               PAGE  107


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4761 COFCVB   $CFCVB TYPE=RES                                                C2242000
                                   4762 COFCVE   $CFCVE TYPE=RES                                                C2244000
                                   4763 COFDCTD  $CFDCTD TYPE=RES                                               C2246000

                                   4764 COFDCTL  $CFDCTL TYPE=RES                                               C2248000
                                   4765 COFINVC  $CFINVC TYPE=RES                                               C2250000
                                   4766 COFINVO  $CFINVO TYPE=RES                                               C2252000
                                   4767 COFJDCT  $CFJDCT TYPE=RES,CONT=COFJDCTC                                 C2254000
                                   4768 COFSEL   $CFSEL TYPE=RES                                                C2258000
                                   4769 COFVQE   $CFVQE TYPE=RES                                                C2260000
COMM     HASP COMMAND PROCESSOR COMMAND EDIT ROUTINE                                                           PAGE  108


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4771 HASPCOME $COMGRUP PRTY=&LOW        EDIT ROUTINE                         C2264000
000140                             4772+HA$OCOME CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            00144  4773+HA$ICOME EQU   HA$OCOME+4          PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   4774+         ENTRY HA$ICOME                                                 OV036000
000140 C3D6D4C5                    4775+         DC    CL4'COME'           IDENTIFY MODULE ON CORE DUMP         OV038000
000144 00000140                    4776+         DC    A(HA$OCOME)         ASSEMBLY ORIGIN                      OV040000
000148                             4777+HASPCOME DS    0F                  ENTRY POINT                          OV042000

                            000E8  4778+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                            00000  4779          USING CMBDSECT,R1                                              C2268000
000148 925B 1008      00008        4780          MVI   CMBMSG,C'$'         FORCE FIRST CHARACTER TO $           C2269000
                                   4781          AIF   (NOT &LONGCOM).COMEA                                     C2270000
                                   4782 .COMEA   ANOP                                                           C2430000
00014C D203 D058 832C 00058 00414  4783          MVC   COMFLAGS(4),COWTOL  MOVE WTO MASK INTO PCE WORK AREA     C2432000
000152 D201 D058 1004 00058 00004  4784          MVC   COMFLAGS(2),CMBFLAGS SET FLAGS AND CONSOLE BYTES         C2436000
                                   4785 * MOVE AND COMPRESS COMMAND WITH UPPER CASE -- EDIT COMMAND             C2438000
000158 4130 D068      00068        4786          LA    WB,COMMAND          POINT TO RECEIVE AREA                C2440000
00015C 9240 3000      00000        4787          MVI   0(WB),C' '          SET BLANK                            C2442000
000160 D276 3001 3000 00001 00000  4788          MVC   1(L'COMMAND-1,WB),0(WB) BLANK OUT AREA                   C2444000

000166 4120 1008      00008        4789          LA    WA,CMBMSG           POINT TO MESSAGE                     C2446000
00016A 4140 0077      00077        4790          LA    WC,L'COMMAND-1      SET MAXIMUM COUNT                    C2448000
00016E 4160 D06A      0006A        4791          LA    WE,COMOPRND         SET POINTER TO                       C2450000
000172 5060 D0E0      000E0        4792          ST    WE,COMPNTER         FIRST OPERAND                        C2452000

000176 4150 D0E4      000E4        4793          LA    WD,COMPNTER+4       POINT TO SECOND OPERAND POINTER      C2454000
00017A 4160 0005      00005        4794          LA    WE,(COMNULOP-COMPNTER)/4 SET MAXIMUM OPERANDS            C2456000
00017E 4100 0001      00001        4795          LA    R0,1                CONSTANT FOR SPACE                   C2458000
                                   4796 * EDIT LOOP                                                             C2460000
000182 957D 2000      00000        4797 COCOMLOP CLI   0(WA),COAPOS        DO WE HAVE APOSTROPHE                C2462000
000186 4770 80B8      001A0        4798          BNE   COSW                IF NOT SKIP SWITCH SETTING           C2464000
00018A 957D 2001      00001        4799          CLI   1(WA),COAPOS        DO WE HAVE A PAIR                    C2466000
00018E 4770 80B4      0019C        4800          BNE   COSWFLP             IF NOT FLIP SWITCH                   C2468000
000192 1A20                        4801          AR    WA,R0               ADD ONE SOURCE POINTER               C2470000
000194 4640 80EA      001D2        4802          BCT   WC,COMVC            MOVE SINGLE APOSTROPHE               C2472000
000198 47F0 80F8      001E0        4803          B     COFINMVC            SHOULD NEVER HAPPEN                  C2474000
00019C 97F0 80B9      001A1        4804 COSWFLP  XI    COSW+1,X'F0'        FLIP SWITCH                          C2476000

0001A0 4700 80EA      001D2        4805 COSW     NOP   COMVC               *** SWITCH *** MODIFIED ***          C2478000
                                   4806 * COMPRESS AND UPPER CASE WHEN OUTSIDE APOSTROPHE                       C2480000
0001A4 9540 2000      00000        4807          CLI   0(WA),C' '          DO WE HAVE BLANK                     C2482000

0001A8 4780 80F2      001DA        4808          BE    COCOMNXT            IF SO DO NOT MOVE                    C2484000
0001AC D600 3000 2000 00000 00000  4809          OC    0(1,WB),0(WA)       MOVE AND UPPER CASE THE CHARACTER    C2486000
0001B2 1A30                        4810          AR    WB,R0               ADD TO RECEIVER FIELD POINTER        C2488000
0001B4 956B 2000      00000        4811          CLI   0(WA),C','          WAS IT COMMA                         C2490000
0001B8 4770 80F2      001DA        4812          BNE   COCOMNXT            IF NOT GO TO NEXT CHARACTER          C2492000
0001BC 4660 80DE      001C6        4813          BCT   WE,COCOMMA          SET OPERAND POINTER                  C2494000
0001C0 1A60                        4814          AR    WE,R0               FORCE CONTINUOUS FALL THROUGH        C2496000
0001C2 47F0 80F2      001DA        4815          B     COCOMNXT            GET NEXT CHARACTER                   C2498000
0001C6 5030 5000      00000        4816 COCOMMA  ST    WB,0(0,WD)          SAVE OPERAND                         C2500000
0001CA 4150 5004      00004        4817          LA    WD,4(0,WD)          POINT TO NEXT AREA                   C2502000
0001CE 47F0 80F2      001DA        4818          B     COCOMNXT            NEXT CHARACTER                       C2504000
0001D2 D600 3000 2000 00000 00000  4819 COMVC    OC    0(1,WB),0(WA)       MOVE AND UPPER CASE                  C2506000

                                   4820 * TO MOVE WITHOUT UPPER CASING CHANGE ABOVE OC TO MVC                   C2508000

0001D8 1A30                        4821          AR    WB,R0               ADD TO RECEIVE FIELD POINTER         C2510000
0001DA 1A20                        4822 COCOMNXT AR    WA,R0               ADD TO SOURCE FIELD POINTER          C2512000

0001DC 4640 809A      00182        4823          BCT   WC,COCOMLOP         LOOP                                 C2514000
0001E0 940F 80B9      001A1        4824 COFINMVC NI    COSW+1,X'0F'        MAKE SURE SWITCH RESET               C2516000
0001E4 1A30                        4825          AR    WB,R0               POINT TO NULL LOCATION               C2518000
COMM     HASP COMMAND PROCESSOR COMMAND EDIT ROUTINE                                                           PAGE  109


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4826 * EDIT FINISHED RELEASE BUFFER                                          C2520000
                                   4827          $DISABLE ALL,OLAY=YES     DISABLE INTERRUPTS                   C2522000
0001E6 8000 B0C9      000C9        4828+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
0001EA 4A00 B0CE      000CE        4829          AH    R0,$COMMCT          UP FREE COUNT OF WTO BUFFERS         C2524000
0001EE 4000 B0CE      000CE        4830          STH   R0,$COMMCT          STORE FOR NEXT TIME AND OTHERS       C2526000
0001F2 45E0 B09C      0009C        4831          BAL   LINK,$FREEMSG       FREE BUFFER                          C2528000
0001F6 D501 B0CE 8338 000CE 00420  4832          CLC   $COMMCT,CDOMMIN     CHECK FOR NEED TO POST               C2528400

0001FC 4770 811C      00204        4833          BNE   CONDOMP             SKIP NEXT IF NO                      C2528800
                                   4834          $POST $HASPECF,CMB        POST ANY WAITING PROCESSORS          C2529200

000200 94FD B0C4      000C4        4835+         NI    $HASPECF,255-$EWFCMB                                     PO008000

000204                             4836 CONDOMP  DS    0H                                                       C2529600
                                   4837          $ENABLE ALL,OLAY=YES      ALLOW INTERRUPTS                     C2530000
000204 8000 B0C8      000C8        4838+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   4839 * SET POINTER FOR END OF COMMAND ( NULL OPERAND )                       C2532000
000208 5030 D0F4      000F4        4840          ST    WB,COMNULOP         SET POINTER TO NULL OPERAND          C2534000
                                   4841 * PACK POINTERS AT END OF POINTER TABLE                                 C2536000
00020C 4110 D0F4      000F4        4842          LA    R1,COMNULOP         POINT TO NULL POINTER                C2538000
000210 4160 0004      00004        4843          LA    WE,4                COUNT                                C2540000
000214 1871                        4844          LR    WF,R1               SET FOR COMMAND TO BXLE WD,WE,...    C2542000
000216 1B76                        4845          SR    WF,WE               LAST SOLID OPERAND POINTER           C2544000
000218 4120 D0E0      000E0        4846          LA    WA,COMPNTER         POINT TO OPERAND POINTER ONE         C2546000
00021C 1B56                        4847          SR    WD,WE               REDUCE TO LAST POINTER SAVED         C2546100

                                   4848 * ADJUST FOR PARAMETER IF OPERATOR AT OS CONSOLE                        C2546200
00021E 9110 D058      00058        4849          TM    COMFLAGS,WCMBFF     IS THIS UCM                          C2546300
000222 4780 8220      00308        4850          BZ    COMNLEQ             SKIP ADJUSTMENT IF NOT               C2546400

000226 940F D05B      0005B        4851          NI    COMCLASS,X'0F'      SET AREA Z FOR ALL RESPONSES         C2546500
00022A D203 D05C 833A 0005C 00422  4852          MVC   COMEWORK,COMLPTRN   SET X'F0F00000'                      C2546600
000230 41F0 0003      00003        4853          LA    R15,3               MAXIMUM CHARACTERS IN CCA            C2546700
000234 0630                        4854          BCTR  WB,0                POINT TO                             C2546800
000236 0630                        4855          BCTR  WB,0                 LAST SOLID CHARACTER                C2546900
000238 18E3                        4856          LR    R14,WB              SAVE FOR BLANK OUT                   C2547000
00023A 95E9 3000      00000        4857          CLI   0(WB),C'Z'          IS THIS AREA 'Z', 0                  C2547100
00023E 4780 818C      00274        4858          BE    COMLSA              SET AREA FLAG IF YES                 C2547200
000242 F100 D05F 3000 0005F 00000  4859          MVO   COMLAREA(1),0(1,WB) MOVE LOW 4 TO HIGH 4                 C2547300
000248 95C1 3000      00000        4860          CLI   0(WB),C'A'          IS THIS 'A' +                        C2547400
00024C 4740 8220      00308        4861          BL    COMNLEQ             EXIT IF NOT                          C2547500
000250 95C9 3000      00000        4862          CLI   0(WB),C'I'          IS THIS 'A' TO 'I', 1-9              C2547600

000254 47D0 818C      00274        4863          BNH   COMLSA              SET AREA FLAG IF YES                 C2547700
000258 95D1 3000      00000        4864          CLI   0(WB),C'J'          IS THIS 'J' +                        C2547800
00025C 4740 8220      00308        4865          BL    COMNLEQ             EXIT IF NOT                          C2547900
000260 95D6 3000      00000        4866          CLI   0(WB),C'O'          IS THIS 'J' TO 'O', 10-15            C2548000

000264 4720 8192      0027A        4867          BH    COMLCC              IF NOT TRY CONSOLE ID                C2548100
000268 4840 D05E      0005E        4868          LH    WC,COMLFLG          PICK UP CURRENT SETTING              C2548200
00026C 4140 4090      00090        4869          LA    WC,9*16(0,WC)       UP BY 9                              C2548300
000270 4040 D05E      0005E        4870          STH   WC,COMLFLG          SAVE FOR LATER                       C2548400
000274 9601 D05E      0005E        4871 COMLSA   OI    COMLFLG,COMLFLGA    SET AREA SPECIFIED                   C2548500
000278 0630                        4872 COMLCCC  BCTR  WB,0                NEXT CHARACTER                       C2548600

00027A 46F0 819A      00282        4873 COMLCC   BCT   R15,COMLC           REDUCE MAX CHARACTERS                C2548700
00027E 47F0 81C2      002AA        4874          B     COMLCK              CHECK FOR KEY WORD                   C2548800
000282 D200 D05D D05C 0005D 0005C  4875 COMLC    MVC   COMLLO(1),COMLHI    SHIFT LOW DIGIT                      C2548900
000288 92F0 D05C      0005C        4876          MVI   COMLHI,C'0'         SET HIGH DIGIT                       C2549000
00028C 95F0 3000      00000        4877          CLI   0(WB),C'0'          IS THIS '0' +                        C2549100
000290 4740 81C2      002AA        4878          BL    COMLCK              EXIT IF NOT                          C2549200
000294 95F9 3000      00000        4879          CLI   0(WB),C'9'          IS THIS '0' TO '9'                   C2549300
000298 4720 81C2      002AA        4880          BH    COMLCK              EXIT IF NOT                          C2549400

COMM     HASP COMMAND PROCESSOR COMMAND EDIT ROUTINE                                                           PAGE  110


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


00029C D200 D05C 3000 0005C 00000  4881          MVC   COMLHI(1),0(WB)     SET HIGH DIGIT                       C2549500
0002A2 9602 D05E      0005E        4882          OI    COMLFLG,COMLFLGC    SET CONSOLE FLAG                     C2549600
0002A6 47F0 8190      00278        4883          B     COMLCCC             CHECK CONSOLE DIGIT                  C2549700
0002AA 0630                        4884 COMLCK   BCTR  WB,0                POINT TO WHAT SHOULD BE              C2549800
0002AC 0630                        4885          BCTR  WB,0                 ',L='                               C2549900
0002AE D502 833E 3000 00426 00000  4886          CLC   COMLCLEQ,0(WB)      CHECK FOR ',L='                      C2550000
0002B4 4770 821C      00304        4887          BNE   COMLRSET            IF NOT RESET ANY FLAGS               C2550100
0002B8 F271 D060 D05C 00060 0005C  4888          PACK  COMDWORK,COMLHI(2)  CONVERT CONSOLE                      C2550200

0002BE 4F00 D060      00060        4889          CVB   R0,COMDWORK          TO BINARY                           C2550300
0002C2 1200                        4890          LTR   R0,R0               CHECK RESULT                         C2550400
0002C4 4780 81EC      002D4        4891          BZ    COMLSARA             ZERO                                C2550500
0002C8 4900 C08C      0008C        4892          CH    R0,COMOCON          CHECK FOR TOO HIGH                   C2550600
0002CC 4720 821C      00304        4893          BH    COMLRSET            IF HIGH RESET FLAGS                  C2550700

0002D0 4200 D059      00059        4894          STC   R0,COMROUTE         SET NEW UCMID                        C2550800
0002D4 9101 D05E      0005E        4895 COMLSARA TM    COMLFLG,COMLFLGA    IS AREA SET                          C2550900
0002D8 4780 81FA      002E2        4896          BZ    COMLBLNK            IF NOT SKIP NSI                      C2551000

0002DC D300 D05B D05F 0005B 0005F  4897          MVZ   COMCLASS,COMLAREA   SET AREA                             C2551100
0002E2 9240 E000      00000        4898 COMLBLNK MVI   0(R14),C' '         SET BLANK                            C2551200
0002E6 06E0                        4899          BCTR  R14,0                UNTIL                               C2551300
0002E8 19E3                        4900          CR    R14,WB               PARAMETER                           C2551400
0002EA 47B0 81FA      002E2        4901          BNL   COMLBLNK             GONE                                C2551500
0002EE 4130 3001      00001        4902          LA    WB,1(0,WB)          POINT TO NEW NULL                    C2551600
0002F2 5030 D0F4      000F4        4903          ST    WB,COMNULOP         SET FOR PROCESSORS                   C2551700

0002F6 5930 5000      00000        4904          C     WB,0(0,WD)          SAME AS LAST OPERAND                 C2551800
0002FA 4770 8218      00300        4905          BNE   *+6                 SKIP NSI IF NOT                      C2551900
0002FE 1B56                        4906          SR    WD,WE               REDUCE NUMBER OF OPERANDS            C2552000
000300 47F0 8220      00308        4907          B     COMNLEQ             SKIP NSI                             C2552100
000304 9200 D05E      0005E        4908 COMLRSET MVI   COMLFLG,0           RESET FLAGS                          C2552200

000308                             4909 COMNLEQ  DS    0H                                                       C2552300
000308 1B16                        4910          SR    R1,WE               REDUCE FOR FREE SLOT                 C2552400
00030A D203 1000 5000 00000 00000  4911          MVC   0(4,R1),0(WD)       MOVE POINTER                         C2552500
000310 1B56                        4912          SR    WD,WE               REDUCE TO LAST POINTER               C2553000

000312 1952                        4913          CR    WD,WA               CHECK FOR FIRST OPERAND POINTER      C2554000
000314 47B0 8220      00308        4914          BNL   COMNLEQ             LOOP                                 C2556000
000318 1851                        4915          LR    WD,R1               SET POINTER LOCATOR                  C2558000
                                   4916 * LOCATE COMMAND AND TRANSFER CONTROL                                   C2560000
00031A 4140 8342      0042A        4917 COMLOC   LA    WC,COMTAB           POINT TO FIRST OF COMMAND TABLE      C2562000
00031E 4120 0006      00006        4918          LA    WA,COMTEL           SET LENGTH OF ELEMENT                C2564000

000322 4130 8444      0052C        4919          LA    WB,COMTABE          POINT TO LAST OF COMMAND TABLE       C2566000
000326 D500 4004 D069 00004 00069  4920 COMSRL   CLC   COMTVB(1,WC),COMVERB DOES VERB MATCH                     C2568000
00032C 4770 825A      00342        4921          BNE   COMSRC              IF NOT LOOK AT NEXT COMMAND          C2570000
000330 D500 4005 D06A 00005 0006A  4922          CLC   COMTVB+1(1,WC),COMVERB+1 LOOK AT SECOND CHARACTER        C2572000
000336 4780 8298      00380        4923          BE    COMFND              EXIT IF FOUND                        C2574000

00033A 95FF 4005      00005        4924          CLI   COMTVB+1(WC),X'FF'  IS IT THE LAST ENTRY FOR COMMAND     C2576000
00033E 4780 8298      00380        4925          BE    COMFND              EXIT IF FOUND                        C2578000
000342 8742 823E      00326        4926 COMSRC   BXLE  WC,WA,COMSRL        LOOP                                 C2580000
                                   4927 * COMMAND NOT IN TABLE                                                  C2582000
000346 9110 D058      00058        4928 COMBAD   TM    COMFLAGS,WCMBFF     IS THIS A UCM                        C2582500

00034A 4780 8276      0035E        4929          BZ    COMBADA             DISPLAY ERROR IF NOT                 C2583000
00034E 91F0 D05B      0005B        4930          TM    COMCLASS,X'F0'      TEST AREA Z                          C2583500
000352 4780 8276      0035E        4931          BZ    COMBADA             DISPLAY ERROR IF YES                 C2584000
                                   4932          $CWTO L=L'COMMAND         DISPLAY COMMAND                      C2584500
000356                             4933+         DS    0H                                                       NU006000

000356 4100 0078      00078        4934+         LA    R0,L'COMMAND                                             C0324000
00035A 4520 C00C      0000C        4935+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
COMM     HASP COMMAND PROCESSOR COMMAND EDIT ROUTINE                                                           PAGE  111


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4936 COMBADA  $CFINVC ,                 RESPOND                              C2585000

                                   4937+* RETURN WITH INVALID COMMAND AS RESPONSE                               C1124000
00035E D20F D071 8288 00071 00370  4938+COMBADA  MVC   COMMAND+9(16),COF0099 MOVE DIAGNOSTIC BEHIND TEXT        C1126000
000364                             4939+         DS    0H                                                       NU006000
000364 4100 0019      00019        4940+         LA    R0,25                                                    C0230000
000368 41F0 0008      00008        4941+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
00036C 45E0 B088      00088        4942+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000

000370 40C9D5E5C1D3C9C4            4943+COF0099  DC    C' INVALID COMMAND'                                      C1130000
                                   4944 * COMMAND FOUND                                                         C2586000
000380 D100 829F 4003 00387 00003  4945 COMFND   MVN   COMTMI+1(1),COMTFL(WC) MOVE RESTRICTION BITS FOR TESTING C2588000
000386 9100 D058      00058        4946 COMTMI   TM    COMFLAGS,*-*        IF CONSOLE IS RESTRICTED FOR         C2590000

00038A 4770 825E      00346        4947          BNZ   COMBAD              ANY REJECTION BIT, ERROR EXIT        C2590100
                                   4948 * CHECK FOR AUTOMATIC REDIRECTION OF RESPONSES                          C2590200
00038E 9110 D058      00058        4949          TM    COMFLAGS,WCMBFF     IS THIS UCM                          C2590300
000392 4780 831E      00406        4950          BZ    COMGOOD             IF NOT SKIP REDIRECTION              C2590400
000396 9102 D05E      0005E        4951          TM    COMLFLG,COMLFLGC    HAS CONSOLE BEEN SET                 C2590500

00039A 4710 82F4      003DC        4952          BO    COMRPT              SKIP AUTOMATIC IF YES                C2590600
00039E 1B11                        4953          SR    R1,R1               ZERO WORK                            C2590700
0003A0 4310 4003      00003        4954          IC    R1,COMTFL(0,WC)     PICK UP REDIRECT OFFSET              C2590800
0003A4 8A10 0004      00004        4955          SRA   R1,4                ALIGN TO LOW HEX DIGIT               C2590900
0003A8 4780 82F4      003DC        4956          BZ    COMRPT              IF ZERO NO REDIRECTION               C2591000
0003AC 0610                        4957          BCTR  R1,0                REDUCE BY 1                          C2591100
0003AE 1A11                        4958          AR    R1,R1               DOUBLE                               C2591200

0003B0 1B22                        4959          SR    WA,WA               ZERO WORK                            C2591300
0003B2 4320 D059      00059        4960          IC    WA,COMROUTE         PICK UP CURRENT CONSOLE              C2591400
0003B6 4920 C08C      0008C        4961          CH    WA,COMOCON          INSURE GEN COMPATIBLE                C2591500

0003BA 4720 831E      00406        4962          BH    COMGOOD             IF TOO HIGH EXIT                     C2591600
0003BE 4C20 C08E      0008E        4963          MH    WA,COMLCON          MULTIPLY BY LENGTH DIMENSION         C2591700
0003C2 1A12                        4964          AR    R1,WA               COMBINE OFFSETS                      C2591800
0003C4 4111 C07E      0007E        4965          LA    R1,COMRESP-COMCONL(R1) POINT TO ELEMENT                  C2591900
0003C8 D200 D059 1000 00059 00000  4966          MVC   COMROUTE,COMCON(R1) INSERT NEW CONSOLE ID                C2592000

0003CE 9101 D05E      0005E        4967          TM    COMLFLG,COMLFLGA    HAS AREA ALREADY BEEN SET            C2592100
0003D2 4710 82F4      003DC        4968          BO    COMRPT              REDIRECTION SET IF YES               C2592200
0003D6 D300 D05B 1001 0005B 00001  4969          MVZ   COMCLASS,COMCONA(R1) SET NEW AREA                        C2592300
0003DC D501 D069 839A 00069 00482  4970 COMRPT   CLC   COMVERB(2),COMDM    CHECK FOR $DM COMMAND                C2592400
0003E2 4770 8302      003EA        4971          BNE   COMRPTA             IF NOT $DM SKIP FORCE AREA Z         C2592500
0003E6 940F D05B      0005B        4972          NI    COMCLASS,X'0F'      TURN OFF AREA                        C2592600
0003EA 91F0 D05B      0005B        4973 COMRPTA  TM    COMCLASS,X'F0'      TEST AREA Z                          C2592700
0003EE 4780 831E      00406        4974          BZ    COMGOOD             SKIP IF AREA Z                       C2592800

0003F2 4330 D058      00058        4975          IC    WB,COMFLAGS         SAVE FLAGS                           C2592900
0003F6 1F48                        4976          SLR   WC,BASE3            SET WC RELATIVE TO BASE3     OY05824 C2592950

                                   4977          $CWTO L=L'COMMAND         DISPLAY COMMAND                      C2593000
0003F8                             4978+         DS    0H                                                       NU006000
0003F8 4100 0078      00078        4979+         LA    R0,L'COMMAND                                             C0324000
0003FC 4520 C00C      0000C        4980+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
000400 1E48                        4981          ALR   WC,BASE3            RESTORE ABSOLUTE WC VALUE    OY05824 C2593250

000402 4230 D058      00058        4982          STC   WB,COMFLAGS         SET FLAGS                            C2593500
000406 1B11                        4983 COMGOOD  SR    R1,R1               ZERO OFFSET REGISTER                 C2594000
000408 4310 4002      00002        4984          IC    R1,COMTOFF(0,WC)    PICK UP OFFSET                       C2596000
                                   4985          $XCTL (WC)                TRANSFER CONTROL                     C2598000
00040C 48E0 4000      00000        4986+         LH    LINK,0(,WC)            LOAD OCON INTO LINK               OL022000
000410 45F0 B090      00090        4987+         BAL   R15,$OXCTL          LINK TO OVERLAY SUPERVISOR           XC008000
                                   4988 COWTOL   $WTO  PRI=$HI,CLASS=$ALWAYS,JOB=NO,ROUTE=0,MF=L                C2600000
000414                             4989+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT090000

000414 00000077                    4990+COWTOL   DC    AL1(0,0,0,$ALWAYS+$HI)                                   WT100000
COMM     HASP COMMAND PROCESSOR COMMAND EDIT ROUTINE                                                           PAGE  112



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000418 C396949481958440            4991 COMTMSG  DC    X'C396949481958440' COMMAND TEXT                         C2602000
                            00002  4992 $DOMMIN  EQU   2                   RESERVED CMBS FROM $DOMACT           C2602100
000420 0004                        4993 CDOMMIN  DC    Y($DOMMIN+2)        RESERVED CMBS FROM $DOMACT+2         C2602300
000422 F0F00000                    4994 COMLPTRN DC    C'00',X'0000'       WORK AREA PATTERN                    C2602400

                            0005C  4995 COMLHI   EQU   COMEWORK            HIGH DIGIT OF CONSOLE 'CC'           C2602600
                            0005D  4996 COMLLO   EQU   COMEWORK+1          LOW DIGIT OF CONSOLE 'CC'            C2602700
                            0005E  4997 COMLFLG  EQU   COMEWORK+2          FLAG BYTE                            C2602900
                            00001  4998 COMLFLGA EQU   1                   AREA HAS BEEN SPECIFIED              C2603000
                            00002  4999 COMLFLGC EQU   2                   CONSOLE HAS BEEN SPECIFIED           C2603200
                            0005F  5000 COMLAREA EQU   COMEWORK+3          AREA SPECIFICATION * 16              C2603300
000426 6BD37E                      5001 COMLCLEQ DC    C',L='              SPECIAL PARAMETER ID                 C2603500
                            0007D  5002 COAPOS   EQU   X'7D'               APOSTROPHE                           C2604000
                                   5003          DROP  R1                                                       C2606000

COMM     HASP COMMAND PROCESSOR SELECTION TABLE                                                                PAGE  113



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00042A                             5005 COMTAB   DS    0H                                                       C2609000
                                   5006          $COMTAB A7D,HASPCJB3,REJECT=COMJ RELEASE JOB BY NAME           C2610000
000000                             5007+HA$QCJB3 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
00042A                             5008+HA$OCOME CSECT                                                          OC012000

00042A 0000                        5009+         DC    0H'0',QL2(HA$QCJB3) GENERATE OCON                        OC014000
00042C 0004                        5010+         DC    AL1(COA7D-HASPCJB3),AL1(0*16+COMJ)                       C0160000
00042E C17D                        5011+         DC    CL1'A',X'7D'                                             C0180000
                                   5012          $COMTAB AA,HASPCJB1,REJECT=COMRMT+COMJ RELEASE ALL JOBS        C2611000
000000                             5013+HA$QCJB1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000430                             5014+HA$OCOME CSECT                                                          OC012000
000430 0000                        5015+         DC    0H'0',QL2(HA$QCJB1) GENERATE OCON                        OC014000
000432 080C                        5016+         DC    AL1(COAA-HASPCJB1),AL1(0*16+COMRMT+COMJ)                 C0160000
000434 C1C1                        5017+         DC    CL2'AA'                                                  C0166000
                                   5018          $COMTAB AJ,HASPCJB2,REJECT=COMJ RELEASE JOB(S)                 C2612000

000000                             5019+HA$QCJB2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000

000436                             5020+HA$OCOME CSECT                                                          OC012000
000436 0000                        5021+         DC    0H'0',QL2(HA$QCJB2) GENERATE OCON                        OC014000
000438 0804                        5022+         DC    AL1(COAJ-HASPCJB2),AL1(0*16+COMJ)                        C0160000
00043A C1D1                        5023+         DC    CL2'AJ'                                                  C0166000

                                   5024          $COMTAB B,HASPCDV1,REJECT=COMD           BACKSPACE             C2614000
000000                             5025+HA$QCDV1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
00043C                             5026+HA$OCOME CSECT                                                          OC012000
00043C 0000                        5027+         DC    0H'0',QL2(HA$QCDV1) GENERATE OCON                        OC014000
00043E 0802                        5028+         DC    AL1(COB-HASPCDV1),AL1(0*16+COMD)                         C0160000
000440 C2FF                        5029+         DC    CL1'B',X'FF'                                             C0170000
                                   5030          $COMTAB C7D,HASPCJB3,REJECT=COMJ CANCEL JOB BY NAME            C2615000
000000                             5031+HA$QCJB3 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000442                             5032+HA$OCOME CSECT                                                          OC012000
000442 0000                        5033+         DC    0H'0',QL2(HA$QCJB3) GENERATE OCON                        OC014000
000444 0004                        5034+         DC    AL1(COC7D-HASPCJB3),AL1(0*16+COMJ)                       C0160000

000446 C37D                        5035+         DC    CL1'C',X'7D'                                             C0180000
                                   5036          $COMTAB CJ,HASPCJB2,REJECT=COMJ          CANCEL JOB            C2616000
000000                             5037+HA$QCJB2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000448                             5038+HA$OCOME CSECT                                                          OC012000

000448 0000                        5039+         DC    0H'0',QL2(HA$QCJB2) GENERATE OCON                        OC014000
00044A 0A04                        5040+         DC    AL1(COCJ-HASPCJB2),AL1(0*16+COMJ)                        C0160000
00044C C3D1                        5041+         DC    CL2'CJ'                                                  C0166000
                                   5042          $COMTAB C,HASPCDV1,REJECT=COMD           CANCEL DEVICE ACTVY.  C2618000
000000                             5043+HA$QCDV1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
00044E                             5044+HA$OCOME CSECT                                                          OC012000
00044E 0000                        5045+         DC    0H'0',QL2(HA$QCDV1) GENERATE OCON                        OC014000
000450 0A02                        5046+         DC    AL1(COC-HASPCDV1),AL1(0*16+COMD)                         C0160000
000452 C3FF                        5047+         DC    CL1'C',X'FF'                                             C0170000
                                   5048          $COMTAB D7D,HASPCJB3,REDIR=$D7D DISPLAY JOB BY NAME            C2622000
000000                             5049+HA$QCJB3 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000454                             5050+HA$OCOME CSECT                                                          OC012000

000454 0000                        5051+         DC    0H'0',QL2(HA$QCJB3) GENERATE OCON                        OC014000
000456 0040                        5052+         DC    AL1(COD7D-HASPCJB3),AL1($D7D*16+0)                       C0160000
000458 C47D                        5053+         DC    CL1'D',X'7D'                                             C0180000

                                   5054          $COMTAB DA,HASPCJB1,REDIR=$DA  DISPLAY ACTIVE JOBS             C2626000
000000                             5055+HA$QCJB1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
00045A                             5056+HA$OCOME CSECT                                                          OC012000
00045A 0000                        5057+         DC    0H'0',QL2(HA$QCJB1) GENERATE OCON                        OC014000
00045C 0A10                        5058+         DC    AL1(CODA-HASPCJB1),AL1($DA*16+0)                         C0160000
00045E C4C1                        5059+         DC    CL2'DA'                                                  C0166000
COMM     HASP COMMAND PROCESSOR SELECTION TABLE                                                                PAGE  114


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5060          $COMTAB DD,HASPCMS1,REDIR=$DD  DISPLAY DIRECT ACCESS           C2628000
000000                             5061+HA$QCMS1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000460                             5062+HA$OCOME CSECT                                                          OC012000
000460 0000                        5063+         DC    0H'0',QL2(HA$QCMS1) GENERATE OCON                        OC014000

000462 0890                        5064+         DC    AL1(CODD-HASPCMS1),AL1($DD*16+0)                         C0160000

000464 C4C4                        5065+         DC    CL2'DD'                                                  C0166000
                                   5066          $COMTAB DF,HASPCJ1B,REDIR=$DF  DISPLAY OUTPUT FORMS Q          C2630000

000000                             5067+HA$QCJ1B DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000466                             5068+HA$OCOME CSECT                                                          OC012000
000466 0000                        5069+         DC    0H'0',QL2(HA$QCJ1B) GENERATE OCON                        OC014000
000468 0020                        5070+         DC    AL1(CODF-HASPCJ1B),AL1($DF*16+0)                         C0160000
00046A C4C6                        5071+         DC    CL2'DF'                                                  C0166000
                                   5072          $COMTAB DI,HASPCSY1,REDIR=$DI  DISPLAY INITIATOR(S)            C2632000
000000                             5073+HA$QCSY1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
00046C                             5074+HA$OCOME CSECT                                                          OC012000
00046C 0000                        5075+         DC    0H'0',QL2(HA$QCSY1) GENERATE OCON                        OC014000
00046E 0830                        5076+         DC    AL1(CODI-HASPCSY1),AL1($DI*16+0)                         C0160000
000470 C4C9                        5077+         DC    CL2'DI'                                                  C0166000
                                   5078          $COMTAB DJ,HASPCJB2,REDIR=$DJ  DISPLAY JOB                     C2634000

000000                             5079+HA$QCJB2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000472                             5080+HA$OCOME CSECT                                                          OC012000

000472 0000                        5081+         DC    0H'0',QL2(HA$QCJB2) GENERATE OCON                        OC014000

000474 0C40                        5082+         DC    AL1(CODJ-HASPCJB2),AL1($DJ*16+0)                         C0160000
000476 C4D1                        5083+         DC    CL2'DJ'                                                  C0166000
                                   5084          $COMTAB DL,HASPCMS1,REDIR=$DL  DISPLAY LINE                    C2636000
000000                             5085+HA$QCMS1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000478                             5086+HA$OCOME CSECT                                                          OC012000
000478 0000                        5087+         DC    0H'0',QL2(HA$QCMS1) GENERATE OCON                        OC014000
00047A 0A50                        5088+         DC    AL1(CODL-HASPCMS1),AL1($DL*16+0)                         C0160000
00047C C4D3                        5089+         DC    CL2'DL'                                                  C0166000
                                   5090          $COMTAB DM,HASPCRM1       DISPLAY MESSAGE                      C2638000
000000                             5091+HA$QCRM1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
00047E                             5092+HA$OCOME CSECT                                                          OC012000
00047E 0000                        5093+         DC    0H'0',QL2(HA$QCRM1) GENERATE OCON                        OC014000

000480 0800                        5094+         DC    AL1(CODM-HASPCRM1),AL1(0*16+0)                           C0160000
000482 C4D4                        5095+         DC    CL2'DM'                                                  C0166000
                            00482  5096 COMDM    EQU   *-2                                                      C2639000

                                   5097          $COMTAB DN,HASPCJB1,REDIR=$DN  DISPLAY INFO. ON Q'D JOBS       C2640000
000000                             5098+HA$QCJB1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000484                             5099+HA$OCOME CSECT                                                          OC012000
000484 0000                        5100+         DC    0H'0',QL2(HA$QCJB1) GENERATE OCON                        OC014000
000486 0C70                        5101+         DC    AL1(CODN-HASPCJB1),AL1($DN*16+0)                         C0160000
000488 C4D5                        5102+         DC    CL2'DN'                                                  C0166000
                                   5103          $COMTAB DO,HASPCMS1,REDIR=$DO  DISPLAY OPERATOR REQUESTS       C2641000
000000                             5104+HA$QCMS1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
00048A                             5105+HA$OCOME CSECT                                                          OC012000
00048A 0000                        5106+         DC    0H'0',QL2(HA$QCMS1) GENERATE OCON                        OC014000
00048C 0C60                        5107+         DC    AL1(CODO-HASPCMS1),AL1($DO*16+0)                         C0160000
00048E C4D6                        5108+         DC    CL2'DO'                                                  C0166000

                                   5109          $COMTAB DQ,HASPCJB1,REDIR=$DQ  DISPLAY NUMBER OF Q'D JOBS      C2642000
000000                             5110+HA$QCJB1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000490                             5111+HA$OCOME CSECT                                                          OC012000
000490 0000                        5112+         DC    0H'0',QL2(HA$QCJB1) GENERATE OCON                        OC014000

000492 0E70                        5113+         DC    AL1(CODQ-HASPCJB1),AL1($DQ*16+0)                         C0160000
000494 C4D8                        5114+         DC    CL2'DQ'                                                  C0166000
COMM     HASP COMMAND PROCESSOR SELECTION TABLE                                                                PAGE  115


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5115          AIF   (&NUMLNES EQ 0).CDRM                                     C2643000
                                   5116 .CDRM    ANOP                                                           C2645000

                                   5117          $COMTAB DS,HASPCRM2,REDIR=$DS  DISPLAY SPECIAL ROUTINGS        C2645500
000000                             5118+HA$QCRM2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000496                             5119+HA$OCOME CSECT                                                          OC012000
000496 0000                        5120+         DC    0H'0',QL2(HA$QCRM2) GENERATE OCON                        OC014000
000498 0080                        5121+         DC    AL1(CODS-HASPCRM2),AL1($DS*16+0)                         C0160000
00049A C4E2                        5122+         DC    CL2'DS'                                                  C0166000
                                   5123          $COMTAB DU,HASPCMS1,REDIR=$DU  DISPLAY UNITS                   C2646000
000000                             5124+HA$QCMS1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000

00049C                             5125+HA$OCOME CSECT                                                          OC012000
00049C 0000                        5126+         DC    0H'0',QL2(HA$QCMS1) GENERATE OCON                        OC014000

00049E 1090                        5127+         DC    AL1(CODU-HASPCMS1),AL1($DU*16+0)                         C0160000
0004A0 C4E4                        5128+         DC    CL2'DU'                                                  C0166000
                                   5129          $COMTAB E7D,HASPCJB3,REJECT=COMRMT+COMJ+COMS RESTART JOB       C2647000
000000                             5130+HA$QCJB3 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004A2                             5131+HA$OCOME CSECT                                                          OC012000
0004A2 0000                        5132+         DC    0H'0',QL2(HA$QCJB3) GENERATE OCON                        OC014000
0004A4 000D                        5133+         DC    AL1(COE7D-HASPCJB3),AL1(0*16+COMRMT+COMJ+COMS)           C0160000
0004A6 C57D                        5134+         DC    CL1'E',X'7D'                                             C0180000

                                   5135          $COMTAB EJ,HASPCJB4,REJECT=COMRMT+COMJ+COMS RESTART JOB        C2647500
000000                             5136+HA$QCJB4 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004A8                             5137+HA$OCOME CSECT                                                          OC012000
0004A8 0000                        5138+         DC    0H'0',QL2(HA$QCJB4) GENERATE OCON                        OC014000
0004AA 000D                        5139+         DC    AL1(COEJ-HASPCJB4),AL1(0*16+COMRMT+COMJ+COMS)            C0160000

0004AC C5D1                        5140+         DC    CL2'EJ'                                                  C0166000
                                   5141          $COMTAB E,HASPCDV1,REJECT=COMD           RESTART DEVICE        C2648000
000000                             5142+HA$QCDV1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000

0004AE                             5143+HA$OCOME CSECT                                                          OC012000
0004AE 0000                        5144+         DC    0H'0',QL2(HA$QCDV1) GENERATE OCON                        OC014000
0004B0 0C02                        5145+         DC    AL1(COE-HASPCDV1),AL1(0*16+COMD)                         C0160000
0004B2 C5FF                        5146+         DC    CL1'E',X'FF'                                             C0170000
                                   5147          $COMTAB F,HASPCDV1,REJECT=COMD           FORWARDSPACE DEVICE   C2650000
000000                             5148+HA$QCDV1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004B4                             5149+HA$OCOME CSECT                                                          OC012000

0004B4 0000                        5150+         DC    0H'0',QL2(HA$QCDV1) GENERATE OCON                        OC014000
0004B6 0E02                        5151+         DC    AL1(COF-HASPCDV1),AL1(0*16+COMD)                         C0160000
0004B8 C6FF                        5152+         DC    CL1'F',X'FF'                                             C0170000
                                   5153          $COMTAB H7D,HASPCJB3,REJECT=COMJ HOLD JOB BY NAME              C2651000
000000                             5154+HA$QCJB3 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000

0004BA                             5155+HA$OCOME CSECT                                                          OC012000
0004BA 0000                        5156+         DC    0H'0',QL2(HA$QCJB3) GENERATE OCON                        OC014000
0004BC 0004                        5157+         DC    AL1(COH7D-HASPCJB3),AL1(0*16+COMJ)                       C0160000
0004BE C87D                        5158+         DC    CL1'H',X'7D'                                             C0180000

                                   5159          $COMTAB HA,HASPCJB1,REJECT=COMRMT+COMJ   HOLD ALL JOBS         C2652000
000000                             5160+HA$QCJB1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004C0                             5161+HA$OCOME CSECT                                                          OC012000
0004C0 0000                        5162+         DC    0H'0',QL2(HA$QCJB1) GENERATE OCON                        OC014000
0004C2 100C                        5163+         DC    AL1(COHA-HASPCJB1),AL1(0*16+COMRMT+COMJ)                 C0160000
0004C4 C8C1                        5164+         DC    CL2'HA'                                                  C0166000

                                   5165          $COMTAB HJ,HASPCJB2,REJECT=COMJ          HOLD JOB              C2654000
000000                             5166+HA$QCJB2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004C6                             5167+HA$OCOME CSECT                                                          OC012000
0004C6 0000                        5168+         DC    0H'0',QL2(HA$QCJB2) GENERATE OCON                        OC014000
0004C8 0E04                        5169+         DC    AL1(COHJ-HASPCJB2),AL1(0*16+COMJ)                        C0160000

COMM     HASP COMMAND PROCESSOR SELECTION TABLE                                                                PAGE  116


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0004CA C8D1                        5170+         DC    CL2'HJ'                                                  C0166000
                                   5171          $COMTAB I,HASPCDV1,REJECT=COMD           INTERRUPT DEVICE      C2656000
000000                             5172+HA$QCDV1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000

0004CC                             5173+HA$OCOME CSECT                                                          OC012000
0004CC 0000                        5174+         DC    0H'0',QL2(HA$QCDV1) GENERATE OCON                        OC014000
0004CE 1002                        5175+         DC    AL1(COI-HASPCDV1),AL1(0*16+COMD)                         C0160000
0004D0 C9FF                        5176+         DC    CL1'I',X'FF'                                             C0170000
                                   5177          $COMTAB N,HASPCDV1,REJECT=COMD           REPEAT DEVICE ACTVY.  C2658000

000000                             5178+HA$QCDV1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004D2                             5179+HA$OCOME CSECT                                                          OC012000
0004D2 0000                        5180+         DC    0H'0',QL2(HA$QCDV1) GENERATE OCON                        OC014000
0004D4 1202                        5181+         DC    AL1(CON-HASPCDV1),AL1(0*16+COMD)                         C0160000
0004D6 D5FF                        5182+         DC    CL1'N',X'FF'                                             C0170000

                                   5183          $COMTAB P7D,HASPCJB3,REJECT=COMJ STOP JOB BY NAME              C2659000
000000                             5184+HA$QCJB3 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004D8                             5185+HA$OCOME CSECT                                                          OC012000
0004D8 0000                        5186+         DC    0H'0',QL2(HA$QCJB3) GENERATE OCON                        OC014000
0004DA 0004                        5187+         DC    AL1(COP7D-HASPCJB3),AL1(0*16+COMJ)                       C0160000
0004DC D77D                        5188+         DC    CL1'P',X'7D'                                             C0180000

                                   5189          $COMTAB PI,HASPCSY1,REJECT=COMRMT+COMS   STOP INITIATOR        C2660000
000000                             5190+HA$QCSY1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004DE                             5191+HA$OCOME CSECT                                                          OC012000
0004DE 0000                        5192+         DC    0H'0',QL2(HA$QCSY1) GENERATE OCON                        OC014000

0004E0 0A09                        5193+         DC    AL1(COPI-HASPCSY1),AL1(0*16+COMRMT+COMS)                 C0160000
0004E2 D7C9                        5194+         DC    CL2'PI'                                                  C0166000
                                   5195          $COMTAB PJ,HASPCJB2,REJECT=COMJ          STOP JOB              C2662000
000000                             5196+HA$QCJB2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004E4                             5197+HA$OCOME CSECT                                                          OC012000

0004E4 0000                        5198+         DC    0H'0',QL2(HA$QCJB2) GENERATE OCON                        OC014000
0004E6 1004                        5199+         DC    AL1(COPJ-HASPCJB2),AL1(0*16+COMJ)                        C0160000
0004E8 D7D1                        5200+         DC    CL2'PJ'                                                  C0166000
                                   5201          $COMTAB P40,HASPCSY1,REJECT=COMRMT+COMS  STOP SYSTEM           C2664000
000000                             5202+HA$QCSY1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004EA                             5203+HA$OCOME CSECT                                                          OC012000

0004EA 0000                        5204+         DC    0H'0',QL2(HA$QCSY1) GENERATE OCON                        OC014000
0004EC 1009                        5205+         DC    AL1(COP40-HASPCSY1),AL1(0*16+COMRMT+COMS)                C0160000
0004EE D740                        5206+         DC    CL1'P',X'40'                                             C0180000
                                   5207          $COMTAB PH,HASPCSY2,REJECT=COMRMT+COMS   STOP SYSTEM           C2666000

000000                             5208+HA$QCSY2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004F0                             5209+HA$OCOME CSECT                                                          OC012000
0004F0 0000                        5210+         DC    0H'0',QL2(HA$QCSY2) GENERATE OCON                        OC014000
0004F2 0009                        5211+         DC    AL1(COPH-HASPCSY2),AL1(0*16+COMRMT+COMS)                 C0160000
0004F4 D7C8                        5212+         DC    CL2'PH'                                                  C0166000

                                   5213          $COMTAB P,HASPCDV1,REJECT=COMD           STOP (DRAIN) DEVICE   C2668000
000000                             5214+HA$QCDV1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004F6                             5215+HA$OCOME CSECT                                                          OC012000
0004F6 0000                        5216+         DC    0H'0',QL2(HA$QCDV1) GENERATE OCON                        OC014000
0004F8 1402                        5217+         DC    AL1(COP-HASPCDV1),AL1(0*16+COMD)                         C0160000
0004FA D7FF                        5218+         DC    CL1'P',X'FF'                                             C0170000
                                   5219          $COMTAB R,HASPCRM1,REJECT=COMJ           ROUTE JOB OUTPUT      C2670000

000000                             5220+HA$QCRM1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
0004FC                             5221+HA$OCOME CSECT                                                          OC012000
0004FC 0000                        5222+         DC    0H'0',QL2(HA$QCRM1) GENERATE OCON                        OC014000

0004FE 0A04                        5223+         DC    AL1(COR-HASPCRM1),AL1(0*16+COMJ)                         C0160000
000500 D9FF                        5224+         DC    CL1'R',X'FF'                                             C0170000
COMM     HASP COMMAND PROCESSOR SELECTION TABLE                                                                PAGE  117


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5225          $COMTAB SI,HASPCSY1,REJECT=COMRMT+COMS   START INITIATOR       C2672000

000000                             5226+HA$QCSY1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000502                             5227+HA$OCOME CSECT                                                          OC012000
000502 0000                        5228+         DC    0H'0',QL2(HA$QCSY1) GENERATE OCON                        OC014000
000504 0C09                        5229+         DC    AL1(COSI-HASPCSY1),AL1(0*16+COMRMT+COMS)                 C0160000
000506 E2C9                        5230+         DC    CL2'SI'                                                  C0166000
                                   5231          $COMTAB S40,HASPCSY1,REJECT=COMRMT+COMS  START SYSTEM          C2674000
000000                             5232+HA$QCSY1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000508                             5233+HA$OCOME CSECT                                                          OC012000

000508 0000                        5234+         DC    0H'0',QL2(HA$QCSY1) GENERATE OCON                        OC014000
00050A 1209                        5235+         DC    AL1(COS40-HASPCSY1),AL1(0*16+COMRMT+COMS)                C0160000

00050C E240                        5236+         DC    CL1'S',X'40'                                             C0180000
                                   5237          $COMTAB S,&CDV2,REJECT=COMD              START DEVICE          C2676000
000000                             5238+HA$QCDV2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
00050E                             5239+HA$OCOME CSECT                                                          OC012000
00050E 0000                        5240+         DC    0H'0',QL2(HA$QCDV2) GENERATE OCON                        OC014000

000510 0002                        5241+         DC    AL1(COS-HASPCDV2),AL1(0*16+COMD)                         C0160000
000512 E2FF                        5242+         DC    CL1'S',X'FF'                                             C0170000
                                   5243          AIF   (NOT &FCBV).CTFN2                                        C2676500
                                   5244 .CTFN2   ANOP                                                           C2677500
                                   5245          $COMTAB TI,HASPCSY1,REJECT=COMRMT+COMS   SET INITIATOR         C2678000
000000                             5246+HA$QCSY1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000514                             5247+HA$OCOME CSECT                                                          OC012000
000514 0000                        5248+         DC    0H'0',QL2(HA$QCSY1) GENERATE OCON                        OC014000
000516 0E09                        5249+         DC    AL1(COTI-HASPCSY1),AL1(0*16+COMRMT+COMS)                 C0160000

000518 E3C9                        5250+         DC    CL2'TI'                                                  C0166000

                                   5251          $COMTAB TJ,HASPCJ3A,REJECT=COMRMT+COMJ   SETJOBNO. CLASS PRIO  C2680000
000000                             5252+HA$QCJ3A DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
00051A                             5253+HA$OCOME CSECT                                                          OC012000
00051A 0000                        5254+         DC    0H'0',QL2(HA$QCJ3A) GENERATE OCON                        OC014000
00051C 000C                        5255+         DC    AL1(COTJ-HASPCJ3A),AL1(0*16+COMRMT+COMJ)                 C0160000

00051E E3D1                        5256+         DC    CL2'TJ'                                                  C0166000
                                   5257          $COMTAB TM,HASPCSY3,REJECT=COMRMT+COMS   SET MSG ROUTING       C2681000
000000                             5258+HA$QCSY3 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000520                             5259+HA$OCOME CSECT                                                          OC012000
000520 0000                        5260+         DC    0H'0',QL2(HA$QCSY3) GENERATE OCON                        OC014000
000522 0009                        5261+         DC    AL1(COTM-HASPCSY3),AL1(0*16+COMRMT+COMS)                 C0160000
000524 E3D4                        5262+         DC    CL2'TM'                                                  C0166000
                                   5263          $COMTAB T,&CDV3                          SET DEVICE            C2682000
000000                             5264+HA$QCDV3 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000526                             5265+HA$OCOME CSECT                                                          OC012000

000526 0000                        5266+         DC    0H'0',QL2(HA$QCDV3) GENERATE OCON                        OC014000

000528 0800                        5267+         DC    AL1(COT-HASPCDV3),AL1(0*16+0)                            C0160000
00052A E3FF                        5268+         DC    CL1'T',X'FF'                                             C0170000
                                   5269 COMTABE  $COMTAB Z,&CDV3,REJECT=COMD              HALT (STOP) DEVICE    C2684000
000000                             5270+HA$QCDV3 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000

00052C                             5271+HA$OCOME CSECT                                                          OC012000
00052C 0000                        5272+COMTABE  DC    0H'0',QL2(HA$QCDV3) GENERATE OCON                        OC014000
00052E 0A02                        5273+         DC    AL1(COZ-HASPCDV3),AL1(0*16+COMD)                         C0160000
000530 E9FF                        5274+         DC    CL1'Z',X'FF'                                             C0170000
COMM     HASP COMMAND PROCESSOR SELECTION TABLE                                                                PAGE  118


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5276 *                                                                       C2688000
                                   5277 *        SYMBOLS TO DEFINE COMMAND TABLE ELEMENT FIELDS                 C2690000
                                   5278 *                                                                       C2692000
                            00006  5279 COMTEL   EQU   6                   LENGTH OF COMMAND TABLE ELMT.        C2694000
                            00002  5280 COMTOFF  EQU   *-4-COMTABE         LOCATION OF ENTRY OFFSET             C2696000

                            00003  5281 COMTFL   EQU   *-3-COMTABE         LOCATION OF FLAGS WITHIN ELEMENT     C2698000
                            00004  5282 COMTVB   EQU   *-2-COMTABE         LOCATION OF VERB WITHIN ELEMENT      C2700000
                            00008  5283 COMRMT   EQU   WCMBFG              LEVEL OF RESTRICTION FOR REMOTES     C2702000
                            00001  5284 COMS     EQU   DCTREJSY            REJECT UNLESS SYSTEM AUTHORIZATION   C2704000

                            00002  5285 COMD     EQU   DCTREJDV            REJECT UNLESS DEVICE AUTHORIZATION   C2706000
                            00004  5286 COMJ     EQU   DCTREJJB            REJECT UNLESS JOB AUTHORIZATION      C2708000
                            00007  5287 COMJDS   EQU   COMJ+COMD+COMS      COMBINATION                          C2710000
COMM     HASP COMMAND PROCESSOR KNOWN COMMANDS                                                                 PAGE  119


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5289 *********************************************************************** C2714000
                                   5290 *                                                                     * C2716000
                                   5291 *        COMMAND SUB-PROCESSOR CONVENTIONS                            * C2718000
                                   5292 *                                                                     * C2720000
                                   5293 * CONTENTS OF REGISTERS UPON ENTRY TO EACH COMMAND SUB-PROCESSOR      * C2722000
                                   5294 *                                                                     * C2724000
                                   5295 *        R0    = UNPREDICTABLE                                        * C2726000

                                   5296 *        R1    = ENTRY POINTER OFFSET - RELATIVE ENTRY POINT          * C2728000
                                   5297 *        WA    = UNPREDICTABLE                                        * C2730000
                                   5298 *        WB    = UNPREDICTABLE                                        * C2732000

                                   5299 *        WC    = UNPREDICTABLE                                        * C2734000
                                   5300 *        WD    = FIRST OPERAND POINTER ( IF ZERO NO OPERAND )         * C2736000
                                   5301 *        WE    = COUNT OF 4                                           * C2738000
                                   5302 *        WF    = LAST OPERAND POINTER ( SET FOR BXLE WD,WE,... )      * C2740000
                                   5303 *        WG    = BASE FOR COMMAND SUB-PROCESSOR                       * C2742000
                                   5304 *        BASE1 = HCTDSECT                                             * C2744000
                                   5305 *        BASE2 = BEGINNING OF MAIN COMMAND PROCESSOR                  * C2746000
                                   5306 *        SAVE  = PCE OF COMMAND PROCESSOR                             * C2748000
                                   5307 *        LINK  = UNPREDICTABLE                                        * C2750000
                                   5308 *        R15   = UNPREDICTABLE                                        * C2752000
                                   5309 *                                                                     * C2754000
                                   5310 * EXAMPLE EDIT OF COMMAND TEXT BEFORE ENTRY TO SUB-COMMAND PROCESSOR  * C2756000

                                   5311 *                                                                     * C2758000

                                   5312 * ORIGIONAL IN $WTO BUFFER  ( S OVER CHARACTER = LOWER CASE )         * C2760000
                                   5313 *                                                                     * C2762000

                                   5314 *         S  S S S    S S S    S    S    S                            * C2764000
                                   5315 *        $V  A B C, ' A B,C '' D ', D '' E                            * C2766000
                                   5316 *                                                                     * C2768000
                                   5317 * FORM PASSED TO COMMAND SUB-PROCESSOR                                * C2770000
                                   5318 *                                                                     * C2772000
                                   5319 *                                                                     * C2774000
                                   5320 *        $VABC,' A B,C ' D ',D'E                                      * C2776000
                                   5321 *          1   2             3   4                                    * C2778000
                                   5322 *                                                                     * C2780000
                                   5323 *        $ IS LOCATED AT PCECOMSG                                     * C2782000
                                   5324 *                                                                     * C2784000
                                   5325 *        V IS SINGLE CHARACTER FORM OF VERB                           * C2786000

                                   5326 *                                                                     * C2788000
                                   5327 *        WD POINTS TO FIRST OF OPERAND POINTER TABLE WHICH, IN THIS   * C2790000

                                   5328 *        EXAMPLE, CONTAINS FOUR WORDS OF ADDRESSES WHICH IN TERN      * C2792000

                                   5329 *        LOCATE THE BEGINNING OF EACH OPERAND ( INCLUDING A NULL      * C2794000
                                   5330 *        END OPERAND ). THESE LOCATIONS ARE DENOTED BY REFERANCE      * C2796000
                                   5331 *        POINTS 1, 2, 3, AND 4 RESPECTIVELY. USING BXLE WD,WE,...     * C2798000
                                   5332 *        INSTRUCTION WILL FALL THROUGH WITH WD POINTING TO COMNULOP   * C2800000
                                   5333 *                                                                     * C2802000
                                   5334 *********************************************************************** C2804000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  120


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5336 HASPCJB1 $COMGRUP AA,DA,DN,DQ,HA,PRTY=0 JOB QUEUE COMMANDS              C2808000
000538                             5337+HA$OCJB1 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            00538  5338+HA$ICJB1 EQU   HA$OCJB1+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   5339+         ENTRY HA$ICJB1                                                 OV036000

000538 C3D1C2F1                    5340+         DC    CL4'CJB1'           IDENTIFY MODULE ON CORE DUMP         OV038000
00053C 00000538                    5341+         DC    A(HA$OCJB1)         ASSEMBLY ORIGIN                      OV040000
000540                             5342+HASPCJB1 DS    0F                  ENTRY POINT                          OV042000

                            004E0  5343+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
000540 4811 8060      00540        5344+         LH    R1,HASPCJB1(R1)     PICK UP TABLE OFFSET                 C0118000
000544 47F1 8060      00540        5345+         B     HASPCJB1(R1)        GO TO ROUTINE SELECTED               C0128000
000548 0012                        5346+COAA             DC AL2(CAA-HASPCJB1)                                   C0134000
00054A 0074                        5347+CODA             DC AL2(CDA-HASPCJB1)                                   C0134000
00054C 024C                        5348+CODN             DC AL2(CDN-HASPCJB1)                                   C0134000
00054E 0254                        5349+CODQ             DC AL2(CDQ-HASPCJB1)                                   C0134000
000550 0308                        5350+COHA             DC AL2(CHA-HASPCJB1)                                   C0134000
                                   5351 *********************************************************************** C2810000
                                   5352 *                                                                     * C2812000
                                   5353 *        $A A -- RELEASE ALL JOBS IN JOB QUEUE HELD BY $H A           * C2814000
                                   5354 *                                                                     * C2816000

                                   5355 *        $RELEASE A                                                   * C2818000
                                   5356 *                                                                     * C2820000
                                   5357 *********************************************************************** C2822000
                                   5358 CAA      $CFJSCAN PROCESS=CAAPRO,EMPTY=CAANONE,NEXT=CAANXT,            CC2824000

                                                       IGNORE=CAAIGN       SCAN JOB QUEUE FOR HELD JOBS         C2826000
                                   5359+* SCAN JOB QUEUE FOR SELECTED JOBS                                      C1672000
000552 4110 B140      00140        5360+CAA      LA    R1,$JQENT-QUECHAIN  LOCATE HEAD OF JOB CHAIN             C1674000
000556 9200 D044      00044        5361+         MVI   PCEBASE2,X'00'      SET FOUND SWITCH OFF                 C1678000
00055A 47F0 8082      00562        5362+         B     *+8                 SKIP OVER SWITCH SETTING             C1680000
00055E 9280 D044      00044        5363+CAANXT   MVI   PCEBASE2,X'80'      SET FOUND SWITCH ON                  C1682000

000562 58C0 D044      00044        5364+         L     BASE2,PCEBASE2      SET SWITCH INTO REGISTER             C1684000
000566 5810 1004      00004        5365+CAAIGN   L     R1,QUECHAIN(0,R1)   PICK UP NEXT ENTRY              RFIT C1694000
00056A 4110 1000      00000        5366+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1694100
00056E 1211                        5367+         LTR   R1,R1                   SET CONDITION CODE          RFIT C1694200
000570 4770 80C4      005A4        5368+         BNE   CAAPRO                                                   C1700000
000574 12CC                        5369+         LTR   BASE2,BASE2         IF END EXIT, NO ENTRIES PROCESSED    C1704000
000576 4720 80B2      00592        5370+         BP    CAANONE                                                  C1706000
                                   5371          $POST $HASPECF,JOB-$EWFJOT ALLOW OTHERS TO CLAIM               C2828000

00057A 94EE B0C4      000C4        5372+         NI    $HASPECF,255-$EWFJOB-$EWFJOT                             PO008000
00057E 5820 C0EC      000EC        5373 CAAPST   L     WA,CAACKPT          PICK UP CHECK POINT PROCESSOR        C2830000

                                   5374          $POST PCEEWF+$EWBWORK-PCEDSECT(WA),WORK POST CHECK POINT       C2832000
000582 94DF 2049      00049        5375+         NI    PCEEWF+$EWBWORK-PCEDSECT(WA),255-$EWFWORK                PO008000
000586 947F B0C4      000C4        5376+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   5377          $CRET MSG=OK              RETURN WITH OK                       C2834000
00058A                             5378+         DS    0H                                                       NU006000
00058A 41F0 0004      00004        5379+         LA    R15,CORTOK          RETURN AND ISSUE OK MESSAGE          C0264000
00058E 45E0 B088      00088        5380+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   5381 CAANONE  $CRET MSG=CAAQNH,L=CAAML  RETURN WITH DIAGNOSTIC               C2836000

000592                             5382+CAANONE  DS    0H                                                       NU006000
000592 4100 000E      0000E        5383+         LA    R0,CAAML                                                 C0230000
000596 D20D D068 8394 00068 00874  5384+         MVC   COMMAND(CAAML),CAAQNH                                    C0248000
00059C 41F0 0008      00008        5385+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
0005A0 45E0 B088      00088        5386+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000

0005A4 9180 1004      00004        5387 CAAPRO   TM    QUEFLAGS(R1),QUEHOLDA IS HOLD QUEUE ON                   C2838000
0005A8 4780 8086      00566        5388          BZ    CAAIGN              IGNORE IF NOT                        C2840000
0005AC 947F 1004      00004        5389          NI    QUEFLAGS(R1),255-QUEHOLDA RELEASE QUEUE HELD JOB ONLY    C2842000

COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  121


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0005B0 47F0 807E      0055E        5390          B     CAANXT              LOOK AT NEXT JOB                     C2844000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  122


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5392 *********************************************************************** C2848000
                                   5393 *                                                                     * C2850000

                                   5394 *        $D A -- DISPLAY ACTIVE JOBS                                  * C2852000
                                   5395 *                                                                     * C2854000
                                   5396 *        $STATUS                                                      * C2856000
                                   5397 *                                                                     * C2858000
                                   5398 *********************************************************************** C2860000

                                   5399 CDA      $CFJSCAN PROCESS=CDAPRO,EMPTY=CDANONE,NEXT=CDANXT,            CC2862000
                                                       IGNORE=CDAIGN       SCAN JOB QUEUE FOR ACTIVE JOBS       C2864000
                                   5400+* SCAN JOB QUEUE FOR SELECTED JOBS                                      C1672000
0005B4 4110 B140      00140        5401+CDA      LA    R1,$JQENT-QUECHAIN  LOCATE HEAD OF JOB CHAIN             C1674000

0005B8 9200 D044      00044        5402+         MVI   PCEBASE2,X'00'      SET FOUND SWITCH OFF                 C1678000
0005BC 47F0 80E4      005C4        5403+         B     *+8                 SKIP OVER SWITCH SETTING             C1680000
0005C0 9280 D044      00044        5404+CDANXT   MVI   PCEBASE2,X'80'      SET FOUND SWITCH ON                  C1682000
0005C4 58C0 D044      00044        5405+         L     BASE2,PCEBASE2      SET SWITCH INTO REGISTER             C1684000
0005C8 5810 1004      00004        5406+CDAIGN   L     R1,QUECHAIN(0,R1)   PICK UP NEXT ENTRY              RFIT C1694000
0005CC 4110 1000      00000        5407+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1694100

0005D0 1211                        5408+         LTR   R1,R1                   SET CONDITION CODE          RFIT C1694200
0005D2 4770 8104      005E4        5409+         BNE   CDAPRO                                                   C1700000
0005D6 12CC                        5410+         LTR   BASE2,BASE2         IF END EXIT, NO ENTRIES PROCESSED    C1704000
0005D8 4720 8282      00762        5411+         BP    CDANONE                                                  C1706000
                                   5412          $CRET ,                   RETURN                               C2866000

0005DC                             5413+         DS    0H                                                       NU006000
0005DC 41F0 0000      00000        5414+         LA    R15,CORTNORM        NORMAL RETURN                        C0268000
0005E0 45E0 B088      00088        5415+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
0005E4 1851                        5416 CDAPRO   LR    WD,R1               SAVE QUEUE ADDRESS                   C2868000
                                   5417          $CFJMSG CVE=CDACVE,OPT=A  DISPLAY ACTIVE JOBS                  C2870000

0005E6 4120 824A      0072A        5418+         LA    WA,COF0215Z         POINT TO EXIT                        C1445000
                                   5419+* MOVE 'JOB' AND NUMBER INTO MESSAGE AREA                               C1448000
0005EA D202 D068 8224 00068 00704  5420+         MVC   COMMAND(3),COF0215L PLACE 'JOB' INTO MESSAGE AREA        C1450000
0005F0 4800 1002      00002        5421+         LH    R0,QUEJOBNO(0,R1)                                        DG012000
0005F4 45E0 8294      00774        5422+         BAL   LINK,CDACVE                                              C0674000

0005F8 D204 D06B D060 0006B 00060  5423+         MVC   COMMAND+3(COMJBLEN+1),COMDWORK-COMJBLEN+4 SET NUMBER     C1454000
0005FE 9240 D070      00070        5424+         MVI   COMMAND+4+COMJBLEN,C' ' BLANK OUT MESSAGE AREA           C1458000
000602 D22C D071 D070 00071 00070  5425+         MVC   COMMAND+5+COMJBLEN(45),COMMAND+4+COMJBLEN                C1460000
                                   5426+* MOVE JOB NAME FROM JIT                                                C1464000
000608 45E0 B060      00060        5427+         BAL   LINK,$QJITLOC       LOCATE JOB NAME ( R0 POINTS )        C1466000

00060C 18F0                        5428+         LR    R15,R0              PREPARE FOR MOVE                     C1468000
00060E D207 D071 F000 00071 00000  5429+         MVC   COMMAND+5+COMJBLEN(8),JITJNAME(R15) MOVE NAME            C1470000
                                   5430+* BUILD END OF JOB INFORMATION MESSAGE                                  C1473000
000614 D203 D086 8234 00086 00714  5431+         MVC   COMMAND+30(4),COF0215S SET 'PRIO'                        C1474000
00061A 1B00                        5432+         SR    R0,R0               ZERO WORK                            C1475000

00061C 4300 1000      00000        5433+         IC    R0,QUEPRIO(0,R1)    GET JOB PRIORITY                     C1476000
000620 8A00 0004      00004        5434+         SRA   R0,4                ALIGN                                C1477000
000624 45E0 8294      00774        5435+         BAL   LINK,CDACVE                                              C0674000
000628 D201 D08B D063 0008B 00063  5436+         MVC   COMMAND+30+5(2),COMDWORK+3 SET PRIORITY                  C1479000
00062E 91F0 1004      00004        5437+         TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1+QUEHOLD2+QUEPURGE         C1480000

000632 4780 8178      00658        5438+         BZ    COF0215A            BRANCH IF NO SPECIAL CONDITIONS      C1481000
000636 D203 D08E 8238 0008E 00718  5439+         MVC   COMMAND+38(4),COF0215T  SET 'HOLD'                       C1482000
00063C 91C0 1004      00004        5440+         TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1 IS IT HELD                C1483000
000640 4770 8178      00658        5441+         BNZ   COF0215A            BRANCH IF HELD                       C1484000
000644 D204 D08E 823C 0008E 0071C  5442+         MVC   COMMAND+38(5),COF0215U SET 'PURGE'                       C1485000

00064A 9110 1004      00004        5443+         TM    QUEFLAGS(R1),QUEPURGE IS IT FLAGGED FOR PURGE            C1486000
00064E 4710 8178      00658        5444+         BO    COF0215A            BRANCH IF YES                        C1487000
000652 D208 D08E 8241 0008E 00721  5445+         MVC   COMMAND+38(9),COF0215V SET 'DUPLICATE'                   C1488000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  123


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000658                             5446+COF0215A DS    0H                                                       C1489000

                                   5447+* DETERMINE NORMAL QUEUE ACTIVITY                                       C1490000
000658 9140 1001      00001        5448+         TM    QUETYPE(R1),$XEQ    TEST FOR EXECUTION                   C1493000
00065C 4710 8208      006E8        5449+         BO    COF0215F            EXIT IF EXECUTION                    C1494000
                                   5450+* DETERMINE DEVICE ACTIVITY                                             C1495000

000660 D201 D0A0 1002 000A0 00002  5451+         MVC   COMMAND+56(2),QUEJOBNO(R1) SAVE JOB NUMBER               C1496000
000666 41E0 81CC      006AC        5452+         LA    LINK,COF0227Z       POINT TO EXIT                        C1301000
00066A 5010 D05C      0005C        5453+         ST    R1,COMEWORK         SET JOB QUEUE LOCATION FOR COMPARE   C1302000
00066E 4110 B0DC      000DC        5454+         LA    R1,$DCTPOOL-DCTCHAIN+DCTDSECT POINT TO HEAD OF DCTS      C1304000
000672                             5455+COF0215  DS    0H                  CONTINUE                             C1306000

000672 5810 1014      00014        5456+COF0227L L     R1,DCTCHAIN-DCTDSECT(0,R1) NEXT DCT                 RFIT C1308000
000676 4110 1000      00000        5457+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1308100
00067A 1211                        5458+         LTR   R1,R1                                               RFIT C1308200
00067C 078E                        5459+         BCR   Z,LINK              EXIT IF END OF CHAIN                 C1320000
00067E 9130 1012      00012        5460+         TM    DCTDEVTP-DCTDSECT(R1),DCTPUN TEST DCT CLASS              C1322000
                                   5461+* TEST INCLUDES READER, PRINTER, AND PUNCH DEVICES                      C1324000
000682 4780 8192      00672        5462+         BZ    COF0227L           GET NEXT DCT IF NOT CORRECT CLASS     C1326000

000686 9180 1000      00000        5463+         TM    DCTSTAT-DCTDSECT(R1),DCTINUSE IS DCT IN USE              C1328000
00068A 4780 8192      00672        5464+         BZ    COF0227L           GET NEXT DCT IF NOT                   C1330000
00068E 58F0 1000      00000        5465+         L     R15,DCTPCE-DCTDSECT(0,R1) PICK UP PCE                    C1332000

000692 9120 1012      00012        5466+         TM    DCTDEVTP-DCTDSECT(R1),DCTPRT IS IT PRINT OR PUNCH        C1334000
000696 4710 81BE      0069E        5467+         BO    *+8                 IF YES, SKIP NEXT INSTRUCTION        C1336000
00069A 41F0 F058      00058        5468+         LA    R15,RJOB-PJOB(0,R15) OFFSET PCE POINTER                  C1338000
00069E D502 F061 D05D 00061 0005D  5469+         CLC   PJOB+1-PCEDSECT(3,R15),COMEWORK+1 CHECK FOR SAME JOB     C1340000
0006A4 4770 8192      00672        5470+         BNE   COF0227L           GET NEXT DCT IF NOT SAME JOB          C1342000

0006A8 47F0 E004      00004        5471+         B     4(0,LINK)           RETURN                               C1346000
0006AC                             5472+COF0227Z DS    0H                  ERROR EXIT                           C1352000
0006AC 47F0 2004      00004        5473+         B     4(0,WA)             EXIT WITHOUT DISPLAY                 C1501000
0006B0 D202 D07A 8227 0007A 00707  5474+         MVC   COMMAND+18(3),COF0215N SET 'ON '                         C1505000
0006B6 1F28                        5475+         SLR   WA,BASE3                                                 C2068000
                                   5476+* DEVICE FOUND - DISPLAY FOR ALL DEVICES                                C1507000
0006B8 D207 D07D 1018 0007D 00018  5477+COF0215B MVC   COMMAND+18+3(8),DCTDEVN-DCTDSECT(R1) SET DEVICE          C1508000
0006BE 9012 D060      00060        5478+         STM   R1,WA,COMDWORK      SAVE                                 C1509000

0006C2 4100 002F      0002F        5479+         LA    R0,47-(30-30)       SET LENGTH                           C1510000
0006C6                             5480+         DS    0H                                                       NU006000

0006C6 4520 C00C      0000C        5481+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
0006CA 5810 D05C      0005C        5482+         L     R1,COMEWORK         PICK UP JOB QUEUE POINTER            C1512000
0006CE D501 D0A0 1002 000A0 00002  5483+         CLC   COMMAND+56(2),QUEJOBNO(R1) SAME JOB NUMBER               C1513000
0006D4 9812 D060      00060        5484+         LM    R1,WA,COMDWORK      RESTORE                              C1514000
0006D8 4772 8000      00000        5485+         BNE   0(WA,BASE3)         EXIT IF NOT SAME                     C1515000

0006DC 45E0 8192      00672        5486+         BAL   LINK,COF0215                                             C1355800
0006E0 47F2 8000      00000        5487+         B     0(WA,BASE3)         EXIT                                 C1517000
0006E4 47F0 81D8      006B8        5488+         B     COF0215B            LOOP                                 C1518000
                                   5489+* DETERMINE EXECUTION QUEUE STATUS - DISPLAY AS APPROPRIATE             C1534000
0006E8 9180 1001      00001        5490+COF0215F TM    QUETYPE(R1),QENTBY  IS IT BUSY                           C1535000
0006EC 4780 2004      00004        5491+         BZ    4(0,WA)             EXIT IF NOT BUSY (NO DISPLAY)        C1540000
0006F0 D209 D07A 822A 0007A 0070A  5492+         MVC   COMMAND+18(10),COF0215R SET 'EXECUTING '                 C1550000
0006F6 D200 D084 1001 00084 00001  5493+         MVC   COMMAND+18+10(1),QUETYPE(R1) SET CLASS                   C1551000
0006FC 4100 002F      0002F        5494+         LA    R0,47-(30-30)       SET COUNT                            C1552000

000700                             5495+         DS    0H                                                       NU006000

000700 47F0 C00C      0000C        5496+         B     COWTO(0,BASE2)      REPLY TO OPERATOR                    C0350000
000704 D1D6C2                      5497+COF0215L DC    C'JOB'              JOB                                  C1622000
000707 D6D540                      5498+COF0215N DC    C'ON '              ON DEVICE                            C1628000
00070A C5E7C5C3E4E3C9D5            5499+COF0215R DC    C'EXECUTING '       AWAITING EXEC - EXECUTING            C1646000
000714 D7D9C9D6                    5500+COF0215S DC    C'PRIO'             PRIO                                 C1650000

COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  124


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000718 C8D6D3C4                    5501+COF0215T DC    C'HOLD'             HOLD                                 C1652000
00071C D7E4D9C7C5                  5502+COF0215U DC    C'PURGE'            PURGE                                C1654000
000721 C4E4D7D3C9C3C1E3            5503+COF0215V DC    C'DUPLICATE'        DUPLICATE                            C1656000
00072A                             5504+COF0215Z DS    0H                  END OF MESSAGE PREPARATION           C1660000
00072A 47F0 8254      00734        5505          B     CDABROK             CHECK FOR QUEUE UNBROKEN             C2872000
00072E 1815                        5506          LR    R1,WD               RESTORE SCAN POINTER                 C2873000
000730 47F0 80E8      005C8        5507          B     CDAIGN              IF NO DISPLAY LOOP TO IGNORE         C2874000
000734                             5508 CDABROK  DS    0H                                                       C2875000

                                   5509          $CFJSCAN PROCESS=CDACK,NEXT=CDACKNXT INSURE NO BREAK IN CHAIN  C2876000

                                   5510+* SCAN JOB QUEUE FOR SELECTED JOBS                                      C1672000
000734 4110 B140      00140        5511+         LA    R1,$JQENT-QUECHAIN  LOCATE HEAD OF JOB CHAIN             C1674000
000738                             5512+CDACKNXT DS    0H                                                       NU006000
000738 5810 1004      00004        5513+         L     R1,QUECHAIN(0,R1)   PICK UP NEXT ENTRY              RFIT C1694000

00073C 4110 1000      00000        5514+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1694100
000740 1211                        5515+         LTR   R1,R1                   SET CONDITION CODE          RFIT C1694200
000742 4770 8278      00758        5516+         BNE   CDACK                                                    C1700000
                                   5517          $CRET MSG=CDAMSG,L=15     SEND LIST INCOMPLETE                 C2878000
000746                             5518+         DS    0H                                                       NU006000
000746 4100 000F      0000F        5519+         LA    R0,15                                                    C0230000
00074A D20E D068 83B0 00068 00890  5520+         MVC   COMMAND(15),CDAMSG                                       C0248000
000750 41F0 0008      00008        5521+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
000754 45E0 B088      00088        5522+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
000758 1951                        5523 CDACK    CR    WD,R1               LOOK FOR STILL IN CHAIN              C2880000
00075A 4770 8258      00738        5524          BNE   CDACKNXT            LOOP UNTIL MATCH OR END              C2882000

00075E 47F0 80E0      005C0        5525          B     CDANXT              NEXT ENTRY                           C2884000
                                   5526 CDANONE  $CRET MSG=CDANOA,L=CDAML  RETURN WITH DIAGNOSTIC               C2886000
000762                             5527+CDANONE  DS    0H                                                       NU006000
000762 4100 000E      0000E        5528+         LA    R0,CDAML                                                 C0230000

000766 D20D D068 83A2 00068 00882  5529+         MVC   COMMAND(CDAML),CDANOA                                    C0248000
00076C 41F0 0008      00008        5530+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
000770 45E0 B088      00088        5531+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   5532 CDACVE   $CFCVE TYPE=DEF           CONVERT NUMBERS TO EBCDIC            C2888000
000774                             5533+CDACVE   DS    0H                                                       NU006000
                                   5534+* CONVERT TO EBCDIC AND LEAVE ANSWER IN COMDWORK ( 5 DIGITS )           C0684000
000774 4E00 D060      00060        5535+         CVD   R0,COMDWORK         CONVERT TO DECIMAL                   C0686000
000778 D205 D05F 82A6 0005F 00786  5536+         MVC   COMDWORK-1(6),COF0249 MOVE MASK TO BLANK OUT HIGH ZEROS  C0688000
00077E DE05 D05F D065 0005F 00065  5537+         ED    COMDWORK-1(6),COMDWORK+5 CONVERT TO EBCDIC               C0690000
000784 07FE                        5538+         BR    LINK                RETURN                               C0694000
000786 402020202120                5539+COF0249  DC    X'402020202120'     MASK FOR EDIT                        C0696000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  125



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5541 *********************************************************************** C2892000
                                   5542 *                                                                     * C2894000

                                   5543 *        $D N -- DISPLAY INFORMATION ON QUEUED JOBS                   * C2896000
                                   5544 *                                                                     * C2898000
                                   5545 *********************************************************************** C2900000
00078C 4140 01AA      001AA        5546 CDN      LA    WC,CDNCTR-CDQB      SET TO LIST IN FULL EACH JOB         C2902000
000790 47F0 82B8      00798        5547          B     CDQBREAK            ENTER COMMON CODE WITH $D Q          C2904000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  126


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5549 *********************************************************************** C2908000
                                   5550 *                                                                     * C2910000
                                   5551 *        $D Q -- DISPLAY JOB QUEUE                                    * C2912000
                                   5552 *                                                                     * C2914000
                                   5553 *        $BACKLOG                                                     * C2916000

                                   5554 *                                                                     * C2918000

                                   5555 *********************************************************************** C2920000
000794 4140 0336      00336        5556 CDQ      LA    WC,CDQCTR-CDQB      SET TO COUNT NUMBER OF JOBS          C2922000

                                   5557 *********************************************************************** C2924000
                                   5558 *                                                                     * C2926000
                                   5559 *        FORMAT OF OPERANDS                                           * C2928000
                                   5560 *        R-RR,QUEUE                OR                                 * C2930000
                                   5561 *        QTYPE                                                        * C2932000
                                   5562 *                                                                     * C2934000
                                   5563 *        R-RR  = ROUTING CODE RANGE, OR BLANK INDICATING 'ALL'        * C2936000
                                   5564 *        QTYPE = XEQ, XEQ CLASS (SINGLE CHARACTER), OUT, HOLD,          C2938000
                                   5565 *                 OR BLANK INDICATING 'ALL'                           * C2940000
                                   5566 *                                                                     * C2942000
                                   5567 *********************************************************************** C2944000
                                   5568 * BREAK OUT DISPLAY OPTIONS                                             C2946000

000798 D201 D0E0 838C 000E0 0086C  5569 CDQBREAK MVC   COMPNTER(2),CDQOUTD+2 SET DEFAULT ROUTING LIMITS         C2948000
00079E 9812 5004      00004        5570          LM    R1,WA,4(WD)         POINT TO OPERANDS 2 AND 3            C2950000

0007A2 95F0 1000      00000        5571          CLI   0(R1),C'0'          IS FIRST CHARACTER NUMERIC           C2952000

0007A6 4740 8354      00834        5572          BL    CDQTYPE             IF NOT ACCEPT STANDARD ROUTING       C2954000
0007AA 8656 8354      00834        5573          BXH   WD,WE,CDQTYPE       LOCATE ROUTE RANGE OPERAND           C2956000
                                   5574 * OVERRIDE THE DEFAULT ROUTE CODES                                      C2958000
                                   5575          $CFCVB POINTER=(WD),NOK=CDQERR CONVERT ROUTE RANGE     OY09757 C2960000
0007AE                             5576+         DS    0H                                                       NU006000
0007AE 1815                        5577+         LR    R1,WD                                                    DG018000
0007B0 58F0 1000      00000        5578+         L     R15,0(0,R1)         PICK UP FIRST PARAMETER              C0482000
0007B4 95F0 F000      00000        5579+         CLI   0(R15),C'0'         LOOK FOR NUMERIC ( FA-FF INCLUDED )  C0484000
0007B8 47B0 82FA      007DA        5580+         BNL   COF0254L           IF NUMERIC CONVERT                    C0486000
0007BC 41F0 F001      00001        5581+         LA    R15,1(0,R15)        NEXT CHARACTER                       C0488000
0007C0 5020 D01C      0001C        5582+         ST    WA,PCEWA            SAVE WORK REGISTER           OY08684 C0488500
0007C4 5820 1004      00004        5583+         L     WA,4(0,R1)          CLEAR HIGH ORDER BYTE OF     OY08684 C0489000

0007C8 4120 2000      00000        5584+         LA    WA,0(0,WA)          NEXT OPERAND POINTER         OY08684 C0489500
0007CC 19F2                        5585+         CR    R15,WA              DID WE GO TOO FAR            OY08684 C0490000
0007CE 5820 D01C      0001C        5586+         L     WA,PCEWA            RESTORE WORK REGISTER        OY08684 C0491000

0007D2 4740 82D4      007B4        5587+         BL    *-30                LOOP UNTIL NUMERIC OR ERROR  OY08684 C0492000
0007D6 47F0 8352      00832        5588+         B     CDQERR                                                   C0500000
                                   5589+* CONVERT PAIR OF START STOP VALUES                                     C0504000
0007DA 1B00                        5590+COF0254L SR    R0,R0               ZERO ACCUMULATOR, STOP VALUE         C0506000
0007DC 111F                        5591+         LNR   R1,R15              SET NEGATIVE FLAGS                   C0510000
0007DE D100 8349 F000 00829 00000  5592+COF0254C MVN COF0254W+1(1),0(R15)  MOVE NUMERIC TO WORK AREA            C0514000
0007E4 4C00 8344      00824        5593+         MH    R0,COF0254T        MULTIPLY BY 10                        C0516000
0007E8 4A00 8348      00828        5594+         AH    R0,COF0254W        ADD LOW DIGIT                         C0518000
0007EC 4900 8346      00826        5595+         CH    R0,COF0254U        LOOK FOR MAXIMUM VALUE                C0520000
0007F0 4720 8352      00832        5596+         BH    CDQERR                                                   C0528000
0007F4 41F0 F001      00001        5597+COF0254N LA    R15,1(0,R15)        NEXT CHARACTER                       C0532000
0007F8 95F0 F000      00000        5598+         CLI   0(R15),C'0'         TEST FOR NUMERIC ( FA-FF INCLUDED )  C0534000

0007FC 47B0 82FE      007DE        5599+         BNL   COF0254C           IF NUMERIC CONVERT THE CHARACTER      C0536000
000800 9560 F000      00000        5600+         CLI   0(R15),C'-'         LOOK FOR SEPARATOR                   C0540000
000804 4780 8334      00814        5601+         BE    *+16                CONVERT NEXT VALUE                   C0542000
000808 1510                        5602+         CLR   R1,R0               TEST FOR BOTH VALUES                 C0544000

00080A 47D0 834A      0082A        5603+         BNH   COF0254E            EXIT WITH CONVERTED VALUES           C0556000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  127


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00080E 1810                        5604+         LR    R1,R0               SET TO SAME                          C0558000
000810 47F0 834A      0082A        5605+         B     COF0254E            EXIT WITH CONVERTED VALUES           C0560000
000814 95F0 F001      00001        5606+         CLI   1(R15),C'0'         IS NEXT CHARACTER NUMERIC    OY05847 C0560300

000818 4740 8352      00832        5607+         BL    CDQERR              NO RETURN INVALID OPERAND    OY05847 C0561500
00081C 1810                        5608+         LR    R1,R0               SET START OF STRING          OY05847 C0562000
00081E 1B00                        5609+         SR    R0,R0               PREPARE FOR NEXT                     C0564000
000820 47F0 8314      007F4        5610+         B     COF0254N           CONVERT NEXT VALUE OF SET             C0566000
000824 000A                        5611+COF0254T DC    H'10'               CONVERSION CONSTANT                  C0580000
000826 270F                        5612+COF0254U DC    H'9999'                                                  C0594000
000828 0000                        5613+COF0254W DC    H'0'                WORK AREA FOR CONVERSION             C0596000
00082A                             5614+COF0254E DS    0H                  END OF BINARY CONVERT                C0600000

00082A 4200 D0E0      000E0        5615          STC   R0,COMPNTER         SET STOP VALUE - HIGH                C2962000
00082E 4210 D0E1      000E1        5616          STC   R1,COMPNTER+1       SET START VALUE - LOW                C2964000

000832 1812                        5617 CDQERR   LR    R1,WA               POINT TO OPERAND 3           OY09757 C2966000
000834 D20D D0E2 8386 000E2 00866  5618 CDQTYPE  MVC   COMPNTER+2(14),CDQXEQD  SET DEFAULT VALUES       OY09757 C2968000
00083A D201 D0E8 D0E0 000E8 000E0  5619          MVC   COMPNTER+8(2),COMPNTER SET OUTPUT RANGE                  C2970000
                                   5620          $XCTL HASPCJ1A            EXIT TO CONTINUATION ROUTINE         C2974000
000000                             5621+HA$QCJ1A DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
000840                             5622+HA$OCJB1 CSECT                                                          OL014000
000840 41E00000                    5623+         DC    Y(X'4100'+LINK*16),QL2(HA$QCJ1A) LOAD OCON INTO LINK     OL016000
000844 45F0 B090      00090        5624+         BAL   R15,$OXCTL          LINK TO OVERLAY SUPERVISOR           XC008000

COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  128


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5626 *********************************************************************** C2978000
                                   5627 *                                                                     * C2980000
                                   5628 *        $H A -- HOLD ALL JOBS CURRENTLY IN THE JOB QUEUE             * C2982000

                                   5629 *                                                                     * C2984000
                                   5630 *        $HOLD A                                                      * C2986000
                                   5631 *                                                                     * C2988000

                                   5632 *********************************************************************** C2990000
                                   5633 CHA      $CFJSCAN PROCESS=CHAPRO,NEXT=CHANXT SCAN JOB QUEUE             C2992000
                                   5634+* SCAN JOB QUEUE FOR SELECTED JOBS                                      C1672000
000848 4110 B140      00140        5635+CHA      LA    R1,$JQENT-QUECHAIN  LOCATE HEAD OF JOB CHAIN             C1674000
00084C                             5636+CHANXT   DS    0H                                                       NU006000
00084C 5810 1004      00004        5637+         L     R1,QUECHAIN(0,R1)   PICK UP NEXT ENTRY              RFIT C1694000
000850 4110 1000      00000        5638+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1694100

000854 1211                        5639+         LTR   R1,R1                   SET CONDITION CODE          RFIT C1694200
000856 4770 837E      0085E        5640+         BNE   CHAPRO                                                   C1700000
00085A 47F0 809E      0057E        5641          B     CAAPST              TAKE CHECK POINT AND EXIT            C2994000
00085E 9680 1004      00004        5642 CHAPRO   OI    QUEFLAGS(R1),QUEHOLDA TURN ON HOLD FLAG                  C2996000
000862 47F0 836C      0084C        5643          B     CHANXT              LOOP TO NEXT ENTRY                   C2998000

COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  129


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000866 009A7941                    5645 CDQXEQD  DC    AL2(CDQXEQ-CDQB),AL1(C'9'-QENTBY,C'A'-QENTBY)            C3002000
00086A 00B60000                    5646 CDQOUTD  DC    AL2(CDQOUT-CDQB),AL1(COMAXRTE,0)                         C3004000
00086E 00D80001                    5647 CDQHLDD  DC    AL2(CDQHLD-CDQB),AL2(1)                                  C3008000
000872 006C                        5648 CDQENDD  DC    AL2(CDQEND-CDQB)                                         C3010000
000874 D8E4C5E4C540D5D6            5649 CAAQNH   DC    C'QUEUE NOT HELD'   MESSAGE                              C3012000
                            0000E  5650 CAAML    EQU   *-CAAQNH            LENGTH                               C3014000
000882 D5D640C1C3E3C9E5            5651 CDANOA   DC    C'NO ACTIVE JOBS'   MESSAGE                              C3016000
                            0000E  5652 CDAML    EQU   *-CDANOA            LENGTH                               C3018000
000890 D3C9E2E340C9D5C3            5653 CDAMSG   DC    C'LIST INCOMPLETE'                                       C3020000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  130



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5655 HASPCJ1A $COMGRUP PRTY=0           CONTINUATION OF $DN AND $DQ          C3024000
0008A0                             5656+HA$OCJ1A CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            008A0  5657+HA$ICJ1A EQU   HA$OCJ1A+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   5658+         ENTRY HA$ICJ1A                                                 OV036000
0008A0 C3D1F1C1                    5659+         DC    CL4'CJ1A'           IDENTIFY MODULE ON CORE DUMP         OV038000
0008A4 000008A0                    5660+         DC    A(HA$OCJ1A)         ASSEMBLY ORIGIN                      OV040000

0008A8                             5661+HASPCJ1A DS    0F                  ENTRY POINT                          OV042000
                            00848  5662+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                                   5663 *********************************************************************** C3026000
                                   5664 *                                                                     * C3028000
                                   5665 *        CONTINUATION OF $D N AND $D Q COMMANDS                       * C3030000
                                   5666 *                                                                     * C3032000

                                   5667 *********************************************************************** C3034000
0008A8 8756 8076      008BE        5668          BXLE  WD,WE,CDQXEQT       IF QUEUE TYPE RESTRICTION HANDLE     C3036000
0008AC 95D5 D06A      0006A        5669          CLI   COMOPRND,C'N'       IS THIS $D N                         C3038000
0008B0 4770 80BE      00906        5670          BNE   CDQSETL             SET FOR SCAN LOOP                    C3040000
0008B4 D201 D0EA D0EE 000EA 000EE  5671          MVC   COMPNTER+10(2),COMPNTER+14 DESTROY HOLD ENTRY            C3042000

0008BA 47F0 80BE      00906        5672          B     CDQSETL             SET FOR SCAN LOOP                    C3044000
0008BE D502 1000 83A6 00000 00BEE  5673 CDQXEQT  CLC   0(3,R1),CDQXEQC     IS IT EXECUTION QUEUE                C3046000
0008C4 4770 8098      008E0        5674          BNE   CDQOUTT             IF NOT TEST OUT                      C3048000
0008C8 9540 1003      00003        5675          CLI   3(R1),C' '          IS A CLASS SPECIFIED                 C3050000
0008CC 4780 8098      008E0        5676          BE    CDQOUTT             IF NOT TEST OUT                      C3052000

0008D0 D200 D0E4 1003 000E4 00003  5677          MVC   COMPNTER+4(1),3(R1) MOVE CLASS INTO PLACE                C3054000
0008D6 947F D0E4      000E4        5678          NI    COMPNTER+4,255-QENTBY PLACE IN TESTABLE FORM             C3056000
0008DA D200 D0E5 D0E4 000E5 000E4  5679          MVC   COMPNTER+5(1),COMPNTER+4 SET START VALUE                 C3058000
0008E0 D502 1000 83AA 00000 00BF2  5680 CDQOUTT  CLC   0(3,R1),CDQOUTC     IS IT 'OUT'                          C3060000
0008E6 4770 80A8      008F0        5681          BNE   CDQHLDT             IF NOT TEST HOLD                     C3062000

0008EA D203 D0E2 D0E6 000E2 000E6  5682          MVC   COMPNTER+2(4),COMPNTER+6 SET OUT ELEMENT                 C3064000
0008F0 D503 1000 83AD 00000 00BF5  5683 CDQHLDT  CLC   0(4,R1),CDQHLDC     IS IT HOLD                           C3072000
0008F6 4770 80B8      00900        5684          BNE   CDQENDS             IF NOT SET END                       C3074000
0008FA D203 D0E2 D0EA 000E2 000EA  5685          MVC   COMPNTER+2(4),COMPNTER+10 SET HOLD                       C3076000
000900 D201 D0E6 D0EE 000E6 000EE  5686 CDQENDS  MVC   COMPNTER+6(2),COMPNTER+14 SET END                        C3078000

                                   5687 * SET UP FOR JOB QUEUE SCAN                                             C3080000
000906 9240 D06B      0006B        5688 CDQSETL  MVI   COMMAND+3,C' '      SET BLANK INTO MESSAGE               C3082000
00090A 4870 D0E2      000E2        5689 CDQLOOP  LH    WF,COMPNTER+2       PICK UP CONTROL ELEMENT              C3084000
00090E 1B66                        5690          SR    WE,WE               SET COUNTER                          C3086000
                                   5691          $BRR  WF                  ENTER LOGICAL SETUP ROUTINE          C3088000
000910 47F7 8060      008A8        5692+         B     HA$OCJ1A+OACEPROG-BUFSTART(WF)                           C2058000

                                   5693 * SET UP ROUTINES FOR LOGICAL SELECTION                                 C3090000
000914 58F0 C0F0      000F0        5694 CDQEND   L     R15,CDQSTAT         PICK UP STATUS TABLE POINTER         C3092000
000918 5810 F000      00000        5695          L     R1,0(0,R15)         PICK UP NUMBER OF ALLOCATED BUCKETS  C3094000
00091C 5C00 83A0      00BE8        5696          M     R0,CDQ100           ALLOW FOR PERCENTAGE                 C3096000

000920 5D00 F004      00004        5697          D     R0,4(0,R15)         CALCULATE PERCENTAGE                 C3098000
                                   5698          $CFCVE VALUE=(R1),SYMBOL=CDNCVE CONVERT TO PRINTABLE EBCDIC    C3100000
000924 1801                        5699+         LR    R0,R1                                                    DG018000
000926 45E0 833C      00B84        5700+         BAL   LINK,CDNCVE                                              C0674000
00092A D202 D068 D062 00068 00062  5701          MVC   COMMAND(3),COMDWORK+2 PLACE IN MESSAGE AREA              C3102000

000930 D219 D06B 83C0 0006B 00C08  5702          MVC   COMMAND+3(26),CDQPER SET REMAINING MESSAGE               C3104000
                                   5703          $CRET L=29                RETURN WITH MESSAGE                  C3106000
000936                             5704+         DS    0H                                                       NU006000
000936 4100 001D      0001D        5705+         LA    R0,29                                                    C0230000
00093A 41F0 0008      00008        5706+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
00093E 45E0 B088      00088        5707+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  131



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5709 *********************************************************************** C3110000
                                   5710 *                                                                     * C3112000

                                   5711 *        SETUP FOR QUEUE TYPE                                         * C3114000
                                   5712 *                                                                     * C3116000
                                   5713 *********************************************************************** C3118000
                                   5714 * REQUEST FOR 'XEQ' QUEUE                                               C3120000
000942 D203 D06C 83A6 0006C 00BEE  5715 CDQXEQ   MVC   COMMAND+4(4),CDQXEQC MOVE 'XEQ '                         C3122000

000948 4150 0009      00009        5716          LA    WD,9                SET MESSAGE LENGTH                   C3124000
00094C D200 D070 D0E5 00070 000E5  5717          MVC   COMMAND+8(1),COMPNTER+5 SET QUETYPE                      C3126000
000952 9680 D070      00070        5718          OI    COMMAND+8,QENTBY    MAKE PRINTABLE                       C3128000
000956 4170 015E      0015E        5719          LA    WF,CDQXEQE-CDQB     SET LOGICAL SELECTION ADDRESS        C3130000
00095A 47F0 8146      0098E        5720          B     CDQLOOPA            SCAN JOB QUEUE                       C3132000
                                   5721 * REQUEST FOR 'OUT' QUEUE                                               C3134000
00095E D202 D06C 83AA 0006C 00BF2  5722 CDQOUT   MVC   COMMAND+4(3),CDQOUTC MOVE 'OUT'                          C3136000
000964 4170 016C      0016C        5723          LA    WF,CDQOUTE-CDQB     SET LOGICAL SELECTION ADDRESS        C3138000

000968 1B00                        5724          SR    R0,R0               ZERO OUT ROUTE REGISTER              C3140000
00096A 4300 D0E5      000E5        5725          IC    R0,COMPNTER+5       PICK ROUTING CODE                    C3142000

                                   5726          $CFCVE SYMBOL=CDNCVE      CONVERT TO PRINTABLE EBCDIC          C3144000
00096E 45E0 833C      00B84        5727+         BAL   LINK,CDNCVE                                              C0674000
000972 D203 D06F D061 0006F 00061  5728          MVC   COMMAND+7(4),COMDWORK+1 SET ROUTING                      C3146000
000978 4150 000B      0000B        5729          LA    WD,11               SET MESSAGE LENGTH                   C3148000
00097C 47F0 8146      0098E        5730          B     CDQLOOPA            SCAN JOB QUEUE                       C3150000

                                   5731 * REQUEST FOR 'HOLD' QUEUE                                              C3160000
000980 D203 D06C 83AD 0006C 00BF5  5732 CDQHLD   MVC   COMMAND+4(4),CDQHLDC MOVE 'HOLD'                         C3162000
000986 4150 0008      00008        5733          LA    WD,8                SET MESSAGE LENGTH                   C3164000
00098A 4170 019E      0019E        5734          LA    WF,CDQHLDE-CDQB     SET LOGICAL SELECTION ADDRESS        C3166000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  132


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5736 *********************************************************************** C3170000
                                   5737 *                                                                     * C3172000
                                   5738 *        SCAN THE JOB QUEUE                                           * C3174000

                                   5739 *                                                                     * C3176000

                                   5740 *********************************************************************** C3178000
                                   5741 CDQLOOPA $CFJSCAN PROCESS=CDQPRO,NEXT=CDQNXT SCAN JOB QUEUE             C3180000
                                   5742+* SCAN JOB QUEUE FOR SELECTED JOBS                                      C1672000
00098E 4110 B140      00140        5743+CDQLOOPA LA    R1,$JQENT-QUECHAIN  LOCATE HEAD OF JOB CHAIN             C1674000
000992                             5744+CDQNXT   DS    0H                                                       NU006000

000992 5810 1004      00004        5745+         L     R1,QUECHAIN(0,R1)   PICK UP NEXT ENTRY              RFIT C1694000
000996 4110 1000      00000        5746+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1694100
00099A 1211                        5747+         LTR   R1,R1                   SET CONDITION CODE          RFIT C1694200
00099C 4770 8192      009DA        5748+         BNE   CDQPRO                                                   C1700000
0009A0 1206                        5749          LTR   R0,WE               TEST FOR ZERO COUNT                  C3182000
0009A2 4780 816E      009B6        5750          BE    CDQNEXT             PREPARE FOR NEXT GROUP               C3184000
                                   5751          $CFCVE SYMBOL=CDNCVE      CONVERT TO PRINTABLE EBCDIC          C3186000
0009A6 45E0 833C      00B84        5752+         BAL   LINK,CDNCVE                                              C0674000
0009AA D202 D068 D062 00068 00062  5753          MVC   COMMAND(3),COMDWORK+2 SET COMMAND                        C3188000
0009B0 1805                        5754          LR    R0,WD               SET LENGTH                           C3190000

                                   5755 CDQRES   $CWTO L=(R0)              RESPOND                              C3192000

0009B2                             5756+CDQRES   DS    0H                                                       NU006000
0009B2 4520 C00C      0000C        5757+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
0009B6 4800 D0E4      000E4        5758 CDQNEXT  LH    R0,COMPNTER+4       PICK UP HIGH - LOW                   C3194000
0009BA 4A00 83A4      00BEC        5759          AH    R0,CDQCON1          ADD ONE TO START VALUE               C3196000

0009BE 4780 8188      009D0        5760          BZ    CDQINCR             IF ZERO WE ARE FINISHED              C3198000
0009C2 4200 D0E5      000E5        5761          STC   R0,COMPNTER+5       SET START BACK IN PLACE              C3200000
0009C6 D500 D0E5 D0E4 000E5 000E4  5762          CLC   COMPNTER+5(1),COMPNTER+4 CHECK FOR FINISHED              C3202000
0009CC 47D0 80C2      0090A        5763          BNH   CDQLOOP             SCAN CHAIN AGAIN                     C3204000
0009D0 D20D D0E2 D0E6 000E2 000E6  5764 CDQINCR  MVC   COMPNTER+2(14),COMPNTER+6 SHIFT PARAMETERS UP ONE        C3206000
0009D6 47F0 80C2      0090A        5765          B     CDQLOOP             SCAN CHAIN FOR NEW TYPE              C3208000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  133


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5767 *********************************************************************** C3212000
                                   5768 *                                                                     * C3214000
                                   5769 *        COLLECT DATA FOR QUEUE TYPE                                  * C3216000

                                   5770 *                                                                     * C3218000
                                   5771 *********************************************************************** C3220000
0009DA D500 100C D0E1 0000C 000E1  5772 CDQPRO   CLC   QUEPRTRT(1,R1),COMPNTER+1 COMPARE LOW VALUE              C3222000
0009E0 4740 81A6      009EE        5773          BL    CDQCPUN             IF BELOW CHECK PUNCH                 C3224000

0009E4 D500 100C D0E0 0000C 000E0  5774          CLC   QUEPRTRT(1,R1),COMPNTER COMPARE HIGH VALUE               C3226000
                                   5775          $BRR  NH,WF               IF NOT HIGH LOOK AT TYPE             C3228000
0009EA 47D7 8060      008A8        5776+         BC    NH,HA$OCJ1A+OACEPROG-BUFSTART(WF)                        C2052000
0009EE D500 100D D0E1 0000D 000E1  5777 CDQCPUN  CLC   QUEPUNRT(1,R1),COMPNTER+1 COMPARE LOW VALUE              C3230000
0009F4 4740 814A      00992        5778          BL    CDQNXT              IF BELOW NEXT ENTRY                  C3232000
0009F8 D500 100D D0E0 0000D 000E0  5779          CLC   QUEPUNRT(1,R1),COMPNTER COMPARE HIGH VALUE               C3234000
                                   5780          $BRR  NH,WF               IF NOT HIGH LOOK AT TYPE             C3236000
0009FE 47D7 8060      008A8        5781+         BC    NH,HA$OCJ1A+OACEPROG-BUFSTART(WF)                        C2052000
000A02 47F0 814A      00992        5782          B     CDQNXT              NEXT ENTRY                           C3238000
                                   5783 * REQUEST FOR 'XEQ' QUEUE                                               C3240000
000A06 D500 1001 D0E5 00001 000E5  5784 CDQXEQE  CLC   QUETYPE(1,R1),COMPNTER+5 IS THIS THE RIGHT QUEUE TYPE    C3242000
000A0C 4770 814A      00992        5785          BNE   CDQNXT              IF NOT FORGET IT                     C3244000

                                   5786          $BRR  WC                  GO TO COUNT OR MESSAGE ROUTINE       C3246000
000A10 47F4 8060      008A8        5787+         B     HA$OCJ1A+OACEPROG-BUFSTART(WC)                           C2058000
                                   5788 * REQUEST FOR 'OUT' QUEUE                                               C3248000

000A14 D500 100D D0E5 0000D 000E5  5789 CDQOUTE  CLC   QUEPUNRT(1,R1),COMPNTER+5 IS ROUTING RIGHT               C3250000
000A1A 4780 81E0      00A28        5790          BE    CDQCKOU             IF SO CHECK QUEUE TYPE               C3252000
000A1E D500 100C D0E5 0000C 000E5  5791          CLC   QUEPRTRT(1,R1),COMPNTER+5 IS THE ROUTING RIGHT           C3254000
000A24 4770 814A      00992        5792          BNE   CDQNXT              IF NOT FORGET IT                     C3256000
000A28 9140 1001      00001        5793 CDQCKOU  TM    QUETYPE(R1),$XEQ    IS THIS EXECUTION QUEUE              C3258000
000A2C 4710 814A      00992        5794          BO    CDQNXT              IF SO FORGET IT                      C3260000
000A30 1801                        5795          LR    R0,R1               SAVE REG 1                           C3262000
                                   5796          $CFJDCT SYMBOL=CDQJDCT    INSURE NOT ON A DEVICE               C3264000
000A32 45E0 8354      00B9C        5797+         BAL   LINK,CDQJDCT                                             C1294000
000A36 47F0 81F8      00A40        5798          B     CDQREST             IF FOUND ENTER COUNTER ROUTINE       C3265000
000A3A 1810                        5799          LR    R1,R0               RESTORE QUEUE POINTER                C3266000
000A3C 47F0 814A      00992        5800          B     CDQNXT              GET NEXT ELEMENT                     C3267000

000A40 1810                        5801 CDQREST  LR    R1,R0               RESTORE QUEUE POINTER                C3268000

                                   5802          $BRR  WC                  GO TO COUNT OR MESSAGE ROUTINE       C3270000
000A42 47F4 8060      008A8        5803+         B     HA$OCJ1A+OACEPROG-BUFSTART(WC)                           C2058000

                                   5804 * REQUEST FOR 'HOLD' QUEUE                                              C3272000
000A46 91E0 1004      00004        5805 CDQHLDE  TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1+QUEHOLD2 ANY HOLD         C3274000
000A4A 4780 814A      00992        5806          BZ    CDQNXT              IF NOT FORGET IT                     C3276000
                                   5807          $BRR  WC                  GO TO COUNT OR MESSAGE ROUTINE       C3282000
000A4E 47F4 8060      008A8        5808+         B     HA$OCJ1A+OACEPROG-BUFSTART(WC)                           C2058000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  134


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5810 *********************************************************************** C3286000
                                   5811 *                                                                     * C3288000
                                   5812 *        $D N ITEM PROCESSING                                         * C3290000
                                   5813 *                                                                     * C3292000
                                   5814 *********************************************************************** C3294000

000A52 1851                        5815 CDNCTR   LR    WD,R1               SAVE QUEUE ADDRESS                   C3296000
                                   5816          $CFJMSG CVE=CDNCVE,JDCT=CDQJDCT,CONT=CDQJDCTC,OPT=Q            C3298000

000A54 4120 830E      00B56        5817+         LA    WA,COF0296Z         POINT TO EXIT                        C1445000

                                   5818+* MOVE 'JOB' AND NUMBER INTO MESSAGE AREA                               C1448000
000A58 D202 D068 82E4 00068 00B2C  5819+         MVC   COMMAND(3),COF0296L PLACE 'JOB' INTO MESSAGE AREA        C1450000
000A5E 4800 1002      00002        5820+         LH    R0,QUEJOBNO(0,R1)                                        DG012000
000A62 45E0 833C      00B84        5821+         BAL   LINK,CDNCVE                                              C0674000
000A66 D204 D06B D060 0006B 00060  5822+         MVC   COMMAND+3(COMJBLEN+1),COMDWORK-COMJBLEN+4 SET NUMBER     C1454000
000A6C 9240 D070      00070        5823+         MVI   COMMAND+4+COMJBLEN,C' ' BLANK OUT MESSAGE AREA           C1458000
000A70 D22C D071 D070 00071 00070  5824+         MVC   COMMAND+5+COMJBLEN(45),COMMAND+4+COMJBLEN                C1460000
                                   5825+* MOVE JOB NAME FROM JIT                                                C1464000
000A76 45E0 B060      00060        5826+         BAL   LINK,$QJITLOC       LOCATE JOB NAME ( R0 POINTS )        C1466000
000A7A 18F0                        5827+         LR    R15,R0              PREPARE FOR MOVE                     C1468000
000A7C D207 D071 F000 00071 00000  5828+         MVC   COMMAND+5+COMJBLEN(8),JITJNAME(R15) MOVE NAME            C1470000
                                   5829+* BUILD END OF JOB INFORMATION MESSAGE                                  C1473000

000A82 D203 D08D 82F7 0008D 00B3F  5830+         MVC   COMMAND+37(4),COF0296S SET 'PRIO'                        C1474000
000A88 1B00                        5831+         SR    R0,R0               ZERO WORK                            C1475000
000A8A 4300 1000      00000        5832+         IC    R0,QUEPRIO(0,R1)    GET JOB PRIORITY                     C1476000

000A8E 8A00 0004      00004        5833+         SRA   R0,4                ALIGN                                C1477000
000A92 45E0 833C      00B84        5834+         BAL   LINK,CDNCVE                                              C0674000
000A96 D201 D092 D063 00092 00063  5835+         MVC   COMMAND+37+5(2),COMDWORK+3 SET PRIORITY                  C1479000
000A9C 91F0 1004      00004        5836+         TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1+QUEHOLD2+QUEPURGE         C1480000
000AA0 4780 827E      00AC6        5837+         BZ    COF0296A            BRANCH IF NO SPECIAL CONDITIONS      C1481000
000AA4 D203 D095 82FB 00095 00B43  5838+         MVC   COMMAND+45(4),COF0296T  SET 'HOLD'                       C1482000
000AAA 91C0 1004      00004        5839+         TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1 IS IT HELD                C1483000
000AAE 4770 827E      00AC6        5840+         BNZ   COF0296A            BRANCH IF HELD                       C1484000
000AB2 D204 D095 82FF 00095 00B47  5841+         MVC   COMMAND+45(5),COF0296U SET 'PURGE'                       C1485000
000AB8 9110 1004      00004        5842+         TM    QUEFLAGS(R1),QUEPURGE IS IT FLAGGED FOR PURGE            C1486000
000ABC 4710 827E      00AC6        5843+         BO    COF0296A            BRANCH IF YES                        C1487000
000AC0 D208 D095 8304 00095 00B4C  5844+         MVC   COMMAND+45(9),COF0296V SET 'DUPLICATE'                   C1488000

000AC6                             5845+COF0296A DS    0H                                                       C1489000
                                   5846+* DETERMINE NORMAL QUEUE ACTIVITY                                       C1490000
000AC6 D20B D07A 82E7 0007A 00B2F  5847+         MVC   COMMAND+18(12),COF0296Q SET 'AWAITING OUT'               C1492000
000ACC 9140 1001      00001        5848+         TM    QUETYPE(R1),$XEQ    TEST FOR EXECUTION                   C1493000

000AD0 4710 82C8      00B10        5849+         BO    COF0296F            EXIT IF EXECUTION                    C1494000
                                   5850+* DETERMINE DEVICE ACTIVITY                                             C1495000
000AD4 D201 D0A0 1002 000A0 00002  5851+         MVC   COMMAND+56(2),QUEJOBNO(R1) SAVE JOB NUMBER               C1496000
000ADA 45E0 8354      00B9C        5852+         BAL   LINK,CDQJDCT                                             C1294000
000ADE 47F0 829E      00AE6        5853+         B     COF0296C            DISPLAY 'AWAITING OUT'               C1499000
000AE2 47F0 2004      00004        5854+         B     4(0,WA)             EXIT WITHOUT DISPLAY                 C1520000

                                   5855+* NO DEVICE FOUND - DISPLAY OUTPUT PRT PUN ROUTE CODES IN JQE           C1522000
000AE6 5810 D05C      0005C        5856+COF0296C L     R1,COMEWORK         POINT TO JOB QUEUE ELEMENT           C1523000
000AEA 1B00                        5857+         SR    R0,R0               ZERO WORK                            C1524000
000AEC 4300 100C      0000C        5858+         IC    R0,QUEPRTRT(0,R1)   GET PRINT ROUTE                      C1525000
000AF0 45E0 833C      00B84        5859+         BAL   LINK,CDNCVE                                              C0674000
000AF4 D202 D086 D062 00086 00062  5860+         MVC   COMMAND+18+12(3),COMDWORK+2 INSERT PRINT ROUTING         C1527000
000AFA 4300 100D      0000D        5861+         IC    R0,QUEPUNRT(0,R1)   GET PUNCH ROUTE                      C1528000
000AFE 45E0 833C      00B84        5862+         BAL   LINK,CDNCVE                                              C0674000

000B02 D202 D089 D062 00089 00062  5863+         MVC   COMMAND+18+15(3),COMDWORK+2 INSERT PUNCH ROUTING         C1530000
000B08 4100 0036      00036        5864+COF0296D LA    R0,54               SET LENGTH                           C1531000

COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  135


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000B0C                             5865+COF0296E DS    0H                                                       NU006000
000B0C 47F0 C00C      0000C        5866+         B     COWTO(0,BASE2)      REPLY TO OPERATOR                    C0350000
                                   5867+* DETERMINE EXECUTION QUEUE STATUS - DISPLAY AS APPROPRIATE             C1534000
000B10 9180 1001      00001        5868+COF0296F TM    QUETYPE(R1),QENTBY  IS IT BUSY                           C1535000
000B14 4710 2004      00004        5869+         BO    4(0,WA)             EXIT IF BUSY ( NO DISPLAY )          C1542000
000B18 D203 D083 82F3 00083 00B3B  5870+         MVC   COMMAND+18+9(4),COF0296R SET 'EXEC'                      C1544000

000B1E D200 D08B 1001 0008B 00001  5871+         MVC   COMMAND+18+17(1),QUETYPE(R1) INSERT CLASS                C1545000
000B24 9680 D08B      0008B        5872+         OI    COMMAND+18+17,QENTBY UPPER CASE IT                       C1546000
000B28 47F0 82C0      00B08        5873+         B     COF0296D            DISPLAY IT                           C1547000
000B2C D1D6C2                      5874+COF0296L DC    C'JOB'              JOB                                  C1622000
000B2F C1E6C1C9E3C9D5C7            5875+COF0296Q DC    C'AWAITING OUT'     AWAITING OUT                         C1636000

000B3B C5E7C5C3                    5876+COF0296R DC    C'EXEC'             AWAITING EXEC                        C1640000
000B3F D7D9C9D6                    5877+COF0296S DC    C'PRIO'             PRIO                                 C1650000

000B43 C8D6D3C4                    5878+COF0296T DC    C'HOLD'             HOLD                                 C1652000
000B47 D7E4D9C7C5                  5879+COF0296U DC    C'PURGE'            PURGE                                C1654000
000B4C C4E4D7D3C9C3C1E3            5880+COF0296V DC    C'DUPLICATE'        DUPLICATE                            C1656000
000B56                             5881+COF0296Z DS    0H                  END OF MESSAGE PREPARATION           C1660000
000B56 4700 0000      00000        5882          NOP   *-*                 SPACER TO PREVENT FUTURE ERROR       C3299000
                                   5883 * EACH $CWTO MAY ISSUE A $WAIT THUS GIVING OTHER PROCESSORS A CHANCE    C3300000
                                   5884 * TO ALTER THE JOB QUEUE CHAIN FOR THE CURRENT ENTRY                    C3302000
                                   5885          $CFJSCAN PROCESS=CDNPRO,NEXT=CDNNXT INSURE NO BREAK IN CHAIN   C3304000

                                   5886+* SCAN JOB QUEUE FOR SELECTED JOBS                                      C1672000
000B5A 4110 B140      00140        5887+         LA    R1,$JQENT-QUECHAIN  LOCATE HEAD OF JOB CHAIN             C1674000
000B5E                             5888+CDNNXT   DS    0H                                                       NU006000
000B5E 5810 1004      00004        5889+         L     R1,QUECHAIN(0,R1)   PICK UP NEXT ENTRY              RFIT C1694000
000B62 4110 1000      00000        5890+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1694100

000B66 1211                        5891+         LTR   R1,R1                   SET CONDITION CODE          RFIT C1694200
000B68 4770 8332      00B7A        5892+         BNE   CDNPRO                                                   C1700000
000B6C D20E D068 83B1 00068 00BF9  5893          MVC   COMMAND(15),CDNMSG  SET MESSAGE 'LIST INCOMPLETE'        C3306000

000B72 4100 000F      0000F        5894          LA    R0,15               SET LENGTH                           C3308000
000B76 47F0 816A      009B2        5895          B     CDQRES              RESPOND                              C3310000
000B7A 1915                        5896 CDNPRO   CR    R1,WD               DO THE POINTERS MATCH                C3312000
000B7C 4770 8316      00B5E        5897          BNE   CDNNXT              NEXT ELEMENT UNTIL END OR MATCH      C3314000
000B80 47F0 814A      00992        5898          B     CDQNXT              NEXT ELEMENT ( CHAIN OK )            C3316000
                                   5899 CDNCVE   $CFCVE TYPE=DEF           CONVERT TO EBCDIC                    C3318000
000B84                             5900+CDNCVE   DS    0H                                                       NU006000

                                   5901+* CONVERT TO EBCDIC AND LEAVE ANSWER IN COMDWORK ( 5 DIGITS )           C0684000
000B84 4E00 D060      00060        5902+         CVD   R0,COMDWORK         CONVERT TO DECIMAL                   C0686000
000B88 D205 D05F 834E 0005F 00B96  5903+         MVC   COMDWORK-1(6),COF0328 MOVE MASK TO BLANK OUT HIGH ZEROS  C0688000
000B8E DE05 D05F D065 0005F 00065  5904+         ED    COMDWORK-1(6),COMDWORK+5 CONVERT TO EBCDIC               C0690000
000B94 07FE                        5905+         BR    LINK                RETURN                               C0694000

000B96 402020202120                5906+COF0328  DC    X'402020202120'     MASK FOR EDIT                        C0696000
                                   5907 CDQJDCT  $CFJDCT TYPE=DEF,CONT=CDQJDCTC FIND JOBS DCT                   C3319000
000B9C                             5908+CDQJDCT  DS    0H                                                       NU006000
000B9C 5010 D05C      0005C        5909+         ST    R1,COMEWORK         SET JOB QUEUE LOCATION FOR COMPARE   C1302000

000BA0 4110 B0DC      000DC        5910+         LA    R1,$DCTPOOL-DCTCHAIN+DCTDSECT POINT TO HEAD OF DCTS      C1304000
000BA4                             5911+CDQJDCTC DS    0H                  CONTINUE                             C1306000
000BA4 5810 1014      00014        5912+COF0333L L     R1,DCTCHAIN-DCTDSECT(0,R1) NEXT DCT                 RFIT C1308000
000BA8 4110 1000      00000        5913+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1308100
000BAC 1211                        5914+         LTR   R1,R1                                               RFIT C1308200
000BAE 078E                        5915+         BCR   Z,LINK              EXIT IF END OF CHAIN                 C1320000

000BB0 9130 1012      00012        5916+         TM    DCTDEVTP-DCTDSECT(R1),DCTPUN TEST DCT CLASS              C1322000
                                   5917+* TEST INCLUDES READER, PRINTER, AND PUNCH DEVICES                      C1324000
000BB4 4780 835C      00BA4        5918+         BZ    COF0333L           GET NEXT DCT IF NOT CORRECT CLASS     C1326000
000BB8 9180 1000      00000        5919+         TM    DCTSTAT-DCTDSECT(R1),DCTINUSE IS DCT IN USE              C1328000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  136



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000BBC 4780 835C      00BA4        5920+         BZ    COF0333L           GET NEXT DCT IF NOT                   C1330000
000BC0 58F0 1000      00000        5921+         L     R15,DCTPCE-DCTDSECT(0,R1) PICK UP PCE                    C1332000
000BC4 9120 1012      00012        5922+         TM    DCTDEVTP-DCTDSECT(R1),DCTPRT IS IT PRINT OR PUNCH        C1334000
000BC8 4710 8388      00BD0        5923+         BO    *+8                 IF YES, SKIP NEXT INSTRUCTION        C1336000

000BCC 41F0 F058      00058        5924+         LA    R15,RJOB-PJOB(0,R15) OFFSET PCE POINTER                  C1338000
000BD0 D502 F061 D05D 00061 0005D  5925+         CLC   PJOB+1-PCEDSECT(3,R15),COMEWORK+1 CHECK FOR SAME JOB     C1340000
000BD6 4770 835C      00BA4        5926+         BNE   COF0333L           GET NEXT DCT IF NOT SAME JOB          C1342000
000BDA 47F0 E004      00004        5927+         B     4(0,LINK)           RETURN                               C1346000
000BDE                             5928+COF0333Z DS    0H                  ERROR EXIT                           C1352000

COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  137


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5930 *********************************************************************** C3322000
                                   5931 *                                                                     * C3324000
                                   5932 *        $D Q ITEM PROCESSING                                         * C3326000

                                   5933 *                                                                     * C3328000
                                   5934 *********************************************************************** C3330000
000BDE 4160 6001      00001        5935 CDQCTR   LA    WE,1(0,WE)          UP COUNTER                           C3332000
000BE2 47F0 814A      00992        5936          B     CDQNXT              GO TO NEXT ENTRY                     C3334000
COMM     HASP COMMAND PROCESSOR HASPCJB1 - JOB QUEUE COMMANDS                                                  PAGE  138


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000BE6 0000
000BE8 00000064                    5938 CDQ100   DC    F'100'              CONSTANT                             C3338000
000BEC 0001                        5939 CDQCON1  DC    H'1'                CONSTANT OF ONE                      C3340000
000BEE E7C5D840                    5940 CDQXEQC  DC    C'XEQ '             XEQ QUEUE                            C3342000

000BF2 D6E4E3                      5941 CDQOUTC  DC    C'OUT'              OUT QUEUE                            C3344000
000BF5 C8D6D3C4                    5942 CDQHLDC  DC    C'HOLD'             HOLD QUEUE                           C3348000
000BF9 D3C9E2E340C9D5C3            5943 CDNMSG   DC    C'LIST INCOMPLETE'  MESSAGE                              C3350000
000C08 40D7C5D9C3C5D5E3            5944 CDQPER   DC    C' PERCENT SPOOL UTILIZATION'                            C3352000
                            008A8  5945 CDQB     EQU   HASPCJ1A            BASE FOR SUB-COMMAND OFFSETS         C3354000

COMM     HASP COMMAND PROCESSOR HASPCJ1B - JOB QUEUE COMMANDS                                                  PAGE  139


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5947 HASPCJ1B $COMGRUP DF,PRTY=0        CONTINUATION OF JOB QUEUE            C3358000
000C28                             5948+HA$OCJ1B CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            00C28  5949+HA$ICJ1B EQU   HA$OCJ1B+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   5950+         ENTRY HA$ICJ1B                                                 OV036000
000C28 C3D1F1C2                    5951+         DC    CL4'CJ1B'           IDENTIFY MODULE ON CORE DUMP         OV038000

000C2C 00000C28                    5952+         DC    A(HA$OCJ1B)         ASSEMBLY ORIGIN                      OV040000
000C30                             5953+HASPCJ1B DS    0F                  ENTRY POINT                          OV042000
                            00BD0  5954+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000

                            00C30  5955+CODF            EQU HASPCJ1B                                            C0146000
                                   5956 *********************************************************************** C3360000
                                   5957 *                                                                     * C3362000
                                   5958 *        $D F,R-RR,JOB RANGE,H/A -- DISPLAY FORMS OUTPUT QUEUE          C3364000
                                   5959 *        R-RR  = ROUTE CODE RANGE                                     * C3366000

                                   5960 *        H     = DISPLAY FOR HELD JOBS                                  C3366500
                                   5961 *        A     = DISPLAY FOR ALL JOBS                                   C3367000
                                   5962 *                ( NO H OR A = RELEASED JOBS ONLY )                     C3367500
                                   5963 *                                                                     * C3368000
                                   5964 *********************************************************************** C3370000
000C30 1B22                        5965 CDF      SR    WA,WA               SET DEFAULT ROUTING                  C3372000
000C32 9108 D058      00058        5966          TM    COMFLAGS,WCMBFG     IS SOURCE A REMOTE                   C3374000
000C36 4780 806E      00C3E        5967          BZ    *+8                 IF NOT, SKIP SETTING ID              C3376000

000C3A 4320 D059      00059        5968          IC    WA,COMROUTE         SET REMOTE IDENTIFICATION            C3378000
000C3E 9220 D0E0      000E0        5969          MVI   COMPNTER,CDFRELJ    SET TO DISPLAY NON-HELD JOBS         C3378500

000C42 1832                        5970          LR    WB,WA               COPY ROUTING                         C3379000
000C44 1B44                        5971          SR    WC,WC               SET DEFAULT LOW JOB NUMBER           C3380000
000C46 48A0 83EE      00FBE        5972          LH    R10,CDFMJOB         SET DEFAULT HIGH                     C3380500
000C4A 8656 8142      00D12        5973 CDFNSPEC BXH   WD,WE,CDFOK         IF NO MORE EXIT                      C3381000
000C4E 58F0 5000      00000        5974          L     R15,0(0,WD)         POINT TO OPERAND                     C3381500

000C52 95C1 F000      00000        5975          CLI   0(R15),C'A'         DOES USER WANT ALL                   C3382000
000C56 4780 813A      00D0A        5976          BE    CDFSETA             IF SO SET ALL                        C3382500
000C5A 95C8 F000      00000        5977          CLI   0(R15),C'H'         DOES USER WANT HELD ONLY             C3383000
000C5E 4780 8132      00D02        5978          BE    CDFSETH             IF SO SET HOLD                       C3383500
                                   5979          $CFCVB POINTER=(WD),NOK=CDFINVO                                C3384000
000C62                             5980+         DS    0H                                                       NU006000
000C62 1815                        5981+         LR    R1,WD                                                    DG018000
000C64 58F0 1000      00000        5982+         L     R15,0(0,R1)         PICK UP FIRST PARAMETER              C0482000
000C68 95F0 F000      00000        5983+         CLI   0(R15),C'0'         LOOK FOR NUMERIC ( FA-FF INCLUDED )  C0484000

000C6C 47B0 80BE      00C8E        5984+         BNL   COF0340L           IF NUMERIC CONVERT                    C0486000

000C70 41F0 F001      00001        5985+         LA    R15,1(0,R15)        NEXT CHARACTER                       C0488000
000C74 5020 D01C      0001C        5986+         ST    WA,PCEWA            SAVE WORK REGISTER           OY08684 C0488500
000C78 5820 1004      00004        5987+         L     WA,4(0,R1)          CLEAR HIGH ORDER BYTE OF     OY08684 C0489000
000C7C 4120 2000      00000        5988+         LA    WA,0(0,WA)          NEXT OPERAND POINTER         OY08684 C0489500
000C80 19F2                        5989+         CR    R15,WA              DID WE GO TOO FAR            OY08684 C0490000

000C82 5820 D01C      0001C        5990+         L     WA,PCEWA            RESTORE WORK REGISTER        OY08684 C0491000
000C86 4740 8098      00C68        5991+         BL    *-30                LOOP UNTIL NUMERIC OR ERROR  OY08684 C0492000
000C8A 47F0 83B4      00F84        5992+         B     CDFINVO                                                  C0500000
                                   5993+* CONVERT PAIR OF START STOP VALUES                                     C0504000
000C8E 1B00                        5994+COF0340L SR    R0,R0               ZERO ACCUMULATOR, STOP VALUE         C0506000
000C90 111F                        5995+         LNR   R1,R15              SET NEGATIVE FLAGS                   C0510000
000C92 D100 810D F000 00CDD 00000  5996+COF0340C MVN COF0340W+1(1),0(R15)  MOVE NUMERIC TO WORK AREA            C0514000
000C98 4C00 8108      00CD8        5997+         MH    R0,COF0340T        MULTIPLY BY 10                        C0516000
000C9C 4A00 810C      00CDC        5998+         AH    R0,COF0340W        ADD LOW DIGIT                         C0518000
000CA0 4900 810A      00CDA        5999+         CH    R0,COF0340U        LOOK FOR MAXIMUM VALUE                C0520000

000CA4 4720 83B4      00F84        6000+         BH    CDFINVO                                                  C0528000

000CA8 41F0 F001      00001        6001+COF0340N LA    R15,1(0,R15)        NEXT CHARACTER                       C0532000
COMM     HASP COMMAND PROCESSOR HASPCJ1B - JOB QUEUE COMMANDS                                                  PAGE  140


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000CAC 95F0 F000      00000        6002+         CLI   0(R15),C'0'         TEST FOR NUMERIC ( FA-FF INCLUDED )  C0534000

000CB0 47B0 80C2      00C92        6003+         BNL   COF0340C           IF NUMERIC CONVERT THE CHARACTER      C0536000
000CB4 9560 F000      00000        6004+         CLI   0(R15),C'-'         LOOK FOR SEPARATOR                   C0540000
000CB8 4780 80F8      00CC8        6005+         BE    *+16                CONVERT NEXT VALUE                   C0542000
000CBC 1510                        6006+         CLR   R1,R0               TEST FOR BOTH VALUES                 C0544000
000CBE 47D0 810E      00CDE        6007+         BNH   COF0340E            EXIT WITH CONVERTED VALUES           C0556000
000CC2 1810                        6008+         LR    R1,R0               SET TO SAME                          C0558000
000CC4 47F0 810E      00CDE        6009+         B     COF0340E            EXIT WITH CONVERTED VALUES           C0560000
000CC8 95F0 F001      00001        6010+         CLI   1(R15),C'0'         IS NEXT CHARACTER NUMERIC    OY05847 C0560300
000CCC 4740 83B4      00F84        6011+         BL    CDFINVO             NO RETURN INVALID OPERAND    OY05847 C0561500
000CD0 1810                        6012+         LR    R1,R0               SET START OF STRING          OY05847 C0562000
000CD2 1B00                        6013+         SR    R0,R0               PREPARE FOR NEXT                     C0564000

000CD4 47F0 80D8      00CA8        6014+         B     COF0340N           CONVERT NEXT VALUE OF SET             C0566000
000CD8 000A                        6015+COF0340T DC    H'10'               CONVERSION CONSTANT                  C0580000
000CDA 270F                        6016+COF0340U DC    H'9999'                                                  C0594000
000CDC 0000                        6017+COF0340W DC    H'0'                WORK AREA FOR CONVERSION             C0596000

000CDE                             6018+COF0340E DS    0H                  END OF BINARY CONVERT                C0600000
000CDE 58F0 5000      00000        6019          L     R15,0(0,WD)         POINT TO OPERAND                     C3384500
000CE2 95D1 F000      00000        6020          CLI   0(R15),C'J'         IS IT JOB                            C3385000
000CE6 4780 812A      00CFA        6021          BE    CDFSETJ             IF SO SET JOB                        C3385500
000CEA 4900 83EC      00FBC        6022          CH    R0,CDFMAX           TEST MAXIMUM ROUTE CODE              C3386000
000CEE 4720 83B4      00F84        6023          BH    CDFINVO             IF HIGH INVALID                      C3388000
000CF2 1820                        6024          LR    WA,R0               SAVE ROUTE                           C3389000
000CF4 1831                        6025          LR    WB,R1                LIMITS                              C3389500
000CF6 47F0 807A      00C4A        6026          B     CDFNSPEC            LOOP TO NEXT SPECIFICATION           C3390000
000CFA 1841                        6027 CDFSETJ  LR    WC,R1               SAVE JOB                             C3390500
000CFC 18A0                        6028          LR    R10,R0               LIMITS                              C3391000
000CFE 47F0 807A      00C4A        6029          B     CDFNSPEC            GET NEXT SPECIFICATION               C3391500

000D02 9210 D0E0      000E0        6030 CDFSETH  MVI   COMPNTER,CDFHOLD    SET HOLD FLAG TEMPORILY              C3392000
000D06 47F0 807A      00C4A        6031          B     CDFNSPEC            GET NEXT SPECIFICATION               C3392500
000D0A 9230 D0E0      000E0        6032 CDFSETA  MVI   COMPNTER,CDFRELJ+CDFHOLD SET TO DISPLAY ALL JOBS         C3393000

000D0E 47F0 807A      00C4A        6033          B     CDFNSPEC            GET NEXT SPECIFICATION               C3393500
                                   6034 ******************************************************************      C3394000
                                   6035 *                                                                       C3394500
                                   6036 *        PREPARE TO SCAN JOES FOR EACH ROUTE CODE                       C3395000
                                   6037 *                                                                       C3395500
                                   6038 ******************************************************************      C3396000
                            00000  6039          USING JOTDSECT,WF                                              C3396500
                            00000  6040          USING JOEDSECT,R1                                              C3397000
000D12 4040 D0EC      000EC        6041 CDFOK    STH   WC,CDFLJOB          SET LOW JOB                          C3397500
000D16 40A0 D0EE      000EE        6042          STH   R10,CDFHJOB         SET HIGH JOB                         C3398000
000D1A 4020 D0F6      000F6        6043          STH   WA,CDFEROUT         SAVE END ROUTE                       C3398500
000D1E 4030 D0F4      000F4        6044          STH   WB,CDFCROUT         SAVE STARTING ROUTE                  C3399000

000D22 4150 D0A9      000A9        6045          LA    WD,COMMAND+70-5     POINT TO LAST OUTPUT ELEMENT         C3399500

                                   6046 *        ICM   WD,8,COMPNTER       PICK UP JOB TYPE FLAGS          RFIT C3400000
000D26 4340 D0E0      000E0        6047          IC    WC,COMPNTER         PICK UP JOB TYPE FLAGS          RFIT C3400100

000D2A 8940 0018      00018        6048          SLL   WC,24               SHIFT OVER TO HI BYTE           RFIT C3400200
000D2E 1654                        6049          OR    WD,WC               OR TOGETHER                     RFIT C3400300
000D30 5050 D0F0      000F0        6050          ST    WD,CDFCOMPR-1+CDFFLAGS-CDFFLAGS SET PTR AND FLAGS        C3400500
000D34 1B44                        6051          SR    WC,WC               MAKE HALF WORD REGISTER              C3401000
000D36 5870 B0F8      000F8        6052          L     WF,CDFJOT           POINT TO JOT                         C3401500
COMM     HASP COMMAND PROCESSOR HASPCJ1B - JOB QUEUE COMMANDS                                                  PAGE  141


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6054 ******************************************************************      C3402500
                                   6055 *                                                                       C3403000
                                   6056 *        GET JOE AND PREPARE TO SCAN                                    C3403500
                                   6057 *                                                                       C3404000
                                   6058 ******************************************************************      C3404500

000D3A 4110 700A      0000A        6059 CDFNROUT LA    R1,JOTCHRQ-(JOENEXT-JOEDSECT) QUEUE HEAD                 C3405000
                                   6060 *        ICM   WC,3,JOENEXT        PICK UP FIRST JOE OFFSET        RFIT C3405500

000D3E 1B44                        6061          SR    WC,WC                   CLEAR REGISTER              RFIT C3405502

000D40 4340 1000      00000        6062          IC    WC,JOENEXT              SIMULATE                    RFIT C3405505
000D44 8940 0008      00008        6063          SLL   WC,8                    ICM                         RFIT C3405510
000D48 4340 1001      00001        6064          IC    WC,JOENEXT+1            WC,3,JOENEXT                RFIT C3405515
000D4C 1244                        6065          LTR   WC,WC                   SET CONDITION CODE          RFIT C3405520
000D4E 4780 8364      00F34        6066          BZ    CDFNOJOP            EXIT IF NO JOES                      C3406000
000D52 4114 7000      00000        6067          LA    R1,0(WC,WF)         POINT TO JOE                         C3406500
000D56 D20B D0E0 1004 000E0 00004  6068 CDFMVCHR MVC   CDFCHAR(12),JOEFORM MOVE CHARACTERISTICS                 C3407000
000D5C D203 D068 83E8 00068 00FB8  6069          MVC   COMMAND(4),CDFOUT   INSERT 'OUT '                        C3407500
000D62 D219 D06C D06B 0006C 0006B  6070          MVC   COMMAND+4(26),COMMAND+3 BLANK REST OF BASE               C3408000
000D68 4800 D0F4      000F4        6071          LH    R0,CDFCROUT         LOCATE ROUTE CODE                    C3408500
                                   6072          $CFCVE VALUE=(R0),SYMBOL=CDFCVE CONVERT ROUTE CODE             C3409000
000D6C 45E0 8386      00F56        6073+         BAL   LINK,CDFCVE                                              C0674000

000D70 D202 D06C D062 0006C 00062  6074          MVC   COMMAND+4(3),COMDWORK+2 INSERT ROUTE CODE                C3409500
000D76 92C6 D070      00070        6075          MVI   COMMAND+8,C'F'      FORMS ID                             C3410000
000D7A 927E D071      00071        6076          MVI   COMMAND+9,C'='                                           C3410500

000D7E D203 D072 D0E0 00072 000E0  6077          MVC   COMMAND+10(4),CDFFORMS TEXT                              C3411000
000D84 92C3 D077      00077        6078          MVI   COMMAND+15,C'C'     FCB CARRAGE                          C3411500
000D88 927E D078      00078        6079          MVI   COMMAND+16,C'='                                          C3412000
000D8C D203 D079 D0E4 00079 000E4  6080          MVC   COMMAND+17(4),CDFFCB TEXT                                C3412500
000D92 92E3 D07E      0007E        6081          MVI   COMMAND+22,C'T'     UCS TRAIN                            C3413000
000D96 927E D07F      0007F        6082          MVI   COMMAND+23,C'='                                          C3413500
000D9A D203 D080 D0E8 00080 000E8  6083          MVC   COMMAND+24(4),CDFUCS TEXT                                C3414000
000DA0 D203 D086 83F0 00086 00FC0  6084          MVC   COMMAND+30(4),CDFCLS SET 'CLS '                          C3414500
000DA6 4150 D08A      0008A        6085          LA    WD,COMMAND+34       POINT TO FIRST CLASS SLOT            C3415000
COMM     HASP COMMAND PROCESSOR HASPCJ1B - JOB QUEUE COMMANDS                                                  PAGE  142


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6087 ******************************************************************      C3416000

                                   6088 *                                                                       C3416500
                                   6089 *        SCAN CLASS QUEUES                                              C3417000
                                   6090 *                                                                       C3417500
                                   6091 ******************************************************************      C3418000

000DAA 1B33                        6092          SR    WB,WB               SET FOR CLASS A                      C3418500
000DAC 47F0 81EC      00DBC        6093          B     CDFACLS             PROCESS CLASS                        C3419000
000DB0 4130 3002      00002        6094 CDFNCLS  LA    WB,2(0,WB)          UP TO NEXT CLASS                     C3419500
000DB4 4930 83E2      00FB2        6095          CH    WB,CDFMCLS          CHECK FOR MAXIMUM CLASS              C3420000
000DB8 4720 8318      00EE8        6096          BH    CDFEJOE             EXIT FOR THIS CHARACTERISTIC         C3420500
000DBC D203 5001 83E4 00001 00FB4  6097 CDFACLS  MVC   1(4,WD),CDFPATRN    SET '=**,'                           C3421000

                                   6098 ******************************************************************      C3421500
                                   6099 *                                                                       C3422000
                                   6100 *        PASS THROUGH JOES FOR A CLASS                                  C3422500
                                   6101 *                                                                       C3423000
                                   6102 ******************************************************************      C3423500
000DC2 1B00                        6103          SR    R0,R0               SET COUNT                            C3424000
000DC4 41F0 0001      00001        6104          LA    R15,1               SET INCREMENTOR                      C3424500
000DC8 4113 700C      0000C        6105          LA    R1,JOTCLSQ-(JOENEXT-JOEDSECT)(WB) POINT TO QUEUE         C3425000

                                   6106 *CDFNXTJOICM   WC,3,JOENEXT        PICK UP OFFSET OF NEXT          RFIT C3425500

000DCC 1B44                        6107 CDFNXTJO SR    WC,WC                   CLEAR REGISTER              RFIT C3425502
000DCE 4340 1000      00000        6108          IC    WC,JOENEXT              SIMULATE                    RFIT C3425505
000DD2 8940 0008      00008        6109          SLL   WC,8                    ICM                         RFIT C3425510
000DD6 4340 1001      00001        6110          IC    WC,JOENEXT+1            WC,3,JOENEXT                RFIT C3425515
000DDA 1244                        6111          LTR   WC,WC                   SET CINDITION CODE          RFIT C3425520
000DDC 4780 82A8      00E78        6112          BZ    CDFECLS             EXIT IF END OF CLASS                 C3426000
000DE0 4114 7000      00000        6113          LA    R1,0(WC,WF)         POINT TO JOE                         C3426500
000DE4 9180 1002      00002        6114          TM    JOEFLAG,$JOEBUSY    TEST FOR JOE BUSY                    C3427000
000DE8 4710 81FC      00DCC        6115          BO    CDFNXTJO            IF BUSY FORGET IT                    C3427500

000DEC 58E0 B13C      0013C        6116          L     R14,$JOBQPTR        POINT TO JOB QUEUE ORIGIN            C3428000
000DF0 5AE0 1010      00010        6117          A     R14,JOEJQE          POINT TO ELEMENT                     C3428500
000DF4 91C0 E004      00004        6118          TM    QUEFLAGS(R14),QUEHOLDA+QUEHOLD1 JOB HELD                 C3429000
000DF8 4780 8238      00E08        6119          BZ    CDFJBNH             IF NOT TEST FOR DESIRES              C3429500
000DFC 9110 D0F0      000F0        6120          TM    CDFFLAGS,CDFHOLD    DOES USER WANT HOLD                  C3430000

000E00 4780 81FC      00DCC        6121          BZ    CDFNXTJO            IF NOT FORGET IT                     C3430500
000E04 47F0 8240      00E10        6122          B     CDFCKR              CHECK RANGE                          C3431000

000E08 9120 D0F0      000F0        6123 CDFJBNH  TM    CDFFLAGS,CDFRELJ    DOES USER WANT NON HELD              C3431500
000E0C 4780 81FC      00DCC        6124          BZ    CDFNXTJO            IF NOT FORGET IT                     C3432000
000E10 D501 E002 D0EC 00002 000EC  6125 CDFCKR   CLC   QUEJOBNO(2,R14),CDFLJOB TEST FOR WITHIN RANGE            C3432500
000E16 4740 81FC      00DCC        6126          BL    CDFNXTJO            IF LOW FORGET IT                     C3433000
000E1A D501 E002 D0EE 00002 000EE  6127          CLC   QUEJOBNO(2,R14),CDFHJOB TEST FOR WITHIN RANGE            C3433500
000E20 4720 81FC      00DCC        6128          BH    CDFNXTJO            IF HIGH FORGET IT                    C3434000
000E24 9180 100A      0000A        6129          TM    JOEROUT,$JOEIRTE    IS THIS INDIRECT ROUTING             C3434500
000E28 4780 8274      00E44        6130          BZ    CDFNRTE             IF NOT DO NORMAL ROUTE               C3435000

000E2C D500 E00C D0F5 0000C 000F5  6131          CLC   QUEPRTRT(1,R14),CDFCROUT+1 ROUTE CODES MATCH             C3435500
000E32 4780 827E      00E4E        6132          BE    CDFRTEOK            IF YES SKIP NEXT                     C3436000
000E36 D500 E00D D0F5 0000D 000F5  6133          CLC   QUEPUNRT(1,R14),CDFCROUT+1 ROUTE CODES MATCH             C3436500
000E3C 4780 827E      00E4E        6134          BE    CDFRTEOK            IF YES DO NEXT TEST                  C3437000
000E40 47F0 81FC      00DCC        6135          B     CDFNXTJO            FORGET IT                            C3437500

000E44 D500 100B D0F5 0000B 000F5  6136 CDFNRTE  CLC   JOEROUT+1(1),CDFCROUT+1 CHECK AGAINST CURRENTTE          C3438000
000E4A 4770 81FC      00DCC        6137          BNE   CDFNXTJO            IF NOT FORGET IT                     C3438500
                                   6138 *CDFRTEOKICM   WC,3,JOECHAR        GET CHARACTERISTIC JOE          RFIT C3439000

000E4E 1B44                        6139 CDFRTEOK SR    WC,WC                   CLEAR REGISTER              RFIT C3439002
000E50 4340 1004      00004        6140          IC    WC,JOECHAR              SIMULATE                    RFIT C3439005
000E54 8940 0008      00008        6141          SLL   WC,8                    ICM                         RFIT C3439010
COMM     HASP COMMAND PROCESSOR HASPCJ1B - JOB QUEUE COMMANDS                                                  PAGE  143


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000E58 4340 1005      00005        6142          IC    WC,JOECHAR+1            WC,3,JOECHAR                RFIT C3439015
000E5C 41E4 7000      00000        6143          LA    R14,0(WC,WF)        TRUE ADDRESS                         C3439500

000E60 D50B D0E0 E004 000E0 00004  6144          CLC   CDFCHAR(12),JOEFORM-JOEDSECT(R14) CHECK FOR MATCH        C3440000
000E66 4770 81FC      00DCC        6145          BNE   CDFNXTJO            IF NOT FORGET IT                     C3440500
000E6A 1A0F                        6146          AR    R0,R15              UP 1                                 C3441000
000E6C 4900 83E0      00FB0        6147          CH    R0,CDFONEH          CHECK FOR OVERFLOW                   C3441500
000E70 4740 81FC      00DCC        6148          BL    CDFNXTJO            LOOP                                 C3442000

000E74 47F0 82B8      00E88        6149          B     CDFOVF              GO TO OVERFLOW ROUTINE               C3442500
COMM     HASP COMMAND PROCESSOR HASPCJ1B - JOB QUEUE COMMANDS                                                  PAGE  144


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6151 ******************************************************************      C3443500

                                   6152 *                                                                       C3444000
                                   6153 *        PUT COUNT IN RESPONSE COUNT FIELD                              C3444500
                                   6154 *                                                                       C3445000
                                   6155 ******************************************************************      C3445500
000E78 1200                        6156 CDFECLS  LTR   R0,R0               IS THIS ZERO                         C3446000
000E7A 4780 81E0      00DB0        6157          BZ    CDFNCLS             IF ZERO DO NEXT CLASS                C3446500

                                   6158          $CFCVE VALUE=(R0),SYMBOL=CDFCVE CONVERT TO EBCDIC              C3447000
000E7E 45E0 8386      00F56        6159+         BAL   LINK,CDFCVE                                              C0674000
000E82 D201 5002 D063 00002 00063  6160          MVC   2(2,WD),COMDWORK+3  INSERT COUNT                         C3447500
000E88 1813                        6161 CDFOVF   LR    R1,WB               COPY QUEUE OFFSET                    C3448000
000E8A 8A10 0001      00001        6162          SRA   R1,1                HALVE IT                             C3448500

000E8E 4210 5000      00000        6163          STC   R1,0(0,WD)          SAVE FOR COMPARE                     C3449000
000E92 9509 5000      00000        6164          CLI   0(WD),9             A-I RANGE                            C3449500
000E96 4740 82E6      00EB6        6165          BL    CDFADA              IF YES ADJUST TO EBCDIC              C3450000
000E9A 9512 5000      00000        6166          CLI   0(WD),18            J-R RANGE                            C3450500
000E9E 4740 82E2      00EB2        6167          BL    CDFADJ              IF YES ADJUST TO EBCDIC              C3451000

000EA2 951A 5000      00000        6168          CLI   0(WD),26            S-Z RANGE                            C3451500
000EA6 4740 82DE      00EAE        6169          BL    CDFADS              IF YES ADJUST TO EBCDIC              C3452000
                                   6170 * CDFAD0                           0-9 RANGE ADJUSTMENT                 C3452500
000EAA 4110 1006      00006        6171          LA    R1,C'0'-C'S'-8(0,R1) ADD 6                               C3453000
000EAE 4110 1008      00008        6172 CDFADS   LA    R1,C'S'-C'J'-9(0,R1) ADD 8                               C3453500

000EB2 4110 1007      00007        6173 CDFADJ   LA    R1,C'J'-C'A'-9(0,R1) ADD 7                               C3454000
000EB6 4110 10C1      000C1        6174 CDFADA   LA    R1,C'A'(0,R1)        ADD 193                             C3454500
000EBA 4210 5000      00000        6175          STC   R1,0(0,WD)          STORE RESULT                         C3455000
000EBE 4150 5005      00005        6176          LA    WD,5(0,WD)          UP TO NEXT                           C3455500
000EC2 96C0 D0F0      000F0        6177          OI    CDFFLAGS,CDFJOEOK+CDFSOMJO SET FLAGS                     C3456000

                                   6178 *        CLM   WD,7,CDFCOMPR       CHECK FOR OUTPUT REQUIRED       RFIT C3456500
000EC6 5050 D05C      0005C        6179          ST    WD,COMEWORK             SIMULATE                    RFIT C3456510
000ECA D502 D05D D0F1 0005D 000F1  6180          CLC   COMEWORK+1(3),CDFCOMPR  CODE                        RFIT C3456520
000ED0 47D0 81E0      00DB0        6181          BNH   CDFNCLS             IF NOT GO TO NEXT CLASS              C3457000
000ED4 4540 839E      00F6E        6182          BAL   WC,CDFPRNT          DISPLAY MESSAGE                      C3457500
000ED8 1B44                        6183          SR    WC,WC               ZERO HALF WORD POINTER               C3458000

000EDA D203 D068 83F0 00068 00FC0  6184          MVC   COMMAND(4),CDFCLS   SET 'CLS '                           C3458500
000EE0 4150 D06C      0006C        6185          LA    WD,COMMAND+4        POINT TO AVAILABLE SLOT              C3459000
000EE4 47F0 81E0      00DB0        6186          B     CDFNCLS             NEXT CLASS                           C3459500
                                   6187 ******************************************************************      C3460000

                                   6188 *                                                                       C3460500
                                   6189 *        END OF SCAN FOR A GIVEN CHARACTERISTIC                         C3461000
                                   6190 *                                                                       C3461500
                                   6191 ******************************************************************      C3462000
000EE8 9140 D0F0      000F0        6192 CDFEJOE  TM    CDFFLAGS,CDFSOMJO   IS THERE SOMETHING TO PRINT          C3462500

000EEC 4780 8326      00EF6        6193          BZ    CDFEJOA             IF NOT FORGET IT                     C3463000
000EF0 4540 839E      00F6E        6194          BAL   WC,CDFPRNT          DISPLAY MESSAGE                      C3463500
000EF4 1B44                        6195          SR    WC,WC               ZERO HALF WORD POINTER               C3464000
000EF6 4110 700A      0000A        6196 CDFEJOA  LA    R1,JOTCHRQ-(JOENEXT-JOEDSECT) QUEUE HEAD                 C3464500
                                   6197 *CDFEJOB ICM   WC,3,JOENEXT        PICK UP NEXT JOE OFFSET         RFIT C3465000
000EFA 1B44                        6198 CDFEJOB  SR    WC,WC                   CLEAR REGISTER              RFIT C3465002
000EFC 4340 1000      00000        6199          IC    WC,JOENEXT              SIMULATE                    RFIT C3465005

000F00 8940 0008      00008        6200          SLL   WC,8                    ICM                         RFIT C3465010
000F04 4340 1001      00001        6201          IC    WC,JOENEXT+1            WC,3,JOENEXT                RFIT C3465015
000F08 1244                        6202          LTR   WC,WC                   SET CONDITION CODE          RFIT C3465020

000F0A 4780 8350      00F20        6203          BZ    CDFNOJO             EXIT IF NO JOES                      C3465500
000F0E 4114 7000      00000        6204          LA    R1,0(WC,WF)         POINT TO JOE                         C3466000
000F12 D50B D0E0 1004 000E0 00004  6205          CLC   CDFCHAR(12),JOEFORM CHECK FOR ONE WE WANT                C3466500
COMM     HASP COMMAND PROCESSOR HASPCJ1B - JOB QUEUE COMMANDS                                                  PAGE  145


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000F18 47B0 832A      00EFA        6206          BNL   CDFEJOB             IF NOT LOOP                          C3467000
000F1C 47F0 8186      00D56        6207          B     CDFMVCHR            IF SO COPY CHARACTERISTICS           C3467500
COMM     HASP COMMAND PROCESSOR HASPCJ1B - JOB QUEUE COMMANDS                                                  PAGE  146


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6209 ******************************************************************      C3468500
                                   6210 *                                                                       C3469000
                                   6211 *        END OF PASS THROUGH ALL JOES                                   C3469500
                                   6212 *                                                                       C3470000

                                   6213 ******************************************************************      C3470500
000F20 4810 D0F4      000F4        6214 CDFNOJO  LH    R1,CDFCROUT         PICK UP CURRENT ROUTING              C3471000

000F24 4110 1001      00001        6215          LA    R1,1(0,R1)          UP 1                                 C3471500
000F28 4010 D0F4      000F4        6216          STH   R1,CDFCROUT         SAVE ROUTE CODE                      C3472000
000F2C 4910 D0F6      000F6        6217          CH    R1,CDFEROUT         CHECK FOR TOO HIGH                   C3472500
000F30 47D0 816A      00D3A        6218          BNH   CDFNROUT            IF NOT CHECK NEXT                    C3473000
000F34 9180 D0F0      000F0        6219 CDFNOJOP TM    CDFFLAGS,CDFJOEOK   DID WE FIND ANY                      C3473500

000F38 4780 8374      00F44        6220          BZ    CDFEMPTY            EXIT WITH DIAGNOSTIC IF NO           C3474000
                                   6221          $CRET ,                   RETURN                               C3474500
000F3C                             6222+         DS    0H                                                       NU006000
000F3C 41F0 0000      00000        6223+         LA    R15,CORTNORM        NORMAL RETURN                        C0268000
000F40 45E0 B088      00088        6224+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   6225 CDFEMPTY $CRET MSG=CDFOUTE,L=CDFOUTL RETURN WITH DIAGNOSTIC             C3475000
000F44                             6226+CDFEMPTY DS    0H                                                       NU006000
000F44 4100 0010      00010        6227+         LA    R0,CDFOUTL                                               C0230000
000F48 D20F D068 83F4 00068 00FC4  6228+         MVC   COMMAND(CDFOUTL),CDFOUTE                                 C0248000

000F4E 41F0 0008      00008        6229+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000

000F52 45E0 B088      00088        6230+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   6231 CDFCVE   $CFCVE TYPE=DEF           CONVERT TO PRINTABLE                 C3475500
000F56                             6232+CDFCVE   DS    0H                                                       NU006000
                                   6233+* CONVERT TO EBCDIC AND LEAVE ANSWER IN COMDWORK ( 5 DIGITS )           C0684000
000F56 4E00 D060      00060        6234+         CVD   R0,COMDWORK         CONVERT TO DECIMAL                   C0686000

000F5A D205 D05F 8398 0005F 00F68  6235+         MVC   COMDWORK-1(6),COF0359 MOVE MASK TO BLANK OUT HIGH ZEROS  C0688000
000F60 DE05 D05F D065 0005F 00065  6236+         ED    COMDWORK-1(6),COMDWORK+5 CONVERT TO EBCDIC               C0690000
000F66 07FE                        6237+         BR    LINK                RETURN                               C0694000
000F68 402020202120                6238+COF0359  DC    X'402020202120'     MASK FOR EDIT                        C0696000
                                   6239 ******************************************************************      C3476000
                                   6240 *                                                                       C3476500
                                   6241 *        DISPLAY A LINE                                                 C3477000
                                   6242 *                                                                       C3477500
                                   6243 ******************************************************************      C3478000
                                   6244 CDFPRNT  $SRR  WC                  MAKE RELATIVE                        C3478500

000F6E 1F48                        6245+CDFPRNT  SLR   WC,BASE3                                                 C2068000

000F70 1805                        6246          LR    R0,WD               POINT TO END + 2                     C3479000
000F72 4110 D069      00069        6247          LA    R1,COMMAND+1        START + 1                            C3479500
000F76 1B01                        6248          SR    R0,R1               GET COUNT                            C3480000
                                   6249          $CWTO L=(R0)              DISPLAY MESSAGE                      C3480500

000F78                             6250+         DS    0H                                                       NU006000
000F78 4520 C00C      0000C        6251+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
000F7C 94BF D0F0      000F0        6252          NI    CDFFLAGS,255-CDFSOMJO TURN OFF FLUSH BIT                 C3481000
                                   6253          $ARR  WC                  MAKE TRUE                            C3481500
000F80 1E48                        6254+         ALR   WC,BASE3                                                 C2038000
000F82 07F4                        6255          BR    WC                  RETURN                               C3482000
COMM     HASP COMMAND PROCESSOR HASPCJ1B - JOB QUEUE COMMANDS                                                  PAGE  147


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6257 ******************************************************************      C3483000
                                   6258 *                                                                       C3483500
                                   6259 *        MISCELLANEOUS                                                  C3484000

                                   6260 *                                                                       C3484500
                                   6261 ******************************************************************      C3485000
000F84 5810 5000      00000        6262 CDFINVO  L     R1,0(0,WD)          POINT TO INVALID OPERAND             C3485500
                                   6263          $CFINVO OPERAND=(R1)      EXIT                                 C3486000

                                   6264+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
000F88 D208 D068 1000 00068 00000  6265+         MVC   COMMAND(9),0(R1)                                         C1204000
000F8E D20F D071 83D0 00071 00FA0  6266+         MVC   COMMAND+9(16),COF0368 MOVE DIAGNOSTIC BEHIND TEXT        C1206000
000F94                             6267+         DS    0H                                                       NU006000
000F94 4100 0019      00019        6268+         LA    R0,25                                                    C0230000
000F98 41F0 0008      00008        6269+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
000F9C 45E0 B088      00088        6270+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
000FA0 40C9D5E5C1D3C9C4            6271+COF0368  DC    C' INVALID OPERAND'                                      C1210000
000FB0 0064                        6272 CDFONEH  DC    H'100'              MAX COUNT + 1                        C3486500
000FB2 0046                        6273 CDFMCLS  DC    H'70'               MAXIMUM CLASS * 2                    C3487000
000FB4 7E5C5C6B                    6274 CDFPATRN DC    C'=**,'             PATTERN FOR CLASS ELEMENTS           C3487500
000FB8 D6E4E340                    6275 CDFOUT   DC    C'OUT '                                                  C3488000

000FBC 00FF                        6276 CDFMAX   DC    H'255'              MAXIMUM ROUTE CODE                   C3488500
000FBE 7FFF                        6277 CDFMJOB  DC    H'32767'            DEFAULT MAXIMUM JOB NUMBER           C3489000
000FC0 C3D3E240                    6278 CDFCLS   DC    C'CLS '                                                  C3489500

000FC4 D5D640D6E4E3D7E4            6279 CDFOUTE  DC    C'NO OUTPUT QUEUED'                                      C3490000
                            00010  6280 CDFOUTL  EQU   *-CDFOUTE                                                C3490500
                            000E0  6281 CDFCHAR  EQU   COMPNTER            ALL CHARACTERISTICS                  C3491000
                            000E0  6282 CDFFORMS EQU   COMPNTER            FORMS CHARACTERISTIC                 C3491500
                            000E4  6283 CDFFCB   EQU   COMPNTER+4          FCB CHARACTERISTIC                   C3492000
                            000E8  6284 CDFUCS   EQU   COMPNTER+8          UCS CHARACTERISTIC                   C3492500
                            000EC  6285 CDFLJOB  EQU   COMNULOP-8          LOW JOB NUMBER OF RANGE              C3493000
                            000EE  6286 CDFHJOB  EQU   COMNULOP-6          HIGH JOB NUMBER OF RANGE             C3493500
                            000F0  6287 CDFFLAGS EQU   COMNULOP-4          FLAGS                                C3494000
                            00080  6288 CDFJOEOK EQU   X'80'               AT LEAST ONE JOE HAD INFO            C3494500
                            00040  6289 CDFSOMJO EQU   X'40'               THIS JOE HAS SOME TO DISPLAY         C3495000
                            00020  6290 CDFRELJ  EQU   X'20'               DISPLAY RELEASED JOBS                C3495500

                            00010  6291 CDFHOLD  EQU   X'10'               DISPLAY HELD JOBS                    C3496000

                            000F1  6292 CDFCOMPR EQU   COMNULOP-3          LAST CLASS ELEMENT ADDRESS           C3496500
                            000F4  6293 CDFCROUT EQU   COMNULOP            CURRENT ROUTING                      C3497000

                            000F6  6294 CDFEROUT EQU   COMNULOP+2          LAST ROUTING                         C3497500
                                   6295          DROP  R1                                                       C3498000
                                   6296          DROP  WF                                                       C3498500
COMM     HASP COMMAND PROCESSOR HASPCJB2 - JOB LIST COMMANDS                                                   PAGE  148


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6298 HASPCJB2 $COMGRUP AJ,CJ,DJ,HJ,PJ,DELAY=YES,PRTY=0                       C3568000
000FD8                             6299+HA$OCJB2 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            00FD8  6300+HA$ICJB2 EQU   HA$OCJB2+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   6301+         ENTRY HA$ICJB2                                                 OV036000
000FD8 C3D1C2F2                    6302+         DC    CL4'CJB2'           IDENTIFY MODULE ON CORE DUMP         OV038000
000FDC 00000FD8                    6303+         DC    A(HA$OCJB2)         ASSEMBLY ORIGIN                      OV040000
000FE0                             6304+HASPCJB2 DS    0F                  ENTRY POINT                          OV042000

                            00F80  6305+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
000FE0 4811 8060      00FE0        6306+         LH    R1,HASPCJB2(R1)     PICK UP TABLE OFFSET                 C0118000

000FE4 47F0 8072      00FF2        6307+         B     COF0372                EXIT FOR DELAYED ENTRY            C0124000

000FE8 00F2                        6308+COAJ             DC AL2(CAJ-HASPCJB2)                                   C0134000
000FEA 0160                        6309+COCJ             DC AL2(CCJ-HASPCJB2)                                   C0134000
000FEC 0230                        6310+CODJ             DC AL2(CDJ-HASPCJB2)                                   C0134000
000FEE 0394                        6311+COHJ             DC AL2(CHJ-HASPCJB2)                                   C0134000
000FF0 03A8                        6312+COPJ             DC AL2(CPJ-HASPCJB2)                                   C0134000
000FF2                             6313+COF0372    DS  0H                  $BRR R1 TO ENTER ROUTINE             C0140000
                                   6314 *********************************************************************** C3570000
                                   6315 *                                                                     * C3572000
                                   6316 *        JOB NUMBER LISTS ARE OF THE FOLLOWING FORM                   * C3574000
                                   6317 *                                                                     * C3576000
                                   6318 *        $V JXXN1-M1,N2-M2,...,NX-MX                                  * C3578000
                                   6319 *        $V    = HASP COMMAND VERB                                    * C3580000

                                   6320 *        JXX   = JOB, JB, JOBS, ETC. ( J IS ONLY ID REQUIRED )        * C3582000
                                   6321 *        NI-MI ( I=1 TO X ) = PAIR OF START STOP VALUES, IE. 1-10     * C3584000
                                   6322 *              INDICATING THAT JOBS 1,2,3,4,5,6,7,8,9,10 ARE          * C3586000

                                   6323 *              DESIRED. ( -M VALUES ARE OPTIONAL )                    * C3588000
                                   6324 *                                                                     * C3590000
                                   6325 * NOTES                                                               * C3592000
                                   6326 *        A RESPONSE IS REQUIRED FOR EACH JOB                          * C3594000
                                   6327 *                                                                     * C3596000
                                   6328 *********************************************************************** C3598000
000FF2 1831                        6329          LR    WB,R1               SAVE OFFSET                          C3600000
000FF4 1845                        6330          LR    WC,WD               SAVE STARTING OPERAND                C3602000
                                   6331 CAJLOOP  $CFCVB POINTER=(WC),NOK=CAJINVO CONVERT NUMBER PAIR TO BINARY  C3604000
000FF6                             6332+CAJLOOP  DS    0H                                                       NU006000
000FF6 1814                        6333+         LR    R1,WC                                                    DG018000
000FF8 58F0 1000      00000        6334+         L     R15,0(0,R1)         PICK UP FIRST PARAMETER              C0482000

000FFC 95F0 F000      00000        6335+         CLI   0(R15),C'0'         LOOK FOR NUMERIC ( FA-FF INCLUDED )  C0484000
001000 47B0 80A2      01022        6336+         BNL   COF0374L           IF NUMERIC CONVERT                    C0486000
001004 41F0 F001      00001        6337+         LA    R15,1(0,R15)        NEXT CHARACTER                       C0488000

001008 5020 D01C      0001C        6338+         ST    WA,PCEWA            SAVE WORK REGISTER           OY08684 C0488500
00100C 5820 1004      00004        6339+         L     WA,4(0,R1)          CLEAR HIGH ORDER BYTE OF     OY08684 C0489000
001010 4120 2000      00000        6340+         LA    WA,0(0,WA)          NEXT OPERAND POINTER         OY08684 C0489500
001014 19F2                        6341+         CR    R15,WA              DID WE GO TOO FAR            OY08684 C0490000
001016 5820 D01C      0001C        6342+         L     WA,PCEWA            RESTORE WORK REGISTER        OY08684 C0491000
00101A 4740 807C      00FFC        6343+         BL    *-30                LOOP UNTIL NUMERIC OR ERROR  OY08684 C0492000
00101E 47F0 8126      010A6        6344+         B     CAJINVO                                                  C0500000
                                   6345+* CONVERT PAIR OF START STOP VALUES                                     C0504000
001022 1B00                        6346+COF0374L SR    R0,R0               ZERO ACCUMULATOR, STOP VALUE         C0506000
001024 111F                        6347+         LNR   R1,R15              SET NEGATIVE FLAGS                   C0510000
001026 D100 80F1 F000 01071 00000  6348+COF0374C MVN COF0374W+1(1),0(R15)  MOVE NUMERIC TO WORK AREA            C0514000
00102C 4C00 80EC      0106C        6349+         MH    R0,COF0374T        MULTIPLY BY 10                        C0516000

001030 4A00 80F0      01070        6350+         AH    R0,COF0374W        ADD LOW DIGIT                         C0518000
001034 4900 80EE      0106E        6351+         CH    R0,COF0374U        LOOK FOR MAXIMUM VALUE                C0520000
001038 4720 8126      010A6        6352+         BH    CAJINVO                                                  C0528000
COMM     HASP COMMAND PROCESSOR HASPCJB2 - JOB LIST COMMANDS                                                   PAGE  149



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00103C 41F0 F001      00001        6353+COF0374N LA    R15,1(0,R15)        NEXT CHARACTER                       C0532000
001040 95F0 F000      00000        6354+         CLI   0(R15),C'0'         TEST FOR NUMERIC ( FA-FF INCLUDED )  C0534000
001044 47B0 80A6      01026        6355+         BNL   COF0374C           IF NUMERIC CONVERT THE CHARACTER      C0536000
001048 9560 F000      00000        6356+         CLI   0(R15),C'-'         LOOK FOR SEPARATOR                   C0540000
00104C 4780 80DC      0105C        6357+         BE    *+16                CONVERT NEXT VALUE                   C0542000

001050 1510                        6358+         CLR   R1,R0               TEST FOR BOTH VALUES                 C0544000
001052 47D0 80F2      01072        6359+         BNH   COF0374E            EXIT WITH CONVERTED VALUES           C0556000
001056 1810                        6360+         LR    R1,R0               SET TO SAME                          C0558000
001058 47F0 80F2      01072        6361+         B     COF0374E            EXIT WITH CONVERTED VALUES           C0560000
00105C 95F0 F001      00001        6362+         CLI   1(R15),C'0'         IS NEXT CHARACTER NUMERIC    OY05847 C0560300
001060 4740 8126      010A6        6363+         BL    CAJINVO             NO RETURN INVALID OPERAND    OY05847 C0561500
001064 1810                        6364+         LR    R1,R0               SET START OF STRING          OY05847 C0562000
001066 1B00                        6365+         SR    R0,R0               PREPARE FOR NEXT                     C0564000

001068 47F0 80BC      0103C        6366+         B     COF0374N           CONVERT NEXT VALUE OF SET             C0566000
00106C 000A                        6367+COF0374T DC    H'10'               CONVERSION CONSTANT                  C0580000

00106E 270F                        6368+COF0374U DC    H'9999'                                                  C0594000
001070 0000                        6369+COF0374W DC    H'0'                WORK AREA FOR CONVERSION             C0596000
001072                             6370+COF0374E DS    0H                  END OF BINARY CONVERT                C0600000
001072 4000 4002      00002        6371          STH   R0,2(0,WC)          STORE FINAL VALUE                    C3606000
001076 4010 4000      00000        6372          STH   R1,0(0,WC)          STORE STARTING VALUE                 C3608000
00107A 8746 8076      00FF6        6373          BXLE  WC,WE,CAJLOOP       COMPLETE FOR ALL STRINGS             C3610000
                                   6374 * START STOP VALUES STORED IN OPERAND POINTER AREA                      C3612000
00107E D202 D068 8422 00068 013A2  6375          MVC   COMMAND(3),CAJOB    SET 'JOB' IN REPLY AREA              C3614000

001084 4840 5000      00000        6376 CAJLOOPA LH    WC,0(0,WD)          PICK UP FIRST JOB OF PAIR            C3616000
                                   6377 CAJLOOPB $CFCVE VALUE=(WC),SYMBOL=CDJCVE CONVERT TO EBCDIC              C3618000
001088 1804                        6378+CAJLOOPB LR    R0,WC                                                    DG018000
00108A 45E0 83DC      0135C        6379+         BAL   LINK,CDJCVE                                              C0674000
00108E D204 D06B D060 0006B 00060  6380          MVC   COMMAND+3(COMJBLEN+1),COMDWORK-COMJBLEN+4 SET NUMBER     C3620000

001094                             6381 CAJLOC   DS    0H                                                       C3621000
                                   6382          $QLOC (WC),CAJNEXT,OLAY=YES LOCATE JOB QUEUE ELEMENT           C3622000
001094 1814                        6383+         LR    R1,WC                                                    DG018000

001096 45E0 B05C      0005C        6384+         BAL   LINK,$QLOC          LINK TO CONTROL SERVICE PROGRAM      QL010000
00109A 4780 8182      01102        6385+         BC    8,CAJNEXT                                                NP008000
                                   6386          $CFVQE NOK=CAJNEXT        VERIFY JOB OWNER                     C3624000
00109E                             6387+         DS    0H                                                       NU006000
00109E 9680 D0F4      000F4        6388          OI    COMNULOP,X'80'      SET JOB INDICATOR                    C3626000
                                   6389          $BRR  WB                  ENTER SELECTED ROUTINE               C3628000
0010A2 47F3 8060      00FE0        6390+         B     HA$OCJB2+OACEPROG-BUFSTART(WB)                           C2058000

0010A6 5810 4000      00000        6391 CAJINVO  L     R1,0(0,WC)          PICK OPERAND ADDRESS                 C3630000
                                   6392          $CFINVO OPERAND=(R1)      RETURN WITH INVALID OPERAND          C3632000
                                   6393+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
0010AA D208 D068 1000 00068 00000  6394+         MVC   COMMAND(9),0(R1)                                         C1204000
0010B0 D20F D071 8142 00071 010C2  6395+         MVC   COMMAND+9(16),COF0392 MOVE DIAGNOSTIC BEHIND TEXT        C1206000

0010B6                             6396+         DS    0H                                                       NU006000
0010B6 4100 0019      00019        6397+         LA    R0,25                                                    C0230000
0010BA 41F0 0008      00008        6398+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
0010BE 45E0 B088      00088        6399+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000

0010C2 40C9D5E5C1D3C9C4            6400+COF0392  DC    C' INVALID OPERAND'                                      C1210000
COMM     HASP COMMAND PROCESSOR HASPCJB2 - JOB LIST COMMANDS                                                   PAGE  150


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6402 *********************************************************************** C3636000
                                   6403 *                                                                     * C3638000
                                   6404 *        $A JOB LIST -- RELEASE JOB(S) HELD BY $H JOB, $H ALL,        * C3640000

                                   6405 *              TYPERUN=HOLD, ETC.                                     * C3642000
                                   6406 *                                                                     * C3644000
                                   6407 *        $RELEASE JOB LIST                                            * C3646000
                                   6408 *                                                                     * C3648000
                                   6409 *********************************************************************** C3650000

0010D2 D209 D070 8418 00070 01398  6410 CAJ      MVC   COMMAND+COMJBLEN+4(10),CAJHMSG SET ' NOT HELD '          C3652000
0010D8 91C0 1004      00004        6411          TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1 IS JOB HELD               C3654000
0010DC 4780 817A      010FA        6412          BZ    CAJMSG              IF NOT SEND NOT HELD                 C3656000
0010E0 943F 1004      00004        6413          NI    QUEFLAGS(R1),255-QUEHOLDA-QUEHOLD1 RELEASE JOB           C3658000
0010E4 D207 D071 8410 00071 01390  6414          MVC   COMMAND+COMJBLEN+5(8),CAJRMSG SET 'RELEASED'             C3660000

                                   6415          $POST $HASPECF,JOB-$EWFJOT ALLOW OTHERS TO CLAIM               C3662000
0010EA 94EE B0C4      000C4        6416+         NI    $HASPECF,255-$EWFJOB-$EWFJOT                             PO008000
0010EE 5820 C0EC      000EC        6417          L     WA,CAJCKPT          PICK UP CHECK POINT                  C3664000
                                   6418          $POST PCEEWF+$EWBWORK-PCEDSECT(WA),WORK FORCE CHECK POINT      C3666000
0010F2 94DF 2049      00049        6419+         NI    PCEEWF+$EWBWORK-PCEDSECT(WA),255-$EWFWORK                PO008000

0010F6 947F B0C4      000C4        6420+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   6421 CAJMSG   $CWTO L=14+COMJBLEN       WRITE MESSAGE ON CONSOLE             C3668000
0010FA                             6422+CAJMSG   DS    0H                                                       NU006000
0010FA 4100 0012      00012        6423+         LA    R0,14+COMJBLEN                                           C0324000
0010FE 4520 C00C      0000C        6424+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000

001102 4140 4001      00001        6425 CAJNEXT  LA    WC,1(0,WC)          NEXT NUMBER OF SEQUENCE              C3670000
001106 4940 5002      00002        6426          CH    WC,2(0,WD)          CHECK FOR END OF PAIR                C3672000
00110A 47D0 8108      01088        6427          BNH   CAJLOOPB            IF NOT, WORK ON NEXT JOB             C3674000
00110E 8756 8104      01084        6428          BXLE  WD,WE,CAJLOOPA      GO TO NEXT PAIR IF PRESENT           C3676000
001112 9180 D0F4      000F4        6429          TM    COMNULOP,X'80'      TEST JOB FOUND INDICATOR             C3678000
001116 4710 81AC      0112C        6430          BO    CAJRET              IF ON, EXIT                          C3680000

                                   6431          $CRET MSG=CAJFMSG,L=16    'JOB(S) NOT FOUND'                   C3682000
00111A                             6432+         DS    0H                                                       NU006000
00111A 4100 0010      00010        6433+         LA    R0,16                                                    C0230000
00111E D20F D068 8422 00068 013A2  6434+         MVC   COMMAND(16),CAJFMSG                                      C0248000

001124 41F0 0008      00008        6435+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
001128 45E0 B088      00088        6436+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   6437 CAJRET   $CRET ,                   EXIT                                 C3684000
00112C                             6438+CAJRET   DS    0H                                                       NU006000
00112C 41F0 0000      00000        6439+         LA    R15,CORTNORM        NORMAL RETURN                        C0268000

001130 45E0 B088      00088        6440+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
COMM     HASP COMMAND PROCESSOR HASPCJB2 - JOB LIST COMMANDS                                                   PAGE  151


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6442 *********************************************************************** C3688000
                                   6443 *                                                                     * C3690000
                                   6444 *        $C JOB LIST -- CANCEL JOB, DELETE APPROPRIATE PRINT/PUNCH    * C3692000
                                   6445 *              FUNCTION AND DELETE JOB                                * C3694000

                                   6446 *                                                                     * C3696000
                                   6447 *********************************************************************** C3698000
                                   6448 CCJWAT   $WAIT CKPT                WAIT FOR CHECK POINT                 C3698400

001134 9604 D048      00048        6449+CCJWAT   OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
001138 45F0 B030      00030        6450+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
00113C 47F0 8114      01094        6451          B     CAJLOC              LOCATE JOB AGAIN                     C3698800
001140 9110 B0C2      000C2        6452 CCJ      TM    $STATUS,$CKPTACT    IS CHECK POINT IN PROCESS            C3699000
001144 4710 81B4      01134        6453          BO    CCJWAT              WAIT ON CHECK POINT IF YES           C3699500

001148 941F 1004      00004        6454          NI    QUEFLAGS(R1),255-QUEHOLDA-QUEHOLD1-QUEHOLD2              C3700000
00114C 9618 1004      00004        6455          OI    QUEFLAGS(R1),QUEPURGE+QUEOPCAN SET FLAGS                 C3700500
001150 91C0 1001      00001        6456          TM    QUETYPE(R1),$XEQ+QENTBY IS JOB EXECUTING                 C3701000
001154 4710 83F8      01378        6457          BO    CHJCKPT             CHECK POINT IF YES                   C3701500
001158 9140 1001      00001        6458          TM    QUETYPE(R1),$XEQ    IS JOB AWAITING XEQ                  C3702000
00115C 4780 81FA      0117A        6459          BZ    CCJNXEQQ            BR IF NOT                            C3702500
001160 5010 D05C      0005C        6460          ST    R1,COMEWORK         SAVE JOB QUEUE ELEMENT POINTER       C3703000
001164 4100 0004      00004        6461 CCJPUT   LA    R0,$OUTPUT          QUEUE FOR OUTPUT                     C3703500

                                   6462          $QPUT (R1),(R0),OLAY=YES  PUT JOB ON OUTPUT OR PURGE Q         C3704000
001168 41E0 81F2      01172        6463+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000

00116C 1FE8                        6464+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
00116E 47F0 B050      00050        6465+         B     $QPUT               BRANCH TO CONTROL SERVICE PROGRAM    BA018000
001172 5810 D05C      0005C        6466          L     R1,COMEWORK         RESTORE JOB QUEUE POINTER            C3704500
001176 47F0 8290      01210        6467          B     CDJ                 DISPLAY JOB                          C3705000
00117A 9140 D0F4      000F4        6468 CCJNXEQQ TM    COMNULOP,X'40'      IS THIS $P                           C3705500

00117E 4710 8232      011B2        6469          BO    CCJNFNDA            IF SO PRETEND NO DEVICE              C3706000
                                   6470 CCJFIND  $CFJDCT SYMBOL=CCJFND     FIND DEVICE (R1 TO COMEWORK)         C3706500
001182                             6471+CCJFIND  DS    0H                                                       NU006000
001182 45E0 824E      011CE        6472+         BAL   LINK,CCJFND                                              C1294000
001186 47F0 822E      011AE        6473          B     CCJNFND             BRANCH NOT FOUND                     C3707000
00118A 1821                        6474 CCJLOOP  LR    WA,R1               SAVE DCT POINTER                     C3707500
                            00000  6475          USING DCTDSECT,R1                                              C3716000
00118C 9640 1014      00014        6476          OI    DCTFLAGS,DCTDELET   SET DELETE FLAG                      C3718000
001190 947F 1014      00014        6477          NI    DCTFLAGS,255-DCTSTOP RESET STOP INDICATOR IF ON          C3719000

001194 5810 1000      00000        6478          L     R1,DCTPCE           PICK UP PCE ADDRESS                  C3720000

                                   6479          DROP  R1                                                       C3722000
                                   6480          $POST PCEEWF+$EWBIO-PCEDSECT(R1),IO POST IO BIT                C3724000
001198 94BF 1049      00049        6481+         NI    PCEEWF+$EWBIO-PCEDSECT(R1),255-$EWFIO                    PO008000
00119C 947F B0C4      000C4        6482+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
0011A0 1812                        6483          LR    R1,WA               RESTORE DCT POINTER                  C3726000

                                   6484          $CFJDCTC SYMBOL=CCJFNDC   CONTINUE DCT SCAN                    C3726200
0011A2 45E0 8256      011D6        6485+         BAL   LINK,CCJFNDC                                             C1355800
0011A6 47F0 822E      011AE        6486          B     CCJNFND             BRANCH NO MORE DCTS                  C3726400
0011AA 47F0 820A      0118A        6487          B     CCJLOOP             LOOP UNTIL NO MORE                   C3726600
0011AE 5810 D05C      0005C        6488 CCJNFND  L     R1,COMEWORK         RESTORE JOB QUEUE POINTER            C3726800
                                   6489 CCJNFNDA $POST $HASPECF,JOB        INSURE JOB POSTED                    C3727000
0011B2 94EF B0C4      000C4        6490+CCJNFNDA NI    $HASPECF,255-$EWFJOB                                     PO008000
0011B6 9106 1001      00001        6491          TM    QUETYPE(R1),$OUTPUT+$HARDCPY TEST ANY COMBINATION        C3727200
0011BA 4780 8290      01210        6492          BZ    CDJ                 DISPLAY JOB                          C3727400
                                   6493          $#CAN JQE=(R1),OLAY=YES   GET RID OF ANY SPARE JOTS            C3727600

0011BE 58F0 C130      00130        6494+         L     R15,=V($#CAN)       BASE FOR $#CAN SUBROUTINE            CN014000

0011C2 41E0 824A      011CA        6495+         LA    R14,*+8             LOAD RETURN REGISTER                 CN018000
0011C6 1FE8                        6496+         SLR   R14,BASE3           MAKE RETURN ADDRESS RELATIVE         CN020000
COMM     HASP COMMAND PROCESSOR HASPCJB2 - JOB LIST COMMANDS                                                   PAGE  152


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


0011C8 07FF                        6497+         BR    R15                 BRANCH TO JOT SUBROUTINE             CN022000
0011CA 47F0 8290      01210        6498          B     CDJ                 DISPLAY JOB                          C3727800
                                   6499 CCJFND   $CFJDCT TYPE=DEF,CONT=CCJFNDC FIND JOB'S DCT                   C3730000
0011CE                             6500+CCJFND   DS    0H                                                       NU006000
0011CE 5010 D05C      0005C        6501+         ST    R1,COMEWORK         SET JOB QUEUE LOCATION FOR COMPARE   C1302000
0011D2 4110 B0DC      000DC        6502+         LA    R1,$DCTPOOL-DCTCHAIN+DCTDSECT POINT TO HEAD OF DCTS      C1304000
0011D6                             6503+CCJFNDC  DS    0H                  CONTINUE                             C1306000
0011D6 5810 1014      00014        6504+COF0428L L     R1,DCTCHAIN-DCTDSECT(0,R1) NEXT DCT                 RFIT C1308000
0011DA 4110 1000      00000        6505+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1308100
0011DE 1211                        6506+         LTR   R1,R1                                               RFIT C1308200
0011E0 078E                        6507+         BCR   Z,LINK              EXIT IF END OF CHAIN                 C1320000

0011E2 9130 1012      00012        6508+         TM    DCTDEVTP-DCTDSECT(R1),DCTPUN TEST DCT CLASS              C1322000
                                   6509+* TEST INCLUDES READER, PRINTER, AND PUNCH DEVICES                      C1324000
0011E6 4780 8256      011D6        6510+         BZ    COF0428L           GET NEXT DCT IF NOT CORRECT CLASS     C1326000
0011EA 9180 1000      00000        6511+         TM    DCTSTAT-DCTDSECT(R1),DCTINUSE IS DCT IN USE              C1328000

0011EE 4780 8256      011D6        6512+         BZ    COF0428L           GET NEXT DCT IF NOT                   C1330000
0011F2 58F0 1000      00000        6513+         L     R15,DCTPCE-DCTDSECT(0,R1) PICK UP PCE                    C1332000
0011F6 9120 1012      00012        6514+         TM    DCTDEVTP-DCTDSECT(R1),DCTPRT IS IT PRINT OR PUNCH        C1334000
0011FA 4710 8282      01202        6515+         BO    *+8                 IF YES, SKIP NEXT INSTRUCTION        C1336000
0011FE 41F0 F058      00058        6516+         LA    R15,RJOB-PJOB(0,R15) OFFSET PCE POINTER                  C1338000
001202 D502 F061 D05D 00061 0005D  6517+         CLC   PJOB+1-PCEDSECT(3,R15),COMEWORK+1 CHECK FOR SAME JOB     C1340000
001208 4770 8256      011D6        6518+         BNE   COF0428L           GET NEXT DCT IF NOT SAME JOB          C1342000
00120C 47F0 E004      00004        6519+         B     4(0,LINK)           RETURN                               C1346000
001210                             6520+COF0428Z DS    0H                  ERROR EXIT                           C1352000
COMM     HASP COMMAND PROCESSOR HASPCJB2 - JOB LIST COMMANDS                                                   PAGE  153


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6522 *********************************************************************** C3734000

                                   6523 *                                                                     * C3736000
                                   6524 *        $D JOB LIST -- DISPLAY JOB(S)                                * C3738000
                                   6525 *                                                                     * C3740000

                                   6526 *        $LOCATE JOB LIST                                             * C3742000
                                   6527 *                                                                     * C3744000
                                   6528 *        $IDJ JOB LIST                                                * C3746000
                                   6529 *                                                                     * C3748000
                                   6530 *********************************************************************** C3750000
                                   6531 CDJ      $CFJMSG JOB=SET,CVE=CDJCVE,JDCT=CCJFND,CONT=CCJFNDC            C3752000
001210                             6532+CDJ      DS    0H                                                       NU006000
001210 4120 83D8      01358        6533+         LA    WA,COF0433Z         POINT TO EXIT                        C1445000
001214 9240 D070      00070        6534+         MVI   COMMAND+4+COMJBLEN,C' ' BLANK OUT MESSAGE AREA           C1458000
001218 D22C D071 D070 00071 00070  6535+         MVC   COMMAND+5+COMJBLEN(45),COMMAND+4+COMJBLEN                C1460000
                                   6536+* MOVE JOB NAME FROM JIT                                                C1464000
00121E 45E0 B060      00060        6537+         BAL   LINK,$QJITLOC       LOCATE JOB NAME ( R0 POINTS )        C1466000

001222 18F0                        6538+         LR    R15,R0              PREPARE FOR MOVE                     C1468000

001224 D207 D071 F000 00071 00000  6539+         MVC   COMMAND+5+COMJBLEN(8),JITJNAME(R15) MOVE NAME            C1470000
                                   6540+* BUILD END OF JOB INFORMATION MESSAGE                                  C1473000

00122A D203 D08D 83C1 0008D 01341  6541+         MVC   COMMAND+37(4),COF0433S SET 'PRIO'                        C1474000
001230 1B00                        6542+         SR    R0,R0               ZERO WORK                            C1475000
001232 4300 1000      00000        6543+         IC    R0,QUEPRIO(0,R1)    GET JOB PRIORITY                     C1476000
001236 8A00 0004      00004        6544+         SRA   R0,4                ALIGN                                C1477000
00123A 45E0 83DC      0135C        6545+         BAL   LINK,CDJCVE                                              C0674000
00123E D201 D092 D063 00092 00063  6546+         MVC   COMMAND+37+5(2),COMDWORK+3 SET PRIORITY                  C1479000
001244 91F0 1004      00004        6547+         TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1+QUEHOLD2+QUEPURGE         C1480000
001248 4780 82EE      0126E        6548+         BZ    COF0433A            BRANCH IF NO SPECIAL CONDITIONS      C1481000
00124C D203 D095 83C5 00095 01345  6549+         MVC   COMMAND+45(4),COF0433T  SET 'HOLD'                       C1482000
001252 91C0 1004      00004        6550+         TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1 IS IT HELD                C1483000
001256 4770 82EE      0126E        6551+         BNZ   COF0433A            BRANCH IF HELD                       C1484000
00125A D204 D095 83C9 00095 01349  6552+         MVC   COMMAND+45(5),COF0433U SET 'PURGE'                       C1485000

001260 9110 1004      00004        6553+         TM    QUEFLAGS(R1),QUEPURGE IS IT FLAGGED FOR PURGE            C1486000
001264 4710 82EE      0126E        6554+         BO    COF0433A            BRANCH IF YES                        C1487000
001268 D208 D095 83CE 00095 0134E  6555+         MVC   COMMAND+45(9),COF0433V SET 'DUPLICATE'                   C1488000

00126E                             6556+COF0433A DS    0H                                                       C1489000
                                   6557+* DETERMINE NORMAL QUEUE ACTIVITY                                       C1490000
00126E D20B D07A 83AB 0007A 0132B  6558+         MVC   COMMAND+18(12),COF0433Q SET 'AWAITING OUT'               C1492000
001274 9140 1001      00001        6559+         TM    QUETYPE(R1),$XEQ    TEST FOR EXECUTION                   C1493000
001278 4710 8372      012F2        6560+         BO    COF0433F            EXIT IF EXECUTION                    C1494000
                                   6561+* DETERMINE DEVICE ACTIVITY                                             C1495000
00127C D201 D0A0 1002 000A0 00002  6562+         MVC   COMMAND+56(2),QUEJOBNO(R1) SAVE JOB NUMBER               C1496000
001282 45E0 824E      011CE        6563+         BAL   LINK,CCJFND                                              C1294000
001286 47F0 8348      012C8        6564+         B     COF0433C            DISPLAY 'AWAITING OUT'               C1499000
00128A D211 D085 D08C 00085 0008C  6565+         MVC   COMMAND+30-1(54-37+1),COMMAND+37-1 MOVE BODY             C1504000
001290 D202 D07A 83A8 0007A 01328  6566+         MVC   COMMAND+18(3),COF0433N SET 'ON '                         C1505000
001296 1F28                        6567+         SLR   WA,BASE3                                                 C2068000

                                   6568+* DEVICE FOUND - DISPLAY FOR ALL DEVICES                                C1507000
001298 D207 D07D 1018 0007D 00018  6569+COF0433B MVC   COMMAND+18+3(8),DCTDEVN-DCTDSECT(R1) SET DEVICE          C1508000

00129E 9012 D060      00060        6570+         STM   R1,WA,COMDWORK      SAVE                                 C1509000

0012A2 4100 002F      0002F        6571+         LA    R0,54-(37-30)       SET LENGTH                           C1510000
0012A6                             6572+         DS    0H                                                       NU006000
0012A6 4520 C00C      0000C        6573+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
0012AA 5810 D05C      0005C        6574+         L     R1,COMEWORK         PICK UP JOB QUEUE POINTER            C1512000
0012AE D501 D0A0 1002 000A0 00002  6575+         CLC   COMMAND+56(2),QUEJOBNO(R1) SAME JOB NUMBER               C1513000
0012B4 9812 D060      00060        6576+         LM    R1,WA,COMDWORK      RESTORE                              C1514000
COMM     HASP COMMAND PROCESSOR HASPCJB2 - JOB LIST COMMANDS                                                   PAGE  154


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0012B8 4772 8000      00000        6577+         BNE   0(WA,BASE3)         EXIT IF NOT SAME                     C1515000
0012BC 45E0 8256      011D6        6578+         BAL   LINK,CCJFNDC                                             C1355800
0012C0 47F2 8000      00000        6579+         B     0(WA,BASE3)         EXIT                                 C1517000
0012C4 47F0 8318      01298        6580+         B     COF0433B            LOOP                                 C1518000

                                   6581+* NO DEVICE FOUND - DISPLAY OUTPUT PRT PUN ROUTE CODES IN JQE           C1522000
0012C8 5810 D05C      0005C        6582+COF0433C L     R1,COMEWORK         POINT TO JOB QUEUE ELEMENT           C1523000
0012CC 1B00                        6583+         SR    R0,R0               ZERO WORK                            C1524000

0012CE 4300 100C      0000C        6584+         IC    R0,QUEPRTRT(0,R1)   GET PRINT ROUTE                      C1525000
0012D2 45E0 83DC      0135C        6585+         BAL   LINK,CDJCVE                                              C0674000
0012D6 D202 D086 D062 00086 00062  6586+         MVC   COMMAND+18+12(3),COMDWORK+2 INSERT PRINT ROUTING         C1527000
0012DC 4300 100D      0000D        6587+         IC    R0,QUEPUNRT(0,R1)   GET PUNCH ROUTE                      C1528000
0012E0 45E0 83DC      0135C        6588+         BAL   LINK,CDJCVE                                              C0674000
0012E4 D202 D089 D062 00089 00062  6589+         MVC   COMMAND+18+15(3),COMDWORK+2 INSERT PUNCH ROUTING         C1530000
0012EA 4100 0036      00036        6590+COF0433D LA    R0,54               SET LENGTH                           C1531000
0012EE                             6591+COF0433E DS    0H                                                       NU006000
0012EE 47F0 C00C      0000C        6592+         B     COWTO(0,BASE2)      REPLY TO OPERATOR                    C0350000
                                   6593+* DETERMINE EXECUTION QUEUE STATUS - DISPLAY AS APPROPRIATE             C1534000
0012F2 9180 1001      00001        6594+COF0433F TM    QUETYPE(R1),QENTBY  IS IT BUSY                           C1535000
0012F6 4710 838E      0130E        6595+         BO    COF0433G            DISPLAY EXECUTING IF BUSY            C1538000

0012FA D203 D083 83B7 00083 01337  6596+         MVC   COMMAND+18+9(4),COF0433R SET 'EXEC'                      C1544000
001300 D200 D08B 1001 0008B 00001  6597+         MVC   COMMAND+18+17(1),QUETYPE(R1) INSERT CLASS                C1545000
001306 9680 D08B      0008B        6598+         OI    COMMAND+18+17,QENTBY UPPER CASE IT                       C1546000
00130A 47F0 836A      012EA        6599+         B     COF0433D            DISPLAY IT                           C1547000

00130E D211 D085 D08C 00085 0008C  6600+COF0433G MVC   COMMAND+30-1(54-37+1),COMMAND+37-1 MOVE BODY             C1549000
001314 D209 D07A 83B7 0007A 01337  6601+         MVC   COMMAND+18(10),COF0433R SET 'EXECUTING '                 C1550000
00131A D200 D084 1001 00084 00001  6602+         MVC   COMMAND+18+10(1),QUETYPE(R1) SET CLASS                   C1551000
001320 4100 002F      0002F        6603+         LA    R0,54-(37-30)       SET COUNT                            C1552000
001324 47F0 836E      012EE        6604+         B     COF0433E            DISPLAY IT                           C1554000
001328 D6D540                      6605+COF0433N DC    C'ON '              ON DEVICE                            C1628000

00132B C1E6C1C9E3C9D5C7            6606+COF0433Q DC    C'AWAITING OUT'     AWAITING OUT                         C1636000
001337 C5E7C5C3E4E3C9D5            6607+COF0433R DC    C'EXECUTING '       AWAITING EXEC - EXECUTING            C1646000
001341 D7D9C9D6                    6608+COF0433S DC    C'PRIO'             PRIO                                 C1650000
001345 C8D6D3C4                    6609+COF0433T DC    C'HOLD'             HOLD                                 C1652000
001349 D7E4D9C7C5                  6610+COF0433U DC    C'PURGE'            PURGE                                C1654000
00134E C4E4D7D3C9C3C1E3            6611+COF0433V DC    C'DUPLICATE'        DUPLICATE                            C1656000
001358                             6612+COF0433Z DS    0H                  END OF MESSAGE PREPARATION           C1660000
001358 47F0 8182      01102        6613          B     CAJNEXT             GO TO NEXT JOB                       C3754000

                                   6614 CDJCVE   $CFCVE TYPE=DEF           CONVERT TO EBCDIC                    C3756000
00135C                             6615+CDJCVE   DS    0H                                                       NU006000

                                   6616+* CONVERT TO EBCDIC AND LEAVE ANSWER IN COMDWORK ( 5 DIGITS )           C0684000
00135C 4E00 D060      00060        6617+         CVD   R0,COMDWORK         CONVERT TO DECIMAL                   C0686000
001360 D205 D05F 83EE 0005F 0136E  6618+         MVC   COMDWORK-1(6),COF0463 MOVE MASK TO BLANK OUT HIGH ZEROS  C0688000
001366 DE05 D05F D065 0005F 00065  6619+         ED    COMDWORK-1(6),COMDWORK+5 CONVERT TO EBCDIC               C0690000
00136C 07FE                        6620+         BR    LINK                RETURN                               C0694000
00136E 402020202120                6621+COF0463  DC    X'402020202120'     MASK FOR EDIT                        C0696000
COMM     HASP COMMAND PROCESSOR HASPCJB2 - JOB LIST COMMANDS                                                   PAGE  155


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   6623 *********************************************************************** C3760000
                                   6624 *                                                                     * C3762000
                                   6625 *        $H JOB LIST -- HOLD JOB(S), PREVENT FURTHER PROCESSING       * C3764000
                                   6626 *                                                                     * C3766000
                                   6627 *        $HOLD JOB LIST                                               * C3768000

                                   6628 *                                                                     * C3770000
                                   6629 *********************************************************************** C3772000
001374 9640 1004      00004        6630 CHJ      OI    QUEFLAGS(R1),QUEHOLD1 SET HOLD BIT ON                    C3774000

001378 5820 C0EC      000EC        6631 CHJCKPT  L     WA,CAJCKPT          PICK UP CHECK POINT PCE              C3776000
                                   6632          $POST PCEEWF+$EWBWORK-PCEDSECT(WA),WORK FORCE CHECK POINT      C3778000
00137C 94DF 2049      00049        6633+         NI    PCEEWF+$EWBWORK-PCEDSECT(WA),255-$EWFWORK                PO008000
001380 947F B0C4      000C4        6634+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
001384 47F0 8290      01210        6635          B     CDJ                 DISPLAY JOB                          C3780000
COMM     HASP COMMAND PROCESSOR HASPCJB2 - JOB LIST COMMANDS                                                   PAGE  156


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   6637 *********************************************************************** C3784000
                                   6638 *                                                                     * C3786000
                                   6639 *        $P JOB LIST -- STOP JOB WHEN CURRENT ACTIVITY IS COMPLETE    * C3788000
                                   6640 *                                                                     * C3790000
                                   6641 *        $DELETE JOB LIST                                             * C3792000

                                   6642 *                                                                     * C3794000
                                   6643 *********************************************************************** C3796000
001388 9640 D0F4      000F4        6644 CPJ      OI    COMNULOP,X'40'      TURN ON DELAY DESIRED                C3798000
00138C 47F0 81C0      01140        6645          B     CCJ                 ENTER $C JOB PROCESSOR               C3800000

COMM     HASP COMMAND PROCESSOR HASPCJB2 - JOB LIST COMMANDS                                                   PAGE  157


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

001390 D9C5D3C5C1E2C5C4            6647 CAJRMSG  DC    C'RELEASED'         JOB NNNN RELEASED                    C3844000
001398 40D5D6E340C8C5D3            6648 CAJHMSG  DC    C' NOT HELD '       JOB NNNN NOT HELD                    C3846000
0013A2 D1D6C24DE25D40D5            6649 CAJFMSG  DC    C'JOB(S) NOT FOUND'                                      C3848000
                            013A2  6650 CAJOB    EQU   CAJFMSG                                                  C3850000

                            000EC  6651 CAJCKPT  EQU   CAACKPT             CHECKPOINT PCE ADDRESS               C3850100
COMM     HASP COMMAND PROCESSOR HASPCJB4 - JOB LIST COMMANDS                                                   PAGE  158


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6653 HASPCJB4 $COMGRUP EJ,DELAY=YES,PRTY=0                                   C3850300
0013B8                             6654+HA$OCJB4 CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            013B8  6655+HA$ICJB4 EQU   HA$OCJB4+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   6656+         ENTRY HA$ICJB4                                                 OV036000
0013B8 C3D1C2F4                    6657+         DC    CL4'CJB4'           IDENTIFY MODULE ON CORE DUMP         OV038000
0013BC 000013B8                    6658+         DC    A(HA$OCJB4)         ASSEMBLY ORIGIN                      OV040000
0013C0                             6659+HASPCJB4 DS    0F                  ENTRY POINT                          OV042000

                            01360  6660+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                            013C0  6661+COEJ            EQU HASPCJB4                                            C0146000
0013C0 4130 00E2      000E2        6662          LA    WB,CEJ-HASPCJB4     ALLOW FOR FUTURE EXPANSION           C3850400
0013C4 1845                        6663          LR    WC,WD               SAVE STARTING OPERAND                C3850500
                                   6664 CEJLOOP  $CFCVB POINTER=(WC),NOK=CEJINVO CONVERT PAIR TO BINARY         C3850600

0013C6                             6665+CEJLOOP  DS    0H                                                       NU006000
0013C6 1814                        6666+         LR    R1,WC                                                    DG018000
0013C8 58F0 1000      00000        6667+         L     R15,0(0,R1)         PICK UP FIRST PARAMETER              C0482000
0013CC 95F0 F000      00000        6668+         CLI   0(R15),C'0'         LOOK FOR NUMERIC ( FA-FF INCLUDED )  C0484000
0013D0 47B0 8092      013F2        6669+         BNL   COF0472L           IF NUMERIC CONVERT                    C0486000

0013D4 41F0 F001      00001        6670+         LA    R15,1(0,R15)        NEXT CHARACTER                       C0488000
0013D8 5020 D01C      0001C        6671+         ST    WA,PCEWA            SAVE WORK REGISTER           OY08684 C0488500
0013DC 5820 1004      00004        6672+         L     WA,4(0,R1)          CLEAR HIGH ORDER BYTE OF     OY08684 C0489000
0013E0 4120 2000      00000        6673+         LA    WA,0(0,WA)          NEXT OPERAND POINTER         OY08684 C0489500
0013E4 19F2                        6674+         CR    R15,WA              DID WE GO TOO FAR            OY08684 C0490000
0013E6 5820 D01C      0001C        6675+         L     WA,PCEWA            RESTORE WORK REGISTER        OY08684 C0491000

0013EA 4740 806C      013CC        6676+         BL    *-30                LOOP UNTIL NUMERIC OR ERROR  OY08684 C0492000
0013EE 47F0 8116      01476        6677+         B     CEJINVO                                                  C0500000
                                   6678+* CONVERT PAIR OF START STOP VALUES                                     C0504000
0013F2 1B00                        6679+COF0472L SR    R0,R0               ZERO ACCUMULATOR, STOP VALUE         C0506000

0013F4 111F                        6680+         LNR   R1,R15              SET NEGATIVE FLAGS                   C0510000
0013F6 D100 80E1 F000 01441 00000  6681+COF0472C MVN COF0472W+1(1),0(R15)  MOVE NUMERIC TO WORK AREA            C0514000
0013FC 4C00 80DC      0143C        6682+         MH    R0,COF0472T        MULTIPLY BY 10                        C0516000
001400 4A00 80E0      01440        6683+         AH    R0,COF0472W        ADD LOW DIGIT                         C0518000
001404 4900 80DE      0143E        6684+         CH    R0,COF0472U        LOOK FOR MAXIMUM VALUE                C0520000

001408 4720 8116      01476        6685+         BH    CEJINVO                                                  C0528000
00140C 41F0 F001      00001        6686+COF0472N LA    R15,1(0,R15)        NEXT CHARACTER                       C0532000
001410 95F0 F000      00000        6687+         CLI   0(R15),C'0'         TEST FOR NUMERIC ( FA-FF INCLUDED )  C0534000
001414 47B0 8096      013F6        6688+         BNL   COF0472C           IF NUMERIC CONVERT THE CHARACTER      C0536000
001418 9560 F000      00000        6689+         CLI   0(R15),C'-'         LOOK FOR SEPARATOR                   C0540000
00141C 4780 80CC      0142C        6690+         BE    *+16                CONVERT NEXT VALUE                   C0542000
001420 1510                        6691+         CLR   R1,R0               TEST FOR BOTH VALUES                 C0544000

001422 47D0 80E2      01442        6692+         BNH   COF0472E            EXIT WITH CONVERTED VALUES           C0556000
001426 1810                        6693+         LR    R1,R0               SET TO SAME                          C0558000
001428 47F0 80E2      01442        6694+         B     COF0472E            EXIT WITH CONVERTED VALUES           C0560000

00142C 95F0 F001      00001        6695+         CLI   1(R15),C'0'         IS NEXT CHARACTER NUMERIC    OY05847 C0560300
001430 4740 8116      01476        6696+         BL    CEJINVO             NO RETURN INVALID OPERAND    OY05847 C0561500
001434 1810                        6697+         LR    R1,R0               SET START OF STRING          OY05847 C0562000
001436 1B00                        6698+         SR    R0,R0               PREPARE FOR NEXT                     C0564000
001438 47F0 80AC      0140C        6699+         B     COF0472N           CONVERT NEXT VALUE OF SET             C0566000

00143C 000A                        6700+COF0472T DC    H'10'               CONVERSION CONSTANT                  C0580000
00143E 270F                        6701+COF0472U DC    H'9999'                                                  C0594000
001440 0000                        6702+COF0472W DC    H'0'                WORK AREA FOR CONVERSION             C0596000
001442                             6703+COF0472E DS    0H                  END OF BINARY CONVERT                C0600000
001442 4000 4002      00002        6704          STH   R0,2(0,WC)          STORE FINAL VALUE                    C3850700
001446 4010 4000      00000        6705          STH   R1,0(0,WC)          STORE STARTING VALUE                 C3850800
00144A 8746 8066      013C6        6706          BXLE  WC,WE,CEJLOOP       COMPLETE FOR ALL STRINGS             C3850900
                                   6707 * START STOP VALUES STORED IN OPERAND POINTER AREAS                     C3851000

COMM     HASP COMMAND PROCESSOR HASPCJB4 - JOB LIST COMMANDS                                                   PAGE  159


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


00144E D202 D068 835C 00068 016BC  6708          MVC   COMMAND(3),CEJOB    SET JOB IN REPLY AREA                C3851100
001454 4840 5000      00000        6709 CEJLOOPA LH    WC,0(0,WD)          PICK UP FIRST JOB OF PAIR            C3851200
                                   6710 CEJLOOPB $CFCVE VALUE=(WC),SYMBOL=CEJCVE CONVERT TO EBCDIC              C3851300
001458 1804                        6711+CEJLOOPB LR    R0,WC                                                    DG018000
00145A 45E0 8334      01694        6712+         BAL   LINK,CEJCVE                                              C0674000

00145E D204 D06B D060 0006B 00060  6713          MVC   COMMAND+3(COMJBLEN+1),COMDWORK-COMJBLEN+4 SET NUM        C3851400
                                   6714          $QLOC (WC),CEJNEXT,OLAY=YES LOCATE JOB QUEUE ELEMENT           C3851500
001464 1814                        6715+         LR    R1,WC                                                    DG018000
001466 45E0 B05C      0005C        6716+         BAL   LINK,$QLOC          LINK TO CONTROL SERVICE PROGRAM      QL010000
00146A 4780 8170      014D0        6717+         BC    8,CEJNEXT                                                NP008000
                                   6718          $CFVQE NOK=CEJNEXT        VERIFY JOB OWNER                     C3851600
00146E                             6719+         DS    0H                                                       NU006000
00146E 9680 D0F4      000F4        6720          OI    COMNULOP,X'80'      SET JOB INDICATOR                    C3851700
                                   6721          $BRR  WB                  ENTER SELECTED ROUTINE               C3851800

001472 47F3 8060      013C0        6722+         B     HA$OCJB4+OACEPROG-BUFSTART(WB)                           C2058000

001476 5810 4000      00000        6723 CEJINVO  L     R1,0(0,WC)          PICK UP OPERAND ADDRESS              C3851900
                                   6724          $CFINVO OPERAND=(R1)      RETURN WITH INVALID OPERAND          C3852000
                                   6725+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
00147A D208 D068 1000 00068 00000  6726+         MVC   COMMAND(9),0(R1)                                         C1204000
001480 D20F D071 8132 00071 01492  6727+         MVC   COMMAND+9(16),COF0490 MOVE DIAGNOSTIC BEHIND TEXT        C1206000

001486                             6728+         DS    0H                                                       NU006000
001486 4100 0019      00019        6729+         LA    R0,25                                                    C0230000
00148A 41F0 0008      00008        6730+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
00148E 45E0 B088      00088        6731+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
001492 40C9D5E5C1D3C9C4            6732+COF0490  DC    C' INVALID OPERAND'                                      C1210000
COMM     HASP COMMAND PROCESSOR HASPCJB4 - JOB LIST COMMANDS                                                   PAGE  160


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6734 ******************************************************************      C3852200
                                   6735 *                                                                       C3852300
                                   6736 *        $E JOB LIST -- RESTART JOB CURRENTLY IN EXECUTION              C3852400

                                   6737 *                                                                       C3852500

                                   6738 ******************************************************************      C3852600
0014A2 91C0 1001      00001        6739 CEJ      TM    QUETYPE(R1),$XEQ+QENTBY TEST FOR EXECUTING               C3852700
0014A6 47E0 8162      014C2        6740          BNO   CEJERR              IF NOT, DISPLAY ERROR                C3852800
0014AA 5820 C0FC      000FC        6741          L     WA,CPSXPCE          POINT TO FIRST EXECUTION PCE         C3852900

                                   6742          LA    R0,&MAXXEQS         COUNT                                C3853000
0014AE 4100 0003      00003        6743+         LA    R0,3                COUNT                                C3853000
0014B2 5910 2064      00064        6744 CEJLOOPE C     R1,XPCEJOB-PCEDSECT(0,WA) PCE CONTROLLING JOB            C3853100
0014B6 4780 81A2      01502        6745          BE    CEJE                IF FOUND RESTART                     C3853200
0014BA 5820 2008      00008        6746          L     WA,PCENEXT-PCEDSECT(0,WA) NEXT PCE                       C3853300
0014BE 4600 8152      014B2        6747          BCT   R0,CEJLOOPE         LOOP                                 C3853400
0014C2 D20F D070 834C 00070 016AC  6748 CEJERR   MVC   COMMAND+COMJBLEN+4(CEJML),CEJMSG ' NOT RESTARTABLE'      C3853500
                                   6749          $CWTO L=COMJBLEN+4+CEJML  DISPLAY MESSAGE                      C3853600
0014C8                             6750+         DS    0H                                                       NU006000
0014C8 4100 0018      00018        6751+         LA    R0,COMJBLEN+4+CEJML                                      C0324000
0014CC 4520 C00C      0000C        6752+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000

0014D0 4140 4001      00001        6753 CEJNEXT  LA    WC,1(0,WC)          NEXT NUMBER SEQUENCE                 C3853700
0014D4 4940 5002      00002        6754          CH    WC,2(0,WD)          CHECK FOR END OF PAIR                C3853800
0014D8 47D0 80F8      01458        6755          BNH   CEJLOOPB            IF NOT, WORK ON NEXT JOB             C3853900
0014DC 8756 80F4      01454        6756          BXLE  WD,WE,CEJLOOPA      GO TO NEXT PAIR IF PRESENT           C3854000

0014E0 9180 D0F4      000F4        6757          TM    COMNULOP,X'80'      TEST JOB FOUND INDICATOR             C3854100
0014E4 4710 819A      014FA        6758          BO    CEJRET              IF ON, EXIT                          C3854200
                                   6759          $CRET MSG=CEJFMSG,L=16    'JOB(S) NOT FOUND'                   C3854300
0014E8                             6760+         DS    0H                                                       NU006000
0014E8 4100 0010      00010        6761+         LA    R0,16                                                    C0230000
0014EC D20F D068 835C 00068 016BC  6762+         MVC   COMMAND(16),CEJFMSG                                      C0248000
0014F2 41F0 0008      00008        6763+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
0014F6 45E0 B088      00088        6764+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   6765 CEJRET   $CRET ,                   EXIT                                 C3854400
0014FA                             6766+CEJRET   DS    0H                                                       NU006000
0014FA 41F0 0000      00000        6767+         LA    R15,CORTNORM        NORMAL RETURN                        C0268000
0014FE 45E0 B088      00088        6768+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000

001502 9610 2058      00058        6769 CEJE     OI    XPCESTAT-PCEDSECT(WA),XREXREQ  SET FOR RESTART           C3854500
                                   6770          $CFJMSG JOB=SET,CVE=CEJCVE DISPLAY JOB INFORMATION             C3854600
001506 4120 8330      01690        6771+         LA    WA,COF0502Z         POINT TO EXIT                        C1445000

00150A 9240 D070      00070        6772+         MVI   COMMAND+4+COMJBLEN,C' ' BLANK OUT MESSAGE AREA           C1458000
00150E D22C D071 D070 00071 00070  6773+         MVC   COMMAND+5+COMJBLEN(45),COMMAND+4+COMJBLEN                C1460000
                                   6774+* MOVE JOB NAME FROM JIT                                                C1464000
001514 45E0 B060      00060        6775+         BAL   LINK,$QJITLOC       LOCATE JOB NAME ( R0 POINTS )        C1466000
001518 18F0                        6776+         LR    R15,R0              PREPARE FOR MOVE                     C1468000
00151A D207 D071 F000 00071 00000  6777+         MVC   COMMAND+5+COMJBLEN(8),JITJNAME(R15) MOVE NAME            C1470000
                                   6778+* BUILD END OF JOB INFORMATION MESSAGE                                  C1473000
001520 D203 D08D 8319 0008D 01679  6779+         MVC   COMMAND+37(4),COF0502S SET 'PRIO'                        C1474000
001526 1B00                        6780+         SR    R0,R0               ZERO WORK                            C1475000
001528 4300 1000      00000        6781+         IC    R0,QUEPRIO(0,R1)    GET JOB PRIORITY                     C1476000
00152C 8A00 0004      00004        6782+         SRA   R0,4                ALIGN                                C1477000
001530 45E0 8334      01694        6783+         BAL   LINK,CEJCVE                                              C0674000

001534 D201 D092 D063 00092 00063  6784+         MVC   COMMAND+37+5(2),COMDWORK+3 SET PRIORITY                  C1479000
00153A 91F0 1004      00004        6785+         TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1+QUEHOLD2+QUEPURGE         C1480000
00153E 4780 8204      01564        6786+         BZ    COF0502A            BRANCH IF NO SPECIAL CONDITIONS      C1481000

001542 D203 D095 831D 00095 0167D  6787+         MVC   COMMAND+45(4),COF0502T  SET 'HOLD'                       C1482000
001548 91C0 1004      00004        6788+         TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1 IS IT HELD                C1483000
COMM     HASP COMMAND PROCESSOR HASPCJB4 - JOB LIST COMMANDS                                                   PAGE  161


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00154C 4770 8204      01564        6789+         BNZ   COF0502A            BRANCH IF HELD                       C1484000
001550 D204 D095 8321 00095 01681  6790+         MVC   COMMAND+45(5),COF0502U SET 'PURGE'                       C1485000
001556 9110 1004      00004        6791+         TM    QUEFLAGS(R1),QUEPURGE IS IT FLAGGED FOR PURGE            C1486000
00155A 4710 8204      01564        6792+         BO    COF0502A            BRANCH IF YES                        C1487000
00155E D208 D095 8326 00095 01686  6793+         MVC   COMMAND+45(9),COF0502V SET 'DUPLICATE'                   C1488000
001564                             6794+COF0502A DS    0H                                                       C1489000
                                   6795+* DETERMINE NORMAL QUEUE ACTIVITY                                       C1490000
001564 D20B D07A 8303 0007A 01663  6796+         MVC   COMMAND+18(12),COF0502Q SET 'AWAITING OUT'               C1492000

00156A 9140 1001      00001        6797+         TM    QUETYPE(R1),$XEQ    TEST FOR EXECUTION                   C1493000

00156E 4710 82CA      0162A        6798+         BO    COF0502F            EXIT IF EXECUTION                    C1494000
                                   6799+* DETERMINE DEVICE ACTIVITY                                             C1495000

001572 D201 D0A0 1002 000A0 00002  6800+         MVC   COMMAND+56(2),QUEJOBNO(R1) SAVE JOB NUMBER               C1496000
001578 41E0 825E      015BE        6801+         LA    LINK,COF0510Z       POINT TO EXIT                        C1301000
00157C 5010 D05C      0005C        6802+         ST    R1,COMEWORK         SET JOB QUEUE LOCATION FOR COMPARE   C1302000
001580 4110 B0DC      000DC        6803+         LA    R1,$DCTPOOL-DCTCHAIN+DCTDSECT POINT TO HEAD OF DCTS      C1304000
001584                             6804+COF0502  DS    0H                  CONTINUE                             C1306000
001584 5810 1014      00014        6805+COF0510L L     R1,DCTCHAIN-DCTDSECT(0,R1) NEXT DCT                 RFIT C1308000
001588 4110 1000      00000        6806+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1308100
00158C 1211                        6807+         LTR   R1,R1                                               RFIT C1308200
00158E 078E                        6808+         BCR   Z,LINK              EXIT IF END OF CHAIN                 C1320000
001590 9130 1012      00012        6809+         TM    DCTDEVTP-DCTDSECT(R1),DCTPUN TEST DCT CLASS              C1322000
                                   6810+* TEST INCLUDES READER, PRINTER, AND PUNCH DEVICES                      C1324000
001594 4780 8224      01584        6811+         BZ    COF0510L           GET NEXT DCT IF NOT CORRECT CLASS     C1326000

001598 9180 1000      00000        6812+         TM    DCTSTAT-DCTDSECT(R1),DCTINUSE IS DCT IN USE              C1328000
00159C 4780 8224      01584        6813+         BZ    COF0510L           GET NEXT DCT IF NOT                   C1330000

0015A0 58F0 1000      00000        6814+         L     R15,DCTPCE-DCTDSECT(0,R1) PICK UP PCE                    C1332000

0015A4 9120 1012      00012        6815+         TM    DCTDEVTP-DCTDSECT(R1),DCTPRT IS IT PRINT OR PUNCH        C1334000
0015A8 4710 8250      015B0        6816+         BO    *+8                 IF YES, SKIP NEXT INSTRUCTION        C1336000
0015AC 41F0 F058      00058        6817+         LA    R15,RJOB-PJOB(0,R15) OFFSET PCE POINTER                  C1338000
0015B0 D502 F061 D05D 00061 0005D  6818+         CLC   PJOB+1-PCEDSECT(3,R15),COMEWORK+1 CHECK FOR SAME JOB     C1340000
0015B6 4770 8224      01584        6819+         BNE   COF0510L           GET NEXT DCT IF NOT SAME JOB          C1342000
0015BA 47F0 E004      00004        6820+         B     4(0,LINK)           RETURN                               C1346000
0015BE                             6821+COF0510Z DS    0H                  ERROR EXIT                           C1352000
0015BE 47F0 82A0      01600        6822+         B     COF0502C            DISPLAY 'AWAITING OUT'               C1499000
0015C2 D211 D085 D08C 00085 0008C  6823+         MVC   COMMAND+30-1(54-37+1),COMMAND+37-1 MOVE BODY             C1504000
0015C8 D202 D07A 8300 0007A 01660  6824+         MVC   COMMAND+18(3),COF0502N SET 'ON '                         C1505000
0015CE 1F28                        6825+         SLR   WA,BASE3                                                 C2068000
                                   6826+* DEVICE FOUND - DISPLAY FOR ALL DEVICES                                C1507000

0015D0 D207 D07D 1018 0007D 00018  6827+COF0502B MVC   COMMAND+18+3(8),DCTDEVN-DCTDSECT(R1) SET DEVICE          C1508000
0015D6 9012 D060      00060        6828+         STM   R1,WA,COMDWORK      SAVE                                 C1509000
0015DA 4100 002F      0002F        6829+         LA    R0,54-(37-30)       SET LENGTH                           C1510000

0015DE                             6830+         DS    0H                                                       NU006000
0015DE 4520 C00C      0000C        6831+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
0015E2 5810 D05C      0005C        6832+         L     R1,COMEWORK         PICK UP JOB QUEUE POINTER            C1512000
0015E6 D501 D0A0 1002 000A0 00002  6833+         CLC   COMMAND+56(2),QUEJOBNO(R1) SAME JOB NUMBER               C1513000
0015EC 9812 D060      00060        6834+         LM    R1,WA,COMDWORK      RESTORE                              C1514000
0015F0 4772 8000      00000        6835+         BNE   0(WA,BASE3)         EXIT IF NOT SAME                     C1515000
0015F4 45E0 8224      01584        6836+         BAL   LINK,COF0502                                             C1355800
0015F8 47F2 8000      00000        6837+         B     0(WA,BASE3)         EXIT                                 C1517000
0015FC 47F0 8270      015D0        6838+         B     COF0502B            LOOP                                 C1518000
                                   6839+* NO DEVICE FOUND - DISPLAY OUTPUT PRT PUN ROUTE CODES IN JQE           C1522000
001600 5810 D05C      0005C        6840+COF0502C L     R1,COMEWORK         POINT TO JOB QUEUE ELEMENT           C1523000
001604 1B00                        6841+         SR    R0,R0               ZERO WORK                            C1524000

001606 4300 100C      0000C        6842+         IC    R0,QUEPRTRT(0,R1)   GET PRINT ROUTE                      C1525000
00160A 45E0 8334      01694        6843+         BAL   LINK,CEJCVE                                              C0674000
COMM     HASP COMMAND PROCESSOR HASPCJB4 - JOB LIST COMMANDS                                                   PAGE  162


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


00160E D202 D086 D062 00086 00062  6844+         MVC   COMMAND+18+12(3),COMDWORK+2 INSERT PRINT ROUTING         C1527000
001614 4300 100D      0000D        6845+         IC    R0,QUEPUNRT(0,R1)   GET PUNCH ROUTE                      C1528000
001618 45E0 8334      01694        6846+         BAL   LINK,CEJCVE                                              C0674000
00161C D202 D089 D062 00089 00062  6847+         MVC   COMMAND+18+15(3),COMDWORK+2 INSERT PUNCH ROUTING         C1530000
001622 4100 0036      00036        6848+COF0502D LA    R0,54               SET LENGTH                           C1531000
001626                             6849+COF0502E DS    0H                                                       NU006000

001626 47F0 C00C      0000C        6850+         B     COWTO(0,BASE2)      REPLY TO OPERATOR                    C0350000
                                   6851+* DETERMINE EXECUTION QUEUE STATUS - DISPLAY AS APPROPRIATE             C1534000
00162A 9180 1001      00001        6852+COF0502F TM    QUETYPE(R1),QENTBY  IS IT BUSY                           C1535000
00162E 4710 82E6      01646        6853+         BO    COF0502G            DISPLAY EXECUTING IF BUSY            C1538000
001632 D203 D083 830F 00083 0166F  6854+         MVC   COMMAND+18+9(4),COF0502R SET 'EXEC'                      C1544000
001638 D200 D08B 1001 0008B 00001  6855+         MVC   COMMAND+18+17(1),QUETYPE(R1) INSERT CLASS                C1545000
00163E 9680 D08B      0008B        6856+         OI    COMMAND+18+17,QENTBY UPPER CASE IT                       C1546000
001642 47F0 82C2      01622        6857+         B     COF0502D            DISPLAY IT                           C1547000

001646 D211 D085 D08C 00085 0008C  6858+COF0502G MVC   COMMAND+30-1(54-37+1),COMMAND+37-1 MOVE BODY             C1549000
00164C D209 D07A 830F 0007A 0166F  6859+         MVC   COMMAND+18(10),COF0502R SET 'EXECUTING '                 C1550000

001652 D200 D084 1001 00084 00001  6860+         MVC   COMMAND+18+10(1),QUETYPE(R1) SET CLASS                   C1551000
001658 4100 002F      0002F        6861+         LA    R0,54-(37-30)       SET COUNT                            C1552000
00165C 47F0 82C6      01626        6862+         B     COF0502E            DISPLAY IT                           C1554000
001660 D6D540                      6863+COF0502N DC    C'ON '              ON DEVICE                            C1628000
001663 C1E6C1C9E3C9D5C7            6864+COF0502Q DC    C'AWAITING OUT'     AWAITING OUT                         C1636000
00166F C5E7C5C3E4E3C9D5            6865+COF0502R DC    C'EXECUTING '       AWAITING EXEC - EXECUTING            C1646000
001679 D7D9C9D6                    6866+COF0502S DC    C'PRIO'             PRIO                                 C1650000
00167D C8D6D3C4                    6867+COF0502T DC    C'HOLD'             HOLD                                 C1652000

001681 D7E4D9C7C5                  6868+COF0502U DC    C'PURGE'            PURGE                                C1654000
001686 C4E4D7D3C9C3C1E3            6869+COF0502V DC    C'DUPLICATE'        DUPLICATE                            C1656000
001690                             6870+COF0502Z DS    0H                  END OF MESSAGE PREPARATION           C1660000
001690 47F0 8170      014D0        6871          B     CEJNEXT             GO TO NEXT JOB                       C3854700
                                   6872 CEJCVE   $CFCVE TYPE=DEF           CONVERT TO EBCDIC                    C3854800

001694                             6873+CEJCVE   DS    0H                                                       NU006000
                                   6874+* CONVERT TO EBCDIC AND LEAVE ANSWER IN COMDWORK ( 5 DIGITS )           C0684000
001694 4E00 D060      00060        6875+         CVD   R0,COMDWORK         CONVERT TO DECIMAL                   C0686000

001698 D205 D05F 8346 0005F 016A6  6876+         MVC   COMDWORK-1(6),COF0531 MOVE MASK TO BLANK OUT HIGH ZEROS  C0688000
00169E DE05 D05F D065 0005F 00065  6877+         ED    COMDWORK-1(6),COMDWORK+5 CONVERT TO EBCDIC               C0690000
0016A4 07FE                        6878+         BR    LINK                RETURN                               C0694000
0016A6 402020202120                6879+COF0531  DC    X'402020202120'     MASK FOR EDIT                        C0696000
0016AC 40D5D6E340D9C5E2            6880 CEJMSG   DC    C' NOT RESTARTABLE'                                      C3854900
                            00010  6881 CEJML    EQU   *-CEJMSG                                                 C3855000
0016BC D1D6C24DE25D40D5            6882 CEJFMSG  DC    C'JOB(S) NOT FOUND'                                      C3855100

                            016BC  6883 CEJOB    EQU   CEJFMSG                                                  C3855200
COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  163


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6885 HASPCJB3 $COMGRUP D7D,PRTY=0       MISCELLANEOUS JOB COMMANDS           C3858000
0016D0                             6886+HA$OCJB3 CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            016D0  6887+HA$ICJB3 EQU   HA$OCJB3+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   6888+         ENTRY HA$ICJB3                                                 OV036000
0016D0 C3D1C2F3                    6889+         DC    CL4'CJB3'           IDENTIFY MODULE ON CORE DUMP         OV038000
0016D4 000016D0                    6890+         DC    A(HA$OCJB3)         ASSEMBLY ORIGIN                      OV040000

0016D8                             6891+HASPCJB3 DS    0F                  ENTRY POINT                          OV042000
                            01678  6892+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                            016D8  6893+COD7D           EQU HASPCJB3                                            C0146000
                            016D8  6894 COA7D    EQU   COD7D               EQUATE TO SAVE SPACE                 C3858400
                            016D8  6895 COC7D    EQU   COD7D               EQUATE TO SAVE SPACE                 C3858800
                            016D8  6896 COE7D    EQU   COD7D               EQUATE TO SAVE SPACE                 C3859000

                            016D8  6897 COH7D    EQU   COD7D               EQUATE TO SAVE SPACE                 C3859200
                            016D8  6898 COP7D    EQU   COD7D               EQUATE TO SAVE SPACE                 C3859600
                                   6899 *********************************************************************** C3860000
                                   6900 *                                                                     * C3862000
                                   6901 *        $D 'JOBNAME' -- DISPLAY JOB INFORMATION FOR JOB(S)           * C3864000

                                   6902 *                                                                     * C3866000
                                   6903 *        $IDJ 'JOBNAME'                                               * C3868000
                                   6904 *                                                                     * C3870000
                                   6905 *********************************************************************** C3872000
0016D8 5810 5000      00000        6906 CD7D     L     R1,0(0,WD)          PICK UP START OF OPERAND             C3874000

0016DC 5840 5004      00004        6907          L     WC,4(0,WD)          PICK UP END OF OPERAND + 2           C3876000
0016E0 9240 D0E0      000E0        6908          MVI   COMPNTER,C' '       SET WORK AREA                        C3878000
0016E4 D206 D0E1 D0E0 000E1 000E0  6909          MVC   COMPNTER+1(7),COMPNTER TO BLANK                          C3880000
0016EA 0640                        6910          BCTR  WC,0                POINT TO END + 1                     C3882000
0016EC 0640                        6911          BCTR  WC,0                POINT TO END                         C3884000

0016EE 5010 7000      00000        6912          ST    R1,0(0,WF)          MAKE SURE ONE OPERAND ONLY           C3886000
0016F2 D200 D0E8 D069 000E8 00069  6913          MVC   COMPNTER+8(1),COMVERB SAVE THE VERB                      C3887000
0016F8 1B55                        6914          SR    WD,WD               ZERO QUEUE POINTER                   C3888000
0016FA 0640                        6915          BCTR  WC,0                POINT TO END OF NAME                 C3890000
0016FC 1B41                        6916          SR    WC,R1               GET LENGTH OF JOB NAME               C3892000

0016FE 47D0 82E2      0195A        6917          BNP   CD7DINV             IF NOT POSITIVE, ERROR               C3894000
001702 0640                        6918          BCTR  WC,0                SET MACHINE LENGTH                   C3896000
001704 4100 0007      00007        6919          LA    R0,7                SET MAXIMUM MACHINE LENGTH           C3898000
001708 1940                        6920          CR    WC,R0               IS LENGTH TOO LONG                   C3900000
00170A 47D0 8098      01710        6921          BNH   *+6                 IF NOT, SKIP                         C3902000
00170E 1840                        6922          LR    WC,R0               SET TO MAXIMUM LENGTH                C3904000

001710 4240 809D      01715        6923          STC   WC,*+5              SET MACHINE LENGTH OF NAME           C3906000
001714 D600 D0E0 1001 000E0 00001  6924          OC    COMPNTER(*-*),1(R1) MOVE NAME AND UPPER CASE IT          C3908000
00171A                             6925 CA7DDUP  DS    0H                  RESCAN AFTER DUPLICATE ERROR         C3909000
                                   6926          $CFJSCAN PROCESS=CD7DPRO,EMPTY=CD7DNFND,IGNORE=CD7DL,         CC3910000

                                                       NEXT=CD7DNXT        SCAN THE JOB QUEUE FOR MATCHING JOBS C3912000
                                   6927+* SCAN JOB QUEUE FOR SELECTED JOBS                                      C1672000
00171A 4110 B140      00140        6928+         LA    R1,$JQENT-QUECHAIN  LOCATE HEAD OF JOB CHAIN             C1674000
00171E 9200 D044      00044        6929+         MVI   PCEBASE2,X'00'      SET FOUND SWITCH OFF                 C1678000
001722 47F0 80B2      0172A        6930+         B     *+8                 SKIP OVER SWITCH SETTING             C1680000

001726 9280 D044      00044        6931+CD7DNXT  MVI   PCEBASE2,X'80'      SET FOUND SWITCH ON                  C1682000
00172A 58C0 D044      00044        6932+         L     BASE2,PCEBASE2      SET SWITCH INTO REGISTER             C1684000
00172E 5810 1004      00004        6933+CD7DL    L     R1,QUECHAIN(0,R1)   PICK UP NEXT ENTRY              RFIT C1694000
001732 4110 1000      00000        6934+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1694100
001736 1211                        6935+         LTR   R1,R1                   SET CONDITION CODE          RFIT C1694200
001738 4770 80DA      01752        6936+         BNE   CD7DPRO                                                  C1700000
00173C 12CC                        6937+         LTR   BASE2,BASE2         IF END EXIT, NO ENTRIES PROCESSED    C1704000

00173E 4720 82C6      0193E        6938+         BP    CD7DNFND                                                 C1706000
COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  164


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


001742 95C4 D0E8      000E8        6939          CLI   COMPNTER+8,C'D'     IS THIS DISPLAY COMMAND              C3913000
001746 4770 835E      019D6        6940          BNE   CA7DSET             SET FOR XCTL TO ROUTINE              C3913500
                                   6941          $CRET ,                   RETURN                               C3914000
00174A                             6942+         DS    0H                                                       NU006000
00174A 41F0 0000      00000        6943+         LA    R15,CORTNORM        NORMAL RETURN                        C0268000

00174E 45E0 B088      00088        6944+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
001752 45E0 B060      00060        6945 CD7DPRO  BAL   LINK,$QJITLOC       LOCATE THE JIT                       C3916000
001756 1240                        6946          LTR   WC,R0               SET LOCATION WHILE TESTING           C3918000
001758 4780 82DE      01956        6947          BZ    CD7DINVO            EXIT IF ERROR                        C3920000
00175C D507 D0E0 4000 000E0 00000  6948          CLC   COMPNTER(8),JITJNAME(WC) COMPARE FOR MATCH               C3922000
001762 4770 80B6      0172E        6949          BNE   CD7DL               LOOP IF NO MATCH                     C3924000
001766 95C4 D0E8      000E8        6950          CLI   COMPNTER+8,C'D'     IS THIS DISPLAY COMMAND              C3925000
00176A 4770 8340      019B8        6951          BNE   CA7DXIT             IF NOT EXIT FOR OTHER COMMANDS       C3925500

00176E 1841                        6952          LR    WC,R1               SAVE CURRENT LOCATION                C3926000
                                   6953          $CFJMSG JOBQE=(R1),CVE=CD7DCVE DISPLAY JOB INFORMATION         C3928000

001770 4120 8298      01910        6954+         LA    WA,COF0543Z         POINT TO EXIT                        C1445000
                                   6955+* MOVE 'JOB' AND NUMBER INTO MESSAGE AREA                               C1448000
001774 D202 D068 8266 00068 018DE  6956+         MVC   COMMAND(3),COF0543L PLACE 'JOB' INTO MESSAGE AREA        C1450000
00177A 4800 1002      00002        6957+         LH    R0,QUEJOBNO(0,R1)                                        DG012000
00177E 45E0 830A      01982        6958+         BAL   LINK,CD7DCVE                                             C0674000

001782 D204 D06B D060 0006B 00060  6959+         MVC   COMMAND+3(COMJBLEN+1),COMDWORK-COMJBLEN+4 SET NUMBER     C1454000
001788 9240 D070      00070        6960+         MVI   COMMAND+4+COMJBLEN,C' ' BLANK OUT MESSAGE AREA           C1458000
00178C D22C D071 D070 00071 00070  6961+         MVC   COMMAND+5+COMJBLEN(45),COMMAND+4+COMJBLEN                C1460000
                                   6962+* MOVE JOB NAME FROM JIT                                                C1464000
001792 45E0 B060      00060        6963+         BAL   LINK,$QJITLOC       LOCATE JOB NAME ( R0 POINTS )        C1466000
001796 18F0                        6964+         LR    R15,R0              PREPARE FOR MOVE                     C1468000
001798 D207 D071 F000 00071 00000  6965+         MVC   COMMAND+5+COMJBLEN(8),JITJNAME(R15) MOVE NAME            C1470000
                                   6966+* BUILD END OF JOB INFORMATION MESSAGE                                  C1473000
00179E D203 D08D 8282 0008D 018FA  6967+         MVC   COMMAND+37(4),COF0543S SET 'PRIO'                        C1474000

0017A4 1B00                        6968+         SR    R0,R0               ZERO WORK                            C1475000

0017A6 4300 1000      00000        6969+         IC    R0,QUEPRIO(0,R1)    GET JOB PRIORITY                     C1476000
0017AA 8A00 0004      00004        6970+         SRA   R0,4                ALIGN                                C1477000
0017AE 45E0 830A      01982        6971+         BAL   LINK,CD7DCVE                                             C0674000
0017B2 D201 D092 D063 00092 00063  6972+         MVC   COMMAND+37+5(2),COMDWORK+3 SET PRIORITY                  C1479000
0017B8 91F0 1004      00004        6973+         TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1+QUEHOLD2+QUEPURGE         C1480000

0017BC 4780 816A      017E2        6974+         BZ    COF0543A            BRANCH IF NO SPECIAL CONDITIONS      C1481000
0017C0 D203 D095 8286 00095 018FE  6975+         MVC   COMMAND+45(4),COF0543T  SET 'HOLD'                       C1482000
0017C6 91C0 1004      00004        6976+         TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1 IS IT HELD                C1483000
0017CA 4770 816A      017E2        6977+         BNZ   COF0543A            BRANCH IF HELD                       C1484000
0017CE D204 D095 828A 00095 01902  6978+         MVC   COMMAND+45(5),COF0543U SET 'PURGE'                       C1485000
0017D4 9110 1004      00004        6979+         TM    QUEFLAGS(R1),QUEPURGE IS IT FLAGGED FOR PURGE            C1486000
0017D8 4710 816A      017E2        6980+         BO    COF0543A            BRANCH IF YES                        C1487000
0017DC D208 D095 828F 00095 01907  6981+         MVC   COMMAND+45(9),COF0543V SET 'DUPLICATE'                   C1488000
0017E2                             6982+COF0543A DS    0H                                                       C1489000
                                   6983+* DETERMINE NORMAL QUEUE ACTIVITY                                       C1490000

0017E2 D20B D07A 826C 0007A 018E4  6984+         MVC   COMMAND+18(12),COF0543Q SET 'AWAITING OUT'               C1492000

0017E8 9140 1001      00001        6985+         TM    QUETYPE(R1),$XEQ    TEST FOR EXECUTION                   C1493000
0017EC 4710 8230      018A8        6986+         BO    COF0543F            EXIT IF EXECUTION                    C1494000
                                   6987+* DETERMINE DEVICE ACTIVITY                                             C1495000
0017F0 D201 D0A0 1002 000A0 00002  6988+         MVC   COMMAND+56(2),QUEJOBNO(R1) SAVE JOB NUMBER               C1496000

0017F6 41E0 81C4      0183C        6989+         LA    LINK,COF0555Z       POINT TO EXIT                        C1301000
0017FA 5010 D05C      0005C        6990+         ST    R1,COMEWORK         SET JOB QUEUE LOCATION FOR COMPARE   C1302000
0017FE 4110 B0DC      000DC        6991+         LA    R1,$DCTPOOL-DCTCHAIN+DCTDSECT POINT TO HEAD OF DCTS      C1304000
001802                             6992+COF0543  DS    0H                  CONTINUE                             C1306000
001802 5810 1014      00014        6993+COF0555L L     R1,DCTCHAIN-DCTDSECT(0,R1) NEXT DCT                 RFIT C1308000
COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  165


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

001806 4110 1000      00000        6994+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1308100
00180A 1211                        6995+         LTR   R1,R1                                               RFIT C1308200
00180C 078E                        6996+         BCR   Z,LINK              EXIT IF END OF CHAIN                 C1320000
00180E 9130 1012      00012        6997+         TM    DCTDEVTP-DCTDSECT(R1),DCTPUN TEST DCT CLASS              C1322000

                                   6998+* TEST INCLUDES READER, PRINTER, AND PUNCH DEVICES                      C1324000
001812 4780 818A      01802        6999+         BZ    COF0555L           GET NEXT DCT IF NOT CORRECT CLASS     C1326000
001816 9180 1000      00000        7000+         TM    DCTSTAT-DCTDSECT(R1),DCTINUSE IS DCT IN USE              C1328000
00181A 4780 818A      01802        7001+         BZ    COF0555L           GET NEXT DCT IF NOT                   C1330000

00181E 58F0 1000      00000        7002+         L     R15,DCTPCE-DCTDSECT(0,R1) PICK UP PCE                    C1332000
001822 9120 1012      00012        7003+         TM    DCTDEVTP-DCTDSECT(R1),DCTPRT IS IT PRINT OR PUNCH        C1334000
001826 4710 81B6      0182E        7004+         BO    *+8                 IF YES, SKIP NEXT INSTRUCTION        C1336000
00182A 41F0 F058      00058        7005+         LA    R15,RJOB-PJOB(0,R15) OFFSET PCE POINTER                  C1338000
00182E D502 F061 D05D 00061 0005D  7006+         CLC   PJOB+1-PCEDSECT(3,R15),COMEWORK+1 CHECK FOR SAME JOB     C1340000
001834 4770 818A      01802        7007+         BNE   COF0555L           GET NEXT DCT IF NOT SAME JOB          C1342000
001838 47F0 E004      00004        7008+         B     4(0,LINK)           RETURN                               C1346000
00183C                             7009+COF0555Z DS    0H                  ERROR EXIT                           C1352000
00183C 47F0 8206      0187E        7010+         B     COF0543C            DISPLAY 'AWAITING OUT'               C1499000
001840 D211 D085 D08C 00085 0008C  7011+         MVC   COMMAND+30-1(54-37+1),COMMAND+37-1 MOVE BODY             C1504000
001846 D202 D07A 8269 0007A 018E1  7012+         MVC   COMMAND+18(3),COF0543N SET 'ON '                         C1505000

00184C 1F28                        7013+         SLR   WA,BASE3                                                 C2068000
                                   7014+* DEVICE FOUND - DISPLAY FOR ALL DEVICES                                C1507000
00184E D207 D07D 1018 0007D 00018  7015+COF0543B MVC   COMMAND+18+3(8),DCTDEVN-DCTDSECT(R1) SET DEVICE          C1508000
001854 9012 D060      00060        7016+         STM   R1,WA,COMDWORK      SAVE                                 C1509000

001858 4100 002F      0002F        7017+         LA    R0,54-(37-30)       SET LENGTH                           C1510000
00185C                             7018+         DS    0H                                                       NU006000
00185C 4520 C00C      0000C        7019+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
001860 5810 D05C      0005C        7020+         L     R1,COMEWORK         PICK UP JOB QUEUE POINTER            C1512000
001864 D501 D0A0 1002 000A0 00002  7021+         CLC   COMMAND+56(2),QUEJOBNO(R1) SAME JOB NUMBER               C1513000
00186A 9812 D060      00060        7022+         LM    R1,WA,COMDWORK      RESTORE                              C1514000
00186E 4772 8000      00000        7023+         BNE   0(WA,BASE3)         EXIT IF NOT SAME                     C1515000
001872 45E0 818A      01802        7024+         BAL   LINK,COF0543                                             C1355800
001876 47F2 8000      00000        7025+         B     0(WA,BASE3)         EXIT                                 C1517000
00187A 47F0 81D6      0184E        7026+         B     COF0543B            LOOP                                 C1518000
                                   7027+* NO DEVICE FOUND - DISPLAY OUTPUT PRT PUN ROUTE CODES IN JQE           C1522000
00187E 5810 D05C      0005C        7028+COF0543C L     R1,COMEWORK         POINT TO JOB QUEUE ELEMENT           C1523000

001882 1B00                        7029+         SR    R0,R0               ZERO WORK                            C1524000
001884 4300 100C      0000C        7030+         IC    R0,QUEPRTRT(0,R1)   GET PRINT ROUTE                      C1525000
001888 45E0 830A      01982        7031+         BAL   LINK,CD7DCVE                                             C0674000

00188C D202 D086 D062 00086 00062  7032+         MVC   COMMAND+18+12(3),COMDWORK+2 INSERT PRINT ROUTING         C1527000
001892 4300 100D      0000D        7033+         IC    R0,QUEPUNRT(0,R1)   GET PUNCH ROUTE                      C1528000
001896 45E0 830A      01982        7034+         BAL   LINK,CD7DCVE                                             C0674000
00189A D202 D089 D062 00089 00062  7035+         MVC   COMMAND+18+15(3),COMDWORK+2 INSERT PUNCH ROUTING         C1530000
0018A0 4100 0036      00036        7036+COF0543D LA    R0,54               SET LENGTH                           C1531000
0018A4                             7037+COF0543E DS    0H                                                       NU006000
0018A4 47F0 C00C      0000C        7038+         B     COWTO(0,BASE2)      REPLY TO OPERATOR                    C0350000
                                   7039+* DETERMINE EXECUTION QUEUE STATUS - DISPLAY AS APPROPRIATE             C1534000
0018A8 9180 1001      00001        7040+COF0543F TM    QUETYPE(R1),QENTBY  IS IT BUSY                           C1535000
0018AC 4710 824C      018C4        7041+         BO    COF0543G            DISPLAY EXECUTING IF BUSY            C1538000
0018B0 D203 D083 8278 00083 018F0  7042+         MVC   COMMAND+18+9(4),COF0543R SET 'EXEC'                      C1544000
0018B6 D200 D08B 1001 0008B 00001  7043+         MVC   COMMAND+18+17(1),QUETYPE(R1) INSERT CLASS                C1545000

0018BC 9680 D08B      0008B        7044+         OI    COMMAND+18+17,QENTBY UPPER CASE IT                       C1546000

0018C0 47F0 8228      018A0        7045+         B     COF0543D            DISPLAY IT                           C1547000
0018C4 D211 D085 D08C 00085 0008C  7046+COF0543G MVC   COMMAND+30-1(54-37+1),COMMAND+37-1 MOVE BODY             C1549000

0018CA D209 D07A 8278 0007A 018F0  7047+         MVC   COMMAND+18(10),COF0543R SET 'EXECUTING '                 C1550000
0018D0 D200 D084 1001 00084 00001  7048+         MVC   COMMAND+18+10(1),QUETYPE(R1) SET CLASS                   C1551000
COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  166


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0018D6 4100 002F      0002F        7049+         LA    R0,54-(37-30)       SET COUNT                            C1552000
0018DA 47F0 822C      018A4        7050+         B     COF0543E            DISPLAY IT                           C1554000
0018DE D1D6C2                      7051+COF0543L DC    C'JOB'              JOB                                  C1622000
0018E1 D6D540                      7052+COF0543N DC    C'ON '              ON DEVICE                            C1628000
0018E4 C1E6C1C9E3C9D5C7            7053+COF0543Q DC    C'AWAITING OUT'     AWAITING OUT                         C1636000
0018F0 C5E7C5C3E4E3C9D5            7054+COF0543R DC    C'EXECUTING '       AWAITING EXEC - EXECUTING            C1646000
0018FA D7D9C9D6                    7055+COF0543S DC    C'PRIO'             PRIO                                 C1650000
0018FE C8D6D3C4                    7056+COF0543T DC    C'HOLD'             HOLD                                 C1652000

001902 D7E4D9C7C5                  7057+COF0543U DC    C'PURGE'            PURGE                                C1654000
001907 C4E4D7D3C9C3C1E3            7058+COF0543V DC    C'DUPLICATE'        DUPLICATE                            C1656000

001910                             7059+COF0543Z DS    0H                  END OF MESSAGE PREPARATION           C1660000

                                   7060          $CFJSCAN PROCESS=CD7DCK,NEXT=CD7DCKL CHECK FOR BREAKS          C3930000
                                   7061+* SCAN JOB QUEUE FOR SELECTED JOBS                                      C1672000
001910 4110 B140      00140        7062+         LA    R1,$JQENT-QUECHAIN  LOCATE HEAD OF JOB CHAIN             C1674000
001914                             7063+CD7DCKL  DS    0H                                                       NU006000
001914 5810 1004      00004        7064+         L     R1,QUECHAIN(0,R1)   PICK UP NEXT ENTRY              RFIT C1694000
001918 4110 1000      00000        7065+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1694100
00191C 1211                        7066+         LTR   R1,R1                   SET CONDITION CODE          RFIT C1694200
00191E 4770 82BC      01934        7067+         BNE   CD7DCK                                                   C1700000
                                   7068          $CRET MSG=CD7DIAG,L=CD7DIAL RETURN WITH DIAGNOSTIC IF BROKEN   C3932000
001922                             7069+         DS    0H                                                       NU006000
001922 4100 000F      0000F        7070+         LA    R0,CD7DIAL                                               C0230000
001926 D20E D068 8322 00068 0199A  7071+         MVC   COMMAND(CD7DIAL),CD7DIAG                                 C0248000

00192C 41F0 0008      00008        7072+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
001930 45E0 B088      00088        7073+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
001934 1941                        7074 CD7DCK   CR    WC,R1               HAVE WE MET THE LAST JOB DISPLAYED   C3934000

001936 4770 829C      01914        7075          BNE   CD7DCKL             IF NOT, LOOK FURTHER                 C3936000
00193A 47F0 80AE      01726        7076          B     CD7DNXT             NEXT JOB PLEASE                      C3938000
00193E D207 D068 D0E0 00068 000E0  7077 CD7DNFND MVC   COMMAND(8),COMPNTER MOVE NAME                            C3940000
001944 D20D D070 8331 00070 019A9  7078          MVC   COMMAND+8(14),CD7DJNF SET EXPLANATION                    C3942000
                                   7079          $CRET L=22                SEND THE MESSAGE                     C3944000
00194A                             7080+         DS    0H                                                       NU006000
00194A 4100 0016      00016        7081+         LA    R0,22                                                    C0230000
00194E 41F0 0008      00008        7082+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
001952 45E0 B088      00088        7083+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
001956 5810 5000      00000        7084 CD7DINVO L     R1,0(0,WD)          POINT TO OPERAND                     C3946000
                                   7085 CD7DINV  $CFINVO OPERAND=(R1)      ERROR EXIT                           C3948000
                                   7086+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000

00195A D208 D068 1000 00068 00000  7087+CD7DINV  MVC   COMMAND(9),0(R1)                                         C1204000
001960 D20F D071 82FA 00071 01972  7088+         MVC   COMMAND+9(16),COF0585 MOVE DIAGNOSTIC BEHIND TEXT        C1206000
001966                             7089+         DS    0H                                                       NU006000
001966 4100 0019      00019        7090+         LA    R0,25                                                    C0230000

00196A 41F0 0008      00008        7091+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
00196E 45E0 B088      00088        7092+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
001972 40C9D5E5C1D3C9C4            7093+COF0585  DC    C' INVALID OPERAND'                                      C1210000
                                   7094 CD7DCVE  $CFCVE TYPE=DEF                                                C3950000
001982                             7095+CD7DCVE  DS    0H                                                       NU006000
                                   7096+* CONVERT TO EBCDIC AND LEAVE ANSWER IN COMDWORK ( 5 DIGITS )           C0684000

001982 4E00 D060      00060        7097+         CVD   R0,COMDWORK         CONVERT TO DECIMAL                   C0686000
001986 D205 D05F 831C 0005F 01994  7098+         MVC   COMDWORK-1(6),COF0589 MOVE MASK TO BLANK OUT HIGH ZEROS  C0688000
00198C DE05 D05F D065 0005F 00065  7099+         ED    COMDWORK-1(6),COMDWORK+5 CONVERT TO EBCDIC               C0690000
001992 07FE                        7100+         BR    LINK                RETURN                               C0694000
001994 402020202120                7101+COF0589  DC    X'402020202120'     MASK FOR EDIT                        C0696000
00199A D3C9E2E340C9D5C3            7102 CD7DIAG  DC    C'LIST INCOMPLETE'                                       C3952000
                            0000F  7103 CD7DIAL  EQU   *-CD7DIAG                                                C3954000
COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  167



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0019A9 40D1D6C240D5D6E3            7104 CD7DJNF  DC    C' JOB NOT FOUND'   XXXXXXXX JOB NOT FOUND               C3954100

COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  168


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7106 ******************************************************************      C3954300
                                   7107 *                                                                       C3954400
                                   7108 *        ROUTINE TO CONVERT $A,$C,$E,$H,$P 'JOBNAME' COMMANDS           C3954500
                                   7109 *        TO CORRESPONDING $VJ... COMMANDS                               C3954600
                                   7110 *                                                                       C3954700
                                   7111 ******************************************************************      C3954800

0019B7 00
0019B8 1255                        7112 CA7DXIT  LTR   WD,WD               QUEUE POINTER STILL ZERO             C3954900
0019BA 1851                        7113          LR    WD,R1               ASSUME YES                           C3955000
0019BC 4780 80AE      01726        7114          BZ    CD7DNXT             SIGNAL FOUND AND CONTINUE SCAN       C3955100
0019C0 D213 D074 83D6 00074 01A4E  7115          MVC   COMMAND+12(CA7DDL),CA7DD SET DIAGNOSTIC                  C3955200

                                   7116          $CWTO L=12+CA7DDL         SEND MESSAGE                         C3955300
0019C6                             7117+         DS    0H                                                       NU006000
0019C6 4100 0020      00020        7118+         LA    R0,12+CA7DDL                                             C0324000

0019CA 4520 C00C      0000C        7119+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
0019CE 92C4 D0E8      000E8        7120          MVI   COMPNTER+8,C'D'     CONVERT FLAG TO $D                   C3955400
0019D2 47F0 80A2      0171A        7121          B     CA7DDUP             START SCAN ALL OVER                  C3955500
0019D6 1815                        7122 CA7DSET  LR    R1,WD               POINT TO QUEUE ELEMENT               C3955600
0019D8 1857                        7123          LR    WD,WF               POINT TO OPERAND POINTER             C3955700
                                   7124          $CFVQE NOK=CD7DINVO       VERIFY OWNERSHIP                     C3955800
0019DA                             7125+         DS    0H                                                       NU006000

0019DA 4800 1002      00002        7126          LH    R0,QUEJOBNO(0,R1)   PICK UP JOB NUMBER                   C3955900
                                   7127          $CFCVE SYMBOL=CD7DCVE     CONVERT TO EBCDIC                    C3956000
0019DE 45E0 830A      01982        7128+         BAL   LINK,CD7DCVE                                             C0674000
0019E2 92D1 D06A      0006A        7129          MVI   COMOPRND,C'J'       SET OPERAND $VJ...                   C3956100
0019E6 D204 D06B D060 0006B 00060  7130          MVC   COMOPRND+1(5),COMDWORK MOVE JOB NUMBER                   C3956200

0019EC 9240 D070      00070        7131          MVI   COMOPRND+1+5,C' '   SET BLANK AFTER $VJNNNNN             C3956300
0019F0 4110 D071      00071        7132          LA    R1,COMOPRND+1+5+1   POINT TO NULL OPERAND                C3956400
0019F4 5010 D0F4      000F4        7133          ST    R1,COMNULOP         POINT TO NULL OPERAND                C3956500
                                   7134 * THE FUNCTIONS OF OPERAND SETUP HAVE NOW BEEN SIMULATED                C3956600

0019F8 4140 83CC      01A44        7135          LA    WC,CA7DTAB          POINT TO ACTION VERB TABLE           C3956700
0019FC 4110 0004      00004        7136          LA    R1,CA7DTABN         SET COUNT AND CLEAR HIGH BYTES       C3956800
001A00 D500 D069 4000 00069 00000  7137 CA7DSCN  CLC   COMVERB(1),0(WC)    MATCHING VERB                        C3956900
001A06 4780 83B4      01A2C        7138          BE    CA7DFND             IF FOUND EXIT                        C3957000
001A0A 4140 4002      00002        7139          LA    WC,2(0,WC)          UP TO NEXT ENTRY                     C3957100
001A0E 4610 8388      01A00        7140          BCT   R1,CA7DSCN          LOOP                                 C3957200

001A12 4110 0001      00001        7141          LA    R1,CE7DTABN         SET SECONDARY COUNT                  C3957300
001A16 D500 D069 4000 00069 00000  7142 CE7DSCN  CLC   COMVERB(1),0(WC)    MATCHING VERB                        C3957400
001A1C 4780 83C0      01A38        7143          BE    CE7DFND             IF FOUND EXIT                        C3957500
001A20 4140 4002      00002        7144          LA    WC,2(0,WC)          UP TO NEXT ENTRY                     C3957600
001A24 4610 839E      01A16        7145          BCT   R1,CE7DSCN          LOOP                                 C3957700

001A28 47F0 82DE      01956        7146          B     CD7DINVO            EXECUTED ON LOGIC ERROR ONLY         C3957800
001A2C 4310 4001      00001        7147 CA7DFND  IC    R1,1(0,WC)          PICK UP OFFSET                       C3957900
                                   7148          $XCTL HASPCJB2            ENTER JOB LIST COMMAND               C3958000
000000                             7149+HA$QCJB2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
001A30                             7150+HA$OCJB3 CSECT                                                          OL014000

001A30 41E00000                    7151+         DC    Y(X'4100'+LINK*16),QL2(HA$QCJB2) LOAD OCON INTO LINK     OL016000
001A34 45F0 B090      00090        7152+         BAL   R15,$OXCTL          LINK TO OVERLAY SUPERVISOR           XC008000
001A38 4310 4001      00001        7153 CE7DFND  IC    R1,1(0,WC)          PICK UP OFFSET                       C3958100
                                   7154          $XCTL HASPCJB4            ENTER JOB LIST COMMAND               C3958200
000000                             7155+HA$QCJB4 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000

001A3C                             7156+HA$OCJB3 CSECT                                                          OL014000
001A3C 41E00000                    7157+         DC    Y(X'4100'+LINK*16),QL2(HA$QCJB4) LOAD OCON INTO LINK     OL016000
001A40 45F0 B090      00090        7158+         BAL   R15,$OXCTL          LINK TO OVERLAY SUPERVISOR           XC008000
001A44                             7159 CA7DTAB  DS    0H                                                       C3958300
COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  169



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

001A44 C108                        7160          DC    C'A',AL1(COAJ-HASPCJB2)                                  C3958400
001A46 C30A                        7161          DC    C'C',AL1(COCJ-HASPCJB2)                                  C3958500
001A48 C80E                        7162          DC    C'H',AL1(COHJ-HASPCJB2)                                  C3958600
001A4A D710                        7163          DC    C'P',AL1(COPJ-HASPCJB2)                                  C3958700
                            00004  7164 CA7DTABN EQU   (*-CA7DTAB)/2                                            C3958800

001A4C                             7165 CE7DTAB  DS    0H                                                       C3958900
001A4C C500                        7166          DC    C'E',AL1(COEJ-HASPCJB4)                                  C3959000
                            00001  7167 CE7DTABN EQU   (*-CE7DTAB)/2                                            C3959100
001A4E 40D4E4D3E3C9D7D3            7168 CA7DD    DC    C' MULTIPLE JOBS FOUND'                                  C3959200

                            00014  7169 CA7DDL   EQU   *-CA7DD             LENGTH OF DIAGNOSTIC                 C3959300
COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  170


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7171 HASPCJ3A $COMGRUP TJ,PRTY=0        CONTINUATION OF MISCELLANEOUS JOB    C3962000
001A68                             7172+HA$OCJ3A CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            01A68  7173+HA$ICJ3A EQU   HA$OCJ3A+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7174+         ENTRY HA$ICJ3A                                                 OV036000
001A68 C3D1F3C1                    7175+         DC    CL4'CJ3A'           IDENTIFY MODULE ON CORE DUMP         OV038000
001A6C 00001A68                    7176+         DC    A(HA$OCJ3A)         ASSEMBLY ORIGIN                      OV040000
001A70                             7177+HASPCJ3A DS    0F                  ENTRY POINT                          OV042000
                            01A10  7178+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                            01A70  7179+COTJ            EQU HASPCJ3A                                            C0146000

                                   7180 *********************************************************************** C3964000
                                   7181 *                                                                     * C3966000
                                   7182 *        $T JN -- SET JOB NUMBER ASSIGNMENT                           * C3968000

                                   7183 *                                                                     * C3970000
                                   7184 *        $T JN,C=CLASS -- SET JOB CLASS                               * C3972000
                                   7185 *                                                                     * C3974000
                                   7186 *        $T JN,P=VALUE -- SET JOB PRIORITY                            * C3976000
                                   7187 *        VALUE = +N - INCREMENT CURRENT PRIORITY BY N                 * C3978000

                                   7188 *              = -N - DECREMENT CURRENT PRIORITY BY N                 * C3980000
                                   7189 *              =  N - SET PRIORITY TO N                               * C3982000
                                   7190 *                                                                     * C3984000
                                   7191 *        $SET JOB NO. TO N                                            * C3986000
                                   7192 *                                                                     * C3988000
                                   7193 *        $ALTER JN                                                    * C3990000
                                   7194 *                                                                     * C3992000
                                   7195 *********************************************************************** C3994000

                                   7196 CTJ      $CFCVB POINTER=(WD),NOK=CTJINVO,SYMBOL=CTJCVB CONVERT TO BIN   C3996000
001A70                             7197+CTJ      DS    0H                                                       NU006000

001A70 1815                        7198+         LR    R1,WD                                                    DG018000
001A72 45E0 835C      01D6C        7199+         BAL   LINK,CTJCVB                                              C0470000
001A76 47F0 80C6      01AD6        7200+         B     CTJINVO                                                  C0472000
001A7A 1957                        7201          CR    WD,WF               TEST FOR END OF COMMAND              C3998000
001A7C 4740 808C      01A9C        7202          BL    CTJOB               IF NOT, ALTER JOB DESIRED            C4000000

                                   7203 * SETTING OF JOB NUMBER ASSIGNMENT CONTROL DESIRED                      C4002000
001A80 1200                        7204          LTR   R0,R0               TEST FOR ZERO                        C4004000
001A82 4780 80C6      01AD6        7205          BZ    CTJINVO             IF ZERO, ERROR                       C4006000
001A86 0600                        7206          BCTR  R0,0                REDUCE                               C4008000
001A88 4000 B14C      0014C        7207          STH   R0,$JOBNO           UPDATE INTERNAL JOB NUMBER           C4010000
                                   7208          $CRET MSG=OK              RETURN                               C4012000
001A8C                             7209+         DS    0H                                                       NU006000
001A8C 41F0 0004      00004        7210+         LA    R15,CORTOK          RETURN AND ISSUE OK MESSAGE          C0264000
001A90 45E0 B088      00088        7211+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000

                                   7212 * MODIFICATIONS TO JOB CLASS OR PRIORITY IS DESIRED                     C4014000

                                   7213 CTJOBWAT $WAIT CKPT                WAIT FOR CHECK POINT TO FINISH       C4016000
001A94 9604 D048      00048        7214+CTJOBWAT OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
001A98 45F0 B030      00030        7215+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
001A9C 9110 B0C2      000C2        7216 CTJOB    TM    $STATUS,$CKPTACT    IS CHECK POINT IN PROCESS            C4018000
001AA0 4710 8084      01A94        7217          BO    CTJOBWAT            IF SO, WAIT                          C4020000

                                   7218          $QLOC (R0),CTJNFND,OLAY=YES LOCATE JOB BY NUMBER               C4022000
001AA4 1810                        7219+         LR    R1,R0                                                    DG018000
001AA6 45E0 B05C      0005C        7220+         BAL   LINK,$QLOC          LINK TO CONTROL SERVICE PROGRAM      QL010000
001AAA 4780 80F2      01B02        7221+         BC    8,CTJNFND                                                NP008000
001AAE 9180 1001      00001        7222          TM    QUETYPE(R1),QENTBY  IS THE JOB ACTIVE                    C4024000
001AB2 4710 817A      01B8A        7223          BO    CTJDJ               IF SO DISPLAY JOB AND EXIT           C4026000
001AB6 1841                        7224          LR    WC,R1               SAVE JOB QUEUE ELEMENT ADDRESS       C4028000
001AB8 1A56                        7225          AR    WD,WE               POINT TO NEXT PARAMETER              C4030000
COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  171


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

001ABA 5830 5000      00000        7226          L     WB,0(0,WD)          PICK UP OPERAND LOCATION             C4032000
001ABE 957E 3001      00001        7227          CLI   1(WB),C'='          IS THE SECOND CHARACTER '='          C4034000

001AC2 4770 80C6      01AD6        7228          BNE   CTJINVO             IF NOT, ERROR                        C4036000
                                   7229          $CFSEL (C,CTJC),(P,CTJP),OPERAND=(WB) SELECT DESIRED CHANGE    C4038000
001AC6                             7230+         DS    0H                                                       NU006000

001AC6 95C3 3000      00000        7231+         CLI   0(WB),C'C'                                               C1862000
001ACA 4780 8322      01D32        7232+         BE    CTJC                                                     C1864000
001ACE 95D7 3000      00000        7233+         CLI   0(WB),C'P'                                               C1862000
001AD2 4780 8112      01B22        7234+         BE    CTJP                                                     C1864000
001AD6 5810 5000      00000        7235 CTJINVO  L     R1,0(0,WD)          PICK UP ERROR OPERAND                C4040000
                                   7236 CTJINV   $CFINVO OPERAND=(R1)      ERROR EXIT                           C4042000
                                   7237+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
001ADA D208 D068 1000 00068 00000  7238+CTJINV   MVC   COMMAND(9),0(R1)                                         C1204000
001AE0 D20F D071 80E2 00071 01AF2  7239+         MVC   COMMAND+9(16),COF0626 MOVE DIAGNOSTIC BEHIND TEXT        C1206000
001AE6                             7240+         DS    0H                                                       NU006000

001AE6 4100 0019      00019        7241+         LA    R0,25                                                    C0230000

001AEA 41F0 0008      00008        7242+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
001AEE 45E0 B088      00088        7243+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
001AF2 40C9D5E5C1D3C9C4            7244+COF0626  DC    C' INVALID OPERAND'                                      C1210000
                                   7245 CTJNFND  $CRET L=CTJJML,MSG=CTJJM  EXIT JOB NOT FOUND                   C4042500

001B02                             7246+CTJNFND  DS    0H                                                       NU006000
001B02 4100 000D      0000D        7247+         LA    R0,CTJJML                                                C0230000
001B06 D20C D068 8104 00068 01B14  7248+         MVC   COMMAND(CTJJML),CTJJM                                    C0248000
001B0C 41F0 0008      00008        7249+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
001B10 45E0 B088      00088        7250+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
001B14 D1D6C240D5D6E340            7251 CTJJM    DC    C'JOB NOT FOUND'                                         C4043000
                            0000D  7252 CTJJML   EQU   *-CTJJM                                                  C4043500
                                   7253 * SET JOB PRIORITY                                                      C4044000
                                   7254 CTJP     $CFCVB POINTER=(WD),NOK=CTJINVO,SYMBOL=CTJCVB CONVERT PRIO     C4046000
001B22                             7255+CTJP     DS    0H                                                       NU006000
001B22 1815                        7256+         LR    R1,WD                                                    DG018000

001B24 45E0 835C      01D6C        7257+         BAL   LINK,CTJCVB                                              C0470000
001B28 47F0 80C6      01AD6        7258+         B     CTJINVO                                                  C0472000
001B2C 8B00 0004      00004        7259          SLA   R0,4                ALLOW FOR AGING BITS                 C4048000
001B30 1B11                        7260          SR    R1,R1               ZERO WORK REGISTER                   C4050000

001B32 954E 3002      00002        7261          CLI   2(WB),C'+'          IS THIS INCREMENT TO CURRENT         C4052000
001B36 4780 8134      01B44        7262          BE    CTJPP               IF SO ADD CURRENT TO INCREMENT       C4054000
001B3A 9560 3002      00002        7263          CLI   2(WB),C'-'          IS THIS DECREMENT TO CURRENT         C4056000
001B3E 4770 8138      01B48        7264          BNE   CTJPMV              IF NOT, ADD CURRENT OF ZERO          C4058000
001B42 1300                        7265          LCR   R0,R0               SET NEGATIVE NUMBER                  C4060000
001B44 4310 4000      00000        7266 CTJPP    IC    R1,QUEPRIO(0,WC)    PICK UP OLD PRIORITY                 C4062000
001B48 1A01                        7267 CTJPMV   AR    R0,R1               ADD OLD PRIORITY TO GET NEW          C4064000
001B4A 47B0 8140      01B50        7268          BNM   *+6                 IF NEGATIVE SET ZERO PRIORITY        C4066000
001B4E 1B00                        7269          SR    R0,R0               MAKE IT ZERO                         C4068000
001B50 4110 00FF      000FF        7270          LA    R1,255              SET HIGHEST POSSIBLE                 C4070000
001B54 1901                        7271          CR    R0,R1               CHECK FOR PRIORITY TOO HIGH          C4072000
001B56 47D0 814C      01B5C        7272          BNH   *+6                 IF NOT TOO HIGH, SKIP NEXT           C4074000

001B5A 1801                        7273          LR    R0,R1               SET MAXIMUM                          C4076000
001B5C 4350 4001      00001        7274          IC    WD,QUETYPE(0,WC)    PICK UP QUEUE CLASS, IF SET          C4078000
                                   7275 CTJPMOD  MVC   COMMAND(&QENTSIZ),0(WC) MOVE QUEUE ELEMENT               C4080000

001B60 D20F D068 4000 00068 00000  7276+CTJPMOD  MVC   COMMAND(16),0(WC)       MOVE QUEUE ELEMENT               C4080000
001B66 4200 D068      00068        7277          STC   R0,COMMAND+QUEPRIO  SET PRIORITY                         C4082000
001B6A 4250 D069      00069        7278          STC   WD,COMMAND+QUETYPE  SET CLASS                            C4084000
                                   7279          $QREM (WC),OLAY=YES       REMOVE THE QUEUE ELEMENT             C4086000
001B6E 1814                        7280+         LR    R1,WC                                                    DG018000
COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  172


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

001B70 41E0 816A      01B7A        7281+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
001B74 1FE8                        7282+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
001B76 47F0 B054      00054        7283+         B     $QREM               BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   7284          $QADD COMMAND,(WD),OLAY=YES ADD BACK TO QUEUE                  C4088000
001B7A 4110 D068      00068        7285+         LA    R1,COMMAND                                               DG012000

001B7E 1805                        7286+         LR    R0,WD                                                    DG018000

001B80 41E0 817A      01B8A        7287+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
001B84 1FE8                        7288+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000

001B86 47F0 B048      00048        7289+         B     $QADD               BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   7290 CTJDJ    $CFJMSG JOBQE=(R1),CVE=CTJCVE DISPLAY JOB INFORMATION          C4090000
001B8A                             7291+CTJDJ    DS    0H                                                       NU006000
001B8A 4120 831A      01D2A        7292+         LA    WA,COF0651Z         POINT TO EXIT                        C1445000
                                   7293+* MOVE 'JOB' AND NUMBER INTO MESSAGE AREA                               C1448000
001B8E D202 D068 82E8 00068 01CF8  7294+         MVC   COMMAND(3),COF0651L PLACE 'JOB' INTO MESSAGE AREA        C1450000
001B94 4800 1002      00002        7295+         LH    R0,QUEJOBNO(0,R1)                                        DG012000
001B98 45E0 8344      01D54        7296+         BAL   LINK,CTJCVE                                              C0674000
001B9C D204 D06B D060 0006B 00060  7297+         MVC   COMMAND+3(COMJBLEN+1),COMDWORK-COMJBLEN+4 SET NUMBER     C1454000
001BA2 9240 D070      00070        7298+         MVI   COMMAND+4+COMJBLEN,C' ' BLANK OUT MESSAGE AREA           C1458000
001BA6 D22C D071 D070 00071 00070  7299+         MVC   COMMAND+5+COMJBLEN(45),COMMAND+4+COMJBLEN                C1460000
                                   7300+* MOVE JOB NAME FROM JIT                                                C1464000

001BAC 45E0 B060      00060        7301+         BAL   LINK,$QJITLOC       LOCATE JOB NAME ( R0 POINTS )        C1466000
001BB0 18F0                        7302+         LR    R15,R0              PREPARE FOR MOVE                     C1468000

001BB2 D207 D071 F000 00071 00000  7303+         MVC   COMMAND+5+COMJBLEN(8),JITJNAME(R15) MOVE NAME            C1470000

                                   7304+* BUILD END OF JOB INFORMATION MESSAGE                                  C1473000
001BB8 D203 D08D 8304 0008D 01D14  7305+         MVC   COMMAND+37(4),COF0651S SET 'PRIO'                        C1474000
001BBE 1B00                        7306+         SR    R0,R0               ZERO WORK                            C1475000
001BC0 4300 1000      00000        7307+         IC    R0,QUEPRIO(0,R1)    GET JOB PRIORITY                     C1476000
001BC4 8A00 0004      00004        7308+         SRA   R0,4                ALIGN                                C1477000
001BC8 45E0 8344      01D54        7309+         BAL   LINK,CTJCVE                                              C0674000
001BCC D201 D092 D063 00092 00063  7310+         MVC   COMMAND+37+5(2),COMDWORK+3 SET PRIORITY                  C1479000
001BD2 91F0 1004      00004        7311+         TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1+QUEHOLD2+QUEPURGE         C1480000
001BD6 4780 81EC      01BFC        7312+         BZ    COF0651A            BRANCH IF NO SPECIAL CONDITIONS      C1481000
001BDA D203 D095 8308 00095 01D18  7313+         MVC   COMMAND+45(4),COF0651T  SET 'HOLD'                       C1482000
001BE0 91C0 1004      00004        7314+         TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1 IS IT HELD                C1483000
001BE4 4770 81EC      01BFC        7315+         BNZ   COF0651A            BRANCH IF HELD                       C1484000

001BE8 D204 D095 830C 00095 01D1C  7316+         MVC   COMMAND+45(5),COF0651U SET 'PURGE'                       C1485000
001BEE 9110 1004      00004        7317+         TM    QUEFLAGS(R1),QUEPURGE IS IT FLAGGED FOR PURGE            C1486000
001BF2 4710 81EC      01BFC        7318+         BO    COF0651A            BRANCH IF YES                        C1487000

001BF6 D208 D095 8311 00095 01D21  7319+         MVC   COMMAND+45(9),COF0651V SET 'DUPLICATE'                   C1488000
001BFC                             7320+COF0651A DS    0H                                                       C1489000
                                   7321+* DETERMINE NORMAL QUEUE ACTIVITY                                       C1490000
001BFC D20B D07A 82EE 0007A 01CFE  7322+         MVC   COMMAND+18(12),COF0651Q SET 'AWAITING OUT'               C1492000
001C02 9140 1001      00001        7323+         TM    QUETYPE(R1),$XEQ    TEST FOR EXECUTION                   C1493000
001C06 4710 82B2      01CC2        7324+         BO    COF0651F            EXIT IF EXECUTION                    C1494000
                                   7325+* DETERMINE DEVICE ACTIVITY                                             C1495000
001C0A D201 D0A0 1002 000A0 00002  7326+         MVC   COMMAND+56(2),QUEJOBNO(R1) SAVE JOB NUMBER               C1496000
001C10 41E0 8246      01C56        7327+         LA    LINK,COF0664Z       POINT TO EXIT                        C1301000
001C14 5010 D05C      0005C        7328+         ST    R1,COMEWORK         SET JOB QUEUE LOCATION FOR COMPARE   C1302000
001C18 4110 B0DC      000DC        7329+         LA    R1,$DCTPOOL-DCTCHAIN+DCTDSECT POINT TO HEAD OF DCTS      C1304000
001C1C                             7330+COF0651  DS    0H                  CONTINUE                             C1306000

001C1C 5810 1014      00014        7331+COF0664L L     R1,DCTCHAIN-DCTDSECT(0,R1) NEXT DCT                 RFIT C1308000
001C20 4110 1000      00000        7332+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1308100
001C24 1211                        7333+         LTR   R1,R1                                               RFIT C1308200
001C26 078E                        7334+         BCR   Z,LINK              EXIT IF END OF CHAIN                 C1320000

001C28 9130 1012      00012        7335+         TM    DCTDEVTP-DCTDSECT(R1),DCTPUN TEST DCT CLASS              C1322000
COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  173


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7336+* TEST INCLUDES READER, PRINTER, AND PUNCH DEVICES                      C1324000
001C2C 4780 820C      01C1C        7337+         BZ    COF0664L           GET NEXT DCT IF NOT CORRECT CLASS     C1326000
001C30 9180 1000      00000        7338+         TM    DCTSTAT-DCTDSECT(R1),DCTINUSE IS DCT IN USE              C1328000

001C34 4780 820C      01C1C        7339+         BZ    COF0664L           GET NEXT DCT IF NOT                   C1330000
001C38 58F0 1000      00000        7340+         L     R15,DCTPCE-DCTDSECT(0,R1) PICK UP PCE                    C1332000
001C3C 9120 1012      00012        7341+         TM    DCTDEVTP-DCTDSECT(R1),DCTPRT IS IT PRINT OR PUNCH        C1334000
001C40 4710 8238      01C48        7342+         BO    *+8                 IF YES, SKIP NEXT INSTRUCTION        C1336000
001C44 41F0 F058      00058        7343+         LA    R15,RJOB-PJOB(0,R15) OFFSET PCE POINTER                  C1338000
001C48 D502 F061 D05D 00061 0005D  7344+         CLC   PJOB+1-PCEDSECT(3,R15),COMEWORK+1 CHECK FOR SAME JOB     C1340000
001C4E 4770 820C      01C1C        7345+         BNE   COF0664L           GET NEXT DCT IF NOT SAME JOB          C1342000
001C52 47F0 E004      00004        7346+         B     4(0,LINK)           RETURN                               C1346000

001C56                             7347+COF0664Z DS    0H                  ERROR EXIT                           C1352000
001C56 47F0 8288      01C98        7348+         B     COF0651C            DISPLAY 'AWAITING OUT'               C1499000

001C5A D211 D085 D08C 00085 0008C  7349+         MVC   COMMAND+30-1(54-37+1),COMMAND+37-1 MOVE BODY             C1504000
001C60 D202 D07A 82EB 0007A 01CFB  7350+         MVC   COMMAND+18(3),COF0651N SET 'ON '                         C1505000
001C66 1F28                        7351+         SLR   WA,BASE3                                                 C2068000
                                   7352+* DEVICE FOUND - DISPLAY FOR ALL DEVICES                                C1507000
001C68 D207 D07D 1018 0007D 00018  7353+COF0651B MVC   COMMAND+18+3(8),DCTDEVN-DCTDSECT(R1) SET DEVICE          C1508000
001C6E 9012 D060      00060        7354+         STM   R1,WA,COMDWORK      SAVE                                 C1509000
001C72 4100 002F      0002F        7355+         LA    R0,54-(37-30)       SET LENGTH                           C1510000
001C76                             7356+         DS    0H                                                       NU006000

001C76 4520 C00C      0000C        7357+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
001C7A 5810 D05C      0005C        7358+         L     R1,COMEWORK         PICK UP JOB QUEUE POINTER            C1512000
001C7E D501 D0A0 1002 000A0 00002  7359+         CLC   COMMAND+56(2),QUEJOBNO(R1) SAME JOB NUMBER               C1513000
001C84 9812 D060      00060        7360+         LM    R1,WA,COMDWORK      RESTORE                              C1514000
001C88 4772 8000      00000        7361+         BNE   0(WA,BASE3)         EXIT IF NOT SAME                     C1515000

001C8C 45E0 820C      01C1C        7362+         BAL   LINK,COF0651                                             C1355800
001C90 47F2 8000      00000        7363+         B     0(WA,BASE3)         EXIT                                 C1517000
001C94 47F0 8258      01C68        7364+         B     COF0651B            LOOP                                 C1518000

                                   7365+* NO DEVICE FOUND - DISPLAY OUTPUT PRT PUN ROUTE CODES IN JQE           C1522000
001C98 5810 D05C      0005C        7366+COF0651C L     R1,COMEWORK         POINT TO JOB QUEUE ELEMENT           C1523000
001C9C 1B00                        7367+         SR    R0,R0               ZERO WORK                            C1524000
001C9E 4300 100C      0000C        7368+         IC    R0,QUEPRTRT(0,R1)   GET PRINT ROUTE                      C1525000
001CA2 45E0 8344      01D54        7369+         BAL   LINK,CTJCVE                                              C0674000
001CA6 D202 D086 D062 00086 00062  7370+         MVC   COMMAND+18+12(3),COMDWORK+2 INSERT PRINT ROUTING         C1527000
001CAC 4300 100D      0000D        7371+         IC    R0,QUEPUNRT(0,R1)   GET PUNCH ROUTE                      C1528000

001CB0 45E0 8344      01D54        7372+         BAL   LINK,CTJCVE                                              C0674000
001CB4 D202 D089 D062 00089 00062  7373+         MVC   COMMAND+18+15(3),COMDWORK+2 INSERT PUNCH ROUTING         C1530000
001CBA 4100 0036      00036        7374+COF0651D LA    R0,54               SET LENGTH                           C1531000
001CBE                             7375+COF0651E DS    0H                                                       NU006000
001CBE 47F0 C00C      0000C        7376+         B     COWTO(0,BASE2)      REPLY TO OPERATOR                    C0350000

                                   7377+* DETERMINE EXECUTION QUEUE STATUS - DISPLAY AS APPROPRIATE             C1534000
001CC2 9180 1001      00001        7378+COF0651F TM    QUETYPE(R1),QENTBY  IS IT BUSY                           C1535000
001CC6 4710 82CE      01CDE        7379+         BO    COF0651G            DISPLAY EXECUTING IF BUSY            C1538000
001CCA D203 D083 82FA 00083 01D0A  7380+         MVC   COMMAND+18+9(4),COF0651R SET 'EXEC'                      C1544000

001CD0 D200 D08B 1001 0008B 00001  7381+         MVC   COMMAND+18+17(1),QUETYPE(R1) INSERT CLASS                C1545000
001CD6 9680 D08B      0008B        7382+         OI    COMMAND+18+17,QENTBY UPPER CASE IT                       C1546000
001CDA 47F0 82AA      01CBA        7383+         B     COF0651D            DISPLAY IT                           C1547000
001CDE D211 D085 D08C 00085 0008C  7384+COF0651G MVC   COMMAND+30-1(54-37+1),COMMAND+37-1 MOVE BODY             C1549000
001CE4 D209 D07A 82FA 0007A 01D0A  7385+         MVC   COMMAND+18(10),COF0651R SET 'EXECUTING '                 C1550000
001CEA D200 D084 1001 00084 00001  7386+         MVC   COMMAND+18+10(1),QUETYPE(R1) SET CLASS                   C1551000

001CF0 4100 002F      0002F        7387+         LA    R0,54-(37-30)       SET COUNT                            C1552000
001CF4 47F0 82AE      01CBE        7388+         B     COF0651E            DISPLAY IT                           C1554000
001CF8 D1D6C2                      7389+COF0651L DC    C'JOB'              JOB                                  C1622000
001CFB D6D540                      7390+COF0651N DC    C'ON '              ON DEVICE                            C1628000
COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  174



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

001CFE C1E6C1C9E3C9D5C7            7391+COF0651Q DC    C'AWAITING OUT'     AWAITING OUT                         C1636000
001D0A C5E7C5C3E4E3C9D5            7392+COF0651R DC    C'EXECUTING '       AWAITING EXEC - EXECUTING            C1646000
001D14 D7D9C9D6                    7393+COF0651S DC    C'PRIO'             PRIO                                 C1650000
001D18 C8D6D3C4                    7394+COF0651T DC    C'HOLD'             HOLD                                 C1652000

001D1C D7E4D9C7C5                  7395+COF0651U DC    C'PURGE'            PURGE                                C1654000
001D21 C4E4D7D3C9C3C1E3            7396+COF0651V DC    C'DUPLICATE'        DUPLICATE                            C1656000
001D2A                             7397+COF0651Z DS    0H                  END OF MESSAGE PREPARATION           C1660000
                                   7398          $CRET ,                   RETURN                               C4092000
001D2A                             7399+         DS    0H                                                       NU006000

001D2A 41F0 0000      00000        7400+         LA    R15,CORTNORM        NORMAL RETURN                        C0268000
001D2E 45E0 B088      00088        7401+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   7402 * SET JOB CLASS                                                         C4094000
001D32 95C1 3002      00002        7403 CTJC     CLI   2(WB),C'A'          TEST FOR IN RANGE OF CLASSES         C4096000
001D36 4740 80C6      01AD6        7404          BL    CTJINVO             IF NOT, INVALID OPERAND              C4098000

001D3A 947F 3002      00002        7405          NI    2(WB),255-QENTBY    TURN OFF BUSY BIT                    C4100000
001D3E 4350 3002      00002        7406          IC    WD,2(0,WB)          PICK UP CLASS DESIRED                C4102000
001D42 1814                        7407          LR    R1,WC               RESTORE QUEUE ELEMENT ADDRESS        C4104000
                                   7408 * JOB KNOWN TO BE WAITING DUE TO PREVIOUS TESTS                         C4106000
001D44 9140 1001      00001        7409          TM    QUETYPE(R1),$XEQ    IS JOB WAITING EXECTION              C4108000
001D48 4780 817A      01B8A        7410          BZ    CTJDJ               IF NOT, DISPLAY CURRENT JOB STATUS   C4110000

001D4C 4300 4000      00000        7411          IC    R0,QUEPRIO(0,WC)    PICK UP CURRENT PRIORITY             C4112000
001D50 47F0 8150      01B60        7412          B     CTJPMOD             MODIFY THE ELEMENT                   C4114000
                                   7413 CTJCVE   $CFCVE TYPE=DEF           CONVERT TO EBCDIC                    C4116000
001D54                             7414+CTJCVE   DS    0H                                                       NU006000

                                   7415+* CONVERT TO EBCDIC AND LEAVE ANSWER IN COMDWORK ( 5 DIGITS )           C0684000
001D54 4E00 D060      00060        7416+         CVD   R0,COMDWORK         CONVERT TO DECIMAL                   C0686000
001D58 D205 D05F 8356 0005F 01D66  7417+         MVC   COMDWORK-1(6),COF0688 MOVE MASK TO BLANK OUT HIGH ZEROS  C0688000
001D5E DE05 D05F D065 0005F 00065  7418+         ED    COMDWORK-1(6),COMDWORK+5 CONVERT TO EBCDIC               C0690000
001D64 07FE                        7419+         BR    LINK                RETURN                               C0694000

001D66 402020202120                7420+COF0688  DC    X'402020202120'     MASK FOR EDIT                        C0696000
                                   7421 CTJCVB   $CFCVB TYPE=DEF,NUM=1     CONVERT TO BINARY                    C4118000
001D6C                             7422+CTJCVB   DS    0H                                                       NU006000
001D6C 58F0 1000      00000        7423+         L     R15,0(0,R1)         PICK UP FIRST PARAMETER              C0482000
001D70 95F0 F000      00000        7424+         CLI   0(R15),C'0'         LOOK FOR NUMERIC ( FA-FF INCLUDED )  C0484000
001D74 47B0 8384      01D94        7425+         BNL   COF0693L           IF NUMERIC CONVERT                    C0486000
001D78 41F0 F001      00001        7426+         LA    R15,1(0,R15)        NEXT CHARACTER                       C0488000

001D7C 5020 D01C      0001C        7427+         ST    WA,PCEWA            SAVE WORK REGISTER           OY08684 C0488500
001D80 5820 1004      00004        7428+         L     WA,4(0,R1)          CLEAR HIGH ORDER BYTE OF     OY08684 C0489000
001D84 4120 2000      00000        7429+         LA    WA,0(0,WA)          NEXT OPERAND POINTER         OY08684 C0489500

001D88 19F2                        7430+         CR    R15,WA              DID WE GO TOO FAR            OY08684 C0490000
001D8A 5820 D01C      0001C        7431+         L     WA,PCEWA            RESTORE WORK REGISTER        OY08684 C0491000
001D8E 4740 8360      01D70        7432+         BL    *-30                LOOP UNTIL NUMERIC OR ERROR  OY08684 C0492000
001D92 07FE                        7433+         BR    LINK                RETURN INVALID OPERAND               C0496000
                                   7434+* CONVERT PAIR OF START STOP VALUES                                     C0504000

001D94 1B00                        7435+COF0693L SR    R0,R0               ZERO ACCUMULATOR, STOP VALUE         C0506000
001D96 D100 83AF F000 01DBF 00000  7436+COF0693C MVN COF0693W+1(1),0(R15)  MOVE NUMERIC TO WORK AREA            C0514000
001D9C 4C00 83AA      01DBA        7437+         MH    R0,COF0693T        MULTIPLY BY 10                        C0516000
001DA0 4A00 83AE      01DBE        7438+         AH    R0,COF0693W        ADD LOW DIGIT                         C0518000
001DA4 4900 83AC      01DBC        7439+         CH    R0,COF0693U        LOOK FOR MAXIMUM VALUE                C0520000
001DA8 072E                        7440+         BCR   H,LINK              RETURN INVALID OPERAND               C0524000
001DAA 41F0 F001      00001        7441+COF0693N LA    R15,1(0,R15)        NEXT CHARACTER                       C0532000
001DAE 95F0 F000      00000        7442+         CLI   0(R15),C'0'         TEST FOR NUMERIC ( FA-FF INCLUDED )  C0534000

001DB2 47B0 8386      01D96        7443+         BNL   COF0693C           IF NUMERIC CONVERT THE CHARACTER      C0536000
001DB6 47F0 E004      00004        7444+         B     4(0,LINK)           RETURN                               C0572000

001DBA 000A                        7445+COF0693T DC    H'10'               CONVERSION CONSTANT                  C0580000
COMM     HASP COMMAND PROCESSOR HASPCJB3 - MISCELLANEOUS JOB COMMANDS                                          PAGE  175


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

001DBC 270F                        7446+COF0693U DC    H'9999'                                                  C0594000
001DBE 0000                        7447+COF0693W DC    H'0'                WORK AREA FOR CONVERSION             C0596000

COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  176


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7449          AIF   (&COMPRTY GE 1).DVA IF FUNCTIONS GEN SINGLE DEVICE GROUP C4122000
                                   7450 HASPCDV1 $COMGRUP B,C,E,F,I,N,P,DELAY=YES,PRTY=0 DEVICE COMMANDS        C4124000
001DC0                             7451+HA$OCDV1 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            01DC0  7452+HA$ICDV1 EQU   HA$OCDV1+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7453+         ENTRY HA$ICDV1                                                 OV036000
001DC0 C3C4E5F1                    7454+         DC    CL4'CDV1'           IDENTIFY MODULE ON CORE DUMP         OV038000

001DC4 00001DC0                    7455+         DC    A(HA$OCDV1)         ASSEMBLY ORIGIN                      OV040000
001DC8                             7456+HASPCDV1 DS    0F                  ENTRY POINT                          OV042000

                            01D68  7457+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
001DC8 4811 8060      01DC8        7458+         LH    R1,HASPCDV1(R1)     PICK UP TABLE OFFSET                 C0118000
001DCC 47F0 8076      01DDE        7459+         B     COF0695                EXIT FOR DELAYED ENTRY            C0124000
001DD0 010A                        7460+COB              DC AL2(CB-HASPCDV1)                                    C0134000
001DD2 0200                        7461+COC              DC AL2(CC-HASPCDV1)                                    C0134000

001DD4 0214                        7462+COE              DC AL2(CE-HASPCDV1)                                    C0134000
001DD6 010A                        7463+COF              DC AL2(CF-HASPCDV1)                                    C0134000
001DD8 0230                        7464+COI              DC AL2(CI-HASPCDV1)                                    C0134000
001DDA 0240                        7465+CON              DC AL2(CN-HASPCDV1)                                    C0134000
001DDC 0250                        7466+COP              DC AL2(CP-HASPCDV1)                                    C0134000
001DDE                             7467+COF0695    DS  0H                  $BRR R1 TO ENTER ROUTINE             C0140000
                                   7468          AGO   .DVB                                                     C4126000
                                   7469 .DVB     ANOP                                                           C4140000
                                   7470 *********************************************************************** C4142000

                                   7471 *                                                                     * C4144000

                                   7472 *        DEVICE LISTS ARE OF THE FOLLOWING FORM                       * C4146000
                                   7473 *                                                                     * C4148000
                                   7474 *        $V DEV1,DEV2,...,DEVN                                        * C4150000
                                   7475 *        $V    = HASP COMMAND VERB                                    * C4152000
                                   7476 *        DEVX  = DEVICE DESIRED  PRT1,PUN1,RM2.PR1,ETC                * C4154000

                                   7477 *                                                                     * C4156000
                                   7478 *********************************************************************** C4158000
001DDE 1841                        7479          LR    WC,R1               SAVE SUB-COMMAND OFFSET              C4160000
                                   7480 CBXDCTL  $CFDCTL POINTER=(WD)      FIND DEVICE CONTROL TABLE            C4162000
001DE0 1815                        7481+CBXDCTL  LR    R1,WD                                                    DG018000
001DE2 9240 D05C      0005C        7482+         MVI   COMEWORK,C' '       BLANK OUT WORK AREA                  C0956000
001DE6 D206 D05D D05C 0005D 0005C  7483+         MVC   COMEWORK+1(7),COMEWORK CONTINUE                          C0958000
001DEC 58F0 1004      00004        7484+         L     R15,4(,R1)          LOCATE NEXT OPERAND                  C0960000
001DF0 5810 1000      00000        7485+         L     R1,0(0,R1)          LOCATE THIS ONE                      C0962000
001DF4 1BF1                        7486+         SR    R15,R1              LENGTH OF OPERAND + 1                C0964000

001DF6 46F0 8096      01DFE        7487+         BCT   R15,*+8             ACTUAL LENGTH                        C0966000

001DFA 47F0 811C      01E84        7488+         B     COF0697E            IF NULL, COMPARE AGAINST BLANK       C0968000
001DFE 06F0                        7489+         BCTR  R15,0               MACHINE LENGTH                       C0970000
001E00 4100 0007      00007        7490+         LA    R0,7                SET MAXIMUM LENGTH                   C0972000
001E04 15F0                        7491+         CLR   R15,R0              TEST FOR WITHIN MAXIMUM              C0974000

001E06 47D0 80A4      01E0C        7492+         BNH   *+6                 ACCEPT CURRENT LENGTH IF YES         C0976000
001E0A 18F0                        7493+         LR    R15,R0              SET TO MOVE EIGHT CHARACTERS         C0978000
001E0C 42F0 80A9      01E11        7494+         STC   R15,*+5             SET MACHINE LENGTH FOR MOVE          C0980000
001E10 D200 D05C 1000 0005C 00000  7495+         MVC   COMEWORK(*-*),0(R1) MOVE COMPLETE OPERAND                C0982000
001E16 D201 D066 D05F 00066 0005F  7496+         MVC   COMDWORK+6(2),COMEWORK+3 MOVE NUMERIC PART               C0984000
                                   7497+* CONVERT SHORT FORM OF DEVICE TO LONG FORM                             C0986000
001E1C 4110 80D6      01E3E        7498+         LA    R1,COF0697T        POINT TO CONVERT TABLE                C0988000
001E20 43F0 1003      00003        7499+COF0697L IC    R15,3(0,R1)         PICK UP MACHINE LENGTH OF ANSWER     C0990000
001E24 D502 D05C 1000 0005C 00000  7500+         CLC   COMEWORK(3),0(R1)   LOOK FOR MATCH                       C0992000
001E2A 4780 8108      01E70        7501+         BE    COF0697F           IF MATCH REPLACE WITH LONG FORM       C0994000
001E2E 411F 1005      00005        7502+         LA    R1,5(R15,R1)        POINT TO NEXT TABLE ELEMENT          C0996000

001E32 95FF 1000      00000        7503+         CLI   0(R1),X'FF'         CHECK FOR END OF TABLE               C0998000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  177


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

001E36 4770 80B8      01E20        7504+         BNE   COF0697L            IF NOT, LOOP                         C1000000

001E3A 47F0 811C      01E84        7505+         B     COF0697E            IF END, EXIT                         C1002000
                                   7506+* DEVICE ABBREVIATION TABLE                                             C1004000
001E3E                             7507+COF0697T DS    0H                                                       C1006000
001E3E D3D5C503D3C9D5C5            7508+         DC    C'LNE',X'03',C'LINE'                                     C1008000
001E46 D7D9E306D7D9C9D5            7509+         DC    C'PRT',X'06',C'PRINTER'                                  C1010000
001E51 D7E4D504D7E4D5C3            7510+         DC    C'PUN',X'04',C'PUNCH'                                    C1013000
001E5A D9C4D905D9C5C1C4            7511+         DC    C'RDR',X'05',C'READER'                                   C1014000
001E64 D9C4C905C9D5E3D9            7512+         DC    C'RDI',X'05',C'INTRDR'                                   C1018000
001E6E FF                          7513+         DC    X'FF'                                                    C1020000
                                   7514+* ARGUMENT FOUND, MOVE NUMERIC PORTION INTO PLACE                       C1022000
001E6F 00
001E70 42F0 810D      01E75        7515+COF0697F STC   R15,*+5             SET MOVE INSTRUCTION                 C1024000

001E74 D200 D05C 1004 0005C 00004  7516+         MVC   COMEWORK(*-*),4(R1) MOVE LONG FORM OF TEXT               C1026000
001E7A 41FF D05D      0005D        7517+         LA    R15,COMEWORK+1(R15) POINT TO END OF TEXT PORTION         C1028000
001E7E D201 F000 D066 00000 00066  7518+         MVC   0(2,R15),COMDWORK+6 MOVE IN NUMERIC                      C1030000

                                   7519+* LOCATE DEVICE CONTROL TABLE                                           C1032000
001E84 5810 B0F0      000F0        7520+COF0697E L     R1,$DCTPOOL         POINT TO FIRST DCT                   C1034000
001E88 D507 1018 D05C 00018 0005C  7521+COF0697K CLC   DCTDEVN-DCTDSECT(L'DCTDEVN,R1),COMEWORK LOOK FOR MATCH   C1036000
001E8E 4780 8138      01EA0        7522+         BE    COF0697X            EXIT WITH DEVICE FOUND               C1044000
001E92 5810 1014      00014        7523+         L     R1,DCTCHAIN-DCTDSECT(0,R1) LOOK AT NEXT DCT              C1046000
001E96 9500 1012      00012        7524+         CLI   DCTDEVTP-DCTDSECT(R1),DCTDA TEST FOR TOO FAR DOWN CHAIN  C1048000
001E9A 4770 8120      01E88        7525+         BNE   COF0697K            LOOP IF NOT TOO FAR                  C1050000
001E9E 1B11                        7526+         SR    R1,R1               FLAG DCT NOT FOUND                   C1052000
001EA0                             7527+COF0697X DS    0H                  R1 = ADDRESS OF DCT OR R1 = 0        C1062000
                            00000  7528          USING DCTDSECT,R1                                              C4164000
001EA0 1211                        7529          LTR   R1,R1               WAS DCT LOCATED                      C4166000
                                   7530          AIF   (&NUMRJE EQ 0).CBXA                                      C4168000

                                   7531 .CBXA    $BRR  NZ,WC               IF SO, GO TO SUB-PROCESSOR           C4182000

001EA2 4774 8060      01DC8        7532+         BC    NZ,HA$OCDV1+OACEPROG-BUFSTART(WC)                        C2052000
                                   7533 .CBXB    ANOP                                                           C4184000

001EA6 5810 5000      00000        7534 CBXINVO  L     R1,0(0,WD)          PICK UP OPERAND                      C4186000
                                   7535          $CFINVO OPERAND=(R1)      INVALID OPERAND                      C4188000
                                   7536+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
001EAA D208 D068 1000 00068 00000  7537+         MVC   COMMAND(9),0(R1)                                         C1204000
001EB0 D20F D071 815A 00071 01EC2  7538+         MVC   COMMAND+9(16),COF0702 MOVE DIAGNOSTIC BEHIND TEXT        C1206000
001EB6                             7539+         DS    0H                                                       NU006000
001EB6 4100 0019      00019        7540+         LA    R0,25                                                    C0230000
001EBA 41F0 0008      00008        7541+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
001EBE 45E0 B088      00088        7542+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
001EC2 40C9D5E5C1D3C9C4            7543+COF0702  DC    C' INVALID OPERAND'                                      C1210000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  178


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   7545 *********************************************************************** C4192000
                                   7546 *                                                                     * C4194000

                                   7547 *        $B DEV,PAGES -- BACKSPACE DEVICE                             * C4196000

                                   7548 *        DEV   = PRINT/PUNCH PROCESSOR OUTPUT DEVICE                  * C4198000
                                   7549 *        PAGES = NUMBER OF PAGES TO BACK UP                           * C4200000
                                   7550 *              = DS - BACK UP TO START OF DATA SET                      C4201000
                                   7551 *                                                                     * C4202000
                                   7552 *        $BACKSPACE DEV                                               * C4204000
                                   7553 *                                                                     * C4206000
                                   7554 *********************************************************************** C4208000
001ED2 9120 1012      00012        7555 CB       TM    DCTDEVTP,DCTPRT     IS DEVICE OF CORRECT CLASS           C4210000
                                   7556 * TEST INCLUDES LOCAL AND REMOTE PRINTER AND PUNCH DEVICES              C4212000
001ED6 4780 813E      01EA6        7557          BZ    CBXINVO             IF NOT, OPERAND INVALID              C4214000
001EDA 4100 0001      00001        7558          LA    R0,COMPAGE          NORMAL NUMBER OF PAGES TO SKIP/BSP   C4216000
001EDE 8656 81C6      01F2E        7559          BXH   WD,WE,CBXDEF        IF NO PAGE NUMBER ACCEPT DEFAULT     C4218000

001EE2 1B00                        7560          SR    R0,R0               ZERO ACCUMULATOR                     C4220000
001EE4 58F0 5000      00000        7561          L     R15,0(0,WD)         PICK UP PARAMETER                    C4222000
001EE8 95C4 F000      00000        7562          CLI   0(R15),C'D'         IS THIS DATA SET SPACING             C4224000

001EEC 4770 8196      01EFE        7563          BNE   CBCNVT1             IF NOT, SPACE PAGES                  C4226000
001EF0 1BFF                        7564          SR    R15,R15             SET FOR $B X,DATA SET                C4228000
001EF2 95C6 D069      00069        7565          CLI   COMVERB,C'F'        SEPARATE $F AND $B                   C4230000
001EF6 4770 81C6      01F2E        7566          BNE   CBXDEF              IF $B SET TO BACKSPACE               C4232000
001EFA 46F0 81C6      01F2E        7567          BCT   R15,CBXDEF          SET TO ALL ONES                      C4234000
001EFE 95F0 F000      00000        7568 CBCNVT1  CLI   0(R15),C'0'         LOOK FOR NUMERIC ( FA-FF INCLUDED )  C4236000
001F02 4740 813E      01EA6        7569          BL    CBXINVO             ERROR IF NOT NUMERIC                 C4238000
001F06 4C00 8252      01FBA        7570          MH    R0,CBCNVT2          MULTIPLY BY 10                       C4240000
001F0A D100 8255 F000 01FBD 00000  7571          MVN   CBCNVT3+1(1),0(R15) MOVE LOW DIGIT TO WORK AREA          C4242000
001F10 4A00 8254      01FBC        7572          AH    R0,CBCNVT3          ADD LOW DIGIT                        C4244000
001F14 5900 8258      01FC0        7573          C     R0,CBCNVT4          LOOK FOR MAXIMUM VALUE               C4246000
001F18 4720 813E      01EA6        7574          BH    CBXINVO             ERROR IF HIGH                        C4248000

001F1C 41F0 F001      00001        7575          LA    R15,1(0,R15)        NEXT CHARACTER                       C4250000
001F20 95F0 F000      00000        7576          CLI   0(R15),C'0'         TEST FOR END                         C4252000
001F24 47B0 8196      01EFE        7577          BNL   CBCNVT1             LOOP IF NOT END                      C4254000
001F28 1200                        7578          LTR   R0,R0               TEST COUNT                           C4256000

001F2A 4780 8226      01F8E        7579          BZ    CBXNEXT             IGNORE IF ZERO                       C4258000
001F2E 9180 1000      00000        7580 CBXDEF   TM    DCTSTAT,DCTINUSE    IS DEVICE ACTIVE                     C4260000
001F32 4780 8226      01F8E        7581          BZ    CBXNEXT             IGNORE IF NOT                        C4262000
001F36 58E0 1000      00000        7582          L     LINK,DCTPCE         LOCATE PCE                           C4264000
001F3A D401 E0A8 E0A8 000A8 000A8  7583          NC    PDDBSKIP-PCEDSECT(2,LINK),PDDBSKIP-PCEDSECT(LINK) Y05835 C4264500
                                   7584 *                                  CURRENTLY SPACING?           OY05835 C4265000

001F40 4770 8232      01F9A        7585          BNZ   CBXNG               YES - RETURN W/ DIAGNOSTIC   OY05835 C4265500
001F44 1200                        7586          LTR   R0,R0               TEST COUNT                           C4266000
001F46 4780 820A      01F72        7587          BZ    CBXSET              DATA SET SPACING IF ZERO             C4268000
001F4A 95C6 D069      00069        7588          CLI   COMVERB,C'F'        SEPARATE $F FROM $B                  C4270000
001F4E 4780 81EC      01F54        7589          BE    CBXPOSTA            IF FORWARDSPACE SKIP NEXT            C4272000
001F52 1100                        7590          LNR   R0,R0               SET BACKSPACE COUNT                  C4274000
001F54 48F0 E0B2      000B2        7591 CBXPOSTA LH    R15,PDDBPGCT-PCEDSECT(0,LINK) PICK UP PAGE NUMBER        C4276000
001F58 54F0 825C      01FC4        7592          N     R15,CBXMASK         FORCE POSITIVE                       C4278000

001F5C 1AF0                        7593          AR    R15,R0              COMPUTE DESIRED PAGE NUMBER          C4280000
001F5E 4720 81FC      01F64        7594          BP    *+6                 IS PAGE NUMBER NEGATIVE              C4282000

001F62 1BFF                        7595          SR    R15,R15             USE ZERO IF NEGATIVE                 C4284000
001F64 59F0 825C      01FC4        7596          C     R15,CBXMASK         CHECK FOR MAXIMUM VALUE      OY02728 C4284200
001F68 4740 820A      01F72        7597          BL    *+10                BRANCH IF LESS               OY02728 C4284400
001F6C 58F0 825C      01FC4        7598          L     R15,CBXMASK         ELSE SET MAXIMUM VALUE       OY02728 C4284600
001F70 06F0                        7599          BCTR  R15,0               LESS ONE SO NOT DATASET      OY02728 C4284800
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  179


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

001F72 40F0 E0A8      000A8        7600 CBXSET   STH   R15,PDDBSKIP-PCEDSECT(0,LINK) SET DESIRED PAGE NO.       C4286000

001F76 9608 1014      00014        7601          OI    DCTFLAGS,DCTBKSP    SET INDICATOR                        C4288000
001F7A 9180 1000      00000        7602 CBXPOST  TM    DCTSTAT,DCTINUSE    TEST FOR DCT ACTIVE                  C4290000
001F7E 4780 8226      01F8E        7603          BZ    CBXNEXT             IF NOT SKIP POST OF DCT'S PCE        C4292000
001F82 5810 1000      00000        7604          L     R1,DCTPCE           PICK UP PCE ADDRESS                  C4294000
                                   7605          $POST PCEEWF+$EWBIO-PCEDSECT(R1),IO POST I/O                   C4296000

001F86 94BF 1049      00049        7606+         NI    PCEEWF+$EWBIO-PCEDSECT(R1),255-$EWFIO                    PO008000
001F8A 947F B0C4      000C4        7607+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
001F8E 8756 8078      01DE0        7608 CBXNEXT  BXLE  WD,WE,CBXDCTL       LOCATE NEXT DCT IF REQUESTED         C4298000

                                   7609 CBXRET   $CRET MSG=OK              RETURN WITH OK                       C4300000
001F92                             7610+CBXRET   DS    0H                                                       NU006000
001F92 41F0 0004      00004        7611+         LA    R15,CORTOK          RETURN AND ISSUE OK MESSAGE          C0264000
001F96 45E0 B088      00088        7612+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
001F9A D207 D068 1018 00068 00018  7613 CBXNG    MVC   COMMAND(8),DCTDEVN  DEVICE                       OY05835 C4300200
001FA0 D206 D070 824A 00070 01FB2  7614          MVC   COMMAND+8(CBXMSGL),CBXMSG IN USE                 OY05835 C4300400
                                   7615          $CRET L=CBXMSGL+8         RETURN W/ 'IN USE' MESSAGE   OY05835 C4300600

001FA6                             7616+         DS    0H                                                       NU006000
001FA6 4100 000F      0000F        7617+         LA    R0,CBXMSGL+8                                             C0230000
001FAA 41F0 0008      00008        7618+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
001FAE 45E0 B088      00088        7619+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
001FB2 40C9D540E4E2C5              7620 CBXMSG   DC    C' IN USE'                                       OY05835 C4301200

                            00007  7621 CBXMSGL  EQU   *-CBXMSG                                         OY05835 C4301400
001FB9 00
001FBA 000A                        7622 CBCNVT2  DC    H'10'               CONVERSION CONSTANT                  C4302000
001FBC 0000                        7623 CBCNVT3  DC    H'0'                WORK AREA FOR CONVERSION             C4304000

001FBE 0000
001FC0 0000270F                    7624 CBCNVT4  DC    F'9999'             UPPER LIMIT FOR CONVERSION           C4306000
001FC4 0000FFFF                    7625 CBXMASK  DC    A(X'FFFF')          HALF WORD MASK                       C4308000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  180


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7627 *********************************************************************** C4312000

                                   7628 *                                                                     * C4314000
                                   7629 *        $C DEV -- CANCEL ACTIVITY ON DEVICE                          * C4316000
                                   7630 *        DEV   = INPUT SERVICE PROCESSOR INPUT DEVICE                 * C4318000
                                   7631 *              = PRINT/PUNCH PROCESSOR OUTPUT DEVICE                  * C4320000
                                   7632 *                                                                     * C4322000

                                   7633 *        $DELETE DEV                                                  * C4324000
                                   7634 *                                                                     * C4326000
                                   7635 *********************************************************************** C4328000
001FC8 9130 1012      00012        7636 CC       TM    DCTDEVTP,DCTPUN     CHECK DEVICE CLASS                   C4330000
001FCC 4780 813E      01EA6        7637          BZ    CBXINVO             IF NOT, INVALID OPERAND              C4332000

                                   7638 * INCLUDES READER, PRINTER, AND PUNCH DEVICES                           C4334000
001FD0 9640 1014      00014        7639          OI    DCTFLAGS,DCTDELET   SET DELETE FLAG                      C4336000
001FD4 947F 1014      00014        7640          NI    DCTFLAGS,255-DCTSTOP RESET STOP INDICATOR IF ON          C4338000
001FD8 47F0 8212      01F7A        7641          B     CBXPOST             POST DCT'S PCE FOR I/O               C4340000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  181



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7643 *********************************************************************** C4344000
                                   7644 *                                                                     * C4346000
                                   7645 *        $E DEV -- RESTART CURRENT FUNCTION ON DEVICE                 * C4348000
                                   7646 *        DEV   = PRINT/PUNCH PROCESSOR OUTPUT DEVICE                  * C4350000

                                   7647 *              = LINE MANAGER TELEPROCESSING DEVICE                   * C4352000
                                   7648 *                                                                     * C4354000
                                   7649 *        $RESTART DEV                                                 * C4356000
                                   7650 *                                                                     * C4358000
                                   7651 *********************************************************************** C4360000
001FDC 9120 1012      00012        7652 CE       TM    DCTDEVTP,DCTPRT     TEST FOR VALID TYPE                  C4362000

001FE0 4710 8284      01FEC        7653          BO    CEXGOOD             IF GOOD CONTINUE                     C4364000
001FE4 9502 1012      00012        7654          CLI   DCTDEVTP,DCTLNE     ALLOW LINE ALSO                      C4366000
001FE8 4770 813E      01EA6        7655          BNE   CBXINVO             IF NOT LINE, INVALID OPERAND         C4368000
001FEC 9620 1014      00014        7656 CEXGOOD  OI    DCTFLAGS,DCTRSTRT   TURN ON RESTART FLAG                 C4370000

001FF0 947F 1014      00014        7657          NI    DCTFLAGS,255-DCTSTOP CLEAR STOP                          C4372000
001FF4 47F0 8212      01F7A        7658          B     CBXPOST             POST I/O                             C4374000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  182


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7660 *********************************************************************** C4378000

                                   7661 *                                                                     * C4380000
                                   7662 *        $F DEV,PAGES -- FORWARDSPACE DEVICE                          * C4382000
                                   7663 *        DEV   = PRINT/PUNCH DEVICE                                   * C4384000
                                   7664 *        PAGES = NUMBER OF PAGES TO SKIP                              * C4386000
                                   7665 *              = DS - SKIP TO END OF DATA SET                           C4387000
                                   7666 *                                                                     * C4388000
                                   7667 *********************************************************************** C4390000

                            01ED2  7668 CF       EQU   CB                  COMMON ENTRY WITH BACKSPACE          C4392000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  183


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   7670 *********************************************************************** C4396000
                                   7671 *                                                                     * C4398000
                                   7672 *        $I DEV -- INTERRUPT ACTIVITY ON DEVICE                       * C4400000
                                   7673 *        DEV   = PRINT DEVICE                                           C4401000
                                   7674 *                                                                     * C4402000

                                   7675 *********************************************************************** C4404000
001FF8 9120 1012      00012        7676 CI       TM    DCTDEVTP,DCTPRT     TEST FOR PRINTER DEVICE              C4406000
001FFC 4780 813E      01EA6        7677          BZ    CBXINVO             IF NOT, ERROR                        C4408000
002000 9608 1014      00014        7678          OI    DCTFLAGS,DCTBKSP    SET BACKSPACE                        C4414000
002004 47F0 8284      01FEC        7679          B     CEXGOOD             DO RESTART                           C4416000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  184


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   7681 *********************************************************************** C4420000
                                   7682 *                                                                     * C4422000
                                   7683 *        $N DEV -- REPEAT CURRENT FUNCTION ON DEVICE                  * C4424000

                                   7684 *        DEV   = PRINT/PUNCH PROCESSOR OUTPUT DEVICE                  * C4426000
                                   7685 *                                                                     * C4428000
                                   7686 *        $REPEAT DEV                                                  * C4430000
                                   7687 *                                                                     * C4432000
                                   7688 *********************************************************************** C4434000

002008 9120 1012      00012        7689 CN       TM    DCTDEVTP,DCTPRT     TEST FOR VALID DEVICE GROUP          C4436000
                                   7690 * TEST INCLUDES PRINTER AND PUNCH DEVICES                               C4438000
00200C 4780 813E      01EA6        7691          BZ    CBXINVO             IF NOT, INVALID OPERAND              C4440000
002010 9610 1014      00014        7692          OI    DCTFLAGS,DCTRPT     SET REPEAT FLAG                      C4442000
002014 47F0 8212      01F7A        7693          B     CBXPOST             POST I/O                             C4444000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  185


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7695 *********************************************************************** C4448000

                                   7696 *                                                                     * C4450000
                                   7697 *        $P DEV -- STOP DEVICE AFTER THE CURRENT FUNCTION COMPLETES   * C4452000

                                   7698 *        DEV   = PRINT/PUNCH PROCESSOR OUTPUT DEVICE                  * C4454000
                                   7699 *              = INPUT SERVICE PROCESSOR INPUT DEVICE                 * C4456000
                                   7700 *              = LINE MANAGER TELEPROCESSING DEVICE                   * C4458000
                                   7701 *                                                                     * C4460000
                                   7702 *        $DRAIN DEV                                                   * C4462000

                                   7703 *                                                                     * C4464000
                                   7704 *********************************************************************** C4466000
                                   7705 CP       NULL                                                           C4468000
002018                             7706+CP       DS    0H                                                       NU006000
002018 9514 1012      00012        7707          CLI   DCTDEVTP,DCTINR     TEST FOR INTERNAL READER             C4471000
00201C 4780 813E      01EA6        7708          BE    CBXINVO             IF SO REJECT                         C4471500
002020 9640 1000      00000        7709          OI    DCTSTAT,DCTDRAIN    SET DRAIN FLAG                       C4472000
002024 9180 1000      00000        7710          TM    DCTSTAT,DCTINUSE    TEST FOR DEVICE NOT ACTIVE           C4474000
002028 4710 8226      01F8E        7711          BO    CBXNEXT             HANDLE NEXT DCT                      C4476000

00202C D20B D05C D06F 0005C 0006F  7712          MVC   COMEWORK(12),COMMAND+19-12 MAKE ROOM FOR MESSAGE         C4476500

002032 D207 D068 1018 00068 00018  7713          MVC   COMMAND(8),DCTDEVN  INSERT NAME                          C4477000
002038 D20A D070 82E8 00070 02050  7714          MVC   COMMAND+8(19-8),CPXCOMNT INSERT COMMENT                  C4477500
                                   7715          $CWTO L=19                DISPLAY                              C4478000
00203E                             7716+         DS    0H                                                       NU006000
00203E 4100 0013      00013        7717+         LA    R0,19                                                    C0324000

002042 4520 C00C      0000C        7718+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
002046 D20B D06F D05C 0006F 0005C  7719          MVC   COMMAND+19-12(12),COMEWORK PUT TEXT BACK                 C4478500
                                   7720 * MAXIMUM COMMAND TEXT CLOBBERED - $PDEVN, ( DEV=PRT,PUN,RDR )          C4479000
00204C 47F0 8226      01F8E        7721          B     CBXNEXT             NEXT DCT                             C4480000
002050 40C9E240C4D9C1C9            7722 CPXCOMNT DC    C' IS DRAINED'                                           C4481000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  186


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7724          AIF   (&COMPRTY GE 1).CSXC                                     C4484000
                                   7725 HASPCDV2 $COMGRUP S,DELAY=YES,PRTY=0 CONTINUATION OF DEVICE             C4486000
002060                             7726+HA$OCDV2 CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            02060  7727+HA$ICDV2 EQU   HA$OCDV2+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   7728+         ENTRY HA$ICDV2                                                 OV036000
002060 C3C4E5F2                    7729+         DC    CL4'CDV2'           IDENTIFY MODULE ON CORE DUMP         OV038000
002064 00002060                    7730+         DC    A(HA$OCDV2)         ASSEMBLY ORIGIN                      OV040000
002068                             7731+HASPCDV2 DS    0F                  ENTRY POINT                          OV042000

                            02008  7732+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                            02068  7733+COS             EQU HASPCDV2                                            C0146000
002068 4140 00FE      000FE        7734          LA    WC,CS-HASPCDV2      MAKE WC RELATIVE                     C4488000
                                   7735 CSXDCTL  $CFDCTL POINTER=(WD)      FIND DEVICE CONTROL TABLE            C4490000
00206C 1815                        7736+CSXDCTL  LR    R1,WD                                                    DG018000
00206E 9240 D05C      0005C        7737+         MVI   COMEWORK,C' '       BLANK OUT WORK AREA                  C0956000
002072 D206 D05D D05C 0005D 0005C  7738+         MVC   COMEWORK+1(7),COMEWORK CONTINUE                          C0958000
002078 58F0 1004      00004        7739+         L     R15,4(,R1)          LOCATE NEXT OPERAND                  C0960000
00207C 5810 1000      00000        7740+         L     R1,0(0,R1)          LOCATE THIS ONE                      C0962000
002080 1BF1                        7741+         SR    R15,R1              LENGTH OF OPERAND + 1                C0964000
002082 46F0 8082      0208A        7742+         BCT   R15,*+8             ACTUAL LENGTH                        C0966000

002086 47F0 8108      02110        7743+         B     COF0719E            IF NULL, COMPARE AGAINST BLANK       C0968000
00208A 06F0                        7744+         BCTR  R15,0               MACHINE LENGTH                       C0970000
00208C 4100 0007      00007        7745+         LA    R0,7                SET MAXIMUM LENGTH                   C0972000
002090 15F0                        7746+         CLR   R15,R0              TEST FOR WITHIN MAXIMUM              C0974000

002092 47D0 8090      02098        7747+         BNH   *+6                 ACCEPT CURRENT LENGTH IF YES         C0976000
002096 18F0                        7748+         LR    R15,R0              SET TO MOVE EIGHT CHARACTERS         C0978000
002098 42F0 8095      0209D        7749+         STC   R15,*+5             SET MACHINE LENGTH FOR MOVE          C0980000
00209C D200 D05C 1000 0005C 00000  7750+         MVC   COMEWORK(*-*),0(R1) MOVE COMPLETE OPERAND                C0982000
0020A2 D201 D066 D05F 00066 0005F  7751+         MVC   COMDWORK+6(2),COMEWORK+3 MOVE NUMERIC PART               C0984000
                                   7752+* CONVERT SHORT FORM OF DEVICE TO LONG FORM                             C0986000
0020A8 4110 80C2      020CA        7753+         LA    R1,COF0719T        POINT TO CONVERT TABLE                C0988000
0020AC 43F0 1003      00003        7754+COF0719L IC    R15,3(0,R1)         PICK UP MACHINE LENGTH OF ANSWER     C0990000
0020B0 D502 D05C 1000 0005C 00000  7755+         CLC   COMEWORK(3),0(R1)   LOOK FOR MATCH                       C0992000
0020B6 4780 80F4      020FC        7756+         BE    COF0719F           IF MATCH REPLACE WITH LONG FORM       C0994000
0020BA 411F 1005      00005        7757+         LA    R1,5(R15,R1)        POINT TO NEXT TABLE ELEMENT          C0996000
0020BE 95FF 1000      00000        7758+         CLI   0(R1),X'FF'         CHECK FOR END OF TABLE               C0998000

0020C2 4770 80A4      020AC        7759+         BNE   COF0719L            IF NOT, LOOP                         C1000000
0020C6 47F0 8108      02110        7760+         B     COF0719E            IF END, EXIT                         C1002000
                                   7761+* DEVICE ABBREVIATION TABLE                                             C1004000

0020CA                             7762+COF0719T DS    0H                                                       C1006000
0020CA D3D5C503D3C9D5C5            7763+         DC    C'LNE',X'03',C'LINE'                                     C1008000
0020D2 D7D9E306D7D9C9D5            7764+         DC    C'PRT',X'06',C'PRINTER'                                  C1010000
0020DD D7E4D504D7E4D5C3            7765+         DC    C'PUN',X'04',C'PUNCH'                                    C1013000
0020E6 D9C4D905D9C5C1C4            7766+         DC    C'RDR',X'05',C'READER'                                   C1014000
0020F0 D9C4C905C9D5E3D9            7767+         DC    C'RDI',X'05',C'INTRDR'                                   C1018000
0020FA FF                          7768+         DC    X'FF'                                                    C1020000
                                   7769+* ARGUMENT FOUND, MOVE NUMERIC PORTION INTO PLACE                       C1022000
0020FB 00
0020FC 42F0 80F9      02101        7770+COF0719F STC   R15,*+5             SET MOVE INSTRUCTION                 C1024000
002100 D200 D05C 1004 0005C 00004  7771+         MVC   COMEWORK(*-*),4(R1) MOVE LONG FORM OF TEXT               C1026000
002106 41FF D05D      0005D        7772+         LA    R15,COMEWORK+1(R15) POINT TO END OF TEXT PORTION         C1028000

00210A D201 F000 D066 00000 00066  7773+         MVC   0(2,R15),COMDWORK+6 MOVE IN NUMERIC                      C1030000

                                   7774+* LOCATE DEVICE CONTROL TABLE                                           C1032000
002110 5810 B0F0      000F0        7775+COF0719E L     R1,$DCTPOOL         POINT TO FIRST DCT                   C1034000

002114 D507 1018 D05C 00018 0005C  7776+COF0719K CLC   DCTDEVN-DCTDSECT(L'DCTDEVN,R1),COMEWORK LOOK FOR MATCH   C1036000
00211A 4780 8124      0212C        7777+         BE    COF0719X            EXIT WITH DEVICE FOUND               C1044000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  187


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00211E 5810 1014      00014        7778+         L     R1,DCTCHAIN-DCTDSECT(0,R1) LOOK AT NEXT DCT              C1046000
002122 9500 1012      00012        7779+         CLI   DCTDEVTP-DCTDSECT(R1),DCTDA TEST FOR TOO FAR DOWN CHAIN  C1048000
002126 4770 810C      02114        7780+         BNE   COF0719K            LOOP IF NOT TOO FAR                  C1050000
00212A 1B11                        7781+         SR    R1,R1               FLAG DCT NOT FOUND                   C1052000
00212C                             7782+COF0719X DS    0H                  R1 = ADDRESS OF DCT OR R1 = 0        C1062000
00212C 1211                        7783          LTR   R1,R1               WAS DCT LOCATED                      C4492000
                                   7784          AIF   (&NUMRJE EQ 0).CSXA                                      C4494000
                                   7785 .CSXA    $BRR  NZ,WC               IF DCT LOCATED, ENTER SUB-PROCESSOR  C4508000

00212E 4774 8060      02068        7786+         BC    NZ,HA$OCDV2+OACEPROG-BUFSTART(WC)                        C2052000
002132 9102 1012      00012        7787          TM    DCTDEVTP,DCTLNE     MAKE SURE REMOTE CATAGORY            C4509000

002136 4780 8132      0213A        7788          BZ    CSXINVO             ERROR IF NOT                         C4509500

                                   7789 .CSXB    ANOP                                                           C4510000
00213A 5810 5000      00000        7790 CSXINVO  L     R1,0(0,WD)          PICK UP OPERAND                      C4512000
                                   7791          $CFINVO OPERAND=(R1)      INVALID OPERAND                      C4514000
                                   7792+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
00213E D208 D068 1000 00068 00000  7793+         MVC   COMMAND(9),0(R1)                                         C1204000
002144 D20F D071 814E 00071 02156  7794+         MVC   COMMAND+9(16),COF0724 MOVE DIAGNOSTIC BEHIND TEXT        C1206000
00214A                             7795+         DS    0H                                                       NU006000
00214A 4100 0019      00019        7796+         LA    R0,25                                                    C0230000
00214E 41F0 0008      00008        7797+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
002152 45E0 B088      00088        7798+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
002156 40C9D5E5C1D3C9C4            7799+COF0724  DC    C' INVALID OPERAND'                                      C1210000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  188



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7801 .CSXC    ANOP                                                           C4518000
                                   7802 *********************************************************************** C4520000

                                   7803 *                                                                     * C4522000
                                   7804 *        $S DEV -- START DEVICE                                       * C4524000
                                   7805 *        DEV   = INPUT SERVICE PROCESSOR DEVICE                       * C4526000
                                   7806 *              = PRINT/PUNCH PROCESSOR OUTPUT DEVICE                  * C4528000
                                   7807 *              = LINE MANAGER TELEPROCESSING DEVICE                   * C4530000
                                   7808 *              = CONSOLE DEVICE                                       * C4532000
                                   7809 * NOTES                                                               * C4534000
                                   7810 *        TAPE DEVICES REQUIRE FORMAT                                  * C4536000
                                   7811 *        DEV,AAA ( AAA = 360 HARDWARE ADDRESS OF TAPE DRIVE )         * C4538000
                                   7812 *                                                                     * C4540000
                                   7813 *        LINE DEVICES REQUIRE FORMAT                                  * C4542000
                                   7814 *        DEV,PASSWORD ( NULL PASSWORD MAY BE EXPRESSED BY ',,' OR     * C4544000

                                   7815 *              OMISSION IF DEV IS THE END OF THE DEVICE LIST )        * C4546000
                                   7816 *                                                                     * C4548000
                                   7817 *                                                                     * C4550000
                                   7818 *        $START DEV                                                   * C4552000

                                   7819 *                                                                     * C4554000
                                   7820 *********************************************************************** C4556000
002166 D501 1018 8256 00018 0225E  7821 CS       CLC   DCTDEVN(2),CSXRMC   DOES DCT HAVE A DCB                  C4558000
00216C 4780 81F0      021F8        7822          BE    CSXRMT              IF NOT, SKIP UCB LOCATE              C4560000
002170 5820 1008      00008        7823          L     WA,DCTDCB           LOCATE DCB                           C4562000
002174 58F0 202C      0002C        7824          L     R15,DCBDEBAD-IHADCB(0,WA) LOCATE DEB                     C4564000

                            00000  7825          USING DEBDSECT,R15                                             C4566000
002178 4820 F022      00022        7826          LH    WA,DEBUCBAD+2       LOCATE UCB                           C4568000
                            00000  7827          USING UCBDSECT,WA                                              C4570000
00217C 1202                        7828 CSXNTPE  LTR   R0,WA               DOES UCB EXIST                       C4618000
00217E 4780 8132      0213A        7829          BZ    CSXINVO             IF NOT, INVALID OPERAND              C4620000
002182 9502 1012      00012        7830          CLI   DCTDEVTP,DCTLNE     IS DEVICE A LINE                     C4622000
002186 4770 81CA      021D2        7831          BNE   CSXNLNE             IF NOT, HANDLE OTHER DEVICES         C4624000
00218A 9180 1000      00000        7832          TM    DCTSTAT,DCTINUSE    IS DEVICE IN USE                     C4626000

00218E 4710 819A      021A2        7833          BO    CSXPASSW            IF SO, SET NEW PASSWORD              C4628000
002192 45E0 8224      0222C        7834          BAL   LINK,CSXALLOC       ALLOCATE DEVICE                      C4630000

002196 5820 C0F4      000F4        7835          L     WA,CSXMLLM          PICK UP LINE MANAGER PCE ADDRESS     C4632000
                                   7836          $POST PCEEWF+$EWBWORK-PCEDSECT(WA),WORK START UP LINE MANAGER  C4634000
00219A 94DF 2049      00049        7837+         NI    PCEEWF+$EWBWORK-PCEDSECT(WA),255-$EWFWORK                PO008000
00219E 947F B0C4      000C4        7838+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
0021A2 9240 1044      00044        7839 CSXPASSW MVI   MDCTPSWD,C' '       SET PASSWORD TO BLANK                C4636000
0021A6 D206 1045 1044 00045 00044  7840          MVC   MDCTPSWD+1(7),MDCTPSWD CONTINUE                          C4638000
0021AC 8656 81D2      021DA        7841          BXH   WD,WE,CSXVOFF       IF NO PASSWORD, START UP DEVICE      C4640000
0021B0 5830 5000      00000        7842          L     WB,0(0,WD)          PICK UP PASSWORD OPERAND POINTER     C4642000

0021B4 5820 5004      00004        7843          L     WA,4(0,WD)          PICK UP NEXT OPERAND POINTER         C4644000
0021B8 1B23                        7844          SR    WA,WB               GET LENGTH + 1                       C4646000
0021BA 4620 81BA      021C2        7845          BCT   WA,CSXPASMV         MOVE WA CHARACTERS OF PASSWORD       C4648000
0021BE 47F0 81D2      021DA        7846          B     CSXVOFF             PREVENT ACCIDENTAL USE OF LINE       C4650000
0021C2 0620                        7847 CSXPASMV BCTR  WA,0                GET MACHINE LENGTH                   C4652000

0021C4 4220 81C5      021CD        7848          STC   WA,*+9              SET MOVE INSTRUCTION                 C4654000
0021C8 9407 81C5      021CD        7849          NI    *+5,X'07'           INSURE NOT TOO LONG                  C4656000
0021CC D200 1044 3000 00044 00000  7850          MVC   MDCTPSWD(*-*),0(WB) MOVE PASSWORD                        C4658000

                                   7851 CSXNLNE  NULL                                                           C4660000
0021D2                             7852+CSXNLNE  DS    0H                                                       NU006000
0021D2 9514 1012      00012        7853          CLI   DCTDEVTP,DCTINR     IS THIS AN INTERNAL READER           C4664000
0021D6 4780 81F0      021F8        7854          BE    CSXRMT              SKIP VARY AND RELEASE IF YES         C4666000
                                   7855 CSXVOFF  $DISABLE ALL,OLAY=YES     DISABLE INTERRUPTS                   C4668000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  189


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


0021DA 8000 B0C9      000C9        7856+CSXVOFF  SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
0021DE 1820                        7857          LR    WA,R0               RESTORE UCB POINTER                  C4669000
0021E0 943F 2003      00003        7858          NI    SRTESTAT,255-SRTECHGS-SRTEONLI FORCE STATUS, ONLINE OFF  C4670000
0021E4 9108 2003      00003        7859          TM    SRTESTAT,SRTEALOC   TEST ALLOCATION STATUS               C4672000
0021E8 4780 81E8      021F0        7860          BZ    *+8                 IF NOT IN USE SKIP NEXT              C4674000

0021EC 96C0 2003      00003        7861          OI    SRTESTAT,SRTEONLI+SRTECHGS FORCE VARY OFFLINE BY OS      C4676000
                                   7862          $ENABLE ALL,OLAY=YES      ALLOW INTERRUPTS                     C4678000
0021F0 8000 B0C8      000C8        7863+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
0021F4 94DF 1000      00000        7864 CSXSTART NI    DCTSTAT,255-DCTHOLD ALLOW DEVICE TO BE AQUIRED           C4680000

0021F8 9180 1014      00014        7865 CSXRMT   TM    DCTFLAGS,DCTSTOP    TEST FOR STOP BIT            OY10205 C4682000
0021FC 4710 81FC      02204        7866          BO    *+8                 BIF YES - GO PAST DRAIN POINT Y10205 C4682650
002200 94BF 1000      00000        7867          NI    DCTSTAT,255-DCTDRAIN REMOVE DRAIN FLAG           OY10205 C4683300
002204 947B 1014      00014        7868          NI    DCTFLAGS,255-DCTSTOP-DCTSPACE TURN OFF SPACE AND STOP    C4684000
                                   7869          $POST $HASPECF,UNIT-$EWFJOB-$EWFJOT  FIRE UP PROCESSORS        C4686000
002208 94E6 B0C4      000C4        7870+         NI    $HASPECF,255-$EWFUNIT-$EWFJOB-$EWFJOT                    PO008000

                                   7871          AIF   (&COMPRTY GE 1).CSXD                                     C4690000
00220C 9180 1000      00000        7872 CSXPOST  TM    DCTSTAT,DCTINUSE    TEST FOR DCT ACTIVE                  C4692000
002210 4780 8218      02220        7873          BZ    CSXNEXT             IF NOT SKIP POST OF DCT'S PCE        C4694000
002214 5810 1000      00000        7874          L     R1,DCTPCE           PICK UP PCE ADDRESS                  C4696000
                                   7875          $POST PCEEWF+$EWBIO-PCEDSECT(R1),IO POST I/O                   C4698000

002218 94BF 1049      00049        7876+         NI    PCEEWF+$EWBIO-PCEDSECT(R1),255-$EWFIO                    PO008000
00221C 947F B0C4      000C4        7877+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
002220 8756 8064      0206C        7878 CSXNEXT  BXLE  WD,WE,CSXDCTL       LOCATE NEXT DCT IF REQUESTED         C4700000
                                   7879 CSXRET   $CRET MSG=OK              RETURN WITH OK                       C4702000
002224                             7880+CSXRET   DS    0H                                                       NU006000

002224 41F0 0004      00004        7881+         LA    R15,CORTOK          RETURN AND ISSUE OK MESSAGE          C0264000
002228 45E0 B088      00088        7882+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   7883          AGO   .CSXE                                                    C4704000
                                   7884 .CSXE    ANOP                                                           C4718000
                                   7885 CSXALLOC $DISABLE ALL,OLAY=YES     DISABLE INTERRUPTS                   C4742000

00222C 8000 B0C9      000C9        7886+CSXALLOC SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
002230 912C 2003      00003        7887          TM    SRTESTAT,SRTERESV+SRTEALOC+SRTEPRES IS UCB IN USE        C4744000
002234 4770 823A      02242        7888          BNZ   CSXIN               IF SO, DEVICE IS IN USE              C4746000
002238 962C 2003      00003        7889          OI    SRTESTAT,SRTERESV+SRTEALOC+SRTEPRES CLAIM IT             C4748000
                                   7890          $ENABLE ALL,OLAY=YES      ALLOW INTERRUPTS                     C4750000

00223C 8000 B0C8      000C8        7891+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
002240 07FE                        7892          BR    LINK                RETURN                               C4752000
                                   7893 CSXIN    $ENABLE ALL,OLAY=YES      ALLOW INTERRUPTS                     C4754000
002242 8000 B0C8      000C8        7894+CSXIN    SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
002246 D207 D068 1018 00068 00018  7895 CSXINUSE MVC   COMMAND(8),DCTDEVN  INSERT DEVICE NAME                   C4756000

00224C D206 D070 8258 00070 02260  7896          MVC   COMMAND+8(CSXML),CSXMSG INSERT MESSAGE                   C4758000
                                   7897          $CRET L=8+CSXML           RETURN WITH DIAGNOSTIC               C4760000
002252                             7898+         DS    0H                                                       NU006000
002252 4100 000F      0000F        7899+         LA    R0,8+CSXML                                               C0230000
002256 41F0 0008      00008        7900+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000

00225A 45E0 B088      00088        7901+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   7902          DROP  WA,R15                                                   C4762000
00225E D9D4                        7903 CSXRMC   DC    C'RM'               REMOTE DCT IDENTIFICATION CONSTANT   C4764000
002260 40C9D540E4E2C5              7904 CSXMSG   DC    C' IN USE'          MESSAGE                              C4766000
                            00007  7905 CSXML    EQU   *-CSXMSG            LENGTH                               C4768000

COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  190


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7907          AIF   (&COMPRTY GE 1).CTXX                                     C4772000
                                   7908 HASPCDV3 $COMGRUP T,Z,DELAY=YES,PRTY=0 CONTINUATION OF DEVICE           C4774000
002268                             7909+HA$OCDV3 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            02268  7910+HA$ICDV3 EQU   HA$OCDV3+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   7911+         ENTRY HA$ICDV3                                                 OV036000
002268 C3C4E5F3                    7912+         DC    CL4'CDV3'           IDENTIFY MODULE ON CORE DUMP         OV038000
00226C 00002268                    7913+         DC    A(HA$OCDV3)         ASSEMBLY ORIGIN                      OV040000
002270                             7914+HASPCDV3 DS    0F                  ENTRY POINT                          OV042000

                            02210  7915+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
002270 4811 8060      02270        7916+         LH    R1,HASPCDV3(R1)     PICK UP TABLE OFFSET                 C0118000
002274 47F0 806C      0227C        7917+         B     COF0746                EXIT FOR DELAYED ENTRY            C0124000
002278 010A                        7918+COT              DC AL2(CT-HASPCDV3)                                    C0134000
00227A 048C                        7919+COZ              DC AL2(CZ-HASPCDV3)                                    C0134000

00227C                             7920+COF0746    DS  0H                  $BRR R1 TO ENTER ROUTINE             C0140000
00227C D501 D069 8510 00069 02720  7921          CLC   COMVERB(2),CTXCID   IS THIS SET CONSOLE                  C4778000
002282 4780 82F8      02508        7922          BE    CTXCONA             IF SO, GO SET IT                     C4780000
002286 1841                        7923          LR    WC,R1               SAVE SUB-COMMAND OFFSET              C4784000
                                   7924 CZXDCTL  $CFDCTL POINTER=(WD)      FIND DEVICE CONTROL TABLE            C4786000
002288 1815                        7925+CZXDCTL  LR    R1,WD                                                    DG018000
00228A 9240 D05C      0005C        7926+         MVI   COMEWORK,C' '       BLANK OUT WORK AREA                  C0956000

00228E D206 D05D D05C 0005D 0005C  7927+         MVC   COMEWORK+1(7),COMEWORK CONTINUE                          C0958000
002294 58F0 1004      00004        7928+         L     R15,4(,R1)          LOCATE NEXT OPERAND                  C0960000
002298 5810 1000      00000        7929+         L     R1,0(0,R1)          LOCATE THIS ONE                      C0962000

00229C 1BF1                        7930+         SR    R15,R1              LENGTH OF OPERAND + 1                C0964000
00229E 46F0 8096      022A6        7931+         BCT   R15,*+8             ACTUAL LENGTH                        C0966000
0022A2 47F0 811C      0232C        7932+         B     COF0748E            IF NULL, COMPARE AGAINST BLANK       C0968000
0022A6 06F0                        7933+         BCTR  R15,0               MACHINE LENGTH                       C0970000
0022A8 4100 0007      00007        7934+         LA    R0,7                SET MAXIMUM LENGTH                   C0972000

0022AC 15F0                        7935+         CLR   R15,R0              TEST FOR WITHIN MAXIMUM              C0974000
0022AE 47D0 80A4      022B4        7936+         BNH   *+6                 ACCEPT CURRENT LENGTH IF YES         C0976000
0022B2 18F0                        7937+         LR    R15,R0              SET TO MOVE EIGHT CHARACTERS         C0978000
0022B4 42F0 80A9      022B9        7938+         STC   R15,*+5             SET MACHINE LENGTH FOR MOVE          C0980000
0022B8 D200 D05C 1000 0005C 00000  7939+         MVC   COMEWORK(*-*),0(R1) MOVE COMPLETE OPERAND                C0982000
0022BE D201 D066 D05F 00066 0005F  7940+         MVC   COMDWORK+6(2),COMEWORK+3 MOVE NUMERIC PART               C0984000
                                   7941+* CONVERT SHORT FORM OF DEVICE TO LONG FORM                             C0986000
0022C4 4110 80D6      022E6        7942+         LA    R1,COF0748T        POINT TO CONVERT TABLE                C0988000

0022C8 43F0 1003      00003        7943+COF0748L IC    R15,3(0,R1)         PICK UP MACHINE LENGTH OF ANSWER     C0990000
0022CC D502 D05C 1000 0005C 00000  7944+         CLC   COMEWORK(3),0(R1)   LOOK FOR MATCH                       C0992000

0022D2 4780 8108      02318        7945+         BE    COF0748F           IF MATCH REPLACE WITH LONG FORM       C0994000
0022D6 411F 1005      00005        7946+         LA    R1,5(R15,R1)        POINT TO NEXT TABLE ELEMENT          C0996000
0022DA 95FF 1000      00000        7947+         CLI   0(R1),X'FF'         CHECK FOR END OF TABLE               C0998000
0022DE 4770 80B8      022C8        7948+         BNE   COF0748L            IF NOT, LOOP                         C1000000
0022E2 47F0 811C      0232C        7949+         B     COF0748E            IF END, EXIT                         C1002000

                                   7950+* DEVICE ABBREVIATION TABLE                                             C1004000
0022E6                             7951+COF0748T DS    0H                                                       C1006000
0022E6 D3D5C503D3C9D5C5            7952+         DC    C'LNE',X'03',C'LINE'                                     C1008000
0022EE D7D9E306D7D9C9D5            7953+         DC    C'PRT',X'06',C'PRINTER'                                  C1010000
0022F9 D7E4D504D7E4D5C3            7954+         DC    C'PUN',X'04',C'PUNCH'                                    C1013000
002302 D9C4D905D9C5C1C4            7955+         DC    C'RDR',X'05',C'READER'                                   C1014000
00230C D9C4C905C9D5E3D9            7956+         DC    C'RDI',X'05',C'INTRDR'                                   C1018000
002316 FF                          7957+         DC    X'FF'                                                    C1020000
                                   7958+* ARGUMENT FOUND, MOVE NUMERIC PORTION INTO PLACE                       C1022000

002317 00

002318 42F0 810D      0231D        7959+COF0748F STC   R15,*+5             SET MOVE INSTRUCTION                 C1024000
00231C D200 D05C 1004 0005C 00004  7960+         MVC   COMEWORK(*-*),4(R1) MOVE LONG FORM OF TEXT               C1026000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  191


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

002322 41FF D05D      0005D        7961+         LA    R15,COMEWORK+1(R15) POINT TO END OF TEXT PORTION         C1028000

002326 D201 F000 D066 00000 00066  7962+         MVC   0(2,R15),COMDWORK+6 MOVE IN NUMERIC                      C1030000
                                   7963+* LOCATE DEVICE CONTROL TABLE                                           C1032000
00232C 5810 B0F0      000F0        7964+COF0748E L     R1,$DCTPOOL         POINT TO FIRST DCT                   C1034000
002330 D507 1018 D05C 00018 0005C  7965+COF0748K CLC   DCTDEVN-DCTDSECT(L'DCTDEVN,R1),COMEWORK LOOK FOR MATCH   C1036000
002336 4780 8138      02348        7966+         BE    COF0748X            EXIT WITH DEVICE FOUND               C1044000
00233A 5810 1014      00014        7967+         L     R1,DCTCHAIN-DCTDSECT(0,R1) LOOK AT NEXT DCT              C1046000
00233E 9500 1012      00012        7968+         CLI   DCTDEVTP-DCTDSECT(R1),DCTDA TEST FOR TOO FAR DOWN CHAIN  C1048000
002342 4770 8120      02330        7969+         BNE   COF0748K            LOOP IF NOT TOO FAR                  C1050000
002346 1B11                        7970+         SR    R1,R1               FLAG DCT NOT FOUND                   C1052000
002348                             7971+COF0748X DS    0H                  R1 = ADDRESS OF DCT OR R1 = 0        C1062000

002348 1211                        7972          LTR   R1,R1               WAS DCT LOCATED                      C4788000

                                   7973          AIF   (&NUMRJE EQ 0).CTXXA                                     C4790000
                                   7974 .CTXXA   $BRR  NZ,WC               IF DCT LOCATED, ENTER SUB-PROCESSOR  C4804000
00234A 4774 8060      02270        7975+         BC    NZ,HA$OCDV3+OACEPROG-BUFSTART(WC)                        C2052000
                                   7976 .CTXXB   ANOP                                                           C4806000

00234E 5810 5000      00000        7977 CTXINVO  L     R1,0(0,WD)          PICK UP OPERAND                      C4808000
                                   7978          $CFINVO OPERAND=(R1)      INVALID OPERAND                      C4810000
                                   7979+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
002352 D208 D068 1000 00068 00000  7980+         MVC   COMMAND(9),0(R1)                                         C1204000
002358 D20F D071 815A 00071 0236A  7981+         MVC   COMMAND+9(16),COF0753 MOVE DIAGNOSTIC BEHIND TEXT        C1206000
00235E                             7982+         DS    0H                                                       NU006000
00235E 4100 0019      00019        7983+         LA    R0,25                                                    C0230000
002362 41F0 0008      00008        7984+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
002366 45E0 B088      00088        7985+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
00236A 40C9D5E5C1D3C9C4            7986+COF0753  DC    C' INVALID OPERAND'                                      C1210000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  192



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7988          AGO   .CTXXC                                                   C4814000
                                   7989 .CTXXC   ANOP                                                           C4824000
                                   7990 *********************************************************************** C4826000

                                   7991 *                                                                     * C4828000
                                   7992 *        $T DEV -- SET DEVICE                                         * C4830000
                                   7993 *        DEV   = PRINT/PUNCH PROCESSOR OUTPUT DEVICE                  * C4832000
                                   7994 *              = INPUT SERVICE PROCESSOR DEVICE                         C4833000
                                   7995 *              = CONSOLE DEVICE                                       * C4834000
                                   7996 *                                                                     * C4836000
                                   7997 *        $LIST CON                                                    * C4838000
                                   7998 *                                                                     * C4840000
                                   7999 *                                                                     * C4842000
                                   8000 *        $SPACE DEV                                                   * C4844000
                                   8001 *                                                                     * C4846000
                                   8002 * NOTES                                                               * C4848000

                                   8003 *        READER SETTING FORMAT FOLLOWS                                * C4850000
                                   8004 *        $T RDRN,H                                                    * C4852000
                                   8005 *                                                                     * C4854000

                                   8006 *        PRINTER SETTING FORMAT FOLLOWS                               * C4856000
                                   8007 *        $T PRTN,C=NAME/1,F=FORM/AUTOM,T=NAME                           C4858000
                                   8008 *        C= CARRIAGE CONTROL TAPE NAME OR SINGLE SPACING ALL LINES    * C4860000
                                   8009 *        F= FORM OR 'AUTOM'                                             C4862000
                                   8010 *        T= TRAIN NAME 'QN,TN,RN,PN,HN,ETC'                           * C4864000
                                   8011 *        U= TRAIN NAME - IMAGE SHOULD NOT BE USED AS STANDARD           C4865000
                                   8012 *        S= YES/NO INDICATING SEPARATORS OR NO SEPARATORS             * C4866000
                                   8013 *                                                                     * C4868000
                                   8014 *        CONSOLE SETTING FORMAT FOLLOWS                               * C4870000
                                   8015 *        $T CON,LEVEL,LOGICAL CLASSES                                   C4872000
                                   8016 *        LEVEL= HIGHEST CLASS OF MESSAGE TO DISREGARD FOR LOGICAL       C4874000
                                   8017 *               CONSOLES LISTED                                         C4876000

                                   8018 *                                                                     * C4878000

                                   8019 *********************************************************************** C4880000
                                   8020          DROP  R1                                                       C4882000

                            00000  8021          USING DCTDSECT,WA                                              C4884000
00237A 1821                        8022 CT       LR    WA,R1               SAVE DCT POINTER                     C4886000
00237C 4140 813E      0234E        8023          LA    WC,CTXINVO          SET ERROR EXIT ADDRESS               C4888000
002380 8656 813E      0234E        8024          BXH   WD,WE,CTXINVO       IF NO CORRESPONDING PARAMETER EXIT   C4890000
002384                             8025 CTXLOOP  DS    0H                                                       C4892000
002384 9102 D058      00058        8026          TM    COMFLAGS,COMD       TEST FOR DEVICE RESTRICTION          C4902000
002388 0714                        8027          BCR   O,WC                IF SO, ERROR EXIT                    C4904000
00238A 5810 5000      00000        8028          L     R1,0(0,WD)          PICK UP OPERAND ADDRESS              C4906000
00238E 9130 2012      00012        8029          TM    DCTDEVTP,DCTPUN     TEST FOR READER/PRINTER/PUNCH        C4908000
002392 0784                        8030          BCR   Z,WC                IF NOT, INVALID OPERAND              C4910000
002394 9120 2012      00012        8031          TM    DCTDEVTP,DCTPRT     TEST FOR PRINTER/PUNCH               C4912000
002398 4780 82E8      024F8        8032          BZ    CTXRDR              IF NOT, MUST BE READER               C4914000

                                   8033 * PRINTER SETTINGS                                                      C4916000
00239C 957E 1001      00001        8034          CLI   1(R1),C'='          MAKE SURE CORRECT FORMAT             C4918000

0023A0 0774                        8035          BCR   NE,WC               IF NOT, ERROR                        C4920000

0023A2 5830 5004      00004        8036          L     WB,4(0,WD)          POINT TO NEXT OPERAND                C4920500
0023A6 1B31                        8037          SR    WB,R1               GET SIZE OF OPERAND + 1              C4921000
0023A8 4B30 82DE      024EE        8038          SH    WB,CTXFOUR          GET TEXT MACHINE COUNT               C4921400
0023AC 0744                        8039          BCR   M,WC                EXIT WITH ERROR IF NULL              C4921500
                                   8040          $CFSEL (C,CTXC),(F,CTXF),(Q,CTXQ),(S,CTXS),(T,CTXT),          CC4922000
                                                       (U,CTXU),OPERAND=(R1) SELECT ROUTINE                     C4923000
0023AE                             8041+         DS    0H                                                       NU006000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  193


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0023AE 95C3 1000      00000        8042+         CLI   0(R1),C'C'                                               C1862000
0023B2 4780 8206      02416        8043+         BE    CTXC                                                     C1864000
0023B6 95C6 1000      00000        8044+         CLI   0(R1),C'F'                                               C1862000

0023BA 4780 828C      0249C        8045+         BE    CTXF                                                     C1864000
0023BE 95D8 1000      00000        8046+         CLI   0(R1),C'Q'                                               C1862000
0023C2 4780 8262      02472        8047+         BE    CTXQ                                                     C1864000

0023C6 95E2 1000      00000        8048+         CLI   0(R1),C'S'                                               C1862000
0023CA 4780 81D0      023E0        8049+         BE    CTXS                                                     C1864000
0023CE 95E3 1000      00000        8050+         CLI   0(R1),C'T'                                               C1862000
0023D2 4780 81EE      023FE        8051+         BE    CTXT                                                     C1864000
0023D6 95E4 1000      00000        8052+         CLI   0(R1),C'U'                                               C1862000
0023DA 4780 81FA      0240A        8053+         BE    CTXU                                                     C1864000
0023DE 07F4                        8054          BR    WC                  IF NOT FOUND, INVALID OPERAND        C4924000
0023E0 95E8 1002      00002        8055 CTXS     CLI   2(R1),C'Y'          IS THIS SEPARATE = 'YES'             C4926000
0023E4 4770 81E0      023F0        8056          BNE   CTXSN               IF NOT TRY NO                        C4928000
0023E8 94EF 202C      0002C        8057          NI    DCTPPSW,255-DCTPPSWS ALLOW SEPARATORS                    C4930000
0023EC 47F0 82A6      024B6        8058          B     CTXLOOPC            GO TO NEXT OPERAND                   C4932000
0023F0 95D5 1002      00002        8059 CTXSN    CLI   2(R1),C'N'          IS THIS SEPARATE = 'NO'              C4934000

0023F4 0774                        8060          BCR   NE,WC               ERROR IF NEITHER                     C4936000
0023F6 9610 202C      0002C        8061          OI    DCTPPSW,DCTPPSWS    PREVENT SEPARATORS                   C4938000
0023FA 47F0 82A6      024B6        8062          B     CTXLOOPC            GO TO NEXT OPERAND                   C4940000
0023FE 41F0 2028      00028        8063 CTXT     LA    R15,DCTUCS          POINT TO UCS TRAIN SETTING           C4942000

002402 4100 0008      00008        8064          LA    R0,DCTPPSWT         SET CHANGE INDICATOR                 C4943000
002406 47F0 8220      02430        8065          B     CTXCCT              SET NEW UCS LOAD SPECIFICATION       C4944000
00240A 41F0 2028      00028        8066 CTXU     LA    R15,DCTUCS          POINT TO UCS TRAIN SETTING           C4944500
00240E 4100 000C      0000C        8067          LA    R0,DCTPPSWT+DCTPPSWU SET NON STANDARD UCS                C4945000
002412 47F0 8220      02430        8068          B     CTXCCT              SET NEW SPECIFICATION                C4945500
002416 D501 1002 82E0 00002 024F0  8069 CTXC     CLC   2(2,R1),CTXONE      IS THIS A SPACE COMMAND      OY08660 C4946000

00241C 4770 8218      02428        8070          BNE   CTXCC               IF NOT, SET CARRAGE TAPE ID          C4948000
002420 9604 2014      00014        8071          OI    DCTFLAGS,DCTSPACE   SET SPACE BIT                        C4950000
002424 47F0 82A6      024B6        8072          B     CTXLOOPC            GO TO NEXT OPERAND                   C4952000
002428 41F0 2024      00024        8073 CTXCC    LA    R15,DCTFCB          POINT TO FCB CARRAGE SETTING         C4953000
00242C 4100 0080      00080        8074          LA    R0,DCTPPSWC         SET CHANGE INDICATOR                 C4954000
002430 9101 202C      0002C        8075 CTXCCT   TM    DCTPPSW,DCTPPSWO    TEST DEVICE STATUS                   C4955000
002434 4710 822C      0243C        8076          BO    *+8                 BRANCH IF OPERATOR ACTION OK         C4956000
002438 45E0 82AE      024BE        8077          BAL   LINK,CTXDEV         CHECK FOR IDLE DEVICE                C4957000

00243C 4930 82DE      024EE        8078          CH    WB,CTXFOUR          MOVE NO MORE THAN 4                  C4958000
002440 07B4                        8079          BCR   NL,WC               EXIT IF TOO LONG ( MACH 3 )          C4960000

002442 D203 F000 82D3 00000 024E3  8080          MVC   0(4,R15),CTXBLANK   BLANK OUT PARAMETER                  C4962000
002448 4430 8252      02462        8081 CTXEXMVC EX    WB,CTXMVC           MOVE IN PARAMETER                    C4964000
00244C 1830                        8082          LR    WB,R0               GET ACTIVITY FLAG                    C4966000
00244E 4430 8258      02468        8083          EX    WB,CTXOI            TURN ON CHANGE FLAG                  C4968000
002452 95E3 1000      00000        8084          CLI   0(R1),C'T'          IS THIS STANDARD UCS                 C4968200
002456 4770 82A2      024B2        8085          BNE   CTXLOOPA            IF NOT POST JOB                      C4968400
00245A 94FB 202C      0002C        8086          NI    DCTPPSW,255-DCTPPSWU TURN OFF NON STANDARD               C4968600
00245E 47F0 82A2      024B2        8087          B     CTXLOOPA            POST JOB                             C4969000

002462 D200 F000 1002 00000 00002  8088 CTXMVC   MVC   0(*-*,R15),2(R1)    MOVE TEXT                            C4970000
002468 9600 202C      0002C        8089 CTXOI    OI    DCTPPSW,*-*         TURN ON FLAGS                        C4971000
00246C DD00 1002 83EC 00002 025FC  8090 CTXQTST  TRT   2(*-*,R1),CTXQTTAB  **** EXECUTE ONLY ****       OY02728 C4971500
002472 41F0 202D      0002D        8091 CTXQ     LA    R15,DCTCLASS        POINT TO CLASS FIELD                 C4972000
002476 4100 0020      00020        8092          LA    R0,DCTPPSWQ         SET OPERATOR CONTROL                 C4974000

                                   8093 * OPERATOR CAN CHANGE CLASSES ANY TIME                                  C4976000
00247A 4930 82DC      024EC        8094          CH    WB,CTXCLASL         CHECK FOR TOO LONG                   C4978000
00247E 07B4                        8095          BCR   NL,WC               EXIT IF TOO LONG                     C4980000

002480 9012 D060      00060        8096          STM   R1,WA,COMDWORK      SAVE R1 AND WA OVER 'TRT'    OY02728 C4980400
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  194


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

002484 4430 825C      0246C        8097          EX    WB,CTXQTST          TEST IF 'Q=' VALID (A-Z,0-9) OY02728 C4980800
002488 9812 D060      00060        8098          LM    R1,WA,COMDWORK      RESTORE REGISTERS R1, WA     OY02728 C4981200
00248C 0774                        8099          BNZR  WC                  EXIT ON INVALID CHARACTERS   OY02728 C4981600
00248E 9240 202D      0002D        8100          MVI   DCTCLASS,C' '       INSERT BLANK                         C4982000

002492 D206 202E 202D 0002E 0002D  8101          MVC   DCTCLASS+1(L'DCTCLASS-1),DCTCLASS BLANK OUT AREA         C4984000
002498 47F0 8238      02448        8102          B     CTXEXMVC            MOVE AND SET FLAGS                   C4985000
00249C 41F0 2020      00020        8103 CTXF     LA    R15,DCTFORMS        POINT TO FORMS                       C4986000
0024A0 4100 0040      00040        8104          LA    R0,DCTPPSWF         SET OPERATOR CONTROL                 C4987000
0024A4 D504 1002 82D7 00002 024E7  8105          CLC   2(5,R1),CTXAUTOM    CHECK FOR 'AUTOM'                    C4988000

0024AA 4770 8220      02430        8106          BNE   CTXCCT              FILL IN DATA IF NOT                  C4989000
0024AE 94BF 202C      0002C        8107          NI    DCTPPSW,255-DCTPPSWF ALLOW AUTOMATIC FORMS               C4990000
                                   8108 * OPERATOR CAN RELINQUISH FORMS CONTROL ANY TIME                        C4991000
                                   8109 CTXLOOPA $POST $HASPECF,JOB-$EWFJOT FIRE UP PROCESSORS                  C4992000

0024B2 94EE B0C4      000C4        8110+CTXLOOPA NI    $HASPECF,255-$EWFJOB-$EWFJOT                             PO008000
0024B6 8756 8174      02384        8111 CTXLOOPC BXLE  WD,WE,CTXLOOP       GO TO NEXT OPERAND                   C4994000
0024BA 47F0 84F8      02708        8112          B     CZXRET              RETURN                               C4996000
0024BE 9180 2000      00000        8113 CTXDEV   TM    DCTSTAT,DCTINUSE    IS DEVICE IN USE                     C5030000
0024C2 078E                        8114          BCR   Z,LINK              RETURN IF NOT                        C5032000
0024C4 D207 D068 2018 00068 00018  8115          MVC   COMMAND(8),DCTDEVN  SET NAME                             C5034000

0024CA D20A D070 82CC 00070 024DC  8116          MVC   COMMAND+8(CTXML),CTXMSG MOVE IN DIAGNOSTIC               C5036000
                                   8117          $CRET L=8+CTXML           SEND DIAGNOSTIC AND EXIT             C5038000
0024D0                             8118+         DS    0H                                                       NU006000
0024D0 4100 0013      00013        8119+         LA    R0,8+CTXML                                               C0230000
0024D4 41F0 0008      00008        8120+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000

0024D8 45E0 B088      00088        8121+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
0024DC 40C9D540E4E2C5              8122 CTXMSG   DC    C' IN USE'          IN USE MESSAGE                       C5040000
0024E3 40404040                    8123 CTXBLANK DC    CL4' '              BLANKS                               C5041000
                            0000B  8124 CTXML    EQU   *-CTXMSG            LENGTH                               C5042000

0024E7 C1E4E3D6D4                  8125 CTXAUTOM DC    C'AUTOM'            CONSTANT FOR AUTOMATIC FORMS         C5043000
0024EC 0008                        8126 CTXCLASL DC    Y(L'DCTCLASS)       LENGTH OF CLASS FIELD                C5043500
0024EE 0004                        8127 CTXFOUR  DC    H'4'                CONSTANT                             C5044000
0024F0 F140                        8128 CTXONE   DC    C'1 '               CONSTANT ONE+BLANK           OY08660 C5044100
0024F2 F220 D05C 1000 0005C 00000  8129 CTXFPACK PACK  COMEWORK(3),0(*-*,R1) PACK FORMS SPECIFICATION           C5046000
0024F8 95C8 1000      00000        8130 CTXRDR   CLI   0(R1),C'H'          IS IT HOLD                           C5048000

0024FC 4770 834A      0255A        8131          BNE   CTXRNOTH            IF NOT HOLD, TRY NEXT                C5050000
002500 9604 2014      00014        8132          OI    DCTFLAGS,DCTHOLDJ   SET READER TO HOLD JOBS              C5052000
002504 47F0 82A6      024B6        8133          B     CTXLOOPC            LOOK AT ADDITIONAL OPERANDS          C5054000
002508 8656 813E      0234E        8134 CTXCONA  BXH   WD,WE,CTXINVO       LOCATE SECOND OPERAND POINTER        C5058000
00250C 5810 5000      00000        8135          L     R1,0(0,WD)          POINT TO OPERAND                     C5060000

002510 4140 813E      0234E        8136          LA    WC,CTXINVO          POINT TO ERROR EXIT ROUTINE          C5062000
                                   8137 CTXCON   $CFCVB POINTER=(WD),NUM=1,NOK=CTXBADL,SYMBOL=CTXCVB            C5066000
002514                             8138+CTXCON   DS    0H                                                       NU006000
002514 1815                        8139+         LR    R1,WD                                                    DG018000
002516 45E0 8398      025A8        8140+         BAL   LINK,CTXCVB                                              C0470000

00251A 47F0 813E      0234E        8141+         B     CTXBADL                                                  C0472000
00251E 4900 8500      02710        8142          CH    R0,CTXLEV           CHECK FOR MAXIMUM LEVEL EXCEEDED     C5068000
002522 0724                        8143          BCR   H,WC                INVALID OPERAND IF SO                C5070000
                                   8144          AGO   .CTXA                                                    C5072000
                                   8145 .CTXA    ANOP                                                           C5164000

002524 8656 813E      0234E        8146          BXH   WD,WE,CTXINVO       LOCATE THIRD OPERAND                 C5166000
002528 5810 5000      00000        8147 CTXCLOP  L     R1,0(0,WD)          POINT TO OPERAND                     C5168000
00252C 41F0 8502      02712        8148          LA    R15,CTXTAB          POINT TO LOGICAL CONSOLE TABLE       C5170000
002530 4120 0007      00007        8149          LA    WA,CTXTABCT         SET NUMBER OF ENTRIES                C5172000
002534 D501 F000 1000 00000 00000  8150 CTXCLOOP CLC   0(CTXTESIZ,R15),0(R1) COMPARE TABLE ENTRY AGAINST TEXT   C5174000

00253A 4780 8338      02548        8151          BE    CTXCFND             IF MATCH, EXIT                       C5176000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  195


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00253E 41F0 F002      00002        8152          LA    R15,CTXTESIZ(0,R15) POINT TO NEXT ENTRY                  C5178000
002542 4620 8324      02534        8153          BCT   WA,CTXCLOOP         LOOP UNTIL END                       C5180000
002546 07F4                        8154          BR    WC                  ERROR EXIT                           C5182000

002548 58F0 C128      00128        8155 CTXCFND  L     R15,CTXLSTBL        POINT TO CONSOLE LIST TABLE          C5184000
00254C 0620                        8156          BCTR  WA,0                REDUCE COUNT BY 1                    C5186000
00254E 4202 F000      00000        8157          STC   R0,0(WA,R15)        SET LIST LEVEL INTO THE ENTRY        C5188000
002552 8756 8318      02528        8158          BXLE  WD,WE,CTXCLOP       IF MORE OPERANDS LOOP                C5190000

002556 47F0 84F8      02708        8159          B     CZXRET              RETURN                               C5192000
                            0234E  8160 CTXBADL  EQU   CTXINVO             ON BAD LEVEL ERROR EXIT              C5194000
                                   8161          AGO   .CTXAA                                                   C5195000
                                   8162 .CTXAA   ANOP                                                           C5130200
00255A D501 1000 8394 00000 025A4  8163 CTXRNOTH CLC   0(2,R1),CTXAEQ      LOOK FOR AUTHORITY FOR READER        C5130400

002560 0774                        8164          BCR   NE,WC               IF NOT, ERROR                        C5130600
002562 9512 2012      00012        8165          CLI   DCTDEVTP,DCTRJR     CHECK FOR REMOTE READER              C5130800
002566 0784                        8166          BCR   E,WC                IF REMOTE, ERROR                     C5131000
002568 9190 D058      00058        8167          TM    COMFLAGS,WCMBFD+WCMBFF INSURE SOURCE NOT A READER        C5131200
00256C 0784                        8168          BCR   Z,WC                    TO PREVENT LOCKOUT               C5131400
                                   8169          $CFCVB POINTER=(WD),NUM=1,NOK=CTXINVO,SYMBOL=CTXCVB            C5131600
00256E                             8170+         DS    0H                                                       NU006000

00256E 1815                        8171+         LR    R1,WD                                                    DG018000
002570 45E0 8398      025A8        8172+         BAL   LINK,CTXCVB                                              C0470000
002574 47F0 813E      0234E        8173+         B     CTXINVO                                                  C0472000

002578 4900 8396      025A6        8174 CTXAUTH  CH    R0,CTXALEV          CHECK FOR TOO HIGH                   C5132000
00257C 0724                        8175          BCR   H,WC                IF TOO HIGH, ERROR                   C5134000
00257E 9101 D058      00058        8176          TM    COMFLAGS,DCTREJSY   IS SOURCE CONSOLE AUTHORIZED         C5136000
                                   8177 * RESIDUE OF RESTRICTION LEVEL IS SAVED IN FLAGS BYTE UNTIL FIRST $WTO  C5138000
002582 0714                        8178          BCR   O,WC                IF RESTRICTED, ERROR                 C5140000

002584 9180 D058      00058        8179          TM    COMFLAGS,WCMBFD     CHECK FOR PHYSICAL CONSOLE           C5142000
002588 4780 8384      02594        8180          BZ    CTXNAUTH            IF NOT, ALLOW SETTING                C5144000
00258C D500 2011 D059 00011 00059  8181          CLC   DCTNO,COMROUTE      IS THIS SAME CONSOLE                 C5146000
002592 0784                        8182          BCR   E,WC                IF SO, ERROR EXIT                    C5148000
002594 9607 2013      00013        8183 CTXNAUTH OI    DCTIOTYP,COMJDS     RESTRICT CONSOLE COMPLETELY          C5150000
002598 4200 838D      0259D        8184          STC   R0,*+5              SET INVERT TO RESTRICTIONS           C5152000
00259C 9700 2013      00013        8185          XI    DCTIOTYP,*-*        SET NEW RESTRICTIONS                 C5154000
0025A0 47F0 82A6      024B6        8186          B     CTXLOOPC            LOOK AT ADDITIONAL OPERANDS          C5156000

0025A4 C17E                        8187 CTXAEQ   DC    C'A='               AUTHORITY CONSTANT                   C5158000
0025A6 0007                        8188 CTXALEV  DC    H'7'                MAXIMUM AUTHORIZATION LEVEL          C5160000

                                   8189          AGO   .CTXB                                                    C5162000
                                   8190 .CTXB    ANOP                                                           C5196000
                                   8191 CTXCVB   $CFCVB TYPE=DEF,NUM=1     CONVERT TO BINARY                    C5197000
0025A8                             8192+CTXCVB   DS    0H                                                       NU006000
0025A8 58F0 1000      00000        8193+         L     R15,0(0,R1)         PICK UP FIRST PARAMETER              C0482000

0025AC 95F0 F000      00000        8194+         CLI   0(R15),C'0'         LOOK FOR NUMERIC ( FA-FF INCLUDED )  C0484000
0025B0 47B0 83C0      025D0        8195+         BNL   COF0774L           IF NUMERIC CONVERT                    C0486000
0025B4 41F0 F001      00001        8196+         LA    R15,1(0,R15)        NEXT CHARACTER                       C0488000
0025B8 5020 D01C      0001C        8197+         ST    WA,PCEWA            SAVE WORK REGISTER           OY08684 C0488500
0025BC 5820 1004      00004        8198+         L     WA,4(0,R1)          CLEAR HIGH ORDER BYTE OF     OY08684 C0489000
0025C0 4120 2000      00000        8199+         LA    WA,0(0,WA)          NEXT OPERAND POINTER         OY08684 C0489500
0025C4 19F2                        8200+         CR    R15,WA              DID WE GO TOO FAR            OY08684 C0490000
0025C6 5820 D01C      0001C        8201+         L     WA,PCEWA            RESTORE WORK REGISTER        OY08684 C0491000
0025CA 4740 839C      025AC        8202+         BL    *-30                LOOP UNTIL NUMERIC OR ERROR  OY08684 C0492000

0025CE 07FE                        8203+         BR    LINK                RETURN INVALID OPERAND               C0496000

                                   8204+* CONVERT PAIR OF START STOP VALUES                                     C0504000
0025D0 1B00                        8205+COF0774L SR    R0,R0               ZERO ACCUMULATOR, STOP VALUE         C0506000
0025D2 D100 83EB F000 025FB 00000  8206+COF0774C MVN COF0774W+1(1),0(R15)  MOVE NUMERIC TO WORK AREA            C0514000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  196


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


0025D8 4C00 83E6      025F6        8207+         MH    R0,COF0774T        MULTIPLY BY 10                        C0516000
0025DC 4A00 83EA      025FA        8208+         AH    R0,COF0774W        ADD LOW DIGIT                         C0518000
0025E0 4900 83E8      025F8        8209+         CH    R0,COF0774U        LOOK FOR MAXIMUM VALUE                C0520000
0025E4 072E                        8210+         BCR   H,LINK              RETURN INVALID OPERAND               C0524000
0025E6 41F0 F001      00001        8211+COF0774N LA    R15,1(0,R15)        NEXT CHARACTER                       C0532000
0025EA 95F0 F000      00000        8212+         CLI   0(R15),C'0'         TEST FOR NUMERIC ( FA-FF INCLUDED )  C0534000
0025EE 47B0 83C2      025D2        8213+         BNL   COF0774C           IF NUMERIC CONVERT THE CHARACTER      C0536000
0025F2 47F0 E004      00004        8214+         B     4(0,LINK)           RETURN                               C0572000
0025F6 000A                        8215+COF0774T DC    H'10'               CONVERSION CONSTANT                  C0580000
0025F8 270F                        8216+COF0774U DC    H'9999'                                                  C0594000

0025FA 0000                        8217+COF0774W DC    H'0'                WORK AREA FOR CONVERSION             C0596000

                                   8218          DROP  WA                                                       C5198000
0025FC 0101010101010101            8219 CTXQTTAB DC    193X'01'            VALIDITY TBL  (00-C0)        OY02728 C5198500
0026BD 0000000000000000            8220          DC    9X'00',7X'01',9X'00',8X'01'       (C1-E1)        OY02728 C5199000
0026DE 0000000000000000            8221          DC    8X'00',6X'01',10X'00',6X'01'      (E2-FF)        OY02728 C5199500

                            00000  8222          USING DCTDSECT,R1                                              C5200000
COMM     HASP COMMAND PROCESSOR HASPCDV1 - DEVICE LIST COMMANDS                                                PAGE  197


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   8224 *********************************************************************** C5204000
                                   8225 *                                                                     * C5206000
                                   8226 *        $Z DEV -- HALT DEVICE                                        * C5208000
                                   8227 *        DEV   = PRINT/PUNCH PROCESSOR OUTPUT DEVICE                  * C5210000
                                   8228 *              = INPUT SERVICE PROCESSOR INPUT DEVICE                 * C5212000
                                   8229 *              = CONSOLE DEVICE                                       * C5214000
                                   8230 *                                                                     * C5216000
                                   8231 *        $STOP DEV                                                    * C5218000

                                   8232 *                                                                     * C5220000
                                   8233 *********************************************************************** C5222000
                                   8234 CZ       NULL                                                           C5224000
0026FC                             8235+CZ       DS    0H                                                       NU006000

0026FC 9680 1014      00014        8236          OI    DCTFLAGS,DCTSTOP    HALT THE DEVICE IF PRINT/PUNCH       C5228000
002700 47F0 84F4      02704        8237          B     CZXNEXT             GO TO NEXT DEVICE                    C5230000
                                   8238          AIF   (&COMPRTY GE 1).CZXB                                     C5252000
002704 8756 8078      02288        8239 CZXNEXT  BXLE  WD,WE,CZXDCTL       LOCATE NEXT DCT IF REQUESTED         C5254000
                                   8240 CZXRET   $CRET MSG=OK              RETURN WITH OK                       C5256000
002708                             8241+CZXRET   DS    0H                                                       NU006000
002708 41F0 0004      00004        8242+         LA    R15,CORTOK          RETURN AND ISSUE OK MESSAGE          C0264000
00270C 45E0 B088      00088        8243+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   8244          AGO   .CZXC                                                    C5258000
                                   8245 .CZXC    ANOP                                                           C5264000
                                   8246          DROP  R1                                                       C5266000
002710 000F                        8247 CTXLEV   DC    H'15'               MAXIMUM LIST LEVEL                   C5268000

                            02712  8248 CTXTAB   EQU   *         ENTRY     SPECIFICATION                        C5270000
002712 D6E2                        8249          DC    C'OS'     6         OS MESSAGES                          C5272000
                            00002  8250 CTXTESIZ EQU   *-CTXTAB                                                 C5274000

002714 D4C1                        8251          DC    C'MA'     5         MAIN-MASTER                          C5276000
002716 E3C1                        8252          DC    C'TA'     4         TAPE                                 C5278000
002718 E3D7                        8253          DC    C'TP'     3         TELE-PROCESSING                      C5280000
00271A E4D9                        8254          DC    C'UR'     2         UNIT RECORD                          C5282000
00271C C5D9                        8255          DC    C'ER'     1         ERROR                                C5284000
00271E D3D6                        8256          DC    C'LO'     0         LOG                                  C5286000
                            00007  8257 CTXTABCT EQU   (*-CTXTAB)/CTXTESIZ                                      C5288000
002720 E3C3                        8258 CTXCID   DC    C'TC'               RECOGNITION FOR $T CON,LEV,CONSOLE   C5292000
COMM     HASP COMMAND PROCESSOR HASPCSY1 - SYSTEM COMMANDS                                                     PAGE  198


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   8260          AIF   (NOT &FCBV).CTFN3                                        C5296400
                                   8261 .CTFN3   ANOP                                                           C5297600

                                   8262 HASPCSY1 $COMGRUP DI,PI,SI,TI,P40,S40,PRTY=0 SYSTEM COMMANDS            C5298000

002728                             8263+HA$OCSY1 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            02728  8264+HA$ICSY1 EQU   HA$OCSY1+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   8265+         ENTRY HA$ICSY1                                                 OV036000
002728 C3E2E8F1                    8266+         DC    CL4'CSY1'           IDENTIFY MODULE ON CORE DUMP         OV038000
00272C 00002728                    8267+         DC    A(HA$OCSY1)         ASSEMBLY ORIGIN                      OV040000
002730                             8268+HASPCSY1 DS    0F                  ENTRY POINT                          OV042000
                            026D0  8269+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
002730 4811 8060      02730        8270+         LH    R1,HASPCSY1(R1)     PICK UP TABLE OFFSET                 C0118000
002734 47F1 8060      02730        8271+         B     HASPCSY1(R1)        GO TO ROUTINE SELECTED               C0128000
002738 002E                        8272+CODI             DC AL2(CDI-HASPCSY1)                                   C0134000
00273A 0034                        8273+COPI             DC AL2(CPI-HASPCSY1)                                   C0134000
00273C 003C                        8274+COSI             DC AL2(CSI-HASPCSY1)                                   C0134000
00273E 0014                        8275+COTI             DC AL2(CTI-HASPCSY1)                                   C0134000
002740 0132                        8276+COP40            DC AL2(CP40-HASPCSY1)                                  C0134000

002742 013A                        8277+COS40            DC AL2(CS40-HASPCSY1)                                  C0134000
                                   8278 .CTFN4   ANOP                                                           C5299000

                                   8279 *********************************************************************** C5300000

                                   8280 *                                                                     * C5302000
                                   8281 *        INITIATOR COMMANDS                                           * C5304000
                                   8282 *                                                                     * C5306000
                                   8283 *        $D IN -- DISPLAY INITIATOR(S)                                * C5308000
                                   8284 *                                                                     * C5310000
                                   8285 *        $P IN -- STOP ( DRAIN ) INITIATOR(S)                         * C5312000
                                   8286 *                                                                     * C5314000
                                   8287 *        $S IN -- START INITIATOR(S)                                  * C5316000
                                   8288 *        N     = INITIATOR ID, ALL INITIATORS IF BLANK                * C5318000
                                   8289 *                                                                     * C5320000
                                   8290 *        $T IN,LIST -- SET INITIATOR CLASSES                          * C5322000
                                   8291 *        N     = INITIATOR IDENTIFICATION                             * C5324000

                                   8292 *        LIST  = NEW CLASSES FOR DESIGNATED INITIATOR                 * C5326000
                                   8293 *                                                                     * C5328000
                                   8294 *        $DEFINE                                                      * C5330000

                                   8295 *                                                                     * C5332000
                                   8296 *        $DRAIN IN - $DRAIN XEQ                                       * C5334000
                                   8297 *                                                                     * C5336000
                                   8298 *        $START IN - $START XEQ                                       * C5338000
                                   8299 *                                                                     * C5340000
                                   8300 *        $DEFINE IN                                                   * C5342000
                                   8301 *                                                                     * C5344000
                                   8302 *********************************************************************** C5346000
002744 4140 000C      0000C        8303 CTI      LA    WC,12               SET REQUEST OFFSET                   C5348000
002748 5830 C0F8      000F8        8304          L     WB,CDIPIT           POINT TO FIRST PARTITION             C5350000
00274C 8656 80DE      027AE        8305          BXH   WD,WE,CDIINVO       ERROR IF NOT TWO OPERANDS            C5352000
002750 5820 5000      00000        8306          L     WA,0(0,WD)          PICK UP ORIGIN OF NEW CLASSES        C5354000

002754 0620                        8307          BCTR  WA,0                POINT TO COMMA                       C5356000
002756 9240 2000      00000        8308          MVI   0(WA),C' '          SET BLANK FOR ID COMPARE             C5358000
00275A 47F0 80C0      02790        8309          B     CDISING             DO FOR SINGLE INITIATOR ONLY         C5360000
00275E 1B44                        8310 CDI      SR    WC,WC               SET REQUEST OFFSET                   C5362000

002760 47F0 80A0      02770        8311          B     CDIW                DO WORK                              C5364000
002764 4140 0004      00004        8312 CPI      LA    WC,4                SET REQUEST OFFSET                   C5366000
002768 47F0 80A0      02770        8313          B     CDIW                DO WORK                              C5368000
00276C 4140 0008      00008        8314 CSI      LA    WC,8                SET REQUEST OFFSET                   C5370000
COMM     HASP COMMAND PROCESSOR HASPCSY1 - SYSTEM COMMANDS                                                     PAGE  199


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


002770 5830 C0F8      000F8        8315 CDIW     L     WB,CDIPIT           POINT TO FIRST PARTITION TABLE       C5372000
002774 9540 D06B      0006B        8316          CLI   COMOPRND+1,C' '     IS SECOND CHARACTER INITIATOR ID     C5374000
002778 4770 80C0      02790        8317          BNE   CDISING             IF SO, SINGLE INITIATOR INVOLVED     C5376000
                                   8318 * ALL INITIATORS ARE INVOLVED                                           C5378000
00277C 4404 8106      027D6        8319 CDILOOP  EX    0,CDIFUNA(WC)       EXECUTE FUNCTION REQUESTED           C5380000
002780 9101 3000      00000        8320          TM    PITSTAT(WB),PITLAST IS THIS THE LAST PIT                 C5382000
002784 4130 3014      00014        8321          LA    WB,PITLNGTH(0,WB)   POINT TO NEXT JUST IN CASE           C5384000
002788 4780 80AC      0277C        8322          BZ    CDILOOP             IF NOT END, WORK ON NEXT             C5386000

00278C 47F4 8124      027F4        8323          B     CDIXIT(WC)          EXIT                                 C5388000
                                   8324 * SINGLE INITIATOR IS INVOLVED                                          C5390000

002790 D501 D06B 3002 0006B 00002  8325 CDISING  CLC   COMOPRND+1(2),PITPATID(WB) IS THIS THE ONE               C5392000
002796 4770 80D2      027A2        8326          BNE   CDISCAN             IF NOT, SCAN TO NEXT                 C5394000
00279A 4404 8112      027E2        8327          EX    0,CDIFUN(WC)        EXECUTE FUNCTION REQUESTED           C5396000
00279E 47F4 8124      027F4        8328          B     CDIXIT(WC)          EXIT                                 C5398000
0027A2 9101 3000      00000        8329 CDISCAN  TM    PITSTAT(WB),PITLAST IS THIS THE LAST                     C5400000
0027A6 4130 3014      00014        8330          LA    WB,PITLNGTH(0,WB)   POINT TO NEXT JUST IN CASE           C5402000
0027AA 4780 80C0      02790        8331          BZ    CDISING             LOOP                                 C5404000
                                   8332 CDIINVO  $CFINVO OPERAND=COMOPRND  INVALID OPERAND                      C5406000

                                   8333+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
0027AE D208 D068 D06A 00068 0006A  8334+CDIINVO  MVC   COMMAND(9),COMOPRND                                      C1204000
0027B4 D20F D071 80F6 00071 027C6  8335+         MVC   COMMAND+9(16),COF0782 MOVE DIAGNOSTIC BEHIND TEXT        C1206000
0027BA                             8336+         DS    0H                                                       NU006000
0027BA 4100 0019      00019        8337+         LA    R0,25                                                    C0230000

0027BE 41F0 0008      00008        8338+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
0027C2 45E0 B088      00088        8339+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
0027C6 40C9D5E5C1D3C9C4            8340+COF0782  DC    C' INVALID OPERAND'                                      C1210000

                                   8342 *        MULTIPLE INITIATOR FUNCTIONS                                   C5410000

0027D6 4520 8144      02814        8344 CDIFUNA  BAL   WA,CDIDIS           DISPLAY CURRENT PIT   WC = 0         C5414000
0027DA 9680 3000      00000        8345          OI    PITSTAT(WB),PITHOLDA STOP THE PIT         WC = 4         C5416000
0027DE 946F 3000      00000        8346          NI    PITSTAT(WB),255-PITHOLDA-PITIDLE START    WC = 8         C5418000

                                   8348 *        SINGLE INITIATOR FUNCTIONS                                     C5422000


0027E2 4520 8144      02814        8350 CDIFUN   BAL   WA,CDIDIS           DISPLAY CURRENT PIT   WC = 0         C5426000
0027E6 9640 3000      00000        8351          OI    PITSTAT(WB),PITHOLD1 STOP THE PIT         WC = 4         C5428000
0027EA 942F 3000      00000        8352          NI    PITSTAT(WB),255-PITHOLDA-PITHOLD1-PITIDLE WC = 8         C5430000

                                   8353          MVC   PITCLASS(&MAXCLAS,WB),1(WA)               WC =12         C5432000
0027EE D207 3008 2001 00008 00001  8354+         MVC   PITCLASS(8,WB),1(WA)                      WC =12         C5432000


                                   8356 *        END OF COMMAND EXITS                                           C5436000

0027F4 47F0 813C      0280C        8358 CDIXIT   B     CDIRET              ALL MESSAGES FINISHED WC = 0         C5440000
0027F8 47F0 8134      02804        8359          B     CPIRET              RETURN WITH OK        WC = 4 OY08674 C5442000
0027FC 47F0 8130      02800        8360          B     CSIRET              POST JOB              WC = 8         C5444000
                                   8361 CSIRET   $POST $HASPECF,JOB        POST JOB              WC =12         C5446000
002800 94EF B0C4      000C4        8362+CSIRET   NI    $HASPECF,255-$EWFJOB                                     PO008000

                                   8363 CPIRET   $CRET MSG=OK              EXIT WITH OK                         C5448000
002804                             8364+CPIRET   DS    0H                                                       NU006000
002804 41F0 0004      00004        8365+         LA    R15,CORTOK          RETURN AND ISSUE OK MESSAGE          C0264000
002808 45E0 B088      00088        8366+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   8367 CDIRET   $CRET ,                   EXIT                                 C5450000

00280C                             8368+CDIRET   DS    0H                                                       NU006000
00280C 41F0 0000      00000        8369+         LA    R15,CORTNORM        NORMAL RETURN                        C0268000
COMM     HASP COMMAND PROCESSOR HASPCSY1 - SYSTEM COMMANDS                                                     PAGE  200


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


002810 45E0 B088      00088        8370+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000

                                   8372 *        DISPLAY A SINGLE PARTITION INFORMATION TABLE                   C5454000

                                   8374 * SET STATUS                                                            C5458000
002814 D214 D068 81BC 00068 0288C  8375 CDIDIS   MVC   COMMAND(CDIML),CDIM INSERT MESSAGE PROTOTYPE             C5460000

                                   8376          MVC   COMMAND+CDIML(&MAXCLAS+9),COMMAND+CDIML-1  BLANK         C5461000
00281A D210 D07D D07C 0007D 0007C  8377+         MVC   COMMAND+CDIML(8+9),COMMAND+CDIML-1         BLANK         C5461000
002820 91C0 3000      00000        8378          TM    PITSTAT(WB),PITHOLDA+PITHOLD1 ANY DRAIN BITS ON          C5462000
002824 4780 816A      0283A        8379          BZ    CDINDRN             IF NOT, CAN NOT BE DRAINED-DRAINING  C5464000
002828 9120 3000      00000        8380          TM    PITSTAT(WB),PITBUSY CHECK FOR BUSY                       C5466000

00282C 4710 817E      0284E        8381          BO    CDICLAS             SET CLASSES, PIT (DRAINING)          C5468000
002830 D207 D071 81D9 00071 028A9  8382          MVC   CDISTAT(8),CDIMD    SET DRAINED                          C5470000
002836 47F0 817E      0284E        8383          B     CDICLAS             SET CLASSES, PIT (DRAINED)           C5472000
00283A D207 D071 81E1 00071 028B1  8384 CDINDRN  MVC   CDISTAT(8),CDIMNA   ASSUME INACTIVE                      C5474000
002840 9120 3000      00000        8385          TM    PITSTAT(WB),PITBUSY CHECK FOR BUSY                       C5476000

002844 4780 817E      0284E        8386          BZ    CDICLAS             SET CLASSES, PIT (INACTIVE)          C5478000
002848 D207 D071 81D1 00071 028A1  8387          MVC   CDISTAT(8),CDIMA    PIT (ACTIVE)                         C5480000
                                   8388 * SET CLASSES                                                           C5482000
                                   8389 CDICLAS  MVC   COMMAND+CDIML(&MAXCLAS),PITCLASS(WB) SET CLASSES         C5484000
00284E D207 D07D 3008 0007D 00008  8390+CDICLAS  MVC   COMMAND+CDIML(8),PITCLASS(WB)        SET CLASSES         C5484000

                                   8391 * SET PIT IDENTIFICATION                                                C5486000
002854 D201 D06D 3002 0006D 00002  8392          MVC   CDIPID(2),PITPATID(WB) SET IDENTIFICATION                C5488000
                                   8393          AIF   ('&XBATCHC' EQ '').CDINXB                                C5488200
                                   8394 .CDINXB  ANOP                                                           C5489800
                                   8395 * WRITE RESPONSE AND EXIT                                               C5490000

                                   8396          $CWTO L=CDIML+&MAXCLAS+9,RET=(WA)  RESPOND AND RETURN          C5492000
00285A                             8397+         DS    0H                                                       NU006000
00285A 4100 0026      00026        8398+         LA    R0,CDIML+8+9                                             C0324000
00285E 47F0 C00C      0000C        8399+         B     COWTO(0,BASE2)      REPLY TO OPERATOR                    C0350000
COMM     HASP COMMAND PROCESSOR HASPCSY1 - SYSTEM COMMANDS                                                     PAGE  201


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   8401 *********************************************************************** C5496000
                                   8402 *                                                                     * C5498000
                                   8403 *        $P S -- STOP ( DRAIN ) SYSTEM                                * C5500000
                                   8404 *                                                                     * C5502000

                                   8405 *        $DRAIN                                                       * C5504000
                                   8406 *                                                                     * C5506000
                                   8407 *********************************************************************** C5508000
002862 9620 B0C2      000C2        8408 CP40     OI    $STATUS,$DRAINED    SET SYSTEM DRAIN FLAG                C5510000
002866 47F0 8134      02804        8409          B     CPIRET              RETURN                               C5512000

COMM     HASP COMMAND PROCESSOR HASPCSY1 - SYSTEM COMMANDS                                                     PAGE  202


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   8411 *********************************************************************** C5516000
                                   8412 *                                                                     * C5518000
                                   8413 *        $S   -- START SYSTEM                                         * C5520000
                                   8414 *                                                                     * C5522000
                                   8415 *        $START                                                       * C5524000

                                   8416 *                                                                     * C5526000
                                   8417 *********************************************************************** C5528000
00286A 949F B0C2      000C2        8418 CS40     NI    $STATUS,255-$ALMSGSW-$DRAINED RESET DRAIN FLAGS          C5530000

00286E 5810 B0E4      000E4        8419          L     R1,$PCEORG          LOCATE FIRST PCE                     C5532000
                                   8420 CSSPOST  $POST PCEEWF+$EWBHOLD-PCEDSECT(R1),HOLD POST TO START UP       C5534000
002872 94EF 1049      00049        8421+CSSPOST  NI    PCEEWF+$EWBHOLD-PCEDSECT(R1),255-$EWFHOLD                PO008000
002876 947F B0C4      000C4        8422+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
00287A 5810 1008      00008        8423          L     R1,PCENEXT-PCEDSECT(0,R1) PICK UP NEXT                   C5536000

00287E 1211                        8424          LTR   R1,R1               TEST FOR END                         C5538000
002880 4770 81A2      02872        8425          BNZ   CSSPOST             IF MORE, LOOP                        C5540000
                                   8426          $POST $HASPECF,JOT        FIRE UP OUTPUT PROCESSORS            C5541000
002884 94FE B0C4      000C4        8427+         NI    $HASPECF,255-$EWFJOT                                     PO008000
002888 47F0 8130      02800        8428          B     CSIRET              POST JOB AND REPLY OK                C5541100
COMM     HASP COMMAND PROCESSOR HASPCSY1 - SYSTEM COMMANDS                                                     PAGE  203


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   8430          AIF   (NOT &FCBV).CTFN5                                        C5541300

                                   8431 .CTFN5   ANOP                                                           C5557100
00288C C9D5C9E340E7E740            8432 CDIM     DC    C'INIT XX (DRAINING) = '                                 C5557200

                            00015  8433 CDIML    EQU   *-CDIM              LENGTH OF BASIC PROTOTYPE            C5557300
                            0006D  8434 CDIPID   EQU   COMMAND+5           LOCATION FOR ID                      C5557400
                            00071  8435 CDISTAT  EQU   COMMAND+9           LOCATION FOR STATUS                  C5557500
0028A1 C1C3E3C9E5C54040            8436 CDIMA    DC    C'ACTIVE  '         ACTIVE STATUS                        C5557600
0028A9 C4D9C1C9D5C5C440            8437 CDIMD    DC    C'DRAINED '         DRAINED STATUS                       C5557700

0028B1 C9D5C1C3E3C9E5C5            8438 CDIMNA   DC    C'INACTIVE'         INACTIVE STATUS                      C5558000
                                   8439 CDIXBNAM DC    C'&XBATCHN'         XEQ BATCHING NAME PREFIX             C5559000
0028B9 5B5B5B5B5B                  8440+CDIXBNAM DC    C'$$$$$'            XEQ BATCHING NAME PREFIX             C5559000
COMM     HASP COMMAND PROCESSOR HASPCSY2 - STOP HASP COMMAND                                                   PAGE  204


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   8442 HASPCSY2 $COMGRUP PH,PRTY=0        CONTINUATION OF SYSTEM               C5562000
0028C0                             8443+HA$OCSY2 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            028C0  8444+HA$ICSY2 EQU   HA$OCSY2+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   8445+         ENTRY HA$ICSY2                                                 OV036000

0028C0 C3E2E8F2                    8446+         DC    CL4'CSY2'           IDENTIFY MODULE ON CORE DUMP         OV038000

0028C4 000028C0                    8447+         DC    A(HA$OCSY2)         ASSEMBLY ORIGIN                      OV040000
0028C8                             8448+HASPCSY2 DS    0F                  ENTRY POINT                          OV042000
                            02868  8449+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                            028C8  8450+COPH            EQU HASPCSY2                                            C0146000
                                   8451 *********************************************************************** C5564000

                                   8452 *                                                                     * C5566000
                                   8453 *        $P HASP -- STOP ( DRAIN ) HASP                               * C5568000
                                   8454 *                                                                     * C5570000
                                   8455 *********************************************************************** C5572000
0028C8 D503 D06A 8306 0006A 02B6E  8456 CPH      CLC   COMOPRND(4),CPHASP  IS THIS HASP                         C5574000
0028CE 4780 8092      028FA        8457          BE    CPS                 IF SO DRAIN SYSTEM                   C5576000
                                   8458          $CFINVO OPERAND=COMOPRND  ERROR EXIT                           C5578000
                                   8459+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
0028D2 D208 D068 D06A 00068 0006A  8460+         MVC   COMMAND(9),COMOPRND                                      C1204000
0028D8 D20F D071 8082 00071 028EA  8461+         MVC   COMMAND+9(16),COF0805 MOVE DIAGNOSTIC BEHIND TEXT        C1206000

0028DE                             8462+         DS    0H                                                       NU006000

0028DE 4100 0019      00019        8463+         LA    R0,25                                                    C0230000
0028E2 41F0 0008      00008        8464+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
0028E6 45E0 B088      00088        8465+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
0028EA 40C9D5E5C1D3C9C4            8466+COF0805  DC    C' INVALID OPERAND'                                      C1210000

0028FA 9620 B0C2      000C2        8467 CPS      OI    $STATUS,$DRAINED    SET SYSTEM DRAIN FLAG                C5580000
0028FE 9140 B0C2      000C2        8468          TM    $STATUS,$ALMSGSW    IS ALL AVAILABLE SWITCH ON           C5582000
002902 4780 82F4      02B5C        8469          BZ    CPSRET              IF NOT, DO NOT WITHDRAW              C5584000
002906 9180 B0C2      000C2        8470          TM    $STATUS,$RDRPEND    IF RDR IS NOT STOPPED OR READY       C5584700
00290A 4710 82F4      02B5C        8471          BO    CPSRET              TO STOP, DON'T WITHDRAW              C5585300
                                   8472 *        WITHDRAW HASP FROM CONTROL OF MACHINE                          C5586000
00290E 9500 B0C7      000C7        8473          CLI   $ACTIVE,0           MAKE SURE READERS ARE NOT STARTING   C5588000
002912 4770 82F4      02B5C        8474          BNE   CPSRET              RETURN IF STARTING                   C5590000
                                   8475          AIF   ('&XBATCHC' EQ '').CPSNXB1                               C5592000
                                   8476 .CPSNXB1 ANOP                                                           C5618000
                                   8477 * PREVENT READERS FROM STARTING                                         C5620000

002916 5810 B0E4      000E4        8478          L     R1,$PCEORG          PICK UP FIRST PCE                    C5622000
00291A 1211                        8479 CPSRHOLD LTR   R1,R1               TEST FOR END                         C5624000
00291C 4780 80D4      0293C        8480          BZ    CPSCKPT             IF END, WAIT ON CHECK POINT          C5626000
002920 9501 104B      0004B        8481          CLI   PCEID+1-PCEDSECT(R1),PCERDRID LOOK FOR ANY READER        C5628000

002924 4770 80C4      0292C        8482          BNE   *+8                 SKIP HOLDING                         C5630000
002928 9610 1049      00049        8483          OI    PCEEWF+$EWBHOLD-PCEDSECT(R1),$EWFHOLD HOLD EACH          C5632000
00292C 5810 1008      00008        8484          L     R1,PCENEXT-PCEDSECT(0,R1) PICK UP NEXT                   C5634000
002930 47F0 80B2      0291A        8485          B     CPSRHOLD            LOOP UNTIL FINISHED                  C5636000
                                   8486 CPSCWAIT $WAIT CKPT                WAIT FOR CHECK POINT                 C5638000
002934 9604 D048      00048        8487+CPSCWAIT OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
002938 45F0 B030      00030        8488+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
00293C 9110 B0C2      000C2        8489 CPSCKPT  TM    $STATUS,$CKPTACT    IS CHECK POINT IN PROCESS            C5640000
002940 4710 80CC      02934        8490          BO    CPSCWAIT            WAIT FOR CHECK POINT                 C5642000
002944 5810 C0EC      000EC        8491          L     R1,CPSCKPCE         PICK UP CHECK POINT PCE              C5644000
002948 9610 1049      00049        8492          OI    PCEEWF+$EWBHOLD-PCEDSECT(R1),$EWFHOLD HOLD CHECK POINT   C5646000
                                   8493 * CAUSE EOF TO BE SENT TO OS RDR                                        C5647000

00294C 9604 B0C2      000C2        8494          OI    $STATUS,$SYSEXIT    SET FOR SYSTEM EXIT                  C5648000
002950 5840 C134      00134        8495          L     R4,=V($RDRPCE)      POINT TO READER CONTROL WORD.        C5650000
                                   8496 *        ICM   R4,15,0(R4)         GET RDR CONTROL WORD            RFIT C5652000

COMM     HASP COMMAND PROCESSOR HASPCSY2 - STOP HASP COMMAND                                                   PAGE  205


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

002954 5840 4000      00000        8497          L     R4,0(,R4)                                           RFIT C5652010
002958 4780 8106      0296E        8498          BZ    CPSFORCE            IF ZERO, READER IS CLOSED.           C5654000
00295C 58F0 C138      00138        8499          L     R15,=V(XWARM)       ELSE WARM UP                         C5656000
002960 05EF                        8500          BALR  R14,R15             THE READER AND                       C5658000
                                   8501          $ENABLE ALL               MUST RE-ENABLE AFTER XWARM      RFIT C5659000
002962 8000 B0C8      000C8        8502+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   8503         $WAIT  HOLD                WAIT FOR IT TO CLOSE.                C5660000
002966 9610 D049      00049        8504+         OI    PCEEWF+$EWBHOLD,$EWFHOLD                                 WA016000
00296A 45F0 B030      00030        8505+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
00296E                             8506 CPSFORCE DS    0H                                                       C5662000

                                   8507 * SIGNAL HASP WTO SUBTASK TO TERMINATE                                  C5664000

00296E 5810 C124      00124        8508          L     R1,CPSWTOEB         POINT TO COMMUNICATIONS ECB          C5666000
                                   8509          POST  (1)                 POST TO ALLOW TERMINATION            C5668000

002972 1B00                        8510+         SR    0,0                    . SET POST CODE REG ZERO          00640021
002974 4110 1000      00000        8511+         LA    1,0(0,1)               . LOAD ECB REG 1, CLEAR HI BYTE   02250021
002978 0A02                        8512+         SVC   2                      . ISSUE THE POST SVC              08250021
                                   8513          WAIT  ECB=$WTOPECB        WAIT ON COMPLETION                   C5670000
00297A 4110 C11C      0011C        8514+         LA    1,$WTOPECB                        LOAD PARAMETER REG 1   00100000
00297E 4100 0001      00001        8515+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
002982 0A01                        8516+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
002984 5810 C120      00120        8517          L     R1,CPSWTOTB         POINT TO TCB POINTER                 C5672000
                                   8518          DETACH (1)                REMOVE TCB FROM CHAIN                C5674000
002988 0A3E                        8519+        SVC   62             ISSUE DETACH SVC                           00106020
                                   8520 * SIGNAL HASPWTR TO TERMINATE                                           C5680000
                                   8521          POST  $PWTRECB            SIGNAL HASPWTR TO DO $PHASP ACTIONS  C5682000

00298A 1B00                        8522+         SR    0,0                    . SET POST CODE REG ZERO          00640021
00298C 4110 C104      00104        8523+         LA    1,$PWTRECB             . LOAD ECB ADDRESS IN REG 1       02350021

002990 0A02                        8524+         SVC   2                      . ISSUE THE POST SVC              08250021

                                   8525          WAIT  ECB=$NWTRECB        WAIT FOR HASPWTR TO END              C5684000
002992 4110 C108      00108        8526+         LA    1,$NWTRECB                        LOAD PARAMETER REG 1   00100000
002996 4100 0001      00001        8527+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
00299A 0A01                        8528+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
                                   8529          DETACH $WTRTCBA           DETACH HASPWTR TCB                   C5686000
00299C 4110 C10C      0010C        8530+         LA    1,$WTRTCBA                        LOAD PARAMETER REG 1   00100000
0029A0 0A3E                        8531+        SVC   62             ISSUE DETACH SVC                           00106020
                                   8532          AIF   (&NUMSMFB LT 2).CNOSMF                                   C5687000
                                   8533 * SIGNAL HASPACCT TO TERMINATE                                          C5688000
                            00000  8534          USING SMFDSECT,R1                                              C5690000
                                   8535         $GETSMFB WAIT=YES,OLAY=YES      OBTAIN BUFFER FOR TYPE 45 REC.  C5690200
0029A2 4110 0001      00001        8536+         LA    R1,1                WAIT FOR SMF IF NECESSARY            GM008000

0029A6 41E0 8148      029B0        8537+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
0029AA 1FE8                        8538+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
0029AC 47F0 B0A8      000A8        8539+         B     $GETSMFB            BRANCH TO CONTROL SERVICE PROGRAM    BA018000

0029B0 9200 1008      00008        8540          MVI   SMFRDW,0            CLEAR RECORD AREA                    C5690400
0029B4 D216 1009 1008 00009 00008  8541          MVC   SMFRDW+1(SMF45END-SMFRDW-1),SMFRDW                       C5690600
0029BA 922D 100D      0000D        8542          MVI   SMFHDRTY,SMFPSSTP   STOP HASP RECORD TYPE                C5690800
0029BE 9218 1009      00009        8543          MVI   SMFRDW+1,SMF45END-SMFRDW      SIZE OF SMF RECORD         C5691000
0029C2 9202 101B      0001B        8544          MVI   SMFSSID+1,SMFHSPID  HASP SUBSYSTEM ID                    C5691200
                                   8545         $QUESMFB OLAY=YES          QUEUE TYPE 45 TO BE WRITTEN          C5691400
0029C6 45E0 B0A4      000A4        8546+         BAL   LINK,$QUESMFB                                            QM006000
                                   8547          DROP  R1                                                       C5691600
                                   8548          WAIT  ECB=$PSMFECB        WAIT ON COMPLETION OF HASPACCT       C5692000
0029CA 4110 C110      00110        8549+         LA    1,$PSMFECB                        LOAD PARAMETER REG 1   00100000
0029CE 4100 0001      00001        8550+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
0029D2 0A01                        8551+         SVC   1                                 LINK TO WAIT ROUTINE   00280000

COMM     HASP COMMAND PROCESSOR HASPCSY2 - STOP HASP COMMAND                                                   PAGE  206


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   8552          DETACH $SMFTCBA           DETACH HASPACCT TCB                  C5694000
0029D4 4110 C114      00114        8553+         LA    1,$SMFTCBA                        LOAD PARAMETER REG 1   00100000

0029D8 0A3E                        8554+        SVC   62             ISSUE DETACH SVC                           00106020
                                   8555 .CNOSMF  ANOP                                                           C5696000
                                   8556          AIF   (&SYSMFT OR &SYSVS1).CPSMFT1                        RFIT C5698000
0029DA 1700                        8557          XR    R0,R0               Issue                       @THAS813 C5699020
0029DC 4110 8348      02BB0        8558          LA    R1,CPSBRDR           "STOP HOSBRDR"             @THAS813 C5699040
0029E0 0A22                        8559          SVC   34                    command                   @THAS813 C5699060

                                   8560 * STOP INITIATORS                                                       C5704000
0029E2 5820 C0F8      000F8        8561          L     WA,CDIPIT           GET ADDRESS OF PIT                   C5706000
0029E6 D200 8346 2001 02BAE 00001  8562 CPSINITL MVC   CPSINITV+18(1),PITICLAS(WA) SET CLASS IDENTIFICATION     C5708000
0029EC 1B00                        8563          SR    R0,R0               ISSUE                                C5710000
0029EE 4110 8334      02B9C        8564          LA    R1,CPSINITV          STOP                                C5712000
0029F2 0A22                        8565          SVC   34                    INITIATOR                          C5714000
0029F4 9101 2000      00000        8566          TM    PITSTAT(WA),PITLAST TEST FOR LAST                        C5716000
0029F8 4120 2014      00014        8567          LA    WA,PITLNGTH(0,WA)   UP TO NEXT JUST IN CASE              C5718000

0029FC 4780 817E      029E6        8568          BZ    CPSINITL            LOOP FOR NEXT                        C5720000

                                   8569          AIF   (&SYSVS2).CPSVS21                                   RFIT C5722000
                                   8570 * MVT WITHDRAWAL                                                   RFIT C5724000
                                   8571          $DISABLE ALL,OLAY=YES                                     RFIT C5726000
002A00 8000 B0C9      000C9        8572+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
002A04 5820 B178      00178        8573          L     WA,$SVCIOS          LOCATE IOS SVC ENTRY            RFIT C5728000
002A08 D203 2018 B170 00018 00170  8574          MVC   6*4(4,WA),$LINKENT  REPLACE LINK ENTRY IN SVC TABLE RFIT C5732000
002A0E D203 201C B174 0001C 00174  8575          MVC   7*4(4,WA),$XCTLENT  REPLACE XCTL ENTRY IN SVC TABLE RFIT C5734000
002A14 D203 208C B184 0008C 00184  8576          MVC   35*4(4,WA),$SVCWTO  REPLACE WTO(R) ENTRY IN SVC TBL RFIT C5736000
002A1A D203 2090 B188 00090 00188  8577          MVC   36*4(4,WA),$SVCWTL  REPLACE WTL ENTRY IN SVC TABLE  RFIT C5738000

                                   8578         $ENABLE ALL,OLAY=YES                                       RFIT C5740000
002A20 8000 B0C8      000C8        8579+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   8580 .CPSVS21 AGO   .CPSVS22                                            RFIT C5742000
                                   8581 .CPSVS22 ANOP                                                      RFIT C5798000
                                   8582          AIF   (NOT &AUTORDR).CPSNAUT                           OY08663 C5824000

                                   8583          AIF   (&SYSVS2).CPSVS23                                   RFIT C5826000
002A24 5820 B15C      0015C        8584          L     WA,$ATTNENT         GET ADDRESS OF ATTENTION ROUTINERFIT C5826100

002A28 D20B 2000 B18C 00000 0018C  8585          MVC   0(12,WA),$ATTNSAV   RESTORE REMOVED BYTES           RFIT C5826200
                                   8586 .CPSVS23 ANOP                                                      RFIT C5826300
                                   8587 * CLEAR UCBATI FOR LOCAL READERS                                        C5828000
                            00000  8588          USING DCTDSECT,WA                                              C5832000
002A2E 5820 B0F0      000F0        8589          L     WA,$DCTPOOL         START AT FIRST DCT                   C5834000
002A32 4120 2000      00000        8590 CPSPURIF LA    WA,0(0,WA)          PURIFY POINTER                       C5836000
002A36 1222                        8591          LTR   WA,WA               TEST FOR END                         C5838000
002A38 4780 825C      02AC4        8592          BE    CPSRDRX             IF SO, FINISHED READER REMOVAL       C5840000

002A3C 9520 2012      00012        8593          CLI   DCTDEVTP,DCTPRT     TEST DEVICE TYPE             OY02728 C5840050
002A40 4770 8236      02A9E        8594          BNE   CPSPRTN             BRANCH IF NOT LOCAL PRINTER  OY02728 C5840100
002A44 5830 2008      00008        8595          L     WB,DCTDCB           GET DCB ADDRESS              OY02728 C5840150
002A48 5830 302C      0002C        8596          L     WB,DCBDEBAD-DCBDSECT(,WB) GET DEB ADDRESS        OY02728 C5840200
002A4C 4830 3022      00022        8597          LH    WB,DEBUCBAD+2-DEBDSECT(,WB) GET UCB ADDRESS      OY02728 C5840250

002A50 1233                        8598          LTR   WB,WB               HAS DEB BEEN INITIALIZED     OY02728 C5840300
002A52 4780 8236      02A9E        8599          BZ    CPSPRTN             BRANCH IF NO                 OY02728 C5840350
                            00000  8600          USING UCBDSECT,WB         ACTIVATE UCB ADDRESSABILITY  OY02728 C5840400

002A56 9509 3013      00013        8601          CLI   UCBTBYT4,X'09'      TEST DEVICE TYPE             OY02728 C5840450
002A5A 4770 8236      02A9E        8602          BNE   CPSPRTN             BRANCH IF NOT 3211           OY02728 C5840500
002A5E 5830 301C      0001C        8603          L     WB,UCBXTADR         ADDRESS UCB EXTENSION        OY02728 C5840550
                            00000  8604          USING UCBUCS,WB           UCB EXTENSION ADDRESSABILITY OY02728 C5840600
002A62 1F11                        8605          SLR   R1,R1               GET ZERO REGISTER            OY02728 C5840650
                                   8606 *        ICM   R1,1,UCBERADR       GET AND TEST OPEN DCB COUNT     RFIT C5840700
COMM     HASP COMMAND PROCESSOR HASPCSY2 - STOP HASP COMMAND                                                   PAGE  207



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

002A64 4310 300C      0000C        8607          IC    R1,UCBERADR                                         RFIT C5840710
002A68 1211                        8608          LTR   R1,R1                                               RFIT C5840715
002A6A 4780 8236      02A9E        8609          BZ    CPSPRTN             BRANCH IF ZERO               OY02728 C5840750
002A6E 0610                        8610          BCTR  R1,0                DECREMENT COUNT BY 1         OY02728 C5840800

002A70 4210 300C      0000C        8611          STC   R1,UCBERADR         STORE IN UCB                 OY02728 C5840850
002A74 1211                        8612          LTR   R1,R1               IS THIS LAST USER            OY02728 C5840900
002A76 4770 8236      02A9E        8613          BNZ   CPSPRTN             BRANCH IF NO                 OY02728 C5840950
                                   8614 *        ICM   R1,15,UCNERADR      GET, TEST LOG AREA ADDRESS      RFIT C5841000

002A7A 5810 300C      0000C        8615          L     R1,UCBERADR                                         RFIT C5841010
002A7E 1211                        8616          LTR   R1,R1                                               RFIT C5841015
002A80 4780 8236      02A9E        8617          BZ    CPSPRTN             BRANCH IF ZERO               OY02728 C5841050
                                   8618          FREEMAIN R,LV=570,A=(R1),SP=245 FREE LOG AREA          OY02728 C5841100
002A84                             8619+         CNOP  0,4                                                      02880000
002A84 47F0 8224      02A8C        8620+         B     *+8                               BRANCH AROUND SP+LV    02900000

002A88 F5                          8621+         DC    AL1(245)                          SUBPOOL VALUE          02920000
002A89 00023A                      8622+         DC    AL3(570)                          LENGTH                 02940000
002A8C 5800 8220      02A88        8623+         L     0,*-4                             LOAD SP AND LV         02960000
002A90 1811                        8624+         LR    1,R1                              LOAD AREA ADDRESS      03260000
002A92 4111 0000      00000        8625+         LA    1,0(1)                       CLEAR THE HIGH ORDER BYTE   03130018

002A96 0A0A                        8626+         SVC   10                      ISSUE FREEMAIN SVC         P2504 03140021
002A98 D703 300C 300C 0000C 0000C  8627          XC    UCBERADR,UCBERADR   CLEAR UCB LOG AREA ADDRESS   OY02728 C5841150
002A9E                             8628 CPSPRTN  DS    0H                  END OF LOG BUFFER ROUTINE    OY02728 C5841200
002A9E 9510 2012      00012        8629          CLI   DCTDEVTP,DCTRDR     TEST FOR READER                      C5842000
002AA2 4770 8254      02ABC        8630          BNE   CPSRDRN             IF NOT, GO TO NEXT                   C5844000

002AA6 5830 2008      00008        8631          L     WB,DCTDCB           PICK UP DCB                          C5846000
002AAA 5830 302C      0002C        8632          L     WB,DCBDEBAD-DCBDSECT(0,WB) PICK UP DEB                   C5848000
002AAE 4830 3022      00022        8633          LH    WB,DEBUCBAD+2-DEBDSECT(0,WB) PICK UP UCB ADDRESS         C5850000
002AB2 1233                        8634          LTR   WB,WB               IS DEB INITIALIZED                   C5852000
002AB4 4780 8254      02ABC        8635          BZ    CPSRDRN             IF DEB NOT INITIALIZED, DO NEXT      C5854000

                            00000  8636          USING UCBDSECT,WB                                              C5856000
002AB8 9200 300B      0000B        8637          MVI   UCBATI,0            SET TO IGNORE ATTENTIONS             C5858000
002ABC 5820 2014      00014        8638 CPSRDRN  L     WA,DCTCHAIN         PICK UP NEXT DCT                     C5860000
002AC0 47F0 81CA      02A32        8639          B     CPSPURIF            AND PURIFY                           C5862000
                                   8640          DROP  WA,WB                                                    C5864000

002AC4                             8641 CPSRDRX  DS    0H                                                       C5866000
                                   8642 .CPSNAUT ANOP                                                           C5868000
                                   8643 * VARY PSEUDO DEVICES OFFLINE                                           C5869000
002AC4 5820 0010      00010        8644          L     WA,CVTPTR           THIS CODE, TO CPSEUEND, RESTORES     C5870000
                            00000  8645          USING CVTDSECT,WA         ALL PSEUDO-UNIT UCB'S.               C5872000
002AC8 5820 2028      00028        8646          L     WA,CVTILK2          POINT TO THE                         C5874000

                                   8647          DROP  WA                    UCB LOOKUP TABLE.                  C5876000
002ACC 4830 2000      00000        8648 CPSEUDO  LH    WB,0(,WA)           GET THE ADDRESS OF A UCB.            C5878000
002AD0 4120 2002      00002        8649          LA    WA,2(,WA)           UP LOOKUP TABLE PTR FOR NEXT TIME.   C5880000
002AD4 1233                        8650          LTR   WB,WB               TEST THE UCB POINTER.                C5882000

002AD6 4780 8264      02ACC        8651          BZ    CPSEUDO             B IF DUMMY POINTER.                  C5884000
002ADA 4740 8286      02AEE        8652          BM    CPSEUEND            B IF LOOKUP TABLE END.               C5886000
                            00000  8653          USING UCBDSECT,WB         USE THE UCB DSECT.                   C5888000
002ADE 9101 300B      0000B        8654          TM    UCBATI,1            IS THIS A PSEUDO-UNIT...             C5890000
002AE2 4780 8264      02ACC        8655          BZ    CPSEUDO             IF NOT, GET NEXT UCB POINTER.        C5892000

002AE6 943F 3003      00003        8656          NI    SRTESTAT,255-SRTEONLI-SRTECHGS  VARY OFFLINE.            C5896000
002AEA 47F0 8264      02ACC        8657          B     CPSEUDO             THEN GET NEXT UCB POINTER.           C5898000
002AEE                             8658 CPSEUEND DS    0H                  END OF PSEUDO-UNIT RESTORE.          C5900000
                                   8659          DROP  WB                  DROP UCB DSECT.                      C5902000
                                   8660 *RELEASE SPOOL VOLUMES                                                  C5903000
002AEE 5820 B104      00104        8661          L     WA,$DCBLIST         PICK UP ADDRESS OF DISK DCB          C5904000
COMM     HASP COMMAND PROCESSOR HASPCSY2 - STOP HASP COMMAND                                                   PAGE  208



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   8662          LA    R1,&NUMDA           SET MAXIMUM COUNT                    C5906000
002AF2 4110 0002      00002        8663+         LA    R1,2                SET MAXIMUM COUNT                    C5906000

002AF6 5820 202C      0002C        8664          L     WA,DCBDEBAD-DCBDSECT(0,WA) PICK UP DEB ADDRESS           C5908000
002AFA 4830 2022      00022        8665 CPSDAL   LH    WB,DEBUCBAD+2-DEBDSECT(0,WA) PICK UP UCB ADDRESS         C5910000
002AFE 1233                        8666          LTR   WB,WB               IS DEB INITIALIZED                   C5912000
002B00 4780 82B8      02B20        8667          BZ    CPSDAN              IF NOT, DO NEXT                      C5914000
002B04 94DF 3003      00003        8668          NI    SRTESTAT-UCBDSECT(WB),255-SRTERESV RESET RESERVED BIT    C5916000

002B08 9102 3013      00013        8669          TM    UCBTBYT4-UCBDSECT(WB),2 CHECK FOR DRUM                   C5916200
002B0C 4710 82B8      02B20        8670          BO    CPSDAN              IF DRUM SKIP PRES-RES RESET          C5916400
002B10 9724 3003      00003        8671          XI    SRTESTAT-UCBDSECT(WB),SRTEPRES+SRTERESV REMOVABLE        C5916800
002B14 9500 3038      00038        8672          CLI   SRTEUSER-UCBDSECT(WB),0 TEST FOR CURRENT USERS           C5917000
002B18 4770 82B8      02B20        8673          BNZ   CPSDAN              SKIP DEALLOCATION IF YES             C5917200
002B1C 94F7 3003      00003        8674          NI    SRTESTAT-UCBDSECT(WB),255-SRTEALOC DEALLOCATE            C5917400
002B20 4120 2010      00010        8675 CPSDAN   LA    WA,16(0,WA)         UP TO NEXT EXTENT ( OFFSET )         C5918000
002B24 4610 8292      02AFA        8676          BCT   R1,CPSDAL           LOOP FOR ALL DISKS                   C5920000

002B28 94BF B0C2      000C2        8677          NI    $STATUS,255-$ALMSGSW RESET ALL AVAILABLE SWITCH          C5922000
                                   8678 CPSENDL  $DISABLE ALL,OLAY=YES     DISABLE INTERRUPTS                   C5924000

002B2C 8000 B0C9      000C9        8679+CPSENDL  SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
002B30 1B00                        8680          SR    R0,R0               ZERO TEST REGISTER                   C5926000
002B32 5900 B114      00114        8681          C     R0,$COMMQUE         IS QUEUE EMPTY                       C5928000
002B36 4780 82E4      02B4C        8682          BE    CPSWAIT             WAIT FOR $POSTS                      C5930000
002B3A 5810 B114      00114        8683          L     R1,$COMMQUE         PICK UP BUFFER                       C5932000

                            00000  8684          USING CMBDSECT,R1                                              C5934000
002B3E D203 B114 1000 00114 00000  8685          MVC   $COMMQUE,CMBCHAIN   MAKE NEXT BUFFER THE FIRST           C5936000
002B44 45E0 B09C      0009C        8686          BAL   LINK,$FREEMSG       FREE BUFFER                          C5938000
002B48 47F0 82C4      02B2C        8687          B     CPSENDL             LOOP                                 C5940000
                                   8688          DROP  R1                                                       C5942000
                                   8689 CPSWAIT  $ENABLE ALL,OLAY=YES      ALLOW INTERRUPTS                     C5944000
002B4C 8000 B0C8      000C8        8690+CPSWAIT  SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   8691          $WAIT WORK                WAIT FOR WORK                        C5946000
002B50 9620 D049      00049        8692+         OI    PCEEWF+$EWBWORK,$EWFWORK                                 WA016000

002B54 45F0 B030      00030        8693+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

002B58 47F0 82C4      02B2C        8694          B     CPSENDL             GET RID OF ANY BUFFERS               C5948000
                                   8695 CPSRET   $CRET MSG=CPHASP,L=CPSL   SEND DIAGNOSTIC                      C5950000
002B5C                             8696+CPSRET   DS    0H                                                       NU006000
002B5C 4100 0010      00010        8697+         LA    R0,CPSL                                                  C0230000
002B60 D20F D068 8306 00068 02B6E  8698+         MVC   COMMAND(CPSL),CPHASP                                     C0248000

002B66 41F0 0008      00008        8699+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
002B6A 45E0 B088      00088        8700+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
002B6E C8C1E2D740D5D6E3            8701 CPHASP   DC    C'HASP NOT DORMANT'                                      C5952000
                            00010  8702 CPSL     EQU   *-CPHASP                                                 C5954000
                                   8703 CPSXBCAN DC    0F'0',AL2(15,0),CL22'C &XBATCHN.CID' CAN XEQ BATCH PROGS C5956000
002B7E 0000
002B80 000F0000C3405B5B            8704+CPSXBCAN DC    0F'0',AL2(15,0),CL22'C $$$$$CID'     CAN XEQ BATCH PROGS C5956000
                            000EC  8705 CPSCKPCE EQU   CAACKPT             CHECKPOINT PCE ADDRESS               C5958000
002B9A 0000
002B9C 00140000D740C9D5            8706 CPSINITV DC    0F'0',AL2(20,0),CL16'P INIT.HOSINIT*'                    C5958100

002BB0 00160000D740C8D6            8707 CPSBRDR  DC    0F'0',AL2(CPSBRDRL,0),C'P HOSBRDR.HOSBRDR '     @THAS813 C5958130

                            00016  8708 CPSBRDRL EQU   *-CPSBRDR                                       @THAS813 C5958160
COMM     HASP COMMAND PROCESSOR HASPCSY3 - SET MESSAGE ROUTING                                                 PAGE  209


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   8710 HASPCSY3 $COMGRUP TM,PRTY=0        SET MESSAGE ROUTING                  C5958300

002BC8                             8711+HA$OCSY3 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            02BC8  8712+HA$ICSY3 EQU   HA$OCSY3+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   8713+         ENTRY HA$ICSY3                                                 OV036000
002BC8 C3E2E8F3                    8714+         DC    CL4'CSY3'           IDENTIFY MODULE ON CORE DUMP         OV038000
002BCC 00002BC8                    8715+         DC    A(HA$OCSY3)         ASSEMBLY ORIGIN                      OV040000
002BD0                             8716+HASPCSY3 DS    0F                  ENTRY POINT                          OV042000
                            02B70  8717+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                            02BD0  8718+COTM            EQU HASPCSY3                                            C0146000
                                   8719 ******************************************************************      C5958400
                                   8720 *                                                                       C5958500
                                   8721 *        $TMCCA,LIST -- SET MESSAGE ROUTING                             C5958600

                                   8722 *        CC    = CONSOLE TO RECEIVE THE RESPONSE                        C5958700
                                   8723 *        A     = AREA OF CONSOLE CC                                     C5958800
                                   8724 *        LIST  = DISPLAY COMMAND OPERANDS FOR CONSOLE CC AREA A         C5958900
                                   8725 *                ( NO COMMAS BETWEEN LIST ITEMS )                       C5959000

                                   8726 *                                                                       C5959100
                                   8727 ******************************************************************      C5959200
002BD0                             8728 CTM      DS    0H                                                       C5959300
002BD0 1B33                        8729          SR    WB,WB               ZERO WORK                            C5959400
002BD2 5030 D05C      0005C        8730          ST    WB,COMEWORK         ALSO WORK AREA                       C5959500
002BD6 1B22                        8731          SR    WA,WA               ZERO CONSOLE ACCUMULATOR             C5959600
002BD8 4320 D059      00059        8732          IC    WA,COMROUTE         ASSUME ENTRY ALSO RESPONSE CON       C5959700
002BDC 4110 D06A      0006A        8733          LA    R1,COMOPRND         SET ERROR LOCATOR                    C5959800
002BE0 9110 D058      00058        8734          TM    COMFLAGS,WCMBFF     IS OPERAND VALID FOR CONSOLE         C5959900
002BE4 4780 8260      02DD0        8735          BZ    CTMINVO             IF NOT OS CONSOLE, NO                C5960000
002BE8 9505 D059      00059        8736          CLI   COMROUTE,COMCONO    DID USER GEN LARGE ENOUGH TAB        C5960100
002BEC 4720 8232      02DA2        8737          BH    CTMERROR            EXIT IF NO                           C5960200

002BF0 1842                        8738          LR    WC,WA               GET ENTRY CONSOLE                    C5960300
002BF2 4C40 C08E      0008E        8739          MH    WC,COMLCON          CALCULATE OFFSET (1 TOO HIGH)        C5960400
002BF6 4144 C07E      0007E        8740          LA    WC,COMRESP-COMCONL(WC) POINT TO ELEMENTS                 C5960500

002BFA 41F0 1001      00001        8741          LA    R15,1(0,R1)         POINT TO NUMERIC                     C5960600
002BFE 9540 F000      00000        8742          CLI   0(R15),C' '         CHECK FOR DISPLAY ONLY               C5960700
002C02 4780 814C      02CBC        8743          BE    CTMDISP             DISPLAY                              C5960800
002C06 95F0 F000      00000        8744          CLI   0(R15),C'0'         IS IT NUMERIC                        C5960900
002C0A 4740 80D4      02C44        8745          BL    CTMGETA             IF NOT TRY AREA                      C5961000
002C0E D100 D05F F000 0005F 00000  8746          MVN   COMEWORK+3(1),0(R15) EXTRACT NUMERIC                     C5961100
002C14 5820 D05C      0005C        8747          L     WA,COMEWORK         PICK UP RESPONSE CONSOLE             C5961200
002C18 41F0 F001      00001        8748          LA    R15,1(0,R15)        UP 1                                 C5961300
002C1C 95F0 F000      00000        8749          CLI   0(R15),C'0'         CHECK SECOND NUMERIC                 C5961400
002C20 4740 80C6      02C36        8750          BL    CTMCKC              IF NOT CHECK FOR SUPPORTED           C5961500
002C24 4C20 82A0      02E10        8751          MH    WA,CTM10            MULTIPLY BY 10                       C5961600
002C28 D100 D05F F000 0005F 00000  8752          MVN   COMEWORK+3(1),0(R15) EXTRACT NUMERIC                     C5961700

002C2E 5A20 D05C      0005C        8753          A     WA,COMEWORK         ADD UNITS DIGIT                      C5961800

002C32 41F0 F001      00001        8754          LA    R15,1(0,R15)        UP 1                                 C5961900
002C36 1222                        8755 CTMCKC   LTR   WA,WA               CHECK FOR ZERO                       C5962000

002C38 4780 8260      02DD0        8756          BZ    CTMINVO             EXIT ON ZERO                         C5962100
002C3C 4920 C08C      0008C        8757          CH    WA,COMOCON          CONSOLE TOO HIGH                     C5962200
002C40 4720 8260      02DD0        8758          BH    CTMINVO             EXIT IF TOO HIGH                     C5962300
002C44 95E9 F000      00000        8759 CTMGETA  CLI   0(R15),C'Z'         IS THIS AREA Z                       C5962400
002C48 4780 811E      02C8E        8760          BE    CTMCOMBZ            IF SO COMBINE AREA AND UCM           C5962500
002C4C 956B F000      00000        8761          CLI   0(R15),C','         IS IT COMMA                          C5962600
002C50 4780 8122      02C92        8762          BE    CTMCOMBA            IF SO COMBINE AREA AND UCM           C5962700
002C54 9540 F000      00000        8763          CLI   0(R15),C' '         IS IT BLANK                          C5962800
002C58 4780 8122      02C92        8764          BE    CTMCOMBA            IF SO COMBINE AREA AND UCM           C5962900
COMM     HASP COMMAND PROCESSOR HASPCSY3 - SET MESSAGE ROUTING                                                 PAGE  210


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

002C5C D100 D05F F000 0005F 00000  8765          MVN   COMEWORK+3(1),0(R15) SET NUMERIC                         C5963000

002C62 5830 D05C      0005C        8766          L     WB,COMEWORK         SET AREA                             C5963100
002C66 95C1 F000      00000        8767          CLI   0(R15),C'A'         BELOW A                              C5963200

002C6A 4740 8260      02DD0        8768          BL    CTMINVO             IF YES EXIT                          C5963300

002C6E 95C9 F000      00000        8769          CLI   0(R15),C'I'         IS IT SET NOW                        C5963400
002C72 47D0 811A      02C8A        8770          BNH   CTMCOMB             IF SO COMBINE AREA AND UCM           C5963500
002C76 4130 3009      00009        8771          LA    WB,9(0,WB)          UP BY 9                              C5963600
002C7A 95D1 F000      00000        8772          CLI   0(R15),C'J'         IS IT WITHIN RANGE                   C5963700
002C7E 4740 8260      02DD0        8773          BL    CTMINVO             IF NOT EXIT                          C5963800
002C82 95D6 F000      00000        8774          CLI   0(R15),C'O'         CHECK HIGH END                       C5963900
002C86 4720 8260      02DD0        8775          BH    CTMINVO             EXIT IF HIGH                         C5964000
002C8A 8930 001C      0001C        8776 CTMCOMB  SLL   WB,32-4             ALIGN 4 BITS AT END OF REG           C5964100
002C8E 41F0 F001      00001        8777 CTMCOMBZ LA    R15,1(0,R15)        UP 1                                 C5964200
002C92 8D20 0008      00008        8778 CTMCOMBA SLDL  WA,8                COMBINE UCM AND AREA                 C5964300
002C96 956B F000      00000        8779          CLI   0(R15),C','         IS IT ALL OR LIST                    C5964400
002C9A 4780 81F0      02D60        8780          BE    CTMLIST             USE LIST                             C5964500

002C9E 9540 F000      00000        8781          CLI   0(R15),C' '         IS IT BLANK                          C5964600
002CA2 4770 8260      02DD0        8782          BNZ   CTMINVO             ERROR IF NOT                         C5964700
                                   8783 * USER WANTS TO SET ALL OPERANDS                                        C5964800

002CA6 4800 C08E      0008E        8784          LH    R0,COMLCON          GET COUNT*2                          C5964900
002CAA 8A00 0001      00001        8785          SRA   R0,1                HALVE IT                             C5965000
002CAE 1834                        8786          LR    WB,WC               POINT TO FIRST ELEMENT               C5965100
                                   8787 *CTMALL  STCM  WA,3,0(WB)          SET RESPONSE CONSOLE            RFIT C5965200
002CB0 4020 3000      00000        8788 CTMALL   STH   WA,0(,WB)                                           RFIT C5965205
002CB4 4130 3002      00002        8789          LA    WB,2(0,WB)          UP 2 ( NEXT ELEMENT )                C5965300
002CB8 4600 8140      02CB0        8790          BCT   R0,CTMALL           LOOP                                 C5965400
                                   8791 * DISPLAY CURRENT SETTINGS                                              C5965500
002CBC 4160 0006      00006        8792 CTMDISP  LA    WE,6                SET INCREMENT                        C5965600
002CC0 4170 D0A8      000A8        8793          LA    WF,COMMAND+70-6     SET END                              C5965700
002CC4 4830 C08E      0008E        8794          LH    WB,COMLCON          PICK UP LENGTH OF ELEMENTS           C5965800
002CC8 8A30 0001      00001        8795          SRA   WB,1                HALVE TO GET NUMBER                  C5965900

002CCC 1B55                        8796          SR    WD,WD               SET OFFSET                           C5966000
002CCE 1B00                        8797          SR    R0,R0               ZERO WORK                            C5966100
002CD0 4300 D059      00059        8798          IC    R0,COMROUTE         PICK UP ENTRY CONSOLE                C5966200

002CD4 D202 D068 82CD 00068 02E3D  8799          MVC   COMMAND(3),CTMCON   SET 'CON'                            C5966300
                                   8800          $CFCVE VALUE=(R0),SYMBOL=CTMCVE CONVERT TO EBCDIC              C5966400
002CDA 45E0 8288      02DF8        8801+         BAL   LINK,CTMCVE                                              C0674000
002CDE D202 D06B D062 0006B 00062  8802          MVC   COMMAND+3(3),COMDWORK+2 INSERT                           C5966500
002CE4 4120 D068      00068        8803 CTMDNLN  LA    WA,COMMAND          SET TO START OF LINE                 C5966600
002CE8 1B00                        8804          SR    R0,R0               ZERO WORK                            C5966700
002CEA 8626 81E0      02D50        8805 CTMDNXE  BXH   WA,WE,CTMELN        END OF LINE TEST                     C5966800
002CEE 4305 4000      00000        8806          IC    R0,COMCON(WD,WC)    PICK UP CONSOLE ID                   C5966900
                                   8807          $CFCVE VALUE=(R0),SYMBOL=CTMCVE CONVERT TO EBCDIC              C5967000
002CF2 45E0 8288      02DF8        8808+         BAL   LINK,CTMCVE                                              C0674000
002CF6 D204 2000 D060 00000 00060  8809          MVC   0(5,WA),COMDWORK    SET OUTPUT ITEM '   CC'              C5967100
002CFC 927E 2002      00002        8810          MVI   2(WA),C'='          SET '  =CC'                          C5967200

002D00 1BEE                        8811          SR    R14,R14             ZERO WORK                            C5967300
002D02 43E5 4001      00001        8812          IC    R14,COMCONA(WD,WC)  PICK UP AREA                         C5967400
002D06 8AE0 0004      00004        8813          SRA   R14,4               ALIGN                                C5967500
002D0A 41EE 82A2      02E12        8814          LA    R14,CTMCATAB(R14)   POINT TO AREA CHARACTER              C5967600

002D0E D200 2005 E000 00005 00000  8815          MVC   5(1,WA),0(R14)      SET '  =CCA'                         C5967700
002D14 41E0 82B0      02E20        8816          LA    R14,CTMTAB-2        POINT TO CONVERT TAB -2              C5967800
002D18 41E0 E002      00002        8817 CTMDL    LA    R14,2(0,R14)        UP 2                                 C5967900
002D1C 95FF E000      00000        8818          CLI   0(R14),X'FF'        IS IT END                            C5968000
002D20 4780 8232      02DA2        8819          BE    CTMERROR            EXIT ON ERROR                        C5968100
COMM     HASP COMMAND PROCESSOR HASPCSY3 - SET MESSAGE ROUTING                                                 PAGE  211



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   8820 *        CLM   WD,1,1(R14)         CHECK FOR MATCHING OFFSET       RFIT C5968200
002D24 5050 D05C      0005C        8821          ST    WD,COMEWORK                                         RFIT C5968205
002D28 D500 D05F E001 0005F 00001  8822          CLC   COMEWORK+3(1),1(R14)                                RFIT C5968210
002D2E 4770 81A8      02D18        8823          BNE   CTMDL               LOOP                                 C5968300
002D32 D200 2001 E000 00001 00000  8824          MVC   1(1,WA),0(R14)      SET ' O=CCA'                         C5968400
002D38 4150 5002      00002        8825          LA    WD,2(0,WD)          UP TO NEXT ELEMENT                   C5968500
002D3C 4630 817A      02CEA        8826          BCT   WB,CTMDNXE          LOOP TO NEXT ELEMENT                 C5968600

002D40 4100 D062      00062        8827          LA    R0,COMMAND-6        CALCULATE                            C5968700
002D44 1B20                        8828          SR    WA,R0                LENGTH                              C5968800

002D46 1802                        8829          LR    R0,WA                OF MESSAGE                          C5968900
                                   8830          $CRET L=(R0)              DISPLAY AND EXIT                     C5969000
002D48                             8831+         DS    0H                                                       NU006000
002D48 41F0 0008      00008        8832+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
002D4C 45E0 B088      00088        8833+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   8834 * END OF DISPLAY LINE                                                   C5969100
002D50 4100 D062      00062        8835 CTMELN   LA    R0,COMMAND-6        CALCULATE                            C5969200
002D54 1B20                        8836          SR    WA,R0                LENGTH                              C5969300

002D56 1802                        8837          LR    R0,WA                OF MESSAGE                          C5969400
                                   8838          $CWTO L=(R0)              DISPLAY                              C5969500
002D58                             8839+         DS    0H                                                       NU006000
002D58 4520 C00C      0000C        8840+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
002D5C 47F0 8174      02CE4        8841          B     CTMDNLN             DO NEXT LINE                         C5969600

                                   8842 * LIST ITEMS DESIRED                                                    C5969700
002D60 4110 F001      00001        8843 CTMLIST  LA    R1,1(0,R15)         POINT TO FIRST SPECIFICATION         C5969800
002D64 9540 1000      00000        8844 CTMTBNK  CLI   0(R1),C' '          CHECK FOR END                        C5969900

002D68 4780 814C      02CBC        8845          BE    CTMDISP             DISPLAY SETTINGS IF END              C5970000
002D6C 41E0 82B0      02E20        8846          LA    R14,CTMTAB-2        POINT TO CONVERT TABLE - 2           C5970100
002D70 41E0 E002      00002        8847 CTMLNXT  LA    R14,2(0,R14)        UP TO NEXT                           C5970200
002D74 95FF E000      00000        8848          CLI   0(R14),X'FF'        IS IT END                            C5970300
002D78 4780 8260      02DD0        8849          BE    CTMINVO             EXIT ON ERROR                        C5970400
002D7C D500 E000 1000 00000 00000  8850          CLC   0(1,R14),0(R1)      MATCH SPECIFICATION                  C5970500
002D82 4770 8200      02D70        8851          BNE   CTMLNXT             LOOP                                 C5970600

002D86 1B33                        8852          SR    WB,WB               ZERO WORK                            C5970700
002D88 4330 E001      00001        8853          IC    WB,1(0,R14)         PICK UP OFFSET                       C5970800
002D8C 4930 C08E      0008E        8854          CH    WB,COMLCON          CHECK FOR COMPATIBLE                 C5970900
002D90 47B0 8232      02DA2        8855          BNL   CTMERROR            GEN BAD                              C5971000
002D94 1A34                        8856          AR    WB,WC               POINT TO ELEMENT                     C5971100

                                   8857 *        STCM  WA,3,0(WB)          SET                             RFIT C5971200
002D96 4020 3000      00000        8858          STH   WA,0(,WB)                                           RFIT C5971205
002D9A 4110 1001      00001        8859          LA    R1,1(0,R1)          UP TO NEXT                           C5971300
002D9E 47F0 81F4      02D64        8860          B     CTMTBNK             LOOP                                 C5971400

                                   8861 CTMERROR $CRET L=CTMEML,MSG=CTMEM  BAD GENERATION MESSAGE               C5971500
002DA2                             8862+CTMERROR DS    0H                                                       NU006000
002DA2 4100 001B      0001B        8863+         LA    R0,CTMEML                                                C0230000
002DA6 D21A D068 8244 00068 02DB4  8864+         MVC   COMMAND(CTMEML),CTMEM                                    C0248000
002DAC 41F0 0008      00008        8865+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
002DB0 45E0 B088      00088        8866+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000

002DB4 C5D5E3D9E840C3D6            8867 CTMEM    DC    C'ENTRY CONSOLE NOT SUPPORTED'                           C5971600
                            0001B  8868 CTMEML   EQU   *-CTMEM                                                  C5971700
                                   8869 CTMINVO  $CFINVO OPERAND=(R1)      INVALID OPERAND                      C5971800
                                   8870+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
002DCF 00

002DD0 D208 D068 1000 00068 00000  8871+CTMINVO  MVC   COMMAND(9),0(R1)                                         C1204000
002DD6 D20F D071 8278 00071 02DE8  8872+         MVC   COMMAND+9(16),COF0859 MOVE DIAGNOSTIC BEHIND TEXT        C1206000
002DDC                             8873+         DS    0H                                                       NU006000
COMM     HASP COMMAND PROCESSOR HASPCSY3 - SET MESSAGE ROUTING                                                 PAGE  212


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


002DDC 4100 0019      00019        8874+         LA    R0,25                                                    C0230000
002DE0 41F0 0008      00008        8875+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
002DE4 45E0 B088      00088        8876+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
002DE8 40C9D5E5C1D3C9C4            8877+COF0859  DC    C' INVALID OPERAND'                                      C1210000
                                   8878 CTMCVE   $CFCVE TYPE=DEF                                                C5971900

002DF8                             8879+CTMCVE   DS    0H                                                       NU006000
                                   8880+* CONVERT TO EBCDIC AND LEAVE ANSWER IN COMDWORK ( 5 DIGITS )           C0684000
002DF8 4E00 D060      00060        8881+         CVD   R0,COMDWORK         CONVERT TO DECIMAL                   C0686000
002DFC D205 D05F 829A 0005F 02E0A  8882+         MVC   COMDWORK-1(6),COF0863 MOVE MASK TO BLANK OUT HIGH ZEROS  C0688000
002E02 DE05 D05F D065 0005F 00065  8883+         ED    COMDWORK-1(6),COMDWORK+5 CONVERT TO EBCDIC               C0690000

002E08 07FE                        8884+         BR    LINK                RETURN                               C0694000
002E0A 402020202120                8885+COF0863  DC    X'402020202120'     MASK FOR EDIT                        C0696000
002E10 000A                        8886 CTM10    DC    H'10'               CONSTANT                             C5972000
002E12 E9C1C2C3C4C5C6C7            8887 CTMCATAB DC    C'ZABCDEFGHIJKLMNO' AREA ID TABLE                        C5972100
002E22                             8888 CTMTAB   DS    0H                  ITEMS IN LIST                        C5972200
002E22 C100                        8889          DC    C'A',AL1($DA*2-2)                                        C5972300

002E24 C602                        8890          DC    C'F',AL1($DF*2-2)                                        C5972400
002E26 C904                        8891          DC    C'I',AL1($DI*2-2)                                        C5972500
002E28 D106                        8892          DC    C'J',AL1($DJ*2-2)                                        C5972600
002E2A D308                        8893          DC    C'L',AL1($DL*2-2)                                        C5972700

002E2C D60A                        8894          DC    C'O',AL1($DO*2-2)                                        C5972800
002E2E D80C                        8895          DC    C'Q',AL1($DQ*2-2)                                        C5972900
002E30 E20E                        8896          DC    C'S',AL1($DS*2-2)                                        C5973000
002E32 E410                        8897          DC    C'U',AL1($DU*2-2)                                        C5973100
                                   8898 * OPTIONAL SPECIFICATIONS NOT DISPLAYED                                 C5973200

002E34 7D06                        8899          DC    X'7D',AL1($D7D*2-2)                                      C5973300
002E36 C410                        8900          DC    C'D',AL1($DD*2-2)                                        C5973400
002E38 D50C                        8901          DC    C'N',AL1($DN*2-2)                                        C5973500
002E3A D908                        8902          DC    C'R',AL1($DR*2-2)                                        C5973600
002E3C FF                          8903          DC    X'FF'               END OF TABLE                         C5973700
002E3D C3D6D5                      8904 CTMCON   DC    C'CON'              CONSTANT FOR MESSAGE                 C5973800
COMM     HASP COMMAND PROCESSOR HASPCMS1 - MISC DISPLAY COMMANDS                                               PAGE  213



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   8906 HASPCMS1 $COMGRUP DD,DL,DO,DR,DU,PRTY=0 MISCELLANEOUS DISPLAY           C5974000
002E40                             8907+HA$OCMS1 CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            02E40  8908+HA$ICMS1 EQU   HA$OCMS1+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   8909+         ENTRY HA$ICMS1                                                 OV036000
002E40 C3D4E2F1                    8910+         DC    CL4'CMS1'           IDENTIFY MODULE ON CORE DUMP         OV038000
002E44 00002E40                    8911+         DC    A(HA$OCMS1)         ASSEMBLY ORIGIN                      OV040000
002E48                             8912+HASPCMS1 DS    0F                  ENTRY POINT                          OV042000

                            02DE8  8913+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
002E48 4811 8060      02E48        8914+         LH    R1,HASPCMS1(R1)     PICK UP TABLE OFFSET                 C0118000
002E4C 47F1 8060      02E48        8915+         B     HASPCMS1(R1)        GO TO ROUTINE SELECTED               C0128000
002E50 0012                        8916+CODD             DC AL2(CDD-HASPCMS1)                                   C0134000
002E52 0084                        8917+CODL             DC AL2(CDL-HASPCMS1)                                   C0134000
002E54 0200                        8918+CODO             DC AL2(CDO-HASPCMS1)                                   C0134000
002E56 0284                        8919+CODR             DC AL2(CDR-HASPCMS1)                                   C0134000
002E58 0352                        8920+CODU             DC AL2(CDU-HASPCMS1)                                   C0134000

                                   8921 *********************************************************************** C5974100
                                   8922 *                                                                     * C5974200

                                   8923 *        $D D -- DISPLAY DIRECT ACCESS                                * C5976000
                                   8924 *                                                                     * C5978000
                                   8925 *        $DISPLAY DISKS                                               * C5980000
                                   8926 *                                                                     * C5982000
                                   8927 *********************************************************************** C5984000

002E5A 5840 0010      00010        8928 CDD      L     WC,$CVTPTR          PICK UP CVT POINTER                  C5986000
002E5E 5830 4028      00028        8929          L     WB,CVTILK2-CVTDSECT(,WC) PICK UP UCB LOOK UP TABLE       C5988000
002E62 9240 D06B      0006B        8930          MVI   COMMAND+3,C' '      SET SPACER TO BLANK                  C5990000
002E66 4820 3000      00000        8931 CDDL     LH    WA,0(0,WB)          POINT TO UCB                         C5992000
002E6A 4130 3002      00002        8932          LA    WB,2(0,WB)          NEXT IN CASE NOT A HIT               C5994000
002E6E 1222                        8933          LTR   WA,WA               LOOK FOR END OR NULL                 C5996000
002E70 4780 807E      02E66        8934          BZ    CDDL                LOOP IF NULL                         C5998000
002E74 4740 81B4      02F9C        8935          BM    CDLRET              RETURN IF END                        C6000000
                            00000  8936          USING UCBDSECT,WA                                              C6002000

002E78 9120 2012      00012        8937          TM    UCBTBYT3,UCB3DACC   IS THIS DIRECT ACCESS                C6004000

002E7C 4780 807E      02E66        8938          BZ    CDDL                IF NOT, LOOP TO NEXT                 C6006000
002E80 9180 2003      00003        8939          TM    SRTESTAT,SRTEONLI   IS DEVICE ON LINE                    C6008000
002E84 4780 807E      02E66        8940          BZ    CDDL                IF NOT, LOOP TO NEXT                 C6010000
002E88 5810 4028      00028        8941          L     R1,CVTILK2-CVTDSECT(,WC) PICK UP UCB LOOK UP TABLE       C6010200
002E8C 4800 1000      00000        8942 CDDL1    LH    R0,0(,R1)           POINT TO UCB                         C6010400

002E90 4110 1002      00002        8943          LA    R1,2(,R1)           NEXT IN CASE NOT A HIT               C6010600
002E94 1200                        8944          LTR   R0,R0               LOOK FOR NULL                        C6010800
002E96 4780 80A4      02E8C        8945          BZ    CDDL1               LOOP IF NULL                         C6011000
002E9A 1502                        8946          CLR   R0,WA               COMPARE UCB WITH CURRENT             C6011200
002E9C 4770 80A4      02E8C        8947          BNE   CDDL1               LOOP IF NOT CURRENT                  C6011400
002EA0 1513                        8948          CLR   R1,WB               COMPARE LOOK UP TABLE ENTRIES        C6011600
002EA2 4770 807E      02E66        8949          BNE   CDDL                IGNORE IF DUPLICATE ENTRY            C6011800
002EA6 D202 D068 200D 00068 0000D  8950          MVC   COMMAND(3),UCBNAME  SET NAME                             C6012000
002EAC D205 D06C 201C 0006C 0001C  8951          MVC   COMMAND+4(6),SRTEVOLI SET VOLUME SERIAL                  C6014000
002EB2 9500 201C      0001C        8952          CLI   SRTEVOLI,X'00'      LOOK FOR SERIAL PRESENT              C6016000

002EB6 4770 80D8      02EC0        8953          BNE   *+10                SKIP SETTING OF NO ID                C6018000

002EBA D205 D06C 83D8 0006C 031C0  8954          MVC   COMMAND+4(6),CDDNOID SET ' NO ID'                        C6020000
                                   8955          DROP  WA                                                       C6022000
                                   8956          $CWTO L=10                SEND MESSAGE                         C6024000
002EC0                             8957+         DS    0H                                                       NU006000

002EC0 4100 000A      0000A        8958+         LA    R0,10                                                    C0324000
002EC4 4520 C00C      0000C        8959+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
002EC8 47F0 807E      02E66        8960          B     CDDL                LOOP                                 C6026000
COMM     HASP COMMAND PROCESSOR HASPCMS1 - MISC DISPLAY COMMANDS                                               PAGE  214


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   8962 *********************************************************************** C6030000
                                   8963 *                                                                     * C6032000
                                   8964 *        $D LNEM -- DISPLAY REMOTE ATTACHED TO LINE M                 * C6034000
                                   8965 *        M     = LINE NUMBER                                          * C6036000
                                   8966 *                                                                     * C6038000
                                   8967 *********************************************************************** C6040000

                                   8968 CDL      $CFDCTL POINTER=(WD)      FIND DEVICE CONTROL TABLE            C6042000
002ECC 1815                        8969+CDL      LR    R1,WD                                                    DG018000
002ECE 9240 D05C      0005C        8970+         MVI   COMEWORK,C' '       BLANK OUT WORK AREA                  C0956000
002ED2 D206 D05D D05C 0005D 0005C  8971+         MVC   COMEWORK+1(7),COMEWORK CONTINUE                          C0958000

002ED8 58F0 1004      00004        8972+         L     R15,4(,R1)          LOCATE NEXT OPERAND                  C0960000
002EDC 5810 1000      00000        8973+         L     R1,0(0,R1)          LOCATE THIS ONE                      C0962000
002EE0 1BF1                        8974+         SR    R15,R1              LENGTH OF OPERAND + 1                C0964000
002EE2 46F0 8102      02EEA        8975+         BCT   R15,*+8             ACTUAL LENGTH                        C0966000
002EE6 47F0 8188      02F70        8976+         B     COF0872E            IF NULL, COMPARE AGAINST BLANK       C0968000
002EEA 06F0                        8977+         BCTR  R15,0               MACHINE LENGTH                       C0970000
002EEC 4100 0007      00007        8978+         LA    R0,7                SET MAXIMUM LENGTH                   C0972000
002EF0 15F0                        8979+         CLR   R15,R0              TEST FOR WITHIN MAXIMUM              C0974000
002EF2 47D0 8110      02EF8        8980+         BNH   *+6                 ACCEPT CURRENT LENGTH IF YES         C0976000
002EF6 18F0                        8981+         LR    R15,R0              SET TO MOVE EIGHT CHARACTERS         C0978000
002EF8 42F0 8115      02EFD        8982+         STC   R15,*+5             SET MACHINE LENGTH FOR MOVE          C0980000
002EFC D200 D05C 1000 0005C 00000  8983+         MVC   COMEWORK(*-*),0(R1) MOVE COMPLETE OPERAND                C0982000

002F02 D201 D066 D05F 00066 0005F  8984+         MVC   COMDWORK+6(2),COMEWORK+3 MOVE NUMERIC PART               C0984000
                                   8985+* CONVERT SHORT FORM OF DEVICE TO LONG FORM                             C0986000
002F08 4110 8142      02F2A        8986+         LA    R1,COF0872T        POINT TO CONVERT TABLE                C0988000

002F0C 43F0 1003      00003        8987+COF0872L IC    R15,3(0,R1)         PICK UP MACHINE LENGTH OF ANSWER     C0990000
002F10 D502 D05C 1000 0005C 00000  8988+         CLC   COMEWORK(3),0(R1)   LOOK FOR MATCH                       C0992000
002F16 4780 8174      02F5C        8989+         BE    COF0872F           IF MATCH REPLACE WITH LONG FORM       C0994000
002F1A 411F 1005      00005        8990+         LA    R1,5(R15,R1)        POINT TO NEXT TABLE ELEMENT          C0996000
002F1E 95FF 1000      00000        8991+         CLI   0(R1),X'FF'         CHECK FOR END OF TABLE               C0998000
002F22 4770 8124      02F0C        8992+         BNE   COF0872L            IF NOT, LOOP                         C1000000
002F26 47F0 8188      02F70        8993+         B     COF0872E            IF END, EXIT                         C1002000
                                   8994+* DEVICE ABBREVIATION TABLE                                             C1004000
002F2A                             8995+COF0872T DS    0H                                                       C1006000
002F2A D3D5C503D3C9D5C5            8996+         DC    C'LNE',X'03',C'LINE'                                     C1008000
002F32 D7D9E306D7D9C9D5            8997+         DC    C'PRT',X'06',C'PRINTER'                                  C1010000
002F3D D7E4D504D7E4D5C3            8998+         DC    C'PUN',X'04',C'PUNCH'                                    C1013000

002F46 D9C4D905D9C5C1C4            8999+         DC    C'RDR',X'05',C'READER'                                   C1014000

002F50 D9C4C905C9D5E3D9            9000+         DC    C'RDI',X'05',C'INTRDR'                                   C1018000
002F5A FF                          9001+         DC    X'FF'                                                    C1020000

                                   9002+* ARGUMENT FOUND, MOVE NUMERIC PORTION INTO PLACE                       C1022000
002F5B 00
002F5C 42F0 8179      02F61        9003+COF0872F STC   R15,*+5             SET MOVE INSTRUCTION                 C1024000
002F60 D200 D05C 1004 0005C 00004  9004+         MVC   COMEWORK(*-*),4(R1) MOVE LONG FORM OF TEXT               C1026000
002F66 41FF D05D      0005D        9005+         LA    R15,COMEWORK+1(R15) POINT TO END OF TEXT PORTION         C1028000
002F6A D201 F000 D066 00000 00066  9006+         MVC   0(2,R15),COMDWORK+6 MOVE IN NUMERIC                      C1030000
                                   9007+* LOCATE DEVICE CONTROL TABLE                                           C1032000
002F70 5810 B0F0      000F0        9008+COF0872E L     R1,$DCTPOOL         POINT TO FIRST DCT                   C1034000
002F74 D507 1018 D05C 00018 0005C  9009+COF0872K CLC   DCTDEVN-DCTDSECT(L'DCTDEVN,R1),COMEWORK LOOK FOR MATCH   C1036000
002F7A 4780 81A4      02F8C        9010+         BE    COF0872X            EXIT WITH DEVICE FOUND               C1044000
002F7E 5810 1014      00014        9011+         L     R1,DCTCHAIN-DCTDSECT(0,R1) LOOK AT NEXT DCT              C1046000
002F82 9500 1012      00012        9012+         CLI   DCTDEVTP-DCTDSECT(R1),DCTDA TEST FOR TOO FAR DOWN CHAIN  C1048000

002F86 4770 818C      02F74        9013+         BNE   COF0872K            LOOP IF NOT TOO FAR                  C1050000
002F8A 1B11                        9014+         SR    R1,R1               FLAG DCT NOT FOUND                   C1052000

002F8C                             9015+COF0872X DS    0H                  R1 = ADDRESS OF DCT OR R1 = 0        C1062000

COMM     HASP COMMAND PROCESSOR HASPCMS1 - MISC DISPLAY COMMANDS                                               PAGE  215


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

002F8C 1211                        9016          LTR   R1,R1               TEST FOR A GOOD POINTER              C6044000
002F8E 4780 8366      0314E        9017          BE    CDRMNERR            IF NOT FOUND, RESPOND TO OPERATOR    C6046000
002F92 4130 1000      00000        9018 CDLFND   LA    WB,0(0,R1)          PURIFY AND SAVE DCT POINTER          C6048000
                            00000  9019          USING DCTDSECT,WB                                              C6050000
002F96 1233                        9020          LTR   WB,WB               TEST FOR POINTER GOOD                C6052000
002F98 4770 81BC      02FA4        9021          BNE   CDLDIS              DISPLAY DCT IF YES                   C6054000
                                   9022 CDLRET   $CRET ,                   RETURN                               C6056000
002F9C                             9023+CDLRET   DS    0H                                                       NU006000
002F9C 41F0 0000      00000        9024+         LA    R15,CORTNORM        NORMAL RETURN                        C0268000
002FA0 45E0 B088      00088        9025+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000

                                   9026 CDLDIS   $CFDCTD SYMBOL=CDLDCTD    DISPLAY DCT STATUS                   C6058000
002FA4                             9027+CDLDIS   DS    0H                                                       NU006000

002FA4 4520 81C8      02FB0        9028+         BAL   WA,CDLDCTD                                               C0776000

002FA8 5810 303C      0003C        9029          L     R1,MDCTDCT          PICK UP NEW DCT                      C6060000
002FAC 47F0 81AA      02F92        9030          B     CDLFND              LOOP                                 C6062000
                                   9031 CDLDCTD  $CFDCTD TYPE=DEF          DISPLAY DCT STATUS                   C6064000
002FB0                             9032+CDLDCTD  DS    0H                                                       NU006000
002FB0 D207 D068 1018 00068 00018  9033+         MVC   COMMAND(8),DCTDEVN-DCTDSECT(R1) SET DEVICE NAME          C0786000
002FB6 D20D D070 8242 00070 0302A  9034+         MVC   COMMAND+8(14),COF0884E SET '  *** DRAINING'              C0788000
002FBC 9140 1000      00000        9035+         TM    DCTSTAT-DCTDSECT(R1),DCTDRAIN TEST FOR DRAIN BIT         C0790000
002FC0 4780 81EE      02FD6        9036+         BZ    COF0884A            BRANCH IF NOT DRAINED OR DRAINING    C0792000
002FC4 9180 1000      00000        9037+         TM    DCTSTAT-DCTDSECT(R1),DCTINUSE TEST FOR DRAINING          C0794000
002FC8 4710 8202      02FEA        9038+         BO    COF0884B            LOCATE UCB 'DRAINING'                C0796000
002FCC D202 D07B 8250 0007B 03038  9039+         MVC   COMMAND+19(3),COF0884F SET 'DRAINED '                    C0798000
002FD2 47F0 8202      02FEA        9040+         B     COF0884B            LOCATE UCB 'DRAINED '                C0800000

002FD6 D207 D076 8255 00076 0303D  9041+COF0884A MVC   COMMAND+14(8),COF0884H SET 'ACTIVE  '                    C0802000
002FDC 9180 1000      00000        9042+         TM    DCTSTAT-DCTDSECT(R1),DCTINUSE TEST FOR ACTIVE            C0816000
002FE0 4710 8202      02FEA        9043+         BO    COF0884B            LOCATE UCB 'ACTIVE  '                C0818000

002FE4 D207 D076 8253 00076 0303B  9044+         MVC   COMMAND+14(8),COF0884G SET 'INACTIVE'                    C0820000
                                   9045+* DCT STATUS SET IN MESSAGE - LOCATE AND SET DEVICE ADDRESS             C0822000
002FEA D501 1018 825D 00018 03045  9046+COF0884B CLC   DCTDEVN-DCTDSECT(2,R1),COF0884I LOOK FOR 'RM'            C0824000
002FF0 4770 8218      03000        9047+         BNE   COF0884C            IF NOT REMOTE LOOK AT OTHERS         C0826000
002FF4 9108 1008      00008        9048+         TM    DCTPSTAT-DCTDSECT(R1),DCTSINON IS REMOTE SIGNED ON       C0828000
002FF8 4780 823A      03022        9049+         BZ    COF0884D            IF NOT, MESSAGE IS COMPLETE          C0830000
002FFC 5810 1008      00008        9050+         L     R1,DCTDCB-DCTDSECT(0,R1) PICK UP LINE DCT                C0832000
003000 5810 1008      00008        9051+COF0884C L     R1,DCTDCB-DCTDSECT(0,R1) PICK UP DCB                     C0834000
003004 5810 102C      0002C        9052+         L     R1,DCBDEBAD-DCBDSECT(0,R1) PICK UP DEB                   C0836000
003008 D602 1001 1001 00001 00001  9053+         OC    DEBTCBAD+1-DEBDSECT(3,R1),DEBTCBAD+1-DEBDSECT(R1)        C0838000
00300E 4780 823A      03022        9054+         BZ    COF0884D            IF DEB NOT INITIALIZED, MESSAGE SET  C0840000
003012 4810 1022      00022        9055+         LH    R1,DEBUCBAD+2-DEBDSECT(0,R1) PICK UP UCB                 C0842000

003016 1211                        9056+         LTR   R1,R1               VERIFY UCB POINTER SET               C0844000
003018 4780 823A      03022        9057+         BZ    COF0884D            IF NOT, MESSAGE COMPLETE             C0846000
00301C D202 D072 100D 00072 0000D  9058+         MVC   COMMAND+10(3),UCBNAME-UCBDSECT(R1) INSERT UNIT ADDRESS   C0848000
003022                             9059+COF0884D DS    0H                                                       NU006000

003022 4100 0016      00016        9060+         LA    R0,22                                                    C0324000
003026 47F0 C00C      0000C        9061+         B     COWTO(0,BASE2)      REPLY TO OPERATOR                    C0350000
00302A 40405C5C5C40C4D9            9062+COF0884E DC    C'  *** DRAINING'   UNIT DRAINING                        C0852000
003038 C5C440                      9063+COF0884F DC    C'ED '              UNIT DRAINED                         C0854000
00303B C9D5                        9064+COF0884G DC    C'IN'               UNIT INACTIVE                        C0856000
00303D C1C3E3C9E5C54040            9065+COF0884H DC    C'ACTIVE  '         UNIT ACTIVE                          C0858000

003045 D9D4                        9066+COF0884I DC    C'RM'               TEST CONSTANT                        C0860000
                                   9067          DROP  WB                                                       C6066000
COMM     HASP COMMAND PROCESSOR HASPCMS1 - MISC DISPLAY COMMANDS                                               PAGE  216


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   9069 *********************************************************************** C6070000
                                   9070 *                                                                     * C6072000
                                   9071 *        $D O -- DISPLAY OPERATOR REQUESTS                              C6074000
                                   9072 *                                                                     * C6076000

                                   9073 *********************************************************************** C6078000
003048                             9074 CDO      DS    0H                                                       C6080000

                                   9075 * COMNULOP HIGH BYTE = 0 ON ENTRY                                       C6082000
                            00000  9076          USING CMBDSECT,R1                                              C6084000
003048 1B33                        9077          SR    WB,WB               CURRENT ID IS ZERO                   C6086000
                                   9078 CDRLOOP  $DISABLE ALL              PREVENT INTERRUPTS                   C6088000
00304A 8000 B0C9      000C9        9079+CDRLOOP  SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
00304E 4110 B118      00118        9080          LA    R1,$DOMQUE-(CMBCHAIN-CMBDSECT) POINT TO QUEUE HEAD       C6090000
                                   9081 *CDRLOOPAICM   R1,7,CMBCHAIN)      POINT TO NEXT CMB               RFIT C6092000
003052 5810 1000      00000        9082 CDRLOOPA L     R1,CMBCHAIN                                         RFIT C6092005

003056 4110 1000      00000        9083          LA    R1,0(,R1)                                           RFIT C6092010
00305A 1211                        9084          LTR   R1,R1                                               RFIT C6092015
00305C 4780 82A8      03090        9085          BZ    CDREND              IF NONE EXIT                         C6094000
003060 5530 1008      00008        9086          CL    WB,CMBDOMID         CHECK FOR DOMID                      C6096000
003064 47B0 826A      03052        9087          BNL   CDRLOOPA            LOOP                                 C6098000

003068 5830 1008      00008        9088          L     WB,CMBDOMID         PICK NEW ID                          C6100000
00306C 1B00                        9089          SR    R0,R0               ZERO COUNT REGISTER                  C6102000
00306E 4300 1006      00006        9090          IC    R0,CMBMSGL          PICK UP LENGTH                       C6104000

003072 4120 000A      0000A        9091          LA    WA,CMBJOBNO-CMBMSG  GET LENGTH OF TIME STAMP AREA        C6106000
003076 1B02                        9092          SR    R0,WA               GET COUNT FOR $CWTO                  C6108000
003078 1820                        9093          LR    WA,R0               GET COUNT                            C6110000
00307A 0620                        9094          BCTR  WA,0                 TO MOVE                             C6112000
00307C 4420 82CA      030B2        9095          EX    WA,CDRMVC           MOVE                                 C6114000
003080 9280 D0F4      000F4        9096          MVI   COMNULOP,X'80'      TURN ON FOUND FLAG                   C6116000
                                   9097          $ENABLE ALL               ALLOW INTERRUPTS                     C6118000

003084 8000 B0C8      000C8        9098+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   9099          $CWTO L=(R0)              DISPLAY MESSAGE                      C6120000
003088                             9100+         DS    0H                                                       NU006000
003088 4520 C00C      0000C        9101+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
00308C 47F0 8262      0304A        9102          B     CDRLOOP             LOOP                                 C6122000

003090 9500 D0F4      000F4        9103 CDREND   CLI   COMNULOP,0          DID WE DISPLAY ANYTHING              C6124000
003094 4780 82B8      030A0        9104          BE    CDRNREQ             IF NOT DISPLAY EMPTY                 C6126000
                                   9105          $CRET ,                   EXIT                                 C6128000
003098                             9106+         DS    0H                                                       NU006000

003098 41F0 0000      00000        9107+         LA    R15,CORTNORM        NORMAL RETURN                        C0268000
00309C 45E0 B088      00088        9108+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   9109 CDRNREQ  $CRET L=CDRMSGL,MSG=CDRMSG                                     C6130000
0030A0                             9110+CDRNREQ  DS    0H                                                       NU006000
0030A0 4100 0014      00014        9111+         LA    R0,CDRMSGL                                               C0230000
0030A4 D213 D068 82D0 00068 030B8  9112+         MVC   COMMAND(CDRMSGL),CDRMSG                                  C0248000

0030AA 41F0 0008      00008        9113+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
0030AE 45E0 B088      00088        9114+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
0030B2 D200 D068 1012 00068 00012  9115 CDRMVC   MVC   COMMAND(*-*),CMBJOBNO MOVE TEXT OF MESSAGE               C6132000
                                   9116          DROP  R1                                                       C6134000
0030B8 D5D640D6D7C5D9C1            9117 CDRMSG   DC    C'NO OPERATOR REQUESTS'                                  C6136000

                            00014  9118 CDRMSGL  EQU   *-CDRMSG                                                 C6138000
COMM     HASP COMMAND PROCESSOR HASPCMS1 - MISC DISPLAY COMMANDS                                               PAGE  217


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   9120 *********************************************************************** C6170000
                                   9121 *                                                                     * C6172000

                                   9122 *        $D RM -- DISPLAY REMOTE UNIT STATUS                          * C6174000
                                   9123 *        RM    = RM, RMT, RMN, RMTN                                   * C6176000
                                   9124 *        N     = DESIGNATED REMOTE NUMBER                             * C6178000
                                   9125 *                                                                     * C6180000
                                   9126 *********************************************************************** C6182000

0030CC                             9127 CDR      DS    0H                                                       C6183000
                                   9128 CDRM     $CFCVB POINTER=(WD),NUM=1,NOK=CDRMS CONVERT REMOTE NO. TO BIN  C6184000
0030CC                             9129+CDRM     DS    0H                                                       NU006000
0030CC 1815                        9130+         LR    R1,WD                                                    DG018000
0030CE 58F0 1000      00000        9131+         L     R15,0(0,R1)         PICK UP FIRST PARAMETER              C0482000

0030D2 95F0 F000      00000        9132+         CLI   0(R15),C'0'         LOOK FOR NUMERIC ( FA-FF INCLUDED )  C0484000
0030D6 47B0 8310      030F8        9133+         BNL   COF0904L           IF NUMERIC CONVERT                    C0486000
0030DA 41F0 F001      00001        9134+         LA    R15,1(0,R15)        NEXT CHARACTER                       C0488000
0030DE 5020 D01C      0001C        9135+         ST    WA,PCEWA            SAVE WORK REGISTER           OY08684 C0488500
0030E2 5820 1004      00004        9136+         L     WA,4(0,R1)          CLEAR HIGH ORDER BYTE OF     OY08684 C0489000
0030E6 4120 2000      00000        9137+         LA    WA,0(0,WA)          NEXT OPERAND POINTER         OY08684 C0489500

0030EA 19F2                        9138+         CR    R15,WA              DID WE GO TOO FAR            OY08684 C0490000
0030EC 5820 D01C      0001C        9139+         L     WA,PCEWA            RESTORE WORK REGISTER        OY08684 C0491000
0030F0 4740 82EA      030D2        9140+         BL    *-30                LOOP UNTIL NUMERIC OR ERROR  OY08684 C0492000
0030F4 47F0 838E      03176        9141+         B     CDRMS                                                    C0500000

                                   9142+* CONVERT PAIR OF START STOP VALUES                                     C0504000
0030F8 1B00                        9143+COF0904L SR    R0,R0               ZERO ACCUMULATOR, STOP VALUE         C0506000
0030FA D100 833D F000 03125 00000  9144+COF0904C MVN COF0904W+1(1),0(R15)  MOVE NUMERIC TO WORK AREA            C0514000
003100 4C00 8338      03120        9145+         MH    R0,COF0904T        MULTIPLY BY 10                        C0516000
003104 4A00 833C      03124        9146+         AH    R0,COF0904W        ADD LOW DIGIT                         C0518000

003108 4900 833A      03122        9147+         CH    R0,COF0904U        LOOK FOR MAXIMUM VALUE                C0520000
00310C 4720 838E      03176        9148+         BH    CDRMS                                                    C0528000
003110 41F0 F001      00001        9149+COF0904N LA    R15,1(0,R15)        NEXT CHARACTER                       C0532000
003114 95F0 F000      00000        9150+         CLI   0(R15),C'0'         TEST FOR NUMERIC ( FA-FF INCLUDED )  C0534000
003118 47B0 8312      030FA        9151+         BNL   COF0904C           IF NUMERIC CONVERT THE CHARACTER      C0536000
00311C 47F0 833E      03126        9152+         B     COF0904E            EXIT WITH CONVERTED VALUES           C0576000
003120 000A                        9153+COF0904T DC    H'10'               CONVERSION CONSTANT                  C0580000

003122 270F                        9154+COF0904U DC    H'9999'                                                  C0594000
003124 0000                        9155+COF0904W DC    H'0'                WORK AREA FOR CONVERSION             C0596000
003126                             9156+COF0904E DS    0H                  END OF BINARY CONVERT                C0600000

003126 5810 B0F0      000F0        9157          L     R1,$DCTPOOL         POINT TO HEAD DCT                    C6186000
                            00000  9158          USING DCTDSECT,R1                                              C6188000
                                   9159 * A SINGLE REMOTE IS DESIRED                                            C6190000
00312A 4200 8347      0312F        9160          STC   R0,CDRMNC+1         SET COMPARE INSTRUCTION              C6192000
00312E 9500 1011      00011        9161 CDRMNC   CLI   DCTNO,*-*           CHECK FOR DESIGNATED DCT             C6194000

003132 4770 8358      03140        9162          BNE   CDRMNCA             BRANCH IF NOT MATCH                  C6195000
003136 D501 1018 83DE 00018 031C6  9163          CLC   DCTDEVN(2),CDRMT    TEST DEVICE NAME                     C6195500
00313C 4780 837E      03166        9164          BE    CDRMNF              FOUND IF MATCH                       C6196000
003140 5810 1014      00014        9165 CDRMNCA  L     R1,DCTCHAIN         PICK UP NEXT DCT                     C6198000
003144 4110 1000      00000        9166          LA    R1,0(0,R1)          PURIFY                               C6200000
003148 1211                        9167          LTR   R1,R1               TEST FOR GOOD POINTER                C6202000
00314A 4770 8346      0312E        9168          BNZ   CDRMNC              LOOP                                 C6204000
00314E D207 D068 D06A 00068 0006A  9169 CDRMNERR MVC   COMMAND(8),COMOPRND SET ERROR OPERAND                    C6206000

003154 D209 D070 83E0 00070 031C8  9170          MVC   COMMAND+8(CDRML),CDRMC SET DIAGNOSTIC ' NOT FOUND'       C6208000
                                   9171          $CRET L=CDRML+8           RETURN WITH MESSAGE                  C6210000

00315A                             9172+         DS    0H                                                       NU006000
00315A 4100 0012      00012        9173+         LA    R0,CDRML+8                                               C0230000
00315E 41F0 0008      00008        9174+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
COMM     HASP COMMAND PROCESSOR HASPCMS1 - MISC DISPLAY COMMANDS                                               PAGE  218


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


003162 45E0 B088      00088        9175+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   9176 * REMOTE DCT DESIGNATED HAS BEEN FOUND                                  C6212000
003166 9108 1008      00008        9177 CDRMNF   TM    DCTPSTAT,DCTSINON   IS THE REMOTE SIGNED ON              C6214000
00316A 4780 81AA      02F92        9178          BZ    CDLFND              DISPLAY THE REMOTES ONLY             C6216000
00316E 5810 1008      00008        9179          L     R1,DCTDCB           PICK UP LINE DCT                     C6218000
003172 47F0 81AA      02F92        9180          B     CDLFND              DISPLAY THE LINE AND REMOTES         C6220000
                                   9181 * ALL REMOTES ARE DESIRED                                               C6222000
003176 5810 B0F0      000F0        9182 CDRMS    L     R1,$DCTPOOL         POINT TO HEAD DCT                    C6224000
00317A 4130 1000      00000        9183 CDRMSLP  LA    WB,0(0,R1)          PURIFY ADDRESS                       C6226000

00317E 1233                        9184          LTR   WB,WB               TEST FOR END                         C6228000

003180 4780 81B4      02F9C        9185          BE    CDLRET              RETURN IF END                        C6230000
                            00000  9186          USING DCTDSECT,WB                                              C6232000
                                   9187          DROP  R1                                                       C6234000
003184 D501 3018 83DE 00018 031C6  9188          CLC   DCTDEVN(2),CDRMT    IS THIS A REMOTE DCT                 C6236000
00318A 4770 83AA      03192        9189          BNE   CDRMSL              SKIP DISPLAY IF NOT                  C6238000

                                   9190          $CFDCTD SYMBOL=CDLDCTD    DISPLAY DCT STATUS                   C6240000
00318E 4520 81C8      02FB0        9191+         BAL   WA,CDLDCTD                                               C0776000
003192 5810 3014      00014        9192 CDRMSL   L     R1,DCTCHAIN         PICK UP NEXT DCT                     C6242000
003196 47F0 8392      0317A        9193          B     CDRMSLP             LOOP                                 C6244000
                                   9194          DROP  WB                                                       C6246000
COMM     HASP COMMAND PROCESSOR HASPCMS1 - MISC DISPLAY COMMANDS                                               PAGE  219


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   9196 *********************************************************************** C6250000
                                   9197 *                                                                     * C6252000
                                   9198 *        $D U -- DISPLAY UNITS - LOCAL UNIT RECORD DEVICES AND LINES  * C6254000

                                   9199 *                                                                     * C6256000

                                   9200 *********************************************************************** C6258000
00319A 5810 B0F0      000F0        9201 CDU      L     R1,$DCTPOOL         PICK UP DCT                          C6260000
00319E 4130 1000      00000        9202 CDUL     LA    WB,0(0,R1)          PURIFY                               C6262000
                            00000  9203          USING DCTDSECT,WB                                              C6264000

0031A2 9501 3012      00012        9204          CLI   DCTDEVTP,DCTOLAY    IS THIS OVERLAY OR DIRECT ACCESS     C6266000
0031A6 47D0 81B4      02F9C        9205          BNH   CDLRET              IF SO END OF CHAIN FOR LOCAL UNITS   C6268000
0031AA D501 3018 83DE 00018 031C6  9206          CLC   DCTDEVN(2),CDRMT    IS THIS A REMOTE                     C6270000
0031B0 4780 83D0      031B8        9207          BE    CDUNXT              SKIP DISPLAY IF REMOTE               C6272000
                                   9208          $CFDCTD SYMBOL=CDLDCTD    DISPLAY DCT STATUS                   C6274000
0031B4 4520 81C8      02FB0        9209+         BAL   WA,CDLDCTD                                               C0776000
0031B8 5810 3014      00014        9210 CDUNXT   L     R1,DCTCHAIN         PICK UP NEXT                         C6276000
0031BC 47F0 83B6      0319E        9211          B     CDUL                LOOP                                 C6278000
                                   9212          DROP  WB                                                       C6280000
COMM     HASP COMMAND PROCESSOR HASPCMS1 - MISC DISPLAY COMMANDS                                               PAGE  220


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


0031C0 40D5D640C9C4                9214 CDDNOID  DC    C' NO ID'           NO VOLUME ID HAS BEEN SET IN UCB     C6284000
0031C6 D9D4                        9215 CDRMT    DC    C'RM'               CONSTANT TO IDENTIFY REMOTES         C6292000
0031C8 40D5D6E340C6D6E4            9216 CDRMC    DC    C' NOT FOUND'       DIAGNOSTIC                           C6294000
                            0000A  9217 CDRML    EQU   *-CDRMC                                                  C6296000

COMM     HASP COMMAND PROCESSOR HASPCRM1 - REMOTE JOB ENTRY COMMANDS                                           PAGE  221


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   9219 HASPCRM1 $COMGRUP DM,R,PRTY=0      REMOTE JOB ENTRY COMMANDS            C6300000
0031D8                             9220+HA$OCRM1 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            031D8  9221+HA$ICRM1 EQU   HA$OCRM1+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   9222+         ENTRY HA$ICRM1                                                 OV036000
0031D8 C3D9D4F1                    9223+         DC    CL4'CRM1'           IDENTIFY MODULE ON CORE DUMP         OV038000
0031DC 000031D8                    9224+         DC    A(HA$OCRM1)         ASSEMBLY ORIGIN                      OV040000
0031E0                             9225+HASPCRM1 DS    0F                  ENTRY POINT                          OV042000
                            03180  9226+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
0031E0 4811 8060      031E0        9227+         LH    R1,HASPCRM1(R1)     PICK UP TABLE OFFSET                 C0118000
0031E4 47F1 8060      031E0        9228+         B     HASPCRM1(R1)        GO TO ROUTINE SELECTED               C0128000

0031E8 000C                        9229+CODM             DC AL2(CDM-HASPCRM1)                                   C0134000
0031EA 00D6                        9230+COR              DC AL2(CR-HASPCRM1)                                    C0134000
                                   9231 *********************************************************************** C6302000

                                   9232 *                                                                     * C6304000
                                   9233 *        $D MN -- DISPLAY MESSAGE ON REMOTE N                         * C6306000
                                   9234 *        M     = M, MSG, MESSAGE, ETC.                                * C6308000
                                   9235 *        N     = REMOTE NUMBER, RANGE OF REMOTE NUMBERS, OR ZERO      * C6310000
                                   9236 *                                                                     * C6312000
                                   9237 *        $RMSGN                                                       * C6314000
                                   9238 *                                                                     * C6316000
                                   9239 *********************************************************************** C6318000
                                   9240 CDM      $CFCVB POINTER=(WD),SYMBOL=CDMCVB,NOK=CDMERR CONVERT TO BINARY C6320000
0031EC                             9241+CDM      DS    0H                                                       NU006000
0031EC 1815                        9242+         LR    R1,WD                                                    DG018000
0031EE 45E0 8398      03518        9243+         BAL   LINK,CDMCVB                                              C0470000

0031F2 47F0 810A      0328A        9244+         B     CDMERR                                                   C0472000
0031F6 41E0 0000      00000        9245          LA    LINK,COMAXRTE       SET MAXIMUM ROUTE CODE               C6320500
0031FA 190E                        9246          CR    R0,LINK             CHECK AGAINST MAXIMUM                C6321000

0031FC 4720 810A      0328A        9247          BH    CDMERR              IF TOO HIGH, ERROR EXIT              C6321500
                                   9248 * R1 AND R0 CONTAIN REMOTE NUMBER START AND STOP VALUES                 C6322000
003200 8656 810A      0328A        9249          BXH   WD,WE,CDMERR        CHECK FOR TEXT                       C6324000
003204 5820 5000      00000        9250          L     WA,0(0,WD)          PICK UP START OF TEXT                C6326000
003208 5830 5004      00004        9251          L     WB,4(0,WD)          PICK UP END OF TEXT                  C6328000
00320C 1B32                        9252          SR    WB,WA               CALCULATE LENGTH                     C6330000
00320E 0630                        9253          BCTR  WB,0                ACTUAL LENGTH                        C6332000
003210 0620                        9254          BCTR  WA,0                POINT TO COMMA                       C6334000
003212 4230 8097      03217        9255          STC   WB,*+5              SET MOVE VALUE                       C6336000
003216 D200 D06B 2000 0006B 00000  9256          MVC   COMMAND+3(*-*),0(WA) MOVE COMMA AND TEXT TO OUTPUT       C6338000
00321C 5840 D058      00058        9257          L     WC,COMFLAGS         SAVE FLAGS/ROUTING/AREA              C6340000
003220 1A36                        9258          AR    WB,WE               SET LENGTH OF ROUTE CODE PLUS TEXT   C6342000

003222 4160 0001      00001        9259          LA    WE,1                SET INCREMENT                        C6344000

003226 1851                        9260          LR    WD,R1               SET STARTING VALUE                   C6346000
003228 1870                        9261          LR    WF,R0               SET STOP VALUE                       C6348000

00322A 1B00                        9262          SR    R0,R0               ZERO SOURCE REGISTER                 C6350000
00322C 9108 D058      00058        9263          TM    COMFLAGS,WCMBFG     CHECK FOR REMOTE SOURCE              C6352000
003230 4780 80BA      0323A        9264          BZ    CDMSSRC             IF NOT, SET SOURCE OF ZERO           C6354000
003234 4300 D059      00059        9265          IC    R0,COMROUTE         PICK UP SOURCE ID                    C6356000
003238 1857                        9266          LR    WD,WF               FORCE REMOTE ID TO LAST SPECIFIED    C6358000
                                   9267 CDMSSRC  $CFCVE VALUE=(R0)         CONVERT FOR PRINTING                 C6360000
00323A                             9268+CDMSSRC  DS    0H                                                       NU006000
                                   9269+* CONVERT TO EBCDIC AND LEAVE ANSWER IN COMDWORK ( 5 DIGITS )           C0684000
00323A 4E00 D060      00060        9270+         CVD   R0,COMDWORK         CONVERT TO DECIMAL                   C0686000
00323E D205 D05F 80CE 0005F 0324E  9271+         MVC   COMDWORK-1(6),COF0927 MOVE MASK TO BLANK OUT HIGH ZEROS  C0688000
003244 DE05 D05F D065 0005F 00065  9272+         ED    COMDWORK-1(6),COMDWORK+5 CONVERT TO EBCDIC               C0690000
00324A 47F0 80D4      03254        9273+         B     COF0927E            SKIP OVER CONSTANT                   C0700000

COMM     HASP COMMAND PROCESSOR HASPCRM1 - REMOTE JOB ENTRY COMMANDS                                           PAGE  222


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


00324E 402020202120                9274+COF0927  DC    X'402020202120'     MASK FOR EDIT                        C0702000

003254                             9275+COF0927E DS    0H                  END OF CONVERT TO EBCDIC             C0704000
003254 D202 D068 D062 00068 00062  9276          MVC   COMMAND(3),COMDWORK+2 SET SOURCE ID                      C6362000
00325A 9277 D05B      0005B        9277          MVI   COMCLASS,$ALWAYS+$HI SET CLASS AND PRIORITY              C6363000
00325E 4250 D059      00059        9278 CDML     STC   WD,COMROUTE         SET ROUTING                          C6364000
003262 9208 D058      00058        9279          MVI   COMFLAGS,WCMBFG     SET REMOTE FLAG                      C6366000
003266 1255                        9280          LTR   WD,WD               TEST FOR LOCAL                       C6368000
003268 4770 80F4      03274        9281          BNZ   *+12                SKIP SETTING OF LOCAL ROUTINGS       C6370000
00326C 9209 D059      00059        9282          MVI   COMROUTE,$LOG+$TP   SEND MESSAGE TO TP CONSOLE           C6372000
003270 9200 D058      00058        9283          MVI   COMFLAGS,0          SET LOCAL INDICATORS                 C6374000
                                   9284          $CWTO L=(WB)              SEND MESSAGE                         C6376000
003274                             9285+         DS    0H                                                       NU006000
003274 1803                        9286+         LR    R0,WB                                                    C0336000

003276 4520 C00C      0000C        9287+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
00327A 8756 80DE      0325E        9288          BXLE  WD,WE,CDML          LOOP                                 C6378000
00327E 5040 D058      00058        9289          ST    WC,COMFLAGS         REPLACE $WTO PARAMETERS              C6380000

                                   9290          $CRET MSG=OK              RETURN WITH OK                       C6382000
003282                             9291+         DS    0H                                                       NU006000
003282 41F0 0004      00004        9292+         LA    R15,CORTOK          RETURN AND ISSUE OK MESSAGE          C0264000
003286 45E0 B088      00088        9293+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
00328A 5810 5000      00000        9294 CDMERR   L     R1,0(0,WD)          POINT TO INVALID OPERAND             C6384000
                                   9295          $CFINVO OPERAND=(R1)      INVALID OPERAND                      C6386000
                                   9296+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
00328E D208 D068 1000 00068 00000  9297+         MVC   COMMAND(9),0(R1)                                         C1204000
003294 D20F D071 8126 00071 032A6  9298+         MVC   COMMAND+9(16),COF0937 MOVE DIAGNOSTIC BEHIND TEXT        C1206000
00329A                             9299+         DS    0H                                                       NU006000
00329A 4100 0019      00019        9300+         LA    R0,25                                                    C0230000
00329E 41F0 0008      00008        9301+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000

0032A2 45E0 B088      00088        9302+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
0032A6 40C9D5E5C1D3C9C4            9303+COF0937  DC    C' INVALID OPERAND'                                      C1210000
COMM     HASP COMMAND PROCESSOR HASPCRM1 - REMOTE JOB ENTRY COMMANDS                                           PAGE  223


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   9305 *********************************************************************** C6390000
                                   9306 *                                                                     * C6392000
                                   9307 *        $R TYPE,FORID,TOID -- ROUTE JOB OUTPUT TO DEVICE GROUP       * C6394000
                                   9308 *        TYPE  = PRT, PUN, ALL                                        * C6396000
                                   9309 *        FORID = JOBN, PRTN, PUNN, RMN, RMTN, OR LOCAL                * C6398000
                                   9310 *        TOID  = PRTN, PUNN, RMN, RMTN, OR LOCAL                      * C6400000

                                   9311 *        N     = JOB, DEVICE, OR REMOTE NUMBER                        * C6402000
                                   9312 *                                                                     * C6404000
                                   9313 *        MEANING                                                      * C6406000
                                   9314 *        ROUTE ALL OUTPUT OF TYPE 'TYPE' FOR JOB OR DEVICE 'FORID'    * C6408000
                                   9315 *        TO DEVICE 'TOID'.                                            * C6410000
                                   9316 *                                                                     * C6412000
                                   9317 *        $ROUTE TYPE,FORID,TOID                                       * C6414000
                                   9318 *                                                                     * C6416000

                                   9319 *********************************************************************** C6418000
0032B6 D502 842B D06A 035AB 0006A  9320 CR       CLC   CRXALL,COMOPRND     IS THIS 'ALL'                        C6420000

0032BC 4770 8144      032C4        9321          BNE   *+8                 IF NOT, LOOK AT NEXT                 C6422000
0032C0 9203 D0F4      000F4        9322          MVI   COMNULOP,CRXPRINT+CRXPUNCH SET FLAGS                     C6424000
0032C4 D502 842E D06A 035AE 0006A  9323          CLC   CRXPRT,COMOPRND     IS THIS 'PRT'                        C6426000
0032CA 4770 8152      032D2        9324          BNE   *+8                 IF NOT, LOOK AT NEXT                 C6428000
0032CE 9201 D0F4      000F4        9325          MVI   COMNULOP,CRXPRINT   SET FLAGS                            C6430000
0032D2 D502 8431 D06A 035B1 0006A  9326          CLC   CRXPUN,COMOPRND     IS THIS 'PUN'                        C6432000
0032D8 4770 8160      032E0        9327          BNE   *+8                 IF NOT, LOOK FOR ERROR               C6434000
0032DC 9202 D0F4      000F4        9328          MVI   COMNULOP,CRXPUNCH   SET FLAGS                            C6436000

0032E0 9500 D0F4      000F4        9329          CLI   COMNULOP,0          IS THERE ANY VALID SPECIFICATIONS    C6438000
0032E4 4780 810A      0328A        9330          BE    CDMERR              IF NOT, INVALID OPERAND EXIT         C6440000
0032E8 4520 82A4      03424        9331          BAL   WA,CRXANAL          ANALYZE SECOND OPERAND 'FORID'       C6442000
0032EC 47F0 8256      033D6        9332          B     CRXCKJOB            IF ERROR, LOOK FOR JOB               C6444000
0032F0 4200 81B7      03337        9333          STC   R0,CRXCLI+1         SET FROM ID                          C6446000

0032F4 4520 82A4      03424        9334          BAL   WA,CRXANAL          ANALYZE THIRD OPERAND 'TOID'         C6448000
0032F8 47F0 810A      0328A        9335          B     CDMERR              IF ERROR, EXIT                       C6450000
                                   9336 * TO ID IS IN R0                                                        C6452000

                                   9337          $CFJSCAN PROCESS=CRXJOBCK,NEXT=CRXNEXT SCAN JOB QUEUE          C6454000
                                   9338+* SCAN JOB QUEUE FOR SELECTED JOBS                                      C1672000
0032FC 4110 B140      00140        9339+         LA    R1,$JQENT-QUECHAIN  LOCATE HEAD OF JOB CHAIN             C1674000
003300                             9340+CRXNEXT  DS    0H                                                       NU006000
003300 5810 1004      00004        9341+         L     R1,QUECHAIN(0,R1)   PICK UP NEXT ENTRY              RFIT C1694000
003304 4110 1000      00000        9342+         LA    R1,0(,R1)           CLEAR HIGH ORDER BYTE           RFIT C1694100
003308 1211                        9343+         LTR   R1,R1                   SET CONDITION CODE          RFIT C1694200

00330A 4770 81A6      03326        9344+         BNE   CRXJOBCK                                                 C1700000
00330E 5820 C0EC      000EC        9345 CRXRET   L     WA,CRXCKPT          LOAD CHECK POINT PCE ADDRESS         C6456000
                                   9346          $POST PCEEWF+$EWBWORK-PCEDSECT(WA),WORK ALLOW A CHECK POINT    C6458000
003312 94DF 2049      00049        9347+         NI    PCEEWF+$EWBWORK-PCEDSECT(WA),255-$EWFWORK                PO008000
003316 947F B0C4      000C4        9348+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000

                                   9349          $POST $HASPECF,JOB-$EWFJOT POST WAITING PROCESSORS             C6460000
00331A 94EE B0C4      000C4        9350+         NI    $HASPECF,255-$EWFJOB-$EWFJOT                             PO008000
                                   9351          $CRET MSG=OK              RETURN                               C6462000
00331E                             9352+         DS    0H                                                       NU006000

00331E 41F0 0004      00004        9353+         LA    R15,CORTOK          RETURN AND ISSUE OK MESSAGE          C0264000
003322 45E0 B088      00088        9354+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   9355 CRXJOBCK $CFVQE NOK=(CRXNEXT,BC),SYMBOL=CRXVERIF VERIFY QUEUE ELEMENT   C6464000
003326                             9356+CRXJOBCK DS    0H                                                       NU006000
003326 9110 1004      00004        9357          TM    QUEFLAGS(R1),QUEPURGE TEST PURGE BIT                     C6466000
00332A 4710 8180      03300        9358          BO    CRXNEXT             IF PURGE ON, TRY NEXT JOB            C6468000

00332E 9101 D0F4      000F4        9359          TM    COMNULOP,CRXPRINT   DO WE CHANGE PRINT                   C6470000
COMM     HASP COMMAND PROCESSOR HASPCRM1 - REMOTE JOB ENTRY COMMANDS                                           PAGE  224


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

003332 4780 81CA      0334A        9360          BZ    CRXNOPRT            IF NOT, SKIP                         C6472000
003336 9500 100C      0000C        9361 CRXCLI   CLI   QUEPRTRT(R1),*-*    CHECK FOR CORRECT ROUTING            C6474000

00333A 4770 81DC      0335C        9362          BNE   CRXNPRT             IF NOT CHECK PUNCH ROUTING           C6476000
00333E 4200 100C      0000C        9363          STC   R0,QUEPRTRT(0,R1)   SET ROUTING FOR PRINT                C6478000
003342 9102 D0F4      000F4        9364          TM    COMNULOP,CRXPUNCH   DO WE CHANGE PUNCH                   C6479000
003346 4780 8180      03300        9365          BZ    CRXNEXT             IF NOT, LOOP                         C6480000
00334A                             9366 CRXJOEMD DS    0H                                                       C6482000

00334A D500 100D 81B7 0000D 03337  9367 CRXNOPRT CLC   QUEPUNRT(1,R1),CRXCLI+1 CHECK FOR CORRECT ROUTING        C6484000
003350 4770 8180      03300        9368          BNE   CRXNEXT             IF NOT, LOOP                         C6486000
003354 4200 100D      0000D        9369          STC   R0,QUEPUNRT(0,R1)   SET ROUTING FOR PUNCH                C6488000
003358 47F0 8180      03300        9370          B     CRXNEXT             LOOP                                 C6488100
00335C 9102 D0F4      000F4        9371 CRXNPRT  TM    COMNULOP,CRXPUNCH   DO WE CHANGE PUNCH                   C6488200

003360 4780 8180      03300        9372          BZ    CRXNEXT             IF NOT FORGET IT                     C6488300
003364 D500 100D 81B7 0000D 03337  9373          CLC   QUEPUNRT(1,R1),CRXCLI+1 CHECK FOR PUNCH ROUTING          C6488400
00336A 4770 8180      03300        9374          BNE   CRXNEXT             IF NOT FORGET IT                     C6488500
00336E 47F0 81CA      0334A        9375          B     CRXJOEMD            MODIFY JOES AND THEN PUNCH           C6488600
                                   9376 * SCAN FOR SETTING OF JOES                                              C6488700

                            00000  9377          USING JOTDSECT,WF                                              C6488800
                            00000  9378          USING JOEDSECT,WD                                              C6488900
003372 9104 1004      00004        9379 CRXSJOE  TM    QUEFLAGS(R1),QUEOPRTE HAS IT BEEN DONE BEFORE            C6489000
003376 0712                        9380          BCR   O,WA                EXIT IF YES                          C6489100
003378 9604 1004      00004        9381          OI    QUEFLAGS(R1),QUEOPRTE SET OPERATOR HAS ROUTED FLAG       C6489200
00337C 9140 1001      00001        9382          TM    QUETYPE(R1),$XEQ    IS JOB ON EXECUTION QUEUE            C6489300

003380 0712                        9383          BCR   O,WA                EXIT IF YES                          C6489400
003382 9106 1001      00001        9384          TM    QUETYPE(R1),$OUTPUT+$HARDCPY ANY JOES POSSIBLE           C6489500
003386 0782                        9385          BCR   Z,WA                EXIT IF NOT                          C6489600
003388 1B33                        9386          SR    WB,WB               SET FOR CLASS A                      C6489700

00338A 5870 B0F8      000F8        9387          L     WF,CDFJOT           POINT TO JOT                         C6489800
00338E 1B44                        9388          SR    WC,WC               SET UP HALF WORD REGISTER            C6489900
003390 4153 700C      0000C        9389 CRXCLASS LA    WD,JOTCLSQ-(JOENEXT-JOEDSECT)(WB) POINT TO QUEUE         C6490000
                                   9390 *CRXNXTJOICM   WC,3,JOENEXT        POINT TO HEXT JOE (REL)         RFIT C6490100
003394 1B44                        9391 CRXNXTJO SR    WC,WC                                               RFIT C6490102

003396 4340 5000      00000        9392          IC WC,JOENEXT                                             RFIT C6490105
00339A 8940 0008      00008        9393          SLL   WC,8                                                RFIT C6490110
00339E 4340 5001      00001        9394          IC    WC,JOENEXT+1                                        RFIT C6490115
0033A2 1244                        9395          LTR   WC,WC                                               RFIT C6490120
0033A4 4780 8246      033C6        9396          BZ    CRXNCLS             GO TO NEXT CLASS                     C6490200
0033A8 4154 7000      00000        9397          LA    WD,0(WC,WF)         POINT TO JOE                         C6490300
0033AC 58E0 B13C      0013C        9398          L     R14,$JOBQPTR        POINT TO JOB QUEUE START             C6490400

0033B0 5AE0 5010      00010        9399          A     R14,JOEJQE          POINT TO JOB QUEUE ELEMENT           C6490500
0033B4 191E                        9400          CR    R1,R14              SAME JQE                             C6490600
0033B6 4770 8214      03394        9401          BNE   CRXNXTJO            IF NO GET NEXT                       C6490700

0033BA 9680 500A      0000A        9402          OI    JOEROUT,$JOEIRTE    SET FOR INDIRECT ROUTE               C6490800
0033BE 9602 B0C2      000C2        9403          OI    $STATUS,$JOTCKPT    SET FOR CHECK POINT                  C6490900
0033C2 47F0 8214      03394        9404          B     CRXNXTJO            LOOP                                 C6491000
0033C6 4130 3002      00002        9405 CRXNCLS  LA    WB,2(0,WB)          UP TO NEXT CLASS                     C6491100
0033CA 4930 8254      033D4        9406          CH    WB,CRXMCLS          CHECK FOR MAXIMUM CLASS              C6491200

0033CE 47D0 8210      03390        9407          BNH   CRXCLASS            LOOP                                 C6491300
0033D2 07F2                        9408          BR    WA                  EXIT                                 C6491400
0033D4 0046                        9409 CRXMCLS  DC    H'70'               MAXIMUM CLASS * 2                    C6491500
                                   9410          DROP  WD                                                       C6491600
                                   9411          DROP  WF                                                       C6491800
0033D6 95D1 3000      00000        9412 CRXCKJOB CLI   0(WB),C'J'          IS IT J, JOB, ETC.                   C6492000
0033DA 4770 810A      0328A        9413          BNE   CDMERR              IF NOT, ERROR EXIT                   C6494000
                                   9414 * ROUTE A JOB TO A DEVICE OR REMOTE                                     C6496000

COMM     HASP COMMAND PROCESSOR HASPCRM1 - REMOTE JOB ENTRY COMMANDS                                           PAGE  225


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   9415          $QLOC (R0),CRXJNFND,OLAY=YES LOCATE JOB INDICATED              C6498000
0033DE 1810                        9416+         LR    R1,R0                                                    DG018000
0033E0 45E0 B05C      0005C        9417+         BAL   LINK,$QLOC          LINK TO CONTROL SERVICE PROGRAM      QL010000
0033E4 4780 840C      0358C        9418+         BC    8,CRXJNFND                                               NP008000
                                   9419          $CFVQE NOK=(CDMERR,BC),SYMBOL=CRXVERIF VERIFY QUEUE ELEMENT    C6500000

0033E8                             9420+         DS    0H                                                       NU006000
0033E8 9110 1004      00004        9421          TM    QUEFLAGS(R1),QUEPURGE TEST PURGE BIT                     C6502000
0033EC 4710 818E      0330E        9422          BO    CRXRET              IF PURGE ON, EXIT                    C6504000
0033F0 1841                        9423          LR    WC,R1               SAVE JOB ELEMENT                     C6506000
0033F2 4520 82A4      03424        9424          BAL   WA,CRXANAL          ANALYZE THIRD OPERAND 'TOID'         C6508000
0033F6 47F0 810A      0328A        9425          B     CDMERR              IF NOT LEGAL, EXIT                   C6510000
0033FA 9101 D0F4      000F4        9426          TM    COMNULOP,CRXPRINT   DO WE CHANGE PRINT                   C6512000
0033FE 4780 8286      03406        9427          BZ    *+8                 IF NOT, LOOK FOR PUNCH               C6514000
003402 4200 400C      0000C        9428          STC   R0,QUEPRTRT(0,WC)   SET PRINT ROUTING                    C6516000

003406 9102 D0F4      000F4        9429          TM    COMNULOP,CRXPUNCH   DO WE CHANGE PUNCH                   C6518000

00340A 4780 818E      0330E        9430          BZ    CRXRET              IF NOT RETURN                        C6520000
00340E 4200 400D      0000D        9431          STC   R0,QUEPUNRT(0,WC)   SET PUNCH ROUTING                    C6522000
003412 9101 D0F4      000F4        9432          TM    COMNULOP,CRXPRINT   DID WE CNGE PRINT&PNCH?      OY08690 C6522250
003416 4780 818E      0330E        9433          BZ    CRXRET              NOT 'ALL' ROUT-RETURN        OY08690 C6522300
00341A 1814                        9434          LR    R1,WC               RESTORE JOB QUEUE POINTER            C6522500

00341C 4520 81F2      03372        9435          BAL   WA,CRXSJOE          SET JOES                             C6523000
003420 47F0 818E      0330E        9436          B     CRXRET              RETURN                               C6524000
003424 8656 810A      0328A        9437 CRXANAL  BXH   WD,WE,CDMERR        ERROR IF NO OPERAND                  C6526000
003428 5830 5000      00000        9438          L     WB,0(0,WD)          LOCATE OPERAND                       C6528000
                                   9439          $CFDCTL POINTER=(WD)      LOCATE IF DEVICE SPECIFIED           C6530000
00342C 1815                        9440+         LR    R1,WD                                                    DG018000
00342E 9240 D05C      0005C        9441+         MVI   COMEWORK,C' '       BLANK OUT WORK AREA                  C0956000
003432 D206 D05D D05C 0005D 0005C  9442+         MVC   COMEWORK+1(7),COMEWORK CONTINUE                          C0958000
003438 58F0 1004      00004        9443+         L     R15,4(,R1)          LOCATE NEXT OPERAND                  C0960000
00343C 5810 1000      00000        9444+         L     R1,0(0,R1)          LOCATE THIS ONE                      C0962000

003440 1BF1                        9445+         SR    R15,R1              LENGTH OF OPERAND + 1                C0964000

003442 46F0 82CA      0344A        9446+         BCT   R15,*+8             ACTUAL LENGTH                        C0966000
003446 47F0 8350      034D0        9447+         B     COF0961E            IF NULL, COMPARE AGAINST BLANK       C0968000
00344A 06F0                        9448+         BCTR  R15,0               MACHINE LENGTH                       C0970000
00344C 4100 0007      00007        9449+         LA    R0,7                SET MAXIMUM LENGTH                   C0972000

003450 15F0                        9450+         CLR   R15,R0              TEST FOR WITHIN MAXIMUM              C0974000
003452 47D0 82D8      03458        9451+         BNH   *+6                 ACCEPT CURRENT LENGTH IF YES         C0976000
003456 18F0                        9452+         LR    R15,R0              SET TO MOVE EIGHT CHARACTERS         C0978000
003458 42F0 82DD      0345D        9453+         STC   R15,*+5             SET MACHINE LENGTH FOR MOVE          C0980000
00345C D200 D05C 1000 0005C 00000  9454+         MVC   COMEWORK(*-*),0(R1) MOVE COMPLETE OPERAND                C0982000
003462 D201 D066 D05F 00066 0005F  9455+         MVC   COMDWORK+6(2),COMEWORK+3 MOVE NUMERIC PART               C0984000
                                   9456+* CONVERT SHORT FORM OF DEVICE TO LONG FORM                             C0986000
003468 4110 830A      0348A        9457+         LA    R1,COF0961T        POINT TO CONVERT TABLE                C0988000
00346C 43F0 1003      00003        9458+COF0961L IC    R15,3(0,R1)         PICK UP MACHINE LENGTH OF ANSWER     C0990000
003470 D502 D05C 1000 0005C 00000  9459+         CLC   COMEWORK(3),0(R1)   LOOK FOR MATCH                       C0992000
003476 4780 833C      034BC        9460+         BE    COF0961F           IF MATCH REPLACE WITH LONG FORM       C0994000

00347A 411F 1005      00005        9461+         LA    R1,5(R15,R1)        POINT TO NEXT TABLE ELEMENT          C0996000
00347E 95FF 1000      00000        9462+         CLI   0(R1),X'FF'         CHECK FOR END OF TABLE               C0998000
003482 4770 82EC      0346C        9463+         BNE   COF0961L            IF NOT, LOOP                         C1000000
003486 47F0 8350      034D0        9464+         B     COF0961E            IF END, EXIT                         C1002000

                                   9465+* DEVICE ABBREVIATION TABLE                                             C1004000
00348A                             9466+COF0961T DS    0H                                                       C1006000
00348A D3D5C503D3C9D5C5            9467+         DC    C'LNE',X'03',C'LINE'                                     C1008000
003492 D7D9E306D7D9C9D5            9468+         DC    C'PRT',X'06',C'PRINTER'                                  C1010000
00349D D7E4D504D7E4D5C3            9469+         DC    C'PUN',X'04',C'PUNCH'                                    C1013000
COMM     HASP COMMAND PROCESSOR HASPCRM1 - REMOTE JOB ENTRY COMMANDS                                           PAGE  226


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0034A6 D9C4D905D9C5C1C4            9470+         DC    C'RDR',X'05',C'READER'                                   C1014000
0034B0 D9C4C905C9D5E3D9            9471+         DC    C'RDI',X'05',C'INTRDR'                                   C1018000
0034BA FF                          9472+         DC    X'FF'                                                    C1020000
                                   9473+* ARGUMENT FOUND, MOVE NUMERIC PORTION INTO PLACE                       C1022000

0034BB 00
0034BC 42F0 8341      034C1        9474+COF0961F STC   R15,*+5             SET MOVE INSTRUCTION                 C1024000
0034C0 D200 D05C 1004 0005C 00004  9475+         MVC   COMEWORK(*-*),4(R1) MOVE LONG FORM OF TEXT               C1026000
0034C6 41FF D05D      0005D        9476+         LA    R15,COMEWORK+1(R15) POINT TO END OF TEXT PORTION         C1028000

0034CA D201 F000 D066 00000 00066  9477+         MVC   0(2,R15),COMDWORK+6 MOVE IN NUMERIC                      C1030000
                                   9478+* LOCATE DEVICE CONTROL TABLE                                           C1032000
0034D0 5810 B0F0      000F0        9479+COF0961E L     R1,$DCTPOOL         POINT TO FIRST DCT                   C1034000
0034D4 D507 1018 D05C 00018 0005C  9480+COF0961K CLC   DCTDEVN-DCTDSECT(L'DCTDEVN,R1),COMEWORK LOOK FOR MATCH   C1036000
0034DA 4780 836C      034EC        9481+         BE    COF0961X            EXIT WITH DEVICE FOUND               C1044000
0034DE 5810 1014      00014        9482+         L     R1,DCTCHAIN-DCTDSECT(0,R1) LOOK AT NEXT DCT              C1046000
0034E2 9500 1012      00012        9483+         CLI   DCTDEVTP-DCTDSECT(R1),DCTDA TEST FOR TOO FAR DOWN CHAIN  C1048000
0034E6 4770 8354      034D4        9484+         BNE   COF0961K            LOOP IF NOT TOO FAR                  C1050000
0034EA 1B11                        9485+         SR    R1,R1               FLAG DCT NOT FOUND                   C1052000
0034EC                             9486+COF0961X DS    0H                  R1 = ADDRESS OF DCT OR R1 = 0        C1062000
0034EC 1B00                        9487          SR    R0,R0               SET ROUTING TO ZERO                  C6532000
0034EE D504 8434 3000 035B4 00000  9488          CLC   CRXLOCAL,0(WB)      LOOK FOR LOCAL                       C6534000

0034F4 4780 2004      00004        9489          BE    4(0,WA)             RETURN WITH OK                       C6536000
0034F8 4300 1011      00011        9490          IC    R0,DCTNO-DCTDSECT(0,R1) PICK UP DCT ROUTING              C6538000
0034FC 1211                        9491          LTR   R1,R1               DID WE GET A GOOD DCT                C6540000

0034FE 4770 2004      00004        9492          BNE   4(0,WA)             EXIT WITH GOOD VALUES                C6542000
                                   9493 * MUST BE REMOTE OR JOB                                                 C6544000
                                   9494          $CFCVB POINTER=(WD),NUM=1,SYMBOL=CDMCVB,NOK=CDMERR             C6546000
003502                             9495+         DS    0H                                                       NU006000
003502 1815                        9496+         LR    R1,WD                                                    DG018000
003504 45E0 8398      03518        9497+         BAL   LINK,CDMCVB                                              C0470000
003508 47F0 810A      0328A        9498+         B     CDMERR                                                   C0472000
00350C D501 8439 3000 035B9 00000  9499          CLC   CRXRM,0(WB)         IS IT REMOTE                         C6548000
003512 4780 2004      00004        9500          BE    4(0,WA)             RETURN OK                            C6550000
003516 07F2                        9501          BR    WA                  RETURN ERROR OR JOB                  C6552000
                                   9502 CDMCVB   $CFCVB TYPE=DEF           CONVERT TO BINARY                    C6554000
003518                             9503+CDMCVB   DS    0H                                                       NU006000

003518 58F0 1000      00000        9504+         L     R15,0(0,R1)         PICK UP FIRST PARAMETER              C0482000

00351C 95F0 F000      00000        9505+         CLI   0(R15),C'0'         LOOK FOR NUMERIC ( FA-FF INCLUDED )  C0484000
003520 47B0 83C0      03540        9506+         BNL   COF0970L           IF NUMERIC CONVERT                    C0486000

003524 41F0 F001      00001        9507+         LA    R15,1(0,R15)        NEXT CHARACTER                       C0488000
003528 5020 D01C      0001C        9508+         ST    WA,PCEWA            SAVE WORK REGISTER           OY08684 C0488500
00352C 5820 1004      00004        9509+         L     WA,4(0,R1)          CLEAR HIGH ORDER BYTE OF     OY08684 C0489000
003530 4120 2000      00000        9510+         LA    WA,0(0,WA)          NEXT OPERAND POINTER         OY08684 C0489500
003534 19F2                        9511+         CR    R15,WA              DID WE GO TOO FAR            OY08684 C0490000
003536 5820 D01C      0001C        9512+         L     WA,PCEWA            RESTORE WORK REGISTER        OY08684 C0491000
00353A 4740 839C      0351C        9513+         BL    *-30                LOOP UNTIL NUMERIC OR ERROR  OY08684 C0492000
00353E 07FE                        9514+         BR    LINK                RETURN INVALID OPERAND               C0496000
                                   9515+* CONVERT PAIR OF START STOP VALUES                                     C0504000
003540 1B00                        9516+COF0970L SR    R0,R0               ZERO ACCUMULATOR, STOP VALUE         C0506000
003542 111F                        9517+         LNR   R1,R15              SET NEGATIVE FLAGS                   C0510000
003544 D100 840B F000 0358B 00000  9518+COF0970C MVN COF0970W+1(1),0(R15)  MOVE NUMERIC TO WORK AREA            C0514000

00354A 4C00 8406      03586        9519+         MH    R0,COF0970T        MULTIPLY BY 10                        C0516000
00354E 4A00 840A      0358A        9520+         AH    R0,COF0970W        ADD LOW DIGIT                         C0518000

003552 4900 8408      03588        9521+         CH    R0,COF0970U        LOOK FOR MAXIMUM VALUE                C0520000

003556 072E                        9522+         BCR   H,LINK              RETURN INVALID OPERAND               C0524000
003558 41F0 F001      00001        9523+COF0970N LA    R15,1(0,R15)        NEXT CHARACTER                       C0532000
COMM     HASP COMMAND PROCESSOR HASPCRM1 - REMOTE JOB ENTRY COMMANDS                                           PAGE  227


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00355C 95F0 F000      00000        9524+         CLI   0(R15),C'0'         TEST FOR NUMERIC ( FA-FF INCLUDED )  C0534000
003560 47B0 83C4      03544        9525+         BNL   COF0970C           IF NUMERIC CONVERT THE CHARACTER      C0536000
003564 9560 F000      00000        9526+         CLI   0(R15),C'-'         LOOK FOR SEPARATOR                   C0540000
003568 4780 83F8      03578        9527+         BE    *+16                CONVERT NEXT VALUE                   C0542000
00356C 1510                        9528+         CLR   R1,R0               TEST FOR BOTH VALUES                 C0544000
00356E 47D0 E004      00004        9529+         BNH   4(0,LINK)           RETURN WITH CONVERTED VALUES         C0548000
003572 1810                        9530+         LR    R1,R0               SET TO SAME                          C0550000
003574 47F0 E004      00004        9531+         B     4(0,LINK)           RETURN WITH CONVERTED VALUES         C0552000

003578 95F0 F001      00001        9532+         CLI   1(R15),C'0'         IS NEXT CHARACTER NUMERIC    OY05847 C0560300
00357C 074E                        9533+         BCR   L,LINK              NO RETURN INVALID OPERAND    OY05847 C0560900
00357E 1810                        9534+         LR    R1,R0               SET START OF STRING          OY05847 C0562000

003580 1B00                        9535+         SR    R0,R0               PREPARE FOR NEXT                     C0564000
003582 47F0 83D8      03558        9536+         B     COF0970N           CONVERT NEXT VALUE OF SET             C0566000
003586 000A                        9537+COF0970T DC    H'10'               CONVERSION CONSTANT                  C0580000
003588 270F                        9538+COF0970U DC    H'9999'                                                  C0594000
00358A 0000                        9539+COF0970W DC    H'0'                WORK AREA FOR CONVERSION             C0596000
                                   9540 CRXVERIF $CFVQE TYPE=DEF           VERIFY JOB QUEUE ELEMENT             C6556000
00358C                             9541+CRXVERIF DS    0H                                                       NU006000
                                   9542 CRXJNFND $CRET L=CRXJML,MSG=CRXJM  EXIT JOB NOT FOUND                   C6556500
00358C                             9543+CRXJNFND DS    0H                                                       NU006000
00358C 4100 000D      0000D        9544+         LA    R0,CRXJML                                                C0230000
003590 D20C D068 841E 00068 0359E  9545+         MVC   COMMAND(CRXJML),CRXJM                                    C0248000
003596 41F0 0008      00008        9546+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000

00359A 45E0 B088      00088        9547+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
00359E D1D6C240D5D6E340            9548 CRXJM    DC    C'JOB NOT FOUND'                                         C6557000
                            0000D  9549 CRXJML   EQU   *-CRXJM                                                  C6557500
                            000EC  9550 CRXCKPT  EQU   CAACKPT             CHECKPOINT PCE ADDRESS               C6558000

                            00001  9551 CRXPRINT EQU   1                   FLAG INDICATING PRINT ROUTING        C6560000
                            00002  9552 CRXPUNCH EQU   2                   FLAG INDICATING PUNCH ROUTING        C6562000
0035AB C1D3D3                      9553 CRXALL   DC    C'ALL'              ALL OUTPUT                           C6564000
0035AE D7D9E3                      9554 CRXPRT   DC    C'PRT'              PRINT OUTPUT                         C6566000
0035B1 D7E4D5                      9555 CRXPUN   DC    C'PUN'              PUNCH OUTPUT                         C6568000
0035B4 D3D6C3C1D3                  9556 CRXLOCAL DC    C'LOCAL'            LOCAL                                C6570000

0035B9 D9D4                        9557 CRXRM    DC    C'RM'               RM OR RMT                            C6572000
COMM     HASP COMMAND PROCESSOR HASPCRM2 - REMOTE JOB ENTRY COMMANDS                                           PAGE  228


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   9559 HASPCRM2 $COMGRUP DS,PRTY=0        MORE REMOTE JOB ENTRY COMMANDS       C6576000
0035C0                             9560+HA$OCRM2 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            035C0  9561+HA$ICRM2 EQU   HA$OCRM2+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   9562+         ENTRY HA$ICRM2                                                 OV036000
0035C0 C3D9D4F2                    9563+         DC    CL4'CRM2'           IDENTIFY MODULE ON CORE DUMP         OV038000

0035C4 000035C0                    9564+         DC    A(HA$OCRM2)         ASSEMBLY ORIGIN                      OV040000
0035C8                             9565+HASPCRM2 DS    0F                  ENTRY POINT                          OV042000

                            03568  9566+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                            035C8  9567+CODS            EQU HASPCRM2                                            C0146000
                                   9568 ******************************************************************      C6578000
                                   9569 *                                                                       C6580000
                                   9570 *        $D S,JOB RANGE,ROUTE RANGE -- DISPLAY SPECIAL ROUTINGS         C6582000
                                   9571 *                                                                       C6584000
                                   9572 ******************************************************************      C6586000
0035C8 1B22                        9573 CDS      SR    WA,WA               SET DEFAULT ROUTING                  C6588000

0035CA 9108 D058      00058        9574          TM    COMFLAGS,WCMBFG     IS SOURCE A REMOTE                   C6590000
0035CE 4780 806E      035D6        9575          BZ    *+8                 IF NOT, SKIP SETTING ID              C6592000
0035D2 4320 D059      00059        9576          IC    WA,COMROUTE         SET REMOTE IDENTIFICATION            C6594000
0035D6 1832                        9577          LR    WB,WA               COPY ROUTING                         C6596000
0035D8 4140 0001      00001        9578          LA    WC,1                SET DEFAULT LOW JOB NUMBER           C6598000

0035DC 48A0 82CA      03832        9579          LH    R10,CDSMAXJ         SET DEFAULT HIGH JOB NUMBER          C6600000
0035E0 8656 811C      03684        9580 CDSNSPEC BXH   WD,WE,CDSOK         IF NO MORE OPERANDS EXIT             C6602000
                                   9581          $CFCVB POINTER=(WD),NOK=CDSINVO CONVERT TO BINARY              C6604000

0035E4                             9582+         DS    0H                                                       NU006000
0035E4 1815                        9583+         LR    R1,WD                                                    DG018000
0035E6 58F0 1000      00000        9584+         L     R15,0(0,R1)         PICK UP FIRST PARAMETER              C0482000
0035EA 95F0 F000      00000        9585+         CLI   0(R15),C'0'         LOOK FOR NUMERIC ( FA-FF INCLUDED )  C0484000
0035EE 47B0 80A8      03610        9586+         BNL   COF0979L           IF NUMERIC CONVERT                    C0486000
0035F2 41F0 F001      00001        9587+         LA    R15,1(0,R15)        NEXT CHARACTER                       C0488000
0035F6 5020 D01C      0001C        9588+         ST    WA,PCEWA            SAVE WORK REGISTER           OY08684 C0488500

0035FA 5820 1004      00004        9589+         L     WA,4(0,R1)          CLEAR HIGH ORDER BYTE OF     OY08684 C0489000
0035FE 4120 2000      00000        9590+         LA    WA,0(0,WA)          NEXT OPERAND POINTER         OY08684 C0489500
003602 19F2                        9591+         CR    R15,WA              DID WE GO TOO FAR            OY08684 C0490000
003604 5820 D01C      0001C        9592+         L     WA,PCEWA            RESTORE WORK REGISTER        OY08684 C0491000
003608 4740 8082      035EA        9593+         BL    *-30                LOOP UNTIL NUMERIC OR ERROR  OY08684 C0492000

00360C 47F0 8252      037BA        9594+         B     CDSINVO                                                  C0500000
                                   9595+* CONVERT PAIR OF START STOP VALUES                                     C0504000
003610 1B00                        9596+COF0979L SR    R0,R0               ZERO ACCUMULATOR, STOP VALUE         C0506000
003612 111F                        9597+         LNR   R1,R15              SET NEGATIVE FLAGS                   C0510000

003614 D100 80F7 F000 0365F 00000  9598+COF0979C MVN COF0979W+1(1),0(R15)  MOVE NUMERIC TO WORK AREA            C0514000
00361A 4C00 80F2      0365A        9599+         MH    R0,COF0979T        MULTIPLY BY 10                        C0516000
00361E 4A00 80F6      0365E        9600+         AH    R0,COF0979W        ADD LOW DIGIT                         C0518000
003622 4900 80F4      0365C        9601+         CH    R0,COF0979U        LOOK FOR MAXIMUM VALUE                C0520000
003626 4720 8252      037BA        9602+         BH    CDSINVO                                                  C0528000
00362A 41F0 F001      00001        9603+COF0979N LA    R15,1(0,R15)        NEXT CHARACTER                       C0532000

00362E 95F0 F000      00000        9604+         CLI   0(R15),C'0'         TEST FOR NUMERIC ( FA-FF INCLUDED )  C0534000
003632 47B0 80AC      03614        9605+         BNL   COF0979C           IF NUMERIC CONVERT THE CHARACTER      C0536000
003636 9560 F000      00000        9606+         CLI   0(R15),C'-'         LOOK FOR SEPARATOR                   C0540000
00363A 4780 80E2      0364A        9607+         BE    *+16                CONVERT NEXT VALUE                   C0542000
00363E 1510                        9608+         CLR   R1,R0               TEST FOR BOTH VALUES                 C0544000

003640 47D0 80F8      03660        9609+         BNH   COF0979E            EXIT WITH CONVERTED VALUES           C0556000
003644 1810                        9610+         LR    R1,R0               SET TO SAME                          C0558000
003646 47F0 80F8      03660        9611+         B     COF0979E            EXIT WITH CONVERTED VALUES           C0560000
00364A 95F0 F001      00001        9612+         CLI   1(R15),C'0'         IS NEXT CHARACTER NUMERIC    OY05847 C0560300
00364E 4740 8252      037BA        9613+         BL    CDSINVO             NO RETURN INVALID OPERAND    OY05847 C0561500

COMM     HASP COMMAND PROCESSOR HASPCRM2 - REMOTE JOB ENTRY COMMANDS                                           PAGE  229


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

003652 1810                        9614+         LR    R1,R0               SET START OF STRING          OY05847 C0562000
003654 1B00                        9615+         SR    R0,R0               PREPARE FOR NEXT                     C0564000
003656 47F0 80C2      0362A        9616+         B     COF0979N           CONVERT NEXT VALUE OF SET             C0566000

00365A 000A                        9617+COF0979T DC    H'10'               CONVERSION CONSTANT                  C0580000
00365C 270F                        9618+COF0979U DC    H'9999'                                                  C0594000
00365E 0000                        9619+COF0979W DC    H'0'                WORK AREA FOR CONVERSION             C0596000
003660                             9620+COF0979E DS    0H                  END OF BINARY CONVERT                C0600000
003660 58F0 5000      00000        9621          L     R15,0(0,WD)         POINT TO OPERAND                     C6606000

003664 95D1 F000      00000        9622          CLI   0(R15),C'J'         IS THIS JOB SPECIFICATION            C6608000
003668 4770 810C      03674        9623          BNE   CDSROUTE            IF NOT ASSUME ROUTING                C6610000
00366C 1841                        9624          LR    WC,R1               SET LOW JOB                          C6612000
00366E 18A0                        9625          LR    R10,R0              SET HIGH JOB                         C6614000
003670 47F0 8078      035E0        9626          B     CDSNSPEC            LOOP                                 C6616000
003674 1821                        9627 CDSROUTE LR    WA,R1               SET LOW ROUTE                        C6618000

003676 1830                        9628          LR    WB,R0               SET HIGH ROUTE                       C6620000
003678 4930 82CC      03834        9629          CH    WB,CDSMAX           CHECK FOR ROUTING TOO HIGH           C6622000
00367C 4720 8252      037BA        9630          BH    CDSINVO             ERROR IF YES                         C6624000
003680 47F0 8078      035E0        9631          B     CDSNSPEC            LOOP                                 C6626000

                            00000  9632          USING JOTDSECT,WF                                              C6628000
                            00000  9633          USING JOEDSECT,R10                                             C6630000
003684 D202 D068 82DC 00068 03844  9634 CDSOK    MVC   COMMAND(3),CDSJOB   SET 'JOB'                            C6632000
00368A 4020 D0E0      000E0        9635          STH   WA,COMPNTER         SAVE                                 C6634000
00368E 4030 D0E2      000E2        9636          STH   WB,COMPNTER+2        ROUTINGS                            C6636000

003692 40A0 D0E4      000E4        9637          STH   R10,COMPNTER+4      SAVE HIGH JOB                        C6638000
003696 5870 B0F8      000F8        9638          L     WF,CDFJOT           POINT TO JOT                         C6640000
00369A D20B D070 82D0 00070 03838  9639          MVC   COMMAND+3+COMJBLEN+1(CDSML),CDSM SET PATTERN             C6642000
                                   9640 * SCAN FOR ALL CLASSES FOR THE JOB                                      C6644000
0036A0 1B66                        9641 CDSNJOB  SR    WE,WE               SET CLASS                            C6646000
0036A2 41A6 700C      0000C        9642          LA    R10,JOTCLSQ-(JOENEXT-JOEDSECT)(WE) POINT TO HEAD         C6648000
                                   9643 * FORM 1 LINE OF OUTPUT                                                 C6650000

                                   9644 CDSLOC   $QLOC (WC),CDSNEXT,OLAY=YES LOCATE JOB QUEUE ELEMENT           C6652000
0036A6 1814                        9645+CDSLOC   LR    R1,WC                                                    DG018000
0036A8 45E0 B05C      0005C        9646+         BAL   LINK,$QLOC          LINK TO CONTROL SERVICE PROGRAM      QL010000

0036AC 4780 820E      03776        9647+         BC    8,CDSNEXT                                                NP008000
0036B0 9680 D0F4      000F4        9648          OI    COMNULOP,X'80'      TURN ON JOB FOUND                    C6654000
0036B4 9140 1001      00001        9649          TM    QUETYPE(R1),$XEQ    IS IT XEQ                            C6656000
0036B8 4710 820E      03776        9650          BO    CDSNEXT             IF YES FORGET IT                     C6658000
0036BC 9106 1001      00001        9651          TM    QUETYPE(R1),$OUTPUT+$HARDCPY ARE JOES POSSIBLE           C6660000

0036C0 4780 820E      03776        9652          BZ    CDSNEXT             IF NOT FORGET IT                     C6662000
0036C4 D201 D0E6 100C 000E6 0000C  9653          MVC   COMPNTER+6(2),QUEPRTRT+QUEPUNRT-QUEPUNRT(R1)             C6664000
0036CA 4130 1000      00000        9654          LA    WB,0(0,R1)          POINT TO IT                          C6666000
0036CE 5B30 B13C      0013C        9655          S     WB,$JOBQPTR         MAKE RELATIVE                        C6668000
                                   9656          $CFCVE VALUE=(WC),SYMBOL=CDSCVE CONVERT TO PRINTABLE           C6670000
0036D2 1804                        9657+         LR    R0,WC                                                    DG018000
0036D4 45E0 82B2      0381A        9658+         BAL   LINK,CDSCVE                                              C0674000
0036D8 D204 D06B D060 0006B 00060  9659          MVC   COMMAND+3(COMJBLEN+1),COMDWORK-COMJBLEN+4 SET NUM        C6672000

0036DE 4150 D0AA      000AA        9660          LA    WD,COMMAND+70-4     POINT TO LAST ENTRY ON LINE          C6674000
0036E2 1B22                        9661 CDSLOOP  SR    WA,WA               SET HALF WORD POINTER                C6676000

0036E4 41F0 D07B      0007B        9662          LA    R15,COMMAND+3+COMJBLEN+CDSML POINT TO '='                C6678000
                                   9663 *CDSNXTJOICM   WA,3,JOENEXT        PICK UP JOE OFFSET              RFIT C6680000
0036E8 1B22                        9664 CDSNXTJO SR   WA,WA                                                RFIT C6680002
0036EA 4320 A000      00000        9665          IC    WA,JOENEXT                                          RFIT C6680005
0036EE 8920 0008      00008        9666          SLL   WA,8                                                RFIT C6680010

0036F2 4320 A001      00001        9667          IC    WA,JOENEXT+1                                        RFIT C6680015
0036F6 1222                        9668          LTR   WA,WA                                               RFIT C6680020
COMM     HASP COMMAND PROCESSOR HASPCRM2 - REMOTE JOB ENTRY COMMANDS                                           PAGE  230


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0036F8 4780 81EE      03756        9669          BZ    CDSECLS             IF END OF CLASS EXIT                 C6682000
0036FC 41A2 7000      00000        9670          LA    R10,0(WA,WF)        POINT TO JOE                         C6684000
                                   9671 *        CLM   WB,7,JOEJQE+1       CHECK FOR DESIRED JOB           RFIT C6686000
003700 5030 D05C      0005C        9672          ST    WB,COMEWORK                                         RFIT C6686005
003704 D502 D05D A011 0005D 00011  9673          CLC   COMEWORK+1(3),JOEJQE+1                              RFIT C6686010

00370A 4770 8180      036E8        9674          BNE   CDSNXTJO            LOOP                                 C6688000

00370E 9180 A00A      0000A        9675          TM    JOEROUT,$JOEIRTE    CHECK FOR INDIRECT ROUTING           C6690000
003712 4710 8180      036E8        9676          BO    CDSNXTJO            LOOP                                 C6692000
003716 4800 A00A      0000A        9677          LH    R0,JOEROUT          PICK UP ROUTE                        C6694000
                                   9678 *        CLM   R0,3,COMPNTER       CHECK ROUTE WITHIN RANBE        RFIT C6696000
00371A 5000 D05C      0005C        9679          ST    R0,COMEWORK                                         RFIT C6696005

00371E D501 D05E D0E0 0005E 000E0  9680          CLC   COMEWORK+2(2),COMPNTER                              RFIT C6696010
003724 4740 8180      036E8        9681          BL    CDSNXTJO            LOOP                                 C6698000
                                   9682 *        CLM   R0,3,COMPNTER+2     CHECK HIGH                      RFIT C6700000
003728 D501 D05E D0E2 0005E 000E2  9683          CLC   COMEWORK+2(2),COMPNTER+2                            RFIT C6700005
00372E 4720 8180      036E8        9684          BH    CDSNXTJO            LOOP                                 C6702000
                                   9685          $CFCVE VALUE=(R0),SYMBOL=CDSCVE CONVERT TO EBCDIC              C6704000
003732 45E0 82B2      0381A        9686+         BAL   LINK,CDSCVE                                              C0674000
003736 D202 F001 D062 00001 00062  9687          MVC   1(3,R15),COMDWORK+2 MOVE ROUTING                         C6706000
00373C 926B F004      00004        9688          MVI   4(R15),C','         SET COMMA                            C6708000
003740 41F0 F004      00004        9689          LA    R15,4(0,R15)        POINT TO COMMA                       C6710000

003744 9660 D0F4      000F4        9690          OI    COMNULOP,X'40'+X'20' SET SOMETHING AND WRITE LINE        C6712000

003748 19F5                        9691          CR    R15,WD              CHECK FOR END OF LINE                C6714000
00374A 47D0 8180      036E8        9692          BNH   CDSNXTJO            LOOP                                 C6716000
00374E 4550 827E      037E6        9693          BAL   WD,CDSDIS           DISPLAY LINE                         C6718000
003752 47F0 813E      036A6        9694          B     CDSLOC              RE-LOCATE THE JQE                    C6720000

                                   9695 * NEXT CLASS                                                            C6722000
003756 4160 6002      00002        9696 CDSECLS  LA    WE,2(0,WE)          UP TO NEXT CLASS                     C6724000
00375A 4960 82CE      03836        9697          CH    WE,CDSMCLS          IS THIS END OF CLASSES               C6726000
00375E 4720 8202      0376A        9698          BH    CDSEJOB             BR IF YES                            C6728000
003762 41A6 700C      0000C        9699          LA    R10,JOTCLSQ-(JOENEXT-JOEDSECT)(WE)                       C6730000
003766 47F0 8180      036E8        9700          B     CDSNXTJO            LOOP                                 C6732000
                                   9701 * NEXT JOB                                                              C6734000
00376A 9120 D0F4      000F4        9702 CDSEJOB  TM    COMNULOP,X'20'      FORCE LINE OUT                       C6736000
00376E 4780 820E      03776        9703          BZ    CDSNEXT             DO NEXT JOB                          C6738000
003772 4550 827E      037E6        9704          BAL   WD,CDSDIS           DISPLAY                              C6740000

003776 4140 4001      00001        9705 CDSNEXT  LA    WC,1(0,WC)          UP TO NEXT JOB                       C6742000

00377A 4940 D0E4      000E4        9706          CH    WC,COMPNTER+4       END                                  C6744000
00377E 47D0 8138      036A0        9707          BNH   CDSNJOB             DISPLAY THIS JOB IF FOUND            C6746000
003782 91C0 D0F4      000F4        9708          TM    COMNULOP,X'80'+X'40' ANYTHING TO SAY NOW                 C6748000
003786 4710 824A      037B2        9709          BO    CDSRET              IF NOT EXIT                          C6750000

00378A 4780 8238      037A0        9710          BZ    CDSNJ               IF NO JOB FOUND BR                   C6752000
                                   9711          $CRET L=CDSNSDSL,MSG=CDSNSDS RETURN WITH DIAGNOSTIC            C6754000
00378E                             9712+         DS    0H                                                       NU006000
00378E 4100 001E      0001E        9713+         LA    R0,CDSNSDSL                                              C0230000
003792 D21D D068 82EC 00068 03854  9714+         MVC   COMMAND(CDSNSDSL),CDSNSDS                                C0248000
003798 41F0 0008      00008        9715+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
00379C 45E0 B088      00088        9716+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   9717 CDSNJ    $CRET L=CDSNJML,MSG=CDSNJM RETURN WITH DIAGNOSTIC              C6756000
0037A0                             9718+CDSNJ    DS    0H                                                       NU006000
0037A0 4100 0010      00010        9719+         LA    R0,CDSNJML                                               C0230000
0037A4 D20F D068 82DC 00068 03844  9720+         MVC   COMMAND(CDSNJML),CDSNJM                                  C0248000

0037AA 41F0 0008      00008        9721+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000
0037AE 45E0 B088      00088        9722+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   9723 CDSRET   $CRET ,                   EXIT                                 C6758000
COMM     HASP COMMAND PROCESSOR HASPCRM2 - REMOTE JOB ENTRY COMMANDS                                           PAGE  231



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0037B2                             9724+CDSRET   DS    0H                                                       NU006000
0037B2 41F0 0000      00000        9725+         LA    R15,CORTNORM        NORMAL RETURN                        C0268000
0037B6 45E0 B088      00088        9726+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
0037BA 5810 5000      00000        9727 CDSINVO  L     R1,0(0,WD)          POINT TO OPERAND                     C6760000
                                   9728          $CFINVO OPERAND=(R1)      EXIT ON ERROR                        C6762000
                                   9729+* RETURN WITH INVALID OPERAND AS RESPONSE                               C1202000
0037BE D208 D068 1000 00068 00000  9730+         MVC   COMMAND(9),0(R1)                                         C1204000
0037C4 D20F D071 826E 00071 037D6  9731+         MVC   COMMAND+9(16),COF1007 MOVE DIAGNOSTIC BEHIND TEXT        C1206000
0037CA                             9732+         DS    0H                                                       NU006000
0037CA 4100 0019      00019        9733+         LA    R0,25                                                    C0230000
0037CE 41F0 0008      00008        9734+         LA    R15,CORTMSG         RETURN AND ISSUE MESSAGE             C0254000

0037D2 45E0 B088      00088        9735+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
0037D6 40C9D5E5C1D3C9C4            9736+COF1007  DC    C' INVALID OPERAND'                                      C1210000
0037E6 94DF D0F4      000F4        9737 CDSDIS   NI    COMNULOP,255-X'20'  RESET WRITE LINE                     C6764000

0037EA 1B00                        9738          SR    R0,R0               ZERO ROUTE                           C6766000
0037EC 4300 D0E6      000E6        9739          IC    R0,COMPNTER+6       PICK UP PRT ROUTE                    C6768000
                                   9740          $CFCVE VALUE=(R0),SYMBOL=CDSCVE                                C6770000
0037F0 45E0 82B2      0381A        9741+         BAL   LINK,CDSCVE                                              C0674000
0037F4 D202 D072 D062 00072 00062  9742          MVC   COMMAND+3+COMJBLEN+1+2(3),COMDWORK+2 COPY TO TEXT        C6772000
0037FA 4300 D0E7      000E7        9743          IC    R0,COMPNTER+7       PICK UP PUN ROUTE                    C6774000
                                   9744          $CFCVE VALUE=(R0),SYMBOL=CDSCVE                                C6776000
0037FE 45E0 82B2      0381A        9745+         BAL   LINK,CDSCVE                                              C0674000
003802 D202 D076 D062 00076 00062  9746          MVC   COMMAND+3+COMJBLEN+1+6(3),COMDWORK+2 COPY TO TEXT        C6778000
003808 4100 D068      00068        9747          LA    R0,COMMAND          CALCULATE LENGTH                     C6780000
00380C 1BF0                        9748          SR    R15,R0               OF MESSAGE                          C6782000
                                   9749          $SRR  WD                  MAKE RETURN RELATIVE                 C6784000

00380E 1F58                        9750+         SLR   WD,BASE3                                                 C2068000

                                   9751          $CWTO L=(R15)             DISPLAY MESSAGE                      C6786000
003810                             9752+         DS    0H                                                       NU006000

003810 180F                        9753+         LR    R0,R15                                                   C0336000
003812 4520 C00C      0000C        9754+         BAL   WA,COWTO(0,BASE2)   REPLY TO OPERATOR                    C0354000
003816 47F5 8000      00000        9755          B     0(WD,BASE3)         RETURN                               C6790000
                                   9756 CDSCVE   $CFCVE TYPE=DEF           CONVERT TO EBCDIC                    C6792000
00381A                             9757+CDSCVE   DS    0H                                                       NU006000
                                   9758+* CONVERT TO EBCDIC AND LEAVE ANSWER IN COMDWORK ( 5 DIGITS )           C0684000
00381A 4E00 D060      00060        9759+         CVD   R0,COMDWORK         CONVERT TO DECIMAL                   C0686000
00381E D205 D05F 82C4 0005F 0382C  9760+         MVC   COMDWORK-1(6),COF1022 MOVE MASK TO BLANK OUT HIGH ZEROS  C0688000
003824 DE05 D05F D065 0005F 00065  9761+         ED    COMDWORK-1(6),COMDWORK+5 CONVERT TO EBCDIC               C0690000
00382A 07FE                        9762+         BR    LINK                RETURN                               C0694000
00382C 402020202120                9763+COF1022  DC    X'402020202120'     MASK FOR EDIT                        C0696000
                                   9764          DROP  R10                                                      C6794000

                                   9765          DROP  WF                                                       C6796000
003832 270F                        9766 CDSMAXJ  DC    H'9999'             MAXIMUM JOB NUMBER                   C6797000

003834 00FF                        9767 CDSMAX   DC    H'255'              MAXIMUM ROUTING                      C6798000

003836 0046                        9768 CDSMCLS  DC    H'70'               MAXIMUM CLASSES * 2                  C6800000
003838 404D4040406B4040            9769 CDSM     DC    C' (   ,   ) ='                                          C6802000
                            0000C  9770 CDSML    EQU   *-CDSM                                                   C6804000
003844 D1D6C24DE25D40D5            9771 CDSNJM   DC    C'JOB(S) NOT FOUND'                                      C6806000
                            00010  9772 CDSNJML  EQU   *-CDSNJM                                                 C6808000
                            03844  9773 CDSJOB   EQU   CDSNJM                                                   C6810000
003854 D5D640E2D7C5C3C9            9774 CDSNSDS  DC    C'NO SPECIAL ROUTED OUTPUT FOUND'                        C6812000
                            0001E  9775 CDSNSDSL EQU   *-CDSNSDS                                                C6814000
                                   9776          END                                                            C6816000
000130 00000000                    9777                =V($#CAN)
000134 00000000                    9778                =V($RDRPCE)
COMM     HASP COMMAND PROCESSOR HASPCRM2 - REMOTE JOB ENTRY COMMANDS                                           PAGE  232



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000138 00000000                    9779                =V(XWARM)
COMM                                              RELOCATION DICTIONARY                                        PAGE  233



POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.01 08/28/78

 0001     0003      24     00006C
 0001     0004      1C     0000EC
 0001     0005      1C     0000F0
 0001     0006      1C     0000F4
 0001     0007      1C     0000F8
 0001     0008      1C     0000FC
 0001     0009      1C     000100
 0001     000A      1C     000120
 0001     000B      1C     000124
 0001     000C      1C     000128
 0001     002E      1C     000130

 0001     002F      1C     000134
 0001     0030      1C     000138
 000D     000D      0C     000144
 000D     000E      24     00042A

 000D     000E      24     000442
 000D     000E      24     000454
 000D     000E      24     0004A2
 000D     000E      24     0004BA
 000D     000E      24     0004D8
 000D     000F      24     000430

 000D     000F      24     00045A
 000D     000F      24     000484
 000D     000F      24     000490
 000D     000F      24     0004C0
 000D     0010      24     000436
 000D     0010      24     000448
 000D     0010      24     000472
 000D     0010      24     0004C6

 000D     0010      24     0004E4
 000D     0011      24     00043C

 000D     0011      24     00044E
 000D     0011      24     0004AE
 000D     0011      24     0004B4
 000D     0011      24     0004CC
 000D     0011      24     0004D2
 000D     0011      24     0004F6
 000D     0012      24     000460
 000D     0012      24     000478

 000D     0012      24     00048A
 000D     0012      24     00049C
 000D     0013      24     000466
 000D     0014      24     00046C
 000D     0014      24     0004DE

 000D     0014      24     0004EA
 000D     0014      24     000502
 000D     0014      24     000508

 000D     0014      24     000514
 000D     0015      24     00047E
 000D     0015      24     0004FC
 000D     0016      24     000496
 000D     0017      24     0004A8
 000D     0018      24     0004F0
 000D     0019      24     00050E

 000D     001A      24     00051A
COMM                                              RELOCATION DICTIONARY                                        PAGE  234


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.01 08/28/78

 000D     001B      24     000520
 000D     001C      24     000526

 000D     001C      24     00052C
 001D     001D      0C     00053C
 001D     001E      24     000842
 001F     001F      0C     0008A4

 0020     0020      0C     000C2C
 0021     0021      0C     000FDC
 0022     0022      0C     0013BC
 0023     0010      24     001A32
 0023     0017      24     001A3E
 0023     0023      0C     0016D4

 0024     0024      0C     001A6C
 0025     0025      0C     001DC4
 0026     0026      0C     002064
 0027     0027      0C     00226C
 0028     0028      0C     00272C

 0029     0029      0C     0028C4
 002A     002A      0C     002BCC
 002B     002B      0C     002E44
 002C     002C      0C     0031DC
 002D     002D      0C     0035C4


COMM                                              CROSS-REFERENCE                                              PAGE  235


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

$ACCTECB 00004 00000118 04754  04751
$ACTIVE  00001 000000C7 01750  08473

$ALMSGSW 00001 00000040 01572  08418 08468 08677
$ALWAYS  00001 00000070 01538  04990 09277
$ATTNENT 00004 0000015C 01815  08584
$ATTNSAV 00004 0000018C 01831  08585
$CKPTACT 00001 00000010 01574  06452 07216 08489

$COMMCT  00002 000000CE 01756  04829 04830 04832
$COMMQUE 00004 00000114 01776  04675 04683 08681 08683 08685
$CVTPTR  00001 00000010 02231  08928
$DA      00001 00000001 04724  05058 08889
$DCBLIST 00004 00000104 01772  08661
$DCTPOOL 00004 000000F0 01767  05454 05910 06502 06803 06991 07329 07520 07775 07964 08589 09008 09157 09182 09201 09479

$DD      00001 00000009 04725  05064 08900
$DF      00001 00000002 04726  05070 08890
$DI      00001 00000003 04727  05076 08891
$DISALL  00001 000000C9 01752  04673 04828 07856 07886 08572 08679 09079

$DJ      00001 00000004 04728  05082 08892
$DL      00001 00000005 04729  05088 08893
$DN      00001 00000007 04730  05101 08901
$DO      00001 00000006 04731  05107 08894
$DOMMIN  00001 00000002 04992  04993

$DOMQUE  00004 00000118 01777  09080
$DQ      00001 00000007 04732  05113 08895
$DR      00001 00000005 04733  08902
$DRAINED 00001 00000020 01573  08408 08418 08467
$DS      00001 00000008 04734  05121 08896
$DU      00001 00000009 04735  05127 08897
$D7D     00001 00000004 04723  05052 08899

$ENBALL  00001 000000C8 01751  04680 04685 04838 07863 07891 07894 08502 08579 08690 09098
$EWBCKPT 00001 00000000 01501  06449 07214 08487
$EWBHOLD 00001 00000001 01509  08421 08483 08492 08504

$EWBIO   00001 00000001 01507  06481 07606 07876
$EWBWORK 00001 00000001 01508  04679 05375 06419 06633 07837 08692 09347
$EWFCKPT 00001 00000004 01478  06449 07214 08487
$EWFCMB  00001 00000002 01479  04835
$EWFHOLD 00001 00000010 01486  08421 08483 08492 08504

$EWFIO   00001 00000040 01484  06481 07606 07876
$EWFJOB  00001 00000010 01476  05372 06416 06490 07870 08110 08362 09350
$EWFJOT  00001 00000001 01481  05372 06416 07870 08110 08427 09350
$EWFPOST 00001 00000080 01473  05376 06420 06482 06634 07607 07838 07877 08422 09348
$EWFUNIT 00001 00000008 01477  07870
$EWFWORK 00001 00000020 01485  04679 05375 06419 06633 07837 08692 09347
$EXITNOP 00002 0000002C 01671  01666 01667
$FREEMSG 00004 0000009C 01724  04831 08686

$GETSMFB 00004 000000A8 01730  08539
$HARDCPY 00001 00000002 02181  06491 09384 09651

$HASPECF 00001 000000C4 01747  04835 05372 05376 06416 06420 06482 06490 06634 07607 07838 07870 07877 08110 08362 08422
                               08427 09348 09350
$HI      00001 00000007 01547  04990 09277
$JCTTEST 00001 000005D0 04325  04326
$JOBNO   00002 0000014C 01803  07207

$JOBQPTR 00004 0000013C 01799  06116 09398 09655
$JOEBUSY 00001 00000080 04118  06114
$JOEIRTE 00001 00000080 04125  06129 09402 09675
COMM                                              CROSS-REFERENCE                                              PAGE  236


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

$JOTABLE 00004 000000F8 01769  04740
$JOTCKPT 00001 00000002 01577  09403
$JQENT   00004 00000144 01801  05360 05401 05511 05635 05743 05887 06928 07062 09339
$LINKENT 00004 00000170 01824  08574
$LOG     00001 00000001 01520  09282
$NUCTABL 00004 0000012C 01785  01790
$NUCTBLE 00004 0000015C 01814  01818

$NWTRECB 00004 00000108 04748  08526
$OLINK   00004 0000008C 01717  04690
$ORET    00004 00000088 01716  04942 05380 05386 05415 05522 05531 05707 06224 06230 06270 06399 06436 06440 06731 06764

                               06768 06944 07073 07083 07092 07211 07243 07250 07401 07542 07612 07619 07798 07882 07901
                               07985 08121 08243 08339 08366 08370 08465 08700 08833 08866 08876 09025 09108 09114 09175
                               09293 09302 09354 09547 09716 09722 09726 09735
$OUTPUT  00001 00000004 02180  06461 06491 09384 09651
$OXCTL   00004 00000090 01718  04987 05624 07152 07158
$PCEORG  00004 000000E4 01764  08419 08478
$PSMFECB 00004 00000110 04752  04750 08549
$PWTRECB 00004 00000104 04747  04746 08523
$QADD    00004 00000048 01691  07289

$QJITLOC 00004 00000060 01697  05427 05826 06537 06775 06945 06963 07301

$QLOC    00004 0000005C 01696  06384 06716 07220 09417 09646
$QPUT    00004 00000050 01693  06465
$QREM    00004 00000054 01694  07283
$QUESMFB 00004 000000A4 01729  08546
$RDRPEND 00001 00000080 01571  08470

$SAVEBEG 00004 0000013C 01798  01807
$SAVEEND 00001 0000015C 01806  01807
$SMFTCBA 00004 00000114 04753  08553
$STATUS  00001 000000C2 01745  06452 07216 08408 08418 08467 08468 08470 08489 08494 08677 09403
$SVCIOS  00004 00000178 01826  08573
$SVCWTL  00004 00000188 01830  08577
$SVCWTO  00004 00000184 01829  08576
$SYSEXIT 00001 00000004 01576  08494
$TP      00001 00000008 01523  09282
$WAIT    00004 00000030 01676  04681 06450 07215 08488 08505 08693

$WTO     00004 00000098 01723  04662

$WTOPECB 00004 0000011C 04756  04755 08514
$WTRTCBA 00004 0000010C 04749  08530
$XCTLENT 00004 00000174 01825  08575
$XEQ     00001 00000040 02176  05448 05793 05848 06456 06458 06559 06739 06797 06985 07323 07409 09382 09649

BASE1    00001 0000000B 01447  01654 04650
BASE2    00001 0000000C 01448  04648 04935 04980 05364 05369 05369 05405 05410 05410 05481 05496 05757 05866 06251 06424
                               06573 06592 06752 06831 06850 06932 06937 06937 07019 07038 07119 07357 07376 07718 08399
                               08840 08959 09061 09101 09287 09754
BASE3    00001 00000008 01445  04655 04664 04778 04976 04981 05343 05475 05485 05487 05662 05954 06245 06254 06305 06464
                               06496 06567 06577 06579 06660 06825 06835 06837 06892 07013 07023 07025 07178 07282 07288
                               07351 07361 07363 07457 07732 07915 08269 08449 08538 08717 08913 09226 09566 09750 09755
BUFDSECT 00001 00000000 01904  04218 04778 05343 05662 05954 06305 06660 06892 07178 07457 07732 07915 08269 08449 08717
                               08913 09226 09566
BUFSTART 00008 00000058 01943  01950 01956 04218 05692 05776 05781 05787 05803 05808 06390 06722 07532 07786 07975
CAA      00004 00000552 05360  05346

CAACKPT  00004 000000EC 04739  05373 06651 08705 09550
CAAIGN   00004 00000566 05365  05388
CAAML    00001 0000000E 05650  05383 05384
CAANONE  00002 00000592 05382  05370

COMM                                              CROSS-REFERENCE                                              PAGE  237


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

CAANXT   00004 0000055E 05363  05390
CAAPRO   00004 000005A4 05387  05368
CAAPST   00004 0000057E 05373  05641
CAAQNH   00014 00000874 05649  05384 05650
CAJ      00006 000010D2 06410  06308
CAJCKPT  00004 000000EC 06651  06417 06631
CAJFMSG  00016 000013A2 06649  06434 06650
CAJHMSG  00010 00001398 06648  06410
CAJINVO  00004 000010A6 06391  06344 06352 06363
CAJLOC   00002 00001094 06381  06451

CAJLOOP  00002 00000FF6 06332  06373
CAJLOOPA 00004 00001084 06376  06428
CAJLOOPB 00002 00001088 06378  06427

CAJMSG   00002 000010FA 06422  06412
CAJNEXT  00004 00001102 06425  06385 06613
CAJOB    00016 000013A2 06650  06375
CAJRET   00002 0000112C 06438  06430
CAJRMSG  00008 00001390 06647  06414
CA7DD    00020 00001A4E 07168  07115 07169
CA7DDL   00001 00000014 07169  07115 07118
CA7DDUP  00002 0000171A 06925  07121
CA7DFND  00004 00001A2C 07147  07138
CA7DSCN  00006 00001A00 07137  07140
CA7DSET  00002 000019D6 07122  06940
CA7DTAB  00002 00001A44 07159  07135 07164

CA7DTABN 00001 00000004 07164  07136

CA7DXIT  00002 000019B8 07112  06951
CB       00004 00001ED2 07555  07460 07668

CBCNVT1  00004 00001EFE 07568  07563 07577
CBCNVT2  00002 00001FBA 07622  07570
CBCNVT3  00002 00001FBC 07623  07571 07572
CBCNVT4  00004 00001FC0 07624  07573
CBXDCTL  00002 00001DE0 07481  07608
CBXDEF   00004 00001F2E 07580  07559 07566 07567
CBXINVO  00004 00001EA6 07534  07557 07569 07574 07637 07655 07677 07691 07708
CBXMASK  00004 00001FC4 07625  07592 07596 07598
CBXMSG   00007 00001FB2 07620  07614 07621
CBXMSGL  00001 00000007 07621  07614 07617
CBXNEXT  00004 00001F8E 07608  07579 07581 07603 07711 07721
CBXNG    00006 00001F9A 07613  07585

CBXPOST  00004 00001F7A 07602  07641 07658 07693
CBXPOSTA 00004 00001F54 07591  07589

CBXSET   00004 00001F72 07600  07587

CC       00004 00001FC8 07636  07461
CCJ      00004 00001140 06452  06309 06645
CCJFND   00002 000011CE 06500  06472 06563
CCJFNDC  00002 000011D6 06503  06485 06578
CCJLOOP  00002 0000118A 06474  06487
CCJNFND  00004 000011AE 06488  06473 06486
CCJNFNDA 00004 000011B2 06490  06469
CCJNXEQQ 00004 0000117A 06468  06459
CCJWAT   00004 00001134 06449  06453
CDA      00004 000005B4 05401  05347
CDABROK  00002 00000734 05508  05505
CDACK    00002 00000758 05523  05516

COMM                                              CROSS-REFERENCE                                              PAGE  238


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

CDACKNXT 00002 00000738 05512  05524

CDACVE   00002 00000774 05533  05422 05435
CDAIGN   00004 000005C8 05406  05507
CDAML    00001 0000000E 05652  05528 05529
CDAMSG   00015 00000890 05653  05520
CDANOA   00014 00000882 05651  05529 05652
CDANONE  00002 00000762 05527  05411
CDANXT   00004 000005C0 05404  05525
CDAPRO   00002 000005E4 05416  05409
CDD      00004 00002E5A 08928  08916
CDDL     00004 00002E66 08931  08934 08938 08940 08949 08960
CDDL1    00004 00002E8C 08942  08945 08947
CDDNOID  00006 000031C0 09214  08954

CDFACLS  00006 00000DBC 06097  06093
CDFADA   00004 00000EB6 06174  06165
CDFADJ   00004 00000EB2 06173  06167
CDFADS   00004 00000EAE 06172  06169

CDFCHAR  00004 000000E0 06281  06068 06144 06205
CDFCKR   00006 00000E10 06125  06122
CDFCLS   00004 00000FC0 06278  06084 06184
CDFCOMPR 00004 000000F1 06292  06050 06180
CDFCROUT 00004 000000F4 06293  06044 06071 06131 06133 06136 06214 06216
CDFCVE   00002 00000F56 06232  06073 06159

CDFECLS  00002 00000E78 06156  06112
CDFEJOA  00004 00000EF6 06196  06193
CDFEJOB  00002 00000EFA 06198  06206
CDFEJOE  00004 00000EE8 06192  06096
CDFEMPTY 00002 00000F44 06226  06220
CDFEROUT 00004 000000F6 06294  06043 06217
CDFFCB   00004 000000E4 06283  06080
CDFFLAGS 00004 000000F0 06287  06050 06050 06120 06123 06177 06192 06219 06252

CDFFORMS 00004 000000E0 06282  06077
CDFHJOB  00004 000000EE 06286  06042 06127

CDFHOLD  00001 00000010 06291  06030 06032 06120
CDFINVO  00004 00000F84 06262  05992 06000 06011 06023
CDFJBNH  00004 00000E08 06123  06119
CDFJOEOK 00001 00000080 06288  06177 06219
CDFJOT   00004 000000F8 04740  06052 09387 09638
CDFLJOB  00004 000000EC 06285  06041 06125
CDFMAX   00002 00000FBC 06276  06022
CDFMCLS  00002 00000FB2 06273  06095

CDFMJOB  00002 00000FBE 06277  05972
CDFMVCHR 00006 00000D56 06068  06207
CDFNCLS  00004 00000DB0 06094  06157 06181 06186
CDFNOJO  00004 00000F20 06214  06203
CDFNOJOP 00004 00000F34 06219  06066

CDFNROUT 00004 00000D3A 06059  06218
CDFNRTE  00006 00000E44 06136  06130
CDFNSPEC 00004 00000C4A 05973  06026 06029 06031 06033

CDFNXTJO 00002 00000DCC 06107  06115 06121 06124 06126 06128 06135 06137 06145 06148
CDFOK    00004 00000D12 06041  05973
CDFONEH  00002 00000FB0 06272  06147
CDFOUT   00004 00000FB8 06275  06069
CDFOUTE  00016 00000FC4 06279  06228 06280
CDFOUTL  00001 00000010 06280  06227 06228
COMM                                              CROSS-REFERENCE                                              PAGE  239



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

CDFOVF   00002 00000E88 06161  06149
CDFPATRN 00004 00000FB4 06274  06097
CDFPRNT  00002 00000F6E 06245  06182 06194
CDFRELJ  00001 00000020 06290  05969 06032 06123

CDFRTEOK 00002 00000E4E 06139  06132 06134
CDFSETA  00004 00000D0A 06032  05976
CDFSETH  00004 00000D02 06030  05978
CDFSETJ  00002 00000CFA 06027  06021

CDFSOMJO 00001 00000040 06289  06177 06192 06252
CDFUCS   00004 000000E8 06284  06083
CDI      00002 0000275E 08310  08272
CDICLAS  00006 0000284E 08390  08381 08383 08386
CDIDIS   00006 00002814 08375  08344 08350
CDIFUN   00004 000027E2 08350  08327

CDIFUNA  00004 000027D6 08344  08319
CDIINVO  00006 000027AE 08334  08305
CDILOOP  00004 0000277C 08319  08322
CDIM     00021 0000288C 08432  08375 08433
CDIMA    00008 000028A1 08436  08387

CDIMD    00008 000028A9 08437  08382
CDIML    00001 00000015 08433  08375 08377 08377 08390 08398
CDIMNA   00008 000028B1 08438  08384
CDINDRN  00006 0000283A 08384  08379
CDIPID   00120 0000006D 08434  08392

CDIPIT   00004 000000F8 04743  08304 08315 08561
CDIRET   00002 0000280C 08368  08358
CDISCAN  00004 000027A2 08329  08326
CDISING  00006 00002790 08325  08309 08317 08331
CDISTAT  00120 00000071 08435  08382 08384 08387

CDIW     00004 00002770 08315  08311 08313
CDIXIT   00004 000027F4 08358  08323 08328
CDJ      00002 00001210 06532  06310 06467 06492 06498 06635
CDJCVE   00002 0000135C 06615  06379 06545 06585 06588
CDL      00002 00002ECC 08969  08917

CDLDCTD  00002 00002FB0 09032  09028 09191 09209
CDLDIS   00002 00002FA4 09027  09021
CDLFND   00004 00002F92 09018  09030 09178 09180
CDLRET   00002 00002F9C 09023  08935 09185 09205
CDM      00002 000031EC 09241  09229
CDMCVB   00002 00003518 09503  09243 09497

CDMERR   00004 0000328A 09294  09244 09247 09249 09330 09335 09413 09425 09437 09498
CDML     00004 0000325E 09278  09288
CDMSSRC  00002 0000323A 09268  09264
CDN      00004 0000078C 05546  05348

CDNCTR   00002 00000A52 05815  05546
CDNCVE   00002 00000B84 05900  05700 05727 05752 05821 05834 05859 05862
CDNMSG   00015 00000BF9 05943  05893
CDNNXT   00002 00000B5E 05888  05897
CDNPRO   00002 00000B7A 05896  05892

CDO      00002 00003048 09074  08918
CDOMMIN  00002 00000420 04993  04832
CDQ      00004 00000794 05556  05349
CDQB     00004 000008A8 05945  05546 05556 05645 05646 05647 05648 05719 05723 05734
CDQBREAK 00006 00000798 05569  05547
CDQCKOU  00004 00000A28 05793  05790
COMM                                              CROSS-REFERENCE                                              PAGE  240



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

CDQCON1  00002 00000BEC 05939  05759
CDQCPUN  00006 000009EE 05777  05773

CDQCTR   00004 00000BDE 05935  05556
CDQEND   00004 00000914 05694  05648
CDQENDS  00006 00000900 05686  05684
CDQERR   00002 00000832 05617  05588 05596 05607
CDQHLD   00006 00000980 05732  05647

CDQHLDC  00004 00000BF5 05942  05683 05732
CDQHLDE  00004 00000A46 05805  05734
CDQHLDT  00006 000008F0 05683  05681
CDQINCR  00006 000009D0 05764  05760
CDQJDCT  00002 00000B9C 05908  05797 05852
CDQLOOP  00004 0000090A 05689  05763 05765
CDQLOOPA 00004 0000098E 05743  05720 05730

CDQNEXT  00004 000009B6 05758  05750
CDQNXT   00002 00000992 05744  05778 05782 05785 05792 05794 05800 05806 05898 05936
CDQOUT   00006 0000095E 05722  05646

CDQOUTC  00003 00000BF2 05941  05680 05722
CDQOUTD  00002 0000086A 05646  05569
CDQOUTE  00006 00000A14 05789  05723
CDQOUTT  00006 000008E0 05680  05674 05676
CDQPER   00026 00000C08 05944  05702

CDQPRO   00006 000009DA 05772  05748
CDQRES   00002 000009B2 05756  05895
CDQREST  00002 00000A40 05801  05798
CDQSETL  00004 00000906 05688  05670 05672
CDQSTAT  00004 000000F0 04741  05694
CDQTYPE  00006 00000834 05618  05572 05573
CDQXEQ   00006 00000942 05715  05645
CDQXEQC  00004 00000BEE 05940  05673 05715

CDQXEQD  00002 00000866 05645  05618
CDQXEQE  00006 00000A06 05784  05719

CDQXEQT  00006 000008BE 05673  05668
CDQ100   00004 00000BE8 05938  05696
CDR      00002 000030CC 09127  08919
CDREND   00004 00003090 09103  09085
CDRLOOP  00004 0000304A 09079  09102

CDRLOOPA 00004 00003052 09082  09087
CDRMC    00010 000031C8 09216  09170 09217
CDRML    00001 0000000A 09217  09170 09173
CDRMNC   00004 0000312E 09161  09160 09168
CDRMNCA  00004 00003140 09165  09162
CDRMNERR 00006 0000314E 09169  09017
CDRMNF   00004 00003166 09177  09164
CDRMS    00004 00003176 09182  09141 09148
CDRMSG   00020 000030B8 09117  09112 09118

CDRMSGL  00001 00000014 09118  09111 09112

CDRMSL   00004 00003192 09192  09189
CDRMSLP  00004 0000317A 09183  09193
CDRMT    00002 000031C6 09215  09163 09188 09206
CDRMVC   00006 000030B2 09115  09095
CDRNREQ  00002 000030A0 09110  09104

CDSCVE   00002 0000381A 09757  09658 09686 09741 09745
CDSDIS   00004 000037E6 09737  09693 09704
CDSECLS  00004 00003756 09696  09669
COMM                                              CROSS-REFERENCE                                              PAGE  241


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

CDSEJOB  00004 0000376A 09702  09698
CDSINVO  00004 000037BA 09727  09594 09602 09613 09630
CDSJOB   00016 00003844 09773  09634
CDSLOC   00002 000036A6 09645  09694
CDSM     00012 00003838 09769  09639 09770

CDSMAX   00002 00003834 09767  09629

CDSMAXJ  00002 00003832 09766  09579
CDSMCLS  00002 00003836 09768  09697
CDSML    00001 0000000C 09770  09639 09662
CDSNEXT  00004 00003776 09705  09647 09650 09652 09703

CDSNJ    00002 000037A0 09718  09710
CDSNJM   00016 00003844 09771  09720 09772 09773
CDSNJML  00001 00000010 09772  09719 09720
CDSNJOB  00002 000036A0 09641  09707
CDSNSDS  00030 00003854 09774  09714 09775
CDSNSDSL 00001 0000001E 09775  09713 09714
CDSNSPEC 00004 000035E0 09580  09626 09631
CDSNXTJO 00002 000036E8 09664  09674 09676 09681 09684 09692 09700
CDSOK    00006 00003684 09634  09580
CDSRET   00002 000037B2 09724  09709
CDSROUTE 00002 00003674 09627  09623

CDU      00004 0000319A 09201  08920
CDUL     00004 0000319E 09202  09211
CDUNXT   00004 000031B8 09210  09207
CD7DCK   00002 00001934 07074  07067

CD7DCKL  00002 00001914 07063  07075
CD7DCVE  00002 00001982 07095  06958 06971 07031 07034 07128
CD7DIAG  00015 0000199A 07102  07071 07103
CD7DIAL  00001 0000000F 07103  07070 07071
CD7DINV  00006 0000195A 07087  06917
CD7DINVO 00004 00001956 07084  06947 07146
CD7DJNF  00014 000019A9 07104  07078
CD7DL    00004 0000172E 06933  06949
CD7DNFND 00006 0000193E 07077  06938
CD7DNXT  00004 00001726 06931  07076 07114
CD7DPRO  00004 00001752 06945  06936
CE       00004 00001FDC 07652  07462

CEJ      00004 000014A2 06739  06662
CEJCVE   00002 00001694 06873  06712 06783 06843 06846
CEJE     00004 00001502 06769  06745

CEJERR   00006 000014C2 06748  06740
CEJFMSG  00016 000016BC 06882  06762 06883
CEJINVO  00004 00001476 06723  06677 06685 06696
CEJLOOP  00002 000013C6 06665  06706
CEJLOOPA 00004 00001454 06709  06756
CEJLOOPB 00002 00001458 06711  06755
CEJLOOPE 00004 000014B2 06744  06747
CEJML    00001 00000010 06881  06748 06751
CEJMSG   00016 000016AC 06880  06748 06881
CEJNEXT  00004 000014D0 06753  06717 06871
CEJOB    00016 000016BC 06883  06708
CEJRET   00002 000014FA 06766  06758

CEXGOOD  00004 00001FEC 07656  07653 07679

CE7DFND  00004 00001A38 07153  07143
CE7DSCN  00006 00001A16 07142  07145

COMM                                              CROSS-REFERENCE                                              PAGE  242


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

CE7DTAB  00002 00001A4C 07165  07167
CE7DTABN 00001 00000001 07167  07141
CF       00004 00001ED2 07668  07463
CHA      00004 00000848 05635  05350
CHANXT   00002 0000084C 05636  05643
CHAPRO   00004 0000085E 05642  05640
CHJ      00004 00001374 06630  06311
CHJCKPT  00004 00001378 06631  06457
CI       00004 00001FF8 07676  07464
CMBCHAIN 00004 00000000 01969  04683 08685 09080 09082

CMBDOMID 00004 00000008 01976  09086 09088
CMBDSECT 00001 00000000 01968  01986 01987 01988 04683 04779 08684 09076 09080

CMBFLAGS 00001 00000004 01970  01986 04784

CMBJOBNO 00009 00000012 01979  09091 09115
CMBMSG   00132 00000008 01975  01988 04780 04789 09091
CMBMSGL  00001 00000006 01972  01987 09090
CN       00004 00002008 07689  07465
COAA     00002 00000548 05346  05016
COAJ     00002 00000FE8 06308  05022 07160
COAPOS   00001 0000007D 05002  04797 04799
COA7D    00004 000016D8 06894  05010
COB      00002 00001DD0 07460  05028
COBTABLE 00004 00000000 04651  04692 04694 04696
COC      00002 00001DD2 07461  05046
COCJ     00002 00000FEA 06309  05040 07161

COCOK    00002 0000008A 04697  04666
COCOMLOP 00004 00000182 04797  04823
COCOMMA  00004 000001C6 04816  04813

COCOMNXT 00002 000001DA 04822  04808 04812 04815 04818
COC7D    00004 000016D8 06895  05034
CODA     00002 0000054A 05347  05058
CODD     00002 00002E50 08916  05064
CODF     00004 00000C30 05955  05070
CODI     00002 00002738 08272  05076
CODJ     00002 00000FEC 06310  05082
CODL     00002 00002E52 08917  05088
CODM     00002 000031E8 09229  05094
CODN     00002 0000054C 05348  05101
CODO     00002 00002E54 08918  05107
CODQ     00002 0000054E 05349  05113

CODS     00004 000035C8 09567  05121
CODU     00002 00002E58 08920  05127
COD7D    00004 000016D8 06893  05052 06894 06895 06896 06897 06898
COE      00002 00001DD4 07462  05145

COEJ     00004 000013C0 06661  05139 07166
COE7D    00004 000016D8 06896  05133
COF      00002 00001DD6 07463  05151
COFINMVC 00004 000001E0 04824  04803
COF0099  00016 00000370 04943  04938
COF0215  00002 00000672 05455  05486

COF0215A 00002 00000658 05446  05438 05441 05444
COF0215B 00006 000006B8 05477  05488
COF0215F 00004 000006E8 05490  05449
COF0215L 00003 00000704 05497  05420
COF0215N 00003 00000707 05498  05474
COMM                                              CROSS-REFERENCE                                              PAGE  243


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

COF0215R 00010 0000070A 05499  05492

COF0215S 00004 00000714 05500  05431
COF0215T 00004 00000718 05501  05439

COF0215U 00005 0000071C 05502  05442
COF0215V 00009 00000721 05503  05445
COF0215Z 00002 0000072A 05504  05418
COF0227L 00004 00000672 05456  05462 05464 05470
COF0227Z 00002 000006AC 05472  05452
COF0249  00006 00000786 05539  05536
COF0254C 00006 000007DE 05592  05599
COF0254E 00002 0000082A 05614  05603 05605

COF0254L 00002 000007DA 05590  05580
COF0254N 00004 000007F4 05597  05610
COF0254T 00002 00000824 05611  05593
COF0254U 00002 00000826 05612  05595
COF0254W 00002 00000828 05613  05592 05594

COF0296A 00002 00000AC6 05845  05837 05840 05843
COF0296C 00004 00000AE6 05856  05853
COF0296D 00004 00000B08 05864  05873

COF0296F 00004 00000B10 05868  05849
COF0296L 00003 00000B2C 05874  05819
COF0296Q 00012 00000B2F 05875  05847
COF0296R 00004 00000B3B 05876  05870
COF0296S 00004 00000B3F 05877  05830
COF0296T 00004 00000B43 05878  05838
COF0296U 00005 00000B47 05879  05841

COF0296V 00009 00000B4C 05880  05844
COF0296Z 00002 00000B56 05881  05817
COF0328  00006 00000B96 05906  05903
COF0333L 00004 00000BA4 05912  05918 05920 05926
COF0340C 00006 00000C92 05996  06003

COF0340E 00002 00000CDE 06018  06007 06009
COF0340L 00002 00000C8E 05994  05984
COF0340N 00004 00000CA8 06001  06014
COF0340T 00002 00000CD8 06015  05997

COF0340U 00002 00000CDA 06016  05999
COF0340W 00002 00000CDC 06017  05996 05998
COF0359  00006 00000F68 06238  06235
COF0368  00016 00000FA0 06271  06266
COF0372  00002 00000FF2 06313  06307
COF0374C 00006 00001026 06348  06355

COF0374E 00002 00001072 06370  06359 06361
COF0374L 00002 00001022 06346  06336
COF0374N 00004 0000103C 06353  06366
COF0374T 00002 0000106C 06367  06349
COF0374U 00002 0000106E 06368  06351

COF0374W 00002 00001070 06369  06348 06350
COF0392  00016 000010C2 06400  06395
COF0428L 00004 000011D6 06504  06510 06512 06518
COF0433A 00002 0000126E 06556  06548 06551 06554
COF0433B 00006 00001298 06569  06580

COF0433C 00004 000012C8 06582  06564
COF0433D 00004 000012EA 06590  06599
COF0433E 00002 000012EE 06591  06604
COF0433F 00004 000012F2 06594  06560
COMM                                              CROSS-REFERENCE                                              PAGE  244



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

COF0433G 00006 0000130E 06600  06595
COF0433N 00003 00001328 06605  06566
COF0433Q 00012 0000132B 06606  06558
COF0433R 00010 00001337 06607  06596 06601

COF0433S 00004 00001341 06608  06541
COF0433T 00004 00001345 06609  06549
COF0433U 00005 00001349 06610  06552
COF0433V 00009 0000134E 06611  06555
COF0433Z 00002 00001358 06612  06533
COF0463  00006 0000136E 06621  06618

COF0472C 00006 000013F6 06681  06688
COF0472E 00002 00001442 06703  06692 06694
COF0472L 00002 000013F2 06679  06669
COF0472N 00004 0000140C 06686  06699

COF0472T 00002 0000143C 06700  06682
COF0472U 00002 0000143E 06701  06684
COF0472W 00002 00001440 06702  06681 06683
COF0490  00016 00001492 06732  06727
COF0502  00002 00001584 06804  06836

COF0502A 00002 00001564 06794  06786 06789 06792
COF0502B 00006 000015D0 06827  06838
COF0502C 00004 00001600 06840  06822
COF0502D 00004 00001622 06848  06857
COF0502E 00002 00001626 06849  06862
COF0502F 00004 0000162A 06852  06798

COF0502G 00006 00001646 06858  06853
COF0502N 00003 00001660 06863  06824
COF0502Q 00012 00001663 06864  06796
COF0502R 00010 0000166F 06865  06854 06859

COF0502S 00004 00001679 06866  06779
COF0502T 00004 0000167D 06867  06787
COF0502U 00005 00001681 06868  06790
COF0502V 00009 00001686 06869  06793
COF0502Z 00002 00001690 06870  06771

COF0510L 00004 00001584 06805  06811 06813 06819
COF0510Z 00002 000015BE 06821  06801
COF0531  00006 000016A6 06879  06876
COF0543  00002 00001802 06992  07024
COF0543A 00002 000017E2 06982  06974 06977 06980
COF0543B 00006 0000184E 07015  07026
COF0543C 00004 0000187E 07028  07010

COF0543D 00004 000018A0 07036  07045
COF0543E 00002 000018A4 07037  07050
COF0543F 00004 000018A8 07040  06986

COF0543G 00006 000018C4 07046  07041
COF0543L 00003 000018DE 07051  06956
COF0543N 00003 000018E1 07052  07012
COF0543Q 00012 000018E4 07053  06984
COF0543R 00010 000018F0 07054  07042 07047

COF0543S 00004 000018FA 07055  06967
COF0543T 00004 000018FE 07056  06975
COF0543U 00005 00001902 07057  06978
COF0543V 00009 00001907 07058  06981
COF0543Z 00002 00001910 07059  06954
COF0555L 00004 00001802 06993  06999 07001 07007
COMM                                              CROSS-REFERENCE                                              PAGE  245


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78


COF0555Z 00002 0000183C 07009  06989
COF0585  00016 00001972 07093  07088

COF0589  00006 00001994 07101  07098
COF0626  00016 00001AF2 07244  07239
COF0651  00002 00001C1C 07330  07362
COF0651A 00002 00001BFC 07320  07312 07315 07318
COF0651B 00006 00001C68 07353  07364

COF0651C 00004 00001C98 07366  07348
COF0651D 00004 00001CBA 07374  07383
COF0651E 00002 00001CBE 07375  07388
COF0651F 00004 00001CC2 07378  07324
COF0651G 00006 00001CDE 07384  07379
COF0651L 00003 00001CF8 07389  07294
COF0651N 00003 00001CFB 07390  07350
COF0651Q 00012 00001CFE 07391  07322
COF0651R 00010 00001D0A 07392  07380 07385

COF0651S 00004 00001D14 07393  07305

COF0651T 00004 00001D18 07394  07313
COF0651U 00005 00001D1C 07395  07316
COF0651V 00009 00001D21 07396  07319
COF0651Z 00002 00001D2A 07397  07292
COF0664L 00004 00001C1C 07331  07337 07339 07345

COF0664Z 00002 00001C56 07347  07327
COF0688  00006 00001D66 07420  07417
COF0693C 00006 00001D96 07436  07443
COF0693L 00002 00001D94 07435  07425
COF0693T 00002 00001DBA 07445  07437
COF0693U 00002 00001DBC 07446  07439
COF0693W 00002 00001DBE 07447  07436 07438
COF0695  00002 00001DDE 07467  07459
COF0697E 00004 00001E84 07520  07488 07505
COF0697F 00004 00001E70 07515  07501

COF0697K 00006 00001E88 07521  07525

COF0697L 00004 00001E20 07499  07504
COF0697T 00002 00001E3E 07507  07498
COF0697X 00002 00001EA0 07527  07522
COF0702  00016 00001EC2 07543  07538

COF0719E 00004 00002110 07775  07743 07760
COF0719F 00004 000020FC 07770  07756
COF0719K 00006 00002114 07776  07780
COF0719L 00004 000020AC 07754  07759
COF0719T 00002 000020CA 07762  07753
COF0719X 00002 0000212C 07782  07777
COF0724  00016 00002156 07799  07794
COF0746  00002 0000227C 07920  07917
COF0748E 00004 0000232C 07964  07932 07949
COF0748F 00004 00002318 07959  07945
COF0748K 00006 00002330 07965  07969

COF0748L 00004 000022C8 07943  07948
COF0748T 00002 000022E6 07951  07942
COF0748X 00002 00002348 07971  07966
COF0753  00016 0000236A 07986  07981

COF0774C 00006 000025D2 08206  08213
COF0774L 00002 000025D0 08205  08195
COF0774T 00002 000025F6 08215  08207
COMM                                              CROSS-REFERENCE                                              PAGE  246


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

COF0774U 00002 000025F8 08216  08209
COF0774W 00002 000025FA 08217  08206 08208
COF0782  00016 000027C6 08340  08335
COF0805  00016 000028EA 08466  08461
COF0859  00016 00002DE8 08877  08872
COF0863  00006 00002E0A 08885  08882
COF0872E 00004 00002F70 09008  08976 08993

COF0872F 00004 00002F5C 09003  08989
COF0872K 00006 00002F74 09009  09013
COF0872L 00004 00002F0C 08987  08992

COF0872T 00002 00002F2A 08995  08986
COF0872X 00002 00002F8C 09015  09010
COF0884A 00006 00002FD6 09041  09036
COF0884B 00006 00002FEA 09046  09038 09040 09043
COF0884C 00004 00003000 09051  09047
COF0884D 00002 00003022 09059  09049 09054 09057
COF0884E 00014 0000302A 09062  09034
COF0884F 00003 00003038 09063  09039
COF0884G 00002 0000303B 09064  09044
COF0884H 00008 0000303D 09065  09041
COF0884I 00002 00003045 09066  09046
COF0904C 00006 000030FA 09144  09151

COF0904E 00002 00003126 09156  09152

COF0904L 00002 000030F8 09143  09133
COF0904T 00002 00003120 09153  09145

COF0904U 00002 00003122 09154  09147
COF0904W 00002 00003124 09155  09144 09146
COF0927  00006 0000324E 09274  09271
COF0927E 00002 00003254 09275  09273
COF0937  00016 000032A6 09303  09298
COF0961E 00004 000034D0 09479  09447 09464
COF0961F 00004 000034BC 09474  09460
COF0961K 00006 000034D4 09480  09484
COF0961L 00004 0000346C 09458  09463
COF0961T 00002 0000348A 09466  09457
COF0961X 00002 000034EC 09486  09481
COF0970C 00006 00003544 09518  09525

COF0970L 00002 00003540 09516  09506
COF0970N 00004 00003558 09523  09536

COF0970T 00002 00003586 09537  09519

COF0970U 00002 00003588 09538  09521
COF0970W 00002 0000358A 09539  09518 09520
COF0979C 00006 00003614 09598  09605
COF0979E 00002 00003660 09620  09609 09611
COF0979L 00002 00003610 09596  09586
COF0979N 00004 0000362A 09603  09616
COF0979T 00002 0000365A 09617  09599
COF0979U 00002 0000365C 09618  09601
COF0979W 00002 0000365E 09619  09598 09600
COF1007  00016 000037D6 09736  09731
COF1022  00006 0000382C 09763  09760
COHA     00002 00000550 05350  05163

COHJ     00002 00000FEE 06311  05169 07162
COH7D    00004 000016D8 06897  05157
COI      00002 00001DD8 07464  05175

COMM                                              CROSS-REFERENCE                                              PAGE  247


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

COMAXRTE 00001 00000000 04635  05646 09245
COMBAD   00004 00000346 04928  04947
COMBADA  00006 0000035E 04938  04929 04931
COMCLASS 00001 0000005B 04604  04693 04851 04897 04930 04969 04972 04973 09277
COMCON   00001 00000000 04709  04966 08806
COMCONA  00001 00000001 04710  04969 08812
COMCONL  00001 00000012 04707  04708 04965 08740
COMCONO  00001 00000005 04705  04706 08736
COMD     00001 00000002 05285  05028 05046 05145 05151 05175 05181 05217 05241 05273 05287 08026
COMDM    00001 00000482 05096  04970

COMDWORK 00008 00000060 04609  04888 04889 05423 05436 05478 05484 05535 05536 05537 05537 05701 05728 05753 05822 05835
                               05860 05863 05902 05903 05904 05904 06074 06160 06234 06235 06236 06236 06380 06546 06570
                               06576 06586 06589 06617 06618 06619 06619 06713 06784 06828 06834 06844 06847 06875 06876
                               06877 06877 06959 06972 07016 07022 07032 07035 07097 07098 07099 07099 07130 07297 07310

                               07354 07360 07370 07373 07416 07417 07418 07418 07496 07518 07751 07773 07940 07962 08096
                               08098 08802 08809 08881 08882 08883 08883 08984 09006 09270 09271 09272 09272 09276 09455
                               09477 09659 09687 09742 09746 09759 09760 09761 09761
COMEWORK 00004 0000005C 04608  04852 04995 04996 04997 05000 05453 05469 05482 05856 05909 05925 06179 06180 06460 06466
                               06488 06501 06517 06574 06582 06802 06818 06832 06840 06990 07006 07020 07028 07328 07344
                               07358 07366 07482 07483 07483 07495 07496 07500 07516 07517 07521 07712 07719 07737 07738

                               07738 07750 07751 07755 07771 07772 07776 07926 07927 07927 07939 07940 07944 07960 07961
                               07965 08129 08730 08746 08747 08752 08753 08765 08766 08821 08822 08970 08971 08971 08983
                               08984 08988 09004 09005 09009 09441 09442 09442 09454 09455 09459 09475 09476 09480 09672
                               09673 09679 09680 09683
COMFLAGS 00001 00000058 04601  04656 04660 04670 04691 04695 04783 04784 04849 04928 04946 04949 04975 04982 05966 08026
                               08167 08176 08179 08734 09257 09263 09279 09283 09289 09574
COMFND   00006 00000380 04945  04923 04925
COMGOOD  00002 00000406 04983  04950 04962 04974

COMJ     00001 00000004 05286  05010 05016 05022 05034 05040 05133 05139 05157 05163 05169 05187 05199 05223 05255 05287
COMJBLEN 00001 00000004 04634  05423 05423 05424 05425 05425 05429 05822 05822 05823 05824 05824 05828 06380 06380 06410

                               06414 06423 06534 06535 06535 06539 06713 06713 06748 06751 06772 06773 06773 06777 06959
                               06959 06960 06961 06961 06965 07297 07297 07298 07299 07299 07303 09639 09659 09659 09662
                               09742 09746
COMJDS   00001 00000007 05287  04656 08183
COMLAREA 00004 0000005F 05000  04859 04897
COMLBLNK 00004 000002E2 04898  04896 04901
COMLC    00006 00000282 04875  04873
COMLCC   00004 0000027A 04873  04867

COMLCCC  00002 00000278 04872  04883
COMLCK   00002 000002AA 04884  04874 04878 04880
COMLCLEQ 00003 00000426 05001  04886
COMLCON  00002 0000008E 04708  04963 08739 08784 08794 08854
COMLFLG  00004 0000005E 04997  04868 04870 04871 04882 04895 04908 04951 04967

COMLFLGA 00001 00000001 04998  04871 04895 04967
COMLFLGC 00001 00000002 04999  04882 04951
COMLHI   00004 0000005C 04995  04875 04876 04881 04888

COMLLO   00004 0000005D 04996  04875
COMLPTRN 00002 00000422 04994  04852
COMLRSET 00004 00000304 04908  04887 04893
COMLSA   00004 00000274 04871  04858 04863
COMLSARA 00004 000002D4 04895  04891
COMMAND  00120 00000068 04613  04614 04615 04658 04666 04786 04788 04790 04934 04938 04979 05384 05420 05423 05424 05425
                               05425 05429 05431 05436 05439 05442 05445 05451 05474 05477 05483 05492 05493 05520 05529

                               05688 05701 05702 05715 05717 05718 05722 05728 05732 05753 05819 05822 05823 05824 05824
                               05828 05830 05835 05838 05841 05844 05847 05851 05860 05863 05870 05871 05872 05893 06045
COMM                                              CROSS-REFERENCE                                              PAGE  248


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

                               06069 06070 06070 06074 06075 06076 06077 06078 06079 06080 06081 06082 06083 06084 06085

                               06184 06185 06228 06247 06265 06266 06375 06380 06394 06395 06410 06414 06434 06534 06535
                               06535 06539 06541 06546 06549 06552 06555 06558 06562 06565 06565 06566 06569 06575 06586
                               06589 06596 06597 06598 06600 06600 06601 06602 06708 06713 06726 06727 06748 06762 06772
                               06773 06773 06777 06779 06784 06787 06790 06793 06796 06800 06823 06823 06824 06827 06833

                               06844 06847 06854 06855 06856 06858 06858 06859 06860 06956 06959 06960 06961 06961 06965
                               06967 06972 06975 06978 06981 06984 06988 07011 07011 07012 07015 07021 07032 07035 07042
                               07043 07044 07046 07046 07047 07048 07071 07077 07078 07087 07088 07115 07238 07239 07248
                               07276 07277 07278 07285 07294 07297 07298 07299 07299 07303 07305 07310 07313 07316 07319
                               07322 07326 07349 07349 07350 07353 07359 07370 07373 07380 07381 07382 07384 07384 07385
                               07386 07537 07538 07613 07614 07712 07713 07714 07719 07793 07794 07895 07896 07980 07981

                               08115 08116 08334 08335 08375 08377 08377 08390 08434 08435 08460 08461 08698 08793 08799
                               08802 08803 08827 08835 08864 08871 08872 08930 08950 08951 08954 09033 09034 09039 09041
                               09044 09058 09112 09115 09169 09170 09256 09276 09297 09298 09545 09634 09639 09659 09660
                               09662 09714 09720 09730 09731 09742 09746 09747
COMNLEQ  00002 00000308 04909  04850 04861 04865 04907 04914

COMNULOP 00004 000000F4 04620  04794 04840 04842 04903 06285 06286 06287 06292 06293 06294 06388 06429 06468 06644 06720
                               06757 07133 09096 09103 09322 09325 09328 09329 09359 09364 09371 09426 09429 09432 09648
                               09690 09702 09708 09737
COMOCON  00002 0000008C 04706  04892 04961 08757

COMOPRND 00120 0000006A 04615  04791 05669 07129 07130 07131 07132 08316 08325 08334 08456 08460 08733 09169 09320 09323
                               09326
COMPAGE  00001 00000001 04636  07558
COMPNTER 00004 000000E0 04619  04792 04793 04794 04846 05569 05615 05616 05618 05619 05619 05671 05671 05677 05678 05679
                               05679 05682 05682 05685 05685 05686 05686 05689 05717 05725 05758 05761 05762 05762 05764
                               05764 05772 05774 05777 05779 05784 05789 05791 05969 06030 06032 06047 06281 06282 06283

                               06284 06908 06909 06909 06913 06924 06939 06948 06950 07077 07120 09635 09636 09637 09653
                               09680 09683 09706 09739 09743
COMRESP  00001 00000090 04711  04965 08740
COMRMT   00001 00000008 05283  05016 05133 05139 05163 05193 05205 05211 05229 05235 05249 05255 05261
COMROUTE 00001 00000059 04602  04894 04960 04966 05968 08181 08732 08736 08798 09265 09278 09282 09576

COMRPT   00006 000003DC 04970  04952 04956 04968
COMRPTA  00004 000003EA 04973  04971
COMS     00001 00000001 05284  05133 05139 05193 05205 05211 05229 05235 05249 05261 05287
COMSRC   00004 00000342 04926  04921
COMSRL   00006 00000326 04920  04926

COMTAB   00002 0000042A 05005  04917
COMTABE  00002 0000052C 05272  04919 05280 05281 05282
COMTEL   00001 00000006 05279  04918
COMTFL   00001 00000003 05281  04945 04954
COMTMI   00004 00000386 04946  04945

COMTOFF  00001 00000002 05280  04984
COMTVB   00001 00000004 05282  04920 04922 04924
COMVC    00006 000001D2 04819  04802 04805
COMVERB  00120 00000069 04614  04920 04922 04970 06913 07137 07142 07565 07588 07921
CON      00002 00001DDA 07465  05181

CONDOMP  00002 00000204 04836  04833
CONEXT   00004 00000042 04673  04653 04682
CONUL    00004 00000036 04669  04651
COP      00002 00001DDC 07466  05217
COPH     00004 000028C8 08450  05211
COPI     00002 0000273A 08273  05193

COPJ     00002 00000FF0 06312  05199 07163
COP40    00002 00002740 08276  05205
COP7D    00004 000016D8 06898  05187
COMM                                              CROSS-REFERENCE                                              PAGE  249



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

COR      00002 000031EA 09230  05223
CORETMSG 00004 00000008 04653  04668 04671
COROK    00006 00000028 04666  04652
CORTMSG  00001 00000008 04628  04941 05385 05521 05530 05706 06229 06269 06398 06435 06730 06763 07072 07082 07091 07242

                               07249 07541 07618 07797 07900 07984 08120 08338 08464 08699 08832 08865 08875 09113 09174
                               09301 09546 09715 09721 09734
CORTNORM 00001 00000000 04626  05414 06223 06439 06767 06943 07400 08369 09024 09107 09725
CORTOK   00001 00000004 04627  05379 07210 07611 07881 08242 08365 09292 09353
COS      00004 00002068 07733  05241
COSI     00002 0000273C 08274  05229
COSW     00004 000001A0 04805  04798 04804 04824

COSWFLP  00004 0000019C 04804  04800
COS40    00002 00002742 08277  05235
COT      00002 00002278 07918  05267

COTI     00002 0000273E 08275  05249
COTJ     00004 00001A70 07179  05255
COTM     00004 00002BD0 08718  05261
COWORK   00006 00000060 04683  04677
COWTO    00001 0000000C 04629  04935 04980 05481 05496 05757 05866 06251 06424 06573 06592 06752 06831 06850 07019 07038

                               07119 07357 07376 07718 08399 08840 08959 09061 09101 09287 09754
COWTOL   00001 00000414 04990  04783
COZ      00002 0000227A 07919  05273
CP       00002 00002018 07706  07466
CPHASP   00016 00002B6E 08701  08456 08698 08702
CPI      00004 00002764 08312  08273
CPIRET   00002 00002804 08364  08359 08409
CPJ      00004 00001388 06644  06312

CPS      00004 000028FA 08467  08457
CPSBRDR  00004 00002BB0 08707  08558 08708

CPSBRDRL 00001 00000016 08708  08707
CPSCKPCE 00004 000000EC 08705  08491
CPSCKPT  00004 0000293C 08489  08480
CPSCWAIT 00004 00002934 08487  08490
CPSDAL   00004 00002AFA 08665  08676

CPSDAN   00004 00002B20 08675  08667 08670 08673
CPSENDL  00004 00002B2C 08679  08687 08694
CPSEUDO  00004 00002ACC 08648  08651 08655 08657
CPSEUEND 00002 00002AEE 08658  08652
CPSFORCE 00002 0000296E 08506  08498
CPSINITL 00006 000029E6 08562  08568
CPSINITV 00004 00002B9C 08706  08562 08564
CPSL     00001 00000010 08702  08697 08698
CPSPRTN  00002 00002A9E 08628  08594 08599 08602 08609 08613 08617

CPSPURIF 00004 00002A32 08590  08639

CPSRDRN  00004 00002ABC 08638  08630 08635
CPSRDRX  00002 00002AC4 08641  08592
CPSRET   00002 00002B5C 08696  08469 08471 08474
CPSRHOLD 00002 0000291A 08479  08485
CPSWAIT  00004 00002B4C 08690  08682

CPSWTOEB 00004 00000124 04758  08508
CPSWTOTB 00004 00000120 04757  08517
CPSXPCE  00004 000000FC 04744  06741
CPXCOMNT 00011 00002050 07722  07714
CP40     00004 00002862 08408  08276
CR       00006 000032B6 09320  09230
COMM                                              CROSS-REFERENCE                                              PAGE  250


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

CRXALL   00003 000035AB 09553  09320
CRXANAL  00004 00003424 09437  09331 09334 09424

CRXCKJOB 00004 000033D6 09412  09332

CRXCKPT  00004 000000EC 09550  09345
CRXCLASS 00004 00003390 09389  09407
CRXCLI   00004 00003336 09361  09333 09367 09373
CRXJM    00013 0000359E 09548  09545 09549

CRXJML   00001 0000000D 09549  09544 09545
CRXJNFND 00002 0000358C 09543  09418
CRXJOBCK 00002 00003326 09356  09344
CRXJOEMD 00002 0000334A 09366  09375
CRXLOCAL 00005 000035B4 09556  09488
CRXMCLS  00002 000033D4 09409  09406
CRXNCLS  00004 000033C6 09405  09396
CRXNEXT  00002 00003300 09340  09358 09365 09368 09370 09372 09374
CRXNOPRT 00006 0000334A 09367  09360
CRXNPRT  00004 0000335C 09371  09362
CRXNXTJO 00002 00003394 09391  09401 09404

CRXPRINT 00001 00000001 09551  09322 09325 09359 09426 09432
CRXPRT   00003 000035AE 09554  09323
CRXPUN   00003 000035B1 09555  09326
CRXPUNCH 00001 00000002 09552  09322 09328 09364 09371 09429

CRXRET   00004 0000330E 09345  09422 09430 09433 09436
CRXRM    00002 000035B9 09557  09499
CRXSJOE  00004 00003372 09379  09435
CS       00006 00002166 07821  07734
CSI      00004 0000276C 08314  08274
CSIRET   00004 00002800 08362  08360 08428
CSSPOST  00004 00002872 08421  08425
CSXALLOC 00004 0000222C 07886  07834
CSXDCTL  00002 0000206C 07736  07878
CSXIN    00004 00002242 07894  07888
CSXINVO  00004 0000213A 07790  07788 07829
CSXML    00001 00000007 07905  07896 07899

CSXMLLM  00004 000000F4 04742  07835
CSXMSG   00007 00002260 07904  07896 07905
CSXNEXT  00004 00002220 07878  07873

CSXNLNE  00002 000021D2 07852  07831
CSXPASMV 00002 000021C2 07847  07845
CSXPASSW 00004 000021A2 07839  07833
CSXRMC   00002 0000225E 07903  07821
CSXRMT   00004 000021F8 07865  07822 07854
CSXVOFF  00004 000021DA 07856  07841 07846
CS40     00004 0000286A 08418  08277
CT       00002 0000237A 08022  07918
CTI      00004 00002744 08303  08275
CTJC     00004 00001D32 07403  07232
CTJCVB   00002 00001D6C 07422  07199 07257
CTJCVE   00002 00001D54 07414  07296 07309 07369 07372

CTJDJ    00002 00001B8A 07291  07223 07410

CTJINVO  00004 00001AD6 07235  07200 07205 07228 07258 07404
CTJJM    00013 00001B14 07251  07248 07252

CTJJML   00001 0000000D 07252  07247 07248
CTJNFND  00002 00001B02 07246  07221
CTJOB    00004 00001A9C 07216  07202
COMM                                              CROSS-REFERENCE                                              PAGE  251


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

CTJOBWAT 00004 00001A94 07214  07217
CTJP     00002 00001B22 07255  07234
CTJPMOD  00006 00001B60 07276  07412
CTJPMV   00002 00001B48 07267  07264
CTJPP    00004 00001B44 07266  07262
CTMALL   00004 00002CB0 08788  08790
CTMCATAB 00016 00002E12 08887  08814

CTMCKC   00002 00002C36 08755  08750
CTMCOMB  00004 00002C8A 08776  08770

CTMCOMBA 00004 00002C92 08778  08762 08764

CTMCOMBZ 00004 00002C8E 08777  08760
CTMCON   00003 00002E3D 08904  08799
CTMCVE   00002 00002DF8 08879  08801 08808
CTMDISP  00004 00002CBC 08792  08743 08845
CTMDL    00004 00002D18 08817  08823
CTMDNLN  00004 00002CE4 08803  08841
CTMDNXE  00004 00002CEA 08805  08826
CTMELN   00004 00002D50 08835  08805
CTMEM    00027 00002DB4 08867  08864 08868
CTMEML   00001 0000001B 08868  08863 08864
CTMERROR 00002 00002DA2 08862  08737 08819 08855
CTMGETA  00004 00002C44 08759  08745

CTMINVO  00006 00002DD0 08871  08735 08756 08758 08768 08773 08775 08782 08849
CTMLIST  00004 00002D60 08843  08780
CTMLNXT  00004 00002D70 08847  08851

CTMTAB   00002 00002E22 08888  08816 08846
CTMTBNK  00004 00002D64 08844  08860
CTM10    00002 00002E10 08886  08751
CTXAEQ   00002 000025A4 08187  08163
CTXALEV  00002 000025A6 08188  08174
CTXAUTOM 00005 000024E7 08125  08105
CTXBADL  00004 0000234E 08160  08141
CTXBLANK 00004 000024E3 08123  08080
CTXC     00006 00002416 08069  08043
CTXCC    00004 00002428 08073  08070
CTXCCT   00004 00002430 08075  08065 08068 08106
CTXCFND  00004 00002548 08155  08151

CTXCID   00002 00002720 08258  07921
CTXCLASL 00002 000024EC 08126  08094
CTXCLOOP 00006 00002534 08150  08153
CTXCLOP  00004 00002528 08147  08158

CTXCONA  00004 00002508 08134  07922
CTXCVB   00002 000025A8 08192  08140 08172
CTXDEV   00004 000024BE 08113  08077
CTXEXMVC 00004 00002448 08081  08102
CTXF     00004 0000249C 08103  08045
CTXFOUR  00002 000024EE 08127  08038 08078

CTXINVO  00004 0000234E 07977  08023 08024 08134 08136 08146 08160 08173
CTXLEV   00002 00002710 08247  08142
CTXLOOP  00002 00002384 08025  08111
CTXLOOPA 00004 000024B2 08110  08085 08087
CTXLOOPC 00004 000024B6 08111  08058 08062 08072 08133 08186
CTXLSTBL 00004 00000128 04759  08155
CTXML    00001 0000000B 08124  08116 08119
CTXMSG   00007 000024DC 08122  08116 08124

COMM                                              CROSS-REFERENCE                                              PAGE  252


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78


CTXMVC   00006 00002462 08088  08081
CTXNAUTH 00004 00002594 08183  08180
CTXOI    00004 00002468 08089  08083
CTXONE   00002 000024F0 08128  08069
CTXQ     00004 00002472 08091  08047
CTXQTST  00006 0000246C 08090  08097
CTXQTTAB 00001 000025FC 08219  08090
CTXRDR   00004 000024F8 08130  08032

CTXRNOTH 00006 0000255A 08163  08131
CTXS     00004 000023E0 08055  08049
CTXSN    00004 000023F0 08059  08056
CTXT     00004 000023FE 08063  08051
CTXTAB   00001 00002712 08248  08148 08250 08257

CTXTABCT 00001 00000007 08257  08149
CTXTESIZ 00001 00000002 08250  08150 08152 08257
CTXU     00004 0000240A 08066  08053

CVTCRTTR 00003 000000B8 02334  02347
CVTDSECT 00001 00000000 02232  08645 08929 08941
CVTILK2  00004 00000028 02263  08646 08929 08941
CVTPTR   00001 00000010 02240  08644
CVTUSER  00004 000000CC 02358  02359
CVTXTNT1 00001 00000114 02438  02411
CZ       00002 000026FC 08235  07919

CZXDCTL  00002 00002288 07925  08239
CZXNEXT  00004 00002704 08239  08237
CZXRET   00002 00002708 08241  08112 08159
DCBBIT0  00001 00000080 02508  02629 02645 02684 02702 02747 02757 02773 02814 02824 02836 02859 02890 02893 02895 02897
                               02920 02923 02943 02948 02967 03004 03057 03080 03112 03116 03129 03224 03227 03237

DCBBIT1  00001 00000040 02509  02630 02646 02703 02711 02747 02757 02775 02815 02825 02838 02860 02862 02872 02890 02893
                               02896 02897 02925 02943 02946 02948 02970 02971 02972 03007 03008 03057 03082 03118 03120
                               03132 03176 03224 03229 03238

DCBBIT2  00001 00000020 02510  02631 02647 02704 02713 02757 02776 02816 02826 02839 02841 02842 02860 02862 02867 02873
                               02890 02892 02899 02927 02950 02952 02975 02976 02977 03011 03012 03059 03085 03121 03137
                               03179 03183 03224 03239
DCBBIT3  00001 00000010 02511  02595 02632 02648 02718 02760 02777 02817 02839 02842 02844 02860 02875 02900 02930 02950
                               02954 02979 02980 02981 03015 03016 03059 03087 03089 03091 03123 03138 03179 03184 03224
DCBBIT4  00001 00000008 02512  02596 02649 02719 02763 02778 02818 02827 02876 02901 02931 02956 02962 02963 02984 02985
                               03019 03020 03022 03023 03061 03094 03139 03179 03185

DCBBIT5  00001 00000004 02513  02598 02650 02721 02764 02778 02819 02828 02877 02904 02906 02933 02956 02959 02960 02963
                               02988 02990 02991 02992 03026 03027 03028 03029 03061 03096 03099 03125 03141 03174
DCBBIT6  00001 00000002 02514  02600 02633 02651 02723 02765 02782 02820 02878 02880 02883 02904 02907 02934 02995 02996
                               02997 02998 03032 03033 03034 03035 03102 03143
DCBBIT7  00001 00000001 02515  02602 02634 02727 02767 02783 02821 02878 02881 02883 02909 02938 03000 03001 03038 03039

                               03041 03042 03127 03144 03186
DCBDEBAD 00004 0000002C 03055  07824 08596 08632 08664 09052
DCBDSECT 00001 00000000 03247  08596 08632 08664 09052
DCBFDAD  00008 00000005 02529  02532

DCBSSID  00008 00000000 02736  02739
DCBWTOID 00004 00000000 02656  02671 02680
DCTBKSP  00001 00000008 02139  07601 07678
DCTCHAIN 00004 00000014 02026  05454 05456 05910 05912 06502 06504 06803 06805 06991 06993 07329 07331 07523 07778 07967
                               08638 09011 09165 09192 09210 09482
DCTCLASS 00008 0000002D 02039  08091 08100 08101 08101 08101 08126

DCTDA    00001 00000000 02082  07524 07779 07968 09012 09483
DCTDCB   00004 00000008 02014  07823 08595 08631 09050 09051 09179
COMM                                              CROSS-REFERENCE                                              PAGE  253


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

DCTDELET 00001 00000040 02136  06476 07639

DCTDEVN  00008 00000018 02027  05477 06569 06827 07015 07353 07521 07521 07613 07713 07776 07776 07821 07895 07965 07965
                               08115 09009 09009 09033 09046 09163 09188 09206 09480 09480
DCTDEVTP 00001 00000012 02022  05460 05466 05916 05922 06508 06514 06809 06815 06997 07003 07335 07341 07524 07555 07636
                               07652 07654 07676 07689 07707 07779 07787 07830 07853 07968 08029 08031 08165 08593 08629
                               09012 09204 09483

DCTDRAIN 00001 00000040 02064  07709 07867 09035
DCTDSECT 00001 00000000 02009  05454 05456 05460 05463 05465 05466 05477 05910 05912 05916 05919 05921 05922 06475 06502
                               06504 06508 06511 06513 06514 06569 06803 06805 06809 06812 06814 06815 06827 06991 06993
                               06997 07000 07002 07003 07015 07329 07331 07335 07338 07340 07341 07353 07521 07523 07524
                               07528 07776 07778 07779 07965 07967 07968 08021 08222 08588 09009 09011 09012 09019 09033

                               09035 09037 09042 09046 09048 09050 09051 09158 09186 09203 09480 09482 09483 09490
DCTFCB   00004 00000024 02036  08073
DCTFLAGS 00001 00000014 02025  06476 06477 07601 07639 07640 07656 07657 07678 07692 07865 07868 08071 08132 08236
DCTFORMS 00004 00000020 02031  08103
DCTHOLD  00001 00000020 02065  07864

DCTHOLDJ 00001 00000004 02140  08132
DCTINR   00001 00000014 02087  07707 07853
DCTINUSE 00001 00000080 02063  05463 05919 06511 06812 07000 07338 07580 07602 07710 07832 07872 08113 09037 09042
DCTIOTYP 00001 00000013 02023  08183 08185
DCTLNE   00001 00000002 02084  07654 07787 07830
DCTNO    00001 00000011 02021  08181 09161 09490

DCTOLAY  00001 00000001 02083  09204
DCTPCE   00004 00000000 02011  05465 05921 06478 06513 06814 07002 07340 07582 07604 07874
DCTPPSW  00001 0000002C 02038  08057 08061 08075 08086 08089 08107
DCTPPSWC 00001 00000080 02145  08074

DCTPPSWF 00001 00000040 02146  08104 08107
DCTPPSWO 00001 00000001 02152  08075
DCTPPSWQ 00001 00000020 02147  08092
DCTPPSWS 00001 00000010 02148  08057 08061
DCTPPSWT 00001 00000008 02149  08064 08067

DCTPPSWU 00001 00000004 02150  08067 08086
DCTPRT   00001 00000020 02088  05466 05922 06514 06815 07003 07341 07555 07652 07676 07689 08031 08593
DCTPSTAT 00001 00000008 02013  09048 09177
DCTPUN   00001 00000030 02090  05460 05916 06508 06809 06997 07335 07636 08029
DCTRDR   00001 00000010 02085  08629
DCTREJDV 00001 00000002 02101  05285
DCTREJJB 00001 00000004 02100  05286

DCTREJSY 00001 00000001 02102  05284 08176
DCTRJR   00001 00000012 02086  08165
DCTRPT   00001 00000010 02138  07692

DCTRSTRT 00001 00000020 02137  07656
DCTSINON 00001 00000008 02075  09048 09177
DCTSPACE 00001 00000004 02141  07868 08071
DCTSTAT  00001 00000000 02010  05463 05919 06511 06812 07000 07338 07580 07602 07709 07710 07832 07864 07867 07872 08113
                               09035 09037 09042

DCTSTOP  00001 00000080 02135  06477 07640 07657 07865 07868 08236
DCTUCS   00004 00000028 02037  08063 08066
DEBDSECT 00001 00000000 03252  07825 08597 08633 08665 09053 09053 09055
DEBTCBAD 00004 00000000 03253  09053 09053
DEBUCBAD 00004 00000020 03267  07826 08597 08633 08665 09055
E        00001 00000008 01461  08166 08182
H        00001 00000002 01455  07440 08143 08175 08210 09522
HA$ICDV1 00001 00001DC0 07452  07453

HA$ICDV2 00001 00002060 07727  07728
COMM                                              CROSS-REFERENCE                                              PAGE  254



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

HA$ICDV3 00001 00002268 07910  07911
HA$ICJB1 00001 00000538 05338  05339
HA$ICJB2 00001 00000FD8 06300  06301
HA$ICJB3 00001 000016D0 06887  06888

HA$ICJB4 00001 000013B8 06655  06656
HA$ICJ1A 00001 000008A0 05657  05658
HA$ICJ1B 00001 00000C28 05949  05950
HA$ICJ3A 00001 00001A68 07173  07174
HA$ICMS1 00001 00002E40 08908  08909
HA$ICOME 00001 00000144 04773  04774
HA$ICRM1 00001 000031D8 09221  09222
HA$ICRM2 00001 000035C0 09561  09562
HA$ICSY1 00001 00002728 08264  08265

HA$ICSY2 00001 000028C0 08444  08445

HA$ICSY3 00001 00002BC8 08712  08713
HA$OCDV1 00001 00001DC0 07451  07452 07455 07532
HA$OCDV2 00001 00002060 07726  07727 07730 07786
HA$OCDV3 00001 00002268 07909  07910 07913 07975
HA$OCJB1 00001 00000538 05337  05338 05341 05622

HA$OCJB2 00001 00000FD8 06299  06300 06303 06390
HA$OCJB3 00001 000016D0 06886  06887 06890 07150 07156
HA$OCJB4 00001 000013B8 06654  06655 06658 06722
HA$OCJ1A 00001 000008A0 05656  05657 05660 05692 05776 05781 05787 05803 05808
HA$OCJ1B 00001 00000C28 05948  05949 05952
HA$OCJ3A 00001 00001A68 07172  07173 07176
HA$OCMS1 00001 00002E40 08907  08908 08911
HA$OCOME 00001 00000140 04772  04773 04776 05008 05014 05020 05026 05032 05038 05044 05050 05056 05062 05068 05074 05080
                               05086 05092 05099 05105 05111 05119 05125 05131 05137 05143 05149 05155 05161 05167 05173
                               05179 05185 05191 05197 05203 05209 05215 05221 05227 05233 05239 05247 05253 05259 05265

                               05271

HA$OCRM1 00001 000031D8 09220  09221 09224
HA$OCRM2 00001 000035C0 09560  09561 09564
HA$OCSY1 00001 00002728 08263  08264 08267
HA$OCSY2 00001 000028C0 08443  08444 08447

HA$OCSY3 00001 00002BC8 08711  08712 08715
HA$QCDV1 00001 00000000 05025  05027 05043 05045 05142 05144 05148 05150 05172 05174 05178 05180 05214 05216
HA$QCDV2 00001 00000000 05238  05240
HA$QCDV3 00001 00000000 05264  05266 05270 05272
HA$QCJB1 00001 00000000 05013  05015 05055 05057 05098 05100 05110 05112 05160 05162
HA$QCJB2 00001 00000000 05019  05021 05037 05039 05079 05081 05166 05168 05196 05198 07149 07151
HA$QCJB3 00001 00000000 05007  05009 05031 05033 05049 05051 05130 05132 05154 05156 05184 05186
HA$QCJB4 00001 00000000 05136  05138 07155 07157
HA$QCJ1A 00001 00000000 05621  05623
HA$QCJ1B 00001 00000000 05067  05069
HA$QCJ3A 00001 00000000 05252  05254

HA$QCMS1 00001 00000000 05061  05063 05085 05087 05104 05106 05124 05126
HA$QCOME 00001 00000000 04687  04689
HA$QCRM1 00001 00000000 05091  05093 05220 05222
HA$QCRM2 00001 00000000 05118  05120

HA$QCSY1 00001 00000000 05073  05075 05190 05192 05202 05204 05226 05228 05232 05234 05246 05248
HA$QCSY2 00001 00000000 05208  05210
HA$QCSY3 00001 00000000 05258  05260
HASPCDV1 00004 00001DC8 07456  05028 05046 05145 05151 05175 05181 05217 07458 07460 07461 07462 07463 07464 07465 07466
HASPCDV2 00004 00002068 07731  05241 07733 07734
HASPCDV3 00004 00002270 07914  05267 05273 07916 07918 07919
COMM                                              CROSS-REFERENCE                                              PAGE  255


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

HASPCJB1 00004 00000540 05342  05016 05058 05101 05113 05163 05344 05345 05346 05347 05348 05349 05350
HASPCJB2 00004 00000FE0 06304  05022 05040 05082 05169 05199 06306 06308 06309 06310 06311 06312 07160 07161 07162 07163
HASPCJB3 00004 000016D8 06891  05010 05034 05052 05133 05157 05187 06893
HASPCJB4 00004 000013C0 06659  05139 06661 06662 07166

HASPCJ1A 00004 000008A8 05661  05945
HASPCJ1B 00004 00000C30 05953  05070 05955
HASPCJ3A 00004 00001A70 07177  05255 07179

HASPCMS1 00004 00002E48 08912  05064 05088 05107 05127 08914 08915 08916 08917 08918 08919 08920
HASPCOMM 00001 00000000 01279  01834 01868 01958 01982 02058 02448 02494 03249 03275 04110 04157 04172 04214 04327 04391
                               04416 04592 04647 04688
HASPCRM1 00004 000031E0 09225  05094 05223 09227 09228 09229 09230
HASPCRM2 00004 000035C8 09565  05121 09567
HASPCSY1 00004 00002730 08268  05076 05193 05205 05229 05235 05249 08270 08271 08272 08273 08274 08275 08276 08277
HASPCSY2 00004 000028C8 08448  05211 08450
HASPCSY3 00004 00002BD0 08716  05261 08718
HCTDSECT 00001 00000000 01652  01654 04650
IHADCB   00001 00000000 02506  02554 02578 02606 02625 02655 02735 02796 02847 02916 03048 03065 03069 03075 03164 03170
                               03194 03215 03247 07824
JCT      00001 0000000A 01446  04217

JCTDSECT 00001 00000000 04216  04217

JCTEND   00001 00000230 04290  04325
JCTJMR   00056 000001F8 04271  04272

JCTJNAME 00008 00000070 04228  04376
JCTJOBEB 00004 0000006C 04227  04374
JCTJQE   00004 00000058 04219  04325
JCTPNAME 00020 00000078 04229  04377
JCTROOMN 00004 000000A0 04239  04375
JITJNAME 00001 00000000 02197  05429 05828 06539 06777 06948 06965 07303
JOECHAR  00002 00000004 04120  06140 06142
JOEDSECT 00001 00000000 04112  04132 04145 04156 06040 06059 06105 06144 06196 09378 09389 09633 09642 09699
JOEFLAG  00002 00000002 04117  06114
JOEFORM  00004 00000004 04135  06068 06144 06205
JOEJQE   00004 00000010 04127  06117 09399 09673
JOENEXT  00002 00000000 04116  06059 06062 06064 06105 06108 06110 06196 06199 06201 09389 09392 09394 09642 09665 09667

                               09699
JOEROUT  00002 0000000A 04124  06129 06136 09402 09675 09677

JOESIZE  00001 0000001C 04156  04169

JOTCHRQ  00002 0000000A 04166  06059 06196
JOTCLSQ  00002 0000000C 04167  06105 09389 09642 09699
JOTDSECT 00001 00000000 04160  04171 06039 09377 09632
L        00001 00000004 01457  09533
LINK     00001 0000000E 01450  04661 04689 04831 04942 04986 05380 05386 05415 05422 05427 05435 05452 05459 05471 05486
                               05522 05531 05538 05623 05700 05707 05727 05752 05797 05821 05826 05834 05852 05859 05862
                               05905 05915 05927 06073 06159 06224 06230 06237 06270 06379 06384 06399 06436 06440 06463
                               06464 06472 06485 06507 06519 06537 06545 06563 06578 06585 06588 06620 06712 06716 06731
                               06764 06768 06775 06783 06801 06808 06820 06836 06843 06846 06878 06944 06945 06958 06963
                               06971 06989 06996 07008 07024 07031 07034 07073 07083 07092 07100 07128 07151 07157 07199
                               07211 07220 07243 07250 07257 07281 07282 07287 07288 07296 07301 07309 07327 07334 07346
                               07362 07369 07372 07401 07419 07433 07440 07444 07542 07582 07583 07583 07591 07600 07612

                               07619 07798 07834 07882 07892 07901 07985 08077 08114 08121 08140 08172 08203 08210 08214
                               08243 08339 08366 08370 08465 08537 08538 08546 08686 08700 08801 08808 08833 08866 08876
                               08884 09025 09108 09114 09175 09243 09245 09246 09293 09302 09354 09417 09497 09514 09522

                               09529 09531 09533 09547 09646 09658 09686 09716 09722 09726 09735 09741 09745 09762
M        00001 00000004 01458  08039
MDCTDCT  00004 0000003C 02048  09029
COMM                                              CROSS-REFERENCE                                              PAGE  256


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

MDCTPSWD 00008 00000044 02054  07839 07840 07840 07850
NE       00001 00000007 01459  08035 08060 08164
NH       00001 0000000D 01465  05776 05781
NL       00001 0000000B 01463  08079 08095
NZ       00001 00000007 01460  07532 07786 07975
O        00001 00000001 01454  08027 08178 09380 09383
OACEPROG 00004 00000060 01948  04778 05343 05662 05692 05776 05781 05787 05803 05808 05954 06305 06390 06660 06722 06892

                               07178 07457 07532 07732 07786 07915 07975 08269 08449 08717 08913 09226 09566
PCCWCHN  00008 00000150 04386  04388
PCEBASE2 00004 00000044 01859  05361 05363 05364 05402 05404 05405 06929 06931 06932
PCEDSECT 00001 00000000 01837  01839 04175 04330 04393 04596 04649 05375 05469 05925 06419 06481 06517 06633 06744 06746

                               06769 06818 07006 07344 07583 07583 07591 07600 07606 07837 07876 08421 08423 08481 08483
                               08484 08492 09347
PCEEWF   00002 00000048 01860  04679 05375 06419 06449 06481 06633 07214 07606 07837 07876 08421 08483 08487 08492 08504
                               08692 09347
PCEID    00002 0000004A 01861  08481
PCENEXT  00004 00000008 01843  06746 08423 08484

PCERDRID 00001 00000001 01889  08481
PCEWA    00004 0000001C 01848  05582 05586 05986 05990 06338 06342 06671 06675 07427 07431 08197 08201 09135 09139 09508
                               09512 09588 09592
PCEWORK  00008 00000058 01867  04176 04213 04331 04384 04385 04387 04390 04394 04413 04415 04597 04622
PDDBPGCT 00002 000000B2 04350  07591
PDDBSKIP 00002 000000A8 04344  07583 07583 07600
PITBUSY  00001 00000020 02227  08380 08385
PITCLASS 00001 00000008 02219  02220 08354 08390

PITHOLDA 00001 00000080 02225  08345 08346 08352 08378
PITHOLD1 00001 00000040 02226  08351 08352 08378
PITICLAS 00001 00000001 02215  08562
PITIDLE  00001 00000010 02228  08346 08352
PITLAST  00001 00000001 02229  08320 08329 08566
PITLNGTH 00001 00000014 02220  08321 08330 08567
PITPATID 00001 00000002 02216  08325 08392
PITSTAT  00001 00000000 02214  08320 08329 08345 08346 08351 08352 08378 08380 08385 08566
PJOB     00004 00000060 04336  05468 05469 05924 05925 06516 06517 06817 06818 07005 07006 07343 07344
QENTBY   00001 00000080 02175  05490 05645 05645 05678 05718 05868 05872 06456 06594 06598 06739 06852 06856 07040 07044
                               07222 07378 07382 07405
QUECHAIN 00001 00000004 02165  05360 05365 05401 05406 05511 05513 05635 05637 05743 05745 05887 05889 06928 06933 07062

                               07064 09339 09341
QUEFLAGS 00001 00000004 02164  05387 05389 05437 05440 05443 05642 05805 05836 05839 05842 06118 06411 06413 06454 06455
                               06547 06550 06553 06630 06785 06788 06791 06973 06976 06979 07311 07314 07317 09357 09379

                               09381 09421
QUEHOLDA 00001 00000080 02187  05387 05389 05437 05440 05642 05805 05836 05839 06118 06411 06413 06454 06547 06550 06785

                               06788 06973 06976 07311 07314
QUEHOLD1 00001 00000040 02188  05437 05440 05805 05836 05839 06118 06411 06413 06454 06547 06550 06630 06785 06788 06973
                               06976 07311 07314
QUEHOLD2 00001 00000020 02189  05437 05805 05836 06454 06547 06785 06973 07311
QUEJOBNO 00001 00000002 02163  05421 05451 05483 05820 05851 06125 06127 06562 06575 06800 06833 06957 06988 07021 07126
                               07295 07326 07359
QUEOPCAN 00001 00000008 02191  06455
QUEOPRTE 00001 00000004 02192  09379 09381

QUEPRIO  00001 00000000 02161  05433 05832 06543 06781 06969 07266 07277 07307 07411
QUEPRTRT 00001 0000000C 02167  05772 05774 05791 05858 06131 06584 06842 07030 07368 09361 09363 09428 09653
QUEPUNRT 00001 0000000D 02168  05777 05779 05789 05861 06133 06587 06845 07033 07371 09367 09369 09373 09431 09653 09653
QUEPURGE 00001 00000010 02190  05437 05443 05836 05842 06455 06547 06553 06785 06791 06973 06979 07311 07317 09357 09421
QUETYPE  00001 00000001 02162  05448 05490 05493 05784 05793 05848 05868 05871 06456 06458 06491 06559 06594 06597 06602

COMM                                              CROSS-REFERENCE                                              PAGE  257


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

                               06739 06797 06852 06855 06860 06985 07040 07043 07048 07222 07274 07278 07323 07378 07381

                               07386 07409 09382 09384 09649 09651
RJOB     00004 000000B8 04409  05468 05924 06516 06817 07005 07343
R0       00001 00000000 01417  04659 04660 04667 04669 04795 04801 04810 04814 04821 04822 04825 04829 04830 04889 04890
                               04890 04892 04894 04934 04940 04979 05383 05421 05428 05432 05432 05433 05434 05479 05494
                               05519 05528 05535 05590 05590 05593 05594 05595 05602 05604 05608 05609 05609 05615 05696
                               05697 05699 05705 05724 05724 05725 05749 05754 05758 05759 05761 05795 05799 05801 05820
                               05827 05831 05831 05832 05833 05857 05857 05858 05861 05864 05894 05902 05994 05994 05997

                               05998 05999 06006 06008 06012 06013 06013 06022 06024 06028 06071 06103 06103 06146 06147
                               06156 06156 06227 06234 06246 06248 06268 06346 06346 06349 06350 06351 06358 06360 06364
                               06365 06365 06371 06378 06397 06423 06433 06461 06538 06542 06542 06543 06544 06571 06583
                               06583 06584 06587 06590 06603 06617 06679 06679 06682 06683 06684 06691 06693 06697 06698
                               06698 06704 06711 06729 06743 06747 06751 06761 06776 06780 06780 06781 06782 06829 06841

                               06841 06842 06845 06848 06861 06875 06919 06920 06922 06946 06957 06964 06968 06968 06969
                               06970 07017 07029 07029 07030 07033 07036 07049 07070 07081 07090 07097 07118 07126 07204
                               07204 07206 07207 07219 07241 07247 07259 07265 07265 07267 07269 07269 07271 07273 07277
                               07286 07295 07302 07306 07306 07307 07308 07355 07367 07367 07368 07371 07374 07387 07411

                               07416 07435 07435 07437 07438 07439 07490 07491 07493 07540 07558 07560 07560 07570 07572
                               07573 07578 07578 07586 07586 07590 07590 07593 07617 07717 07745 07746 07748 07796 07828
                               07857 07899 07934 07935 07937 07983 08064 08067 08074 08082 08092 08104 08119 08142 08157
                               08174 08184 08205 08205 08207 08208 08209 08337 08398 08463 08557 08557 08563 08563 08680
                               08680 08681 08697 08784 08785 08790 08797 08797 08798 08804 08804 08806 08827 08828 08829
                               08835 08836 08837 08863 08874 08881 08942 08944 08944 08946 08958 08978 08979 08981 09060

                               09089 09089 09090 09092 09093 09111 09143 09143 09145 09146 09147 09160 09173 09246 09261
                               09262 09262 09265 09270 09286 09300 09333 09363 09369 09416 09428 09431 09449 09450 09452
                               09487 09487 09490 09516 09516 09519 09520 09521 09528 09530 09534 09535 09535 09544 09596
                               09596 09599 09600 09601 09608 09610 09614 09615 09615 09625 09628 09657 09677 09679 09713
                               09719 09733 09738 09738 09739 09743 09747 09748 09753 09759

R1       00001 00000001 01418  04658 04675 04676 04676 04683 04779 04842 04844 04910 04911 04915 04953 04953 04954 04955
                               04957 04958 04958 04964 04965 04965 04966 04969 04983 04983 04984 05003 05344 05344 05345
                               05360 05365 05365 05366 05366 05367 05367 05387 05389 05401 05406 05406 05407 05407 05408
                               05408 05416 05421 05433 05437 05440 05443 05448 05451 05453 05454 05456 05456 05457 05457
                               05458 05458 05460 05463 05465 05466 05477 05478 05482 05483 05484 05490 05493 05506 05511

                               05513 05513 05514 05514 05515 05515 05523 05570 05571 05577 05578 05583 05591 05602 05604
                               05608 05616 05617 05635 05637 05637 05638 05638 05639 05639 05642 05673 05675 05677 05680
                               05683 05695 05699 05743 05745 05745 05746 05746 05747 05747 05772 05774 05777 05779 05784
                               05789 05791 05793 05795 05799 05801 05805 05815 05820 05832 05836 05839 05842 05848 05851
                               05856 05858 05861 05868 05871 05887 05889 05889 05890 05890 05891 05891 05896 05909 05910

                               05912 05912 05913 05913 05914 05914 05916 05919 05921 05922 05981 05982 05987 05995 06006
                               06008 06012 06025 06027 06040 06059 06067 06105 06113 06161 06162 06163 06171 06171 06172
                               06172 06173 06173 06174 06174 06175 06196 06204 06214 06215 06215 06216 06217 06247 06248
                               06262 06265 06295 06306 06306 06329 06333 06334 06339 06347 06358 06360 06364 06372 06383
                               06391 06394 06411 06413 06454 06455 06456 06458 06460 06466 06474 06475 06478 06479 06481

                               06483 06488 06491 06501 06502 06504 06504 06505 06505 06506 06506 06508 06511 06513 06514
                               06543 06547 06550 06553 06559 06562 06569 06570 06574 06575 06576 06582 06584 06587 06594
                               06597 06602 06630 06666 06667 06672 06680 06691 06693 06697 06705 06715 06723 06726 06739
                               06744 06781 06785 06788 06791 06797 06800 06802 06803 06805 06805 06806 06806 06807 06807
                               06809 06812 06814 06815 06827 06828 06832 06833 06834 06840 06842 06845 06852 06855 06860
                               06906 06912 06916 06924 06928 06933 06933 06934 06934 06935 06935 06952 06957 06969 06973

                               06976 06979 06985 06988 06990 06991 06993 06993 06994 06994 06995 06995 06997 07000 07002
                               07003 07015 07016 07020 07021 07022 07028 07030 07033 07040 07043 07048 07062 07064 07064
                               07065 07065 07066 07066 07074 07084 07087 07113 07122 07126 07132 07133 07136 07140 07141
                               07145 07147 07153 07198 07219 07222 07224 07235 07238 07256 07260 07260 07266 07267 07270

                               07271 07273 07280 07285 07295 07307 07311 07314 07317 07323 07326 07328 07329 07331 07331
                               07332 07332 07333 07333 07335 07338 07340 07341 07353 07354 07358 07359 07360 07366 07368
COMM                                              CROSS-REFERENCE                                              PAGE  258


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

                               07371 07378 07381 07386 07407 07409 07423 07428 07458 07458 07479 07481 07484 07485 07485

                               07486 07495 07498 07499 07500 07502 07502 07503 07516 07520 07521 07523 07523 07524 07526
                               07526 07528 07529 07529 07534 07537 07604 07606 07736 07739 07740 07740 07741 07750 07753
                               07754 07755 07757 07757 07758 07771 07775 07776 07778 07778 07779 07781 07781 07783 07783
                               07790 07793 07874 07876 07916 07916 07923 07925 07928 07929 07929 07930 07939 07942 07943
                               07944 07946 07946 07947 07960 07964 07965 07967 07967 07968 07970 07970 07972 07972 07977
                               07980 08020 08022 08028 08034 08037 08042 08044 08046 08048 08050 08052 08055 08059 08069
                               08084 08088 08090 08096 08098 08105 08129 08130 08135 08139 08147 08150 08163 08171 08193

                               08198 08222 08246 08270 08270 08271 08419 08421 08423 08423 08424 08424 08478 08479 08479
                               08481 08483 08484 08484 08491 08492 08508 08517 08534 08536 08547 08558 08564 08605 08605
                               08607 08608 08608 08610 08611 08612 08612 08615 08616 08616 08624 08663 08676 08683 08684

                               08688 08733 08741 08843 08844 08850 08859 08859 08871 08914 08914 08915 08941 08942 08943
                               08943 08948 08969 08972 08973 08973 08974 08983 08986 08987 08988 08990 08990 08991 09004
                               09008 09009 09011 09011 09012 09014 09014 09016 09016 09018 09029 09033 09035 09037 09042
                               09046 09048 09050 09050 09051 09051 09052 09052 09053 09053 09055 09055 09056 09056 09058
                               09076 09080 09082 09083 09083 09084 09084 09116 09130 09131 09136 09157 09158 09165 09166

                               09166 09167 09167 09179 09182 09183 09187 09192 09201 09202 09210 09227 09227 09228 09242
                               09260 09294 09297 09339 09341 09341 09342 09342 09343 09343 09357 09361 09363 09367 09369
                               09373 09379 09381 09382 09384 09400 09416 09421 09423 09434 09440 09443 09444 09444 09445
                               09454 09457 09458 09459 09461 09461 09462 09475 09479 09480 09482 09482 09483 09485 09485
                               09490 09491 09491 09496 09504 09509 09517 09528 09530 09534 09583 09584 09589 09597 09608
                               09610 09614 09624 09627 09645 09649 09651 09653 09654 09727 09730
R10      00001 0000000A 01427  01446 05972 06028 06042 09579 09625 09633 09637 09642 09670 09699 09764
R11      00001 0000000B 01428  01447

R12      00001 0000000C 01429  01448
R13      00001 0000000D 01430  01449

R14      00001 0000000E 01431  01450 01672 04856 04898 04899 04900 06116 06117 06118 06125 06127 06131 06133 06143 06144
                               06495 06496 08500 08811 08811 08812 08813 08814 08814 08815 08816 08817 08817 08818 08822
                               08824 08846 08847 08847 08848 08850 08853 09398 09399 09400
R15      00001 0000000F 01432  01671 01671 04681 04690 04692 04694 04696 04853 04873 04941 04987 05379 05385 05414 05428
                               05429 05465 05468 05468 05469 05521 05530 05578 05579 05581 05581 05585 05591 05592 05597

                               05597 05598 05600 05606 05624 05694 05695 05697 05706 05827 05828 05921 05924 05924 05925
                               05974 05975 05977 05982 05983 05985 05985 05989 05995 05996 06001 06001 06002 06004 06010
                               06019 06020 06104 06146 06223 06229 06269 06334 06335 06337 06337 06341 06347 06348 06353
                               06353 06354 06356 06362 06398 06435 06439 06450 06494 06497 06513 06516 06516 06517 06538
                               06539 06667 06668 06670 06670 06674 06680 06681 06686 06686 06687 06689 06695 06730 06763
                               06767 06776 06777 06814 06817 06817 06818 06943 06964 06965 07002 07005 07005 07006 07072
                               07082 07091 07152 07158 07210 07215 07242 07249 07302 07303 07340 07343 07343 07344 07400
                               07423 07424 07426 07426 07430 07436 07441 07441 07442 07484 07486 07487 07489 07491 07493
                               07494 07499 07502 07515 07517 07517 07518 07541 07561 07562 07564 07564 07567 07568 07571

                               07575 07575 07576 07591 07592 07593 07595 07595 07596 07598 07599 07600 07611 07618 07739

                               07741 07742 07744 07746 07748 07749 07754 07757 07770 07772 07772 07773 07797 07824 07825
                               07881 07900 07902 07928 07930 07931 07933 07935 07937 07938 07943 07946 07959 07961 07961
                               07962 07984 08063 08066 08073 08080 08088 08091 08103 08120 08148 08150 08152 08152 08155
                               08157 08193 08194 08196 08196 08200 08206 08211 08211 08212 08242 08338 08365 08369 08464
                               08488 08499 08500 08505 08693 08699 08741 08742 08744 08746 08748 08748 08749 08752 08754

                               08754 08759 08761 08763 08765 08767 08769 08772 08774 08777 08777 08779 08781 08832 08843
                               08865 08875 08972 08974 08975 08977 08979 08981 08982 08987 08990 09003 09005 09005 09006
                               09024 09107 09113 09131 09132 09134 09134 09138 09144 09149 09149 09150 09174 09292 09301
                               09353 09443 09445 09446 09448 09450 09452 09453 09458 09461 09474 09476 09476 09477 09504
                               09505 09507 09507 09511 09517 09518 09523 09523 09524 09526 09532 09546 09584 09585 09587
                               09587 09591 09597 09598 09603 09603 09604 09606 09612 09621 09622 09662 09687 09688 09689
                               09689 09691 09715 09721 09725 09734 09748 09753
R2       00001 00000002 01419  01438
R3       00001 00000003 01420  01439
COMM                                              CROSS-REFERENCE                                              PAGE  259



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78


R4       00001 00000004 01421  01440 08495 08497 08497
R5       00001 00000005 01422  01441
R6       00001 00000006 01423  01442
R7       00001 00000007 01424  01443

R8       00001 00000008 01425  01444 01445
SAVE     00001 0000000D 01449  01839 04649
SMFDSECT 00001 00000000 04419  08534
SMFHDRTY 00001 0000000D 04430  08542
SMFHSPID 00001 00000002 04559  08544
SMFPSSTP 00001 0000002D 04568  08542
SMFRDW   00004 00000008 04424  08540 08541 08541 08541 08543 08543
SMFRSTRT 00001 0000001A 04436  04462 04518
SMFSSID  00002 0000001A 04519  08544
SMFSSTRT 00001 00000020 04523  04532 04537 04549
SMF45END 00001 00000020 04533  08541 08543

SRTEALOC 00001 00000008 03539  07859 07887 07889 08674
SRTEASCI 00001 00000004 03670  03671
SRTEBSTR 00001 00000004 03669  03672
SRTECHGS 00001 00000040 03536  07858 07861 08656

SRTEONLI 00001 00000080 03535  07858 07861 08656 08939
SRTEPRES 00001 00000004 03540  07887 07889 08671
SRTERESV 00001 00000020 03537  07887 07889 08668 08671
SRTESTAT 00001 00000003 03534  07858 07859 07861 07887 07889 08656 08668 08671 08674 08939
SRTEUSER 00001 00000038 03678  08672
SRTEVOLI 00006 0000001C 03663  08951 08952
UCBALOC  00001 00000008 03421  03539
UCBATI   00001 0000000B 03459  08637 08654
UCBBALB  00001 00000020 03576  03666
UCBBJLB  00001 00000002 03584  03673
UCBBNUL  00001 00000001 03585  03674
UCBBPRV  00001 00000010 03580  03667

UCBBPUB  00001 00000008 03581  03668
UCBBSTR  00001 00000004 03582  03669 03670
UCBBSVL  00001 00000080 03570  03665

UCBCHGS  00001 00000040 03418  03536
UCBDADI  00001 00000001 03426  03542
UCBDBBNR 00002 00000038 03859  03895
UCBDCELL 00016 00000038 03857  03894
UCBDDMCT 00001 00000043 03885  03900
UCBDEV   00001 00000018 03549  03558 03685 03719 03735 03755 03837
UCBDJBNR 00001 00000042 03884  03899
UCBDMCT  00001 00000023 03588  03675
UCBDSECT 00001 00000000 03277  07827 08600 08636 08653 08668 08669 08671 08672 08674 08936 09058
UCBDSTAB 00001 0000003A 03860  03896
UCBDSTAT 00001 0000003B 03872  03897
UCBDUSER 00001 00000047 03892  03902

UCBDVOLI 00006 0000003C 03883  03898

UCBDVTOC 00003 00000044 03891  03901
UCBERADR 00004 0000000C 04061  08607 08611 08615 08627 08627

UCBFL1   00001 00000006 03434  03543
UCBFSCT  00002 00000024 03593  03676
UCBFSEQ  00002 00000026 03594  03677
UCBJBNR  00001 00000000 03383  03532
UCBMONT  00001 00000001 03393  03533
UCBNAME  00003 0000000D 03481  08950 09058
COMM                                              CROSS-REFERENCE                                              PAGE  260


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

UCBONLI  00001 00000080 03417  03535
UCBPRES  00001 00000004 03422  03540
UCBRESV  00001 00000020 03419  03537
UCBSTAB  00001 00000022 03569  03664

UCBSTAT  00001 00000003 03416  03534
UCBSYSR  00001 00000002 03423  03541

UCBTBYT3 00001 00000012 03501  08937

UCBTBYT4 00001 00000013 03510  08601 08669
UCBUCS   00001 00000000 04032  08604
UCBUNLD  00001 00000010 03420  03538
UCBUSER  00001 00000038 03645  03678 03851
UCBVOLI  00006 0000001C 03568  03663
UCBXTADR 00004 0000001C 03727  08603
UCB3DACC 00001 00000020 03504  08937
WA       00001 00000002 01438  04653 04655 04664 04665 04789 04797 04799 04801 04807 04809 04811 04819 04822 04846 04913
                               04918 04926 04935 04959 04959 04960 04961 04963 04964 04980 05373 05375 05418 05473 05475
                               05478 05481 05484 05485 05487 05491 05570 05582 05583 05584 05584 05585 05586 05617 05757
                               05817 05854 05869 05965 05965 05968 05970 05986 05987 05988 05988 05989 05990 06024 06043
                               06251 06338 06339 06340 06340 06341 06342 06417 06419 06424 06474 06483 06533 06567 06570

                               06573 06576 06577 06579 06631 06633 06671 06672 06673 06673 06674 06675 06741 06744 06746
                               06746 06752 06769 06771 06825 06828 06831 06834 06835 06837 06954 07013 07016 07019 07022
                               07023 07025 07119 07292 07351 07354 07357 07360 07361 07363 07427 07428 07429 07429 07430

                               07431 07718 07823 07824 07826 07827 07828 07835 07837 07843 07844 07845 07847 07848 07857
                               07902 08021 08022 08096 08098 08149 08153 08156 08157 08197 08198 08199 08199 08200 08201
                               08218 08306 08307 08308 08344 08350 08354 08561 08562 08566 08567 08567 08573 08574 08575
                               08576 08577 08584 08585 08588 08589 08590 08590 08591 08591 08638 08640 08644 08645 08646
                               08647 08648 08649 08649 08661 08664 08664 08665 08675 08675 08731 08731 08732 08738 08747
                               08751 08753 08755 08755 08757 08778 08788 08803 08805 08809 08810 08815 08824 08828 08829
                               08836 08837 08840 08858 08931 08933 08933 08936 08946 08955 08959 09028 09091 09092 09093
                               09094 09095 09101 09135 09136 09137 09137 09138 09139 09191 09209 09250 09252 09254 09256
                               09287 09331 09334 09345 09347 09380 09383 09385 09408 09424 09435 09489 09492 09500 09501
                               09508 09509 09510 09510 09511 09512 09573 09573 09576 09577 09588 09589 09590 09590 09591
                               09592 09627 09635 09661 09661 09664 09664 09665 09666 09667 09668 09668 09670 09754
WB       00001 00000003 01439  04786 04787 04788 04788 04809 04810 04816 04819 04821 04825 04840 04854 04855 04856 04857

                               04859 04860 04862 04864 04866 04872 04877 04879 04881 04884 04885 04886 04900 04902 04902
                               04903 04904 04919 04975 04982 05970 06025 06044 06092 06092 06094 06094 06095 06105 06161
                               06329 06390 06662 06722 07226 07227 07231 07233 07261 07263 07403 07405 07406 07842 07844

                               07850 08036 08037 08038 08078 08081 08082 08083 08094 08097 08304 08315 08320 08321 08321
                               08325 08329 08330 08330 08345 08346 08351 08352 08354 08378 08380 08385 08390 08392 08595
                               08596 08596 08597 08597 08598 08598 08600 08603 08604 08631 08632 08632 08633 08633 08634
                               08634 08636 08640 08648 08650 08650 08653 08659 08665 08666 08666 08668 08669 08671 08672
                               08674 08729 08729 08730 08766 08771 08771 08776 08786 08788 08789 08789 08794 08795 08826
                               08852 08852 08853 08854 08856 08858 08929 08931 08932 08932 08948 09018 09019 09020 09020
                               09067 09077 09077 09086 09088 09183 09184 09184 09186 09194 09202 09203 09212 09251 09252
                               09253 09255 09258 09286 09386 09386 09389 09405 09405 09406 09412 09438 09488 09499 09577
                               09628 09629 09636 09654 09655 09672
WC       00001 00000004 01440  04790 04802 04823 04868 04869 04869 04870 04917 04920 04922 04924 04926 04945 04954 04976
                               04981 04984 04986 05546 05556 05787 05803 05808 05971 05971 06027 06041 06047 06048 06049
                               06051 06051 06061 06061 06062 06063 06064 06065 06065 06067 06107 06107 06108 06109 06110

                               06111 06111 06113 06139 06139 06140 06141 06142 06143 06182 06183 06183 06194 06195 06195
                               06198 06198 06199 06200 06201 06202 06202 06204 06245 06254 06255 06330 06333 06371 06372
                               06373 06376 06378 06383 06391 06425 06425 06426 06663 06666 06704 06705 06706 06709 06711
                               06715 06723 06753 06753 06754 06907 06910 06911 06915 06916 06918 06920 06922 06923 06946

                               06948 06952 07074 07135 07137 07139 07139 07142 07144 07144 07147 07153 07224 07266 07274
                               07276 07280 07407 07411 07479 07532 07734 07786 07923 07975 08023 08027 08030 08035 08039
COMM                                              CROSS-REFERENCE                                              PAGE  261


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

                               08054 08060 08079 08095 08099 08136 08143 08154 08164 08166 08168 08175 08178 08182 08303
                               08310 08310 08312 08314 08319 08323 08327 08328 08738 08739 08740 08740 08786 08806 08812

                               08856 08928 08929 08941 09257 09289 09388 09388 09391 09391 09392 09393 09394 09395 09395
                               09397 09423 09428 09431 09434 09578 09624 09645 09657 09705 09705 09706
WCMBFD   00001 00000080 01992  04670 04695 08167 08179
WCMBFF   00001 00000010 01995  04691 04849 04928 04949 08167 08734
WCMBFG   00001 00000008 01996  05283 05966 09263 09279 09574
WD       00001 00000005 01441  04793 04816 04817 04817 04847 04904 04906 04911 04912 04913 04915 05416 05506 05523 05570
                               05573 05577 05668 05716 05729 05733 05754 05815 05896 05973 05974 05981 06019 06045 06049
                               06050 06085 06097 06160 06163 06164 06166 06168 06175 06176 06176 06179 06185 06246 06262

                               06330 06376 06426 06428 06663 06709 06754 06756 06906 06907 06914 06914 07084 07112 07112
                               07113 07122 07123 07198 07201 07225 07226 07235 07256 07274 07278 07286 07406 07481 07534

                               07559 07561 07608 07736 07790 07841 07842 07843 07878 07925 07977 08024 08028 08036 08111
                               08134 08135 08139 08146 08147 08158 08171 08239 08305 08306 08796 08796 08806 08812 08821
                               08825 08825 08969 09130 09242 09249 09250 09251 09260 09266 09278 09280 09280 09288 09294
                               09378 09389 09397 09410 09437 09438 09440 09496 09580 09583 09621 09660 09691 09693 09704
                               09727 09750 09755
WE       00001 00000006 01442  04791 04792 04794 04813 04814 04843 04845 04847 04906 04910 04912 05573 05668 05690 05690
                               05749 05935 05935 05973 06373 06428 06706 06756 07225 07559 07608 07841 07878 08024 08111
                               08134 08146 08158 08239 08305 08792 08805 09249 09258 09259 09288 09437 09580 09641 09641

                               09642 09696 09696 09697 09699
WF       00001 00000007 01443  04844 04845 05689 05692 05719 05723 05734 05776 05781 06039 06052 06067 06113 06143 06204
                               06296 06912 07123 07201 08793 09261 09266 09377 09387 09397 09411 09632 09638 09670 09765
XOUTENT  00001 00000010 04207  04208 04209
XPCEJOB  00004 00000064 04198  06744

XPCESTAT 00001 00000058 04177  06769
XREXREQ  00001 00000010 04181  06769
Z        00001 00000008 01462  05459 05915 06507 06808 06996 07334 08030 08114 08168 09385

COMM                                              LITERAL CROSS-REFERENCE                                      PAGE  262


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

=V($#CAN)
         00004 00000130 09777  06494
=V($RDRPCE)
         00004 00000134 09778  08495
=V(XWARM)

         00004 00000138 09779  08499
COMM                                              ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE  263


                                                                                                 ASM 0201 20.01 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0

OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()

WORK FILE BUFFER SIZE/NUMBER = 6398/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT       4383
TOTAL RECORDS READ FROM SYSTEM LIBRARY     9864
TOTAL RECORDS PUNCHED                       304
TOTAL RECORDS PRINTED                     11154

CON                                            EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.01 08/28/78

HASPCON   SD  0001 000000 000DF0
$WQUEBUF  LD       000000        0001
$WTOSVC   LD       00088E        0001
$WTOSVC2  LD       0009F4        0001
$HASPWTO  LD       000224        0001
$WTOECB   LD       000510        0001
$MGCRSVC  LD       000534        0001
HASPCBUF  LD       0000AC        0001
WCNLSTBL  LD       00021C        0001

WTOTCBA   LD       000D38        0001
$WCOMRES  LD       000530        0001
$TSOCOMM  LD       000C32        0001
HASPTSOS  LD       000CA0        0001

HA$QWTSO  XD  0002 000007 000000
HA$OWTSO  SD  0003 000DF0 0001AE
HA$IWTSO  LD       000DF4        0003
HASP      ER  0004
$LOGPCE   ER  0005
$COMMPCE  ER  0006
$WRESERV  ER  0007
XJOBSRCH  ER  0008
XJOBSRC2  ER  0009
$CMBWECB  ER  000A
$TSOSPCE  ER  000B
CON                                                                                                            PAGE    2



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                      1 *                                                                  RFIT W0000000
                                      2 *                            KILL ALL 370 INSTRUCTIONS             RFIT W0000010

                                      3 *                                                                  RFIT W0000020
                                      4 MVCL     OPSYN ,                                                   RFIT W0000030
                                      5 CLCL     OPSYN ,                                                   RFIT W0000040
                                      6 SIOF     OPSYN ,                                                   RFIT W0000050
                                      7 HDV      OPSYN ,                                                   RFIT W0000070
                                      8 STNSM    OPSYN ,                                                   RFIT W0000080
                                      9 STOSM    OPSYN ,                                                   RFIT W0000090
                                     10 MC       OPSYN ,                                                   RFIT W0000110
                                     11 LRA      OPSYN ,                                                   RFIT W0000120
                                     12 STCTL    OPSYN ,                                                   RFIT W0000130
                                     13 LCTL     OPSYN ,                                                   RFIT W0000140
                                     14 CLM      OPSYN ,                                                   RFIT W0000180

                                     15 STCM     OPSYN ,                                                   RFIT W0000190

                                     16 ICM      OPSYN ,                                                   RFIT W0000200
                                     17 STIDP    OPSYN ,                                                   RFIT W0000210

                                     18 STIDC    OPSYN ,                                                   RFIT W0000220
                                     19 SCK      OPSYN ,                                                   RFIT W0000230
                                     20 STCK     OPSYN ,                                                   RFIT W0000240
                                     21 SCKC     OPSYN ,                                                   RFIT W0000250
                                     22 STCKC    OPSYN ,                                                   RFIT W0000260
                                     23 SPT      OPSYN ,                                                   RFIT W0000270
                                     24 STPT     OPSYN ,                                                   RFIT W0000280
                                     25 PTLB     OPSYN ,                                                   RFIT W0000310
                                     26 RRB      OPSYN ,                                                   RFIT W0000350
                                     27 SRP      OPSYN ,                                                   RFIT W0000360
CON      HASP GLOBAL DEFINITIONS                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                     29          COPY  $GLOBAL                                                  W0004000
                                     30 *                                                                       GL002000

                                     31 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000

                                     32 *                                                                       GL006000



                                     34          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000
                                     35          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000
                                     36          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                     37          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000
                                     38          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000





                                     40 *                                                                       GL032000
                                     41 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000
                                     42 *                                                                       GL036000




                                     44          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000

                                     45          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000

                                     46          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000
                                     47          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                     48          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000
                                     49          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000
                                     50          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                     51          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000
                                     52          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000
                                     53          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000
                                     54          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000
                                     55          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                     56          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000
                                     57          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000

                                     58          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000
                                     59          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000
                                     60          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100

                                     61          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200
                                     62          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300
                                     63          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000
                                     64          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000
                                     65          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                     66          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000
                                     67          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                     68          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                     69          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000
                                     70          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000
                                     71          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                     72          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000

                                     73          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000
                                     74          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000
CON      HASP GLOBAL DEFINITIONS                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                     76 *                                                                       GL116000
                                     77 *                             O/S INTERFACE PARAMETERS                  GL118000
                                     78 *                                                                       GL120000



                                     80          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000
                                     81          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100

                                     82          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000
                                     83          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000
                                     84          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000
                                     85          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000
                                     86          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                     87          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000
                                     88          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000
                                     89          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000

                                     90          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                     91          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200

                                     92          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300
                                     93          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400





                                     95 *                                                                       GL150000
                                     96 *                             HASP OPTION PARAMETERS                    GL152000
                                     97 *                                                                       GL154000




                                     99          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000
                                    100          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000
                                    101          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000
                                    102          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000
                                    103          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000

                                    104          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000
                                    105          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000
                                    106          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000

                                    107          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000
                                    108          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000
                                    109          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100
                                    110          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500
                                    111          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                    112          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                    113          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000

                                    114          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                    115          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000
                                    116          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000
                                    117          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000
                                    118          GBLB  &DEBUG              DEBUG MODE                           GL186000

                                    119          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000
                                    120          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000
CON      HASP GLOBAL DEFINITIONS                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    122 *                                                                       GL226000
                                    123 *                             REMOTE JOB ENTRY PARAMETERS               GL228000
                                    124 *                                                                       GL230000



                                    126          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                    127          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000

                                    128          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000
                                    129          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    130          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000
                                    131          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000
                                    132          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000

                                    133          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000
                                    134          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000





                                    136 *                                                                       GL260000

                                    137 *                             INTERNAL GENERATION PARAMETERS            GL262000
                                    138 *                                                                       GL264000



                                    140          GBLC  &VERSION            HASP VERSION                         GL270000
                                    141          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000

                                    142          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                    143          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000
                                    144          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500
                                    145          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000
                                    146          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500

                                    147          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                    148          GBLA  &LOW                OVERLAY PRIORITY                     GL280000
                                    149          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000
                                    150          GBLA  &HIGH                 PARAMETER VALUES                   GL284000
                                    151          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000
                                    152          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000

                                    153          LCLC  &DOC                DOCUMENTATION OPTION                 W0006000
CON      HASP CONSOLE ROUTINES                                                                                 PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                              156 HASPCON  START 0                   HASP CONSOLE ROUTINES                W0012000
                            00000   157          USING *,BASE2             ESTABLISH LOCAL ADDRESSABILITY       W0014000






                                    159 *                                                                       W0018000
                                    160 *                             CONSOLE GENERATION OPTIONS                W0020000
                                    161 *                                                                       W0022000



                            0005F   163 $BSPACE  EQU  X'5F'                CONSOLE BACKSPACE CHARACTER          W0026000






                                    165          COPY  $HASPGEN            COPY HASPGEN VARIABLES               W0030000
CON      HASPGEN PARAMETER VALUES                                                                              PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    167 *                                                                       HA004000
                                    168 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000
                                    169 *                                                                       HA008000



                                    171 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000

                                    172 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                    173 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000
                                    174 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000
                                    175 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000




                                    177 *                                                                       HA028000
                                    178 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000

                                    179 *                                                                       HA032000




                                    181 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000
                                    182 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000
                                    183 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000
                                    184 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000
                                    185 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000

                                    186 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                    187 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000
                                    188 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000
                                    189 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000
                                    190 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000
                                    191 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    192 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000
                                    193 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000
                                    194 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000

                                    195 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000

                                    196 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000
                                    197 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000
                                    198 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                    199 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200
                                    200 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300

                                    201 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                    202 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000
                                    203 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                    204 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000
                                    205 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000
                                    206 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                    207 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000
                                    208 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000
                            0003C   209 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000
CON      HASPGEN PARAMETER VALUES                                                                              PAGE    8



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                    212 *                                                                       HA100000
                                    213 *                             O/S INTERFACE PARAMETERS                  HA102000

                                    214 *                                                                       HA104000



                                    216 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                    217 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000
                                    218 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000
                                    219 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000
                                    220 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000
                                    221 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000
                                    222 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                    223 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                    224 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000

                                    225 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100
                                    226 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200
                                    227 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300
                                    228 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400




                                    230 *                                                                  RFIT HA125600
                                    231 *                             HASP SVC NUMBER                      RFIT HA125700
                                    232 *                                                                  RFIT HA125800
                                    233          COPY  $INITSVC                                            RFIT HA125900
                                    234 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT





                                    236 *                                                                       HA130000
                                    237 *                             HASP OPTION PARAMETERS                    HA132000
                                    238 *                                                                       HA134000




                                    240 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000
                                    241 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000
                                    242 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000

                                    243 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000
                                    244 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                    245 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000
                                    246 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    247 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000
                                    248 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000
                                    249 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000
                                    250 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100
                                    251 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500
                                    252 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
CON      HASPGEN PARAMETER VALUES                                                                              PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    253 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500

                                    254 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                    255 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000

                                    256 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                    257 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000
                                    258 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                    259 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000
                                    260 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                    261 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000
CON      HASPGEN PARAMETER VALUES                                                                              PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                    264 *                                                                       HA174000
                                    265 *                             REMOTE JOB ENTRY PARAMETERS               HA176000

                                    266 *                                                                       HA178000




                                    268 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000

                                    269 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000
                                    270 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000
                                    271 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000
                                    272 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                    273 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000
                                    274 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000
                                    275 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000
                                    276 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000





                                    278 *                                                                       HA202000
                                    279 *                             INTERNAL GENERATION PARAMETERS            HA204000

                                    280 *                                                                       HA206000




                                    282 &VERSION SETC  '4.0'               HASP VERSION                         HA210000

                                    283 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000
                                    284 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000
                                    285 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                    286 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000
                                    287 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                    288 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000
                                    289 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500
                                    290 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                    291 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000
                                    292 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000
                                    293 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000
                                    294 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000

                                    295 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
CON      HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                    298 *                                                                       HA234000
                                    299 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000
                                    300 *                                                                       HA238000



                            00000   302 R0       EQU   0                                                        HA242000
                            00001   303 R1       EQU   1                                                        HA244000
                            00002   304 R2       EQU   2                                                        HA246000
                            00003   305 R3       EQU   3                                                        HA248000
                            00004   306 R4       EQU   4                                                        HA250000
                            00005   307 R5       EQU   5                                                        HA252000

                            00006   308 R6       EQU   6                                                        HA254000
                            00007   309 R7       EQU   7                                                        HA256000
                            00008   310 R8       EQU   8                                                        HA258000
                            00009   311 R9       EQU   9                                                        HA260000

                            0000A   312 R10      EQU   10                                                       HA262000
                            0000B   313 R11      EQU   11                                                       HA264000
                            0000C   314 R12      EQU   12                                                       HA266000
                            0000D   315 R13      EQU   13                                                       HA268000
                            0000E   316 R14      EQU   14                                                       HA270000
                            0000F   317 R15      EQU   15                                                       HA272000






                                    319 *                                                                       HA276000
                                    320 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000
                                    321 *                                                                       HA280000



                            00002   323 WA       EQU   R2                  WORK REGISTER A                      HA284000
                            00003   324 WB       EQU   R3                  WORK REGISTER B                      HA286000

                            00004   325 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   326 WD       EQU   R5                  WORK REGISTER D                      HA290000

                            00006   327 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007   328 WF       EQU   R7                  WORK REGISTER F                      HA294000
                            00008   329 WG       EQU   R8                  WORK REGISTER G                      HA296000
                            00008   330 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000
                            0000A   331 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000
                            0000B   332 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000
                            0000C   333 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000
                            0000D   334 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000

                            0000E   335 LINK     EQU   R14                 LINK REGISTER                        HA308000
CON      HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78












                            00000   338 NOP      EQU   0                   NO-OP                                HA314000

                            00001   339 O        EQU   1                   ONES OR OVERFLOW                     HA316000
                            00002   340 H        EQU   2                   HIGH                                 HA318000
                            00002   341 P        EQU   2                   PLUS                                 HA320000
                            00004   342 L        EQU   4                   LOW                                  HA322000
                            00004   343 M        EQU   4                   MINUS OR MIXED                       HA324000
                            00007   344 NE       EQU   7                   NOT EQUAL                            HA326000
                            00007   345 NZ       EQU   7                   NOT ZERO                             HA328000

                            00008   346 E        EQU   8                   EQUAL                                HA330000
                            00008   347 Z        EQU   8                   ZERO                                 HA332000
                            0000B   348 NL       EQU   11                  NOT LOW                              HA334000
                            0000B   349 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000
                            0000D   350 NH       EQU   13                  NOT HIGH                             HA338000

                            0000D   351 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   352 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
CON      HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    354 *                                                                       HA346000
                                    355 *                             BIT DEFINITIONS                           HA348000
                                    356 *                                                                       HA350000



                            00080   358 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000
                            00040   359 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000

                            00020   360 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000
                            00010   361 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000
                            00008   362 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000
                            00004   363 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000
                            00002   364 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000

                            00002   365 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001   366 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000
                                    367 *                                                                       HA370000
                            00080   368 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000
                            00040   369 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000

                            00020   370 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   371 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000
                            00008   372 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000
                            00004   373 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000
                            00002   374 $EWF15   EQU   X'02'               SPARE                                HA384000

                            00001   375 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000





                                    377 *                                                                       HA390000
                                    378 *                             BYTE DEFINITIONS                          HA392000

                                    379 *                                                                       HA394000



                            00000   381 $EWBPOST EQU   0                   BYTE 0                               HA398000
                            00000   382 $EWBBUF  EQU   0                   BYTE 0                               HA400000
                            00000   383 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   384 $EWBJOB  EQU   0                   BYTE 0                               HA404000

                            00000   385 $EWBUNIT EQU   0                   BYTE 0                               HA406000
                            00000   386 $EWBCKPT EQU   0                   BYTE 0                               HA408000
                            00000   387 $EWBCMB  EQU   0                   BYTE 0                               HA410000
                            00000   388 $EWBSMF  EQU   0                   BYTE 0                               HA411000

                            00000   389 $EWBJOT  EQU   0                   BYTE 0                               HA412000
                                    390 *                                                                       HA414000
                            00001   391 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001   392 $EWBIO   EQU   1                   BYTE 1                               HA418000
                            00001   393 $EWBWORK EQU   1                   BYTE 1                               HA420000

                            00001   394 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001   395 $EWBDDB  EQU   1                   BYTE 1                               HA424000
                            00001   396 $EWBOLAY EQU   1                   BYTE 1                               HA426000
                            00001   397 $EWB15   EQU   1                   BYTE 1                               HA428000
                            00001   398 $EWBOROL EQU   1                   BYTE 1                               HA430000
CON      HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    401 *                                                                       HA436000

                                    402 *                             LOGICAL CONSOLE DEFINITIONS               HA438000
                                    403 *                                                                       HA440000



                            00001   405 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002   406 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000

                            00004   407 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008   408 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000
                            00010   409 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000
                            00020   410 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000
                            00040   411 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   412 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   413 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000
                            00000   414 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000







                                    416 *                                                                       HA466000
                                    417 *                             MESSAGE CLASS DEFINITIONS                 HA468000
                                    418 *                                                                       HA470000



                            00010   420 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000

                            00030   421 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050   422 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000
                            00070   423 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000
                            00080   424 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000




                                    426 *                                                                       HA484000
                                    427 *                             MESSAGE PRIORITY DEFINITIONS              HA486000
                                    428 *                                                                       HA488000





                            00001   430 $LO      EQU   1                   LOW PRIORITY                         HA492000
                            00004   431 $ST      EQU   4                   STANDARD PRIORITY                    HA494000
                            00007   432 $HI      EQU   7                   HIGH PRIORITY                        HA496000
CON      HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    435 *                                                                       HA502000
                                    436 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000
                                    437 *                                                                       HA506000



                            00080   439 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000
                            00000   440 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000
                            00040   441 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000
                            00000   442 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000

                            00020   443 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000

                            00000   444 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000
                            00010   445 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000
                            00000   446 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000
                            00008   447 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000

                            00000   448 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000
                            00004   449 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000   450 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000





                                    452 *                                                                       HA536000
                                    453 *                             HASP STATUS BIT DEFINITIONS               HA538000
                                    454 *                                                                       HA540000



                            00080   456 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040   457 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000

                            00020   458 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000
                            00010   459 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000
                            00008   460 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000
                            00004   461 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000

                            00002   462 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000
CON      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    465 *                                                                       HA560000
                                    466 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000
                                    467 *                                                                       HA564000



                                    469 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                    470 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000

                                    471 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000
                                    472 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000
                                    473 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000
                                    474 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000

                                    475 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000
                                    476 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                    477 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000





                                    479 *                                                                       HA588000
                                    480 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000
                                    481 *                                                                       HA592000



                                    483 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                    484 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000
                                    485 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000

                                    486 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                    487 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                    488 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000

                                    489 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                    490 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000
                                    491 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
CON      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    494 *                                                                       HA618000
                                    495 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000
                                    496 *                                                                       HA622000



                                    498 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000

                                    499 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000

                                    500 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000
                                    501 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000

                                    502 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000
                                    503 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000
                                    504 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000
                                    505 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                    506 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000





                                    508 *                                                                       HA646000
                                    509 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000
                                    510 *                                                                       HA650000



                                    512 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000

                                    513 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                    514 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000

                                    515 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000

                                    516 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000
                                    517 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000
                                    518 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                    519 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000
                                    520 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
CON      HASP CONSOLE ROUTINES                                                                                 PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78











                                    524 *                                                                       W0038000

                                    525 *                             EXTERNAL REFERENCES                       W0040000
                                    526 *                                                                       W0042000




                                    528          ENTRY $WQUEBUF            CONSOLE QUEUEING SUBROUTINE          W0046000
                                    529          ENTRY $WTOSVC             WTO/WTOR/WTL ROUTINE                 W0048000
                                    530          ENTRY $WTOSVC2            WTO/WTOR ROUTINE, 2ND EXIT           W0050000
                                    531          ENTRY $HASPWTO            HASP WTO SUBTASK                     W0052000
                                    532          ENTRY $WTOECB             HASP WTO SUBTASK ECB                 W0054000
                                    533          ENTRY $MGCRSVC            MGCR (SVC 34) EXIT ROUTINE           W0056000
                                    534          ENTRY HASPCBUF            MESSAGE BUFFERING                    W0058000
                                    535          ENTRY WCNLSTBL            LOGICAL CONSOLE LIST LEVEL TBL       W0060000
                                    536          ENTRY WTOTCBA             SET TO $HASPWTO TCB ADDRESS          W0062000





CON      HASP CONTROL BLOCKS                                                                                   PAGE   19



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    540 *                                                                       W0070000

                                    541 *                             DOCUMENTATION OPTION                      W0072000
                                    542 *                                                                       W0074000



                                    544 &DOC     SETC  'NO'                TURN OFF DOCUMENTATION               W0078000






                                    546 *                                                                       W0082000
                                    547 *                             GENERATE HASP CONTROL BLOCKS              W0084000
                                    548 *                                                                       W0086000



                                    550          $HASPCB HCT,PCE,BUFFER,CMB,DCT,JCT,TQE,JQE,JIT,XEQWORK,       CW0090000
                                                       CVT,DCB,DEB,UCB,TCB,RB,JSCB,DOC=&DOC                     W0092000
CON      HASP COMMUNICATION TABLE DSECT                                                                        PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000000                              552+HCTDSECT DSECT                     HASP COMMUNICATION TABLE DSECT       HC437000



                            00000   554+         USING HCTDSECT,BASE1      ESTABLISH HCT ADDRESSABILITY         HC439000


000000 40E540F44BF0F0F9             556+$VERSION DC    CL8' V 4.009762'         HASP VERSION                    HC441000


                                    558+*                             VS2 - HASP VECTOR TABLE                   HC451050

000008                              560+$HVT     DS    0F                                                       HC451150
000008 00000000                     561+$HVTEXCP DC    V($EXCPSVC)         IOS PSEUDO DEVICE EXIT ADDRESS       HC451200

00000C 00000000                     562+         DC    V(XJCLSCAN)         INTERPRETTER EXIT ADDRESS            HC451250
000010 00000000                     563+         DC    V($MGCRSVC)         MGCR EXIT ADDRESS                    HC451300
000014 00000000                     564+         DC    V($WTOSVC)          WTO(R)/WTL EXIT 1 ADDRESS            HC451350
000018 00000000                     565+         DC    V($WTOSVC2)         WTO(R) EXIT 2 ADDRESS                HC451400
00001C 0000002C                     566+         DC    A($EXITNOP)         JOB INITIATION EXIT ADDRESS          HC451450

000020 0000002C                     567+         DC    A($EXITNOP)         STEP INITIATION EXIT ADDRESS         HC451500
000024 00000000                     568+         DC    V(XTERMSMF)         TERMINATION EXIT ADDRESS             HC451550
000028 00000000                     569+         DC    V($TSOCOMM)         TSO STATUS/CANCEL EXIT ADDRESS       HC451600


00002C 1BFF                         571+$EXITNOP SR    R15,R15             R15 = RC = 0                         HC451750
00002E 07FE                         572+         BR    R14                 RETURN                               HC451800


                                    574+*                             ENTRY TO HASP DISPATCHER                  HC452000

000030 47F0 B030      00030         576+$WAIT    B     *                                                        HN016000



                                    578+*                             ENTRIES TO HASP BUFFER SERVICES           HC456000

000034 47F0 B034      00034         580+$GETBUF  B     *                                                        HN016000
000038 47F0 B038      00038         581+$GETPBUF B     *                                                        HN016000

00003C 47F0 B03C      0003C         582+$FREEBUF B     *                                                        HN016000


                                    584+*                             ENTRIES TO HASP UNIT SERVICES             HC462000


000040 47F0 B040      00040         586+$GETUNIT B     *                                                        HN016000
000044 47F0 B044      00044         587+$FREUNIT B     *                                                        HN016000


                                    589+*                             ENTRIES TO HASP JOB QUEUE SERVICES        HC467000

000048 47F0 B048      00048         591+$QADD    B     *                                                        HN016000

00004C 47F0 B04C      0004C         592+$QGET    B     *                                                        HN016000
000050 47F0 B050      00050         593+$QPUT    B     *                                                        HN016000
000054 47F0 B054      00054         594+$QREM    B     *                                                        HN016000
000058 47F0 B058      00058         595+$QSIZ    B     *                                                        HN016000
00005C 47F0 B05C      0005C         596+$QLOC    B     *                                                        HN016000

000060 47F0 B060      00060         597+$QJITLOC B     *                                                        HN016000
CON      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    599+*                             ENTRIES TO DIRECT ACCESS SPACE SERVICES   HC477000


000064 47F0 B064      00064         601+$TRACK   B     *                                                        HN016000
000068 47F0 B068      00068         602+$PURGER  B     *                                                        HN016000


                                    604+*                             ENTRIES TO HASP INPUT/OUTPUT SERVICES     HC482000


00006C 47F0 B06C      0006C         606+$EXCP    B     *                                                        HN016000
000070 47F0 B070      00070         607+$EXTPOPE B     *                                                        HN016000
000074 47F0 B074      00074         608+$EXTPGET B     *                                                        HN016000
000078 47F0 B078      00078         609+$EXTPPUT B     *                                                        HN016000
00007C 47F0 B07C      0007C         610+$EXTPCLO B     *                                                        HN016000

000080 47F0 B080      00080         611+$RESTORE B     *                                                        HN016000


                                    613+*                             ENTRIES TO HASP OVERLAY SERVICES          HC491000

000084 47F0 B084      00084         615+$ODEL    B     *                                                        HN016000
000088 47F0 B088      00088         616+$ORET    B     *                                                        HN016000

00008C 47F0 B08C      0008C         617+$OLINK   B     *                                                        HN016000
000090 47F0 B090      00090         618+$OXCTL   B     *                                                        HN016000
000094 47F0 B094      00094         619+$OLOAD   B     *                                                        HN016000



                                    621+*                             ENTRIES TO HASP CONSOLE SERVICES          HC499000

000098 47F0 B098      00098         623+$WTO     B     *                                                        HN016000
00009C 47F0 B09C      0009C         624+$FREEMSG B     *                                                        HN016000
0000A0 47F0 B0A0      000A0         625+$DOM     B     *                                                        HN016000



                                    627+*                             ENTRIES TO HASP SMF BUFFER SERVICES       HC503200

0000A4 47F0 B0A4      000A4         629+$QUESMFB B     *                                                        HN016000
0000A8 47F0 B0A8      000A8         630+$GETSMFB B     *                                                        HN016000


                                    632+*                             ENTRIES TO HASP INTERVAL TIMER SERVICES   HC504000


0000AC 47F0 B0AC      000AC         634+$STIMER  B     *                                                        HN016000
0000B0 47F0 B0B0      000B0         635+$TTIMER  B     *                                                        HN016000



                                    637+*                             ENTRIES TO HASP ERROR SERVICES            HC509000

0000B4 47F0 B0B4      000B4         639+$IOERROR B     *                                                        HN016000
0000B8 47F0 B0B8      000B8         640+$ERROR   B     *                                                        HN016000

0000BC 47F0 B0BC      000BC         641+$DISTERR B     *                                                        HN016000
CON      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0000C0 00                           643+         DC    AL1(0)              RESERVED                             HC515000
0000C1 00                           644+$OPTSTAT DC    AL1(*-*)            HASP INITIALIZATION OPTIONS          HC516000
0000C2 00                           645+$STATUS  DC    AL1(*-*)            HASP SYSTEM STATUS                   HC517000
0000C3 00                           646+$CURPCE  DC    AL1(*-*)            CURRENT PCE ID                       HC518000
0000C4 00                           647+$HASPECF DC    AL1(*-*)            MASTER EVENT CONTROL FIELD           HC519000

0000C5 00                           648+MHASPECF DC    AL1(*-*)            LINE MANAGER EVENT CONTROL FIELD     HC520000
0000C6 00                           649+$XEQACT  DC    AL1(*-*)            COUNT OF JOBS IN O/S EXECUTION       HC521000

0000C7 00                           650+$ACTIVE  DC    AL1(*-*)            COUNT OF ACTIVE FUNCTIONS            HC522000
0000C8 FF                           651+$ENBALL  DC    X'FF'               ENABLE ALL MASK                      HC523000
0000C9 00                           652+$DISALL  DC    X'00'               DISABLE ALL MASK                     HC524000
0000CA FE                           653+$DISINT  DC    X'FE'               DISABLE INTERVAL TIMER MASK          HC525000
0000CB 00                           654+         DC    X'00'               RESERVED                             HC526000

0000CC 0000                         655+$EXCPCT  DC    Y(*-*)              ACTIVE HASP I/O COUNT                HC531000
0000CE 0040                         656+$COMMCT  DC    Y(64)                     ACTIVE HASP COMMAND COUNT      HC532000
0000D0 0000                         657+$CKPTRAK DC    Y(*-*)              HASP CHECKPOINT TRACK ADDRESS        HC533000
0000D2 0000                         658+         DC    Y(0)                RESERVED                             HC534000
0000D4 00000000                     659+$HASPTCB DC    A(*-*)              ADDRESS OF HASP TASK CONTROL BLOCK   HC535000
0000D8 00000000                     660+$HASPECB DC    F'0'                COMMON HASP ECB                      HC535200
0000DC 00000000                     661+$ASYNCQ  DC    A(0)                ASYNC I/O COMPLETION QUEUE           HC535400
0000E0 00000000                     662+$RJECHEQ DC    A(0)                RJE I/O COMPLETION QUEUE             HC535600
                                    663+*                                  ADDRESS OF FIRST HASP PCE            HC536000

0000E4 00000000                     664+$PCEORG  DC    A(*-*)                                                   HN010000

0000E8 00000000                     665+$BUFPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE HASP BUFFER HC538000
0000EC 00000000                     666+$TPBPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE RJE BUFFER  HC539000
0000F0 00000000                     667+$DCTPOOL DC    A(*-*)              ADDRESS OF FIRST HASP DCT            HC540000
0000F4 00000000                     668+$JITABLE DC    A(*-*)              ADDRESS OF HASP JOB INFO TABLE       HC541000
0000F8 00000000                     669+$JOTABLE DC    V($JOT)             ADDRESS OF JOB OUTPUT TABLE          HC541500

0000FC 00000000                     670+$CYLMAP  DC    A(*-*)              ADDRESS OF FIRST CYLINDER MODULE MAP HC542000
000100 00000000                     671+$TEDADDR DC    A(*-*)              ADDRESS OF FIRST EXTENT DATA TABLE   HC543000
000104 00000000                     672+$DCBLIST DC    A(*-*)              ADDRESS OF DIRECT ACCESS DCB         HC544000
000108 00000000                     673+$FREEQUE DC    A(*-*)              ADDR OF 1ST FREE CONSOLE MSG BUFFER  HC545000
00010C 00000000                     674+$BUSYQUE DC    A(*-*)              CONSOLE MSG BUFFERS QUEUED FOR I/O   HC546000
000110 00000000                     675+$LOGQUE  DC    A(*-*)              CMB'S QUEUED FOR LOG PROCESSOR       HC547000
000114 00000000                     676+$COMMQUE DC    A(*-*)              COMMANDS QUEUED FOR COMMAND PROC     HC548000
000118 00000000                     677+$DOMQUE  DC    A(*-*)              CMB'S AWAITING ACTION                HC548200
00011C 00000000                     678+$SMFFREE DC    A(*-*)              ADDR OF 1ST FREE SMF BUFFER          HC548400
000120 00000000                     679+$SMFBUSY DC    A(*-*)              SMF BUFFERS QUEUED FOR I/O           HC548600

000124 00000000                     680+$PRCHKPT DC    A(*-*)              ADDRESS OF PRINT CHECKPOINT TABLE    HC549000

000128 00000002                     681+$TIMEARG DC    F'2'                FAKE SVRB+36 FOR IGC011              HC549500
CON      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    683+*                             NUCLEUS ADDRESS TABLE                     HC551000


00012C                              685+$NUCTABL DS    0F                  START OF NUCLEUS ADDRESS TABLE       HC553000
00012C 00000000                     686+$STATENT DC    A(*-*)              ENTRY TO STATUS ROUTINE              HC554000
000130 00000000                     687+$TIMENT  DC    A(*-*)              ENTRY TO TIME ROUTINE                HC555000
000134 00000000                     688+$XSMFENT DC    A(*-*)              ENTRY TO SMF EXCP COUNTING ROUTINE   HC559000
000138 00000000                     689+$SVCRSET DC    A(*-*)              ENTRY TO HASP SVC RESET ROUTINE      HC560000
                            00010   690+$NUCLEN  EQU   *-$NUCTABL          LENGTH OF NUCLEUS ADDRESS TABLE      HC561000


                                    692+*********************************************************************** HC576000
                                    693+*  ALL VARIABLES LOCATED IN THIS AREA WILL BE REGULARLY CHECKPOINTED  * HC577000

                                    694+*  BY HASP AND WILL BE RESTORED ON ANY WARM START.....                * HC578000

                                    695+*                                                                     * HC579000
                                    696+*                                                                     * HC580000
                                    697+*                                                                     * HC581000
00013C                              698+$SAVEBEG DS    0F                  BEGINNING OF SAVE AREA             * HC582000

00013C 00000000                     699+$JOBQPTR DC    A(*-*)              ADDRESS OF HASP JOB QUEUE          * HC583000
000140 00000000                     700+$JQFREE  DC    A(*-*)              BEGINNING OF FREE QUEUE CHAIN      * HC584000
000144 00000000                     701+$JQENT   DC    A(*-*)              BEGINNING OF ACTIVE QUEUE CHAIN    * HC585000
000148 00000000                     702+$DATAKEY DC    F'0'                MASTER PERIPHERAL DATA SET KEY     * HC588000
00014C 0000                         703+$JOBNO   DC    H'0'                HASP JOB NUMBER                    * HC589000
00014E 0000                         704+$MSGRPNO DC    H'0'                LAST CONSOLE MESSAGE TRACK GROUP   * HC590000
000150 0000000000000000             705+$DACKPT  DC    2XL6'0'             DA CHECKPOINT FOR WARM START       * HC591000
                            0015C   706+$SAVEEND EQU   *                   END OF SAVE AREA                   * HC592000
                            00020   707+$SAVELEN EQU   $SAVEEND-$SAVEBEG   LENGTH OF SAVE AREA                * HC593000
                                    708+*                                                                     * HC594000
                                    709+*                                                                     * HC595000

                                    710+*                                                                     * HC596000
                                    711+*********************************************************************** HC597000
                                    712+*                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000


00015C                              714+$NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000
00015C 00000000                     715+$ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000
000160 00000000                     716+$SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000
000164 00000000                     717+$SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000
                            0000C   718+$NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000


                                    720+*                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000

000168 00000000                     722+$IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000
00016C 00000000                     723+$WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000
000170 00000000                     724+$LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000
000174 00000000                     725+$XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000

000178 00000000                     726+$SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000
00017C 00000000                     727+$SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000
000180 00000000                     728+$SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000

000184 00000000                     729+$SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000
000188 00000000                     730+$SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000
00018C                              731+$ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000



CON      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                              734+HASPCON  CSECT ,                   END OF HCT DSECT                RFIT HC998000
CON      HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                              737+PCEDSECT DSECT                     PROCESSOR CONTROL ELEMENT DSECT      PC260000





                            00000   739+         USING PCEDSECT,SAVE       ESTABLISH PCE ADDRESSABILITY         PC264000




000000                              741+PCESAVEA DS    F                   RESERVED                             PC268000
000004                              742+PCEPREV  DS    F                   ADDRESS OF PREVIOUS PCE              PC270000
000008                              743+PCENEXT  DS    F                   ADDRESS OF NEXT PCE                  PC272000
00000C                              744+PCELINK  DS    F                   REGISTER 14 (LINK) STORAGE           PC274000
000010                              745+PCER15   DS    F                   REGISTER 15 STORAGE                  PC276000
000014                              746+PCER0    DS    F                   REGISTER 0 STORAGE                   PC278000
000018                              747+PCER1    DS    F                   REGISTER 1 STORAGE                   PC280000
00001C                              748+PCEWA    DS    F                   REGISTER 2 (WA) STORAGE              PC282000
000020                              749+PCEWB    DS    F                   REGISTER 3 (WB) STORAGE              PC284000
000024                              750+PCEWC    DS    F                   REGISTER 4 (WC) STORAGE              PC286000
000028                              751+PCEWD    DS    F                   REGISTER 5 (WD) STORAGE              PC288000
00002C                              752+PCEWE    DS    F                   REGISTER 6 (WE) STORAGE              PC290000

000030                              753+PCEWF    DS    F                   REGISTER 7 (WF) STORAGE              PC292000
000034                              754+PCEWG    DS    0F                  REGISTER 8 (WG) STORAGE              PC294000

000034                              755+PCEBASE3 DS    F                   REGISTER 8 (BASE3) STORAGE           PC296000

000038                              756+PCER9    DS    F                   REGISTER 9 STORAGE                   PC298000
00003C                              757+PCEJCT   DS    F                   REGISTER 10 (JCT) STORAGE            PC300000
000040                              758+PCEBASE1 DS    F                   REGISTER 11 (BASE1) STORAGE          PC302000
000044                              759+PCEBASE2 DS    F                   REGISTER 12 (BASE2) STORAGE          PC304000
000048                              760+PCEEWF   DS    H                   PROCESSOR EVENT WAIT FIELD           PC306000
00004A                              761+PCEID    DS    H                   PROCESSOR TYPE                       PC308000
00004C                              762+         DS    C                   RESERVED                             PC310000
00004D                              763+PCEOPRIO DS    C                   REQUESTED OVERLAY ROUTINE PRIORITY   PC312000
00004E                              764+PCEOCON  DS    H                   REQUESTED OVERLAY ROUTINE OCON       PC314000
000050                              765+PCEORTRN DS    F                   $RETURN PAST $LINK STORAGE           PC316000
000054                              766+PCEOPCE  DS    F                   CHAIN OF PCE'S USING SAME OVERLAY    PC318000
000058                              767+PCEWORK  DS    0D                  VARIABLE LENGTH PROCESSOR WORK AREA  PC320000

000000                              768+HASPCON  CSECT                     END OF PCE DSECT                     PC322000
CON      HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    770+*                                                                       PC326000
                                    771+*                             PROCESSOR CONTROL ELEMENT IDENTIFICATION  PC328000
                                    772+*                                                                       PC330000





                                    774+*                                                                       PC334000
                                    775+*                             BYTE 1                                    PC336000
                                    776+*                                                                       PC338000



                            00001   778+PCELCLID EQU   X'01'               LOCAL SPECIAL PCE ID                 PC342000
                            00002   779+PCERJEID EQU   X'02'               REMOTE SPECIAL PCE ID                PC344000
                            00004   780+PCEINRID EQU   X'04'               INTERNAL SPECIAL PCE ID              PC346000

                            00080   781+PCEPRSID EQU   X'80'               PRINT SPECIAL PCE ID                 PC348000
                            00040   782+PCEPUSID EQU   X'40'               PUNCH SPECIAL PCE ID                 PC350000






                                    784+*                                                                       PC354000
                                    785+*                             BYTE 2                                    PC356000
                                    786+*                                                                       PC358000



                            00000   788+PCEASYID EQU   0                   ASYNCH PCE ID                        PC362000
                            00001   789+PCERDRID EQU   1                   INPUT PCE ID                         PC364000

                            00002   790+PCESETID EQU   2                   SETUP PCE ID                         PC366000
                            00003   791+PCEXEQID EQU   3                   EXECUTION PCE ID                     PC368000
                            00004   792+PCETHWID EQU   4                   EXECUTION THAW PCE ID                PC370000
                            00005   793+PCEXZMID EQU   5                   EXECUTION TASK MONITOR PCE ID        PC372000
                            00006   794+PCEOUTID EQU   6                   OUTPUT PROCESSOR PCE ID              PC374000
                            00007   795+PCEPRTID EQU   7                   PRINT PCE ID                         PC376000
                            00008   796+PCEPUNID EQU   8                   PUNCH PCE ID                         PC378000
                            00009   797+PCEPRGID EQU   9                   PURGE PCE ID                         PC380000

                            0000A   798+PCECONID EQU   10                  CONSOLE PCE ID                       PC382000
                            0000B   799+PCEMLMID EQU   11                  LINE MANAGER PCE ID                  PC384000

                            0000C   800+PCETIMID EQU   12                  TIMER PCE ID                         PC386000
                            0000D   801+PCECKPID EQU   13                  CHECKPOINT PCE ID                    PC388000
                            0000E   802+PCEGPRID EQU   14                  PRIORITY AGING PCE ID                PC390000
CON      HASP BUFFER DSECT                                                                                     PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                              804+BUFDSECT DSECT                     BUFFER DSECT                         BU444000
000000                              805+IOBFLAG1 DS    C                   I/O FLAGS                            BU446000
000001                              806+IOBFLAG2 DS    C                   I/O FLAGS                            BU448000

000002                              807+IOBSENS0 DS    C                   FIRST SENSE BYTE                     BU450000
000003                              808+IOBSENS1 DS    C                   SECOND SENSE BYTE                    BU452000
000004                              809+IOBECBCC DS    0C                  I/O COMPLETION CODE                  BU454000
000004                              810+IOBECBPT DS    F                   ADDRESS OF HASP EVENT CONTROL BLOCK  BU456000
000008                              811+IOBFLAG3 DS    C                   I/O FLAGS                            BU458000

000009                              812+IOBCSW   DS    CL7                 CHANNEL STATUS WORD                  BU460000
000010                              813+IOBSIOCC DS    0C                  SIO CONDITION CODE                   BU462000
000010                              814+IOBSTART DS    F                   ADDRESS OF CHANNEL PROGRAM           BU464000

000014                              815+IOBDCBPT DS    F                   ADDRESS OF DATA CONTROL BLOCK        BU466000
000018                              816+IOBREPM  DS    0C                  REPOSITION MODIFIER                  BU468000
000018                              817+IOBRESTR DS    F                   RESTART ADDRESS OF CHANNEL PROGRAM   BU470000
00001C                              818+TPBMXREC DS    0C                  MAXIMUM RJE OUTPUT RECORD COUNT      BU472000
00001C                              819+IOBINCAM DS    H                   BLOCK COUNT INCREMENT                BU474000
00001E                              820+IOBERRCT DS    H                   ERROR COUNT                          BU476000
000020                              821+TPBLCCC  DS    0C                  LAST REMOTE OUTPUT COMMAND OP.       BU478000

000020                              822+TPBLCCAD DS    0F                  ADDR OF LAST REMOTE CARRIAGE CONTROL BU480000
000020                              823+IOBXTENT DS    C                   DEB EXTENT                           BU482000
000021                              824+IOBSEEK  DS    0CL7,3C             DIRECT ACCESS SEEK ADDRESS           BU484000
000024                              825+TPBRECNT DS    0C                  CURRENT REMOTE OUTPUT RECORD COUNT   BU486000
000024                              826+TPBFDATA DS    F                   REMOTE DATA POINTER                  BU488000

000028                              827+BUFECBCC DS    0C                  I/O COMPLETION CODE                  BU490000
000028                              828+BUFCHAIN DS    F                   BUFFER CHAIN FIELD                   BU492000
00002C                              829+BUFTYPE  DS    0C                  BUFFER TYPE                          BU494000
00002C                              830+BUFDCT   DS    F                   ADDRESS OF DEVICE CONTROL TABLE      BU496000

000030                              831+BUFEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     BU498000
000034                              832+OACECHN  DS    0F                  OVERLAY AREA CHAIN WORD              BU500000
000034                              833+BUFDDB   DS    0F                  DDB ADDRESS                          BU501000
000034                              834+LCBMCB   DS    C                   REMOTE MODE BYTE                     BU502000
000035                              835+LCBACK   DS    C                   REMOTE NEXT ACKNOWLEDGEMENT          BU504000
000036                              836+LCBRCB   DS    H                   REMOTE RESPONSE CONTROL BLOCK        BU506000

000038                              837+IOBCCW1  DS    D                   CHANNEL COMMAND WORD 1               BU508000
000040                              838+IOBCCW2  DS    D                   CHANNEL COMMAND WORD 2               BU510000
000048                              839+IOBCCW3  DS    0D,5C               CHANNEL COMMAND WORD 3               BU511000
00004D                              840+OACEPRIO DS    C                   PRIO OF OLAY ROUTINE IN THIS AREA    BU512000
00004E                              841+OACEOCON DS    H                   OVERLAY CALL CONSTANT                BU514000

000050                              842+IOBCCW4  DS    D                   CHANNEL COMMAND WORD 4               BU516000
000058                              843+BUFSTART DS    0D                  START OF BUFFER WORK SPACE           BU518000
000058                              844+OACENAME DS    0F                  NAME OF OVERLAY ROUTINE              BU520000
000058                              845+HDBNXTRK DS    F                   HASP DATA BLOCK CHAIN TRACK          BU522000
00005C                              846+OACEASMO DS    0F                  ASSEMBLY ORIGIN OF OVERLAY ROUTINE   BU524000

00005C                              847+HDBDSKEY DS    F                   HASP DATA BLOCK DATA SET KEY         BU526000
000060                              848+OACEPROG DS    0F                  ENTRY POINT OF OVERLAY ROUTINE       BU528000
000060                              849+HDBSTART DS    F                   HASP DATA BLOCK START                BU529000
000064                      00058   850+         ORG   BUFSTART                                                 BU530000
000058                              851+IOBCCW5  DS    D                   CHANNEL COMMAND WORD 5               BU534000

000060                              852+IOBCCW6  DS    D                   CHANNEL COMMAND WORD 6               BU536000
000068                              853+IOBCCW7  DS    D                   CHANNEL COMMAND WORD 7               BU538000
000070                              854+IOBCCW8  DS    D                   CHANNEL COMMAND WORD 8               BU540000
000078                              855+TPBUFST  DS    0F                  START OF REMOTE BUFFER WORK SPACE    BU542000
000078                      00558   856+         ORG   BUFSTART+1280           SPACE OVER OVERLAY AREA          BU544000

000558                              857+OACEPCE  DS    F                   CHAIN OF PCE'S USING OVERLAY AREA    BU546000
000000                              858+HASPCON  CSECT                     END OF BUFFER DSECT                  BU548000
CON      HASP BUFFER STATUS BIT DEFINITIONS                                                                    PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    861+*                             BUFFER TYPE BIT DEFINITIONS               BU554000



                            00080   863+TPBUF    EQU   X'80'               REMOTE BUFFER TYPE                   BU558000
                            00040   864+OLAYBUF  EQU   X'40'               OVERLAY AREA TYPE                    BU560000

                            00000   865+HASPBUF  EQU   X'00'               HASP BUFFER TYPE                     BU562000
CON      HASP CONSOLE MESSAGE BUFFER DSECT                                                                     PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                              868+CMBDSECT DSECT                     CONSOLE MESSAGE BUFFER DSECT         CM098000
000000                              869+CMBCHAIN DS    F                   ADDR OF NEXT CONSOLE MESSAGE BUFFER  CM100000
000004                              870+CMBFLAGS DS    C                   FLAG BYTE                            CM102000
000005                              871+CMBCONS  DS    C                   CONSOLES SPECIFIED                   CM104000
000006                              872+CMBMSGL  DS    C                   MESSAGE LENGTH                       CM106000
000007                              873+CMBPRIO  DS    0C                  MESSAGE PRIORITY                     CM108000
000007                              874+CMBCLASS DS    C                   MESSAGE CLASS OR DISPLAY AREA        CM110000

000008                              875+CMBMSG   DS    0CL132              CONSOLE MESSAGE                      CM112000
000008                              876+CMBDOMID DS    0F                  DOM ID FOR CMB                       CM113000
000008                              877+CMBMARK  DS    C                   ATTENTION INDICATOR                  CM114000

000009                              878+CMBTIME  DS    CL9                 TIME OF DAY                          CM116000
000012                              879+CMBJOBNO DS    CL9                 JOB NUMBER                           CM118000
00001B                              880+CMBTEXT  DS    CL113               MESSAGE TEXT                         CM120000
                            0008C   881+CMBEND   EQU   *                   END OF CMB                   OY05859 CM121000
000000                              882+HASPCON  CSECT                     END OF CMB DSECT                     CM122000



                                    884+*                                  SYMBOLIC DISPLACEMENTS               CM126000


                            00004   886+CMBFLD   EQU   CMBFLAGS-CMBDSECT   FLAG BYTE                            CM130000
                            00006   887+CMBMLD   EQU   CMBMSGL-CMBDSECT    MESSAGE LENGTH                       CM132000
                            00008   888+CMBMSD   EQU   CMBMSG-CMBDSECT     MESSAGE                              CM134000


                                    890+*                                  FLAG BYTE BITS                       CM138000



                            00080   892+WCMBFD   EQU   X'80'               END OF OUT OF LINE WTO (MLWTO)       CM142000

                            00040   893+WCMBFH   EQU   X'40'               OPERATION TYPE                       CM144000
                            00020   894+WCMBFE   EQU   X'20'               MESSAGE FOR HASP LOG ONLY            CM146000
                            00010   895+WCMBFF   EQU   X'10'               CMBCONS CONTAINS UCMID               CM148000
                            00008   896+WCMBFG   EQU   X'08'               CMBCONS CONTAINS REMOTE NUMBER       CM150000
                            00004   897+WCMBFA   EQU   X'04'               RESERVED FOR COMMAND PROCESSOR       CM152000

                            00002   898+WCMBFB   EQU   X'02'               RESERVED FOR COMMAND PROCESSOR       CM154000
                            00001   899+WCMBFC   EQU   X'01'               RESERVED FOR COMMAND PROCESSOR       CM156000


                                    901+*                         NOTE (1) LOGICAL CONSOLES (CMBCONS) ARE       CM160000
                                    902+*                                  SPECIFIED BY NULL WCMBFD, WCMBFF     CM162000
                                    903+*                                  AND WCMBFG SETTINGS.                 CM164000
                                    904+*                                                                       CM166000
                                    905+*                              (2) FOR WCMBFH...READ=1, WRITE=0         CM168000
                                    906+*                                                                       CM170000
CON      HASP DEVICE CONTROL TABLE DSECT                                                                       PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





000000                              909+DCTDSECT DSECT                     DEVICE CONTROL TABLE DSECT           DC308000
000000                              910+DCTSTAT  DS    0C                  DCT STATUS                           DC310000

000000                              911+DCTPCE   DS    F                   ADDRESS OF PROCESSOR CONTROL ELEMENT DC312000
000004                              912+DCTBUFAD DS    F                   CURRENT BUFFER ADDRESS               DC314000
000008                              913+DCTPSTAT DS    0C                  REMOTE JOB ENTRY FLAGS               DC316000
000008                              914+DCTDCB   DS    0F                  ADDRESS OF DATA CONTROL BLOCK        DC318000
000008                              915+DCTSEEK  DS    F                   CURRENT TRACK ADDRESS                DC320000
00000C                              916+MDCTOPCT DS    0C                  COUNT OF OPEN RJE PROCESSORS         DC322000
00000C                              917+MDCTOBUF DS    0F                  RJE OUTPUT BUFFER CHAIN              DC324000
00000C                              918+DCTEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     DC326000
000010                              919+DCTBUFCT DS    C                   ACTIVE BUFFER COUNT                  DC328000

000011                              920+MDCTATTN DS    0C                  RJE LINE ACTION PENDING FLAGS        DC330000

000011                              921+DCTNO    DS    C                   DCT NUMBER                           DC332000
000012                              922+DCTDEVTP DS    C                   DEVICE TYPE                          DC334000
000013                              923+DCTIOTYP DS    0C                  I/O REQUEST TYPE                     DC336000
000013                              924+DCTPCODE DS    C                   LINE/REMOTE CODE                     DC338000
000014                              925+DCTFLAGS DS    0C                  OPERATOR COMMAND FLAGS               DC340000

000014                              926+DCTCHAIN DS    F                   ADDRESS OF NEXT DCT                  DC342000
000018                              927+DCTDEVN  DS    0CL8,CL4            EBCDIC DEVICE NAME                   DC344000
00001C                              928+DCTOTC   DS    H                   OVERLAY DEVICE TRACKS/CYLINDER       DC346000
00001E                              929+DCTOTT   DS    H                   OVERLAY EXTENT BEGINNING TT          DC348000
000020                              930+MDCTCODE DS    0F                  ADDRESS OF RJE CODE TABLE            DC350000
000020                              931+DCTFORMS DS    0F                  PRINT/PUNCH FORMS ID                 DC352000
000020                              932+DCTPRINT DS    C                   DEFAULT PRINT ROUTING                DC354000
000021                              933+DCTPUNCH DS    C                   DEFAULT PUNCH ROUTING                DC356000
000022                              934+DCTPRINC DS    C                   PRIORITY INCREMENT                   DC358000
000023                              935+DCTPRLIM DS    C                   PRIORITY LIMIT                       DC360000

000024                              936+DCTFCB   DS    F                   PRINT FCB ID                         DC360300

000028                              937+DCTUCS   DS    F                   PRINT UCS ID                         DC360600
00002C                              938+DCTPPSW  DS    X                   PRINT/PUNCH SWITCHES                 DC360900
00002D                              939+DCTCLASS DS    CL8                 PRINT/PUNCH CLASS MASK               DC361200
000035                              940+         DS    C                   CLASS MASK TERMINATOR                DC361500

000038                              941+DCTWORK  DS    0F                  START OF DEVICE WORK AREA            DC362000
000038                              942+RIDUCB   DS    0F                  INTERNAL READER UCB ADDRESS          DC364000
000038                              943+MDCTFCS  DS    H                   REMOTE TERMINAL FUNCTION CONTROL SEQ DC366000
00003A                              944+MDCTERCT DS    0C                  REMOTE TERMINAL ERROR COUNT          DC368000
00003A                              945+DCTPRLEN DS    C                   REMOTE TERMINAL DATA WIDTH           DC370000
00003B                              946+DCTPLINE DS    C                   REMOTE TERMINAL LINE CHARACTERISTICS DC372000
00003C                              947+MDCTRCB  DS    0C                  REMOTE TERMINAL RECORD CONTROL BYTE  DC374000
00003C                              948+MDCTDCT  DS    0F                  REMOTE TERMINAL DCT CHAIN FIELD      DC376000
00003C                              949+RIDFLAGS DS    H                   INTERNAL READER SYNCH FLAGS          DC378000
00003E                              950+RIDTJID  DS    H                   RESERVED                             DC380000
000040                              951+RIDECB   DS    0F                  INTERNAL READER ECB ADDRESS          DC382000

000040                              952+MDCTRSEQ DS    C                   REMOTE TERMINAL TRANSMIT SEQUENCE    DC384000
000041                              953+MDCTTSEQ DS    C,H                 REMOTE TERMINAL RECEIVE SEQUENCE     DC386000
000044                              954+MDCTPSWD DS    0CL8                REMOTE TERMINAL PASSWORD             DC388000
000044                              955+RIDTCB   DS    F                   INTERNAL READER TCB ADDRESS          DC390000

000048                              956+RIDDATA  DS    CL80                INTERNAL READER DATA AREA            DC394000
                            00098   957+DCTEND   EQU   *                   SYMBOL FOR END OF DCT                DC395000
000000                              958+HASPCON  CSECT                     END OF DEVICE CONTROL TABLE DSECT    DC396000
CON      HASP DCT STATUS BIT DEFINITIONS                                                                       PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                    961+*                             DCTSTAT                                   DC402000



                            00080   963+DCTINUSE EQU   X'80'               DCT IS IN USE                        DC406000
                            00040   964+DCTDRAIN EQU   X'40'               DCT IS DRAINED                       DC408000
                            00020   965+DCTHOLD  EQU   X'20'               DCT IS HELD                          DC410000

                            00010   966+DCTEJECT EQU   X'10'               DEVICE IS AT CHNL 1 POSITION         DC411000






                                    968+*                             DCTPSTAT                                  DC414000



                            00080   970+DCTLOGAL EQU   X'80'               LOG EVERY CHANNEL END                DC418000
                            00040   971+DCTLEASE EQU   X'40'               LEASED LINE                          DC420000
                            00020   972+DCTETX   EQU   X'20'               AN ETX HAS BEEN RECEIVED             DC422000
                            00010   973+DCTSOFF  EQU   X'10'               A /*SIGNOFF CARD HAS BEEN RECEIVED   DC424000
                            00010   974+DCTEOF   EQU   X'10'               AN EOF HAS BEEN DETECTED             DC425000
                            00008   975+DCTSINON EQU   X'08'               REMOTE DCT IS ATTACHED TO LINE DCT   DC426000
                            00004   976+DCTPOST  EQU   X'04'               I/O COMPLETE FLAG                    DC428000
                            00002   977+DCTABORT EQU   X'02'               TRANSMISSION WAS ABORTED             DC430000
                            00001   978+DCTPBUF  EQU   X'01'               REMOTE OUTPUT BUFFER INDICATION      DC432000







                                    980+*                             DCTDEVTP                                  DC436000




                            00000   982+DCTDA    EQU   X'00'               DIRECT ACCESS DEVICE                 DC440000
                            00001   983+DCTOLAY  EQU   X'01'               OVERLAY DEVICE                       DC442000
                            00002   984+DCTLNE   EQU   X'02'               REMOTE JOB ENTRY LINE                DC444000
                            00010   985+DCTRDR   EQU   X'10'               LOCAL CARD READER                    DC446000
                            00012   986+DCTRJR   EQU   X'12'               REMOTE CARD READER                   DC450000
                            00014   987+DCTINR   EQU   X'14'               INTERNAL READER                      DC452000
                            00020   988+DCTPRT   EQU   X'20'               LOCAL PRINTER                        DC454000
                            00022   989+DCTRPR   EQU   X'22'               REMOTE PRINTER                       DC456000
                            00030   990+DCTPUN   EQU   X'30'               LOCAL PUNCH                          DC458000
                            00032   991+DCTRPU   EQU   X'32'               REMOTE PUNCH                         DC460000
                            00042   992+DCTRCON  EQU   X'42'               REMOTE CONSOLE                       DC464000
CON      HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   32



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    995+*                             DCTIOTYP                                  DC470000



                            00080   997+DCTREAD  EQU   X'80'               READ REQUEST                         DC474000
                            00040   998+DCTWRITE EQU   X'40'               WRITE REQUEST                        DC476000
                            00008   999+DCTREJRM EQU   X'08'               REMOTE RESTRICTION ALWAYS 0          DC482000
                            00004  1000+DCTREJJB EQU   X'04'               RESTRICTED FROM JOB COMMANDS         DC484000
                            00002  1001+DCTREJDV EQU   X'02'               RESTRICTED FROM DEVICE COMMANDS      DC486000
                            00001  1002+DCTREJSY EQU   X'01'               RESTRICTED FROM SYSTEM COMMANDS      DC488000





                                   1004+*                             DCTPCODE                                  DC492000




                            00000  1006+DCTPHALF EQU   X'00'               HALF-DUPLEX LINE                     DC496000
                            00001  1007+DCTPFULL EQU   X'01'               FULL-DUPLEX LINE                     DC498000
                            00002  1008+DCTPWIDE EQU   X'02'               WIDE-BAND LINE                       DC500000

                            00020  1009+DCTPPRES EQU   X'20'               HARDWARE COMPRESS FEATURE            DC501000
                            00010  1010+DCTPCON  EQU   X'10'               REMOTE TERMINAL CONSOLE              DC502000
                            00010  1011+DCTPMRF  EQU   X'10'               MULTIPLE-RECORD FEATURE              DC504000
                            00008  1012+DCTPTAB  EQU   X'08'               HORIZONTAL FORMAT CONTROL            DC506000
                            00004  1013+DCTPROG  EQU   X'04'               PROGRAMMABLE INTERFACE               DC508000
                            00002  1014+DCTPVAR  EQU   X'02'               VARIABLE LENGTH RECORDS              DC510000
                            00001  1015+DCTPBLK  EQU   X'01'               BLOCKED RECORDS                      DC512000





                                   1017+*                             DCTPLINE                                  DC516000



                            00000  1019+DCTP2770 EQU   X'00'               1009, 2770, 3780                     DC520000

                            00001  1020+DCTPHARD EQU   X'01'               1978, 2780                           DC522000
                            00002  1021+DCTP20   EQU   X'02'               360/20 SUB-MODEL 5 OR 6              DC524000
                            00004  1022+DCTP360  EQU   X'04'               360/22, 25, 30, 40, ETC.             DC526000
                            00006  1023+DCTP20S2 EQU   X'06'               360/20 SUB-MODEL 2 OR 4              DC528000

                            00008  1024+DCTP1130 EQU   X'08'               1130                                 DC530000
                            0000A  1025+DCTPSYS3 EQU   X'0A'               SYSTEM/3                             DC532000
                            0000E  1026+DCTPCPU  EQU   X'0E'               CPU TERMINAL                         DC534000
                            00010  1027+DCTPHASP EQU   X'10'               HASP                                 DC536000
                            00020  1028+DCTPASCI EQU   X'20'               USASCII CODE                         DC538000
                            00040  1029+DCTPTRSP EQU   X'40'               TRANSPARENCY                         DC540000

                            00080  1030+DCTPBSC  EQU   X'80'               BINARY SYNCHRONOUS LINE              DC542000
CON      HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                   1033+*                             DCTFLAGS                                  DC548000



                            00080  1035+DCTSTOP  EQU   X'80'               $Z ($STOP) COMMAND                   DC552000

                            00040  1036+DCTDELET EQU   X'40'               $C ($DELETE) COMMAND                 DC554000
                            00020  1037+DCTRSTRT EQU   X'20'               $E ($RESTART) COMMAND                DC556000

                            00010  1038+DCTRPT   EQU   X'10'               $N ($REPEAT) COMMAND                 DC558000
                            00008  1039+DCTBKSP  EQU   X'08'               $B ($BACKSPACE) COMMAND              DC560000
                            00004  1040+DCTHOLDJ EQU   X'04'               $T...,H COMMAND                      DC562000
                            00004  1041+DCTSPACE EQU   X'04'               $T...,C=1 COMMAND                    DC564000





                                   1043+*                                  DCTPPSW                              DC568000




                            00080  1045+DCTPPSWC EQU   X'80'               FCB CARRAGE ALTERED                  DC571000
                            00040  1046+DCTPPSWF EQU   X'40'               FORMS CONTROLLED BY OPERATOR         DC572000
                            00020  1047+DCTPPSWQ EQU   X'20'               QUEUE CLASSES ARE ALTERED            DC573000
                            00010  1048+DCTPPSWS EQU   X'10'               SUPPRESS SEPARATOR PAGES             DC574000
                            00008  1049+DCTPPSWT EQU   X'08'               UCS TRAIN ALTERED                    DC575000

                            00004  1050+DCTPPSWU EQU   X'04'               UCS NOT STANDARD                     DC575500
                            00002  1051+DCTPPSWI EQU   X'02'               DEVICE IDLE MESSAGE ISSUED           DC576000
                            00001  1052+DCTPPSWO EQU   X'01'               OPERATOR ACTION ALLOWED              DC577000






                                   1054+*                             RIDFLAGS                                  DC580000



                            00080  1056+RIDPOST  EQU   X'80'               USER WAITING FOR POST                DC584000
                            00040  1057+RIDBUSY  EQU   X'40'               I/O SIMULATION IN PROCESS            DC585000
CON      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   34



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             1059+JCTDSECT DSECT                     JOB CONTROL TABLE DSECT              JC650000
                            00000  1060+         USING JCTDSECT,JCT        ESTABLISH JCT ADDRESSABILITY         JC652000
000000                             1061+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      JC654000
000058                             1062+JCTJQE   DS    F                   OFFSET OF HASP JOB QUEUE ELEMENT     JC656000

00005C                             1063+JCTIOTTR DS    F                   TRACK ADDRESS OF FIRST IOT           JC658000
000060                             1064+JCTDSKEY DS    F                   PERIPHERAL DATA SET KEY              JC660000
000064                             1065+JCTINJCT DS    F                   TRACK ADDRESS OF INPUT JCT           JC662000
000068                             1066+         DS    X                   RESERVED                             JC664000

000069                             1067+JCTSMFLG DS    BL1                 SMF FLAGS                            JC666000
00006A                             1068+JCTPURGE DS    X                   START OF SMF PURGE RECORD            JC668000
00006B                             1069+JCTJBOPT DS    BL1                 HASP JOB OPTIONS                     JC670000
00006C                             1070+JCTJOBEB DS    CL4                 HASP ASSIGNED JOB NUMBER (EBCDIC)    JC672000
000070                             1071+JCTJNAME DS    CL8                 JOB NAME FROM JOB CARD               JC674000
000078                             1072+JCTPNAME DS    CL20                PROGRAMMER'S NAME FROM JOB CARD      JC676000

00008C                             1073+JCTMCLAS DS    C                   MSGCLASS FROM JOB CARD               JC678000
00008D                             1074+JCTJCLAS DS    C                   JOB CLASS FROM JOB CARD              JC680000
00008E                             1075+         DS    X                   RESERVED                             JC682000
00008F                             1076+JCTPRIO  DS    X                   HASP EXECUTION SELECTION PRIORITY    JC684000
000090                             1077+         DS    X                   RESERVED                             JC686000

000091                             1078+JCTOPRIO DS    X                   HASP OUTPUT SELECTION PRIORITY       JC688000
000092                             1079+JCTROUTE DS    XL2                 INPUT ROUTE CODE                     JC690000
000094                             1080+JCTINDEV DS    CL8                 HASP INPUT DEVICE NAME               JC692000
00009C                             1081+JCTACCTN DS    CL4                 JOB ACCOUNTING NUMBER FROM JOB CARD  JC694000
0000A0                             1082+JCTROOMN DS    CL4                 PROGRAMMER'S ROOM NUMBER             JC696000

0000A4                             1083+JCTETIME DS    F                   ESTIMATED EXECUTION TIME             JC698000
0000A8                             1084+JCTESTLN DS    F                   ESTIMATED OUTPUT LINES               JC700000
0000AC                             1085+JCTESTPU DS    F                   ESTIMATED PUNCHED OUTPUT             JC702000
0000B0                             1086+JCTFORMS DS    CL4                 JOB OUTPUT FORMS                     JC704000
0000B4                             1087+         DS    X                   RESERVED                             JC706000

0000B5                             1088+JCTCPYCT DS    X                   JOB PRINT COPY COUNT                 JC708000
0000B6                             1089+         DS    X                   RESERVED                             JC710000
0000B7                             1090+JCTLINCT DS    X                   LINES PER PAGE                       JC712000
0000B8                             1091+JCTPROUT DS    XL2                 JOB PRINT ROUTE CODE                 JC714000
0000BA                             1092+JCTPUOUT DS    XL2                 JOB PUNCH ROUTE CODE                 JC716000

0000BC                             1093+JCTXEQON DS    F                   TIME ON EXECUTION PROCESSOR          JC718000
0000C0                             1094+JCTXDTON DS    F                   DATE ON EXECUTION PROCESSOR          JC720000
0000C4                             1095+JCTXEQOF DS    F                   TIME OFF EXECUTION PROCESSOR         JC722000
0000C8                             1096+JCTXDTOF DS    F                   DATE OFF EXECUTION PROCESSOR         JC724000
0000CC                             1097+JCTOUTON DS    F                   TIME ON OUTPUT PROCESSOR             JC726000
0000D0                             1098+JCTODTON DS    F                   DATE ON OUTPUT PROCESSOR             JC728000

0000D4                             1099+JCTOUTOF DS    F                   TIME OFF OUTPUT PROCESSOR            JC730000
0000D8                             1100+JCTODTOF DS    F                   DATE OFF OUTPUT PROCESSOR            JC732000
0000DC                             1101+JCTCARDS DS    F                   TOTAL NUMBER OF INPUT CARDS          JC734000
0000E0                             1102+JCTLINES DS    F                   GENERATED OUTPUT LINES               JC736000

0000E4                             1103+JCTPUNCH DS    F                   GENERATED PUNCHED OUTPUT             JC738000
0000E8                             1104+         DS    F                   RESERVED                             JC740000
0000EC                             1105+JCTPRTCT DS    F                   CURRENT NUMBER OF LINES PRINTED      JC742000
0000F0                             1106+JCTPAGCT DS    F                   CURRENT NUMBER OF PAGES PRINTED      JC744000
0000F4                             1107+JCTPUNCT DS    F                   CURRENT NUMBER OF CARDS PUNCHED      JC746000

0000F8                             1108+JCTESOUT DS    F                   ESTIMATED OUTPUT (LINES+CARDS)       JC748000
0000FC                             1109+JCTXOUT  DS    F                   GENERATED OUTPUT RECORDS             JC750000
000100                             1110+         DS    F                   RESERVED                             JC752000
000104                             1111+JCTCYSAV DS    XL100               INPUT ALLOCATION BIT MAP             JC754000
000168                             1112+JCTWORK  DS    XL144               144-BYTE WORK AREA                   JC756000
0001F8                             1113+         DS    0F                                                       JC758000
CON      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   35



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0001F8                             1114+JCTJMR   DS    XL56                JMR AREA                             JC760000
000230                      001F8  1115+         ORG   JCTJMR                                                   JC762000

0001F8                             1116+JCTJMRJN DS    CL8                 JMR JOB NAME                         JC764000
000200                             1117+JCTRDRON DS    F                   TIME ON INPUT PROCESSOR              JC766000
000204                             1118+JCTRDTON DS    F                   DATE ON INPUT PROCESSOR              JC768000
000208                             1119+JCTCPUID DS    XL4                 JMR CPU IDENTIFICATION               JC770000
00020C                             1120+JCTUSEID DS    CL8                 JMR USER IDENTIFICATION              JC772000

000214                             1121+JCTSTEP  DS    X                   CURRENT STEP NUMBER                  JC774000
000215                             1122+JCTINDC  DS    BL1                 JMR SMF OPTIONS                      JC776000
000216                             1123+         DS    XL2                 RESERVED                             JC778000
000218                             1124+JCTUCOM  DS    F                   JMR USER COMMUNICATION AREA          JC780000
00021C                             1125+JCTUJVP  DS    F                   JMR ADDRESS OF USER EXIT ROUTINE     JC782000
000220                             1126+JCTRDROF DS    F                   TIME OFF INPUT PROCESSOR             JC784000
000224                             1127+JCTRDTOF DS    F                   DATE OFF INPUT PROCESSOR             JC786000

000228                             1128+JCTJOBIN DS    F                   JMR JOB SYSIN COUNT                  JC788000
00022C                             1129+JCTRDR   DS    XL2                 READER DEVICE TYPE AND CLASS         JC790000
00022E                             1130+JCTJMOPT DS    BL1                 JMR SMF OPTIONS                      JC792000

00022F                             1131+         DS    X                   RESERVED                             JC794000
000230                      00230  1132+         ORG                                                            JC796000
                            00230  1133+JCTEND   EQU   *                   END OF JOB CONTROL TABLE             JC798000






                                   1135+*                             JCTSMFLG                                  JC802000



                            00080  1137+JCTSMFL0 EQU   B'10000000'         RESERVED                             JC806000
                            00040  1138+JCTSMFL1 EQU   B'01000000'         RESERVED                             JC808000
                            00020  1139+JCTSMFL2 EQU   B'00100000'         RESERVED                             JC810000
                            00010  1140+JCTSMFL3 EQU   B'00010000'         RESERVED                             JC812000
                            00008  1141+JCTSMFL4 EQU   B'00001000'         RESERVED                             JC814000
                            00004  1142+JCTSMFL5 EQU   B'00000100'         RESERVED                             JC816000

                            00002  1143+JCTSMFL6 EQU   B'00000010'         RESERVED                             JC818000
                            00001  1144+JCTSMFL7 EQU   B'00000001'         RESERVED                             JC820000






                                   1146+*                             JCTJBOPT                                  JC824000



                            00080  1148+JCTPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              JC828000

                            00040  1149+JCTSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              JC830000
                            00020  1150+JCTTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           JC832000
                            00010  1151+JCTNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    JC834000
                            00008  1152+JCTXBACH EQU   B'00001000'         EXECUTION BATCHING JOB               JC836000
                            00004  1153+JCTJBOP5 EQU   B'00000100'         RESERVED                             JC838000
                            00002  1154+JCTJBOP6 EQU   B'00000010'         RESERVED                             JC840000
                            00001  1155+JCTJBOP7 EQU   B'00000001'         RESERVED                             JC842000
CON      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78








                                   1158+*                             JCTJMOPT                                  JC848000



                            00020  1160+JCTJMRUX EQU   B'00100000'         IF ON, TAKE USER EXITS FOR SMF       JC852000






                                   1162+*                                                                       JC856000
                                   1163+*        IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT      JC858000
                                   1164+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  JC860000
                                   1165+*        THE JCT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    JC862000
                                   1166+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    JC864000
                                   1167+*                                                                       JC866000
                            005D0  1168+$JCTTEST EQU   1960-JCTEND+JCTJQE                                       JC868000
000230 05D0                        1169+         DC    Y($JCTTEST)         TEST INSTRUCTION                     JC870000
000000                             1170+HASPCON  CSECT                     END OF JOB CONTROL TABLE DSECT       JC872000

CON      HASP TIMER QUEUE ELEMENT FIELD DEFINITIONS                                                            PAGE   37



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78












                                   1173+*                             HASP TIMER QUEUE ELEMENT DISPLACEMENTS    TQ048000





                            00000  1175+ICHAIN   EQU   0                   ADDRESS OF NEXT TIMER QUEUE ELEMENT  TQ052000
                            00004  1176+ITIME    EQU   4                   SPECIFIED INTERVAL (IN TIMER UNITS)  TQ054000
                            00008  1177+IPOST    EQU   8                   FLAG BYTE AND ADDRESS OF EWF         TQ056000
CON      HASP JOB QUEUE ENTRY FIELD DEFINITIONS                                                                PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1179+*                             HASP JOB QUEUE ENTRY DISPLACEMENTS        JQ056000



                            00000  1181+QUEPRIO  EQU   0                   JOB PRIORITY                         JQ060000
                            00001  1182+QUETYPE  EQU   1                   LOGICAL QUEUE TYPE                   JQ062000
                            00002  1183+QUEJOBNO EQU   2                   HASP JOB NUMBER                      JQ064000
                            00004  1184+QUEFLAGS EQU   4                   JOB QUEUE FLAGS                      JQ066000

                            00004  1185+QUECHAIN EQU   4                   ADDRESS OF NEXT JOB QUEUE ELEMENT    JQ068000
                            00008  1186+QUETRAK  EQU   8                   TRACK ADDRESS OF JOB CONTROL TABLE   JQ070000
                            0000C  1187+QUEPRTRT EQU   12                  PRINT ROUTE                          JQ072000
                            0000D  1188+QUEPUNRT EQU   13                  PUNCH ROUTE                          JQ074000
                            0000E  1189+QUEJOECT EQU   14                  JOB OUTPUT ELEMENT COUNT             JQ076000








                                   1191+*                             HASP JOB QUEUE ENTRY BIT DEFINITIONS      JQ084000




                                   1193+*                             QUETYPE                                   JQ088000



                            00080  1195+QENTBY   EQU   X'80'               QUEUE ENTRY BUSY BIT                 JQ092000
                            00040  1196+$XEQ     EQU   X'40'               OS EXECUTION QUEUE                   JQ094000

                            00020  1197+$INPUT   EQU   X'20'               INPUT QUEUE                          JQ096000
                            00010  1198+$SETUP   EQU   X'10'               SETUP QUEUE                          JQ098000
                            00008  1199+$BRKDOWN EQU   X'08'               BREAKDOWN QUEUE                      JQ100000
                            00004  1200+$OUTPUT  EQU   X'04'               OUTPUT QUEUE                         JQ102000
                            00002  1201+$HARDCPY EQU   X'02'               OUTPUT IN-PROGRESS QUEUE             JQ104000
                            00001  1202+$PLOT    EQU   X'01'               PLOT QUEUE                           JQ106000
                            00000  1203+$PURGE   EQU   X'00'               PURGE QUEUE                          JQ108000




                                   1205+*                             QUEFLAGS                                  JQ112000


                            00080  1207+QUEHOLDA EQU   X'80'               HOLD ALL JOBS                        JQ116000

                            00040  1208+QUEHOLD1 EQU   X'40'               HOLD SINGLE JOB                      JQ118000

                            00020  1209+QUEHOLD2 EQU   X'20'               HOLD FOR DUPLICATE JOB NAME          JQ120000
                            00010  1210+QUEPURGE EQU   X'10'               JOB IS TO BE PURGED                  JQ122000

                            00008  1211+QUEOPCAN EQU   X'08'               OPERATOR ISSUED $C OR $P JOB         JQ124000
                            00004  1212+QUEOPRTE EQU   X'04'               OPERATOR HAS ISSUED $R ALL           JQ125000
                            00002  1213+QUEJCTSW EQU   X'02'               JCT INTERLOCK FOR UPDATE             JQ125100
CON      HASP JOB INFORMATION TABLE ELEMENT FIELD DEFINITIONS                                                  PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1215+*                   HASP JOB INFORMATION TABLE ELEMENT DISPLACEMENTS    JI040000





                            00000  1217+JITJNAME EQU   0                   JOB NAME                             JI044000
                                   1218+*                                                                       JI046000
                                   1219+*                                                                       JI048000
                                   1220+*        THE FOLLOWING ENTRIES ARE NOT IMPLEMENTED BUT REPRESENT        JI050000

                                   1221+*        SUGGESTIONS AS TO POSSIBLE INSTALLATION MODIFICATIONS...       JI052000
                                   1222+*                                                                       JI054000

                                   1223+*                                                                       JI056000

                                   1224+*                                                                       JI058000
                                   1225+*JITLINE EQU   8                   ESTIMATED THEN ACTUAL PRINT LINES    JI060000
                                   1226+*JITCARD EQU   12                  ESTIMATED THEN ACTUAL PUNCHED CARDS  JI062000
                                   1227+*JITETIM EQU   16                  ESTIMATED EXECUTION TIME             JI064000
                                   1228+*JITSAFE EQU   20                  JOB SECURITY CONTROL PASSWORD        JI066000
                                   1229+*JITSTAT EQU   28                  ADDITIONAL JOB STATUS BITS           JI068000
                                   1230+*JITETC  EQU   29                  ANYTHING ELSE                        JI070000
CON      HASP EXECUTION PROCESSOR PCE WORK AREA DSECT                                                          PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000058                             1233+PCEDSECT DSECT                     HASP EXECUTION PROCESSOR             XW296000

000058                      00058  1234+         ORG   PCEWORK              PCE WORK AREA DSECT                 XW298000
000058                             1235+XPCESTAT DS    B                   PCE STATUS BYTE                      XW299000
                            00080  1236+XDUPBIT  EQU   X'80'               JOB WITH DUP NAME WAITING            XW299100

                            00040  1237+XEOJMES  EQU   X'40'               END-EXECUTION MESSAGE SENT           XW299200
                            00020  1238+XPOSTBIT EQU   X'20'               XTHAW SHOULD THAW XPCEJST            XW299300
                            00010  1239+XREXREQ  EQU   X'10'               REQUEUE FOR XEQ AT END XEQ           XW299400
                            00008  1240+XSYNCREQ EQU   X'08'               SYNCHRONOUS ACTION REQUIRED          XW299500
                            00004  1241+XOCRMES  EQU   X'04'               OCR-OVERFLOW MESSAGE SENT            XW299600
                            00002  1242+XPCERSV6 EQU   X'02'               RESERVED                             XW299700
                            00001  1243+XPCERSV7 EQU   X'01'               RESERVED                             XW299800
000059                             1244+XSYNCFLG DS    B                   SYNCHRONOUS ACTION FLAGS             XW299900
                            00080  1245+XEOJBIT  EQU   X'80'               TERMINATE JOB EXECUTION              XW300000
                            00040  1246+XALLOCWT EQU   X'40'               WRITE 'AWAITING ALLOCATION'          XW300100
                            00020  1247+XGETIOT  EQU   X'20'               GET ANOTHER IOT FOR RDR/INTRP        XW300200
                            00010  1248+XIOTWREQ EQU   X'10'               IOT CHECKPOINT REQUIRED              XW300300

                            00008  1249+XOUTCDBF EQU   X'08'               GET A /*OUTPUT CARD BUFFER           XW300400
                            00004  1250+XOCRMSG  EQU   X'04'               WRITE OCR OVERFLOW MESSAGE           XW300500
                            00002  1251+XSYNRSV6 EQU   X'02'               RESERVED                             XW300600
                            00001  1252+XSYNRSV7 EQU   X'01'               RESERVED                             XW300700

00005A                             1253+XPCESTEP DS    H                   CURRENT STEP NUMBER                  XW300800
00005C                             1254+XPCEOUTC DS    F                   POINTER TO /*OUTPUT CARD BUFFER      XW300900
000060                             1255+XPCEJST  DS    F                   ADDRESS OF USER TASK CONTROL BLOCK   XW302000
000064                             1256+XPCEJOB  DS    F                   ADDRESS OF JOB QUEUE ENTRY           XW304000
000068                             1257+XPCEIOT  DS    F                   ADDRESS OF FIRST IOT                 XW306000
00006C                             1258+XPCEJOBN DS    CL8                 JOB NAME                             XW308000

000074                             1259+XPCEDCT  DS    F                   ADDRESS OF DIRECT-ACCESS DCT         XW312000
000078                             1260+XPCEDDB  DS    F                   START OF DATA DEFINITION TABLE CHAIN XW314000
                            00000  1261+XOUTTOTL EQU   0                   TOTAL OUTPUT RECORDS                 XW318000
                            00004  1262+XOUTEST  EQU   4                   ESTIMATED OUTPUT RECORDS             XW320000
                            00008  1263+XOUTXCES EQU   8                   ESTIMATED EXCESSION AMOUNT           XW322000
                            0000C  1264+XOUTTYPE EQU   12                  OUTPUT RECORD TYPE (EBCDIC)          XW324000
                            00010  1265+XOUTENT  EQU   16                  OUTPUT INFORMATION TABLE LENGTH      XW326000
00007C                             1266+XPCEPRT  DS    CL(XOUTENT)         PRINT INFORMATION TABLE              XW328000

00008C                             1267+XPCEPUN  DS    CL(XOUTENT)         PUNCH INFORMATION TABLE              XW330000
00009C                             1268+XPCEPIT  DS    F                   ADDR OF PARTITION INFORMATION TABLE  XW332000

0000A0                             1269+XSTQE    DS    3F                  EXECUTION TIMER QUEUE ELEMENT        XW334000
0000AC                             1270+XXSTIME  DS    F                   TIME ESTIMATE EXCESSION AMOUNT       XW336000
                            00058  1271+XEQPCEWS EQU   *-PCEWORK           LENGTH OF EXECUTION PCE WORK AREA    XW340000
000000                             1272+HASPCON  CSECT                     END OF EXECUTION PCE WORK AREA DSECT XW342000
CON      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00010  1274+$CVTPTR  EQU   16                  ADDRESS OF CVT POINTER               CT008000
000000                             1275+CVTDSECT DSECT                     COMMUNICATION VECTOR TABLE DSECT     CT012000



                                   1277+*                                                                       00510000
                                   1278+*              OS/360                                                   00560000
                                   1279+*        COMMUNICATION VECTOR TABLE                                     00800000
                                   1280+*                                                                       00810000

                                   1281+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5                    01050021
                                   1282+*                                                                       01200000
                            00010  1283+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT         01400000

                                   1284+*                                                                       01600000
                                   1285+*              BEGINNING OF CVT PROPER                                  01601000
                                   1286+*                                                                       01610000
000000                             1287+         DS    0F                                                       01611000
                            00000  1288+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE                 01840000
                                   1289+*                                                                       02000000
000000 00000000                    1290+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST  02200000

000004 00000000                    1291+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE                02610000
                                   1292+*                              ASYNCHRONOUS EXITS                       02620000
000008 00000000                    1293+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB                   02800000
00000C 00000000                    1294+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB                     03000000
000010 00000000                    1295+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT                03200000

                                   1296+*                              CONSOLE INTERRUPTION ROUTINE             03400000
000014 00000000                    1297+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE         03600000
000018 00000000                    1298+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING 03800000
                                   1299+*                              ROUTINE FOR SUPERVISOR                   04000000

00001C 00000000                    1300+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04200000
                                   1301+*                              RELATIVE TRACK ADDR TO ABSOLUTE          04400000
000020 00000000                    1302+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04600000
                                   1303+*                              ABSOLUTE TRACK ADDR TO RELATIVE          04800000
000024 00000000                    1304+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION   05000000
                                   1305+*                              IN UCB LOOKUP TABLE                      05200000

000028 00000000                    1306+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION     05400000
                                   1307+*                              IN UCB LOOKUP TABLE                      05600000
00002C 00000000                    1308+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE           05800000
                                   1309+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES 06000000
000030 00000000                    1310+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY      06200000

                                   1311+*                              IN UCB LOOKUP TABLE                      06400000
000034 00000000                    1312+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE         06600000
000038 00000000                    1313+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL             06800000
00003C 00000000                    1314+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)       07210000
                                   1315+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS    07220000

                                   1316+*                              MASTER SCHEDULER RESIDENT DATA AREA      07221000
000040 00000000                    1317+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE    07400000
000044 00000000                    1318+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE          07600000
000048 00000000                    1319+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS       08000000
                                   1320+*                              FOR DAMAGE ASSESSMENT ROUTINES           08200000

00004C 00000000                    1321+CVT0FN00 DC    A(0) -        RESERVED (MVT)                             08610000
000050 0A03                        1322+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER                         08800000
000052 07FE                        1323+CVTBRET  BR    14 -          RETURN TO CALLER                           09000000
000054 00000000                    1324+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB                    09200000
000058 00000000                    1325+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER     09411000

                                   1326+*                              ROUTINE (SHPC FIRST)                     09412000
00005C 00000000                    1327+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL              09430000
CON      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000060 00000000                    1328+CVTSJQ   DC    A(0) -        RESERVED (MVT)                             09810000
000064 00000000                    1329+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR  10000000

000068 00000000                    1330+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE              10410000
                                   1331+*                              FOR INTERVAL TIMER                       10411000
00006C 00000000                    1332+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE              10420000
                                   1333+*                              FOR INTERVAL TIMER                       10421000

000070 00000000                    1334+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE         10600000
000074 10                          1335+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM                           11600000
                            00040  1336+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11600100
                            00020  1337+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11600200
                            00010  1338+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11600300

                            00004  1339+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11600400
000075 000000                      1340+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11601000
000078 00000000                    1341+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE            11820000
00007C 00000000                    1342+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER    12400000
000080 00000000                    1343+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS               12600000
000084 00000000                    1344+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE              12800000

000088 00000000                    1345+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER             13000000
00008C 00000000                    1346+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE         13200000
000090 00000000                    1347+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE            13400000
000094 00000000                    1348+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT          13810000

                                   1349+*                              DATA AREA (MVT/MFT)                      13820000
000098 00000000                    1350+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE    14000000
00009C 00000000                    1351+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE                14200000
0000A0 00000000                    1352+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE           14400000
0000A4 00000000                    1353+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS                    14600000

0000A8 00000000                    1354+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)      14601000
0000AC 00000000                    1355+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD         16638521
                                   1356+*                              (0 IF GFX INACTIVE) MVT                  16640821
0000B0 00000000                    1357+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA       16647721
                                   1358+*                              (MVT/MFT)                                16650000
0000B4 0000                        1359+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    16660000
0000B6 00                          1360+CVTOPTA  DC    AL1(00)    -     MISCELLANEOUS FLAGS                     16670021

                            00080  1361+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)               16680000
                            00040  1362+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --                    16681000
                                   1363+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16681100

                            00020  1364+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --          16683000
                                   1365+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16683200
                            00010  1366+CVTNIP   EQU   X'10' -       NIP RUNNING                                16690000
                            00008  1367+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)                     16691000
                            00004  1368+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16692000

                            00002  1369+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16693000
                            00001  1370+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16695000
0000B7 00                          1371+CVTOPTB  DC    AL1(00)     - MISCELLANEOUS FLAGS                        16700021
                            00080  1372+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)            16702000
                            00020  1373+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)        16704000
                                   1374+*                                                                       16800000
                                   1375+*              PCP OVERLAY                                              17000000
                                   1376+*                                                                       17200000

0000B8                             1377+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART            17400000
0000BB                             1378+CVTSTUSA DS    B -           STATUS BYTE A                              17600000

                            00008  1379+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART     17800000
                                   1380+*                              WAS INITIATED INTRASTEP                  18000000
                            00004  1381+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART           18200000
                                   1382+*                              WAS INITIATED INTERSTEP                  18400000
CON      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   43



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00002  1383+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM          18600000
                                   1384+*                              AND DATA HAS NOT BEEN READ               18800000
0000BC                             1385+         DS    CL2 -         RESERVED                                   19000000
0000BE                             1386+         DS    CL2 -         RESERVED                                   19200000
                                   1387+*                                                                       19400000
                                   1388+*              MVT/MFT OVERLAY                                          19600000
                                   1389+*                                                                       19800000
0000C0                      000B8  1390+         ORG   CVTCRTTR                                                 20000000

                                   1391+*                                                                       20200000

0000B8 00000000                    1392+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR           20400000
0000BC 00000000                    1393+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21000000
                                   1394+*                                                                       21670000
                                   1395+*              END OF OVERLAYS                                          21800000
                                   1396+*                                                                       22000000

0000C0 00000000                    1397+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)                       22421000
0000C4 00000000                    1398+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA            22600000
0000C8 00000000                    1399+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT     22610000
                                   1400+*                              (MVT/MPS)                                22610100
0000CC 00000000                    1401+CVTUSER  DC    A(0) -        A WORD TO THE USER                         22620000
0000D0                      000CC  1402+         ORG   CVTUSER -     REMAP CVTUSER AS CVTHJES              RFIT 22620100
0000CC                             1403+CVTHJES  DS    0A -          SAME AS CVTHJESA BELOW                RFIT 22620300
0000CC 00                          1404+         DC    XL1'00' -     RESERVED - FIRST BYTE OF CVTHJES      RFIT 22620500
0000CD 000000                      1405+CVTHJESA DC    AL3(0) -      ADDRESS OF HASP COMMUNICATION TABLE   RFIT 22620700
0000D0                      000D0  1406+         ORG   , -           RESTORE LOCATION COUNTER              RFIT 22620900

                                   1407+*                                                                       23000000

                                   1408+*              MFT/MVT CVT EXTENSION                                    24000000
                                   1409+*                                                                       24200000
0000D0 00000000                    1410+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT       24400021
0000D4 0A0D                        1411+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)                 24600000

0000D6 0A06                        1412+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)   25000000
0000D8 00000000                    1413+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25421000
0000DC 00000000                    1414+CVTPATCH DC    V(IEAPATCH) - ADDR OF FE PATCH AREA                      25540000
0000E0 00000000                    1415+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA  25800000
                                   1416+*                              (MVT/MFT)                                25810000
0000E4                             1417+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)             26000000
0000E4 00                          1418+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)                   26050000
                            00080  1419+CVTTSRDY EQU   X'80' -       TIME SHARING READY                         26100000
0000E5 000000                      1420+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)             26150000
0000E8 00000000                    1421+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     27393221
0000EC                             1422+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)   27394021

0000EC 00                          1423+CVTGTFST DC    B'0' -        STATUS FLAGS                               27396021
                            000C0  1424+CVTGTFS  EQU   X'C0' -       STATE                                      27398021
                                   1425+*/       00    CVTGTFIN      INACTIVE                                   27398421
                                   1426+*/       01    CVTGTFSR      STARTING                                   27398821

                                   1427+*/       10    CVTGTFSP      STOPPING                                   27399221
                                   1428+*/       11    CVTGTFAC      ACTIVE                                     27399621
                            00020  1429+CVTSTATE EQU   X'20' -       IN CONTROL                                 27399721
                            00010  1430+CVTMODE  EQU   X'10' -       EXT MODE                                   27399821
                            00008  1431+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA                27399921
                            00004  1432+CVTUSR   EQU   X'04' -       USR TRACE                                  27449921
                            00002  1433+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID                       27459921
0000ED 000000                      1434+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE                27469921
0000F0                             1435+CVTTCMFG DS    0B -          TCAM FLAGS                                 27499921
                            00080  1436+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)                         27600000
0000F0 00000000                    1437+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF             27610000
CON      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   44



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1438+*                            TCAM ADDRESS VECTOR TABLE                  27620021
                                   1439+*                                                                       29401221

                                   1440+*              MVT CVT EXTENSION                                        29401321
                                   1441+*                                                                       29401421
0000F4                             1442+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE 29401521
                                   1443+*                            (PWF)                               S21167 29401621
0000F4 80                          1444+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY   29404021
                                   1445+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167 29404221
                            00080  1446+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167 29404421
0000F5 000000                      1447+CVTVOLT2 DC    AL3(0)     -  PWF RECHECK TIME DELAY.  THIS VALUE IS     29404621
                                   1448+*                            OVERLAID BY CVTVOLM2 AFTER PWF             29404821
                                   1449+*                            INITIALIZATION                      S21167 29405021
0000F8 00000000                    1450+         DC    A(0) -        RESERVED                                   29405221
                                   1451+*                                                                       29407021

                                   1452+*              MVT/MFT CVT EXTENSION                                    29408021

                                   1453+*                                                                       29408821
0000FC 00000114                    1454+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1              29410821

                                   1455+*                            (ICB421)                APAR'S 47331,47332 29413221
000100                             1456+         DS    F -           RESERVED                                   29414221
000104                             1457+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE         29415221
000104                             1458+         DS    X -           RESERVED                                   29416421
000105 000000                      1459+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE         29417421
000108                             1460+         DS    F -           RESERVED                                   29418421
00010C                             1461+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307 29419421
00010C                             1462+         DS    X -           RESERVED                            ICB307 29420421
00010D 000000                      1463+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND              29421421
                                   1464+*                            COMMUNICATION AREA                  ICB307 29422421
000110                             1465+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308 29423421
000110                             1466+         DS    X -           RESERVED                            ICB308 29424421

000111 000000                      1467+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY      29425421
                                   1468+*                            ROUTINE                             ICB308 29426421

                                   1469+*                                                                       29427421

                                   1470+*              COMMON EXTENSION 1                                       29435721
                                   1471+*              ADDRESS OF EXTENSION IS IN CVTEXT1                       29445721
                                   1472+*                                                                       29455721
                                   1473+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,               29456121
                                   1474+*              YOU SHOULD CODE -                                        29462521
                                   1475+*                                                                       29464521
                                   1476+*              L     REG,CVTEXT1                                        29466521
                                   1477+*              USING CVTXTNT1,REG                                       29468521
                                   1478+*                                                                       29468621
                                   1479+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.               29468721
                                   1480+*                                                                       29468821
                            00114  1481+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1                29475221

                                   1482+*                            (ICB421)                APAR'S 47331,47332 29475721
000114 00000000                    1483+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS        29477221
                                   1484+*                            (ISAM) (ICB421)         APAR'S 47331,47332 29479221

                                   1485+*                                                                       29494421
                                   1486+*              END OF CVT PROPER                                        29513521
                                   1487+*                                                                       29532621
                                   1488+*                                                                       29870000
                                   1489+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT           29880000
                                   1490+*                                                                       29890000
000000                             1491+HASPCON  CSECT                     END OF CVT DSECT                     CT020000
CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1493+*,***  IHB069  DEVD NOT SPECIFIED-ALL ASSUMED


                                   1495+*                       DCB SYMBOLIC DEFINITION FOR                     07700000

                                   1496+*                       PHYSICAL SEQUENTIAL                             07900000

                                   1498+*********************************************************************** 09960021
                                   1499+*  OS     RELEASE 21.8, 03/22/74                                      * 10000021

                                   1500+*  OS/VS1 RELEASE 03.1, 03/22/74                                      * 10010021
                                   1501+*********************************************************************** 10020021

000000                             1503+IHADCB   DSECT , -            DCBPTR                                    10150000

                            00080  1505+DCBBIT0  EQU   128                                                      10210021

                            00040  1506+DCBBIT1  EQU   64                                                       10220021
                            00020  1507+DCBBIT2  EQU   32                                                       10230021
                            00010  1508+DCBBIT3  EQU   16                                                       10240021
                            00008  1509+DCBBIT4  EQU   8                                                        10242021
                            00004  1510+DCBBIT5  EQU   4                                                        10244021
                            00002  1511+DCBBIT6  EQU   2                                                        10246021
                            00001  1512+DCBBIT7  EQU   1                                                        10248021


                                   1514+*                       DEVICE INTERFACES                               10350000


                                   1516+*                       DIRECT ACCESS DEVICES                           10500000

000000                             1518+DCBRELAD DS    CL4 -          PARTITIONED ORGANIZATION DATA SET -       10600000
                                   1519+*                             ADDRESS (IN THE FORM TTRN) OF MEMBER      10650000
                                   1520+*                             CURRENTLY USED.  ---                      10700000
                                   1521+*                             SYS1.LOGREC DATA SET - IF CCH OPTION HAS  10750000
                                   1522+*                             BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS 10800000
                                   1523+*                             OF A 12-BYTE PARAMETER IN THE EXPANSION   10850000

                                   1524+*                             OF MACRO INSTRUCTION IGFCATAP             10900000
000004                             1525+DCBKEYCN DS    FL1 -          KEYED BLOCK OVERHEAD CONSTANT             10950000
000005                             1526+DCBFDAD  DS    CL8 -          FULL DISK ADDRESS IN THE FORM OF MBBCCHHR 11000000
                                   1527+*                             OF RECORD THAT WAS JUST READ OR WRITTEN   11050000


00000D                      0000C  1529+         ORG   DCBFDAD+7                                                11150000
00000C                             1530+DCBDVTBL DS    0A -           SAME AS DCBDVTBA BELOW                    11200000
00000C                             1531+         DS    X -            LAST BYTE OF DCBFDAD                      11250000

00000D                             1532+DCBDVTBA DS    AL3 -          ADDRESS OF ENTRY IN I/O DEVICE            11300000
                                   1533+*                             CHARACTERISTICS TABLE FOR DEVICE BEING    11350000
                                   1534+*                             USED                                      11400000
000010                             1535+         DS    FL1 -          DCBKEYLE - KEY LENGTH OF DATA SET         11450000
000011                             1536+         DS    C -            DCBDEVT - DEVICE TYPE                     11500000
                                   1537+*   FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION      11550000
                            00021  1538+DCBDV311 EQU   X'21' -        2311 DISK DRIVE                           11600000

                            00022  1539+DCBDV301 EQU   X'22' -        2301 PARALLEL DRUM                        11650000
                            00023  1540+DCBDV303 EQU   X'23' -        2303 SERIAL DRUM                          11700000
                            00024  1541+DCBDV302 EQU   X'24' -        2302 DISK STORAGE                         11750000
                            00025  1542+DCBDV321 EQU   X'25' -        2321 DATA CELL DRIVE                      11800000
                            00028  1543+DCBDV314 EQU   X'28' -        2314 DISK STORAGE FACILITY                11850000

000012                             1544+DCBTRBAL DS    H -            TRACK BALANCE.  NUMBER OF BYTES REMAINING 11900000
                                   1545+*                             ON CURRENT TRACK AFTER A WRITE OPERATION  11950000
                                   1546+*                             (THIS QUANTITY MAY BE NEGATIVE IF THERE   12000000
CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   46



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1547+*                             ARE NO BYTES REMAINING ON TRACK).         12050000

                                   1549+*                       MAGNETIC TAPE                                   12200000

000014                      00000  1551+         ORG   IHADCB                                                   12300000

000000                             1552+         DS    CL12 -         RESERVED FOR I/O SUPERVISOR               12350000
00000C                             1553+DCBBLKCT DS    F -            BLOCK COUNT FOR EACH VOLUME               12400000
000010                             1554+DCBTRTCH DS    C -            TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 12450000
                            00023  1555+DCBMTE   EQU   X'23' -        E  - EVEN PARITY                          12500000
                            0003B  1556+DCBMTT   EQU   X'3B' -        T  - BCD/EBCDIC TRANSLATION               12550000

                            00013  1557+DCBMTC   EQU   X'13' -        C  - DATA CONVERSION                      12600000
                            0002B  1558+DCBMTET  EQU   X'2B' -        ET - EVEN PARITY AND TRANSLATION          12650000
000011                             1559+         DS    C -            DCBDEVT - DEVICE TYPE                     12700000
                            00081  1560+DCBDVMT  EQU   X'81' -        2400 SERIES MAGNETIC TAPE UNIT (7-TRACK   12750000
                                   1561+*                             OR 9-TRACK)                               12800000
                            00083  1562+DCBDVMT3 EQU   X'83' -        3400 SERIES MAGNETIC TAPE UNIT     ICB277 12850000
000012                             1563+DCBDEN   DS    C -            TAPE DENSITY - 2400 SERIES MAGNETIC TAPE  12900000
                                   1564+*                             UNITS                                     12950000
                                   1565+*                             CODE    7-TRACK     9-TRACK               13000000
                            00003  1566+DCBMTDN0 EQU   X'03' -         0       200 BPI       -                  13050000
                            00043  1567+DCBMTDN1 EQU   X'43' -         1       556 BPI       -                  13100000
                            00083  1568+DCBMTDN2 EQU   X'83' -         2       800 BPI     800 BPI              13150000

                            000C3  1569+DCBMTDN3 EQU   X'C3' -         3         -        1600 BPI              13200000
                            000D3  1570+DCBMTDN4 EQU   X'D3' -         4         -        6250 BPI        99223 13210003
000013                             1571+         DS    X -            RESERVED                                  13250000


                                   1573+*                       PAPER TAPE                                      13400000

000014                      00008  1575+         ORG   IHADCB+8                                                 13500000
000008                             1576+DCBLCTBL DS    A -            ADDRESS OF TRANSLATE TABLE                13550000

00000C                             1577+         DS    XL4 -          RESERVED                                  13600000
000010                             1578+DCBCODE  DS    C -            PAPER TAPE CODE BEING USED.  THE          13650000
                                   1579+*                             APPROPRIATE TRANSLATE TABLE IS MADE       13700000
                                   1580+*                             AVAILABLE                                 13750000
                            00080  1581+DCBPTCDN EQU   X'80' -        N - NO CONVERSION                         13800000

                            00040  1582+DCBPTCDI EQU   X'40' -        I - IBM BCD                               13850000
                            00020  1583+DCBPTCDF EQU   X'20' -        F - FRIDEN                                13900000
                            00010  1584+DCBPTCDB EQU   X'10' -        B - BURROUGHS                             13950000
                            00008  1585+DCBPTCDC EQU   X'08' -        C - NATIONAL CASH REGISTER                14000000
                            00004  1586+DCBPTCDA EQU   X'04' -        A - ASCII (8-TRACK)                       14050000

                            00002  1587+DCBPTCDT EQU   X'02' -        T - TELETYPE                              14100000
000011                             1588+         DS    C -            DCBDEVT - DEVICE TYPE                     14150000
                            00050  1589+DCBDVPTP EQU   X'50' -        2671 PAPER TAPE READER                    14200000
000012                             1590+         DS    X -            RESERVED                                  14250000
000013                             1591+DCBPTFLG DS    BL1 -          PAPER TAPE FLAGS                          14300000
                            00010  1592+DCBPTIC  EQU   DCBBIT3 -      INVALID CHARACTER IN LAST RECORD READ     14350003

                            00008  1593+DCBPTECT EQU   DCBBIT4 -      END OF RECORD CHARACTER REACHED IN        14400003
                                   1594+*                             TRANSLATION                               14450000
                            00004  1595+DCBPTECR EQU   DCBBIT5 -      END OF RECORD CHARACTER DETECTED DURING   14500003
                                   1596+*                             READ                                      14550000

                            00002  1597+DCBPTUCT EQU   DCBBIT6 -      IF ONE, UPPER CASE TRANSLATE.             14600003
                                   1598+*                             IF ZERO, LOWER CASE TRANSLATE             14650000
                            00001  1599+DCBPTERR EQU   DCBBIT7 -      ERROR DETECTED ON READ                    14700003

                                   1601+*                       PRINTER                                         14850000

CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000014                      00010  1603+         ORG   IHADCB+16                                                14950000
000010                             1604+DCBPRTSP DS    C -            NUMBER INDICATING NORMAL PRINTER SPACING  15000000
                            00001  1605+DCBPRSP0 EQU   X'01' -        0 - NO SPACING                            15050000
                            00009  1606+DCBPRSP1 EQU   X'09' -        1 - SPACE ONE LINE                        15100000
                            00011  1607+DCBPRSP2 EQU   X'11' -        2 - SPACE TWO LINES                       15150000

                            00019  1608+DCBPRSP3 EQU   X'19' -        3 - SPACE THREE LINES                     15200003
000011                             1609+         DS    C -            DCBDEVT - DEVICE TYPE                     15250000
                            00048  1610+DCBDVPR1 EQU   X'48' -        1403 PRINTER AND 1404 PRINTER (CONTINUOUS 15300000

                                   1611+*                             FORM SUPPORT ONLY)                        15350000
                            0004A  1612+DCBDVPR2 EQU   X'4A' -        1443 PRINTER                              15400000
                            00049  1613+DCBDVPR3 EQU   X'49' -        3211 PRINTER                              15450000
000012                             1614+DCBPRTOV DS    C -            TEST-FOR-PRINTER-OVERFLOW MASK            15500000
                                   1615+*                             (PRTOV MASK)                              15550000

                            00020  1616+DCBPRC9  EQU   X'20' -        9  - TEST FOR CHANNEL 9 OVERFLOW          15600000
                            00010  1617+DCBPRC12 EQU   X'10' -        12 - TEST FOR CHANNEL 12 OVERFLOW         15650000
000013                             1618+         DS    X -            RESERVED                                  15700000

                                   1620+*                       CARD READER, CARD PUNCH                         15850000

000014                      00010  1622+         ORG   IHADCB+16                                                15950000
000010                             1623+DCBMODE  DS    0B -           MODE OF OPERATION FOR 1442 CARD READ      16000000

                                   1624+*                             PUNCH (BITS 0-3)                          16050000
000010                             1625+DCBSTACK DS    B -            STACKER SELECTION (BITS 4-7)              16100000

                            00080  1626+DCBMODEC EQU   DCBBIT0 -      COLUMN BINARY MODE                        16150003
                            00040  1627+DCBMODEE EQU   DCBBIT1 -      EBCDIC MODE                               16200003
                            00020  1628+DCBMODEO EQU   DCBBIT2 -      OPTICAL MARK READ MODE                    16250003
                            00010  1629+DCBMODER EQU   DCBBIT3 -      READ COLUMN ELIMINATE MODE                16300003
                            00002  1630+DCBSTCK2 EQU   DCBBIT6 -      STACKER 2                                 16350003

                            00001  1631+DCBSTCK1 EQU   DCBBIT7 -      STACKER 1                                 16400003
000011                             1632+         DS    C -            DCBDEVT - DEVICE TYPE                     16450000
                            00041  1633+DCBDVCR0 EQU   X'41' -        2540 CARD READER                          16500000
                            00042  1634+DCBDVCP0 EQU   X'42' -        2540 CARD PUNCH                           16550000
                            00043  1635+DCBDVCRP EQU   X'43' -        1442 CARD READ PUNCH                      16600000
                            00044  1636+DCBDVCR1 EQU   X'44' -        2501 CARD READER                          16650000
                            00045  1637+DCBDVCPR EQU   X'45' -        2520 CARD READ PUNCH                      16700000
                            00046  1638+DCBDVCR2 EQU   X'46'          3505 CARD READER                   XM0629 16710002
                            0004C  1639+DCBDVCP1 EQU   X'4C'          3525 CARD PUNCH                    XM0629 16720002

000012                             1640+         DS    X -            RESERVED                                  16750000

000013                             1641+DCBFUNC  DS    B -            FUNCTION INDICATOR FOR THE 3525           16800000
                            00080  1642+DCBFNCBI EQU   DCBBIT0 -      INTERPRET (PUNCH AND PRINT TWO LINES)     16850003
                            00040  1643+DCBFNCBR EQU   DCBBIT1 -      READ                                      16900003
                            00020  1644+DCBFNCBP EQU   DCBBIT2 -      PUNCH                                     16950003
                            00010  1645+DCBFNCBW EQU   DCBBIT3 -      PRINT                                     17000003

                            00008  1646+DCBFNCBD EQU   DCBBIT4 -      DATA PROTECTION                           17050003
                            00004  1647+DCBFNCBX EQU   DCBBIT5 -      THIS DATA SET IS TO BE PRINTED            17100003
                            00002  1648+DCBFNCBT EQU   DCBBIT6 -      TWO-LINE PRINT SUPPORT REQUEST            17150003

                                   1650+*                       OPTICAL READER AND MAGNETIC CHAR READER         18100000

000014                      00000  1652+         ORG   IHADCB                                                   18200000
000000                             1653+DCBWTOID DS    0A -           SAME AS DCBWTOIA BELOW                    18250000
000000                             1654+         DS    X -            RESERVED                                  18300000
000001                             1655+DCBWTOIA DS    AL3 -          A BINARY IDENTIFICATION NUMBER ASSIGNED   18350000

                                   1656+*                             BY COMMUNICATIONS TASK TO MESSAGE ISSUED  18400000

                                   1657+*                             BY WTO MACRO.  THIS NUMBER IS USED BY THE 18450000
CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1658+*                             DOM MACRO WHEN MESSAGE IS NO LONGER       18500000

                                   1659+*                             REQUIRED (MCS SUPPORT).  ---              18550000
                                   1660+*                             FOR MAGNETIC CHAR READER - AFTER FIRST    18600000
                                   1661+*                             READ HAS BEEN ISSUED, CONTAINS ADDRESS OF 18650000
                                   1662+*                             MAGNETIC INTERRUPT CONTROL BLOCK (MICB)   18700000
                                   1663+*                             BEING USED BY THE APPENDAGES.             18750000

                                   1665+*                       OPTICAL READER DEVICES                          18900000
                                   1666+*                       1285, 1287, 1288, 3886                          18950003

000004                      00004  1668+         ORG   DCBWTOID+4                                               19050000
000004                             1669+DCBERRCN DS    0A -           SAME AS DCBERRCA BELOW                    19100000

000004                             1670+DCBERRCA DS    AL3 -          ADDRESS OF 32 BYTES OF DECLARED STORAGE   19200000
                                   1671+*                             SPECIFIED BY THE USER IN HIS PROGRAM.     19250000
                                   1672+*                             THIS STORAGE WILL BE USED BY THE          19300000
                                   1673+*                             PROGRAMMING SUPPORT AS EIGHT 4-BYTE       19350000

                                   1674+*                             COUNTERS IN WHICH TOTALS OF CERTAIN 1285, 19400000
                                   1675+*                             1287 AND 1288 ERROR CONDITIONS ARE        19450000
                                   1676+*                             ACCUMULATED.                              19500000
000007                      00004  1677+         ORG   DCBWTOID+4                                               19510003
000004                             1678+DCBLNNUM DS    X              3886  DOCUMENT LINE NUMBER                19520003
000005                             1679+DCBLFMAT DS    X              3886  LINE FORMAT NUMBER                  19530003
000006                             1680+DCBORFLG DS    X              3886  FLAGS                               19540003
                            00080  1681+DCBEOPFG EQU   DCBBIT0        END OF PAGE                               19540403
000007                             1682+         DS    X              RESERVED                                  19542003
000008                             1683+DCBDSPLY DS    0A -           SAME AS DCBDSPLA BELOW                    19550000
000008                             1684+DCBFRID  DS    0CL4           3886  FORMAT RECORD ID                    19560003
000008                             1685+         DS    X -            RESERVED                                  19600000

000009                             1686+DCBDSPLA DS    AL3 -          ADDRESS OF DSPLY (BSAM) ROUTINE USED FOR  19650000
                                   1687+*                             KEYBOARD ENTRY OF A COMPLETE FIELD        19700000
00000C                             1688+DCBRESCN DS    0A -           SAME AS DCBRESCA BELOW                    19750000

00000C                             1689+DCBRDLNE DS    0A -           SAME AS DCBRDLNA BELOW                    19800000
00000C                             1690+DCBFRTBA DS    0A             3886  FORMAT RECORD TABLE                 19810003
00000C                             1691+         DS    X -            RESERVED                                  19850000
00000D                             1692+DCBRESCA DS    0AL3 -         ADDRESS OF RESCN (BSAM) ROUTINE USED TO   19900000
                                   1693+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    19950000
                                   1694+*                             CHARACTERS                                20000000
00000D                             1695+DCBRDLNA DS    AL3 -          ADDRESS OF RDLNE (QSAM) ROUTINE USED TO   20050000
                                   1696+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    20100000
                                   1697+*                             CHARACTERS                                20150000
000010                             1698+DCBORBYT DS    BL1 -          OPTICAL READER BYTE USED BY BSAM/QSAM     20200000
                            00080  1699+DCBORSYN EQU   DCBBIT0 -      SYNAD IN CONTROL                          20250003
                            00040  1700+DCBOREOF EQU   DCBBIT1 -      END OF FILE (EOF)                         20300003

                            00020  1701+DCBORBFP EQU   DCBBIT2 -      BUFFERS PRIMED (QSAM)                     20350003

000011                             1702+         DS    C -            DCBDEVT - DEVICE TYPE                     20400000
                            0005A  1703+DCBDVOR5 EQU   X'5A' -        1285 OPTICAL READER                       20450000

                            0005B  1704+DCBDVOR7 EQU   X'5B' -        1287 OPTICAL READER                       20500000
                            0005C  1705+DCBDVOR8 EQU   X'5C' -        1288 OPTICAL READER                       20550000
                            00057  1706+DCBDVOR9 EQU   X'57'          3886 OPTICAL READER                       20560003
000012                             1707+DCBEIB   DS    BL1 -          ERROR INDICATOR BYTE                      20600000
                            00040  1708+DCBORNRM EQU   DCBBIT1 -      THE 1287 OR 1288 SCANNER WAS UNABLE TO    20650003
                                   1709+*                             LOCATE THE REFERENCE MARK                 20700000
                            00020  1710+DCBORREJ EQU   DCBBIT2 -      FOR 1287, A STACKER SELECT COMMAND WAS    20750003
                                   1711+*                             GIVEN AFTER ALLOTTED TIME HAD ELAPSED AND 20800000
                                   1712+*                             THE DOCUMENT HAS BEEN PUT IN REJECT       20850000
CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1713+*                             POCKET.  FOR 1288 UNFORMATTED ONLY,       20900000

                                   1714+*                             END-OF-PAGE HAS OCCURRED.                 20950000
                            00010  1715+DCBORERR EQU   DCBBIT3 -      A NONRECOVERABLE ERROR HAS OCCURRED.      21000003

                            00008  1716+DCBORECK EQU   DCBBIT4 -      AN EQUIPMENT CHECK RESULTED IN AN         21050003

                                   1717+*                             INCOMPLETE READ                           21100000
                            00004  1718+DCBORWLR EQU   DCBBIT5 -      A WRONG-LENGTH RECORD CONDITION HAS       21150003
                                   1719+*                             OCCURRED                                  21200000
                            00002  1720+DCBORHPR EQU   DCBBIT6 -      FOR QSAM - OPERATOR ENTERED ONE OR MORE   21250003
                                   1721+*                             CHARACTERS FROM THE KEYBOARD.             21300000
                                   1722+*                             FOR BSAM - A HOPPER EMPTY CONDITION HAS   21350000
                                   1723+*                             OCCURRED                                  21400000
                            00001  1724+DCBORDCK EQU   DCBBIT7 -      A DATA CHECK HAS OCCURRED                 21450003
000013                             1725+         DS    X -            RESERVED                                  21500000

                                   1727+*                       MAGNETIC CHARACTER READER DEVICES               21650000
                                   1728+*                       1419 MAGNETIC CHARACTER READER                  21700000

                                   1729+*                       1275 OPTICAL READER SORTER                      21750000
                                   1730+*                       3890 MAGNETIC CHARACTER READER                  21760003


000014                      00000  1732+         ORG   IHADCB                                                   21850000
000000                             1733+DCBSSID  DS    CL8 -          BEFORE DCB IS OPENED - NAME OF USER'S     21900000
                                   1734+*                             STACKER SELECT ROUTINE.                   21950000

000008                      00000  1736+         ORG   DCBSSID                                                  22050000
000000                             1737+         DS    A -            AFTER DCB IS OPENED - DCBWTOID            22100000
000004                             1738+DCBSSAD  DS    0A -           ADDRESS OF USER'S STACKER SELECT ROUTINE  22150000
000004                             1739+DCBIMG   DS    0A             3890  ADDR OF USER'S IMAGE PROC RTN       22160003
000004                             1740+         DS    X -            RESERVED                                  22200000
000005                             1741+DCBSSADA DS    AL3 -          ADDRESS OF USER'S STACKER SELECT ROUTINE  22250000
000008                             1742+DCBIMAGE DS    0A -           SAME AS DCBIMAGA BELOW                    22300000
000008                             1743+DCBMRFG  DS    BL1 -          BUFFER INDICATOR                          22350000

                            000C0  1744+DCBMRBCT EQU   DCBBIT0+DCBBIT1 -                                        22400003
                                   1745+*                             TWO-BIT BINARY COUNTER WHICH INDICATES    22410003
                                   1746+*                             INTO WHICH BUFFER STATUS INFORMATION IS   22450000
                                   1747+*                             TO BE POSTED                              22500000

000009                             1748+DCBIMAGA DS    AL3 -          ADDRESS OF PARAMETER LIST USED TO         22550000
                                   1749+*                             COMMUNICATE BETWEEN USER'S PROCESSING     22600000
                                   1750+*                             ROUTINES AND HIS STACKER SELECT ROUTINES  22650000
00000C                             1751+DCBECBLT DS    0A -           SAME AS DCBECBLA BELOW                    22700000
00000C                             1752+DCBHDR   DS    0A             3890  ADDR OF USER'S HEADER DATA AREA     22702003
00000C                             1753+DCBMRIND DS    BL1 -          INDICATOR AND COUNTER BYTE                22750000

                            000E0  1754+DCBMRDCT EQU   DCBBIT0+DCBBIT1+DCBBIT2                                  22800003
                                   1755+*                             THREE-BIT BINARY COUNTER OF NUMBER OF     22810003
                                   1756+*                             DOCUMENTS READ AFTER DISENGAGE            22850000
                            00010  1757+DCBMRSCU EQU   DCBBIT3 -      DCB WAS ALTERED WHEN SYNAD ROUTINE WAS    22900003
                                   1758+*                             ENTERED DUE TO SECONDARY CONTROL UNIT     22950000
                                   1759+*                             (SCU) ERROR                               23000000
                            00008  1760+DCBMRPLO EQU   DCBBIT4 -      POCKET LIGHT HAS BEEN TURNED ON           23050003
                            00004  1761+DCBMRPLS EQU   DCBBIT5 -      POCKET LIGHT 0-6 IS BEING SET ON          23100003

                            00002  1762+DCBMRERP EQU   DCBBIT6 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23150003
                                   1763+*                             PRIMARY CONTROL UNIT (PCU)                23200000

                            00001  1764+DCBMRERS EQU   DCBBIT7 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23250003
                                   1765+*                             SECONDARY CONTROL UNIT (SCU)              23300000
00000D                             1766+DCBECBLA DS    AL3 -          ADDRESS OF ECB LIST PASSED TO WAIT MACRO  23350000
                                   1767+*                             BY CHECK MACRO WHEN NO 1419/1275 IS       23400000
CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1768+*                             AVAILABLE FOR PROCESSING                  23450000
000010                             1769+DCBMRFLG DS    BL1 -          FLAG BYTE                                 23500000

                            00080  1770+DCBMRSCC EQU   DCBBIT0 -      FIRST OR SECOND SECONDARY CONTROL UNIT    23550003
                                   1771+*                             COMMAND CHAIN IS BEING USED               23600000
                            00040  1772+DCBMRDBG EQU   DCBBIT1 -      DEBUGGING MODE IN USE                     23650003
                            00020  1773+DCBMRDRU EQU   DCBBIT2 -      DISENGAGE REQUESTED BY USER               23700003
                            00010  1774+DCBMRDR  EQU   DCBBIT3 -      DISENGAGE REQUESTED                       23750003

                            0000C  1775+DCBMRPCC EQU   DCBBIT4+DCBBIT5 -                                        23800003
                                   1776+*                             TWO-BIT BINARY COUNTER INDICATING FIRST,  23802003
                                   1777+*                             SECOND OR THIRD PRIMARY CONTROL UNIT      23850000

                                   1778+*                             COMMAND CHAIN IS BEING USED               23900000
                            00002  1779+DCBMRDWT EQU   DCBBIT6 -      WTO MESSAGE MUST BE DELETED               23950003
                            00001  1780+DCBMRUE  EQU   DCBBIT7 -      UNIT EXCEPTION                            24000003
000011                             1781+         DS    C -            DCBDEVT - DEVICE TYPE                     24050000
                            0005D  1782+DCBDVMR  EQU   X'5D' -        1419 MAGNETIC CHARACTER READER            24100000
                            0005F  1783+DCBDVORS EQU   X'5F' -        1275 OPTICAL READER SORTER                24150000
                            00056  1784+DCBDVMRS EQU   X'56'          3890 MAGNETIC CHARACTER READER SORTER     24160003

000012                             1785+DCBAPPIN DS    C -            AN INDICATOR USED BY THE APPENDAGES TO    24200000
                                   1786+*                             PASS INFORMATION ABOUT ONE CHANNEL CHAIN  24250000
                                   1787+*                             TO AN APPENDAGE ASSOCIATED WITH ANOTHER   24300000
                                   1788+*                             CHANNEL CHAIN                             24350000
000013                             1789+         DS    X -            RESERVED                                  24400000


                                   1791+*                       ACCESS METHOD COMMON INTERFACE                  24600000


000014                      00010  1793+         ORG   IHADCB+16                                                24700000
000010                             1794+DCBRELB  DS    0F -           SAME AS DCBREL BELOW                      24750000
000010                             1795+DCBKEYLE DS    FL1 -          KEY LENGTH OF DATA SET                    24800000
000011                             1796+DCBDEVT  DS    0C -           DEVICE TYPE                               24850000
                            0004F  1797+DCBDVTRM EQU   X'4F' -        TERMINAL.  (DD CONTAINS TERM=TS)          24900000
000011                             1798+DCBREL   DS    FL3 -          NUMBER OF RELATIVE TRACKS OR BLOCKS IN    24950000
                                   1799+*                             THIS DATA SET (BDAM)                      25000000

000014                             1800+DCBBUFCB DS    0A -           ADDRESS OF BUFFER POOL CONTROL BLOCK      25050000
000014                             1801+DCBBUFNO DS    FL1 -          NUMBER OF BUFFERS REQUIRED FOR THIS DATA  25100000
                                   1802+*                             SET.  MAY RANGE FROM 0 TO 255.  IF        25150000
                                   1803+*                             UNBLOCKED SPANNED RECORDS ARE USED,       25200000
                                   1804+*                             NUMBER OF SEGMENT WORK AREAS REQUIRED     25250000

                                   1805+*                             FOR THIS DATA SET.                        25300000
000015                             1806+DCBBUFCA DS    AL3 -          ADDRESS OF BUFFER POOL CONTROL BLOCK      25350000
000018                             1807+DCBBUFL  DS    H -            LENGTH OF BUFFER.  MAY RANGE FROM 0 TO    25400000
                                   1808+*                             32,767.                                   25450000

00001A                             1809+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED          25500000
00001A                             1810+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG                    25550000
                            00080  1811+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION      25600003
                            00040  1812+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION     25650003
                            00020  1813+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION                  25700003
                            00010  1814+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP              25750003

                            00008  1815+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE     25800003
                            00004  1816+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE   25850003
                            00002  1817+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION             25900003
                            00001  1818+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS         25950003
                                   1819+*                                  LOCATION DEPENDENT INFORMATION       26000000

00001B                             1820+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG                   26050000
                            00080  1821+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION                26100003
                            00040  1822+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP                      26150003
CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                            00020  1823+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE                   26200003
                            00008  1824+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1 26250003
                            00004  1825+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024 26260003
00001C                             1826+DCBIOBAD DS    0A -           ADDRESS OF IOB WHEN CHAINED SCHEDULING IS 26300000
                                   1827+*                             USED OR FOR 1419/1275                     26350000

00001C                             1828+DCBODEB  DS    0A -           ADDRESS OF OLD DEB                        26400000
00001C                             1829+DCBLNP   DS    0FL1 -         3525 PRINTER LINE POSITION COUNTER        26450000
00001C                             1830+DCBQSLM  DS    BL1 -          QSAM LOCATE MODE LOGICAL RECORD INTERFACE 26500000
                                   1831+*                             INDICATOR BYTE FOR UPDAT PROCESSING OF    26550000
                                   1832+*                             SPANNED RECORDS                           26600000

                            00080  1833+DCB1DVDS EQU   DCBBIT0 -      ONLY ONE DEVICE IS ALLOCATED TO THIS      26650003
                                   1834+*                             DATA SET                                  26700000
                            00040  1835+DCBUPDCM EQU   DCBBIT1 -      UPDATE COMPLETE, FREE OLD DEB             26750003
                            00030  1836+DCBUPDBT EQU   DCBBIT2+DCBBIT3 -                                        26800003
                                   1837+*                             UPDATE BITS                               26810003
                            00020  1838+DCBUPDT  EQU   DCBBIT2 -      UPDATE TO TAKE PLACE                      26850003

                            00030  1839+DCBNUPD  EQU   DCBBIT2+DCBBIT3 -                                        26900003
                                   1840+*                             NO UPDATE TO TAKE PLACE                   26910003
                            00010  1841+DCBSVDEB EQU   DCBBIT3 -      OLD DEB ADDRESS MUST BE SAVED             26950003
00001D                             1842+DCBIOBAA DS    0AL3 -         SAME AS DCBIOBAD ABOVE                    27000000

00001D                             1843+DCBODEBA DS    AL3 -          ADDRESS OF OLD DEB                        27050000
000020                      0001C  1844+         ORG   IHADCB+28                                     ICBI DCB-4 27100000
00001C                             1845+DCBSVCXL DS    0A -           SAME AS DCBSVCXA BELOW         ICBI DCB-4 27150000
00001C                             1846+         DS    X -            RESERVED                       ICBI DCB-4 27200000
00001D                             1847+DCBSVCXA DS    AL3 -          POINTER TO EXIT LIST OF JES    ICBI DCB-4 27250000

                                   1848+*                             C.I. INTERFACE CONTROL SVC     ICBI DCB-4 27300000

                                   1850+*                       FOUNDATION EXTENSION                            27400000

000020                             1852+DCBEODAD DS    0A -           SAME AS DCBEODA BELOW                     27500000
000020                             1853+DCBHIARC DS    0BL1 -         HIERARCHY BITS                            27550000
000020                             1854+DCBBFTEK DS    0BL1 -         BUFFERING TECHNIQUE BITS                  27600000

000020                             1855+DCBBFALN DS    BL1 -          BUFFER ALIGNMENT BITS                     27650000
                            00080  1856+DCBH1    EQU   DCBBIT0 -      HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO  27700003
                            00070  1857+DCBBFT   EQU   DCBBIT1+DCBBIT2+DCBBIT3                                  27750003

                                   1858+*                             BUFFERING TECHNIQUE                       27760003
                            00060  1859+DCBBFTA  EQU   DCBBIT1+DCBBIT2 -                                        27800003
                                   1860+*                             QSAM LOCATE MODE PROCESSING OF SPANNED    27810003
                                   1861+*                             RECORDS - OPEN IS TO CONSTRUCT A RECORD   27850000
                                   1862+*                             AREA IF IT AUTOMATICALLY CONSTRUCTS       27900000

                                   1863+*                             BUFFERS                                   27950000
                            00020  1864+DCBBFTR  EQU   DCBBIT2 -      FOR BSAM CREATE BDAM PROCESSING OF        28000003
                                   1865+*                             UNBLOCKED SPANNED RECORDS - SOFTWARE      28050000
                                   1866+*                             TRACK OVERFLOW.  FOR BSAM INPUT           28100000
                                   1867+*                             PROCESSING OF UNBLOCKED SPANNED RECORDS   28150000
                                   1868+*                             WITH KEYS - RECORD OFFSET PROCESSING.     28200000
                            00040  1869+DCBBFTS  EQU   DCBBIT1 -      SIMPLE BUFFERING - BIT 3 IS ZERO          28250003
                            00020  1870+DCBBFTKR EQU   DCBBIT2 -      UNBLOCKED SPANNED RECORDS - SOFTWARE      28300003

                                   1871+*                             TRACK OVERFLOW (BDAM)                     28350000
                            00010  1872+DCBBFTE  EQU   DCBBIT3 -      EXCHANGE BUFFERING - BIT 1 IS ZERO        28400003

                            00008  1873+DCBBFTKD EQU   DCBBIT4 -      DYNAMIC BUFFERING (BTAM)                  28450003
                            00004  1874+DCBH0    EQU   DCBBIT5 -      HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO  28500003
                            00003  1875+DCBBFA   EQU   DCBBIT6+DCBBIT7 -                                        28550003
                                   1876+*                             BUFFER ALIGNMENT                          28560003
                            00002  1877+DCBBFAD  EQU   DCBBIT6 -      DOUBLEWORD BOUNDARY                       28600003

CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00001  1878+DCBBFAF1 EQU   DCBBIT7 -      FULLWORD NOT A DOUBLEWORD BOUNDARY,       28650003
                                   1879+*                             CODED IN DCB MACRO INSTRUCTION            28700000
                            00003  1880+DCBBFAF2 EQU   DCBBIT6+DCBBIT7 -                                        28750003
                                   1881+*                             FULLWORD NOT A DOUBLEWORD BOUNDARY,       28760003
                                   1882+*                             CODED IN DCB MACRO INSTRUCTION            28800000
000021                             1883+DCBEODA  DS    AL3 -          ADDRESS OF A USER-PROVIDED ROUTINE TO     28850000
                                   1884+*                             HANDLE END-OF-DATA CONDITIONS             28900000

000024                             1885+DCBEXLST DS    0A -           ADDRESS OF USER-PROVIDED LIST OF EXITS    28950000

000024                             1886+DCBRECFM DS    BL1 -          RECORD FORMAT                             29000000
                            000E0  1887+DCBRECLA EQU   DCBBIT0+DCBBIT1+DCBBIT2  -                               29050003
                                   1888+*                             RECORD LENGTH INDICATOR - ASCII           29060003
                            00020  1889+DCBRECD  EQU   DCBBIT2 -      ASCII VARIABLE RECORD LENGTH              29100003
                            000C0  1890+DCBRECL  EQU   DCBBIT0+DCBBIT1 -                                        29150003

                                   1891+*                             RECORD LENGTH INDICATOR                   29160003
                            00080  1892+DCBRECF  EQU   DCBBIT0 -      FIXED RECORD LENGTH                       29200003
                            00040  1893+DCBRECV  EQU   DCBBIT1 -      VARIABLE RECORD LENGTH                    29250003
                            000C0  1894+DCBRECU  EQU   DCBBIT0+DCBBIT1 -                                        29300003
                                   1895+*                             UNDEFINED RECORD LENGTH                   29310003
                            00020  1896+DCBRECTO EQU   DCBBIT2 -      TRACK OVERFLOW                            29350003
                            00010  1897+DCBRECBR EQU   DCBBIT3 -      BLOCKED RECORDS                           29400003
                            00008  1898+DCBRECSB EQU   DCBBIT4 -      FOR FIXED LENGTH RECORD FORMAT - STANDARD 29450003
                                   1899+*                             BLOCKS.  FOR VARIABLE LENGTH RECORD       29500000
                                   1900+*                             FORMAT - SPANNED RECORDS                  29550000

                            00006  1901+DCBRECCC EQU   DCBBIT5+DCBBIT6 -                                        29600003

                                   1902+*                             CONTROL CHARACTER INDICATOR               29610003
                            00004  1903+DCBRECCA EQU   DCBBIT5 -      ASA CONTROL CHARACTER                     29650003
                            00002  1904+DCBRECCM EQU   DCBBIT6 -      MACHINE CONTROL CHARACTER                 29700003
                            00000  1905+DCBRECC  EQU   X'00' -        NO CONTROL CHARACTER                      29750000

                            00001  1906+DCBRECKL EQU   DCBBIT7 -      KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB  29800003
                                   1907+*                             MACRO INSTRUCTION                         29850000
000025                             1908+DCBEXLSA DS    AL3 -          ADDRESS OF USER-PROVIDED LIST OF EXITS    29900000


                                   1911+*                       FOUNDATION BEFORE OPEN                          47150000

000028                      00028  1913+         ORG   IHADCB+40                                                47250000
000028                             1914+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES    47300000
                                   1915+*                             THE DATA SET ASSOCIATED WITH THIS DCB     47350000
000030                             1916+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE                47400000

                            00080  1917+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR   47450003
                                   1918+*                             POINT.  IF ONE, LAST I/O OPERATION WAS    47500000
                                   1919+*                             WRITE.                                    47550000
                            00080  1920+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR     47600003

                                   1921+*                             OUTPUT (BDAM)                             47650000
                            00040  1922+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD   47700003
                                   1923+*                             MODE                                      47750000
                            00020  1924+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE       47800003
                                   1925+*                             ROUTINE FOR CONCATENATION OF DATA SETS    47850000
                                   1926+*                             WITH UNLIKE ATTRIBUTES                    47900000
                            00010  1927+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED   47950003
                            00008  1928+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 48000003
                                   1929+*                             CONCATENATION OF UNLIKE ATTRIBUTES        48050000
                            00004  1930+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ                   48100003
                            00002  1931+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN  48150003
                                   1932+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1 48200000

CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1933+*                             ON RETURN FROM USER EXIT TO THE I/O       48250000

                                   1934+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.     48300000
                            00001  1935+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF    48350003
                                   1936+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION   48400000
000031                             1937+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR  48450000
                                   1938+*                             CONDITIONS AND IN DETERMINING CORRECTIVE  48500000
                                   1939+*                             PROCEDURES                                48550000
                            000C0  1940+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -                                        48600003
                                   1941+*                             ERROR CORRECTION INDICATOR                48610003
                            00000  1942+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE                    48650000
                            00040  1943+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN       48700003
                                   1944+*                             PROCESS                                   48750000
                            000C0  1945+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -                                        48800003

                                   1946+*                             PERMANENT ERROR CORRECTION                48810003

                            00030  1947+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -                                        48850003
                                   1948+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     48860003

                            00020  1949+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH     48900003
                                   1950+*                             SENSED                                    48950000
                            00010  1951+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH    49000003
                                   1952+*                             SENSED                                    49050000
                            0000C  1953+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -                                        49100003
                                   1954+*                             IOS ERROR ROUTINE USE INDICATOR           49110003
                            00000  1955+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE   49150000
                            00004  1956+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49200003
                            00004  1957+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE  49250003
                                   1958+*                             (BTAM)                                    49300000
                            00008  1959+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49350003
                            0000C  1960+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -                                        49400003

                                   1961+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE    49410003
000032                             1962+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE               49450000

000032                             1963+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR                     49500000

                            00080  1964+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---        49550003
                                   1965+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,     49600000
                                   1966+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)    49650000
                            00040  1967+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)    49700003
                            00040  1968+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)                   49750003
                            00040  1969+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---          49800003
                                   1970+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 49850000
                                   1971+*                             RESERVED (BTAM)                           49900000
                            00020  1972+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)            49950003
                            00020  1973+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)      50000003
                            00020  1974+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---           50050003
                                   1975+*                             ALWAYS ZERO (QSAM, QISAM)                 50100000

                            00010  1976+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)                   50150003
                            00010  1977+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)            50200003
                            00010  1978+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---          50250003

                                   1979+*                             ALWAYS ZERO (BISAM) ---                   50300000
                                   1980+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)         50350000
                            00008  1981+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)          50400003
                            00008  1982+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---          50450003
                                   1983+*                             ALWAYS ZERO (BISAM) ---                   50500000
                                   1984+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   50550000
                            00004  1985+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK   50600003
                                   1986+*                             COUNT (EXCP)                              50650000
                            00004  1987+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   50700003
CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00004  1988+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)             50750003

                            00004  1989+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---       50800003
                                   1990+*                             ALWAYS ZERO (QISAM) ---                   50850000
                                   1991+*                             RESERVED (QTAM, BTAM)                     50900000
                            00002  1992+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)    50950003

                            00002  1993+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        51000003
                            00002  1994+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)                             51050003
                            00002  1995+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---                 51100003
                                   1996+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)        51150000
                            00001  1997+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)                   51200003
                            00001  1998+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,    51250003

                                   1999+*                             BPAM, BISAM, QISAM, QTAM, BTAM)           51300000
000033                             2000+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR                    51350000
                            00080  2001+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM, 51400003
                                   2002+*                             BPAM, BISAM, BDAM) ---                    51450000
                                   2003+*                             RESERVED (EXCP, QTAM, BTAM)               51500000
                            00040  2004+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)    51550003
                            00040  2005+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---          51600003
                                   2006+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 51650000

                                   2007+*                             RESERVED (EXCP, BTAM)                     51700000
                            00020  2008+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)     51750003

                            00020  2009+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---            51800003
                                   2010+*                             ALWAYS ZERO (QSAM, QISAM) ---             51850000
                                   2011+*                             RESERVED (EXCP)                           51900000
                            00010  2012+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)            51950003
                            00010  2013+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---         52000003
                                   2014+*                             ALWAYS ZERO (BISAM) ---                   52050000
                                   2015+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   52100000
                            00008  2016+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)         52150003

                            00008  2017+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)     52200003
                                   2018+*                             (BSAM)                                    52250000
                            00008  2019+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)          52300003
                            00008  2020+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---         52350003
                                   2021+*                             ALWAYS ZERO (BISAM) ---                   52400000

                                   2022+*                             RESERVED (BPAM, QTAM, BTAM)               52450000
                            00004  2023+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)         52500003

                            00004  2024+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   52550003
                            00004  2025+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)                    52600003
                            00004  2026+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---        52650003
                                   2027+*                             ALWAYS ZERO (BISAM) ---                   52700000
                                   2028+*                             RESERVED (BDAM, QTAM, BTAM)               52750000
                            00002  2029+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)        52800003
                            00002  2030+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        52850003
                            00002  2031+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)                       52900003

                            00002  2032+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---              52950003
                                   2033+*                             ALWAYS ZERO (BISAM) ---                   53000000
                                   2034+*                             RESERVED (BPAM, QTAM, BTAM)               53050000
                            00001  2035+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)          53100003
                            00001  2036+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT     53150003

                                   2037+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)   53200000
                            00001  2038+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)                          53250003
                            00001  2039+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---                    53300003

                                   2040+*                             ALWAYS ZERO (BISAM) ---                   53350000
                                   2041+*                             RESERVED (BPAM, QTAM, BTAM)               53400000

CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2043+*                       FOUNDATION AFTER OPEN                           53500000


000034                      00028  2045+         ORG   IHADCB+40                                                53600000
000028                             2046+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD 53650000
                                   2047+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED 53700000
                                   2048+*                             WITH THIS DCB                             53750000
00002A                             2049+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN               53800000

00002A                             2050+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF                    53850000
00002B                             2051+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF                   53900000
00002C                             2052+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB                 53950000
00002C                             2053+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN               54000000

                            000C0  2054+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -                                        54050003
                                   2055+*                             ERROR CORRECTION INDICATOR                54060003
                            00030  2056+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -                                        54100003
                                   2057+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     54110003
                            0000C  2058+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -                                        54150003
                                   2059+*                             IOS ERROR ROUTINE USE INDICATOR           54160003

00002D                             2060+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB                 54200000

000030                      00030  2062+         ORG   IHADCB+48                                                54350000
000030                             2063+DCBREAD  DS    0A -           ADDRESS OF READ MODULE                    54400000
000030                             2064+DCBWRITE DS    A -            ADDRESS OF WRITE MODULE                   54450000


000034                      00030  2066+         ORG   IHADCB+48                                                54600000
000030                             2067+DCBGET   DS    0A -           ADDRESS OF GET MODULE                     54650000
000030                             2068+DCBPUT   DS    A -            ADDRESS OF PUT MODULE                     54700000


                                   2070+*                       QSAM-BSAM-BPAM COMMON INTERFACE                 77750000

000034                      00034  2072+         ORG   IHADCB+52                                                77850000
000034                             2073+DCBGERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  77950000
000034                             2074+DCBPERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  78000000

000034                             2075+DCBCHECK DS    0A -           ADDRESS OF CHECK MODULE                   78050000
000034                             2076+DCBOPTCD DS    BL1 -          OPTION CODES                              78150000
                            00080  2077+DCBOPTW  EQU   DCBBIT0 -      WRITE VALIDITY CHECK (DASD)               78500003
                                   2078+*                             (BSAM, BPAM, QSAM, ISAM, BDAM)            78550000
                            00040  2079+DCBOPTU  EQU   DCBBIT1 -      ALLOW DATA CHECK CAUSED BY INVALID        78600003

                                   2080+*                             CHARACTER (1403 PRINTER WITH UCS FEATURE) 78650000
                                   2081+*                             (BSAM, BPAM, QSAM)                        78700000
                            00020  2082+DCBOPTC  EQU   DCBBIT2 -      CHAINED SCHEDULING USING PCI              78750003
                                   2083+*                             (BSAM, BPAM, QSAM)                        78800000
                            00010  2084+DCBOPTH  EQU   DCBBIT3 -      1287/1288 OPTICAL READER - HOPPER EMPTY   78850003
                                   2085+*                             EXIT (BSAM, BPAM)                         78900000

                            00010  2086+DCBOPTO  EQU   DCBBIT3 -      1285/1287 OPTICAL READER - ON-LINE        78950003
                                   2087+*                             CORRECTION (QSAM)                         79000000
                            00010  2088+DCBBCKPT EQU   DCBBIT3 -      CHANNEL-END APPENDAGE IS TO BYPASS DOS    79050003
                                   2089+*                             EMBEDDED CHECKPOINT RECORDS ON TAPE       79100000

                                   2090+*                             (BSAM, QSAM)                       ICB226 79150000
                            00008  2091+DCBOPTQ  EQU   DCBBIT4 -      TRANSLATION TO OR FROM ASCII              79200003
                                   2092+*                             (BSAM, BPAM, QSAM)                        79250000
                            00004  2093+DCBOPTZ  EQU   DCBBIT5 -      MAGNETIC TAPE DEVICES - USE REDUCED ERROR 79300003
                                   2094+*                             RECOVERY PROCEDURE (EXCP, BSAM, BPAM,     79350000

                                   2095+*                             QSAM)                                     79400000
                            00004  2096+DCBSRCHD EQU   DCBBIT5 -      USE SEARCH DIRECT, INSTEAD OF SEARCH      79450003
                                   2097+*                             PREVIOUS, ON RECORD POSITION SENSING      79500000
CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2098+*                             DEVICE  (EXCP, BSAM, BPAM, QSAM)   ICB217 79550000
                            00002  2099+DCBOPTT  EQU   DCBBIT6 -      USER TOTALING (BSAM, QSAM)                79600003

000035                             2100+DCBGERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  79700000
000035                             2101+DCBPERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  79750000
000035                             2102+DCBCHCKA DS    AL3 -          ADDRESS OF CHECK MODULE                   79800000

000038                             2103+DCBSYNAD DS    0A -           ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80050000
000038                             2104+DCBIOBL  DS    FL1 -          IOB LENGTH IN DOUBLE WORDS                80100000
000039                             2105+DCBSYNA  DS    AL3 -          ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80150000
00003C                             2106+DCBFLAG1 DS    0BL1           TCAM APPLICATION PROGRAM FLAGS ICBI DCB-3 80460000
                                   2107+*                             (BSAM, BPAM, QSAM)                        80470000

00003C                             2108+DCBCIND1 DS    BL1 -          CONDITION INDICATORS                      80500000
                            00080  2109+DCBCNTOV EQU   DCBBIT0 -      DIRECT ACCESS - TRACK OVERFLOW IN USE     80550003
                                   2110+*                             (BSAM, BPAM, QSAM)                        80600000
                                   2111+*                             2540 CARD PUNCH - DATA SET WAS OPENED BUT 80650000
                                   2112+*                             NO DATA WAS WRITTEN (QSAM)                80700000
                            00080  2113+DCBSTQCK EQU   DCBBIT0 -      STOP EQUAL QUICK WAS SPECIFIED FOR        80710003
                                   2114+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80720000
                            00040  2115+DCBSTFLS EQU   DCBBIT1 -      STOP EQUAL FLUSH WAS SPECIFIED FOR        80730003

                                   2116+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80740000
                            00040  2117+DCBCNSRD EQU   DCBBIT1 -      SEARCH DIRECT (BSAM, BPAM, QSAM)          80750003

                            00020  2118+DCBCNEVB EQU   DCBBIT2 -      END OF VOLUME - USED BY EOB ROUTINES      80800003
                                   2119+*                             (BSAM, BPAM, QSAM)                        80850000
                            00010  2120+DCBCNEVA EQU   DCBBIT3 -      END OF VOLUME - USED BY CHANNEL-END       80900003
                                   2121+*                             APPENDAGE ROUTINES (BSAM, BPAM, QSAM)     80950000
                            00004  2122+DCBCNBRM EQU   DCBBIT5 -      BLOCKED RECORD BIT MODIFIED (BSAM,BPAM,   81000003

                                   2123+*                             QSAM)                          ICBI DCB-2 81050000
                            00001  2124+DCBCNEXB EQU   DCBBIT7 -      EXCHANGE BUFFERING SUPPORTED (QSAM)       81100003
00003D                             2125+DCBCIND2 DS    BL1 -          CONDITION INDICATORS                      81150000
                            00080  2126+DCBCNSTO EQU   DCBBIT0 -      PARTITIONED DATA SET - STOW HAS BEEN      81200003
                                   2127+*                             PERFORMED (BSAM, BPAM, QSAM)              81250000
                                   2128+*                             SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM) 81300000
                            00040  2129+DCBCNWR0 EQU   DCBBIT1 -      DIRECT ORGANIZATION DATA SET - LAST I/O   81350003
                                   2130+*                             WAS A WRITE RECORD ZERO                   81400000
                                   2131+*                             (BSAM, BPAM, QSAM)                        81450000

                                   2132+*                             SEQUENTIAL DATA SET - UPDATE EOF IS       81500000

                                   2133+*                             INDICATED (BSAM, BPAM)                    81550000
                            00020  2134+DCBCNCLO EQU   DCBBIT2 -      CLOSE IN PROCESS (QSAM)                   81600003
                            00010  2135+DCBCNIOE EQU   DCBBIT3 -      PERMANENT I/O ERROR (BSAM, BPAM, QSAM)    81650003
                            00008  2136+DCBCNBFP EQU   DCBBIT4 -      OPEN ACQUIRED BUFFER POOL                 81700003
                                   2137+*                             (BSAM, BPAM, QSAM)                        81750000

                            00004  2138+DCBCNCHS EQU   DCBBIT5 -      CHAINED SCHEDULING BEING SUPPORTED        81800003
                                   2139+*                             (BSAM, BPAM, QSAM)                        81850000
                            00002  2140+DCBCNFEO EQU   DCBBIT6 -      FEOV BIT (BSAM, BPAM, QSAM)               81900003
                            00001  2141+DCBCNQSM EQU   DCBBIT7 -      ALWAYS ZERO (BSAM, BPAM)                  81950003
                                   2142+*                             THIS IS A QSAM DCB (QSAM)                 82000000
00003E                             2143+DCBBLKSI DS    H -            MAXIMUM BLOCK SIZE                        82100000
000040                             2144+DCBWCPO  DS    AL1 -          OFFSET OF WRITE CHANNEL PROGRAM FROM THE  82350000
                                   2145+*                             START OF IOB                              82400000
000041                             2146+DCBWCPL  DS    FL1 -          LENGTH OF WRITE CHANNEL PROGRAM           82450000
000042                             2147+DCBOFFSR DS    AL1 -          OFFSET OF READ CCW FROM BSAM/BPAM PREFIX  82500000

                                   2148+*                             OF IOB                                    82550000

000043                             2149+DCBOFFSW DS    AL1 -          OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX 82600000
                                   2150+*                             OF IOB                                    82650000
000044                             2151+DCBIOBA  DS    A -            FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR 82700000
                                   2152+*                             BSAM/BPAM PREFIX OF IOB.  FOR CHAINED     82750000

CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2153+*                             SCHEDULING, ADDRESS OF ICB.  FOR          82800000
                                   2154+*                             1419/1275, ADDRESS OF MAGNETIC INTERRUPT  82850000
                                   2155+*                             CONTROL BLOCK (MICB) CURRENTLY BEING      82900000
                                   2156+*                             PROCESSED BY READ ROUTINE.  FOR TSO       82950000
                                   2157+*                             TERMINAL DATA SET OPENED FOR INPUT AND    83000000
                                   2158+*                             FORMAT U, SIMULATED LOW-ORDER FOUR BYTES  83050000
                                   2159+*                             OF IOBCSW                                 83100000

000048                      00044  2161+         ORG   IHADCB+68                                         ICB354 83160000

000044                             2162+DCBCICB  DS    0A -           SAME AS DCBCICBA BELOW             ICB354 83200000
000044                             2163+         DS    X -            DCBNCP  (BSAM,BPAM)                ICB354 83250000
000045                             2164+DCBCICBA DS    AL3 -          POINTER TO JES C.I.                ICB354 83300000
                                   2165+*                             CONTROL BLOCK (CICB)               ICB354 83350000


000048                      00050  2167+         ORG   IHADCB+80                                     ICBI DCB-4 83450000
000050                             2168+DCBDIRCT DS    0H -           NUMBER OF BYTES USED IN LAST DIRECTORY    83500000
                                   2169+*                             BLOCK (RANGE 0-254)  (BSAM, BPAM)  ICB295 83550000
000050                             2170+DCBQSWS  DS    0BL1 -         FLAG BYTE                          ICB295 83600000
                            00004  2171+DCBPOPEN EQU   DCBBIT5 -      QSAM PARALLEL INPUT PROCESSING            83610003
000050                             2172+DCBUSASI DS    B -            FLAG BYTE FOR ASCII TAPES                 83650000
                            00040  2173+DCBBLBP  EQU   DCBBIT1 -      BLOCK PREFIX IS FOUR BYTE FIELD           83700003
                                   2174+*                             CONTAINING BLOCK LENGTH IN UNPACKED       83750000
                                   2175+*                             DECIMAL (SPECIFIED BY BUFFER=L).          83800000
                            00038  2176+DCBQADFS EQU   DCBBIT2+DCBBIT3+DCBBIT4                                  83850003
                                   2177+*                             USED TO PERFORM SEQUENCE CHECKING WITH    83860003

                                   2178+*                             MULTIPLE FUNCTION SUPPORT FOR 3525        83900000
                                   2179+*                             (BSAM, QSAM)                              83950000
                            00020  2180+DCBQADF1 EQU   DCBBIT2 -      FIRST BIT OF DCBQADFS                     84000003

                            00010  2181+DCBQADF2 EQU   DCBBIT3 -      SECOND BIT OF DCBQADFS                    84050003
                            00008  2182+DCBQADF3 EQU   DCBBIT4 -      THIRD BIT OF DCBQADFS                     84100003
                            00001  2183+DCBQSTRU EQU   DCBBIT7 -      TRUNC ENTRY POINT ENTERED (QSAM)          84150003
000051                             2184+DCBBUFOF DS    0FL1 -         BLOCK PREFIX LENGTH (0-99), SPECIFIED BY  84200000
                                   2185+*                             BUFOFF=N OR BUFOFF=L                      84250000
000051                             2186+DCBDIRCQ DS    FL1 -          NUMBER OF BYTES USED IN LAST DIRECTORY    84300000
                                   2187+*                             BLOCK (RANGE 0-254)  (QSAM)        ICB295 84350000

                                   2189+*                       BSAM-BPAM INTERFACE                             84500000

000052                      00048  2191+         ORG   IHADCB+72                                                84600000
000048                             2192+DCBEOBR  DS    0A -           ADDRESS OF END-OF-BLOCK MODULE FOR READ   84650000

000048                             2193+DCBNCP   DS    FL1 -          NUMBER OF CHANNEL PROGRAMS.               84750000

                                   2194+*                             NUMBER OF READ OR WRITE REQUESTS WHICH    85000000
                                   2195+*                             MAY BE ISSUED PRIOR TO A CHECK, NUMBER    85050000

                                   2196+*                             OF IOB'S GENERATED.  (99 MAXIMUM)         85100000
000049                             2197+DCBEOBRA DS    AL3 -          ADDRESS OF END-OF-BLOCK MODULE FOR READ   85150000
00004C                             2198+DCBEOBW  DS    A -            ADDRESS OF END-OF-BLOCK MODULE FOR WRITE. 85200000
                                   2199+*                             FOR BSAM CREATE BDAM PROCESSING OF        85250000
                                   2200+*                             UNBLOCKED SPANNED RECORDS WITH BKTEK=R    85300000
                                   2201+*                             SPECIFIED, ADDRESS OF SEGMENT WORK AREA   85350000
                                   2202+*                             CONTROL BLOCK                             85400000
000050                             2203+         DS    H -            DCBDIRCT - NUMBER OF BYTES USED IN LAST   85450000
                                   2204+*                             DIRECTORY BLOCK  (RANGE 0-254)     ICB295 85500000
000052                             2205+DCBLRECL DS    H -            LOGICAL RECORD LENGTH                     85600000
000054                             2206+DCBCNTRL DS    0A -           ADDRESS OF CNTRL MODULE                   85850000
000054                             2207+DCBNOTE  DS    0A -           ADDRESS OF NOTE/POINT MODULE              85900000

CON      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000054                             2208+DCBPOINT DS    A -            ADDRESS OF NOTE/POINT MODULE              85950000


                                   2210+*                       QSAM INTERFACE                                  86100000

000058                      00048  2212+         ORG   IHADCB+72                                                86650021
000048                             2213+DCBLCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF LAST   86700000
                                   2214+*                             CCW IN LIST                               86750000
000048                             2215+DCBEOBAD DS    A -            FOR SIMPLE BUFFERING, ADDRESS OF LAST     86800000
                                   2216+*                             BYTE OF CURRENT BUFFER                    86850000
00004C                             2217+DCBCCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF        86900000
                                   2218+*                             CURRENT OR NEXT CCW                       86950000
00004C                             2219+DCBRECAD DS    0A -           ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87000000
00004C                             2220+DCBRECBT DS    BL1 -          FLAG BYTE                                 87050000

                            000F0  2221+DCBRCREL EQU   DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3  -                       87100003
                                   2222+*                             RELSE MACRO HAS BEEN ISSUED               87110003
                                   2223+*                             (QSAM WITH SIMPLE BUFFERING)              87150000

                            00080  2224+DCBRCTRU EQU   DCBBIT0 -      TRUNC MACRO HAS BEEN ISSUED (QSAM LOCATE  87200003
                                   2225+*                             MODE)                                     87250000
                            00040  2226+DCBRCFGT EQU   DCBBIT1 -      FIRST GET AFTER OPEN (QSAM LOCATE MODE)   87300003
00004D                             2227+DCBRECA  DS    AL3 -          ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87350000
000050                             2228+         DS    B -            DCBQSWS - FLAG BYTE                ICB295 87400000
000051                             2229+         DS    FL1 -          DCBDIRCQ - NUMBER OF BYTES USED IN LAST   87450000
                                   2230+*                             DIRECTORY BLOCK (RANGE 0-254)      ICB295 87500000
000052                             2231+         DS    H -            DCBLRECL - LOGICAL RECORD LENGTH          87750021
000054                             2232+         DS    0A -           DCBCNTRL - ADDRESS OF CNTRL MODULE        88000021
000054                             2233+DCBEROPT DS    BL1 -          ERROR OPTION                              88100000
                            00080  2234+DCBERACC EQU   DCBBIT0 -         ACCEPT PERMANENT ERROR                 88150003
                            00040  2235+DCBERSKP EQU   DCBBIT1 -         SKIP PERMANENT ERROR                   88200003

                            00020  2236+DCBERABE EQU   DCBBIT2 -         ABNORMAL END OF TASK                   88250003
000055                             2237+         DS    AL3 -          DCBCNTRA - ADDRESS OF CNTRL MODULE        88500021
000058                             2238+         DS    XL2 -          RESERVED                                  88600021

00005A                             2239+DCBPRECL DS    H -            BLOCK LENGTH, MAXIMUM BLOCK LENGTH OR     88650000
                                   2240+*                             DATA LENGTH                               88700000
00005C                             2241+DCBEOB   DS    A -            ADDRESS OF END OF BLOCK MODULE            88750000



                            00000  2244+DCBDSECT EQU   IHADCB   DEFINE ALTERNATE DSECT NAME                     DB012000

000000                             2246+HASPCON  CSECT          END OF DATA CONTROL BLOCK DSECT                 DB016000
CON      OS DATA EXTENT BLOCK DSECT                                                                            PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                             2249+DEBDSECT DSECT                     DATA EXTENT BLOCK DSECT              DE010000
000000                             2250+DEBTCBAD DS    F                   ADDRESS OF TCB                       DE012000
000004                             2251+DEBDEBAD DS    F                   ADDRESS OF NEXT DEB                  DE014000
000008                             2252+DEBIRBAD DS    F                   ADDRESS OF IRB                       DE016000

00000C                             2253+         DS    F                   RESERVED                             DE018000
000010                             2254+DEBNMEXT DS    0C                  NUMBER OF EXTENTS                    DE019000
000010                             2255+DEBUSRPG DS    F                   ADDR OF 1ST IOB IN USER PURGE CHAIN  DE020000
000014                             2256+DEBPRIOR DS    0C                  PRIORITY OF THE TASK                 DE022000
000014                             2257+DEBECBAD DS    F                   ADDRESS OF PURGE ECB PARAMETER LIST  DE024000
000018                             2258+DEBPROTG DS    0C                  PROTECTION KEY OF TASK               DE026000

000018                             2259+DEBDEBID DS    0C                  DEB IDENTIFICATION (X'0F')           DE028000
000018                             2260+DEBDCBAD DS    F                   ADDRESS OF DCB                       DE030000
00001C                             2261+DEBEXSCL DS    0C                  EXTENT SCALE                         DE031000
00001C                             2262+DEBAPPAD DS    F                   ADDR OF I/O APPENDAGE VECTOR TABLE   DE032000
000020                             2263+DEBDVMOD DS    0C                  DEVICE MODIFIER / FILE MASK          DE034000
000020                             2264+DEBUCBAD DS    F                   ADDRESS OF UCB                       DE036000
000024                             2265+DEBEXTNT DS    0CL12               DATA SET EXTENT                      DE038000
000024                             2266+DEBBINUM DS    H                   BIN NUMBER                           DE040000

000026                             2267+DEBSTRCC DS    H                   CYLINDER START ADDRESS               DE042000
000028                             2268+DEBSTRHH DS    H                   READ OR WRITE TRACK START ADDRESS    DE044000

00002A                             2269+DEBENDCC DS    H                   CYLINDER END ADDRESS                 DE046000
00002C                             2270+DEBENDHH DS    H                   READ OR WRITE TRACK END ADDRESS      DE048000
00002E                             2271+DEBNUMTR DS    H                   NUMBER OF TRACKS IN THIS EXTENT      DE050000
000000                             2272+HASPCON  CSECT                     END OF DATA EXTENT BLOCK DSECT       DE052000
CON      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             2274+UCBDSECT DSECT                     UNIT CONTROL BLOCK DSECT             UC008000



                                   2276+*%UCBL1 : ;                                                             IE005000
                                   2277+*/* **************************************************************** */ IE006000
                                   2278+*/*                                                                  */ IE007000
                                   2279+*/*            U N I T   C O N T R O L   B L O C K                   */ IE008000
                                   2280+*/*                                                                  */ IE009000

                                   2281+*/* **************************************************************** */ IE010000
                                   2282+*/*                                                                  */ IE011000
                                   2283+*/*  STATUS                                                          */ IE012000

                                   2284+*/*                                                                  */ IE013000
                                   2285+*/*      OS/VS2 RELEASE 1, OS/VS1 RELEASE 2, 08/14/72, LEVEL=14      */ IE014000
                                   2286+*/*                                                                  */ IE015000
                                   2287+*/*  METHOD OF ACCESS                                                */ IE016000
                                   2288+*/*                                                                  */ IE017000
                                   2289+*/*      PL/S - DCL (UCBPTR,UCBDCPTR) PTR                            */ IE018000
                                   2290+*/*      BAL  - DSECT CARD SHOULD PRECEDE MACRO CALL.  SYMBOLS IN    */ IE019000

                                   2291+*/*             COMMON SECTION AND DEVICE DEPENDENT SECTIONS ARE     */ IE020000
                                   2292+*/*             ADDRESSABLE BY A USING ON UCBOB.  ADDITIONAL USINGS  */ IE021000
                                   2293+*/*             ARE NECESSARY TO OBTAIN ADDRESSABILITY FOR EACH      */ IE022000
                                   2294+*/*             EXTENSION OR PREFIX.  THESE ARE AS FOLLOWS -         */ IE023000
                                   2295+*/*                                                                  */ IE024000

                                   2296+*/*             DIRECT ACCESS EXTENSION           UCBDA              */ IE025000
                                   2297+*/*             DIRECT ACCESS EXTENSION 2         UCBDA2             */ IE026000
                                   2298+*/*             PREFIX TO MAGNETIC TAPE EXTENSION UCBMTPRF           */ IE027000
                                   2299+*/*             MAGNETIC TAPE EXTENSION           UCBMT              */ IE028000

                                   2300+*/*             TAPE CARTRIDGE READER EXTENSION   UCBTCR             */ IE029000
                                   2301+*/*             OPTICAL READER EXTENSION          UCBOR              */ IE030000
                                   2302+*/*             UNIT RECORD WITH UCS EXTENSION    UCBUCS             */ IE031000
                                   2303+*/*             3211 SENSE INFORMATION EXTENSION  UCBSNINF           */ IE032000
                                   2304+*/*             M65 MULTIPROCESSING PREFIX        UCBM65MP           */ IE033000
                                   2305+*/*                                                                  */ IE034000

                                   2306+*/*             WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH  */ IE035000
                                   2307+*/*             DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER   */ IE036000
                                   2308+*/*             IN THE DEFN COLUMN IN THE CORSS REFERENCE LISTING.   */ IE037000
                                   2309+*/*             FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE          */ IE038000
                                   2310+*/*             STATEMENT NUMBERS FOR UCBDA AND UCBDA2 IS IN THE     */ IE039000

                                   2311+*/*             UCBDA DSECT.                                         */ IE040000
                                   2312+*/*                                                                  */ IE041000
                                   2313+*/*  F.E.'S                                                          */ IE042000
                                   2314+*/*                                                                  */ IE043000
                                   2315+*/*      MICROFICHE LISTING - IEFUCBOB                               */ IE044000

                                   2316+*/*                                                                  */ IE045000
                                   2317+*/*  DEVELOPERS                                                      */ IE046000
                                   2318+*/*                                                                  */ IE047000
                                   2319+*/*      BAL LISTING  - SPECIFY LIST=YES ON MACRO CALL               */ IE048000
                                   2320+*/*      PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE        */ IE049000

                                   2321+*/*                                                                  */ IE050000
                                   2322+*/*      FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS     */ IE051000
                                   2323+*/*      YOUR MODULE CREATES THE CSECT.                              */ IE052000
                                   2324+*/*                                                                  */ IE053000
                                   2325+*/*  FUNCTION                                                        */ IE054000

                                   2326+*/*                                                                  */ IE055000
                                   2327+*/*      A UNIT CONTROL BLOCK                                        */ IE056000
CON      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2328+*/*      INCORPORATING A SYSTEM RESOURCE TABLE                       */ IE057000
                                   2329+*/*      RECORDS THE STATUS OF                                       */ IE058000

                                   2330+*/*        A PHYSICAL INPUT OUTPUT DEVICE ADDRESS                    */ IE059000
                                   2331+*/*      IS CREATED AND INITIALIZED DURING SYSTEM GENERATION         */ IE060000
                                   2332+*/*      RESIDES IN THE NUCLEUS BELOW 32 K                           */ IE061000
                                   2333+*/*      POINTS TO A DEVICE TYPE DEPENDENT EXTENSION                 */ IE062000

                                   2334+*/*        RESIDING HIGHER IN THE NUCLEUS                            */ IE063000
                                   2335+*/*      IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY            */ IE064000
                                   2336+*/*        A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS     */ IE065000
                                   2337+*/*      MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES               */ IE066000
                                   2338+*/*        AND DATA EXTENT BLOCKS                                    */ IE067000

                                   2339+*/*      CONTAINS INDICES INTO TABLES FOR                            */ IE068000
                                   2340+*/*        DEVICE STATISTICS ATTENTION LOGICAL CHANNEL               */ IE069000
                                   2341+*/*      MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS    */ IE070000
                                   2342+*/*                                                                  */ IE071000
                                   2343+*/*  OUTPUT                                                          */ IE072000
                                   2344+*/*                                                                  */ IE073000
                                   2345+*/*      SYSGEN INDEPENDENT COMMON SECTION                           */ IE074000

                                   2346+*/*        INCLUDING UCBTYP WORD                                     */ IE075000
                                   2347+*/*      DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)             */ IE076000
                                   2348+*/*        DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE         */ IE077000

                                   2349+*/*        DATACELL (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)*/ IE078000
                                   2350+*/*        UNIT RECORD WITH UNIVERSAL CHARACTER SET                  */ IE079000
                                   2351+*/*        GRAPHICS                                                  */ IE080000
                                   2352+*/*        TAPE CARTRIDGE READER AND OPTICAL READER                  */ IE081000
                                   2353+*/*      CELL DESCRIPTION FOR ONE OF THE TEN CELLS                   */ IE082000

                                   2354+*/*        IN THE DATACELL DEVICE SEGMENT ABOVE                      */ IE083000
                                   2355+*/*      UCB EXTENSION (ONE OF THE FOLLOWING)                        */ IE084000
                                   2356+*/*        DIRECT ACCESS                                             */ IE085000
                                   2357+*/*        DIRECT ACCESS 2                                           */ IE086000
                                   2358+*/*        MAGNETIC TAPE AND ITS PREFIX                              */ IE087000
                                   2359+*/*        TAPE CARTRIDGE READER                                     */ IE088000
                                   2360+*/*        OPTICAL READER                                            */ IE089000
                                   2361+*/*        UNIVERSAL CHARACTER SET                                   */ IE090000

                                   2362+*/*        3211 SENSE INFORMATION                                    */ IE091000
                                   2363+*/*      M65 MULTIPROCESSING PREFIX                                  */ IE092000

                                   2364+*/*        (CONTIGUOUSLY PRECEDING COMMON SECTION)                   */ IE093000
                                   2365+*/*                                                                  */ IE094000
                                   2366+*/* **************************************************************** */ IE095000
                                   2367+*%GOTO UCBL2;   /*                                                      IE096000
                                   2368+         PUSH  PRINT                                                    IE097000

                                   2369+         PRINT OFF                                                      IE099000
                                   3105+         POP   PRINT                                                    IE836000


000000                             3107+HASPCON  CSECT                     END UNIT CONTROL BLOCK DSECT         UC016000
CON      OS TASK CONTROL BLOCK DSECT                                                                           PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             3110+TCBDSECT DSECT                     TASK CONTROL BLOCK DSECT             TC010000

000000                             3111+TCBRBP   DS    F                   ADDRESS OF TOP RB                    TC012000

000004                             3112+TCBPIE   DS    F                   ADDRESS OF PROGRAM INTERRUPT ELEMENT TC014000
000008                             3113+TCBDEB   DS    F                   ADDRESS OF DEB QUEUE                 TC016000
00000C                             3114+TCBTIO   DS    F                   ADDRESS OF TASK I/O TABLE            TC018000
000010                             3115+TCBCMP   DS    F                   TASK COMPLETION CODE                 TC020000
000014                             3116+TCBTRN   DS    F                   ADDRESS OF TESTRAN CONTROL TABLE     TC022000

000018                             3117+TCBMSS   DS    F                   MAIN STORAGE SUPERVISOR POINTER      TC026000
00001C                             3118+TCBPKF   DS    C                   PROTECTION KEY                       TC028000
00001D                             3119+TCBFLGS  DS    3C                  MISCELLANEOUS FLAGS                  TC028800
000020                             3120+TCBFLGS4 DS    C                   NONDISPATCHABILITY FLAGS             TC029600
                            00010  3121+TCBHNDSP EQU   X'10'               HASP FREEZE BIT                      TC030400
000021                             3122+TCBFLGS5 DS    C                   NONDISPATCHABILITY FLAGS             TC031200
000022                             3123+TCBLMP   DS    C                   ENQUEUE COUNT / LIMIT PRIORITY       TC032000
000023                             3124+TCBDSP   DS    C                   DISPATCHING PRIORITY                 TC034000
000024                             3125+TCBLLS   DS    F                   LOAD LIST                            TC036000
000028                             3126+TCBJLB   DS    F                   ADDRESS OF JOBLIB DCB                TC038000

00002C                             3127+TCBJPQ   DS    F                   ADDRESS OF CDE FOR JPA               TC040000

000030                             3128+TCBGRS   DS    16F                 GENERAL REGISTER SAVE AREA           TC042000
000070                             3129+TCBQEL   DS    0C                  ENQUEUE COUNT (MVT)                  TC046000
000070                             3130+TCBFSA   DS    F                   ADDRESS OF FIRST PROGRAM SAVE AREA   TC048000
000074                             3131+TCBTCB   DS    F                   ADDRESS OF NEXT LOWER PRIORITY TCB   TC050000

000078                             3132+TCBTME   DS    F                   ADDRESS OF TIMER ELEMENT             TC052000
00007C                             3133+TCBJSTCB DS    F                   ADDRESS OF FIRST TCB FOR JOB STEP    TC056000
000080                             3134+TCBNTC   DS    F                   ADDRESS OF PREVIOUS TCB              TC058000
000084                             3135+TCBOTC   DS    F                   ADDRESS OF ORIGINATING TCB           TC060000
000088                             3136+TCBLTC   DS    F                   ADDRESS OF LAST TCB ON SUBTASK QUEUE TC062000
00008C                             3137+TCBIQE   DS    F                   ADDRESS OF IQE FOR ETXR ROUTINE      TC064000
000090                             3138+TCBECB   DS    F                   ADDRESS OF ECB POSTED ON COMPLETION  TC066000
000094                             3139+TCBTSFLG DS    C                   TIME SHARING FLAGS                   TC066800
000095                             3140+TCBSTPCT DS    C                   STATUS STOP COUNT                    TC067600
000096                             3141+TCBTSLP  DS    C                   TS TASK LIMIT PRIORITY               TC068400
000097                             3142+TCBTSDP  DS    C                   TS TASK DISPATCHING PRIORITY         TC069200

000098                             3143+TCBPQE   DS    F                   ADDRESS OF REGION DUMMY PQE - 8      TC070000
00009C                             3144+TCBAQE   DS    F                   ADDRESS OF ALLOCATED QUEUE ELEMENT   TC072000
0000A0                             3145+TCBNSTAE DS    F                   ADDR OF CURRENT STAE CONTROL BLOCK   TC074000
0000A4                             3146+TCBTCT   DS    F                   ADDRESS OF THE TCT                   TC076000

0000A8                             3147+TCBUSER  DS    F                   USER FIELD                           TC078000
0000AC                             3148+TCBNDSP  DS    F                   SECONDARY NONDISPATCHABILITY         TC080000
0000B0                             3149+TCBPCE   DS    0F .                ADDRESS OF HASP PCE         FJP/RFIT TC081700
                            00001  3150+TCBPCEND EQU   X'01' .             HASP NON-DISPATCH. FLAG     FJP/RFIT TC081800
0000B0                             3151+         DS    F                   RESERVED                             TC082000
0000B4                             3152+TCBJSCB  DS    F                   ADDRESS OF JSCB                      TC083000
000000                             3153+HASPCON  CSECT                     END OF TASK CONTROL BLOCK DSECT      TC084000
CON      OS GENERAL REQUEST BLOCK DSECT                                                                        PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             3156+RBPREFIX DSECT                     REQUEST BLOCK PREFIX DSECT           RB009000

000000                             3157+         DS    (X'3E')C                                                 RB010000
00003E                             3158+RBINTCOD DS    H                   INTERRUPT CODE                       RB011000
000040                             3159+RBDSECT  DS    0F                  REQUEST BLOCK DSECT                  RB012000

000040                             3160+RBEXRTNM DS    0CL8                MVT SIRB ERROR EXIT ROUTINE NAME     RB014000
000040                             3161+RBTABNO  DS    0H                  MVT SVRB DISPLACEMENT FOR TACT ENTRY RB016000
000040                             3162+RBTMFLD  DS    0C                  MVT IRB INDICATORS                   RB018000
000040                             3163+RBPPSAV  DS    0F,H                MVT IRB PROBLEM PROGRAM SAVE AREA    RB020000
000042                             3164+RBRTLNTH DS    H                   MVT SVRB SVC ROUTINE LENGTH          RB022000
000044                             3165+RBABOPSW DS    F                   MVT RIGHT HALF OF USERS OLD PSW      RB024000
000048                             3166+RBWCSA   DS    C                   MVT WAIT COUNT SAVE AREA             RB028000
000049                             3167+RBSIZE   DS    C                   MVT SIZE OF THIS RB                  RB030000
00004A                             3168+RBSTAB   DS    H                   MVT STATUS AND ATTRIBUTE BITS        RB034000
00004C                             3169+RBEP     DS    0F                  MVT IRB ASYNCHRONOUS ROUTINE ENTRY   RB040000
00004C                             3170+RBCDFLGS DS    0C                  MVT CONTENTS CONTROL FLAGS           RB042000
00004C                             3171+RBCDE    DS    0F                  MVT ADDRESS OF CDE                   RB044000

00004C                             3172+RBSVTQN  DS    F                   MVT SVRB ADDRESS OF NEXT TRANS RB    RB046000

000050                             3173+RBOPSW   DS    D                   MVT OLD PSW                          RB050000
000058                             3174+RBUSE    DS    0C                  MVT ATTACH USE COUNT                 RB054000

000058                             3175+RBPGMQ   DS    0F                  MVT ADDR OF SERIALLY REUSE PROG RB   RB056000
000058                             3176+RBTAWCSA DS    C                   MVT SVRB WAIT COUNT SAVE AREA        RB058000
000059                             3177+RBSVTTR  DS    0CL3                MVT SVRB TTR FOR SVC ROUTINE         RB060000
00005A                             3178+RBIQE    DS    H                   MVT IRB LIST ORIGIN FOR IQE (RQE)    RB062000
00005C                             3179+RBWCF    DS    0C                  MVT WAIT COUNT                       RB068000
00005C                             3180+RBLINK   DS    F                   MVT ADDRESS OF NEXT RB OR TCB        RB070000
000060                             3181+RBGRSAV  DS    16F                 MVT GENERAL REGISTER SAVE AREA       RB074000
0000A0                             3182+RBNEXAV  DS    0F                  MVT IRB ADDR OF NEXT AVAILABLE IQE   RB076000
0000A0                             3183+RBEXSAV  DS    16F                 MVT SVRB EXTENDED SAVE AREA          RB078000
000000                             3184+HASPCON  CSECT                     END OF REQUEST BLOCK DSECT           RB080000
CON      OS JOB STEP CONTROL BLOCK DSECT                                                                       PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78








000000                             3187+JSCDSECT DSECT                     OS JSCB DSECT                        JS010000

                            000C0  3188+JSCHPCE  EQU   JSCDSECT+X'C0',4    OPTIONAL JES PCE ADDRESS.            JS012000
                            000E4  3189+JSCBSTEP EQU   JSCDSECT+X'E4',1    CURRENT STEP NUMBER.                 JS014000
                            0010C  3190+JSCBTJID EQU   JSCDSECT+X'10C',2   TSO TERMINAL JOB IDENTIFIER.         JS016000
000000                             3191+HASPCON  CSECT                     END OF OS JSCB DSECT                 JS018000
CON      HASP CONSOLE MESSAGE QUEUEING SUBROUTINE                                                              PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3193 *                                                                       W0096000
                                   3194 *      THE FOLLOWING PLACES THE NEW BUFFER WHOSE ADDRESS IS IN R2       W0098000
                                   3195 *      INTO THE BUFFER QUEUE ACCORDING TO THE FOLLOWING-                W0100000
                                   3196 *                                                                       W0102000
                                   3197 *         1.  IF THE QUEUE IS EMPTY THE NEW BUFFER IS PUT               W0104000
                                   3198 *             AT THE QUEUE HEAD.                                        W0106000

                                   3199 *                                                                       W0108000
                                   3200 *         2.  IF NO BUFFERS IN THE QUEUE HAVE A LOWER PRIORITY          W0110000
                                   3201 *             THE NEW BUFFER IS PUT AT QUEUE END.                       W0112000

                                   3202 *                                                                       W0114000
                                   3203 *         3.  OTHERWISE THE NEW BUFFER IS QUEUED IN FRONT OF THE        W0116000
                                   3204 *             1ST BUFFER THAT HAS A LOWER PRIORITY.                     W0118000
                                   3205 *                                                                       W0120000
                                   3206 $WQUEBUF NULL                                                           W0122000
000000                             3207+$WQUEBUF DS    0H                                                       NU006000
000000 90A1 C060      00060        3208          STM   R10,R1,WQREGS       SAVE CALLER'S REGISTERS      OY02728 W0124000
000004 4100 000F      0000F        3209          LA    R0,15               ISOLATE NEW MESSAGE PRIORITY         W0126000
000008 5402 0004      00004        3210          N     R0,4(R2)             FOR LATER COMPARISON.               W0128000
00000C 41E0 B10C      0010C        3211          LA    R14,$BUSYQUE        GET ADDR OF ADDR OF QUEUE HEAD.      W0130000
000010 18DE                        3212 WLOOPQUE LR    R13,R14             SAVE ADDRESS OF PREVIOUS BUFFER.     W0132000
000012 58ED 0000      00000        3213          L     R14,0(R13)          GET ADDRESS OF NEXT BUFFER.          W0134000

000016 12EE                        3214          LTR   R14,R14             TEST FOR END OF CHAIN.               W0136000
000018 4780 C02A      0002A        3215          BZ    WENDQUE             GO ADD BUFFER IF END OF CHAIN.       W0138000
00001C 41F0 000F      0000F        3216          LA    R15,15              ISOLATE PRIORITY                     W0140000

000020 54FE 0004      00004        3217          N     R15,4(R14)           OF NEXT MESSAGE QUEUED.             W0142000
000024 150F                        3218          CLR   R0,R15              COMPARE WITH NEW MESSAGE PRIORITY.   W0144000
000026 47D0 C010      00010        3219          BNH   WLOOPQUE            BRANCH IF NOT LESS.                  W0146000
00002A 502D 0000      00000        3220 WENDQUE  ST    R2,0(R13)           CHAIN NEW BUFFER TO OLD.             W0148000
00002E 50E2 0000      00000        3221          ST    R14,0(R2)           CHAIN NEXT BUFFER TO NEW.            W0150000
                                   3222          AIF   (&NUMLNES EQ 0).WNORJE                                   W0152000
                                   3223 .WNORJE  ANOP                                                           W0160000
000032 58F0 0010      00010        3224          L     R15,CVTPTR          POINT TO CVT                 OY02728 W0162000
000036 58F0 F098      00098        3225          L     R15,CVT0PT01-CVTDSECT(,R15)  POINT TO POST       OY02728 W0162500
00003A 98AC CD30      00D30        3226          LM    R10,R12,WQPREGS     PICK UP POST REGISTERS       OY02728 W0163000
00003E 05EF                        3227          BALR  R14,R15             ENTER POST                   OY02728 W0163500
                            00040  3228          USING *,R14                                            OY02728 W0164000

000040 98BC ECE8      00D28        3229          LM    R11,R12,WBASES      RESTORE BASES                OY02728 W0164500
                                   3230          DROP  R14                                              OY02728 W0165000
000044 47F0 C058      00058        3231          B     WQEXIT              THEN EXIT                            W0166000
                                   3232 WQPOSTH $POST  PCEEWF+$EWBWORK,WORK ACTIVATE PROCESSOR                  W0168000

000048 94DF D049      00049        3233+WQPOSTH  NI    PCEEWF+$EWBWORK,255-$EWFWORK                             PO008000
00004C 947F B0C4      000C4        3234+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   3235          $POST PCEEWF+$EWBCMB,CMB  ACTIVATE IF WAITING ON INPUT         W0170000
000050 94FD D048      00048        3236+         NI    PCEEWF+$EWBCMB,255-$EWFCMB                               PO008000
000054 947F B0C4      000C4        3237+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
000058 98A1 C060      00060        3238 WQEXIT   LM    R10,R1,WQREGS       RELOAD REGISTERS             OY02728 W0172000

00005C 07FE                        3239          BR    LINK                 AND EXIT.                           W0174000
000060                             3240 WQREGS   DS    8F                  REGISTER SAVE AREA           OY02728 W0176000
CON      HASP LOG QUEUEING SUBROUTINE                                                                          PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3242 ***************************************************************         W0180000
                                   3243 *              SUBROUTINE TO QUEUE CMB FOR HASP LOG PROCESSOR *         W0182000
                                   3244 ***************************************************************         W0184000












000080 1B00                        3246 WQUELOG  SR    R0,R0               ZERO OUT.                            W0188000
000082 4110 B110      00110        3247          LA    R1,$LOGQUE          ADDRESS OF QUEUE CONTROL.            W0190000
000086 47F0 C08E      0008E        3248          B     *+8                 FIRST TIME ONLY.                     W0192000
00008A 5811 0000      00000        3249          L     R1,0(R1)            FIND                                 W0194000
00008E 5901 0000      00000        3250          C     R0,0(R1)             QUEUE                               W0196000
000092 4770 C08A      0008A        3251          BNE   *-8                   END.                               W0198000
000096 5021 0000      00000        3252          ST    R2,0(R1)            PUT AT END.                          W0200000

00009A 5002 0000      00000        3253          ST    R0,0(R2)            ZERO LINK FIELD.                     W0202000
00009E 5810 CDB8      00DB8        3254          L     R1,=V($LOGPCE)      GET LOG'S PCE.                       W0204000
                                   3255          $POST PCEEWF+$EWBWORK-PCEDSECT(R1),WORK  $POST HIM.            W0206000
0000A2 94DF 1049      00049        3256+         NI    PCEEWF+$EWBWORK-PCEDSECT(R1),255-$EWFWORK                PO008000
0000A6 947F B0C4      000C4        3257+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000

0000AA 07FE                        3258          BR    LINK                RETURN                               W0208000


CON      HASP CONSOLE BUFFERING ROUTINE                                                                        PAGE   67



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3261 ******************************************************************      W0214000
                                   3262 *                                                                *      W0216000
                                   3263 *       THE FOLLOWING ROUTINE INITIALIZES A BUFFER FOR CONSOLE   *      W0218000
                                   3264 *       READ AND WRITE REQUESTS AND PLACES THE BUFFER INTO       *      W0220000
                                   3265 *       A QUEUE ACCORDING TO REQUEST PRIORITY.  AT ENTRANCE      *      W0222000
                                   3266 *       REGS 0 AND 1 ARE SET AS FOLLOWS-                         *      W0224000

                                   3267 *                                                                *      W0226000
                                   3268 *        R0 BYTE 0   - X'01' RESERVED FOR FUTURE USE             *      W0228000
                                   3269 *                    - X'02' ON MEANS JOB NUMBER REQUEST         *      W0230000
                                   3270 *                    - X'04' ON MEANS $WAIT NOT TO BE ISSUED     *      W0232000
                                   3271 *                    - X'08' ON MEANS BYTE 1 CONTAINS REMOTE     *      W0234000

                                   3272 *                    - X'10' ON MEANS BYTE 1 CONTAINS UCMID      *      W0236000
                                   3273 *                    - X'20' ON MEANS MESSAGE FOR HASP LOG ONLY  *      W0238000
                                   3274 *                    - X'40' RESERVED FOR FUTURE USE             *      W0240000
                                   3275 *                    - X'80' ON MEANS LAST OF POSSIBLE MLWTO     *      W0242000

                                   3276 *                                                                *      W0244000
                                   3277 *           BYTE 1   - SET ACCORDING TO BITS IN BYTE 0           *      W0246000
                                   3278 *           BYTE 2   - MESSAGE LENGTH.                           *      W0248000
                                   3279 *           BYTE 3   - CLASS OR DISPLAY AREA AND PRIORITY REQ'D. *      W0250000
                                   3280 *                                                                *      W0252000
                                   3281 *        R1 BYTE 0   - ZERO INDICATES HASP $WTO.                 *      W0254000

                                   3282 *           BYTE 1-3 - MESSAGE ADDRESS. ZERO MEANS READ REQ.     *      W0256000
                                   3283 *                                                                *      W0258000
                                   3284 *       AT EXIT THE BUFFER IS SET AS FOLLOWS-                    *      W0260000
                                   3285 *                                                                *      W0262000
                                   3286 *         WORD 0 -  LINK FIELD FOR QUEUE.                        *      W0264000

                                   3287 *         WORD 1 -                                               *      W0266000
                                   3288 *           BYTE 0   - FLAGS (SEE CMBDSECT FOR DEFINITION)       *      W0268000
                                   3289 *                1   - CONSOLES, REMOTE OR UCMID                 *      W0270000
                                   3290 *                2   - MESSAGE LENGTH                            *      W0272000
                                   3291 *                3   - CLASS AND PRIORITY                        *      W0274000

                                   3292 *                                                                *      W0276000
                                   3293 *                                                                *      W0278000
                                   3294 *        AT EXIT R1 CONTAINS ADDRESS OF CMB IF $DOMACT SPECIFIED *      W0280000
                                   3295 *                                                                *      W0282000
                                   3296 ******************************************************************      W0284000



                                   3298 ***************************************************************         W0288000
                                   3299 *              HASPCBUF FLAG BYTE BIT DEFINITIONS (R0 BYTE 0) *         W0290000
                                   3300 ***************************************************************         W0292000



                            00002  3302 WFJOBN   EQU   X'02'               JOB NUMBER REQUEST                   W0296000
                            00004  3303 WFWAIT   EQU   X'04'               NO FORCED $WAIT                      W0298000
                            00080  3304 WFTRAN   EQU   X'80'               END OF OUT OF LINE WTO (MLWTO)       W0300000
                            00008  3305 WFRMTE   EQU   X'08'               BYTE 1 CONTAINS REMOTE NUMBER        W0302000
                            00010  3306 WFUCMI   EQU   X'10'               BYTE 1 CONTAINS UCMID                W0304000
                            00020  3307 WFHLOG   EQU   X'20'               MESSAGE FOR HASP LOG ONLY            W0306000

                            00001  3308 WFSVR1   EQU   X'01'               RESERVED FOR FUTURE USE              W0308000
                            00040  3309 WFSVR2   EQU   X'40'               RESERVED FOR FUTURE USE              W0310000
                            000B8  3310 WFLOTS   EQU   WFTRAN+WFRMTE+WFUCMI+WFHLOG DEFINED FOR SHORTHAND        W0312000
                            00047  3311 WFRSET   EQU   WFJOBN+WFWAIT+WFSVR1+WFSVR2 TO RESET SPURIOUS BITS       W0314000

CON      HASP CONSOLE BUFFERING ROUTINE                                                                        PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3313 ***************************************************************         W0318000
                                   3314 *              ENTRY POINT                                    *         W0320000
                                   3315 ***************************************************************         W0322000

0000AC                             3316 HASPCBUF DS    0H                                                       W0324000
0000AC 900F CCA8      00CA8        3317          STM   R0,R15,WSAVREGS     SAVE ALL REGISTERS                   W0326000
0000B0 4370 CCA9      00CA9        3318          IC    R7,WSAVREGS+1       GET PARAMETER (BYTE 1 OF R0)         W0328000
0000B4 91B8 CCA8      00CA8        3319          TM    WSAVREGS,WFLOTS     TEST FOR LOGICAL CONSOLES            W0330000
0000B8 4740 C106      00106        3320          BM    WINILBUF            BYPASS LIST SCREEN IF NOT            W0332000
0000BC 9180 CCAB      00CAB        3321          TM    WSAVREGS+R0*4+3,$DOMACT IS $DOMACT ON                    W0334000
0000C0 4710 C106      00106        3322          BO    WINILBUF            BYPASS LIST SCREEN IF NOT            W0336000

                                   3323 ***************************************************************         W0338000
                                   3324 *              SCREEN LOGICAL CONSOLES AGAINST LIST LEVELS    *         W0340000
                                   3325 ***************************************************************         W0342000

0000C4 1B77                        3326          SR    R7,R7               CLEAR                                W0344000
0000C6 1867                        3327          LR    R6,R7                WORK                                W0346000
0000C8 1857                        3328          LR    R5,R7                 REGISTERS                          W0348000
0000CA 4350 CCAB      00CAB        3329          IC    R5,WSAVREGS+3       GET CLASS AND PRIORITY               W0350000
0000CE 8850 0004      00004        3330          SRL   R5,4                R5 = CLASS                           W0352000

0000D2 4120 0001      00001        3331          LA    R2,1                R2 = CONSOLE TEST BIT                W0354000
0000D6 1842                        3332          LR    R4,R2               R4 = LIST LEVEL TABLE INDEX          W0356000
0000D8 4130 0080      00080        3333          LA    R3,128              R3 = LIMIT FOR BXLE LOOP             W0358000
0000DC 4420 C214      00214        3334 WTESTCON EX    R2,WEXWTM           TEST FOR LOGICAL CONSOLE             W0360000
0000E0 4780 C0F0      000F0        3335          BZ    WINCRTST            TRY NEXT IF NOT SPECIFIED            W0362000
0000E4 4364 C21B      0021B        3336          IC    R6,WCNLSTBL-1(R4)   GET CORRESPONDING LIST LEVEL         W0364000
0000E8 1556                        3337          CLR   R5,R6               COMPARE SPECIFIED WITH TABLE         W0366000
0000EA 47D0 C0F0      000F0        3338          BNH   WINCRTST            BRANCH IF EXCLUDED                   W0368000

0000EE 1672                        3339          OR    R7,R2               BUILD NEW LOGICAL CONSOLES           W0370000
0000F0 4140 4001      00001        3340 WINCRTST LA    R4,1(,R4)           INCREMENT TABLE INDEX                W0372000

0000F4 8722 C0DC      000DC        3341          BXLE  R2,R2,WTESTCON      TEST ALL LOGICAL CONSOLES            W0374000
0000F8 1277                        3342          LTR   R7,R7               ANY CONSOLES LEFT                    W0376000
0000FA 4770 C106      00106        3343          BNZ   WINILBUF            BRANCH IF THERE ARE...               W0378000
0000FE 9102 CCA8      00CA8        3344          TM    WSAVREGS,WFJOBN     WAS JOB NO. REQUESTED                W0380000
000102 4780 C208      00208        3345          BZ    WQUERET             EXIT IF NONE OF ABOVE                W0382000

                                   3346 ***************************************************************         W0384000
                                   3347 *              INITIALIZE BUFFER FOR PROCESSING               *         W0386000
                                   3348 ***************************************************************         W0388000
                            00000  3349          USING CMBDSECT,R2                                              W0390000
000106                             3350 WINILBUF DS    0H                                                       W0392000
000106 5820 B108      00108        3351          L     R2,$FREEQUE         GET AVAILABLE BUFFER                 W0394000
00010A 9240 2008      00008        3352          MVI   CMBMSG,C' '         FILL MESSAGE AREA                    W0396000
00010E D282 2009 2008 00009 00008  3353          MVC   CMBMSG+1(L'CMBMSG-1),CMBMSG WITH BLANKS                  W0398000
000114 4000 2006      00006        3354          STH   R0,CMBMSGL          SET MESSAGE LENGTH/CLASS/PRI         W0400000

000118 4270 2005      00005        3355          STC   R7,CMBCONS          SET PARAMETER BYTE                   W0402000

                                   3356 ***************************************************************         W0404000
                                   3357 *              PUT TIME INTO MESSAGE                          *         W0406000
                                   3358 ***************************************************************         W0408000
00011C                             3359 WITSHASP DS    0H                                                       W0410000
00011C 4110 0002      00002        3360          LA    R1,2                ASK FOR PACKED DECIMAL               W0412000

000120 5830 0010      00010        3361          L     R3,$CVTPTR          CVT ADDRESS FOR TIMER                W0414000
000124 4150 B104      00104        3362          LA    R5,$TIMEARG-36      FAKE SVRB ADDR FOR IGC011            W0416000
000128 5860 B130      00130        3363          L     R6,$TIMENT          TIMER'S ADDRESS                      W0418000
00012C 05E6                        3364          BALR  R14,R6              GET THE TIME                         W0420000
                            0012E  3365          USING *,R14                                                    W0422000
00012E 981F EB7E      00CAC        3366          LM    R1,R15,WSAVREGS+4   RESTORE REGISTERS                    W0424000
                                   3367          DROP  R14                                                      W0426000
CON      HASP CONSOLE BUFFERING ROUTINE                                                                        PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000132 5820 B108      00108        3368          L     R2,$FREEQUE         RESTORE R2                           W0428000

000136 5000 C218      00218        3369          ST    R0,WPKTIME          STORE PACKED TIME                    W0430000

00013A D209 2008 CDDC 00008 00DDC  3370          MVC   CMBMARK(10),=X'4021204B20204B202040' EDIT PATTERN        W0432000
000140 DE09 2008 C218 00008 00218  3371          ED    CMBMARK(10),WPKTIME EDIT IN TIME                         W0434000
000146 925B 2008      00008        3372          MVI   CMBMARK,C'$'        FLAG AS HASP WTO                     W0436000
00014A 9500 CCAC      00CAC        3373          CLI   WSAVREGS+4,0        TEST FOR $WTO OR WTO                 W0438000

00014E 4780 C158      00158        3374          BE    WPUTJOBN            BRANCH IF $WTO                       W0440000
000152 D200 2008 CCAC 00008 00CAC  3375          MVC   CMBMARK(1),WSAVREGS+4 SET TO BLANK OR L                  W0442000
                                   3376 ***************************************************************         W0444000
                                   3377 *              PUT IN JOB NUMBER IF REQUIRED                  *         W0446000
                                   3378 ***************************************************************         W0448000
000158                             3379 WPUTJOBN DS    0H                                                       W0450000
000158 41E0 000A      0000A        3380          LA    R14,CMBJOBNO-CMBMSG ADJUST LENGTH WITHOUT JOB NUM.       W0452000
00015C 9102 CCA8      00CA8        3381          TM    WSAVREGS,WFJOBN     TEST FOR JOB NUMBER REQUIRED         W0454000
000160 4780 C174      00174        3382          BZ    WMOVE               BRANCH IF NOT                        W0456000
000164 D202 2012 CDBC 00012 00DBC  3383          MVC   CMBJOBNO(3),=C'JOB ' PUT IT IN                           W0458000
00016A D203 2016 A06C 00016 0006C  3384          MVC   CMBJOBNO+4(4),JCTJOBEB MESSAGE                           W0460000

000170 41E0 0013      00013        3385          LA    R14,CMBTEXT-CMBMSG  ADJUST FOR JOB NUMBER                W0462000
                                   3386 ***************************************************************         W0464000
                                   3387 *              MOVE MESSAGE INTO BUFFER                       *         W0466000
                                   3388 ***************************************************************         W0468000

000174                             3389 WMOVE    DS    0H                                                       W0470000
000174 1B11                        3390          SR    R1,R1               GET ORIGINAL                         W0472000
000176 4310 2006      00006        3391          IC    R1,CMBMSGL           MESSAGE LENGTH                      W0474000
00017A 0610                        3392          BCTR  R1,0                  MINUS ONE...                       W0476000
00017C 41F0 0083      00083        3393          LA    R15,CMBEND-CMBDSECT-9 CMB LENGTH -1 -7 -1        OY05859 W0476200
000180 1BFE                        3394          SR    R15,R14             SUBTRACT START LOC -1 -7     OY05859 W0476400
000182 19F1                        3395          CR    R15,R1              COMPARE W/ PLANNED LNG -1    OY05859 W0476600
000184 4720 C18A      0018A        3396          BH    *+6                 TOO LONG?                    OY05859 W0476800
000188 181F                        3397          LR    R1,R15              TRUNCATE                     OY05859 W0477000
00018A 58F0 CCAC      00CAC        3398          L     R15,WSAVREGS+4      GET MESSAGE ADDRESS                  W0478000
00018E 41EE 2001      00001        3399          LA    R14,1(R14,R2)       GET INDEX TO MOVE INTO               W0480000
000192 4410 C20E      0020E        3400          EX    R1,WEXMVC           MOVE IN MESSAGE                      W0482000

000196 1EE1                        3401          ALR   R14,R1              GET INDEX OF LAST CHARACTER          W0484000
000198 91BF E007      00007        3402          TM    7(R14),X'BF'        TEST CHARACTER                       W0486000
00019C 4770 C1A4      001A4        3403          BNZ   *+8                 BRANCH IF NOT BLANK OR ZERO          W0488000

0001A0 46E0 C198      00198        3404          BCT   R14,*-8             CHECK NEXT CHARACTER                 W0490000
0001A4 1FE2                        3405          SLR   R14,R2              COMPUTE NEW LENGTH                   W0492000
0001A6 42E0 2006      00006        3406          STC   R14,CMBMSGL         STORE NEW LENGTH                     W0494000
                                   3407 ***************************************************************         W0496000
                                   3408 *              MAP INPUT FLAGS TO BUFFER AND QUEUE IT         *         W0498000
                                   3409 ***************************************************************         W0500000
0001AA 41E0 C208      00208        3410          LA    LINK,WQUERET        SET RETURN ADDRESS                   W0502000
0001AE D200 2004 CCA8 00004 00CA8  3411          MVC   CMBFLAGS(1),WSAVREGS SET FLAGS ACCORDING TO INPUT        W0504000
0001B4 94B8 2004      00004        3412          NI    CMBFLAGS,255-WFRSET   AND RESET SPURIOUS BITS            W0506000
0001B8 91B8 2004      00004        3413          TM    CMBFLAGS,WFLOTS     $DOMACT POSSIBLE                     W0508000
0001BC 4770 C1CC      001CC        3414          BNZ   WDOMRET             IF NOT SKIP NEXT                     W0510000
0001C0 9180 2007      00007        3415          TM    CMBCLASS,$DOMACT    IS IT $DOMACT                        W0512000

0001C4 4780 C1CC      001CC        3416          BZ    WDOMRET             SKIP NEXT IF NOT                     W0514000

0001C8 5020 CCAC      00CAC        3417          ST    R2,WSAVREGS+4       SET REGISTER 1 RETURN                W0516000
0001CC                             3418 WDOMRET  DS    0H                                                       W0518000

0001CC D203 B108 2000 00108 00000  3419          MVC   $FREEQUE,CMBCHAIN   REMOVE FROM QUEUE                    W0520000
0001D2 9120 CCA8      00CA8        3420          TM    WSAVREGS,WFHLOG     TEST FOR HASP LOG ONLY               W0522000
0001D6 4710 C080      00080        3421          BO    WQUELOG             BRANCH IF FOR HASP LOG               W0524000
0001DA 9108 CCA8      00CA8        3422          TM    WSAVREGS,WFRMTE     TEST FOR REMOTE                      W0526000
CON      HASP CONSOLE BUFFERING ROUTINE                                                                        PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0001DE 4710 C000      00000        3423          BO    $WQUEBUF            BRANCH IF REMOTE                     W0528000
0001E2 9102 CCA8      00CA8        3424          TM    WSAVREGS,WFJOBN     TEST FOR JOB NUMBER                  W0530000
0001E6 4780 C1FA      001FA        3425          BZ    WTESTQUE            BRANCH IF NOT REQUESTED              W0532000
0001EA 9500 2005      00005        3426          CLI   CMBCONS,0           ANY LOGICAL CONSOLES LEFT            W0534000
0001EE 4770 C080      00080        3427          BNE   WQUELOG             BRANCH IF YES TO LOG                 W0536000
0001F2 92D5 2008      00008        3428          MVI   CMBMSG,C'N'         TELL LOG PROCESSOR ABOUT             W0538000

0001F6 47F0 C080      00080        3429          B     WQUELOG             LACK OF ANYPLACE TO GO               W0540000

0001FA 9500 2005      00005        3430 WTESTQUE CLI   CMBCONS,0           ANY LOGICAL CONSOLES LEFT            W0542000
0001FE 4770 C000      00000        3431          BNE   $WQUEBUF            BRANCH IF YES...                     W0544000

000202 1812                        3432          LR    R1,R2                OTHERWISE FREE                      W0546000
000204 47F0 B09C      0009C        3433          B     $FREEMSG              THE BUFFER...                      W0548000
000208 980F CCA8      00CA8        3434 WQUERET  LM    R0,R15,WSAVREGS     RESTORE                              W0550000
00020C 07FE                        3435          BR    LINK                 RETURN                              W0552000
                                   3436 ***************************************************************         W0554000
                                   3437 *              MISCELLANEOUS ITEMS                            *         W0556000
                                   3438 ***************************************************************         W0558000
00020E D200 E007 F000 00007 00000  3439 WEXMVC   MVC   7(*-*,R14),0(R15)   TO MOVE MESSAGE                      W0560000
000214 9100 CCA9      00CA9        3440 WEXWTM   TM    WSAVREGS+1,0        TO TEST LOGICAL CONSOLES             W0562000
000218                             3441 WPKTIME  DS    F                   WORK AREA                            W0564000



                                   3443 ***************************************************************         W0568000

                                   3444 *              LIST LEVEL TABLE FOR LOGICAL CONSOLES          *         W0570000
                                   3445 ***************************************************************         W0572000




                            0021C  3447 WCNLSTBL EQU   *                                                        W0576000
00021C 00                          3448          DC    AL1(*-*)            $LOG                                 W0578000
00021D 00                          3449          DC    AL1(*-*)            $ERR                                 W0580000
00021E 00                          3450          DC    AL1(*-*)            $UR                                  W0582000
00021F 00                          3451          DC    AL1(*-*)            $TP                                  W0584000
000220 00                          3452          DC    AL1(*-*)            $TAPE                                W0586000
000221 00                          3453          DC    AL1(*-*)            $MAIN                                W0588000
000222 00                          3454          DC    AL1(*-*)            $SPARE1                              W0590000
000223 00                          3455          DC    AL1(*-*)            $SPARE2                              W0592000
000224                             3456          DS    0H                                                       W0594000



                                   3458          DROP  R2                                                       W0598000



CON      HASP CONSOLE PROCESSOR  --  COMMUNICATIONS TASK ROUTINE                                               PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   3462 ******************************************************************      W0606000
                                   3463 *                                                                *      W0608000
                                   3464 *        THIS CODE, WHILE A PART OF HASP, OPERATES UNDER THE     *      W0610000
                                   3465 *        CONTROL OF THE HASP COMMUNICATIONS TASK TO DEQUEUE      *      W0612000
                                   3466 *        OPERATOR MESSAGES GENERATED BY HASP AND PASS SUCH       *      W0614000
                                   3467 *        MESSAGES, VIA 'WTO' TO OS FOR PROCESSING. THIS CODE     *      W0616000
                                   3468 *        IS ACTIVATED BY A HASP 'POST', INDICATING ONE OR        *      W0618000
                                   3469 *        MORE MESSAGES HAS BEEN QUEUED FOR PROCESSING.           *      W0620000
                                   3470 *        THIS ROUTINE THEN --                                    *      W0622000
                                   3471 *                                                                *      W0624000

                                   3472 *              1. DEQUEUES THE MESSAGE FROM THE HASP QUEUE.      *      W0626000
                                   3473 *                                                                *      W0628000
                                   3474 *              2. CONVERTS THE HASP ROUTING, CLASS, AND AREA     *      W0630000
                                   3475 *                 TO OS EQUIVALENT AS REQUIRED.                  *      W0632000

                                   3476 *                                                                *      W0634000
                                   3477 *              3. FOR ACTION MESSAGES ISSUES AN OS 'WTO'         *      W0636000
                                   3478 *                 QUEUES THE CMB TO $DOMQUE FOR $DOM SERVICE.    *      W0638000
                                   3479 *                 ( IF $DOM COMES BEFORE QUEUING ISSUES AN OS    *      W0640000
                                   3480 *                 'DOM' AND FREES THE CMB. )                     *      W0642000
                                   3481 *                                                                *      W0644000

                                   3482 *              4. FOR NON-ACTION MESSAGES FREES THE CMB, POSTS   *      W0646000
                                   3483 *                 HASP IF REQUIRED, AND ISSUES OS 'WTO'.         *      W0648000
                                   3484 *                                                                *      W0650000
                                   3485 *              5. CONTINUES THE ABOVE STEPS UNTIL THE HASP       *      W0652000
                                   3486 *                 MESSAGE QUEUE IS EXHAUSTED.                    *      W0654000
                                   3487 *                                                                *      W0656000
                                   3488 *              6. ENTERS AN OS 'WAIT' STATE TO AWAIT ANOTHER     *      W0658000
                                   3489 *                 'POST' BY HASP.                                *      W0660000

                                   3490 *                                                                *      W0662000
                                   3491 *        NOTE THAT ONCE THIS PROCESSOR BEGINS A MLWTO FOR THE    *      W0664000

                                   3492 *        COMMAND PROCESSOR, ALL OTHER WTO (NON UCMID) REQUESTS   *      W0666000
                                   3493 *        ARE DELAYED UNTIL THE END LINE IS SENT.                 *      W0668000
                                   3494 *                                                                *      W0670000
                                   3495 ******************************************************************      W0672000
CON      HASP CONSOLE PROCESSOR  --  COMMUNICATIONS TASK ROUTINE                                               PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3497 $HASPWTO NULL  *                   INITIAL ENTRY POINT FROM ATTACH      W0676000
000224                             3498+$HASPWTO DS    0H                                                       NU006000

000224 05C0                        3499          BALR  BASE2,0             ESTABLISH                            W0678000
                            00226  3500          USING *,BASE2              BASE                                W0680000
000226 98BC CB02      00D28        3501          LM    BASE1,BASE2,WBASES  LOAD NORMAL BASES                    W0682000
                            00000  3502          USING HASPCON,BASE2                                            W0684000
                                   3503          POST  (WA)                POST HASP INITIALIZATION             W0686000

00022A 1B00                        3504+         SR    0,0                    . SET POST CODE REG ZERO          00640021
00022C 4110 2000      00000        3505+         LA    1,0(0,WA)              . LOAD ECB REG 1, CLEAR HI BYTE   02250021
000230 0A02                        3506+         SVC   2                      . ISSUE THE POST SVC              08250021

000232 47F0 C248      00248        3507          B     WTOWAIT             GO WAIT FOR HASP POST                W0688000
                                   3508 WTOQMT   NULL  *                   MESSAGE QUEUE EMPTY                  W0690000
000236                             3509+WTOQMT   DS    0H                                                       NU006000
000236 9200 C510      00510        3510          MVI   $WTOECB,0           RESET POST FLAG                      W0692000
                                   3511          $ENABLE ALL               ALLOW INTERRUPTS                     W0694000
00023A 8000 B0C8      000C8        3512+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
00023E 9104 B0C2      000C2        3513          TM    $STATUS,$SYSEXIT    TEST FOR WITHDRAWAL OF HASP          W0696000

000242 4780 C248      00248        3514          BZ    WTOWAIT             WAIT FOR MORE MESSAGES               W0698000
000246 0A03                        3515          SVC   3                   EXIT TO TERMINATE TASK               W0700000
                                   3516 WTOWAIT  WAIT  ECB=$WTOECB         WAIT FOR HASP POST                   W0702000
000248 4110 C510      00510        3517+WTOWAIT  LA    1,$WTOECB                         LOAD PARAMETER REG 1   00100000
00024C 4100 0001      00001        3518+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017

000250 0A01                        3519+         SVC   1                                 LINK TO WAIT ROUTINE   00280000



                                   3521 WTODQ    NULL  *                   REMOVE NEXT MESSAGE FROM QUEUE       W0706000
000252                             3522+WTODQ    DS    0H                                                       NU006000

                                   3523          $DISABLE ALL              PROTECT QUEUE FROM HASP              W0708000
000252 8000 B0C9      000C9        3524+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
000256                             3525 WSBSYQ   DS    0H                                                       W0710000
000256 4110 B10C      0010C        3526          LA    R1,$BUSYQUE         ADDRESS OF BUSY QUEUE POINTER        W0712000
                            00000  3527          USING CMBDSECT,R1         ESTABLISH CMB ADDRESSABILITY         W0714000
00025A 1821                        3528 WTOSRCH  LR    WA,R1               SAVE POINTER TO PREVIOUS             W0716000

                                   3529 *        ICM   R1,7,CMBCHAIN+1     GET NEXT BUFFER ON CHAIN        RFIT W0718000
00025C 5810 1000      00000        3530          L     R1,CMBCHAIN                                         RFIT W0718005
000260 4110 1000      00000        3531          LA    R1,0(,R1)                                           RFIT W0718010
000264 1211                        3532          LTR   R1,R1                                               RFIT W0718015
000266 4780 C236      00236        3533          BZ    WTOQMT              BRANCH IF NOT TO WAIT FOR WORK       W0720000

00026A 9108 1004      00004        3534          TM    CMBFLAGS,WCMBFG     TEST FOR REMOTE MESSAGE              W0722000
00026E 4770 C25A      0025A        3535          BNZ   WTOSRCH             IGNORE IF REMOTE MESSAGE             W0724000
000272 9500 C51C      0051C        3536          CLI   WCONNECT,0          IS MLWTO IN PROCESS                  W0726000
000276 4780 C282      00282        3537          BZ    WTONRMOK            IF NOT ALL WTOS ARE OK               W0728000
00027A 9110 1004      00004        3538          TM    CMBFLAGS,WCMBFF     IS THIS PART OF MLWTO                W0730000

00027E 4780 C25A      0025A        3539          BZ    WTOSRCH             IGNORE IF NOT                        W0732000
000282                             3540 WTONRMOK DS    0H                                                       W0734000
000282 D203 2000 1000 00000 00000  3541          MVC   CMBCHAIN-CMBDSECT(4,WA),CMBCHAIN UPDATE CHAIN POINTER    W0736000
                                   3542          $ENABLE ALL               NOW ALLOW INTERRUPTS                 W0738000
000288 8000 B0C8      000C8        3543+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000

00028C D205 C4F8 C516 004F8 00516  3544          MVC   WTODESC(L'WTODESC+L'WTOROUTE+L'WTOLINET),WTODRSTN        W0740000
000292 D201 C472 C514 00472 00514  3545          MVC   WTOMCS,WMCSSTAN     RESET TO STANDARD                    W0742000
000298 1B33                        3546          SR    WB,WB               INITIALIZE                           W0744000
00029A 1823                        3547          LR    WA,WB               INITIALIZE                           W0746000
00029C 4100 007F      0007F        3548          LA    R0,127              SET MAXIMUM TEXT LENGTH - 1          W0748000

0002A0 4320 1005      00005        3549          IC    WA,CMBCONS          HASP ROUTING BITS(OR UCM-ID)         W0750000
CON      HASP CONSOLE PROCESSOR  --  COMMUNICATIONS TASK ROUTINE                                               PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0002A4 9110 1004      00004        3550          TM    CMBFLAGS,WCMBFF     IS UCM-ID SPECIFIED...               W0752000
0002A8 4780 C33C      0033C        3551          BZ    WTOMAP              BR IF NO                             W0754000
0002AC 1832                        3552          LR    WB,WA               PRESERVE UCM-ID                      W0756000

0002AE 9660 C472      00472        3553          OI    WTOMCS,WOSUCMF      SET UCMID AND RESPONSE               W0758000
0002B2 91F0 1007      00007        3554          TM    CMBCLASS,X'F0'      TEST OUT OF LINE (MLWTO)             W0760000
0002B6 4780 C35A      0035A        3555          BZ    WTOWTO              IF NOT DO NORMAL                     W0762000
0002BA 4320 1007      00007        3556          IC    WA,CMBCLASS         PICK UP AREA + EXTRA                 W0764000

0002BE 8A20 0004      00004        3557          SRA   WA,4                ALIGN                                W0766000
0002C2 4142 C51F      0051F        3558          LA    WC,WTOLATAB(WA)     POINT TO SHORT CONVERT TABLE         W0768000
0002C6 D200 C4FE 4000 004FE 00000  3559          MVC   WTOLAREA,0(WC)      SET AREA ID                          W0770000
0002CC 9200 1007      00007        3560          MVI   CMBCLASS,0          ZERO OUT AREA                        W0772000
0002D0 4100 0021      00021        3561          LA    R0,33               SET MAXIMUM FOR CONTROL LINE         W0774000

0002D4 9640 C473      00473        3562          OI    WTOMCS+1,WMCSML     SET MLWTO FLAG                       W0776000
0002D8 9201 C4F8      004F8        3563          MVI   WTODESC,WDOUTLN     SET DESCRIPTOR HIGH BYTE             W0778000
0002DC 9280 C4F9      004F9        3564          MVI   WTODESC+1,WDCONTID  SET TO DISPLAY CONTROL ID            W0780000
0002E0 9500 C51C      0051C        3565          CLI   WCONNECT,0          IS THIS CONTINUATION                 W0782000
0002E4 4780 C35A      0035A        3566          BZ    WTOWTO              ALLOW TIME STAMP MOVE IF NOT         W0784000
0002E8 97A0 C4FC      004FC        3567          XI    WTOLINET,WLTCONT+WLTDATA CONTROL OFF, DATA ON            W0786000
0002EC 9180 1004      00004        3568          TM    CMBFLAGS,WCMBFD     IS THIS END LINE                     W0788000

0002F0 4780 C2FC      002FC        3569          BZ    WLTSKP1             SKIP NEXT IF NOT                     W0790000
0002F4 9610 C4FC      004FC        3570          OI    WTOLINET,WLTEND     TURN ON END INDICATOR                W0792000
0002F8 94DF C4FC      004FC        3571          NI    WTOLINET,X'FF'-WLTDATA  TURN OFF DATA INDICATOR     RFIT W0792010

0002FC 4320 1006      00006        3572 WLTSKP1  IC    WA,CMBMSGL          PICK UP LENGTH                       W0794000
000300 4100 000B      0000B        3573          LA    R0,CMBJOBNO-CMBMSG+1 GET ADJUSTMENT                      W0796000
000304 1B20                        3574          SR    WA,R0               GET MOVE COUNT                       W0798000
000306 4770 C30E      0030E        3575          BNZ   WLTSKP2             SKIP NEXT IF NOT NULL                W0800000
00030A 94DF C4FC      004FC        3576          NI    WTOLINET,255-WLTDATA TURN OFF DATA                       W0802000

                                   3577 * A SINGLE CHARACTER LINE IS CONSIDERED NULL                            W0804000
00030E 4100 0045      00045        3578 WLTSKP2  LA    R0,69               SET MAXIMUM CONTINUATION             W0806000
000312 1920                        3579          CR    WA,R0               TRUNCATE REQUIRED                    W0808000
000314 47D0 C31A      0031A        3580          BNH   WLTSKP3             SKIP IF NOT                          W0810000
000318 1820                        3581          LR    WA,R0               TRUNCATE                             W0812000
00031A 4420 C336      00336        3582 WLTSKP3  EX    WA,WLTMVC           MOVE ( TIME STAMP NOT MOVED )        W0814000
                                   3583 *        ICM   WB,14,WCONNECT+1    PICK UP CONNECT ID              RFIT W0816000
00031E 1843                        3584          LR    WC,WB                                               RFIT W0816005

000320 8940 0018      00018        3585          SLL   WC,24                                               RFIT W0816010
000324 8840 0018      00018        3586          SRL   WC,24                                               RFIT W0816015

000328 5830 C51C      0051C        3587          L     WB,WCONNECT                                         RFIT W0816020
00032C 8930 0008      00008        3588          SLL   WB,8                                                RFIT W0816025
000330 1634                        3589          OR    WB,WC                                               RFIT W0816030
000332 47F0 C372      00372        3590          B     WTOWTOS             ENTER NORMAL                         W0818000
000336 D200 C474 1012 00474 00012  3591 WLTMVC   MVC   WTOMSG(*-*),CMBJOBNO MOVE TEXT                           W0820000

CON      HASP CONSOLE PROCESSOR  --  COMMUNICATIONS TASK ROUTINE                                               PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3593 WTOMAP   NULL  *                   MAP HASP ROUTING TO OS ROUTING       W0824000
00033C                             3594+WTOMAP   DS    0H                                                       NU006000
00033C 4140 C500      00500        3595          LA    WC,WTORET           ROUTING EQUIVALENCE TABLE ADDR       W0826000
                                   3596 WTOSHIFT NULL  *                   EXAMINE NEXT BIT                     W0828000
000340                             3597+WTOSHIFT DS    0H                                                       NU006000
000340 8C20 0001      00001        3598          SRDL  WA,1                BIT TO WB                            W0830000
000344 1233                        3599          LTR   WB,WB               WAS BIT ON...                        W0832000

000346 47B0 C350      00350        3600          BNM   WTONEX              BR IF NO                             W0834000

00034A D601 C4FA 4000 004FA 00000  3601          OC    WTOROUTE,0(WC)      YES...INCLUDE OS EQUIVALENT          W0836000
                                   3602 WTONEX   NULL  *                   CONTINUE                             W0838000
000350                             3603+WTONEX   DS    0H                                                       NU006000
000350 4140 4002      00002        3604          LA    WC,L'WTOROUTE(,WC)  TO NEXT TABLE ENTRY                  W0840000
000354 1222                        3605          LTR   WA,WA               ANY BITS LEFT...                     W0842000

000356 4770 C340      00340        3606          BNZ   WTOSHIFT            BR IF YES TO CONTINUE                W0844000



                                   3608 WTOWTO   NULL  *                   SEND MESSAGE                         W0848000
00035A                             3609+WTOWTO   DS    0H                                                       NU006000
                                   3610 *              INSERT ANALYSIS OF HASP CLASS AND PRIORITY HERE          W0850000
00035A 4320 1006      00006        3611          IC    WA,CMBMSGL          HASP MESSAGE LENGTH                  W0852000
00035E 0620                        3612          BCTR  WA,0                REDUCE FOR MOVE                      W0854000
000360 1920                        3613          CR    WA,R0               TRUNCATE REQUIRED                    W0856000
000362 47D0 C368      00368        3614          BNH   *+6                 SKIP NSI IF NOT                      W0858000
000366 1820                        3615          LR    WA,R0               TRUNCATE                             W0860000

000368 4220 C36D      0036D        3616          STC   WA,*+L'*+1          SET LENGTH OF MOVE                   W0862000

00036C D200 C474 1008 00474 00008  3617          MVC   WTOMSG(*-*),CMBMSG  SET TEXT IN WTO                      W0864000
000372 4120 2005      00005        3618 WTOWTOS  LA    WA,5(0,WA)          LENGTH FOR WTO                       W0866000
000376 4220 C471      00471        3619          STC   WA,WTOMSGL+1        SET COUNT IN WTO                     W0868000
00037A 4122 C470      00470        3620          LA    WA,WTOMSG-4(WA)     ADDRESS OF END OF MESSAGE            W0870000

00037E D207 2000 C4F8 00000 004F8  3621          MVC   0(WTOLSIZ,WA),WTODESC SET CONTROL FIELDS                 W0872000
000384 9180 1007      00007        3622          TM    CMBCLASS,$DOMACT    IS DOM ACTION SPECIFIED              W0874000
000388 4780 C3DC      003DC        3623          BZ    WNDOM               IF NOT DO NORMAL PROCESSING          W0876000
00038C 9240 2000      00000        3624          MVI   0(WA),WTODESCA      SET ACTION DESCRIPTION CODE          W0878000
000390 1841                        3625          LR    WC,R1               SAVE CMB POINTER                     W0880000
                                   3626          WTO   MF=(E,WTOWTOL)      SEND MESSAGE                         W0882000
000392 4110 C470      00470        3627+         LA    1,WTOWTOL                         LOAD PARAMETER REG 1   00100000
000396 0A23                        3628+         SVC   35                                ISSUE SVC              00750021
000398 5010 4008      00008        3629          ST    R1,CMBDOMID-CMBDSECT(0,WC) SAVE DOM ID                   W0884000
                                   3630          $DISABLE ALL              PREVENT INTERRUPTIONS                W0886000
00039C 8000 B0C9      000C9        3631+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000

0003A0 9180 4007      00007        3632          TM    CMBCLASS-CMBDSECT(WC),$DOMACT STILL ACTION               W0888000
0003A4 4780 C3D2      003D2        3633          BZ    WDOMFRE             BR IF NOT TO FREE CMB                W0890000
0003A8 4110 B118      00118        3634          LA    R1,$DOMQUE-(CMBCHAIN-CMBDSECT) POINT TO QUEUE HEAD       W0892000
0003AC 18F1                        3635 WDQNXT   LR    R15,R1              PULL UP THE REAR                     W0894000

                                   3636 *        ICM   R1,7,CMBCHAIN+1     POINT TO NEXT CMB               RFIT W0896000
0003AE 5810 1000      00000        3637          L     R1,CMBCHAIN                                         RFIT W0896005
0003B2 4110 1000      00000        3638          LA    R1,0(,R1)                                           RFIT W0896010
0003B6 1211                        3639          LTR   R1,R1                                               RFIT W0896015
0003B8 4780 C3C6      003C6        3640          BZ    WDQTHIS             IF END QUEUE IT NOW                  W0898000
0003BC D503 1008 4008 00008 00008  3641          CLC   CMBDOMID,CMBDOMID-CMBDSECT(WC) PUT IN                    W0900000
0003C2 4740 C3AC      003AC        3642          BL    WDQNXT               ASCENDING ORDER                     W0902000
0003C6 5040 F000      00000        3643 WDQTHIS  ST    WC,CMBCHAIN-CMBDSECT(0,R15) QUEUE IT                     W0904000
0003CA 5010 4000      00000        3644          ST    R1,CMBCHAIN-CMBDSECT(0,WC)  NOW                          W0906000
0003CE 47F0 C256      00256        3645          B     WSBSYQ              LOOK FOR MORE WORK                   W0908000
CON      HASP CONSOLE PROCESSOR  --  COMMUNICATIONS TASK ROUTINE                                               PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   3646 WDOMFRE  $ENABLE ALL               ALLOW INTERRUPTS                     W0910000
0003D2 8000 B0C8      000C8        3647+WDOMFRE  SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   3648          DOM   MSG=(1)             DOM THE MESSAGE                      W0912000

0003D6                             3649+         DS    0H                                                       08000021
0003D6 1700                        3650+         XR    0,0                                                      30000018
0003D8 0A57                        3651+         SVC   87                                                       33000018
0003DA 1814                        3652          LR    R1,WC               RESTORE CMB POINTER          OY04680 W0913000
0003DC                             3653 WNDOM    DS    0H                                                       W0914000
                                   3654          $DISABLE ALL              FOR $FREEMSG                         W0916000
0003DC 8000 B0C9      000C9        3655+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
0003E0 9140 C473      00473        3656          TM    WTOMCS+1,WMCSML     TEST FOR MLWTO                       W0918000
0003E4 4780 C406      00406        3657          BZ    WNRMFRE             IF NOT DO NORMAL FREE                W0920000
                                   3658 *        ICM   R15,15,$WCOMRES     INSURE COMM HAS A CMB           RFIT W0922000
0003E8 58F0 C530      00530        3659          L     R15,$WCOMRES                                        RFIT W0922005
0003EC 12FF                        3660          LTR   R15,R15                                             RFIT W0922010

0003EE 4770 C406      00406        3661          BNZ   WNRMFRE             SKIP RESERVATION IF COMM HAS 1       W0924000
0003F2 50F0 1000      00000        3662          ST    R15,CMBCHAIN        SET CHAIN TO ZERO                    W0926000
0003F6 5010 C530      00530        3663          ST    R1,$WCOMRES         SET COMM RESERVE BUFFER              W0928000

                                   3664          $POST $HASPECF,CMB        POST CMB                             W0930000
0003FA 94FD B0C4      000C4        3665+         NI    $HASPECF,255-$EWFCMB                                     PO008000
0003FE 59F0 B108      00108        3666          C     R15,$FREEQUE        SET CONDITION CODES                  W0932000
000402 47F0 C40A      0040A        3667          B     WPOSTH              POST HASP MAYBE                      W0934000
000406                             3668 WNRMFRE  DS    0H                                                       W0936000
000406 45E0 B09C      0009C        3669          BAL   LINK,$FREEMSG       GO FREE HASP MESSAGE                 W0938000
00040A                             3670 WPOSTH   DS    0H                                                       W0940000
                                   3671          $ENABLE ALL               OK NOW                               W0942000
00040A 8000 B0C8      000C8        3672+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
00040E 4780 C41A      0041A        3673          BZ    *+12                GO POST IF CMBS WEREN'T AVAILABLE    W0944000
000412 9500 B0C7      000C7        3674          CLI   $ACTIVE,0           TEST ACTIVE FUNCTIONS                W0946000
000416 4770 C422      00422        3675          BNZ   WTOMTOM             DON'T POST IF ANY ACTIVE             W0948000

                                   3676          POST  $HASPECB            TELL HASP BUFFER IS FREE             W0950000

00041A 1B00                        3677+         SR    0,0                    . SET POST CODE REG ZERO          00640021
00041C 4110 B0D8      000D8        3678+         LA    1,$HASPECB             . LOAD ECB ADDRESS IN REG 1       02350021

000420 0A02                        3679+         SVC   2                      . ISSUE THE POST SVC              08250021
000422 1803                        3680 WTOMTOM  LR    R0,WB               SET POSSIBLE UCMID                   W0952000
000424 9140 2000      00000        3681          TM    0(WA),WTODESCA      IS ACTION ON                         W0954000
000428 4710 C252      00252        3682          BO    WTODQ               LOOK FOR MORE WORK                   W0956000
                                   3683          WTO   MF=(E,WTOWTOL)      SEND IT                              W0958000
00042C 4110 C470      00470        3684+         LA    1,WTOWTOL                         LOAD PARAMETER REG 1   00100000
000430 0A23                        3685+         SVC   35                                ISSUE SVC              00750021
000432 9140 C473      00473        3686          TM    WTOMCS+1,WMCSML     IS THIS MLWTO                        W0960000
000436 4780 C252      00252        3687          BZ    WTODQ               LOOK FOR MORE WORK                   W0962000
00043A 4110 1000      00000        3688          LA    R1,0(0,R1)          PURIFY ID                            W0964000
00043E 5010 C51C      0051C        3689          ST    R1,WCONNECT         SET FOR NEXT                         W0966000
000442 9110 2004      00004        3690          TM    4(WA),WLTEND        TEST FOR END LINE                    W0968000

000446 4710 C452      00452        3691          BO    WRLSERES            IF END RELEASE RESERVED              W0970000
00044A 92FF C51C      0051C        3692          MVI   WCONNECT,255        SET FLAGS                            W0972000

00044E 47F0 C252      00252        3693          B     WTODQ               GO CHECK FOR MORE                    W0974000

                                   3694 WRLSERES $DISABLE ALL                                                   W0976000
000452 8000 B0C9      000C9        3695+WRLSERES SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
                                   3696 *        ICM   R1,15,$WCOMRES      TEST FOR RESERVED BUFFER        RFIT W0978000
000456 5810 C530      00530        3697          L     R1,$WCOMRES                                         RFIT W0978005
00045A 1211                        3698          LTR   R1,R1                                               RFIT W0978010
00045C 4780 C256      00256        3699          BZ    WSBSYQ              GET MORE WORK                        W0980000
000460 9240 2000      00000        3700          MVI   0(WA),WTODESCA      FAKE ACTION WTO ISSUED               W0982000
CON      HASP CONSOLE PROCESSOR  --  COMMUNICATIONS TASK ROUTINE                                               PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000464 D703 C530 C530 00530 00530  3701          XC    $WCOMRES,$WCOMRES   MAKE SURE ZERO                       W0984000
00046A 47F0 C406      00406        3702          B     WNRMFRE             FREE THIS BUFFER                     W0986000
CON      HASP CONSOLE PROCESSOR  --  COMMUNICATIONS TASK ROUTINE                                               PAGE   77



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3704 WTOWTOL  WTO   'THIS IS TO OBTAIN A SAMPLE EXPANSION OF THE OS/360 WTO CW0990000
                                                       MACRO. THIS ACTUAL EXPANSION IS NOT USED BUT IS PROVIDEDCW0992000

                                                        FOR COMPARISON ONLY.',                                 CW0994000
                                                       MF=L,                                                   CW0996000
                                                       ROUTCDE=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15),          CW0998000
                                                       DESC=2                                                   W1000000
000470                             3705+WTOWTOL  DS    0F                                                       01050021
000470 0088                        3706+         DC    AL2(136)            TEXT LENGTH                          11950021
000472 8000                        3707+         DC    B'1000000000000000' MCS FLAGS                            12000021
000474 E3C8C9E240C9E240            3708+         DC    C'THIS IS TO OBTAIN A SAMPLE EXPANSION OF THE OS/360 WTOX12100021
00047C E3D640D6C2E3C1C9                +                MACRO. THIS ACTUAL EXPANSION IS NOT USED BUT IS PROVIDEX
000484 D540C140E2C1D4D7                +               D FOR COMPARISON ONLY.'
0004F8 4000                        3709+         DC    B'0100000000000000' DESCRIPTOR CODES                     12200021
0004FA FFFE                        3710+         DC    B'1111111111111110' ROUTING CODES                        12250021

                            004FC  3711 WTOWTOE  EQU   *                   END OF EXPANSION                     W1002000



0004FC                      00470  3713          ORG   WTOWTOL             BACK TO TOP                          W1006000
000470                             3714 WTOMSGL  DS    H                   MESSAGE LENGTH                       W1008000

000472                             3715 WTOMCS   DS    BL.16               MCSFLAGS                             W1010000
000474                             3716 WTOMSG   DS    CL132               TEST AREA                            W1012000
0004F8                             3717 WTODESC  DS    BL.16               DESCRIPTOR CODE                      W1014000
0004FA                             3718 WTOROUTE DS    BL.16               ROUTING CODES                        W1016000
                            004FC  3719 WTOMSGE  EQU   *                   THIS SHOULD AGREE WITH WTOWTOE       W1018000
                            00000  3720 WTOTESTA EQU   WTOWTOE-WTOMSGE     SHOULD BE ZERO                       W1020000

                            00000  3721 WTOTESTB EQU   WTOMSGE-WTOWTOE     SHOULD ALSO BE ZERO                  W1022000
0004FC                             3722          DC    0Y(WTOTESTA),0Y(WTOTESTB)  TEST FOR ZEROS                W1024000
                                   3723 *        IF THE ABOVE INSTRUCTION IS FLAGGED,                           W1026000
                                   3724 *        THE CODE NO LONGER CORRESPONDS TO THE OS/WTO MACRO FORMAT      W1028000
                                   3725 *        AND MUST BE CORRECTED APPROPIATELY...                          W1030000



                                   3727 *        EXTENSIONS FOR MLWTO                                           W1034000



0004FC 0000                        3729 WTOLINET DC    B'0000000000000000' LINE TYPE FIELD                      W1038000
0004FE 00                          3730 WTOLAREA DC    X'0'                AREA ID                              W1040000

0004FF 01                          3731          DC    X'1'                NUMBER OF LINES                      W1042000
                            00008  3732 WTOLSIZ  EQU   *-WTODESC           LENGTH OF MOVABLE FIELDS             W1044000
CON      HASP CONSOLE PROCESSOR  --  COMMUNICATIONS TASK ROUTINE                                               PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   3735 *                                                                       W1050000
                                   3736 *              H A S P / O S  --  ROUTING EQUIVALENCE TABLE  --         W1052000

                                   3737 *                                                                       W1054000
                                   3738 *              THE TABLE BELOW REFLECTS THE OS/MCS CONSOLE ROUTING      W1056000
                                   3739 *              BITS WHICH WILL BE USED TO CORRESPOND WITH THE HASP      W1058000
                                   3740 *              LOGICAL CONSOLE ROUTING BITS AS INDICATED...             W1060000
000500                             3741 WTORET   DS    0H                  TABLE START                          W1062000

000500 0000                        3742          DC    X'0000'             HASP LOG = (FUNCTION DONE BY HRDCPY) W1064000
000502 0040                        3743          DC    X'0040'             HASP ERROR = SYSTEM ERROR/MAINT.     W1066000
000504 0200                        3744          DC    X'0200'             HASP UR = UNIT RECORD POOL           W1068000

000506 0100                        3745          DC    X'0100'             HASP TP = TELEPROCESSING CONTROL     W1070000
000508 3C00                        3746          DC    X'3C00'             HASP TAPE = DA AND TAPE POOL         W1072000
                                   3747 *                                        AND = DA AND TAPE LIBRARY      W1074000
00050A C000                        3748          DC    X'C000'             HASP MAIN = MASTER CONSOLE           W1076000
                                   3749 *                                        AND = MASTER INFORMATIONAL     W1078000
00050C 0008                        3750          DC    X'0008'             HASP SPARE1 = OS USER1               W1080000
00050E 0004                        3751          DC    X'0004'             HASP SPARE2 = OS USER2               W1082000






000510 00000000                    3753 $WTOECB  DC    F'0'                SYNCHRONIZATION ECB                  W1086000
                            00060  3754 WOSUCMF  EQU   B'01100000'         MCS UCMID AND RESPONSE               W1088000
                            00040  3755 WMCSML   EQU   B'01000000'         MCS+1 MLWTO FLAG                     W1090000

000514 8000                        3756 WMCSSTAN DC    B'1000000000000000' STANDARD MCSFLAGS                    W1092000
000516 1000                        3757 WTODRSTN DC    B'0001000000000000' STANDARD DESCRIPTOR CODES            W1094000
                            00040  3758 WTODESCA EQU   B'01000000'         ACTION DESCRIPTION CODE              W1096000
                            00001  3759 WDOUTLN  EQU   B'00000001'         DESCRIPTION FOR OUT OF LINE          W1098000

                            00080  3760 WDCONTID EQU   B'10000000'         DESCRIPTION + 1 CONTROL ID           W1100000
000518 0000                        3761          DC    B'0000000000000000' STANDARD ROUTING CODES               W1102000
00051A 8000                        3762          DC    B'1000000000000000' LINE TYPE ( CONTROL LINE )           W1104000
                            00080  3763 WLTCONT  EQU   B'10000000'         CONTROL LINE                         W1106000
                            00020  3764 WLTDATA  EQU   B'00100000'         DATA LINE                            W1108000
                            00010  3765 WLTEND   EQU   B'00010000'         END LINE                             W1110000

00051C 00000000                    3766 WCONNECT DC    F'0'                CONNECT ID AND FLAGS (MLWTO)         W1112000
                            0051F  3767 WTOLATAB EQU   *-1                                                      W1114000
000520 C1C2C3C4C5C6C7C8            3768          DC    C'ABCDEFGHIJKLMNO'  AREA TYPES FOR MLWTO                 W1116000
                                   3769          ENTRY $WCOMRES                                                 W1118000
00052F 00

000530 00000000                    3770 $WCOMRES DC    A(*-*)              CMB RESERVED FOR COMM.               W1120000
                                   3771          DROP  R1                                                       W1122000
CON      HASP SVC 34 EXIT ROUTINE                                                                              PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3773 ******************************************************************      W1126000

                                   3774 *                                                                       W1128000
                                   3775 *        HASP SVC 34 ROUTINE                                            W1130000
                                   3776 *                                                                       W1132000
                                   3777 * FUNCTIONS                                                             W1134000
                                   3778 *                                                                       W1136000

                                   3779 *    (1) MAKE A SCAN OF THE CIB FOR THE PURPOSE OF DETERMINING          W1138000
                                   3780 *        THE BEGINNING AND LENGTH OF THE SOLID TEXT OF THE              W1140000
                                   3781 *        COMMAND ELIMINATING BACKSPACE CHARACTERS ( AS DEFINED          W1142000
                                   3782 *        BY HASPGEN PARAMETER $BSPACE ) ALONG WITH CORRESPONDING        W1144000
                                   3783 *        TEXT CHARACTERS.                                               W1146000

                                   3784 *                                                                       W1148000
                                   3785 *    (2) CAUSE NULL COMMANDS TO BE IGNORED.                             W1150000
                                   3786 *                                                                       W1152000
                                   3787 *    (3) FOR ALL COMMANDS RECOGNIZED TO BE THE NUMERIC FORM             W1154000
                                   3788 *        OF THE REPLY COMMAND, PERFORM THE FOLLOWING                    W1156000
                                   3789 *              A. EXPAND THE COMMAND TO 'R XX,'TEXT''.                  W1158000

                                   3790 *              B. CHECK FOR CORRESPONDING ORE AND EXTRACT THE           W1160000
                                   3791 *                 TCB ASSOCIATED WITH THE WTOR.                         W1162000
                                   3792 *              C. ATTEMPT TO ASSOCIATE THE EXTRACTED TCB WITH A         W1164000
                                   3793 *                 HASP CONTROLLED JOB AND, IF ASSOCIATION IS            W1166000

                                   3794 *                 MADE, WRITE THE EXPANDED REPLY TO THE HASP            W1168000
                                   3795 *                 JOB LOG. IF NO CMB IS AVAILABLE FOR LOGGING,          W1170000
                                   3796 *                 FORGET THE LOGGING.                                   W1172000
                                   3797 *              D. FLAG MESSAGES ON LOG WITH 'R' ID CHARACTER.           W1174000
                                   3798 *                                                                       W1176000

                                   3799 *    (4) FOR ALL COMMANDS RECOGNIZED TO BE HASP COMMANDS,               W1178000
                                   3800 *        EXTRACT THE COMMAND AUTHORITY FROM THE CONSOLE UCM             W1180000
                                   3801 *        ELEMENT AND QUEUE THE COMMAND IN A HASP CMB TO THE             W1182000
                                   3802 *        HASP COMMAND PROCESSOR. IF NO CMB IS AVAILABLE,                W1184000
                                   3803 *        OMIT QUEUING THE COMMAND AND PASS OS AN ERROR RETURN.          W1186000
                                   3804 *                                                                       W1188000
                                   3805 * EXTERNAL OS ROUTINES                                                  W1190000

                                   3806 *                                                                       W1192000
                                   3807 *        IEAVRT01 ( SPECIAL BRANCH ENTRY TO TIME ) - MUST               W1194000
                                   3808 *                 REMAIN DISABLED.                                      W1196000

                                   3809 *                                                                       W1198000
                                   3810 *        IEA0PT01 ( BRANCH ENTRY TO POST ) - MUST REMAIN DISABLED       W1200000
                                   3811 *                                                                       W1202000
                                   3812 ******************************************************************      W1204000
CON      HASP SVC 34 EXIT ROUTINE                                                                              PAGE   80



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3814 ******************************************************************      W1208000
                                   3815 *                                                                       W1210000
                                   3816 * INPUT                                                                 W1212000
                                   3817 *                                                                       W1214000
                                   3818 *        R0    = UCMID OF CONSOLE                                       W1216000
                                   3819 *        R1    = ADDRESS OF CIB ( PARAMETER LIST WITH COMMAND )         W1218000
                                   3820 *        R2    = ADDRESS OF EXTENDED SAVE AREA                          W1220000

                                   3821 *        R3    = ADDRESS OF CVT ( ALTERED AND RESTORED )                W1222000
                                   3822 *        R4-R13  VARIABLE AND PRESERVED BY THE EXIT                     W1224000

                                   3823 *        R14   = RETURN                                                 W1226000
                                   3824 *        R15   = ENTRY BASE                                             W1228000
                                   3825 *                                                                       W1230000
                                   3826 *        SYSTEM ENABLED                                                 W1232000
                                   3827 *                                                                       W1234000

                                   3828 * OS CONTROL BLOCK DEPENDENCIES                                         W1236000
                                   3829 *                                                                       W1238000
                                   3830 *        CVT   LOCKED IN                                                W1240000
                                   3831 *              UCMCUCB   POINTER TO UCM                                 W1242000
                                   3832 *                                                                       W1244000
                                   3833 *        UCM   LOCKED IN                                                W1246000
                                   3834 *              UCMVEA    CONTAINS UCMLIST CONTROL PARAMETERS            W1248000
                                   3835 *              UCMID     ID OF COMMAND ENTRY CONSOLE                    W1250000
                                   3836 *              UCMAUTH   AUTHORIZATION OF COMMAND ENTRY CONSOLE         W1252000

                                   3837 *              UCMPPYQ   OPERATOR REPLY ELEMENT (ORE) CHAIN             W1254000

                                   3838 *                                                                       W1256000
                                   3839 *        ORE   LOCKED IN                                                W1258000
                                   3840 *              OREID     REPLY ID IN EBCDIC                             W1260000
                                   3841 *              ORELKP    ADDRESS OF NEXT ORE OR ZERO                    W1262000
                                   3842 *              ORETJID1  TSO DETECTION                                  W1264000

                                   3843 *              ORETJID2  TSO DETECTION                                  W1266000
                                   3844 *              ORETCB    TCB USED FOR ASSOCIATION WITH JOB              W1268000
                                   3845 *                                                                       W1270000
                                   3846 *        CIB             ( MODIFIED IF HASP REPLY OR                    W1272000
                                   3847 *                        CONTAINS $BSPACE CHARACTER )                   W1274000
                                   3848 *                                                                       W1276000
                                   3849 * OUTPUT                                                                W1278000
                                   3850 *                                                                       W1280000
                                   3851 *        CIB IS MODIFIED TO REFLECT EXPANDED FORM OF REPLY              W1282000
                                   3852 *              R XX,'TEXT'                                              W1284000

                                   3853 *        R0-R14  SAME AS INPUT                                          W1286000

                                   3854 *        R15   = 0 - HASP COMMAND ACCEPTED FOR ACTION                   W1288000
                                   3855 *                ( COPIED TO HASP CMB FOR ACTION )                      W1290000
                                   3856 *              = 4 - NOT HASP, SVC 34 SHOULD CONTINUE                   W1292000
                                   3857 *              = 8 - HASP COMMAND BUT HASP UNABLE TO ACCEPT             W1294000

                                   3858 *                                                                       W1296000
                                   3859 *        SYSTEM ENABLED                                                 W1298000
                                   3860 *                                                                       W1300000
                                   3861 * NOTES                                                                 W1302000
                                   3862 *                                                                       W1304000
                                   3863 *        IF UCMID NOT VALID HASP COMMANDS WILL BE ACCEPTED              W1306000
                                   3864 *        WITH NO RESTRICTIONS ( IE FULL AUTHORITY )                     W1308000
                                   3865 *                                                                       W1310000
                                   3866 ******************************************************************      W1312000
CON      HASP SVC 34 EXIT ROUTINE                                                                              PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00000  3868          USING CMBDSECT,R2         BUFFER ADDRESSABILITY                W1316000

                            00000  3869          USING CVTDSECT,R3         CVT ADDRESSABILITY                   W1318000
000534                             3870 WBASE    DS    0H                  EXIT BASE WHEN USING R15             W1320000
000534                             3871 $MGCRSVC DS    0H                                                       W1322000

                            00534  3872          USING *,R15                                                    W1324000
000534 8000 F8B6      00DEA        3873 WS34ENB  SSM   =X'FF'              ENABLE                               W1326000
000538 4830 1000      00000        3874          LH    R3,0(0,R1)          EFFECTIVE LENGTH OF CIB              W1328000
00053C 4133 1005      00005        3875          LA    R3,5(R3,R1)         POINT TO END OF AREA +5              W1330000
000540 9500 3000      00000        3876          CLI   0(R3),0             REFERENCE                            W1332000
000544 8000 F011      00545        3877          SSM   *+1                 DISABLE                              W1334000
                                   3878         $LRA   R3,0(0,R3)          TEST FOR IN                     RFIT W1336000
000548 4130 3000      00000        3879+         LA    R3,0(0,R3)          VIRTUAL TRANSLATION             RFIT LR016000
00054C 1900                        3880+         CR    0,0                 CC = 0                          RFIT LR018000
00054E 4770 F000      00534        3881          BNZ   WS34ENB             LOOP                                 W1338000
                                   3882         $LRA   R3,0(0,R3)          TEST FOR IN                     RFIT W1340000

000552 4130 3000      00000        3883+         LA    R3,0(0,R3)          VIRTUAL TRANSLATION             RFIT LR016000
000556 1900                        3884+         CR    0,0                 CC = 0                          RFIT LR018000
000558 4770 F000      00534        3885          BNZ   WS34ENB             LOOP                                 W1342000
00055C 5830 0010      00010        3886          L     R3,CVTPTR           POINT TO CVT                         W1344000

000560 900E F7B4      00CE8        3887          STM   R0,R14,WSVCSAVE     SAVE ALL REGISTERS                   W1346000
000564 98BC F7F4      00D28        3888          LM    BASE1,BASE2,WBASES  GET BASE ADDRESSES                   W1348000
                                   3889          DROP  R15                                                      W1350000
                            00000  3890          USING HASPCON,BASE2                                            W1352000
000568 45E0 C57A      0057A        3891          BAL   R14,WSVC34          ENTER WORK ROUTINE                   W1354000
                                   3892 ******************************************************************      W1356000
                                   3893 *                                                                       W1358000
                                   3894 *        SVC EXIT RETURN CODE 4                                         W1360000
                                   3895 *                                                                       W1362000
                                   3896 ******************************************************************      W1364000
00056C 980E CCE8      00CE8        3897 WSVCRET4 LM    R0,R14,WSVCSAVE     RESTORE REGISTERS                    W1366000
                            00534  3898          USING WBASE,R15                                                W1368000

000570 8000 F8B6      00DEA        3899          SSM   =X'FF'              ENABLE                               W1370000
000574 41F0 0004      00004        3900          LA    R15,4               SET RETURN OF 4                      W1372000
000578 07FE                        3901          BR    R14                 EXIT TO OPERATING SYSTEM             W1374000

                                   3902          DROP  R15                                                      W1376000
                                   3903 ***************************************************************         W1378000
                                   3904 *              LOCATE COMMAND OR REPLY IN INPUT AREA          *         W1380000
                                   3905 *              AND EDIT FOR BACK-SPACE                        *         W1382000
                                   3906 ***************************************************************         W1384000
00057A                             3907 WSVC34   DS    0H                                                       W1386000
00057A 4850 1000      00000        3908          LH    R5,0(,R1)           LENGTH OF INPUT AREA                 W1388000
00057E 1A51                        3909          AR    R5,R1               END OF AREA +1                       W1390000
000580 0650                        3910          BCTR  R5,0                END OF AREA                          W1392000
000582 9540 5000      00000        3911 WMGSRCBK CLI   0(R5),C' '          FIND                                 W1394000
000586 4770 C594      00594        3912          BNE   WMGOTCHA             LAST                                W1396000
00058A 4650 C582      00582        3913          BCT   R5,WMGSRCBK           NON-BLANK                          W1398000

00058E 9540 4001      00001        3914          CLI   1(R4),C' '          CHECK FOR BLANK START                W1400000

000592 078E                        3915          BCR   E,R14               GIVE TO OS IF YES                    W1402000
000594 4140 1003      00003        3916 WMGOTCHA LA    R4,3(,R1)           START OF AREA - 1                    W1404000

000598 1864                        3917          LR    R6,R4               LOAD SCAN REGISTER                   W1406000
00059A 1875                        3918 WBS      LR    R7,R5               SET COUNT REGISTER                   W1408000
00059C 1B76                        3919          SR    R7,R6               GET LENGTH OF REMAINING              W1410000
00059E 47D0 C604      00604        3920          BNP   WBSEND              EXIT IF LENGTH NOT POSITIVE          W1412000
0005A2 955F 6001      00001        3921          CLI   1(R6),$BSPACE       CHECK FOR BACK-SPACE                 W1414000
0005A6 4780 C5B2      005B2        3922          BE    WBSF                BR IF YES                            W1416000
CON      HASP SVC 34 EXIT ROUTINE                                                                              PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0005AA 4160 6001      00001        3923          LA    R6,1(0,R6)          POINT TO NEXT CHARACTER              W1418000
0005AE 47F0 C59A      0059A        3924          B     WBS                 LOOP                                 W1420000
0005B2 4670 C5C0      005C0        3925 WBSF     BCT   R7,WBSM             IF COUNT GT 1 BR                     W1422000
0005B6 1964                        3926          CR    R6,R4               IS THIS FIRST CHARACTER              W1424000

0005B8 4770 C5E0      005E0        3927          BNE   WBSNF               IF NOT BR                            W1426000
0005BC 47F0 C5E8      005E8        3928          B     WBSB                BLANK OUT SINGLE CHARACTER           W1428000

0005C0 0670                        3929 WBSM     BCTR  R7,0                REDUCE TO MACHINE COUNT              W1430000

0005C2 1964                        3930          CR    R6,R4               IS THIS FIRST CHARACTER              W1432000
0005C4 4770 C5DC      005DC        3931          BNE   WBSMC               IF NOT BR TO MOVE                    W1434000
0005C8 4470 C5D0      005D0        3932          EX    R7,WBSMVCF          MOVE OVER INTO FIRST CHARACTER       W1436000
0005CC 47F0 C5E8      005E8        3933          B     WBSB                BLANK OUT SINGLE CHARACTER           W1438000
0005D0 D200 6001 6002 00001 00002  3934 WBSMVCF  MVC   1(*-*,R6),2(R6)     SHIFT INTO FIRST CHARACTER           W1440000
0005D6 D200 6000 6002 00000 00002  3935 WBSMVCC  MVC   0(*-*,R6),2(R6)     SHIFT INTO CURRENT CHARACTER         W1442000
0005DC 4470 C5D6      005D6        3936 WBSMC    EX    R7,WBSMVCC          MOVE OVER INTO CURRENT CHAR          W1444000
0005E0 9240 5000      00000        3937 WBSNF    MVI   0(R5),C' '          SET BLANK                            W1446000
0005E4 0650                        3938          BCTR  R5,0                REDUCE COMMAND SIZE                  W1448000
0005E6 0660                        3939          BCTR  R6,0                BACK UP ONE                          W1450000
0005E8 9240 5000      00000        3940 WBSB     MVI   0(R5),C' '          SET BLANK                            W1452000
0005EC 0650                        3941          BCTR  R5,0                REDUCE COMMAND SIZE                  W1454000

0005EE 1954                        3942          CR    R5,R4               CHECK FOR NULL COMMAND               W1456000
0005F0 47D0 C6BE      006BE        3943          BNH   WMEXIT              EXIT IF YES                          W1458000
0005F4 9540 4001      00001        3944          CLI   1(R4),C' '          CHECK FOR SHIFT BLANK FIRST          W1460000

0005F8 4770 C59A      0059A        3945          BNE   WBS                 IF NOT CONTINUE                      W1462000
0005FC 925F 4001      00001        3946          MVI   1(R4),$BSPACE       SET TO SHIFT ANOTHER OUT             W1464000
000600 47F0 C59A      0059A        3947          B     WBS                 LOOP                                 W1466000
000604 1B54                        3948 WBSEND   SR    R5,R4               GET LENGTH OF COMMAND                W1468000
000606 47D0 C6BE      006BE        3949          BNP   WMEXIT              IF NO LENGTH FORGET IT               W1470000
                                   3950 ***************************************************************         W1472000
                                   3951 *              TEST FOR WTOR REPLY ALA HASP STANDARDS         *         W1474000
                                   3952 ***************************************************************         W1476000
00060A 95F0 4001      00001        3953          CLI   1(R4),C'0'          TEST FIRST CHARACTER                 W1478000
00060E 47B0 C6CA      006CA        3954          BNL   WDIGIT              BRANCH IF DIGIT                      W1480000
CON      HASP SVC 34 EXIT ROUTINE                                                                              PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   3956 ***************************************************************         W1484000
                                   3957 *              TEST FOR HASP COMMAND ($)                      *         W1486000
                                   3958 ***************************************************************         W1488000
000612 955B 4001      00001        3959          CLI   1(R4),C'$'          TEST FOR HASP                        W1490000

000616 077E                        3960          BCR   NE,R14              BRANCH IF NOT                        W1492000
000618 4860 B0CE      000CE        3961          LH    R6,$COMMCT          NUMBER OF BUFFERS LEFT               W1494000
00061C 4660 C62E      0062E        3962          BCT   R6,WMGOGET          BRANCH IF MORE THAN ONE              W1496000
                                   3963 ******************************************************************      W1498000
                                   3964 *                                                                       W1500000
                                   3965 *        SVC EXIT RETURN CODE 8                                         W1502000

                                   3966 *                                                                       W1504000
                                   3967 ******************************************************************      W1506000
000620 980E CCE8      00CE8        3968 WSVCRET8 LM    R0,R14,WSVCSAVE     RESTORE REGISTERS                    W1508000
                            00534  3969          USING WBASE,R15                                                W1510000
000624 8000 F8B6      00DEA        3970          SSM   =X'FF'              ENABLE                               W1512000
000628 41F0 0008      00008        3971          LA    R15,8               SET RETURN OF 8                      W1514000
00062C 07FE                        3972          BR    R14                 EXIT TO OPERATING SYSTEM             W1516000
                                   3973          DROP  R15                                                      W1518000

                                   3974 ******************************************************************      W1520000
                                   3975 *                                                                       W1522000

                                   3976 *        PROCESS HASP COMMAND                                           W1524000
                                   3977 *                                                                       W1526000
                                   3978 ******************************************************************      W1528000
00062E 41E0 C620      00620        3979 WMGOGET  LA    R14,WSVCRET8        POINT TO ERROR EXIT                  W1530000
000632 4590 C7CC      007CC        3980          BAL   R9,WS34GET          GET CMB INTO REG 2 OR RETURN         W1532000
                                   3981 *                                  RETURN CODE SHOWS ERROR              W1534000
000636 D203 B108 2000 00108 00000  3982 WCMBDQ   MVC   $FREEQUE,CMBCHAIN   DEQUE BUFFER                         W1536000
00063C 4060 B0CE      000CE        3983          STH   R6,$COMMCT          SET NEW COMMAND BUFFER COUNT         W1538000

000640 D703 2000 2000 00000 00000  3984          XC    CMBCHAIN,CMBCHAIN   CLEAR CHAIN WORD                     W1540000
000646 4200 2005      00005        3985          STC   R0,CMBCONS          STORE UCMID FOR $WTO/WTO GYRATIONS   W1542000
00064A 9210 2004      00004        3986          MVI   CMBFLAGS,WCMBFF     SET FLAGS FOR UCMID                  W1544000
                                   3987 ***************************************************************         W1546000
                                   3988 *              CONVERT MCS AUTHORIZATION TO HASP RESTRICTIONS *         W1548000

                                   3989 ***************************************************************         W1550000
00064E 5860 3064      00064        3990          L     R6,CVTCUCB          POINT TO UCM                         W1552000
                            00000  3991          USING UCM,R6                                                   W1554000

000652 9879 6048      00048        3992          LM    R7,R9,UCMVEA        LOAD SEARCH PARMS                    W1556000
                                   3993          DROP  R6                                                       W1558000
                            00000  3994          USING UCMLIST,R7                                               W1560000
000656 D500 2005 701A 00005 0001A  3995 WMGLOOK  CLC   CMBCONS(1),UCMID    LOOK FOR MATCHING UCM ID             W1562000
00065C 4780 C670      00670        3996          BE    WMGFOUND            BRANCH IF MATCH                      W1564000
000660 8778 C656      00656        3997          BXLE  R7,R8,WMGLOOK       SEARCH ALL UCM'S                     W1566000
000664 9200 2004      00004        3998          MVI   CMBFLAGS,0          MAKE UNKNOWN CONSOLE LOGICAL         W1568000

000668 9201 2005      00005        3999          MVI   CMBCONS,$LOG        ROUTE RESPONSES TO LOG CONSOLE       W1570000
00066C 47F0 C680      00680        4000          B     WMGNOMCS            CONTINUE                             W1572000
000670 4380 7028      00028        4001 WMGFOUND IC    R8,UCMAUTH          PICK UP AUTHORIZATION BITS           W1574000
                                   4002          DROP  R7                                                       W1576000
000674 8880 0005      00005        4003          SRL   R8,5                ADJUST FOR CMBFLAGS                  W1578000

000678 4280 2004      00004        4004          STC   R8,CMBFLAGS         SET CMBFLAGS ALA OS                  W1580000
00067C 9717 2004      00004        4005          XI    CMBFLAGS,WCMBFF+WMGNONE    AND RESET TO HASP VERSION     W1582000
                                   4006 ***************************************************************         W1584000
                                   4007 *              COPY HASP COMMAND FOR COMMAND PROCESSOR        *         W1586000

                                   4008 ***************************************************************         W1588000
000680                             4009 WMGNOMCS DS    0H                                                       W1590000
000680 4250 2006      00006        4010          STC   R5,CMBMSGL          STORE MESSAGE LENGTH                 W1592000
CON      HASP SVC 34 EXIT ROUTINE                                                                              PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000684 0650                        4011          BCTR  R5,0                LENGTH - 1                           W1594000

000686 9240 2008      00008        4012          MVI   CMBMSG,C' '         PRIME BUFFER WITH BLANKS             W1596000
00068A D282 2009 2008 00009 00008  4013          MVC   CMBMSG+1(L'CMBMSG-1),CMBMSG FOR OLD TIMES SAKE           W1598000
000690 4450 C800      00800        4014          EX    R5,WMGMOVE          MOVE COMMAND TO BUFFER               W1600000
000694 1B66                        4015          SR    R6,R6               SET FOR COMPARE                      W1602000
000696 4170 B114      00114        4016          LA    R7,$COMMQUE         ADDRESS OF ADDRESS OF QUEUE          W1604000

00069A 47F0 C6A2      006A2        4017          B     *+8                 BYPASS FIRST TIME                    W1606000
00069E 5877 0000      00000        4018          L     R7,0(R7)            GET NEXT LINK                        W1608000
0006A2 5967 0000      00000        4019          C     R6,0(R7)            TEST FOR LAST                        W1610000
0006A6 4770 C69E      0069E        4020          BNE   *-8                 KEEP LOOKING                         W1612000
0006AA 5027 0000      00000        4021          ST    R2,0(R7)            PUT NEW COMMAND AT END               W1614000

0006AE 5870 CDC0      00DC0        4022          L     R7,=V($COMMPCE)     CONSOLE SERVICE PCE                  W1616000
                                   4023         $POST  PCEEWF+$EWBWORK-PCEDSECT(R7),WORK POST COMM              W1618000
0006B2 94DF 7049      00049        4024+         NI    PCEEWF+$EWBWORK-PCEDSECT(R7),255-$EWFWORK                PO008000
0006B6 947F B0C4      000C4        4025+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
0006BA 4550 CC0A      00C0A        4026          BAL   R5,WSVCPOST         POST HASP VIA OS                     W1620000

0006BE                             4027 WMEXIT   DS    0H                                                       W1622000
                                   4028 ******************************************************************      W1624000
                                   4029 *                                                                       W1626000
                                   4030 *        SVC EXIT RETURN CODE 0                                         W1628000
                                   4031 *                                                                       W1630000

                                   4032 ******************************************************************      W1632000
0006BE 980E CCE8      00CE8        4033 WSVCRET0 LM    R0,R14,WSVCSAVE     RESTORE REGISTERS                    W1634000
                            00534  4034          USING WBASE,R15                                                W1636000
0006C2 8000 F8B6      00DEA        4035          SSM   =X'FF'              ENABLE                               W1638000
0006C6 1BFF                        4036          SR    R15,R15             SET RETURN OF 0                      W1640000
0006C8 07FE                        4037          BR    R14                 EXIT TO OPERATING SYSTEM             W1642000

                                   4038          DROP  R15                                                      W1644000
CON      HASP SVC 34 EXIT ROUTINE                                                                              PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4040 ***************************************************************         W1648000

                                   4041 *              EXPAND ABBREVIATED REPLY TO OS FORMAT          *         W1650000
                                   4042 ***************************************************************         W1652000
0006CA                             4043 WDIGIT   DS    0H                                                       W1654000
0006CA 4950 C7F2      007F2        4044          CH    R5,WMAXABRV         COMPARE LENGTH WITH MAXIMUM          W1656000
0006CE 072E                        4045          BCR   H,R14               RETURN TO OS IF TOO LONG             W1658000

                                   4046         $TRACE                                                          W1660000
0006D0 1865                        4047          LR    R6,R5               PRESERVE ORIGINAL LENGTH             W1662000
0006D2 4170 4001      00001        4048          LA    R7,1(,R4)            AND SET R7 TO START OF REPLY        W1664000
0006D6 95F0 7001      00001        4049          CLI   1(R7),C'0'          IS 2ND CHARACTER A DIGIT             W1666000
0006DA 4740 C6EC      006EC        4050          BL    W1DIGIT             BRANCH IF NOT                        W1668000
                                   4051 ***************************************************************         W1670000
                                   4052 *              PROCESS ONE OR TWO DIGIT ID                    *         W1672000

                                   4053 ***************************************************************         W1674000
0006DE D201 C808 7000 00808 00000  4054          MVC   WRPLYWKA+2(2),0(R7) MOVE ID TO WORK AREA                 W1676000
0006E4 4170 7002      00002        4055          LA    R7,2(,R7)           POINT TO CHARACTER AFTER ID          W1678000

0006E8 4660 C6FA      006FA        4056          BCT   R6,W2DIGITS         DING CHARACTER COUNTER               W1680000
0006EC 92F0 C808      00808        4057 W1DIGIT  MVI   WRPLYWKA+2,C'0'     SET FIRST DIGIT TO 0                 W1682000
0006F0 D200 C809 7000 00809 00000  4058          MVC   WRPLYWKA+3(1),0(R7) USE ORIGINAL SINGLE DIGIT            W1684000
                                   4059 ***************************************************************         W1686000
                                   4060 *              SCAN FOR START OF REPLY TEXT                   *         W1688000

                                   4061 ***************************************************************         W1690000
0006F6 4170 7001      00001        4062 WBLNKSCN LA    R7,1(,R7)           POINT TO NEXT CHARACTER              W1692000
0006FA 4B60 CDE6      00DE6        4063 W2DIGITS SH    R6,=H'1'            DING CHARACTER COUNT                 W1694000
0006FE 07DE                        4064          BCR   NP,R14              EXIT IF NONE LEFT                    W1696000
000700 9540 7000      00000        4065          CLI   0(R7),C' '          TEST FOR BLANK                       W1698000
000704 4780 C6F6      006F6        4066          BE    WBLNKSCN            FIND FIRST NON-BLANK                 W1700000
000708 956B 7000      00000        4067          CLI   0(R7),C','          TEST FOR COMMA                       W1702000
00070C 4780 C718      00718        4068          BE    WSKPCMMA            SKIP COMMA AFTER ID                  W1704000

000710 9540 7000      00000        4069 WTESTBLK CLI   0(R7),C' '          TEST FOR BLANK                       W1706000
000714 4770 C722      00722        4070          BNE   WDELIM              FIRST NON-BLANK STARTS TEXT          W1708000

000718 4170 7001      00001        4071 WSKPCMMA LA    R7,1(,R7)           KEEP                                 W1710000
00071C 4660 C710      00710        4072          BCT   R6,WTESTBLK          LOOKING                             W1712000
000720 07FE                        4073          BR    R14                 OFF TO OS IF ALL BLANK               W1714000
                                   4074 ***************************************************************         W1716000
                                   4075 *              ISOLATE REPLY TEXT - HASP OR OS FORMAT         *         W1718000

                                   4076 ***************************************************************         W1720000
000722                             4077 WDELIM   DS    0H                                                       W1722000
000722 4187 6000      00000        4078          LA    R8,0(R7,R6)         END OF INPUT + 1 TO R8               W1724000
000726 957D 7000      00000        4079          CLI   0(R7),X'7D'         TEST FIRST CHARACTER FOR QUOTE       W1726000
00072A 4770 C740      00740        4080          BNE   WHASPFMT            ASSUME HASP FORMAT IF NOT            W1728000
00072E 0680                        4081          BCTR  R8,0                END OF INPUT                         W1730000
000730 957D 8000      00000        4082 WBACKUP  CLI   0(R8),X'7D'         LOOK FOR ENDING QUOTE                W1732000
000734 4780 C73C      0073C        4083          BE    WFNDENDQ            BRANCH IF FOUND                      W1734000
000738 4680 C730      00730        4084          BCT   R8,WBACKUP          KEEP LOOKING                         W1736000

00073C 4170 7001      00001        4085 WFNDENDQ LA    R7,1(,R7)           POINT TO CHARACTER AFTER QUOTE       W1738000

000740 1B87                        4086 WHASPFMT SR    R8,R7               CALCULATE LENGTH OF TEXT             W1740000
000742 07CE                        4087          BCR   12,R14              OFF TO OS IF ZILCH                   W1742000
                                   4088 ***************************************************************         W1744000
                                   4089 *              BUILD REPLY TEXT AND MOVE IT TO OS BUFFER      *         W1746000
                                   4090 ***************************************************************         W1748000

000744 1868                        4091          LR    R6,R8               SAVE LENGTH OF TEXT                  W1750000
000746 0680                        4092          BCTR  R8,0                SETUP FOR MVC                        W1752000
000748 4480 C7F4      007F4        4093          EX    R8,WMVCWRKA         MOVE TEXT TO WORK AREA               W1754000
00074C 4188 C80D      0080D        4094          LA    R8,WRPLYWKA+7(R8)   POINT TO END OF TEXT + 1             W1756000
CON      HASP SVC 34 EXIT ROUTINE                                                                              PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000750 927D 8000      00000        4095          MVI   0(R8),X'7D'         SET ENDING QUOTE                     W1758000
000754 4160 6006      00006        4096          LA    R6,6(,R6)           SET R6 FOR MVC                       W1760000
000758 4460 C7FA      007FA        4097          EX    R6,WMVCTOOS         MOVE BACK TO OS                      W1762000

00075C 4160 6005      00005        4098          LA    R6,5(,R6)           RESET                                W1764000

000760 4061 0000      00000        4099          STH   R6,0(R1)             OS COUNT                            W1766000
000764 4B60 CDE8      00DE8        4100          SH    R6,=H'4'            REDUCE BY 4                          W1768000
000768 4260 CD3E      00D3E        4101          STC   R6,W$WTOPRM+2       SET LENGTH OF MESSAGE                W1770000
                                   4102 ******************************************************************      W1772000
                                   4103 *              LOCATE REPLY QUEUE ELEMENT FOR LOG                       W1774000

                                   4104 ******************************************************************      W1776000
00076C 5860 3064      00064        4105          L     R6,CVTCUCB          POINT TO UCM                         W1778000
                            00000  4106          USING UCM,R6                                                   W1780000
000770 5860 601C      0001C        4107          L     R6,UCMRPYQ          POINT TO FIRST REPLY ELEMENT         W1782000
                            00000  4108          USING OREF,R6                                                  W1784000
000774 1266                        4109 WRQESCN  LTR   R6,R6               IS THIS THE END                      W1786000
000776 078E                        4110          BCR   Z,R14               GIVE TO OS IF NOT FOUND              W1788000
000778 D501 6004 C808 00004 00808  4111          CLC   OREID,WRPLYWKA+2    CHECK FOR MATCHING ID                W1790000
00077E 4780 C78A      0078A        4112          BE    WRQEFND             BR IF MATCH                          W1792000
000782 5860 6000      00000        4113          L     R6,ORELKP           POINT TO NEXT ORE                    W1794000

000786 47F0 C774      00774        4114          B     WRQESCN             SCAN SOME MORE                       W1796000

00078A 9500 6008      00008        4115 WRQEFND  CLI   ORETJID1,0          MAKE SURE NOT TSO                    W1798000
00078E 077E                        4116          BCR   NZ,R14              EXIT IF TSO                          W1800000
000790 9500 6014      00014        4117          CLI   ORETJID2,0          MAKE SURE NOT TSO                    W1802000
000794 077E                        4118          BCR   NZ,R14              EXIT IF TSO                          W1804000

000796 5840 6008      00008        4119          L     R4,ORETCB           POINT TO TCB, HIGH BYTE ZERO         W1806000
                                   4120          DROP  R6                                                       W1808000
00079A 4180 1004      00004        4121          LA    R8,4(0,R1)          POINT TO MESSAGE                     W1810000
                                   4122 *        ICM   R8,8,=C' '          SET BLANK                       RFIT W1812000
00079E 4150 0040      00040        4123          LA    R5,C' '                                             RFIT W1812002
0007A2 8950 0018      00018        4124          SLL   R5,24                                               RFIT W1812010
0007A6 8980 0008      00008        4125          SLL   R8,8                                                RFIT W1812015
0007AA 8880 0008      00008        4126          SRL   R8,8                                                RFIT W1812020
0007AE 1685                        4127          OR    R8,R5                                               RFIT W1812025
0007B0 4550 CAD8      00AD8        4128          BAL   R5,WSVCASOC         ASSOCIATE WITH JOB ( R10 )           W1814000
0007B4 47F0 C56C      0056C        4129          B     WSVCRET4            EXIT TO OS IF NO ASSOCIATION         W1816000

0007B8 41E0 C56C      0056C        4130          LA    R14,WSVCRET4        SET EMPTY EXIT ADDRESS               W1818000
0007BC 4590 C7CC      007CC        4131          BAL   R9,WS34GET          GET A CMB                            W1820000
0007C0 92D9 CD20      00D20        4132          MVI   WSVCSAVE+R14*4,C'R' SET FLAG FOR LOG                     W1822000
0007C4 4550 CBE2      00BE2        4133          BAL   R5,WSVCQUE          QUEUE MESSAGE                        W1824000

0007C8 47F0 C56C      0056C        4134          B     WSVCRET4            EXIT TO OS                           W1826000
                                   4135 ******************************************************************      W1828000
                                   4136 *                                                                       W1830000
                                   4137 *        SUBROUTINE TO GET CMB INTO REG 2 AND INTO FREE QUEUE           W1832000
                                   4138 *                                                                       W1834000
                                   4139 ******************************************************************      W1836000
                                   4140 *WS34GET ICM   R2,15,$FREEQUE      PICK UP FREE BUFFER POINTER     RFIT W1838000
0007CC 5820 B108      00108        4141 WS34GET  L     R2,$FREEQUE                                         RFIT W1838005
0007D0 1222                        4142          LTR   R2,R2                                               RFIT W1838010
0007D2 0779                        4143          BCR   NZ,R9               RETURN WITH BUFFER                   W1840000
0007D4 5870 CDC4      00DC4        4144          L     R7,=V($WRESERV)     POINT TO                             W1842000
                                   4145 *        ICM   R2,15,0(R7)         RESERVE BUFFER                  RFIT W1844000

0007D8 5820 7000      00000        4146          L     R2,0(,R7)                                           RFIT W1844005
0007DC 1222                        4147          LTR   R2,R2                                               RFIT W1844010
0007DE 078E                        4148          BCR   Z,R14               RETURN TO OS SVC 34                  W1846000

0007E0 D703 7000 7000 00000 00000  4149          XC    0(4,R7),0(R7)       ZERO OUT RESERVE                     W1848000
CON      HASP SVC 34 EXIT ROUTINE                                                                              PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0007E6 D703 2000 2000 00000 00000  4150          XC    CMBCHAIN,CMBCHAIN   ZERO CHAIN FIELD                     W1850000
0007EC 5020 B108      00108        4151          ST    R2,$FREEQUE         SET INTO FREE QUEUE                  W1852000
0007F0 07F9                        4152          BR    R9                  RETURN                               W1854000
                                   4153 ***************************************************************         W1856000
                                   4154 *              MISCELLANEOUS ITEMS                            *         W1858000
                                   4155 ***************************************************************         W1860000


                            00007  4157 WMGNONE  EQU   DCTREJJB+DCTREJDV+DCTREJSY HASP COMMAND RESTRICTIONS     W1864000
                            00071  4158 WMAXRSET EQU   113                 MAXIMUM ABBREVIATED REPLY            W1866000

0007F2 0071                        4159 WMAXABRV DC    0H'0',AL2(WMAXRSET) CONSTANT FOR COMPARISON              W1868000

0007F4 D200 C80C 7000 0080C 00000  4160 WMVCWRKA MVC   WRPLYWKA+6(*-*),0(R7) TO MOVE FROM OS TO HASP            W1870000
0007FA D200 4001 C806 00001 00806  4161 WMVCTOOS MVC   1(*-*,R4),WRPLYWKA    TO MOVE FROM HASP TO OS            W1872000

000800 D200 2008 4001 00008 00001  4162 WMGMOVE  MVC   CMBMSG(*-*),1(R4)   TO COPY BUFFER                       W1874000
000806 D940E7E76B7D                4163 WRPLYWKA DC    CL6'R XX,'''        REPLY WORK AREA                      W1876000
00080C 4040404040404040            4164 WWORK    DC    CL128' '            REPLY CONT. AND WQE EDIT WORK        W1878000
00088C 40                          4165 WWID     DC    C' '                WQE CHARACTER NUMBER TWO             W1880000



                                   4167          DROP  R2                                                       W1884000
CON      HASP SVC 35 EXIT 1 AND SVC 36 ROUTINE                                                                 PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4169 ******************************************************************      W1888000
                                   4170 *                                                                       W1890000
                                   4171 *        HASP SVC 35 EXIT 1 AND SVC 36 ROUTINE                          W1892000
                                   4172 *                                                                       W1894000

                                   4173 * FUNCTIONS                                                             W1896000
                                   4174 *                                                                       W1898000

                                   4175 *    (1) EXAMINE TYPE OF ENTRY AND SET 'L' INDICATOR FOR SVC 36         W1900000

                                   4176 *        AND ' ' INDICATOR FOR ALL OTHERS. THIS INDICATOR               W1902000
                                   4177 *        APPEARS AS THE FIRST CHARACTER OF THE MESSAGE ON               W1904000
                                   4178 *       THE HASP JOB LOG.                                               W1906000
                                   4179 *                                                                       W1908000
                                   4180 *    (2) FOR MULTI-LINE WTO, CAUSE DELETION RETURN FOR ALL              W1910000
                                   4181 *        ENTRIES WITH R0 ( PARAMETER REGISTER ) HIGH BYTES              W1912000
                                   4182 *        CONTAINING X'FFFFFF'.                                          W1914000
                                   4183 *                                                                       W1916000
                                   4184 *    (3) EXAMINE THE TEXT OF MESSAGE ( LINE 1 OF EACH MLWTO SVC )       W1918000
                                   4185 *        FOR THOSE MESSAGES WHICH ARE NOT TO BE DISPLAYED AND           W1920000
                                   4186 *        EXIT WITH DELETION RETURN CODE IF APPROPRIATE.                 W1922000
                                   4187 *                                                                       W1924000

                                   4188 *    (4) ASSOCIATE MESSAGES NOT DELETED WITH A HASP CONTROLLED          W1926000
                                   4189 *        JOB AND QUEUE THE MESSAGE IN A CMB TO THE HASP JOB LOG         W1928000
                                   4190 *        PROCESSOR.                                                     W1930000

                                   4191 *                                                                       W1932000
                                   4192 *    (5) IF NO CMBS ARE AVAILABLE FOR THE MESSAGE ENQ FOR CONTROL       W1934000
                                   4193 *        OF THE WAIT ECB AND WAIT FOR POSTING BY HASP ON FREEING        W1936000
                                   4194 *        OF THE NEXT CMB.                                               W1938000
                                   4195 *                                                                       W1940000
                                   4196 * EXTERNAL OS ROUTINES                                                  W1942000
                                   4197 *                                                                       W1944000
                                   4198 *        ENQ SVC                                                        W1946000
                                   4199 *                                                                       W1948000
                                   4200 *        DEQ SVC                                                        W1950000
                                   4201 *                                                                       W1952000
                                   4202 *        WAIT  SVC                                                      W1954000

                                   4203 *                                                                       W1956000
                                   4204 *        IEAVRT01 ( SPECIAL BRANCH ENTRY TO TIME ) - MUST               W1958000
                                   4205 *                 REMAIN DISABLED                                       W1960000
                                   4206 *                                                                       W1962000

                                   4207 *        IEA0PT01 ( BRANCH ENTRY TO POST ) - MUST REMAIN DISABLED       W1964000
                                   4208 *                                                                       W1966000
                                   4209 ******************************************************************      W1968000
CON      HASP SVC 35 EXIT 1 AND SVC 36 ROUTINE                                                                 PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4211 ******************************************************************      W1972000

                                   4212 *                                                                       W1974000
                                   4213 * INPUT                                                                 W1976000
                                   4214 *                                                                       W1978000
                                   4215 *        R0    = UCMID/CONNECT ID                                       W1980000
                                   4216 *        R1    = PARAMETER LIST POINTER                                 W1982000
                                   4217 *        R2    = VOLITILE                                               W1984000
                                   4218 *        R3    = CVT                                                    W1986000
                                   4219 *        R4    = TCB                                                    W1988000

                                   4220 *        R5    = RESERVED FOR OS                                        W1990000
                                   4221 *        R6-R8 = VOLITILE                                               W1992000

                                   4222 *        R9    = RESERVED FOR OS                                        W1994000
                                   4223 *        R10   = VOLITILE                                               W1996000
                                   4224 *        R11-R12 RESERVED FOR OS                                        W1998000
                                   4225 *        R13   = VOLITILE                                               W2000000
                                   4226 *        R14   = RETURN TO OS                                           W2002000
                                   4227 *        R15   = ENTRY ADDRESS                                          W2004000
                                   4228 *                                                                       W2006000
                                   4229 * REGISTERS WHILE RUNNING UNDER SVC 35 AND 36 REGISTERS                 W2008000

                                   4230 *                                                                       W2010000
                                   4231 *        R0    = UCMID/CONNECT ID/UNKNOWN, ( SAVED )                    W2012000
                                   4232 *        R1    = PAR1METER LIST POINTER ( SAVED )                       W2014000
                                   4233 *        R2    = WORK, END OF MESSAGE/PARAMETER POINTER                 W2016000
                                   4234 *        R3    = CVT ADDRESS                                            W2018000

                                   4235 *        R4    = TCB ADDRESS                                            W2020000
                                   4236 *        R5    = RESERVED FOR OS                                        W2022000
                                   4237 *        R6    = NUMBER OF LINES COUNTER ( MLWTO )                      W2024000

                                   4238 *        R7    = LENGTH OF MESSAGE                                      W2026000
                                   4239 *        R8    = START OF MESSAGE POINTER                               W2028000
                                   4240 *        R9    = RESERVED FOR OS                                        W2030000
                                   4241 *        R10   = SAVE FOR REG R0                                        W2032000
                                   4242 *        R11   = RESERVED FOR OS                                        W2034000
                                   4243 *        R12   = RESERVED FOR OS                                        W2036000
                                   4244 *        R13   = SAVE FOR REG R1                                        W2038000

                                   4245 *        R14   = RETURN TO OS AND LOG FLAG                              W2040000
                                   4246 *        R15   = BASE WHILE ENABLED                                     W2042000
                                   4247 *                                                                       W2044000
                                   4248 * OS CONTROL BLOCK DEPENDENCIES                                         W2046000
                                   4249 *                                                                       W2048000

                                   4250 *        CVT   LOCKED IN                                                W2050000
                                   4251 *              CVTHEAD   POINTER TO PAGING SUPERVISOR TCB               W2052000
                                   4252 *              CVTCUCB   POINTER TO UCM                                 W2054000
                                   4253 *                                                                       W2056000

                                   4254 *        UCM   LOCKED IN                                                W2058000
                                   4255 *              UCMPXA    POINTER TO COMMUNICATIONS TASK TCB             W2060000
                                   4256 *                                                                       W2062000
                                   4257 *                                                                       W2064000
                            00000  4258 WS35ROS  EQU   0                   RETURN CODE 0 - DISPLAY              W2066000
                            00004  4259 WS35RDE  EQU   4                   RETURN CODE 4 - NO DISPLAY           W2068000

                                   4260 *                                                                       W2070000
                                   4261 ******************************************************************      W2072000
CON      HASP SVC 35 EXIT 1 AND SVC 36 ROUTINE                                                                 PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00088E                             4263 $WTOSVC  DS    0H                                                       W2076000

                            0088E  4264          USING *,R15                                                    W2078000
00088E 58F0 F53A      00DC8        4265          L     R15,=A(WBASE)       PICK UP BASE                         W2080000
                            00534  4266          USING WBASE,R15                                                W2082000
000892 5940 F804      00D38        4267          C     R4,WTOTCBA          ELIMINATE HASP                       W2084000
000896 4780 F41C      00950        4268          BE    WS35ROK              COMMUNICATIONS TASK                 W2086000

                                   4269 ******************************************************************      W2088000
                                   4270 *                                                                       W2090000
                                   4271 *        SET UP WORK REGISTERS                                          W2092000
                                   4272 *                                                                       W2094000
                                   4273 ******************************************************************      W2096000

00089A 4160 0001      00001        4274          LA    R6,1                SET COUNTER                          W2098000
00089E 1B77                        4275          SR    R7,R7               ZERO LENGTH                          W2100000
0008A0 1881                        4276          LR    R8,R1               POINT TO PARAMETERS                  W2102000
                                   4277 ******************************************************************      W2104000
                                   4278 *                                                                       W2106000

                                   4279 *        ESTABLISH TYPE OF REQUEST                                      W2108000
                                   4280 *                                                                       W2110000
                                   4281 ******************************************************************      W2112000
                                   4282 *        ICM   R14,8,=C'L'         ASSUME SVC 36                   RFIT W2114000
0008A2 4120 00D3      000D3        4283          LA    R2,C'L'                                             RFIT W2114005
0008A6 8920 0018      00018        4284          SLL   R2,24                                               RFIT W2114010

0008AA 89E0 0008      00008        4285          SLL   R14,8                                               RFIT W2114015
0008AE 88E0 0008      00008        4286          SRL   R14,8                                               RFIT W2114020
0008B2 16E2                        4287          OR    R14,R2                                              RFIT W2114025
                            00000  4288          USING TCBDSECT,R4                                              W2116000

0008B4 5820 4000      00000        4289          L     R2,TCBRBP           POINT TO OUR RB                      W2118000
                            00040  4290          USING RBDSECT,R2                                               W2120000
0008B8 5820 201C      0005C        4291          L     R2,RBLINK           GO TO CALLER RB                      W2122000
0008BC 9524 2013      00013        4292          CLI   RBOPSW+3-RBDSECT(R2),36  TEST FOR SVC 36        FJP/RFIT W2128000
                                   4293          DROP  R4                                              FJP/RFIT W2130000

0008C0 4780 F40C      00940        4294          BE    WS35SING            ENTER WITH NORMAL SVC 35             W2132000
                                   4295 *        ICM   R14,8,=C' '         SET NORMAL WTO                  RFIT W2134000
0008C4 4120 0040      00040        4296          LA    R2,C' '                                             RFIT W2134005
0008C8 8920 0018      00018        4297          SLL   R2,24                                               RFIT W2134010
0008CC 89E0 0008      00008        4298          SLL   R14,8                                               RFIT W2134015
0008D0 88E0 0008      00008        4299          SRL   R14,8                                               RFIT W2134020
0008D4 16E2                        4300          OR    R14,R2                                              RFIT W2134025

0008D6 9500 8000      00000        4301          CLI   0(R8),0             CHECK FOR WTOR                       W2136000
0008DA 4770 F408      0093C        4302          BNZ   WS35WTOR            ENTER WTOR                           W2138000
0008DE 9140 8003      00003        4303          TM    3(R8),X'40'         TEST FOR MULTIPLE LINE               W2140000

0008E2 4780 F40C      00940        4304          BZ    WS35SING            IF NOT HANDLE SINGLE LINE            W2142000
                                   4305 ******************************************************************      W2144000
                                   4306 *                                                                       W2146000
                                   4307 *        MULTIPLE LINE WTO                                              W2148000
                                   4308 *                                                                       W2150000

                                   4309 ******************************************************************      W2152000
                                   4310 *        CLM   R0,14,=X'FFFFFF'    CHECK FOR DUMMY COMMECT         RFIT W2154000
0008E6 5000 F864      00D98        4311          ST    R0,CSTORE                                           RFIT W2154005
0008EA D502 F865 F8B7 00D99 00DEB  4312          CLC   CSTORE+1(3),=X'FFFFFF'                              RFIT W2154010
0008F0 4780 F422      00956        4313          BE    WS35RDEL            EXIT TO DELETE                       W2156000
0008F4 4370 8001      00001        4314          IC    R7,1(0,R8)          PICK UP LENGTH                       W2158000
0008F8 4128 7000      00000        4315          LA    R2,0(R8,R7)         POINT TO END OF TEXT + 1             W2160000
0008FC 9180 8002      00002        4316          TM    2(R8),X'80'         DESCRIPTOR AND ROUTE CODE            W2162000

000900 4780 F3E0      00914        4317          BZ    WS35NCDE            SKIP NEXT IF NOT                     W2164000
CON      HASP SVC 35 EXIT 1 AND SVC 36 ROUTINE                                                                 PAGE   91



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000904 4120 2004      00004        4318          LA    R2,4(0,R2)          UP PAST ROUTE CODE                   W2166000
000908 9110 8002      00002        4319          TM    2(R8),X'10'         MESSAGE TYPE PRESENT                 W2168000
00090C 4780 F3E0      00914        4320          BZ    WS35NCDE            SKIP NEXT IF NOT                     W2170000
000910 4120 2002      00002        4321          LA    R2,2(0,R2)          POINT TO LINE TYPE                   W2172000

000914 9500 2003      00003        4322 WS35NCDE CLI   3(R2),0             INSURE COUNT NOT ZERO                W2174000
000918 4780 F41C      00950        4323          BZ    WS35ROK             LET OS HAVE IT IF ZERO               W2176000
00091C 9110 2000      00000        4324          TM    0(R2),X'10'         IS THIS AN END LINE                  W2178000
000920 4780 F3FC      00930        4325          BZ    WS35SCTR            SKIP NEXT IF NOT                     W2180000
000924 91E0 2000      00000        4326          TM    0(R2),X'E0'         DOES IT HAVE ANY DATA                W2182000
000928 4780 F41C      00950        4327          BZ    WS35ROK             LET OS HAVE IT IF NOT                W2184000
00092C 47F0 F414      00948        4328          B     WS35CKL             CHECK PARMS                          W2186000
000930 4360 2003      00003        4329 WS35SCTR IC    R6,3(0,R2)          PICK UP COUNT                        W2188000

000934 4120 2004      00004        4330          LA    R2,4(0,R2)          POINT TO NEXT CONTROL                W2190000
000938 47F0 F414      00948        4331          B     WS35CKL             CHECK PARMS                          W2192000

                                   4332 ******************************************************************      W2194000
                                   4333 *                                                                       W2196000
                                   4334 *        WTOR, WTO ( SINGLE LINE ), AND WTL                             W2198000
                                   4335 *                                                                       W2200000
                                   4336 ******************************************************************      W2202000

00093C 4180 8008      00008        4337 WS35WTOR LA    R8,8(0,R8)          UP TO WTO SECTION                    W2204000
000940 4370 8001      00001        4338 WS35SING IC    R7,1(0,R8)          PICK UP LENGTH                       W2206000
000944 4127 8000      00000        4339          LA    R2,0(R7,R8)         POINT TO END OF TEXT + 1             W2208000
000948 4B70 F8B4      00DE8        4340 WS35CKL  SH    R7,=H'4'            SUBTRACT 4                           W2210000
00094C 4720 F428      0095C        4341          BP    WS35CKD             CHECK FOR DELETION                   W2212000
                                   4342 ******************************************************************      W2214000
                                   4343 *                                                                       W2216000
                                   4344 *        PASS ON TO OS                                                  W2218000
                                   4345 *                                                                       W2220000

                                   4346 ******************************************************************      W2222000

000950 41F0 0000      00000        4347 WS35ROK  LA    R15,WS35ROS         SET FOR OS TO HANDLE                 W2224000
000954 07FE                        4348          BR    R14                 EXIT                                 W2226000
                                   4349 ******************************************************************      W2228000
                                   4350 *                                                                       W2230000
                                   4351 *        TELL OS TO DELETE                                              W2232000

                                   4352 *                                                                       W2234000
                                   4353 ******************************************************************      W2236000
000956 41F0 0004      00004        4354 WS35RDEL LA    R15,WS35RDE         SET DELETE AND EXIT                  W2238000
00095A 07FE                        4355          BR    R14                 EXIT                                 W2240000
                                   4356 ******************************************************************      W2242000
                                   4357 *                                                                       W2244000
                                   4358 *        WTO MESSAGE DELETION ROUTINES                                  W2246000
                                   4359 *                                                                       W2248000
                                   4360 ******************************************************************      W2250000
00095C 4180 8004      00004        4361 WS35CKD  LA    R8,4(0,R8)          POINT TO MESSAGE                     W2252000

000960 D507 8000 F86C 00000 00DA0  4362          CLC   0(8,R8),=CL8'IEF429I' CHECK FOR INIT IDLE                W2254000

000966 4770 F440      00974        4363          BNE   WS35NINT            SKIP NEXT IF NOT                     W2256000
00096A D506 F85B 8013 00D8F 00013  4364          CLC   WS35INAM,19(R8)     CHECK FOR HASP INIT                  W2258000
000970 4780 F422      00956        4365          BE    WS35RDEL            IF YES TELL OS TO DELETE             W2260000
000974                             4366 WS35NINT DS    0H                                                       W2262000

                                   4367          AIF   ('&XBATCHC' EQ '').NB35                                  W2264000
                                   4368 .NB35    ANOP                                                           W2290000
                                   4369 ******************************************************************      W2292000
                                   4370 *                                                                       W2294000
                                   4371 *        CHECK FOR PARM IN STORAGE                                      W2296000
                                   4372 *                                                                       W2298000
CON      HASP SVC 35 EXIT 1 AND SVC 36 ROUTINE                                                                 PAGE   92


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4373 ******************************************************************      W2300000
000974                             4374 WS35CK   DS    0H                                                       W2302000
000974 0620                        4375          BCTR  R2,0                DOWN TO LAST REQUIRED                W2304000

000976 9500 8000      00000        4376 WS35REF  CLI   0(R8),0             REFERENCE                            W2306000
00097A 9500 2000      00000        4377          CLI   0(R2),0              PARAMETER LIST                      W2308000
00097E 8000 F44B      0097F        4378          SSM   *+1                 DISABLE                              W2310000
000982 900E F7B4      00CE8        4379          STM   R0,R14,WSVCSAVE     SAVE REGISTERS                       W2312000

000986 98BC F7F4      00D28        4380          LM    BASE1,BASE2,WBASES  PICK UP BASES                        W2314000
                                   4381          DROP  R15                                                      W2316000
                                   4382         $LRA   R0,0(0,R8)          IS START POINT IN               RFIT W2318000
00098A 4100 8000      00000        4383+         LA    R0,0(0,R8)          VIRTUAL TRANSLATION             RFIT LR016000
00098E 1900                        4384+         CR    0,0                 CC = 0                          RFIT LR018000
000990 4770 CC26      00C26        4385          BNZ   WS35GET             IF NOT IN GET IT IN                  W2320000
                                   4386         $LRA   R0,0(0,R2)          IS END POINT IN                 RFIT W2322000
000994 4100 2000      00000        4387+         LA    R0,0(0,R2)          VIRTUAL TRANSLATION             RFIT LR016000
000998 1900                        4388+         CR    0,0                 CC = 0                          RFIT LR018000
00099A 4770 CC26      00C26        4389          BNZ   WS35GET             IF NOT GET IT IN                     W2324000
                                   4390 ******************************************************************      W2326000
                                   4391 *                                                                       W2328000

                                   4392 *        ASSOCIATE WITH A HASP CONTROLLED JOB - QUEUE TO LOG            W2330000
                                   4393 *                                                                       W2332000
                                   4394 ******************************************************************      W2334000

00099E 4550 CAD8      00AD8        4395          BAL   R5,WSVCASOC         LOAD R10 WITH JCT ADDRESS            W2336000
0009A2 47F0 C6BE      006BE        4396          B     WSVCRET0            EXIT TO OS                           W2338000
0009A6 D603 B108 B108 00108 00108  4397          OC    $FREEQUE,$FREEQUE   DO WE HAVE A CMB                     W2340000
0009AC 4780 CB34      00B34        4398          BZ    WS35WAIT            IF NOT WAIT FOR ONE ( MAYBE )        W2342000
0009B0 4270 CD3E      00D3E        4399          STC   R7,W$WTOPRM+2       SET PARMS                            W2344000
0009B4 4550 CBE2      00BE2        4400          BAL   R5,WSVCQUE          QUEUE MESSAGE                        W2346000
                            00534  4401          USING WBASE,R15                                                W2348000
0009B8 980E F7B4      00CE8        4402          LM    R0,R14,WSVCSAVE     RESTORE REGS                         W2350000
0009BC 8000 F8B6      00DEA        4403          SSM   =X'FF'              ENABLE                               W2352000
0009C0 4660 F494      009C8        4404          BCT   R6,WS35MORE         TEST FOR MORE LINES                  W2354000
0009C4 47F0 F41C      00950        4405          B     WS35ROK             EXIT TO OS                           W2356000
0009C8 9110 2003      00003        4406 WS35MORE TM    3(R2),X'10'         IS THIS AN END LINE                  W2358000

0009CC 4780 F4A8      009DC        4407          BZ    WS35INCR            IF NOT INCREMENT                     W2360000

0009D0 4160 0001      00001        4408          LA    R6,1                FORCE COUNT OF ONE                   W2362000
0009D4 91E0 2003      00003        4409          TM    3(R2),X'E0'         DOES THIS LINE HAVE DATA             W2364000

0009D8 4780 F41C      00950        4410          BZ    WS35ROK             EXIT TO OS IF NOT                    W2366000
0009DC 4370 2002      00002        4411 WS35INCR IC    R7,2(0,R2)          PICK UP LENGTH                       W2368000
0009E0 4180 2005      00005        4412          LA    R8,5(0,R2)          POINT TO TEXT                        W2370000
0009E4 4B70 F8B4      00DE8        4413          SH    R7,=H'4'            REDUCE TO ACTUAL COUNT               W2372000
0009E8 47D0 F41C      00950        4414          BNP   WS35ROK             IF NOT POSITIVE EXIT TO OS           W2374000
0009EC 4127 8000      00000        4415          LA    R2,0(R7,R8)         POINT TO NEXT LINE                   W2376000
0009F0 47F0 F440      00974        4416          B     WS35CK              CHECK THIS LINE                      W2378000
                                   4417          DROP  R15                                                      W2380000
CON      HASP SVC 35 EXIT 2 ROUTINE                                                                            PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4419 ******************************************************************      W2384000
                                   4420 *                                                                       W2386000

                                   4421 *        HASP SVC 35 EXIT 2 ROUTINE                                     W2388000
                                   4422 *                                                                       W2390000

                                   4423 * FUNCTIONS                                                             W2392000

                                   4424 *                                                                       W2394000
                                   4425 *    (1) EDIT THE OS WQE, ALIGNING THE START OF ALL TEXT LINES          W2396000
                                   4426 *        AND PROMULGATING THE UNAUTHORIZED + INDICATOR.                 W2398000
                                   4427 *                                                                       W2400000
                                   4428 *    (2) INSERT TIME STAMP ON ALL NORMAL WQES.                          W2402000
                                   4429 *                                                                       W2404000
                                   4430 *    (3) INSERT JOB NUMBER ON MESSAGES ASSOCIATED WITH A HASP           W2406000
                                   4431 *        CONTROLLED JOB.                                                W2408000
                                   4432 *                                                                       W2410000
                                   4433 * EXTERNAL OS ROUTINES                                                  W2412000
                                   4434 *                                                                       W2414000
                                   4435 *        IEAVRT01 ( SPECIAL BRANCH ENTRY TO TIME ) - MUST               W2416000

                                   4436 *                 REMAINED DISABLED.                                    W2418000
                                   4437 *                                                                       W2420000
                                   4438 * INPUT                                                                 W2422000

                                   4439 *                                                                       W2424000
                                   4440 *        R0    = WQE OR MAJOR WQE IF MULTI-LINE WTO                     W2426000
                                   4441 *        R1    = ZERO OR MINOR FOR MULTI-LINE, UNKNOWN FOR OTHER        W2428000
                                   4442 *        R2-R13  UNKNOWN AND PRESERVED                                  W2430000
                                   4443 *        R14   = RETURN                                                 W2432000
                                   4444 *        R15   = ENTRY BASE                                             W2434000
                                   4445 *                                                                       W2436000
                                   4446 *        SYSTEM DISABLED                                                W2438000
                                   4447 *                                                                       W2440000
                                   4448 * OS CONTROL BLOCK DEPENDENCIES                                         W2442000
                                   4449 *                                                                       W2444000
                                   4450 *        CVT   LOCKED IN                                                W2446000

                                   4451 *              CVTTCBP   POINT TO OLD-NEW TCB CELLS                     W2448000
                                   4452 *                                                                       W2450000
                                   4453 *        TCBP  LOCKED IN                                                W2452000
                                   4454 *              +4        POINTER TO CURRENT TCB                         W2454000

                                   4455 *                                                                       W2456000
                                   4456 ******************************************************************      W2458000
CON      HASP SVC 35 EXIT 2 ROUTINE                                                                            PAGE   94


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4458 ******************************************************************      W2462000
                                   4459 *                                                                       W2464000

                                   4460 *        WQE   LOCKED IN                                                W2466000
                                   4461 *              WQENBR+0  ZERO FOR NORMAL WTO                            W2468000
                                   4462 *              WMJMMLW   X'40' ON FOR MAJOR WQE, EQU TO WQENBR          W2470000
                                   4463 *              WMNML2    X'01' ON FOR LINE 1 EDIT IN MINOR              W2472000
                                   4464 *                        X'01' OFF FOR LINE 2 EDIT IN MINOR             W2474000
                                   4465 *                                                                       W2476000
                                   4466 *              WQENBR+3  LENGTH OF TEXT MAX VALUE OF 128                W2478000
                                   4467 *              WMJMTXTL+1 LENGTH OF TEXT MAX VALUE OF 72                W2480000

                                   4468 *              WMNMTL1   LENGTH OF TEXT MAX VALUE OF 72                 W2482000
                                   4469 *              WMNMTL2   LENGTH OF TEXT MAX VALUE OF 72                 W2484000

                                   4470 *                                                                       W2486000
                                   4471 *              WQETXT    MESSAGE AREA 128 BYTES                         W2488000
                                   4472 *              WMJMTXT   MESSAGE AREA  72 BYTES                         W2490000
                                   4473 *              WMNMTXT1  MESSAGE AREA  72 BYTES                         W2492000
                                   4474 *              WMNMTXT2  MESSAGE AREA  72 BYTES                         W2494000
                                   4475 *                                                                       W2496000
                                   4476 *                                                                       W2498000
                                   4477 *              WMJMLTYP  FIRST BYTE OF LINE TYPE IN MAJOR WQE           W2500000

                                   4478 *              WMNMLT2   FIRST BYTE OF LINE TYPE IN MINOR WQE L1        W2502000
                                   4479 *              WMNMLT2   FIRST BYTE OF LINE TYPE IN MINOR WQE L2        W2504000
                                   4480 *                                                                       W2506000
                                   4481 *        FORMAT OF TEXT AREA                                            W2508000
                                   4482 *                                                                       W2510000

                                   4483 *        *TEXT - ACTION MESSAGE AUTHORIZED                              W2512000
                                   4484 *         TEXT - NON-ACTION MESSAGE AUTHORIZED                          W2514000
                                   4485 *        @TEXT - ACTION MESSAGE UNAUTHORIZED                            W2516000

                                   4486 *         +TEXT - NON-ACTION MESSAGE UNAUTHORIZED                       W2518000
                                   4487 *                                                                       W2520000
                                   4488 *        EDIT OUTPUT FORMAT  ( JOB ID FOR NON-HASP AND TIME             W2522000
                                   4489 *              OPERATOR CONTROLLED OPTIONS, JOB APPEARS ON              W2524000
                                   4490 *              ASSOCIATION ONLY )                                       W2526000
                                   4491 *                                                                       W2528000
                                   4492 *        *$TIME JOBID TEXT - ACTION HASP                                W2530000

                                   4493 *         $TIME JOBID TEXT - NON-ACTION HASP                            W2532000
                                   4494 *        * TIME JOBID TEXT - ACTION AUTHORIZED                          W2534000
                                   4495 *          TIME JOBID TEXT - NON-ACTION AUTHORIZED                      W2536000
                                   4496 *        @ TIME JOBID TEXT - ACTION UNAUTHORIZED                        W2538000
                                   4497 *         +TIME JOBID TEXT - NON-ACTION UNAUTHORIZED                    W2540000

                                   4498 *                                                                       W2542000
                                   4499 *              NOTE  MULTI-LINE WTOS ARE NOT EDITED.                    W2544000
                                   4500 *              NOTE  HASP MESSAGES ARE NOT EDITED IN THIS EXIT          W2546000
                                   4501 *                                                                       W2548000

                                   4502 ******************************************************************      W2550000
CON      HASP SVC 35 EXIT 2 ROUTINE                                                                            PAGE   95


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0009F4                             4504 $WTOSVC2 DS    0H                                                       W2554000
                            009F4  4505          USING *,R15                                                    W2556000
0009F4 900E F2F4      00CE8        4506          STM   R0,R14,WSVCSAVE     SAVE REGISTERS                       W2558000

0009F8 98BC F334      00D28        4507          LM    BASE1,BASE2,WBASES  PICK UP BASE REGISTERS               W2560000
                                   4508          DROP  R15                                                      W2562000
0009FC 5830 0010      00010        4509          L     R3,CVTPTR           POINT TO CVT             *           W2564000
000A00 5840 3000      00000        4510          L     R4,CVTTCBP          POINT TO OLD-NEW CELLS   *           W2566000
000A04 5840 4004      00004        4511          L     R4,4(0,R4)          POINT TO CURRENT TCB     *           W2568000

000A08 5940 CD38      00D38        4512          C     R4,WTOTCBA          IS THIS HASP COMMUNICATIONS          W2570000
000A0C 4780 CAC4      00AC4        4513          BE    WW35RET             IF YES, EXIT                         W2572000
                                   4514 ******************************************************************      W2574000
                                   4515 *                                                                       W2576000
                                   4516 *        SETUP FOR WQE EDIT                                             W2578000

                                   4517 *                                                                       W2580000
                                   4518 ******************************************************************      W2582000
000A10 1850                        4519          LR    R5,R0               POINT TO WQE                         W2584000
                            00000  4520          USING WQE,R5                                                   W2586000
000A12 4120 0080      00080        4521          LA    R2,WW35NL           ASSUME NORMAL MAXIMUM LENGTH         W2588000

000A16 4160 5008      00008        4522          LA    R6,WQETXT           POINT TO NORMAL TEXT                 W2590000
000A1A 4170 5007      00007        4523          LA    R7,WQENBR+3         POINT TO LENGTH BYTE                 W2592000
000A1E D200 C88C 6001 0088C 00001  4524          MVC   WWID(1),1(R6)       PULL PP ID OR TEXT BYTE              W2594000
000A24 9140 5004      00004        4525          TM    WQENBR,WMJMMLWB     IS THIS A MAJOR QUEUE ELEMENT        W2596000
000A28 4780 CA30      00A30        4526          BZ    WW35MVC             READY TO MOVE IF NOT MAJOR           W2598000

000A2C 47F0 CAC4      00AC4        4527          B     WW35RET             EXIT                                 W2600000
000A30 1B99                        4528 WW35MVC  SR    R9,R9               PICK UP                              W2602000
000A32 4390 7000      00000        4529          IC    R9,0(0,R7)           LINE LENGTH                         W2604000
000A36 4150 6002      00002        4530          LA    R5,2(0,R6)          POINT TO START OF NEW TEXT           W2606000
000A3A 4180 C80C      0080C        4531          LA    R8,WWORK            POINT TO WORK AREA                   W2608000
000A3E 954E C88C      0088C        4532          CLI   WWID,C'+'           TEST FOR UNAUTHORIZED                W2610000

000A42 4780 CA52      00A52        4533          BE    WW35MSK             SKIP NEXT IF UNAUTHORIZED            W2612000
000A46 9240 C88C      0088C        4534          MVI   WWID,C' '           SET TO BLANK                         W2614000
000A4A 4180 8001      00001        4535          LA    R8,1(0,R8)          POINT TO WORK + 1                    W2616000
000A4E 4190 9001      00001        4536          LA    R9,1(0,R9)          UP LENGTH BY 1                       W2618000

000A52 0690                        4537 WW35MSK  BCTR  R9,0                REDUCE COUNT TO                      W2620000
000A54 0690                        4538          BCTR  R9,0                 USER TEXT LENGTH                    W2622000
000A56 4490 CACC      00ACC        4539          EX    R9,WW35MOUT         MOVE USER TEXT OUT OF WQE (+1)       W2624000
                                   4540 ******************************************************************      W2626000
                                   4541 *                                                                       W2628000

                                   4542 *        TIME STAMP                                                     W2630000
                                   4543 *                                                                       W2632000
                                   4544 ******************************************************************      W2634000
                                   4545 *        TM    $STATUS,$TIMSTMP    DO WE TIME STAMP                     W2636000
                                   4546 *        BZ    WW35NTME            IF NOT SKIP TIME                     W2638000
000A5A 902F CCB0      00CB0        4547          STM   R2,R15,WSAVREGS+R2*4 SAVE REGISTERS                      W2640000

000A5E 4110 0002      00002        4548          LA    R1,2                SET REQUEST ID                       W2642000
000A62 4150 B104      00104        4549          LA    R5,$TIMEARG-36      FAKE SVRB ADDR FOR IGC011            W2644000
000A66 5860 B130      00130        4550          L     R6,$TIMENT          POINT TO TIME ROUTINE                W2646000
000A6A 05E6                        4551          BALR  R14,R6              GET TIME                             W2648000

                            00A6C  4552          USING *,R14                                                    W2650000
000A6C 982F E244      00CB0        4553          LM    R2,R15,WSAVREGS+R2*4 RESTORE REGISTERS                   W2652000
                                   4554          DROP  R14                                                      W2654000
000A70 5000 C218      00218        4555          ST    R0,WPKTIME          STORE TIME                           W2656000
000A74 D209 6001 CDDC 00001 00DDC  4556          MVC   1(10,R6),=X'4021204B20204B202040' EDIT PATTERN           W2658000

000A7A DE09 6001 C218 00001 00218  4557          ED    1(10,R6),WPKTIME    INSERT INTO WQE                      W2660000
000A80 4150 5009      00009        4558 WW35INCT LA    R5,9(0,R5)          UP TO NEW TEXT AREA IN WQE           W2662000
CON      HASP SVC 35 EXIT 2 ROUTINE                                                                            PAGE   96


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000A84 D200 6001 C88C 00001 0088C  4559 WW35NTME MVC   1(1,R6),WWID        REPLACE PP FLAG OR AUTHORIZED        W2664000
                                   4560 ******************************************************************      W2666000
                                   4561 *                                                                       W2668000

                                   4562 *        JOB NUMBER                                                     W2670000
                                   4563 *                                                                       W2672000
                                   4564 ******************************************************************      W2674000

                                   4565 *        TM    $STATUS,$JNUMBER    DO WE ATTEMPT TO JOB NUMBER          W2676000
                                   4566 *        BZ    WW35NJOB            IF NOT SKIP IT                       W2678000
000A8A 18F5                        4567          LR    R15,R5              SAVE SCAN POINTER                    W2680000
000A8C 4550 CAD8      00AD8        4568          BAL   R5,WSVCASOC         ASSOCIATE JOB R10PTR TO JCT          W2682000
000A90 47F0 CAA8      00AA8        4569          B     WW35NJB             IF NO ASSOCIATION                    W2684000

000A94 D203 F000 CDBC 00000 00DBC  4570          MVC   0(4,R15),=C'JOB '   MOVE JOB INTO AREA                   W2686000
000A9A D203 F004 A06C 00004 0006C  4571          MVC   4(4,R15),JCTJOBEB   PUT NUMBER IN                        W2688000
000AA0 9240 F008      00008        4572          MVI   8(R15),C' '         BLANK NEXT CHARACTER                 W2690000
000AA4 41F0 F009      00009        4573          LA    R15,9(0,R15)        UP TO NEW START OF TEXT              W2692000
000AA8 185F                        4574 WW35NJB  LR    R5,R15              RESTORE R5                           W2694000
000AAA                             4575 WW35NJOB DS    0H                                                       W2696000
                                   4576 ******************************************************************      W2698000
                                   4577 *                                                                       W2700000

                                   4578 *       TRUNCATE IF REQUIRED AND MOVE TEXT BACK INTO WQE                W2702000
                                   4579 *                                                                       W2704000

                                   4580 ******************************************************************      W2706000
000AAA 1A95                        4581          AR    R9,R5               POINT TO END + 1                     W2708000
000AAC 1B96                        4582          SR    R9,R6               FULL LENGTH OF NEW TEXT              W2710000
000AAE 1992                        4583          CR    R9,R2               EXCEED MAXIMUM                       W2712000
000AB0 47D0 CAB6      00AB6        4584          BNH   *+6                 IF NOT MOVE ALL OF IT                W2714000

000AB4 1892                        4585          LR    R9,R2               TRUNCATE                             W2716000
000AB6 4290 7000      00000        4586          STC   R9,0(0,R7)          SET NEW WQE COUNT                    W2718000
000ABA 1A96                        4587          AR    R9,R6               BACK TO END + 1 ( MODIFIED )         W2720000
000ABC 1B95                        4588          SR    R9,R5               BACK TO COUNT TO MOVE                W2722000
000ABE 0690                        4589          BCTR  R9,0                GET MACHINE COUNT                    W2724000
000AC0 4490 CAD2      00AD2        4590          EX    R9,WW35MIN          MOVE TEXT INTO WQE                   W2726000
                                   4591 ******************************************************************      W2728000
                                   4592 *                                                                       W2730000
                                   4593 *        RETURN TO OS                                                   W2732000

                                   4594 *                                                                       W2734000

                                   4595 ******************************************************************      W2736000
000AC4 980E CCE8      00CE8        4596 WW35RET  LM    R0,R14,WSVCSAVE     RESTORE REGISTERS                    W2738000
000AC8 1BFF                        4597          SR    R15,R15             ZERO RETURN CODE                     W2740000
000ACA 07FE                        4598          BR    R14                 EXIT                                 W2742000
000ACC D200 8000 6001 00000 00001  4599 WW35MOUT MVC   0(*-*,R8),1(R6)     MOVE USER TEXT OUT OF WQE            W2744000

000AD2 D200 5000 C80D 00000 0080D  4600 WW35MIN  MVC   0(*-*,R5),WWORK+1   MOVE USER TEXT INTO WQE              W2746000
CON      HASP SVC 34, 35, AND 36 EXIT SUBROUTINES                                                              PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4602 ******************************************************************      W2750000
                                   4603 *                                                                       W2752000
                                   4604 *        JOB ASSOCIATION SUBROUTINE                                     W2754000
                                   4605 *                                                                       W2756000
                                   4606 ******************************************************************      W2758000
                            00000  4607          USING TCBDSECT,R4                                              W2760000
000AD8 D503 407C B0D4 0007C 000D4  4608 WSVCASOC CLC   TCBJSTCB,$HASPTCB   IS THIS HASP REGION TCB              W2762000

000ADE 0785                        4609          BCR   E,R5                EXIT WITH NO JOB                     W2764000

000AE0 18AF                        4610          LR    R10,R15             SAVE BASE REGISTER                   W2766000
000AE2 58F0 CDCC      00DCC        4611          L     R15,=V(XJOBSRCH)    POINT TO ASSOCIATION                 W2768000
000AE6 05EF                        4612          BALR  R14,R15             ENTER ROUTINE                        W2770000
000AE8 18FA                        4613          LR    R15,R10             RESTORE BASE REGISTER                W2772000

000AEA 4730 CB2C      00B2C        4614          BC    3,WS35ASOK          SKIP IF FOUND                        W2774000
000AEE 5810 400C      0000C        4615          L     R1,TCBTIO           POINT TO TIOT                        W2776000
                                   4616          DROP  R4                                                       W2778000
000AF2 D506 CD8F 1000 00D8F 00000  4617          CLC   WS35INAM,0(R1)      IS THIS A HASP INIT                  W2780000
000AF8 4770 CB0C      00B0C        4618          BNE   WS35ASOS            IF NOT SKIP NEXT                     W2782000
000AFC 4110 1008      00008        4619          LA    R1,8(0,R1)          POINT TO STEP NAME                   W2784000
000B00 58F0 CDD0      00DD0        4620          L     R15,=V(XJOBSRC2)    POINT TO NAME ASSOCIATION            W2786000
000B04 05EF                        4621          BALR  R14,R15             TRY ASSOCIATION                      W2788000
000B06 18FA                        4622          LR    R15,R10             RESTORE BASE                         W2790000
000B08 4730 CB2C      00B2C        4623          BC    3,WS35ASOK          SKIP IF FOUND                        W2792000
000B0C                             4624 WS35ASOS DS    0H                                                       W2794000

000B0C D507 8000 CDA8 00000 00DA8  4625          CLC   0(8,R8),=CL8'IEE301I'  CHECK FOR CANCEL                  W2796000
000B12 4780 CB1E      00B1E        4626          BE    WS35ASJN            IF SO POINT TO NAME                  W2798000
000B16 D507 8000 CDB0 00000 00DB0  4627          CLC   0(8,R8),=CL8'IEF452I' CHECK FOR JOB NOT RUN              W2800000
000B1C 0775                        4628          BCR   NE,R5               RETURN IF NO ASSOCIATION             W2802000

000B1E                             4629 WS35ASJN DS    0H                                                       W2804000
000B1E 4110 8008      00008        4630          LA    R1,8(0,R8)          POINT TO NAME                        W2806000
000B22 58F0 CDD0      00DD0        4631          L     R15,=V(XJOBSRC2)    POINT TO NAME ASSOCIATION            W2808000
000B26 05EF                        4632          BALR  R14,R15             TRY ASSOCIATION                      W2810000
000B28 18FA                        4633          LR    R15,R10             RESTORE BASE REGISTER                W2812000
000B2A 07C5                        4634          BCR   12,R5               RETURN IF NO ASSOCIATION             W2814000
000B2C 58A0 D03C      0003C        4635 WS35ASOK L     R10,PCEJCT          PICK UP JCT POINTER                  W2816000
000B30 47F0 5004      00004        4636          B     4(0,R5)             RETURN FOUND                         W2818000
                                   4637 ******************************************************************      W2820000
                                   4638 *                                                                       W2822000
                                   4639 *        ROUTINE TO WAIT ON CMB                                         W2824000
                                   4640 *                                                                       W2826000

                                   4641 ******************************************************************      W2828000
000B34 5940 B0D4      000D4        4642 WS35WAIT C     R4,$HASPTCB         IS THIS HASP                         W2830000
000B38 4780 C6BE      006BE        4643          BE    WSVCRET0            EXIT IF YES                          W2832000

000B3C 5940 30A0      000A0        4644          C     R4,CVTHEAD          IS THIS PAGING SUPERVISOR            W2834000
000B40 4780 C6BE      006BE        4645          BE    WSVCRET0            EXIT IF YES                          W2836000
000B44 5850 3064      00064        4646          L     R5,CVTCUCB          POINT TO UCM                         W2838000
                            00000  4647          USING UCM,R5                                                   W2840000
000B48 5940 5040      00040        4648          C     R4,UCMPXA           IS THIS COMMUNICATIONS TASK          W2842000
000B4C 4780 C6BE      006BE        4649          BE    WSVCRET0            EXIT IF YES                          W2844000
                            00000  4650          USING TCBDSECT,R4                                              W2846000
000B50 9180 401D      0001D        4651          TM    TCBFLGS,X'80'       IS TASK ABENDING                     W2848000
000B54 4710 C6BE      006BE        4652          BO    WSVCRET0            EXIT IF YES                          W2850000
000B58 5850 4000      00000        4653          L     R5,TCBRBP           PICK UP OUR RB                       W2852000
                            00040  4654          USING RBDSECT,R5                                               W2854000
                                   4655          DROP  R4                                                       W2856000

000B5C 5850 501C      0005C        4656          L     R5,RBLINK           GO TO CALLER RB                      W2858000

CON      HASP SVC 34, 35, AND 36 EXIT SUBROUTINES                                                              PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000B60 9180 500A      0004A        4657          TM    RBSTAB,X'80'        TEST SIRB, SVRB                      W2860000
000B64 4780 CB70      00B70        4658          BZ    WS35WAT             IF NEITHER WAIT                      W2862000
000B68 9170 500A      0004A        4659          TM    RBSTAB,X'70'        TEST SVRB                            W2864000
000B6C 4780 C6BE      006BE        4660          BZ    WSVCRET0            NOT SVRB, EXIT WITH SIRB             W2866000
                                   4661          DROP  R5                                                       W2868000
                                   4662 *        TASK IS A WAITABLE TASK                                        W2870000
000B70 980E CCE8      00CE8        4663 WS35WAT  LM    R0,R14,WSVCSAVE     RESTORE OS REGISTERS                 W2872000
                            00534  4664          USING WBASE,R15                                                W2874000
000B74 8000 F8B6      00DEA        4665          SSM   =X'FF'              ENABLE                               W2876000
000B78 18A0                        4666          LR    R10,R0              SAVE R0                              W2878000
000B7A 18D1                        4667          LR    R13,R1              SAVE R1                              W2880000
                                   4668          ENQ   MF=(E,WS35ENQ)      WAIT FOR CMB ECB                     W2882000

000B7C 4110 F80C      00D40        4669+         LA    1,WS35ENQ                         LOAD PARAMETER REG 1   00100000
000B80 0A38                        4670+         SVC   56                                                       02480000

000B82 05F0                        4671          BALR  R15,0               REESTABLISH BASE                     W2884000

                            00B84  4672          USING *,R15                                                    W2886000
000B84 58F0 F244      00DC8        4673          L     R15,=A(WBASE)                                            W2888000
                            00534  4674          USING WBASE,R15                                                W2890000
000B88 8000 F655      00B89        4675 WS35TEST SSM   *+1                 DISABLE                              W2892000
000B8C 900E F7B4      00CE8        4676          STM   R0,R14,WSVCSAVE     SAVE OS REGISTERS                    W2894000
000B90 98BC F7F4      00D28        4677          LM    BASE1,BASE2,WBASES  GET HASP BASE 1                      W2896000
000B94 D603 B108 B108 00108 00108  4678          OC    $FREEQUE,$FREEQUE   TEST FOR CMB NOW                     W2898000
000B9A 4770 F692      00BC6        4679          BNZ   WS35DEQ             IF CMB AVAILABLE GO TO IT            W2900000
000B9E 5810 F8A0      00DD4        4680          L     R1,=V($CMBWECB)     POINT TO ECB                         W2902000
000BA2 9200 1000      00000        4681          MVI   0(R1),0             CLEAR ECB                            W2904000
000BA6 5040 100C      0000C        4682          ST    R4,12(0,R1)         SAVE TCB ADDRESS                     W2906000
                                   4683 * RESTRICTION  NO TSO TCB CAN BE MISTAKEN FOR A HASP JOBS TCB           W2908000

000BAA 982E F7BC      00CF0        4684          LM    R2,R14,WSVCSAVE+R2*4 RESTORE REGISTERS ( NOT 0,1 )       W2910000
000BAE 8000 F8B6      00DEA        4685          SSM   =X'FF'              ENABLE                               W2912000
                                   4686          WAIT  ECB=(1)             WAIT ON ECB                          W2914000

000BB2 4110 1000      00000        4687+         LA    1,0(0,1)                    CLEAR HIGH BYTE OF REG       00087017
000BB6 4100 0001      00001        4688+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
000BBA 0A01                        4689+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
000BBC 05F0                        4690          BALR  R15,0               REESTABLISH BASE                     W2916000
                            00BBE  4691          USING *,R15                                                    W2918000
000BBE 58F0 F20A      00DC8        4692          L     R15,=A(WBASE)                                            W2920000
                            00534  4693          USING WBASE,R15                                                W2922000
000BC2 47F0 F654      00B88        4694          B     WS35TEST            LOOP                                 W2924000
000BC6 980E F7B4      00CE8        4695 WS35DEQ  LM    R0,R14,WSVCSAVE     RESTORE OS REGISTERS                 W2926000
000BCA 8000 F8B6      00DEA        4696          SSM   =X'FF'              ENABLE                               W2928000
                                   4697          DEQ   MF=(E,WS35ENQ)      LET OTHERS GO ALSO                   W2930000
000BCE 4110 F80C      00D40        4698+         LA    1,WS35ENQ                         LOAD PARAMETER REG 1   00100000

000BD2 0A30                        4699+         SVC   48                                                  SDS1 72000016
000BD4 05F0                        4700          BALR  R15,0               REESTABLISH BASE                     W2932000
                            00BD6  4701          USING *,R15                                                    W2934000
000BD6 58F0 F1F2      00DC8        4702          L     R15,=A(WBASE)                                            W2936000

                            00534  4703          USING WBASE,R15                                                W2938000
000BDA 180A                        4704          LR    R0,R10              RESTORE OS                           W2940000
000BDC 181D                        4705          LR    R1,R13               PARMS                               W2942000
000BDE 47F0 F442      00976        4706          B     WS35REF             REFERENCE MESSAGE AREA               W2944000
                                   4707          DROP  R15                                                      W2946000
                                   4708 ******************************************************************      W2948000

                                   4709 *                                                                       W2950000
                                   4710 *        QUEUE MESSAGE IN CMB ON LOG QUEUE                              W2952000
                                   4711 *                                                                       W2954000
CON      HASP SVC 34, 35, AND 36 EXIT SUBROUTINES                                                              PAGE   99


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4712 ******************************************************************      W2956000
000BE2 956E CD3E      00D3E        4713 WSVCQUE  CLI   W$WTOPRM+2,110      TEST FOR MAX EXCEEDED                W2958000
000BE6 47D0 CBEE      00BEE        4714          BNH   *+8                 SKIP NEXT IF NOT                     W2960000

000BEA 926E CD3E      00D3E        4715          MVI   W$WTOPRM+2,110      SET TO MAX                           W2962000
000BEE 5800 CD3C      00D3C        4716          L     R0,W$WTOPRM         PICK UP PARMS                        W2964000

000BF2 1818                        4717          LR    R1,R8               POINT TO MESSAGE                     W2966000
                                   4718 *        ICM   R1,8,WSVCSAVE+R14*4 INSERT 'L', 'R', OR ' '         RFIT W2968000
000BF4 43E0 CD20      00D20        4719          IC    R14,WSVCSAVE+R14*4                                  RFIT W2968005
000BF8 89E0 0018      00018        4720          SLL   R14,24                                              RFIT W2968010
000BFC 8910 0008      00008        4721          SLL   R1,8                                                RFIT W2968015
000C00 8810 0008      00008        4722          SRL   R1,8                                                RFIT W2968020
000C04 161E                        4723          OR    R1,R14                                              RFIT W2968025
000C06 45E0 C0AC      000AC        4724          BAL   R14,HASPCBUF        QUEUE                                W2970000

                                   4725 * FALL THROUGH TO POST ROUTINE                                          W2972000
                                   4726 ******************************************************************      W2974000
                                   4727 *                                                                       W2976000
                                   4728 *        SUBROUTINE TO POST HASP                                        W2978000
                                   4729 *                                                                       W2980000

                                   4730 ******************************************************************      W2982000
000C0A 90AF CCD0      00CD0        4731 WSVCPOST STM   R10,R15,WSAVREGS+R10*4 SAVE REGISTERS                    W2984000
000C0E 58F0 3098      00098        4732          L     R15,CVT0PT01        POINT TO BRANCH ENTRY                W2986000

000C12 18EC                        4733          LR    R14,BASE2           MOVE BASE                            W2988000
                            00000  4734          USING HASPCON,R14                                              W2990000
000C14 58C0 B0D4      000D4        4735          L     R12,$HASPTCB        POINT TO HASP TCB                    W2992000
000C18 41B0 B0D8      000D8        4736          LA    R11,$HASPECB        POINT TO HASP ECB, LOSE BASE1        W2994000
000C1C 1BAA                        4737          SR    R10,R10             ZERO COMPLETION                      W2996000
000C1E 05EF                        4738          BALR  R14,R15             ENTER POST                           W2998000
                            00C20  4739          USING *,R14                                                    W3000000

000C20 98AF E0B0      00CD0        4740          LM    R10,R15,WSAVREGS+R10*4 RESTORE REGISTERS                 W3002000
                                   4741          DROP  R14                                                      W3004000
000C24 07F5                        4742          BR    R5                  RETURN                               W3006000
                                   4743 ******************************************************************      W3008000
                                   4744 *                                                                       W3010000

                                   4745 *        ENABLE FOR PAGE IN                                             W3012000
                                   4746 *                                                                       W3014000
                                   4747 ******************************************************************      W3016000
000C26 980E CCE8      00CE8        4748 WS35GET  LM    R0,R14,WSVCSAVE     RESTORE ENABLED REGISTERS            W3018000

                            00534  4749          USING WBASE,R15                                                W3020000
000C2A 8000 F8B6      00DEA        4750          SSM   =X'FF'              ENABLE                               W3022000
000C2E 47F0 F442      00976        4751          B     WS35REF             REFERENCE PARAMETERS                 W3024000
                                   4752          DROP  R15                                                      W3026000
CON      HASP TSO STATUS/CANCEL EXIT - USER TASK                                                               PAGE  100


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   4754 ******************************************************************      W3030000
                                   4755 *                                                                       W3032000
                                   4756 *        HASP TSO STATUS/CANCEL ROUTINE                                 W3034000
                                   4757 *                                                                       W3036000
                                   4758 *        THIS ROUTINE IS DIVIDED INTO TWO PARTS. THE FIRST PART         W3038000

                                   4759 *        SETS UP THE USER REQUEST, POSTS THE HASP TASK ( PART           W3040000
                                   4760 *        TWO ), AND RETURNS THE RESPONSE TO THE USER, THE SECOND        W3042000
                                   4761 *        PART RUNS UNDER THE HASP TASK AND PERFORMS THE REQUESTED       W3044000
                                   4762 *        OPERATIONS.                                                    W3046000
                                   4763 *                                                                       W3048000

                                   4764 * FUNCTIONS FOR PART TWO                                                W3050000
                                   4765 *                                                                       W3052000
                                   4766 *    (1) SEARCH THE HASP JOB QUEUE FOR THE NAMED JOB. SET               W3054000
                                   4767 *        MULTIPLE JOBS FOUND BIT IF MORE THAN ONE JOB IS FOUND          W3056000
                                   4768 *        WITH THE REQUESTED NAME. SET JOB NOT FOUND IF NO JOB           W3058000

                                   4769 *        HAS THE REQUESTED NAME.                                        W3060000
                                   4770 *                                                                       W3062000
                                   4771 *    (2) IF THE REQUEST IS TO CANCEL THE JOB, CHECK TO SEE IF THE       W3064000
                                   4772 *        JOB IS QUEUED FOR EXECUTION OR IN SOME QUEUE PRIOR TO          W3066000
                                   4773 *        EXECUTION. IF SO FLAG FOR PURGE AND SET PURGE BIT.             W3068000

                                   4774 *                                                                       W3070000
                                   4775 *    (3) FOR ALL OTHER REQUESTS SET PRE-EXECUTION, POST-EXECUTION       W3072000
                                   4776 *        OR EXECUTION BITS IN ACCORDANCE WITH QUEUES UPON WHICH         W3074000
                                   4777 *        THE JOB IS LOCATED. IF THE JOB IS IN A OPERATOR                W3076000
                                   4778 *        RELEASABLE HOLD STATE SET HOLD BIT.                            W3078000

                                   4779 *                                                                       W3080000
                                   4780 *    (4) POST THE USER TASK ( PART 1 ) WITH THE REQUESTED STATUS        W3082000
                                   4781 *        BIT SETTINGS.                                                  W3084000
                                   4782 *                                                                       W3086000
                                   4783 * EXTERNAL OS ROUTINES ( PART 1 )                                       W3088000

                                   4784 *                                                                       W3090000
                                   4785 *        POST SVC                                                       W3092000
                                   4786 *                                                                       W3094000
                                   4787 *        WAIT SVC                                                       W3096000
                                   4788 *                                                                       W3098000

                                   4789 *        ENQ SVC                                                        W3100000
                                   4790 *                                                                       W3102000
                                   4791 *        DEQ SVC                                                        W3104000
                                   4792 *                                                                       W3106000
                                   4793 ******************************************************************      W3108000
CON      HASP TSO STATUS/CANCEL EXIT - USER TASK                                                               PAGE  101



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4795 ******************************************************************      W3112000
                                   4796 *                                                                       W3114000
                                   4797 * INPUT                                                                 W3116000

                                   4798 *                                                                       W3118000
                                   4799 *        R0    = VARIABLE                                               W3120000
                                   4800 *        R1    = ADDRESS OF PARAMETER LIST                              W3122000
                                   4801 *        R2-R12= VARIABLE                                               W3124000
                                   4802 *        R13   = 18 WORD SAVE AREA FOR EXIT ROUTINE USE                 W3126000

                                   4803 *        R14   = RETURN                                                 W3128000
                                   4804 *        R15   = ENTRY POINT                                            W3130000
                                   4805 *                                                                       W3132000
                                   4806 *        SYSTEM ENABLED, SUPERVISOR STATE, SWAPPABLE TASK               W3134000
                                   4807 *                                                                       W3136000
                                   4808 * OUTPUT                                                                W3138000
                                   4809 *                                                                       W3140000

                                   4810 *        RESPONSE BYTE                                                  W3142000
                                   4811 *                                                                       W3144000
                                   4812 *        BITS       CMDS  MEANING                                       W3146000

                                   4813 *        XXX00000 - S   - JOB IN INDICATED STATUS AND NOT HELD          W3148000
                                   4814 *        100X0000 - S   - JOB IN A PRE-EXECUTION STATUS                 W3150000
                                   4815 *        010X0000 - S   - JOB IN A POST-EXECUTION STATUS                W3152000
                                   4816 *        001X0000 - S   - JOB IN EXECUTION                              W3154000
                                   4817 *        XXX10000 - S   - JOB IN INDICATED STATUS AND HELD              W3156000

                                   4818 *        00001000 - C/S - MULTIPLE JOBS FOUND                           W3158000
                                   4819 *        00000100 - C   - JOB FLAGGED FOR PURGE                         W3160000
                                   4820 *        00000010 - C/S - JOB NOT FOUND                                 W3162000
                                   4821 *        00000010 - C   - JOB NOT IN PRE-EXECUTION STATUS               W3164000
                                   4822 *                                                                       W3166000
                                   4823 ******************************************************************      W3168000
CON      HASP TSO STATUS/CANCEL EXIT - USER TASK                                                               PAGE  102


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   4825          ENTRY $TSOCOMM                                                 W3172000
000C32                             4826 $TSOCOMM DS    0H                                                       W3174000

                                   4827          AIF   (&TSOSTCN).WTSOY                                         W3176000
                                   4828 .WTSOY   ANOP                                                           W3186000
                            00C32  4829          USING *,R15                                                    W3188000
000C32 90EC D00C      0000C        4830          STM   R14,R12,12(R13)     SAVE USERS REGISTERS                 W3190000
000C36 1821                        4831          LR    R2,R1               POINT TO PARAMETERS                  W3192000

                            00000  4832          USING TSODSECT,R2                                              W3194000
000C38 98BC F0F6      00D28        4833          LM    BASE1,BASE2,WBASES  PICK UP OUR BASES                    W3196000
                                   4834          DROP  R15                                                      W3198000
                                   4835          ENQ   MF=(E,WTSENQ)       GET EXCLUSIVE CONTROL                W3200000
000C3C 4110 CD80      00D80        4836+         LA    1,WTSENQ                          LOAD PARAMETER REG 1   00100000
000C40 0A38                        4837+         SVC   56                                                       02480000
000C42 5830 0010      00010        4838          L     R3,CVTPTR           POINT TO CVT                         W3202000
000C46 5840 3000      00000        4839          L     R4,CVTTCBP          POINT TO NEW/OLD TCB POINTERS        W3204000
000C4A 5840 4004      00004        4840          L     R4,4(0,R4)          POINT TO CURRENT TCB                 W3206000

                            00000  4841          USING TCBDSECT,R4                                              W3208000

000C4E 5850 40B4      000B4        4842          L     R5,TCBJSCB          POINT TO JSCB                        W3210000
                            00000  4843          USING JSCDSECT,R5                                              W3212000
000C52 8000 CC53      00C53        4844          SSM   *+1                 DISABLE                              W3214000
000C56 9200 CD58      00D58        4845          MVI   WTSECB,0            RESET ECB                            W3216000
000C5A D201 CD6A 510C 00D6A 0010C  4846          MVC   WTSTJID+2(2),JSCBTJID SET TJID                           W3218000

000C60 5040 CD64      00D64        4847          ST    R4,WTSTCB           SET TCB ADDRESS                      W3220000
000C64 D208 CD75 2000 00D75 00000  4848          MVC   WTSNAMT(9),TSOJOBN  SET JOB NAME                         W3222000
000C6A 5810 CDD8      00DD8        4849          L     R1,=V($TSOSPCE)     POINT TO TSO SUPPORT PCE             W3224000
                                   4850          $POST PCEEWF+$EWBWORK-PCEDSECT(R1),WORK POST IT                W3226000
000C6E 94DF 1049      00049        4851+         NI    PCEEWF+$EWBWORK-PCEDSECT(R1),255-$EWFWORK                PO008000
000C72 947F B0C4      000C4        4852+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
000C76 8000 CDEA      00DEA        4853          SSM   =X'FF'              ENABLE                               W3228000
                                   4854          POST  $HASPECB            POST HASP TASK                       W3230000
000C7A 1B00                        4855+         SR    0,0                    . SET POST CODE REG ZERO          00640021
000C7C 4110 B0D8      000D8        4856+         LA    1,$HASPECB             . LOAD ECB ADDRESS IN REG 1       02350021

000C80 0A02                        4857+         SVC   2                      . ISSUE THE POST SVC              08250021

                                   4858          WAIT  ECB=WTSECB          WAIT FOR HASP                        W3232000
000C82 4110 CD58      00D58        4859+         LA    1,WTSECB                          LOAD PARAMETER REG 1   00100000
000C86 4100 0001      00001        4860+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
000C8A 0A01                        4861+         SVC   1                                 LINK TO WAIT ROUTINE   00280000

000C8C D200 200A CD5B 0000A 00D5B  4862          MVC   TSOFEEDB,WTSECB+3   MOVE FEED BACK INTO PARAMETERS       W3234000
                                   4863          DEQ   MF=(E,WTSENQ)       ALLOW OTHERS IN                      W3236000
000C92 4110 CD80      00D80        4864+         LA    1,WTSENQ                          LOAD PARAMETER REG 1   00100000
000C96 0A30                        4865+         SVC   48                                                  SDS1 72000016
000C98 98EC D00C      0000C        4866          LM    R14,R12,12(R13)     RESTORE REGISTERS                    W3238000
000C9C 1BFF                        4867          SR    R15,R15             SET ZERO RETURN                      W3240000
000C9E 07FE                        4868          BR    R14                 EXIT                                 W3242000
                                   4869          DROP  R2,R4,R5                                                 W3244000
CON      HASP TSO STATUS/CANCEL EXIT - HASP TASK                                                               PAGE  103


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4871          ENTRY HASPTSOS                                                 W3248000

000CA0                             4872 HASPTSOS DS    0H                                                       W3250000
                            00CA0  4873          USING *,BASE2                                                  W3252000
                                   4874          $LINK HASPWTSO                                                 W3254000
000000                             4875+HA$QWTSO DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000

000CA0                             4876+HASPCON  CSECT                                                          OL014000
000CA0 41E00000                    4877+         DC    Y(X'4100'+LINK*16),QL2(HA$QWTSO) LOAD OCON INTO LINK     OL016000
000CA4 45F0 B08C      0008C        4878+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000
                                   4879 HASPWTSO $OVERLAY &LOW,&LOW                                             W3256000
000DF0                             4880+HA$OWTSO CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            00DF4  4881+HA$IWTSO EQU   HA$OWTSO+4          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   4882+         ENTRY HA$IWTSO                                                 OV036000
000DF0 E6E3E2D6                    4883+         DC    CL4'WTSO'           IDENTIFY MODULE ON CORE DUMP         OV038000
000DF4 00000DF0                    4884+         DC    A(HA$OWTSO)         ASSEMBLY ORIGIN                      OV040000
000DF8                             4885+HASPWTSO DS    0F                  ENTRY POINT                          OV042000
                            00D98  4886+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                                   4887 ******************************************************************      W3258000

                                   4888 *                                                                       W3260000
                                   4889 *        WAIT FOR WORK REQUEST                                          W3262000
                                   4890 *                                                                       W3264000

                                   4891 ******************************************************************      W3266000
                                   4892 WTSLOOP  $DISABLE ALL,OLAY=YES     PREVENT INTERRUPTS                   W3268000
000DF8 8000 B0C9      000C9        4893+WTSLOOP  SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
000DFC 9500 C0DD      00D7D        4894 WTSLOOPA CLI   WTSREQT,X'0'        CHECK FOR TSO USER REQUEST           W3270000
000E00 4770 807C      00E14        4895          BNE   WTSWORK             BRANCH IF WORK                       W3272000
                                   4896          $WAIT WORK,ENABLE         WAIT FOR WORK                        W3274000
000E04 9620 D049      00049        4897+         OI    PCEEWF+$EWBWORK,$EWFWORK                                 WA016000
000E08 8000 B0C8      000C8        4898+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
000E0C 45F0 B030      00030        4899+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000E10 47F0 8060      00DF8        4900          B     WTSLOOP             LOOP                                 W3276000
000E14 D208 C0CC C0D5 00D6C 00D75  4901 WTSWORK  MVC   WTSNAME(9),WTSNAMT  COPY NAME OVER                       W3278000
000E1A 9601 C0B8      00D58        4902          OI    WTSECB,1            SET BUSY BIT ON                      W3280000

000E1E 9200 C0DD      00D7D        4903          MVI   WTSREQT,0           FORCE REQUEST TO ZERO                W3282000

                                   4904 ******************************************************************      W3284000
                                   4905 *                                                                       W3286000

                                   4906 *        SCAN JOB QUEUE                                                 W3288000
                                   4907 *                                                                       W3290000
                                   4908 ******************************************************************      W3292000
                                   4909          $ENABLE ALL,OLAY=YES      ALLOW INTERRUPTS                     W3294000
000E22 8000 B0C8      000C8        4910+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
000E26                             4911 WTSREDO  DS    0H                                                       W3296000
000E26 9202 C0BF      00D5F        4912          MVI   WTSRESP,TSOFNONE    ASSUME JOB NOT FOUND                 W3298000
000E2A 1B33                        4913          SR    R3,R3               ZERO JOB POINTER                     W3300000
000E2C 4110 B140      00140        4914          LA    R1,$JQENT-QUECHAIN  LOCATE HEAD OF JOB QUEUE             W3302000
                                   4915 *WTSNEXT ICM   R1,7,QUECHAIN+1(R1) POINT TO NEXT QUEUE ELEMENT     RFIT W3304000
000E30 5811 0004      00004        4916 WTSNEXT  L     R1,QUECHAIN(R1)                                     RFIT W3304005
000E34 4110 1000      00000        4917          LA    R1,0(,R1)                                           RFIT W3304010

000E38 1211                        4918          LTR   R1,R1                                               RFIT W3304015
000E3A 4770 81E2      00F7A        4919          BNZ   WTSPRO              IF NOT END OF QUEUE, PROCESS         W3306000

000E3E 1213                        4920          LTR   R1,R3               TEST ANY FOUND                       W3308000

000E40 4780 813A      00ED2        4921          BZ    WTSPOST             POST WITH CURRENT ANSWER             W3310000
000E44 9140 C0D4      00D74        4922          TM    WTSREQF,TSORCAN     DOES USER WANT A CANCEL              W3312000
000E48 4780 810A      00EA2        4923          BZ    WTSNCAN             IF NOT ASSUME OTHER REQUEST          W3314000
CON      HASP TSO STATUS/CANCEL EXIT - HASP TASK                                                               PAGE  104


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4925 ******************************************************************      W3318000
                                   4926 *                                                                       W3320000
                                   4927 *        CANCEL REQUESTED - PROCESS CANCEL IF PRE-EXECUTION             W3322000
                                   4928 *                                                                       W3324000
                                   4929 ******************************************************************      W3326000
000E4C 9180 1001      00001        4930          TM    QUETYPE(R1),QENTBY  IS JOB BUSY                          W3328000
000E50 4780 80C8      00E60        4931          BZ    WTSCNB              IF NOT, SKIP INPUT TEST              W3330000

000E54 95A0 1001      00001        4932          CLI   QUETYPE(R1),$INPUT+QENTBY IS IT INPUT                    W3332000
000E58 4780 80D0      00E68        4933          BE    WTSCAN              CANCEL IF YES                        W3334000
000E5C 47F0 813A      00ED2        4934          B     WTSPOST             POST IF NOT                          W3336000

000E60 9140 1001      00001        4935 WTSCNB   TM    QUETYPE(R1),$XEQ    IS THIS EXECUTION                    W3338000
000E64 4780 813A      00ED2        4936          BZ    WTSPOST             POST IF NOT                          W3340000
000E68 9204 C0BF      00D5F        4937 WTSCAN   MVI   WTSRESP,TSOFPURG    SET PURGE RETURN                     W3342000
000E6C 9110 B0C2      000C2        4938          TM    $STATUS,$CKPTACT    IS CHECK POINT ACTIVE                W3344000
000E70 4710 80FE      00E96        4939          BO    WTSCANW             IF SO WAIT AND DO OVER               W3346000
000E74 941F 1004      00004        4940          NI    QUEFLAGS(R1),255-QUEHOLDA-QUEHOLD1-QUEHOLD2 $A JOB       W3348000
000E78 9618 1004      00004        4941          OI    QUEFLAGS(R1),QUEPURGE+QUEOPCAN SET FLAGS                 W3350000
000E7C 9180 1001      00001        4942          TM    QUETYPE(R1),QENTBY  IS JOB ACTIVE                        W3352000
000E80 4710 813A      00ED2        4943          BO    WTSPOST             POST USER IF BUSY                    W3354000
000E84 4100 0004      00004        4944          LA    R0,$OUTPUT          PUT TO $OUTPUT                       W3356000
                                   4945          $QPUT (R1),(R0),OLAY=YES  DUMMY QUEUE PUT TO PURGE             W3358000
000E88 41E0 80FA      00E92        4946+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000

000E8C 1FE8                        4947+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
000E8E 47F0 B050      00050        4948+         B     $QPUT               BRANCH TO CONTROL SERVICE PROGRAM    BA018000
000E92 47F0 813A      00ED2        4949          B     WTSPOST             POST USER                            W3360000
                                   4950 WTSCANW  $WAIT CKPT                WAIT FOR CHECK POINT                 W3362000

000E96 9604 D048      00048        4951+WTSCANW  OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
000E9A 45F0 B030      00030        4952+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000E9E 47F0 808E      00E26        4953          B     WTSREDO             RE-DO LOCATE                         W3364000
                                   4954 ******************************************************************      W3366000
                                   4955 *                                                                       W3368000
                                   4956 *        STATUS REQUESTED - SET PRE, CURRENT, OR POST EXECUTION         W3370000

                                   4957 *                                                                       W3372000
                                   4958 ******************************************************************      W3374000
000EA2 9220 C0BF      00D5F        4959 WTSNCAN  MVI   WTSRESP,TSOFXEQ     ASSUME XEQ                           W3376000
000EA6 91C0 1004      00004        4960          TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1 TEST FOR OPER. HOLD       W3378000
000EAA 4780 811A      00EB2        4961          BZ    *+8                 SKIP NSI IF NOT                      W3380000
000EAE 9610 C0BF      00D5F        4962          OI    WTSRESP,TSOFHOLD    SET HOLD RESPONSE                    W3382000
000EB2 91C0 1001      00001        4963          TM    QUETYPE(R1),$XEQ+QENTBY TEST FOR IN EXECUTION            W3384000
000EB6 4710 813A      00ED2        4964          BO    WTSPOST             IF SO POST USER                      W3386000

000EBA 97A0 C0BF      00D5F        4965          XI    WTSRESP,TSOFXEQ+TSOFPRE TURN XEQ OFF PRE-XEQ ON          W3388000
000EBE 9140 1001      00001        4966          TM    QUETYPE(R1),$XEQ    TEST FOR XEQ Q                       W3390000

000EC2 4710 813A      00ED2        4967          BO    WTSPOST             IF SO POST USER                      W3392000
000EC6 95A0 1001      00001        4968          CLI   QUETYPE(R1),$INPUT+QENTBY IS THIS INPUT                  W3394000
000ECA 4780 813A      00ED2        4969          BE    WTSPOST             POST WITH CURRENT ANSWER             W3396000
000ECE 97C0 C0BF      00D5F        4970          XI    WTSRESP,TSOFPRE+TSOFOUT TURN INPUT OFF OUTPUT ON         W3398000
CON      HASP TSO STATUS/CANCEL EXIT - HASP TASK                                                               PAGE  105


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4972 ******************************************************************      W3402000
                                   4973 *                                                                       W3404000

                                   4974 *        POST USER TASK                                                 W3406000
                                   4975 *                                                                       W3408000
                                   4976 ******************************************************************      W3410000
                                   4977 WTSPOST  $DISABLE ALL,OLAY=YES                                          W3412000
000ED2 8000 B0C9      000C9        4978+WTSPOST  SSM   $DISALL              DISABLE INTERRUPTS                  DI006000

000ED6 9500 C0B8      00D58        4979          CLI   WTSECB,0            MAKE SURE SAME REQUEST               W3414000
000EDA 4780 8064      00DFC        4980          BE    WTSLOOPA            IF NOT FORGET CURRENT ONE            W3416000
000EDE 9500 C0DD      00D7D        4981          CLI   WTSREQT,0           TEST FOR REQUEST STILL ZERO          W3418000

000EE2 4770 8064      00DFC        4982          BNZ   WTSLOOPA            OLD USER ABENDED                     W3420000
000EE6 9180 C0B8      00D58        4983          TM    WTSECB,X'80'        IS USER WAITING                      W3422000
000EEA 4710 8160      00EF8        4984          BO    WTSPOSTA            IF YES POST                          W3424000
000EEE D203 C0B8 C0BC 00D58 00D5C  4985          MVC   WTSECB,WTSPARMS     POST IT                              W3426000
000EF4 47F0 8064      00DFC        4986          B     WTSLOOPA            DO NEXT                              W3428000
000EF8 5830 0010      00010        4987 WTSPOSTA L     R3,CVTPTR           POINT TO CVT                         W3430000
                                   4988 *        ICM   R1,15,WTSTJID       PICK UP TJID                    RFIT W3432000

000EFC 5810 C0C8      00D68        4989          L     R1,WTSTJID                                          RFIT W3432005
000F00 1211                        4990          LTR   R1,R1                                               RFIT W3432010
000F02 4780 818C      00F24        4991          BZ    WTSINCOR            IF ZERO DO NORMAL POST               W3434000
000F06 9180 30E4      000E4        4992          TM    CVTTSCVT,CVTTSRDY   IS TSO ACTIVE                        W3436000
000F0A 4780 8064      00DFC        4993          BZ    WTSLOOPA            CHECK FOR IN IF TSO NOT ACTIVE       W3438000

000F0E 5820 30E4      000E4        4994          L     R2,CVTTSCVT         POINT TO TSO CVT                     W3440000
                            00000  4995          USING TSCVT,R2                                                 W3442000
000F12 4C10 201A      0001A        4996          MH    R1,TSCVTSZU         MULTIPLY BY SIZE OF ELEMENTS         W3444000
000F16 5820 2000      00000        4997          L     R2,TSCVTTJB         POINT TO USER ELEMENTS               W3446000
000F1A 1E21                        4998          ALR   R2,R1               POINT TO ELEMENT                     W3448000
                            00000  4999          USING TJBDSECT,R2                                              W3450000
000F1C 9140 2006      00006        5000          TM    TJBSTAT,TJBINCOR    IS JOB IN STORAGE                    W3452000
000F20 4780 81C8      00F60        5001          BZ    WTSPOK              IF NOT QUEUING POST IS OK            W3454000
                                   5002          DROP  R2                                                       W3456000
000F24 4140 302C      0002C        5003 WTSINCOR LA    R4,CVTHEAD-(TCBTCB-TCBDSECT) POINT TO HEAD OF Q          W3458000
                            00000  5004          USING TCBDSECT,R4                                              W3460000
000F28 5820 C0C4      00D64        5005          L     R2,WTSTCB           POINT TO TARGET TCB                  W3462000

                                   5006 *WTSPL1  ICM   R4,15,TCBTCB        POINT TO NEXT TCB               RFIT W3464000
000F2C 5840 4074      00074        5007 WTSPL1   L     R4,TCBTCB                                           RFIT W3464005
000F30 1244                        5008          LTR   R4,R4                                               RFIT W3464010

000F32 4780 8064      00DFC        5009          BZ    WTSLOOPA            FORGET IT IF END                     W3466000
000F36 1942                        5010          CR    R4,R2               IS THIS THE TCB                      W3468000
000F38 4770 8194      00F2C        5011          BNE   WTSPL1              LOOP IF NOT                          W3470000
000F3C 5850 4000      00000        5012          L     R5,TCBRBP           PICK UP RB                           W3472000

000F40 47F0 81B0      00F48        5013          B     *+8                 SKIP NSI                             W3474000
                            00040  5014          USING RBDSECT,R5                                               W3476000
                                   5015 *WTSPL2  ICM   R5,7,RBLINK+1       POINT TO NEXT RB                RFIT W3478000
000F44 5850 501C      0005C        5016 WTSPL2   L     R5,RBLINK                                           RFIT W3478005
000F48 4150 5000      00000        5017          LA    R5,0(,R5)                                           RFIT W3478010
000F4C 1952                        5018          CR    R5,R2               BACK TO TCB                          W3480000

000F4E 4780 8064      00DFC        5019          BE    WTSLOOPA            FORGET IT IF YES                     W3482000
                                   5020 *        CLM   R5,7,WTSECB+1       XHECK FOR MATCHING RB           RFIT W3484000
000F52 5050 C0F8      00D98        5021          ST    R5,CSTORE                                           RFIT W3484005
000F56 D502 C0F9 C0B9 00D99 00D59  5022          CLC   CSTORE+1(3),WTSECB+1                                RFIT W3484010
000F5C 4770 81AC      00F44        5023          BNE   WTSPL2              LOOP                                 W3486000

000F60 58F0 3098      00098        5024 WTSPOK   L     R15,CVT0PT01        POINT TO POST                        W3488000
000F64 186D                        5025          LR    R6,SAVE             SAVE PCE POINTER                     W3490000
000F66 90EC 600C      0000C        5026          STM   R14,R12,12(R6)      SAVE REGISTERS                       W3492000
CON      HASP TSO STATUS/CANCEL EXIT - HASP TASK                                                               PAGE  106


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000F6A 98AD C0BC      00D5C        5027          LM    R10,R13,WTSPARMS    PICK UP PARMS                        W3494000
000F6E 05EF                        5028          BALR  R14,R15             ENTER POST                           W3496000
000F70 98EC 600C      0000C        5029          LM    R14,R12,12(R6)      RESTORE REGISTERS                    W3498000
000F74 18D6                        5030          LR    SAVE,R6             RESTORE PCE POINTER                  W3500000
000F76 47F0 8064      00DFC        5031          B     WTSLOOPA            LOOP                                 W3502000

                                   5032          DROP  R5                                                       W3504000
CON      HASP TSO STATUS/CANCEL EXIT - HASP TASK                                                               PAGE  107


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5034 ******************************************************************      W3508000
                                   5035 *                                                                       W3510000

                                   5036 *        SCAN PROCESS ROUTINE                                           W3512000
                                   5037 *                                                                       W3514000
                                   5038 ******************************************************************      W3516000
000F7A 45E0 B060      00060        5039 WTSPRO   BAL   LINK,$QJITLOC       LOCATE THE JIT                       W3518000
000F7E 1220                        5040          LTR   R2,R0               TEST FOR OK                          W3520000
000F80 4780 813A      00ED2        5041          BZ    WTSPOST             POST JOB NOT FOUND                   W3522000

000F84 D507 C0CC 2000 00D6C 00000  5042          CLC   WTSNAME,JITJNAME(R2) MATCHING JOB NAME                   W3524000
000F8A 4770 8098      00E30        5043          BNE   WTSNEXT             IF NOT CONTINUE SCAN                 W3526000
000F8E 1233                        5044          LTR   R3,R3               ALREADY SET                          W3528000
000F90 1831                        5045          LR    R3,R1               SET IN CASE OK                       W3530000

000F92 4780 8098      00E30        5046          BZ    WTSNEXT             CONTINUE                             W3532000
000F96 9208 C0BF      00D5F        5047          MVI   WTSRESP,TSOFERR     MULTIPLE JOBS FOUND                  W3534000
000F9A 47F0 813A      00ED2        5048          B     WTSPOST             POST                                 W3536000
                                   5049 .WTSON   ANOP                                                           W3538000
000CA8                             5050 HASPCON  CSECT                                                          W3540000

CON      HASP CONSOLE PROCESSOR WORK AREAS                                                                     PAGE  108


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000CA8                             5052 WSAVREGS DS    16F                 GENERAL SAVE AREA                    W3544000
000CE8 0000000000000000            5053 WSVCSAVE DC    16F'0'              SVC EXIT SAVE AREA                   W3546000
000D28 0000000000000000            5054 WBASES   DC    V(HASP),A(HASPCON)                                       W3548000
000D30 0000000000000510            5055 WQPREGS  DC    F'0',A($WTOECB)     COMPL CODE AND ECB ADDR FOR  OY02728 W3549000
000D38                             5056 WTOTCBA  DS    A(*-*)              HASP COMMUNICATIONS TASK TCB         W3550000

000D3C 22000054                    5057 W$WTOPRM DC    AL1(WFHLOG+WFJOBN,0,*-*,$ACTION+$ST) FOR HASPCBUF        W3552000
                                   5058 ******************************************************************      W3554000
                                   5059 *                                                                       W3556000

                                   5060 *        ENQ ELEMENTS FOR SVC 35 CMB WAIT                               W3558000
                                   5061 *                                                                       W3560000
                                   5062 ******************************************************************      W3562000
                                   5063 WS35ENQ  ENQ   (WS35ENQG,WS35ENQR,E,3,SYSTEM),MF=L                      W3564000
000D40                             5064+WS35ENQ  DS    0F                                                       00720000

000D40 FF                          5065+         DC    AL1(255)                      LAST ENTRY INDICATION      01160000
000D41 03                          5066+         DC    AL1(3)                             LENGTH                01280000
000D42 40                          5067+         DC    BL1'01000000'                                       SDS1 01440016
000D43 00                          5068+         DC    AL1(0)                             RETURN CODE FIELD     01460000
000D44 00000D4C                    5069+         DC    A(WS35ENQG)                        QNAME ADDRESS         01540000
000D48 00000D54                    5070+         DC    A(WS35ENQR)                        RNAME ADDRESS         01680000
000D4C E2E8E2C8C1E2D740            5071 WS35ENQG DC    CL8'SYSHASP'        ENQ Q NAME                           W3566000
000D54 C3D4C2                      5072 WS35ENQR DC    CL3'CMB'            ENQ R NAME                           W3568000

                                   5073          AIF   (NOT &TSOSTCN).WTSOX                                     W3570000
                                   5074 ******************************************************************      W3572000

                                   5075 *                                                                       W3574000
                                   5076 *        WAIT ELEMENT FOR TSO STATUS/CANCEL                             W3576000
                                   5077 *                                                                       W3578000
                                   5078 ******************************************************************      W3580000
000D57 00

000D58 7F000000                    5079 WTSECB   DC    0F'0',X'7F000000'   WAIT ON TSO STATUS/CANCEL            W3582000
000D5C 7F000000                    5080 WTSPARMS DC    X'7F',AL3(*-*)      COMPLETION CODE          R10         W3584000
000D60 80000D58                    5081          DC    X'80',AL3(WTSECB)   ECB ADDRESS              R11         W3586000
000D64 00000000                    5082 WTSTCB   DC    A(*-*)              TCB ADDRESS              R12         W3588000
000D68 00000000                    5083 WTSTJID  DC    A(*-*)              TJID                     R13         W3590000
000D6C 4040404040404040            5084 WTSNAME  DC    CL8' '              JOBNAME                              W3592000
000D74 00                          5085 WTSREQF  DC    X'0'                REQUEST TYPE                         W3594000
000D75 4040404040404040            5086 WTSNAMT  DC    CL8' '              NAME (TEMPORARY)                     W3596000
000D7D 00                          5087 WTSREQT  DC    X'0'                REQUEST (TEMPORARY)                  W3598000

                            00D5F  5088 WTSRESP  EQU   WTSPARMS+3                                               W3600000

                                   5089 ******************************************************************      W3602000
                                   5090 *                                                                       W3604000
                                   5091 *        ENQ ELEMENTS FOR TSO STATUS/CANCEL                             W3606000
                                   5092 *                                                                       W3608000
                                   5093 ******************************************************************      W3610000

                                   5094 WTSENQ   ENQ   (WTSENQG,WTSENQR,E,3,SYSTEM),MF=L                        W3612000
000D80                             5095+WTSENQ   DS    0F                                                       00720000
000D80 FF                          5096+         DC    AL1(255)                      LAST ENTRY INDICATION      01160000
000D81 03                          5097+         DC    AL1(3)                             LENGTH                01280000
000D82 40                          5098+         DC    BL1'01000000'                                       SDS1 01440016
000D83 00                          5099+         DC    AL1(0)                             RETURN CODE FIELD     01460000
000D84 00000D4C                    5100+         DC    A(WTSENQG)                         QNAME ADDRESS         01540000
000D88 00000D8C                    5101+         DC    A(WTSENQR)                         RNAME ADDRESS         01680000
                            00D4C  5102 WTSENQG  EQU   WS35ENQG            ENQ Q NAME                           W3614000
000D8C E3E2D6                      5103 WTSENQR  DC    CL3'TSO'            ENQ R NAME                           W3616000

                                   5104 .WTSOX ANOP                                                             W3618000

000D8F C8D6E2C9D5C9E3              5105 WS35INAM DC    C'HOSINIT'          NAME OF HASP INITIATORS              W3620000
CON      HASP CONSOLE PROCESSOR WORK AREAS                                                                     PAGE  109


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000D96 0000

000D98 00000000                    5106 CSTORE   DC    F'0'                TEMPORARY STORAGE AREA          RFIT W3620100
000DA0                             5107          LTORG                                                          W3622000
000DA0 C9C5C6F4F2F9C940            5108                =CL8'IEF429I'
000DA8 C9C5C5F3F0F1C940            5109                =CL8'IEE301I'
000DB0 C9C5C6F4F5F2C940            5110                =CL8'IEF452I'
000DB8 00000000                    5111                =V($LOGPCE)
000DBC D1D6C240                    5112                =C'JOB '
000DC0 00000000                    5113                =V($COMMPCE)
000DC4 00000000                    5114                =V($WRESERV)
000DC8 00000534                    5115                =A(WBASE)
000DCC 00000000                    5116                =V(XJOBSRCH)

000DD0 00000000                    5117                =V(XJOBSRC2)
000DD4 00000000                    5118                =V($CMBWECB)
000DD8 00000000                    5119                =V($TSOSPCE)
000DDC 4021204B20204B20            5120                =X'4021204B20204B202040'

000DE6 0001                        5121                =H'1'
000DE8 0004                        5122                =H'4'
000DEA FF                          5123                =X'FF'
000DEB FFFFFF                      5124                =X'FFFFFF'
CON      OS CONSOLE SUPPORT DSECTS                                                                             PAGE  110


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             5126 OREF     DSECT                                                          W3626000
000000                             5127 ORELKP   DS    F                                                        W3628000
000004                             5128 OREID    DS    CL2                                                      W3630000
000006                             5129          DS    CL2                                                      W3632000
000008                             5130 ORETJID1 DS    0C                                                       W3634000
000008                             5131 ORETCB   DS    F                                                        W3636000

00000C                             5132          DS    CL8                                                      W3638000
000014                             5133 ORETJID2 DS    C                                                        W3640000
000000                             5134 UCM      DSECT                                                          W3642000

000000                             5135          DS    CL28                                                     W3644000
00001C                             5136 UCMRPYQ  DS    F                                                        W3646000
000020                             5137          DS    CL32                                                     W3648000
000040                             5138 UCMPXA   DS    F                                                        W3650000
000044                             5139          DS    CL4                                                      W3652000
000048                             5140 UCMVEA   DS    F                                                        W3654000
000000                             5141 UCMLIST  DSECT                                                          W3656000
000000                             5142          DS    CL26                                                     W3658000
00001A                             5143 UCMID    DS    C                                                        W3660000
00001B                             5144          DS    CL13                                                     W3662000
000028                             5145 UCMAUTH  DS    C                                                        W3664000
000000                             5146 WQE      DSECT                                                          W3666000

000000                             5147          DS    F                                                        W3668000

000004                             5148 WQENBR   DS    F                   MESSAGE LENGTH                       W3670000
000008                             5149 WQETXT   DS    CL128               MESSAGE TEXT                         W3672000

                            00080  5150 WW35NL   EQU   *-WQETXT                                                 W3674000
000088                      00000  5151          ORG   WQE                                                      W3676000
000000                             5152          DS    F                                                        W3678000
000004                             5153 WMJMMLW  DS    C                   MAJOR WQE FLAGS                      W3680000
                            00040  5154 WMJMMLWB EQU   X'40'               MAJOR WQE ID BIT                     W3682000
000005                             5155          DS    C                                                        W3684000
000006                             5156 WMJMTXTL DS    CL2                 MAJOR TEXT LENGTH                    W3686000
000008                             5157          DS    3F                                                       W3688000
000014                             5158 WMJMTXT  DS    CL72                MAJOR MESSAGE TEXT                   W3690000
                            00048  5159 WW35JL   EQU   *-WMJMTXT                                                W3692000
00005C                             5160          DS    CL30                                                     W3694000
00007A                             5161 WMJMLTYP DS    H                   MAJOR LINE TYPE                      W3696000

00007C                      00000  5162          ORG   WQE                                                      W3698000
000000                             5163          DS    F                                                        W3700000

000004                             5164 WMNMML1  DS    C                   MINOR WQE FLAGS 1                    W3702000

000005                             5165 WMNMLT1  DS    CL2                 NINOR LINE TYPE 1                    W3704000
000007                             5166 WMNMTL1  DS    C                   MINOR TEXT LENGTH 1                  W3706000
000008                             5167          DS    F                                                        W3708000
00000C                             5168 WMNMTXT1 DS    CL72                MINOR TEXT 1                         W3710000
000054                             5169          DS    F                                                        W3712000
000058                             5170 WMNMML2  DS    C                   MINOR WQE FLAGS 2                    W3714000
                            00001  5171 WMNMML2H EQU   X'01'               MINOR WQE LINE 2 AVAILABLE BIT       W3716000
000059                             5172 WMNMLT2  DS    CL2                 MINOR LINE TYPE 2                    W3718000
00005B                             5173 WMNMTL2  DS    C                   MINOR TEXT LENGTH 2                  W3720000
00005C                             5174          DS    F                                                        W3722000
000060                             5175 WMNMTXT2 DS    CL72                MINOR TEXT 2                         W3724000
000000                             5176 TSCVT    DSECT                                                          W3726000

000000                             5177 TSCVTTJB DS    F                   LOCATION OF USER ELEMENT 0           W3728000
000004                             5178          DS    CL22                                                     W3730000
00001A                             5179 TSCVTSZU DS    H                   SIZE OF ELEMENTS                     W3732000

000000                             5180 TJBDSECT DSECT                                                          W3734000
CON      OS CONSOLE SUPPORT DSECTS                                                                             PAGE  111


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             5181          DS    CL6                                                      W3736000
000006                             5182 TJBSTAT  DS    C                   TSO STATUS BYTE FOR JOB              W3738000
                            00040  5183 TJBINCOR EQU   X'40'               JOB IN STORAGE                       W3740000
000000                             5184 TSODSECT DSECT                                                          W3742000
000000                             5185 TSOJOBN  DS    CL8                 JOB NAME                             W3744000
000008                             5186 TSOREQF  DS    C                   STATUS/CANCEL REQUEST FLAGS          W3746000
                            00080  5187 TSORSTAT EQU   X'80'               REQUEST IS STATUS                    W3748000
                            00040  5188 TSORCAN  EQU   X'40'               REQUEST IS CANCEL                    W3750000
000009                             5189          DS    C                                                        W3752000

00000A                             5190 TSOFEEDB DS    C                   JOB INFO FEED BACK                   W3754000
                            00080  5191 TSOFPRE  EQU   X'80'               PRIOR TO EXECUTION                   W3756000
                            00040  5192 TSOFOUT  EQU   X'40'               AFTER EXECUTION                      W3758000
                            00020  5193 TSOFXEQ  EQU   X'20'               IN EXECUTION                         W3760000

                            00010  5194 TSOFHOLD EQU   X'10'               HELD                                 W3762000
                            00008  5195 TSOFERR  EQU   X'08'               MULTIPLE JOBS FOUND                  W3764000
                            00004  5196 TSOFPURG EQU   X'04'               FLAGGED FOR PURGE                    W3766000
                            00002  5197 TSOFNONE EQU   X'02'               NOT FOUND                            W3768000
000DEE                             5198 HASPCON  CSECT                                                          W3770000
                                   5199 $DLENGTH $DLENGTH                  COMPUTE CONTROL SECTION LENGTH       W3772000

CON      HASPCON CONTROL SECTION LENGTH                                                                        PAGE  112


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78











000DF0                             5202+         DS    0D                  FILL OUT CONTROL SECTION             DN016000
                            00DF0  5203+$L       EQU   *-HASPCON                                                DN018000

                            00000  5204+$L1      EQU   $L/100000*100000              COMPUTE                    DN020000
                            00000  5205+$L2      EQU   ($L-$L1)/10000*10000            INTERMEDIATE             DN022000

                            00BB8  5206+$L3      EQU   ($L-$L1-$L2)/1000*1000            LENGTH                 DN024000
                            001F4  5207+$L4      EQU   ($L-$L1-$L2-$L3)/100*100            VALUES               DN026000
                            0003C  5208+$L5      EQU   ($L-$L1-$L2-$L3-$L4)/10*10                               DN028000
                            00008  5209+$L6      EQU   $L-$L1-$L2-$L3-$L4-$L5                                   DN030000





                                   5211+*                                                                       DN034000
                                   5212+*                                  DECIMAL LENGTH                       DN036000

                                   5213+*                                                                       DN038000



                            03568  5215+$DLENGTH EQU   $L1/100000*1048576+$L2/10000*65536+$L3/1000*4096+$L4/100CDN042000
                                       +               *256+$L5/10*16+$L6                                       DN044000






                                   5217          END                                                            W3774000

CON                                               RELOCATION DICTIONARY                                        PAGE  113


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.01 08/28/78

 0001     0001      0C     000D2C
 0001     0001      0C     000D34
 0001     0001      0C     000D44
 0001     0001      0C     000D48
 0001     0001      08     000D61
 0001     0001      0C     000D84

 0001     0001      0C     000D88
 0001     0001      0C     000DC8
 0001     0002      24     000CA2
 0001     0004      1C     000D28
 0001     0005      1C     000DB8

 0001     0006      1C     000DC0
 0001     0007      1C     000DC4
 0001     0008      1C     000DCC

 0001     0009      1C     000DD0
 0001     000A      1C     000DD4
 0001     000B      1C     000DD8
 0003     0003      0C     000DF4

CON                                               CROSS-REFERENCE                                              PAGE  114


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78


$ACTION  00001 00000050 00422  05057
$ACTIVE  00001 000000C7 00650  03674
$BSPACE  00001 0000005F 00163  03921 03946
$BUSYQUE 00004 0000010C 00674  03211 03526
$CKPTACT 00001 00000010 00459  04938

$COMMCT  00002 000000CE 00656  03961 03983
$COMMQUE 00004 00000114 00676  04016
$CVTPTR  00001 00000010 01274  03361
$DISALL  00001 000000C9 00652  03524 03631 03655 03695 04893 04978

$DOMACT  00001 00000080 00424  03321 03415 03622 03632
$DOMQUE  00004 00000118 00677  03634
$ENBALL  00001 000000C8 00651  03512 03543 03647 03672 04898 04910
$EWBCKPT 00001 00000000 00386  04951
$EWBCMB  00001 00000000 00387  03236
$EWBWORK 00001 00000001 00393  03233 03256 04024 04851 04897

$EWFCKPT 00001 00000004 00363  04951
$EWFCMB  00001 00000002 00364  03236 03665
$EWFPOST 00001 00000080 00358  03234 03237 03257 04025 04852
$EWFWORK 00001 00000020 00370  03233 03256 04024 04851 04897
$EXITNOP 00002 0000002C 00571  00566 00567

$FREEMSG 00004 0000009C 00624  03433 03669
$FREEQUE 00004 00000108 00673  03351 03368 03419 03666 03982 04141 04151 04397 04397 04678 04678
$HASPECB 00004 000000D8 00660  03678 04736 04856
$HASPECF 00001 000000C4 00647  03234 03237 03257 03665 04025 04852
$HASPTCB 00004 000000D4 00659  04608 04642 04735

$HASPWTO 00002 00000224 03498  00531
$INPUT   00001 00000020 01197  04932 04968
$JCTTEST 00001 000005D0 01168  01169
$JQENT   00004 00000144 00701  04914
$L       00001 00000DF0 05203  05204 05205 05206 05207 05208 05209

$LOG     00001 00000001 00405  03999
$LOGQUE  00004 00000110 00675  03247
$L1      00001 00000000 05204  05205 05206 05207 05208 05209 05215
$L2      00001 00000000 05205  05206 05207 05208 05209 05215
$L3      00001 00000BB8 05206  05207 05208 05209 05215

$L4      00001 000001F4 05207  05208 05209 05215
$L5      00001 0000003C 05208  05209 05215
$L6      00001 00000008 05209  05215
$MGCRSVC 00002 00000534 03871  00533
$NUCTABL 00004 0000012C 00685  00690
$NUCTBLE 00004 0000015C 00714  00718

$OLINK   00004 0000008C 00617  04878
$OUTPUT  00001 00000004 01200  04944
$QJITLOC 00004 00000060 00597  05039
$QPUT    00004 00000050 00593  04948

$SAVEBEG 00004 0000013C 00698  00707
$SAVEEND 00001 0000015C 00706  00707
$ST      00001 00000004 00431  05057
$STATUS  00001 000000C2 00645  03513 04938
$SYSEXIT 00001 00000004 00461  03513

$TIMEARG 00004 00000128 00681  03362 04549
$TIMENT  00004 00000130 00687  03363 04550
$TSOCOMM 00002 00000C32 04826  04825
$WAIT    00004 00000030 00576  04899 04952
$WCOMRES 00004 00000530 03770  03659 03663 03697 03701 03701 03769
CON                                               CROSS-REFERENCE                                              PAGE  115


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78


$WQUEBUF 00002 00000000 03207  00528 03423 03431
$WTOECB  00004 00000510 03753  00532 03510 03517 05055
$WTOSVC  00002 0000088E 04263  00529

$WTOSVC2 00002 000009F4 04504  00530
$XEQ     00001 00000040 01196  04935 04963 04966
BASE1    00001 0000000B 00332  00554 03501 03888 04380 04507 04677 04833
BASE2    00001 0000000C 00333  00157 03499 03500 03501 03502 03888 03890 04380 04507 04677 04733 04833 04873
BASE3    00001 00000008 00330  04886 04947

BUFDSECT 00001 00000000 00804  01061 04886
BUFSTART 00008 00000058 00843  00850 00856 01061
CMBCHAIN 00004 00000000 00869  03419 03530 03541 03541 03634 03637 03643 03644 03662 03982 03984 03984 04150 04150
CMBCLASS 00001 00000007 00874  03415 03554 03556 03560 03622 03632
CMBCONS  00001 00000005 00871  03355 03426 03430 03549 03985 03995 03999
CMBDOMID 00004 00000008 00876  03629 03641 03641
CMBDSECT 00001 00000000 00868  00886 00887 00888 03349 03393 03527 03541 03629 03632 03634 03641 03643 03644 03868
CMBEND   00001 0000008C 00881  03393

CMBFLAGS 00001 00000004 00870  00886 03411 03412 03413 03534 03538 03550 03568 03986 03998 04004 04005
CMBJOBNO 00009 00000012 00879  03380 03383 03384 03573 03591

CMBMARK  00001 00000008 00877  03370 03371 03372 03375
CMBMSG   00132 00000008 00875  00888 03352 03353 03353 03353 03380 03385 03428 03573 03617 04012 04013 04013 04013 04162
CMBMSGL  00001 00000006 00872  00887 03354 03391 03406 03572 03611 04010
CMBTEXT  00113 0000001B 00880  03385
CSTORE   00004 00000D98 05106  04311 04312 05021 05022

CVTCRTTR 00003 000000B8 01377  01390
CVTCUCB  00004 00000064 01329  03990 04105 04646
CVTDSECT 00001 00000000 01275  03225 03869
CVTHEAD  00004 000000A0 01352  04644 05003
CVTPTR   00001 00000010 01283  03224 03886 04509 04838 04987
CVTTCBP  00004 00000000 01290  04510 04839
CVTTSCVT 00004 000000E4 01417  04992 04994
CVTTSRDY 00001 00000080 01419  04992
CVTUSER  00004 000000CC 01401  01402

CVTXTNT1 00001 00000114 01481  01454

CVT0PT01 00004 00000098 01350  03225 04732 05024
DCBBIT0  00001 00000080 01505  01626 01642 01681 01699 01744 01754 01770 01811 01821 01833 01856 01887 01890 01892 01894
                               01917 01920 01940 01945 01964 02001 02054 02077 02109 02113 02126 02221 02224 02234
DCBBIT1  00001 00000040 01506  01627 01643 01700 01708 01744 01754 01772 01812 01822 01835 01857 01859 01869 01887 01890
                               01893 01894 01922 01940 01943 01945 01967 01968 01969 02004 02005 02054 02079 02115 02117

                               02129 02173 02221 02226 02235
DCBBIT2  00001 00000020 01507  01628 01644 01701 01710 01754 01773 01813 01823 01836 01838 01839 01857 01859 01864 01870
                               01887 01889 01896 01924 01947 01949 01972 01973 01974 02008 02009 02056 02082 02118 02134
                               02176 02180 02221 02236
DCBBIT3  00001 00000010 01508  01592 01629 01645 01715 01757 01774 01814 01836 01839 01841 01857 01872 01897 01927 01947
                               01951 01976 01977 01978 02012 02013 02056 02084 02086 02088 02120 02135 02176 02181 02221
DCBBIT4  00001 00000008 01509  01593 01646 01716 01760 01775 01815 01824 01873 01898 01928 01953 01959 01960 01981 01982
                               02016 02017 02019 02020 02058 02091 02136 02176 02182
DCBBIT5  00001 00000004 01510  01595 01647 01718 01761 01775 01816 01825 01874 01901 01903 01930 01953 01956 01957 01960
                               01985 01987 01988 01989 02023 02024 02025 02026 02058 02093 02096 02122 02138 02171

DCBBIT6  00001 00000002 01511  01597 01630 01648 01720 01762 01779 01817 01875 01877 01880 01901 01904 01931 01992 01993

                               01994 01995 02029 02030 02031 02032 02099 02140
DCBBIT7  00001 00000001 01512  01599 01631 01724 01764 01780 01818 01875 01878 01880 01906 01935 01997 01998 02035 02036
                               02038 02039 02124 02141 02183
DCBFDAD  00008 00000005 01526  01529

DCBSSID  00008 00000000 01733  01736
DCBWTOID 00004 00000000 01653  01668 01677
CON                                               CROSS-REFERENCE                                              PAGE  116


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

DCTREJDV 00001 00000002 01001  04157
DCTREJJB 00001 00000004 01000  04157
DCTREJSY 00001 00000001 01002  04157
E        00001 00000008 00346  03915 04609
H        00001 00000002 00340  04045
HA$IWTSO 00001 00000DF4 04881  04882
HA$OWTSO 00001 00000DF0 04880  04881 04884

HA$QWTSO 00001 00000000 04875  04877
HASPCBUF 00002 000000AC 03316  00534 04724
HASPCON  00001 00000000 00156  00734 00768 00858 00882 00958 01170 01272 01491 02246 02272 03107 03153 03184 03191 03502
                               03890 04734 04876 05050 05054 05198 05203

HASPTSOS 00002 00000CA0 04872  04871
HCTDSECT 00001 00000000 00552  00554
IHADCB   00001 00000000 01503  01551 01575 01603 01622 01652 01732 01793 01844 01913 02045 02062 02066 02072 02161 02167
                               02191 02212 02244
JCT      00001 0000000A 00331  01060
JCTDSECT 00001 00000000 01059  01060
JCTEND   00001 00000230 01133  01168
JCTJMR   00056 000001F8 01114  01115
JCTJOBEB 00004 0000006C 01070  03384 04571
JCTJQE   00004 00000058 01062  01168
JITJNAME 00001 00000000 01217  05042
JSCBTJID 00002 0000010C 03190  04846

JSCDSECT 00001 00000000 03187  03188 03189 03190 04843
LINK     00001 0000000E 00335  03239 03258 03410 03435 03669 04877 04946 04947 05039
NE       00001 00000007 00344  03960 04628

NP       00001 0000000D 00351  04064
NZ       00001 00000007 00345  04116 04118 04143
OACEPROG 00004 00000060 00848  04886
OREF     00001 00000000 05126  04108
OREID    00002 00000004 05128  04111
ORELKP   00004 00000000 05127  04113
ORETCB   00004 00000008 05131  04119
ORETJID1 00001 00000008 05130  04115
ORETJID2 00001 00000014 05133  04117
PCEDSECT 00001 00000000 00737  00739 01233 03256 04024 04851
PCEEWF   00002 00000048 00760  03233 03236 03256 04024 04851 04897 04951
PCEJCT   00004 0000003C 00757  04635

PCEWORK  00008 00000058 00767  01234 01271

QENTBY   00001 00000080 01195  04930 04932 04942 04963 04968
QUECHAIN 00001 00000004 01185  04914 04916

QUEFLAGS 00001 00000004 01184  04940 04941 04960
QUEHOLDA 00001 00000080 01207  04940 04960
QUEHOLD1 00001 00000040 01208  04940 04960
QUEHOLD2 00001 00000020 01209  04940
QUEOPCAN 00001 00000008 01211  04941
QUEPURGE 00001 00000010 01210  04941
QUETYPE  00001 00000001 01182  04930 04932 04935 04942 04963 04966 04968
RBDSECT  00004 00000040 03159  04290 04292 04654 05014
RBLINK   00004 0000005C 03180  04291 04656 05016
RBOPSW   00008 00000050 03173  04292
RBSTAB   00002 0000004A 03168  04657 04659
R0       00001 00000000 00302  03209 03210 03218 03246 03246 03250 03253 03317 03321 03354 03369 03434 03548 03561 03573

                               03574 03578 03579 03581 03613 03615 03680 03887 03897 03968 03985 04033 04311 04379 04383
                               04387 04402 04506 04519 04555 04596 04663 04666 04676 04695 04704 04716 04748 04944 05040

CON                                               CROSS-REFERENCE                                              PAGE  117



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

R1       00001 00000001 00303  03208 03238 03247 03249 03249 03250 03252 03254 03256 03360 03366 03390 03390 03391 03392
                               03395 03397 03400 03401 03432 03526 03527 03528 03530 03531 03531 03532 03532 03625 03629
                               03634 03635 03637 03638 03638 03639 03639 03644 03652 03663 03688 03688 03689 03697 03698
                               03698 03771 03874 03875 03908 03909 03916 04099 04121 04276 04548 04615 04617 04619 04619
                               04630 04667 04680 04681 04682 04705 04717 04721 04722 04723 04831 04849 04851 04914 04916
                               04916 04917 04917 04918 04918 04920 04930 04932 04935 04940 04941 04942 04960 04963 04966
                               04968 04989 04990 04990 04996 04998 05045
R10      00001 0000000A 00312  00331 03208 03226 03238 04610 04613 04622 04633 04635 04666 04704 04731 04731 04737 04737
                               04740 04740 05027
R11      00001 0000000B 00313  00332 03229 04736
R12      00001 0000000C 00314  00333 03226 03229 04735 04830 04866 05026 05029

R13      00001 0000000D 00315  00334 03212 03213 03220 04667 04705 04830 04866 05027
R14      00001 0000000E 00316  00335 00572 03211 03212 03213 03214 03214 03217 03221 03227 03228 03230 03364 03365 03367
                               03380 03385 03394 03399 03399 03401 03402 03404 03405 03406 03439 03887 03891 03897 03901

                               03915 03960 03968 03972 03979 04033 04037 04045 04064 04073 04087 04110 04116 04118 04130
                               04132 04148 04285 04286 04287 04298 04299 04300 04348 04355 04379 04402 04506 04551 04552
                               04554 04596 04598 04612 04621 04632 04663 04676 04684 04695 04719 04719 04720 04723 04724
                               04733 04734 04738 04739 04741 04748 04830 04866 04868 05026 05028 05029
R15      00001 0000000F 00317  00571 00571 03216 03217 03218 03224 03225 03225 03227 03317 03366 03393 03394 03395 03397
                               03398 03434 03439 03635 03643 03659 03660 03660 03662 03666 03872 03889 03898 03900 03902
                               03969 03971 03973 04034 04036 04036 04038 04264 04265 04266 04347 04354 04381 04401 04417
                               04505 04508 04547 04553 04567 04570 04571 04572 04573 04573 04574 04597 04597 04610 04611
                               04612 04613 04620 04621 04622 04631 04632 04633 04664 04671 04672 04673 04674 04690 04691
                               04692 04693 04700 04701 04702 04703 04707 04731 04732 04738 04740 04749 04752 04829 04834
                               04867 04867 04878 04899 04952 05024 05028
R2       00001 00000002 00304  00323 03210 03220 03221 03252 03253 03331 03332 03334 03339 03341 03341 03349 03351 03368

                               03399 03405 03417 03432 03458 03868 04021 04141 04142 04142 04146 04147 04147 04151 04167
                               04283 04284 04287 04289 04290 04291 04292 04296 04297 04300 04315 04318 04318 04321 04321
                               04322 04324 04326 04329 04330 04330 04339 04375 04377 04387 04406 04409 04411 04412 04415
                               04521 04547 04547 04553 04553 04583 04585 04684 04684 04831 04832 04869 04994 04995 04997

                               04998 04999 05002 05005 05010 05018 05040 05042
R3       00001 00000003 00305  00324 03333 03361 03869 03874 03875 03875 03876 03879 03879 03883 03883 03886 04509 04838
                               04913 04913 04920 04987 05044 05044 05045
R4       00001 00000004 00306  00325 03332 03336 03340 03340 03914 03916 03917 03926 03930 03942 03944 03946 03948 03953
                               03959 04048 04119 04161 04162 04267 04288 04293 04510 04511 04511 04512 04607 04616 04642
                               04644 04648 04650 04655 04682 04839 04840 04840 04841 04847 04869 05003 05004 05007 05008

                               05008 05010
R5       00001 00000005 00307  00326 03328 03329 03330 03337 03362 03908 03909 03910 03911 03913 03918 03937 03938 03940
                               03941 03942 03948 04010 04011 04014 04026 04044 04047 04123 04124 04127 04128 04133 04395
                               04400 04519 04520 04530 04549 04558 04558 04567 04568 04574 04581 04588 04600 04609 04628
                               04634 04636 04646 04647 04653 04654 04656 04661 04742 04842 04843 04869 05012 05014 05016
                               05017 05017 05018 05021 05032
R6       00001 00000006 00308  00327 03327 03336 03337 03363 03364 03917 03919 03921 03923 03923 03926 03930 03934 03934
                               03935 03935 03939 03961 03962 03983 03990 03991 03993 04015 04015 04019 04047 04056 04063

                               04072 04078 04091 04096 04096 04097 04098 04098 04099 04100 04101 04105 04106 04107 04108

                               04109 04109 04113 04120 04274 04329 04404 04408 04522 04524 04530 04550 04551 04556 04557
                               04559 04582 04587 04599 05025 05026 05029 05030
R7       00001 00000007 00309  00328 03318 03326 03326 03327 03328 03339 03342 03342 03355 03918 03919 03925 03929 03932
                               03936 03992 03994 03997 04002 04016 04018 04018 04019 04021 04022 04024 04048 04049 04054
                               04055 04055 04058 04062 04062 04065 04067 04069 04071 04071 04078 04079 04085 04085 04086
                               04144 04146 04149 04149 04160 04275 04275 04314 04315 04338 04339 04340 04399 04411 04413
                               04415 04523 04529 04586
R8       00001 00000008 00310  00329 00330 03997 04001 04003 04004 04078 04081 04082 04084 04086 04091 04092 04093 04094
                               04094 04095 04121 04125 04126 04127 04276 04301 04303 04314 04315 04316 04319 04337 04337

                               04338 04339 04361 04361 04362 04364 04376 04383 04412 04415 04531 04535 04535 04599 04625
CON                                               CROSS-REFERENCE                                              PAGE  118


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

                               04627 04630 04717
R9       00001 00000009 00311  03980 03992 04131 04143 04152 04528 04528 04529 04536 04536 04537 04538 04539 04581 04582

                               04583 04585 04586 04587 04588 04589 04590
SAVE     00001 0000000D 00334  00739 05025 05030

SRTEASCI 00001 00000004 02667  02668
SRTEBSTR 00001 00000004 02666  02669
TCBDSECT 00001 00000000 03110  04288 04607 04650 04841 05003 05004
TCBFLGS  00001 0000001D 03119  04651
TCBJSCB  00004 000000B4 03152  04842
TCBJSTCB 00004 0000007C 03133  04608
TCBRBP   00004 00000000 03111  04289 04653 05012
TCBTCB   00004 00000074 03131  05003 05007

TCBTIO   00004 0000000C 03114  04615
TJBDSECT 00001 00000000 05180  04999
TJBINCOR 00001 00000040 05183  05000
TJBSTAT  00001 00000006 05182  05000
TSCVT    00001 00000000 05176  04995

TSCVTSZU 00002 0000001A 05179  04996
TSCVTTJB 00004 00000000 05177  04997
TSODSECT 00001 00000000 05184  04832

TSOFEEDB 00001 0000000A 05190  04862
TSOFERR  00001 00000008 05195  05047
TSOFHOLD 00001 00000010 05194  04962
TSOFNONE 00001 00000002 05197  04912
TSOFOUT  00001 00000040 05192  04970
TSOFPRE  00001 00000080 05191  04965 04970
TSOFPURG 00001 00000004 05196  04937

TSOFXEQ  00001 00000020 05193  04959 04965
TSOJOBN  00008 00000000 05185  04848
TSORCAN  00001 00000040 05188  04922
UCBALOC  00001 00000008 02418  02536
UCBBALB  00001 00000020 02573  02663

UCBBJLB  00001 00000002 02581  02670
UCBBNUL  00001 00000001 02582  02671
UCBBPRV  00001 00000010 02577  02664
UCBBPUB  00001 00000008 02578  02665

UCBBSTR  00001 00000004 02579  02666 02667
UCBBSVL  00001 00000080 02567  02662
UCBCHGS  00001 00000040 02415  02533
UCBDADI  00001 00000001 02423  02539
UCBDBBNR 00002 00000038 02856  02892
UCBDCELL 00016 00000038 02854  02891

UCBDDMCT 00001 00000043 02882  02897
UCBDEV   00001 00000018 02546  02555 02682 02716 02732 02752 02834
UCBDJBNR 00001 00000042 02881  02896
UCBDMCT  00001 00000023 02585  02672
UCBDSTAB 00001 0000003A 02857  02893

UCBDSTAT 00001 0000003B 02869  02894
UCBDUSER 00001 00000047 02889  02899
UCBDVOLI 00006 0000003C 02880  02895
UCBDVTOC 00003 00000044 02888  02898
UCBFL1   00001 00000006 02431  02540

UCBFSCT  00002 00000024 02590  02673
UCBFSEQ  00002 00000026 02591  02674
UCBJBNR  00001 00000000 02380  02529
CON                                               CROSS-REFERENCE                                              PAGE  119


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78


UCBMONT  00001 00000001 02390  02530
UCBONLI  00001 00000080 02414  02532
UCBPRES  00001 00000004 02419  02537
UCBRESV  00001 00000020 02416  02534
UCBSTAB  00001 00000022 02566  02661

UCBSTAT  00001 00000003 02413  02531
UCBSYSR  00001 00000002 02420  02538
UCBUNLD  00001 00000010 02417  02535
UCBUSER  00001 00000038 02642  02675 02848
UCBVOLI  00006 0000001C 02565  02660
UCM      00001 00000000 05134  03991 04106 04647

UCMAUTH  00001 00000028 05145  04001
UCMID    00001 0000001A 05143  03995
UCMLIST  00001 00000000 05141  03994
UCMPXA   00004 00000040 05138  04648

UCMRPYQ  00004 0000001C 05136  04107
UCMVEA   00004 00000048 05140  03992
W$WTOPRM 00001 00000D3C 05057  04101 04399 04713 04715 04716
WA       00001 00000002 00323  03505 03528 03541 03547 03549 03552 03556 03557 03558 03572 03574 03579 03581 03582 03598
                               03605 03605 03611 03612 03613 03615 03616 03618 03618 03619 03620 03620 03621 03624 03681

                               03690 03700
WB       00001 00000003 00324  03546 03546 03547 03552 03584 03587 03588 03589 03599 03599 03680
WBACKUP  00004 00000730 04082  04084
WBASE    00002 00000534 03870  03898 03969 04034 04266 04401 04664 04674 04693 04703 04749 05115
WBASES   00004 00000D28 05054  03229 03501 03888 04380 04507 04677 04833
WBLNKSCN 00004 000006F6 04062  04066
WBS      00002 0000059A 03918  03924 03945 03947

WBSB     00004 000005E8 03940  03928 03933
WBSEND   00002 00000604 03948  03920
WBSF     00004 000005B2 03925  03922

WBSM     00002 000005C0 03929  03925
WBSMC    00004 000005DC 03936  03931
WBSMVCC  00006 000005D6 03935  03936
WBSMVCF  00006 000005D0 03934  03932
WBSNF    00004 000005E0 03937  03927

WC       00001 00000004 00325  03558 03559 03584 03585 03586 03589 03595 03601 03604 03604 03625 03629 03632 03641 03643
                               03644 03652
WCMBFD   00001 00000080 00892  03568
WCMBFF   00001 00000010 00895  03538 03550 03986 04005
WCMBFG   00001 00000008 00896  03534
WCNLSTBL 00001 0000021C 03447  00535 03336
WCONNECT 00004 0000051C 03766  03536 03565 03587 03689 03692
WDCONTID 00001 00000080 03760  03564

WDELIM   00002 00000722 04077  04070
WDIGIT   00002 000006CA 04043  03954

WDOMFRE  00004 000003D2 03647  03633
WDOMRET  00002 000001CC 03418  03414 03416
WDOUTLN  00001 00000001 03759  03563
WDQNXT   00002 000003AC 03635  03642
WDQTHIS  00004 000003C6 03643  03640

WENDQUE  00004 0000002A 03220  03215
WEXMVC   00006 0000020E 03439  03400
WEXWTM   00004 00000214 03440  03334
WFHLOG   00001 00000020 03307  03310 03420 05057
WFJOBN   00001 00000002 03302  03311 03344 03381 03424 05057
CON                                               CROSS-REFERENCE                                              PAGE  120


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

WFLOTS   00001 000000B8 03310  03319 03413
WFNDENDQ 00004 0000073C 04085  04083

WFRMTE   00001 00000008 03305  03310 03422

WFRSET   00001 00000047 03311  03412
WFSVR1   00001 00000001 03308  03311
WFSVR2   00001 00000040 03309  03311
WFTRAN   00001 00000080 03304  03310
WFUCMI   00001 00000010 03306  03310

WFWAIT   00001 00000004 03303  03311
WHASPFMT 00002 00000740 04086  04080
WINCRTST 00004 000000F0 03340  03335 03338
WINILBUF 00002 00000106 03350  03320 03322 03343
WLOOPQUE 00002 00000010 03212  03219
WLTCONT  00001 00000080 03763  03567
WLTDATA  00001 00000020 03764  03567 03571 03576
WLTEND   00001 00000010 03765  03570 03690
WLTMVC   00006 00000336 03591  03582
WLTSKP1  00004 000002FC 03572  03569

WLTSKP2  00004 0000030E 03578  03575

WLTSKP3  00004 0000031A 03582  03580
WMAXABRV 00002 000007F2 04159  04044
WMAXRSET 00001 00000071 04158  04159
WMCSML   00001 00000040 03755  03562 03656 03686

WMCSSTAN 00002 00000514 03756  03545
WMEXIT   00002 000006BE 04027  03943 03949
WMGFOUND 00004 00000670 04001  03996
WMGLOOK  00006 00000656 03995  03997
WMGMOVE  00006 00000800 04162  04014
WMGNOMCS 00002 00000680 04009  04000
WMGNONE  00001 00000007 04157  04005
WMGOGET  00004 0000062E 03979  03962
WMGOTCHA 00004 00000594 03916  03912
WMGSRCBK 00004 00000582 03911  03913
WMJMMLWB 00001 00000040 05154  04525

WMJMTXT  00072 00000014 05158  05159
WMOVE    00002 00000174 03389  03382
WMVCTOOS 00006 000007FA 04161  04097
WMVCWRKA 00006 000007F4 04160  04093

WNDOM    00002 000003DC 03653  03623
WNRMFRE  00002 00000406 03668  03657 03661 03702
WOSUCMF  00001 00000060 03754  03553
WPKTIME  00004 00000218 03441  03369 03371 04555 04557
WPOSTH   00002 0000040A 03670  03667
WPUTJOBN 00002 00000158 03379  03374
WQE      00001 00000000 05146  04520 05151 05162
WQENBR   00004 00000004 05148  04523 04525
WQETXT   00128 00000008 05149  04522 05150
WQEXIT   00004 00000058 03238  03231
WQPREGS  00004 00000D30 05055  03226
WQREGS   00004 00000060 03240  03208 03238

WQUELOG  00002 00000080 03246  03421 03427 03429
WQUERET  00004 00000208 03434  03345 03410
WRLSERES 00004 00000452 03695  03691

WRPLYWKA 00006 00000806 04163  04054 04057 04058 04094 04111 04160 04161
WRQEFND  00004 0000078A 04115  04112
CON                                               CROSS-REFERENCE                                              PAGE  121


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

WRQESCN  00002 00000774 04109  04114
WSAVREGS 00004 00000CA8 05052  03317 03318 03319 03321 03329 03344 03366 03373 03375 03381 03398 03411 03417 03420 03422
                               03424 03434 03440 04547 04553 04731 04740
WSBSYQ   00002 00000256 03525  03645 03699
WSKPCMMA 00004 00000718 04071  04068
WSVCASOC 00006 00000AD8 04608  04128 04395 04568
WSVCPOST 00004 00000C0A 04731  04026
WSVCQUE  00004 00000BE2 04713  04133 04400

WSVCRET0 00004 000006BE 04033  04396 04643 04645 04649 04652 04660

WSVCRET4 00004 0000056C 03897  04129 04130 04134
WSVCRET8 00004 00000620 03968  03979

WSVCSAVE 00004 00000CE8 05053  03887 03897 03968 04033 04132 04379 04402 04506 04596 04663 04676 04684 04695 04719 04748
WSVC34   00002 0000057A 03907  03891
WS34ENB  00004 00000534 03873  03881 03885
WS34GET  00004 000007CC 04141  03980 04131
WS35ASJN 00002 00000B1E 04629  04626
WS35ASOK 00004 00000B2C 04635  04614 04623
WS35ASOS 00002 00000B0C 04624  04618
WS35CK   00002 00000974 04374  04416
WS35CKD  00004 0000095C 04361  04341
WS35CKL  00004 00000948 04340  04328 04331
WS35DEQ  00004 00000BC6 04695  04679
WS35ENQ  00004 00000D40 05064  04669 04698

WS35ENQG 00008 00000D4C 05071  05069 05102
WS35ENQR 00003 00000D54 05072  05070

WS35GET  00004 00000C26 04748  04385 04389

WS35INAM 00007 00000D8F 05105  04364 04617
WS35INCR 00004 000009DC 04411  04407
WS35MORE 00004 000009C8 04406  04404
WS35NCDE 00004 00000914 04322  04317 04320
WS35NINT 00002 00000974 04366  04363
WS35RDE  00001 00000004 04259  04354
WS35RDEL 00004 00000956 04354  04313 04365
WS35REF  00004 00000976 04376  04706 04751
WS35ROK  00004 00000950 04347  04268 04323 04327 04405 04410 04414
WS35ROS  00001 00000000 04258  04347
WS35SCTR 00004 00000930 04329  04325
WS35SING 00004 00000940 04338  04294 04304

WS35TEST 00004 00000B88 04675  04694
WS35WAIT 00004 00000B34 04642  04398
WS35WAT  00004 00000B70 04663  04658

WS35WTOR 00004 0000093C 04337  04302
WTESTBLK 00004 00000710 04069  04072
WTESTCON 00004 000000DC 03334  03341
WTESTQUE 00004 000001FA 03430  03425
WTODESC  00002 000004F8 03717  03544 03544 03563 03564 03621 03732
WTODESCA 00001 00000040 03758  03624 03681 03700
WTODQ    00002 00000252 03522  03682 03687 03693
WTODRSTN 00002 00000516 03757  03544
WTOLAREA 00001 000004FE 03730  03559
WTOLATAB 00001 0000051F 03767  03558
WTOLINET 00002 000004FC 03729  03544 03567 03570 03571 03576
WTOLSIZ  00001 00000008 03732  03621

WTOMAP   00002 0000033C 03594  03551
WTOMCS   00002 00000472 03715  03545 03553 03562 03656 03686
CON                                               CROSS-REFERENCE                                              PAGE  122



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

WTOMSG   00132 00000474 03716  03591 03617 03620
WTOMSGE  00001 000004FC 03719  03720 03721
WTOMSGL  00002 00000470 03714  03619
WTOMTOM  00002 00000422 03680  03675
WTONEX   00002 00000350 03603  03600
WTONRMOK 00002 00000282 03540  03537
WTOQMT   00002 00000236 03509  03533
WTORET   00002 00000500 03741  03595
WTOROUTE 00002 000004FA 03718  03544 03601 03604
WTOSHIFT 00002 00000340 03597  03606
WTOSRCH  00002 0000025A 03528  03535 03539

WTOTCBA  00004 00000D38 05056  00536 04267 04512
WTOTESTA 00001 00000000 03720  03722
WTOTESTB 00001 00000000 03721  03722
WTOWAIT  00004 00000248 03517  03507 03514

WTOWTO   00002 0000035A 03609  03555 03566
WTOWTOE  00001 000004FC 03711  03720 03721
WTOWTOL  00004 00000470 03705  03627 03684 03713
WTOWTOS  00004 00000372 03618  03590
WTSCAN   00004 00000E68 04937  04933
WTSCANW  00004 00000E96 04951  04939

WTSCNB   00004 00000E60 04935  04931
WTSECB   00004 00000D58 05079  04845 04859 04862 04902 04979 04983 04985 05022 05081
WTSENQ   00004 00000D80 05095  04836 04864
WTSENQG  00008 00000D4C 05102  05100
WTSENQR  00003 00000D8C 05103  05101
WTSINCOR 00004 00000F24 05003  04991
WTSLOOP  00004 00000DF8 04893  04900
WTSLOOPA 00004 00000DFC 04894  04980 04982 04986 04993 05009 05019 05031

WTSNAME  00008 00000D6C 05084  04901 05042
WTSNAMT  00008 00000D75 05086  04848 04901

WTSNCAN  00004 00000EA2 04959  04923
WTSNEXT  00004 00000E30 04916  05043 05046
WTSPARMS 00001 00000D5C 05080  04985 05027 05088
WTSPL1   00004 00000F2C 05007  05011
WTSPL2   00004 00000F44 05016  05023
WTSPOK   00004 00000F60 05024  05001
WTSPOST  00004 00000ED2 04978  04921 04934 04936 04943 04949 04964 04967 04969 05041 05048
WTSPOSTA 00004 00000EF8 04987  04984

WTSPRO   00004 00000F7A 05039  04919
WTSREDO  00002 00000E26 04911  04953
WTSREQF  00001 00000D74 05085  04922
WTSREQT  00001 00000D7D 05087  04894 04903 04981
WTSRESP  00001 00000D5F 05088  04912 04937 04959 04962 04965 04970 05047

WTSTCB   00004 00000D64 05082  04847 05005
WTSTJID  00004 00000D68 05083  04846 04989
WTSWORK  00006 00000E14 04901  04895

WWID     00001 0000088C 04165  04524 04532 04534 04559
WWORK    00128 0000080C 04164  04531 04600
WW35MIN  00006 00000AD2 04600  04590
WW35MOUT 00006 00000ACC 04599  04539
WW35MSK  00002 00000A52 04537  04533
WW35MVC  00002 00000A30 04528  04526
WW35NJB  00002 00000AA8 04574  04569

WW35NL   00001 00000080 05150  04521
CON                                               CROSS-REFERENCE                                              PAGE  123


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

WW35RET  00004 00000AC4 04596  04513 04527
W1DIGIT  00004 000006EC 04057  04050

W2DIGITS 00004 000006FA 04063  04056
XOUTENT  00001 00000010 01265  01266 01267
Z        00001 00000008 00347  04110 04148
CON                                               LITERAL CROSS-REFERENCE                                      PAGE  124



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

=CL8'IEF429I'
         00008 00000DA0 05108  04362
=CL8'IEE301I'
         00008 00000DA8 05109  04625
=CL8'IEF452I'

         00008 00000DB0 05110  04627
=V($LOGPCE)
         00004 00000DB8 05111  03254
=C'JOB ' 00001 00000DBC 05112  03383 04570
=V($COMMPCE)

         00004 00000DC0 05113  04022
=V($WRESERV)
         00004 00000DC4 05114  04144
=A(WBASE)
         00004 00000DC8 05115  04265 04673 04692 04702

=V(XJOBSRCH)
         00004 00000DCC 05116  04611
=V(XJOBSRC2)
         00004 00000DD0 05117  04620 04631
=V($CMBWECB)

         00004 00000DD4 05118  04680
=V($TSOSPCE)
         00004 00000DD8 05119  04849
=X'4021204B20204B202040'
         00001 00000DDC 05120  03370 04556

=H'1'    00002 00000DE6 05121  04063
=H'4'    00002 00000DE8 05122  04100 04340 04413
=X'FF'   00001 00000DEA 05123  03873 03899 03970 04035 04403 04665 04685 04696 04750 04853
=X'FFFFFF'
         00001 00000DEB 05124  04312
CON                                               ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE  125



                                                                                                 ASM 0201 20.01 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY

  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT       1979

TOTAL RECORDS READ FROM SYSTEM LIBRARY    10197
TOTAL RECORDS PUNCHED                        86
TOTAL RECORDS PRINTED                      5328

INIT                                           EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.01 08/28/78

HASPBLKS  SD  0001 000000 002FA0
HASPINGO  LD       003A60        0003
$INRDCT   LD       0001E8        0001
$LNEDCT   LD       000578        0001
$RMTDCT   LD       000578        0001
$OLAYDCT  LD       0006E0        0001
$1STOACE  LD       002FA0        0003
$OREPS    LD       002F68        0001
$JOT      ER  0002
HASPINIT  SD  0003 002FA0 0082C0

$HASPECB  ER  0004
HA$QIOVA  XD  0005 000007 000000
HASPCOMM  ER  0006

$ALSTATB  ER  0007
$#CAN     ER  0008
$OROLLAD  ER  0009
$JOBQUE   ER  000A

$ABEND    ER  000B
HASPOTAB  ER  000C
$OLASYNC  ER  000D
$JITTRAK  ER  000E
$JOTTRAK  ER  000F
$TEDDATA  ER  0010

$IOAPPEN  ER  0011
HA$OIOVA  SD  0012 00B260 00036F
HA$IIOVA  LD       00B260        0012
HA$QIOVB  XD  0013 000007 000000
HA$Q$$$$  XD  0014 000000 000001

HA$OIOVB  SD  0015 00B5D0 0003A4
HA$IIOVB  LD       00B5D0        0015
HA$QIOVC  XD  0016 000007 000000
HA$OIOVC  SD  0017 00B978 0001E8
HA$IIOVC  LD       00B978        0017

HA$QIOVQ  XD  0018 000007 000000
HA$OIOVQ  SD  0019 00BB60 000478
HA$IIOVQ  LD       00BB60        0019
$COMMPCE  ER  001A
$XWTREND  ER  001B

$ATTNXIT  ER  001C
$WTOXIT   ER  001D
$LINKXIT  ER  001E
$XCTLXIT  ER  001F
HASPRDR   ER  0020

HASPXEQ   ER  0021
HASPWTR   ER  0022
HASPPRPU  ER  0023
HASPACCT  ER  0024
HASPMISC  ER  0025
HASPCON   ER  0026

HASPINTF  ER  0027
HASPNUC   ER  0028
$HNUCEND  ER  0029
HASPNUC2  ER  002A

$HASPJIT  ER  002B
WUCMSVE3  ER  002C
INIT                                           EXTERNAL SYMBOL DICTIONARY                                      PAGE    2


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.01 08/28/78

XSTATUS   ER  002D

$EXECPCE  ER  002E
$PITABLE  ER  002F
$PWTRECB  ER  0030
$WTOPECB  ER  0031
$HASPWTO  ER  0032
WTOTCBA   ER  0033
$PSMFECB  ER  0034

INIT                                                                                                           PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                      1 *                                                                  RFIT N0000000

                                      2 *                            KILL ALL 370 INSTRUCTIONS             RFIT N0000010
                                      3 *                                                                  RFIT N0000020
                                      4 MVCL     OPSYN ,                                                   RFIT N0000030
                                      5 CLCL     OPSYN ,                                                   RFIT N0000040
                                      6 SIOF     OPSYN ,                                                   RFIT N0000050

                                      7 HDV      OPSYN ,                                                   RFIT N0000070
                                      8 STNSM    OPSYN ,                                                   RFIT N0000080
                                      9 STOSM    OPSYN ,                                                   RFIT N0000090
                                     10 MC       OPSYN ,                                                   RFIT N0000110
                                     11 LRA      OPSYN ,                                                   RFIT N0000120
                                     12 STCTL    OPSYN ,                                                   RFIT N0000130
                                     13 LCTL     OPSYN ,                                                   RFIT N0000140
                                     14 CLM      OPSYN ,                                                   RFIT N0000180

                                     15 STCM     OPSYN ,                                                   RFIT N0000190
                                     16 ICM      OPSYN ,                                                   RFIT N0000200

                                     17 STIDP    OPSYN ,                                                   RFIT N0000210
                                     18 STIDC    OPSYN ,                                                   RFIT N0000220
                                     19 SCK      OPSYN ,                                                   RFIT N0000230
                                     20 STCK     OPSYN ,                                                   RFIT N0000240
                                     21 SCKC     OPSYN ,                                                   RFIT N0000250

                                     22 STCKC    OPSYN ,                                                   RFIT N0000260
                                     23 SPT      OPSYN ,                                                   RFIT N0000270
                                     24 STPT     OPSYN ,                                                   RFIT N0000280
                                     25 PTLB     OPSYN ,                                                   RFIT N0000310
                                     26 RRB      OPSYN ,                                                   RFIT N0000350
                                     27 SRP      OPSYN ,                                                   RFIT N0000360
INIT     HASP TABLE AND ELEMENT GENERATION MACRO DEFINITIONS                                                   PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                     29          MACRO                GENERATE ADDITIONAL REMOTE DCTS   OY02728 N0040000

                                     30 &NAME    $RMTDCT &TYPE,&DEV                                     OY02728 N0042000

                                     31 &NAME    $GENDCT &TYPE,1,(,&DEV),WORKWDS=2                      OY02728 N0044000
                                     32          MEND                                                   OY02728 N0046000
                                     33 *                                                                       N0050000
                                     34 ***** $GENDCT  *****          GENERATE DEVICE CONTROL TABLES            N0052000
                                     35 *                                                                       N0054000

                                     36 *                                                                       N0056000
                                     37          MACRO                                                          N0058000
                                     38 &NAME    $GENDCT &TYPE,&NUM,&DEV,&WORKWDS=0                             N0060000
                                     39          GBLA  &TEMP,&TEMPSAV,&NUMCLAS                                  N0062000
                                     40          GBLC  &STDFORM,&PRTFCB,&PRTUCS                                 N0064000
                                     41          LCLA  &COUNT                                                   N0066000
                                     42          LCLC  &UCS                                                     N0068000
                                     43 &TEMP    SETA  &TEMPSAV+1                                               N0070000
                                     44 &UCS     SETC  '&PRTUCS'(1,1)                                           N0072000
                                     45 &NAME    DS    0F                                                       N0074000

                                     46          AGO   .A9                                                      N0076000

                                     47 .A0      ANOP                                                           N0078000
                                     48 &COUNT   SETA  &COUNT+1                                                 N0080000
                                     49 $DCT&TEMP DS   0F                                                       N0082000
                                     50 &TEMP    SETA  &TEMP+1                                                  N0084000

                                     51          AIF   ('&TYPE' NE 'DA').A1                                     N0086000
                                     52          DC    AL1(0)              DEVICE AVAILABLE                     N0088000
                                     53          AGO   .A2                                                      N0090000
                                     54 .A1      DC    AL1(DCTDRAIN)       DEVICE IS DRAINED                    N0092000
                                     55 .A2      DC    AL3(0)              PCE ADDRESS                          N0094000
                                     56          DC    A(0)                BUFFER ADDRESS                       N0096000
                                     57          AIF   ('&TYPE' NE 'DA').A3                                     N0098000
                                     58          DC    A(0)                DA TRACK ADDRESS                     N0100000
                                     59          AGO   .A4                                                      N0102000
                                     60 .A3      DC    A(&COUNT)           DCB ADDRESS                          N0104000
                                     61 .A4      DC    A(0)                EVENT WAIT FIELD                     N0106000

                                     62          DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
                                     63          DC    AL1(0)              DCT NUMBER                           N0110000
                                     64          DC    AL1(DCT&TYPE)       DEVICE TYPE                          N0112000
                                     65          AIF   ('&TYPE' NE 'DA').A5                                     N0114000

                                     66          DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
                                     67          AGO   .A6                                                      N0118000
                                     68 .A5      DC    AL1(0)              RESERVED                             N0120000
                                     69 .A6      DC    A($DCT&TEMP)        ADDRESS OF NEXT DCT                  N0122000
                                     70          AIF   ('&TYPE' EQ 'DA').A9                                     N0124000
                                     71          AIF   ('&DEV(1)' NE '').A6A                                    N0126000
                                     72          DC    CL8'&DEV(2)'        DEVICE NAME                          N0128000
                                     73          AGO   .A6B                                                     N0130000
                                     74 .A6A     DC    CL8'&DEV(1)&COUNT&DEV(2)'    DEVICE NAME                 N0132000
                                     75 .A6B     AIF   ('&TYPE'(1,1) EQ 'P' OR '&TYPE'(1,2) EQ 'RP').A7         N0134000
                                     76          DC    AL1(0)              PRINT DESTINATION                    N0136000
                                     77          DC    AL1(0)              PUNCH DESTINATION                    N0138000

                                     78          DC    AL1(0)              PRIORITY INCREMENT                   N0140000
                                     79          DC    AL1(15)             PRIORITY LIMIT                       N0142000
                                     80          DC    2F'0'               UNUSED                               N0142400

                                     81          DC    AL1(0)              UNUSED                               N0142800
                                     82          DC    CL&NUMCLAS' '       UNUSED                               N0143200
                                     83          DC    C' '                UNUSED                               N0143600
INIT     HASP TABLE AND ELEMENT GENERATION MACRO DEFINITIONS                                                   PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                     84          AGO   .A8                                                      N0144000
                                     85 .A7      DC    CL4'&STDFORM'       FORMS ID                             N0144400
                                     86          DC    CL4'&PRTFCB'        FCB ID                               N0144800
                                     87          DC    CL4'&PRTUCS'        UCS ID                               N0145200
                                     88          DC    AL1(DCTPPSWO+DCTPPSWC+DCTPPSWT) ALLOW $T +FCB, UCS       N0145600
                                     89          AIF   ('&TYPE'(1,2) EQ 'PU' OR '&TYPE'(1,3) EQ 'RPU').A7A      N0146000
                                     90          DC    CL&NUMCLAS'AJ'      DEFAULT PRINT CLASS MASK             N0146400

                                     91          AGO   .A7B                                                     N0146800

                                     92 .A7A     DC    CL&NUMCLAS'BK'      DEFAULT PUNCH CLASS MASK             N0147200
                                     93 .A7B     DC    C' '                CLASS MASK TERMINATOR                N0147600

                                     94 .A8      DC    (&WORKWDS)F'0'      VARIABLE DEVICE WORK AREA            N0148000
                                     95 .A9      AIF   (&COUNT LT &NUM).A0                                      N0150000
                                     96 &TEMPSAV SETA  &TEMP-1                                                  N0152000
                                     97          MEND                                                           N0154000
INIT     HASP TABLE AND ELEMENT GENERATION MACRO DEFINITIONS                                                   PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                     99 *                                                                       N0238000
                                    100 ***** $GENWTOQ *****          GENERATE WTO QUEUE                        N0240000
                                    101 *                                                                       N0242000
                                    102 *                                                                       N0244000
                                    103          MACRO                                                          N0246000
                                    104          $GENWTOQ                                                       N0248000

                                    105          GBLA  &TEMP,&NUMWTOQ                                           N0250000
                                    106          LCLA &MAX                                                      N0251000

                                    107 &MAX     SETA &NUMWTOQ                                                  N0251500

                                    108 &TEMP    SETA  1                                                        N0252000
                                    109 &MAX     SETA  &MAX+1                                                   N0253500
                                    110 .A1      ANOP                                                           N0254000
                                    111 W&TEMP   DS    0F                                                       N0256000
                                    112 &TEMP    SETA  &TEMP+1                                                  N0258000
                                    113          DC    A(W&TEMP)           CHAIN WORD                           N0260000
                                    114          DC    F'0'                PARAMETERS TO BE PASSED              N0262000
                                    115          DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
                                    116          DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
                                    117          AIF   (&TEMP LE &MAX).A1                                       N0268000
                                    118 W&TEMP   EQU   0                                                        N0270000
                                    119          MEND                                                           N0272000






                                    121 *                                                                       N0272200

                                    122 ***** $GENSMFB *****               GENERATE SMF BUFFERS                 N0272300
                                    123 *                                                                       N0272400
                                    124 *                                                                       N0272500
                                    125          MACRO                                                          N0272600
                                    126          $GENSMFB                                                       N0272700
                                    127          GBLA  &NUMSMFB,&SMFRSIZ,&TEMP                                  N0272800
                                    128 &TEMP    SETA  1                                                        N0272900
                                    129 .A1      ANOP                                                           N0273000
                                    130 S&TEMP   DS    0F                                                       N0273100
                                    131 &TEMP    SETA  &TEMP+1                                                  N0273200
                                    132          DC    A(S&TEMP)           CHAIN WORD                           N0273300
                                    133          DC    F'0'                PARAMETERS TO BE PASSED              N0273400

                                    134          DC    (&SMFRSIZ)X'00'     MAX SIZE OF SMF RECORD               N0273600
                                    135          AIF   (&TEMP LE &NUMSMFB).A1  GENERATE REST OF BUFFER          N0273700
                                    136 S&TEMP   EQU   0                   TERMINATE CHAIN                      N0273800
                                    137          MEND                                                           N0273900

INIT     HASP TABLE AND ELEMENT GENERATION MACRO DEFINITIONS                                                   PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    139 *                                                                       N0276000
                                    140 ***** $ORGBUF *****           ORG SO BUFFER STAYS IN ONE 4K PAGE        N0278000
                                    141 *                                                                       N0280000
                                    142 *                                                                       N0282000

                                    143          MACRO                                                          N0284000
                                    144          $ORGBUF &LGTH                                                  N0286000
                                    145          GBLA  &NITLGTH                                                 N0288000
                                    146          LCLA  &LGTH8,&LASTBYT                                          N0290000
                                    147          LCLA  &PAGESIZ                                            RFIT N0290100
                                    148          LCLB  &SYSMFT,&SYSMVT,&SYSVS1,&SYSVS2                     RFIT N0290200
                                    149 &LGTH8   SETA  (&LGTH+7)/8*8                                            N0292000
                                    150 &LASTBYT SETA  &NITLGTH+&LGTH-1                                         N0294000

                                    151 &PAGESIZ SETA  16777216            ASSUME MFT OR MVT               RFIT N0294100
                                    152          AIF   (NOT &SYSVS1).ORGBUF1                               RFIT N0294200

                                    153 &PAGESIZ SETA  2048                VS1 PAGE SIZE                   RFIT N0294300
                                    154 .ORGBUF1 AIF   (NOT &SYSVS2).ORGBUF2                               RFIT N0294400
                                    155 &PAGESIZ SETA  4096                VS2 PAGE SIZE                   RFIT N0294500
                                    156 .ORGBUF2 ANOP                                                      RFIT N0294600
                                    157          AIF   (&LGTH LE &PAGESIZ).LGTHOK                          RFIT N0296000
                                    158          MNOTE 8,'OLAYSIZ, TPBFSIZ, OR BUFSIZE IS TOO LARGE'            N0298000
                                    159 .LGTHOK  AIF   (&LASTBYT/&PAGESIZ EQ &NITLGTH/&PAGESIZ).INPAGE     RFIT N0300000
                                    160 &NITLGTH SETA  &LASTBYT/&PAGESIZ*&PAGESIZ                          RFIT N0302000

                                    161 .INPAGE  ORG   &SYSECT+&NITLGTH                                         N0304000
                                    162 &NITLGTH SETA  &NITLGTH+&LGTH8                                          N0306000
                                    163          MEND                                                           N0308000
INIT     HASP TABLE AND ELEMENT GENERATION MACRO DEFINITIONS                                                   PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    165 *                                                                       N0382000
                                    166 ***** $GENTPBF *****          GENERATE TP BUFFER POOL                   N0384000

                                    167 *                                                                       N0386000
                                    168 *                                                                       N0388000
                                    169          MACRO                                                          N0390000
                                    170 &NAME    $GENTPBF                                                       N0392000
                                    171          GBLA  &NUMTPBF,&TPBFSIZ,&TEMP                                  N0394000
                                    172          LCLA  &LGTH                                                    N0395000
                                    173 &LGTH    SETA  &TPBFSIZ+120                                             N0396000
                                    174          AIF   (&NUMTPBF GT 0).A                                        N0397000

                                    175 &NAME    DS    0D                                                       N0398000
                                    176          MEXIT                                                          N0400000
                                    177 .A       $ORGBUF &LGTH                                                  N0401000
                                    178 &NAME    DS    0D                                                       N0402000
                                    179 &TEMP    SETA  1                                                        N0404000

                                    180          AGO   .C                                                       N0406000
                                    181 .B       $ORGBUF &LGTH                                                  N0407000
                                    182 .C       DS    (&LGTH)C                                                 N0408000

                                    183 &TEMP    SETA  &TEMP+1                                                  N0410000
                                    184          AIF   (&TEMP LE &NUMTPBF).B                                    N0412000
                                    185          MEND                                                           N0414000
INIT     HASP TABLE AND ELEMENT GENERATION MACRO DEFINITIONS                                                   PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    187 *                                                                       N0418000
                                    188 ***** $GENOACE *****          GENERATE OVERLAY AREAS WITH               N0420000

                                    189 *                              OVERLAY AREA CONTROL ELEMENTS            N0422000
                                    190 *                                                                       N0424000
                                    191          MACRO                                                          N0426000
                                    192 &NAME    $GENOACE                                                       N0428000
                                    193          GBLA  &NUMOACE,&OLAYSIZ,&TEMP,&NUMDA                           N0430000

                                    194          LCLA  &LGTH                                                    N0430500
                                    195 &LGTH    SETA  &OLAYSIZ+92                                              N0431000
                                    196          $ORGBUF &LGTH                                                  N0431500
                                    197 &NAME    DS    0D                                                       N0432000

                                    198 &TEMP    SETA  1                                                        N0434000
                                    199          AGO   .B                                                       N0436000
                                    200 .A       $ORGBUF &LGTH                                                  N0437000
                                    201 .B       ANOP                                                           N0438000
                                    202 OACE&TEMP DS   0D                                                       N0440000
                                    203 &TEMP    SETA  &TEMP+1                                                  N0442000

                                    204          DC    X'42000000'         IOBFLAG1, 2, IOBSENS0, 1             N0444000
                                    205          DC    V($HASPECB)         IOBECBCC, IOBECBPT                   N0446000
                                    206          DC    8X'00'              IOBFLAG3, IOBCSW                     N0448000
                                    207          DC    A(*+IOBCCW1-IOBSTART) IOBSIOCC, IOBSTART                 N0450000
                                    208          DC    A(0)                IOBDCBPT                             N0452000

                                    209          DC    A(0)                IOBREPM, IOBRESTR                    N0454000
                                    210          DC    2H'0'               IOBINCAM, IOBERRCT                   N0456000
                                    211          DC    AL1(&NUMDA),7X'00'  IOBXTENT, IOBSEEK                    N0458000
                                    212          DC    X'7F000000'          BUFECBCC, BUFCHAIN                  N0460000
                                    213          DC    AL1(OLAYBUF),AL3(0) BUFTYPE, BUFDCT                      N0462000

                                    214          DC    A(0)                BUFEWF                               N0464000
                                    215          DC    A(OACE&TEMP)            OACECHN                          N0466000
                                    216          CCW   X'03',*+5,X'40',1   IOBCCW1                              N0467000
                                    217          CCW   X'31',*+IOBXTENT+3-IOBCCW2,X'40',5      IOBCCW2          N0468000
                                    218          CCW   X'08',*-8,0,0       IOBCCW3, 0, OACEPRIO, OACEOCON       N0470000

                                    219          CCW   X'06',*+8,0,&OLAYSIZ     IOBCCW4                         N0472000
                                    220          DS    &OLAYSIZ.X               OACENAME, OACEPROG              N0474000
                                    221          DC    A(0)                OACEPCE                              N0476000
                                    222          AIF   (&TEMP LE &NUMOACE).A                                    N0478000
                                    223 OACE&TEMP EQU  0                   TERMINATE CHAIN                      N0480000

                                    224          MEND                                                           N0482000
INIT     HASP TABLE AND ELEMENT GENERATION MACRO DEFINITIONS                                                   PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    226 *                                                                       N0486000
                                    227 ***** $GENBUFP *****          GENERATE BUFFER POOL                      N0488000
                                    228 *                                                                       N0490000

                                    229 *                                                                       N0492000
                                    230          MACRO                                                          N0494000
                                    231 &NAME    $GENBUFP                                                       N0496000
                                    232          GBLA  &TEMP,&BUFSIZE,&NUMBUF                                   N0498000

                                    233          LCLA  &LGTH                                                    N0500000
                                    234 &LGTH    SETA  &BUFSIZE+88                                              N0501000
                                    235          $ORGBUF &LGTH                                                  N0502000
                                    236 &NAME    DS    0D                                                       N0504000
                                    237 &TEMP    SETA  1                                                        N0506000

                                    238          AGO   .B                                                       N0508000
                                    239 .A       $ORGBUF &LGTH                                                  N0510000
                                    240 .B       DS    (&LGTH)C                                                 N0512000
                                    241 &TEMP    SETA  &TEMP+1                                                  N0514000
                                    242          AIF   (&TEMP LE &NUMBUF).A DO NEXT BUFFER                      N0516000
                                    243          MEND                                                           N0518000
INIT     HASP GLOBAL DEFINITIONS                                                                               PAGE   11



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    245          COPY  $GLOBAL                                                  N0550000
                                    246 *                                                                       GL002000

                                    247 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                    248 *                                                                       GL006000



                                    250          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000
                                    251          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000

                                    252          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                    253          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000
                                    254          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000





                                    256 *                                                                       GL032000
                                    257 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000
                                    258 *                                                                       GL036000




                                    260          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000

                                    261          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                    262          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000
                                    263          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                    264          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000
                                    265          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000

                                    266          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                    267          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000
                                    268          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000
                                    269          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000
                                    270          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000
                                    271          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                    272          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000
                                    273          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000
                                    274          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000

                                    275          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000

                                    276          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                    277          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200
                                    278          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300
                                    279          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000
                                    280          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000

                                    281          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                    282          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000
                                    283          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                    284          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                    285          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000
                                    286          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000
                                    287          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                    288          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000
                                    289          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000
                                    290          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000

INIT     HASP GLOBAL DEFINITIONS                                                                               PAGE   12



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    292 *                                                                       GL116000
                                    293 *                             O/S INTERFACE PARAMETERS                  GL118000
                                    294 *                                                                       GL120000




                                    296          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000
                                    297          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                    298          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000
                                    299          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000
                                    300          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000
                                    301          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000
                                    302          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                    303          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000
                                    304          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000
                                    305          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000

                                    306          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                    307          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200
                                    308          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300
                                    309          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400






                                    311 *                                                                       GL150000
                                    312 *                             HASP OPTION PARAMETERS                    GL152000
                                    313 *                                                                       GL154000



                                    315          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000
                                    316          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000
                                    317          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000
                                    318          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000
                                    319          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000
                                    320          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000

                                    321          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000
                                    322          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000
                                    323          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000

                                    324          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000
                                    325          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100
                                    326          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500
                                    327          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                    328          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                    329          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000
                                    330          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                    331          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000
                                    332          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000
                                    333          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000
                                    334          GBLB  &DEBUG              DEBUG MODE                           GL186000
                                    335          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000

                                    336          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000

INIT     HASP GLOBAL DEFINITIONS                                                                               PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    338 *                                                                       GL226000
                                    339 *                             REMOTE JOB ENTRY PARAMETERS               GL228000
                                    340 *                                                                       GL230000



                                    342          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                    343          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000
                                    344          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000
                                    345          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    346          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000
                                    347          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000
                                    348          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000
                                    349          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000

                                    350          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000







                                    352 *                                                                       GL260000
                                    353 *                             INTERNAL GENERATION PARAMETERS            GL262000
                                    354 *                                                                       GL264000



                                    356          GBLC  &VERSION            HASP VERSION                         GL270000
                                    357          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000
                                    358          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                    359          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000
                                    360          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500
                                    361          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000
                                    362          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500
                                    363          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000

                                    364          GBLA  &LOW                OVERLAY PRIORITY                     GL280000
                                    365          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000
                                    366          GBLA  &HIGH                 PARAMETER VALUES                   GL284000

                                    367          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000
                                    368          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000
                                    369          LCLA  &MAXDADC            NUMBER OF DIRECT ACCESS DCT'S        N0554000
                                    370          LCLC  &DOC                DOCUMENTATION OPTION                 N0556000
                                    371          LCLA  &PRCPRC                                             RFIT N0556001
INIT     HASP INITIALIZATION                                                                                   PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                              374 HASPBLKS START 0                   CSECT FOR SOME HASP BLOCKS           N0562000






                                    376 *                                                                       N0566000
                                    377 *                             EXTERNAL REFERENCES                       N0568000
                                    378 *                                                                       N0570000




                                    380          ENTRY HASPINGO            ENTRY POINT TO HASP INITIALIZATION   N0574000
                                    381          ENTRY $INRDCT             ADDRESS OF INTERNAL READER DCT(S)    N0576000
                                    382          ENTRY $LNEDCT             ADDRESS OF LINE DCT(S)               N0578000
                                    383          ENTRY $RMTDCT             ADDRESS OF REMOTE DCT(S)             N0580000
                                    384          ENTRY $OLAYDCT            ADDRESS OF OVERLAY DCT               N0584000
                                    385          ENTRY $1STOACE            ADDRESS OF OVERLAY AREA POOL         N0586000

                                    386          ENTRY $OREPS              ADDRESS OF OVERLAY REP STORAGE AREA  N0588000





                                    388          COPY  $HASPGEN            COPY HASPGEN PARAMETERS              N0594000
INIT     HASPGEN PARAMETER VALUES                                                                              PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    390 *                                                                       HA004000
                                    391 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000

                                    392 *                                                                       HA008000




                                    394 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000
                                    395 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                    396 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000
                                    397 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000
                                    398 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000




                                    400 *                                                                       HA028000

                                    401 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000
                                    402 *                                                                       HA032000



                                    404 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000
                                    405 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000

                                    406 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000
                                    407 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000

                                    408 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000
                                    409 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                    410 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000
                                    411 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000
                                    412 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000
                                    413 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000
                                    414 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    415 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000

                                    416 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000
                                    417 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000
                                    418 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000
                                    419 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000
                                    420 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000

                                    421 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                    422 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200
                                    423 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300

                                    424 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                    425 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000
                                    426 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                    427 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000
                                    428 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000
                                    429 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                    430 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000

                                    431 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000
                            0003C   432 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000
INIT     HASPGEN PARAMETER VALUES                                                                              PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                    435 *                                                                       HA100000
                                    436 *                             O/S INTERFACE PARAMETERS                  HA102000
                                    437 *                                                                       HA104000




                                    439 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                    440 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000
                                    441 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000
                                    442 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000
                                    443 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000

                                    444 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000
                                    445 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                    446 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                    447 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000
                                    448 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100

                                    449 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200
                                    450 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300
                                    451 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400



                                    453 *                                                                  RFIT HA125600

                                    454 *                             HASP SVC NUMBER                      RFIT HA125700
                                    455 *                                                                  RFIT HA125800
                                    456          COPY  $INITSVC                                            RFIT HA125900
                                    457 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT






                                    459 *                                                                       HA130000
                                    460 *                             HASP OPTION PARAMETERS                    HA132000
                                    461 *                                                                       HA134000




                                    463 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000
                                    464 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000
                                    465 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000
                                    466 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000
                                    467 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                    468 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000

                                    469 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    470 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000
                                    471 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000
                                    472 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000

                                    473 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100
                                    474 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500
                                    475 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
INIT     HASPGEN PARAMETER VALUES                                                                              PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                    476 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500
                                    477 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                    478 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000
                                    479 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                    480 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000
                                    481 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                    482 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000

                                    483 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                    484 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000
INIT     HASPGEN PARAMETER VALUES                                                                              PAGE   18



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                    487 *                                                                       HA174000
                                    488 *                             REMOTE JOB ENTRY PARAMETERS               HA176000

                                    489 *                                                                       HA178000



                                    491 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000
                                    492 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000
                                    493 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000
                                    494 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000
                                    495 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                    496 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000

                                    497 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000
                                    498 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000

                                    499 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000





                                    501 *                                                                       HA202000
                                    502 *                             INTERNAL GENERATION PARAMETERS            HA204000

                                    503 *                                                                       HA206000



                                    505 &VERSION SETC  '4.0'               HASP VERSION                         HA210000
                                    506 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000
                                    507 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000
                                    508 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                    509 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000
                                    510 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                    511 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000

                                    512 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500

                                    513 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                    514 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000
                                    515 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000
                                    516 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000
                                    517 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000

                                    518 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
INIT     HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                    521 *                                                                       HA234000
                                    522 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000
                                    523 *                                                                       HA238000



                            00000   525 R0       EQU   0                                                        HA242000

                            00001   526 R1       EQU   1                                                        HA244000

                            00002   527 R2       EQU   2                                                        HA246000
                            00003   528 R3       EQU   3                                                        HA248000
                            00004   529 R4       EQU   4                                                        HA250000
                            00005   530 R5       EQU   5                                                        HA252000

                            00006   531 R6       EQU   6                                                        HA254000
                            00007   532 R7       EQU   7                                                        HA256000
                            00008   533 R8       EQU   8                                                        HA258000
                            00009   534 R9       EQU   9                                                        HA260000
                            0000A   535 R10      EQU   10                                                       HA262000
                            0000B   536 R11      EQU   11                                                       HA264000
                            0000C   537 R12      EQU   12                                                       HA266000
                            0000D   538 R13      EQU   13                                                       HA268000
                            0000E   539 R14      EQU   14                                                       HA270000
                            0000F   540 R15      EQU   15                                                       HA272000






                                    542 *                                                                       HA276000
                                    543 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000
                                    544 *                                                                       HA280000




                            00002   546 WA       EQU   R2                  WORK REGISTER A                      HA284000
                            00003   547 WB       EQU   R3                  WORK REGISTER B                      HA286000
                            00004   548 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   549 WD       EQU   R5                  WORK REGISTER D                      HA290000
                            00006   550 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007   551 WF       EQU   R7                  WORK REGISTER F                      HA294000
                            00008   552 WG       EQU   R8                  WORK REGISTER G                      HA296000
                            00008   553 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000
                            0000A   554 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000
                            0000B   555 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000
                            0000C   556 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000

                            0000D   557 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000
                            0000E   558 LINK     EQU   R14                 LINK REGISTER                        HA308000
INIT     HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   20



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78











                            00000   561 NOP      EQU   0                   NO-OP                                HA314000
                            00001   562 O        EQU   1                   ONES OR OVERFLOW                     HA316000
                            00002   563 H        EQU   2                   HIGH                                 HA318000
                            00002   564 P        EQU   2                   PLUS                                 HA320000
                            00004   565 L        EQU   4                   LOW                                  HA322000
                            00004   566 M        EQU   4                   MINUS OR MIXED                       HA324000
                            00007   567 NE       EQU   7                   NOT EQUAL                            HA326000

                            00007   568 NZ       EQU   7                   NOT ZERO                             HA328000

                            00008   569 E        EQU   8                   EQUAL                                HA330000
                            00008   570 Z        EQU   8                   ZERO                                 HA332000

                            0000B   571 NL       EQU   11                  NOT LOW                              HA334000
                            0000B   572 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000
                            0000D   573 NH       EQU   13                  NOT HIGH                             HA338000
                            0000D   574 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   575 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
INIT     HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    577 *                                                                       HA346000
                                    578 *                             BIT DEFINITIONS                           HA348000
                                    579 *                                                                       HA350000



                            00080   581 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000

                            00040   582 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000
                            00020   583 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000

                            00010   584 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000

                            00008   585 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000
                            00004   586 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000
                            00002   587 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000
                            00002   588 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001   589 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000
                                    590 *                                                                       HA370000
                            00080   591 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000
                            00040   592 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020   593 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   594 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000
                            00008   595 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000
                            00004   596 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000

                            00002   597 $EWF15   EQU   X'02'               SPARE                                HA384000
                            00001   598 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000






                                    600 *                                                                       HA390000
                                    601 *                             BYTE DEFINITIONS                          HA392000
                                    602 *                                                                       HA394000



                            00000   604 $EWBPOST EQU   0                   BYTE 0                               HA398000
                            00000   605 $EWBBUF  EQU   0                   BYTE 0                               HA400000
                            00000   606 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   607 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000   608 $EWBUNIT EQU   0                   BYTE 0                               HA406000
                            00000   609 $EWBCKPT EQU   0                   BYTE 0                               HA408000
                            00000   610 $EWBCMB  EQU   0                   BYTE 0                               HA410000

                            00000   611 $EWBSMF  EQU   0                   BYTE 0                               HA411000
                            00000   612 $EWBJOT  EQU   0                   BYTE 0                               HA412000
                                    613 *                                                                       HA414000

                            00001   614 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001   615 $EWBIO   EQU   1                   BYTE 1                               HA418000
                            00001   616 $EWBWORK EQU   1                   BYTE 1                               HA420000
                            00001   617 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001   618 $EWBDDB  EQU   1                   BYTE 1                               HA424000
                            00001   619 $EWBOLAY EQU   1                   BYTE 1                               HA426000
                            00001   620 $EWB15   EQU   1                   BYTE 1                               HA428000
                            00001   621 $EWBOROL EQU   1                   BYTE 1                               HA430000
INIT     HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    624 *                                                                       HA436000
                                    625 *                             LOGICAL CONSOLE DEFINITIONS               HA438000
                                    626 *                                                                       HA440000




                            00001   628 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002   629 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000
                            00004   630 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008   631 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000
                            00010   632 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000
                            00020   633 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000

                            00040   634 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   635 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   636 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000
                            00000   637 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000





                                    639 *                                                                       HA466000
                                    640 *                             MESSAGE CLASS DEFINITIONS                 HA468000

                                    641 *                                                                       HA470000




                            00010   643 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000
                            00030   644 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050   645 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000
                            00070   646 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000
                            00080   647 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000




                                    649 *                                                                       HA484000

                                    650 *                             MESSAGE PRIORITY DEFINITIONS              HA486000
                                    651 *                                                                       HA488000



                            00001   653 $LO      EQU   1                   LOW PRIORITY                         HA492000
                            00004   654 $ST      EQU   4                   STANDARD PRIORITY                    HA494000

                            00007   655 $HI      EQU   7                   HIGH PRIORITY                        HA496000
INIT     HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    658 *                                                                       HA502000
                                    659 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000
                                    660 *                                                                       HA506000



                            00080   662 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000

                            00000   663 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000
                            00040   664 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000
                            00000   665 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000
                            00020   666 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000
                            00000   667 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000

                            00010   668 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000
                            00000   669 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000
                            00008   670 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000
                            00000   671 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000

                            00004   672 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000   673 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000





                                    675 *                                                                       HA536000
                                    676 *                             HASP STATUS BIT DEFINITIONS               HA538000

                                    677 *                                                                       HA540000



                            00080   679 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040   680 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000
                            00020   681 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000

                            00010   682 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000
                            00008   683 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000
                            00004   684 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000
                            00002   685 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000
INIT     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   24



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                    688 *                                                                       HA560000
                                    689 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000

                                    690 *                                                                       HA564000



                                    692 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                    693 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000
                                    694 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000

                                    695 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000
                                    696 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000
                                    697 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000
                                    698 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000
                                    699 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                    700 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000






                                    702 *                                                                       HA588000
                                    703 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000

                                    704 *                                                                       HA592000



                                    706 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                    707 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000
                                    708 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000

                                    709 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                    710 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                    711 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000
                                    712 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                    713 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000
                                    714 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
INIT     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   25



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    717 *                                                                       HA618000
                                    718 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000
                                    719 *                                                                       HA622000



                                    721 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000

                                    722 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000
                                    723 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000
                                    724 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000
                                    725 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000
                                    726 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000
                                    727 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000
                                    728 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                    729 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000







                                    731 *                                                                       HA646000
                                    732 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000
                                    733 *                                                                       HA650000



                                    735 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000

                                    736 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                    737 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000
                                    738 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000
                                    739 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000
                                    740 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000
                                    741 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                    742 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000
                                    743 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
INIT     HASP INITIALIZATION OPTIONS                                                                           PAGE   26



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                    746 *                                                                       N0600000
                                    747 *                        STANDARD DEFAULT INITIALIZATION PARAMETERS     N0602000
                                    748 *                                                                       N0604000




                                    750 *                             NOFMT,WARM,REQ,NOREP,LIST,TRACE           N0608000
                            0002C   751 $OPTSTD  EQU   $OPTNFMT+$OPTWARM+$OPTREQ+$OPTNREP+$OPTLIST+$OPTRACE     N0610000





                            0000C   753 $REPRDR  EQU  X'00C'               REP INPUT DEVICE ADDRESS             N0614000
                            0000E   754 $REPWTR  EQU  X'00E'               REP LISTING DEVICE ADDRESS           N0616000
INIT     HASP CONTROL BLOCKS                                                                                   PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78








                                    757 *                                                                       N0622000
                                    758 *                             DOCUMENTATION OPTION                      N0624000
                                    759 *                                                                       N0626000




                                    761 &DOC     SETC  'NO'                TURN OFF DOCUMENTATION               N0630000
                                    762          AIF   (&NUMBUF LE &MINBUF).NBUFA                               N0632000
                                    763 .NBUFA   ANOP                                                           N0636000





                                    765 *                                                                       N0640000
                                    766 *                             GENERATE HASP CONTROL BLOCKS              N0642000
                                    767 *                                                                       N0644000



                                    769         $HASPCB HCT,PCE,BUFFER,DCT,JQE,JCT,IOT,TED,OTB,PIT,JOE,JOT,    CN0648000
                                                       PRC,MSA,SMF,CVT,TCB,DCB,DEB,UCB,DOC=&DOC                 N0650000

INIT     HASP COMMUNICATION TABLE DSECT                                                                        PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                              771+HCTDSECT DSECT                     HASP COMMUNICATION TABLE DSECT       HC437000



                            00000   773+         USING HCTDSECT,BASE1      ESTABLISH HCT ADDRESSABILITY         HC439000


000000 40E540F44BF0F0F9             775+$VERSION DC    CL8' V 4.009762'         HASP VERSION                    HC441000


                                    777+*                             VS2 - HASP VECTOR TABLE                   HC451050

000008                              779+$HVT     DS    0F                                                       HC451150
000008 00000000                     780+$HVTEXCP DC    V($EXCPSVC)         IOS PSEUDO DEVICE EXIT ADDRESS       HC451200
00000C 00000000                     781+         DC    V(XJCLSCAN)         INTERPRETTER EXIT ADDRESS            HC451250
000010 00000000                     782+         DC    V($MGCRSVC)         MGCR EXIT ADDRESS                    HC451300
000014 00000000                     783+         DC    V($WTOSVC)          WTO(R)/WTL EXIT 1 ADDRESS            HC451350
000018 00000000                     784+         DC    V($WTOSVC2)         WTO(R) EXIT 2 ADDRESS                HC451400

00001C 0000002C                     785+         DC    A($EXITNOP)         JOB INITIATION EXIT ADDRESS          HC451450
000020 0000002C                     786+         DC    A($EXITNOP)         STEP INITIATION EXIT ADDRESS         HC451500
000024 00000000                     787+         DC    V(XTERMSMF)         TERMINATION EXIT ADDRESS             HC451550

000028 00000000                     788+         DC    V($TSOCOMM)         TSO STATUS/CANCEL EXIT ADDRESS       HC451600

00002C 1BFF                         790+$EXITNOP SR    R15,R15             R15 = RC = 0                         HC451750
00002E 07FE                         791+         BR    R14                 RETURN                               HC451800


                                    793+*                             ENTRY TO HASP DISPATCHER                  HC452000

000030 47F0 B030      00030         795+$WAIT    B     *                                                        HN016000


                                    797+*                             ENTRIES TO HASP BUFFER SERVICES           HC456000

000034 47F0 B034      00034         799+$GETBUF  B     *                                                        HN016000

000038 47F0 B038      00038         800+$GETPBUF B     *                                                        HN016000

00003C 47F0 B03C      0003C         801+$FREEBUF B     *                                                        HN016000



                                    803+*                             ENTRIES TO HASP UNIT SERVICES             HC462000

000040 47F0 B040      00040         805+$GETUNIT B     *                                                        HN016000
000044 47F0 B044      00044         806+$FREUNIT B     *                                                        HN016000


                                    808+*                             ENTRIES TO HASP JOB QUEUE SERVICES        HC467000

000048 47F0 B048      00048         810+$QADD    B     *                                                        HN016000
00004C 47F0 B04C      0004C         811+$QGET    B     *                                                        HN016000
000050 47F0 B050      00050         812+$QPUT    B     *                                                        HN016000
000054 47F0 B054      00054         813+$QREM    B     *                                                        HN016000
000058 47F0 B058      00058         814+$QSIZ    B     *                                                        HN016000

00005C 47F0 B05C      0005C         815+$QLOC    B     *                                                        HN016000
000060 47F0 B060      00060         816+$QJITLOC B     *                                                        HN016000
INIT     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   29



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    818+*                             ENTRIES TO DIRECT ACCESS SPACE SERVICES   HC477000

000064 47F0 B064      00064         820+$TRACK   B     *                                                        HN016000
000068 47F0 B068      00068         821+$PURGER  B     *                                                        HN016000


                                    823+*                             ENTRIES TO HASP INPUT/OUTPUT SERVICES     HC482000

00006C 47F0 B06C      0006C         825+$EXCP    B     *                                                        HN016000
000070 47F0 B070      00070         826+$EXTPOPE B     *                                                        HN016000
000074 47F0 B074      00074         827+$EXTPGET B     *                                                        HN016000
000078 47F0 B078      00078         828+$EXTPPUT B     *                                                        HN016000

00007C 47F0 B07C      0007C         829+$EXTPCLO B     *                                                        HN016000
000080 47F0 B080      00080         830+$RESTORE B     *                                                        HN016000




                                    832+*                             ENTRIES TO HASP OVERLAY SERVICES          HC491000

000084 47F0 B084      00084         834+$ODEL    B     *                                                        HN016000
000088 47F0 B088      00088         835+$ORET    B     *                                                        HN016000
00008C 47F0 B08C      0008C         836+$OLINK   B     *                                                        HN016000
000090 47F0 B090      00090         837+$OXCTL   B     *                                                        HN016000
000094 47F0 B094      00094         838+$OLOAD   B     *                                                        HN016000


                                    840+*                             ENTRIES TO HASP CONSOLE SERVICES          HC499000

000098 47F0 B098      00098         842+$WTO     B     *                                                        HN016000
00009C 47F0 B09C      0009C         843+$FREEMSG B     *                                                        HN016000

0000A0 47F0 B0A0      000A0         844+$DOM     B     *                                                        HN016000


                                    846+*                             ENTRIES TO HASP SMF BUFFER SERVICES       HC503200


0000A4 47F0 B0A4      000A4         848+$QUESMFB B     *                                                        HN016000
0000A8 47F0 B0A8      000A8         849+$GETSMFB B     *                                                        HN016000


                                    851+*                             ENTRIES TO HASP INTERVAL TIMER SERVICES   HC504000

0000AC 47F0 B0AC      000AC         853+$STIMER  B     *                                                        HN016000
0000B0 47F0 B0B0      000B0         854+$TTIMER  B     *                                                        HN016000


                                    856+*                             ENTRIES TO HASP ERROR SERVICES            HC509000

0000B4 47F0 B0B4      000B4         858+$IOERROR B     *                                                        HN016000

0000B8 47F0 B0B8      000B8         859+$ERROR   B     *                                                        HN016000
0000BC 47F0 B0BC      000BC         860+$DISTERR B     *                                                        HN016000
INIT     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


0000C0 00                           862+         DC    AL1(0)              RESERVED                             HC515000
0000C1 00                           863+$OPTSTAT DC    AL1(*-*)            HASP INITIALIZATION OPTIONS          HC516000
0000C2 00                           864+$STATUS  DC    AL1(*-*)            HASP SYSTEM STATUS                   HC517000
0000C3 00                           865+$CURPCE  DC    AL1(*-*)            CURRENT PCE ID                       HC518000
0000C4 00                           866+$HASPECF DC    AL1(*-*)            MASTER EVENT CONTROL FIELD           HC519000
0000C5 00                           867+MHASPECF DC    AL1(*-*)            LINE MANAGER EVENT CONTROL FIELD     HC520000

0000C6 00                           868+$XEQACT  DC    AL1(*-*)            COUNT OF JOBS IN O/S EXECUTION       HC521000
0000C7 00                           869+$ACTIVE  DC    AL1(*-*)            COUNT OF ACTIVE FUNCTIONS            HC522000
0000C8 FF                           870+$ENBALL  DC    X'FF'               ENABLE ALL MASK                      HC523000
0000C9 00                           871+$DISALL  DC    X'00'               DISABLE ALL MASK                     HC524000
0000CA FE                           872+$DISINT  DC    X'FE'               DISABLE INTERVAL TIMER MASK          HC525000
0000CB 00                           873+         DC    X'00'               RESERVED                             HC526000
0000CC 0000                         874+$EXCPCT  DC    Y(*-*)              ACTIVE HASP I/O COUNT                HC531000
0000CE 0040                         875+$COMMCT  DC    Y(64)                     ACTIVE HASP COMMAND COUNT      HC532000

0000D0 0000                         876+$CKPTRAK DC    Y(*-*)              HASP CHECKPOINT TRACK ADDRESS        HC533000
0000D2 0000                         877+         DC    Y(0)                RESERVED                             HC534000

0000D4 00000000                     878+$HASPTCB DC    A(*-*)              ADDRESS OF HASP TASK CONTROL BLOCK   HC535000
0000D8 00000000                     879+$HASPECB DC    F'0'                COMMON HASP ECB                      HC535200
0000DC 00000000                     880+$ASYNCQ  DC    A(0)                ASYNC I/O COMPLETION QUEUE           HC535400
0000E0 00000000                     881+$RJECHEQ DC    A(0)                RJE I/O COMPLETION QUEUE             HC535600
                                    882+*                                  ADDRESS OF FIRST HASP PCE            HC536000
0000E4 00000000                     883+$PCEORG  DC    A(*-*)                                                   HN010000
0000E8 00000000                     884+$BUFPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE HASP BUFFER HC538000
0000EC 00000000                     885+$TPBPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE RJE BUFFER  HC539000

0000F0 00000000                     886+$DCTPOOL DC    A(*-*)              ADDRESS OF FIRST HASP DCT            HC540000
0000F4 00000000                     887+$JITABLE DC    A(*-*)              ADDRESS OF HASP JOB INFO TABLE       HC541000
0000F8 00000000                     888+$JOTABLE DC    V($JOT)             ADDRESS OF JOB OUTPUT TABLE          HC541500
0000FC 00000000                     889+$CYLMAP  DC    A(*-*)              ADDRESS OF FIRST CYLINDER MODULE MAP HC542000
000100 00000000                     890+$TEDADDR DC    A(*-*)              ADDRESS OF FIRST EXTENT DATA TABLE   HC543000

000104 00000000                     891+$DCBLIST DC    A(*-*)              ADDRESS OF DIRECT ACCESS DCB         HC544000
000108 00000000                     892+$FREEQUE DC    A(*-*)              ADDR OF 1ST FREE CONSOLE MSG BUFFER  HC545000
00010C 00000000                     893+$BUSYQUE DC    A(*-*)              CONSOLE MSG BUFFERS QUEUED FOR I/O   HC546000

000110 00000000                     894+$LOGQUE  DC    A(*-*)              CMB'S QUEUED FOR LOG PROCESSOR       HC547000
000114 00000000                     895+$COMMQUE DC    A(*-*)              COMMANDS QUEUED FOR COMMAND PROC     HC548000
000118 00000000                     896+$DOMQUE  DC    A(*-*)              CMB'S AWAITING ACTION                HC548200
00011C 00000000                     897+$SMFFREE DC    A(*-*)              ADDR OF 1ST FREE SMF BUFFER          HC548400
000120 00000000                     898+$SMFBUSY DC    A(*-*)              SMF BUFFERS QUEUED FOR I/O           HC548600
000124 00000000                     899+$PRCHKPT DC    A(*-*)              ADDRESS OF PRINT CHECKPOINT TABLE    HC549000
000128 00000002                     900+$TIMEARG DC    F'2'                FAKE SVRB+36 FOR IGC011              HC549500

INIT     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    902+*                             NUCLEUS ADDRESS TABLE                     HC551000

00012C                              904+$NUCTABL DS    0F                  START OF NUCLEUS ADDRESS TABLE       HC553000

00012C 00000000                     905+$STATENT DC    A(*-*)              ENTRY TO STATUS ROUTINE              HC554000
000130 00000000                     906+$TIMENT  DC    A(*-*)              ENTRY TO TIME ROUTINE                HC555000
000134 00000000                     907+$XSMFENT DC    A(*-*)              ENTRY TO SMF EXCP COUNTING ROUTINE   HC559000
000138 00000000                     908+$SVCRSET DC    A(*-*)              ENTRY TO HASP SVC RESET ROUTINE      HC560000

                            00010   909+$NUCLEN  EQU   *-$NUCTABL          LENGTH OF NUCLEUS ADDRESS TABLE      HC561000


                                    911+*********************************************************************** HC576000
                                    912+*  ALL VARIABLES LOCATED IN THIS AREA WILL BE REGULARLY CHECKPOINTED  * HC577000
                                    913+*  BY HASP AND WILL BE RESTORED ON ANY WARM START.....                * HC578000
                                    914+*                                                                     * HC579000

                                    915+*                                                                     * HC580000
                                    916+*                                                                     * HC581000
00013C                              917+$SAVEBEG DS    0F                  BEGINNING OF SAVE AREA             * HC582000
00013C 00000000                     918+$JOBQPTR DC    A(*-*)              ADDRESS OF HASP JOB QUEUE          * HC583000
000140 00000000                     919+$JQFREE  DC    A(*-*)              BEGINNING OF FREE QUEUE CHAIN      * HC584000

000144 00000000                     920+$JQENT   DC    A(*-*)              BEGINNING OF ACTIVE QUEUE CHAIN    * HC585000
000148 00000000                     921+$DATAKEY DC    F'0'                MASTER PERIPHERAL DATA SET KEY     * HC588000
00014C 0000                         922+$JOBNO   DC    H'0'                HASP JOB NUMBER                    * HC589000
00014E 0000                         923+$MSGRPNO DC    H'0'                LAST CONSOLE MESSAGE TRACK GROUP   * HC590000
000150 0000000000000000             924+$DACKPT  DC    2XL6'0'             DA CHECKPOINT FOR WARM START       * HC591000

                            0015C   925+$SAVEEND EQU   *                   END OF SAVE AREA                   * HC592000
                            00020   926+$SAVELEN EQU   $SAVEEND-$SAVEBEG   LENGTH OF SAVE AREA                * HC593000
                                    927+*                                                                     * HC594000
                                    928+*                                                                     * HC595000
                                    929+*                                                                     * HC596000

                                    930+*********************************************************************** HC597000
                                    931+*                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000

00015C                              933+$NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000
00015C 00000000                     934+$ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000

000160 00000000                     935+$SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000
000164 00000000                     936+$SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000
                            0000C   937+$NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000


                                    939+*                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000


000168 00000000                     941+$IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000
00016C 00000000                     942+$WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000
000170 00000000                     943+$LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000
000174 00000000                     944+$XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000

000178 00000000                     945+$SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000
00017C 00000000                     946+$SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000
000180 00000000                     947+$SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000
000184 00000000                     948+$SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000
000188 00000000                     949+$SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000

00018C                              950+$ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000



INIT     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                              953+HASPBLKS CSECT ,                   END OF HCT DSECT                RFIT HC998000
INIT     HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                              956+PCEDSECT DSECT                     PROCESSOR CONTROL ELEMENT DSECT      PC260000




                            00000   958+         USING PCEDSECT,SAVE       ESTABLISH PCE ADDRESSABILITY         PC264000



000000                              960+PCESAVEA DS    F                   RESERVED                             PC268000
000004                              961+PCEPREV  DS    F                   ADDRESS OF PREVIOUS PCE              PC270000

000008                              962+PCENEXT  DS    F                   ADDRESS OF NEXT PCE                  PC272000
00000C                              963+PCELINK  DS    F                   REGISTER 14 (LINK) STORAGE           PC274000
000010                              964+PCER15   DS    F                   REGISTER 15 STORAGE                  PC276000
000014                              965+PCER0    DS    F                   REGISTER 0 STORAGE                   PC278000
000018                              966+PCER1    DS    F                   REGISTER 1 STORAGE                   PC280000
00001C                              967+PCEWA    DS    F                   REGISTER 2 (WA) STORAGE              PC282000
000020                              968+PCEWB    DS    F                   REGISTER 3 (WB) STORAGE              PC284000
000024                              969+PCEWC    DS    F                   REGISTER 4 (WC) STORAGE              PC286000

000028                              970+PCEWD    DS    F                   REGISTER 5 (WD) STORAGE              PC288000
00002C                              971+PCEWE    DS    F                   REGISTER 6 (WE) STORAGE              PC290000

000030                              972+PCEWF    DS    F                   REGISTER 7 (WF) STORAGE              PC292000
000034                              973+PCEWG    DS    0F                  REGISTER 8 (WG) STORAGE              PC294000
000034                              974+PCEBASE3 DS    F                   REGISTER 8 (BASE3) STORAGE           PC296000
000038                              975+PCER9    DS    F                   REGISTER 9 STORAGE                   PC298000
00003C                              976+PCEJCT   DS    F                   REGISTER 10 (JCT) STORAGE            PC300000

000040                              977+PCEBASE1 DS    F                   REGISTER 11 (BASE1) STORAGE          PC302000
000044                              978+PCEBASE2 DS    F                   REGISTER 12 (BASE2) STORAGE          PC304000
000048                              979+PCEEWF   DS    H                   PROCESSOR EVENT WAIT FIELD           PC306000
00004A                              980+PCEID    DS    H                   PROCESSOR TYPE                       PC308000
00004C                              981+         DS    C                   RESERVED                             PC310000
00004D                              982+PCEOPRIO DS    C                   REQUESTED OVERLAY ROUTINE PRIORITY   PC312000
00004E                              983+PCEOCON  DS    H                   REQUESTED OVERLAY ROUTINE OCON       PC314000
000050                              984+PCEORTRN DS    F                   $RETURN PAST $LINK STORAGE           PC316000
000054                              985+PCEOPCE  DS    F                   CHAIN OF PCE'S USING SAME OVERLAY    PC318000

000058                              986+PCEWORK  DS    0D                  VARIABLE LENGTH PROCESSOR WORK AREA  PC320000

000000                              987+HASPBLKS CSECT                     END OF PCE DSECT                     PC322000
INIT     HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                    989+*                                                                       PC326000
                                    990+*                             PROCESSOR CONTROL ELEMENT IDENTIFICATION  PC328000

                                    991+*                                                                       PC330000





                                    993+*                                                                       PC334000
                                    994+*                             BYTE 1                                    PC336000
                                    995+*                                                                       PC338000



                            00001   997+PCELCLID EQU   X'01'               LOCAL SPECIAL PCE ID                 PC342000
                            00002   998+PCERJEID EQU   X'02'               REMOTE SPECIAL PCE ID                PC344000
                            00004   999+PCEINRID EQU   X'04'               INTERNAL SPECIAL PCE ID              PC346000

                            00080  1000+PCEPRSID EQU   X'80'               PRINT SPECIAL PCE ID                 PC348000

                            00040  1001+PCEPUSID EQU   X'40'               PUNCH SPECIAL PCE ID                 PC350000





                                   1003+*                                                                       PC354000

                                   1004+*                             BYTE 2                                    PC356000
                                   1005+*                                                                       PC358000



                            00000  1007+PCEASYID EQU   0                   ASYNCH PCE ID                        PC362000
                            00001  1008+PCERDRID EQU   1                   INPUT PCE ID                         PC364000
                            00002  1009+PCESETID EQU   2                   SETUP PCE ID                         PC366000
                            00003  1010+PCEXEQID EQU   3                   EXECUTION PCE ID                     PC368000
                            00004  1011+PCETHWID EQU   4                   EXECUTION THAW PCE ID                PC370000
                            00005  1012+PCEXZMID EQU   5                   EXECUTION TASK MONITOR PCE ID        PC372000
                            00006  1013+PCEOUTID EQU   6                   OUTPUT PROCESSOR PCE ID              PC374000
                            00007  1014+PCEPRTID EQU   7                   PRINT PCE ID                         PC376000

                            00008  1015+PCEPUNID EQU   8                   PUNCH PCE ID                         PC378000
                            00009  1016+PCEPRGID EQU   9                   PURGE PCE ID                         PC380000
                            0000A  1017+PCECONID EQU   10                  CONSOLE PCE ID                       PC382000
                            0000B  1018+PCEMLMID EQU   11                  LINE MANAGER PCE ID                  PC384000

                            0000C  1019+PCETIMID EQU   12                  TIMER PCE ID                         PC386000
                            0000D  1020+PCECKPID EQU   13                  CHECKPOINT PCE ID                    PC388000
                            0000E  1021+PCEGPRID EQU   14                  PRIORITY AGING PCE ID                PC390000
INIT     HASP BUFFER DSECT                                                                                     PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             1023+BUFDSECT DSECT                     BUFFER DSECT                         BU444000
000000                             1024+IOBFLAG1 DS    C                   I/O FLAGS                            BU446000
000001                             1025+IOBFLAG2 DS    C                   I/O FLAGS                            BU448000
000002                             1026+IOBSENS0 DS    C                   FIRST SENSE BYTE                     BU450000
000003                             1027+IOBSENS1 DS    C                   SECOND SENSE BYTE                    BU452000
000004                             1028+IOBECBCC DS    0C                  I/O COMPLETION CODE                  BU454000
000004                             1029+IOBECBPT DS    F                   ADDRESS OF HASP EVENT CONTROL BLOCK  BU456000

000008                             1030+IOBFLAG3 DS    C                   I/O FLAGS                            BU458000
000009                             1031+IOBCSW   DS    CL7                 CHANNEL STATUS WORD                  BU460000
000010                             1032+IOBSIOCC DS    0C                  SIO CONDITION CODE                   BU462000

000010                             1033+IOBSTART DS    F                   ADDRESS OF CHANNEL PROGRAM           BU464000
000014                             1034+IOBDCBPT DS    F                   ADDRESS OF DATA CONTROL BLOCK        BU466000
000018                             1035+IOBREPM  DS    0C                  REPOSITION MODIFIER                  BU468000
000018                             1036+IOBRESTR DS    F                   RESTART ADDRESS OF CHANNEL PROGRAM   BU470000
00001C                             1037+TPBMXREC DS    0C                  MAXIMUM RJE OUTPUT RECORD COUNT      BU472000
00001C                             1038+IOBINCAM DS    H                   BLOCK COUNT INCREMENT                BU474000
00001E                             1039+IOBERRCT DS    H                   ERROR COUNT                          BU476000
000020                             1040+TPBLCCC  DS    0C                  LAST REMOTE OUTPUT COMMAND OP.       BU478000
000020                             1041+TPBLCCAD DS    0F                  ADDR OF LAST REMOTE CARRIAGE CONTROL BU480000
000020                             1042+IOBXTENT DS    C                   DEB EXTENT                           BU482000
000021                             1043+IOBSEEK  DS    0CL7,3C             DIRECT ACCESS SEEK ADDRESS           BU484000
000024                             1044+TPBRECNT DS    0C                  CURRENT REMOTE OUTPUT RECORD COUNT   BU486000

000024                             1045+TPBFDATA DS    F                   REMOTE DATA POINTER                  BU488000
000028                             1046+BUFECBCC DS    0C                  I/O COMPLETION CODE                  BU490000
000028                             1047+BUFCHAIN DS    F                   BUFFER CHAIN FIELD                   BU492000

00002C                             1048+BUFTYPE  DS    0C                  BUFFER TYPE                          BU494000
00002C                             1049+BUFDCT   DS    F                   ADDRESS OF DEVICE CONTROL TABLE      BU496000
000030                             1050+BUFEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     BU498000
000034                             1051+OACECHN  DS    0F                  OVERLAY AREA CHAIN WORD              BU500000
000034                             1052+BUFDDB   DS    0F                  DDB ADDRESS                          BU501000
000034                             1053+LCBMCB   DS    C                   REMOTE MODE BYTE                     BU502000
000035                             1054+LCBACK   DS    C                   REMOTE NEXT ACKNOWLEDGEMENT          BU504000
000036                             1055+LCBRCB   DS    H                   REMOTE RESPONSE CONTROL BLOCK        BU506000
000038                             1056+IOBCCW1  DS    D                   CHANNEL COMMAND WORD 1               BU508000
000040                             1057+IOBCCW2  DS    D                   CHANNEL COMMAND WORD 2               BU510000
000048                             1058+IOBCCW3  DS    0D,5C               CHANNEL COMMAND WORD 3               BU511000
00004D                             1059+OACEPRIO DS    C                   PRIO OF OLAY ROUTINE IN THIS AREA    BU512000

00004E                             1060+OACEOCON DS    H                   OVERLAY CALL CONSTANT                BU514000

000050                             1061+IOBCCW4  DS    D                   CHANNEL COMMAND WORD 4               BU516000
000058                             1062+BUFSTART DS    0D                  START OF BUFFER WORK SPACE           BU518000

000058                             1063+OACENAME DS    0F                  NAME OF OVERLAY ROUTINE              BU520000
000058                             1064+HDBNXTRK DS    F                   HASP DATA BLOCK CHAIN TRACK          BU522000
00005C                             1065+OACEASMO DS    0F                  ASSEMBLY ORIGIN OF OVERLAY ROUTINE   BU524000
00005C                             1066+HDBDSKEY DS    F                   HASP DATA BLOCK DATA SET KEY         BU526000
000060                             1067+OACEPROG DS    0F                  ENTRY POINT OF OVERLAY ROUTINE       BU528000
000060                             1068+HDBSTART DS    F                   HASP DATA BLOCK START                BU529000
000064                      00058  1069+         ORG   BUFSTART                                                 BU530000
000058                             1070+IOBCCW5  DS    D                   CHANNEL COMMAND WORD 5               BU534000
000060                             1071+IOBCCW6  DS    D                   CHANNEL COMMAND WORD 6               BU536000
000068                             1072+IOBCCW7  DS    D                   CHANNEL COMMAND WORD 7               BU538000
000070                             1073+IOBCCW8  DS    D                   CHANNEL COMMAND WORD 8               BU540000
000078                             1074+TPBUFST  DS    0F                  START OF REMOTE BUFFER WORK SPACE    BU542000

000078                      00558  1075+         ORG   BUFSTART+1280           SPACE OVER OVERLAY AREA          BU544000
000558                             1076+OACEPCE  DS    F                   CHAIN OF PCE'S USING OVERLAY AREA    BU546000

000000                             1077+HASPBLKS CSECT                     END OF BUFFER DSECT                  BU548000

INIT     HASP BUFFER STATUS BIT DEFINITIONS                                                                    PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1080+*                             BUFFER TYPE BIT DEFINITIONS               BU554000



                            00080  1082+TPBUF    EQU   X'80'               REMOTE BUFFER TYPE                   BU558000
                            00040  1083+OLAYBUF  EQU   X'40'               OVERLAY AREA TYPE                    BU560000
                            00000  1084+HASPBUF  EQU   X'00'               HASP BUFFER TYPE                     BU562000
INIT     HASP DEVICE CONTROL TABLE DSECT                                                                       PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





000000                             1087+DCTDSECT DSECT                     DEVICE CONTROL TABLE DSECT           DC308000
000000                             1088+DCTSTAT  DS    0C                  DCT STATUS                           DC310000

000000                             1089+DCTPCE   DS    F                   ADDRESS OF PROCESSOR CONTROL ELEMENT DC312000
000004                             1090+DCTBUFAD DS    F                   CURRENT BUFFER ADDRESS               DC314000
000008                             1091+DCTPSTAT DS    0C                  REMOTE JOB ENTRY FLAGS               DC316000
000008                             1092+DCTDCB   DS    0F                  ADDRESS OF DATA CONTROL BLOCK        DC318000
000008                             1093+DCTSEEK  DS    F                   CURRENT TRACK ADDRESS                DC320000
00000C                             1094+MDCTOPCT DS    0C                  COUNT OF OPEN RJE PROCESSORS         DC322000
00000C                             1095+MDCTOBUF DS    0F                  RJE OUTPUT BUFFER CHAIN              DC324000
00000C                             1096+DCTEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     DC326000
000010                             1097+DCTBUFCT DS    C                   ACTIVE BUFFER COUNT                  DC328000
000011                             1098+MDCTATTN DS    0C                  RJE LINE ACTION PENDING FLAGS        DC330000
000011                             1099+DCTNO    DS    C                   DCT NUMBER                           DC332000
000012                             1100+DCTDEVTP DS    C                   DEVICE TYPE                          DC334000

000013                             1101+DCTIOTYP DS    0C                  I/O REQUEST TYPE                     DC336000
000013                             1102+DCTPCODE DS    C                   LINE/REMOTE CODE                     DC338000
000014                             1103+DCTFLAGS DS    0C                  OPERATOR COMMAND FLAGS               DC340000
000014                             1104+DCTCHAIN DS    F                   ADDRESS OF NEXT DCT                  DC342000

000018                             1105+DCTDEVN  DS    0CL8,CL4            EBCDIC DEVICE NAME                   DC344000
00001C                             1106+DCTOTC   DS    H                   OVERLAY DEVICE TRACKS/CYLINDER       DC346000
00001E                             1107+DCTOTT   DS    H                   OVERLAY EXTENT BEGINNING TT          DC348000
000020                             1108+MDCTCODE DS    0F                  ADDRESS OF RJE CODE TABLE            DC350000
000020                             1109+DCTFORMS DS    0F                  PRINT/PUNCH FORMS ID                 DC352000
000020                             1110+DCTPRINT DS    C                   DEFAULT PRINT ROUTING                DC354000

000021                             1111+DCTPUNCH DS    C                   DEFAULT PUNCH ROUTING                DC356000
000022                             1112+DCTPRINC DS    C                   PRIORITY INCREMENT                   DC358000
000023                             1113+DCTPRLIM DS    C                   PRIORITY LIMIT                       DC360000
000024                             1114+DCTFCB   DS    F                   PRINT FCB ID                         DC360300
000028                             1115+DCTUCS   DS    F                   PRINT UCS ID                         DC360600
00002C                             1116+DCTPPSW  DS    X                   PRINT/PUNCH SWITCHES                 DC360900
00002D                             1117+DCTCLASS DS    CL8                 PRINT/PUNCH CLASS MASK               DC361200
000035                             1118+         DS    C                   CLASS MASK TERMINATOR                DC361500

000038                             1119+DCTWORK  DS    0F                  START OF DEVICE WORK AREA            DC362000
000038                             1120+RIDUCB   DS    0F                  INTERNAL READER UCB ADDRESS          DC364000

000038                             1121+MDCTFCS  DS    H                   REMOTE TERMINAL FUNCTION CONTROL SEQ DC366000
00003A                             1122+MDCTERCT DS    0C                  REMOTE TERMINAL ERROR COUNT          DC368000
00003A                             1123+DCTPRLEN DS    C                   REMOTE TERMINAL DATA WIDTH           DC370000
00003B                             1124+DCTPLINE DS    C                   REMOTE TERMINAL LINE CHARACTERISTICS DC372000
00003C                             1125+MDCTRCB  DS    0C                  REMOTE TERMINAL RECORD CONTROL BYTE  DC374000
00003C                             1126+MDCTDCT  DS    0F                  REMOTE TERMINAL DCT CHAIN FIELD      DC376000
00003C                             1127+RIDFLAGS DS    H                   INTERNAL READER SYNCH FLAGS          DC378000
00003E                             1128+RIDTJID  DS    H                   RESERVED                             DC380000

000040                             1129+RIDECB   DS    0F                  INTERNAL READER ECB ADDRESS          DC382000
000040                             1130+MDCTRSEQ DS    C                   REMOTE TERMINAL TRANSMIT SEQUENCE    DC384000
000041                             1131+MDCTTSEQ DS    C,H                 REMOTE TERMINAL RECEIVE SEQUENCE     DC386000
000044                             1132+MDCTPSWD DS    0CL8                REMOTE TERMINAL PASSWORD             DC388000
000044                             1133+RIDTCB   DS    F                   INTERNAL READER TCB ADDRESS          DC390000

000048                             1134+RIDDATA  DS    CL80                INTERNAL READER DATA AREA            DC394000
                            00098  1135+DCTEND   EQU   *                   SYMBOL FOR END OF DCT                DC395000
000000                             1136+HASPBLKS CSECT                     END OF DEVICE CONTROL TABLE DSECT    DC396000

INIT     HASP DCT STATUS BIT DEFINITIONS                                                                       PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78




                                   1139+*                             DCTSTAT                                   DC402000



                            00080  1141+DCTINUSE EQU   X'80'               DCT IS IN USE                        DC406000

                            00040  1142+DCTDRAIN EQU   X'40'               DCT IS DRAINED                       DC408000
                            00020  1143+DCTHOLD  EQU   X'20'               DCT IS HELD                          DC410000
                            00010  1144+DCTEJECT EQU   X'10'               DEVICE IS AT CHNL 1 POSITION         DC411000






                                   1146+*                             DCTPSTAT                                  DC414000



                            00080  1148+DCTLOGAL EQU   X'80'               LOG EVERY CHANNEL END                DC418000
                            00040  1149+DCTLEASE EQU   X'40'               LEASED LINE                          DC420000

                            00020  1150+DCTETX   EQU   X'20'               AN ETX HAS BEEN RECEIVED             DC422000
                            00010  1151+DCTSOFF  EQU   X'10'               A /*SIGNOFF CARD HAS BEEN RECEIVED   DC424000
                            00010  1152+DCTEOF   EQU   X'10'               AN EOF HAS BEEN DETECTED             DC425000
                            00008  1153+DCTSINON EQU   X'08'               REMOTE DCT IS ATTACHED TO LINE DCT   DC426000
                            00004  1154+DCTPOST  EQU   X'04'               I/O COMPLETE FLAG                    DC428000
                            00002  1155+DCTABORT EQU   X'02'               TRANSMISSION WAS ABORTED             DC430000

                            00001  1156+DCTPBUF  EQU   X'01'               REMOTE OUTPUT BUFFER INDICATION      DC432000





                                   1158+*                             DCTDEVTP                                  DC436000




                            00000  1160+DCTDA    EQU   X'00'               DIRECT ACCESS DEVICE                 DC440000
                            00001  1161+DCTOLAY  EQU   X'01'               OVERLAY DEVICE                       DC442000
                            00002  1162+DCTLNE   EQU   X'02'               REMOTE JOB ENTRY LINE                DC444000
                            00010  1163+DCTRDR   EQU   X'10'               LOCAL CARD READER                    DC446000
                            00012  1164+DCTRJR   EQU   X'12'               REMOTE CARD READER                   DC450000

                            00014  1165+DCTINR   EQU   X'14'               INTERNAL READER                      DC452000
                            00020  1166+DCTPRT   EQU   X'20'               LOCAL PRINTER                        DC454000
                            00022  1167+DCTRPR   EQU   X'22'               REMOTE PRINTER                       DC456000
                            00030  1168+DCTPUN   EQU   X'30'               LOCAL PUNCH                          DC458000
                            00032  1169+DCTRPU   EQU   X'32'               REMOTE PUNCH                         DC460000

                            00042  1170+DCTRCON  EQU   X'42'               REMOTE CONSOLE                       DC464000
INIT     HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                   1173+*                             DCTIOTYP                                  DC470000



                            00080  1175+DCTREAD  EQU   X'80'               READ REQUEST                         DC474000
                            00040  1176+DCTWRITE EQU   X'40'               WRITE REQUEST                        DC476000
                            00008  1177+DCTREJRM EQU   X'08'               REMOTE RESTRICTION ALWAYS 0          DC482000
                            00004  1178+DCTREJJB EQU   X'04'               RESTRICTED FROM JOB COMMANDS         DC484000

                            00002  1179+DCTREJDV EQU   X'02'               RESTRICTED FROM DEVICE COMMANDS      DC486000
                            00001  1180+DCTREJSY EQU   X'01'               RESTRICTED FROM SYSTEM COMMANDS      DC488000






                                   1182+*                             DCTPCODE                                  DC492000



                            00000  1184+DCTPHALF EQU   X'00'               HALF-DUPLEX LINE                     DC496000
                            00001  1185+DCTPFULL EQU   X'01'               FULL-DUPLEX LINE                     DC498000
                            00002  1186+DCTPWIDE EQU   X'02'               WIDE-BAND LINE                       DC500000

                            00020  1187+DCTPPRES EQU   X'20'               HARDWARE COMPRESS FEATURE            DC501000
                            00010  1188+DCTPCON  EQU   X'10'               REMOTE TERMINAL CONSOLE              DC502000
                            00010  1189+DCTPMRF  EQU   X'10'               MULTIPLE-RECORD FEATURE              DC504000
                            00008  1190+DCTPTAB  EQU   X'08'               HORIZONTAL FORMAT CONTROL            DC506000
                            00004  1191+DCTPROG  EQU   X'04'               PROGRAMMABLE INTERFACE               DC508000
                            00002  1192+DCTPVAR  EQU   X'02'               VARIABLE LENGTH RECORDS              DC510000
                            00001  1193+DCTPBLK  EQU   X'01'               BLOCKED RECORDS                      DC512000






                                   1195+*                             DCTPLINE                                  DC516000




                            00000  1197+DCTP2770 EQU   X'00'               1009, 2770, 3780                     DC520000
                            00001  1198+DCTPHARD EQU   X'01'               1978, 2780                           DC522000
                            00002  1199+DCTP20   EQU   X'02'               360/20 SUB-MODEL 5 OR 6              DC524000
                            00004  1200+DCTP360  EQU   X'04'               360/22, 25, 30, 40, ETC.             DC526000

                            00006  1201+DCTP20S2 EQU   X'06'               360/20 SUB-MODEL 2 OR 4              DC528000
                            00008  1202+DCTP1130 EQU   X'08'               1130                                 DC530000
                            0000A  1203+DCTPSYS3 EQU   X'0A'               SYSTEM/3                             DC532000
                            0000E  1204+DCTPCPU  EQU   X'0E'               CPU TERMINAL                         DC534000
                            00010  1205+DCTPHASP EQU   X'10'               HASP                                 DC536000
                            00020  1206+DCTPASCI EQU   X'20'               USASCII CODE                         DC538000
                            00040  1207+DCTPTRSP EQU   X'40'               TRANSPARENCY                         DC540000
                            00080  1208+DCTPBSC  EQU   X'80'               BINARY SYNCHRONOUS LINE              DC542000

INIT     HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78





                                   1211+*                             DCTFLAGS                                  DC548000



                            00080  1213+DCTSTOP  EQU   X'80'               $Z ($STOP) COMMAND                   DC552000

                            00040  1214+DCTDELET EQU   X'40'               $C ($DELETE) COMMAND                 DC554000
                            00020  1215+DCTRSTRT EQU   X'20'               $E ($RESTART) COMMAND                DC556000
                            00010  1216+DCTRPT   EQU   X'10'               $N ($REPEAT) COMMAND                 DC558000
                            00008  1217+DCTBKSP  EQU   X'08'               $B ($BACKSPACE) COMMAND              DC560000
                            00004  1218+DCTHOLDJ EQU   X'04'               $T...,H COMMAND                      DC562000
                            00004  1219+DCTSPACE EQU   X'04'               $T...,C=1 COMMAND                    DC564000





                                   1221+*                                  DCTPPSW                              DC568000





                            00080  1223+DCTPPSWC EQU   X'80'               FCB CARRAGE ALTERED                  DC571000
                            00040  1224+DCTPPSWF EQU   X'40'               FORMS CONTROLLED BY OPERATOR         DC572000
                            00020  1225+DCTPPSWQ EQU   X'20'               QUEUE CLASSES ARE ALTERED            DC573000
                            00010  1226+DCTPPSWS EQU   X'10'               SUPPRESS SEPARATOR PAGES             DC574000
                            00008  1227+DCTPPSWT EQU   X'08'               UCS TRAIN ALTERED                    DC575000

                            00004  1228+DCTPPSWU EQU   X'04'               UCS NOT STANDARD                     DC575500
                            00002  1229+DCTPPSWI EQU   X'02'               DEVICE IDLE MESSAGE ISSUED           DC576000
                            00001  1230+DCTPPSWO EQU   X'01'               OPERATOR ACTION ALLOWED              DC577000





                                   1232+*                             RIDFLAGS                                  DC580000



                            00080  1234+RIDPOST  EQU   X'80'               USER WAITING FOR POST                DC584000
                            00040  1235+RIDBUSY  EQU   X'40'               I/O SIMULATION IN PROCESS            DC585000
INIT     HASP JOB QUEUE ENTRY FIELD DEFINITIONS                                                                PAGE   41



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   1237+*                             HASP JOB QUEUE ENTRY DISPLACEMENTS        JQ056000


                            00000  1239+QUEPRIO  EQU   0                   JOB PRIORITY                         JQ060000
                            00001  1240+QUETYPE  EQU   1                   LOGICAL QUEUE TYPE                   JQ062000

                            00002  1241+QUEJOBNO EQU   2                   HASP JOB NUMBER                      JQ064000
                            00004  1242+QUEFLAGS EQU   4                   JOB QUEUE FLAGS                      JQ066000
                            00004  1243+QUECHAIN EQU   4                   ADDRESS OF NEXT JOB QUEUE ELEMENT    JQ068000
                            00008  1244+QUETRAK  EQU   8                   TRACK ADDRESS OF JOB CONTROL TABLE   JQ070000
                            0000C  1245+QUEPRTRT EQU   12                  PRINT ROUTE                          JQ072000
                            0000D  1246+QUEPUNRT EQU   13                  PUNCH ROUTE                          JQ074000
                            0000E  1247+QUEJOECT EQU   14                  JOB OUTPUT ELEMENT COUNT             JQ076000








                                   1249+*                             HASP JOB QUEUE ENTRY BIT DEFINITIONS      JQ084000





                                   1251+*                             QUETYPE                                   JQ088000



                            00080  1253+QENTBY   EQU   X'80'               QUEUE ENTRY BUSY BIT                 JQ092000
                            00040  1254+$XEQ     EQU   X'40'               OS EXECUTION QUEUE                   JQ094000
                            00020  1255+$INPUT   EQU   X'20'               INPUT QUEUE                          JQ096000
                            00010  1256+$SETUP   EQU   X'10'               SETUP QUEUE                          JQ098000
                            00008  1257+$BRKDOWN EQU   X'08'               BREAKDOWN QUEUE                      JQ100000
                            00004  1258+$OUTPUT  EQU   X'04'               OUTPUT QUEUE                         JQ102000
                            00002  1259+$HARDCPY EQU   X'02'               OUTPUT IN-PROGRESS QUEUE             JQ104000
                            00001  1260+$PLOT    EQU   X'01'               PLOT QUEUE                           JQ106000
                            00000  1261+$PURGE   EQU   X'00'               PURGE QUEUE                          JQ108000





                                   1263+*                             QUEFLAGS                                  JQ112000


                            00080  1265+QUEHOLDA EQU   X'80'               HOLD ALL JOBS                        JQ116000
                            00040  1266+QUEHOLD1 EQU   X'40'               HOLD SINGLE JOB                      JQ118000

                            00020  1267+QUEHOLD2 EQU   X'20'               HOLD FOR DUPLICATE JOB NAME          JQ120000
                            00010  1268+QUEPURGE EQU   X'10'               JOB IS TO BE PURGED                  JQ122000
                            00008  1269+QUEOPCAN EQU   X'08'               OPERATOR ISSUED $C OR $P JOB         JQ124000
                            00004  1270+QUEOPRTE EQU   X'04'               OPERATOR HAS ISSUED $R ALL           JQ125000
                            00002  1271+QUEJCTSW EQU   X'02'               JCT INTERLOCK FOR UPDATE             JQ125100
INIT     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             1273+JCTDSECT DSECT                     JOB CONTROL TABLE DSECT              JC650000
                            00000  1274+         USING JCTDSECT,JCT        ESTABLISH JCT ADDRESSABILITY         JC652000
000000                             1275+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      JC654000
000058                             1276+JCTJQE   DS    F                   OFFSET OF HASP JOB QUEUE ELEMENT     JC656000
00005C                             1277+JCTIOTTR DS    F                   TRACK ADDRESS OF FIRST IOT           JC658000

000060                             1278+JCTDSKEY DS    F                   PERIPHERAL DATA SET KEY              JC660000
000064                             1279+JCTINJCT DS    F                   TRACK ADDRESS OF INPUT JCT           JC662000
000068                             1280+         DS    X                   RESERVED                             JC664000

000069                             1281+JCTSMFLG DS    BL1                 SMF FLAGS                            JC666000
00006A                             1282+JCTPURGE DS    X                   START OF SMF PURGE RECORD            JC668000
00006B                             1283+JCTJBOPT DS    BL1                 HASP JOB OPTIONS                     JC670000
00006C                             1284+JCTJOBEB DS    CL4                 HASP ASSIGNED JOB NUMBER (EBCDIC)    JC672000
000070                             1285+JCTJNAME DS    CL8                 JOB NAME FROM JOB CARD               JC674000
000078                             1286+JCTPNAME DS    CL20                PROGRAMMER'S NAME FROM JOB CARD      JC676000
00008C                             1287+JCTMCLAS DS    C                   MSGCLASS FROM JOB CARD               JC678000
00008D                             1288+JCTJCLAS DS    C                   JOB CLASS FROM JOB CARD              JC680000
00008E                             1289+         DS    X                   RESERVED                             JC682000
00008F                             1290+JCTPRIO  DS    X                   HASP EXECUTION SELECTION PRIORITY    JC684000
000090                             1291+         DS    X                   RESERVED                             JC686000
000091                             1292+JCTOPRIO DS    X                   HASP OUTPUT SELECTION PRIORITY       JC688000

000092                             1293+JCTROUTE DS    XL2                 INPUT ROUTE CODE                     JC690000

000094                             1294+JCTINDEV DS    CL8                 HASP INPUT DEVICE NAME               JC692000
00009C                             1295+JCTACCTN DS    CL4                 JOB ACCOUNTING NUMBER FROM JOB CARD  JC694000

0000A0                             1296+JCTROOMN DS    CL4                 PROGRAMMER'S ROOM NUMBER             JC696000
0000A4                             1297+JCTETIME DS    F                   ESTIMATED EXECUTION TIME             JC698000
0000A8                             1298+JCTESTLN DS    F                   ESTIMATED OUTPUT LINES               JC700000
0000AC                             1299+JCTESTPU DS    F                   ESTIMATED PUNCHED OUTPUT             JC702000
0000B0                             1300+JCTFORMS DS    CL4                 JOB OUTPUT FORMS                     JC704000
0000B4                             1301+         DS    X                   RESERVED                             JC706000
0000B5                             1302+JCTCPYCT DS    X                   JOB PRINT COPY COUNT                 JC708000
0000B6                             1303+         DS    X                   RESERVED                             JC710000
0000B7                             1304+JCTLINCT DS    X                   LINES PER PAGE                       JC712000
0000B8                             1305+JCTPROUT DS    XL2                 JOB PRINT ROUTE CODE                 JC714000
0000BA                             1306+JCTPUOUT DS    XL2                 JOB PUNCH ROUTE CODE                 JC716000
0000BC                             1307+JCTXEQON DS    F                   TIME ON EXECUTION PROCESSOR          JC718000

0000C0                             1308+JCTXDTON DS    F                   DATE ON EXECUTION PROCESSOR          JC720000
0000C4                             1309+JCTXEQOF DS    F                   TIME OFF EXECUTION PROCESSOR         JC722000

0000C8                             1310+JCTXDTOF DS    F                   DATE OFF EXECUTION PROCESSOR         JC724000

0000CC                             1311+JCTOUTON DS    F                   TIME ON OUTPUT PROCESSOR             JC726000
0000D0                             1312+JCTODTON DS    F                   DATE ON OUTPUT PROCESSOR             JC728000
0000D4                             1313+JCTOUTOF DS    F                   TIME OFF OUTPUT PROCESSOR            JC730000
0000D8                             1314+JCTODTOF DS    F                   DATE OFF OUTPUT PROCESSOR            JC732000
0000DC                             1315+JCTCARDS DS    F                   TOTAL NUMBER OF INPUT CARDS          JC734000
0000E0                             1316+JCTLINES DS    F                   GENERATED OUTPUT LINES               JC736000
0000E4                             1317+JCTPUNCH DS    F                   GENERATED PUNCHED OUTPUT             JC738000
0000E8                             1318+         DS    F                   RESERVED                             JC740000
0000EC                             1319+JCTPRTCT DS    F                   CURRENT NUMBER OF LINES PRINTED      JC742000
0000F0                             1320+JCTPAGCT DS    F                   CURRENT NUMBER OF PAGES PRINTED      JC744000
0000F4                             1321+JCTPUNCT DS    F                   CURRENT NUMBER OF CARDS PUNCHED      JC746000
0000F8                             1322+JCTESOUT DS    F                   ESTIMATED OUTPUT (LINES+CARDS)       JC748000

0000FC                             1323+JCTXOUT  DS    F                   GENERATED OUTPUT RECORDS             JC750000
000100                             1324+         DS    F                   RESERVED                             JC752000
000104                             1325+JCTCYSAV DS    XL100               INPUT ALLOCATION BIT MAP             JC754000

000168                             1326+JCTWORK  DS    XL144               144-BYTE WORK AREA                   JC756000
0001F8                             1327+         DS    0F                                                       JC758000
INIT     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0001F8                             1328+JCTJMR   DS    XL56                JMR AREA                             JC760000
000230                      001F8  1329+         ORG   JCTJMR                                                   JC762000
0001F8                             1330+JCTJMRJN DS    CL8                 JMR JOB NAME                         JC764000
000200                             1331+JCTRDRON DS    F                   TIME ON INPUT PROCESSOR              JC766000
000204                             1332+JCTRDTON DS    F                   DATE ON INPUT PROCESSOR              JC768000
000208                             1333+JCTCPUID DS    XL4                 JMR CPU IDENTIFICATION               JC770000
00020C                             1334+JCTUSEID DS    CL8                 JMR USER IDENTIFICATION              JC772000
000214                             1335+JCTSTEP  DS    X                   CURRENT STEP NUMBER                  JC774000

000215                             1336+JCTINDC  DS    BL1                 JMR SMF OPTIONS                      JC776000
000216                             1337+         DS    XL2                 RESERVED                             JC778000
000218                             1338+JCTUCOM  DS    F                   JMR USER COMMUNICATION AREA          JC780000
00021C                             1339+JCTUJVP  DS    F                   JMR ADDRESS OF USER EXIT ROUTINE     JC782000

000220                             1340+JCTRDROF DS    F                   TIME OFF INPUT PROCESSOR             JC784000
000224                             1341+JCTRDTOF DS    F                   DATE OFF INPUT PROCESSOR             JC786000
000228                             1342+JCTJOBIN DS    F                   JMR JOB SYSIN COUNT                  JC788000
00022C                             1343+JCTRDR   DS    XL2                 READER DEVICE TYPE AND CLASS         JC790000
00022E                             1344+JCTJMOPT DS    BL1                 JMR SMF OPTIONS                      JC792000
00022F                             1345+         DS    X                   RESERVED                             JC794000

000230                      00230  1346+         ORG                                                            JC796000
                            00230  1347+JCTEND   EQU   *                   END OF JOB CONTROL TABLE             JC798000





                                   1349+*                             JCTSMFLG                                  JC802000



                            00080  1351+JCTSMFL0 EQU   B'10000000'         RESERVED                             JC806000
                            00040  1352+JCTSMFL1 EQU   B'01000000'         RESERVED                             JC808000

                            00020  1353+JCTSMFL2 EQU   B'00100000'         RESERVED                             JC810000
                            00010  1354+JCTSMFL3 EQU   B'00010000'         RESERVED                             JC812000

                            00008  1355+JCTSMFL4 EQU   B'00001000'         RESERVED                             JC814000
                            00004  1356+JCTSMFL5 EQU   B'00000100'         RESERVED                             JC816000
                            00002  1357+JCTSMFL6 EQU   B'00000010'         RESERVED                             JC818000
                            00001  1358+JCTSMFL7 EQU   B'00000001'         RESERVED                             JC820000





                                   1360+*                             JCTJBOPT                                  JC824000




                            00080  1362+JCTPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              JC828000
                            00040  1363+JCTSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              JC830000
                            00020  1364+JCTTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           JC832000
                            00010  1365+JCTNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    JC834000
                            00008  1366+JCTXBACH EQU   B'00001000'         EXECUTION BATCHING JOB               JC836000

                            00004  1367+JCTJBOP5 EQU   B'00000100'         RESERVED                             JC838000
                            00002  1368+JCTJBOP6 EQU   B'00000010'         RESERVED                             JC840000
                            00001  1369+JCTJBOP7 EQU   B'00000001'         RESERVED                             JC842000

INIT     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






                                   1372+*                             JCTJMOPT                                  JC848000



                            00020  1374+JCTJMRUX EQU   B'00100000'         IF ON, TAKE USER EXITS FOR SMF       JC852000






                                   1376+*                                                                       JC856000
                                   1377+*        IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT      JC858000
                                   1378+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  JC860000

                                   1379+*        THE JCT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    JC862000
                                   1380+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    JC864000
                                   1381+*                                                                       JC866000
                            005D0  1382+$JCTTEST EQU   1960-JCTEND+JCTJQE                                       JC868000

000230 05D0                        1383+         DC    Y($JCTTEST)         TEST INSTRUCTION                     JC870000
000000                             1384+HASPBLKS CSECT                     END OF JOB CONTROL TABLE DSECT       JC872000
INIT     HASP INPUT/OUTPUT TABLE DSECT                                                                         PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                             1387+IOTDSECT DSECT                     HASP INPUT/OUTPUT TABLE DSECT        IT116000
000000                             1388+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      IT118000
000058                             1389+IOTFLAGS DS    0BL1                MISCELLANEOUS FLAGS                  IT120000
000058                             1390+IOTIOT   DS    F                   ADDRESS OF NEXT INPUT/OUTPUT TABLE   IT122000
00005C                             1391+IOTTRACK DS    F                   TRACK ADDRESS OF CURRENT IOT         IT124000

000060                             1392+IOTIOTTR DS    F                   TRACK ADDRESS OF NEXT IOT            IT126000
000064                             1393+IOTJCTTR DS    F                   TRACK ADDRESS OF JOB CONTROL TABLE   IT128000
000068                             1394+IOTCYMXM DS    F                   MAXIMUM MTTR FOR CURRENT TRACK GROUP IT130000
00006C                             1395+IOTMTTR  DS    F                   LAST MTTR ALLOCATED                  IT132000
000070                             1396+IOTCYMAP DS    XL100               OUTPUT ALLOCATION BIT MAP            IT134000

0000D4                             1397+IOTPDDBP DS    F                   OFFSET OF NEXT AVAILABLE PDDB SPACE  IT136000
0000D8                             1398+IOTPDDB  DS    0F                  PERIPHERAL DATA DEFINITION BLOCKS    IT138000





                                   1400+*                            IOTFLAGS                                   IT142000




                            00080  1402+IOTWRITE EQU   B'10000000'         CHECKPOINT IOT                       IT146000
                            00040  1403+IOTFLAG1 EQU   B'01000000'         RESERVED                             IT148000
                            00020  1404+IOTFLAG2 EQU   B'00100000'         RESERVED                             IT150000
                            00010  1405+IOTFLAG3 EQU   B'00010000'         RESERVED                             IT152000

                            00008  1406+IOTFLAG4 EQU   B'00001000'         RESERVED                             IT154000
                            00004  1407+IOTFLAG5 EQU   B'00000100'         RESERVED                             IT156000
                            00002  1408+IOTFLAG6 EQU   B'00000010'         RESERVED                             IT158000
                            00001  1409+IOTFLAG7 EQU   B'00000001'         RESERVED                             IT160000






                                   1411+*                                                                       IT164000
                                   1412+*           IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT   IT166000
                                   1413+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  IT168000
                                   1414+*        THE IOT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    IT170000

                                   1415+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    IT172000
                                   1416+*                                                                       IT174000
                            00722  1417+$IOTTEST EQU   1960-IOTPDDB+IOTJCTTR-18                                 IT176000
0000D8 0722                        1418+         DC    Y($IOTTEST)         TEST INSTRUCTION                     IT178000
000000                             1419+HASPBLKS CSECT                     END OF HASP INPUT/OUTPUT TABLE DSECT IT180000

INIT     HASP TRACK EXTENT DATA TABLE DSECT                                                                    PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             1422+TEDDSECT DSECT                     EXTENT DATA DUMMY SECTION            TE074000
000000 00000000                    1423+TNCH     DC    F'0'                SEEK ADDRESS OF MOST RECENT $EXCP    TE076000
000004 00000000                    1424+TNTC     DC    F'0'                NR OF TRACKS PER CYL ON THIS DEVICE  TE078000

000008 0000                        1425+TNMD     DC    HS8'0'              EXTENT NUMBER, SHIFTED LEFT 8        TE080000
00000A 0000                        1426+TNRT     DC    H'0'                MAXIMUM RECORD NUMBER                TE082000
00000C 0190                        1427+TNGE     DC    H'400'              NUMBER OF TRACK GROUPS IN EXTENT     TE084000

00000E 0001                        1428+TNTG     DC    H'1'                NUMBER OF TRACKS PER GROUP           TE086000
000010 0000                        1429+TNMO     DC    H'0'                OFFSET OF THIS MAP FROM FIRST MAP    TE088000
000012 0032                        1430+TNMB     DC    H'50'               NUMBER OF BYTES IN A MAP             TE092000
000014                             1431+         DS    0F                                                       TE094000
                            00014  1432+TEDSIZ   EQU   *-TEDDSECT          LENGTH OF DSECT                      TE096000

000000                             1433+HASPBLKS CSECT                     END OF EXTENT DATA TABLE DSECT       TE098000
INIT     HASP OVERLAY TABLE DSECT                                                                              PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             1436+OTBDSECT DSECT                     HASP OVERLAY TABLE DSECT             OT056000
000000                             1437+OTBADDR  DS    0F                  ADDRESS OF RESIDENT OVERLAY MODULE   OT064000
000000                             1438+OTBPRIO  DS    C                   PRIORITY OF NON-RESIDENT OVERLAY     OT066000

                                   1439+*                                   OR X'FF' IF RESIDENT                OT068000
000001                             1440+         DS    C                   RESERVED                             OT070000

000002                             1441+OTBTRAK  DS    H                   RELATIVE DISK T R OF OVERLAY MODULE  OT072000
                            00004  1442+OTBSIZE  EQU   *-OTBDSECT                                               OT082000
000000                             1443+HASPBLKS CSECT                     END OF OVERLAY TABLE DSECT           OT084000
INIT     HASP PARTITION INFORMATION TABLE FIELD DEFINITIONS                                                    PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   1445+*                        HASP PARTITION INFORMATION TABLE DISPLACEMENTS PI098000





                            00000  1447+PITSTAT  EQU   0                   LOGICAL PARTITION STATUS BYTE        PI102000
                            00001  1448+PITICLAS EQU   1                   LOGICAL PARTITION INITIATOR CLASS    PI104000
                            00002  1449+PITPATID EQU   2                   LOGICAL PARTITION IDENTIFICATION     PI106000
                            00004  1450+PITSIZE  EQU   4                   LOGICAL PARTITION SIZE               PI108000
                            00006  1451+PITPRIO  EQU   6                   LOGICAL PARTITION PRTY               PI110000
                            00008  1452+PITCLASS EQU   8                   LOGICAL PARTITION CLASSES            PI128000

                            00014  1453+PITLNGTH EQU   (PITCLASS+8+4)/4*4         LENGTH OF PIT                 PI132000











                                   1455+*                        HASP PARTITION INFORMATION TABLE               PI136000

                                   1456+*                             STATUS BIT DEFINITIONS                    PI138000





                            00080  1458+PITHOLDA EQU   X'80'               PIT IS DRAINED ($P I)                PI142000
                            00040  1459+PITHOLD1 EQU   X'40'               PIT IS DRAINED ($P IN)               PI144000
                            00020  1460+PITBUSY  EQU   X'20'               PARTITION BUSY INDICATOR             PI146000
                            00010  1461+PITIDLE  EQU   X'10'               PIT IDLE MESSAGE SWITCH              PI148000
                            00001  1462+PITLAST  EQU   X'01'               LAST PIT INDICATOR                   PI150000
INIT     HASP JOB OUTPUT ELEMENT DSECT                                                                         PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             1464+JOEDSECT DSECT                     JOB OUTPUT ELEMENT DSECT             JE230000
                                   1465+*                                                                       JE232000

                                   1466+*        JOE FIELDS - USED AS A WORK ELEMENT                            JE234000
                                   1467+*                                                                       JE236000
000000                             1468+JOENEXT  DS    H                   PTR TO NEXT WORK ELEMENT             JE238000

000002                             1469+JOEFLAG  DS    H                   FLAG BITS                            JE240000
                            00080  1470+$JOEBUSY EQU   X'80'               JOE BUSY FLAG                        JE242000
                            00040  1471+$JOECKV  EQU   X'40'               CHECKPOINT ELEMENT VALID FLAG        JE244000
000004                             1472+JOECHAR  DS    H                   PTR TO CHARACTERISTICS ELEMENT       JE246000
000006                             1473+JOECKPT  DS    H                   PTR TO CHECKPOINT ELEMENT            JE248000
000008                             1474+JOESEC   DS    X                   SECURITY LEVEL OF DATA               JE250000
000009                             1475+JOECPU   DS    X                   CPU ID OF DATA                       JE252000
00000A                             1476+JOEROUT  DS    H                   REMOTE ID OF DATA                    JE254000
                            00080  1477+$JOEIRTE EQU   X'80'               EXPLICIT ROUTING                     JE256000
00000C                             1478+JOERECCT DS    F                   LINE/CARD COUNT FOR THIS JOE         JE258000

000010                             1479+JOEJQE   DS    F                   A(HASP JOB QUEUE ELEMENT)            JE260000

000014                             1480+JOEDEST  DS    H                   DESTINATION CODE FROM PDDB           JE262000
                                   1481+*                                                                       JE264000
                                   1482+*        JOE FIELDS - USED AS A CHARACTERISTICS ELEMENT                 JE266000
                                   1483+*                                                                       JE268000

000016                      00000  1484+         ORG   JOEDSECT            RESET LOCATION TO START OF JOE       JE270000
000000                             1485+         DS    H                   POINTER TO NEXT CHAR-JOE             JE272000
000002                             1486+JOEUSE   DS    H                   # OF JOES USING THIS ELEMENT         JE274000
000004                             1487+JOEFORM  DS    F                   FORMS NUMBER                         JE276000
000008                             1488+JOEFCB   DS    F                   FCB NUMBER                           JE278000
00000C                             1489+JOEUCS   DS    F                   UCS NUMBER                           JE280000
000010                             1490+JOEWTRID DS    CL8                 SPECIAL SYSOUT WRITER ID             JE282000
000018                             1491+JOEACTPR DS    X                   # OF ACTIVE PRINTERS                 JE284000
000019                             1492+JOEACTPU DS    X                   # OF ACTIVE PUNCHES                  JE286000
00001A                             1493+JOEUNUSD DS    H                   UNUSED, PROVIDES 360 WD BNDRY   RFIT JE286005
                                   1494+*                                                                       JE288000

                                   1495+*        JOE FIELDS - USED AS A CHECKPOINT ELEMENT                      JE290000
                                   1496+*                                                                       JE292000
00001C                      00000  1497+         ORG   JOEDSECT            RESET LOCATION TO START OF JOE       JE294000
000000                             1498+JOECKFLG DS    X                   CHECKPOINT FLAGS                     JE296000

000001                             1499+JOECOPY  DS    X                   COPY NUMBER IN PROGRESS              JE298000
000002                             1500+JOEJRCB  DS    H                   DISPL INTO EJECT BUFFER              JE300000
000004                             1501+JOEPDDB  DS    H                   DISPL IN JCT OF PDDB                 JE302000
000006                             1502+JOEPPCT  DS    H                   PDDB PAGE COUNT                      JE304000
000008                             1503+JOETLNC  DS    F                   TOTAL JOE LINE COUNT                 JE306000
00000C                             1504+JOETPCT  DS    F                   TOTAL JOE PAGE COUNT                 JE308000
000010                             1505+JOEMTTR  DS    F                   LAST EJECT BUFFER TRACK ADDRESS      JE310000
000014                             1506+JOEIOTTR DS    F                   CURRENT IOT TRACK ADDRESS            JE312000
000018                      0001C  1507+JOEEND   ORG   ,                                                        JE314000
                            0001C  1508+JOESIZE  EQU   *-JOEDSECT          LENGTH OF MAX JOE                    JE316000
000000                             1509+HASPBLKS CSECT                     END OF JOE DSECT                     JE318000
INIT     HASP JOB OUTPUT TABLE DSECT                                                                           PAGE   50



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1511+         EXTRN $JOT                HASP JOB OUTPUT TABLE                JT076000
000000                             1512+JOTDSECT DSECT                     JOB OUTPUT TABLE DSECT               JT078000

000000                             1513+JOTJOBNO DS    H                   JOB NUMBER ACTIVE IN $OUTPUT         JT080000
000002                             1514+JOTCKPT  DS    H                   INDEX OF LAST JOE ADDED FOR JOB      JT082000
000004                             1515+JOTFREC  DS    H                   COUNT OF FREE JOES                   JT084000
000006                             1516+JOTFREL  DS    H                   MINIMUM FREE COUNT ALLOWED           JT086000
000008                             1517+JOTFREQ  DS    H                   QUEUE OF FREE JOES                   JT088000
00000A                             1518+JOTCHRQ  DS    H                   QUEUE OF CHAR-JOES                   JT090000
00000C                             1519+JOTCLSQ  DS    36H                 QUEUES OF WORK-JOES BY CLASS         JT092000
000054                             1520+JOTJOES  DS    0F                  START OF JOES                        JT094000
000054 0000000000000000            1521+         DC    (64*JOESIZE)X'00'       SPACE TAKEN BY JOES              JT096000
000758                             1522+         DS    0D                                                       JT098000
                            00758  1523+JOTSIZE  EQU   *-JOTDSECT          SIZE OF JOB OUTPUT TABLE             JT100000
000000                             1524+HASPBLKS CSECT                     END OF JOB OUTPUT TABLE DSECT        JT102000

INIT     HASP PRINT CHECKPOINT ELEMENT FIELD DEFINITIONS                                                       PAGE   51



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   1527+*                        PRINT CHECKPOINT ELEMENT ENTRY DISPLACEMENTS   PR088000



                            00000  1529+PRCJOBNO EQU   0                   CKPT - H - JOB NUMBER                PR092000
                            00002  1530+PRCKJOE  EQU   2                   CKPT - H - CKPT JOE DISPL            PR094000
                            00004  1531+PRCFLAGS EQU   4                   CKPT - C - FLAGS                     PR096000
                            00005  1532+PRCCPYCT EQU   5                   CKPT - C - CURRENT COPY COUNT        PR098000
                            00006  1533+PRCEJRCB EQU   6                   CKPT - H - EJECT RCB DISPL           PR100000
                            00008  1534+PRCPDDBD EQU   8                   CKPT - H - PDDB DISPLACEMENT         PR102000
                            0000A  1535+PRCPDDBP EQU   10                  CKPT - H - PDDB PAGE COUNT           PR104000
                            0000C  1536+PRCLINCT EQU   12                  CKPT - F - TOTAL LINT COUNT          PR106000
                            00010  1537+PRCPAGCT EQU   16                  CKPT - F - TOTAL PAGE COUNT          PR108000

                            00014  1538+PRCEMTTR EQU   20                  CKPT - F - MTTR OF LAST EJECT        PR110000
                            00018  1539+PRCIOTTR EQU   24                  CKPT - F - MTTR OF CURRENT IOT       PR112000

                            0001C  1540+PRCSIZE  EQU   28,28               LENGTH OF A PRC ELEMENT              PR114000






                                   1542+*                   PRINT CHECKPOINT ELEMENT FLAG DEFINITIONS           PR118000



                            00080  1544+PRCHKUSE EQU   X'80'               CHECKPOINT ENTRY IS IN USE           PR122000
                            00040  1545+PRCHKJOB EQU   X'40'               JOB ACTIVE INDICATOR                 PR124000
INIT     HASP SMF BUFFER DSECT                                                                                 PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             1548+SMFDSECT DSECT                     HASP SMF BUFFER DSECT                SM561000
000000                             1549+SMFCHAIN DS    F                   SMF BUFFER CHAIN TO NEXT BUFFER      SM562000

000004                             1550+SMFTYPE  DS    C                   TYPE OF BUFFER  X'FF' = JMR BUFFER   SM563000
000005                             1551+SMFPARM  DS    3C                  RESERVED                             SM564000
000008                             1552+JMRCHAIN DS    0CL4                POINTER TO PURGE RECORD BUFFER       SM565000

000008                             1553+SMFRDW   DS    CL4                 SMF RECORD DESCRIPTOR WORD           SM566000


                                   1555+*  BEGINNING OF JMR OR HASP SMF RECORD                                  SM568000
00000C                             1556+SMFJMR   DS    0CL56               JMR DATA AREA                        SM569000

00000C 00                          1558+SMFHDFLG DC    BL1'0'              HEADER FLAG BYTE                     SM571000
00000D 00                          1559+SMFHDRTY DC    BL1'0'              RECORD TYPE                          SM572000
00000E 00000000                    1560+SMFHDTME DC    BL4'0'              TOD, USING FORMAT FROM TIME MACRO    SM573000
000012 0000000C                    1561+SMFHDDTE DC    PL4'0000'           DATE IN PACKD DECIMAL FORM  00YYDDDF SM574000
000016 4040                        1562+SMFHDSID DC    CL2'  '             SYSTEM IDENTIFICATION                SM575000
000018 4040                        1563+SMFHDMOD DC    CL2'  '             SYSTEM MODEL IDENTIFIER              SM576000



00001A                             1565+SMFRSTRT DS    0C                  DEFINE START OF RECORD AFTER HEADER  SM578000

                                   1567+* BEGINNING OF HASP TYPE 6 OUTPUT PROCESSOR RECORD AFTER STD. HEADER    SM580000


00001A 4040404040404040            1569+SMF6JBN  DC    CL8' '              JOB NAME FROM JMR                    SM582000
000022 00000000                    1570+SMF6RST  DC    BL4'0'              READER START TIME                    SM583000
000026 0000000C                    1571+SMF6RSD  DC    PL4'0000'           READER START DATE                    SM584000
00002A F040404040404040            1572+SMF6UIF  DC    CL8'0'              USER IDENTIFICATION FIELD            SM585000
000032 40                          1573+SMF6OWC  DC    CL1' '              OUTPUT WRITER CLASS                  SM586000
000033 00000000                    1574+SMF6WST  DC    BL4'0'              WRITER START TIME                    SM587000

000037 0000000C                    1575+SMF6WSD  DC    PL4'0000'           WRITER START DATE                    SM588000
00003B 00000000                    1576+SMF6NLR  DC    BL4'0'              # OF LOGICAL RECORDS FOR WRITER      SM589000
00003F 00                          1577+SMF6IOE  DC    BL1'0'              I/O ERROR INDICATOR                  SM590000
000040 00                          1578+SMF6NDS  DC    BL1'0'              # OF DATA SETS PROCESSED BY WTR      SM591000
000041 40404040                    1579+SMF6FMN  DC    CL4' '              FORM NUMBER                          SM592000
000045 00000000000000              1580+SMF6RV1  DC    BL7'0'              RESERVED                             SM593000
00004C 40404040                    1581+SMF6JNM  DC    CL4' '              HASP ASSIGNED JOB NUMBER             SM594000
000050 4040404040404040            1582+SMF6OUT  DC    CL8' '              HASP LOGICAL OUTPUT DEVICE NAME      SM595000

000058 40404040                    1583+SMF6FCB  DC    CL4' '              FCB ID                               SM596000
00005C 40404040                    1584+SMF6UCS  DC    CL4' '              UCS ID                               SM597000

000060 00000000                    1585+SMF6PGE  DC    BL4'0'              PAGE COUNT                           SM598000
000064 0000                        1586+SMF6RTE  DC    BL2'0'              OUTPUT ROUTE CODE                    SM599000
000066                             1587+SMF6END  DS    0C                  END OF TYPE 6 RECORD                 SM600000
INIT     HASP SMF BUFFER DSECT                                                                                 PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1589+* BEGINNING OF HASP TYPE 26 PURGE RECORD AFTER STANDARD HEADER          SM602000

000066                      0001A  1591+         ORG   SMFRSTRT                                                 SM604000

00001A 4040404040404040            1592+SMF26JBN DC    CL8' '              JOB NAME FROM JMR                    SM605000
000022 00000000                    1593+SMF26RST DC    BL4'0'              READER START TIME                    SM606000
000026 0000000C                    1594+SMF26RSD DC    PL4'0000'           READER START DATE                    SM607000
00002A F040404040404040            1595+SMF26UIF DC    CL8'0'              USER IDENTIFICATION FIELD            SM608000
000032 00000000                    1596+SMF26RSV DC    BL4'0'              RESERVED                             SM609000

000036 0000                        1597+SMF26SBS DC    BL2'0'              SUBSYSTEM ID - HASP =X'0002'         SM610000
000038 0000                        1598+SMF26IND DC    BL2'0'              SECTION INDICATOR =X'E000'           SM611000
00003A 0000                        1599+SMF26LN1 DC    BL2'0'              DESCRIPTOR SECTION LENGTH            SM612000

00003C 000000                      1600+SMF26RV1 DC    BL3'0'              RESERVED                             SM613000
00003F 00                          1601+SMF26INF DC    BL1'0'              JOB INFORMATION                      SM614000
000040 40404040                    1602+SMF26JNM DC    CL4' '              HASP ASSIGNED JOB NUMBER             SM615000
000044 4040404040404040            1603+SMF26RV0 DC    CL8' '              JOB NAME FROM JOB CARD               SM616000
00004C 4040404040404040            1604+SMF26NAM DC    CL20' '             PROGRAMMER'S NAME FROM JOB CARD      SM617000
000060 40                          1605+SMF26MSG DC    CL1' '              MSGCLASS FROM JOB CARD               SM618000
000061 40                          1606+SMF26CLS DC    CL1' '              JOB CLASS FROM JOB CARD              SM619000

000062 0000                        1607+SMF26XPR DC    H'0'                HASP EXECUTION SELECTION PRIORITY    SM620000
000064 0000                        1608+SMF26OPR DC    H'0'                HASP OUTPUT SELECTION PRIORITY       SM621000
000066 0000                        1609+SMF26LOC DC    H'0'                INPUT ROUTE CODE                     SM622000
000068 4040404040404040            1610+SMF26DEV DC    CL8' '              HASP LOGICAL INPUT DEVICE NAME       SM623000
000070 40404040                    1611+SMF26ACT DC    CL4' '              PROGRAMMER'S ACCOUNTING NUMBER       SM624000

000074 40404040                    1612+SMF26ROM DC    CL4' '              PROGRAMMER'S ROOM NUMBER             SM625000
000078 00000000                    1613+SMF26XTM DC    BL4'0'              ESTIMATED EXECUTION TIME             SM626000
00007C 00000000                    1614+SMF26ELN DC    BL4'0'              ESTIMATED OUTPUT LINES               SM627000
000080 00000000                    1615+SMF26EPU DC    BL4'0'              ESTIMATED PUNCHED OUTPUT             SM628000

000084 40404040                    1616+SMF26FRM DC    CL4' '              DEFAULT OUTPUT FORM NUMBER           SM629000
000088 0000                        1617+SMF26CYP DC    BL2'0'              PRINT COPY COUNT                     SM630000
00008A 0000                        1618+SMF26LIN DC    BL2'0'              LINES PER PAGE                       SM631000
00008C 0000                        1619+SMF26PRR DC    BL2'0'              PRINT ROUTE CODE                     SM632000
00008E 0000                        1620+SMF26PUR DC    BL2'0'              PUNCH ROUTE CODE                     SM633000
000090 0000                        1621+SMF26LN2 DC    BL2'0'              EVENTS SECTION LENGTH                SM634000

000092 0000                        1622+SMF26RV2 DC    BL2'0'              RESERVED                             SM635000
000094 00000000                    1623+SMF26RPT DC    BL4'0'              READER STOP TIME                     SM636000
000098 0000000C                    1624+SMF26RPD DC    PL4'0000'           READER STOP DATE                     SM637000
00009C 0000000000000000            1625+SMF26RV3 DC    BL16'0'             RESERVED                             SM638000
0000AC 00000000                    1626+SMF26XST DC    BL4'0'              EXECUTION START TIME                 SM639000

0000B0 0000000C                    1627+SMF26XSD DC    PL4'0000'           EXECUTION START DATE                 SM640000
0000B4 00000000                    1628+SMF26XPT DC    BL4'0'              EXECUTION STOP TIME                  SM641000
0000B8 0000000C                    1629+SMF26XPD DC    PL4'0000'           EXECUTION STOP DATE                  SM642000
0000BC 00000000                    1630+SMF26OST DC    BL4'0'              OUTPUT PROCESSOR START TIME          SM643000
0000C0 0000000C                    1631+SMF26OSD DC    PL4'0000'           OUTPUT PROCESSOR START DATE          SM644000

0000C4 00000000                    1632+SMF26OPT DC    BL4'0'              OUTPUT PROCESSOR STOP TIME           SM645000
0000C8 0000000C                    1633+SMF26OPD DC    PL4'0000'           OUTPUT PROCESSOR STOP DATE           SM646000
0000CC 0000                        1634+SMF26LN3 DC    BL2'0'              ACTUALS SECTION LENGTH               SM647000
0000CE 0000                        1635+SMF26RV4 DC    BL2'0'              RESERVED                             SM648000
0000D0 00000000                    1636+SMF26ICD DC    BL4'0'              NUMBER OF INPUT CARDS (JCL AND DATA) SM649000

0000D4 00000000                    1637+SMF26XLN DC    BL4'0'              GENERATED OUTPUT LINES               SM650000
0000D8 00000000                    1638+SMF26XPU DC    BL4'0'              GENERATED PUNCHED OUTPUT             SM651000
0000DC 00000000                    1639+SMF26RV5 DC    BL4'0'              RESERVED                             SM652000
0000E0 00000000                    1640+SMF26PLN DC    BL4'0'              PRINTED LINES                        SM653000
0000E4 00000000                    1641+SMF26PPG DC    BL4'0'              PRINTED PAGES                        SM654000

0000E8 00000000                    1642+SMF26PUC DC    BL4'0'              PUNCHED CARDS                        SM655000
0000EC                             1643+SMF26END DS    0C                  END OF TYPE 26 RECORD                SM656000
INIT     HASP SMF BUFFER DSECT                                                                                 PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1645+* SUBSYSTEM HEADER FOR HASP SUBSYSTEM RECORD TYPES 43, 45, 47, & 48     SM658000


0000EC                      0001A  1647+         ORG   SMFRSTRT                                                 SM660000
00001A 0002                        1648+SMFSSID  DC    XL2'0002'           HASP SUBSYSTEM ID                    SM661000
00001C 0000                        1649+SMFSSRSV DC    BL2'0'              RESERVED                             SM662000
00001E 0000                        1650+SMFSSLEN DC    BL2'0'              LENGTH OF REST OF RECORD             SM663000



000020                             1652+SMFSSTRT DS    0C                  DEFINE START OF SUBSYSTEM PORTION    SM665000

                                   1654+* BEGINNING OF HASP TYPE 43 START HASP RECORD AFTER HDR & SUBSYSTEM HDR SM667000


000020 000000                      1656+SMF43RV1 DC    BL3'0'              RESERVED                             SM669000
000023 00                          1657+SMF43OPT DC    BL1'0'              START HASP OPTIONS                   SM670000
000024                             1658+SMF43END DS    0C                  END OF TYPE 43 SMF RECORD            SM671000


                                   1660+* BEGINNING OF HASP TYPE 45 STOP  HASP RECORD AFTER HDR & SUBSYSTEM HDR SM673000
000024                      00020  1661+         ORG   SMFSSTRT                                                 SM674000
000020                             1662+SMF45END DS    0C                  END OF TYPE 45 RECORD                SM675000



                                   1664+* BEGINNING OF HASP TYPE 47 START SUBSYSTEM EVENT AFTER TWO HEADERS     SM677000


000020                      00020  1666+         ORG   SMFSSTRT                                                 SM679000
000020 0000                        1667+SMF47EVT DC    BL2'0'              EVENT STARTING                       SM680000
000022 0000                        1668+SMF47LN1 DC    BL2'0'              ID SEC LGTH (INCL SMF47LN1)          SM681000
000024 4040404040404040            1669+SMF47RMT DC    CL8' '              REMOTE NAME                          SM682000
00002C 4040404040404040            1670+SMF47LIN DC    CL8' '              LINE NAME                            SM683000

000034 4040404040404040            1671+SMF47PSW DC    CL8' '              PASSWORD                             SM684000
00003C 0000                        1672+SMF47LN2 DC    BL2'0'              MSG SEC LGTH (INCL SMF47LN2)         SM685000
00003E F040404040404040            1673+SMF47MSG DC    CL36'0'             MESSAGE                              SM686000
000062                             1674+SMF47END DS    0C                  END OF TYPE 47 RECORD                SM687000


                                   1676+* BEGINNING OF HASP TYPE 48 STOP  SUBSYSTEM EVENT AFTER TWO HEADERS     SM689000

000062                      00020  1678+         ORG   SMFSSTRT                                                 SM691000

000020 0000                        1679+SMF48EVT DC    BL2'0'              EVENT STOPPING                       SM692000
000022 0000                        1680+SMF48RV1 DC    BL2'0'              RESERVED                             SM693000

000024 4040404040404040            1681+SMF48RMT DC    CL8' '              REMOTE NAME                          SM694000
00002C 4040404040404040            1682+SMF48LIN DC    CL8' '              LINE NAME                            SM695000
000034 4040404040404040            1683+SMF48PSW DC    CL8' '              PASSWORD                             SM696000
00003C                             1684+SMF48END DS    0C                  END OF TYPE 48 RECORD                SM697000






                                   1686+*                             SMFSSID                                   SM699000



                            00002  1688+SMFHSPID EQU   X'0002'             HASP SUBSYSTEM IDENTIFICATION        SM701000
INIT     HASP SMF BUFFER DSECT                                                                                 PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1690+*                             SMFTYPE & SMFHDRTY                        SM703000




                            000FF  1692+SMFJMRTP EQU   X'FF'               JMR BUFFER                           SM705000
                            00000  1693+SMFRECTP EQU   X'00'               SMF RECORD BUFFER                    SM706000

                            00006  1694+SMFOUTTP EQU   6                   HASP OUTPUT PROCESSOR SMF RECORD TYP SM707000
                            0001A  1695+SMFPRGTP EQU   26                  HASP PURGE RECORD TYPE               SM708000
                            0002B  1696+SMFSSSTP EQU   43                  START SUBSYSTEM RECORD TYPE          SM709000
                            0002D  1697+SMFPSSTP EQU   45                  STOP  SUBSYSTEM RECORD TYPE          SM710000
                            0002F  1698+SMFSSETP EQU   47                  START SUBSYSTEM EVENT ID             SM711000

                            00030  1699+SMFPSETP EQU   48                  STOP  SUBSYSTEM EVENT ID             SM712000





                                   1701+*                             SMF6IOE                                   SM714000



                            00004  1703+SMFDSER  EQU   X'04'               DATA SET ERROR                       SM716000
                            00001  1704+SMFCBER  EQU   X'01'               CONTROL BLOCK READ ERROR             SM717000






                                   1706+*                             SMF26INF                                  SM719000




                            00080  1708+SMFPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              SM721000
                            00040  1709+SMFSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              SM722000
                            00020  1710+SMFTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           SM723000
                            00010  1711+SMFNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    SM724000

                            00008  1712+SMFEXBCH EQU   B'00001000'         EXECUTION BATCHING JOB               SM725000
                            00004  1713+SMFJBOP5 EQU   B'00000100'         RESERVED                             SM726000
                            00002  1714+SMFJBOP6 EQU   B'00000010'         RESERVED                             SM727000
                            00001  1715+SMFOPCAN EQU   B'00000001'         JOB CANCELED BY $C OR $P             SM728000





                                   1717+*                             SMF47EVT & SMF48EVT                       SM730000



                            00001  1719+SMFRMTEV EQU   X'0001'             HASP SIGNON/SIGNOFF SUBSYSTEM EVENT  SM732000
                            00002  1720+SMFLINEV EQU   X'0002'             HASP START/STOP LINE SUBSYSTEM EVENT SM733000

000000                             1721+HASPBLKS CSECT                     END OF HASP SMF BUFFER DSECT         SM734000

INIT     OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00010  1723+$CVTPTR  EQU   16                  ADDRESS OF CVT POINTER               CT008000
000000                             1724+CVTDSECT DSECT                     COMMUNICATION VECTOR TABLE DSECT     CT012000



                                   1726+*                                                                       00510000
                                   1727+*              OS/360                                                   00560000
                                   1728+*        COMMUNICATION VECTOR TABLE                                     00800000
                                   1729+*                                                                       00810000
                                   1730+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5                    01050021
                                   1731+*                                                                       01200000
                            00010  1732+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT         01400000
                                   1733+*                                                                       01600000
                                   1734+*              BEGINNING OF CVT PROPER                                  01601000
                                   1735+*                                                                       01610000

000000                             1736+         DS    0F                                                       01611000
                            00000  1737+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE                 01840000
                                   1738+*                                                                       02000000
000000 00000000                    1739+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST  02200000

000004 00000000                    1740+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE                02610000
                                   1741+*                              ASYNCHRONOUS EXITS                       02620000
000008 00000000                    1742+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB                   02800000
00000C 00000000                    1743+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB                     03000000
000010 00000000                    1744+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT                03200000
                                   1745+*                              CONSOLE INTERRUPTION ROUTINE             03400000
000014 00000000                    1746+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE         03600000
000018 00000000                    1747+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING 03800000
                                   1748+*                              ROUTINE FOR SUPERVISOR                   04000000
00001C 00000000                    1749+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04200000
                                   1750+*                              RELATIVE TRACK ADDR TO ABSOLUTE          04400000
000020 00000000                    1751+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04600000

                                   1752+*                              ABSOLUTE TRACK ADDR TO RELATIVE          04800000
000024 00000000                    1753+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION   05000000
                                   1754+*                              IN UCB LOOKUP TABLE                      05200000

000028 00000000                    1755+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION     05400000
                                   1756+*                              IN UCB LOOKUP TABLE                      05600000
00002C 00000000                    1757+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE           05800000
                                   1758+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES 06000000
000030 00000000                    1759+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY      06200000
                                   1760+*                              IN UCB LOOKUP TABLE                      06400000
000034 00000000                    1761+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE         06600000
000038 00000000                    1762+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL             06800000
00003C 00000000                    1763+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)       07210000
                                   1764+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS    07220000
                                   1765+*                              MASTER SCHEDULER RESIDENT DATA AREA      07221000
000040 00000000                    1766+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE    07400000

000044 00000000                    1767+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE          07600000

000048 00000000                    1768+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS       08000000
                                   1769+*                              FOR DAMAGE ASSESSMENT ROUTINES           08200000

00004C 00000000                    1770+CVT0FN00 DC    A(0) -        RESERVED (MVT)                             08610000
000050 0A03                        1771+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER                         08800000
000052 07FE                        1772+CVTBRET  BR    14 -          RETURN TO CALLER                           09000000
000054 00000000                    1773+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB                    09200000
000058 00000000                    1774+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER     09411000
                                   1775+*                              ROUTINE (SHPC FIRST)                     09412000
00005C 00000000                    1776+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL              09430000
INIT     OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000060 00000000                    1777+CVTSJQ   DC    A(0) -        RESERVED (MVT)                             09810000
000064 00000000                    1778+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR  10000000
000068 00000000                    1779+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE              10410000

                                   1780+*                              FOR INTERVAL TIMER                       10411000
00006C 00000000                    1781+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE              10420000

                                   1782+*                              FOR INTERVAL TIMER                       10421000

000070 00000000                    1783+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE         10600000
000074 10                          1784+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM                           11600000
                            00040  1785+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11600100
                            00020  1786+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11600200
                            00010  1787+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11600300
                            00004  1788+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11600400
000075 000000                      1789+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11601000
000078 00000000                    1790+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE            11820000
00007C 00000000                    1791+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER    12400000
000080 00000000                    1792+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS               12600000
000084 00000000                    1793+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE              12800000
000088 00000000                    1794+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER             13000000

00008C 00000000                    1795+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE         13200000
000090 00000000                    1796+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE            13400000
000094 00000000                    1797+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT          13810000

                                   1798+*                              DATA AREA (MVT/MFT)                      13820000
000098 00000000                    1799+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE    14000000
00009C 00000000                    1800+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE                14200000
0000A0 00000000                    1801+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE           14400000
0000A4 00000000                    1802+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS                    14600000
0000A8 00000000                    1803+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)      14601000
0000AC 00000000                    1804+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD         16638521
                                   1805+*                              (0 IF GFX INACTIVE) MVT                  16640821
0000B0 00000000                    1806+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA       16647721
                                   1807+*                              (MVT/MFT)                                16650000
0000B4 0000                        1808+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    16660000
0000B6 00                          1809+CVTOPTA  DC    AL1(00)    -     MISCELLANEOUS FLAGS                     16670021

                            00080  1810+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)               16680000
                            00040  1811+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --                    16681000
                                   1812+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16681100
                            00020  1813+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --          16683000

                                   1814+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16683200
                            00010  1815+CVTNIP   EQU   X'10' -       NIP RUNNING                                16690000
                            00008  1816+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)                     16691000
                            00004  1817+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16692000
                            00002  1818+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16693000
                            00001  1819+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16695000

0000B7 00                          1820+CVTOPTB  DC    AL1(00)     - MISCELLANEOUS FLAGS                        16700021
                            00080  1821+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)            16702000
                            00020  1822+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)        16704000
                                   1823+*                                                                       16800000
                                   1824+*              PCP OVERLAY                                              17000000
                                   1825+*                                                                       17200000
0000B8                             1826+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART            17400000
0000BB                             1827+CVTSTUSA DS    B -           STATUS BYTE A                              17600000

                            00008  1828+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART     17800000
                                   1829+*                              WAS INITIATED INTRASTEP                  18000000

                            00004  1830+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART           18200000
                                   1831+*                              WAS INITIATED INTERSTEP                  18400000
INIT     OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00002  1832+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM          18600000
                                   1833+*                              AND DATA HAS NOT BEEN READ               18800000
0000BC                             1834+         DS    CL2 -         RESERVED                                   19000000
0000BE                             1835+         DS    CL2 -         RESERVED                                   19200000

                                   1836+*                                                                       19400000
                                   1837+*              MVT/MFT OVERLAY                                          19600000
                                   1838+*                                                                       19800000
0000C0                      000B8  1839+         ORG   CVTCRTTR                                                 20000000
                                   1840+*                                                                       20200000

0000B8 00000000                    1841+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR           20400000
0000BC 00000000                    1842+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21000000
                                   1843+*                                                                       21670000

                                   1844+*              END OF OVERLAYS                                          21800000
                                   1845+*                                                                       22000000
0000C0 00000000                    1846+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)                       22421000
0000C4 00000000                    1847+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA            22600000
0000C8 00000000                    1848+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT     22610000
                                   1849+*                              (MVT/MPS)                                22610100
0000CC 00000000                    1850+CVTUSER  DC    A(0) -        A WORD TO THE USER                         22620000

0000D0                      000CC  1851+         ORG   CVTUSER -     REMAP CVTUSER AS CVTHJES              RFIT 22620100
0000CC                             1852+CVTHJES  DS    0A -          SAME AS CVTHJESA BELOW                RFIT 22620300
0000CC 00                          1853+         DC    XL1'00' -     RESERVED - FIRST BYTE OF CVTHJES      RFIT 22620500
0000CD 000000                      1854+CVTHJESA DC    AL3(0) -      ADDRESS OF HASP COMMUNICATION TABLE   RFIT 22620700
0000D0                      000D0  1855+         ORG   , -           RESTORE LOCATION COUNTER              RFIT 22620900

                                   1856+*                                                                       23000000
                                   1857+*              MFT/MVT CVT EXTENSION                                    24000000
                                   1858+*                                                                       24200000
0000D0 00000000                    1859+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT       24400021

0000D4 0A0D                        1860+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)                 24600000
0000D6 0A06                        1861+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)   25000000
0000D8 00000000                    1862+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25421000
0000DC 00000000                    1863+CVTPATCH DC    V(IEAPATCH) - ADDR OF FE PATCH AREA                      25540000
0000E0 00000000                    1864+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA  25800000
                                   1865+*                              (MVT/MFT)                                25810000

0000E4                             1866+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)             26000000
0000E4 00                          1867+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)                   26050000
                            00080  1868+CVTTSRDY EQU   X'80' -       TIME SHARING READY                         26100000
0000E5 000000                      1869+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)             26150000
0000E8 00000000                    1870+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     27393221

0000EC                             1871+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)   27394021
0000EC 00                          1872+CVTGTFST DC    B'0' -        STATUS FLAGS                               27396021
                            000C0  1873+CVTGTFS  EQU   X'C0' -       STATE                                      27398021
                                   1874+*/       00    CVTGTFIN      INACTIVE                                   27398421
                                   1875+*/       01    CVTGTFSR      STARTING                                   27398821

                                   1876+*/       10    CVTGTFSP      STOPPING                                   27399221
                                   1877+*/       11    CVTGTFAC      ACTIVE                                     27399621
                            00020  1878+CVTSTATE EQU   X'20' -       IN CONTROL                                 27399721
                            00010  1879+CVTMODE  EQU   X'10' -       EXT MODE                                   27399821
                            00008  1880+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA                27399921

                            00004  1881+CVTUSR   EQU   X'04' -       USR TRACE                                  27449921
                            00002  1882+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID                       27459921
0000ED 000000                      1883+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE                27469921
0000F0                             1884+CVTTCMFG DS    0B -          TCAM FLAGS                                 27499921
                            00080  1885+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)                         27600000

0000F0 00000000                    1886+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF             27610000
INIT     OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1887+*                            TCAM ADDRESS VECTOR TABLE                  27620021
                                   1888+*                                                                       29401221
                                   1889+*              MVT CVT EXTENSION                                        29401321

                                   1890+*                                                                       29401421
0000F4                             1891+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE 29401521
                                   1892+*                            (PWF)                               S21167 29401621
0000F4 80                          1893+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY   29404021

                                   1894+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167 29404221
                            00080  1895+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167 29404421
0000F5 000000                      1896+CVTVOLT2 DC    AL3(0)     -  PWF RECHECK TIME DELAY.  THIS VALUE IS     29404621
                                   1897+*                            OVERLAID BY CVTVOLM2 AFTER PWF             29404821
                                   1898+*                            INITIALIZATION                      S21167 29405021

0000F8 00000000                    1899+         DC    A(0) -        RESERVED                                   29405221
                                   1900+*                                                                       29407021
                                   1901+*              MVT/MFT CVT EXTENSION                                    29408021
                                   1902+*                                                                       29408821
0000FC 00000114                    1903+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1              29410821
                                   1904+*                            (ICB421)                APAR'S 47331,47332 29413221
000100                             1905+         DS    F -           RESERVED                                   29414221

000104                             1906+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE         29415221
000104                             1907+         DS    X -           RESERVED                                   29416421
000105 000000                      1908+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE         29417421

000108                             1909+         DS    F -           RESERVED                                   29418421
00010C                             1910+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307 29419421
00010C                             1911+         DS    X -           RESERVED                            ICB307 29420421
00010D 000000                      1912+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND              29421421
                                   1913+*                            COMMUNICATION AREA                  ICB307 29422421

000110                             1914+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308 29423421
000110                             1915+         DS    X -           RESERVED                            ICB308 29424421
000111 000000                      1916+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY      29425421
                                   1917+*                            ROUTINE                             ICB308 29426421
                                   1918+*                                                                       29427421
                                   1919+*              COMMON EXTENSION 1                                       29435721
                                   1920+*              ADDRESS OF EXTENSION IS IN CVTEXT1                       29445721

                                   1921+*                                                                       29455721
                                   1922+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,               29456121
                                   1923+*              YOU SHOULD CODE -                                        29462521

                                   1924+*                                                                       29464521
                                   1925+*              L     REG,CVTEXT1                                        29466521
                                   1926+*              USING CVTXTNT1,REG                                       29468521
                                   1927+*                                                                       29468621
                                   1928+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.               29468721

                                   1929+*                                                                       29468821
                            00114  1930+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1                29475221
                                   1931+*                            (ICB421)                APAR'S 47331,47332 29475721
000114 00000000                    1932+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS        29477221
                                   1933+*                            (ISAM) (ICB421)         APAR'S 47331,47332 29479221
                                   1934+*                                                                       29494421
                                   1935+*              END OF CVT PROPER                                        29513521
                                   1936+*                                                                       29532621

                                   1937+*                                                                       29870000
                                   1938+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT           29880000

                                   1939+*                                                                       29890000
000000                             1940+HASPBLKS CSECT                     END OF CVT DSECT                     CT020000
INIT     OS TASK CONTROL BLOCK DSECT                                                                           PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000000                             1943+TCBDSECT DSECT                     TASK CONTROL BLOCK DSECT             TC010000
000000                             1944+TCBRBP   DS    F                   ADDRESS OF TOP RB                    TC012000
000004                             1945+TCBPIE   DS    F                   ADDRESS OF PROGRAM INTERRUPT ELEMENT TC014000
000008                             1946+TCBDEB   DS    F                   ADDRESS OF DEB QUEUE                 TC016000
00000C                             1947+TCBTIO   DS    F                   ADDRESS OF TASK I/O TABLE            TC018000
000010                             1948+TCBCMP   DS    F                   TASK COMPLETION CODE                 TC020000
000014                             1949+TCBTRN   DS    F                   ADDRESS OF TESTRAN CONTROL TABLE     TC022000
000018                             1950+TCBMSS   DS    F                   MAIN STORAGE SUPERVISOR POINTER      TC026000

00001C                             1951+TCBPKF   DS    C                   PROTECTION KEY                       TC028000

00001D                             1952+TCBFLGS  DS    3C                  MISCELLANEOUS FLAGS                  TC028800
000020                             1953+TCBFLGS4 DS    C                   NONDISPATCHABILITY FLAGS             TC029600
                            00010  1954+TCBHNDSP EQU   X'10'               HASP FREEZE BIT                      TC030400
000021                             1955+TCBFLGS5 DS    C                   NONDISPATCHABILITY FLAGS             TC031200
000022                             1956+TCBLMP   DS    C                   ENQUEUE COUNT / LIMIT PRIORITY       TC032000

000023                             1957+TCBDSP   DS    C                   DISPATCHING PRIORITY                 TC034000
000024                             1958+TCBLLS   DS    F                   LOAD LIST                            TC036000
000028                             1959+TCBJLB   DS    F                   ADDRESS OF JOBLIB DCB                TC038000
00002C                             1960+TCBJPQ   DS    F                   ADDRESS OF CDE FOR JPA               TC040000
000030                             1961+TCBGRS   DS    16F                 GENERAL REGISTER SAVE AREA           TC042000
000070                             1962+TCBQEL   DS    0C                  ENQUEUE COUNT (MVT)                  TC046000
000070                             1963+TCBFSA   DS    F                   ADDRESS OF FIRST PROGRAM SAVE AREA   TC048000
000074                             1964+TCBTCB   DS    F                   ADDRESS OF NEXT LOWER PRIORITY TCB   TC050000
000078                             1965+TCBTME   DS    F                   ADDRESS OF TIMER ELEMENT             TC052000
00007C                             1966+TCBJSTCB DS    F                   ADDRESS OF FIRST TCB FOR JOB STEP    TC056000

000080                             1967+TCBNTC   DS    F                   ADDRESS OF PREVIOUS TCB              TC058000

000084                             1968+TCBOTC   DS    F                   ADDRESS OF ORIGINATING TCB           TC060000
000088                             1969+TCBLTC   DS    F                   ADDRESS OF LAST TCB ON SUBTASK QUEUE TC062000
00008C                             1970+TCBIQE   DS    F                   ADDRESS OF IQE FOR ETXR ROUTINE      TC064000
000090                             1971+TCBECB   DS    F                   ADDRESS OF ECB POSTED ON COMPLETION  TC066000

000094                             1972+TCBTSFLG DS    C                   TIME SHARING FLAGS                   TC066800
000095                             1973+TCBSTPCT DS    C                   STATUS STOP COUNT                    TC067600
000096                             1974+TCBTSLP  DS    C                   TS TASK LIMIT PRIORITY               TC068400
000097                             1975+TCBTSDP  DS    C                   TS TASK DISPATCHING PRIORITY         TC069200
000098                             1976+TCBPQE   DS    F                   ADDRESS OF REGION DUMMY PQE - 8      TC070000
00009C                             1977+TCBAQE   DS    F                   ADDRESS OF ALLOCATED QUEUE ELEMENT   TC072000
0000A0                             1978+TCBNSTAE DS    F                   ADDR OF CURRENT STAE CONTROL BLOCK   TC074000
0000A4                             1979+TCBTCT   DS    F                   ADDRESS OF THE TCT                   TC076000
0000A8                             1980+TCBUSER  DS    F                   USER FIELD                           TC078000
0000AC                             1981+TCBNDSP  DS    F                   SECONDARY NONDISPATCHABILITY         TC080000
0000B0                             1982+TCBPCE   DS    0F .                ADDRESS OF HASP PCE         FJP/RFIT TC081700

                            00001  1983+TCBPCEND EQU   X'01' .             HASP NON-DISPATCH. FLAG     FJP/RFIT TC081800
0000B0                             1984+         DS    F                   RESERVED                             TC082000
0000B4                             1985+TCBJSCB  DS    F                   ADDRESS OF JSCB                      TC083000
000000                             1986+HASPBLKS CSECT                     END OF TASK CONTROL BLOCK DSECT      TC084000

INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   1988+*,***  IHB069  DEVD NOT SPECIFIED-ALL ASSUMED


                                   1990+*                       DCB SYMBOLIC DEFINITION FOR                     07700000
                                   1991+*                       PHYSICAL SEQUENTIAL                             07900000

                                   1993+*********************************************************************** 09960021
                                   1994+*  OS     RELEASE 21.8, 03/22/74                                      * 10000021
                                   1995+*  OS/VS1 RELEASE 03.1, 03/22/74                                      * 10010021
                                   1996+*********************************************************************** 10020021


000000                             1998+IHADCB   DSECT , -            DCBPTR                                    10150000

                            00080  2000+DCBBIT0  EQU   128                                                      10210021

                            00040  2001+DCBBIT1  EQU   64                                                       10220021
                            00020  2002+DCBBIT2  EQU   32                                                       10230021
                            00010  2003+DCBBIT3  EQU   16                                                       10240021
                            00008  2004+DCBBIT4  EQU   8                                                        10242021
                            00004  2005+DCBBIT5  EQU   4                                                        10244021
                            00002  2006+DCBBIT6  EQU   2                                                        10246021
                            00001  2007+DCBBIT7  EQU   1                                                        10248021

                                   2009+*                       DEVICE INTERFACES                               10350000

                                   2011+*                       DIRECT ACCESS DEVICES                           10500000


000000                             2013+DCBRELAD DS    CL4 -          PARTITIONED ORGANIZATION DATA SET -       10600000

                                   2014+*                             ADDRESS (IN THE FORM TTRN) OF MEMBER      10650000
                                   2015+*                             CURRENTLY USED.  ---                      10700000

                                   2016+*                             SYS1.LOGREC DATA SET - IF CCH OPTION HAS  10750000
                                   2017+*                             BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS 10800000
                                   2018+*                             OF A 12-BYTE PARAMETER IN THE EXPANSION   10850000
                                   2019+*                             OF MACRO INSTRUCTION IGFCATAP             10900000
000004                             2020+DCBKEYCN DS    FL1 -          KEYED BLOCK OVERHEAD CONSTANT             10950000
000005                             2021+DCBFDAD  DS    CL8 -          FULL DISK ADDRESS IN THE FORM OF MBBCCHHR 11000000
                                   2022+*                             OF RECORD THAT WAS JUST READ OR WRITTEN   11050000

00000D                      0000C  2024+         ORG   DCBFDAD+7                                                11150000
00000C                             2025+DCBDVTBL DS    0A -           SAME AS DCBDVTBA BELOW                    11200000
00000C                             2026+         DS    X -            LAST BYTE OF DCBFDAD                      11250000
00000D                             2027+DCBDVTBA DS    AL3 -          ADDRESS OF ENTRY IN I/O DEVICE            11300000

                                   2028+*                             CHARACTERISTICS TABLE FOR DEVICE BEING    11350000
                                   2029+*                             USED                                      11400000

000010                             2030+         DS    FL1 -          DCBKEYLE - KEY LENGTH OF DATA SET         11450000

000011                             2031+         DS    C -            DCBDEVT - DEVICE TYPE                     11500000
                                   2032+*   FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION      11550000
                            00021  2033+DCBDV311 EQU   X'21' -        2311 DISK DRIVE                           11600000
                            00022  2034+DCBDV301 EQU   X'22' -        2301 PARALLEL DRUM                        11650000
                            00023  2035+DCBDV303 EQU   X'23' -        2303 SERIAL DRUM                          11700000
                            00024  2036+DCBDV302 EQU   X'24' -        2302 DISK STORAGE                         11750000
                            00025  2037+DCBDV321 EQU   X'25' -        2321 DATA CELL DRIVE                      11800000
                            00028  2038+DCBDV314 EQU   X'28' -        2314 DISK STORAGE FACILITY                11850000
000012                             2039+DCBTRBAL DS    H -            TRACK BALANCE.  NUMBER OF BYTES REMAINING 11900000
                                   2040+*                             ON CURRENT TRACK AFTER A WRITE OPERATION  11950000
                                   2041+*                             (THIS QUANTITY MAY BE NEGATIVE IF THERE   12000000
INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   62



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2042+*                             ARE NO BYTES REMAINING ON TRACK).         12050000


                                   2044+*                       MAGNETIC TAPE                                   12200000

000014                      00000  2046+         ORG   IHADCB                                                   12300000
000000                             2047+         DS    CL12 -         RESERVED FOR I/O SUPERVISOR               12350000
00000C                             2048+DCBBLKCT DS    F -            BLOCK COUNT FOR EACH VOLUME               12400000
000010                             2049+DCBTRTCH DS    C -            TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 12450000
                            00023  2050+DCBMTE   EQU   X'23' -        E  - EVEN PARITY                          12500000
                            0003B  2051+DCBMTT   EQU   X'3B' -        T  - BCD/EBCDIC TRANSLATION               12550000
                            00013  2052+DCBMTC   EQU   X'13' -        C  - DATA CONVERSION                      12600000
                            0002B  2053+DCBMTET  EQU   X'2B' -        ET - EVEN PARITY AND TRANSLATION          12650000
000011                             2054+         DS    C -            DCBDEVT - DEVICE TYPE                     12700000
                            00081  2055+DCBDVMT  EQU   X'81' -        2400 SERIES MAGNETIC TAPE UNIT (7-TRACK   12750000

                                   2056+*                             OR 9-TRACK)                               12800000
                            00083  2057+DCBDVMT3 EQU   X'83' -        3400 SERIES MAGNETIC TAPE UNIT     ICB277 12850000
000012                             2058+DCBDEN   DS    C -            TAPE DENSITY - 2400 SERIES MAGNETIC TAPE  12900000
                                   2059+*                             UNITS                                     12950000

                                   2060+*                             CODE    7-TRACK     9-TRACK               13000000
                            00003  2061+DCBMTDN0 EQU   X'03' -         0       200 BPI       -                  13050000
                            00043  2062+DCBMTDN1 EQU   X'43' -         1       556 BPI       -                  13100000
                            00083  2063+DCBMTDN2 EQU   X'83' -         2       800 BPI     800 BPI              13150000
                            000C3  2064+DCBMTDN3 EQU   X'C3' -         3         -        1600 BPI              13200000
                            000D3  2065+DCBMTDN4 EQU   X'D3' -         4         -        6250 BPI        99223 13210003

000013                             2066+         DS    X -            RESERVED                                  13250000

                                   2068+*                       PAPER TAPE                                      13400000

000014                      00008  2070+         ORG   IHADCB+8                                                 13500000
000008                             2071+DCBLCTBL DS    A -            ADDRESS OF TRANSLATE TABLE                13550000
00000C                             2072+         DS    XL4 -          RESERVED                                  13600000
000010                             2073+DCBCODE  DS    C -            PAPER TAPE CODE BEING USED.  THE          13650000

                                   2074+*                             APPROPRIATE TRANSLATE TABLE IS MADE       13700000
                                   2075+*                             AVAILABLE                                 13750000

                            00080  2076+DCBPTCDN EQU   X'80' -        N - NO CONVERSION                         13800000
                            00040  2077+DCBPTCDI EQU   X'40' -        I - IBM BCD                               13850000
                            00020  2078+DCBPTCDF EQU   X'20' -        F - FRIDEN                                13900000
                            00010  2079+DCBPTCDB EQU   X'10' -        B - BURROUGHS                             13950000
                            00008  2080+DCBPTCDC EQU   X'08' -        C - NATIONAL CASH REGISTER                14000000
                            00004  2081+DCBPTCDA EQU   X'04' -        A - ASCII (8-TRACK)                       14050000
                            00002  2082+DCBPTCDT EQU   X'02' -        T - TELETYPE                              14100000
000011                             2083+         DS    C -            DCBDEVT - DEVICE TYPE                     14150000

                            00050  2084+DCBDVPTP EQU   X'50' -        2671 PAPER TAPE READER                    14200000
000012                             2085+         DS    X -            RESERVED                                  14250000
000013                             2086+DCBPTFLG DS    BL1 -          PAPER TAPE FLAGS                          14300000
                            00010  2087+DCBPTIC  EQU   DCBBIT3 -      INVALID CHARACTER IN LAST RECORD READ     14350003
                            00008  2088+DCBPTECT EQU   DCBBIT4 -      END OF RECORD CHARACTER REACHED IN        14400003

                                   2089+*                             TRANSLATION                               14450000
                            00004  2090+DCBPTECR EQU   DCBBIT5 -      END OF RECORD CHARACTER DETECTED DURING   14500003
                                   2091+*                             READ                                      14550000

                            00002  2092+DCBPTUCT EQU   DCBBIT6 -      IF ONE, UPPER CASE TRANSLATE.             14600003
                                   2093+*                             IF ZERO, LOWER CASE TRANSLATE             14650000
                            00001  2094+DCBPTERR EQU   DCBBIT7 -      ERROR DETECTED ON READ                    14700003

                                   2096+*                       PRINTER                                         14850000
INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000014                      00010  2098+         ORG   IHADCB+16                                                14950000
000010                             2099+DCBPRTSP DS    C -            NUMBER INDICATING NORMAL PRINTER SPACING  15000000
                            00001  2100+DCBPRSP0 EQU   X'01' -        0 - NO SPACING                            15050000
                            00009  2101+DCBPRSP1 EQU   X'09' -        1 - SPACE ONE LINE                        15100000
                            00011  2102+DCBPRSP2 EQU   X'11' -        2 - SPACE TWO LINES                       15150000

                            00019  2103+DCBPRSP3 EQU   X'19' -        3 - SPACE THREE LINES                     15200003
000011                             2104+         DS    C -            DCBDEVT - DEVICE TYPE                     15250000
                            00048  2105+DCBDVPR1 EQU   X'48' -        1403 PRINTER AND 1404 PRINTER (CONTINUOUS 15300000
                                   2106+*                             FORM SUPPORT ONLY)                        15350000

                            0004A  2107+DCBDVPR2 EQU   X'4A' -        1443 PRINTER                              15400000
                            00049  2108+DCBDVPR3 EQU   X'49' -        3211 PRINTER                              15450000
000012                             2109+DCBPRTOV DS    C -            TEST-FOR-PRINTER-OVERFLOW MASK            15500000
                                   2110+*                             (PRTOV MASK)                              15550000
                            00020  2111+DCBPRC9  EQU   X'20' -        9  - TEST FOR CHANNEL 9 OVERFLOW          15600000
                            00010  2112+DCBPRC12 EQU   X'10' -        12 - TEST FOR CHANNEL 12 OVERFLOW         15650000

000013                             2113+         DS    X -            RESERVED                                  15700000

                                   2115+*                       CARD READER, CARD PUNCH                         15850000

000014                      00010  2117+         ORG   IHADCB+16                                                15950000

000010                             2118+DCBMODE  DS    0B -           MODE OF OPERATION FOR 1442 CARD READ      16000000
                                   2119+*                             PUNCH (BITS 0-3)                          16050000
000010                             2120+DCBSTACK DS    B -            STACKER SELECTION (BITS 4-7)              16100000
                            00080  2121+DCBMODEC EQU   DCBBIT0 -      COLUMN BINARY MODE                        16150003
                            00040  2122+DCBMODEE EQU   DCBBIT1 -      EBCDIC MODE                               16200003

                            00020  2123+DCBMODEO EQU   DCBBIT2 -      OPTICAL MARK READ MODE                    16250003
                            00010  2124+DCBMODER EQU   DCBBIT3 -      READ COLUMN ELIMINATE MODE                16300003
                            00002  2125+DCBSTCK2 EQU   DCBBIT6 -      STACKER 2                                 16350003
                            00001  2126+DCBSTCK1 EQU   DCBBIT7 -      STACKER 1                                 16400003
000011                             2127+         DS    C -            DCBDEVT - DEVICE TYPE                     16450000

                            00041  2128+DCBDVCR0 EQU   X'41' -        2540 CARD READER                          16500000
                            00042  2129+DCBDVCP0 EQU   X'42' -        2540 CARD PUNCH                           16550000
                            00043  2130+DCBDVCRP EQU   X'43' -        1442 CARD READ PUNCH                      16600000
                            00044  2131+DCBDVCR1 EQU   X'44' -        2501 CARD READER                          16650000
                            00045  2132+DCBDVCPR EQU   X'45' -        2520 CARD READ PUNCH                      16700000

                            00046  2133+DCBDVCR2 EQU   X'46'          3505 CARD READER                   XM0629 16710002
                            0004C  2134+DCBDVCP1 EQU   X'4C'          3525 CARD PUNCH                    XM0629 16720002
000012                             2135+         DS    X -            RESERVED                                  16750000
000013                             2136+DCBFUNC  DS    B -            FUNCTION INDICATOR FOR THE 3525           16800000
                            00080  2137+DCBFNCBI EQU   DCBBIT0 -      INTERPRET (PUNCH AND PRINT TWO LINES)     16850003

                            00040  2138+DCBFNCBR EQU   DCBBIT1 -      READ                                      16900003
                            00020  2139+DCBFNCBP EQU   DCBBIT2 -      PUNCH                                     16950003
                            00010  2140+DCBFNCBW EQU   DCBBIT3 -      PRINT                                     17000003
                            00008  2141+DCBFNCBD EQU   DCBBIT4 -      DATA PROTECTION                           17050003
                            00004  2142+DCBFNCBX EQU   DCBBIT5 -      THIS DATA SET IS TO BE PRINTED            17100003

                            00002  2143+DCBFNCBT EQU   DCBBIT6 -      TWO-LINE PRINT SUPPORT REQUEST            17150003

                                   2145+*                       OPTICAL READER AND MAGNETIC CHAR READER         18100000

000014                      00000  2147+         ORG   IHADCB                                                   18200000

000000                             2148+DCBWTOID DS    0A -           SAME AS DCBWTOIA BELOW                    18250000
000000                             2149+         DS    X -            RESERVED                                  18300000
000001                             2150+DCBWTOIA DS    AL3 -          A BINARY IDENTIFICATION NUMBER ASSIGNED   18350000
                                   2151+*                             BY COMMUNICATIONS TASK TO MESSAGE ISSUED  18400000
                                   2152+*                             BY WTO MACRO.  THIS NUMBER IS USED BY THE 18450000
INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   64



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2153+*                             DOM MACRO WHEN MESSAGE IS NO LONGER       18500000
                                   2154+*                             REQUIRED (MCS SUPPORT).  ---              18550000
                                   2155+*                             FOR MAGNETIC CHAR READER - AFTER FIRST    18600000

                                   2156+*                             READ HAS BEEN ISSUED, CONTAINS ADDRESS OF 18650000
                                   2157+*                             MAGNETIC INTERRUPT CONTROL BLOCK (MICB)   18700000
                                   2158+*                             BEING USED BY THE APPENDAGES.             18750000

                                   2160+*                       OPTICAL READER DEVICES                          18900000

                                   2161+*                       1285, 1287, 1288, 3886                          18950003

000004                      00004  2163+         ORG   DCBWTOID+4                                               19050000
000004                             2164+DCBERRCN DS    0A -           SAME AS DCBERRCA BELOW                    19100000
000004                             2165+DCBERRCA DS    AL3 -          ADDRESS OF 32 BYTES OF DECLARED STORAGE   19200000
                                   2166+*                             SPECIFIED BY THE USER IN HIS PROGRAM.     19250000
                                   2167+*                             THIS STORAGE WILL BE USED BY THE          19300000

                                   2168+*                             PROGRAMMING SUPPORT AS EIGHT 4-BYTE       19350000
                                   2169+*                             COUNTERS IN WHICH TOTALS OF CERTAIN 1285, 19400000
                                   2170+*                             1287 AND 1288 ERROR CONDITIONS ARE        19450000

                                   2171+*                             ACCUMULATED.                              19500000
000007                      00004  2172+         ORG   DCBWTOID+4                                               19510003
000004                             2173+DCBLNNUM DS    X              3886  DOCUMENT LINE NUMBER                19520003
000005                             2174+DCBLFMAT DS    X              3886  LINE FORMAT NUMBER                  19530003
000006                             2175+DCBORFLG DS    X              3886  FLAGS                               19540003

                            00080  2176+DCBEOPFG EQU   DCBBIT0        END OF PAGE                               19540403
000007                             2177+         DS    X              RESERVED                                  19542003
000008                             2178+DCBDSPLY DS    0A -           SAME AS DCBDSPLA BELOW                    19550000
000008                             2179+DCBFRID  DS    0CL4           3886  FORMAT RECORD ID                    19560003
000008                             2180+         DS    X -            RESERVED                                  19600000
000009                             2181+DCBDSPLA DS    AL3 -          ADDRESS OF DSPLY (BSAM) ROUTINE USED FOR  19650000
                                   2182+*                             KEYBOARD ENTRY OF A COMPLETE FIELD        19700000
00000C                             2183+DCBRESCN DS    0A -           SAME AS DCBRESCA BELOW                    19750000

00000C                             2184+DCBRDLNE DS    0A -           SAME AS DCBRDLNA BELOW                    19800000
00000C                             2185+DCBFRTBA DS    0A             3886  FORMAT RECORD TABLE                 19810003

00000C                             2186+         DS    X -            RESERVED                                  19850000
00000D                             2187+DCBRESCA DS    0AL3 -         ADDRESS OF RESCN (BSAM) ROUTINE USED TO   19900000
                                   2188+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    19950000
                                   2189+*                             CHARACTERS                                20000000
00000D                             2190+DCBRDLNA DS    AL3 -          ADDRESS OF RDLNE (QSAM) ROUTINE USED TO   20050000

                                   2191+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    20100000
                                   2192+*                             CHARACTERS                                20150000
000010                             2193+DCBORBYT DS    BL1 -          OPTICAL READER BYTE USED BY BSAM/QSAM     20200000
                            00080  2194+DCBORSYN EQU   DCBBIT0 -      SYNAD IN CONTROL                          20250003
                            00040  2195+DCBOREOF EQU   DCBBIT1 -      END OF FILE (EOF)                         20300003
                            00020  2196+DCBORBFP EQU   DCBBIT2 -      BUFFERS PRIMED (QSAM)                     20350003
000011                             2197+         DS    C -            DCBDEVT - DEVICE TYPE                     20400000
                            0005A  2198+DCBDVOR5 EQU   X'5A' -        1285 OPTICAL READER                       20450000
                            0005B  2199+DCBDVOR7 EQU   X'5B' -        1287 OPTICAL READER                       20500000

                            0005C  2200+DCBDVOR8 EQU   X'5C' -        1288 OPTICAL READER                       20550000

                            00057  2201+DCBDVOR9 EQU   X'57'          3886 OPTICAL READER                       20560003
000012                             2202+DCBEIB   DS    BL1 -          ERROR INDICATOR BYTE                      20600000
                            00040  2203+DCBORNRM EQU   DCBBIT1 -      THE 1287 OR 1288 SCANNER WAS UNABLE TO    20650003
                                   2204+*                             LOCATE THE REFERENCE MARK                 20700000
                            00020  2205+DCBORREJ EQU   DCBBIT2 -      FOR 1287, A STACKER SELECT COMMAND WAS    20750003

                                   2206+*                             GIVEN AFTER ALLOTTED TIME HAD ELAPSED AND 20800000
                                   2207+*                             THE DOCUMENT HAS BEEN PUT IN REJECT       20850000
INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2208+*                             POCKET.  FOR 1288 UNFORMATTED ONLY,       20900000
                                   2209+*                             END-OF-PAGE HAS OCCURRED.                 20950000
                            00010  2210+DCBORERR EQU   DCBBIT3 -      A NONRECOVERABLE ERROR HAS OCCURRED.      21000003
                            00008  2211+DCBORECK EQU   DCBBIT4 -      AN EQUIPMENT CHECK RESULTED IN AN         21050003
                                   2212+*                             INCOMPLETE READ                           21100000
                            00004  2213+DCBORWLR EQU   DCBBIT5 -      A WRONG-LENGTH RECORD CONDITION HAS       21150003

                                   2214+*                             OCCURRED                                  21200000

                            00002  2215+DCBORHPR EQU   DCBBIT6 -      FOR QSAM - OPERATOR ENTERED ONE OR MORE   21250003
                                   2216+*                             CHARACTERS FROM THE KEYBOARD.             21300000
                                   2217+*                             FOR BSAM - A HOPPER EMPTY CONDITION HAS   21350000
                                   2218+*                             OCCURRED                                  21400000

                            00001  2219+DCBORDCK EQU   DCBBIT7 -      A DATA CHECK HAS OCCURRED                 21450003
000013                             2220+         DS    X -            RESERVED                                  21500000

                                   2222+*                       MAGNETIC CHARACTER READER DEVICES               21650000
                                   2223+*                       1419 MAGNETIC CHARACTER READER                  21700000
                                   2224+*                       1275 OPTICAL READER SORTER                      21750000
                                   2225+*                       3890 MAGNETIC CHARACTER READER                  21760003

000014                      00000  2227+         ORG   IHADCB                                                   21850000
000000                             2228+DCBSSID  DS    CL8 -          BEFORE DCB IS OPENED - NAME OF USER'S     21900000
                                   2229+*                             STACKER SELECT ROUTINE.                   21950000


000008                      00000  2231+         ORG   DCBSSID                                                  22050000
000000                             2232+         DS    A -            AFTER DCB IS OPENED - DCBWTOID            22100000
000004                             2233+DCBSSAD  DS    0A -           ADDRESS OF USER'S STACKER SELECT ROUTINE  22150000

000004                             2234+DCBIMG   DS    0A             3890  ADDR OF USER'S IMAGE PROC RTN       22160003
000004                             2235+         DS    X -            RESERVED                                  22200000
000005                             2236+DCBSSADA DS    AL3 -          ADDRESS OF USER'S STACKER SELECT ROUTINE  22250000
000008                             2237+DCBIMAGE DS    0A -           SAME AS DCBIMAGA BELOW                    22300000
000008                             2238+DCBMRFG  DS    BL1 -          BUFFER INDICATOR                          22350000
                            000C0  2239+DCBMRBCT EQU   DCBBIT0+DCBBIT1 -                                        22400003
                                   2240+*                             TWO-BIT BINARY COUNTER WHICH INDICATES    22410003
                                   2241+*                             INTO WHICH BUFFER STATUS INFORMATION IS   22450000
                                   2242+*                             TO BE POSTED                              22500000
000009                             2243+DCBIMAGA DS    AL3 -          ADDRESS OF PARAMETER LIST USED TO         22550000
                                   2244+*                             COMMUNICATE BETWEEN USER'S PROCESSING     22600000
                                   2245+*                             ROUTINES AND HIS STACKER SELECT ROUTINES  22650000

00000C                             2246+DCBECBLT DS    0A -           SAME AS DCBECBLA BELOW                    22700000
00000C                             2247+DCBHDR   DS    0A             3890  ADDR OF USER'S HEADER DATA AREA     22702003
00000C                             2248+DCBMRIND DS    BL1 -          INDICATOR AND COUNTER BYTE                22750000

                            000E0  2249+DCBMRDCT EQU   DCBBIT0+DCBBIT1+DCBBIT2                                  22800003
                                   2250+*                             THREE-BIT BINARY COUNTER OF NUMBER OF     22810003
                                   2251+*                             DOCUMENTS READ AFTER DISENGAGE            22850000
                            00010  2252+DCBMRSCU EQU   DCBBIT3 -      DCB WAS ALTERED WHEN SYNAD ROUTINE WAS    22900003
                                   2253+*                             ENTERED DUE TO SECONDARY CONTROL UNIT     22950000
                                   2254+*                             (SCU) ERROR                               23000000
                            00008  2255+DCBMRPLO EQU   DCBBIT4 -      POCKET LIGHT HAS BEEN TURNED ON           23050003
                            00004  2256+DCBMRPLS EQU   DCBBIT5 -      POCKET LIGHT 0-6 IS BEING SET ON          23100003
                            00002  2257+DCBMRERP EQU   DCBBIT6 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23150003
                                   2258+*                             PRIMARY CONTROL UNIT (PCU)                23200000
                            00001  2259+DCBMRERS EQU   DCBBIT7 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23250003
                                   2260+*                             SECONDARY CONTROL UNIT (SCU)              23300000

00000D                             2261+DCBECBLA DS    AL3 -          ADDRESS OF ECB LIST PASSED TO WAIT MACRO  23350000

                                   2262+*                             BY CHECK MACRO WHEN NO 1419/1275 IS       23400000
INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   66



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2263+*                             AVAILABLE FOR PROCESSING                  23450000
000010                             2264+DCBMRFLG DS    BL1 -          FLAG BYTE                                 23500000
                            00080  2265+DCBMRSCC EQU   DCBBIT0 -      FIRST OR SECOND SECONDARY CONTROL UNIT    23550003
                                   2266+*                             COMMAND CHAIN IS BEING USED               23600000
                            00040  2267+DCBMRDBG EQU   DCBBIT1 -      DEBUGGING MODE IN USE                     23650003
                            00020  2268+DCBMRDRU EQU   DCBBIT2 -      DISENGAGE REQUESTED BY USER               23700003
                            00010  2269+DCBMRDR  EQU   DCBBIT3 -      DISENGAGE REQUESTED                       23750003
                            0000C  2270+DCBMRPCC EQU   DCBBIT4+DCBBIT5 -                                        23800003
                                   2271+*                             TWO-BIT BINARY COUNTER INDICATING FIRST,  23802003
                                   2272+*                             SECOND OR THIRD PRIMARY CONTROL UNIT      23850000
                                   2273+*                             COMMAND CHAIN IS BEING USED               23900000

                            00002  2274+DCBMRDWT EQU   DCBBIT6 -      WTO MESSAGE MUST BE DELETED               23950003
                            00001  2275+DCBMRUE  EQU   DCBBIT7 -      UNIT EXCEPTION                            24000003

000011                             2276+         DS    C -            DCBDEVT - DEVICE TYPE                     24050000

                            0005D  2277+DCBDVMR  EQU   X'5D' -        1419 MAGNETIC CHARACTER READER            24100000
                            0005F  2278+DCBDVORS EQU   X'5F' -        1275 OPTICAL READER SORTER                24150000
                            00056  2279+DCBDVMRS EQU   X'56'          3890 MAGNETIC CHARACTER READER SORTER     24160003
000012                             2280+DCBAPPIN DS    C -            AN INDICATOR USED BY THE APPENDAGES TO    24200000
                                   2281+*                             PASS INFORMATION ABOUT ONE CHANNEL CHAIN  24250000
                                   2282+*                             TO AN APPENDAGE ASSOCIATED WITH ANOTHER   24300000
                                   2283+*                             CHANNEL CHAIN                             24350000
000013                             2284+         DS    X -            RESERVED                                  24400000

                                   2286+*                       ACCESS METHOD COMMON INTERFACE                  24600000

000014                      00010  2288+         ORG   IHADCB+16                                                24700000

000010                             2289+DCBRELB  DS    0F -           SAME AS DCBREL BELOW                      24750000
000010                             2290+DCBKEYLE DS    FL1 -          KEY LENGTH OF DATA SET                    24800000
000011                             2291+DCBDEVT  DS    0C -           DEVICE TYPE                               24850000

                            0004F  2292+DCBDVTRM EQU   X'4F' -        TERMINAL.  (DD CONTAINS TERM=TS)          24900000
000011                             2293+DCBREL   DS    FL3 -          NUMBER OF RELATIVE TRACKS OR BLOCKS IN    24950000
                                   2294+*                             THIS DATA SET (BDAM)                      25000000
000014                             2295+DCBBUFCB DS    0A -           ADDRESS OF BUFFER POOL CONTROL BLOCK      25050000
000014                             2296+DCBBUFNO DS    FL1 -          NUMBER OF BUFFERS REQUIRED FOR THIS DATA  25100000
                                   2297+*                             SET.  MAY RANGE FROM 0 TO 255.  IF        25150000
                                   2298+*                             UNBLOCKED SPANNED RECORDS ARE USED,       25200000
                                   2299+*                             NUMBER OF SEGMENT WORK AREAS REQUIRED     25250000
                                   2300+*                             FOR THIS DATA SET.                        25300000
000015                             2301+DCBBUFCA DS    AL3 -          ADDRESS OF BUFFER POOL CONTROL BLOCK      25350000
000018                             2302+DCBBUFL  DS    H -            LENGTH OF BUFFER.  MAY RANGE FROM 0 TO    25400000
                                   2303+*                             32,767.                                   25450000

00001A                             2304+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED          25500000
00001A                             2305+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG                    25550000
                            00080  2306+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION      25600003
                            00040  2307+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION     25650003

                            00020  2308+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION                  25700003
                            00010  2309+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP              25750003
                            00008  2310+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE     25800003
                            00004  2311+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE   25850003
                            00002  2312+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION             25900003
                            00001  2313+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS         25950003

                                   2314+*                                  LOCATION DEPENDENT INFORMATION       26000000
00001B                             2315+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG                   26050000
                            00080  2316+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION                26100003
                            00040  2317+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP                      26150003
INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00020  2318+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE                   26200003
                            00008  2319+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1 26250003

                            00004  2320+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024 26260003
00001C                             2321+DCBIOBAD DS    0A -           ADDRESS OF IOB WHEN CHAINED SCHEDULING IS 26300000

                                   2322+*                             USED OR FOR 1419/1275                     26350000
00001C                             2323+DCBODEB  DS    0A -           ADDRESS OF OLD DEB                        26400000
00001C                             2324+DCBLNP   DS    0FL1 -         3525 PRINTER LINE POSITION COUNTER        26450000
00001C                             2325+DCBQSLM  DS    BL1 -          QSAM LOCATE MODE LOGICAL RECORD INTERFACE 26500000
                                   2326+*                             INDICATOR BYTE FOR UPDAT PROCESSING OF    26550000
                                   2327+*                             SPANNED RECORDS                           26600000
                            00080  2328+DCB1DVDS EQU   DCBBIT0 -      ONLY ONE DEVICE IS ALLOCATED TO THIS      26650003
                                   2329+*                             DATA SET                                  26700000

                            00040  2330+DCBUPDCM EQU   DCBBIT1 -      UPDATE COMPLETE, FREE OLD DEB             26750003
                            00030  2331+DCBUPDBT EQU   DCBBIT2+DCBBIT3 -                                        26800003
                                   2332+*                             UPDATE BITS                               26810003
                            00020  2333+DCBUPDT  EQU   DCBBIT2 -      UPDATE TO TAKE PLACE                      26850003
                            00030  2334+DCBNUPD  EQU   DCBBIT2+DCBBIT3 -                                        26900003

                                   2335+*                             NO UPDATE TO TAKE PLACE                   26910003
                            00010  2336+DCBSVDEB EQU   DCBBIT3 -      OLD DEB ADDRESS MUST BE SAVED             26950003
00001D                             2337+DCBIOBAA DS    0AL3 -         SAME AS DCBIOBAD ABOVE                    27000000

00001D                             2338+DCBODEBA DS    AL3 -          ADDRESS OF OLD DEB                        27050000
000020                      0001C  2339+         ORG   IHADCB+28                                     ICBI DCB-4 27100000
00001C                             2340+DCBSVCXL DS    0A -           SAME AS DCBSVCXA BELOW         ICBI DCB-4 27150000
00001C                             2341+         DS    X -            RESERVED                       ICBI DCB-4 27200000
00001D                             2342+DCBSVCXA DS    AL3 -          POINTER TO EXIT LIST OF JES    ICBI DCB-4 27250000
                                   2343+*                             C.I. INTERFACE CONTROL SVC     ICBI DCB-4 27300000


                                   2345+*                       FOUNDATION EXTENSION                            27400000

000020                             2347+DCBEODAD DS    0A -           SAME AS DCBEODA BELOW                     27500000
000020                             2348+DCBHIARC DS    0BL1 -         HIERARCHY BITS                            27550000
000020                             2349+DCBBFTEK DS    0BL1 -         BUFFERING TECHNIQUE BITS                  27600000

000020                             2350+DCBBFALN DS    BL1 -          BUFFER ALIGNMENT BITS                     27650000
                            00080  2351+DCBH1    EQU   DCBBIT0 -      HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO  27700003
                            00070  2352+DCBBFT   EQU   DCBBIT1+DCBBIT2+DCBBIT3                                  27750003
                                   2353+*                             BUFFERING TECHNIQUE                       27760003

                            00060  2354+DCBBFTA  EQU   DCBBIT1+DCBBIT2 -                                        27800003
                                   2355+*                             QSAM LOCATE MODE PROCESSING OF SPANNED    27810003
                                   2356+*                             RECORDS - OPEN IS TO CONSTRUCT A RECORD   27850000
                                   2357+*                             AREA IF IT AUTOMATICALLY CONSTRUCTS       27900000
                                   2358+*                             BUFFERS                                   27950000
                            00020  2359+DCBBFTR  EQU   DCBBIT2 -      FOR BSAM CREATE BDAM PROCESSING OF        28000003

                                   2360+*                             UNBLOCKED SPANNED RECORDS - SOFTWARE      28050000
                                   2361+*                             TRACK OVERFLOW.  FOR BSAM INPUT           28100000
                                   2362+*                             PROCESSING OF UNBLOCKED SPANNED RECORDS   28150000
                                   2363+*                             WITH KEYS - RECORD OFFSET PROCESSING.     28200000
                            00040  2364+DCBBFTS  EQU   DCBBIT1 -      SIMPLE BUFFERING - BIT 3 IS ZERO          28250003

                            00020  2365+DCBBFTKR EQU   DCBBIT2 -      UNBLOCKED SPANNED RECORDS - SOFTWARE      28300003
                                   2366+*                             TRACK OVERFLOW (BDAM)                     28350000
                            00010  2367+DCBBFTE  EQU   DCBBIT3 -      EXCHANGE BUFFERING - BIT 1 IS ZERO        28400003
                            00008  2368+DCBBFTKD EQU   DCBBIT4 -      DYNAMIC BUFFERING (BTAM)                  28450003

                            00004  2369+DCBH0    EQU   DCBBIT5 -      HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO  28500003
                            00003  2370+DCBBFA   EQU   DCBBIT6+DCBBIT7 -                                        28550003
                                   2371+*                             BUFFER ALIGNMENT                          28560003
                            00002  2372+DCBBFAD  EQU   DCBBIT6 -      DOUBLEWORD BOUNDARY                       28600003
INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                            00001  2373+DCBBFAF1 EQU   DCBBIT7 -      FULLWORD NOT A DOUBLEWORD BOUNDARY,       28650003
                                   2374+*                             CODED IN DCB MACRO INSTRUCTION            28700000
                            00003  2375+DCBBFAF2 EQU   DCBBIT6+DCBBIT7 -                                        28750003
                                   2376+*                             FULLWORD NOT A DOUBLEWORD BOUNDARY,       28760003
                                   2377+*                             CODED IN DCB MACRO INSTRUCTION            28800000

000021                             2378+DCBEODA  DS    AL3 -          ADDRESS OF A USER-PROVIDED ROUTINE TO     28850000
                                   2379+*                             HANDLE END-OF-DATA CONDITIONS             28900000
000024                             2380+DCBEXLST DS    0A -           ADDRESS OF USER-PROVIDED LIST OF EXITS    28950000
000024                             2381+DCBRECFM DS    BL1 -          RECORD FORMAT                             29000000
                            000E0  2382+DCBRECLA EQU   DCBBIT0+DCBBIT1+DCBBIT2  -                               29050003

                                   2383+*                             RECORD LENGTH INDICATOR - ASCII           29060003
                            00020  2384+DCBRECD  EQU   DCBBIT2 -      ASCII VARIABLE RECORD LENGTH              29100003
                            000C0  2385+DCBRECL  EQU   DCBBIT0+DCBBIT1 -                                        29150003
                                   2386+*                             RECORD LENGTH INDICATOR                   29160003
                            00080  2387+DCBRECF  EQU   DCBBIT0 -      FIXED RECORD LENGTH                       29200003

                            00040  2388+DCBRECV  EQU   DCBBIT1 -      VARIABLE RECORD LENGTH                    29250003
                            000C0  2389+DCBRECU  EQU   DCBBIT0+DCBBIT1 -                                        29300003
                                   2390+*                             UNDEFINED RECORD LENGTH                   29310003
                            00020  2391+DCBRECTO EQU   DCBBIT2 -      TRACK OVERFLOW                            29350003
                            00010  2392+DCBRECBR EQU   DCBBIT3 -      BLOCKED RECORDS                           29400003

                            00008  2393+DCBRECSB EQU   DCBBIT4 -      FOR FIXED LENGTH RECORD FORMAT - STANDARD 29450003
                                   2394+*                             BLOCKS.  FOR VARIABLE LENGTH RECORD       29500000
                                   2395+*                             FORMAT - SPANNED RECORDS                  29550000
                            00006  2396+DCBRECCC EQU   DCBBIT5+DCBBIT6 -                                        29600003
                                   2397+*                             CONTROL CHARACTER INDICATOR               29610003
                            00004  2398+DCBRECCA EQU   DCBBIT5 -      ASA CONTROL CHARACTER                     29650003

                            00002  2399+DCBRECCM EQU   DCBBIT6 -      MACHINE CONTROL CHARACTER                 29700003
                            00000  2400+DCBRECC  EQU   X'00' -        NO CONTROL CHARACTER                      29750000
                            00001  2401+DCBRECKL EQU   DCBBIT7 -      KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB  29800003
                                   2402+*                             MACRO INSTRUCTION                         29850000

000025                             2403+DCBEXLSA DS    AL3 -          ADDRESS OF USER-PROVIDED LIST OF EXITS    29900000


                                   2406+*                       FOUNDATION BEFORE OPEN                          47150000


000028                      00028  2408+         ORG   IHADCB+40                                                47250000
000028                             2409+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES    47300000
                                   2410+*                             THE DATA SET ASSOCIATED WITH THIS DCB     47350000
000030                             2411+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE                47400000
                            00080  2412+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR   47450003
                                   2413+*                             POINT.  IF ONE, LAST I/O OPERATION WAS    47500000
                                   2414+*                             WRITE.                                    47550000

                            00080  2415+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR     47600003
                                   2416+*                             OUTPUT (BDAM)                             47650000
                            00040  2417+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD   47700003

                                   2418+*                             MODE                                      47750000
                            00020  2419+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE       47800003
                                   2420+*                             ROUTINE FOR CONCATENATION OF DATA SETS    47850000
                                   2421+*                             WITH UNLIKE ATTRIBUTES                    47900000
                            00010  2422+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED   47950003

                            00008  2423+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 48000003
                                   2424+*                             CONCATENATION OF UNLIKE ATTRIBUTES        48050000
                            00004  2425+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ                   48100003
                            00002  2426+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN  48150003
                                   2427+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1 48200000
INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2428+*                             ON RETURN FROM USER EXIT TO THE I/O       48250000

                                   2429+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.     48300000
                            00001  2430+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF    48350003

                                   2431+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION   48400000
000031                             2432+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR  48450000
                                   2433+*                             CONDITIONS AND IN DETERMINING CORRECTIVE  48500000
                                   2434+*                             PROCEDURES                                48550000
                            000C0  2435+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -                                        48600003

                                   2436+*                             ERROR CORRECTION INDICATOR                48610003
                            00000  2437+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE                    48650000
                            00040  2438+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN       48700003
                                   2439+*                             PROCESS                                   48750000
                            000C0  2440+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -                                        48800003
                                   2441+*                             PERMANENT ERROR CORRECTION                48810003
                            00030  2442+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -                                        48850003
                                   2443+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     48860003
                            00020  2444+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH     48900003

                                   2445+*                             SENSED                                    48950000

                            00010  2446+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH    49000003
                                   2447+*                             SENSED                                    49050000
                            0000C  2448+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -                                        49100003
                                   2449+*                             IOS ERROR ROUTINE USE INDICATOR           49110003
                            00000  2450+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE   49150000

                            00004  2451+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49200003
                            00004  2452+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE  49250003
                                   2453+*                             (BTAM)                                    49300000
                            00008  2454+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49350003
                            0000C  2455+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -                                        49400003
                                   2456+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE    49410003
000032                             2457+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE               49450000
000032                             2458+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR                     49500000
                            00080  2459+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---        49550003
                                   2460+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,     49600000

                                   2461+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)    49650000

                            00040  2462+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)    49700003
                            00040  2463+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)                   49750003
                            00040  2464+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---          49800003
                                   2465+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 49850000

                                   2466+*                             RESERVED (BTAM)                           49900000
                            00020  2467+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)            49950003
                            00020  2468+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)      50000003
                            00020  2469+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---           50050003
                                   2470+*                             ALWAYS ZERO (QSAM, QISAM)                 50100000
                            00010  2471+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)                   50150003
                            00010  2472+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)            50200003
                            00010  2473+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---          50250003
                                   2474+*                             ALWAYS ZERO (BISAM) ---                   50300000
                                   2475+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)         50350000
                            00008  2476+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)          50400003

                            00008  2477+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---          50450003
                                   2478+*                             ALWAYS ZERO (BISAM) ---                   50500000
                                   2479+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   50550000
                            00004  2480+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK   50600003

                                   2481+*                             COUNT (EXCP)                              50650000
                            00004  2482+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   50700003
INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            00004  2483+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)             50750003
                            00004  2484+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---       50800003
                                   2485+*                             ALWAYS ZERO (QISAM) ---                   50850000
                                   2486+*                             RESERVED (QTAM, BTAM)                     50900000
                            00002  2487+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)    50950003
                            00002  2488+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        51000003
                            00002  2489+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)                             51050003
                            00002  2490+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---                 51100003

                                   2491+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)        51150000
                            00001  2492+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)                   51200003
                            00001  2493+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,    51250003

                                   2494+*                             BPAM, BISAM, QISAM, QTAM, BTAM)           51300000
000033                             2495+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR                    51350000
                            00080  2496+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM, 51400003
                                   2497+*                             BPAM, BISAM, BDAM) ---                    51450000
                                   2498+*                             RESERVED (EXCP, QTAM, BTAM)               51500000
                            00040  2499+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)    51550003
                            00040  2500+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---          51600003
                                   2501+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 51650000
                                   2502+*                             RESERVED (EXCP, BTAM)                     51700000
                            00020  2503+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)     51750003
                            00020  2504+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---            51800003
                                   2505+*                             ALWAYS ZERO (QSAM, QISAM) ---             51850000

                                   2506+*                             RESERVED (EXCP)                           51900000

                            00010  2507+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)            51950003
                            00010  2508+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---         52000003

                                   2509+*                             ALWAYS ZERO (BISAM) ---                   52050000
                                   2510+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   52100000
                            00008  2511+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)         52150003
                            00008  2512+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)     52200003
                                   2513+*                             (BSAM)                                    52250000
                            00008  2514+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)          52300003
                            00008  2515+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---         52350003
                                   2516+*                             ALWAYS ZERO (BISAM) ---                   52400000
                                   2517+*                             RESERVED (BPAM, QTAM, BTAM)               52450000
                            00004  2518+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)         52500003
                            00004  2519+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   52550003
                            00004  2520+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)                    52600003

                            00004  2521+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---        52650003
                                   2522+*                             ALWAYS ZERO (BISAM) ---                   52700000

                                   2523+*                             RESERVED (BDAM, QTAM, BTAM)               52750000

                            00002  2524+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)        52800003
                            00002  2525+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        52850003
                            00002  2526+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)                       52900003
                            00002  2527+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---              52950003
                                   2528+*                             ALWAYS ZERO (BISAM) ---                   53000000
                                   2529+*                             RESERVED (BPAM, QTAM, BTAM)               53050000
                            00001  2530+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)          53100003
                            00001  2531+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT     53150003
                                   2532+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)   53200000
                            00001  2533+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)                          53250003
                            00001  2534+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---                    53300003
                                   2535+*                             ALWAYS ZERO (BISAM) ---                   53350000

                                   2536+*                             RESERVED (BPAM, QTAM, BTAM)               53400000

INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   71



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2538+*                       FOUNDATION AFTER OPEN                           53500000

000034                      00028  2540+         ORG   IHADCB+40                                                53600000
000028                             2541+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD 53650000
                                   2542+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED 53700000
                                   2543+*                             WITH THIS DCB                             53750000
00002A                             2544+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN               53800000
00002A                             2545+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF                    53850000
00002B                             2546+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF                   53900000
00002C                             2547+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB                 53950000
00002C                             2548+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN               54000000

                            000C0  2549+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -                                        54050003
                                   2550+*                             ERROR CORRECTION INDICATOR                54060003
                            00030  2551+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -                                        54100003
                                   2552+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     54110003

                            0000C  2553+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -                                        54150003
                                   2554+*                             IOS ERROR ROUTINE USE INDICATOR           54160003
00002D                             2555+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB                 54200000

000030                      00030  2557+         ORG   IHADCB+48                                                54350000
000030                             2558+DCBREAD  DS    0A -           ADDRESS OF READ MODULE                    54400000

000030                             2559+DCBWRITE DS    A -            ADDRESS OF WRITE MODULE                   54450000

000034                      00030  2561+         ORG   IHADCB+48                                                54600000
000030                             2562+DCBGET   DS    0A -           ADDRESS OF GET MODULE                     54650000
000030                             2563+DCBPUT   DS    A -            ADDRESS OF PUT MODULE                     54700000

                                   2565+*                       QSAM-BSAM-BPAM COMMON INTERFACE                 77750000


000034                      00034  2567+         ORG   IHADCB+52                                                77850000
000034                             2568+DCBGERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  77950000

000034                             2569+DCBPERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  78000000
000034                             2570+DCBCHECK DS    0A -           ADDRESS OF CHECK MODULE                   78050000
000034                             2571+DCBOPTCD DS    BL1 -          OPTION CODES                              78150000
                            00080  2572+DCBOPTW  EQU   DCBBIT0 -      WRITE VALIDITY CHECK (DASD)               78500003
                                   2573+*                             (BSAM, BPAM, QSAM, ISAM, BDAM)            78550000
                            00040  2574+DCBOPTU  EQU   DCBBIT1 -      ALLOW DATA CHECK CAUSED BY INVALID        78600003
                                   2575+*                             CHARACTER (1403 PRINTER WITH UCS FEATURE) 78650000
                                   2576+*                             (BSAM, BPAM, QSAM)                        78700000

                            00020  2577+DCBOPTC  EQU   DCBBIT2 -      CHAINED SCHEDULING USING PCI              78750003
                                   2578+*                             (BSAM, BPAM, QSAM)                        78800000
                            00010  2579+DCBOPTH  EQU   DCBBIT3 -      1287/1288 OPTICAL READER - HOPPER EMPTY   78850003
                                   2580+*                             EXIT (BSAM, BPAM)                         78900000
                            00010  2581+DCBOPTO  EQU   DCBBIT3 -      1285/1287 OPTICAL READER - ON-LINE        78950003

                                   2582+*                             CORRECTION (QSAM)                         79000000
                            00010  2583+DCBBCKPT EQU   DCBBIT3 -      CHANNEL-END APPENDAGE IS TO BYPASS DOS    79050003
                                   2584+*                             EMBEDDED CHECKPOINT RECORDS ON TAPE       79100000
                                   2585+*                             (BSAM, QSAM)                       ICB226 79150000
                            00008  2586+DCBOPTQ  EQU   DCBBIT4 -      TRANSLATION TO OR FROM ASCII              79200003
                                   2587+*                             (BSAM, BPAM, QSAM)                        79250000
                            00004  2588+DCBOPTZ  EQU   DCBBIT5 -      MAGNETIC TAPE DEVICES - USE REDUCED ERROR 79300003
                                   2589+*                             RECOVERY PROCEDURE (EXCP, BSAM, BPAM,     79350000
                                   2590+*                             QSAM)                                     79400000
                            00004  2591+DCBSRCHD EQU   DCBBIT5 -      USE SEARCH DIRECT, INSTEAD OF SEARCH      79450003
                                   2592+*                             PREVIOUS, ON RECORD POSITION SENSING      79500000
INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   72



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2593+*                             DEVICE  (EXCP, BSAM, BPAM, QSAM)   ICB217 79550000
                            00002  2594+DCBOPTT  EQU   DCBBIT6 -      USER TOTALING (BSAM, QSAM)                79600003

000035                             2595+DCBGERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  79700000
000035                             2596+DCBPERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  79750000
000035                             2597+DCBCHCKA DS    AL3 -          ADDRESS OF CHECK MODULE                   79800000

000038                             2598+DCBSYNAD DS    0A -           ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80050000
000038                             2599+DCBIOBL  DS    FL1 -          IOB LENGTH IN DOUBLE WORDS                80100000
000039                             2600+DCBSYNA  DS    AL3 -          ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80150000
00003C                             2601+DCBFLAG1 DS    0BL1           TCAM APPLICATION PROGRAM FLAGS ICBI DCB-3 80460000
                                   2602+*                             (BSAM, BPAM, QSAM)                        80470000
00003C                             2603+DCBCIND1 DS    BL1 -          CONDITION INDICATORS                      80500000
                            00080  2604+DCBCNTOV EQU   DCBBIT0 -      DIRECT ACCESS - TRACK OVERFLOW IN USE     80550003

                                   2605+*                             (BSAM, BPAM, QSAM)                        80600000
                                   2606+*                             2540 CARD PUNCH - DATA SET WAS OPENED BUT 80650000
                                   2607+*                             NO DATA WAS WRITTEN (QSAM)                80700000
                            00080  2608+DCBSTQCK EQU   DCBBIT0 -      STOP EQUAL QUICK WAS SPECIFIED FOR        80710003
                                   2609+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80720000

                            00040  2610+DCBSTFLS EQU   DCBBIT1 -      STOP EQUAL FLUSH WAS SPECIFIED FOR        80730003
                                   2611+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80740000
                            00040  2612+DCBCNSRD EQU   DCBBIT1 -      SEARCH DIRECT (BSAM, BPAM, QSAM)          80750003
                            00020  2613+DCBCNEVB EQU   DCBBIT2 -      END OF VOLUME - USED BY EOB ROUTINES      80800003

                                   2614+*                             (BSAM, BPAM, QSAM)                        80850000
                            00010  2615+DCBCNEVA EQU   DCBBIT3 -      END OF VOLUME - USED BY CHANNEL-END       80900003
                                   2616+*                             APPENDAGE ROUTINES (BSAM, BPAM, QSAM)     80950000
                            00004  2617+DCBCNBRM EQU   DCBBIT5 -      BLOCKED RECORD BIT MODIFIED (BSAM,BPAM,   81000003
                                   2618+*                             QSAM)                          ICBI DCB-2 81050000
                            00001  2619+DCBCNEXB EQU   DCBBIT7 -      EXCHANGE BUFFERING SUPPORTED (QSAM)       81100003

00003D                             2620+DCBCIND2 DS    BL1 -          CONDITION INDICATORS                      81150000
                            00080  2621+DCBCNSTO EQU   DCBBIT0 -      PARTITIONED DATA SET - STOW HAS BEEN      81200003
                                   2622+*                             PERFORMED (BSAM, BPAM, QSAM)              81250000
                                   2623+*                             SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM) 81300000
                            00040  2624+DCBCNWR0 EQU   DCBBIT1 -      DIRECT ORGANIZATION DATA SET - LAST I/O   81350003

                                   2625+*                             WAS A WRITE RECORD ZERO                   81400000
                                   2626+*                             (BSAM, BPAM, QSAM)                        81450000
                                   2627+*                             SEQUENTIAL DATA SET - UPDATE EOF IS       81500000
                                   2628+*                             INDICATED (BSAM, BPAM)                    81550000
                            00020  2629+DCBCNCLO EQU   DCBBIT2 -      CLOSE IN PROCESS (QSAM)                   81600003

                            00010  2630+DCBCNIOE EQU   DCBBIT3 -      PERMANENT I/O ERROR (BSAM, BPAM, QSAM)    81650003
                            00008  2631+DCBCNBFP EQU   DCBBIT4 -      OPEN ACQUIRED BUFFER POOL                 81700003
                                   2632+*                             (BSAM, BPAM, QSAM)                        81750000
                            00004  2633+DCBCNCHS EQU   DCBBIT5 -      CHAINED SCHEDULING BEING SUPPORTED        81800003
                                   2634+*                             (BSAM, BPAM, QSAM)                        81850000

                            00002  2635+DCBCNFEO EQU   DCBBIT6 -      FEOV BIT (BSAM, BPAM, QSAM)               81900003
                            00001  2636+DCBCNQSM EQU   DCBBIT7 -      ALWAYS ZERO (BSAM, BPAM)                  81950003
                                   2637+*                             THIS IS A QSAM DCB (QSAM)                 82000000
00003E                             2638+DCBBLKSI DS    H -            MAXIMUM BLOCK SIZE                        82100000
000040                             2639+DCBWCPO  DS    AL1 -          OFFSET OF WRITE CHANNEL PROGRAM FROM THE  82350000

                                   2640+*                             START OF IOB                              82400000
000041                             2641+DCBWCPL  DS    FL1 -          LENGTH OF WRITE CHANNEL PROGRAM           82450000
000042                             2642+DCBOFFSR DS    AL1 -          OFFSET OF READ CCW FROM BSAM/BPAM PREFIX  82500000
                                   2643+*                             OF IOB                                    82550000
000043                             2644+DCBOFFSW DS    AL1 -          OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX 82600000
                                   2645+*                             OF IOB                                    82650000

000044                             2646+DCBIOBA  DS    A -            FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR 82700000
                                   2647+*                             BSAM/BPAM PREFIX OF IOB.  FOR CHAINED     82750000
INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   2648+*                             SCHEDULING, ADDRESS OF ICB.  FOR          82800000
                                   2649+*                             1419/1275, ADDRESS OF MAGNETIC INTERRUPT  82850000
                                   2650+*                             CONTROL BLOCK (MICB) CURRENTLY BEING      82900000
                                   2651+*                             PROCESSED BY READ ROUTINE.  FOR TSO       82950000
                                   2652+*                             TERMINAL DATA SET OPENED FOR INPUT AND    83000000

                                   2653+*                             FORMAT U, SIMULATED LOW-ORDER FOUR BYTES  83050000
                                   2654+*                             OF IOBCSW                                 83100000

000048                      00044  2656+         ORG   IHADCB+68                                         ICB354 83160000
000044                             2657+DCBCICB  DS    0A -           SAME AS DCBCICBA BELOW             ICB354 83200000
000044                             2658+         DS    X -            DCBNCP  (BSAM,BPAM)                ICB354 83250000
000045                             2659+DCBCICBA DS    AL3 -          POINTER TO JES C.I.                ICB354 83300000

                                   2660+*                             CONTROL BLOCK (CICB)               ICB354 83350000

000048                      00050  2662+         ORG   IHADCB+80                                     ICBI DCB-4 83450000

000050                             2663+DCBDIRCT DS    0H -           NUMBER OF BYTES USED IN LAST DIRECTORY    83500000
                                   2664+*                             BLOCK (RANGE 0-254)  (BSAM, BPAM)  ICB295 83550000
000050                             2665+DCBQSWS  DS    0BL1 -         FLAG BYTE                          ICB295 83600000
                            00004  2666+DCBPOPEN EQU   DCBBIT5 -      QSAM PARALLEL INPUT PROCESSING            83610003
000050                             2667+DCBUSASI DS    B -            FLAG BYTE FOR ASCII TAPES                 83650000

                            00040  2668+DCBBLBP  EQU   DCBBIT1 -      BLOCK PREFIX IS FOUR BYTE FIELD           83700003
                                   2669+*                             CONTAINING BLOCK LENGTH IN UNPACKED       83750000
                                   2670+*                             DECIMAL (SPECIFIED BY BUFFER=L).          83800000
                            00038  2671+DCBQADFS EQU   DCBBIT2+DCBBIT3+DCBBIT4                                  83850003
                                   2672+*                             USED TO PERFORM SEQUENCE CHECKING WITH    83860003
                                   2673+*                             MULTIPLE FUNCTION SUPPORT FOR 3525        83900000
                                   2674+*                             (BSAM, QSAM)                              83950000
                            00020  2675+DCBQADF1 EQU   DCBBIT2 -      FIRST BIT OF DCBQADFS                     84000003

                            00010  2676+DCBQADF2 EQU   DCBBIT3 -      SECOND BIT OF DCBQADFS                    84050003
                            00008  2677+DCBQADF3 EQU   DCBBIT4 -      THIRD BIT OF DCBQADFS                     84100003

                            00001  2678+DCBQSTRU EQU   DCBBIT7 -      TRUNC ENTRY POINT ENTERED (QSAM)          84150003
000051                             2679+DCBBUFOF DS    0FL1 -         BLOCK PREFIX LENGTH (0-99), SPECIFIED BY  84200000
                                   2680+*                             BUFOFF=N OR BUFOFF=L                      84250000
000051                             2681+DCBDIRCQ DS    FL1 -          NUMBER OF BYTES USED IN LAST DIRECTORY    84300000
                                   2682+*                             BLOCK (RANGE 0-254)  (QSAM)        ICB295 84350000


                                   2684+*                       BSAM-BPAM INTERFACE                             84500000

000052                      00048  2686+         ORG   IHADCB+72                                                84600000
000048                             2687+DCBEOBR  DS    0A -           ADDRESS OF END-OF-BLOCK MODULE FOR READ   84650000
000048                             2688+DCBNCP   DS    FL1 -          NUMBER OF CHANNEL PROGRAMS.               84750000
                                   2689+*                             NUMBER OF READ OR WRITE REQUESTS WHICH    85000000
                                   2690+*                             MAY BE ISSUED PRIOR TO A CHECK, NUMBER    85050000
                                   2691+*                             OF IOB'S GENERATED.  (99 MAXIMUM)         85100000

000049                             2692+DCBEOBRA DS    AL3 -          ADDRESS OF END-OF-BLOCK MODULE FOR READ   85150000

00004C                             2693+DCBEOBW  DS    A -            ADDRESS OF END-OF-BLOCK MODULE FOR WRITE. 85200000
                                   2694+*                             FOR BSAM CREATE BDAM PROCESSING OF        85250000
                                   2695+*                             UNBLOCKED SPANNED RECORDS WITH BKTEK=R    85300000
                                   2696+*                             SPECIFIED, ADDRESS OF SEGMENT WORK AREA   85350000
                                   2697+*                             CONTROL BLOCK                             85400000

000050                             2698+         DS    H -            DCBDIRCT - NUMBER OF BYTES USED IN LAST   85450000
                                   2699+*                             DIRECTORY BLOCK  (RANGE 0-254)     ICB295 85500000
000052                             2700+DCBLRECL DS    H -            LOGICAL RECORD LENGTH                     85600000
000054                             2701+DCBCNTRL DS    0A -           ADDRESS OF CNTRL MODULE                   85850000
000054                             2702+DCBNOTE  DS    0A -           ADDRESS OF NOTE/POINT MODULE              85900000
INIT     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000054                             2703+DCBPOINT DS    A -            ADDRESS OF NOTE/POINT MODULE              85950000

                                   2705+*                       QSAM INTERFACE                                  86100000



000058                      00048  2707+         ORG   IHADCB+72                                                86650021
000048                             2708+DCBLCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF LAST   86700000
                                   2709+*                             CCW IN LIST                               86750000
000048                             2710+DCBEOBAD DS    A -            FOR SIMPLE BUFFERING, ADDRESS OF LAST     86800000

                                   2711+*                             BYTE OF CURRENT BUFFER                    86850000
00004C                             2712+DCBCCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF        86900000
                                   2713+*                             CURRENT OR NEXT CCW                       86950000
00004C                             2714+DCBRECAD DS    0A -           ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87000000
00004C                             2715+DCBRECBT DS    BL1 -          FLAG BYTE                                 87050000
                            000F0  2716+DCBRCREL EQU   DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3  -                       87100003
                                   2717+*                             RELSE MACRO HAS BEEN ISSUED               87110003
                                   2718+*                             (QSAM WITH SIMPLE BUFFERING)              87150000
                            00080  2719+DCBRCTRU EQU   DCBBIT0 -      TRUNC MACRO HAS BEEN ISSUED (QSAM LOCATE  87200003
                                   2720+*                             MODE)                                     87250000
                            00040  2721+DCBRCFGT EQU   DCBBIT1 -      FIRST GET AFTER OPEN (QSAM LOCATE MODE)   87300003

00004D                             2722+DCBRECA  DS    AL3 -          ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87350000
000050                             2723+         DS    B -            DCBQSWS - FLAG BYTE                ICB295 87400000
000051                             2724+         DS    FL1 -          DCBDIRCQ - NUMBER OF BYTES USED IN LAST   87450000
                                   2725+*                             DIRECTORY BLOCK (RANGE 0-254)      ICB295 87500000

000052                             2726+         DS    H -            DCBLRECL - LOGICAL RECORD LENGTH          87750021
000054                             2727+         DS    0A -           DCBCNTRL - ADDRESS OF CNTRL MODULE        88000021
000054                             2728+DCBEROPT DS    BL1 -          ERROR OPTION                              88100000
                            00080  2729+DCBERACC EQU   DCBBIT0 -         ACCEPT PERMANENT ERROR                 88150003
                            00040  2730+DCBERSKP EQU   DCBBIT1 -         SKIP PERMANENT ERROR                   88200003
                            00020  2731+DCBERABE EQU   DCBBIT2 -         ABNORMAL END OF TASK                   88250003
000055                             2732+         DS    AL3 -          DCBCNTRA - ADDRESS OF CNTRL MODULE        88500021
000058                             2733+         DS    XL2 -          RESERVED                                  88600021
00005A                             2734+DCBPRECL DS    H -            BLOCK LENGTH, MAXIMUM BLOCK LENGTH OR     88650000
                                   2735+*                             DATA LENGTH                               88700000
00005C                             2736+DCBEOB   DS    A -            ADDRESS OF END OF BLOCK MODULE            88750000




                            00000  2739+DCBDSECT EQU   IHADCB   DEFINE ALTERNATE DSECT NAME                     DB012000


000000                             2741+HASPBLKS CSECT          END OF DATA CONTROL BLOCK DSECT                 DB016000
INIT     OS DATA EXTENT BLOCK DSECT                                                                            PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78






000000                             2744+DEBDSECT DSECT                     DATA EXTENT BLOCK DSECT              DE010000
000000                             2745+DEBTCBAD DS    F                   ADDRESS OF TCB                       DE012000
000004                             2746+DEBDEBAD DS    F                   ADDRESS OF NEXT DEB                  DE014000
000008                             2747+DEBIRBAD DS    F                   ADDRESS OF IRB                       DE016000
00000C                             2748+         DS    F                   RESERVED                             DE018000
000010                             2749+DEBNMEXT DS    0C                  NUMBER OF EXTENTS                    DE019000
000010                             2750+DEBUSRPG DS    F                   ADDR OF 1ST IOB IN USER PURGE CHAIN  DE020000

000014                             2751+DEBPRIOR DS    0C                  PRIORITY OF THE TASK                 DE022000

000014                             2752+DEBECBAD DS    F                   ADDRESS OF PURGE ECB PARAMETER LIST  DE024000
000018                             2753+DEBPROTG DS    0C                  PROTECTION KEY OF TASK               DE026000

000018                             2754+DEBDEBID DS    0C                  DEB IDENTIFICATION (X'0F')           DE028000
000018                             2755+DEBDCBAD DS    F                   ADDRESS OF DCB                       DE030000
00001C                             2756+DEBEXSCL DS    0C                  EXTENT SCALE                         DE031000
00001C                             2757+DEBAPPAD DS    F                   ADDR OF I/O APPENDAGE VECTOR TABLE   DE032000
000020                             2758+DEBDVMOD DS    0C                  DEVICE MODIFIER / FILE MASK          DE034000
000020                             2759+DEBUCBAD DS    F                   ADDRESS OF UCB                       DE036000
000024                             2760+DEBEXTNT DS    0CL12               DATA SET EXTENT                      DE038000
000024                             2761+DEBBINUM DS    H                   BIN NUMBER                           DE040000
000026                             2762+DEBSTRCC DS    H                   CYLINDER START ADDRESS               DE042000
000028                             2763+DEBSTRHH DS    H                   READ OR WRITE TRACK START ADDRESS    DE044000
00002A                             2764+DEBENDCC DS    H                   CYLINDER END ADDRESS                 DE046000
00002C                             2765+DEBENDHH DS    H                   READ OR WRITE TRACK END ADDRESS      DE048000

00002E                             2766+DEBNUMTR DS    H                   NUMBER OF TRACKS IN THIS EXTENT      DE050000
000000                             2767+HASPBLKS CSECT                     END OF DATA EXTENT BLOCK DSECT       DE052000

INIT     OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   76



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000000                             2769+UCBDSECT DSECT                     UNIT CONTROL BLOCK DSECT             UC008000


                                   2771+*%UCBL1 : ;                                                             IE005000
                                   2772+*/* **************************************************************** */ IE006000
                                   2773+*/*                                                                  */ IE007000
                                   2774+*/*            U N I T   C O N T R O L   B L O C K                   */ IE008000
                                   2775+*/*                                                                  */ IE009000
                                   2776+*/* **************************************************************** */ IE010000
                                   2777+*/*                                                                  */ IE011000
                                   2778+*/*  STATUS                                                          */ IE012000
                                   2779+*/*                                                                  */ IE013000

                                   2780+*/*      OS/VS2 RELEASE 1, OS/VS1 RELEASE 2, 08/14/72, LEVEL=14      */ IE014000
                                   2781+*/*                                                                  */ IE015000
                                   2782+*/*  METHOD OF ACCESS                                                */ IE016000

                                   2783+*/*                                                                  */ IE017000
                                   2784+*/*      PL/S - DCL (UCBPTR,UCBDCPTR) PTR                            */ IE018000
                                   2785+*/*      BAL  - DSECT CARD SHOULD PRECEDE MACRO CALL.  SYMBOLS IN    */ IE019000
                                   2786+*/*             COMMON SECTION AND DEVICE DEPENDENT SECTIONS ARE     */ IE020000
                                   2787+*/*             ADDRESSABLE BY A USING ON UCBOB.  ADDITIONAL USINGS  */ IE021000
                                   2788+*/*             ARE NECESSARY TO OBTAIN ADDRESSABILITY FOR EACH      */ IE022000
                                   2789+*/*             EXTENSION OR PREFIX.  THESE ARE AS FOLLOWS -         */ IE023000
                                   2790+*/*                                                                  */ IE024000
                                   2791+*/*             DIRECT ACCESS EXTENSION           UCBDA              */ IE025000
                                   2792+*/*             DIRECT ACCESS EXTENSION 2         UCBDA2             */ IE026000
                                   2793+*/*             PREFIX TO MAGNETIC TAPE EXTENSION UCBMTPRF           */ IE027000
                                   2794+*/*             MAGNETIC TAPE EXTENSION           UCBMT              */ IE028000

                                   2795+*/*             TAPE CARTRIDGE READER EXTENSION   UCBTCR             */ IE029000
                                   2796+*/*             OPTICAL READER EXTENSION          UCBOR              */ IE030000
                                   2797+*/*             UNIT RECORD WITH UCS EXTENSION    UCBUCS             */ IE031000
                                   2798+*/*             3211 SENSE INFORMATION EXTENSION  UCBSNINF           */ IE032000

                                   2799+*/*             M65 MULTIPROCESSING PREFIX        UCBM65MP           */ IE033000
                                   2800+*/*                                                                  */ IE034000
                                   2801+*/*             WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH  */ IE035000
                                   2802+*/*             DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER   */ IE036000
                                   2803+*/*             IN THE DEFN COLUMN IN THE CORSS REFERENCE LISTING.   */ IE037000
                                   2804+*/*             FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE          */ IE038000

                                   2805+*/*             STATEMENT NUMBERS FOR UCBDA AND UCBDA2 IS IN THE     */ IE039000
                                   2806+*/*             UCBDA DSECT.                                         */ IE040000
                                   2807+*/*                                                                  */ IE041000
                                   2808+*/*  F.E.'S                                                          */ IE042000
                                   2809+*/*                                                                  */ IE043000
                                   2810+*/*      MICROFICHE LISTING - IEFUCBOB                               */ IE044000
                                   2811+*/*                                                                  */ IE045000
                                   2812+*/*  DEVELOPERS                                                      */ IE046000

                                   2813+*/*                                                                  */ IE047000

                                   2814+*/*      BAL LISTING  - SPECIFY LIST=YES ON MACRO CALL               */ IE048000
                                   2815+*/*      PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE        */ IE049000
                                   2816+*/*                                                                  */ IE050000
                                   2817+*/*      FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS     */ IE051000
                                   2818+*/*      YOUR MODULE CREATES THE CSECT.                              */ IE052000
                                   2819+*/*                                                                  */ IE053000
                                   2820+*/*  FUNCTION                                                        */ IE054000
                                   2821+*/*                                                                  */ IE055000
                                   2822+*/*      A UNIT CONTROL BLOCK                                        */ IE056000

INIT     OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   2823+*/*      INCORPORATING A SYSTEM RESOURCE TABLE                       */ IE057000
                                   2824+*/*      RECORDS THE STATUS OF                                       */ IE058000
                                   2825+*/*        A PHYSICAL INPUT OUTPUT DEVICE ADDRESS                    */ IE059000

                                   2826+*/*      IS CREATED AND INITIALIZED DURING SYSTEM GENERATION         */ IE060000
                                   2827+*/*      RESIDES IN THE NUCLEUS BELOW 32 K                           */ IE061000

                                   2828+*/*      POINTS TO A DEVICE TYPE DEPENDENT EXTENSION                 */ IE062000
                                   2829+*/*        RESIDING HIGHER IN THE NUCLEUS                            */ IE063000
                                   2830+*/*      IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY            */ IE064000
                                   2831+*/*        A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS     */ IE065000
                                   2832+*/*      MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES               */ IE066000
                                   2833+*/*        AND DATA EXTENT BLOCKS                                    */ IE067000
                                   2834+*/*      CONTAINS INDICES INTO TABLES FOR                            */ IE068000
                                   2835+*/*        DEVICE STATISTICS ATTENTION LOGICAL CHANNEL               */ IE069000

                                   2836+*/*      MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS    */ IE070000
                                   2837+*/*                                                                  */ IE071000
                                   2838+*/*  OUTPUT                                                          */ IE072000
                                   2839+*/*                                                                  */ IE073000
                                   2840+*/*      SYSGEN INDEPENDENT COMMON SECTION                           */ IE074000

                                   2841+*/*        INCLUDING UCBTYP WORD                                     */ IE075000
                                   2842+*/*      DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)             */ IE076000
                                   2843+*/*        DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE         */ IE077000

                                   2844+*/*        DATACELL (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)*/ IE078000
                                   2845+*/*        UNIT RECORD WITH UNIVERSAL CHARACTER SET                  */ IE079000
                                   2846+*/*        GRAPHICS                                                  */ IE080000
                                   2847+*/*        TAPE CARTRIDGE READER AND OPTICAL READER                  */ IE081000
                                   2848+*/*      CELL DESCRIPTION FOR ONE OF THE TEN CELLS                   */ IE082000
                                   2849+*/*        IN THE DATACELL DEVICE SEGMENT ABOVE                      */ IE083000
                                   2850+*/*      UCB EXTENSION (ONE OF THE FOLLOWING)                        */ IE084000

                                   2851+*/*        DIRECT ACCESS                                             */ IE085000
                                   2852+*/*        DIRECT ACCESS 2                                           */ IE086000
                                   2853+*/*        MAGNETIC TAPE AND ITS PREFIX                              */ IE087000
                                   2854+*/*        TAPE CARTRIDGE READER                                     */ IE088000
                                   2855+*/*        OPTICAL READER                                            */ IE089000

                                   2856+*/*        UNIVERSAL CHARACTER SET                                   */ IE090000
                                   2857+*/*        3211 SENSE INFORMATION                                    */ IE091000
                                   2858+*/*      M65 MULTIPROCESSING PREFIX                                  */ IE092000
                                   2859+*/*        (CONTIGUOUSLY PRECEDING COMMON SECTION)                   */ IE093000

                                   2860+*/*                                                                  */ IE094000
                                   2861+*/* **************************************************************** */ IE095000
                                   2862+*%GOTO UCBL2;   /*                                                      IE096000
                                   2863+         PUSH  PRINT                                                    IE097000
                                   2864+         PRINT OFF                                                      IE099000
                                   3600+         POP   PRINT                                                    IE836000



000000                             3602+HASPBLKS CSECT                     END UNIT CONTROL BLOCK DSECT         UC016000
INIT     HASP DIRECT ACCESS MASTER CYLINDER BIT MAP                                                            PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







                                   3605 CYLMAP   DS    0F,&NUMDA.XL((&NUMTGV+7)/8)'0'                           N0656000
000000                             3606+CYLMAP   DS    0F,2XL((400+7)/8)'0'                                     N0656000
INIT     HASP PRINT CHECKPOINT TABLE                                                                           PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78







000064                             3609          DS    0F                                                       N0661000
                                   3610 PRCHKPT  DC    &NUMPRC.XL(L'PRCSIZE)'0'                                 N0662000
000064 0000000000000000            3611+PRCHKPT  DC    3XL(L'PRCSIZE)'0'                                        N0662000

INIT     HASP DEVICE CONTROL TABLES                                                                            PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   3613 *                                                                       N0666000
                                   3614 *                             READER DEVICE CONTROL TABLE(S)            N0668000
                                   3615 *                                                                       N0670000

                                   3616 $RDRDCT  $GENDCT RDR,&NUMRDRS,READER                                    N0672000
0000B8                             3617+$RDRDCT  DS    0F                                                       N0074000
0000B8                             3618+$DCT1     DS   0F                                                       N0082000
0000B8 40                          3619+         DC    AL1(DCTDRAIN)       DEVICE IS DRAINED                    N0092000
0000B9 000000                      3620+         DC    AL3(0)              PCE ADDRESS                          N0094000
0000BC 00000000                    3621+         DC    A(0)                BUFFER ADDRESS                       N0096000

0000C0 00000001                    3622+         DC    A(1)                DCB ADDRESS                          N0104000
0000C4 00000000                    3623+         DC    A(0)                EVENT WAIT FIELD                     N0106000
0000C8 00                          3624+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
0000C9 00                          3625+         DC    AL1(0)              DCT NUMBER                           N0110000

0000CA 10                          3626+         DC    AL1(DCTRDR)         DEVICE TYPE                          N0112000
0000CB 00                          3627+         DC    AL1(0)              RESERVED                             N0120000
0000CC 000000F0                    3628+         DC    A($DCT2)            ADDRESS OF NEXT DCT                  N0122000
0000D0 D9C5C1C4C5D9F140            3629+         DC    CL8'READER1'                 DEVICE NAME                 N0132000
0000D8 00                          3630+         DC    AL1(0)              PRINT DESTINATION                    N0136000

0000D9 00                          3631+         DC    AL1(0)              PUNCH DESTINATION                    N0138000
0000DA 00                          3632+         DC    AL1(0)              PRIORITY INCREMENT                   N0140000
0000DB 0F                          3633+         DC    AL1(15)             PRIORITY LIMIT                       N0142000
0000DC 0000000000000000            3634+         DC    2F'0'               UNUSED                               N0142400
0000E4 00                          3635+         DC    AL1(0)              UNUSED                               N0142800
0000E5 4040404040404040            3636+         DC    CL8' '              UNUSED                               N0143200
0000ED 40                          3637+         DC    C' '                UNUSED                               N0143600

0000EE 0000
0000F0                             3638+         DC    (0)F'0'             VARIABLE DEVICE WORK AREA            N0148000
                                   3639 *                                                                       N0674000

                                   3640 *                             PRINTER DEVICE CONTROL TABLE(S)           N0676000
                                   3641 *                                                                       N0678000
                                   3642          AIF   (&NUMPRTS GE 10).PRINTR                                  N0680000
                                   3643 $PRTDCT  $GENDCT PRT,&NUMPRTS,PRINTER                                   N0682000
0000F0                             3644+$PRTDCT  DS    0F                                                       N0074000

0000F0                             3645+$DCT2     DS   0F                                                       N0082000
0000F0 40                          3646+         DC    AL1(DCTDRAIN)       DEVICE IS DRAINED                    N0092000
0000F1 000000                      3647+         DC    AL3(0)              PCE ADDRESS                          N0094000
0000F4 00000000                    3648+         DC    A(0)                BUFFER ADDRESS                       N0096000
0000F8 00000001                    3649+         DC    A(1)                DCB ADDRESS                          N0104000
0000FC 00000000                    3650+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000100 00                          3651+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
000101 00                          3652+         DC    AL1(0)              DCT NUMBER                           N0110000

000102 20                          3653+         DC    AL1(DCTPRT)         DEVICE TYPE                          N0112000
000103 00                          3654+         DC    AL1(0)              RESERVED                             N0120000

000104 00000128                    3655+         DC    A($DCT3)            ADDRESS OF NEXT DCT                  N0122000
000108 D7D9C9D5E3C5D9F1            3656+         DC    CL8'PRINTER1'                DEVICE NAME                 N0132000
000110 E2E3C44B                    3657+         DC    CL4'STD.'           FORMS ID                             N0144400
000114 F6404040                    3658+         DC    CL4'6'              FCB ID                               N0144800
000118 F0404040                    3659+         DC    CL4'0'              UCS ID                               N0145200

00011C 89                          3660+         DC    AL1(DCTPPSWO+DCTPPSWC+DCTPPSWT) ALLOW $T +FCB, UCS       N0145600
00011D C1D1404040404040            3661+         DC    CL8'AJ'             DEFAULT PRINT CLASS MASK             N0146400
000125 40                          3662+         DC    C' '                CLASS MASK TERMINATOR                N0147600
000126 0000
000128                             3663+         DC    (0)F'0'             VARIABLE DEVICE WORK AREA            N0148000
000128                             3664+$DCT3     DS   0F                                                       N0082000
000128 40                          3665+         DC    AL1(DCTDRAIN)       DEVICE IS DRAINED                    N0092000
INIT     HASP DEVICE CONTROL TABLES                                                                            PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000129 000000                      3666+         DC    AL3(0)              PCE ADDRESS                          N0094000

00012C 00000000                    3667+         DC    A(0)                BUFFER ADDRESS                       N0096000
000130 00000002                    3668+         DC    A(2)                DCB ADDRESS                          N0104000
000134 00000000                    3669+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000138 00                          3670+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
000139 00                          3671+         DC    AL1(0)              DCT NUMBER                           N0110000

00013A 20                          3672+         DC    AL1(DCTPRT)         DEVICE TYPE                          N0112000
00013B 00                          3673+         DC    AL1(0)              RESERVED                             N0120000
00013C 00000160                    3674+         DC    A($DCT4)            ADDRESS OF NEXT DCT                  N0122000
000140 D7D9C9D5E3C5D9F2            3675+         DC    CL8'PRINTER2'                DEVICE NAME                 N0132000
000148 E2E3C44B                    3676+         DC    CL4'STD.'           FORMS ID                             N0144400
00014C F6404040                    3677+         DC    CL4'6'              FCB ID                               N0144800
000150 F0404040                    3678+         DC    CL4'0'              UCS ID                               N0145200
000154 89                          3679+         DC    AL1(DCTPPSWO+DCTPPSWC+DCTPPSWT) ALLOW $T +FCB, UCS       N0145600
000155 C1D1404040404040            3680+         DC    CL8'AJ'             DEFAULT PRINT CLASS MASK             N0146400
00015D 40                          3681+         DC    C' '                CLASS MASK TERMINATOR                N0147600

00015E 0000

000160                             3682+         DC    (0)F'0'             VARIABLE DEVICE WORK AREA            N0148000
                                   3683          AGO   .PRINTER                                                 N0684000
                                   3684 .PRINTER ANOP                                                           N0690000
                                   3685 *                                                                       N0692000

                                   3686 *                             PUNCH DEVICE CONTROL TABLE(S)             N0694000
                                   3687 *                                                                       N0696000
                                   3688 $PUNDCT  $GENDCT PUN,&NUMPUNS,PUNCH,WORKWDS=20                          N0698000
000160                             3689+$PUNDCT  DS    0F                                                       N0074000
000160                             3690+$DCT4     DS   0F                                                       N0082000
000160 40                          3691+         DC    AL1(DCTDRAIN)       DEVICE IS DRAINED                    N0092000
000161 000000                      3692+         DC    AL3(0)              PCE ADDRESS                          N0094000
000164 00000000                    3693+         DC    A(0)                BUFFER ADDRESS                       N0096000
000168 00000001                    3694+         DC    A(1)                DCB ADDRESS                          N0104000
00016C 00000000                    3695+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000170 00                          3696+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000

000171 00                          3697+         DC    AL1(0)              DCT NUMBER                           N0110000
000172 30                          3698+         DC    AL1(DCTPUN)         DEVICE TYPE                          N0112000
000173 00                          3699+         DC    AL1(0)              RESERVED                             N0120000
000174 000001E8                    3700+         DC    A($DCT5)            ADDRESS OF NEXT DCT                  N0122000

000178 D7E4D5C3C8F14040            3701+         DC    CL8'PUNCH1'                  DEVICE NAME                 N0132000
000180 E2E3C44B                    3702+         DC    CL4'STD.'           FORMS ID                             N0144400
000184 F6404040                    3703+         DC    CL4'6'              FCB ID                               N0144800
000188 F0404040                    3704+         DC    CL4'0'              UCS ID                               N0145200
00018C 89                          3705+         DC    AL1(DCTPPSWO+DCTPPSWC+DCTPPSWT) ALLOW $T +FCB, UCS       N0145600
00018D C2D2404040404040            3706+         DC    CL8'BK'             DEFAULT PUNCH CLASS MASK             N0147200
000195 40                          3707+         DC    C' '                CLASS MASK TERMINATOR                N0147600
000196 0000
000198 0000000000000000            3708+         DC    (20)F'0'            VARIABLE DEVICE WORK AREA            N0148000
                                   3709 *                                                                       N0708000
                                   3710 *                             INTERNAL READER DEVICE CONTROL TABLES(S)  N0710000
                                   3711 *                                                                       N0712000

                                   3712 $INRDCT  $GENDCT INR,&NUMINRS,INTRDR,WORKWDS=24                         N0714000
0001E8                             3713+$INRDCT  DS    0F                                                       N0074000
0001E8                             3714+$DCT5     DS   0F                                                       N0082000

0001E8 40                          3715+         DC    AL1(DCTDRAIN)       DEVICE IS DRAINED                    N0092000
0001E9 000000                      3716+         DC    AL3(0)              PCE ADDRESS                          N0094000
0001EC 00000000                    3717+         DC    A(0)                BUFFER ADDRESS                       N0096000
0001F0 00000001                    3718+         DC    A(1)                DCB ADDRESS                          N0104000
INIT     HASP DEVICE CONTROL TABLES                                                                            PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0001F4 00000000                    3719+         DC    A(0)                EVENT WAIT FIELD                     N0106000
0001F8 00                          3720+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
0001F9 00                          3721+         DC    AL1(0)              DCT NUMBER                           N0110000
0001FA 14                          3722+         DC    AL1(DCTINR)         DEVICE TYPE                          N0112000
0001FB 00                          3723+         DC    AL1(0)              RESERVED                             N0120000
0001FC 00000280                    3724+         DC    A($DCT6)            ADDRESS OF NEXT DCT                  N0122000

000200 C9D5E3D9C4D9F140            3725+         DC    CL8'INTRDR1'                 DEVICE NAME                 N0132000

000208 00                          3726+         DC    AL1(0)              PRINT DESTINATION                    N0136000
000209 00                          3727+         DC    AL1(0)              PUNCH DESTINATION                    N0138000

00020A 00                          3728+         DC    AL1(0)              PRIORITY INCREMENT                   N0140000
00020B 0F                          3729+         DC    AL1(15)             PRIORITY LIMIT                       N0142000
00020C 0000000000000000            3730+         DC    2F'0'               UNUSED                               N0142400
000214 00                          3731+         DC    AL1(0)              UNUSED                               N0142800
000215 4040404040404040            3732+         DC    CL8' '              UNUSED                               N0143200
00021D 40                          3733+         DC    C' '                UNUSED                               N0143600
00021E 0000
000220 0000000000000000            3734+         DC    (24)F'0'            VARIABLE DEVICE WORK AREA            N0148000
000280                             3735+$DCT6     DS   0F                                                       N0082000
000280 40                          3736+         DC    AL1(DCTDRAIN)       DEVICE IS DRAINED                    N0092000
000281 000000                      3737+         DC    AL3(0)              PCE ADDRESS                          N0094000
000284 00000000                    3738+         DC    A(0)                BUFFER ADDRESS                       N0096000

000288 00000002                    3739+         DC    A(2)                DCB ADDRESS                          N0104000
00028C 00000000                    3740+         DC    A(0)                EVENT WAIT FIELD                     N0106000

000290 00                          3741+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000

000291 00                          3742+         DC    AL1(0)              DCT NUMBER                           N0110000
000292 14                          3743+         DC    AL1(DCTINR)         DEVICE TYPE                          N0112000
000293 00                          3744+         DC    AL1(0)              RESERVED                             N0120000
000294 00000318                    3745+         DC    A($DCT7)            ADDRESS OF NEXT DCT                  N0122000
000298 C9D5E3D9C4D9F240            3746+         DC    CL8'INTRDR2'                 DEVICE NAME                 N0132000
0002A0 00                          3747+         DC    AL1(0)              PRINT DESTINATION                    N0136000
0002A1 00                          3748+         DC    AL1(0)              PUNCH DESTINATION                    N0138000
0002A2 00                          3749+         DC    AL1(0)              PRIORITY INCREMENT                   N0140000
0002A3 0F                          3750+         DC    AL1(15)             PRIORITY LIMIT                       N0142000
0002A4 0000000000000000            3751+         DC    2F'0'               UNUSED                               N0142400
0002AC 00                          3752+         DC    AL1(0)              UNUSED                               N0142800
0002AD 4040404040404040            3753+         DC    CL8' '              UNUSED                               N0143200

0002B5 40                          3754+         DC    C' '                UNUSED                               N0143600
0002B6 0000
0002B8 0000000000000000            3755+         DC    (24)F'0'            VARIABLE DEVICE WORK AREA            N0148000

000318                             3756+$DCT7     DS   0F                                                       N0082000
000318 40                          3757+         DC    AL1(DCTDRAIN)       DEVICE IS DRAINED                    N0092000
000319 000000                      3758+         DC    AL3(0)              PCE ADDRESS                          N0094000
00031C 00000000                    3759+         DC    A(0)                BUFFER ADDRESS                       N0096000
000320 00000003                    3760+         DC    A(3)                DCB ADDRESS                          N0104000
000324 00000000                    3761+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000328 00                          3762+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
000329 00                          3763+         DC    AL1(0)              DCT NUMBER                           N0110000
00032A 14                          3764+         DC    AL1(DCTINR)         DEVICE TYPE                          N0112000
00032B 00                          3765+         DC    AL1(0)              RESERVED                             N0120000
00032C 000003B0                    3766+         DC    A($DCT8)            ADDRESS OF NEXT DCT                  N0122000
000330 C9D5E3D9C4D9F340            3767+         DC    CL8'INTRDR3'                 DEVICE NAME                 N0132000

000338 00                          3768+         DC    AL1(0)              PRINT DESTINATION                    N0136000
000339 00                          3769+         DC    AL1(0)              PUNCH DESTINATION                    N0138000
00033A 00                          3770+         DC    AL1(0)              PRIORITY INCREMENT                   N0140000

00033B 0F                          3771+         DC    AL1(15)             PRIORITY LIMIT                       N0142000
INIT     HASP DEVICE CONTROL TABLES                                                                            PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00033C 0000000000000000            3772+         DC    2F'0'               UNUSED                               N0142400
000344 00                          3773+         DC    AL1(0)              UNUSED                               N0142800
000345 4040404040404040            3774+         DC    CL8' '              UNUSED                               N0143200
00034D 40                          3775+         DC    C' '                UNUSED                               N0143600
00034E 0000
000350 0000000000000000            3776+         DC    (24)F'0'            VARIABLE DEVICE WORK AREA            N0148000
0003B0                             3777+$DCT8     DS   0F                                                       N0082000
0003B0 40                          3778+         DC    AL1(DCTDRAIN)       DEVICE IS DRAINED                    N0092000
0003B1 000000                      3779+         DC    AL3(0)              PCE ADDRESS                          N0094000

0003B4 00000000                    3780+         DC    A(0)                BUFFER ADDRESS                       N0096000
0003B8 00000004                    3781+         DC    A(4)                DCB ADDRESS                          N0104000
0003BC 00000000                    3782+         DC    A(0)                EVENT WAIT FIELD                     N0106000
0003C0 00                          3783+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000

0003C1 00                          3784+         DC    AL1(0)              DCT NUMBER                           N0110000
0003C2 14                          3785+         DC    AL1(DCTINR)         DEVICE TYPE                          N0112000
0003C3 00                          3786+         DC    AL1(0)              RESERVED                             N0120000
0003C4 00000448                    3787+         DC    A($DCT9)            ADDRESS OF NEXT DCT                  N0122000
0003C8 C9D5E3D9C4D9F440            3788+         DC    CL8'INTRDR4'                 DEVICE NAME                 N0132000
0003D0 00                          3789+         DC    AL1(0)              PRINT DESTINATION                    N0136000

0003D1 00                          3790+         DC    AL1(0)              PUNCH DESTINATION                    N0138000
0003D2 00                          3791+         DC    AL1(0)              PRIORITY INCREMENT                   N0140000
0003D3 0F                          3792+         DC    AL1(15)             PRIORITY LIMIT                       N0142000
0003D4 0000000000000000            3793+         DC    2F'0'               UNUSED                               N0142400
0003DC 00                          3794+         DC    AL1(0)              UNUSED                               N0142800
0003DD 4040404040404040            3795+         DC    CL8' '              UNUSED                               N0143200
0003E5 40                          3796+         DC    C' '                UNUSED                               N0143600
0003E6 0000

0003E8 0000000000000000            3797+         DC    (24)F'0'            VARIABLE DEVICE WORK AREA            N0148000
000448                             3798+$DCT9     DS   0F                                                       N0082000

000448 40                          3799+         DC    AL1(DCTDRAIN)       DEVICE IS DRAINED                    N0092000
000449 000000                      3800+         DC    AL3(0)              PCE ADDRESS                          N0094000
00044C 00000000                    3801+         DC    A(0)                BUFFER ADDRESS                       N0096000
000450 00000005                    3802+         DC    A(5)                DCB ADDRESS                          N0104000
000454 00000000                    3803+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000458 00                          3804+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
000459 00                          3805+         DC    AL1(0)              DCT NUMBER                           N0110000
00045A 14                          3806+         DC    AL1(DCTINR)         DEVICE TYPE                          N0112000

00045B 00                          3807+         DC    AL1(0)              RESERVED                             N0120000
00045C 000004E0                    3808+         DC    A($DCT10)           ADDRESS OF NEXT DCT                  N0122000
000460 C9D5E3D9C4D9F540            3809+         DC    CL8'INTRDR5'                 DEVICE NAME                 N0132000
000468 00                          3810+         DC    AL1(0)              PRINT DESTINATION                    N0136000
000469 00                          3811+         DC    AL1(0)              PUNCH DESTINATION                    N0138000

00046A 00                          3812+         DC    AL1(0)              PRIORITY INCREMENT                   N0140000
00046B 0F                          3813+         DC    AL1(15)             PRIORITY LIMIT                       N0142000
00046C 0000000000000000            3814+         DC    2F'0'               UNUSED                               N0142400

000474 00                          3815+         DC    AL1(0)              UNUSED                               N0142800
000475 4040404040404040            3816+         DC    CL8' '              UNUSED                               N0143200
00047D 40                          3817+         DC    C' '                UNUSED                               N0143600
00047E 0000
000480 0000000000000000            3818+         DC    (24)F'0'            VARIABLE DEVICE WORK AREA            N0148000
0004E0                             3819+$DCT10    DS   0F                                                       N0082000
0004E0 40                          3820+         DC    AL1(DCTDRAIN)       DEVICE IS DRAINED                    N0092000

0004E1 000000                      3821+         DC    AL3(0)              PCE ADDRESS                          N0094000
0004E4 00000000                    3822+         DC    A(0)                BUFFER ADDRESS                       N0096000
0004E8 00000006                    3823+         DC    A(6)                DCB ADDRESS                          N0104000
INIT     HASP DEVICE CONTROL TABLES                                                                            PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


0004EC 00000000                    3824+         DC    A(0)                EVENT WAIT FIELD                     N0106000
0004F0 00                          3825+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
0004F1 00                          3826+         DC    AL1(0)              DCT NUMBER                           N0110000
0004F2 14                          3827+         DC    AL1(DCTINR)         DEVICE TYPE                          N0112000

0004F3 00                          3828+         DC    AL1(0)              RESERVED                             N0120000
0004F4 00000578                    3829+         DC    A($DCT11)           ADDRESS OF NEXT DCT                  N0122000
0004F8 C9D5E3D9C4D9F640            3830+         DC    CL8'INTRDR6'                 DEVICE NAME                 N0132000
000500 00                          3831+         DC    AL1(0)              PRINT DESTINATION                    N0136000
000501 00                          3832+         DC    AL1(0)              PUNCH DESTINATION                    N0138000
000502 00                          3833+         DC    AL1(0)              PRIORITY INCREMENT                   N0140000

000503 0F                          3834+         DC    AL1(15)             PRIORITY LIMIT                       N0142000
000504 0000000000000000            3835+         DC    2F'0'               UNUSED                               N0142400
00050C 00                          3836+         DC    AL1(0)              UNUSED                               N0142800
00050D 4040404040404040            3837+         DC    CL8' '              UNUSED                               N0143200
000515 40                          3838+         DC    C' '                UNUSED                               N0143600

000516 0000
000518 0000000000000000            3839+         DC    (24)F'0'            VARIABLE DEVICE WORK AREA            N0148000
                                   3840 *                                                                       N0716000
                                   3841 *                             LINE DEVICE CONTROL TABLE(S)              N0718000
                                   3842 *                                                                       N0720000

                                   3843 $LNEDCT  $GENDCT LNE,&NUMLNES,LINE,WORKWDS=5                            N0722000
000578                             3844+$LNEDCT  DS    0F                                                       N0074000
                                   3845 *                                                                       N0724000
                                   3846 *                             REMOTE DEVICE CONTROL TABLES              N0726000
                                   3847 *                                                                       N0728000

                                   3848 $RMTDCT  $GENDCT RJR,&NUMRJE,(RM,.RD1),WORKWDS=2                        N0730000
000578                             3849+$RMTDCT  DS    0F                                                       N0074000
                                   3850          $GENDCT RPR,&NUMRJE,(RM,.PR1),WORKWDS=2                        N0732000
000578                             3851+         DS    0F                                                       N0074000
                                   3852          AIF   (&NUMTPPU EQ 0).NORMTPU                                  N0734000

                                   3853 .NORMTPU ANOP                      *                                    N0738000
                                   3854 &MAXDADC SETA  &NUMRDRS+&NUMINRS+&MAXXEQS+&NUMPRTS+&NUMPUNS             N0754000
                                   3855 &MAXDADC SETA  &MAXDADC+&NUMTPBF+2                                      N0756000
                                   3856         $GENDCT DA,&MAXDADC                                             N0758000
000578                             3857+         DS    0F                                                       N0074000
000578                             3858+$DCT11    DS   0F                                                       N0082000

000578 00                          3859+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
000579 000000                      3860+         DC    AL3(0)              PCE ADDRESS                          N0094000
00057C 00000000                    3861+         DC    A(0)                BUFFER ADDRESS                       N0096000
000580 00000000                    3862+         DC    A(0)                DA TRACK ADDRESS                     N0100000

000584 00000000                    3863+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000588 00                          3864+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
000589 00                          3865+         DC    AL1(0)              DCT NUMBER                           N0110000
00058A 00                          3866+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000
00058B 40                          3867+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000

00058C 00000590                    3868+         DC    A($DCT12)           ADDRESS OF NEXT DCT                  N0122000
000590                             3869+$DCT12    DS   0F                                                       N0082000
000590 00                          3870+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
000591 000000                      3871+         DC    AL3(0)              PCE ADDRESS                          N0094000
000594 00000000                    3872+         DC    A(0)                BUFFER ADDRESS                       N0096000
000598 00000000                    3873+         DC    A(0)                DA TRACK ADDRESS                     N0100000
00059C 00000000                    3874+         DC    A(0)                EVENT WAIT FIELD                     N0106000

0005A0 00                          3875+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
0005A1 00                          3876+         DC    AL1(0)              DCT NUMBER                           N0110000
0005A2 00                          3877+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000

INIT     HASP DEVICE CONTROL TABLES                                                                            PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0005A3 40                          3878+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
0005A4 000005A8                    3879+         DC    A($DCT13)           ADDRESS OF NEXT DCT                  N0122000
0005A8                             3880+$DCT13    DS   0F                                                       N0082000

0005A8 00                          3881+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
0005A9 000000                      3882+         DC    AL3(0)              PCE ADDRESS                          N0094000
0005AC 00000000                    3883+         DC    A(0)                BUFFER ADDRESS                       N0096000
0005B0 00000000                    3884+         DC    A(0)                DA TRACK ADDRESS                     N0100000
0005B4 00000000                    3885+         DC    A(0)                EVENT WAIT FIELD                     N0106000
0005B8 00                          3886+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
0005B9 00                          3887+         DC    AL1(0)              DCT NUMBER                           N0110000
0005BA 00                          3888+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000

0005BB 40                          3889+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
0005BC 000005C0                    3890+         DC    A($DCT14)           ADDRESS OF NEXT DCT                  N0122000

0005C0                             3891+$DCT14    DS   0F                                                       N0082000
0005C0 00                          3892+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
0005C1 000000                      3893+         DC    AL3(0)              PCE ADDRESS                          N0094000
0005C4 00000000                    3894+         DC    A(0)                BUFFER ADDRESS                       N0096000
0005C8 00000000                    3895+         DC    A(0)                DA TRACK ADDRESS                     N0100000

0005CC 00000000                    3896+         DC    A(0)                EVENT WAIT FIELD                     N0106000
0005D0 00                          3897+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
0005D1 00                          3898+         DC    AL1(0)              DCT NUMBER                           N0110000
0005D2 00                          3899+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000
0005D3 40                          3900+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
0005D4 000005D8                    3901+         DC    A($DCT15)           ADDRESS OF NEXT DCT                  N0122000
0005D8                             3902+$DCT15    DS   0F                                                       N0082000
0005D8 00                          3903+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
0005D9 000000                      3904+         DC    AL3(0)              PCE ADDRESS                          N0094000

0005DC 00000000                    3905+         DC    A(0)                BUFFER ADDRESS                       N0096000

0005E0 00000000                    3906+         DC    A(0)                DA TRACK ADDRESS                     N0100000
0005E4 00000000                    3907+         DC    A(0)                EVENT WAIT FIELD                     N0106000
0005E8 00                          3908+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
0005E9 00                          3909+         DC    AL1(0)              DCT NUMBER                           N0110000
0005EA 00                          3910+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000

0005EB 40                          3911+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
0005EC 000005F0                    3912+         DC    A($DCT16)           ADDRESS OF NEXT DCT                  N0122000
0005F0                             3913+$DCT16    DS   0F                                                       N0082000
0005F0 00                          3914+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
0005F1 000000                      3915+         DC    AL3(0)              PCE ADDRESS                          N0094000
0005F4 00000000                    3916+         DC    A(0)                BUFFER ADDRESS                       N0096000
0005F8 00000000                    3917+         DC    A(0)                DA TRACK ADDRESS                     N0100000
0005FC 00000000                    3918+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000600 00                          3919+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
000601 00                          3920+         DC    AL1(0)              DCT NUMBER                           N0110000

000602 00                          3921+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000

000603 40                          3922+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
000604 00000608                    3923+         DC    A($DCT17)           ADDRESS OF NEXT DCT                  N0122000
000608                             3924+$DCT17    DS   0F                                                       N0082000
000608 00                          3925+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000

000609 000000                      3926+         DC    AL3(0)              PCE ADDRESS                          N0094000
00060C 00000000                    3927+         DC    A(0)                BUFFER ADDRESS                       N0096000
000610 00000000                    3928+         DC    A(0)                DA TRACK ADDRESS                     N0100000
000614 00000000                    3929+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000618 00                          3930+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
000619 00                          3931+         DC    AL1(0)              DCT NUMBER                           N0110000
00061A 00                          3932+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000
INIT     HASP DEVICE CONTROL TABLES                                                                            PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00061B 40                          3933+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
00061C 00000620                    3934+         DC    A($DCT18)           ADDRESS OF NEXT DCT                  N0122000

000620                             3935+$DCT18    DS   0F                                                       N0082000
000620 00                          3936+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
000621 000000                      3937+         DC    AL3(0)              PCE ADDRESS                          N0094000
000624 00000000                    3938+         DC    A(0)                BUFFER ADDRESS                       N0096000

000628 00000000                    3939+         DC    A(0)                DA TRACK ADDRESS                     N0100000
00062C 00000000                    3940+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000630 00                          3941+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
000631 00                          3942+         DC    AL1(0)              DCT NUMBER                           N0110000
000632 00                          3943+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000
000633 40                          3944+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
000634 00000638                    3945+         DC    A($DCT19)           ADDRESS OF NEXT DCT                  N0122000
000638                             3946+$DCT19    DS   0F                                                       N0082000
000638 00                          3947+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
000639 000000                      3948+         DC    AL3(0)              PCE ADDRESS                          N0094000
00063C 00000000                    3949+         DC    A(0)                BUFFER ADDRESS                       N0096000
000640 00000000                    3950+         DC    A(0)                DA TRACK ADDRESS                     N0100000

000644 00000000                    3951+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000648 00                          3952+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
000649 00                          3953+         DC    AL1(0)              DCT NUMBER                           N0110000

00064A 00                          3954+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000
00064B 40                          3955+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
00064C 00000650                    3956+         DC    A($DCT20)           ADDRESS OF NEXT DCT                  N0122000
000650                             3957+$DCT20    DS   0F                                                       N0082000
000650 00                          3958+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
000651 000000                      3959+         DC    AL3(0)              PCE ADDRESS                          N0094000
000654 00000000                    3960+         DC    A(0)                BUFFER ADDRESS                       N0096000
000658 00000000                    3961+         DC    A(0)                DA TRACK ADDRESS                     N0100000
00065C 00000000                    3962+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000660 00                          3963+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
000661 00                          3964+         DC    AL1(0)              DCT NUMBER                           N0110000
000662 00                          3965+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000

000663 40                          3966+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000

000664 00000668                    3967+         DC    A($DCT21)           ADDRESS OF NEXT DCT                  N0122000
000668                             3968+$DCT21    DS   0F                                                       N0082000

000668 00                          3969+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
000669 000000                      3970+         DC    AL3(0)              PCE ADDRESS                          N0094000
00066C 00000000                    3971+         DC    A(0)                BUFFER ADDRESS                       N0096000
000670 00000000                    3972+         DC    A(0)                DA TRACK ADDRESS                     N0100000
000674 00000000                    3973+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000678 00                          3974+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
000679 00                          3975+         DC    AL1(0)              DCT NUMBER                           N0110000
00067A 00                          3976+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000
00067B 40                          3977+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
00067C 00000680                    3978+         DC    A($DCT22)           ADDRESS OF NEXT DCT                  N0122000
000680                             3979+$DCT22    DS   0F                                                       N0082000
000680 00                          3980+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000

000681 000000                      3981+         DC    AL3(0)              PCE ADDRESS                          N0094000
000684 00000000                    3982+         DC    A(0)                BUFFER ADDRESS                       N0096000

000688 00000000                    3983+         DC    A(0)                DA TRACK ADDRESS                     N0100000

00068C 00000000                    3984+         DC    A(0)                EVENT WAIT FIELD                     N0106000
000690 00                          3985+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
000691 00                          3986+         DC    AL1(0)              DCT NUMBER                           N0110000
000692 00                          3987+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000
INIT     HASP DEVICE CONTROL TABLES                                                                            PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000693 40                          3988+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
000694 00000698                    3989+         DC    A($DCT23)           ADDRESS OF NEXT DCT                  N0122000
000698                             3990+$DCT23    DS   0F                                                       N0082000
000698 00                          3991+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
000699 000000                      3992+         DC    AL3(0)              PCE ADDRESS                          N0094000
00069C 00000000                    3993+         DC    A(0)                BUFFER ADDRESS                       N0096000

0006A0 00000000                    3994+         DC    A(0)                DA TRACK ADDRESS                     N0100000
0006A4 00000000                    3995+         DC    A(0)                EVENT WAIT FIELD                     N0106000

0006A8 00                          3996+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000

0006A9 00                          3997+         DC    AL1(0)              DCT NUMBER                           N0110000
0006AA 00                          3998+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000
0006AB 40                          3999+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
0006AC 000006B0                    4000+         DC    A($DCT24)           ADDRESS OF NEXT DCT                  N0122000
0006B0                             4001+$DCT24    DS   0F                                                       N0082000
0006B0 00                          4002+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
0006B1 000000                      4003+         DC    AL3(0)              PCE ADDRESS                          N0094000
0006B4 00000000                    4004+         DC    A(0)                BUFFER ADDRESS                       N0096000
0006B8 00000000                    4005+         DC    A(0)                DA TRACK ADDRESS                     N0100000
0006BC 00000000                    4006+         DC    A(0)                EVENT WAIT FIELD                     N0106000
0006C0 00                          4007+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
0006C1 00                          4008+         DC    AL1(0)              DCT NUMBER                           N0110000

0006C2 00                          4009+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000
0006C3 40                          4010+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
0006C4 000006C8                    4011+         DC    A($DCT25)           ADDRESS OF NEXT DCT                  N0122000

0006C8                             4012+$DCT25    DS   0F                                                       N0082000
0006C8 00                          4013+         DC    AL1(0)              DEVICE AVAILABLE                     N0088000
0006C9 000000                      4014+         DC    AL3(0)              PCE ADDRESS                          N0094000
0006CC 00000000                    4015+         DC    A(0)                BUFFER ADDRESS                       N0096000
0006D0 00000000                    4016+         DC    A(0)                DA TRACK ADDRESS                     N0100000
0006D4 00000000                    4017+         DC    A(0)                EVENT WAIT FIELD                     N0106000
0006D8 00                          4018+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
0006D9 00                          4019+         DC    AL1(0)              DCT NUMBER                           N0110000
0006DA 00                          4020+         DC    AL1(DCTDA)          DEVICE TYPE                          N0112000
0006DB 40                          4021+         DC    AL1(DCTWRITE)       I/O TYPE                             N0116000
0006DC 000006E0                    4022+         DC    A($DCT26)           ADDRESS OF NEXT DCT                  N0122000
                                   4023          AIF   (&NUMLNES EQ 0 OR &SPOLMSG EQ 0).INOLINA                 N0762000

                                   4024 .INOLINA ANOP                                                           N0772000
                                   4025 *                                                                       N0774000
                                   4026 *                             OVERLAY DEVICE CONTROL TABLE              N0776000
                                   4027 *                                                                       N0778000

                                   4028 $OLAYDCT $GENDCT OLAY,1,OLAY                                            N0780000
0006E0                             4029+$OLAYDCT DS    0F                                                       N0074000
0006E0                             4030+$DCT26    DS   0F                                                       N0082000
0006E0 40                          4031+         DC    AL1(DCTDRAIN)       DEVICE IS DRAINED                    N0092000
0006E1 000000                      4032+         DC    AL3(0)              PCE ADDRESS                          N0094000
0006E4 00000000                    4033+         DC    A(0)                BUFFER ADDRESS                       N0096000

0006E8 00000001                    4034+         DC    A(1)                DCB ADDRESS                          N0104000
0006EC 00000000                    4035+         DC    A(0)                EVENT WAIT FIELD                     N0106000
0006F0 00                          4036+         DC    AL1(0)              ACTIVE BUFFER COUNT                  N0108000
0006F1 00                          4037+         DC    AL1(0)              DCT NUMBER                           N0110000
0006F2 01                          4038+         DC    AL1(DCTOLAY)        DEVICE TYPE                          N0112000
0006F3 00                          4039+         DC    AL1(0)              RESERVED                             N0120000
0006F4 00000000                    4040+         DC    A($DCT27)           ADDRESS OF NEXT DCT                  N0122000
0006F8 D6D3C1E8F1404040            4041+         DC    CL8'OLAY1'                   DEVICE NAME                 N0132000

000700 00                          4042+         DC    AL1(0)              PRINT DESTINATION                    N0136000
INIT     HASP DEVICE CONTROL TABLES                                                                            PAGE   88



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000701 00                          4043+         DC    AL1(0)              PUNCH DESTINATION                    N0138000
000702 00                          4044+         DC    AL1(0)              PRIORITY INCREMENT                   N0140000
000703 0F                          4045+         DC    AL1(15)             PRIORITY LIMIT                       N0142000
000704 0000000000000000            4046+         DC    2F'0'               UNUSED                               N0142400
00070C 00                          4047+         DC    AL1(0)              UNUSED                               N0142800
00070D 4040404040404040            4048+         DC    CL8' '              UNUSED                               N0143200
000715 40                          4049+         DC    C' '                UNUSED                               N0143600

000716 0000
000718                             4050+         DC    (0)F'0'             VARIABLE DEVICE WORK AREA            N0148000
                                   4051 $DCT&TEMP EQU  0                   TERMINATE CHAIN                      N0782000
                            00000  4052+$DCT27    EQU  0                   TERMINATE CHAIN                      N0782000
INIT     HASP SPOOL EXTENT DATA TABLES                                                                         PAGE   89



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

000718                             4054 TEDSTART DS    0F                                                       N0786000
                                   4055          $TED  GEN=YES                                                  N0788000



                                   4057+*,EXTENT DATA TABLE FOR MODULE 0

000718 00000000                    4059+         DC    F'0'                TNCH - SEEK ADR OF MOST-RECENT $EXCP TE108000
00071C 00000000                    4060+         DC    F'0'                TNTC - NR OF TRACKS PER CYLINDER     TE110000
000720 0000                        4061+         DC    HS8'0'              TNMD - EXTENT NR, SHIFTED LEFT 8     TE112000
000722 0000                        4062+         DC    H'0'                TNRT - NR OF RECORDS PER TRACK       TE114000

000724 0190                        4063+         DC    H'400'              TNGE - NUMBER OF GROUPS PER EXTENT   TE116000
000726 0001                        4064+         DC    H'1'                TNTG - NR OF TRACKS PER GROUP        TE118000
000728 0000                        4065+         DC    H'0'                TNMO - OFFSET OF THIS MAP FROM FIRST TE124000
00072A 0032                        4066+         DC    H'50'               TNMB - NUMBER OF BYTES PER MAP       TE134000



                                   4068+*,EXTENT DATA TABLE FOR MODULE 1

00072C 00000000                    4070+         DC    F'0'                TNCH - SEEK ADR OF MOST-RECENT $EXCP TE108000
000730 00000000                    4071+         DC    F'0'                TNTC - NR OF TRACKS PER CYLINDER     TE110000

000734 0100                        4072+         DC    HS8'1'              TNMD - EXTENT NR, SHIFTED LEFT 8     TE112000
000736 0000                        4073+         DC    H'0'                TNRT - NR OF RECORDS PER TRACK       TE114000
000738 0190                        4074+         DC    H'400'              TNGE - NUMBER OF GROUPS PER EXTENT   TE116000
00073A 0001                        4075+         DC    H'1'                TNTG - NR OF TRACKS PER GROUP        TE118000
00073C 0032                        4076+         DC    H'50'               TNMO - OFFSET OF THIS MAP FROM FIRST TE124000
00073E 0032                        4077+         DC    H'50'               TNMB - NUMBER OF BYTES PER MAP       TE134000



INIT     HASP CONSOLE MESSAGE BUFFERS                                                                          PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4080         $GENWTOQ                   GENERATE CONSOLE MESSAGE BUFFERS     N0800000
000740                             4081+W1       DS    0F                                                       N0256000

000740 000007CC                    4082+         DC    A(W2)               CHAIN WORD                           N0260000
000744 00000000                    4083+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
000748 5B40404040404040            4084+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
000753 D1D6C24040404040            4085+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0007CC                             4086+W2       DS    0F                                                       N0256000

0007CC 00000858                    4087+         DC    A(W3)               CHAIN WORD                           N0260000
0007D0 00000000                    4088+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
0007D4 5B40404040404040            4089+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
0007DF D1D6C24040404040            4090+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
000858                             4091+W3       DS    0F                                                       N0256000

000858 000008E4                    4092+         DC    A(W4)               CHAIN WORD                           N0260000
00085C 00000000                    4093+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
000860 5B40404040404040            4094+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
00086B D1D6C24040404040            4095+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0008E4                             4096+W4       DS    0F                                                       N0256000

0008E4 00000970                    4097+         DC    A(W5)               CHAIN WORD                           N0260000
0008E8 00000000                    4098+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
0008EC 5B40404040404040            4099+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
0008F7 D1D6C24040404040            4100+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
000970                             4101+W5       DS    0F                                                       N0256000
000970 000009FC                    4102+         DC    A(W6)               CHAIN WORD                           N0260000

000974 00000000                    4103+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
000978 5B40404040404040            4104+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
000983 D1D6C24040404040            4105+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0009FC                             4106+W6       DS    0F                                                       N0256000

0009FC 00000A88                    4107+         DC    A(W7)               CHAIN WORD                           N0260000
000A00 00000000                    4108+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
000A04 5B40404040404040            4109+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
000A0F D1D6C24040404040            4110+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
000A88                             4111+W7       DS    0F                                                       N0256000

000A88 00000B14                    4112+         DC    A(W8)               CHAIN WORD                           N0260000
000A8C 00000000                    4113+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
000A90 5B40404040404040            4114+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
000A9B D1D6C24040404040            4115+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
000B14                             4116+W8       DS    0F                                                       N0256000
000B14 00000BA0                    4117+         DC    A(W9)               CHAIN WORD                           N0260000
000B18 00000000                    4118+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000

000B1C 5B40404040404040            4119+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
000B27 D1D6C24040404040            4120+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
000BA0                             4121+W9       DS    0F                                                       N0256000

000BA0 00000C2C                    4122+         DC    A(W10)              CHAIN WORD                           N0260000
000BA4 00000000                    4123+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
000BA8 5B40404040404040            4124+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
000BB3 D1D6C24040404040            4125+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
000C2C                             4126+W10      DS    0F                                                       N0256000

000C2C 00000CB8                    4127+         DC    A(W11)              CHAIN WORD                           N0260000
000C30 00000000                    4128+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
000C34 5B40404040404040            4129+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
000C3F D1D6C24040404040            4130+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
000CB8                             4131+W11      DS    0F                                                       N0256000
000CB8 00000D44                    4132+         DC    A(W12)              CHAIN WORD                           N0260000
000CBC 00000000                    4133+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
000CC0 5B40404040404040            4134+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

INIT     HASP CONSOLE MESSAGE BUFFERS                                                                          PAGE   91


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


000CCB D1D6C24040404040            4135+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
000D44                             4136+W12      DS    0F                                                       N0256000
000D44 00000DD0                    4137+         DC    A(W13)              CHAIN WORD                           N0260000
000D48 00000000                    4138+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
000D4C 5B40404040404040            4139+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

000D57 D1D6C24040404040            4140+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
000DD0                             4141+W13      DS    0F                                                       N0256000
000DD0 00000E5C                    4142+         DC    A(W14)              CHAIN WORD                           N0260000
000DD4 00000000                    4143+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
000DD8 5B40404040404040            4144+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
000DE3 D1D6C24040404040            4145+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
000E5C                             4146+W14      DS    0F                                                       N0256000
000E5C 00000EE8                    4147+         DC    A(W15)              CHAIN WORD                           N0260000
000E60 00000000                    4148+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000

000E64 5B40404040404040            4149+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

000E6F D1D6C24040404040            4150+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
000EE8                             4151+W15      DS    0F                                                       N0256000
000EE8 00000F74                    4152+         DC    A(W16)              CHAIN WORD                           N0260000
000EEC 00000000                    4153+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
000EF0 5B40404040404040            4154+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

000EFB D1D6C24040404040            4155+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
000F74                             4156+W16      DS    0F                                                       N0256000
000F74 00001000                    4157+         DC    A(W17)              CHAIN WORD                           N0260000
000F78 00000000                    4158+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
000F7C 5B40404040404040            4159+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
000F87 D1D6C24040404040            4160+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001000                             4161+W17      DS    0F                                                       N0256000
001000 0000108C                    4162+         DC    A(W18)              CHAIN WORD                           N0260000
001004 00000000                    4163+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001008 5B40404040404040            4164+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

001013 D1D6C24040404040            4165+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000

00108C                             4166+W18      DS    0F                                                       N0256000
00108C 00001118                    4167+         DC    A(W19)              CHAIN WORD                           N0260000
001090 00000000                    4168+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001094 5B40404040404040            4169+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

00109F D1D6C24040404040            4170+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001118                             4171+W19      DS    0F                                                       N0256000
001118 000011A4                    4172+         DC    A(W20)              CHAIN WORD                           N0260000
00111C 00000000                    4173+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001120 5B40404040404040            4174+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
00112B D1D6C24040404040            4175+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0011A4                             4176+W20      DS    0F                                                       N0256000
0011A4 00001230                    4177+         DC    A(W21)              CHAIN WORD                           N0260000
0011A8 00000000                    4178+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
0011AC 5B40404040404040            4179+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
0011B7 D1D6C24040404040            4180+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000

001230                             4181+W21      DS    0F                                                       N0256000
001230 000012BC                    4182+         DC    A(W22)              CHAIN WORD                           N0260000
001234 00000000                    4183+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001238 5B40404040404040            4184+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

001243 D1D6C24040404040            4185+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0012BC                             4186+W22      DS    0F                                                       N0256000
0012BC 00001348                    4187+         DC    A(W23)              CHAIN WORD                           N0260000
0012C0 00000000                    4188+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
0012C4 5B40404040404040            4189+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
INIT     HASP CONSOLE MESSAGE BUFFERS                                                                          PAGE   92


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0012CF D1D6C24040404040            4190+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001348                             4191+W23      DS    0F                                                       N0256000
001348 000013D4                    4192+         DC    A(W24)              CHAIN WORD                           N0260000
00134C 00000000                    4193+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001350 5B40404040404040            4194+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

00135B D1D6C24040404040            4195+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0013D4                             4196+W24      DS    0F                                                       N0256000
0013D4 00001460                    4197+         DC    A(W25)              CHAIN WORD                           N0260000

0013D8 00000000                    4198+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
0013DC 5B40404040404040            4199+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
0013E7 D1D6C24040404040            4200+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001460                             4201+W25      DS    0F                                                       N0256000
001460 000014EC                    4202+         DC    A(W26)              CHAIN WORD                           N0260000
001464 00000000                    4203+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001468 5B40404040404040            4204+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
001473 D1D6C24040404040            4205+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0014EC                             4206+W26      DS    0F                                                       N0256000
0014EC 00001578                    4207+         DC    A(W27)              CHAIN WORD                           N0260000
0014F0 00000000                    4208+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
0014F4 5B40404040404040            4209+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

0014FF D1D6C24040404040            4210+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001578                             4211+W27      DS    0F                                                       N0256000
001578 00001604                    4212+         DC    A(W28)              CHAIN WORD                           N0260000

00157C 00000000                    4213+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001580 5B40404040404040            4214+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
00158B D1D6C24040404040            4215+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001604                             4216+W28      DS    0F                                                       N0256000
001604 00001690                    4217+         DC    A(W29)              CHAIN WORD                           N0260000
001608 00000000                    4218+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
00160C 5B40404040404040            4219+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
001617 D1D6C24040404040            4220+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001690                             4221+W29      DS    0F                                                       N0256000
001690 0000171C                    4222+         DC    A(W30)              CHAIN WORD                           N0260000
001694 00000000                    4223+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001698 5B40404040404040            4224+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

0016A3 D1D6C24040404040            4225+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000

00171C                             4226+W30      DS    0F                                                       N0256000
00171C 000017A8                    4227+         DC    A(W31)              CHAIN WORD                           N0260000

001720 00000000                    4228+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001724 5B40404040404040            4229+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
00172F D1D6C24040404040            4230+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0017A8                             4231+W31      DS    0F                                                       N0256000
0017A8 00001834                    4232+         DC    A(W32)              CHAIN WORD                           N0260000
0017AC 00000000                    4233+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
0017B0 5B40404040404040            4234+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
0017BB D1D6C24040404040            4235+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001834                             4236+W32      DS    0F                                                       N0256000
001834 000018C0                    4237+         DC    A(W33)              CHAIN WORD                           N0260000
001838 00000000                    4238+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
00183C 5B40404040404040            4239+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

001847 D1D6C24040404040            4240+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0018C0                             4241+W33      DS    0F                                                       N0256000

0018C0 0000194C                    4242+         DC    A(W34)              CHAIN WORD                           N0260000

0018C4 00000000                    4243+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
0018C8 5B40404040404040            4244+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
INIT     HASP CONSOLE MESSAGE BUFFERS                                                                          PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0018D3 D1D6C24040404040            4245+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
00194C                             4246+W34      DS    0F                                                       N0256000
00194C 000019D8                    4247+         DC    A(W35)              CHAIN WORD                           N0260000
001950 00000000                    4248+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001954 5B40404040404040            4249+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
00195F D1D6C24040404040            4250+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0019D8                             4251+W35      DS    0F                                                       N0256000
0019D8 00001A64                    4252+         DC    A(W36)              CHAIN WORD                           N0260000

0019DC 00000000                    4253+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
0019E0 5B40404040404040            4254+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
0019EB D1D6C24040404040            4255+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000

001A64                             4256+W36      DS    0F                                                       N0256000
001A64 00001AF0                    4257+         DC    A(W37)              CHAIN WORD                           N0260000
001A68 00000000                    4258+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001A6C 5B40404040404040            4259+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
001A77 D1D6C24040404040            4260+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001AF0                             4261+W37      DS    0F                                                       N0256000
001AF0 00001B7C                    4262+         DC    A(W38)              CHAIN WORD                           N0260000
001AF4 00000000                    4263+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001AF8 5B40404040404040            4264+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
001B03 D1D6C24040404040            4265+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001B7C                             4266+W38      DS    0F                                                       N0256000
001B7C 00001C08                    4267+         DC    A(W39)              CHAIN WORD                           N0260000

001B80 00000000                    4268+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001B84 5B40404040404040            4269+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
001B8F D1D6C24040404040            4270+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001C08                             4271+W39      DS    0F                                                       N0256000

001C08 00001C94                    4272+         DC    A(W40)              CHAIN WORD                           N0260000
001C0C 00000000                    4273+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001C10 5B40404040404040            4274+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
001C1B D1D6C24040404040            4275+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001C94                             4276+W40      DS    0F                                                       N0256000
001C94 00001D20                    4277+         DC    A(W41)              CHAIN WORD                           N0260000

001C98 00000000                    4278+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001C9C 5B40404040404040            4279+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
001CA7 D1D6C24040404040            4280+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001D20                             4281+W41      DS    0F                                                       N0256000
001D20 00001DAC                    4282+         DC    A(W42)              CHAIN WORD                           N0260000
001D24 00000000                    4283+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001D28 5B40404040404040            4284+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
001D33 D1D6C24040404040            4285+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000

001DAC                             4286+W42      DS    0F                                                       N0256000
001DAC 00001E38                    4287+         DC    A(W43)              CHAIN WORD                           N0260000

001DB0 00000000                    4288+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001DB4 5B40404040404040            4289+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
001DBF D1D6C24040404040            4290+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001E38                             4291+W43      DS    0F                                                       N0256000
001E38 00001EC4                    4292+         DC    A(W44)              CHAIN WORD                           N0260000
001E3C 00000000                    4293+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001E40 5B40404040404040            4294+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
001E4B D1D6C24040404040            4295+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000

001EC4                             4296+W44      DS    0F                                                       N0256000
001EC4 00001F50                    4297+         DC    A(W45)              CHAIN WORD                           N0260000
001EC8 00000000                    4298+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001ECC 5B40404040404040            4299+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
INIT     HASP CONSOLE MESSAGE BUFFERS                                                                          PAGE   94



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

001ED7 D1D6C24040404040            4300+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001F50                             4301+W45      DS    0F                                                       N0256000

001F50 00001FDC                    4302+         DC    A(W46)              CHAIN WORD                           N0260000
001F54 00000000                    4303+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
001F58 5B40404040404040            4304+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
001F63 D1D6C24040404040            4305+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
001FDC                             4306+W46      DS    0F                                                       N0256000
001FDC 00002068                    4307+         DC    A(W47)              CHAIN WORD                           N0260000
001FE0 00000000                    4308+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000

001FE4 5B40404040404040            4309+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
001FEF D1D6C24040404040            4310+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
002068                             4311+W47      DS    0F                                                       N0256000
002068 000020F4                    4312+         DC    A(W48)              CHAIN WORD                           N0260000
00206C 00000000                    4313+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000

002070 5B40404040404040            4314+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
00207B D1D6C24040404040            4315+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0020F4                             4316+W48      DS    0F                                                       N0256000
0020F4 00002180                    4317+         DC    A(W49)              CHAIN WORD                           N0260000

0020F8 00000000                    4318+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
0020FC 5B40404040404040            4319+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
002107 D1D6C24040404040            4320+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
002180                             4321+W49      DS    0F                                                       N0256000
002180 0000220C                    4322+         DC    A(W50)              CHAIN WORD                           N0260000
002184 00000000                    4323+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000

002188 5B40404040404040            4324+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
002193 D1D6C24040404040            4325+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
00220C                             4326+W50      DS    0F                                                       N0256000
00220C 00002298                    4327+         DC    A(W51)              CHAIN WORD                           N0260000
002210 00000000                    4328+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000

002214 5B40404040404040            4329+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
00221F D1D6C24040404040            4330+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
002298                             4331+W51      DS    0F                                                       N0256000
002298 00002324                    4332+         DC    A(W52)              CHAIN WORD                           N0260000
00229C 00000000                    4333+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000

0022A0 5B40404040404040            4334+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
0022AB D1D6C24040404040            4335+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
002324                             4336+W52      DS    0F                                                       N0256000
002324 000023B0                    4337+         DC    A(W53)              CHAIN WORD                           N0260000
002328 00000000                    4338+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000

00232C 5B40404040404040            4339+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
002337 D1D6C24040404040            4340+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0023B0                             4341+W53      DS    0F                                                       N0256000
0023B0 0000243C                    4342+         DC    A(W54)              CHAIN WORD                           N0260000
0023B4 00000000                    4343+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000

0023B8 5B40404040404040            4344+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
0023C3 D1D6C24040404040            4345+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
00243C                             4346+W54      DS    0F                                                       N0256000
00243C 000024C8                    4347+         DC    A(W55)              CHAIN WORD                           N0260000
002440 00000000                    4348+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
002444 5B40404040404040            4349+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

00244F D1D6C24040404040            4350+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0024C8                             4351+W55      DS    0F                                                       N0256000
0024C8 00002554                    4352+         DC    A(W56)              CHAIN WORD                           N0260000
0024CC 00000000                    4353+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000

0024D0 5B40404040404040            4354+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
INIT     HASP CONSOLE MESSAGE BUFFERS                                                                          PAGE   95


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0024DB D1D6C24040404040            4355+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
002554                             4356+W56      DS    0F                                                       N0256000

002554 000025E0                    4357+         DC    A(W57)              CHAIN WORD                           N0260000
002558 00000000                    4358+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
00255C 5B40404040404040            4359+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
002567 D1D6C24040404040            4360+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0025E0                             4361+W57      DS    0F                                                       N0256000
0025E0 0000266C                    4362+         DC    A(W58)              CHAIN WORD                           N0260000
0025E4 00000000                    4363+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000

0025E8 5B40404040404040            4364+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
0025F3 D1D6C24040404040            4365+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
00266C                             4366+W58      DS    0F                                                       N0256000

00266C 000026F8                    4367+         DC    A(W59)              CHAIN WORD                           N0260000
002670 00000000                    4368+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
002674 5B40404040404040            4369+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
00267F D1D6C24040404040            4370+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
0026F8                             4371+W59      DS    0F                                                       N0256000

0026F8 00002784                    4372+         DC    A(W60)              CHAIN WORD                           N0260000
0026FC 00000000                    4373+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
002700 5B40404040404040            4374+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
00270B D1D6C24040404040            4375+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
002784                             4376+W60      DS    0F                                                       N0256000
002784 00002810                    4377+         DC    A(W61)              CHAIN WORD                           N0260000
002788 00000000                    4378+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
00278C 5B40404040404040            4379+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000

002797 D1D6C24040404040            4380+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
002810                             4381+W61      DS    0F                                                       N0256000

002810 0000289C                    4382+         DC    A(W62)              CHAIN WORD                           N0260000
002814 00000000                    4383+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
002818 5B40404040404040            4384+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
002823 D1D6C24040404040            4385+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
00289C                             4386+W62      DS    0F                                                       N0256000

00289C 00002928                    4387+         DC    A(W63)              CHAIN WORD                           N0260000
0028A0 00000000                    4388+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
0028A4 5B40404040404040            4389+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
0028AF D1D6C24040404040            4390+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
002928                             4391+W63      DS    0F                                                       N0256000
002928 000029B4                    4392+         DC    A(W64)              CHAIN WORD                           N0260000
00292C 00000000                    4393+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
002930 5B40404040404040            4394+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
00293B D1D6C24040404040            4395+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000

0029B4                             4396+W64      DS    0F                                                       N0256000

0029B4 00002A40                    4397+         DC    A(W65)              CHAIN WORD                           N0260000
0029B8 00000000                    4398+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
0029BC 5B40404040404040            4399+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
0029C7 D1D6C24040404040            4400+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
002A40                             4401+W65      DS    0F                                                       N0256000

002A40 00000000                    4402+         DC    A(W66)              CHAIN WORD                           N0260000
002A44 00000000                    4403+         DC    F'0'                PARAMETERS TO BE PASSED              N0262000
002A48 5B40404040404040            4404+         DC    CL11'$'             CLOCK IN HH.MM.SS                    N0264000
002A53 D1D6C24040404040            4405+         DC    CL121'JOB'          JOB NUMBER AND MESSAGE               N0266000
                            00000  4406+W66      EQU   0                                                        N0270000
INIT     HASP SMF BUFFERS                                                                                      PAGE   96


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4408          AIF   (&NUMSMFB LT 2).NOSMF                                    N0801200
                                   4409          $GENSMFB                                                       N0801500
002ACC                             4410+S1       DS    0F                                                       N0273100

002ACC 00002BB8                    4411+         DC    A(S2)               CHAIN WORD                           N0273300

002AD0 00000000                    4412+         DC    F'0'                PARAMETERS TO BE PASSED              N0273400
002AD4 0000000000000000            4413+         DC    (228)X'00'          MAX SIZE OF SMF RECORD               N0273600
002BB8                             4414+S2       DS    0F                                                       N0273100
002BB8 00002CA4                    4415+         DC    A(S3)               CHAIN WORD                           N0273300

002BBC 00000000                    4416+         DC    F'0'                PARAMETERS TO BE PASSED              N0273400
002BC0 0000000000000000            4417+         DC    (228)X'00'          MAX SIZE OF SMF RECORD               N0273600
002CA4                             4418+S3       DS    0F                                                       N0273100
002CA4 00002D90                    4419+         DC    A(S4)               CHAIN WORD                           N0273300
002CA8 00000000                    4420+         DC    F'0'                PARAMETERS TO BE PASSED              N0273400
002CAC 0000000000000000            4421+         DC    (228)X'00'          MAX SIZE OF SMF RECORD               N0273600
002D90                             4422+S4       DS    0F                                                       N0273100
002D90 00002E7C                    4423+         DC    A(S5)               CHAIN WORD                           N0273300
002D94 00000000                    4424+         DC    F'0'                PARAMETERS TO BE PASSED              N0273400
002D98 0000000000000000            4425+         DC    (228)X'00'          MAX SIZE OF SMF RECORD               N0273600
002E7C                             4426+S5       DS    0F                                                       N0273100

002E7C 00000000                    4427+         DC    A(S6)               CHAIN WORD                           N0273300
002E80 00000000                    4428+         DC    F'0'                PARAMETERS TO BE PASSED              N0273400
002E84 0000000000000000            4429+         DC    (228)X'00'          MAX SIZE OF SMF RECORD               N0273600
                            00000  4430+S6       EQU   0                   TERMINATE CHAIN                      N0273800

                                   4431 .NOSMF   ANOP                                                           N0801700
INIT     HASP OVERLAY REP STORAGE AREA                                                                         PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4433 $OREPS   DC    (&OREPSIZ)X'00'                                          N0804000
002F68 0000000000000000            4434+$OREPS   DC    (50)X'00'                                                N0804000
002F9A 00                          4435 OREPEND  DC    X'00'                                                    N0806000
INIT     HASP OVERLAY AREA POOL                                                                                PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

002FA0                             4437 HASPINIT CSECT                     CSECT FOR ALL HASP I/O BUFFERS       N0809000
                                   4438 $1STOACE $GENOACE                  GENERATE OVERLAY AREA POOL           N0810000
002FA0                      02FA0  4439+         ORG   HASPINIT+0                                               N0304000

002FA0                             4440+$1STOACE DS    0D                                                       N0432000
002FA0                             4441+OACE1     DS   0D                                                       N0440000
002FA0 42000000                    4442+         DC    X'42000000'         IOBFLAG1, 2, IOBSENS0, 1             N0444000
002FA4 00000000                    4443+         DC    V($HASPECB)         IOBECBCC, IOBECBPT                   N0446000

002FA8 0000000000000000            4444+         DC    8X'00'              IOBFLAG3, IOBCSW                     N0448000
002FB0 00002FD8                    4445+         DC    A(*+IOBCCW1-IOBSTART) IOBSIOCC, IOBSTART                 N0450000
002FB4 00000000                    4446+         DC    A(0)                IOBDCBPT                             N0452000
002FB8 00000000                    4447+         DC    A(0)                IOBREPM, IOBRESTR                    N0454000
002FBC 00000000                    4448+         DC    2H'0'               IOBINCAM, IOBERRCT                   N0456000
002FC0 0200000000000000            4449+         DC    AL1(2),7X'00'       IOBXTENT, IOBSEEK                    N0458000
002FC8 7F000000                    4450+         DC    X'7F000000'          BUFECBCC, BUFCHAIN                  N0460000
002FCC 40000000                    4451+         DC    AL1(OLAYBUF),AL3(0) BUFTYPE, BUFDCT                      N0462000
002FD0 00000000                    4452+         DC    A(0)                BUFEWF                               N0464000
002FD4 00003500                    4453+         DC    A(OACE2)                OACECHN                          N0466000
002FD8 03002FDD40000001            4454+         CCW   X'03',*+5,X'40',1   IOBCCW1                              N0467000
002FE0 31002FC340000005            4455+         CCW   X'31',*+IOBXTENT+3-IOBCCW2,X'40',5      IOBCCW2          N0468000

002FE8 08002FE000000000            4456+         CCW   X'08',*-8,0,0       IOBCCW3, 0, OACEPRIO, OACEOCON       N0470000
002FF0 06002FF800000500            4457+         CCW   X'06',*+8,0,1280         IOBCCW4                         N0472000
002FF8                             4458+         DS    1280X                    OACENAME, OACEPROG              N0474000

0034F8 00000000                    4459+         DC    A(0)                OACEPCE                              N0476000
0034FC                      03500  4460+         ORG   HASPINIT+1376                                            N0304000
003500                             4461+OACE2     DS   0D                                                       N0440000
003500 42000000                    4462+         DC    X'42000000'         IOBFLAG1, 2, IOBSENS0, 1             N0444000
003504 00000000                    4463+         DC    V($HASPECB)         IOBECBCC, IOBECBPT                   N0446000
003508 0000000000000000            4464+         DC    8X'00'              IOBFLAG3, IOBCSW                     N0448000
003510 00003538                    4465+         DC    A(*+IOBCCW1-IOBSTART) IOBSIOCC, IOBSTART                 N0450000
003514 00000000                    4466+         DC    A(0)                IOBDCBPT                             N0452000
003518 00000000                    4467+         DC    A(0)                IOBREPM, IOBRESTR                    N0454000
00351C 00000000                    4468+         DC    2H'0'               IOBINCAM, IOBERRCT                   N0456000
003520 0200000000000000            4469+         DC    AL1(2),7X'00'       IOBXTENT, IOBSEEK                    N0458000
003528 7F000000                    4470+         DC    X'7F000000'          BUFECBCC, BUFCHAIN                  N0460000

00352C 40000000                    4471+         DC    AL1(OLAYBUF),AL3(0) BUFTYPE, BUFDCT                      N0462000

003530 00000000                    4472+         DC    A(0)                BUFEWF                               N0464000
003534 00000000                    4473+         DC    A(OACE3)                OACECHN                          N0466000

003538 0300353D40000001            4474+         CCW   X'03',*+5,X'40',1   IOBCCW1                              N0467000
003540 3100352340000005            4475+         CCW   X'31',*+IOBXTENT+3-IOBCCW2,X'40',5      IOBCCW2          N0468000
003548 0800354000000000            4476+         CCW   X'08',*-8,0,0       IOBCCW3, 0, OACEPRIO, OACEOCON       N0470000
003550 0600355800000500            4477+         CCW   X'06',*+8,0,1280         IOBCCW4                         N0472000
003558                             4478+         DS    1280X                    OACENAME, OACEPROG              N0474000
003A58 00000000                    4479+         DC    A(0)                OACEPCE                              N0476000
                            00000  4480+OACE3     EQU  0                   TERMINATE CHAIN                      N0480000
INIT     HASP RJE BUFFER POOL                                                                                  PAGE   99


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4482 $1STPBUF $GENTPBF                  GENERATE RJE BUFFER POOL             N0814000
003A60                             4483+$1STPBUF DS    0D                                                       N0398000
003A60                             4484 $LSTPBUF DS    0D                  END OF RJE BUFFER POOL               N0816000

                                   4485          AIF   (&NUMLNES EQ 0).INOLIN                                   N0818000
                                   4486 .INOLIN  ANOP                                                           N1248000

INIT     HASP BUFFER POOL                                                                                      PAGE  100



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4488 $1STBUF $GENBUFP                   GENERATE HASP BUFFER POOL            N1778000
003A60                      03A60  4489+         ORG   HASPINIT+2752                                            N0304000
003A60                             4490+$1STBUF  DS    0D                                                       N0504000
003A60                             4491+         DS    (2048)C                                                  N0512000
004260                      04260  4492+         ORG   HASPINIT+4800                                            N0304000
004260                             4493+         DS    (2048)C                                                  N0512000
004A60                      04A60  4494+         ORG   HASPINIT+6848                                            N0304000
004A60                             4495+         DS    (2048)C                                                  N0512000
005260                      05260  4496+         ORG   HASPINIT+8896                                            N0304000
005260                             4497+         DS    (2048)C                                                  N0512000
005A60                      05A60  4498+         ORG   HASPINIT+10944                                           N0304000

005A60                             4499+         DS    (2048)C                                                  N0512000
006260                      06260  4500+         ORG   HASPINIT+12992                                           N0304000
006260                             4501+         DS    (2048)C                                                  N0512000

006A60                      06A60  4502+         ORG   HASPINIT+15040                                           N0304000
006A60                             4503+         DS    (2048)C                                                  N0512000
007260                      07260  4504+         ORG   HASPINIT+17088                                           N0304000
007260                             4505+         DS    (2048)C                                                  N0512000
007A60                      07A60  4506+         ORG   HASPINIT+19136                                           N0304000
007A60                             4507+         DS    (2048)C                                                  N0512000
008260                      08260  4508+         ORG   HASPINIT+21184                                           N0304000
008260                             4509+         DS    (2048)C                                                  N0512000
008A60                      08A60  4510+         ORG   HASPINIT+23232                                           N0304000
008A60                             4511+         DS    (2048)C                                                  N0512000
009260                      09260  4512+         ORG   HASPINIT+25280                                           N0304000
009260                             4513+         DS    (2048)C                                                  N0512000

009A60                      09A60  4514+         ORG   HASPINIT+27328                                           N0304000
009A60                             4515+         DS    (2048)C                                                  N0512000
00A260                      0A260  4516+         ORG   HASPINIT+29376                                           N0304000
00A260                             4517+         DS    (2048)C                                                  N0512000

00AA60                      0AA60  4518+         ORG   HASPINIT+31424                                           N0304000
00AA60                             4519+         DS    (2048)C                                                  N0512000
00B260                             4520 $LSTBUF  DS    0D                  END OF HASP BUFFER POOL              N1780000
INIT     HASP INITIALIZATION PROCESSOR - INITIAL ENTRY POINT                                                   PAGE  101


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00B260                      03A60  4522          ORG   $1STBUF                                                  N1786000

                                   4523 HASPINGO NULL  ,                   ENTRY FOR HASP SYSTEM INITIALIZATION N1788000
003A60                             4524+HASPINGO DS    0H                                                       NU006000
                            03A60  4525          USING *,BASE2,WF          ALLOW FOR 8 K OF RESIDENT CODE       N1792000
003A60 90EC D00C      0000C        4526          STM   R14,R12,12(R13)     SAVE REGISTERS                       N1794000
003A64 18CF                        4527          LR    BASE2,R15           ESTABLISH BASE                       N1796000
003A66 4170 C800      00800        4528          LA    WF,2048(0,BASE2)    ESTABLISH SECONDARY BASE             N1798000
003A6A 4170 7800      00800        4529          LA    WF,2048(0,WF)       4 K ABOVE FIRST BASE                 N1800000
003A6E 41F0 74B0      04F10        4530          LA    R15,NSAVE           LOCATE OUR SAVE AREA                 N1802000

003A72 50F0 D008      00008        4531          ST    R15,8(,R13)         STORE FORWARD POINTER                N1804000
003A76 50D0 F004      00004        4532          ST    R13,4(,R15)         STORE BACKWARD POINTER               N1806000

003A7A 18DF                        4533          LR    R13,R15             SWITCH TO NEW SAVE AREA              N1808000
003A7C 58B0 73A0      04E00        4534          L     BASE1,=A(HASPNUC)   ESTABLISH HASP BASE                  N1814000

                                   4536 * HOLD ALL BUFFER GETTING PCES AND TAKE OVER COMMAND PCE                N1870000

                            00000  4538          USING PCEDSECT,R15                                             N1874000
003A80 58F0 B0E4      000E4        4539          L     R15,$PCEORG         GET ADDRESS OF FIRST PCE             N1876000
003A84 9500 F04B      0004B        4540 NHOLDL   CLI   PCEID+1,PCEASYID    IS THIS ASYNCRONOUS PCE              N1878000

003A88 4780 C040      03AA0        4541          BE    NSKPHOLD            IF SO DO NOT HOLD                    N1880000
003A8C 950A F04B      0004B        4542          CLI   PCEID+1,PCECONID    IS THIS A CONSOLE OR COMMAND PCE     N1882000
003A90 4780 C040      03AA0        4543          BE    NSKPHOLD            IF SO DO NOT HOLD                    N1884000
003A94 950C F04B      0004B        4544          CLI   PCEID+1,PCETIMID    IS THIS THE TIMER PCE                N1886000
003A98 4780 C040      03AA0        4545          BE    NSKPHOLD            IF SO DO NOT HOLD                    N1888000

003A9C 9610 F049      00049        4546 NHOLD    OI    PCEEWF+$EWBHOLD,$EWFHOLD SET PCE IN HOLD STATUS          N1890000
003AA0 58F0 F008      00008        4547 NSKPHOLD L     R15,PCENEXT         GET NEXT PCE                         N1892000
003AA4 12FF                        4548          LTR   R15,R15             IS THIS THE LAST PCE                 N1894000

003AA6 4770 C024      03A84        4549          BNE   NHOLDL              LOOP IF NOT FINISHED                 N1896000
003AAA 58F0 74F8      04F58        4550          L     R15,NCOMMPCE        POINT TO COMMAND PCE                 N1898000
003AAE 4110 C062      03AC2        4551          LA    R1,NROOTSEG         POINT TO ROOT SEGMENT                N1900000
003AB2 5010 F010      00010        4552          ST    R1,PCER15           SET ENTRY POINT                      N1902000
003AB6 50C0 F044      00044        4553          ST    BASE2,PCEBASE2      SET BASE FOR PROCESSING UNDER PCE    N1904000
003ABA 5070 F030      00030        4554          ST    WF,PCEWF            SET SECONDARY BASE                   N1906000
003ABE 47F0 C0A0      03B00        4555          B     NROOTEND            GO AROUND ROOT SEGMENT OF PROCESSOR  N1908000

                                   4556          DROP  R15                                                      N1910000
INIT     HASP INITIALIZATION PROCESSOR - PCE CONTROLLED ROOT SEGMENT                                           PAGE  102


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4558 * THIS SECTION MUST RESIDE ENTIRELY WITHIN THE FIRST BUFFER DATA        N1914000
                                   4559 * PORTION, IE. WITHIN THE AREA STARTING AT 'BUFSTART' AND               N1916000

                                   4560 * 'BUFSTART + &BUFSIZE - 1'                                             N1918000
                            0000A  4561 NSEGLOC  EQU   *-$1STBUF+BUFDSECT-BUFSTART GAGE FOR ROUTINE PLACEMENT   N1920000



                            00000  4563          USING PCEDSECT,SAVE                                            N1924000

                                   4564 NROOTSEG $LINK HASPIOVA            ENTER FIRST INITIALIZATION OVERLAY   N1926000
000000                             4565+HA$QIOVA DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
003AC2                             4566+HASPINIT CSECT                                                          OL014000
003AC2 41E00000                    4567+NROOTSEG DC    Y(X'4100'+LINK*16),QL2(HA$QIOVA) LOAD OCON INTO LINK     OL016000
003AC6 45F0 B08C      0008C        4568+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000
003ACA 18EC                        4569          LR    R14,BASE2           SAVE BASE                            N1928000

003ACC 58C0 C094      03AF4        4570          L     BASE2,NCOMMENT      LOCATE COMMAND PROCESSOR             N1930000
003AD0 50C0 D044      00044        4571          ST    BASE2,PCEBASE2      RESTORE CLOBBERED PCEBASE2   OY02728 N1930200
                                   4572          DROP  BASE2                                                    N1932000
                            03A60  4573          USING HASPINGO,R14                                             N1934000
003AD4 9120 B0C1      000C1        4574          TM    $OPTSTAT,$OPTREQ    TEST FOR REQUEST PENDING             N1936000

003AD8 071C                        4575          BCR   O,BASE2             ENTER COMMAND PROCESSOR IF REQ       N1938000
                                   4576          DROP  SAVE                                                     N1940000
                            00000  4577          USING PCEDSECT,R1                                              N1942000
003ADA 5810 B0E4      000E4        4578          L     R1,$PCEORG          GET ADDRESS OF FIRST PCE             N1944000
                                   4579 NROOTL   $POST PCEEWF+$EWBHOLD,HOLD ALLOW PROCESSOR TO START UP         N1946000

003ADE 94EF 1049      00049        4580+NROOTL   NI    PCEEWF+$EWBHOLD,255-$EWFHOLD                             PO008000
003AE2 947F B0C4      000C4        4581+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
003AE6 5810 1008      00008        4582          L     R1,PCENEXT          GET NEXT PCE                         N1948000
003AEA 1211                        4583          LTR   R1,R1               END OF CHAIN                         N1950000
003AEC 4770 E07E      03ADE        4584          BNZ   NROOTL              LOOP IF NOT END                      N1952000

003AF0 07FC                        4585          BR    BASE2               EXIT TO COMMAND PROCESSOR            N1954000
003AF2 0000
003AF4 00000000                    4586 NCOMMENT DC    V(HASPCOMM)         ENTRY POINT AND BASE FOR COMMAND     N1956000
003AF8 00000000                    4587 NQ$ALSTA DC    V($ALSTATB)         ADR OF ALLOCATION STATISTICS         N1957000
003AFC 00000000                    4588 N$#CAN   DC    V($#CAN)            ADR OF $#CAN ROUTINE         OY08672 N1957500

                                   4589          DROP  R14,R1                                                   N1958000
                            03A60  4590          USING HASPINGO,BASE2                                           N1960000



                                   4592 NSEGLOCA EQU   $1STBUF-*+BUFSTART-BUFDSECT+&BUFSIZE GAGE FOR END        N1964000
                            00760  4593+NSEGLOCA EQU   $1STBUF-*+BUFSTART-BUFDSECT+1960     GAGE FOR END        N1964000
003B00                             4594          DC    0Y(NSEGLOCA,NSEGLOC) DETECT ERROR IN PLACEMENT           N1966000




                                   4596 * END OF ROOT SEGMENT                                                   N1970000
                                   4597 NROOTEND NULL                                                           N1972000
003B00                             4598+NROOTEND DS    0H                                                       NU006000

INIT     HASP INITIALIZATION PROCESSOR - INITIAL ENTRY (CONTINUED)                                             PAGE  103


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78



                                   4601          WTOR  '$ SPECIFY HASP OPTIONS -- HASP-II VERSION &VERSION',   CN1978000
                                                       NOPTAREA,L'NOPTAREA,NOPTECB                              N1980000

003B00                             4602+         CNOP  0,4                                                      01420000
003B00 4510 C0E2      03B42        4603+         BAL   1,IHB0101A                        BRANCH AROUND LIST     01440000
003B04 64                          4604+         DC    AL1(L'NOPTAREA)                   REPLY LENGTH           01500000
003B05 004F94                      4605+         DC    AL3(NOPTAREA)                     REPLY ADDRESS          01600000
003B08 00004FFC                    4606+         DC    A(NOPTECB)                        ECB ADDRESS            01700000
003B0C 0036                        4607+         DC    AL2(54)             TEXT LENGTH                          11950021
003B0E 0000                        4608+         DC    B'0000000000000000' MCS FLAGS                            12000021

003B10 5B40E2D7C5C3C9C6            4609+         DC    C'$ SPECIFY HASP OPTIONS -- HASP-II VERSION 4.009762'    12100021
003B42                             4610+IHB0101A DS    0H                                                       01800000
003B42 0A23                        4611+         SVC   35                                ISSUE WTOR SVC         00900000




003B44 4120 7533      04F93        4613 NOPTWAIT LA    WA,NOPTAREA-1       PREPARE TO SCAN REPLY                N1984000
003B48 922C B0C1      000C1        4614          MVI   $OPTSTAT,$OPTSTD    SET STANDARD OPTIONS                 N1986000
                                   4615          WAIT  ECB=NOPTECB         WAIT FOR REPLY                       N1988000
003B4C 4110 759C      04FFC        4616+         LA    1,NOPTECB                         LOAD PARAMETER REG 1   00100000

003B50 4100 0001      00001        4617+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
003B54 0A01                        4618+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
003B56 955B 7534      04F94        4619          CLI   NOPTAREA,C'$'       DID OPERATOR START WRONG HASP        N1989000
003B5A 4780 C70A      0416A        4620          BE    NWTOROUT            IF YES, GO TO EXIT                   N1990000



003B5E 9801 75A0      05000        4622 NOPTSCN1 LM    R0,R1,NOPTNULL      SCAN NEXT PARAMETER                  N1992000
003B62 4122 0001      00001        4623 NOPTSCN2 LA    WA,1(WA)            ADVANCE TO NEXT CHARACTER            N1994000
003B66 956B 2000      00000        4624          CLI   0(WA),C','          CHECK FOR COMMA                      N1996000

003B6A 4780 C12E      03B8E        4625          BE    NOPTSCN3            BRANCH IF COMMA                      N1998000
003B6E 9500 2000      00000        4626          CLI   0(WA),0             CHECK FOR END OF REPLY               N2000000

003B72 4780 C12E      03B8E        4627          BE    NOPTSCN3            BRANCH IF END OF REPLY               N2002000
003B76 9540 2000      00000        4628          CLI   0(WA),C' '          CHECK FOR BLANK                      N2004000
003B7A 4780 C102      03B62        4629          BE    NOPTSCN2            BRANCH IF BLANK                      N2006000
003B7E 9640 2000      00000        4630          OI    0(WA),X'40'         CAPITALIZE                           N2008000
003B82 8D00 0008      00008        4631          SLDL  R0,8                MAKE ROOM IN REGISTERS               N2010000

003B86 4312 0000      00000        4632          IC    R1,0(WA)            AND INSERT CHARACTER                 N2012000
003B8A 47F0 C102      03B62        4633          B     NOPTSCN2            GO FOR NEXT CHARACTER                N2014000



003B8E 9001 75A8      05008        4635 NOPTSCN3 STM   R0,R1,NOPTPARM      SAVE PARAMETER                       N2018000
003B92 4130 75A6      05006        4636          LA    WB,NOPTORG-10       PREPARE TO SEARCH OPTION TABLE       N2020000
003B96 4140 0010      00010        4637          LA    WC,(NOPTEND-NOPTORG)/10  WC = NUMBER OF ENTRIES          N2022000
003B9A 4130 300A      0000A        4638 NOPTSCN4 LA    WB,10(,WB)          ADVANCE TO NEXT ENTRY                N2024000
003B9E D507 3000 75A8 00000 05008  4639          CLC   0(8,WB),NOPTPARM    SEARCH FOR MATCHING ENTRY            N2026000
003BA4 4780 C192      03BF2        4640          BE    NOPTSCN5            BRANCH IF MATCH FOUND                N2028000

003BA8 4640 C13A      03B9A        4641          BCT   WC,NOPTSCN4         SEARCH ENTIRE TABLE                  N2030000

003BAC D763 7534 7534 04F94 04F94  4642          XC    NOPTAREA,NOPTAREA   NOT FOUND, CLEAR REPLY AREA          N2032000
003BB2 9200 759C      04FFC        4643          MVI   NOPTECB,0           CLEAR ECB                            N2034000
                                   4644          WTOR  '$ SYNTAX ERROR -- RESPECIFY OPTIONS',                  CN2036000
                                                       NOPTAREA,L'NOPTAREA,NOPTECB                              N2038000
INIT     HASP INITIALIZATION PROCESSOR - INITIAL ENTRY (CONTINUED)                                             PAGE  104



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

003BB6 0700                        4645+         CNOP  0,4                                                      01420000
003BB8 4510 C18C      03BEC        4646+         BAL   1,IHB0105A                        BRANCH AROUND LIST     01440000
003BBC 64                          4647+         DC    AL1(L'NOPTAREA)                   REPLY LENGTH           01500000
003BBD 004F94                      4648+         DC    AL3(NOPTAREA)                     REPLY ADDRESS          01600000
003BC0 00004FFC                    4649+         DC    A(NOPTECB)                        ECB ADDRESS            01700000
003BC4 0027                        4650+         DC    AL2(39)             TEXT LENGTH                          11950021
003BC6 0000                        4651+         DC    B'0000000000000000' MCS FLAGS                            12000021
003BC8 5B40E2E8D5E3C1E7            4652+         DC    C'$ SYNTAX ERROR -- RESPECIFY OPTIONS'                   12100021
003BEC                             4653+IHB0105A DS    0H                                                       01800000

003BEC 0A23                        4654+         SVC   35                                ISSUE WTOR SVC         00900000

003BEE 47F0 C0E4      03B44        4655          B     NOPTWAIT            REPEAT PROCEDURE                     N2040000



003BF2 D600 B0C1 3008 000C1 00008  4657 NOPTSCN5 OC    $OPTSTAT,8(WB)      SET OR                               N2044000
003BF8 D400 B0C1 3009 000C1 00009  4658          NC    $OPTSTAT,9(WB)       RESET STATUS BITS                   N2046000

003BFE 9500 2000      00000        4659 NOPTSCNE CLI   0(WA),0             TEST FOR END OF REPLY                N2048000
003C02 4770 C0FE      03B5E        4660          BNE   NOPTSCN1            BRANCH IF NOT END OF REPLY           N2050000
003C06 5810 7530      04F90        4661          L     R1,NHASPCOD         R1 = PASSWORD FOR SVC                N2050200
003C0A 4100 B008      00008        4662          LA    R0,$HVT             R0 = $HVT ADDRESS                    N2050400
003C0E 41F0 0005      00005        4663          LA    R15,5               R15 = HASPSVC ESR CODE               N2050600
                                   4664          SVC   &INITSVC            CALL EXTENDED SVC ROUTER        RFIT N2050800
003C12 0ADC                        4665+         SVC   220                 CALL EXTENDED SVC ROUTER        RFIT N2050800
003C14 D20F B12C 1000 0012C 00000  4666          MVC   $NUCTABL($NUCLEN),0(R1) SAVE NUCLEUS ADDRESSES           N2051000
                                   4667          AIF   (&SYSVS2).NOINITA                                   RFIT N2051010
003C1A D20B B15C 1010 0015C 00010  4668          MVC   $NUCTBLE($NUCLENE),$NUCLEN(R1) SAVE REST OF TBL     RFIT N2051020

                                   4669 .NOINITA ANOP                                                      RFIT N2051030

003C20 5820 73A4      04E04        4670          L     WA,=V($ABEND)       WA = ADDR OF HASP STAE EXIT          N2051200
                                   4671          STAE  (WA),PURGE=HALT     SET HASP TASK ABEND EXIT     OY02728 N2051400
003C24                             4672+         CNOP  0,4 .                    ESTAB. FULL WD. BOUND. ALIGN.   61500020
003C24 4510 C1D0      03C30        4673+         BAL   1,*+12      . PUT LIST ADDR IN REG1 AND BR AROUND        62500020

                            03C28  4674+IHB0107  EQU   *                                                        63000020
003C28 00000000                    4675+         DC    A(0) .                  SPACE FOR STAE EXIT RTN ADDRESS  66000020
003C2C 00000000                    4676+         DC    A(0) .                  SPACE FOR PARM LIST ADDR         68500020
003C30 5020 C1C8      03C28        4677+         ST    (WA),IHB0107 .          PUT EXIT ADDR. IN LIST           73000020
003C34 9201 C1C8      03C28        4678+         MVI   IHB0107,1     .         PUT IN FLAGS FOR TCB,            73500020
                                   4679+*                                      PURGE AND ASYNCH                 74000020
003C38 1B00                        4680+         SR    0,0 .                   INDICATE CREATE OPTION           81500020
003C3A 4111 0000      00000        4681+         LA    1,0(1) .                 MAKE REG1 POS.  XCTL=NO         89000020
003C3E 0A3C                        4682+         SVC   60 .                    ISSUE STAE SVC                   87000020
INIT     HASP INITIALIZATION PROCESSOR - REP READING ROUTINE                                                   PAGE  105


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   4684         $DISABLE ALL               DISABLE                              N2054000
003C40 8000 B0C9      000C9        4685+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
003C44 9110 B0C1      000C1        4686          TM    $OPTSTAT,$OPTREP    ARE REPS TO BE READ                  N2056000
003C48 4780 C434      03E94        4687          BZ    NNOREP                                                   N2058000

003C4C 4130 7654      050B4        4688          LA    WB,NREPTABL+4       WB = ADDR OF CURRENT MODULE NAME     N2060000
003C50 5840 73A8      04E08        4689          L     WC,=A($OREPS)       WC = ADDR OF PLACE TO STORE OV REPS  N2062000
                                   4690          GETMAIN R,SP=&SYSVS1*255+&SYSVS2*255,LV=96*2 REP I/O STOR RFIT N2062100
003C54                             4691+         CNOP  0,4                                                      03500000
003C54 4510 C1FC      03C5C        4692+         BAL   1,*+8                             BRANCH AROUND SP+LV    03520000
003C58 00                          4693+         DC    AL1(0*255+0*255)                  SUBPOOL VALUE          03540000
003C59 0000C0                      4694+         DC    AL3(96*2)                         LENGTH                 03560000
003C5C 5801 0000      00000        4695+         L     0,0(1,0)                          LOAD SP AND LV         03580000
003C60 0A0A                        4696+         SVC   10                                ISSUE GETMAIN SVC      03600000
003C62 18A1                        4697          LR    R10,R1              SAVE FOR FREE MAIN                   N2062200
003C64 1861                        4698          LR    WE,R1               ADDRESSABILITY TO REP                N2062300
003C66 5460 73AC      04E0C        4699          N     WE,=A(X'FFF')       GET RID OF HIGH BITS                 N2062400

003C6A 4960 743C      04E9C        4700          CH    WE,=H'4000'         TEST FOR 96 BYTES IN PAGE            N2062500
003C6E 1861                        4701          LR    WE,R1               ASSUME OK FOR FIRST HALF             N2062600
003C70 47D0 C218      03C78        4702          BNH   *+8                 IF OK SKIP                           N2062700

003C74 4160 6060      00060        4703          LA    WE,96(0,WE)         TAKE SECOND HALF                     N2062800
                            00000  4704          USING NREPIO,WE            CCWS AND DATA AREA                  N2062900
                                   4705         $LRA   R1,NCARD            R1 = REAL ADDRESS OF DATA AREA  RFIT N2063000
003C78 4110 6008      00008        4706+         LA    R1,NCARD            VIRTUAL TRANSLATION             RFIT LR016000
003C7C 1900                        4707+         CR    0,0                 CC = 0                          RFIT LR018000
003C7E 5010 6000      00000        4708          ST    R1,NREPCCW          STORE IN CCW                         N2063100
003C82 9220 6004      00004        4709          MVI   NREPCCW+4,X'20'     SET SLI IN CCW                       N2063200
003C86 4110 0050      00050        4710          LA    R1,80               R1 = REP CARD LENGTH                 N2063400
003C8A 4010 6006      00006        4711          STH   R1,NREPCCW+6        STORE IN CCW                         N2063600
003C8E 9240 6058      00058        4712          MVI   NCARD+80,C' '       BLANK BYTE AFTER DATA AREA           N2063800
003C92 47F0 C246      03CA6        4713          B     NREPREAD            GO TO READ A REP CARD                N2064000
003C96 9D00 000C      0000C        4714 NREPWAIT TIO   $REPRDR             WAIT                                 N2066000

003C9A 47B0 C236      03C96        4715          BC    11,NREPWAIT          UNTIL                               N2068000

003C9E 9102 0044      00044        4716          TM    68,X'02'              OPERATOR                           N2070000
003CA2 4780 C236      03C96        4717          BZ    NREPWAIT               INTERVENES                        N2072000

003CA6 9202 6000      00000        4718 NREPREAD MVI   NREPCCW,2           SET READ OP CODE                     N2073000
                                   4719         $LRA   R1,NREPCCW          PUT CCW REAL ADDRESS            RFIT N2074000
003CAA 4110 6000      00000        4720+         LA    R1,NREPCCW          VIRTUAL TRANSLATION             RFIT LR016000
003CAE 1900                        4721+         CR    0,0                 CC = 0                          RFIT LR018000
003CB0 5010 0048      00048        4722          ST    R1,72                INTO THE CAW                        N2075000
003CB4 9C00 000C      0000C        4723          SIO   $REPRDR             ISSUE READ                           N2076000
003CB8 4770 C246      03CA6        4724          BNZ   NREPREAD            WAIT FOR SIO TO TAKE                 N2078000
003CBC 9D00 000C      0000C        4725 NREPTIO  TIO   $REPRDR             TEST FOR COMPLETION                  N2080000
003CC0 4730 C25C      03CBC        4726          BC    3,NREPTIO           LOOP UNTIL COMPLETE                  N2082000
003CC4 9101 0044      00044        4727          TM    68,X'01'            TEST FOR UNIT EXCEPTION              N2084000
003CC8 4710 C420      03E80        4728          BO    NREPEND             BRANCH IF YES, END-OF-FILE           N2086000
003CCC 9102 0044      00044        4729          TM    68,X'02'            TEST FOR UNIT CHECK                  N2088000

003CD0 4710 C236      03C96        4730          BO    NREPWAIT            YES, WAIT FOR OPERATOR INTERVENTION  N2090000
003CD4 91FF 0045      00045        4731          TM    69,X'FF'            TEST FOR PERMANENT I/O ERRORS        N2092000

003CD8 4770 C236      03C96        4732          BNZ   NREPWAIT            YES, WAIT FOR OPERATOR INTERVENTION  N2094000

003CDC 9108 B0C1      000C1        4733          TM    $OPTSTAT,$OPTLIST   ARE REPS TO BE LISTED                N2096000
003CE0 4780 C2A2      03D02        4734          BZ    NREPSCAN            BRANCH IF NO                         N2098000
003CE4 9209 6000      00000        4735 NREPLIST MVI   NREPCCW,9           SET PRINT-AND-SPACE OP CODE          N2099000
                                   4736         $LRA   R1,NREPCCW          PUT CCW REAL ADDRESS            RFIT N2100000
003CE8 4110 6000      00000        4737+         LA    R1,NREPCCW          VIRTUAL TRANSLATION             RFIT LR016000
003CEC 1900                        4738+         CR    0,0                 CC = 0                          RFIT LR018000
INIT     HASP INITIALIZATION PROCESSOR - REP READING ROUTINE                                                   PAGE  106


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

003CEE 5010 0048      00048        4739          ST    R1,72                INTO THE CAW                        N2101000
003CF2 9C00 000E      0000E        4740          SIO   $REPWTR             ISSUE WRITE TO PRINTER               N2102000
003CF6 4770 C284      03CE4        4741          BNZ   NREPLIST            LOOP UNTIL SIO TAKES                 N2104000
003CFA 9D00 000E      0000E        4742 NREPTIOL TIO   $REPWTR             TEST FOR COMPLETION                  N2106000

003CFE 4770 C29A      03CFA        4743          BC    7,NREPTIOL          LOOP UNTIL COMPLETE                  N2108000
003D02 D501 6008 743E 00008 04E9E  4744 NREPSCAN CLC   NCARD(2),=C'/*'     TEST FOR /* CARD                     N2110000
003D08 4780 C420      03E80        4745          BE    NREPEND             BRANCH IF FOUND, END OF REPS         N2112000

003D0C 956B 6020      00020        4746 NREPACON CLI   NCARD+24,C','       TEST FOR RELOCATABLE VALUE REP       N2114000
003D10 4770 C2EA      03D4A        4747          BNE   NREPDATA            BRANCH IF NOT, ORDINARY DATA         N2116000
003D14 9540 601C      0001C        4748          CLI   NCARD+20,C' '       DOES DATA END AFTER ONLY ONE HALF WD N2118000
003D18 4780 C2EA      03D4A        4749          BE    NREPDATA            BRANCH IF YES                        N2120000
003D1C DC07 6018 760F 00018 0506F  4750          TR    NCARD+16(8),NHEXTAB CONVERT FULL WORD ADCON              N2122000
003D22 F248 601C 6018 0001C 00018  4751          PACK  NCARD+20(5),NCARD+16(9) TO HEXADECIMAL                   N2124000
003D28 4110 6021      00021        4752          LA    R1,NCARD+25         LOOK UP RELOCATION MODULE NAME       N2126000
003D2C 45E0 C406      03E66        4753          BAL   LINK,NREPMOD         IN RESIDENT MODULE TABLE            N2128000
003D30 5810 601C      0001C        4754          L     R1,NCARD+20         R1 = ADCON VALUE                     N2130000
003D34 1200                        4755          LTR   R0,R0               WAS RELOCATION MODULE NAME FOUND     N2132000
003D36 4780 C2DE      03D3E        4756          BZ    *+8                 SKIP IF NOT                          N2134000
003D3A 5E10 F004      00004        4757          AL    R1,4(,R15)          RELOCATE ADCON VALUE                 N2136000

003D3E 5010 6014      00014        4758          ST    R1,NCARD+12         STORE VALUE BEGINNING IN CARD COL 13 N2138000
003D42 4150 6018      00018        4759          LA    WD,NCARD+16         WD = ADDR PAST LAST DATA BYTE        N2140000
003D46 47F0 C30E      03D6E        4760          B     NREPADDR            GO TO GET REP ADDRESS                N2142000
003D4A 4150 6014      00014        4761 NREPDATA LA    WD,NCARD+12         WD = ADDR OF CARD COL 13             N2144000

003D4E 4110 6017      00017        4762          LA    R1,NCARD+15         R1 = ADDR OF CARD COL 16             N2146000
003D52 DC03 1001 760F 00001 0506F  4763 NREPHW   TR    1(4,R1),NHEXTAB     CONVERT PUNCHED EBCDIC HALF WORDS    N2148000
003D58 F224 5000 1001 00000 00001  4764          PACK  0(3,WD),1(5,R1)      STARTING IN COL 17, SEPARATED BY    N2150000
003D5E 4150 5002      00002        4765          LA    WD,2(,WD)            COMMAS, TO PACKED HEXADECIMAL IN A  N2152000
003D62 4110 1005      00005        4766          LA    R1,5(,R1)            CONTINUOUS STRING STARTING IN COL   N2154000
003D66 9540 1000      00000        4767          CLI   0(R1),C' '           13, UNTIL BLANK IS ENCOUNTERED      N2156000

003D6A 4770 C2F2      03D52        4768          BNE   NREPHW               IN PLACE OF AN EXPECTED COMMA.      N2158000
003D6E 4100 6015      00015        4769 NREPADDR LA    R0,NCARD+13         COMPUTE REP DATA                     N2160000
003D72 1B50                        4770          SR    WD,R0                LENGTH - 1 IN WD                    N2162000
003D74 9540 6011      00011        4771          CLI   NCARD+9,C' '        IS REP ADDRESS FIELD BLANK           N2164000
003D78 4780 C380      03DE0        4772          BE    NREPBLNK            BRANCH IF YES                        N2166000
003D7C DC05 600E 760F 0000E 0506F  4773          TR    NCARD+6(6),NHEXTAB  CONVERT REP ADDRESS TO HEXADECIMAL   N2168000
003D82 F246 6010 600E 00010 0000E  4774          PACK  NCARD+8(5),NCARD+6(7) BEGINNING IN COL 9                 N2170000
003D88 F300 6014 6014 00014 00014  4775          UNPK  NCARD+12(1),NCARD+12(1) RE-FLIP 1ST 2 DATA HEX DIGITS    N2172000

003D8E 5820 6010      00010        4776          L     WA,NCARD+8          WA = REP ADDRESS                     N2174000
003D92 4110 6009      00009        4777          LA    R1,NCARD+1          LOOK UP TO-BE-REPPED MODULE NAME     N2176000

003D96 45E0 C406      03E66        4778          BAL   LINK,NREPMOD         IN RESIDENT MODULE TABLE            N2178000
003D9A 1200                        4779          LTR   R0,R0               IS REP MODULE IN RESIDENT TABLE      N2180000
003D9C 4780 C348      03DA8        4780          BZ    NREPORES            BR IF NO TO TRY RESIDENT OVERLAY     N2182000
003DA0 5E20 F004      00004        4781          AL    WA,4(,R15)          RELOCATE TO CORE LOCATION            N2184000
003DA4 47F0 C37A      03DDA        4782          B     NREPRES             GO TO REMEMBER CURRENT MODULE        N2186000
003DA8 58E0 73B0      04E10        4783 NREPORES L     R14,=V(HASPOTAB)    R14 = ADDR OF ZEROTH OTAB ENTRY      N2188000
                            00000  4784          USING OTBDSECT,R14        ADDRESSABILITY                       N2190000
003DAC 4800 E000      00000        4785          LH    R0,0(,R14)          R0 = LENGTH OF OTAB                  N2192000

003DB0 1A0E                        4786          AR    R0,R14              R0 = ADDR OF END OF OTAB + 1         N2194000
003DB2 41E0 E004      00004        4787 NREPOR1  LA    R14,OTBSIZE(,R14)   R14 = ADDR OF NEXT OTAB ENTRY        N2196000
003DB6 15E0                        4788          CLR   R14,R0              HAS ENTIRE OTAB BEEN SEARCHED        N2198000
003DB8 47B0 C3BE      03E1E        4789          BNL   NREPOV              YES, REP MODULE MUST BE OVERLAY      N2200000
003DBC 58F0 E000      00000        4790          L     R15,OTBADDR         R15 = ADDRESS OF A RESIDENT OVERLAY  N2202000

                            00000  4791          USING BUFDSECT,R15         FAKED AS A BUFFER ADDRESS           N2204000
003DC0 12FF                        4792          LTR   R15,R15             IS THIS ROUTINE RESIDENT             N2206000
003DC2 47B0 C352      03DB2        4793          BNM   NREPOR1             BRANCH IF NOT                        N2208000

INIT     HASP INITIALIZATION PROCESSOR - REP READING ROUTINE                                                   PAGE  107


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

003DC6 D503 F058 6009 00058 00009  4794          CLC   OACENAME,NCARD+1    DOES NAME MATCH REP MODULE NAME      N2210000
003DCC 4770 C352      03DB2        4795          BNE   NREPOR1             BRANCH IF NO                         N2212000
003DD0 5F20 F05C      0005C        4796          SL    WA,OACEASMO         MAKE REP ADDRESS ZERO RELATIVE       N2214000
003DD4 41F0 F058      00058        4797          LA    R15,BUFSTART        R15 = ACTUAL MODULE ZERO ADDRESS     N2216000
                                   4798          DROP  R14,R15                                                  N2218000

003DD8 1E2F                        4799          ALR   WA,R15              RELOCATE REP ADDRESS                 N2220000
003DDA 183F                        4800 NREPRES  LR    WB,R15              WB = ADDR OF CURRENT MODULE NAME     N2222000
003DDC 47F0 C3EC      03E4C        4801          B     NREPDO              GO TO APPLY REP                      N2224000
003DE0 D503 3000 6009 00000 00009  4802 NREPBLNK CLC   0(4,WB),NCARD+1     REP MODULE NAME SAME AS PREVIOUS     N2226000
003DE6 4770 C246      03CA6        4803          BNE   NREPREAD            BRANCH IF NOT, IGNORE REP            N2228000

003DEA 1233                        4804          LTR   WB,WB               IS REP MODULE RESIDENT               N2230000
003DEC 47B0 C3EC      03E4C        4805          BNM   NREPDO              BRANCH IF YES TO APPLY REP           N2232000
                                   4806          AIF   (&OREPSIZ NE 0).OREP                                     N2234000
003DF0 1B11                        4807 .OREP    SR    R1,R1               UPDATE                               N2240000

003DF2 4310 3004      00004        4808          IC    R1,4(,WB)            PREVIOUS                            N2242000
003DF6 4115 1001      00001        4809          LA    R1,1(WD,R1)          OVERLAY REP DATA LENGTH             N2244000
003DFA 4910 7440      04EA0        4810          CH    R1,=H'255'          IS IT GREATER THAN MAX MVC COUNT     N2246000
003DFE 47D0 C3B6      03E16        4811          BNH   NREPOMOR            BRANCH IF NO                         N2248000
003E02 D202 6011 3005 00011 00005  4812          MVC   NCARD+9(3),5(WB)    COMPUTE WHAT REP ADDRESS             N2250000
003E08 5E10 6010      00010        4813          AL    R1,NCARD+8           WOULD HAVE BEEN, IF NOT             N2252000

003E0C 1F15                        4814          SLR   R1,WD                LEFT BLANK BY PROGRAMMER            N2254000
003E0E 5010 6010      00010        4815          ST    R1,NCARD+8          STORE IN PLACE OF BLANK ADDRESS      N2256000
003E12 47F0 C3BE      03E1E        4816          B     NREPOV              PROCESS AS NON-BLANK OVERLAY REP     N2258000
003E16 4210 3004      00004        4817 NREPOMOR STC   R1,4(,WB)           STORE UPDATED MVC LENGTH             N2260000
003E1A 47F0 C3E0      03E40        4818          B     NREPOV1             GO TO ADD REP DATA TO PREVIOUS       N2262000

003E1E 4120 4008      00008        4819 NREPOV   LA    WA,8(,WC)           WA = ADDR OF PLACE TO SAVE REP DATA  N2264000
003E22 5520 73B4      04E14        4820          CL    WA,=A(OREPEND)      TOO LARGE FOR STORAGE AREA           N2266000
003E26 47B0 C3F8      03E58        4821          BNL   NREPOERR            BRANCH IF YES                        N2268000
003E2A D203 4000 6009 00000 00009  4822          MVC   0(4,WC),NCARD+1     SAVE OV MODULE NAME IN STORAGE AREA  N2270000
003E30 4250 4004      00004        4823          STC   WD,4(,WC)           STORE DATA LENGTH - 1                N2272000

003E34 D202 4005 6011 00005 00011  4824          MVC   5(3,WC),NCARD+9     STORE REP ADDRESS                    N2274000
003E3A 1834                        4825          LR    WB,WC               WB = ADDR OF CURRENT MODULE NAME     N2276000
003E3C 5630 73B8      04E18        4826          O     WB,=X'80000000'     MAKE NEGATIVE TO INDICATE OVERLAY    N2278000
003E40 4145 2001      00001        4827 NREPOV1  LA    WC,1(WD,WA)         WC = NEXT AVAILABLE LOCATION IN AREA N2280000
003E44 5540 73B4      04E14        4828          CL    WC,=A(OREPEND)      TOO LARGE FOR STORAGE AREA           N2282000

003E48 4720 C3F8      03E58        4829          BH    NREPOERR            BRANCH IF YES                        N2284000
                                   4830 .NOOREP  ANOP                      *                                    N2286000
003E4C 4450 C400      03E60        4831 NREPDO   EX    WD,NREPMVC1         APPLY OR SAVE REP DATA               N2288000
003E50 4125 2001      00001        4832          LA    WA,1(WD,WA)         WA = ADDR FOR REP CONTINUATION       N2290000
003E54 47F0 C246      03CA6        4833          B     NREPREAD            GO READ NEXT REP CARD                N2292000

003E58 4110 C778      041D8        4834 NREPOERR LA    1,NREPEM1           REG 1 = ADDR OF ERROR MESSAGE        N2294000
003E5C 47F0 C6FA      0415A        4835          B     NQUIKOUT            GO TO ABORT                          N2296000
003E60 D200 2000 6014 00000 00014  4836 NREPMVC1 MVC   0(*-*,WA),NCARD+12  MVC TO APPLY OR SAVE REP             N2298000
003E66 41F0 7648      050A8        4837 NREPMOD  LA    R15,NREPTABL-8      R15 = ADDR OF ZEROTH TABLE ENTRY     N2300000
003E6A 4100 0010      00010        4838          LA    R0,(NREPTABE-NREPTABL)/8 R0 = NUMBER OF TABLE ENTRIES    N2302000
003E6E 41F0 F008      00008        4839 NREPM1   LA    R15,8(,R15)         R15 = ADDRESS OF NEXT TABLE ENTRY    N2304000

003E72 D503 F000 1000 00000 00000  4840          CLC   0(4,R15),0(R1)      DOES NAME MATCH SEARCH MODULE NAME   N2306000
003E78 078E                        4841          BCR   E,LINK              IF YES, EXIT WITH R0 NON-ZERO        N2308000
003E7A 4600 C40E      03E6E        4842          BCT   R0,NREPM1           DECR COUNT AND LOOP TO SEARCH NEXT   N2310000
003E7E 07FE                        4843          BR    LINK                EXIT WITH R0 = ZERO, NAME NOT FOUND  N2310100

                                   4844          DROP  WE                                                       N2310200
                                   4845 NREPEND  FREEMAIN R,SP=&SYSVS1*255+&SYSVS2*255,LV=96*2,A=(R10)     RFIT N2310300
003E80                             4846+         CNOP  0,4                                                      02880000
003E80 47F0 C428      03E88        4847+NREPEND  B     *+8                               BRANCH AROUND SP+LV    02900000
003E84 00                          4848+         DC    AL1(0*255+0*255)                  SUBPOOL VALUE          02920000

INIT     HASP INITIALIZATION PROCESSOR - REP READING ROUTINE                                                   PAGE  108


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

003E85 0000C0                      4849+         DC    AL3(96*2)                         LENGTH                 02940000
003E88 5800 C424      03E84        4850+         L     0,*-4                             LOAD SP AND LV         02960000
003E8C 181A                        4851+         LR    1,R10                             LOAD AREA ADDRESS      03260000
003E8E 4111 0000      00000        4852+         LA    1,0(1)                       CLEAR THE HIGH ORDER BYTE   03130018
003E92 0A0A                        4853+         SVC   10                      ISSUE FREEMAIN SVC         P2504 03140021

                                   4854 NNOREP  $ENABLE ALL                                                     N2310400
003E94 8000 B0C8      000C8        4855+NNOREP   SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   4856          AIF   (&SYSMFT OR &SYSMVT).NNFIX                          RFIT N2310450

                                   4857 .NNFIX   ANOP                                                      RFIT N2311650
INIT     HASP INITIALIZATION PROCESSOR - BUILD DCBS, DEBS                                                      PAGE  109


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   4859 &TEMP    SETA  &NUMRDRS+&NUMPRTS+&NUMPUNS+&NUMINRS+&NUMLNES             N2311800
                                   4860 *                                  NUMBER OF NON-DA DEVICES             N2311900

                                   4861 &TEMP    SETA  (3+9)*4*&TEMP       SIZE OF NON-DA DCBS AND DEBS         N2312000
                                   4862 &TEMP    SETA  &TEMP+(3+8+(&NUMDA+1)*4)*4                               N2312100
                                   4863 *                                   + SIZE OF DA DCB AND DEB            N2312200
                                   4864          GETMAIN R,SP=&SYSVS1*254+&SYSVS2*254,LV=&TEMP GET STORAGE RFIT N2312300
003E98                             4865+         CNOP  0,4                                                      03500000
003E98 4510 C440      03EA0        4866+         BAL   1,*+8                             BRANCH AROUND SP+LV    03520000
003E9C 00                          4867+         DC    AL1(0*254+0*254)                  SUBPOOL VALUE          03540000
003E9D 00023C                      4868+         DC    AL3(572)                          LENGTH                 03560000

003EA0 5801 0000      00000        4869+         L     0,0(1,0)                          LOAD SP AND LV         03580000
003EA4 0A0A                        4870+         SVC   10                                ISSUE GETMAIN SVC      03600000

003EA6 1821                        4871          LR    WA,R1               WA = GOTTEN AREA ADDRESS             N2312400
                                   4872          LH    WB,=Y(&TEMP)        WB = GOTTEN AREA SIZE                N2312500
003EA8 4830 7442      04EA2        4873+         LH    WB,=Y(572)          WB = GOTTEN AREA SIZE                N2312500
003EAC 1BFF                        4874          SR    R15,R15             ZERO SOURCE FOR MOVE LONG            N2312600
                                   4875 *        MVCL  WA,R14              CLEAR GOTTEN AREA               RFIT N2312700

                                   4876          $XXC  XC,(0,WA),(0,WA),&TEMP                              RFIT N2312705
003EAE D7FF 2000 2000 00000 00000  4877+         XC    0+0(256,WA),0+0(WA)                                      XX036000
003EB4 D7FF 2100 2100 00100 00100  4878+         XC    0+256(256,WA),0+256(WA)                                  XX036000
003EBA D73B 2200 2200 00200 00200  4879+         XC    0+512(60,WA),0+512(WA)                                   XX050000
003EC0 4B10 7444      04EA4        4880          SH    R1,=H'40'           R1 = 1ST DCB ADDRESS                 N2312800
                            00000  4881          USING IHADCB,R1                                                N2312900
003EC4 41F0 1034      00034        4882          LA    R15,40+3*4(,R1)     R15 = 1ST DEB ADDRESS                N2313000
                            00000  4883          USING DEBDSECT,R15                                             N2313100
                            00000  4884          USING DCTDSECT,WA                                              N2313200
                                   4885          LA    R0,&NUMRDRS         R0 = &NUMRDRS                        N2313300
003EC8 4100 0001      00001        4886+         LA    R0,1                R0 = &NUMRDRS                        N2313300
003ECC 5820 73BC      04E1C        4887          L     WA,=A($RDRDCT)      WA = 1ST RDR DCT ADDRESS             N2313400

003ED0 4130 7714      05174        4888          LA    WB,$RDRDEBL         WB = RDR DEB LIST ADDRESS            N2313500
003ED4 45E0 C4CC      03F2C        4889          BAL   R14,NDCBDEB         BUILD RDR DCB(S) AND DEB(S)          N2313600
                                   4890          LA    R0,&NUMPRTS         R0 = &NUMPRTS                        N2313700

003ED8 4100 0002      00002        4891+         LA    R0,2                R0 = &NUMPRTS                        N2313700
003EDC 5820 73C0      04E20        4892          L     WA,=A($PRTDCT)      WA = 1ST PRT DCT ADDRESS             N2313800
003EE0 4130 770C      0516C        4893          LA    WB,$PRTDEBL         WB = PRT DEB LIST ADDRESS            N2313900
003EE4 45E0 C4CC      03F2C        4894          BAL   R14,NDCBDEB         BUILD PRT DCB(S) AND DEB(S)          N2314000
                                   4895          LA    R0,&NUMPUNS         R0 = &NUMPUNS                        N2314100
003EE8 4100 0001      00001        4896+         LA    R0,1                R0 = &NUMPUNS                        N2314100
003EEC 5820 73C4      04E24        4897          L     WA,=A($PUNDCT)      WA = 1ST PUN DCT ADDRESS             N2314200
003EF0 4130 7730      05190        4898          LA    WB,$PUNDEBL         WB = PUN DEB LIST ADDRESS            N2314300
003EF4 45E0 C4CC      03F2C        4899          BAL   R14,NDCBDEB         BUILD PUN DCB(S) AND DEB(S)          N2314400

                                   4900          LA    R0,&NUMINRS         R0 = &NUMINRS                        N2314500

003EF8 4100 0006      00006        4901+         LA    R0,6                R0 = &NUMINRS                        N2314500
003EFC 5820 73C8      04E28        4902          L     WA,=A($INRDCT)      WA = 1ST INR DCT ADDRESS             N2314600
003F00 4130 7718      05178        4903          LA    WB,$INRDEBL         WB = INR DEB LIST ADDRESS            N2314700
003F04 45E0 C4CC      03F2C        4904          BAL   R14,NDCBDEB         BUILD INR DCB(S) AND DEB(S)          N2314800
                                   4905          LA    R0,&NUMLNES         R0 = &NUMLNES                        N2314900

003F08 4100 0000      00000        4906+         LA    R0,0                R0 = &NUMLNES                        N2314900
003F0C 5820 73CC      04E2C        4907          L     WA,=A($LNEDCT)      WA = 1ST LNE DCT ADDRESS             N2315000
003F10 45E0 C4CC      03F2C        4908          BAL   R14,NDCBDEB         BUILD LNE DCB(S) AND DEB(S)          N2315100
003F14 4100 0001      00001        4909          LA    R0,1                R0 = 1 FOR DA DCB AND DEB            N2315200
003F18 5820 73D0      04E30        4910          L     WA,=A($OLAYDCT)     WA = OLAY DCT ADDRESS                N2315300
003F1C 4130 7384      04DE4        4911          LA    WB,$DADEBAD         WB = DA DEB ADDR ADDRESS             N2315400
003F20 5010 B104      00104        4912          ST    R1,$DCBLIST         DA DCB ADDRESS INTO HCT              N2315500
003F24 45E0 C4CC      03F2C        4913          BAL   R14,NDCBDEB         BUILD DA DCB AND DEB                 N2315600
INIT     HASP INITIALIZATION PROCESSOR - BUILD DCBS, DEBS                                                      PAGE  110


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


003F28 47F0 C55C      03FBC        4914          B     NDCDEEND            SKIP SUBRTNS AND CONSTANTS           N2315700

003F2C 1200                        4915 NDCBDEB  LTR   R0,R0               AT LEAST ONE DEVICE                  N2315800
003F2E 078E                        4916          BCR   Z,R14               RETURN IF NO                         N2315900
003F30 D22B 1028 C52C 00028 03F8C  4917 NDCDE1   MVC   DCBTIOT((3+8)*4),NDCDEDUM  MOST DCB AND DEB FIELDS       N2316000
                                   4918 *        STCM  R1,7,DCTDCB+1       DCB ADDR INTO DCT               RFIT N2316100

003F36 5010 C558      03FB8        4919          ST    R1,NFIXECB                                          RFIT N2316105
003F3A D202 2009 C559 00009 03FB9  4920          MVC   DCTDCB+1(3),NFIXECB+1                               RFIT N2316110
003F40 50F0 102C      0002C        4921          ST    R15,DCBDEBAD        DEB ADDR INTO DCB                    N2316200
                                   4922 *        STCM  R1,7,DEBDCBAD+1     DCB ADDR INTO DEB               RFIT N2316300
003F44 D202 F019 C559 00019 03FB9  4923          MVC   DEBDCBAD+1(3),NFIXECB+1                             RFIT N2316310
003F4A D202 F01D 7448 0001D 04EA8  4924          MVC   DEBAPPAD+1(3),=VL3($IOAPPEN)  APPEN ADDR INTO DEB        N2316400
003F50 9502 2012      00012        4925          CLI   DCTDEVTP,DCTLNE     IS THIS A TP LINE                    N2316500
003F54 4770 C500      03F60        4926          BNE   NDCDE2              BRANCH IF NO                         N2316600
003F58 920C 102C      0002C        4927          MVI   DCBIFLGS,X'0C'      SET NO OS ERR RECOVERY               N2316700
003F5C 47F0 C518      03F78        4928          B     NDCDE4              SKIP DEB LIST STORING                N2316800
003F60 9501 2012      00012        4929 NDCDE2   CLI   DCTDEVTP,DCTOLAY    IS THIS THE DA DCB AND DEB           N2316900

003F64 4770 C510      03F70        4930          BNE   NDCDE3              BRANCH IF NO                         N2317000
                                   4931          MVI   DEBNMEXT,&NUMDA+1   SET NUM OF EXTENTS                   N2317100
003F68 9203 F010      00010        4932+         MVI   DEBNMEXT,2+1        SET NUM OF EXTENTS                   N2317100
003F6C 9204 F01C      0001C        4933          MVI   DEBEXSCL,X'04'      INDICATE DA DEB                      N2317200

003F70 50F0 3000      00000        4934 NDCDE3   ST    R15,0(,WB)          STORE DEB ADDR FOR LATER INIT        N2317300
003F74 4130 3004      00004        4935          LA    WB,4(,WB)           INCREMENT DEB LIST ADDRESS           N2317400
003F78 4110 1030      00030        4936 NDCDE4   LA    R1,(3+9)*4(,R1)     R1 = NEXT DCB ADDRESS                N2317500
003F7C 41F0 F030      00030        4937          LA    R15,(3+9)*4(,R15)   R15 = NEXT DEB ADDRESS               N2317600
003F80 5820 2014      00014        4938          L     WA,DCTCHAIN         WA = NEXT DCT ADDRESS                N2317700
003F84 4600 C4D0      03F30        4939          BCT   R0,NDCDE1           LOOP IF MORE OF SAME DEVICE          N2317800
003F88 07FE                        4940          BR    R14                 RETURN                               N2317900
                                   4941          DROP  R1,R15,WA                                                N2318000
003F8C                             4942 NDCDEDUM DS    0F                                               OY04678 N2318100
003F8C 0000                        4943          DC    AL2(0)              TIOT                         OY04678 N2318120
003F8E A000                        4944          DC    B'1010000000000000' MACRF                        OY04678 N2318140
003F90 00000000                    4945          DC    A(0)                DEB                          OY04678 N2318160

003F94 10                          4946          DC    B'00010000'         OFLGS                        OY04678 N2318180
003F95 000000                      4947          DC    AL3(0)                                           OY04678 N2318190
                                   4948 *                                  MOST DCB FIELDS                      N2318200

003F98 0000000004000000            4949          DC    A(0),X'04000000',X'88000000',X'03000000'                 N2318300
003FA8 0100000000000000            4950          DC    X'01000000',X'00000000',X'0F000000',X'02000000'          N2318400
                                   4951 *                                  MOST DEB FIELDS                      N2318500
003FB8 00000000                    4952 NFIXECB  DC    F'0'                FIX ECB                              N2318600
                                   4953 NDCDEEND NULL                                                           N2318700
003FBC                             4954+NDCDEEND DS    0H                                                       NU006000


                                   4956          AIF   (&TRACE EQ 0).NOTRACE                                    N2318900
                                   4957 .NOTRACE ANOP                                                           N2320200
INIT     HASP INITIALIZATION PROCESSOR - PREPARE OVERLAY SERVICE                                               PAGE  111


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

003FBC 5860 73D0      04E30        4959          L     WE,=A($OLAYDCT)     WE = ADDRESS OF OVERLAY DCT          N2320400

                            00000  4960          USING DCTDSECT,WE         ADDRESSABILITY                       N2320500

                                   4961          EXTRN $OROLLAD                                                 N2322000
003FC0 5820 73D4      04E34        4962          L     WA,=A($OROLLAD-PCEBASE2+PCEDSECT)  PUT $OROLL            N2324000

003FC4 5020 6000      00000        4963          ST    WA,DCTPCE            PROCESSOR ADDRESS IN DCT            N2326000
003FC8 9280 6000      00000        4964          MVI   DCTSTAT,DCTINUSE    MAKE OLAY DCT ACTIVE                 N2328000
003FCC 5820 73D8      04E38        4965          L     WA,=V($OLASYNC)     STORE ADDRESS OF OVERLAY             N2330000
003FD0 5020 600C      0000C        4966          ST    WA,DCTEWF            ASYNC EXIT IN DCT                   N2332000
003FD4 9280 600C      0000C        4967          MVI   DCTEWF,X'80'        MAKE EWF NEGATIVE FOR EXIT           N2334000
003FD8 9280 6013      00013        4968          MVI   DCTIOTYP,DCTREAD    DCT USED ONLY FOR READING            N2336000
                                   4969          DEVTYPE NOLIBDD,NSAVE+20,DEVTAB GET OVERLAY DEVICE CHARISTICS  N2338000
003FDC 4110 7500      04F60        4970+         LA    1,NOLIBDD                         LOAD PARAMETER REG 1   00100000
003FE0 4100 74C4      04F24        4971+         LA    0,NSAVE+20                        LOAD PARAMETER REG 0   00280000
003FE4 1300                        4972+         LCR   0,0                                               S20201 00172020
003FE6 0A18                        4973+         SVC   24                                                       00180000
003FE8 D201 601C 74CE 0001C 04F2E  4974          MVC   DCTOTC,NSAVE+30     SET TRKS/CYL IN OLAY DCT             N2340000

                                   4975          OPEN  (NOLIB)             OPEN OVERLAY DATA SET                N2342000
003FEE 0700                        4976+         CNOP  0,4                               ALIGN LIST TO FULLWORD 01740001

003FF0 4510 C598      03FF8        4977+         BAL   1,*+8                             LOAD REG1 W/LIST ADDR. 01780000

003FF4 80                          4978+         DC    AL1(128)                          OPTION BYTE            01900000
003FF5 0051F8                      4979+         DC    AL3(NOLIB)                        DCB ADDRESS            01920000
003FF8 0A13                        4980+         SVC   19                                ISSUE OPEN SVC         04000000
003FFA 5810 77C4      05224        4981          L     R1,NOLIB+DCBDEBAD-IHADCB R1 = DEB ADDRESS                N2344000
003FFE 9825 1020      00020        4982          LM    WA,WD,DEBUCBAD-DEBDSECT(R1) GET OLAY EXTENT IN REGISTERS N2346000
                                   4983          CLOSE (NOLIB)             CLOSE OVERLAY DATA SET               N2348000
004002 0700                        4984+         CNOP  0,4                               ALIGN LIST TO FULLWORD 02420001
004004 4510 C5AC      0400C        4985+         BAL   1,*+8                             LOAD REG1 W/LIST ADDR  02460001
004008 80                          4986+         DC    AL1(128)                          OPTION BYTE            02580000
004009 0051F8                      4987+         DC    AL3(NOLIB)                        DCB ADDRESS            02600000
00400C 0A14                        4988+         SVC   20                                ISSUE CLOSE SVC        01640000
                            00000  4989          USING UCBDSECT,WA         WA POINTS TO OVERLAY UCB             N2350000

                                   4990          STH   WA,NSPOOLL1+&NUMDA*6+2 STORE UCB ADDR IN ABORT TABLE     N2352000
00400E 4020 C7AA      0420A        4991+         STH   WA,NSPOOLL1+2*6+2      STORE UCB ADDR IN ABORT TABLE     N2352000
                                   4992          MVI   NSPOOLL1+&NUMDA*6+1,X'FF' INDICATE ACTIVE ENTRY          N2354000

004012 92FF C7A9      04209        4993+         MVI   NSPOOLL1+2*6+1,X'FF'      INDICATE ACTIVE ENTRY          N2354000
                                   4994          DROP  WA                                                       N2362000
004016 5810 7384      04DE4        4995          L     R1,$DADEBAD         GET ADDRESS OF DA DEB                N2364000
                                   4996          STM   WA,WD,DEBUCBAD-DEBDSECT+&NUMDA*16(R1) PUT O XTNT IN DEB  N2366000
00401A 9025 1040      00040        4997+         STM   WA,WD,DEBUCBAD-DEBDSECT+2*16(R1)      PUT O XTNT IN DEB  N2366000
00401E 4C30 601C      0001C        4998          MH    WB,DCTOTC           COMPUTE TRACKS IN BEGINNING CC       N2368000
004022 8840 0010      00010        4999          SRL   WC,16               POSITION, THEN                       N2370000
004026 1A34                        5000          AR    WB,WC                ADD BEGINNING HH, THEN              N2372000
004028 4030 601E      0001E        5001          STH   WB,DCTOTT             SET BEGINNING TT IN OLAY DCT       N2374000
                                   5002          DROP  WE                                                       N2376000
INIT     HASP INITIALIZATION PROCESSOR - COLLECT DIRECT ACCESS UCBS                                            PAGE  112


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   5004         $DISABLE ALL                                                    N2380000
00402C 8000 B0C9      000C9        5005+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
004030 5820 0010      00010        5006          L     WA,$CVTPTR           LOAD CVT POINTER                    N2382000
                            00000  5007          USING CVTDSECT,WA          ADDRESSIBILITY FOR CVT              N2384000

004034 5830 2000      00000        5008          L     WB,CVTTCBP          SET                                  N2388000
004038 5830 3004      00004        5009          L     WB,4(,WB)            HASP                                N2390000
00403C 5030 B0D4      000D4        5010          ST    WB,$HASPTCB           TCB ADDRESS                        N2392000
                                   5011          AIF   (&SYSVS2).NOINITG                                   RFIT N2394000
004040 9200 301C      0001C        5012          MVI   TCBPKF-TCBDSECT(WB),0 FORCE ZERO KEY                RFIT N2396000
                                   5013 .NOINITG ANOP                                                      RFIT N2398000

004044 D20B B0EC 7734 000EC 05194  5014          MVC   $TPBPOOL($JITABLE-$TPBPOOL+4),NHCTLIST  SET UP HCT       N2400000
                                   5015          AIF   (&NUMSMFB LT 2).NOSMF2                                   N2400300
00404A D203 B11C 73DC 0011C 04E3C  5016          MVC   $SMFFREE,=A(S1)     ADDR OF 1ST HASP SMF BUFFER          N2400500
                                   5017 .NOSMF2  ANOP                                                           N2400600
004050 D203 B108 73E0 00108 04E40  5018          MVC   $FREEQUE,=A(W1)     ADDR OF 1ST WTOQ                     N2401000
004056 D203 B124 73E4 00124 04E44  5019          MVC   $PRCHKPT,=A(PRCHKPT)     ADDR OF PRINT CHECKPOINT TABLE  N2402000
00405C D203 B0FC 73E8 000FC 04E48  5020          MVC   $CYLMAP,=A(CYLMAP)  ADDRESS OF TRACK GROUP MAP           N2403000
004062 5820 2028      00028        5021          L     WA,CVTILK2           ADDRESS OF UCB LOOK UP TABLE        N2404000

                                   5022          DROP  WA                                                       N2406000
                            00000  5023          USING UCBDSECT,WB                                              N2408000

004066 4150 0006      00006        5024          LA    WD,6                SET COUNT OF DISKS * 6               N2410000
00406A 0540                        5025          BALR  WC,0                ESTABLISH LOOP BASE FOR CORE SAVE    N2412000
00406C 4830 2000      00000        5026 NDALOOPA LH    WB,0(0,WA)          POINT TO UCB                         N2414000
004070 4120 2002      00002        5027          LA    WA,2(0,WA)          POINT TO NEXT LOOK UP TABLE ENTRY    N2416000
004074 1233                        5028          LTR   WB,WB               TEST FOR NULL, END, OR GOOD          N2418000
004076 0784                        5029          BCR   Z,WC                IF NULL, CONTINUE SCAN               N2420000
004078 4740 C792      041F2        5030          BM    NDAINIT             IF END, INITIALIZE DIRECT ACCESS     N2422000
00407C 9520 3012      00012        5031          CLI   UCBTBYT3,UCB3DACC   LOOK FOR DIRECT ACCESS               N2424000

004080 0774                        5032          BCR   NE,WC               IF NOT, GO TO NEXT                   N2426000
                                   5033 * ATTEMPT TO ALLOCATE THE UCB - EXCLUSIVELY                             N2428000
004082 D504 7510 301C 04F70 0001C  5034 NDAFOUND CLC   NSPOOL,SRTEVOLI     TEST FOR SPOOL LABEL                 N2430000
004088 0774                        5035          BCR   NE,WC               IF NOT, GO TO NEXT                   N2432000
00408A 912C 3003      00003        5036          TM    SRTESTAT,SRTERESV+SRTEALOC+SRTEPRES PREVIOUSLY FOUND     N2434000

00408E 0714                        5037          BCR   O,WC                IF SO, GO TO NEXT                    N2436000
004090 95F1 3021      00021        5038          CLI   SRTEVOLI+5,C'1'     IS IT SPOOL1                         N2438000
004094 4780 C680      040E0        5039          BE    NCKSPOL1            IF SO, CHECK FOR PREVIOUS SPOOL1     N2440000

004098 4950 74FC      04F5C        5040          CH    WD,NMAXDA4          CHECK FOR TOO MANY DISKS             N2442000
00409C 47B0 C714      04174        5041          BNL   NDAERR1             TOO MANY DISKS                       N2444000
                                   5042 * SECONDARY SPOOL DISK HAS BEEN LOCATED                                 N2446000
0040A0 1B66                        5043          SR    WE,WE               ZERO LOOP REGISTER                   N2448000
0040A2 41F6 C79C      041FC        5044 NDADUPS  LA    R15,NSPOOLL1(WE)    POINT TO ENTRY IN UCB TABLE          N2450000
0040A6 1965                        5045          CR    WE,WD               CHECK FOR END OF ALLOCATED LIST      N2452000
0040A8 4780 C65E      040BE        5046          BE    NDASETV             SET VOL ID IF END                    N2454000

0040AC D500 3021 F001 00021 00001  5047          CLC   SRTEVOLI+5(1),1(R15) CHECK SERIAL NUMBER DUPLICATION     N2456000
0040B2 4780 C71C      0417C        5048          BE    NDAERR2             DUPLICATE VOLUME SERIAL EXIT         N2458000
0040B6 4160 6006      00006        5049          LA    WE,6(,WE)           INCREMENT LOOP REGISTER              N2460000
0040BA 47F0 C642      040A2        5050          B     NDADUPS             LOOP UNITL END                       N2462000
0040BE 4150 5006      00006        5051 NDASETV  LA    WD,6(,WD)           INCREMENT DISK COUNT                 N2464000

0040C2 4030 F002      00002        5052 NDAALLOC STH   WB,2(0,R15)         SET UCB ADDRESS                      N2466000
0040C6 D200 F001 3021 00001 00021  5053          MVC   1(1,R15),SRTEVOLI+5 MOVE LAST CHARACTER OF SERIAL        N2468000
0040CC D200 F000 3013 00000 00013  5054          MVC   0(1,R15),UCBTBYT4   MOVE DEVICE TYPE                     N2470000
0040D2 962C 3003      00003        5055          OI    SRTESTAT,SRTERESV+SRTEALOC+SRTEPRES ALLOCATE UCB         N2472000

0040D6 94F3 3022      00022        5056          NI    SRTESTAB,255-SRTEBPUB-SRTEBSTR REMOVE STORAGE, PUBLIC    N2474000
0040DA 9610 3022      00022        5057          OI    SRTESTAB,SRTEBPRV   FORCE PRIVATE STATUS                 N2476000
0040DE 07F4                        5058          BR    WC                  LOOP                                 N2478000
INIT     HASP INITIALIZATION PROCESSOR - COLLECT DIRECT ACCESS UCBS                                            PAGE  113


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5059 * SPOOL1 DISK HAS BEEN FOUND                                            N2480000

0040E0 95F1 C79D      041FD        5060 NCKSPOL1 CLI   NSPOOLL1+1,C'1'     HAS SPOOL1 BEEN ALLOCATED ALREADY    N2482000
0040E4 4780 C71C      0417C        5061          BE    NDAERR2             DUPLICATE VOLUME SERIAL EXIT         N2484000
0040E8 41F0 C79C      041FC        5062          LA    R15,NSPOOLL1        POINT TO SPOOL1 ENTRY                N2486000
0040EC 47F0 C662      040C2        5063          B     NDAALLOC            ALLOCATE THE UCB                     N2488000
INIT     HASP INITIALIZATION PROCESSOR - ERROR EXIT ROUTINES                                                   PAGE  114



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5065 NUROUT   NULL  ,                   EXIT AFTER UNIT RECORD INIT          N2492000
0040F0                             5066+NUROUT   DS    0H                                                       NU006000
                                   5067          AIF   (NOT &AUTORDR).INARDR                                    N2494000
0040F0 1BEE                        5068          SR    LINK,LINK           SET COUNT TO ZERO                    N2496000

                                   5069          LA    WC,&NUMRDRS         SET COUNT                            N2498000
0040F2 4140 0001      00001        5070+         LA    WC,1                SET COUNT                            N2498000
0040F6 58FE 7714      05174        5071 NUROUTL  L     R15,$RDRDEBL(LINK)  PICK UP DEB ADDRESS                  N2500000
0040FA 4830 F022      00022        5072          LH    WB,DEBUCBAD+2-DEBDSECT(0,R15) PICK UP UCB ADDRESS        N2502000
0040FE 1233                        5073          LTR   WB,WB               TEST FOR SET                         N2504000

004100 4780 C6A8      04108        5074          BE    NUROUTC             IF NOT SKIP RESET                    N2506000
004104 9200 300B      0000B        5075          MVI   UCBATI,0            RESET ATTENTION OFFSET               N2508000
004108 41E0 E004      00004        5076 NUROUTC  LA    LINK,4(0,LINK)      UP TO NEXT                           N2510000
00410C 4640 C696      040F6        5077          BCT   WC,NUROUTL          LOOP                                 N2512000
                                   5078 .INARDR  ANOP                                                           N2514000

004110 41F0 C79C      041FC        5079 NDAOUT   LA    R15,NSPOOLL1        POINT TO FIRST DIRECT ACCESS         N2516000
                                   5080          LA    WC,&NUMDA           SET LOOP COUNTER                     N2518000
004114 4140 0002      00002        5081+         LA    WC,2                SET LOOP COUNTER                     N2518000
004118 41E0 C6F2      04152        5082          LA    R14,NDAOUTC         LOCATE LOOP CONTROL                  N2520000
00411C 9500 F001      00001        5083 NDAOUTL  CLI   1(R15),0            TEST FOR ENTRY NOT FILLED IN         N2522000
004120 078E                        5084          BCR   E,R14               IF VOID FORGET IT                    N2524000

004122 4830 F002      00002        5085          LH    WB,2(0,R15)         POINT TO UCB                         N2526000
                            00000  5086          USING UCBDSECT,WB                                              N2528000
004126 94DF 3003      00003        5087          NI    SRTESTAT,255-SRTERESV RELEASE RESERVED STATUS            N2530000
00412A 9500 3038      00038        5088          CLI   SRTEUSER,0          ANY CURRENT USERS                    N2532000

00412E 4770 C6D6      04136        5089          BNZ   NDATRES             IF SO LEAVE ALLOCATED                N2534000
004132 94F7 3003      00003        5090          NI    SRTESTAT,255-SRTEALOC DEALLOCATE THE DEVICE              N2536000
004136 9502 3013      00013        5091 NDATRES  CLI   UCBTBYT4,UCB2301    IS THIS 2301                         N2538000
00413A 078E                        5092          BCR   E,R14               SKIP RESET IF YES                    N2540000
00413C 9503 3013      00013        5093          CLI   UCBTBYT4,UCB2303    IS THIS 2303                         N2542000

004140 078E                        5094          BCR   E,R14               SKIP RESET IF YES                    N2544000
004142 9506 3013      00013        5095          CLI   UCBTBYT4,UCB2305    IS THIS 2305                         N2546000
004146 078E                        5096          BCR   E,R14               SKIP RESET IF YES                    N2548000
004148 9507 3013      00013        5097          CLI   UCBTBYT4,UCB23052   IS THIS 2305 2                       N2550000
00414C 078E                        5098          BCR   E,R14               SKIP RESET IF YES                    N2552000
00414E 94FB 3003      00003        5099          NI    SRTESTAT,255-SRTEPRES RESET PERMINENTLY RESIDENT         N2554000
004152 41F0 F006      00006        5100 NDAOUTC  LA    R15,6(,R15)         POINT TO NEXT UCB                    N2556000

004156 4640 C6BC      0411C        5101          BCT   WC,NDAOUTL          LOOP UNITL FINISHED                  N2558000
                                   5102 NQUIKOUT $ENABLE ALL               ALLOW INTERRUPTS                     N2560000
00415A 8000 B0C8      000C8        5103+NQUIKOUT SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000

                                   5104          WTO   MF=(E,(1))          SEND DIAGNOSTICS                     N2562000
00415E 0A23                        5105+         SVC   35                                ISSUE SVC              00750021
004160 58F0 B138      00138        5106          L     R15,$SVCRSET        PICK UP HASP SVC RETURN              N2564000
004164 41E0 C70A      0416A        5107          LA    R14,*+6             GET RESET RETURN ADDR                N2565000
004168 07FF                        5108          BR    R15                 GO RESET OUR PSW                     N2566000

                                   5109 NWTOROUT NULL                                                           N2567000
00416A                             5110+NWTOROUT DS    0H                                                       NU006000
00416A 58D0 74B4      04F14        5111          L     R13,NSAVE+4         LOCATE SYSTEM SAVE                   N2568000
00416E 98EC D00C      0000C        5112          LM    R14,R12,12(R13)     LOAD SYSTEMS REGISTERS               N2570000
004172 07FE                        5113          BR    R14                 EXIT                                 N2572000
                                   5114          DROP  WB                                                       N2574000
004174 4110 C724      04184        5115 NDAERR1  LA    R1,NDAEM1           NUMBER OF DEVICES EXCEEDED           N2576000

004178 47F0 C6B0      04110        5116          B     NDAOUT              EXIT VIA MESSAGE ROUTINE             N2578000
00417C 4110 C750      041B0        5117 NDAERR2  LA    R1,NDAEM2           DUPLICATE VOLUME SERIALS             N2580000
004180 47F0 C6B0      04110        5118          B     NDAOUT              EXIT VIA MESSAGE ROUTINE             N2582000

INIT     HASP INITIALIZATION PROCESSOR - DIRECT ACCESS MESSAGES                                                PAGE  115


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5120 NDAEM1   WTO   'MAXIMUM OF &NUMDA SPOOL VOLUME(S) EXCEEDED',MF=L        N2586000
004184                             5121+NDAEM1   DS    0F                                                       01050021
004184 0029                        5122+         DC    AL2(41)             TEXT LENGTH                          11950021

004186 0000                        5123+         DC    B'0000000000000000' MCS FLAGS                            12000021
004188 D4C1E7C9D4E4D440            5124+         DC    C'MAXIMUM OF 2 SPOOL VOLUME(S) EXCEEDED'                 12100021
                                   5125 NDAEM2   WTO   'SPOOL VOLUMES HAVE DUPLICATE LABELS',MF=L               N2588000
0041B0                             5126+NDAEM2   DS    0F                                                       01050021
0041B0 0027                        5127+         DC    AL2(39)             TEXT LENGTH                          11950021
0041B2 0000                        5128+         DC    B'0000000000000000' MCS FLAGS                            12000021
0041B4 E2D7D6D6D340E5D6            5129+         DC    C'SPOOL VOLUMES HAVE DUPLICATE LABELS'                   12100021
                                   5130 NREPEM1  WTO   'OVERLAY REPPING ERROR',MF=L                             N2590000

0041D8                             5131+NREPEM1  DS    0F                                                       01050021
0041D8 0019                        5132+         DC    AL2(25)             TEXT LENGTH                          11950021

0041DA 0000                        5133+         DC    B'0000000000000000' MCS FLAGS                            12000021
0041DC D6E5C5D9D3C1E840            5134+         DC    C'OVERLAY REPPING ERROR'                                 12100021
                                   5135          AIF   (&SYSVS2 OR &SYSMVT).NOINIT9                        RFIT N2592000
                                   5136 .NOINIT9 ANOP                                                      RFIT N2598000
                                   5137          DROP  BASE2,WF                                                 N2600000

                                   5138 NDAINIT  NULL                                                           N2602000
0041F2                             5139+NDAINIT  DS    0H                                                       NU006000
                                   5140          $ENABLE ALL               ALLOW INTERRUPTS                     N2604000
0041F2 8000 B0C8      000C8        5141+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  116


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5143 *********************************************************************** N2608000
                                   5144 *                                                                     * N2610000
                                   5145 *        D I R E C T - A C C E S S   I N I T I A L I Z A T I O N      * N2612000

                                   5146 *                                                                     * N2614000

                                   5147 *********************************************************************** N2616000
                                   5148 *                                                                     * N2618000
                                   5149          EXTRN $JOBQUE                                                  N2620000
0041F6 05C0                        5150 NGDAINIT BALR  R12,0               ESTABLISH                            N2622000
                            041F8  5151          USING *,R12                 ADDRESSABILITY.                    N2624000

                                   5152          B     *+4+((&NUMDA+1)*6)  BRANCH AROUND NSPOOLL1.              N2626000
0041F8 47F0 C016      0420E        5153+         B     *+4+((2+1)*6)       BRANCH AROUND NSPOOLL1.              N2626000
                                   5154 NSPOOLL1 DC    ((&NUMDA+1)*3)H'0'                                       N2628000
0041FC 0000000000000000            5155+NSPOOLL1 DC    ((2+1)*3)H'0'                                            N2628000
00420E D203 C8F4 B104 04AEC 00104  5156          MVC   NGIOB+IOBDCBPT-BUFDSECT(4),$DCBLIST DCB ADR TO IOB       N2629000
                                   5157          MVC   NSPOOSAV(6*(&NUMDA+1)),NSPOOLL1   SAVE NSPOOLL1.         N2630000
004214 D211 CBD0 C004 04DC8 041FC  5158+         MVC   NSPOOSAV(6*(2+1)),NSPOOLL1        SAVE NSPOOLL1.         N2630000
00421A 5890 CC54      04E4C        5159          L     R9,=A(TEDSTART)     GET ADDRESSABILITY TO                N2632000
                            00000  5160          USING TEDDSECT,R9           EXTENT DATA INFORMATION.           N2634000
00421E 5090 B100      00100        5161          ST    R9,$TEDADDR         SET ITS ADDRESS FOR $TRACK.          N2636000

004222 4160 0006      00006        5162          LA    R6,6                SET UP BXLE INCREMENT                N2638000

                                   5163          LA    R7,6*&NUMDA-1         AND BXLE LIMIT.                    N2640000
004226 4170 000B      0000B        5164+         LA    R7,6*2-1              AND BXLE LIMIT.                    N2640000
00422A 45D0 C808      04A00        5165          BAL   R13,NGDEBSET        GO SET UP $DADEB1 AND EXTENT DATA.   N2642000
00422E 92F1 C46E      04666        5166          MVI   NGVOL+5,C'1'        SET VOL SER NO TO SPOOL1.            N2644000

                                   5167          OBTAIN NGSEARCH           GET THE SYS1.HASPACE DSCB.           N2646000
004232 4110 C48C      04684        5168+         LA    1,NGSEARCH                        LOAD PARAMETER REG 1   00100000
004236 0A1B                        5169+         SVC   27                       ISSUE OBTAIN SVC                00100019
004238 12FF                        5170          LTR   R15,R15             DID OBTAIN WORK OKAY...              N2648000
00423A 4780 C04E      04246        5171          BZ    *+12                BRANCH IF YES.                       N2650000
00423E 45D0 C442      0463A        5172          BAL   R13,NGAERR          OTHERWISE PRINT ERROR MSG            N2652000
004242 47F0 C7C0      049B8        5173          B     NGQUITT             AND QUIT.                            N2654000
004246 D207 C2F8 C507 044F0 046FF  5174          MVC   NGWDBL,DSCLOWLM     MOVE CCHHCCHH TO DOUBLEWORD.         N2656000
00424C D203 C778 C2F8 04970 044F0  5175          MVC   NGCKF(4),NGWDBL     SET CHECKPOINT CCHH.                 N2658000
004252 D203 C763 C2F8 0495B 044F0  5176          MVC   NGCKSW+3(4),NGWDBL  AGAIN.                               N2660000
004258 4810 C2F8      044F0        5177          LH    R1,NGWDBL           GET CC.                              N2662000

00425C 4C10 9006      00006        5178          MH    R1,TNTC+2           MULTIPLY BY TRKS/CYL.                N2664000
004260 4A10 C2FA      044F2        5179          AH    R1,NGWDBL+2         ADD TT.                              N2666000
004264 4010 B0D0      000D0        5180          STH   R1,$CKPTRAK         SAVE TT FOR CHECKPOINT.              N2668000
004268 4810 C2FA      044F2        5181          LH    R1,NGWDBL+2         FOR THE JIT CHECKPOINT RECORD,       N2672000

00426C 4110 1001      00001        5182          LA    R1,1(,R1)           USE THE NEXT TRACK.                  N2674000
004270 5910 9004      00004        5183          C     R1,TNTC             IS IT WITHIN SAME CYLINDER...        N2676000
004274 4740 C08E      04286        5184          BL    NG1                 BRANCH IF SO.                        N2678000
004278 1B11                        5185          SR    R1,R1               NO.  MAKE HEAD NR ZERO               N2680000
00427A 4820 C2F8      044F0        5186          LH    R2,NGWDBL           AND INCREASE                         N2682000
00427E 4120 2001      00001        5187          LA    R2,1(,R2)           CYLINDER NUMBER                      N2684000
004282 4020 C2F8      044F0        5188          STH   R2,NGWDBL           BY ONE.                              N2686000
004286 4010 C2FA      044F2        5189 NG1      STH   R1,NGWDBL+2         SET JIT HEAD NUMBER.                 N2688000
00428A D203 C780 C2F8 04978 044F0  5190          MVC   NGCK2F(4),NGWDBL    MOVE JIT CHECKPOINT CCHH.            N2690000
004290 D203 C6E3 C2F8 048DB 044F0  5191          MVC   NGCK2SR+3(4),NGWDBL AGAIN.                               N2692000
004296 D203 C76B C2F8 04963 044F0  5192          MVC   NGCK2SW+3(4),NGWDBL AGAIN.                               N2694000
00429C 5810 CC58      04E50        5193          L     R1,=V($JITTRAK)     MOVE JIT CHECKPOINT CCHH             N2694500

0042A0 D203 1002 C2F8 00002 044F0  5194          MVC   2(4,R1),NGWDBL      TO CHECKPOINT PROCESSOR.             N2695000
0042A6 4810 C2FA      044F2        5195          LH    R1,NGWDBL+2         FOR THE JOT CHECKPOINT RECORD,       N2696000
0042AA 4110 1001      00001        5196          LA    R1,1(,R1)           USE THE NEXT TRACK.                  N2696100

0042AE 5910 9004      00004        5197          C     R1,TNTC             IS IT WITHIN SAME CYLINDER...        N2696200
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  117


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0042B2 4740 C0CC      042C4        5198          BL    NG2                 BRANCH IF SO.                        N2696300
0042B6 1B11                        5199          SR    R1,R1               NO.  MAKE HEAD NUMBER ZERO           N2696400
0042B8 4820 C2F8      044F0        5200          LH    R2,NGWDBL           AND INCREASE                         N2696500
0042BC 4120 2001      00001        5201          LA    R2,1(,R2)           CYLINDER NUMBER                      N2696600
0042C0 4020 C2F8      044F0        5202          STH   R2,NGWDBL           BY ONE.                              N2696700
0042C4 4010 C2FA      044F2        5203 NG2      STH   R1,NGWDBL+2         SET JOT HEAD NUMBER.                 N2696800
0042C8 D203 C788 C2F8 04980 044F0  5204          MVC   NGCK3F(4),NGWDBL    MOVE JOT CHECKPOINT CCHH.            N2696900
0042CE D203 C6EB C2F8 048E3 044F0  5205          MVC   NGCK3SR+3(4),NGWDBL AGAIN.                               N2697000
0042D4 D203 C773 C2F8 0496B 044F0  5206          MVC   NGCK3SW+3(4),NGWDBL AGAIN.                               N2697100

0042DA 5810 CC5C      04E54        5207          L     R1,=V($JOTTRAK)     MOVE JOT CHECKPOINT CCHH             N2697300

0042DE D203 1002 C2F8 00002 044F0  5208          MVC   2(4,R1),NGWDBL      TO CHECKPOINT PROCESSOR.             N2697400
0042E4 91C0 B0C1      000C1        5209          TM    $OPTSTAT,$OPTCOLD+$OPTFMT  CHECK FOR WARM START.         N2698000

0042E8 4770 C324      0451C        5210          BNZ   NGCOLD              BRANCH IF COLD OR FORMAT.            N2700000
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  118


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5212 *********************************************************************** N2704000
                                   5213 *                                                                     * N2706000
                                   5214 *                     W A R M   S T A R T                             * N2708000
                                   5215 *                                                                     * N2710000
                                   5216 *********************************************************************** N2712000
                                   5217 *                                                                     * N2714000
0042EC D204 C903 C778 04AFB 04970  5218          MVC   NGIOB+35(5),NGCKF   SET CCHHR INTO IOB.                  N2716000
0042F2 45E0 C8C0      04AB8        5219          BAL   R14,NGEXCP          GO READ IN THE CHECKPOINT.           N2718000
0042F6 47F0 C106      042FE        5220          B     *+8                 NO ERROR - CONTINUE.                 N2720000

0042FA 47F0 C798      04990        5221          B     NGCKMSG             ERROR.  WRITE MESSAGE AND QUIT.      N2722000
                                   5222 *                                                                       N2724000

                                   5223 *              SCATTER THE CHECKPOINT RECORD.                           N2726000

                                   5224 *                                                                       N2728000
                                   5225          LM    R13,R14,=A($JOBQUE+&MAXJOBS*&QENTSIZ,PRCHKPT)  SET       N2730000
0042FE 98DE CBF0      04DE8        5226+         LM    R13,R14,=A($JOBQUE+100*16,PRCHKPT)             SET       N2730000
004302 D21F B13C D000 0013C 00000  5227          MVC   $SAVEBEG($SAVELEN),0(R13)  MOVE SAVEAREA FROM CKPT.      N2734000
004308 4100 D020      00020        5228          LA    R0,$SAVELEN(,R13)   SET ADDRESS (IN CHKPT REC)           N2736000
                                   5229          LH    R15,=Y(&NUMPRC*PRCSIZE)  AND SIZE OF                     N2737000
00430C 48F0 CCAE      04EA6        5230+         LH    R15,=Y(3*PRCSIZE)        AND SIZE OF                     N2737000
004310 181F                        5231          LR    R1,R15                PRINT CHECKPOINT.                  N2738000
                                   5232 *        MVCL  R14,R0              MOVE PRT CKPT FROM CKPT REC.    RFIT N2739000
004312 1810                        5233          LR    R1,R0                                               RFIT N2739005
                                   5234 &PRCPRC  SETA  &NUMPRC*28  THIS VALUE MUST BE CHANGED IF PRT CKPT  RFIT N2739010
                                   5235 *                             IS EVER EXPANDED        .......CKPT  RFIT N2739011

                                   5236          $XXC  MVC,(0,R14),(0,R1),&PRCPRC                          RFIT N2739015
004314 D253 E000 1000 00000 00000  5237+         MVC   0+0(84,R14),0+0(R1)                                      XX050000
                                   5238 *                                                                       N2740000

                                   5239 *              CHECK FOR EMPTY QUEUE.  IF SO, COLD START.               N2742000
                                   5240 *                                                                       N2744000
00431A 5810 B144      00144        5241          L     R1,$JQENT           IF THERE ARE NO JOBS                 N2746000
00431E 1211                        5242          LTR   R1,R1                 IN THE JOB QUEUE,                  N2748000
004320 4780 C324      0451C        5243          BZ    NGCOLD                  GO COLD START.                   N2750000
                                   5244 *                                                                       N2752000
                                   5245 *              CHECK THAT ALL FORMERLY-MOUNTED DISKS ARE NOW            N2754000
                                   5246 *              MOUNTED ON THE PROPER DEVICES AND THAT EACH              N2756000
                                   5247 *              HAS THE SAME EXTENT BOUNDARY THAT IT HAD BEFORE.         N2758000
                                   5248 *                                                                       N2760000
004324 1B44                        5249          SR    R4,R4               MAKE OLD INDEX ZERO.                 N2762000
004326 4834 B150      00150        5250 NGW010   LH    R3,$DACKPT(R4)      GET AN OLD DISK DESCRIPTOR.          N2764000

00432A 1233                        5251          LTR   R3,R3               ARE WE AT END OF OLD DISKS...        N2766000
00432C 4780 C21E      04416        5252          BZ    NGW020              BRANCH IF SO.                        N2768000
004330 1B55                        5253          SR    R5,R5               ELSE MAKE NEW INDEX ZERO.            N2770000
004332 4935 C004      041FC        5254 NGW011   CH    R3,NSPOOLL1(R5)     CHECK IT AGAINST A NEW.              N2772000

004336 4780 C184      0437C        5255          BE    NGW015              BR IF DISK FOUND.                    N2774000
00433A 8756 C13A      04332        5256          BXLE  R5,R6,NGW011        OTHERWISE LOOP TILL FOUND.           N2776000
00433E 4230 C16F      04367        5257          STC   R3,NGW012A          NOT FOUND.  SET VOL SER IN MSG.      N2778000
004342 8830 0008      00008        5258          SRL   R3,8                POINT TO                             N2780000
004346 8930 0002      00002        5259          SLL   R3,2                  DEVICE TYPE                        N2782000
00434A 4133 C2FC      044F4        5260          LA    R3,NGWTAB(R3)           (E.G., 2314).                    N2784000

00434E D203 C176 3000 0436E 00000  5261          MVC   NGW012B(4),0(R3)    SET DEVICE TYPE IN MESSAGE.          N2786000
                                   5262 NGW012   WTO   'MOUNT &SPOOL.* ON A ****'  TELL OPERATOR.               N2788000
004354                             5263+         CNOP  0,4                                                      08550021
004354 4510 C17A      04372        5264+NGW012   BAL   1,IHB0140A                        BRANCH AROUND MESSAGE  08600021
004358 001A                        5265+         DC    AL2(26)             TEXT LENGTH                          11950021
00435A 0000                        5266+         DC    B'0000000000000000' MCS FLAGS                            12000021
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  119


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


00435C D4D6E4D5E340E2D7            5267+         DC    C'MOUNT SPOOL* ON A ****'                                12100021
004372                             5268+IHB0140A DS    0H                                                       13900021

004372 0A23                        5269+         SVC   35                                                       14000021
                            04367  5270 NGW012A  EQU   NGW012+19                                                N2790000
                            0436E  5271 NGW012B  EQU   NGW012+26                                                N2792000
004374 96F0 C21B      04413        5272          OI    NGQUIT+1,X'F0'      SET THE QUIT SWITCH.                 N2794000
004378 47F0 C216      0440E        5273          B     NGW019              GO TRY TO FIND NEXT VOLUME.          N2796000
00437C 45D0 C3A8      045A0        5274 NGW015   BAL   R13,NGALLOC         GO GET THE F1 DSCB.                  N2798000
004380 47F0 C216      0440E        5275          B     NGW019              BRANCH IF ERROR.                     N2800000
004384 4114 B150      00150        5276          LA    R1,$DACKPT(R4)      SET UP FOR THE                       N2802000

004388 4125 C004      041FC        5277          LA    R2,NSPOOLL1(R5)       EXTENT CHECK.                      N2804000
00438C D505 1000 2000 00000 00000  5278          CLC   0(6,R1),0(R2)       CHECK EXTENTS.                       N2806000
004392 4780 C1CC      043C4        5279          BE    NGW017              BRANCH IF OKAY.                      N2808000
004396 4230 C1C1      043B9        5280          STC   R3,NGW016A          ELSE SET VOL SER IN MSG              N2810000
                                   5281 NGW016   WTO   'EXTENT ERROR ON &SPOOL.*'  AND TELL OPERATOR.           N2812000

00439A 0700                        5282+         CNOP  0,4                                                      08550021
00439C 4510 C1C2      043BA        5283+NGW016   BAL   1,IHB0141A                        BRANCH AROUND MESSAGE  08600021
0043A0 001A                        5284+         DC    AL2(26)             TEXT LENGTH                          11950021

0043A2 0000                        5285+         DC    B'0000000000000000' MCS FLAGS                            12000021
0043A4 C5E7E3C5D5E340C5            5286+         DC    C'EXTENT ERROR ON SPOOL*'                                12100021
0043BA                             5287+IHB0141A DS    0H                                                       13900021
0043BA 0A23                        5288+         SVC   35                                                       14000021
                            043B9  5289 NGW016A  EQU   NGW016+29                                                N2814000
0043BC 96F0 C21B      04413        5290          OI    NGQUIT+1,X'F0'      THEN SET THE QUIT SWITCH.            N2816000
0043C0 47F0 C216      0440E        5291          B     NGW019              THEN TRY ANOTHER.                    N2818000

0043C4                             5292 NGW017   DS    0H                                                       N2820000
0043C4 45D0 CB18      04D10        5293          BAL   R13,NGREADCT        GO CHECK THAT WARM VOL IS FORMATTED. N2822000
0043C8 47F0 C1D8      043D0        5294          B     NGW018              NOT FORMATTED - ERROR.               N2824000
0043CC 47F0 C216      0440E        5295          B     NGW019              GO TRY FOR NEXT VOLUME.              N2832000
0043D0 4230 C200      043F8        5296 NGW018   STC   R3,NGW018B          SET VOLUME SERIAL NUMBER.            N2834000

                                   5297 NGW018A  WTO   'PREVIOUSLY-MOUNTED VOL &SPOOL.* IS UNFORMATTED'         N2836000
0043D4                             5298+         CNOP  0,4                                                      08550021
0043D4 4510 C210      04408        5299+NGW018A  BAL   1,IHB0142A                        BRANCH AROUND MESSAGE  08600021
0043D8 0030                        5300+         DC    AL2(48)             TEXT LENGTH                          11950021

0043DA 0000                        5301+         DC    B'0000000000000000' MCS FLAGS                            12000021
0043DC D7D9C5E5C9D6E4E2            5302+         DC    C'PREVIOUSLY-MOUNTED VOL SPOOL* IS UNFORMATTED'          12100021
004408                             5303+IHB0142A DS    0H                                                       13900021
004408 0A23                        5304+         SVC   35                                                       14000021
                            043F8  5305 NGW018B  EQU   NGW018A+36                                               N2838000
00440A 96F0 C21B      04413        5306          OI    NGQUIT+1,X'F0'      SET THE QUIT SWITCH.                 N2840000

00440E 8746 C12E      04326        5307 NGW019   BXLE  R4,R6,NGW010        GO TRY FOR ANOTHER WARM VOLUME.      N2842000
004412 4700 C7C0      049B8        5308 NGQUIT   NOP   NGQUITT             IF ERRORS, WRITE NESSAGE AND QUIT.   N2844000
                                   5309 *                                                                       N2846000
                                   5310 *              CHECK FOR NEW SPOOL VOLUMES THIS IPL.                    N2848000
                                   5311 *              TREAT EACH ONE FOUND AS IN COLD START.                   N2850000

                                   5312 *                                                                       N2852000
004416 1B44                        5313 NGW020   SR    R4,R4               MAKE OLD INDEX AND NEW               N2854000
004418 1854                        5314          LR    R5,R4                 INDEX BOTH ZERO.                   N2856000
00441A 4835 C004      041FC        5315 NGW021   LH    R3,NSPOOLL1(R5)     GET A CURRENTLY-MOUNTED VOLUME.      N2858000
00441E 1233                        5316          LTR   R3,R3               IS THIS ENTRY AN EMPTY ONE...        N2860000

004420 4780 C260      04458        5317          BZ    NGW030              YES.  END OF NEW VOLUMES.            N2862000
004424 4934 B150      00150        5318          CH    R3,$DACKPT(R4)      IS IT THE SAME AS AN OLD ONE...      N2864000
004428 4770 C242      0443A        5319          BNE   NGW022              TR IF MAYBE NOT.                     N2866000
00442C 1B44                        5320          SR    R4,R4               YES.  LOOP TO TRY THE NEXT           N2868000
00442E 8756 C222      0441A        5321          BXLE  R5,R6,NGW021          CURRENTLY-MOUNTED VOLUME.          N2870000

INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  120


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

004432 4400 C21A      04412        5322          EX    0,NGQUIT            DONE.  SEE IF QUIT SW IS SET.        N2872000
004436 47F0 C260      04458        5323          B     NGW030              NO.  CONTINUE.                       N2874000
00443A 8746 C222      0441A        5324 NGW022   BXLE  R4,R6,NGW021        CHECK CURRENT AGAINST ALL OLD VOLS.  N2876000

00443E 45D0 C3A8      045A0        5325          BAL   R13,NGALLOC         GO DO OBTAIN ON THIS NEW VOLUME.     N2878000
004442 47F0 C256      0444E        5326          B     NGW029              BRANCH IF ERROR.                     N2880000
004446 45D0 CB18      04D10        5327          BAL   R13,NGREADCT        DOES VOLUME NEED FORMATTING...       N2882000
00444A 45D0 C90C      04B04        5328          BAL   R13,NGFORMAT        YES.  GO FORMAT THE EXTENT.          N2884000
00444E 1B44                        5329 NGW029   SR    R4,R4               THEN ZERO OLD INDEX                  N2896000
004450 8756 C222      0441A        5330          BXLE  R5,R6,NGW021          AND CHECK FOR MORE NEW VOLUMES.    N2898000

004454 4400 C21A      04412        5331          EX    0,NGQUIT            QUIT IF QUIT SWITCH IS SET.          N2900000
                                   5332 *                                                                       N2902000
                                   5333 *              AGAIN SET UP THINGS TO ALLOW FOR POSSIBILITY OF          N2904000
                                   5334 *              CHANGED ORDERING OF EXTENTS TO MATCH THE OLD $DACKPT.    N2906000

                                   5335 *                                                                       N2908000
                                   5336 NGW030   MVC   NSPOOLL1(6*&NUMDA),NGWSPOOL  SET RE-ORDERED INFO.        N2910000
004458 D20B C004 C62C 041FC 04824  5337+NGW030   MVC   NSPOOLL1(6*2),NGWSPOOL       SET RE-ORDERED INFO.        N2910000
00445E 45D0 C808      04A00        5338          BAL   R13,NGDEBSET        GO REDO THINGS.                      N2912000
                                   5339          LM    R2,R5,=A($JOBQUE,$JOBQUE,&QENTSIZ,$JOBQUE-1+&MAXJOBS*&QECN2914000

                                                       NTSIZ)              GET ADCONS FOR JOB Q RELOCATION.     N2916000
004462 9825 CBF8      04DF0        5340+         LM    R2,R5,=A($JOBQUE,$JOBQUE,16,$JOBQUE-1+100*16)           CN2914000
                                       +                                   GET ADCONS FOR JOB Q RELOCATION.     N2916000
004466 5B20 B13C      0013C        5341          S     R2,$JOBQPTR         COMPUTE RELOCATION FACTOR.           N2918000
00446A 4780 C2B2      044AA        5342          BZ    NGW040              DON'T RELOCATE IF IT'S ZERO.         N2920000
00446E 5030 B13C      0013C        5343          ST    R3,$JOBQPTR         OTHERWISE, CORRECT $JOBQPTR.         N2922000

                                   5344 *                                                                       N2924000
                                   5345 *              RELOCATE $JQENT, $JQFREE, AND JOB QUEUE ENTRIES.         N2926000
                                   5346 *                                                                       N2928000
004472 5860 B144      00144        5347          L     R6,$JQENT           RELOCATE                             N2930000

004476 1266                        5348          LTR   R6,R6                 $JQENT                             N2932000
004478 4780 C28A      04482        5349          BZ    NGW031                  IF                               N2934000
00447C 1A62                        5350          AR    R6,R2                     IT'S                           N2936000
00447E 5060 B144      00144        5351          ST    R6,$JQENT                   NONZERO.                     N2938000
004482 5860 B140      00140        5352 NGW031   L     R6,$JQFREE          RELOCATE                             N2940000

004486 1266                        5353          LTR   R6,R6                 $JQFREE                            N2942000
004488 4780 C29A      04492        5354          BZ    NGW032                  IF                               N2944000
00448C 1A62                        5355          AR    R6,R2                     IT'S                           N2946000
00448E 5060 B140      00140        5356          ST    R6,$JQFREE                  NONZERO.                     N2948000
004492 5860 3004      00004        5357 NGW032   L     R6,QUECHAIN(,R3)    RELOCATE A                           N2950000
004496 4110 6000      00000        5358          LA    R1,0(,R6)             JOB QUEUE                          N2952000
00449A 1211                        5359          LTR   R1,R1                   CHAIN FIELD                      N2954000

00449C 4780 C2AE      044A6        5360          BZ    NGW033                    IF                             N2956000
0044A0 1A62                        5361          AR    R6,R2                       IT'S                         N2958000
0044A2 5060 3004      00004        5362          ST    R6,QUECHAIN(,R3)              NONZERO.                   N2960000

0044A6 8734 C29A      04492        5363 NGW033   BXLE  R3,R4,NGW032        LOOP THROUGH THE QUEUE.              N2962000
                                   5364 *                                                                       N2964000
                                   5365 *              CREATE THE TRACK GROUP MAP                               N2966000
                                   5366 *                                                                       N2968000
0044AA                             5367 NGW040   DS    0H                                                       N2969000

0044AA 5810 B0FC      000FC        5368          L     R1,$CYLMAP          POINT TO THE TRACK GROUP MAP.        N2970000
                                   5369         $XXC   XC,(0,R1),(0,R1),&CYLMAPL  ZERO IT.                      N2972000
0044AE D763 1000 1000 00000 00000  5370+         XC    0+0(100,R1),0+0(R1)                                      XX050000
0044B4 1B55                        5371          SR    R5,R5               ZERO BXLE 1ST OPERAND.               N2974000
0044B6 4160 0006      00006        5372          LA    R6,6                SET INCREMENT TO 6.                  N2976000
                                   5373          MVC   NSPOOLL1(6*&NUMDA),NGDACKPT  RESET NSPOOLL1.             N2978000
0044BA D20B C004 C638 041FC 04830  5374+         MVC   NSPOOLL1(6*2),NGDACKPT       RESET NSPOOLL1.             N2978000
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  121



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0044C0 5890 CC54      04E4C        5375          L     R9,=A(TEDSTART)     POINT TO FIRST TED ENTRY.            N2980000

0044C4 4805 C004      041FC        5376 NGTG0    LH    R0,NSPOOLL1(R5)     IS THIS DA DEVICE                    N2982000
0044C8 1200                        5377          LTR   R0,R0               MOUNTED...                           N2984000
0044CA 4780 C2F4      044EC        5378          BZ    NGTG9               BRANCH IF NOT.                       N2986000
0044CE 45E0 CA58      04C50        5379          BAL   R14,NGMAP           YES.  COUNT ITS TRACK GROUPS.        N2988000
0044D2 1202                        5380          LTR   R0,R2               ARE THERE ANY...                     N2990000

0044D4 47D0 C2EC      044E4        5381          BNP   NGTG1               BRANCH IF NOT.                       N2992000
0044D8 5E00 CBE8      04DE0        5382          AL    R0,NGXTGS           YES  INCREMENT TOTAL                 N2994000
0044DC 5000 CBE8      04DE0        5383          ST    R0,NGXTGS           T G COUNTER AND SAVE.                N2996000
0044E0 45D0 C644      0483C        5384          BAL   R13,NGBITMAP        CREATE MAP FOR THIS EXTENT.          N2998000
0044E4 4190 9014      00014        5385 NGTG1    LA    R9,TEDSIZ(,R9)      POINT TO NEXT TED ENTRY              N3000000
0044E8 8756 C2CC      044C4        5386          BXLE  R5,R6,NGTG0         AND GO DO NEXT EXTENT.               N3002000
0044EC 47F0 CB68      04D60        5387 NGTG9    B     NGEXIT              END OF WARM START.                   N3004000
0044F0                             5388 NGWDBL   DS    D                   DOUBLE-WORD WORK AREA.               N3006000







                            044F4  5390 NGWTAB   EQU   *-4                 DEVICE TYPE FOR UCB+19 ---           N3064000
0044F8 F2F3F1F1                    5391          DC    C'2311'                  1                               N3066000
0044FC F2F3F0F1                    5392          DC    C'2301'                  2                               N3068000
004500 F2F3F0F3                    5393          DC    C'2303'                  3                               N3070000
004504 F2F3F0F2                    5394          DC    C'2302'                  4                               N3072000

004508 40404040                    5395          DC    C'    '                  5                               N3074000
00450C F2F3F0F5                    5396          DC    C'2305'                  6                               N3076000
004510 F2F3F0F5                    5397          DC    C'2305'                  7                               N3078000
004514 F2F3F1F4                    5398          DC    C'2314'                  8                               N3080000
004518 F3F3F3F0                    5399          DC    C'3330'                  9                               N3082000
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  122


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5401 *********************************************************************** N3086000
                                   5402 *                                                                     * N3088000
                                   5403 *        C O L D   S T A R T / F O R M A T   S T A R T                * N3090000

                                   5404 *                                                                     * N3092000

                                   5405 *********************************************************************** N3094000
                                   5406 *                                                                     * N3096000
00451C                             5407 NGCOLD   DS    0H                                                       N3098000
00451C 5820 B0FC      000FC        5408          L     R2,$CYLMAP          POINT TO THE TRACK GROUP MAP.        N3100000

                                   5409         $XXC   XC,(0,R2),(0,R2),&CYLMAPL  CLEAR THE TRK GRP MAP.        N3102000
004520 D763 2000 2000 00000 00000  5410+         XC    0+0(100,R2),0+0(R2)                                      XX050000
004526 1B55                        5411          SR    R5,R5               ZERO THE NEW INDEX.                  N3112000
004528 4835 C004      041FC        5412 NGC010   LH    R3,NSPOOLL1(R5)     GET A SPOOL DESCRIPTOR.              N3114000
00452C 1233                        5413          LTR   R3,R3               IF IT'S ZERO, WE'RE OUT              N3116000
00452E 4780 C368      04560        5414          BZ    NGC020              OF SPOOL VOLUMES.                    N3118000
004532 45D0 C3A8      045A0        5415          BAL   R13,NGALLOC         GO GET THE FORMAT-1 DSCB.            N3120000
004536 47F0 C364      0455C        5416          B     NGC019              BRANCH IF ERROR.                     N3122000
00453A 9180 B0C1      000C1        5417          TM    $OPTSTAT,$OPTFMT    IS THIS A FORMAT START...            N3124000
00453E 4710 C34E      04546        5418          BO    *+8                 SKIP LAST RECORD CHECK IF YES.       N3126000
004542 45D0 CB18      04D10        5419          BAL   R13,NGREADCT        DOES VOLUME NEED FORMATTING...       N3128000

004546 45D0 C90C      04B04        5420          BAL   R13,NGFORMAT        YES.  GO FORMAT IT.                  N3130000
00454A 45E0 CA58      04C50        5421          BAL   R14,NGMAP           IN ANY CASE, GET NR OF TK GPS IN VOL N3132000
00454E 5830 CBE8      04DE0        5422          L     R3,NGXTGS           GET TOTAL TRACK GROUPS SO FAR.       N3134000
004552 1A32                        5423          AR    R3,R2               INCREASE BY NR OF TG'S THIS VOL      N3136000

004554 5030 CBE8      04DE0        5424          ST    R3,NGXTGS           AND SAVE NEW TOTAL.                  N3138000
004558 45D0 C644      0483C        5425          BAL   R13,NGBITMAP        THEN SET UP THE BIT MAP FOR THIS VOL N3140000
00455C 8756 C330      04528        5426 NGC019   BXLE  R5,R6,NGC010        AND GO TRY FOR ANOTHER VOLUME.       N3142000
                                   5427 *                                                                       N3144000
                                   5428 *              FINALLY, SET UP THE JOB STATISTICS AREA,                 N3146000
                                   5429 *              THE JOB QUEUE, AND THE PRINT CHECKPOINT AREA.            N3148000
                                   5430 *                                                                       N3150000
                                   5431 NGC020   LM    R6,R8,=A(&QENTSIZ,(&MAXJOBS-1)*&QENTSIZ+$JOBQUE,$JOBQUE) N3152000
004560 9868 CC60      04E58        5432+NGC020   LM    R6,R8,=A(16,(100-1)*16+$JOBQUE,$JOBQUE)                  N3152000
004564 1B22                        5433          SR    R2,R2               SET UP REGISTERS 2 THROUGH 8         N3154000
004566 1842                        5434          LR    R4,R2               FOR RESETTING JOB STATISTICS         N3156000
004568 1852                        5435          LR    R5,R2               AREA AND THE JOB QUEUE.              N3158000

00456A 5080 B13C      0013C        5436          ST    R8,$JOBQPTR         SET THE JOB QUEUE PTR TO PT TO       N3160000
00456E 5080 B140      00140        5437          ST    R8,$JQFREE          1ST ENTRY, AND SHOW 1ST ENTRY FREE.  N3162000
004572 5020 B144      00144        5438          ST    R2,$JQENT           SHOW NO JOBS IN QUEUE.               N3164000

004576 4020 B14C      0014C        5439          STH   R2,$JOBNO           RESET THE JOB NUMBER.                N3172000
                                   5440          LA    R3,&QENTSIZ.(,R8)   REFRESH THE JOB QUEUE.               N3174000
00457A 4130 8010      00010        5441+         LA    R3,16(,R8)          REFRESH THE JOB QUEUE.               N3174000
00457E 9025 8000      00000        5442          STM   R2,R5,0(R8)           THE                                N3176000
004582 8786 C382      0457A        5443          BXLE  R8,R6,*-8               JOB QUEUE.                       N3178000
004586 5020 7004      00004        5444          ST    R2,4(,R7)           MAKE LAST POINTER ZERO.              N3180000
00458A 5800 B124      00124        5445          L     R0,$PRCHKPT         POINT TO PRINT CHECKPOINT.           N3182000
                                   5446          LH    R1,=Y(&NUMPRC*PRCSIZE)  SET PRINT CHECKPOINT SIZE.       N3183000
00458E 4810 CCAE      04EA6        5447+         LH    R1,=Y(3*PRCSIZE)        SET PRINT CHECKPOINT SIZE.       N3183000
004592 1BFF                        5448          SR    R15,R15             ZERO PAD CHAR AND SOURCE COUNT       N3184000
                                   5449 *        MVCL  R0,R14              CLEAR THE PRINT CHECKPOINT.     RFIT N3186000
004594 1810                        5450          LR    R1,R0                                               RFIT N3186005

                                   5451          $XXC  XC,(0,R1),(0,R1),&PRCPRC                            RFIT N3186010

004596 D753 1000 1000 00000 00000  5452+         XC    0+0(84,R1),0+0(R1)                                       XX050000
00459C 47F0 CB68      04D60        5453          B     NGEXIT              THEN GO CLEAN UP.                    N3188000

INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  123


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5455 *********************************************************************** N3192000
                                   5456 *                                                                     * N3194000
                                   5457 *        NGALLOC --- SUBROUTINE TO DETERMINE IF SYS1.HASPACE IS       * N3196000
                                   5458 *              CORRECTLY ALLOCATED.                                   * N3198000
                                   5459 *                                                                     * N3200000
                                   5460 *********************************************************************** N3202000
                                   5461 *                                                                     * N3204000
0045A0 4230 C46E      04666        5462 NGALLOC  STC   R3,NGVOL+5          SET VOLUME SERIAL FOR OBTAIN.        N3206000
0045A4 5810 C628      04820        5463          L     R1,NGAASPOL         POINT TO NEXT ENTRY IN               N3208000
0045A8 4125 C004      041FC        5464          LA    R2,NSPOOLL1(R5)       RE-ORDERED UNIT LIST,              N3210000

0045AC D205 1000 2000 00000 00000  5465          MVC   0(6,R1),0(R2)           AND MOVE CURRENT                 N3212000
0045B2 4110 1006      00006        5466          LA    R1,6(,R1)                 UNIT LIST ENTRY                N3214000

0045B6 5010 C628      04820        5467          ST    R1,NGAASPOL                 INTO IT.                     N3216000

0045BA 1815                        5468          LR    R1,R5               COMPUTE ADDRESS                      N3218000
0045BC 5C00 CC6C      04E64        5469          M     R0,=A(TEDSIZ)         OF THE CORRECT                     N3220000
0045C0 5D00 CC70      04E68        5470          D     R0,=A(6)                ENTRY IN THE                     N3222000
0045C4 5890 CC54      04E4C        5471          L     R9,=A(TEDSTART)           EXTENT                         N3224000
0045C8 1A91                        5472          AR    R9,R1                       DATA AREA.                   N3226000
0045CA D200 C900 9008 04AF8 00008  5473          MVC   NGIOB+32(1),TNMD    SET EXTENT NUMBER IN THE IOB.        N3228000
                                   5474          OBTAIN NGSEARCH           GET THE FORMAT-1 DSCB.               N3230000
0045D0 4110 C48C      04684        5475+         LA    1,NGSEARCH                        LOAD PARAMETER REG 1   00100000
0045D4 0A1B                        5476+         SVC   27                       ISSUE OBTAIN SVC                00100019
0045D6 12FF                        5477          LTR   R15,R15             IF RETURN NOT ZERO,                  N3232000
0045D8 4770 C442      0463A        5478          BNZ   NGAERR                GO WRITE ERROR MESSAGE.            N3234000
0045DC D207 C2F8 C507 044F0 046FF  5479          MVC   NGWDBL,DSCLOWLM     OTHERWISE PUT BOUNDS ON DOUBLEWD.    N3236000

0045E2 48F0 C626      0481E        5480          LH    R15,NGACTR          PICK UP RE-ORDERING INDEX.           N3238000
0045E6 4815 C004      041FC        5481          LH    R1,NSPOOLL1(R5)     SET FIRST HALFWORD                   N3240000
0045EA 401F C638      04830        5482          STH   R1,NGDACKPT(R15)      OF NEW $DACKPT.                    N3242000

0045EE 4100 F006      00006        5483          LA    R0,6(,R15)          UP ORDERING INDEX                    N3244000
0045F2 4000 C626      0481E        5484          STH   R0,NGACTR             BY 6 AND SAVE.                     N3246000
0045F6 4810 C2F8      044F0        5485          LH    R1,NGWDBL           COMPUTE                              N3248000
0045FA 4C10 9006      00006        5486          MH    R1,TNTC+2             AND SAVE                           N3250000
0045FE 4A10 C2FA      044F2        5487          AH    R1,NGWDBL+2             LOWEST                           N3252000
004602 4015 C006      041FE        5488          STH   R1,NSPOOLL1+2(R5)         TRACK NUMBER.                  N3254000
004606 401F C63A      04832        5489          STH   R1,NGDACKPT+2(R15)  ALSO IN REORDERED SPOT.              N3256000
00460A 4810 C2FC      044F4        5490          LH    R1,NGWDBL+4         COMPUTE                              N3258000
00460E 4C10 9006      00006        5491          MH    R1,TNTC+2             AND SAVE                           N3260000
004612 4A10 C2FE      044F6        5492          AH    R1,NGWDBL+6             HIGHEST                          N3262000
004616 4015 C008      04200        5493          STH   R1,NSPOOLL1+4(R5)         TRACK NUMBER.                  N3264000
00461A 401F C63C      04834        5494          STH   R1,NGDACKPT+4(R15)  ALSO IN REORDERED SPOT.              N3266000

00461E 95F1 C46E      04666        5495          CLI   NGVOL+5,C'1'        IS THE CALL FOR SPOOL1...            N3268000
004622 4770 C43E      04636        5496          BNE   NGASPX              BRANCH IF NOT.                       N3270000
004626 4820 C006      041FE        5497          LH    R2,NSPOOLL1+2       GET SPOOL1 STARTING TRACK NR.        N3272000
00462A 4120 2003      00003        5498          LA    R2,3(,R2)           BYPASS 3 TRACKS FOR CKPT.            N3274000

00462E 4020 C63A      04832        5499          STH   R2,NGDACKPT+2       SET ALTERED TRACK NUMBER             N3282000
004632 4020 C006      041FE        5500          STH   R2,NSPOOLL1+2       IN BOTH PLACES.                      N3284000
004636 47F0 D004      00004        5501 NGASPX   B     4(,R13)             RETURN NORMALLY.                     N3286000
00463A 88F0 0001      00001        5502 NGAERR   SRL   R15,1               INDEX ERROR CODE.                    N3288000
00463E 411F C480      04678        5503          LA    R1,NGATAB-2(R15)    POINT TO PROPER ERROR CODE.          N3290000
004642 D201 C478 1000 04670 00000  5504          MVC   NGAWTOZ(2),0(R1)    SET ERROR CODE IN MESSAGE.           N3292000

                                   5505 NGAWTO   WTO   'OBTAIN FAILED ON &SPOOL.* WITH CC **'                   N3294000
004648                             5506+         CNOP  0,4                                                      08550021
004648 4510 C47A      04672        5507+NGAWTO   BAL   1,IHB0154A                        BRANCH AROUND MESSAGE  08600021
00464C 0026                        5508+         DC    AL2(38)             TEXT LENGTH                          11950021
00464E 0000                        5509+         DC    B'0000000000000000' MCS FLAGS                            12000021
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  124


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

004650 D6C2E3C1C9D540C6            5510+         DC    C'OBTAIN FAILED ON SPOOL* WITH CC **'                    12100021

004672                             5511+IHB0154A DS    0H                                                       13900021
004672 0A23                        5512+         SVC   35                                                       14000021

004674 96F0 C21B      04413        5513          OI    NGQUIT+1,X'F0'      SET THE QUIT SWITCH                  N3296000
004678 07FD                        5514          BR    R13                 AND RETURN TO +0.                    N3298000
                            04661  5515 NGVOL    EQU   NGAWTO+25                                                N3300000
                            04670  5516 NGAWTOZ  EQU   NGAWTO+40                                                N3302000
00467A F440F840F1F2F1F6            5517 NGATAB   DC    C'4 8 121620'                                            N3304000
                                   5518 NGSEARCH CAMLST SEARCH,NGDSN,NGVOL,NGWKA                                N3306000
004684                             5519+NGSEARCH DS    0F                                ALIGN ON FULL WORD     54900000
004684 C1                          5520+         DC    AL1(193)                          THREE BYTES OF FLAGS   55800000

004685 00                          5521+         DC    AL1(0)                            INDICATING THE FUNC-   56700000
004686 00                          5522+         DC    AL1(0)                            TION TO BE PERFORMED   57600000
004687 00                          5523+         DC    AL1(0)                            NO OPTION THREE        59400000
004688 00004694                    5524+         DC    A(NGDSN)                          PARAMETER TWO          62100000
00468C 00004661                    5525+         DC    A(NGVOL)                          PARAMETER THREE        65700000

004690 000046C0                    5526+         DC    A(NGWKA)                          PARAMETER FOUR         67500000
004694 E2E8E2F14BC8C1E2            5527 NGDSN    DC    CL44'SYS1.HASPACE'                                       N3308000
0046C0                             5528 NGWKA    DS    0D                  350-BYTE OBTAIN WORKAREA.            N3310000

0046C0                             5529          DS    XL63                                                     N3312000
0046FF                             5530 DSCLOWLM DS    XL4                 LOWER CCHH OF FIRST EXTENT.          N3314000
004703                             5531 DSCUPPLM DS    XL4                 UPPER CCHH OF FIRST EXTENT.          N3316000
004707                             5532          DS    XL255,XL24                                               N3318000
00481E 0000                        5533 NGACTR   DC    H'0'                                                     N3320000
004820 00004824                    5534 NGAASPOL DC    A(NGWSPOOL)                                              N3322000
                                   5535 NGWSPOOL DC    (&NUMDA*3)H'0'                                           N3324000

004824 0000000000000000            5536+NGWSPOOL DC    (2*3)H'0'                                                N3324000
                                   5537 NGDACKPT DC    (&NUMDA*3)H'0'                                           N3326000
004830 0000000000000000            5538+NGDACKPT DC    (2*3)H'0'                                                N3326000
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  125


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   5540 *********************************************************************** N3330000
                                   5541 *                                                                     * N3332000
                                   5542 *        NGBITMAP --- SUBROUTINE TO PREPARE A BIT MAP FOR A           * N3334000
                                   5543 *              NEWLY-MOUNTED SPOOL VOLUME.                            * N3336000

                                   5544 *                                                                     * N3338000
                                   5545 *********************************************************************** N3340000
                                   5546 *                                                                     * N3342000
00483C                             5547 NGBITMAP DS    0H                                                       N3344000
                                   5548 * ON ENTRY, R1 IS FIRST AVAILABLE TRACK GROUP NUMBER                    N3346000
                                   5549 *           R2 IS COUNT OF AVAILABLE TRACK GROUPS                       N3348000

                                   5550 *           R9 POINTS TO PROPER TED ENTRY                               N3349000
00483C 1222                        5551          LTR   R2,R2               IF NO AVAILABLE TRACK GROUPS,        N3350000
00483E 07DD                        5552          BCR   NP,R13              RETURN                               N3352000
                                   5553 *                          COMPUTE BYTE ADDRESS OF 1ST GROUP ---        N3354000
004840 8D00 001D      0001D        5554          SLDL  R0,29               MOVE 5 HI-ORD BITS TO R0,            N3356000

004844 58F0 B0FC      000FC        5555          L     R15,$CYLMAP         GET ADDRESS OF MASTER MAP,           N3358000
004848 4AF0 9010      00010        5556          AH    R15,TNMO            ADD OFFSET TO THIS MAP, AND          N3360000
00484C 1EF0                        5557          ALR   R15,R0              ADD OFFSET TO 1ST GROUP'S BYTE.      N3362000
00484E 8810 001D      0001D        5558          SRL   R1,29               SHIFT BIT NR TO LO-ORD R1.           N3364000

004852 4331 C678      04870        5559 NGB010   IC    R3,NGBT(R1)         GET BIT INTO R1.                     N3366000
004856 4430 C680      04878        5560          EX    R3,NGBOI            OR BIT INTO TRACK GROUP MAP.         N3368000
00485A 4110 1001      00001        5561          LA    R1,1(,R1)           ADD 1 TO THE BIT NUMBER.             N3370000
00485E 5410 CC74      04E6C        5562          N     R1,=F'7'            ZERO ALL BUT LO-ORD 3 BITS.          N3372000
004862 4770 C672      0486A        5563          BNZ   NGB020              B IF NEXT BIT NOT BIT 0.             N3374000
004866 41F0 F001      00001        5564          LA    R15,1(,R15)         NEXT BIT IS 0 - ADD 1 TO BYTE        N3376000

00486A 4620 C65A      04852        5565 NGB020   BCT   R2,NGB010           BRANCH IF MORE BITS TO GO.           N3378000
00486E 07FD                        5566          BR    R13                 OTHERWISE, RETURN.                   N3380000
004870 8040201008040201            5567 NGBT     DC    X'8040201008040201' BITS-BY-BIT-NUMBER TABLE.            N3382000
004878 9600 F000      00000        5568 NGBOI    OI    0(R15),*-*          *** EXECUTE-ONLY ***                 N3384000
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  126



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5570 *********************************************************************** N3406000
                                   5571 *                                                                     * N3408000
                                   5572 *              CHECKPOINT INFORMATION                                 * N3410000
                                   5573 *                                                                     * N3412000

                                   5574 *********************************************************************** N3414000
                                   5575 *                                                                     * N3416000
                                   5576 NGCKLN   EQU   &MAXJOBS*&QENTSIZ+$SAVELEN+&NUMPRC*L'PRCSIZE             N3418000
                            006B4  5577+NGCKLN   EQU   100*16+$SAVELEN+3*L'PRCSIZE                              N3418000
004880                             5578 NGCKRD   DS    0D                                                       N3422000

004880 31004AFB40000005            5579          CCW   X'31',NGIOB+35,X'40',5                                   N3434000
004888 0800488000000001            5580          CCW   X'08',*-8,0,1                                            N3436000
004890 06000000400006B4            5581          CCW   X'06',$JOBQUE,X'40',NGCKLN                               N3438000
004898 070048D940000006            5582          CCW   X'07',NGCK2SR+1,X'40',6                                  N3440000
0048A0 310048DB40000005            5583          CCW   X'31',NGCK2SR+3,X'40',5                                  N3442000

0048A8 080048A000000001            5584          CCW   X'08',*-8,0,1                                            N3444000
                                   5585          CCW   X'06',$HASPJIT,X'40',&MAXJOBS*&JITSIZE                   N3446000
0048B0 0600000040000320            5586+         CCW   X'06',$HASPJIT,X'40',100*8                               N3446000
0048B8 070048E140000006            5587          CCW   X'07',NGCK3SR+1,X'40',6                                  N3448000
0048C0 310048E340000005            5588          CCW   X'31',NGCK3SR+3,X'40',5                                  N3450000
0048C8 080048C000000001            5589          CCW   X'08',*-8,0,1                                            N3452000

0048D0 0600000000000758            5590          CCW   X'06',$JOT,0,JOTSIZE                                     N3454000
0048D8 0000000000000001            5591 NGCK2SR  DC    XL8'1'              MBBCCHHR FOR JIT CKPT.               N3456000
0048E0 0000000000000001            5592 NGCK3SR  DC    XL8'1'              MBBCCHHR FOR JOT CKPT.               N3458000
0048E8                             5593 NGCKWR   DS    0D                                                       N3459000

0048E8 31004AFB40000005            5594          CCW   X'31',NGIOB+35,X'40',5                                   N3460000
0048F0 080048E800000001            5595          CCW   X'08',*-8,0,1                                            N3462000
0048F8 1D00497080000008            5596          CCW   X'1D',NGCKF,X'80',8                                      N3464000
004900 00000000400006B4            5597          CCW   X'00',$JOBQUE,X'40',NGCKLN                               N3466000
004908 0700496140000006            5598          CCW   X'07',NGCK2SW+1,X'40',6                                  N3468000

004910 3100496340000005            5599          CCW   X'31',NGCK2SW+3,X'40',5                                  N3470000
004918 0800491000000001            5600          CCW   X'08',*-8,0,1                                            N3472000
004920 1D00497880000008            5601          CCW   X'1D',NGCK2F,X'80',8                                     N3474000
                                   5602          CCW   X'00',$HASPJIT,X'40',&MAXJOBS*&JITSIZE                   N3476000
004928 0000000040000320            5603+         CCW   X'00',$HASPJIT,X'40',100*8                               N3476000
004930 0700496940000006            5604          CCW   X'07',NGCK3SW+1,X'40',6                                  N3478000
004938 3100496B40000005            5605          CCW   X'31',NGCK3SW+3,X'40',5                                  N3480000

004940 0800493800000001            5606          CCW   X'08',*-8,0,1                                            N3482000
004948 1D00498080000008            5607          CCW   X'1D',NGCK3F,X'80',8                                     N3483000
004950 0000000000000758            5608          CCW   X'00',$JOT,0,JOTSIZE                                     N3484000

004958 0000000000000000            5609 NGCKSW   DC    XL8'0'              MBBCCHHR - CKPT 1                    N3485000
004960 0000000000000000            5610 NGCK2SW  DC    XL8'0'              MBBCCHHR - CKPT 2                    N3486000
004968 0000000000000000            5611 NGCK3SW  DC    XL8'0'              MBBCCHHR - CKPT 3                    N3487000
004970 00000000010006B4            5612 NGCKF    DC    XL6'100',AL2(NGCKLN)  CCHHRKDD - CKPT 1                  N3488000
                                   5613 NGCK2F   DC    XL6'100',AL2(&MAXJOBS*&JITSIZE)  CCHHRKDD - CKPT I       N3489000

004978 0000000001000320            5614+NGCK2F   DC    XL6'100',AL2(100*8)              CCHHRKDD - CKPT I       N3489000
004980 0000000001000758            5615 NGCK3F   DC    XL6'100',AL2(JOTSIZE)  CCHHRKDD - CKPT 3                 N3490000
004988 D203 C7AD CCB3 049A5 04EAB  5616 NGCKMSGW MVC   NGCKMSGZ,=C'WRITING'  SET CHECKPOINT ERROR MESSAGE.      N3494000
                                   5617 NGCKMSG  WTO   'PERM I/O ERR READING HASP CKPT'                         N3496000
00498E 0700                        5618+         CNOP  0,4                                                      08550021
004990 4510 C7BE      049B6        5619+NGCKMSG  BAL   1,IHB0156A                        BRANCH AROUND MESSAGE  08600021
004994 0022                        5620+         DC    AL2(34)             TEXT LENGTH                          11950021
004996 0000                        5621+         DC    B'0000000000000000' MCS FLAGS                            12000021

004998 D7C5D9D440C961D6            5622+         DC    C'PERM I/O ERR READING HASP CKPT'                        12100021
0049B6                             5623+IHB0156A DS    0H                                                       13900021

0049B6 0A23                        5624+         SVC   35                                                       14000021
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  127


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                            049A5  5625 NGCKMSGZ EQU   NGCKMSG+21                                               N3498000
0049B8 4110 C7D8      049D0        5626 NGQUITT  LA    R1,NGQUITM          POINT TO QUIT MESSAGE.               N3500000

                                   5627          MVC   NSPOOLL1(6*(&NUMDA+1)),NSPOOSAV   RESTORE NSPOOLL1.      N3502000
0049BC D211 C004 CBD0 041FC 04DC8  5628+         MVC   NSPOOLL1(6*(2+1)),NSPOOSAV        RESTORE NSPOOLL1.      N3502000
0049C2 5870 CC78      04E70        5629          L     WF,=A(HASPINGO+4096)  SET OTHER BASE CORRECTLY.          N3504000
0049C6 58C0 CC7C      04E74        5630          L     BASE2,=A(HASPINGO)  SET BASE2 CORRECTLY.                 N3506000
0049CA 47F0 C6B0      006B0        5631          B     NDAOUT-HASPINGO(,BASE2)   EXIT TO CLEAN UP DA.           N3508000
                                   5632 NGQUITM  WTO   'CORRECT THE ABOVE PROBLEMS AND RESTART HASP',MF=L       N3510000
0049D0                             5633+NGQUITM  DS    0F                                                       01050021
0049D0 002F                        5634+         DC    AL2(47)             TEXT LENGTH                          11950021
0049D2 0000                        5635+         DC    B'0000000000000000' MCS FLAGS                            12000021

0049D4 C3D6D9D9C5C3E340            5636+         DC    C'CORRECT THE ABOVE PROBLEMS AND RESTART HASP'           12100021

INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  128


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5638 *********************************************************************** N3514000
                                   5639 *                                                                     * N3516000
                                   5640 *              NGDEBSET --- SUBROUTINE TO SET UP EXTENT DATA AREAS    * N3518000

                                   5641 *              AND $DADEB1, THE MULTI-EXTENT HASP DIRECT-ACCESS DEB.  * N3520000
                                   5642 *                                                                     * N3522000
                                   5643 *********************************************************************** N3524000
                                   5644 *                                                                     * N3526000
004A00                             5645 NGDEBSET DS    0H                                                       N3528000
004A00 1BFF                        5646          SR    R15,R15             ZERO R15 FOR AN INDEX.               N3530000
004A02 5890 CC54      04E4C        5647          L     R9,=A(TEDSTART)     POINT TO FIRST EXTENT DATA AREA.     N3532000
004A06 5810 CBEC      04DE4        5648          L     R1,$DADEBAD         POINT TO DIRECT-ACCESS DEB.          N3534000
                            00000  5649          USING DEBDSECT,R1         USE THE DEB DSECT.                   N3536000
004A0A D203 1000 B0D4 00000 000D4  5650          MVC   DEBTCBAD,$HASPTCB   SET DEB'S TCB ADDRESS.               N3538000

004A10 58A0 0010      00010        5651          L     R10,CVTPTR          POINT TO THE CVT.                    N3540000

                            00000  5652          USING CVTDSECT,R10        USE THE CVT DSECT.                   N3542000
004A14 D202 101D A015 0001D 00015  5653          MVC   DEBAPPAD+1(3),CVTXAPG+1  DON'T USE HASP APPENDAGES.      N3544000
004A1A 58A0 A040      00040        5654          L     R10,CVTZDTAB        POINT R10 TO DEV CHAR TABLE.         N3546000
                                   5655          DROP  R10                 DROP CVTDSECT.                       N3548000

                            00000  5656          USING NGZ,R14             USE THE DSECT FOR THE DEV CHAR.      N3550000
004A1E 95F1 C005      041FD        5657          CLI   NSPOOLL1+1,C'1'     IS SPOOL1 PRESENT...                 N3552000
004A22 4780 C854      04A4C        5658          BE    NGD1                CONTINUE IF IT IS.                   N3554000
                                   5659          WTO   '&SPOOL.1 IS NOT MOUNTED'                                N3556000
004A26 0700                        5660+         CNOP  0,4                                                      08550021
004A28 4510 C84E      04A46        5661+         BAL   1,IHB0158A                        BRANCH AROUND MESSAGE  08600021
004A2C 0019                        5662+         DC    AL2(25)             TEXT LENGTH                          11950021
004A2E 0000                        5663+         DC    B'0000000000000000' MCS FLAGS                            12000021
004A30 E2D7D6D6D3F140C9            5664+         DC    C'SPOOL1 IS NOT MOUNTED'                                 12100021
004A46                             5665+IHB0158A DS    0H                                                       13900021
004A46 0A23                        5666+         SVC   35                                                       14000021

004A48 47F0 C7C0      049B8        5667          B     NGQUITT             GO RETRACT HASP FROM SYSTEM.         N3558000
                                   5668 *                                                                       N3560000
                                   5669 *              START PROCESSING A SPOOL VOLUME.                         N3562000
                                   5670 *                                                                       N3564000

004A4C 48EF C004      041FC        5671 NGD1     LH    R14,NSPOOLL1(R15)   PICK UP A SPOOL DESCRIPTOR.          N3566000
004A50 12EE                        5672          LTR   R14,R14             IS IT ZERO...                        N3568000
004A52 4780 C8BA      04AB2        5673          BZ    NGD3                YES.  NO MORE TO GO.                 N3570000
004A56 88E0 0008      00008        5674          SRL   R14,8               GET DEVICE TYPE (UCB+X'13').         N3572000
                                   5675          L     WA,=A(&BUFSIZE)     GET LENGTH OF A RECORD.              N3573000
004A5A 5820 CC80      04E78        5676+         L     WA,=A(1960)         GET LENGTH OF A RECORD.              N3573000
004A5E 4530 CAAE      04CA6        5677          BAL   WB,NGNRT            CALCULATE RECORDS/TRACK.             N3574000
004A62 4020 900A      0000A        5678          STH   WA,TNRT             SET RECORDS PER TRACK.               N3634000
004A66 4840 E002      00002        5679          LH    WC,NGZH             GET NR OF HEADS PER CYLINDER.        N3636000
004A6A 0640                        5680          BCTR  WC,0                GET HIGHEST HEAD NUMBER.             N3638000
004A6C 4040 102C      0002C        5681          STH   WC,DEBENDHH         SET ENDING HEAD IN DEB.              N3640000
004A70 4140 4001      00001        5682          LA    WC,1(,WC)           COMPUTE NR OF HEADS/CYL.             N3642000

004A74 5040 9004      00004        5683          ST    WC,TNTC             SET NR OF HEADS/CYL.                 N3644000
004A78 4830 E00C      0000C        5684          LH    WB,NGZA             GET NR OF ALTERNATE TRACKS.          N3646000
004A7C 1B22                        5685          SR    WA,WA               DIVIDE BY NR OF HEADS/CYL,           N3648000

004A7E 1D24                        5686          DR    WA,WC               AND GET NUMBER OF ALTERNATE CYLS.    N3650000
004A80 4820 E000      00000        5687          LH    WA,NGZC             GET NR OF CYLS.                      N3652000
004A84 1B23                        5688          SR    WA,WB               TAKE AWAY ALTERNATE CYLS.            N3654000
004A86 1854                        5689          LR    WD,WC               GET NR OF HDS/CYL INTO ODD REG.      N3656000
004A88 1C42                        5690          MR    WC,WA               COMPUTE NR OF TRACKS IN EXTENT.      N3658000
004A8A 4050 102E      0002E        5691          STH   WD,DEBNUMTR         SET NUMBER OF TRACKS.                N3660000
004A8E 0620                        5692          BCTR  WA,0                GET ADR OF HIGHEST NON-ALT CYL.      N3662000
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  129


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

004A90 4020 102A      0002A        5693          STH   WA,DEBENDCC         SET HIGHEST CYLINDER ADR.            N3664000
                                   5694          LA    WB,&NUMTGV          GET NR OF GROUPS PER VOL.            N3666000
004A94 4130 0190      00190        5695+         LA    WB,400              GET NR OF GROUPS PER VOL.            N3666000

004A98 1D43                        5696          DR    WC,WB               DIVIDE NR OF TRKS BY NR OF GRPS.     N3668000

004A9A 4050 900E      0000E        5697          STH   WD,TNTG             SET NR OF TRACKS PER GROUP.          N3670000
004A9E 480F C006      041FE        5698          LH    R0,NSPOOLL1+2(R15)  SET THE UCB ADDRESS                  N3672000

004AA2 5000 1020      00020        5699          ST    R0,DEBUCBAD           IN $DADEB1.                        N3674000
004AA6 4190 9014      00014        5700          LA    R9,TEDSIZ(,R9)      POINT TO NEXT EXTENT DATA AREA       N3676000
004AAA 4110 1010      00010        5701          LA    R1,16(,R1)          AND NEXT DEB EXTENT.                 N3678000
004AAE 87F6 C854      04A4C        5702          BXLE  R15,R6,NGD1         GO DO NEXT SPOOL VOLUME.             N3680000
004AB2 5890 CC54      04E4C        5703 NGD3     L     R9,=A(TEDSTART)     POINT TO FIRST EXTENT DATA AREA      N3682000
004AB6 07FD                        5704          BR    R13                 AND RETURN.                          N3684000





000000                             5706 NGZ      DSECT                     IECZDTAB DUMMY SECTION               N3688000
000000                             5707 NGZC     DS    H                   NR OF CYLINDERS PER VOLUME.          N3690000
000002                             5708 NGZH     DS    H                   NR OF TRACKS PER CYLINDER.           N3692000
000004                             5709 NGZR     DS    H                   MAXIMUM TRACK LENGTH.                N3694000

000006                             5710 NGZO     DS    0H                  BLOCK OVERHEAD - 2305.               N3695000
000006                             5711 NGZNL    DS    X                   BLOCK OVERHEAD - KEYED.              N3696000

000007                             5712 NGZL     DS    X                   BLOCK OVERHEAD - KEYED LAST.         N3698000

000008                             5713 NGZU     DS    X                   BLOCK OVERHEAD - UNKEYED.            N3700000
000009                             5714 NGZF     DS    X                   FLAGS ---                            N3702000
                            00001  5715 NGZFT    EQU   1                     IF ON, APPLY TOLERANCE FACTOR.     N3704000
                            00008  5716 NGZF2305 EQU   8                     IF ON, DEVICE IS 2305.             N3705000
00000A                             5717 NGZT     DS    H                   TOLERANCE FACTOR IF NGZFT.           N3706000
00000C                             5718 NGZA     DS    H                   NR OF ALTERNATE TRACKS.              N3708000





004AB8                             5720 HASPINIT CSECT                                                          N3712000
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  130


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5722 *********************************************************************** N3716000

                                   5723 *                                                                     * N3718000
                                   5724 *              NGEXCP --- EXCP SUB-SUBROUTINE                         * N3720000
                                   5725 *                                                                     * N3722000

                                   5726 *********************************************************************** N3724000
                                   5727 *                                                                     * N3726000
                                   5728 NGEXCP   EXCP  NGIOB               DO THE EXCP                          N3728000
004AB8 4110 C8E0      04AD8        5729+NGEXCP   LA    1,NGIOB                           LOAD PARAMETER REG 1   00100000
004ABC 0A00                        5730+         SVC   0                                 ISSUE SVC FOR EXCP     00100000
                                   5731          WAIT  ECB=NGECB             AND THEN WAIT.                     N3730000
004ABE 4110 C8DC      04AD4        5732+         LA    1,NGECB                           LOAD PARAMETER REG 1   00100000
004AC2 4100 0001      00001        5733+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
004AC6 0A01                        5734+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
004AC8 9120 C8DC      04AD4        5735          TM    NGECB,X'20'         CHECK FOR ERROR.                     N3732000
004ACC 071E                        5736          BCR   O,R14               IF NO ERROR, RETURN TO +0.           N3734000
004ACE 47F0 E004      00004        5737          B     4(,R14)             IF ERROR, RETURN TO +4.              N3736000






004AD4                             5739 NGECB    DS    F                   EVENT CONTROL BLOCK.                 N3740000
004AD8                             5740 NGIOB    DS    0F                  INPUT/OUTPUT BLOCK.                  N3742000

004AD8 C2000000                    5741          DC    X'C2000000'         UNRELATED, CMD+DATA CHAINING.        N3744000
004ADC 00004AD4                    5742          DC    A(NGECB)            ECB POINTER.                         N3746000
004AE0                             5743          DS    A                   CSW PART 1.                          N3748000
004AE4                             5744          DS    A                   CSW PART 2.                          N3750000
004AE8 00004880                    5745          DC    A(NGCKRD)           CHANNEL PROGRAM ADDRESS.             N3752000
004AEC 00000000                    5746          DC    A(*-*)              DCB ADDRESS                          N3754000

004AF0                             5747          DS    A                   RESTART ADDRESS.                     N3756000
004AF4                             5748          DS    A                   BLOCK COUNT INCREMENT, ERR CTR.      N3758000
                                   5749 NGIMBB   DC    X'0',AL2(0,0,9,256,&BUFSIZE)  MBBCCHHRKDD                N3760000
004AF8 0000000000000901            5750+NGIMBB   DC    X'0',AL2(0,0,9,256,1960)      MBBCCHHRKDD                N3760000
                                   5751 *                                                                       N3762000
                                   5752 *        NOTE --- IOB IS INITIALIZED TO READ THE CHECKPOINT RECORD(S).  N3764000
                                   5753 *                                                                       N3766000
                            04AFB  5754 NGIKDD   EQU   NGIMBB+3            TO COMPARE COUNT PORTION OF RECORD.  N3768000

INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  131


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   5756 *********************************************************************** N3772000
                                   5757 *                                                                     * N3774000
                                   5758 *              NGFORMAT --- SUBROUTINE TO FORMAT A SPOOL EXTENT.      * N3776000
                                   5759 *                                                                     * N3778000
                                   5760 *********************************************************************** N3780000
                                   5761 *                                                                     * N3782000
004B04                             5762 NGFORMAT DS    0H                                                       N3784000
004B04 4315 C005      041FD        5763          IC    R1,NSPOOLL1+1(R5)   SET VOLUME SERIAL NUMBER             N3786000

004B08 4210 C921      04B19        5764          STC   R1,NGF1Z              INTO MESSAGE.                      N3788000
                                   5765 NGF1     WTO   '&SPOOL.* IS BEING FORMATTED'                            N3790000
004B0C                             5766+         CNOP  0,4                                                      08550021
004B0C 4510 C936      04B2E        5767+NGF1     BAL   1,IHB0163A                        BRANCH AROUND MESSAGE  08600021
004B10 001D                        5768+         DC    AL2(29)             TEXT LENGTH                          11950021

004B12 0000                        5769+         DC    B'0000000000000000' MCS FLAGS                            12000021
004B14 E2D7D6D6D35C40C9            5770+         DC    C'SPOOL* IS BEING FORMATTED'                             12100021
004B2E                             5771+IHB0163A DS    0H                                                       13900021

004B2E 0A23                        5772+         SVC   35                                                       14000021
                            04B19  5773 NGF1Z    EQU   NGF1+13                                                  N3792000
004B30 4820 900A      0000A        5774          LH    R2,TNRT             GET NUMBER OF RECORDS PER TRACK.     N3794000
004B34 1832                        5775          LR    R3,R2               GET IT INTO R3 TOO.                  N3796000
004B36 8920 0004      00004        5776          SLL   R2,4                *16 FOR 1 CCW & 1 CT PER RECORD.     N3798000
004B3A 4100 2010      00010        5777          LA    R0,16(,R2)          +16 FOR SEARCH AND TIC CCW'S.        N3800000
004B3E 4000 CA36      04C2E        5778          STH   R0,NGFREE+2         SAVE LENGTH FOR FREEMAIN.            N3802000

                                   5779          GETMAIN R,LV=(0)          GET CHANNEL PROGRAM STORAGE.         N3804000
004B42 4510 C94E      04B46        5780+         BAL   1,*+4                             INDICATE GETMAIN       04660000
004B46 0A0A                        5781+         SVC   10                                ISSUE GETMAIN SVC      04680000
004B48 5010 C8F0      04AE8        5782          ST    R1,NGIOB+16         SET CHANNEL PROGRAM ADDRESS.         N3806000
004B4C 5010 1008      00008        5783          ST    R1,8(,R1)           SET UP                               N3808000

004B50 9208 1008      00008        5784          MVI   8(R1),8               THE TIC COMMAND.                   N3810000
004B54 D207 1000 CA40 00000 04C38  5785          MVC   0(8,R1),NGFSRCH     SET THE SEARCH COMMAND.              N3812000
004B5A 4110 1008      00008        5786          LA    R1,8(,R1)           POINT 8 BEFORE FIRST WRITE CCW.      N3814000

004B5E 1823                        5787          LR    R2,R3               GET NR OF RECS/TRK INTO R2.          N3816000
004B60 8920 0003      00003        5788          SLL   R2,3                COMPUTE POINTER TO 8 BEFORE          N3818000
004B64 1A21                        5789          AR    R2,R1                 THE FIRST COUNT FIELD.             N3820000
004B66 5620 CC84      04E7C        5790          O     R2,=X'1D000000'     SET COMMAND OF WRITE CKD.            N3822000
004B6A 1803                        5791          LR    R0,R3               GET NR OF CCW'S INTO R0.             N3824000
004B6C 5830 CA50      04C48        5792          L     R3,NGFDATL          GET CCW'S RIGHT HALF.                N3826000
004B70 5E20 CC88      04E80        5793 NGF010   AL    R2,=F'8'            INCREASE CCW ADR FIELD BY 8.         N3828000

004B74 4110 1008      00008        5794          LA    R1,8(,R1)           POINT TO NEXT CCW'S LOCATION.        N3830000
004B78 9023 1000      00000        5795          STM   R2,R3,0(R1)         SET A CCW.                           N3832000
004B7C 4600 C978      04B70        5796          BCT   R0,NGF010           LOOP TILL ALL CCW'S ARE SET.         N3834000
004B80 94BF 1004      00004        5797          NI    4(R1),X'BF'         TURN OFF LAST CCW'S CC FLAG.         N3836000
004B84 5010 CA54      04C4C        5798          ST    R1,NGFCFLDS         SAVE PTR TO 8 BEFORE FIRST COUNT     N3838000

                                   5799 *                                    FIELD FOR COUNT FIELD UPDATES.     N3840000
004B88 D203 CA48 C507 04C40 046FF  5800          MVC   NGFL(4),DSCLOWLM    SET LOW CCHH FROM DSCB.              N3842000
                                   5801 *                                                                       N3844000
                                   5802 *              SET UP COUNT FIELDS.                                     N3846000

                                   5803 *                                                                       N3848000
004B8E 4800 900A      0000A        5804 NGF020   LH    R0,TNRT             GET NUMBER OF COUNT FIELDS.          N3850000
004B92 5810 CA54      04C4C        5805          L     R1,NGFCFLDS         POINT TO 8 BEFORE THE FIRST.         N3852000
004B96 9823 CA48      04C40        5806          LM    R2,R3,NGFL          STARTING COUNT FIELD TO R2&3.        N3854000
004B9A 5E30 CC8C      04E84        5807 NGF021   AL    R3,=FS24'1'         ADD 1 TO THE RECORD NUMBER.          N3856000
004B9E 4110 1008      00008        5808          LA    R1,8(,R1)           POINT TO NEXT COUNT FIELD.           N3858000

004BA2 9023 1000      00000        5809          STM   R2,R3,0(R1)         SET A COUNT FIELD.                   N3860000
004BA6 4600 C9A2      04B9A        5810          BCT   R0,NGF021           LOOP TO SET THE REST.                N3862000
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  132


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5811 *                                                                       N3864000

                                   5812 *              ISSUE EXCP TO FORMAT A TRACK.                            N3866000
                                   5813 *                                                                       N3868000
004BAA D204 C903 CA48 04AFB 04C40  5814          MVC   NGIOB+35(5),NGFL    SET SEEK ADDRESS.                    N3870000
004BB0 45E0 C8C0      04AB8        5815          BAL   R14,NGEXCP          GO DO I/O.                           N3872000
004BB4 47F0 CA00      04BF8        5816          B     NGF023              BR IF I/O COMPLETED OKAY.            N3874000

004BB8 D200 C9E5 C921 04BDD 04B19  5817          MVC   NGF022Z(1),NGF1Z    OTHERWISE SET VOLUME SERIAL NR.      N3876000
                                   5818 NGF022   WTO   'PERM I/O ERR ON &SPOOL.* WHILE FORMATTING'              N3878000
004BBE 0700                        5819+         CNOP  0,4                                                      08550021
004BC0 4510 C9F8      04BF0        5820+NGF022   BAL   1,IHB0165A                        BRANCH AROUND MESSAGE  08600021
004BC4 002B                        5821+         DC    AL2(43)             TEXT LENGTH                          11950021

004BC6 0000                        5822+         DC    B'0000000000000000' MCS FLAGS                            12000021
004BC8 D7C5D9D440C961D6            5823+         DC    C'PERM I/O ERR ON SPOOL* WHILE FORMATTING'               12100021
004BF0                             5824+IHB0165A DS    0H                                                       13900021
004BF0 0A23                        5825+         SVC   35                                                       14000021
                            04BDD  5826 NGF022Z  EQU   NGF022+29                                                N3880000

004BF2 96F0 C21B      04413        5827          OI    NGQUIT+1,X'F0'      SET THE QUIT SWITCH                  N3882000
004BF6 07FD                        5828          BR    R13                   AND RETURN.                        N3884000
004BF8 4820 CA4A      04C42        5829 NGF023   LH    R2,NGFL+2           GET CURRENT HEAD NUMBER.             N3886000
004BFC 4120 2001      00001        5830          LA    R2,1(,R2)           ADD ONE TO IT.                       N3888000
004C00 5920 9004      00004        5831          C     R2,TNTC             IS IT MORE THAN IT SHOULD BE...      N3890000
004C04 4740 CA12      04C0A        5832          BL    NGF024              IF NOT, BRANCH.                      N3892000

004C08 1B22                        5833          SR    R2,R2               YES.  MAKE IT ZERO                   N3894000
004C0A 4020 CA4A      04C42        5834 NGF024   STH   R2,NGFL+2           STORE NEW HEAD NUMBER.               N3896000
004C0E 4770 CA26      04C1E        5835          BNZ   NGF025              IF NOT ZERO, DON'T CHANGE CC.        N3898000
004C12 4820 CA48      04C40        5836          LH    R2,NGFL             GET CURRENT CYLINDER NUMBER.         N3900000

004C16 4120 2001      00001        5837          LA    R2,1(,R2)           ADD ONE TO IT, AND                   N3902000
004C1A 4020 CA48      04C40        5838          STH   R2,NGFL               STORE NEW CYLINDER NUMBER.         N3904000
004C1E D503 C50B CA48 04703 04C40  5839 NGF025   CLC   DSCUPPLM,NGFL       IS FORMATTING COMPLETE...            N3906000
004C24 47B0 C996      04B8E        5840          BNL   NGF020              IF NOT, GO DO NEXT TRACK.            N3908000
004C28 5810 C8F0      04AE8        5841          L     R1,NGIOB+16         GET THE ADDRESS AND LENGTH           N3910000

004C2C 4100 0000      00000        5842 NGFREE   LA    R0,*-*                OF CORE TO FREE.                   N3912000
                                   5843          FREEMAIN R,LV=(0),A=(1)   FREE IT.                             N3914000
004C30 4111 0000      00000        5844+         LA    1,0(1)                       CLEAR THE HIGH ORDER BYTE   03130018
004C34 0A0A                        5845+         SVC   10                      ISSUE FREEMAIN SVC         P2504 03140021
004C36 07FD                        5846          BR    R13                 THEN RETURN TO CALLER.               N3916000






004C38 31004AFB40000005            5848 NGFSRCH  CCW   X'31',NGIOB+35,X'40',5  SEARCH ID EQUAL.                 N3920000
                                   5849 NGFL     DC    AL2(0,0,0,&BUFSIZE) CCHHRKDD SKELETON.                   N3922000
004C40 00000000000007A8            5850+NGFL     DC    AL2(0,0,0,1960)     CCHHRKDD SKELETON.                   N3922000

004C48 60000008                    5851 NGFDATL  DC    X'60',AL3(8)        RIGHT HALF OF CCW.                   N3924000
004C4C                             5852 NGFCFLDS DS    A                   PTR TO 1ST COUNT FIELD - 8.          N3926000
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  133


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5854 *********************************************************************** N3930000

                                   5855 *                                                                     * N3932000
                                   5856 *        NGMAP --- THIS SUB-SUBROUTINE RETURNS TWO STATISTICS         * N3934000
                                   5857 *              ABOUT A SPOOL VOLUME'S EXTENT ---                      * N3936000
                                   5858 *              IN R1, THE NUMBER OF THE FIRST ALLOWABLE TRACK GROUP   * N3938000
                                   5859 *              IN R2, THE NUMBER OF WHOLE TRACK GROUPS                * N3940000
                                   5860 *                                                                     * N3942000
                                   5861 *********************************************************************** N3944000
                                   5862 *                                                                     * N3946000

004C50                             5863 NGMAP    DS    0H                                                       N3948000
004C50 4815 C006      041FE        5864          LH    R1,NSPOOLL1+2(R5)   GET LOWEST ABSOLUTE TRK NR.          N3950000

004C54 1211                        5865          LTR   R1,R1               IS THE FIRST TRACK NUMBER ZERO...    N3952000
004C56 4770 CA68      04C60        5866          BNZ   *+10                BRANCH IF NOT.                       N3954000
004C5A 1B11                        5867          SR    R1,R1               YES.  NO TRACKS ARE AVAILABLE.       N3956000
004C5C 1821                        5868          LR    R2,R1               ZERO R1 AND R2                       N3958000
004C5E 07FE                        5869          BR    R14                   AND RETURN.                        N3960000

004C60 4820 900E      0000E        5870          LH    R2,TNTG             DIVIDE IT                            N3962000
004C64 1B00                        5871          SR    R0,R0                 BY NUMBER OF                       N3964000
004C66 1D02                        5872          DR    R0,R2                   TRACKS PER GROUP,                N3966000
004C68 1200                        5873          LTR   R0,R0                     PLUS ONE IF REMAINDER .NE. 0.  N3968000
004C6A 4780 CA7A      04C72        5874          BZ    *+8                 RESULT IS THE TRACK GROUP NUMBER     N3970000
004C6E 4110 1001      00001        5875          LA    R1,1(,R1)             OF THE FIRST USABLE TRACK GROUP.   N3972000
                                   5876          LA    R3,&NUMTGV          COMPUTE TRACK NUMBER                 N3974000
004C72 4130 0190      00190        5877+         LA    R3,400              COMPUTE TRACK NUMBER                 N3974000
004C76 4C30 900E      0000E        5878          MH    R3,TNTG               OF LAST TRACK IN THE               N3976000

004C7A 0630                        5879          BCTR  R3,0                    LAST POSSIBLE TRACK GROUP.       N3978000

004C7C 4B35 C008      04200        5880          SH    R3,NSPOOLL1+4(R5)   CALCULATE NUMBER OF TRACKS           N3980000
004C80 47B0 CA8E      04C86        5881          BNM   *+6                   THAT THE UPPER EXTENT BOUNDARY     N3982000
004C84 1B33                        5882          SR    R3,R3                   WILL NOT ALLOW US TO USE,        N3984000
004C86 1B22                        5883          SR    R2,R2                     AND                            N3986000
004C88 4800 900E      0000E        5884          LH    R0,TNTG                     CONVERT                      N3988000

004C8C 1D20                        5885          DR    R2,R0                         TO                         N3990000
004C8E 1222                        5886          LTR   R2,R2                           TRACK                    N3992000
004C90 4780 CAA0      04C98        5887          BZ    *+8                               GROUPS.                N3994000
004C94 4130 3001      00001        5888          LA    R3,1(,R3)           THEN, FROM THE                       N3996000
                                   5889          LA    R2,&NUMTGV            TOTAL NR OF GROUPS IN A VOL,       N3998000
004C98 4120 0190      00190        5890+         LA    R2,400                TOTAL NR OF GROUPS IN A VOL,       N3998000
004C9C 1B21                        5891          SR    R2,R1                   SUBTRACT THE NUMBERS OF          N4000000
004C9E 1B23                        5892          SR    R2,R3                     UNAVAILABLE GROUPS.            N4002000
004CA0 072E                        5893          BCR   P,R14               RETURN IF POSITIVE COUNT.            N4004000
004CA2 1B22                        5894          SR    R2,R2               OTHERWISE ZERO TRACK GROUP CT        N4004300

004CA4 07FE                        5895          BR    R14                 AND RETURN.                          N4004700

INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  134


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5897 ***************************************************************         N4004900
                                   5898 *                                                                       N4005000

                                   5899 *        NGNDA - COMPUTE NUMBER OF RECORDS PER TRACK                    N4005100
                                   5900 *                                                                       N4005200
                                   5901 *        INPUT  - WA = RECORD LENGTH                                    N4005300
                                   5902 *                 WB = LINK                                             N4005400
                                   5903 *                 R10= IECZDTAB                                         N4005500
                                   5904 *                 R14= 1-BYTE DEVICE TYPE (UCBTBYT4)                    N4005600
                                   5905 *                                                                       N4005700
                                   5906 *        OUTPUT - WA = NUMBER OF RECORDS PER TRACK                      N4005800
                                   5907 *                 R14= ENTRY IN IECZDTAB                                N4005900
                                   5908 *                 OTHERS UNCHANGED                                      N4006000
                                   5909 *                                                                       N4006100

                                   5910 *        ENTRY  - BAL WB,NGNRT                                          N4006200
                                   5911 *                                                                       N4006300
                                   5912 *        EXIT   - +0 = WA CONTAINS NR OF RECS PER TRACK                 N4006400
                                   5913 *                                                                       N4006500

                                   5914 *        METHOD - SEE DEVTYPE MACRO-INSTRUCTION IN SYSTEM               N4006600
                                   5915 *                 PROGRAMMER'S GUIDE, ORDER NO GC28-6550,               N4006700
                                   5916 *                 AND COMMENTS BELOW.                                   N4006800
                                   5917 *                                                                       N4006900
                                   5918 ***************************************************************         N4007000
                                   5919 *                                                                       N4007100
004CA6                             5920 NGNRT    DS    0H                                                       N4007200
004CA6 9035 CB0C      04D04        5921          STM   WB,WD,NGNRTRET      SAVE REGISTERS.                      N4007300
004CAA 43EE A000      00000        5922          IC    R14,0(R14,R10)      GET OFFSET IN IECZDTAB.              N4007400
004CAE 1AEA                        5923          AR    R14,R10             POINT TO ENTRY IN IECZDTAB.          N4007500

004CB0 1842                        5925          LR    WC,WA               SET NOT-LAST-REC LENGTH.             N4007700

004CB2 1B33                        5926          SR    WB,WB               ZERO WB FOR INSERT-CHAR.             N4007800
004CB4 1853                        5927          LR    WD,WB               ZERO WD FOR INSERT-CHAR.             N4007900
004CB6 4330 E008      00008        5928          IC    WB,NGZU             GET SUBTRAHEND FOR                   N4008000

                                   5929 *                                  UNKEYED BLOCKS.                      N4008100
                                   5930 *                                                                       N4008200
                                   5931 *        COMPUTE EFFECTIVE LENGTH OF LAST BLOCK ---                     N4008300
                                   5932 *              ADD LAST-BLOCK OVERHEAD AND SUBTRACT UNKEYED-            N4008400
                                   5933 *              BLOCK SUBTRAHEND.                                        N4008500
                                   5934 *                                                                       N4008600
004CBA 4350 E007      00007        5935          IC    WD,NGZL             GET LAST-BLOCK OVERHEAD.             N4008700
004CBE 9108 E009      00009        5936          TM    NGZF,NGZF2305       IS THIS A 2305...                    N4008800
004CC2 4780 CAD2      04CCA        5937          BZ    NGNRT1              SKIP IF NOT.                         N4008900
004CC6 4850 E006      00006        5938          LH    WD,NGZO             YES.  OVERHEAD IS A HALFWD.          N4009000
004CCA 1A25                        5939 NGNRT1   AR    WA,WD               ADD OVERHEAD, SUBTR UNKEYED          N4009100
004CCC 1B23                        5940          SR    WA,WB               FOR TRUE LAST-BLOCK LENGTH.          N4009200

                                   5941 *                                                                       N4009300

                                   5942 *        COMPUTE EFFECTIVE LENGTH OF NOT-LAST BLOCK---                  N4009400
                                   5943 *              IF TOLERANCE FLAG IS ON, MULTIPLY BLOCK LENGTH           N4009500

                                   5944 *              BY TOLERANCE FACTOR AND DIVIDE BY 512.  THEN TO          N4009600
                                   5945 *              THE RESULT ADD NOT-LAST-BLOCK OVERHEAD AND               N4009700
                                   5946 *              SUBTRACT UNKEYED-BLOCK SUBTRAHEND.                       N4009800
                                   5947 *                                                                       N4009900
004CCE 9101 E009      00009        5948          TM    NGZF,NGZFT          SHOULD WE APPLY TOLERANCE...         N4010000
004CD2 4780 CAE6      04CDE        5949          BZ    NGNRT2              BRANCH IF NOT.                       N4010100
004CD6 4C40 E00A      0000A        5950          MH    WC,NGZT             MULTIPLY BY TOLERANCE                N4010200
004CDA 8840 0009      00009        5951          SRL   WC,9                AND DIVIDE BY 512.                   N4010300
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  135


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

004CDE 9108 E009      00009        5952 NGNRT2   TM    NGZF,NGZF2305       IS OVERHEAD A HALFWORD...            N4010400
004CE2 4710 CAF2      04CEA        5953          BO    NGNRT3              SKIP IF SO.                          N4010500

004CE6 4350 E006      00006        5954          IC    WD,NGZNL            GET NOT-LAST-BLOCK OVERHEAD.         N4010600
004CEA 1A45                        5955 NGNRT3   AR    WC,WD               ADD O'HEAD, SUBTR UNKEYED            N4010700

004CEC 1B43                        5956          SR    WC,WB               FOR NOT-LAST BLOCK LENGTH.           N4010800

                                   5957 *                                                                       N4010900
                                   5958 *        CALCULATE NUMBER OF RECORDS PER TRACK---                       N4011000
                                   5959 *              FROM THE TRACK LENGTH SUBTRACT THE EFFECTIVE             N4011100
                                   5960 *              LAST-BLOCK LENGTH AND DIVIDE THE RESULT BY THE           N4011200
                                   5961 *              EFFECTIVE NOT-LAST-BLOCK LENGTH.  ADD 1 TO THE           N4011300
                                   5962 *              QUOTIENT TO OBTAIN NUMBER OF RECORDS PER TRACK.          N4011400
                                   5963 *                                                                       N4011500
004CEE 4830 E004      00004        5964          LH    WB,NGZR             GET TRACK LENGTH.                    N4011600
004CF2 1B32                        5965          SR    WB,WA               TAKE AWAY LAST-BLOCK LENGTH.         N4011700
004CF4 1B22                        5966          SR    WA,WA               ZERO WA (=R2) FOR DIVIDE.            N4011800
004CF6 1D24                        5967          DR    WA,WC               GET CT OF NOT-LAST BLOCKS.           N4011900
004CF8 4120 3001      00001        5968          LA    WA,1(,WB)           ADD 1 FOR RECORDS PER TRACK.         N4012000

004CFC 9835 CB0C      04D04        5969          LM    WB,WD,NGNRTRET      RESTORE REGISTERS                    N4012100
004D00 07F3                        5970          BR    WB                  AND RETURN.                          N4012200


004D04                             5972 NGNRTRET DS    3A                  REGISTER SAVE AREA.                  N4012400
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  136


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   5974 *********************************************************************** N4012600
                                   5975 *                                                                     * N4012700
                                   5976 *        NGREADCT --- SUBROUTINE TO READ THE COUNT PORTION OF         * N4012800
                                   5977 *              THE FIRST RECORD ON THE LAST TRACK OF THE FIRST        * N4014000
                                   5978 *              EXTENT OF A SPOOL VOLUME.                              * N4016000
                                   5979 *                                                                     * N4018000
                                   5980 *********************************************************************** N4020000
                                   5981 *                                                                     * N4022000
004D10                             5982 NGREADCT DS    0H                                                       N4024000

004D10 D203 C903 C50B 04AFB 04703  5983          MVC   NGIKDD(4),DSCUPPLM  SET CCHH FOR READ COUNT.             N4026000
004D16 9200 C907      04AFF        5984          MVI   NGIKDD+4,0          SET REC NR TO ZERO FOR SEARCH.       N4028000
004D1A 4110 CB48      04D40        5985          LA    R1,NGRCP            GET CHAN PROG ADDRESS.               N4030000
004D1E 5010 C8F0      04AE8        5986          ST    R1,NGIOB+16         SET IT IN THE IOB.                   N4032000

004D22 45E0 C8C0      04AB8        5987          BAL   R14,NGEXCP          GO TRY TO READ COUNT.                N4034000
004D26 47F0 CB34      04D2C        5988          B     *+6                 I/O OKAY.  GO CHECK COUNT.           N4036000
004D2A 07FD                        5989          BR    R13                 I/O ERROR.  RETURN TO +0.            N4038000
004D2C 9201 C907      04AFF        5990          MVI   NGIKDD+4,1          SET RECORD NR TO 1 AND               N4040000
004D30 D507 C903 CB60 04AFB 04D58  5991          CLC   NGIKDD(8),NGRCT       COMPARE COUNT WITH EXPECTED.       N4042000
004D36 077D                        5992          BCR   NE,R13              RETURN TO +0 IF UNEQUAL.             N4044000

004D38 47F0 D004      00004        5993          B     4(,R13)             RETURN TO +4 IF EQUAL.               N4046000





004D3C 00000000
004D40 31004AFB40000005            5995 NGRCP    CCW   X'31',NGIOB+35,X'40',5  SEARCH ID EQUAL.                 N4050000
004D48 08004D4000000001            5996          CCW   8,*-8,0,1           TIC *-8.                             N4052000
004D50 12004D5800000008            5997          CCW   X'12',NGRCT,0,8     READ COUNT.                          N4054000
004D58                             5998 NGRCT    DS    D                   READ-IN AREA.                        N4056000

INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  137


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6000 *********************************************************************** N4060000
                                   6001 *                                                                     * N4062000
                                   6002 *        NGEXIT --- ROUTINE TO CLEAN UP AND EXIT.                     * N4064000
                                   6003 *                                                                     * N4066000
                                   6004 *********************************************************************** N4068000
                                   6005 *                                                                     * N4070000
004D60                             6006          CNOP  0,4                 TO BE USED AS SAVEAREA.              N4071000
004D60 4400 C21A      04412        6007 NGEXIT   EX    0,NGQUIT            TEST THE QUIT SWITCH.                N4072000
                                   6008          MVC   $DACKPT(6*&NUMDA),NGDACKPT  MOVE DA CKPT.                N4074000
004D64 D20B B150 C638 00150 04830  6009+         MVC   $DACKPT(6*2),NGDACKPT       MOVE DA CKPT.                N4074000

                                   6010          LM    R13,R14,=A($JOBQUE+&MAXJOBS*&QENTSIZ,PRCHKPT)            N4076000
004D6A 98DE CBF0      04DE8        6011+         LM    R13,R14,=A($JOBQUE+100*16,PRCHKPT)                       N4076000
004D6E D21F D000 B13C 00000 0013C  6012          MVC   0($SAVELEN,R13),$SAVEBEG  MOVE JOB QUEUE STATS.          N4080000

004D74 4100 D020      00020        6013          LA    R0,$SAVELEN(,R13)   SET ADDRESS (IN CHKPT REC)           N4082000
                                   6014          LH    R15,=Y(&NUMPRC*PRCSIZE)  AND SIZE OF                     N4083000

004D78 48F0 CCAE      04EA6        6015+         LH    R15,=Y(3*PRCSIZE)        AND SIZE OF                     N4083000
004D7C 181F                        6016          LR    R1,R15                PRINT CHECKPOINT.                  N4084000
                                   6017 *        MVCL  R0,R14              MOVE PRT CKPT TO CKPT REC.      RFOT N4085000
004D7E 1810                        6018          LR    R1,R0                                               RFOT N4085005
                                   6019          $XXC  MVC,(0,R1),(0,R14),&PRCPRC                          RFIT N4085010
004D80 D253 1000 E000 00000 00000  6020+         MVC   0+0(84,R1),0+0(R14)                                      XX050000
004D86 D207 C900 C760 04AF8 04958  6021          MVC   NGIOB+32(8),NGCKSW  SET CKPT MBBCCHHR.                   N4086000
004D8C 4110 C6F0      048E8        6022          LA    R1,NGCKWR           SET ADDRESS OF CH PROG               N4088000

004D90 5010 C8F0      04AE8        6023          ST    R1,NGIOB+16           TO WRITE THE CHECKPOINT(S).        N4090000
004D94 45E0 C8C0      04AB8        6024          BAL   R14,NGEXCP          GO DO THE I/O.                       N4092000
004D98 47F0 CBA8      04DA0        6025          B     *+8                 BRANCH IF NO ERROR.                  N4094000
004D9C 47F0 C790      04988        6026          B     NGCKMSGW            OTHERWISE WRITE MSG AND QUIT.        N4096000
                                   6027 *                                                                       N4098000

                                   6028 *              RESTORE $DADEB1 APPENDAGE TABLE POINTER.                 N4100000
                                   6029 *                                                                       N4102000
004DA0 5810 CBEC      04DE4        6030          L     R1,$DADEBAD         POINT TO DEB.                        N4104000

004DA4 D202 101D CCB0 0001D 04EA8  6031          MVC   DEBAPPAD+1(3),=VL3($IOAPPEN) RESTORE DEB APDG TAB PTR.   N4106000
                                   6032 *                                                                       N4108000
                                   6033 *              SET UP ALLOCATION STATISTICS TABLE AND EXIT.             N4110000
                                   6034 *                                                                       N4114000
004DAA 5820 CC90      04E88        6035          L     R2,=V($ALSTATB)     POINT TO ALLOC STAT TABLE.           N4116000
004DAE D203 2004 CBE8 00004 04DE0  6036          MVC   4(4,R2),NGXTGS      SET TOTAL AVAIL TRK GRPS.            N4118000
004DB4 5810 CC94      04E8C        6037          L     R1,=V($TEDDATA)     SET DATA IN $TRACK ROUTINE.          N4146000

                                   6038          MVC   0(12,R1),=A(TEDSTART,TEDSTART+(&NUMDA-1)*TEDSIZ,TEDSTARTCN4148000
                                                       )                                                        N4150000
004DB8 D20B 1000 CC98 00000 04E90  6039+         MVC   0(12,R1),=A(TEDSTART,TEDSTART+(2-1)*TEDSIZ,TEDSTART)     N4148000
                                   6040          MVC   NSPOOLL1(6*(&NUMDA+1)),NSPOOSAV   RESTORE NSPOOLL1.      N4152000
004DBE D211 C004 CBD0 041FC 04DC8  6041+         MVC   NSPOOLL1(6*(2+1)),NSPOOSAV        RESTORE NSPOOLL1.      N4152000

                                   6042          AIF   (NOT &RPS).NGNORPS                                       N4152100
                                   6043 .NGNORPS ANOP                      *                                    N4162400
004DC4 47F0 CCBA      04EB2        6044          B     NINITWTO            END OF D A INITIALIZATION.           N4162500






                                   6046 NSPOOSAV DS    (&NUMDA+1)XL6       SAVE AREA FOR NSPOOLL1.              N4162700
004DC8                             6047+NSPOOSAV DS    (2+1)XL6            SAVE AREA FOR NSPOOLL1.              N4162700
004DDA 0000
004DDC 00000000                    6048 NGXTGA   DC    A(0)                                                     N4162800
INIT     HASP DIRECT-ACCESS INITIALIZATION                                                                     PAGE  138



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

004DE0 00000000                    6049 NGXTGS   DC    A(0)                                                     N4162900
004DE4 00000000                    6050 $DADEBAD DC    A(*-*)              DA DEB ADDRESS                       N4163000
                                   6051          DROP  R1,R9,R12,R14       KILL ALL ADDRESSABILITY BUT BASE1.   N4164000
004DE8                             6052          LTORG                                                          N4166000

004DE8 0000064000000064            6053                =A($JOBQUE+100*16,PRCHKPT)
004DF0 0000000000000000            6054                =A($JOBQUE,$JOBQUE,16,$JOBQUE-1+100*16)
004E00 00000000                    6055                =A(HASPNUC)
004E04 00000000                    6056                =V($ABEND)
004E08 00002F68                    6057                =A($OREPS)

004E0C 00000FFF                    6058                =A(X'FFF')
004E10 00000000                    6059                =V(HASPOTAB)
004E14 00002F9A                    6060                =A(OREPEND)
004E18 80000000                    6061                =X'80000000'
004E1C 000000B8                    6062                =A($RDRDCT)

004E20 000000F0                    6063                =A($PRTDCT)
004E24 00000160                    6064                =A($PUNDCT)
004E28 000001E8                    6065                =A($INRDCT)
004E2C 00000578                    6066                =A($LNEDCT)
004E30 000006E0                    6067                =A($OLAYDCT)

004E34 FFFFFFBC                    6068                =A($OROLLAD-PCEBASE2+PCEDSECT)
004E38 00000000                    6069                =V($OLASYNC)
004E3C 00002ACC                    6070                =A(S1)
004E40 00000740                    6071                =A(W1)
004E44 00000064                    6072                =A(PRCHKPT)
004E48 00000000                    6073                =A(CYLMAP)

004E4C 00000718                    6074                =A(TEDSTART)
004E50 00000000                    6075                =V($JITTRAK)
004E54 00000000                    6076                =V($JOTTRAK)
004E58 0000001000000630            6077                =A(16,(100-1)*16+$JOBQUE,$JOBQUE)

004E64 00000014                    6078                =A(TEDSIZ)
004E68 00000006                    6079                =A(6)
004E6C 00000007                    6080                =F'7'
004E70 00004A60                    6081                =A(HASPINGO+4096)
004E74 00003A60                    6082                =A(HASPINGO)

004E78 000007A8                    6083                =A(1960)
004E7C 1D000000                    6084                =X'1D000000'
004E80 00000008                    6085                =F'8'
004E84 01000000                    6086                =FS24'1'
004E88 00000000                    6087                =V($ALSTATB)
004E8C 00000000                    6088                =V($TEDDATA)
004E90 000007180000072C            6089                =A(TEDSTART,TEDSTART+(2-1)*TEDSIZ,TEDSTART)

004E9C 0FA0                        6090                =H'4000'
004E9E 615C                        6091                =C'/*'
004EA0 00FF                        6092                =H'255'

004EA2 023C                        6093                =Y(572)
004EA4 0028                        6094                =H'40'
004EA6 0054                        6095                =Y(3*PRCSIZE)
004EA8 000000                      6096                =VL3($IOAPPEN)
004EAB E6D9C9E3C9D5C7              6097                =C'WRITING'

INIT     HASP INITIALIZATION PROCESSOR - ACTIVATE OVERLAY FACILITY                                             PAGE  139


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

004EB2 0570                        6099 NINITWTO BALR  WF,0                ASSUME BASE CLOBBERED                N4170000
                            04EB4  6100          USING *,WF                                                     N4172000
004EB4 58C0 7304      051B8        6101          L     BASE2,=A(HASPINGO)  LOCATE BASE2                         N4174000
                            03A60  6102          USING HASPINGO,BASE2,WF                                        N4176000
004EB8 4170 C800      00800        6103          LA    WF,2048(0,BASE2)    RESET WF BASE                        N4178000
004EBC 4170 7800      00800        6104          LA    WF,2048(0,WF)                                            N4180000

                                   6105 *                                                                       N4182000
                                   6106 *              FOLLOWING CODE DETERMINES IF THE OVERLAY DATA SET IS ON  N4184000

                                   6107 *              ANY SPOOL PACK.  IF SO, THE OVERLAY DCT IS MODIFIED SO   N4186000
                                   6108 *              THAT $EXCPS DONE BY OVERLAY SERVICE WILL BE COMPATIBLE   N4188000
                                   6109 *              WITH OTHER $EXCPS DONE FOR RECORDS ON SPOOL PACKS.       N4190000
                                   6110 *                                                                       N4192000
004EC0 5810 775C      051BC        6111          L     R1,=A($OLAYDCT)     R1 = ADDRESS OF OVERLAY DCT          N4194000

                            00000  6112          USING DCTDSECT,R1         ADDRESSABLITIY                       N4196000
004EC4 5860 7384      04DE4        6113          L     WE,$DADEBAD         GET ADDRESS OF DA DEB                N4198000
004EC8 4160 6021      00021        6114          LA    WE,DEBUCBAD-DEBDSECT+1(,WE) WE = ADDR OF 1ST EXTENT + 1  N4200000
004ECC 4120 0010      00010        6115          LA    WA,16               WA = LENGTH OF ONE EXTENT            N4202000
                                   6116          LA    WB,&NUMDA*16-1(,WE) WB = ADDRESS OF LAST EXTENT          N4204000
004ED0 4130 601F      0001F        6117+         LA    WB,2*16-1(,WE)      WB = ADDRESS OF LAST EXTENT          N4204000
004ED4 1846                        6118          LR    WC,WE               WC = ADDRESS OF FIRST EXTENT + 1     N4206000
004ED6 D502 4000 3001 00000 00001  6119 NOLA1    CLC   0(3,WC),1(WB)       IS OLAY DATA SET ON THIS SPOOL PACK  N4208000
004EDC 4770 7492      04EF2        6120          BNE   NOLA2               BRANCH IF NOT                        N4210000

004EE0 9200 1012      00012        6121          MVI   DCTDEVTP,DCTDA      IF YES, MAKE DCT NORMAL HASP DA TYPE N4212000

004EE4 1B46                        6122          SR    WC,WE               COMPUTE EXTENT OFFSET                N4214000
004EE6 8840 0004      00004        6123          SRL   WC,4                DIVIDE BY LENGTH OF ONE EXTENT       N4216000
004EEA 4240 1008      00008        6124          STC   WC,DCTSEEK          SET M OF MTTR FOR ALL OLAY READS     N4218000
004EEE 47F0 7496      04EF6        6125          B     *+8                 SKIP LOOPING INSTRUCTION             N4220000
004EF2 8742 7476      04ED6        6126 NOLA2    BXLE  WC,WA,NOLA1         LOOP TO TEST MORE SPOOL EXTENTS      N4222000

                                   6127          DROP  R1                                                       N4224000
                            00000  6128          USING PCEDSECT,SAVE                                            N4226000
004EF6 58D0 B0E4      000E4        6129          L     SAVE,$PCEORG        PICK UP FIRST PCE                    N4228000
004EFA 58E0 74B4      04F14        6130          L     R14,NSAVE+4         PICK UP SAVE AREA                    N4230000
004EFE 50E0 D004      00004        6131          ST    R14,4(0,SAVE)       SET BACK CHAIN                       N4232000
004F02 50D0 E008      00008        6132          ST    SAVE,8(0,R14)       SET FORWARD CHAIN                    N4234000
004F06 98EC D00C      0000C        6133          LM    R14,R12,PCELINK     PICK UP PCE REGISTERS                N4236000
004F0A 47F0 B030      00030        6134          B     $WAIT               ENTER DISPATCHER                     N4238000
                                   6135 * THIS WILL CAUSE THE ROOT SEGMENT TO BE DISPATCHED                     N4240000
                                   6136 * THE ROOT SEGMENT WILL $LINK TO THE OVERLAY SEGMENTS WHICH FOLLOW      N4242000

INIT     HASP INITIALIZATION PROCESSOR - UNIT RECORD OVERLAY                                                   PAGE  140



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6138 HASPIOVA $OVERLAY 0,0              UNIT RECORD OVERLAY                  N4246000
00B260                             6139+HA$OIOVA CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            0B260  6140+HA$IIOVA EQU   HA$OIOVA+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   6141+         ENTRY HA$IIOVA                                                 OV036000
00B260 C9D6E5C1                    6142+         DC    CL4'IOVA'           IDENTIFY MODULE ON CORE DUMP         OV038000
00B264 0000B260                    6143+         DC    A(HA$OIOVA)         ASSEMBLY ORIGIN                      OV040000
00B268                             6144+HASPIOVA DS    0F                  ENTRY POINT                          OV042000
                            0B208  6145+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
00B268 5810 7760      051C0        6146          L     R1,=V(HASPOTAB)     R1 = ADDRESS OF HASPOTAB CSECT       N4248000
00B26C D501 831C 1002 0B524 00002  6147          CLC   NOLIBTAG,2(R1)      COMPARE OLIBTAGS                     N4250000
00B272 4110 8320      0B528        6148          LA    1,NOLIBEM1          1 = ADDRESS OF MESSAGE               N4252000
00B276 4770 C6B0      04110        6149          BNE   NDAOUT              BOMB IF NOT EQUAL                    N4254000
                                   6150 * LOCATE SUPPORTED UNIT RECORD DEVICES - REAL AND PSEUDO                N4256000
                                   6151          $DISABLE ALL              PREVENT INTERRUPTS                   N4258000

00B27A 8000 B0C9      000C9        6152+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
00B27E 5820 0010      00010        6153          L     WA,$CVTPTR          LOCATE CVT                           N4260000
00B282 5820 2028      00028        6154          L     WA,CVTILK2-CVTDSECT(0,WA) LOCATE LOOK UP TABLE           N4262000
00B286 0540                        6155          BALR  WC,0                ESTABLISH BASE FOR LOOPING           N4264000

00B288 4830 2000      00000        6156 NURLOOP  LH    WB,0(0,WA)          LOAD UCB ADDRESS                     N4266000
00B28C 4120 2002      00002        6157          LA    WA,2(0,WA)          POINT TO NEXT ITEM                   N4268000
00B290 1233                        6158          LTR   WB,WB               TEST FOR NULL, END, OR GOOD          N4270000
00B292 0784                        6159          BCR   Z,WC                LOOP TO NEXT                         N4272000
00B294 4740 82FE      0B506        6160          BM    NUREND              EXIT IF NO MORE UCBS                 N4274000
                            00000  6161          USING UCBDSECT,WB                                              N4276000
00B298 9508 3012      00012        6162          CLI   UCBTBYT3,UCB3UREC   TEST FOR UNIT RECORD                 N4296000
00B29C 0774                        6163          BCR   NE,WC               LOOP TO NEXT                         N4298000
                                   6164 * UNIT RECORD UCB HAS BEEN FOUND                                        N4300000
00B29E 4850 3004      00004        6165 NURFND   LH    WD,UCBCHA           PICK UP ADDRESS (00C,00E,...)        N4302000
00B2A2 5450 7764      051C4        6166          N     WD,=A(X'FFF')       MASK OFF ANY FLAG BITS               N4303000
                                   6167          AIF   (NOT &SYSVS2).NOINITH                               RFIT N4303100

                                   6168 .NOINITH ANOP                                                      RFIT N4306200
                                   6169         $ENABLE ALL                ALLOW INTERRUPTS MOMENTARY TO   RFIT N4306300
00B2A6 8000 B0C8      000C8        6170+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000

                                   6171         $DISABLE ALL                PREVENT ENDLESS LOOP           RFIT N4306400
00B2AA 8000 B0C9      000C9        6172+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
00B2AE 91A0 3006      00006        6173          TM    UCBFL2,X'A0'        IS THERE ACTIVITY ON DEVICE?    RFIT N4308000
00B2B2 4770 8110      0B318        6174          BNZ   NUREAL              ASSUME DEVICE IS REAL           RFIT N4310000
                                   6175 * TEST I/O TO SEPARATE PSEUDO DEVICES FROM REAL DEVICES            RFIT N4312000
                                   6176 *        ASSUME UNI-PROCESSOR SYSTEM                               RFIT N4314000
00B2B6                             6177 NURTIO   DS    0H                                                  RFIT N4328000
00B2B6 9D00 5000      00000        6178          TIO   0(WD)               IS UNIT ATTACHED TO SYSTEM?     RFIT N4330000
00B2BA 4780 8110      0B318        6179          BC    8,NUREAL            IF DEVICE IS AVAILABLE, ITS REALRFIT N4332000
00B2BE 4740 8108      0B310        6180          BC    4,NURTCSW           IF CSW STORED EXAMINE           RFIT N4334000
00B2C2 4720 8096      0B29E        6181          BC    2,NURFND            REPEAT UNTIL BROKEN             RFIT N4336000
00B2C6                             6182 NURPSE   DS    0H                                                  RFIT N4338000

                                   6183 .NOINITI ANOP                                                      RFIT N4338100

                                   6184 * DEVICE IS A HASP PSEUDO DEVICE                                        N4340000
                                   6185          AIF   (&NUMINRS EQ 0).NINR1                                    N4342000

00B2C6 9505 3013      00013        6186          CLI   UCBTBYT4,UCB2520    TEST FOR 2520                        N4344000
00B2CA 4770 80EE      0B2F6        6187          BNE   NURN2520            IF NOT 2520 TRY OTHERS               N4346000
                                   6188          CLI   NOINRS+1,&NUMINRS*4 TEST NUMBER OF 2520 UNITS EXCEEDED   N4348000
00B2CE 9518 80ED      0B2F5        6189+         CLI   NOINRS+1,6*4        TEST NUMBER OF 2520 UNITS EXCEEDED   N4348000
00B2D2 07B4                        6190          BCR   NL,WC               LOOP TO NEXT                         N4350000
00B2D4 48E0 80EC      0B2F4        6191          LH    LINK,NOINRS         PICK UP COUNT * 4                    N4352000
00B2D8 58FE 7718      05178        6192          L     R15,$INRDEBL(LINK)  LOCATE DEB FOR INTERNAL READER N     N4354000
INIT     HASP INITIALIZATION PROCESSOR - UNIT RECORD OVERLAY                                                   PAGE  141


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00B2DC 41E0 E004      00004        6193          LA    LINK,4(0,LINK)      COUNT                                N4356000
00B2E0 40E0 80EC      0B2F4        6194          STH   LINK,NOINRS         SAVE FOR NEXT TIME                   N4358000
00B2E4 9201 300B      0000B        6195          MVI   UCBATI,X'01'        SET HASP PSEUDO UCB FLAG        RFIT N4360000

00B2E8 9680 3003      00003        6196          OI    SRTESTAT,SRTEONLI   VARY ONLINE                          N4362000
00B2EC 94BF 3003      00003        6197          NI    SRTESTAT,255-SRTECHGS FORCE STATUS BIT OFF               N4364000

00B2F0 47F0 81B4      0B3BC        6198          B     NURLDCT             LOCATE DCT                           N4366000

00B2F4 0000                        6199 NOINRS   DC    H'0'                COUNT OF INTERNAL READERS * 4        N4368000
00B2F6                             6200 NURN2520 DS    0H                                                       N4370000
                                   6201 .NINR1   ANOP                                                           N4372000
00B2F6 4950 831A      0B522        6202          CH    WD,NUROSWTR         TEST FOR SYSTEM WRITER UNIT          N4388000
00B2FA 4770 80FA      0B302        6203          BNE   NURPSONL            IN NOT, GO TO SET ONLINE             N4390000
00B2FE 5030 7508      04F68        6204          ST    WB,NWTRPARM         SAVE UCB ADDRESS FOR HASPWTR         N4392000
00B302 9680 3003      00003        6205 NURPSONL OI    SRTESTAT,SRTEONLI   VARY ONLINE                          N4426000
00B306 94BF 3003      00003        6206          NI    SRTESTAT,255-SRTECHGS FORCE STATUS BIT OFF               N4428000
00B30A 9201 300B      0000B        6207          MVI   UCBATI,X'01'        SET HASP PSEUDO UCB FLAG        RFIT N4428100
00B30E 07F4                        6208          BR    WC                  LOOP TO NEXT UCB                     N4430000
                                   6209          AIF   (&SYSVS2).NOINITJ                                   RFIT N4431900
                                   6210 * CSW STORED ON TEST I/O                                           RFIT N4432000

00B310 911C 0044      00044        6211 NURTCSW  TM    68,X'1C'            TEST FOR UNIT BUSY              RFIT N4434000
00B314 4770 8096      0B29E        6212          BNZ   NURFND              TRY TEST AGAIN IF BUSY          RFIT N4436000
                                   6213 .NOINITJ ANOP                                                      RFIT N4436100




                                   6215 * SETUP CONTROL TABLES FOR REAL DEVICES                                 N4440000



00B318                             6217 NUREAL   DS    0H                                                       N4444000
00B318 4110 8134      0B33C        6218          LA    R1,NURTAB           POINT TO UNIT RECORD TABLE           N4446000
00B31C 4100 0008      00008        6219          LA    R0,NURTN            GET NUMBER OF ITEMS                  N4448000
00B320 D501 1000 3012 00000 00012  6220 NURLOOKR CLC   0(2,R1),UCBTBYT3    CHECK FOR ITEM MATCH WITH UCB        N4450000
00B326 4780 812C      0B334        6221          BE    NURFNDR             IF MATCH EXIT                        N4452000
00B32A 4110 1004      00004        6222          LA    R1,4(0,R1)          UP TO NEXT ITEM                      N4454000
00B32E 4600 8118      0B320        6223          BCT   R0,NURLOOKR         COUNT AND LOOP                       N4456000
00B332 07F4                        6224          BR    WC                  GO FOR NEXT UCB                      N4458000
00B334 4810 1002      00002        6225 NURFNDR  LH    R1,2(0,R1)          PICK UP ENTRY OFFSET                 N4460000

00B338 47F1 8000      00000        6226          B     0(R1,BASE3)         ENTER ROUTINE                        N4462000
                            0B208  6227 NURB     EQU   HASPIOVA-OACEPROG+BUFDSECT                               N4464000
00B33C                             6228 NURTAB   DS    0H                                                       N4466000

00B33C 08010194                    6229          DC    AL1(UCB3UREC,UCB2540R),AL2(NUREADER-NURB)   2540R        N4488000
00B340 08040194                    6230          DC    AL1(UCB3UREC,UCB2501),AL2(NUREADER-NURB)    2501         N4490000
00B344 08060194                    6231          DC    AL1(UCB3UREC,UCB3505),AL2(NUREADER-NURB)    3505         N4491000
00B348 08020174                    6232          DC    AL1(UCB3UREC,UCB2540P),AL2(NURPUNCH-NURB)   2540P        N4492000
00B34C 08050174                    6233          DC    AL1(UCB3UREC,UCB2520),AL2(NURPUNCH-NURB)    2520         N4494000
00B350 080C0174                    6234          DC    AL1(UCB3UREC,UCB3525),AL2(NURPUNCH-NURB)    3525         N4497000
00B354 08090154                    6235          DC    AL1(UCB3UREC,UCB3211),AL2(NURPRINT-NURB)    3211         N4498000
00B358 08080154                    6236          DC    AL1(UCB3UREC,UCB1403),AL2(NURPRINT-NURB)    1403         N4500000
                            00008  6237 NURTN    EQU   (*-NURTAB)/4                                             N4502000
                                   6238 * REAL 1403 PRINTER INITIALIZATION                                      N4504000
00B35C                             6239 NURPRINT DS    0H                                                       N4506000
                                   6240          CLI   NOPRTS+1,&NUMPRTS*4 TEST NUMBER PRINTERS EXCEEDED        N4508000

00B35C 9508 8311      0B519        6241+         CLI   NOPRTS+1,2*4        TEST NUMBER PRINTERS EXCEEDED        N4508000
00B360 4110 839D      0B5A5        6242          LA    R1,NURPRTM          SET ERROR DIAGNOSTIC JUST IN CASE    N4510000
00B364 47B0 82DE      0B4E6        6243          BNL   NURERR              IF EXCEEDED SEND DIAGNOSTIC          N4512000
INIT     HASP INITIALIZATION PROCESSOR - UNIT RECORD OVERLAY                                                   PAGE  142



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00B368 48E0 8310      0B518        6244          LH    LINK,NOPRTS         PICK UP NUMBER OF PRINTERS * 4       N4514000
00B36C 58FE 770C      0516C        6245          L     R15,$PRTDEBL(LINK)  LOCATE DEB FOR PRINTER N             N4516000
00B370 41E0 E004      00004        6246          LA    LINK,4(0,LINK)      COUNT PRINTER                        N4518000
00B374 40E0 8310      0B518        6247          STH   LINK,NOPRTS         SAVE FOR NEXT TIME                   N4520000
00B378 47F0 81B4      0B3BC        6248          B     NURLDCT             LOCATE DCT                           N4522000

                                   6249 * REAL 2540 PUNCH INITIALIZATION                                        N4524000
                                   6250 NURPUNCH CLI   NOPUNS+1,&NUMPUNS*4 TEST NUMBER PUNCHES EXCEEDED         N4526000
00B37C 9504 8313      0B51B        6251+NURPUNCH CLI   NOPUNS+1,1*4        TEST NUMBER PUNCHES EXCEEDED         N4526000
00B380 4110 83AB      0B5B3        6252          LA    R1,NURPUNM          SET ERROR DIAGNOSTIC                 N4528000
00B384 47B0 82DE      0B4E6        6253          BNL   NURERR              IF EXCEEDED SEND DIAGNOSTIC          N4530000
00B388 48E0 8312      0B51A        6254          LH    LINK,NOPUNS         PICK UP NUMBER OF PUNCHES *4         N4532000
00B38C 58FE 7730      05190        6255          L     R15,$PUNDEBL(LINK)  LOCATE DEB FOR PUNCH N               N4534000
00B390 41E0 E004      00004        6256          LA    LINK,4(0,LINK)      COUNT PUNCH                          N4536000

00B394 40E0 8312      0B51A        6257          STH   LINK,NOPUNS         SAVE COUNT FOR NEXT TIME             N4538000
00B398 47F0 81B4      0B3BC        6258          B     NURLDCT             LOCATE DCT                           N4540000

                                   6259 * REAL 2540/2501 READER INITIALIZATION                                  N4568000
                                   6260 NUREADER CLI   NORDRS+1,&NUMRDRS*4 TEST NUMBER OF READERS EXCEEDED      N4570000
00B39C 9504 8315      0B51D        6261+NUREADER CLI   NORDRS+1,1*4        TEST NUMBER OF READERS EXCEEDED      N4570000
00B3A0 4110 83B9      0B5C1        6262          LA    R1,NURRDRM          SET ERROR DIAGNOSTIC JUST IN CASE    N4572000
00B3A4 47B0 82DE      0B4E6        6263          BNL   NURERR              IF EXCEEDED SEND DIAGNOSTIC          N4574000
                                   6264          AIF   (NOT &AUTORDR).NOARDR                                    N4576000
                                   6265 &TEMP    SETA  4                   ASSUME MFT/MVT/VS1 ATTN INDEX   RFIT N4578000
                                   6266          AIF   (NOT &SYSVS2).NOARDR1                               RFIT N4578100

                                   6267 .NOARDR1 MVI   UCBATI,&TEMP        SET ATTENTION TABLE INDEX       RFIT N4578300
00B3A8 9204 300B      0000B        6268+.NOARDR1 MVI   UCBATI,4            SET ATTENTION TABLE INDEX       RFIT N4578300
00B3AC 48E0 8314      0B51C        6269 .NOARDR  LH    LINK,NORDRS         PICK UP NUMBER OF READERS * 4        N4580000
00B3B0 58FE 7714      05174        6270          L     R15,$RDRDEBL(LINK)  LOCATE DEB FOR READER N              N4582000
00B3B4 41E0 E004      00004        6271          LA    LINK,4(0,LINK)      COUNT READER                         N4584000

00B3B8 40E0 8314      0B51C        6272          STH   LINK,NORDRS         SAVE FOR NEXT TIME                   N4586000



                                   6274 * LOCATE DCT AND SETUP CONTROL BLOCKS                                   N4590000




00B3BC 5860 B0F0      000F0        6276 NURLDCT  L     WE,$DCTPOOL         LOCATE FIRST DCT                     N4594000
                            00000  6277          USING DCTDSECT,WE                                              N4596000
00B3C0 D502 F019 6009 00019 00009  6278 NURDCTL  CLC   DEBDCBAD+1-DEBDSECT(3,R15),DCTDCB+1 CORRESPONDING DCT    N4598000
00B3C6 4780 81D8      0B3E0        6279          BE    NURFDCT             BRANCH IF DCT FOUND                  N4600000
00B3CA 5860 6014      00014        6280          L     WE,DCTCHAIN         LOCATE NEXT DCT                      N4602000
00B3CE 4160 6000      00000        6281          LA    WE,0(0,WE)          PURIFY                               N4604000

00B3D2 1266                        6282          LTR   WE,WE               TEST FOR END OF CHAIN                N4606000
00B3D4 4770 81B8      0B3C0        6283          BNE   NURDCTL             LOOP IF NOT                          N4608000
00B3D8 4110 8370      0B578        6284          LA    R1,NCATERM          SET CATASTROPHIC ERROR MESSAGE       N4610000
00B3DC 47F0 C690      040F0        6285          B     NUROUT              WITHDRAW UNIT RECORD DEVICES, QUIT   N4612000
                                   6286 * ALL UNIT RECORD DEVICES ARE ASSEMBLED WITH DRAIN BIT ON HOLD BIT OFF  N4614000

00B3E0                             6287 NURFDCT  DS    0H                                                       N4616000
                                   6288          AIF   (&NUMINRS EQ 0).NINR2                                    N4618000
00B3E0 9514 6012      00012        6289          CLI   DCTDEVTP,DCTINR     IS THIS AN INTERNAL READER           N4620000
00B3E4 4770 81EC      0B3F4        6290          BNE   NURNINR             SKIP IF NOT                          N4622000

00B3E8 5030 6038      00038        6291          ST    WB,RIDUCB           SAVE UCB POINTER FOR IDENTIFICATION  N4624000
00B3EC 9760 6000      00000        6292          XI    DCTSTAT,DCTDRAIN+DCTHOLD SET IDLE BUT HOLD               N4626000
00B3F0 47F0 8288      0B490        6293          B     NURDRAIN            LEAVE DCT IDLE                       N4628000
                                   6294 .NINR2   ANOP                                                           N4630000
INIT     HASP INITIALIZATION PROCESSOR - UNIT RECORD OVERLAY                                                   PAGE  143


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


00B3F4 9108 3003      00003        6295 NURNINR  TM    SRTESTAT,SRTEALOC   TEST ALLOCATION STATUS               N4632000
00B3F8 4710 8288      0B490        6296          BO    NURDRAIN            IF ALLOCATED LEAVE DRAINED           N4634000
00B3FC 9510 6012      00012        6297          CLI   DCTDEVTP,DCTRDR     TEST DEVICE TYPE                     N4636000
00B400 4770 8204      0B40C        6298          BNE   NURNARDR            SKIP IF NOT READER                   N4638000
00B404 9760 6000      00000        6299          XI    DCTSTAT,DCTDRAIN+DCTHOLD SET IDLE BUT HOLD               N4640000

                                   6300          AIF   (NOT &AUTORDR).NOARDRA                                   N4642000
00B408 947F 3003      00003        6301          NI    SRTESTAT,255-SRTEONLI VARY AUTO START READER OFF-LINE    N4644000
                                   6302 .NOARDRA ANOP                                                           N4646000
00B40C                             6303 NURNARDR DS    0H                                                       N4648000
00B40C 9180 3006      00006        6304          TM    UCBFL2,X'80'        TEST OS BUSY BIT                     N4650000

00B410 4710 8288      0B490        6305          BO    NURDRAIN            IF BUSY, LEAVE DRAINED               N4652000
00B414 9D00 5000      00000        6306          TIO   0(WD)               TEST FOR DEVICE AVAILABLE            N4664000
00B418 4770 8288      0B490        6307          BC    7,NURDRAIN          BR IF CSW ST, BUSY, NOT OPER OY10951 N4666000
                                   6308          AIF   (NOT &AUTORDR).NOARDRB                          @THAS811 N4667010
                                   6309 *------------------------------------------------------------* @THAS811 N4667020

                                   6310 *        The following logic tests if a hot reader is        * @THAS811 N4667030
                                   6311 *        ready.  If the reader is not ready, DCTHOLD         * @THAS811 N4667040
                                   6312 *        will be left turned on in its DCT so HASPRDR's      * @THAS811 N4667050
                                   6313 *        $GETUNIT for the device will fail, preventing       * @THAS811 N4667060
                                   6314 *        HASPRDR from trying to read from the not ready      * @THAS811 N4667070

                                   6315 *        device.  If the reader is ready, DCTHOLD will be    * @THAS811 N4667080
                                   6316 *        turned off to permit normal HASPRDR processing.     * @THAS811 N4667090
                                   6317 *------------------------------------------------------------* @THAS811 N4667100
00B41C 9510 6012      00012        6318          CLI   DCTDEVTP,DCTRDR     Is this a reader?           @THAS811 N4667110
00B420 4770 8280      0B488        6319          BNE   NURAVAIL            Branch if not a reader      @THAS811 N4667120
00B424 91FE 3006      00006        6320          TM    UCBFL1,X'FE'        Test UCB flags              @THAS811 N4667130

00B428 4770 8288      0B490        6321          BNZ   NURDRAIN            Drain reader if unavailable @THAS811 N4667140
00B42C 4110 8278      0B480        6322 NURRDSIO LA    R1,NURRDCCW         Get CCW address             @THAS811 N4667150
00B430 5010 0048      00048        6323          ST    R1,72                and put in CAW             @THAS811 N4667160
00B434 4810 3004      00004        6324          LH    R1,UCBCHA           Get reader address          @THAS811 N4667170

00B438 5410 7768      051C8        6325          N     R1,=A(X'00000FFF')   in R1                      @THAS811 N4667180
00B43C 9C00 1000      00000        6326          SIO   0(R1)                 and issue NOP to reader   @THAS811 N4667190
00B440 4710 8288      0B490        6327          BC    1,NURDRAIN          Drain reader if inoperative @THAS811 N4667200
00B444 4740 825C      0B464        6328          BC    4,NURRDCST          Branch if CSW stored        @THAS811 N4667210
00B448 4720 8224      0B42C        6329          BC    2,NURRDSIO          Wait for I/O to take        @THAS811 N4667220

00B44C 4810 3004      00004        6330 NURRDTIO LH    R1,UCBCHA           Get reader address          @THAS811 N4667230
00B450 5410 7768      051C8        6331          N     R1,=A(X'00000FFF')   in R1                      @THAS811 N4667240
00B454 9D00 1000      00000        6332          TIO   0(R1)                 and test for completion   @THAS811 N4667250
00B458 4710 8288      0B490        6333          BC    1,NURDRAIN          Drain reader if inoperative @THAS811 N4667260
00B45C 4720 8244      0B44C        6334          BC    2,NURRDTIO          Loop until complete         @THAS811 N4667270
00B460 4780 8280      0B488        6335          BC    8,NURAVAIL          Available, go lift DCTHOLD  @THAS811 N4667280
00B464 9102 0044      00044        6336 NURRDCST TM    68,X'02'            Test for unit check         @THAS811 N4667290

00B468 4710 826C      0B474        6337          BO    NURRDHLD            Leave reader DCT held if so @THAS811 N4667300
00B46C 913F 0045      00045        6338          TM    69,X'3F'            Test permanent I/O errors   @THAS811 N4667310
00B470 4780 8280      0B488        6339          BZ    NURAVAIL            None, make reader available @THAS811 N4667320

00B474 94BF 6000      00000        6340 NURRDHLD NI    DCTSTAT,255-DCTDRAIN Else leave reader DCT held @THAS811 N4667330
00B478 47F0 8284      0B48C        6341          B     NURASOFF            Continue                    @THAS811 N4667340
00B47C 00000000
00B480 0300000020000001            6342 NURRDCCW CCW   X'03',0,X'20',1     NOP CCW for reader test     @THAS811 N4667350
                                   6343 *------------------------------------------------------------* @THAS811 N4667360

                                   6344 *        End of code to test if hot reader is ready.         * @THAS811 N4667370
                                   6345 *------------------------------------------------------------* @THAS811 N4667380
                                   6346 .NOARDRB ANOP  ,                                               @THAS811 N4667390
00B488 949F 6000      00000        6347 NURAVAIL NI    DCTSTAT,255-DCTDRAIN-DCTHOLD MAKE DCT AVAILABLE          N4668000
00B48C 947F 3003      00003        6348 NURASOFF NI    SRTESTAT,255-SRTEONLI Vary auto starts offline  @THAS811 N4670000
INIT     HASP INITIALIZATION PROCESSOR - UNIT RECORD OVERLAY                                                   PAGE  144


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00B490                             6349 NURDRAIN DS    0H                                                       N4671000

00B490 5850 B0D4      000D4        6350          L     WD,$HASPTCB         GET OUR TCB ADDRESS                  N4696000
00B494 5050 F000      00000        6351          ST    WD,DEBTCBAD-DEBDSECT(0,R15) SET TCB POINTER IN DEB       N4698000

00B498 5030 F020      00020        6352          ST    WB,DEBUCBAD-DEBDSECT(0,R15) SET UCB POINTER IN DEB       N4700000
00B49C 9509 3013      00013        6353          CLI   UCBTBYT4,X'09'      TEST DEVICE TYPE             OY02728 N4700100
00B4A0 0774                        6354          BNER  WC                  BRANCH IF NOT 3211           OY02728 N4700200
00B4A2 5830 301C      0001C        6355          L     WB,UCBXTADR         ADDRESS UCB EXTENSION        OY02728 N4700300
                            00000  6356          USING UCBUCS,WB           UCB EXTENSION ADDRESSABILITY OY02728 N4700400

00B4A6 4100 0001      00001        6357          LA    R0,1                ONE IN REGISTER FOR COMPARE  OY02728 N4700500
00B4AA 1F55                        6358          SLR   WD,WD               GET ZERO REGISTER            OY02728 N4700600
00B4AC 4350 300C      0000C        6359          IC    WD,UCBERADR         GET OPEN DCB COUNT           OY02728 N4700700
00B4B0 1E50                        6360          ALR   WD,R0               INCREMENT COUNT              OY02728 N4700800
00B4B2 4250 300C      0000C        6361          STC   WD,UCBERADR         SAVE COUNT IN UCB            OY02728 N4700900
00B4B6 1505                        6362          CLR   R0,WD               IS THIS FIRST USER           OY02728 N4701000
00B4B8 0774                        6363          BNER  WC                  BRANCH IF NO                 OY02728 N4701100
00B4BA 4150 830C      0B514        6364          LA    WD,NURGMA           GETMAIN RETURN ADDRESS       OY02728 N4701200
                                   6365          GETMAIN EC,LV=570,A=(WD),SP=245 GET LOG AREA           OY02728 N4701300

00B4BE 0700                        6366+         CNOP  0,4                                                      02340000

00B4C0 4510 82C6      0B4CE        6367+         BAL   1,*+14                            BRANCH AROUND LIST     02360000
00B4C4 0000023A                    6368+         DC    A(570)                            LENGTH                 02420000
00B4C8 00000000                    6369+         DC    A(0)                              ADDR. OF ADDR. LIST    02700000
00B4CC 20                          6370+         DC    X'20'                             EC MODE                02820000
00B4CD F5                          6371+         DC    AL1(245)                          SUBPOOL VALUE          03120000

00B4CE 5051 0004      00004        6372+         ST    WD,4(1,0)                         STORE INTO PARAM LIST  03360000
00B4D2 0A04                        6373+         SVC   4                                 ISSUE GETMAIN SVC      03380000
00B4D4 D202 300D 830D 0000D 0B515  6374          MVC   UCBERADR+1(3),NURGMA+1 GETMAIN AREA TO UCB       OY02728 N4701400
00B4DA 12FF                        6375          LTR   R15,R15             WAS GETMAIN SUCCESSFUL       OY02728 N4701500
00B4DC 0784                        6376          BZR   WC                  BRANCH IF YES                OY02728 N4701600
00B4DE D703 300C 300C 0000C 0000C  6377          XC    UCBERADR,UCBERADR   ZERO UCB LOG BUFFER POINTER  OY02728 N4701700
00B4E4 07F4                        6378          BR    WC                  LOOP FOR NEXT UCB                    N4702000
00B4E6 9500 1000      00000        6379 NURERR   CLI   0(R1),0             TEST FOR FIRST TIME                  N4704000
00B4EA 0774                        6380          BCR   NE,WC               LOOP TO NEXT UCB IF NOT FIRST TIME   N4706000
00B4EC 92FF 1000      00000        6381          MVI   0(R1),X'FF'         SET FLAG                             N4708000

00B4F0 D20C 8357 1001 0B55F 00001  6382          MVC   NURWTOV(13),1(R1)   INSERT MESSAGE                       N4710000

                                   6383          $ENABLE ALL               ALLOW INTERRUPTS                     N4712000
00B4F6 8000 B0C8      000C8        6384+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   6385          WTO   MF=(E,NURWTOL)      SEND DIAGNOSTIC                      N4714000
00B4FA 4110 8348      0B550        6386+         LA    1,NURWTOL                         LOAD PARAMETER REG 1   00100000

00B4FE 0A23                        6387+         SVC   35                                ISSUE SVC              00750021
                                   6388          $DISABLE ALL              PREVENT INTERRUPTS                   N4716000
00B500 8000 B0C9      000C9        6389+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
00B504 07F4                        6390          BR    WC                  LOOP TO NEXT UCB                     N4718000
                                   6391 NUREND   NULL  ,                   END OF UNIT RECORD LOOP              N4720000
00B506                             6392+NUREND   DS    0H                                                       NU006000
                                   6393 .NOTPE   $ENABLE ALL               ALLOW INTERRUPTS                     N4740000
00B506 8000 B0C8      000C8        6394+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   6395          AIF   (&NUMLNES EQ 0).INOLIN1                                  N4742000
                                   6396 .INOLIN1 AIF   (&SPOLMSG EQ 0).INOLIN2                                  N4747000
                                   6397 .INOLIN2 $XCTL HASPIOVB            EXIT TO CONSOLE OVERLAY              N4749500

000000                             6398+HA$QIOVB DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
00B50A                             6399+HA$OIOVA CSECT                                                          OL014000
00B50A 41E00000                    6400+         DC    Y(X'4100'+LINK*16),QL2(HA$QIOVB) LOAD OCON INTO LINK     OL016000
00B50E 45F0 B090      00090        6401+         BAL   R15,$OXCTL          LINK TO OVERLAY SUPERVISOR           XC008000

                                   6402 .ILIN1   ANOP                                                           N4750000
                                   6403          DROP  WB,WE                                                    N4752000
INIT     HASP INITIALIZATION PROCESSOR - UNIT RECORD OVERLAY                                                   PAGE  145


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00B514                             6404 NURGMA   DS    F                   GETMAIN RETURN ADDRESS AREA  OY02728 N4753000
00B518 0000                        6405 NOPRTS   DC    H'0'                NUMBER OF PRINTERS * 4               N4754000
00B51A 0000                        6406 NOPUNS   DC    H'0'                NUMBER OF PUNCHES * 4                N4756000
00B51C 0000                        6407 NORDRS   DC    H'0'                NUMBER OF CARD READERS * 4           N4758000
00B51E 0000                        6408 NOCONS   DC    H'0'                NUMBER OF CONSOLES * 4               N4760000
                                   6409 NUROSRDR DC    0H'0',XL2'&RDR'     OS PSEUDO READER DEVICE              N4762000
00B520 0700                        6410+NUROSRDR DC    0H'0',XL2'700'      OS PSEUDO READER DEVICE              N4762000
                                   6411 NUROSWTR DC    0H'0',XL2'&WTR'     SYSTEM MESSAGE BLOCK WRITER UNIT     N4764000

00B522 0720                        6412+NUROSWTR DC    0H'0',XL2'720'      SYSTEM MESSAGE BLOCK WRITER UNIT     N4764000
                                   6413 HA$Q$$$$ DXD   X                   DEFINE OLIBTAG NAME                  N4766000
00B524 0000                        6414 NOLIBTAG DC    QL2(HA$Q$$$$)       REFERENCE OLIBTAG                    N4768000

                                   6415 NOLIBEM1 WTO   'OLAYLIB DOES NOT MATCH RESIDENT HASP',MF=L              N4770000
00B528                             6416+NOLIBEM1 DS    0F                                                       01050021
00B528 0028                        6417+         DC    AL2(40)             TEXT LENGTH                          11950021
00B52A 0000                        6418+         DC    B'0000000000000000' MCS FLAGS                            12000021
00B52C D6D3C1E8D3C9C240            6419+         DC    C'OLAYLIB DOES NOT MATCH RESIDENT HASP'                  12100021
                                   6420 NURWTOL  WTO   'MAXIMUM OF ** ********** EXCEEDED',MF=L                 N4772000
00B550                             6421+NURWTOL  DS    0F                                                       01050021
00B550 0025                        6422+         DC    AL2(37)             TEXT LENGTH                          11950021
00B552 0000                        6423+         DC    B'0000000000000000' MCS FLAGS                            12000021
00B554 D4C1E7C9D4E4D440            6424+         DC    C'MAXIMUM OF ** ********** EXCEEDED'                     12100021
                            0B55F  6425 NURWTOV  EQU   *-22                LOCATE VARIBLE PORTION               N4774000
                                   6426 NCATERM  WTO   'INVALID UNIT RECORD DEVICE CONTROL TABLES',MF=L         N4776000

00B578                             6427+NCATERM  DS    0F                                                       01050021

00B578 002D                        6428+         DC    AL2(45)             TEXT LENGTH                          11950021
00B57A 0000                        6429+         DC    B'0000000000000000' MCS FLAGS                            12000021

00B57C C9D5E5C1D3C9C440            6430+         DC    C'INVALID UNIT RECORD DEVICE CONTROL TABLES'             12100021
                                   6431 NURPRTM  DC    X'00',CL2'&NUMPRTS',C' PRINTER(S)'                       N4778000
00B5A5 00F24040D7D9C9D5            6432+NURPRTM  DC    X'00',CL2'2',C' PRINTER(S)'                              N4778000
                                   6433 NURPUNM  DC    X'00',CL2'&NUMPUNS',C' PUNCH(S)  '                       N4780000
00B5B3 00F14040D7E4D5C3            6434+NURPUNM  DC    X'00',CL2'1',C' PUNCH(S)  '                              N4780000
                                   6435 NURRDRM  DC    X'00',CL2'&NUMRDRS',C' READER(S) '                       N4782000
00B5C1 00F14040D9C5C1C4            6436+NURRDRM  DC    X'00',CL2'1',C' READER(S) '                              N4782000
                                   6437          AIF   (&NUMLNES EQ 0).INOLIN3                                  N4796000
                                   6438 .INOLIN3 AIF   (&SPOLMSG EQ 0).INOLIN8                                  N5310000
                                   6439 .INOLIN8 ANOP                                                           N5496000
INIT     HASP INITIALIZATION PROCESSOR - MISCELLANEOUS                                                         PAGE  146


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   6441 HASPIOVB $OVERLAY 0,0              CONSOLE OVERLAY                      N5500000
00B5D0                             6442+HA$OIOVB CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            0B5D0  6443+HA$IIOVB EQU   HA$OIOVB+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   6444+         ENTRY HA$IIOVB                                                 OV036000
00B5D0 C9D6E5C2                    6445+         DC    CL4'IOVB'           IDENTIFY MODULE ON CORE DUMP         OV038000
00B5D4 0000B5D0                    6446+         DC    A(HA$OIOVB)         ASSEMBLY ORIGIN                      OV040000
00B5D8                             6447+HASPIOVB DS    0F                  ENTRY POINT                          OV042000
                            0B578  6448+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                                   6449          AIF   (&SYSVS2).NOINITB                                   RFIT N5502000
                                   6450 ***************************************************************    RFIT N5504000
                                   6451 *              SET CON UCM PARAMETERS ACCORDING TO OS VINTAGE *    RFIT N5506000
                                   6452 ***************************************************************    RFIT N5508000
00B5D8 5820 0010      00010        6453          L     WA,$CVTPTR          CVT ADDRESS                     RFIT N5510000
00B5DC 1832                        6454          LR    WB,WA                TO WB                          RFIT N5512000
00B5DE 0630                        6455          BCTR  WB,0                  CALCULATE                     RFIT N5514000

00B5E0 0630                        6456          BCTR  WB,0                   CVT                          RFIT N5516000
00B5E2 0630                        6457          BCTR  WB,0                    MINUS                       RFIT N5518000
00B5E4 0630                        6458          BCTR  WB,0                     FOUR                       RFIT N5520000

00B5E6 5820 2064      00064        6459          L     WA,CVTCUCB-CVTDSECT(,WA) ADDRESS OF UCM             RFIT N5522000
00B5EA 1B44                        6460          SR    WC,WC               ASSUME RELEASE PRIOR TO 20      RFIT N5524000
00B5EC 95F2 3000      00000        6461          CLI   0(WB),C'2'          TEST FOR RELEASE 2X             RFIT N5526000
00B5F0 4770 8080      0B5F8        6462          BNE   NNOTR20             BRANCH IF NOT                   RFIT N5528000
00B5F4 4140 0004      00004        6463          LA    WC,4                SET FOR RELEASE 2X UCM          RFIT N5530000
00B5F8 5830 776C      051CC        6464 NNOTR20  L     WB,=V(WUCMSVE3)     ADDRESS OF INTF UCM DATA AREA   RFIT N5532000
                                   6465 ***************************************************************    RFIT N5534000
                                   6466 *              WA = UCM, WB = CON, WC = RELEASE               *    RFIT N5536000
                                   6467 ***************************************************************    RFIT N5538000
00B5FC 4152 4088      00088        6468          LA    WD,136(WA,WC)       ADDRESS OF UCM SAVE AREA        RFIT N5540000
00B600 5050 3000      00000        6469          ST    WD,0(,WB)           SET UP CON DATA                 RFIT N5542000
00B604 5852 403C      0003C        6470          L     WD,60(WA,WC)        COMM TASK TCB                   RFIT N5544000

00B608 5050 3004      00004        6471          ST    WD,4(,WB)           SETUP CON DATA                  RFIT N5546000
00B60C 4152 4044      00044        6472          LA    WD,68(WA,WC)        ADDRESS OF UCMVEA FIELD         RFIT N5548000
00B610 5050 3008      00008        6473          ST    WD,8(,WB)           SET UP CON DATA                 RFIT N5550000

00B614 4352 4040      00040        6474          IC    WD,64(WA,WC)        GET MODE FLAGS                  RFIT N5552000
00B618 4250 300C      0000C        6475          STC   WD,12(,WB)          SET CON DATA                    RFIT N5554000
00B61C 5820 7770      051D0        6476          L     WA,=V(XSTATUS)      SETUP HASP                      RFIT N5554200
00B620 5020 B12C      0012C        6477          ST    WA,$STATENT          XSTATUS ROUTINE                RFIT N5554400
                                   6478 .NOINITB ANOP                                                      RFIT N5554800
00B624 5810 B0D4      000D4        6479          L     R1,$HASPTCB         PICK UP TCB                          N5556000
00B628 92FF 1022      00022        6480          MVI   TCBLMP-TCBDSECT(R1),255 UP OUR LIMIT                     N5574000
00B62C 1B11                        6481          SR    R1,R1               ZERO TO SHOW OUR TCB                 N5576000
                                   6482          CHAP  255,(1)             RAISE PRIORITY                       N5578000
00B62E 4100 00FF      000FF        6483+         LA    0,255                             LOAD VALUE             00190019
00B632 0A2C                        6484+         SVC   44                                ISSUE CHAP SVC         00320000
00B634 D207 B000 83F0 00000 0B968  6485          MVC   $VERSION,NVERSION   SET CURRENT VERSION IN HCT           N5582000


                                   6487 * SET EXECUTION PCE                                                     N5586000

                                   6489          DROP  SAVE                                                     N5590000

00B63A 5810 7774      051D4        6490          L     R1,=V($EXECPCE)     LOCATE FIRST EXECUTION PCE           N5592000
                            00000  6491          USING PCEDSECT,R1                                              N5594000
                                   6492          LA    WB,&MAXXEQS         NUMBER OF                            N5596000
00B63E 4130 0003      00003        6493+         LA    WB,3                NUMBER OF                            N5596000
00B642 4230 104A      0004A        6494 NSXEQPCE STC   WB,PCEID             SET UNIQUE ID                       N5598000
00B646 5810 1008      00008        6495          L     R1,PCENEXT          PICK UP NEXT                         N5600000

INIT     HASP INITIALIZATION PROCESSOR - MISCELLANEOUS                                                         PAGE  147


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6496          DROP  R1                                                       N5601000
                            00000  6497          USING PCEDSECT,SAVE                                            N5602000
00B64A 4630 80CA      0B642        6498          BCT   WB,NSXEQPCE         BR IF MORE                           N5604000



00B64E 9680 B0C2      000C2        6500          OI    $STATUS,$RDRPEND    WAIT FOR O/S READER                  N5608000




                                   6502          $DISABLE ALL              PREVENT INTERRUPTIONS           RFIT N5612000
00B652 8000 B0C9      000C9        6503+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000

                                   6504          AIF   (&SYSMVT OR &SYSVS2).NOINIT5                        RFIT N5614000
                                   6505 .NOINIT5 AIF   (&SYSVS2).NOINIT7                                   RFIT N5752000
00B656 5820 B160      00160        6506 NSVCMVT  L     WA,$SVCTABV         WA = ADDRESS OF SVC TABLE       RFIT N5754000
00B65A 5020 B178      00178        6507          ST    WA,$SVCIOS          SAVE EXCP SVC TABLE ENTRY ADDR  RFIT N5756000
00B65E D203 B16C 2004 0016C 00004  6508          MVC   $WAITENT,1*4(WA)    SAVE ENTRY POINT TO WAIT        RFIT N5762000
00B664 D203 B170 2018 00170 00018  6509          MVC   $LINKENT,6*4(WA)    SAVE ENTRY POINT TO LINK        RFIT N5764000
00B66A D202 2019 7529 00019 04F89  6510          MVC   6*4+1(3,WA),NLINKSVC+1   SET ENTRY POINT TO LINK    RFIT N5766000
00B670 D203 B174 201C 00174 0001C  6511          MVC   $XCTLENT,7*4(WA)    SAVE ENTRY POINT TO XCTL        RFIT N5768000

00B676 D202 201D 752D 0001D 04F8D  6512          MVC   7*4+1(3,WA),NXCTLSVC+1   SET ENTRY POINT TO XCTL    RFIT N5770000
00B67C D203 B184 208C 00184 0008C  6513          MVC   $SVCWTO,35*4(WA)    SAVE WTO/WTOR SVC TABLE ENTRY   RFIT N5772000
00B682 D203 208C 7524 0008C 04F84  6514          MVC   35*4(4,WA),NWTOLSVC SET WTO/WTOR EXIT TO $WTOXIT    RFIT N5774000
00B688 9280 208C      0008C        6515          MVI   35*4(WA),X'80'      MAKE IT LOOK LIKE TYPE 2 SVC    RFIT N5776000
00B68C D203 B188 2090 00188 00090  6516          MVC   $SVCWTL,36*4(WA)    SAVE WTL SVC TABLE ENTRY        RFIT N5778000

00B692 D203 2090 7524 00090 04F84  6517          MVC   36*4(4,WA),NWTOLSVC SET WTL EXIT TO $WTOXIT         RFIT N5780000
00B698 9280 2090      00090        6518          MVI   36*4(WA),X'80'      MAKE IT LOOK LIKE TYPE 2 SVC    RFIT N5782000
                                   6519 .NOINIT6 AIF   (NOT &AUTORDR).NOBAA1                               RFIT N5784000

00B69C 5810 B15C      0015C        6520          L     R1,$ATTNENT         ADDRESS OF IEEBA1               RFIT N5786000
00B6A0 D20B B18C 1000 0018C 00000  6521          MVC   $ATTNSAV(12),0(R1)  SAVE FIRST 12 BYTES             RFIT N5788000
00B6A6 D20B 1000 7518 00000 04F78  6522          MVC   0(12,R1),NOVERLAY   SETUP ENTRY TO HASP             RFIT N5790000
                                   6523 .NOBAA1  ANOP                                                      RFIT N5792000
                                   6524 .NOINIT7 ANOP                                                      RFIT N5794000
                                   6525          $ENABLE ALL               ALLOW INTERRUPTIONS             RFIT N5796000
00B6AC 8000 B0C8      000C8        6526+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000

00B6B0 1B00                        6527          SR    R0,R0               ISSUE                                N6034000
00B6B2 4110 8380      0B8F8        6528          LA    R1,NSTRDRV           START RDR                           N6036000
00B6B6 0A22                        6529          SVC   34                    COMMAND                            N6038000
                                   6530          AIF   (&SYSMFT OR &SYSVS1).NOINIT1                        RFIT N6038100
00B6B8 1700                        6531          XR    R0,R0               Issue                       @THAS813 N6038320

00B6BA 4110 83C0      0B938        6532          LA    R1,NSTRBRDR          "START HOSBRDR"            @THAS813 N6038340
00B6BE 0A22                        6533          SVC   34                    command                   @THAS813 N6038360
00B6C0 5820 7778      051D8        6534          L     WA,=V($PITABLE)     GET ADDRESS OF PART INFO TABLES      N6040000
00B6C4 D200 83AE 2001 0B926 00001  6535 NSTMVTI  MVC   NSTINITV+18(1),PITICLAS(WA)   SET                        N6042000

00B6CA D200 83B2 2001 0B92A 00001  6536          MVC   NSTINITV+22(1),PITICLAS(WA)    INITITIATOR CLASS         N6044000
                                   6537 .NOINIT1 ANOP                                                      RFIT N6044100
00B6D0 1B00                        6538          SR    R0,R0               ISSUE                                N6046000
00B6D2 4110 839C      0B914        6539          LA    R1,NSTINITV          START INIT                          N6048000
00B6D6 0A22                        6540          SVC   34                    COMMAND                            N6050000
                                   6541          AIF   (&SYSMFT OR &SYSVS1).NOINIT2                        RFIT N6050100

00B6D8 9101 2000      00000        6542          TM    PITSTAT(WA),PITLAST    FOR EACH                          N6052000
00B6DC 4120 2014      00014        6543          LA    WA,PITLNGTH(,WA)        LOGICAL                          N6054000
00B6E0 4780 814C      0B6C4        6544          BZ    NSTMVTI                  PARTITION                       N6056000
                                   6545 .NOINIT2 ANOP                                                      RFIT N6056100
00B6E4 4150 83D6      0B94E        6546          LA    WD,NWTRNAM          POINT TO HASPWTR NAME                N6058000

INIT     HASP INITIALIZATION PROCESSOR - MISCELLANEOUS                                                         PAGE  148


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00B6E8 5860 777C      051DC        6547          L     WE,=V(HASPWTR)      AND HASPWTR ENTRY POINT.             N6060000
                                   6548          IDENTIFY EPLOC=(WD),ENTRY=(WE)  IDENTIFY HASPWTR ENTRY.        N6062000
00B6EC 1816                        6549+         LR    1,WE                              LOAD PARAMETER REG 1   00160000

00B6EE 1805                        6550+         LR    0,WD                              LOAD PARAMETER REG 0   00320000
00B6F0 0A29                        6551+         SVC   41                                ISSUE IDENTIFY SVC     00240000
00B6F2 9801 7508      04F68        6552          LM    R0,R1,NWTRPARM      LOAD HASP WRITER PARAMETERS          N6072000
00B6F6 1820                        6553          LR    R2,R0               MAKE HASPWTR PSEUDO 1403             N6072500
00B6F8 947F 2003      00003        6554          NI    SRTESTAT-UCBDSECT(R2),255-SRTEONLI  OFFLINE              N6073000

00B6FC 5820 7780      051E0        6555          L     R2,=V($PWTRECB)     R2 = ADR ECB USED TO SIG HASPWTR $P  N6074000
00B700 4130 2004      00004        6556          LA    R3,4(,R2)           R3 = ADR ECB FOR HASPWTR IN OR END   N6076000
00B704 4150 83D6      0B94E        6557          LA    WD,NWTRNAM          POINT TO WRITER NAME                 N6078000
                                   6558          ATTACH EPLOC=(WD),SM=SUPV,ECB=(R3) ATTACH HASPWTR TASK         N6080000
00B708 41F0 81A0      0B718        6559+         LA    15,IHB0193                        LOAD 15 WITH LIST ADDR 04240000

00B70C 5050 F000      00000        6560+         ST    WD,0(0,15)                        STORE EPLOC INTO LIST  04300000
00B710 5030 F008      00008        6561+         ST    R3,8(0,15)                        STORE ECB INTO LIST    04520000
00B714 47F0 F034      00034        6562+         B     52(0,15)      .AROUND LIST.                        20021 05056020
00B718                             6563+IHB0193  DS    0F                                SUP. PARAM. LIST       05060000
00B718 00000000                    6564+         DC    A(0)                              DE OR EPLOC ADDRESS    05320000
00B71C 00                          6565+         DC    AL1(0)             NO HIARCHY                       LCS1 05328017

00B71D 000000                      6566+         DC    AL3(0)                  DCB ADDRESS                 LCS1 05420017
00B720 00000000                    6567+         DC    A(0)                              ECB ADDRESS            05520000
00B724 00000000                    6568+         DC    A(0)                              GSPV VALUE OR GSPL ADR 05720000
00B728 00000000                    6569+         DC    A(0)                              SHSPL OR SHSPV         05920000

00B72C 02                          6570+         DC    AL1(2)                            SET ROLLOUT BITS  RORI 05945015
00B72D 000000                      6571+         DC    AL3(0)                        ETXR ROUT. ADDRESS    RORI 06020015
00B730 0000                        6572+         DC    AL2(0)                            DPMOD VALUE            06180000
00B732 00                          6573+         DC    AL1(0)                            LPMOD VALUE            06280000
00B733 01                          6574+         DC    AL1(1)                                                   06380000

00B734 4040404040404040            6575+         DC    CL8' '                                              I270 06434019
00B73C 00000000                    6576+         DC    A(0)               ADDRESS OF JSCB                  I270 06469019
00B740 0000000000000000            6577+         DC    A(0,0)        .NO STAI PARM LIST OR EXIT ADDR.     20021 06475020
00B748 00000000                    6578+         DC    A(0)          .NO TASKLIB.                         20021 06476020
00B74C 0A2A                        6579+         SVC   42                                ISSUE ATTACH SVC       06480000
00B74E 5010 2008      00008        6580          ST    R1,8(,R2)           SAVE HASPWTR TCB ADDRESS             N6082000
                                   6581          WAIT  ECB=(R3)            WAIT TILL HASPWTR IS IN OR FAILS     N6084000

00B752 4110 3000      00000        6582+         LA    1,0(0,R3)                   CLEAR HIGH BYTE OF REG       00087017
00B756 4100 0001      00001        6583+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
00B75A 0A01                        6584+         SVC   1                                 LINK TO WAIT ROUTINE   00280000

00B75C D602 3001 3001 00001 00001  6585          OC    1(3,R3),1(R3)       TEST IF HASPWTR FAILED               N6086000
00B762 4780 81F4      0B76C        6586          BZ    NWTRSET             IF ZERO COMPLETION BRANCH            N6088000
00B766 1823                        6587          LR    WA,R3               SET PARAMETER                        N6090000
00B768 4530 832A      0B8A2        6588          BAL   WB,NEWTO            SEND DIAGNOSTIC                      N6092000
00B76C 9200 3000      00000        6589 NWTRSET  MVI   0(R3),0             RESET ECB                            N6094000

00B770 5820 7784      051E4        6590          L     WA,=V($WTOPECB)     POINT TO TERMINATION ECB             N6102000
00B774 4150 83DE      0B956        6591          LA    WD,NHASPBR1         ADDRESS OF DUMMY TASK                N6104000
00B778 5860 7788      051E8        6592          L     WE,=V($HASPWTO)     POINT TO $HASPWTO ENTRY POINT        N6105000
                                   6593          IDENTIFY EPLOC=(WD),ENTRY=(WE)  AND IDENTIFY IT                N6105500
00B77C 1816                        6594+         LR    1,WE                              LOAD PARAMETER REG 1   00160000
00B77E 1805                        6595+         LR    0,WD                              LOAD PARAMETER REG 0   00320000
00B780 0A29                        6596+         SVC   41                                ISSUE IDENTIFY SVC     00240000
                                   6597          ATTACH EPLOC=(WD),SM=SUPV,ECB=(WA) ATTACH WTO TASK             N6106000

00B782 41F0 821C      0B794        6598+         LA    15,IHB0197                        LOAD 15 WITH LIST ADDR 04240000
00B786 5050 F000      00000        6599+         ST    WD,0(0,15)                        STORE EPLOC INTO LIST  04300000

00B78A 5020 F008      00008        6600+         ST    WA,8(0,15)                        STORE ECB INTO LIST    04520000
00B78E 47F0 F034      00034        6601+         B     52(0,15)      .AROUND LIST.                        20021 05056020
INIT     HASP INITIALIZATION PROCESSOR - MISCELLANEOUS                                                         PAGE  149


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00B794                             6602+IHB0197  DS    0F                                SUP. PARAM. LIST       05060000

00B794 00000000                    6603+         DC    A(0)                              DE OR EPLOC ADDRESS    05320000
00B798 00                          6604+         DC    AL1(0)             NO HIARCHY                       LCS1 05328017
00B799 000000                      6605+         DC    AL3(0)                  DCB ADDRESS                 LCS1 05420017
00B79C 00000000                    6606+         DC    A(0)                              ECB ADDRESS            05520000
00B7A0 00000000                    6607+         DC    A(0)                              GSPV VALUE OR GSPL ADR 05720000
00B7A4 00000000                    6608+         DC    A(0)                              SHSPL OR SHSPV         05920000
00B7A8 02                          6609+         DC    AL1(2)                            SET ROLLOUT BITS  RORI 05945015
00B7A9 000000                      6610+         DC    AL3(0)                        ETXR ROUT. ADDRESS    RORI 06020015
00B7AC 0000                        6611+         DC    AL2(0)                            DPMOD VALUE            06180000

00B7AE 00                          6612+         DC    AL1(0)                            LPMOD VALUE            06280000

00B7AF 01                          6613+         DC    AL1(1)                                                   06380000
00B7B0 4040404040404040            6614+         DC    CL8' '                                              I270 06434019
00B7B8 00000000                    6615+         DC    A(0)               ADDRESS OF JSCB                  I270 06469019
00B7BC 0000000000000000            6616+         DC    A(0,0)        .NO STAI PARM LIST OR EXIT ADDR.     20021 06475020
00B7C4 00000000                    6617+         DC    A(0)          .NO TASKLIB.                         20021 06476020

00B7C8 0A2A                        6618+         SVC   42                                ISSUE ATTACH SVC       06480000
00B7CA 5860 778C      051EC        6619          L     WE,=V(WTOTCBA)      SETUP POST ROUTINE                   N6108000
00B7CE 5016 0000      00000        6620          ST    R1,0(WE)             IN MCS CONSOLE SUPPORT              N6110000
                                   6621          WAIT  ECB=(WA)            WAIT FOR MODULE TO ENTER             N6112000
00B7D2 4110 2000      00000        6622+         LA    1,0(0,WA)                   CLEAR HIGH BYTE OF REG       00087017
00B7D6 4100 0001      00001        6623+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
00B7DA 0A01                        6624+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
00B7DC D602 2001 2001 00001 00001  6625          OC    1(3,WA),1(WA)       TEST FOR SUCCESSFUL ATTACH           N6114000
00B7E2 4780 8272      0B7EA        6626          BZ    NECBRSET            IF OK, PROCEED                       N6116000
00B7E6 4530 832A      0B8A2        6627          BAL   WB,NEWTO            SEND DIAGNOSTIC                      N6118000

00B7EA 9200 2000      00000        6628 NECBRSET MVI   0(WA),0             RESET ECB                            N6120000

                                   6629          AIF   (&NUMSMFB LT 2).NOSMF3                                   N6120500
00B7EE 4150 83E6      0B95E        6630          LA    WD,NSMFNAM          POINT TO HASPSMF NAME                N6121000
00B7F2 5860 7790      051F0        6631          L     WE,=V(HASPACCT)     AND HASPSMF ENTRY POINT              N6121100
                                   6632          IDENTIFY EPLOC=(WD),ENTRY=(WE) IDENTIFY HASPACCT               N6121200

00B7F6 1816                        6633+         LR    1,WE                              LOAD PARAMETER REG 1   00160000
00B7F8 1805                        6634+         LR    0,WD                              LOAD PARAMETER REG 0   00320000
00B7FA 0A29                        6635+         SVC   41                                ISSUE IDENTIFY SVC     00240000
00B7FC 5820 7794      051F4        6636          L     WA,=V($PSMFECB)     LOAD ADDRESS OF $P HASPACCT ECB      N6121300
                                   6637          ATTACH EPLOC=(WD),SM=SUPV,ECB=(WA)  ATTACH HASPACCT TASK       N6121600
00B800 41F0 8298      0B810        6638+         LA    15,IHB0201                        LOAD 15 WITH LIST ADDR 04240000
00B804 5050 F000      00000        6639+         ST    WD,0(0,15)                        STORE EPLOC INTO LIST  04300000
00B808 5020 F008      00008        6640+         ST    WA,8(0,15)                        STORE ECB INTO LIST    04520000
00B80C 47F0 F034      00034        6641+         B     52(0,15)      .AROUND LIST.                        20021 05056020
00B810                             6642+IHB0201  DS    0F                                SUP. PARAM. LIST       05060000
00B810 00000000                    6643+         DC    A(0)                              DE OR EPLOC ADDRESS    05320000

00B814 00                          6644+         DC    AL1(0)             NO HIARCHY                       LCS1 05328017
00B815 000000                      6645+         DC    AL3(0)                  DCB ADDRESS                 LCS1 05420017
00B818 00000000                    6646+         DC    A(0)                              ECB ADDRESS            05520000
00B81C 00000000                    6647+         DC    A(0)                              GSPV VALUE OR GSPL ADR 05720000

00B820 00000000                    6648+         DC    A(0)                              SHSPL OR SHSPV         05920000
00B824 02                          6649+         DC    AL1(2)                            SET ROLLOUT BITS  RORI 05945015
00B825 000000                      6650+         DC    AL3(0)                        ETXR ROUT. ADDRESS    RORI 06020015
00B828 0000                        6651+         DC    AL2(0)                            DPMOD VALUE            06180000
00B82A 00                          6652+         DC    AL1(0)                            LPMOD VALUE            06280000
00B82B 01                          6653+         DC    AL1(1)                                                   06380000
00B82C 4040404040404040            6654+         DC    CL8' '                                              I270 06434019
00B834 00000000                    6655+         DC    A(0)               ADDRESS OF JSCB                  I270 06469019
00B838 0000000000000000            6656+         DC    A(0,0)        .NO STAI PARM LIST OR EXIT ADDR.     20021 06475020
INIT     HASP INITIALIZATION PROCESSOR - MISCELLANEOUS                                                         PAGE  150


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00B840 00000000                    6657+         DC    A(0)          .NO TASKLIB.                         20021 06476020

00B844 0A2A                        6658+         SVC   42                                ISSUE ATTACH SVC       06480000
00B846 5012 0004      00004        6659          ST    R1,4(WA)            SAVE HASPSMF TCB IN HASPCOMM         N6121700
                                   6660          WAIT  ECB=(WA)            WAIT FOR HASPACCT TO ENTER           N6121800

00B84A 4110 2000      00000        6661+         LA    1,0(0,WA)                   CLEAR HIGH BYTE OF REG       00087017
00B84E 4100 0001      00001        6662+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
00B852 0A01                        6663+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
00B854 D602 2001 2001 00001 00001  6664          OC    1(3,WA),1(WA)       TEST IF HASP SMF ATTACH OK           N6121900
00B85A 4780 82EA      0B862        6665          BZ    NSMFSET             OK                                   N6122000
00B85E 4530 832A      0B8A2        6666          BAL   WB,NEWTO                                                 N6122200
00B862 9200 2000      00000        6667 NSMFSET  MVI   0(WA),0             RESET ECB                            N6122300
                            00000  6668          USING SMFDSECT,R1                                              N6122400
                                   6669         $GETSMFB WAIT=YES,OLAY=YES GET SMF BUFFER FOR RECORD TYPE 43    N6122500
00B866 4110 0001      00001        6670+         LA    R1,1                WAIT FOR SMF IF NECESSARY            GM008000
00B86A 41E0 82FC      0B874        6671+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
00B86E 1FE8                        6672+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000

00B870 47F0 B0A8      000A8        6673+         B     $GETSMFB            BRANCH TO CONTROL SERVICE PROGRAM    BA018000

00B874 9200 1000      00000        6674          MVI   SMFDSECT,0          CLEAR RECORD AREA                    N6122600
00B878 D222 1001 1000 00001 00000  6675          MVC   SMFDSECT+1(SMF43END-SMFDSECT-1),SMFDSECT                 N6122700

00B87E 921C 1009      00009        6676          MVI   SMFRDW+1,SMF43END-SMFRDW      LENGTH OF START HASP SMF   N6122800
00B882 922B 100D      0000D        6677          MVI   SMFHDRTY,SMFSSSTP   START HASP SUBSYSTEM SMF RECORD TYPE N6122900
00B886 D201 101A 83EE 0001A 0B966  6678          MVC   SMFSSID,NSMFHASP    PUT HASP SUBSYSTEM ID IN RECORD 43   N6123000
00B88C 9204 101F      0001F        6679          MVI   SMFSSLEN+1,SMF43END-SMF43RV1  LENGTH OF SUBSYSTEM PART   N6123100
00B890 D200 1023 B0C1 00023 000C1  6680          MVC   SMF43OPT,$OPTSTAT   HASP OPTIONS                         N6123200
                                   6681         $QUESMFB OLAY=YES          WRITE RECORD TYPE 43                 N6123300
00B896 45E0 B0A4      000A4        6682+         BAL   LINK,$QUESMFB                                            QM006000
                                   6683          DROP  R1                                                       N6123400
                                   6684 .NOSMF3  ANOP                                                           N6123500
                                   6685          $XCTL HASPIOVC            EXIT TO BUFFER BUILD                 N6124000
000000                             6686+HA$QIOVC DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
00B89A                             6687+HA$OIOVB CSECT                                                          OL014000

00B89A 41E00000                    6688+         DC    Y(X'4100'+LINK*16),QL2(HA$QIOVC) LOAD OCON INTO LINK     OL016000

00B89E 45F0 B090      00090        6689+         BAL   R15,$OXCTL          LINK TO OVERLAY SUPERVISOR           XC008000
INIT     HASP INITIALIZATION PROCESSOR - INTERCEPT WORK AREAS                                                  PAGE  151



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00B8A2 F363 8379 2001 0B8F1 00001  6691 NEWTO    UNPK  NEWTOV(7),1(4,WA)   SPREAD DIGITS                        N6130000
00B8A8 DC05 8379 8256 0B8F1 0B7CE  6692          TR    NEWTOV(6),NEWTOT    CONVERT TO PRINTABLE                 N6132000
00B8AE D207 8361 5000 0B8D9 00000  6693          MVC   NEWTON(8),0(WD)     SET NAME OF MODULE                   N6134000
00B8B4 4110 8358      0B8D0        6694          LA    R1,NEWTOM           POINT TO FIRST OF TEXT               N6136000
                                   6695          WTO   MF=(E,(1))          SEND DIAGNOSTIC                      N6138000
00B8B8 0A23                        6696+         SVC   35                                ISSUE SVC              00750021
00B8BA 47F0 3004      00004        6697          B     4(0,WB)             RETURN AFTER ECB RESET               N6140000
                            0B7CE  6698 NEWTOT   EQU   *-C'0'                                                   N6142000
00B8BE F0F1F2F3F4F5F6F7            6699          DC    C'0123456789ABCDEF'                                      N6144000
                                   6700 NEWTOM   WTO   'HASP XXXXXXXX ATTACH ERROR - ******',MF=L               N6146000
00B8D0                             6701+NEWTOM   DS    0F                                                       01050021

00B8D0 0027                        6702+         DC    AL2(39)             TEXT LENGTH                          11950021
00B8D2 0000                        6703+         DC    B'0000000000000000' MCS FLAGS                            12000021

00B8D4 C8C1E2D740E7E7E7            6704+         DC    C'HASP XXXXXXXX ATTACH ERROR - ******'                   12100021

                            0B8D9  6705 NEWTON   EQU   *-30                                                     N6148000
                            0B8F1  6706 NEWTOV   EQU   *-6                                                      N6150000
00B8F7 40                          6707          DC    C' '                SPACER                               N6152000
                                   6708          AIF   (&SYSMVT OR &SYSVS2).NOINIT3                        RFIT N6154000
                                   6709 .NOINIT3 ANOP                                                      RFIT N6162000
                                   6710 NSTRDRV  DC    0F'0',AL2(17,0),CL24'S HOSRDR,&RDR'                      N6166000
00B8F8 00110000E240C8D6            6711+NSTRDRV  DC    0F'0',AL2(17,0),CL24'S HOSRDR,700'                       N6166000
00B914 00180000E240C9D5            6712 NSTINITV DC    0F'0',AL2(24,0),CL31'S INIT.HOSINIT*,,,*'                N6168000
00B937 00
00B938 00160000E240C8D6            6713 NSTRBRDR DC    0F'0',AL2(NSTRBRDL,0),C'S HOSBRDR.HOSBRDR '     @THAS813 N6168030
                            00016  6714 NSTRBRDL EQU   *-NSTRBRDR                                      @THAS813 N6168070
                                   6715 .NOINIT4 ANOP                                                      RFIT N6168100

00B94E C8C1E2D7E6E3D940            6716 NWTRNAM  DC    CL8'HASPWTR'        HASP WRITER MODULE NAME              N6170000
00B956 C8C1E2D7E6E3D640            6717 NHASPBR1 DC    CL8'HASPWTO'        HASP WTO TASK NAME                   N6172000
00B95E C8C1E2D7C1C3C3E3            6718 NSMFNAM  DC    CL8'HASPACCT'       HASPACCT MODULE NAME                 N6172500

00B966 0002                        6719 NSMFHASP DC    AL2(SMFHSPID)       SMF SUBSYSTEM ID FOR HASP            N6172700
                                   6720 NVERSION DC    CL8' V &VERSION'    CURRENT VERSION FOR HCT              N6173000
00B968 40E540F44BF0F0F9            6721+NVERSION DC    CL8' V 4.009762'    CURRENT VERSION FOR HCT              N6173000
00B970 9600 5002      00002        6722 NSVCOI   OI    2(WD),*-*           INSTRUCTION TO ADD SVC TYPE     RFIT N6173100
INIT     HASP INITIALIZATION PROCESSOR - BUFFER BUILD OVERLAY                                                  PAGE  152


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6724 HASPIOVC $OVERLAY 0,0                                                   N6176000
00B978                             6725+HA$OIOVC CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            0B978  6726+HA$IIOVC EQU   HA$OIOVC+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   6727+         ENTRY HA$IIOVC                                                 OV036000
00B978 C9D6E5C3                    6728+         DC    CL4'IOVC'           IDENTIFY MODULE ON CORE DUMP         OV038000
00B97C 0000B978                    6729+         DC    A(HA$OIOVC)         ASSEMBLY ORIGIN                      OV040000

00B980                             6730+HASPIOVC DS    0F                  ENTRY POINT                          OV042000
                            0B920  6731+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000



                                   6733 * ALLOCATE VARIABLE STORAGE FOR ALTERNATE BUFFER POOL                   N6180000




00B980 4150 8224      0BB44        6735          LA    WD,NMCORE           POINT TO GETMAIN PARAMETERS          N6184000
00B984 4160 7748      051A8        6736          LA    WE,N1STBUFA         POINT TO GETMAIN OUTPUT              N6186000
                                   6737          GETMAIN VC,LA=(WD),A=(WE)                                      N6188000
00B988                             6738+         CNOP  0,4                                                      02340000
00B988 4510 8076      0B996        6739+         BAL   1,*+14                            BRANCH AROUND LIST     02360000

00B98C 00000000                    6740+         DC    A(0)                              ADDR. OF LENGTH LIST   02580000
00B990 00000000                    6741+         DC    A(0)                              ADDR. OF ADDR. LIST    02700000
00B994 E0                          6742+         DC   X'E0'                              VC MODE                03060000
00B995 00                          6743+         DC    AL1(0)                            SUBPOOL VALUE          03220000
00B996 5051 0000      00000        6744+         ST    WD,0(1,0)                         STORE LA INTO LIST     03320000
00B99A 5061 0004      00004        6745+         ST    WE,4(1,0)                         STORE INTO PARAM LIST  03360000
00B99E 0A04                        6746+         SVC   4                                 ISSUE GETMAIN SVC      03380000
00B9A0 5830 774C      051AC        6747          L     WB,NLSTBUFA         PICK UP SIZE OF AREA GOTTEN          N6190000

00B9A4 5810 7748      051A8        6748          L     R1,N1STBUFA         PICK UP START OF AREA                N6192000
00B9A8 12FF                        6749          LTR   R15,R15             TEST FOR ANY STORAGE                 N6194000

00B9AA 4780 8090      0B9B0        6750          BZ    *+6                 IF SOME, SKIP                        N6196000
00B9AE 1B33                        6751          SR    WB,WB               SET AMOUNT TO ZERO                   N6198000
00B9B0 1803                        6752          LR    R0,WB               SAVE FOR FREEMAIN                    N6200000
00B9B2 D707 7748 7748 051A8 051A8  6753          XC    N1STBUFA(8),N1STBUFA CLEAR PARAMETERS                    N6202000
00B9B8 5B30 8220      0BB40        6754          S     WB,NIBLDRES         SUBTRACT RESERVED AREA SIZE          N6204000
00B9BC 47D0 80C8      0B9E8        6755          BNP   NIBLDFRE            FREE ENTIRE BLOCK IF REQUIRED        N6206000
00B9C0 1843                        6756          LR    WC,WB               WC = SIZE OF ALTERNATE POOL          N6208000
                                   6757          AIF   (&SYSVS1 OR &SYSVS2).NOINITC                        RFIT N6208100

00B9C2 18E3                        6758          LR    R14,WB              GET TOTAL                       RFIT N6208200
00B9C4 8CE0 0020      00020        6759          SRDL  R14,32               SIZE INTO WD-WE                RFIT N6208300
00B9C8 5DE0 8218      0BB38        6760          D     R14,NBUFSIZ         COMPUTE NUMBER OF BUFFERS       RFIT N6208400
00B9CC 183F                        6761          LR    WB,R15              PUT IT INTO WB                  RFIT N6208500
00B9CE 1B4E                        6762          SR    WC,R14              FREE THE RESIDUAL MEMORY        RFIT N6208600

                                   6763          AGO   .NOINITD                                            RFIT N6208700
                                   6764 .NOINITD ANOP                                                      RFIT N6212100
00B9D0 4030 823C      0BB5C        6765          STH   WB,NUMBUFA          SET COUNT TO BUILD                   N6214000

00B9D4 1233                        6766          LTR   WB,WB               TEST FOR SOME BUFFERS                N6216000
00B9D6 4780 80C8      0B9E8        6767          BZ    NIBLDFRE            IF NOT FREE ALL STORAGE              N6218000
00B9DA 5010 7748      051A8        6768          ST    R1,N1STBUFA         SET ALTERNATE BUFFER ORIGIN          N6220000
00B9DE 1834                        6769          LR    WB,WC               WB = SIZE OF ALTERNATE POOL          N6222000
00B9E0 1A13                        6770          AR    R1,WB               POINT TO END OF POOL + 1             N6224000
00B9E2 5010 774C      051AC        6771          ST    R1,NLSTBUFA         SAVE FOR DEBUG                       N6226000
00B9E6 1B03                        6772          SR    R0,WB               CALCULATE SIZE TO FREE               N6228000

00B9E8 1200                        6773 NIBLDFRE LTR   R0,R0               TEST FOR ZERO CORE                   N6230000
00B9EA 47D0 80D4      0B9F4        6774          BNP   NIBLDCKM            CHECK AGAINST MINIMUM TO RUN         N6232000
INIT     HASP INITIALIZATION PROCESSOR - BUFFER BUILD OVERLAY                                                  PAGE  153


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6775          FREEMAIN R,LV=(0),A=(1)   FREE STORAGE                         N6234000

00B9EE 4111 0000      00000        6776+         LA    1,0(1)                       CLEAR THE HIGH ORDER BYTE   03130018
00B9F2 0A0A                        6777+         SVC   10                      ISSUE FREEMAIN SVC         P2504 03140021
00B9F4 D501 823C 823E 0BB5C 0BB5E  6778 NIBLDCKM CLC   NUMBUFA,NUMBUFM     CHECK FOR MINIMUM                    N6236000
00B9FA 47B0 8112      0BA32        6779          BNL   NIBLDBUG            IF OK, SET FOR OPTIONAL DEBUG        N6238000

00B9FE 4830 823C      0BB5C        6780          LH    WB,NUMBUFA          NUMBER TO BUILD                      N6238200
00BA02 4A30 823A      0BB5A        6781          AH    WB,NUMBUF           ADD FIXED AMOUNT                     N6238400
00BA06 4E30 8230      0BB50        6782          CVD   WB,NIBLDW           CONVERT TO DECIMAL                   N6238600
00BA0A DE05 80F8 8235 0BA18 0BB55  6783          ED    NIBLDM,NIBLDW+5     EDIT VALUE                           N6238800
00BA10                             6784          CNOP  0,4                 ALIGN                                N6239000
00BA10 4510 8110      0BA30        6785          BAL   R1,NIBLDSVC         BR AROUND LIST                       N6239200

00BA14 001C                        6786          DC    AL2(NIBLDSVC-*)     LENGTH + 4                           N6239400
00BA16 0000                        6787          DC    X'0000'             MCS FLAGS                            N6239600
00BA18 402020202120                6788 NIBLDM   DC    X'402020202120'     NUMBER OF BUFFERS                    N6239800
00BA1E 40C2E4C6C6C5D9E2            6789          DC    C' BUFFERS AVAILABLE'                                    N6240000
00BA30 0A23                        6790 NIBLDSVC SVC   35                  ISSUE WTO SVC                        N6240200

00BA32                             6791 NIBLDBUG DS    0H                                                       N6242000
                                   6792          AIF   (NOT &DEBUG).NODUMP1                                     N6244000
                                   6793 .NODUMP1 ANOP                                                           N6256000



                                   6795 * BUILD BUFFER POOLS                                                    N6260000




00BA32 4120 B0C0      000C0        6797          LA    WA,$BUFPOOL-BUFCHAIN+BUFDSECT POINT TO LAST BUFFER CHAIN N6264000
00BA36 4130 B0D8      000D8        6798          LA    WB,$HASPECB         PICK UP HASP ECB ADDRESS             N6266000
00BA3A 5860 7748      051A8        6799          L     WE,N1STBUFA         PICK UP ALTERNATE BUFFER START       N6268000
00BA3E 5960 7740      051A0        6800          C     WE,N1STBUF          MAKE SURE LOWER THAN MAIN POOL       N6270000

00BA42 4720 813A      0BA5A        6801          BH    NIBLDMB             IF NOT LOW BUILD MAIN POOL FIRST     N6272000
00BA46 4850 823C      0BB5C        6802 NIBLDAB  LH    WD,NUMBUFA          PICK UP ALTERNATE BUFFER COUNT       N6274000
00BA4A 1255                        6803          LTR   WD,WD               TEST FOR ZERO                        N6276000
00BA4C 4780 813A      0BA5A        6804          BZ    NIBLDMB             IF ZERO BUILD MAIN                   N6278000
00BA50 1846                        6805          LR    WC,WE               SET ALTERNATE BUFFER START           N6280000

00BA52 45E0 819A      0BABA        6806          BAL   R14,NIBLDBUF        BUILD THE POOL                       N6282000
00BA56 4050 823C      0BB5C        6807          STH   WD,NUMBUFA          SET BUILT FLAG                       N6284000
00BA5A 4850 823A      0BB5A        6808 NIBLDMB  LH    WD,NUMBUF           PICK UP MAIN BUFFER COUNT            N6286000
00BA5E 1255                        6809          LTR   WD,WD               DO WE BUILD SOME                     N6288000
00BA60 4780 8150      0BA70        6810          BZ    NIBLDTST            IF NOT TEST FOR ALTERNATE            N6290000
00BA64 5840 7740      051A0        6811          L     WC,N1STBUF          POINT TO START OF MAIN POOL          N6292000

00BA68 45E0 819A      0BABA        6812          BAL   R14,NIBLDBUF        BUILD THE POOL                       N6294000
00BA6C 4050 823A      0BB5A        6813          STH   WD,NUMBUF           SET COUNT TO ZERO                    N6296000
00BA70 4950 823C      0BB5C        6814 NIBLDTST CH    WD,NUMBUFA          TEST FOR ALTERNATE TO BUILD          N6298000
00BA74 4770 8126      0BA46        6815          BNZ   NIBLDAB             IF SO GO BUILD THEM                  N6300000

00BA78 5810 B144      00144        6816          L     R1,$JQENT           POINT TO FIRST IN-USE JQE.           N6300300
00BA7C 1211                        6817          LTR   R1,R1               IS THE QUEUE EMPTY...                N6300600
00BA7E 4780 816A      0BA8A        6818          BZ    NIBLCOLD            BRANCH IF SO.                        N6300900
                                   6819         $XCTL  HASPIOVQ            OTHERWISE DO WARM START.             N6301200
000000                             6820+HA$QIOVQ DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000

00BA82                             6821+HA$OIOVC CSECT                                                          OL014000
00BA82 41E00000                    6822+         DC    Y(X'4100'+LINK*16),QL2(HA$QIOVQ) LOAD OCON INTO LINK     OL016000
00BA86 45F0 B090      00090        6823+         BAL   R15,$OXCTL          LINK TO OVERLAY SUPERVISOR           XC008000
00BA8A                             6824 NIBLCOLD DS    0H                  JOB QUEUE IS EMPTY.                  N6301500
INIT     HASP INITIALIZATION PROCESSOR - BUFFER BUILD OVERLAY                                                  PAGE  154


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6826 *        BEGIN NORMAL HASP PROCESSING                                   N6304000



00BA8A 9120 B0C1      000C1        6828          TM    $OPTSTAT,$OPTREQ    TEST FOR OPERATOR REQUEST            N6308000
00BA8E 4780 8196      0BAB6        6829          BZ    NINOREQ             IF NOT SKIP REQUEST MESSAGE          N6310000

                                   6830          WTO   'ENTER HASP REQUESTS' TELL OPERATOR                      N6312000
00BA92 0700                        6831+         CNOP  0,4                                                      08550021
00BA94 4510 8190      0BAB0        6832+         BAL   1,IHB0216A                        BRANCH AROUND MESSAGE  08600021
00BA98 0017                        6833+         DC    AL2(23)             TEXT LENGTH                          11950021
00BA9A 0000                        6834+         DC    B'0000000000000000' MCS FLAGS                            12000021

00BA9C C5D5E3C5D940C8C1            6835+         DC    C'ENTER HASP REQUESTS'                                   12100021
00BAB0                             6836+IHB0216A DS    0H                                                       13900021
00BAB0 0A23                        6837+         SVC   35                                                       14000021
00BAB2 9640 B0C2      000C2        6838          OI    $STATUS,$ALMSGSW    SET MESSAGE ISSUED SWITCH            N6314000
                                   6839 NINOREQ  $RETURN                                                        N6316000
00BAB6 45E0 B088      00088        6840+NINOREQ  BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
INIT     HASP INITIALIZATION PROCESSOR - BUFFER BUILD OVERLAY                                                  PAGE  155


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                                   6842 *        BUFFER BUILD SUBROUTINE                                        N6320000




                            00000  6844          USING BUFDSECT,WA                                              N6324000
00BABA 5040 2028      00028        6845 NIBLDBUF ST    WC,BUFCHAIN         STORE BUFFER FOR CHAIN               N6326000
00BABE 1824                        6846          LR    WA,WC               SET FOR NEXT BUFFER                  N6328000
00BAC0 D757 2000 2000 00000 00000  6847          XC    IOBFLAG1(BUFSTART-IOBFLAG1),IOBFLAG1    ZERO IOB         N6330000
00BAC6 9242 2000      00000        6848          MVI   IOBFLAG1,X'42'      IOBFLAG1 SET(COM CHAIN,NOT RELATED)  N6332000

00BACA 5030 2004      00004        6849          ST    WB,IOBECBPT         SPOOL ECB POINTER SET                N6334000
00BACE 9201 2027      00027        6850          MVI   IOBSEEK+6,X'01'     RECORD 1 INDICATION                  N6336000
00BAD2 4140 2038      00038        6851          LA    WC,IOBCCW1          ADDRESS OF START OF CCW STRING       N6338000
00BAD6 5040 2010      00010        6852          ST    WC,IOBSTART         INTO START ADDRESS OF IOB            N6340000
00BADA 4140 203D      0003D        6853          LA    WC,IOBCCW1+5        SECTOR ADDRESS                       N6340200
00BADE 5040 2038      00038        6854          ST    WC,IOBCCW1          INTO 1ST CCW                         N6340600
00BAE2 9203 2038      00038        6855          MVI   IOBCCW1,X'03'       NOP COMMAND CODE INTO 1ST CCW        N6341000
00BAE6 9240 203C      0003C        6856          MVI   IOBCCW1+4,X'40'     COMMAND CHAIN INTO CCW1              N6341400
00BAEA 9201 203F      0003F        6857          MVI   IOBCCW1+7,X'01'     LENGTH OF 1 INTO CCW1                N6341800

00BAEE 4140 2023      00023        6858          LA    WC,IOBSEEK+2        SEEK ADDRESS                         N6342000

00BAF2 5040 2040      00040        6859          ST    WC,IOBCCW2          INTO 2ND CCW                         N6344000
00BAF6 9231 2040      00040        6860          MVI   IOBCCW2,X'31'       SEARCH COMMAND CODE INTO 2ND CCW     N6346000
00BAFA 9240 2044      00044        6861          MVI   IOBCCW2+4,X'40'     COMMAND CHAIN INTO CCW2              N6348000
00BAFE 9205 2047      00047        6862          MVI   IOBCCW2+7,X'05'     LENGTH OF 5 INTO CCW2                N6350000
00BB02 4140 2040      00040        6863          LA    WC,IOBCCW2          TIC ADDRESS                          N6352000

00BB06 5040 2048      00048        6864          ST    WC,IOBCCW3          INTO CCW3                            N6354000
00BB0A 9208 2048      00048        6865          MVI   IOBCCW3,X'08'       TIC COMMAND CODE INTO CCW3           N6356000
00BB0E 4140 2058      00058        6866          LA    WC,BUFSTART         READ/WRITE ADDRESS                   N6358000
00BB12 5040 2050      00050        6867          ST    WC,IOBCCW4          INTO CCW4                            N6360000
00BB16 4840 821C      0BB3C        6868          LH    WC,NBUFSIZE         RECORD LENGTH                        N6362000
00BB1A 5040 2054      00054        6869          ST    WC,IOBCCW4+4        INTO CCW4                            N6364000
00BB1E 4144 005F      0005F        6870          LA    WC,BUFSTART-BUFDSECT+7(WC)    ADD LENGTH OF IOB          N6366000
00BB22 1A42                        6871          AR    WC,WA               ADDRESS OF NEXT BUFFER               N6368000
00BB24 8840 0003      00003        6872          SRL   WC,3                ROUND BUFFER ADDRESS TO DOUBLE WORD  N6370000
00BB28 8940 0003      00003        6873          SLL   WC,3                *                                    N6372000

                                   6874          AIF   (&SYSMFT OR &SYSMVT).NOINITE                        RFIT N6372100

                                   6875 .NOINITE ANOP                                                      RFIT N6373900
00BB2C 4650 819A      0BABA        6876          BCT   WD,NIBLDBUF         COUNT AND LOOP                       N6374000
00BB30 5050 2028      00028        6877          ST    WD,BUFCHAIN         END THE CHAIN                        N6376000
00BB34 07FE                        6878          BR    R14                 RETURN                               N6378000

                                   6879          DROP  WA                                                       N6380000
INIT     HASP INITIALIZATION PROCESSOR - BUFFER BUILD WORK AREAS                                               PAGE  156


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6881 &TEMP    SETA  4                   VS2 PAGE SIZE (/K)              RFIT N6382100
                                   6882          AIF   (&SYSVS2).NOINITF                                   RFIT N6382200
                                   6883 &TEMP    SETA  2                   VS1 PAGE SIZE (/K)              RFIT N6382300
                                   6884 .NOINITF ANOP                                                      RFIT N6382400
                                   6885 NBUFSIZ  DC    A(&BUFSIZE+88)      BUFFER MEMORY REQUIREMENTS      RFIT N6382500
00BB36 0000
00BB38 00000800                    6886+NBUFSIZ  DC    A(1960+88)          BUFFER MEMORY REQUIREMENTS      RFIT N6382500
                                   6887 NBUFSIZE DC    Y(&BUFSIZE)         BUFFER SIZE                          N6384000

00BB3C 07A8                        6888+NBUFSIZE DC    Y(1960)             BUFFER SIZE                          N6384000
                                   6889 NIBLDRES DC    A((&RESCORE+&TEMP-1)/&TEMP*&TEMP*1024) RESERVED MEM RFIT N6386000
00BB3E 0000
00BB40 00000000                    6890+NIBLDRES DC    A((0+2-1)/2*2*1024)                    RESERVED MEM RFIT N6386000

                                   6891 NMCORE   DC    A(1*&TEMP*1024,512*&TEMP*1024)                      RFIT N6388000
00BB44 0000080000100000            6892+NMCORE   DC    A(1*2*1024,512*2*1024)                              RFIT N6388000
00BB4C 00000000
00BB50 0000000000000000            6893 NIBLDW   DC    D'0'                WORK AREA                            N6389000
                                   6894 NUMBUFPG DC    Y(&TEMP*1024/((&BUFSIZE+BUFSTART-BUFDSECT+7)/8*8))  RFIT N6390000
00BB58 0001                        6895+NUMBUFPG DC    Y(2*1024/((1960+BUFSTART-BUFDSECT+7)/8*8))          RFIT N6390000
                                   6896 NUMBUF   DC    Y(&NUMBUF)          BUFFERS IN MAIN POOL                 N6392000
00BB5A 000F                        6897+NUMBUF   DC    Y(15)               BUFFERS IN MAIN POOL                 N6392000
00BB5C 0000                        6898 NUMBUFA  DC    Y(*-*)              BUFFERS IN ALTERNATE POOL            N6394000
                                   6899 NUMBUFM  DC    Y(&MINBUF-&NUMBUF)  MINIMUM BUFFERS TO BUILD             N6394100
00BB5E 0011                        6900+NUMBUFM  DC    Y(32-15)            MINIMUM BUFFERS TO BUILD             N6394100
INIT     HASP INITIALIZATION PROCESSOR - JOB QUEUE WARM START                                                  PAGE  157



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   6902 HASPIOVQ $OVERLAY 0,0                                                   N6394300
00BB60                             6903+HA$OIOVQ CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            0BB60  6904+HA$IIOVQ EQU   HA$OIOVQ+0          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   6905+         ENTRY HA$IIOVQ                                                 OV036000
00BB60 C9D6E5D8                    6906+         DC    CL4'IOVQ'           IDENTIFY MODULE ON CORE DUMP         OV038000
00BB64 0000BB60                    6907+         DC    A(HA$OIOVQ)         ASSEMBLY ORIGIN                      OV040000
00BB68                             6908+HASPIOVQ DS    0F                  ENTRY POINT                          OV042000
                            0BB08  6909+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                                   6910 *                                                                       N6394400
                                   6911 *              INITIALIZE - GET BUFFERS AND A DCT                       N6394500
                                   6912 *                                                                       N6394600
                                   6913 * REGISTERS                                                             N6394700
                            00007  6914 NQWK     EQU   R7                  WORK BUFFER                          N6394800
                            00005  6915 NQBF     EQU   R5                  I/O BUFFER                           N6394900

                            00004  6916 NQDCT    EQU   R4                  DA DCT                               N6395000
                                   6917         $GETBUF OLAY=YES           GET 1ST BUFFER BUT DON'T USE -       N6395100
00BB68 45E0 B034      00034        6918+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000

00BB6C 5010 84CC      0BFD4        6919          ST    R1,NQ1STBUF         IT CONTAINS INITIALIZATION CODE      N6395200
                                   6920         $GETBUF OLAY=YES           GET A BUFFER FOR WORK.               N6395300
00BB70 45E0 B034      00034        6921+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
00BB74 1871                        6922          LR    NQWK,R1             TRANSFER ITS ADDRESS.                N6395400
                                   6923         $GETBUF OLAY=YES           GET A BUFFER FOR I/O.                N6395500
00BB76 45E0 B034      00034        6924+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
00BB7A 1851                        6925          LR    NQBF,R1             TRANSFER ITS ADDRESS.                N6395600
                                   6926         $GETUNIT DA,OLAY=YES       GET A DA DCT.                        N6395700
00BB7C 4110 0000      00000        6927+         LA    R1,DCTDA                                                 DG012000
00BB80 45E0 B040      00040        6928+         BAL   LINK,$GETUNIT       LINK TO CONTROL SERVICE PROGRAM      GU010000
00BB84 1841                        6929          LR    NQDCT,R1            TRANSFER ITS ADDRESS.                N6395800
                            00000  6930          USING DCTDSECT,NQDCT      USE THE DCT DSECT.                   N6395900

00BB86 4110 D049      00049        6931          LA    R1,PCEEWF+$EWBIO    GET VALUE FOR DCTEWF IN R1.          N6396000

00BB8A 5010 400C      0000C        6932          ST    R1,DCTEWF           SET POSTING-PLACE FOR $ASYNC.        N6396100
00BB8E 5050 4004      00004        6933          ST    NQBF,DCTBUFAD       SET BUF ADR IN THE DCT.              N6396200

00BB92 5830 B144      00144        6934          L     NQ,$JQENT           POINT TO THE FIRST JQE.              N6396300
                                   6935 *                                                                       N6396400
                                   6936 *              PROCESS A JOB QUEUE ENTRY                                N6396500
                                   6937 *                                                                       N6396600
                                   6938 * REGISTERS                                                             N6396700
                            00003  6939 NQ       EQU   R3                  JOB QUEUE ENTRY                      N6396800
00BB96 1233                        6940 NQ010    LTR   NQ,NQ               IS THERE ANOTHER JQE...              N6396900
00BB98 4780 824A      0BD52        6941          BZ    NQ900               BRANCH IF NOT.                       N6397000
00BB9C 94DD 3004      00004        6942          NI    QUEFLAGS(NQ),255-QUEHOLD2-QUEJCTSW  RESET FLAGS  OY02728 N6397100
00BBA0 4110 8438      0BF40        6943          LA    R1,NQRDRM           ASSUME JOB WAS READING.              N6397200
00BBA4 95A0 3001      00001        6944          CLI   QUETYPE(NQ),$INPUT+QENTBY  WAS JOB READING...            N6397300
00BBA8 4770 80BA      0BBC2        6945          BNE   NQ020               BRANCH IF NOT.                       N6397400

00BBAC 45A0 83C4      0BECC        6946          BAL   R10,NQWTO           YES.  INFORM OPERATOR.               N6397500
00BBB0 1813                        6947          LR    R1,NQ               SET ARGUMENT TO $QREM.               N6397600

00BBB2 5860 3004      00004        6948          L     R6,QUECHAIN(,NQ)    SAVE NEXT JQE POINTER.               N6397700

00BBB6 45E0 B054      00054        6949          BAL   R14,$QREM           GO FREE UP THE JQE.                  N6397800
00BBBA 4130 6000      00000        6950          LA    NQ,0(,R6)           POINT TO NEXT JQE                    N6397900
00BBBE 47F0 808E      0BB96        6951          B     NQ010               AND GO PROCESS IT.                   N6398000
                                   6952 *                                                                       N6398100
                                   6953 *              JOB WAS NOT READING.  READ IN THE JCT.                   N6398200
                                   6954 *                                                                       N6398300
00BBC2 5810 3008      00008        6955 NQ020    L     R1,QUETRAK(,NQ)     POINT TO JCT TRACK ADDRESS.          N6398400
00BBC6 45A0 837A      0BE82        6956          BAL   R10,NQREAD          READ IN THE JCT.                     N6398500
INIT     HASP INITIALIZATION PROCESSOR - JOB QUEUE WARM START                                                  PAGE  158


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00BBCA 45A0 821E      0BD26        6957          BAL   R10,NQ780           CHECK THE JCT.               OY02728 N6398600
                            00000  6958          USING JCTDSECT,NQBF       YES.  USE THE JCT DSECT.             N6398800

00BBCE 5800 5064      00064        6959          L     R0,JCTINJCT         GET INPUT JCT POINTER.               N6398900
00BBD2 1200                        6960          LTR   R0,R0               IS IT ZERO...                        N6399000
00BBD4 4770 80E4      0BBEC        6961          BNZ   NQ030               BRANCH IF NOT.                       N6399100

00BBD8 9140 3001      00001        6962          TM    QUETYPE(NQ),$XEQ    IS JOB IN EXECUTION...       OY02728 N6399130
00BBDC 4780 81BE      0BCC6        6963          BZ    NQ100               BRANCH IF NOT.               OY02728 N6399160
00BBE0 4110 8446      0BF4E        6964          LA    R1,NQENDX           POINT TO 'END EXECUTION'.            N6399200
00BBE4 45A0 83C4      0BECC        6965          BAL   R10,NQWTO           SHOW JOB ENDED XEQ.                  N6399300
00BBE8 47F0 81BA      0BCC2        6966          B     NQ090               PUT JOB ON OUTPUT QUEUE.             N6399400



00BBEC                             6968 NQ030    DS    0H                                                       N6399600
00BBEC 5500 3008      00008        6969          CL    R0,QUETRAK(,NQ)     IS JOB BUSY IN XEQ...        OY02728 N6399700
00BBF0 4780 817E      0BC86        6970          BZ    NQ040               BRANCH IF NOT.                       N6399800
00BBF4 4110 8454      0BF5C        6971          LA    R1,NQEXEC           YES.  POINT TO 'WAS EXECUTING'.      N6399900
00BBF8 45A0 83C4      0BECC        6972          BAL   R10,NQWTO           INFORM THE OPERATOR.                 N6400000
00BBFC D203 8132 8410 0BC3A 0BF18  6973          MVC   NQ032A,NQJOBNR      SET JOB NUMBER IN WTOR.              N6400100

00BC02 D207 8138 5070 0BC40 00070  6974          MVC   NQ032B,JCTJNAME     SET JOB NAME IN WTOR.                N6400200
00BC08 4120 84C4      0BFCC        6975          LA    R2,NQECB            POINT TO ECB.                        N6400300
00BC0C 41A0 84C8      0BFD0        6976          LA    R10,NQREPLY         POINT TO REPLY AREA.                 N6400400
00BC10 9200 84C4      0BFCC        6977 NQ031    MVI   NQECB,0             CLEAR THE ECB.                       N6400500

                                   6978 NQ032    WTOR  'SHOULD HASP RERUN JOB **** (JOBNAMEX)?',(R10),3,(R2)    N6400600
00BC14                             6979+         CNOP  0,4                                                      01420000
00BC14 4510 8142      0BC4A        6980+NQ032    BAL   1,IHB0231A                        BRANCH AROUND LIST     01440000
00BC18 03                          6981+         DC    AL1(3)                            REPLY LENGTH           01500000
00BC19 000000                      6982+         DC    AL3(0)                            REPLY ADDRESS          01640000
00BC1C 00000000                    6983+         DC    A(0)                              ECB ADDRESS            01740000

00BC20 002A                        6984+         DC    AL2(42)             TEXT LENGTH                          11950021
00BC22 0000                        6985+         DC    B'0000000000000000' MCS FLAGS                            12000021
00BC24 E2C8D6E4D3C440C8            6986+         DC    C'SHOULD HASP RERUN JOB **** (JOBNAMEX)?'                12100021
00BC4A                             6987+IHB0231A DS    0H                                                       01800000
00BC4A 43E1 0000      00000        6988+         IC    14,0(1,0)                         SAVE REPLY LENGTH      01860000
00BC4E 50A1 0000      00000        6989+         ST    R10,0(1,0)                        STORE REPLY ADDRESS    01880000
00BC52 42E1 0000      00000        6990+         STC   14,0(1,0)                         RESTORE REPLY LENGTH   01900000
00BC56 5021 0004      00004        6991+         ST    R2,4(1,0)                         STORE ECB ADDRESS      02040000

00BC5A 0A23                        6992+         SVC   35                                ISSUE WTOR SVC         00900000
                            0BC3A  6993 NQ032A   EQU   NQ032+38,4          EQUATE FOR JOB NUMBER.               N6400700

                            0BC40  6994 NQ032B   EQU   NQ032+44,8          EQUATE FOR JOB NAME.                 N6400800
                                   6995          WAIT  1,ECB=(R2)          WAIT FOR REPLY.                      N6400900
00BC5C 4110 2000      00000        6996+         LA    1,0(0,R2)                   CLEAR HIGH BYTE OF REG       00087017
00BC60 4100 0001      00001        6997+         LA    0,1                            LOAD PARAMETER REG 0      00089017
00BC64 0A01                        6998+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
00BC66 95D5 84C8      0BFD0        6999          CLI   NQREPLY,C'N'        IS REPLY 'NO'...                     N6401000
00BC6A 4780 81A2      0BCAA        7000          BE    NQ050               BRANCH IF SO.                        N6401100
00BC6E 95E8 84C8      0BFD0        7001          CLI   NQREPLY,C'Y'        IS REPLY 'YES'...                    N6401200

00BC72 4770 8108      0BC10        7002          BNE   NQ031               IF NOT, DO WTOR AGAIN.               N6401300
00BC76 5810 5064      00064        7003          L     R1,JCTINJCT         GET INPUT JCT ADDRESS.               N6401400
00BC7A 5010 3008      00008        7004          ST    R1,QUETRAK(,NQ)     PUT IT IN THE JQE.                   N6401500
00BC7E 45A0 837A      0BE82        7005          BAL   R10,NQREAD          READ THE INPUT JCT.          OY02728 N6401600
00BC82 45A0 821E      0BD26        7006          BAL   R10,NQ780           CHECK THE JCT.               OY02728 N6401700




INIT     HASP INITIALIZATION PROCESSOR - JOB QUEUE WARM START                                                  PAGE  159


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


00BC86                             7008 NQ040    DS    0H                  ALLOCATE TRACK GROUPS FROM JCT.      N6401900
00BC86 947F 3001      00001        7009          NI    QUETYPE(NQ),255-QENTBY  RESET THE BUSY FLAG.     OY02728 N6401950
00BC8A 4110 5104      00104        7010          LA    R1,JCTCYSAV         POINT TO MAP TO ALLOCATE.            N6402000
00BC8E 45A0 83A2      0BEAA        7011          BAL   R10,NQALLOC         GO REMOVE ITS BITS FROM MASTER.      N6402100
00BC92 4780 823E      0BD46        7012          BC    8,NQ800             BRANCH IF OKAY.                      N6402200
00BC96 5810 5064      00064        7013          L     R1,JCTINJCT         OTHERWISE                            N6402300
00BC9A 45A0 8382      0BE8A        7014          BAL   R10,NQWRITE         REWRITE THE INPUT JCT.               N6402400

00BC9E 4110 8473      0BF7B        7015          LA    R1,NQBADJ           INFORM THE OPERATOR BY WRITING       N6402500
00BCA2 45A0 83C4      0BECC        7016          BAL   R10,NQWTO           'BAD JCT - ERRORS MAY OCCUR'.        N6402600
00BCA6 47F0 823E      0BD46        7017          B     NQ800               THEN CONTINUE.                       N6402700



00BCAA                             7019 NQ050    DS    0H                  ZERO JCTINJCT AND REWRITE JCT.       N6402900

00BCAA 1B00                        7020          SR    R0,R0               ZERO R0.                             N6403000
00BCAC 5000 5064      00064        7021          ST    R0,JCTINJCT         STORE R0 IN JCTINJCT.                N6403100
00BCB0 4110 5104      00104        7022          LA    R1,JCTCYSAV         POINT TO JCT TRK GRP MAP.            N6403400
                                   7023         $XXC   XC,(0,R1),(0,R1),&CYLMAPL  MAKE IT ALL ZERO.             N6403500

00BCB4 D763 1000 1000 00000 00000  7024+         XC    0+0(100,R1),0+0(R1)                                      XX050000
00BCBA 5810 3008      00008        7025          L     R1,QUETRAK(,NQ)     GET JCT TRACK ADDRESS.               N6403600
00BCBE 45A0 8382      0BE8A        7026          BAL   R10,NQWRITE         GO REWRITE THE JCT.                  N6403700
00BCC2                             7027 NQ090    DS    0H                                               OY02728 N6403750
00BCC2 9204 3001      00001        7028          MVI   QUETYPE(NQ),$OUTPUT QUEUE THE JOB FOR OUTPUT.            N6403800
                                   7029 *                                                                       N6403900

                                   7030 *              JOB IS IN OUTPUT                                         N6404000
                                   7031 *                                                                       N6404100
00BCC6                             7032 NQ100    DS    0H                                                       N6404200
00BCC6 947F 3001      00001        7033          NI    QUETYPE(NQ),255-QENTBY  RESET THE BUSY FLAG.             N6404300
00BCCA 9110 3004      00004        7034          TM    QUEFLAGS(NQ),QUEPURGE PURGE BIT ON?              OY05858 N6404310

00BCCE 4780 81D6      0BCDE        7035          BZ    NQ110               NO - DON'T DELETE JOB        OY05858 N6404320
00BCD2 9200 3001      00001        7036          MVI   QUETYPE(NQ),$PURGE  YES - SET PURGE QUEUE        OY05858 N6404330
00BCD6 4110 8462      0BF6A        7037          LA    R1,NQPURGM          POINT TO PURGE MESSAGE       OY05858 N6404340
00BCDA 45A0 83C4      0BECC        7038          BAL   R10,NQWTO           ISSUE IT                     OY05858 N6404350
00BCDE                             7039 NQ110    DS    0H                                               OY05858 N6404360

00BCDE 5810 505C      0005C        7040          L     R1,JCTIOTTR         POINT TO IOT TRACK ADDRESS.          N6404400
00BCE2 45A0 837A      0BE82        7041          BAL   R10,NQREAD          READ THE IOT.                        N6404500
00BCE6 4110 8490      0BF98        7042          LA    R1,NQIBAD           SET 'BAD IOT -' MESSAGE.     OY02728 N6404520
00BCEA 957F 5028      00028        7043          CLI   BUFECBCC-BUFDSECT(NQBF),X'7F'  WAS READ OK...    OY02728 N6404540
00BCEE 4770 8236      0BD3E        7044          BNE   NQ790               GO QUE FOR PURGE IF NOT.     OY02728 N6404560

                            00000  7045          USING IOTDSECT,NQBF       USE THE IOT DSECT.                   N6404600
00BCF2 D503 5064 3008 00064 00008  7046          CLC   IOTJCTTR,QUETRAK(NQ)  DOES IOT POINT TO JCT...   OY02728 N6404620
00BCF8 4770 8236      0BD3E        7047          BNE   NQ790               GO QUE FOR PURGE IF NOT.     OY02728 N6404640
00BCFC D503 505C 4008 0005C 00008  7048          CLC   IOTTRACK,DCTSEEK    DOES IOT POINT TO ITSELF...  OY02728 N6404660
00BD02 4770 8236      0BD3E        7049          BNE   NQ790               GO QUE FOR PURGE IF NOT.     OY02728 N6404680

00BD06 4110 5070      00070        7050          LA    R1,IOTCYMAP         POINT TO OUTPUT TRACK GRP MAP.       N6404700
00BD0A 45A0 83A2      0BEAA        7051          BAL   R10,NQALLOC         ALLOCATE IT.                         N6404800
00BD0E 4780 823E      0BD46        7052          BC    8,NQ800             IF OKAY, CONTINUE.                   N6404900
00BD12 4110 8490      0BF98        7053          LA    R1,NQIBAD           SET 'BAD IOT - ERRORS MAY OCCUR      N6405000
00BD16 45A0 83C4      0BECC        7054          BAL   R10,NQWTO           INFORM THE OPERATOR.                 N6405100
00BD1A 5810 4008      00008        7055          L     R1,DCTSEEK          POINT TO IOT TRACK ADDRESS           N6405200

00BD1E 45A0 8382      0BE8A        7056          BAL   R10,NQWRITE         AND REWRITE THE IOT.                 N6405300
00BD22 47F0 823E      0BD46        7057          B     NQ800               THEN CONTINUE.               OY02728 N6405320



INIT     HASP INITIALIZATION PROCESSOR - JOB QUEUE WARM START                                                  PAGE  160



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00BD26 4110 8473      0BF7B        7059 NQ780    LA    R1,NQBADJ           SET 'BAD JCT -' MESSAGE.     OY02728 N6405360
00BD2A 957F 5028      00028        7060          CLI   BUFECBCC-BUFDSECT(NQBF),X'7F'  WAS READ OK...    OY02728 N6405380
00BD2E 4770 8236      0BD3E        7061          BNE   NQ790               GO QUE FOR PURGE IF NOT.     OY02728 N6405400
00BD32 5800 5058      00058        7062          L     R0,JCTJQE-JCTDSECT(,NQBF) GET Q OFFSET FROM JCT. OY02728 N6405420

00BD36 5E00 B13C      0013C        7063          AL    R0,$JOBQPTR         ADD JOBQUE ORIGIN.           OY02728 N6405440
00BD3A 1503                        7064          CLR   R0,NQ               DOES JCT POINT TO JQE...     OY02728 N6405460
00BD3C 078A                        7065          BER   R10                 RETURN IF YES.               OY02728 N6405480
00BD3E 45A0 83C4      0BECC        7066 NQ790    BAL   R10,NQWTO           INFORM OPERATOR.             OY02728 N6405500
00BD42 9200 3001      00001        7067          MVI   QUETYPE(NQ),$PURGE  QUEUE JOB FOR PURGE.         OY02728 N6405520



                                   7069 *              POINT TO THE NEXT JOB QUEUE ENTRY                        N6405600

                                   7070 *                                                                       N6405700
00BD46                             7071 NQ800    DS    0H                                                       N6405800
00BD46 5830 3004      00004        7072          L     NQ,QUECHAIN(,NQ)    POINT TO NE0T JQE                    N6405900

00BD4A 4130 3000      00000        7073          LA    NQ,0(,NQ)           AND ZERO HIGH-ORDER BYTE             N6406000
00BD4E 47F0 808E      0BB96        7074          B     NQ010               AND GO PROCESS IT.                   N6406100



                                   7076 *                                                                       N6406300
                                   7077 *              END OF JOB QUEUE WARM START                              N6406400

                                   7078 *                                                                       N6406500
00BD52                             7079 NQ900    DS    0H                                                       N6406600
00BD52 5810 84CC      0BFD4        7080          L     R1,NQ1STBUF         POINT TO 1ST (UNUSED) BUFFER.        N6406700
                                   7081         $FREEBUF (R1),OLAY=YES     FREE IT.                             N6406800
00BD56 45E0 B03C      0003C        7082+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
                                   7083         $FREEBUF (NQBF),OLAY=YES   FREE BUFFER.                         N6406900
00BD5A 1815                        7084+         LR    R1,NQBF                                                  DG018000
00BD5C 45E0 B03C      0003C        7085+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000

                                   7086         $FREEBUF (NQWK),OLAY=YES   FREE BUFFER.                         N6407000
00BD60 1817                        7087+         LR    R1,NQWK                                                  DG018000

00BD62 45E0 B03C      0003C        7088+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
                                   7089         $FREUNIT (NQDCT),OLAY=YES  FREE DCT.                            N6407100
00BD66 1814                        7090+         LR    R1,NQDCT                                                 DG018000
00BD68 41E0 826A      0BD72        7091+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
00BD6C 1FE8                        7092+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000

00BD6E 47F0 B044      00044        7093+         B     $FREUNIT            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   7094 *                                                                       N6407200
                                   7095 *              COMPUTE COUNT OF AVAILABLE TRACK GROUPS                  N6407300
                                   7096 *                                                                       N6407400
00BD72 1B00                        7097          SR    R0,R0               ZERO AVAILABLE GROUP COUNTER.        N6407500
00BD74 5810 B0FC      000FC        7098          L     R1,$CYLMAP          POINT ONE BYTE BEFORE                N6407600
00BD78 0610                        7099          BCTR  R1,0                START OF TRACK GROUP MAP.            N6407700
                                   7100          LA    R2,&CYLMAPL         GET NUMBER OF BYTES IN THE MAP.      N6407800
00BD7A 4120 0064      00064        7101+         LA    R2,100              GET NUMBER OF BYTES IN THE MAP.      N6407800

00BD7E 4332 1000      00000        7102 NQCT1    IC    R3,0(R2,R1)         PICK UP A MAP BYTE AND               N6407900

00BD82 8930 0018      00018        7103          SLL   R3,24               LEFT-JUSTIFY IT IN R3.               N6408000
00BD86 1E33                        7104 NQCT2    ALR   R3,R3               SHIFT LEFT 1 AND SET CONDITION CODE. N6408100
00BD88 47C0 8286      0BD8E        7105          BC    B'1100',*+6         DON'T CHANGE COUNTER UNLESS CARRY.   N6408200
00BD8C 0600                        7106          BCTR  R0,0                IF CARRY, COUNT A TRACK GROUP.       N6408300
00BD8E 4750 827E      0BD86        7107          BC    B'0101',NQCT2       IF BYTE NOT YET ZERO, LOOP.          N6408400

00BD92 4620 8276      0BD7E        7108          BCT   R2,NQCT1            ELSE DO THE SAME FOR ANOTHER BYTE.   N6408500
00BD96 5810 C098      03AF8        7109          L     R1,NQ$ALSTA         POINT TO ALLOCATION STATISTICS.      N6408600
INIT     HASP INITIALIZATION PROCESSOR - JOB QUEUE WARM START                                                  PAGE  161


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00BD9A 5A00 1004      00004        7110          A     R0,4(,R1)           CALCULATE AND SAVE THE NUMBER        N6408700
00BD9E 5000 1000      00000        7111          ST    R0,0(,R1)           OF ALLOCATED TRACK GROUPS.           N6408800
                                   7112 *                                                                       N6408900
                                   7113 *              MOVE PRINT/PUNCH CHECKPOINT DATA TO CKPT-JOES            N6409000
                                   7114 *                                                                       N6409100
00BDA2 5820 B0F8      000F8        7115          L     R2,$JOTABLE         POINT TO JOB OUTPUT TABLE            N6409200

                            00000  7116          USING JOTDSECT,R2         ACTIVATE JOT ADDRESSABILITY          N6409300

00BDA6 5830 B124      00124        7117          L     NQ,$PRCHKPT         POINT TO 1ST PRC                     N6409400
                                   7118          LA    NQWK,&NUMPRC        SET # OF PRC COUNTER                 N6409500
00BDAA 4170 0003      00003        7119+         LA    NQWK,3              SET # OF PRC COUNTER                 N6409500
00BDAE                             7120 NQ910    DS    0H                                                       N6409600

00BDAE 9140 3004      00004        7121          TM    PRCFLAGS(NQ),PRCHKJOB WAS THIS PRC ACTIVE                N6409700
00BDB2 47E0 82C8      0BDD0        7122          BNO   NQ920               BRANCH IF NO                         N6409800
00BDB6 4863 0002      00002        7123          LH    R6,PRCKJOE(NQ)      GET WORK-JOE OFFSET                  N6409900
00BDBA 4166 2000      00000        7124          LA    R6,0(R6,R2)         ADD JOT ORIGIN                       N6410000
                            00000  7125          USING JOEDSECT,R6         ACTIVATE JOE ADDRESSABILITY          N6410100
00BDBE 9640 6002      00002        7126          OI    JOEFLAG,$JOECKV     SET CHECKPOINT VALID BIT             N6410200
00BDC2 4860 6006      00006        7127          LH    R6,JOECKPT          GET CKPT-JOE OFFSET                  N6410300
00BDC6 4166 2000      00000        7128          LA    R6,0(R6,R2)         ADD JOT ORIGIN                       N6410400
00BDCA D217 6000 3004 00000 00004  7129          MVC   0(PRCSIZE-PRCFLAGS,R6),PRCFLAGS(NQ) SAVE CKPT DATA       N6410500
00BDD0                             7130 NQ920    DS    0H                                                       N6410600
00BDD0 9200 3004      00004        7131          MVI   PRCFLAGS(NQ),X'00'  CLEAR PRC FLAGS                      N6410700
00BDD4 4130 301C      0001C        7132          LA    NQ,PRCSIZE(,NQ)     STEP TO NEXT PRC                     N6410800

00BDD8 4670 82A6      0BDAE        7133          BCT   NQWK,NQ910          BRANCH IF MORE PRC'S                 N6410900
                                   7134 *                                                                       N6411000
                                   7135 *              CLEAR ACTIVE DEVICE COUNTERS IN CHAR-JOE QUEUE           N6411100

                                   7136 *                                                                       N6411200
00BDDC 4160 200A      0000A        7137          LA    R6,JOTCHRQ          POINT TO CHAR-JOE QUEUE              N6411300
00BDE0                             7138 NQ930    DS    0H                                                       N6411400
00BDE0 4860 6000      00000        7139          LH    R6,JOENEXT          GET NEXT CHAR-JOE OFFSET             N6411500
00BDE4 1266                        7140          LTR   R6,R6               END OF CHAR-JOE QUEUE                N6411600
00BDE6 4780 82F0      0BDF8        7141          BZ    NQ940               BRANCH IF YES                        N6411700
00BDEA 4166 2000      00000        7142          LA    R6,0(R6,R2)         ADD JOT ORIGIN                       N6411800
00BDEE D701 6018 6018 00018 00018  7143          XC    JOEACTPR(2),JOEACTPR CLEAR ACTIVE DEVICE COUNTS          N6411900
00BDF4 47F0 82D8      0BDE0        7144          B     NQ930               CONTINUE CHAR-JOE QUEUE SCAN         N6412000
                                   7145 *                                                                       N6412100
                                   7146 *              ALERT OPERATOR AND CLEAR BUSY BITS FOR CLASS QUEUE       N6412200

                                   7147 *                                                                       N6412300
00BDF8                             7148 NQ940    DS    0H                                                       N6412400
00BDF8 4150 0048      00048        7149          LA    NQBF,72             INDEX TO CLASS QUEUES                N6412500
00BDFC                             7150 NQ950    DS    0H                                                       N6412600

00BDFC 4165 200A      0000A        7151          LA    R6,JOTCLSQ-2(NQBF)  POINT TO CLASS QUEUE(INDEX)          N6412700
00BE00                             7152 NQ960    DS    0H                                                       N6412800
00BE00 4860 6000      00000        7153          LH    R6,JOENEXT          GET NEXT WORK-JOE OFFSET             N6412900
00BE04 1266                        7154          LTR   R6,R6               END OF THIS CLASS QUEUE              N6413000
00BE06 4780 8346      0BE4E        7155          BZ    NQ970               BRANCH IF YES                        N6413100
00BE0A 4166 2000      00000        7156          LA    R6,0(R6,R2)         ADD JOT ORIGIN                       N6413200
00BE0E 5830 6010      00010        7157          L     NQ,JOEJQE           GET JOB QUEUE ELEMENT OFFSET         N6413500
00BE12 5A30 B13C      0013C        7158          A     NQ,$JOBQPTR         ADD JOB QUEUE ORIGIN                 N6413600
00BE16 9500 3001      00001        7159          CLI   QUETYPE(NQ),$PURGE  IS JOB ON PURGE Q            OY08672 N6413620
00BE1A 4780 832E      0BE36        7160          BE    NQREM               BRANCH IF YES                OY08672 N6413640
00BE1E 9180 6002      00002        7161          TM    JOEFLAG,$JOEBUSY    WAS THIS ELEMENT ACTIVE      OY08672 N6413660
00BE22 47E0 82F8      0BE00        7162          BNO   NQ960               BRANCH IF NO                 OY08672 N6413680

00BE26 4110 84AD      0BFB5        7163          LA    R1,NQPRPU           SET 'WAS PRINTING/PUNCHING'          N6413700
00BE2A 45A0 83C4      0BECC        7164          BAL   R10,NQWTO           INFORM THE OPERATOR                  N6413800
INIT     HASP INITIALIZATION PROCESSOR - JOB QUEUE WARM START                                                  PAGE  162



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

00BE2E 947F 6002      00002        7165          NI    JOEFLAG,255-$JOEBUSY RESET BUSY BIT                      N6413900
00BE32 47F0 82F8      0BE00        7166          B     NQ960               SCAN ALL JOES ON THIS QUEUE          N6414000
00BE36                             7167 NQREM    DS    0H                                               OY08672 N6414010
00BE36 947F 6002      00002        7168          NI    JOEFLAG,255-$JOEBUSY RESET BUSY BIT              OY08672 N6414020
00BE3A 1813                        7169          LR    R1,NQ               R1 POINTS TO JQE             OY08672 N6414030
00BE3C 4860 6000      00000        7170          LH    R6,JOENEXT          GET NEXT JOE DISPLACEMENT    OY08672 N6414040
00BE40 58F0 C09C      03AFC        7171          L     R15,N$#CAN          LOAD ADR OF $#CAN ROUTINE    OY08672 N6414050
00BE44 05EF                        7172          BALR  R14,R15             BRANCH TO $#CAN              OY08672 N6414060
00BE46 9200 3001      00001        7173          MVI   QUETYPE(NQ),$PURGE  MAKE SURE STILL PURGE        OY08672 N6414080
00BE4A 47F0 82F4      0BDFC        7174          B     NQ950               RESTART JOE SCAN             PP43948 N6414090
                                   7175          DROP  R2,R6               SUSPEND JOT, JOE ADDRESSABILITY      N6414100

00BE4E                             7176 NQ970    DS    0H                                                       N6414200

00BE4E 0650                        7177          BCTR  NQBF,R0             DECREMENT QUEUE INDEX BY ONE         N6414300
00BE50 4650 82F4      0BDFC        7178          BCT   NQBF,NQ950          BRANCH IF MORE CLASS QUEUES          N6414400

                                   7179 *                                                                       N6414500
                                   7180 *              'ENTER HASP REQUESTS' IF REQ WAS SPECIFIED               N6414600
                                   7181 *                                                                       N6414700
00BE54 9120 B0C1      000C1        7182          TM    $OPTSTAT,$OPTREQ    TEST FOR OPERATOR REQUEST.           N6414800
00BE58 4780 8376      0BE7E        7183          BZ    NQ990               IF NOT, SKIP REQUEST MESSAGE.        N6414900
                                   7184          WTO   'ENTER HASP REQUESTS'  TELL OPERATOR.                    N6415000
00BE5C                             7185+         CNOP  0,4                                                      08550021
00BE5C 4510 8370      0BE78        7186+         BAL   1,IHB0258A                        BRANCH AROUND MESSAGE  08600021
00BE60 0017                        7187+         DC    AL2(23)             TEXT LENGTH                          11950021
00BE62 0000                        7188+         DC    B'0000000000000000' MCS FLAGS                            12000021
00BE64 C5D5E3C5D940C8C1            7189+         DC    C'ENTER HASP REQUESTS'                                   12100021
00BE78                             7190+IHB0258A DS    0H                                                       13900021

00BE78 0A23                        7191+         SVC   35                                                       14000021
00BE7A 9640 B0C2      000C2        7192          OI    $STATUS,$ALMSGSW    SET MESSAGE ISSUED SWITCH.           N6415100

                                   7193 NQ990   $RETURN                    RETURN FROM HASPIOVQ.                N6415200

00BE7E 45E0 B088      00088        7194+NQ990    BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000



                                   7196 *                                                                       N6415400
                                   7197 *              SUBROUTINES TO READ AND WRITE                            N6415500
                                   7198 *                                                                       N6415600
00BE82                             7199 NQREAD   DS    0H                                                       N6415700
00BE82 9280 4013      00013        7200          MVI   DCTIOTYP,DCTREAD    SET TYPE TO READ.                    N6415800
00BE86 47F0 8386      0BE8E        7201          B     NQEXCP              GO SET TRACK ADDRESS.                N6415900
00BE8A                             7202 NQWRITE  DS    0H                                                       N6416000
00BE8A 9240 4013      00013        7203          MVI   DCTIOTYP,DCTWRITE   SET TYPE TO WRITE.                   N6416100
00BE8E                             7204 NQEXCP   DS    0H                                                       N6416200
00BE8E 5010 4008      00008        7205          ST    R1,DCTSEEK          SET TRACK ADDRESS.                   N6416300

                                   7206         $EXCP  (NQDCT)             START INPUT OR OUTPUT.               N6416400
00BE92 1814                        7207+         LR    R1,NQDCT                                                 DG018000
00BE94 45E0 B06C      0006C        7208+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000

00BE98 917F 5028      00028        7209 NQCHECK  TM    BUFECBCC-BUFDSECT(NQBF),X'7F'  HOW DID I/O GO...         N6416500
00BE9C 077A                        7210          BNZR  R10                 RETURN IF COMPLETE.          OY02728 N6416600
                                   7211         $WAIT  IO                  WAIT FOR I/O COMPLETION.             N6416700
00BE9E 9640 D049      00049        7212+         OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
00BEA2 45F0 B030      00030        7213+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
00BEA6 47F0 8390      0BE98        7214          B     NQCHECK             CHECK I/O COMPLETION.                N6416800



INIT     HASP INITIALIZATION PROCESSOR - JOB QUEUE WARM START                                                  PAGE  163


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7216 *                                                                       N6417000
                                   7217 *              SUBROUTINE TO ALLOCATE A MAP FROM THE MASTER MAP.        N6417100
                                   7218 *                                                                       N6417200

00BEAA                             7219 NQALLOC  DS    0H                                                       N6417300
                                   7220         $XXC   MVC,(BUFSTART-BUFDSECT,NQWK),(0,R1),&CYLMAPL             N6417400
00BEAA D263 7058 1000 00058 00000  7221+         MVC   BUFSTART-BUFDSECT+0(100,NQWK),0+0(R1)                    XX050000
                                   7222 *                                  MOVE ARGUMENT MAP TO WORKAREA.       N6417500

00BEB0 58F0 B0FC      000FC        7223          L     R15,$CYLMAP         POINT TO MASTER MAP.                 N6417600
                                   7224         $XXC   NC,(0,R1),(0,R15),&CYLMAPL                               N6417700
00BEB4 D463 1000 F000 00000 00000  7225+         NC    0+0(100,R1),0+0(R15)                                     XX050000
                                   7226 *                                  RESET IN ARG MAP BITS THAT           N6417800
                                   7227 *                                  ARE OFF IN THE MASTER MAP.           N6417900
                                   7228         $XXC   CLC,(BUFSTART-BUFDSECT,NQWK),(0,R1),&CYLMAPL             N6418000

00BEBA D563 7058 1000 00058 00000  7229+         CLC   BUFSTART-BUFDSECT+0(100,NQWK),0+0(R1)                    XX050000
                                   7230 *                                  CHECK ARG MAP FOR VALIDITY.          N6418100
                                   7231 *                                  IT IS INVALID IF BITS ARE ON IN      N6418200
                                   7232 *                                  IT THAT ARE OFF IN MASTER MAP.       N6418300
00BEC0 0500                        7233          BALR  R0,0                SAVE THE CONDITION CODE.             N6418400
                                   7234         $XXC   XC,(0,R15),(0,R1),&CYLMAPL                               N6418500
00BEC2 D763 F000 1000 00000 00000  7235+         XC    0+0(100,R15),0+0(R1)                                     XX050000
                                   7236 *                                  REMOVE BITS FROM MASTER MAP.         N6418600

00BEC8 0400                        7237          SPM   R0                  RESTORE THE CONDITION CODE.          N6418700
00BECA 07FA                        7238          BR    R10                 RETURN CC TO CALLER.                 N6418800




                                   7240 *                                                                       N6419000
                                   7241 *              SUBROUTINE TO WRITE TO OPERATOR                          N6419100
                                   7242 *                                                                       N6419200
00BECC                             7243 NQWTO    DS    0H                                                       N6419300
00BECC 4800 3002      00002        7244          LH    R0,QUEJOBNO(,NQ)    GET JOB NUMBER.                      N6419400
00BED0 4E00 8400      0BF08        7245          CVD   R0,NQDBL            CONVERT TO EBCDIC.                   N6419500
00BED4 F133 8400 8404 0BF08 0BF0C  7246          MVO   NQDBL(4),NQDBL+4(4) OFFSET IT BY ONE.                    N6419600

00BEDA D204 840F 8433 0BF17 0BF3B  7247          MVC   NQJOBNR-1(5),NQEDMSK  MOVE EDIT MASK IN PLACE.           N6419700
00BEE0 DE04 840F 8401 0BF17 0BF09  7248          ED    NQJOBNR-1(5),NQDBL+1  EDIT IN JOB NUMBER.                N6419800
00BEE6 9240 8415      0BF1D        7249          MVI   NQMSG2,C' '         BLANK OUT VARIABLE                   N6419900
00BEEA D21C 8416 8415 0BF1E 0BF1D  7250          MVC   NQMSG2+1(29),NQMSG2 MESSAGE AREA.                        N6420000
00BEF0 43F0 1000      00000        7251          IC    R15,0(,R1)          GET LENGTH.                          N6420100

00BEF4 06F0                        7252          BCTR  R15,0               REDUCE BY ONE.                       N6420200
00BEF6 44F0 83FA      0BF02        7253          EX    R15,NQWTOMVC        MOVE TEXT TO MESSAGE.                N6420300
                                   7254          WTO   MF=(E,NQMSG)        TELL THE OPERATOR.                   N6420400

00BEFA 4110 8408      0BF10        7255+         LA    1,NQMSG                           LOAD PARAMETER REG 1   00100000
00BEFE 0A23                        7256+         SVC   35                                ISSUE SVC              00750021
00BF00 07FA                        7257          BR    R10                 RETURN.                              N6420500
00BF02 D200 8415 1001 0BF1D 00001  7258 NQWTOMVC MVC   NQMSG2(*-*),1(R1)   *** EXECUTE ONLY ***                 N6420600
00BF08                             7259 NQDBL    DS    D                   WORK SPACE                           N6420700
00BF10                             7260 NQMSG    DS    0F                  LIST-FORM WTO.                       N6420800
00BF10 002B0000                    7261          DC    AL2(NQEDMSK-NQMSG,0) LENGTH, MCS FLAGS           OY05860 N6420900

00BF14 D1D6C240                    7262          DC    C'JOB '             TEST                                 N6421000
00BF18 5C5C5C5C40                  7263 NQJOBNR  DC    C'**** '            TEXT                                 N6421100
00BF1D 4040404040404040            7264 NQMSG2   DC    CL30' '             VARIABLE TEXT                        N6421200
00BF3B 4020202021                  7265 NQEDMSK  DC    X'4020202021'       EDIT MASK                            N6421300




INIT     HASP INITIALIZATION PROCESSOR - JOB QUEUE WARM START                                                  PAGE  164


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

                                   7267 *              MESSAGES                                                 N6421500
00BF40 0DE6C1E240D6D540            7268 NQRDRM   DC    AL1(13),C'WAS ON READER'                                 N6421600

00BF4E 0DC5D5C440C5E7C5            7269 NQENDX   DC    AL1(13),C'END EXECUTION'                                 N6421700
00BF5C 0DE6C1E240C5E7C5            7270 NQEXEC   DC    AL1(13),C'WAS EXECUTING'                                 N6421800
00BF6A 10D8E4C5E4C5C440            7271 NQPURGM  DC    AL1(16),C'QUEUED FOR PURGE'                      OY05858 N6421810
00BF7B 1C6040C2C1C440D1            7272 NQBADJ   DC    AL1(28),C'- BAD JCT - ERRORS MAY OCCUR'                  N6421900
00BF98 1C6040C2C1C440C9            7273 NQIBAD   DC    AL1(28),C'- BAD IOT - ERRORS MAY OCCUR'                  N6422000
00BFB5 15E6C1E240D7D9C9            7274 NQPRPU   DC    AL1(21),C'WAS PRINTING/PUNCHING'                         N6422100

00BFCC                             7275 NQECB    DS    F                   ECB FOR WTOR                         N6422200
00BFD0 40404040                    7276 NQREPLY  DC    CL4' '              REPLY AREA FOR WTOR                  N6422300
00BFD4                             7277 NQ1STBUF DS    A                   SAVE ADDRESS FOR 1ST BUFFER.         N6422400
INIT     HASP INITIALIZATION PROCESSOR - RESIDENT WORK AREAS                                                   PAGE  165


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


004F0E                             7279 HASPINIT CSECT                                                          N6422600
004F0E 0000
004F10 0000000000000000            7280 NSAVE    DC    18F'0'              INITIALIZATION SAVE AREA             N6422700
004F58 00000000                    7281 NCOMMPCE DC    V($COMMPCE)         POINTER TO COMMAND PROCESSOR PCE     N6422800
                                   7282 NMAXDA4  DC    Y(&NUMDA*6)              MAXIMUM NUMBER OF DISKS * 6     N6422900

004F5C 000C                        7283+NMAXDA4  DC    Y(2*6)                   MAXIMUM NUMBER OF DISKS * 6     N6422900
004F5E 0000
004F60 D6D3C1E8D3C9C240            7284 NOLIBDD  DC    0D'0',CL8'OLAYLIB'  PARAMETER FOR OLAYLIB DEVTYPE        N6423000
004F68 0000000000000000            7285 NWTRPARM DC    A(0),V($XWTREND)    PARMS FOR HASPWTR                    N6423100
                                   7286 NSPOOL   DC    C'&SPOOL'           SPOOL VOLUME IDENTIFIER              N6440000

004F70 E2D7D6D6D3                  7287+NSPOOL   DC    C'SPOOL'            SPOOL VOLUME IDENTIFIER              N6440000
                                   7288          AIF   (&SYSVS2).NOINIT8                                   RFIT N6440100
004F78                             7289 NOVERLAY DS    0F                  *                               RFIT N6440200
004F78 5810 F008      00008        7290          L     R1,8(0,R15)         THIS CODE OVERLAYS              RFIT N6440300
004F7C 47F0 1000      00000        7291          B     0(0,R1)              THE FIRST 12 BYTES             RFIT N6440400

004F80 00000000                    7292          DC    V($ATTNXIT)           OF IEEBA1                     RFIT N6440500
004F84 00000000                    7293 NWTOLSVC DC    V($WTOXIT)          HASP WTO/WTL EXIT               RFIT N6440600
004F88 00000000                    7294 NLINKSVC DC    V($LINKXIT)         HASP LINK EXIT                  RFIT N6440700
004F8C 00000000                    7295 NXCTLSVC DC    V($XCTLXIT)         HASP XCTL EXIT                  RFIT N6440800
                                   7296 .NOINIT8 ANOP                                                      RFIT N6440900
004F90 C8C1E2D7                    7297 NHASPCOD DC    0F'0',C'HASP'       INITIALIZATION PASSWORD              N6442000

004F94 0000000000000000            7298 NOPTAREA DC    XL100'0',X'00'      OPTION AREA                          N6444000
004FF9 000000
004FFC 00000000                    7299 NOPTECB  DC    F'0'                ECB FOR WTOR                         N6446000
005000 4040404040404040            7300 NOPTNULL DC    0F'0',CL8' '        NULL PARAMETER                       N6448000

005008                             7301 NOPTPARM DS    2F                  PARAMETER STORAGE                    N6450000



                                   7303 NOPTORG  NULL                      OPTION TABLE                         N6454000
005010                             7304+NOPTORG  DS    0H                                                       NU006000
005010 4040C6D6D9D4C1E3            7305          DC    C'  FORMAT',AL1($OPTFMT,255-$OPTNFMT)   FORMAT           N6456000

00501A 404040D5D6C6D4E3            7306          DC    C'   NOFMT',AL1($OPTNFMT,255-$OPTFMT)   NOFMT            N6458000
005024 40404040C3D6D3C4            7307          DC    C'    COLD',AL1($OPTCOLD,255-$OPTWARM)  COLD             N6460000
00502E 40404040E6C1D9D4            7308          DC    C'    WARM',AL1($OPTWARM,255-$OPTCOLD)  WARM             N6462000
005038 4040404040D9C5D8            7309          DC    C'     REQ',AL1($OPTREQ,255-$OPTNREQ)   REQ              N6464000
005042 404040D5D6D9C5D8            7310          DC    C'   NOREQ',AL1($OPTNREQ,255-$OPTREQ)   NOREQ            N6466000
00504C 4040404040D9C5D7            7311          DC    C'     REP',AL1($OPTREP,255-$OPTNREP)   REP              N6468000
005056 404040D5D6D9C5D7            7312          DC    C'   NOREP',AL1($OPTNREP,255-$OPTREP)   NOREP            N6470000

005060 40404040D3C9E2E3            7313          DC    C'    LIST',AL1($OPTLIST,255-$OPTNLST)  LIST             N6472000
00506A 4040D5D6D3C9E2E3            7314          DC    C'  NOLIST',AL1($OPTNLST,255-$OPTLIST)  NOLIST           N6474000
005074 404040E3D9C1C3C5            7315          DC    C'   TRACE',AL1($OPTRACE,255-$OPTNTRC)  TRACE            N6476000

00507E 40D5D6E3D9C1C3C5            7316          DC    C' NOTRACE',AL1($OPTNTRC,255-$OPTRACE)  NOTRACE          N6478000
005088 40404040D5D6D5C5            7317          DC    C'    NONE',AL1(0,255)                  NONE             N6480000
005092 40404040404040D5            7318          DC    C'       N',AL1(0,255)                  N                N6482000
00509C 40404040404040E4            7319          DC    C'       U',AL1(0,255)                  U                N6484000
0050A6 4040404040404040            7320          DC    C'        ',AL1(0,255)                  NULL             N6486000

                                   7321 NOPTEND  NULL                      END OF OPTION TABLE                  N6488000
0050B0                             7322+NOPTEND  DS    0H                                                       NU006000



0050B0                             7324 NREPTABL DS    0F                  REP RELOCATION TABLE                 N6492000
0050B0 D9C5D74000000000            7325          DC    C'REP ',A(0)                                             N6494000
0050B8 C1C2E24000000000            7326          DC    C'ABS ',A(0)                                             N6496000
INIT     HASP INITIALIZATION PROCESSOR - RESIDENT WORK AREAS                                                   PAGE  166


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


0050C0 D5E4C34000000000            7327          DC    C'NUC ',A(HASPNUC)                                       N6498000
0050C8 D6E3C1C200000000            7328          DC    C'OTAB',V(HASPOTAB)                                      N6499000

0050D0 D5E4C3F200000000            7329          DC    C'NUC2',A(HASPNUC2-($HNUCEND-HASPNUC))                   N6499500
0050D8 D9C4D94000000000            7330          DC    C'RDR ',V(HASPRDR)                                       N6500000
0050E0 E7C5D84000000000            7331          DC    C'XEQ ',V(HASPXEQ)                                       N6502000
0050E8 E6E3D94000000000            7332          DC    C'WTR ',V(HASPWTR)                                       N6503000
0050F0 D7D9D7E400000000            7333          DC    C'PRPU',V(HASPPRPU)                                      N6504000

0050F8 C1C3C3E300000000            7334          DC    C'ACCT',V(HASPACCT)                                      N6505000
005100 D4C9E2C300000000            7335          DC    C'MISC',V(HASPMISC)                                      N6506000
005108 C3D6D54000000000            7336          DC    C'CON ',V(HASPCON)                                       N6508000
                                   7337          AIF   (&NUMLNES EQ 0).NORTAM                                   N6510000
005110 C3D6D4D400000000            7338 .NORTAM  DC    C'COMM',V(HASPCOMM)                                      N6514000
005118 C2D3D2E200000000            7339          DC    C'BLKS',A(HASPBLKS)                                      N6515000
005120 C9D5C9E300000000            7340          DC    C'INIT',A(HASPINIT-($BLKSEND-HASPBLKS))                  N6516000
005128 C9D5E3C600000000            7341          DC    C'INTF',V(HASPINTF)                                 RFIT N6516100
                                   7342 NREPTABE NULL                      END OF REP RELOCATION TABLE          N6518000

005130                             7343+NREPTABE DS    0H                                                       NU006000

                                   7344          EXTRN HASPNUC,$HNUCEND,HASPNUC2                                N6519000
000000                             7345 NREPIO   DSECT                                                          N6520000
000000 0200000820000050            7346 NREPCCW  CCW   2,NCARD,X'20',80    CCW TO READ/LIST A REP CARD          N6522000
000008 0000000000000000            7347 NCARD    DC    20F'0',C' '         I/O AREA FOR REP CARDS               N6524000
005130                             7348 HASPINIT CSECT                                                          N6525000

                            0506F  7349 NHEXTAB  EQU   *-C'A'              TRANSLATE EBCDIC TO UNPACKED HEX     N6526000
005130 0A0B0C0D0E0F0000            7350          DC    X'0A0B0C0D0E0F',(C'0'-C'F')X'00',X'010203040506070809'   N6528000



00516C                             7352 $PRTDEBL DS    0F                                                       N6532000
                                   7353          DC    (&NUMPRTS)A(*-*)    PRINTER DEB LIST                     N6534000
00516C 0000000000000000            7354+         DC    (2)A(*-*)           PRINTER DEB LIST                     N6534000
                            05174  7355 $RDRDEBL EQU   *                                                        N6536000
                                   7356          DC    (&NUMRDRS)A(*-*)    READER DEB LIST                      N6538000
005174 00000000                    7357+         DC    (1)A(*-*)           READER DEB LIST                      N6538000

                            05178  7358 $INRDEBL EQU   *                                                        N6540000

                                   7359          DC    (&NUMINRS)A(*-*)    INTERNAL READER DEB LIST             N6542000
005178 0000000000000000            7360+         DC    (6)A(*-*)           INTERNAL READER DEB LIST             N6542000
                            05190  7361 $PUNDEBL EQU   *                                                        N6548000
                                   7362          DC    (&NUMPUNS)A(*-*)    PUNCH DEB LIST                       N6550000
005190 00000000                    7363+         DC    (1)A(*-*)           PUNCH DEB LIST                       N6550000

                                   7364          EXTRN $HASPJIT            DEFINE JIT EXTERNALLY                N6562000
005194 00003A60000000B8            7365 NHCTLIST DC    A($1STPBUF,$DCT1,$HASPJIT)                               N6564000


                                   7367 * CONTROL INFORMATION FOR BUFFERS ( ORDER DEPENDENT )                 * N6570000
0051A0 00003A60                    7368 N1STBUF  DC    A($1STBUF)          START OF BUFFER POOL               * N6572000
0051A4 0000B260                    7369 NLSTBUF  DC    A($LSTBUF)          END OF BUFFER POOL + 1             * N6574000
0051A8 00000000                    7370 N1STBUFA DC    A(*-*)              START OF ALTERNATE BUFFER POOL     * N6576000
0051AC 00000000                    7371 NLSTBUFA DC    A(*-*)              END OF ALTERNATE BUFFER POOL + 1   * N6578000
0051B0 00003A60                    7372 N1STPBUF DC    A($1STPBUF)         FIRST TP BUFFER                    * N6580000
0051B4 00003A60                    7373 NLSTPBUF DC    A($LSTPBUF)         LAST TP BUFFER + 1                 * N6582000




0051B8                             7375          LTORG                                                          N6586000
0051B8 00003A60                    7376                =A(HASPINGO)
0051BC 000006E0                    7377                =A($OLAYDCT)
INIT     HASP INITIALIZATION PROCESSOR - RESIDENT WORK AREAS                                                   PAGE  167



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78

0051C0 00000000                    7378                =V(HASPOTAB)
0051C4 00000FFF                    7379                =A(X'FFF')
0051C8 00000FFF                    7380                =A(X'00000FFF')
0051CC 00000000                    7381                =V(WUCMSVE3)
0051D0 00000000                    7382                =V(XSTATUS)
0051D4 00000000                    7383                =V($EXECPCE)
0051D8 00000000                    7384                =V($PITABLE)
0051DC 00000000                    7385                =V(HASPWTR)
0051E0 00000000                    7386                =V($PWTRECB)
0051E4 00000000                    7387                =V($WTOPECB)

0051E8 00000000                    7388                =V($HASPWTO)
0051EC 00000000                    7389                =V(WTOTCBA)
0051F0 00000000                    7390                =V(HASPACCT)
0051F4 00000000                    7391                =V($PSMFECB)

                                   7392 NOLIB    DCB   DDNAME=OLAYLIB,MACRF=(E),DSORG=PS,DEVD=DA                N6588000


                                   7394+*                       DATA CONTROL BLOCK                              22770020
                                   7395+*                                                                       22860020
0051F8                             7396+NOLIB    DC    0F'0'                   ORIGIN ON WORD BOUNDARY          22914020

                                   7398+*                       DIRECT ACCESS DEVICE INTERFACE                  27360020

0051F8 0000000000000000            7400+         DC    BL16'0'                  FDAD,DVTBL                      27540020
005208 00000000                    7401+         DC    A(0)                     KEYLE,DEVT,TRBAL                27720020

                                   7403+*                       COMMON ACCESS METHOD INTERFACE                  48690020


00520C 00                          7405+         DC    AL1(0)                  BUFNO                            49050020
00520D 000001                      7406+         DC    AL3(1)                  BUFCB                            54720020

005210 0000                        7407+         DC    AL2(0)             BUFL                                  55170020
005212 4000                        7408+         DC    BL2'0100000000000000'                                   *55800020
                                       +                                                 DSORG                  55890020
005214 00000001                    7409+         DC    A(1)                     IOBAD                           56340020

                                   7411+*                       FOUNDATION EXTENSION                            56610020

005218 00                          7413+         DC    BL1'00000000'                  BFTEK,BFLN,HIARCHY        59850020
005219 000001                      7414+         DC    AL3(1)                  EODAD                            65970020
00521C 00                          7415+         DC    BL1'00000000'                                           *66150020
                                       +                                       RECFM                            66240020
00521D 000000                      7416+         DC    AL3(0)                  EXLST                            66330020



                                   7418+*                       FOUNDATION BLOCK                                66690020


005220 D6D3C1E8D3C9C240            7420+         DC    CL8'OLAYLIB'            DDNAME                           66870020
005228 02                          7421+         DC    BL1'00000010'           OFLGS                            68220020
005229 00                          7422+         DC    BL1'00000000'                          IFLG              68310020
00522A D008                        7423+         DC    BL2'1101000000001000'                                   *68400020
                                       +                                                                       *68490020
                                       +                                       MACR                             68580020
                            00003  7424 UCB2303  EQU   3                   DEVICE ID FOR 2303                   N6590000
                            00002  7425 UCB2301  EQU   2                   DEVICE ID FOR 2301                   N6592000
                            00006  7426 UCB2305  EQU   6                   DEVICE ID FOR 2305                   N6594000
                            00007  7427 UCB23052 EQU   7                   DEVICE ID FOR 2305 2                 N6596000
INIT     HASP INITIALIZATION PROCESSOR - RESIDENT WORK AREAS                                                   PAGE  168


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78


                            00001  7428 UCB2540R EQU   1                   DEVICE ID FOR 2540 READER            N6598000
                            00002  7429 UCB2540P EQU   2                   DEVICE ID FOR 2540 PUNCH             N6600000

                            00003  7430 UCB1442  EQU   3                   DEVICE ID FOR 1442 PUNCH             N6602000

                            00004  7431 UCB2501  EQU   4                   DEVICE ID FOR 2501                   N6608000
                            00005  7432 UCB2520  EQU   5                   DEVICE ID FOR 2520                   N6610000
                            00006  7433 UCB3505  EQU   6                   DEVICE ID FOR 3505                   N6611000
                            00008  7434 UCB1403  EQU   8                   DEVICE ID FOR 1403                   N6612000
                            00009  7435 UCB3211  EQU   9                   DEVICE ID FOR 3211 PRINTER           N6614000
                            0000A  7436 UCB1443  EQU   10                  DEVICE ID FOR 1443                   N6616000
                            0000C  7437 UCB3525  EQU   12                  DEVICE ID FOR 3525                   N6617000
                            00072  7438 UCBSDAI  EQU   X'72'               DEVICE ID FOR STR ADAPTER ON 2701    N6626000
                            00092  7439 UCBSDAII EQU   X'92'               DEVICE ID FOR BSC ADAPTER ON 2701    N6628000
                            00093  7440 UCBBSCA  EQU   X'93'               DEVICE ID FOR ADAPTER ON 2703        N6630000
00522C                      0B260  7441          ORG                                                            N6632000






002F9B                             7443 HASPBLKS CSECT                     REVERT TO CONTROL BLOCK CSECT        N6636000
002FA0                             7444 $BLKSEND DS    0D                  DEFINE END OF CSECT                  N6638000

                                   7445 $BLKSLEN $DLENGTH HEADER=B         COMPUTE CONTROL SECTION LENGTH       N6640000
INIT     HASPBLKS CONTROL SECTION LENGTH                                                                       PAGE  169


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78











002FA0                             7448+         DS    0D                  FILL OUT CONTROL SECTION             DN016000
                            02FA0  7449+$B       EQU   *-HASPBLKS                                               DN018000
                            00000  7450+$B1      EQU   $B/100000*100000              COMPUTE                    DN020000
                            02710  7451+$B2      EQU   ($B-$B1)/10000*10000            INTERMEDIATE             DN022000
                            007D0  7452+$B3      EQU   ($B-$B1-$B2)/1000*1000            LENGTH                 DN024000

                            00064  7453+$B4      EQU   ($B-$B1-$B2-$B3)/100*100            VALUES               DN026000
                            0005A  7454+$B5      EQU   ($B-$B1-$B2-$B3-$B4)/10*10                               DN028000
                            00002  7455+$B6      EQU   $B-$B1-$B2-$B3-$B4-$B5                                   DN030000






                                   7457+*                                                                       DN034000
                                   7458+*                                  DECIMAL LENGTH                       DN036000
                                   7459+*                                                                       DN038000



                            12192  7461+$BLKSLEN EQU   $B1/100000*1048576+$B2/10000*65536+$B3/1000*4096+$B4/100CDN042000

                                       +               *256+$B5/10*16+$B6                                       DN044000





00B260                             7463 HASPINIT CSECT                     REVERT TO INITIALIZATION CSECT       N6642000
                                   7464 $INITLEN $DLENGTH HEADER=I         COMPUTE CONTROL SECTION LENGTH       N6644000
INIT     HASPINIT CONTROL SECTION LENGTH                                                                       PAGE  170


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.01 08/28/78













00B260                             7467+         DS    0D                  FILL OUT CONTROL SECTION             DN016000
                            082C0  7468+$I       EQU   *-HASPINIT                                               DN018000
                            00000  7469+$I1      EQU   $I/100000*100000              COMPUTE                    DN020000
                            07530  7470+$I2      EQU   ($I-$I1)/10000*10000            INTERMEDIATE             DN022000
                            00BB8  7471+$I3      EQU   ($I-$I1-$I2)/1000*1000            LENGTH                 DN024000
                            00190  7472+$I4      EQU   ($I-$I1-$I2-$I3)/100*100            VALUES               DN026000
                            00046  7473+$I5      EQU   ($I-$I1-$I2-$I3-$I4)/10*10                               DN028000

                            00002  7474+$I6      EQU   $I-$I1-$I2-$I3-$I4-$I5                                   DN030000





                                   7476+*                                                                       DN034000
                                   7477+*                                  DECIMAL LENGTH                       DN036000

                                   7478+*                                                                       DN038000



                            33472  7480+$INITLEN EQU   $I1/100000*1048576+$I2/10000*65536+$I3/1000*4096+$I4/100CDN042000

                                       +               *256+$I5/10*16+$I6                                       DN044000





                                   7482          END                                                            N6646000
INIT                                              RELOCATION DICTIONARY                                        PAGE  171


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.01 08/28/78

 0001     0001      0C     0000CC

 0001     0001      0C     000104
 0001     0001      0C     00013C
 0001     0001      0C     000174
 0001     0001      0C     0001FC
 0001     0001      0C     000294

 0001     0001      0C     00032C
 0001     0001      0C     0003C4
 0001     0001      0C     00045C
 0001     0001      0C     0004F4

 0001     0001      0C     00058C
 0001     0001      0C     0005A4
 0001     0001      0C     0005BC
 0001     0001      0C     0005D4
 0001     0001      0C     0005EC
 0001     0001      0C     000604

 0001     0001      0C     00061C
 0001     0001      0C     000634
 0001     0001      0C     00064C
 0001     0001      0C     000664
 0001     0001      0C     00067C

 0001     0001      0C     000694
 0001     0001      0C     0006AC
 0001     0001      0C     0006C4
 0001     0001      0C     0006DC
 0001     0001      0C     000740

 0001     0001      0C     0007CC
 0001     0001      0C     000858
 0001     0001      0C     0008E4
 0001     0001      0C     000970
 0001     0001      0C     0009FC

 0001     0001      0C     000A88
 0001     0001      0C     000B14
 0001     0001      0C     000BA0
 0001     0001      0C     000C2C
 0001     0001      0C     000CB8

 0001     0001      0C     000D44
 0001     0001      0C     000DD0
 0001     0001      0C     000E5C
 0001     0001      0C     000EE8
 0001     0001      0C     000F74
 0001     0001      0C     001000

 0001     0001      0C     00108C
 0001     0001      0C     001118
 0001     0001      0C     0011A4
 0001     0001      0C     001230

 0001     0001      0C     0012BC
 0001     0001      0C     001348
 0001     0001      0C     0013D4
 0001     0001      0C     001460
 0001     0001      0C     0014EC

 0001     0001      0C     001578
 0001     0001      0C     001604
 0001     0001      0C     001690
 0001     0001      0C     00171C
INIT                                              RELOCATION DICTIONARY                                        PAGE  172


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.01 08/28/78

 0001     0001      0C     0017A8

 0001     0001      0C     001834
 0001     0001      0C     0018C0
 0001     0001      0C     00194C

 0001     0001      0C     0019D8
 0001     0001      0C     001A64
 0001     0001      0C     001AF0
 0001     0001      0C     001B7C
 0001     0001      0C     001C08

 0001     0001      0C     001C94
 0001     0001      0C     001D20
 0001     0001      0C     001DAC
 0001     0001      0C     001E38
 0001     0001      0C     001EC4
 0001     0001      0C     001F50
 0001     0001      0C     001FDC
 0001     0001      0C     002068

 0001     0001      0C     0020F4
 0001     0001      0C     002180

 0001     0001      0C     00220C
 0001     0001      0C     002298
 0001     0001      0C     002324
 0001     0001      0C     0023B0
 0001     0001      0C     00243C

 0001     0001      0C     0024C8
 0001     0001      0C     002554
 0001     0001      0C     0025E0
 0001     0001      0C     00266C
 0001     0001      0C     0026F8
 0001     0001      0C     002784
 0001     0001      0C     002810
 0001     0001      0C     00289C

 0001     0001      0C     002928
 0001     0001      0C     0029B4

 0001     0001      0C     002ACC
 0001     0001      0C     002BB8
 0001     0001      0C     002CA4
 0001     0001      0C     002D90
 0003     0001      0C     004DEC

 0003     0001      0C     004E08
 0003     0001      0C     004E14
 0003     0001      0C     004E1C
 0003     0001      0C     004E20
 0003     0001      0C     004E24
 0003     0001      0C     004E28
 0003     0001      0C     004E2C
 0003     0001      0C     004E30
 0003     0001      0C     004E3C

 0003     0001      0C     004E40

 0003     0001      0C     004E44
 0003     0001      0C     004E48
 0003     0001      0C     004E4C
 0003     0001      0C     004E90
 0003     0001      0C     004E94

 0003     0001      0C     004E98
INIT                                              RELOCATION DICTIONARY                                        PAGE  173


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.01 08/28/78

 0003     0001      0C     00511C
 0003     0001      0C     005198
 0003     0001      0C     0051BC
 0003     0002      08     0048D1
 0003     0002      08     004951
 0003     0003      0C     002FB0
 0003     0003      0C     002FD4

 0003     0003      08     002FD9

 0003     0003      08     002FE1
 0003     0003      08     002FE9
 0003     0003      08     002FF1
 0003     0003      0C     003510

 0003     0003      08     003539
 0003     0003      08     003541
 0003     0003      08     003549
 0003     0003      08     003551
 0003     0003      08     003B05
 0003     0003      0C     003B08
 0003     0003      08     003BBD
 0003     0003      0C     003BC0
 0003     0003      08     003FF5
 0003     0003      08     004009
 0003     0003      0C     004688

 0003     0003      0C     00468C
 0003     0003      0C     004690
 0003     0003      0C     004820
 0003     0003      08     004881

 0003     0003      08     004889
 0003     0003      08     004899
 0003     0003      08     0048A1
 0003     0003      08     0048A9
 0003     0003      08     0048B9
 0003     0003      08     0048C1
 0003     0003      08     0048C9
 0003     0003      08     0048E9
 0003     0003      08     0048F1
 0003     0003      08     0048F9
 0003     0003      08     004909
 0003     0003      08     004911

 0003     0003      08     004919
 0003     0003      08     004921
 0003     0003      08     004931

 0003     0003      08     004939
 0003     0003      08     004941
 0003     0003      08     004949
 0003     0003      0C     004ADC
 0003     0003      0C     004AE8
 0003     0003      08     004C39
 0003     0003      08     004D41
 0003     0003      08     004D49
 0003     0003      08     004D51
 0003     0003      0C     004E70
 0003     0003      0C     004E74
 0003     0003      0C     005124

 0003     0003      0C     005194

INIT                                              RELOCATION DICTIONARY                                        PAGE  174


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.01 08/28/78


 0003     0003      0C     0051A0
 0003     0003      0C     0051A4
 0003     0003      0C     0051B0
 0003     0003      0C     0051B4
 0003     0003      0C     0051B8
 0003     0004      1C     002FA4
 0003     0004      1C     003504
 0003     0005      24     003AC4
 0003     0006      1C     003AF4
 0003     0006      1C     005114
 0003     0007      1C     003AF8
 0003     0007      1C     004E88

 0003     0008      1C     003AFC
 0003     0009      0C     004E34

 0003     000A      08     004891

 0003     000A      08     004901
 0003     000A      0C     004DE8
 0003     000A      0C     004DF0
 0003     000A      0C     004DF4
 0003     000A      0C     004DFC
 0003     000A      0C     004E5C
 0003     000A      0C     004E60
 0003     000B      1C     004E04
 0003     000C      1C     004E10
 0003     000C      1C     0050CC
 0003     000C      1C     0051C0
 0003     000D      1C     004E38

 0003     000E      1C     004E50
 0003     000F      1C     004E54
 0003     0010      1C     004E8C

 0003     0011      18     004EA8
 0003     001A      1C     004F58
 0003     001B      1C     004F6C
 0003     001C      1C     004F80
 0003     001D      1C     004F84
 0003     001E      1C     004F88
 0003     001F      1C     004F8C
 0003     0020      1C     0050DC
 0003     0021      1C     0050E4
 0003     0022      1C     0050EC
 0003     0022      1C     0051DC
 0003     0023      1C     0050F4

 0003     0024      1C     0050FC
 0003     0024      1C     0051F0
 0003     0025      1C     005104
 0003     0026      1C     00510C

 0003     0027      1C     00512C
 0003     0028      0C     004E00
 0003     0028      0C     0050C4
 0003     0028      0C     0050D4
 0003     0029      0E     0050D4
 0003     002A      0C     0050D4

 0003     002B      08     0048B1
 0003     002B      08     004929
 0003     002B      0C     00519C
INIT                                              RELOCATION DICTIONARY                                        PAGE  175


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.01 08/28/78

 0003     002C      1C     0051CC
 0003     002D      1C     0051D0
 0003     002E      1C     0051D4

 0003     002F      1C     0051D8
 0003     0030      1C     0051E0

 0003     0031      1C     0051E4
 0003     0032      1C     0051E8
 0003     0033      1C     0051EC
 0003     0034      1C     0051F4
 0012     0012      0C     00B264
 0012     0013      24     00B50C
 0012     0014      24     00B524
 0015     0015      0C     00B5D4

 0015     0016      24     00B89C
 0017     0017      0C     00B97C
 0017     0018      24     00BA84
 0019     0019      0C     00BB64


INIT                                              CROSS-REFERENCE                                              PAGE  176


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

$ALMSGSW 00001 00000040 00680  06838 07192

$ATTNENT 00004 0000015C 00934  06520
$ATTNSAV 00004 0000018C 00950  06521
$B       00001 00002FA0 07449  07450 07451 07452 07453 07454 07455
$BLKSEND 00008 00002FA0 07444  07340
$BUFPOOL 00004 000000E8 00884  06797
$B1      00001 00000000 07450  07451 07452 07453 07454 07455 07461
$B2      00001 00002710 07451  07452 07453 07454 07455 07461

$B3      00001 000007D0 07452  07453 07454 07455 07461
$B4      00001 00000064 07453  07454 07455 07461
$B5      00001 0000005A 07454  07455 07461
$B6      00001 00000002 07455  07461
$CKPTRAK 00002 000000D0 00876  05180

$CVTPTR  00001 00000010 01723  05006 06153 06453
$CYLMAP  00004 000000FC 00889  05020 05368 05408 05555 07098 07223
$DACKPT  00006 00000150 00924  05250 05276 05318 06009
$DADEBAD 00004 00004DE4 06050  04911 04995 05648 06030 06113

$DCBLIST 00004 00000104 00891  04912 05156
$DCTPOOL 00004 000000F0 00886  06276
$DCT1    00004 000000B8 03618  07365
$DCT10   00004 000004E0 03819  03808
$DCT11   00004 00000578 03858  03829
$DCT12   00004 00000590 03869  03868

$DCT13   00004 000005A8 03880  03879
$DCT14   00004 000005C0 03891  03890
$DCT15   00004 000005D8 03902  03901
$DCT16   00004 000005F0 03913  03912
$DCT17   00004 00000608 03924  03923

$DCT18   00004 00000620 03935  03934
$DCT19   00004 00000638 03946  03945
$DCT2    00004 000000F0 03645  03628
$DCT20   00004 00000650 03957  03956
$DCT21   00004 00000668 03968  03967

$DCT22   00004 00000680 03979  03978
$DCT23   00004 00000698 03990  03989
$DCT24   00004 000006B0 04001  04000
$DCT25   00004 000006C8 04012  04011
$DCT26   00004 000006E0 04030  04022

$DCT27   00001 00000000 04052  04040
$DCT3    00004 00000128 03664  03655
$DCT4    00004 00000160 03690  03674
$DCT5    00004 000001E8 03714  03700
$DCT6    00004 00000280 03735  03724

$DCT7    00004 00000318 03756  03745
$DCT8    00004 000003B0 03777  03766
$DCT9    00004 00000448 03798  03787
$DISALL  00001 000000C9 00871  04685 05005 06152 06172 06389 06503
$ENBALL  00001 000000C8 00870  04855 05103 05141 06170 06384 06394 06526
$EWBHOLD 00001 00000001 00617  04546 04580

$EWBIO   00001 00000001 00615  06931 07212
$EWFHOLD 00001 00000010 00594  04546 04580
$EWFIO   00001 00000040 00592  07212
$EWFPOST 00001 00000080 00581  04581

$EXCP    00004 0000006C 00825  07208
$EXITNOP 00002 0000002C 00790  00785 00786
INIT                                              CROSS-REFERENCE                                              PAGE  177


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

$FREEBUF 00004 0000003C 00801  07082 07085 07088

$FREEQUE 00004 00000108 00892  05018
$FREUNIT 00004 00000044 00806  07093
$GETBUF  00004 00000034 00799  06918 06921 06924
$GETSMFB 00004 000000A8 00849  06673
$GETUNIT 00004 00000040 00805  06928
$HASPECB 00004 000000D8 00879  06798

$HASPECF 00001 000000C4 00866  04581
$HASPJIT 00001 00000000 07364  05586 05603 07365
$HASPTCB 00004 000000D4 00878  05010 05650 06350 06479
$HNUCEND 00001 00000000 07344  07329

$HVT     00004 00000008 00779  04662
$I       00001 000082C0 07468  07469 07470 07471 07472 07473 07474
$INPUT   00001 00000020 01255  06944
$INRDCT  00004 000001E8 03713  00381 06065
$INRDEBL 00001 00005178 07358  04903 06192

$IOTTEST 00001 00000722 01417  01418
$I1      00001 00000000 07469  07470 07471 07472 07473 07474 07480
$I2      00001 00007530 07470  07471 07472 07473 07474 07480
$I3      00001 00000BB8 07471  07472 07473 07474 07480
$I4      00001 00000190 07472  07473 07474 07480
$I5      00001 00000046 07473  07474 07480
$I6      00001 00000002 07474  07480

$JCTTEST 00001 000005D0 01382  01383
$JITABLE 00004 000000F4 00887  05014
$JOBNO   00002 0000014C 00922  05439

$JOBQPTR 00004 0000013C 00918  05341 05343 05436 07063 07158
$JOBQUE  00001 00000000 05149  05581 05597 06053 06054 06054 06054 06077 06077
$JOEBUSY 00001 00000080 01470  07161 07165 07168
$JOECKV  00001 00000040 01471  07126
$JOT     00001 00000000 01511  05590 05608

$JOTABLE 00004 000000F8 00888  07115
$JQENT   00004 00000144 00920  05241 05347 05351 05438 06816 06934
$JQFREE  00004 00000140 00919  05352 05356 05437
$LINKENT 00004 00000170 00943  06509
$LNEDCT  00004 00000578 03844  00382 06066
$LSTBUF  00008 0000B260 04520  07369
$LSTPBUF 00008 00003A60 04484  07373
$NUCLEN  00001 00000010 00909  04666 04668

$NUCLENE 00001 0000000C 00937  04668
$NUCTABL 00004 0000012C 00904  00909 04666

$NUCTBLE 00004 0000015C 00933  00937 04668
$OLAYDCT 00004 000006E0 04029  00384 06067 07377
$OLINK   00004 0000008C 00836  04568
$OPTCOLD 00001 00000040 00664  05209 07307 07308
$OPTFMT  00001 00000080 00662  05209 05417 07305 07306

$OPTLIST 00001 00000008 00670  00751 04733 07313 07314
$OPTNFMT 00001 00000000 00663  00751 07305 07306
$OPTNLST 00001 00000000 00671  07313 07314
$OPTNREP 00001 00000000 00669  00751 07311 07312
$OPTNREQ 00001 00000000 00667  07309 07310
$OPTNTRC 00001 00000000 00673  07315 07316
$OPTRACE 00001 00000004 00672  00751 07315 07316
$OPTREP  00001 00000010 00668  04686 07311 07312
$OPTREQ  00001 00000020 00666  00751 04574 06828 07182 07309 07310

INIT                                              CROSS-REFERENCE                                              PAGE  178



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

$OPTSTAT 00001 000000C1 00863  04574 04614 04657 04658 04686 04733 05209 05417 06680 06828 07182
$OPTSTD  00001 0000002C 00751  04614
$OPTWARM 00001 00000000 00665  00751 07307 07308
$OREPS   00001 00002F68 04434  00386 06057

$ORET    00004 00000088 00835  06840 07194
$OROLLAD 00001 00000000 04961  06068
$OUTPUT  00001 00000004 01258  07028
$OXCTL   00004 00000090 00837  06401 06689 06823
$PCEORG  00004 000000E4 00883  04539 04578 06129
$PRCHKPT 00004 00000124 00899  05019 05445 07117
$PRTDCT  00004 000000F0 03644  06063
$PRTDEBL 00004 0000516C 07352  04893 06245
$PUNDCT  00004 00000160 03689  06064
$PUNDEBL 00001 00005190 07361  04898 06255

$PURGE   00001 00000000 01261  07036 07067 07159 07173

$QREM    00004 00000054 00813  06949
$QUESMFB 00004 000000A4 00848  06682
$RDRDCT  00004 000000B8 03617  06062
$RDRDEBL 00001 00005174 07355  04888 05071 06270

$RDRPEND 00001 00000080 00679  06500
$REPRDR  00001 0000000C 00753  04714 04723 04725
$REPWTR  00001 0000000E 00754  04740 04742
$RMTDCT  00004 00000578 03849  00383
$SAVEBEG 00004 0000013C 00917  00926 05227 06012
$SAVEEND 00001 0000015C 00925  00926
$SAVELEN 00001 00000020 00926  05227 05228 05577 06012 06013
$SMFFREE 00004 0000011C 00897  05016
$STATENT 00004 0000012C 00905  06477
$STATUS  00001 000000C2 00864  06500 06838 07192
$SVCIOS  00004 00000178 00945  06507

$SVCRSET 00004 00000138 00908  05106
$SVCTABV 00004 00000160 00935  06506
$SVCWTL  00004 00000188 00949  06516
$SVCWTO  00004 00000184 00948  06513

$TEDADDR 00004 00000100 00890  05161
$TPBPOOL 00004 000000EC 00885  05014 05014
$VERSION 00008 00000000 00775  06485
$WAIT    00004 00000030 00795  06134 07213
$WAITENT 00004 0000016C 00942  06508
$XCTLENT 00004 00000174 00944  06511
$XEQ     00001 00000040 01254  06962
$1STBUF  00008 00003A60 04490  04522 04561 04593 07368
$1STOACE 00008 00002FA0 04440  00385
$1STPBUF 00008 00003A60 04483  07365 07372
BASE1    00001 0000000B 00555  00773 04534
BASE2    00001 0000000C 00556  04525 04527 04528 04553 04569 04570 04571 04572 04575 04585 04590 05137 05630 05631 06101

                               06102 06103
BASE3    00001 00000008 00553  06145 06226 06448 06672 06731 06909 07092
BUFCHAIN 00004 00000028 01047  06797 06845 06877

BUFDSECT 00001 00000000 01023  01275 01388 04561 04593 04791 05156 06145 06227 06448 06731 06797 06844 06870 06895 06909
                               07043 07060 07209 07221 07229
BUFECBCC 00001 00000028 01046  07043 07060 07209
BUFSTART 00008 00000058 01062  01069 01075 01275 01388 04561 04593 04797 06847 06866 06870 06895 07221 07229
CVTCRTTR 00003 000000B8 01826  01839
CVTCUCB  00004 00000064 01778  06459
INIT                                              CROSS-REFERENCE                                              PAGE  179


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

CVTDSECT 00001 00000000 01724  05007 05652 06154 06459
CVTILK2  00004 00000028 01755  05021 06154
CVTPTR   00001 00000010 01732  05651
CVTTCBP  00004 00000000 01739  05008

CVTUSER  00004 000000CC 01850  01851

CVTXAPG  00004 00000014 01746  05653
CVTXTNT1 00001 00000114 01930  01903

CVTZDTAB 00004 00000040 01766  05654
CYLMAP   00004 00000000 03606  06073
DCBBIT0  00001 00000080 02000  02121 02137 02176 02194 02239 02249 02265 02306 02316 02328 02351 02382 02385 02387 02389
                               02412 02415 02435 02440 02459 02496 02549 02572 02604 02608 02621 02716 02719 02729
DCBBIT1  00001 00000040 02001  02122 02138 02195 02203 02239 02249 02267 02307 02317 02330 02352 02354 02364 02382 02385
                               02388 02389 02417 02435 02438 02440 02462 02463 02464 02499 02500 02549 02574 02610 02612
                               02624 02668 02716 02721 02730
DCBBIT2  00001 00000020 02002  02123 02139 02196 02205 02249 02268 02308 02318 02331 02333 02334 02352 02354 02359 02365
                               02382 02384 02391 02419 02442 02444 02467 02468 02469 02503 02504 02551 02577 02613 02629
                               02671 02675 02716 02731
DCBBIT3  00001 00000010 02003  02087 02124 02140 02210 02252 02269 02309 02331 02334 02336 02352 02367 02392 02422 02442
                               02446 02471 02472 02473 02507 02508 02551 02579 02581 02583 02615 02630 02671 02676 02716

DCBBIT4  00001 00000008 02004  02088 02141 02211 02255 02270 02310 02319 02368 02393 02423 02448 02454 02455 02476 02477
                               02511 02512 02514 02515 02553 02586 02631 02671 02677

DCBBIT5  00001 00000004 02005  02090 02142 02213 02256 02270 02311 02320 02369 02396 02398 02425 02448 02451 02452 02455

                               02480 02482 02483 02484 02518 02519 02520 02521 02553 02588 02591 02617 02633 02666
DCBBIT6  00001 00000002 02006  02092 02125 02143 02215 02257 02274 02312 02370 02372 02375 02396 02399 02426 02487 02488
                               02489 02490 02524 02525 02526 02527 02594 02635
DCBBIT7  00001 00000001 02007  02094 02126 02219 02259 02275 02313 02370 02373 02375 02401 02430 02492 02493 02530 02531
                               02533 02534 02619 02636 02678
DCBDEBAD 00004 0000002C 02547  04921 04981
DCBFDAD  00008 00000005 02021  02024
DCBIFLGS 00001 0000002C 02548  04927
DCBSSID  00008 00000000 02228  02231
DCBTIOT  00002 00000028 02541  04917
DCBWTOID 00004 00000000 02148  02163 02172
DCTBUFAD 00004 00000004 01090  06933

DCTCHAIN 00004 00000014 01104  04938 06280
DCTDA    00001 00000000 01160  03866 03877 03888 03899 03910 03921 03932 03943 03954 03965 03976 03987 03998 04009 04020
                               06121 06927

DCTDCB   00004 00000008 01092  04920 06278
DCTDEVTP 00001 00000012 01100  04925 04929 06121 06289 06297 06318
DCTDRAIN 00001 00000040 01142  03619 03646 03665 03691 03715 03736 03757 03778 03799 03820 04031 06292 06299 06340 06347
DCTDSECT 00001 00000000 01087  04884 04960 06112 06277 06930
DCTEWF   00004 0000000C 01096  04966 04967 06932
DCTHOLD  00001 00000020 01143  06292 06299 06347
DCTINR   00001 00000014 01165  03722 03743 03764 03785 03806 03827 06289
DCTINUSE 00001 00000080 01141  04964
DCTIOTYP 00001 00000013 01101  04968 07200 07203
DCTLNE   00001 00000002 01162  04925
DCTOLAY  00001 00000001 01161  04038 04929
DCTOTC   00002 0000001C 01106  04974 04998

DCTOTT   00002 0000001E 01107  05001
DCTPCE   00004 00000000 01089  04963
DCTPPSWC 00001 00000080 01223  03660 03679 03705
DCTPPSWO 00001 00000001 01230  03660 03679 03705

DCTPPSWT 00001 00000008 01227  03660 03679 03705
DCTPRT   00001 00000020 01166  03653 03672
INIT                                              CROSS-REFERENCE                                              PAGE  180


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

DCTPUN   00001 00000030 01168  03698
DCTRDR   00001 00000010 01163  03626 06297 06318

DCTREAD  00001 00000080 01175  04968 07200
DCTSEEK  00004 00000008 01093  06124 07048 07055 07205
DCTSTAT  00001 00000000 01088  04964 06292 06299 06340 06347
DCTWRITE 00001 00000040 01176  03867 03878 03889 03900 03911 03922 03933 03944 03955 03966 03977 03988 03999 04010 04021
                               07203
DEBAPPAD 00004 0000001C 02757  04924 05653 06031
DEBDCBAD 00004 00000018 02755  04923 06278
DEBDSECT 00001 00000000 02744  04883 04982 04997 05072 05649 06114 06278 06351 06352

DEBENDCC 00002 0000002A 02764  05693
DEBENDHH 00002 0000002C 02765  05681

DEBEXSCL 00001 0000001C 02756  04933
DEBNMEXT 00001 00000010 02749  04932
DEBNUMTR 00002 0000002E 02766  05691
DEBTCBAD 00004 00000000 02745  05650 06351
DEBUCBAD 00004 00000020 02759  04982 04997 05072 05699 06114 06352
DSCLOWLM 00004 000046FF 05530  05174 05479 05800
DSCUPPLM 00004 00004703 05531  05839 05983
E        00001 00000008 00569  04841 05084 05092 05094 05096 05098

HA$IIOVA 00001 0000B260 06140  06141
HA$IIOVB 00001 0000B5D0 06443  06444
HA$IIOVC 00001 0000B978 06726  06727
HA$IIOVQ 00001 0000BB60 06904  06905
HA$OIOVA 00001 0000B260 06139  06140 06143 06399

HA$OIOVB 00001 0000B5D0 06442  06443 06446 06687
HA$OIOVC 00001 0000B978 06725  06726 06729 06821
HA$OIOVQ 00001 0000BB60 06903  06904 06907

HA$Q$$$$ 00001 00000000 06413  06414
HA$QIOVA 00001 00000000 04565  04567
HA$QIOVB 00001 00000000 06398  06400
HA$QIOVC 00001 00000000 06686  06688
HA$QIOVQ 00001 00000000 06820  06822
HASPBLKS 00001 00000000 00374  00953 00987 01077 01136 01384 01419 01433 01443 01509 01524 01721 01940 01986 02741 02767
                               03602 07339 07340 07443 07449

HASPINGO 00002 00003A60 04524  00380 04573 04590 05631 06081 06082 06102 07376
HASPINIT 00001 00002FA0 04437  04439 04460 04489 04492 04494 04496 04498 04500 04502 04504 04506 04508 04510 04512 04514
                               04516 04518 04566 05720 07279 07340 07348 07463 07468
HASPIOVA 00004 0000B268 06144  06227
HASPNUC  00001 00000000 07344  06055 07327 07329

HASPNUC2 00001 00000000 07344  07329
HCTDSECT 00001 00000000 00771  00773
IHADCB   00001 00000000 01998  02046 02070 02098 02117 02147 02227 02288 02339 02408 02540 02557 02561 02567 02656 02662
                               02686 02707 02739 04881 04981

IHB0101A 00002 00003B42 04610  04603
IHB0105A 00002 00003BEC 04653  04646
IHB0107  00001 00003C28 04674  04677 04678
IHB0140A 00002 00004372 05268  05264
IHB0141A 00002 000043BA 05287  05283
IHB0142A 00002 00004408 05303  05299

IHB0154A 00002 00004672 05511  05507
IHB0156A 00002 000049B6 05623  05619
IHB0158A 00002 00004A46 05665  05661
IHB0163A 00002 00004B2E 05771  05767
IHB0165A 00002 00004BF0 05824  05820

INIT                                              CROSS-REFERENCE                                              PAGE  181


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

IHB0193  00004 0000B718 06563  06559
IHB0197  00004 0000B794 06602  06598
IHB0201  00004 0000B810 06642  06638

IHB0216A 00002 0000BAB0 06836  06832
IHB0231A 00002 0000BC4A 06987  06980
IHB0258A 00002 0000BE78 07190  07186
IOBCCW1  00008 00000038 01056  04445 04465 06851 06853 06854 06855 06856 06857
IOBCCW2  00008 00000040 01057  04455 04475 06859 06860 06861 06862 06863

IOBCCW3  00008 00000048 01058  06864 06865
IOBCCW4  00008 00000050 01061  06867 06869
IOBDCBPT 00004 00000014 01034  05156
IOBECBPT 00004 00000004 01029  06849
IOBFLAG1 00001 00000000 01024  06847 06847 06847 06848

IOBSEEK  00007 00000021 01043  06850 06858
IOBSTART 00004 00000010 01033  04445 04465 06852
IOBXTENT 00001 00000020 01042  04455 04475
IOTCYMAP 00100 00000070 01396  07050
IOTDSECT 00001 00000000 01387  07045

IOTJCTTR 00004 00000064 01393  01417 07046
IOTPDDB  00004 000000D8 01398  01417
IOTTRACK 00004 0000005C 01391  07048
JCT      00001 0000000A 00554  01274
JCTCYSAV 00100 00000104 01325  07010 07022

JCTDSECT 00001 00000000 01273  01274 06958 07062
JCTEND   00001 00000230 01347  01382
JCTINJCT 00004 00000064 01279  06959 07003 07013 07021
JCTIOTTR 00004 0000005C 01277  07040
JCTJMR   00056 000001F8 01328  01329

JCTJNAME 00008 00000070 01285  06974
JCTJQE   00004 00000058 01276  01382 07062
JOEACTPR 00001 00000018 01491  07143 07143
JOECKPT  00002 00000006 01473  07127
JOEDSECT 00001 00000000 01464  01484 01497 01508 07125
JOEFLAG  00002 00000002 01469  07126 07161 07165 07168

JOEJQE   00004 00000010 01479  07157
JOENEXT  00002 00000000 01468  07139 07153 07170
JOESIZE  00001 0000001C 01508  01521
JOTCHRQ  00002 0000000A 01518  07137

JOTCLSQ  00002 0000000C 01519  07151
JOTDSECT 00001 00000000 01512  01523 07116
JOTSIZE  00001 00000758 01523  05590 05608 05615
LINK     00001 0000000E 00558  04567 04753 04778 04841 04843 05068 05068 05071 05076 05076 06191 06192 06193 06193 06194
                               06244 06245 06246 06246 06247 06254 06255 06256 06256 06257 06269 06270 06271 06271 06272

                               06400 06671 06672 06682 06688 06822 06840 06918 06921 06924 06928 07082 07085 07088 07091
                               07092 07194 07208
N$#CAN   00004 00003AFC 04588  07171
NBUFSIZ  00004 0000BB38 06886  06760
NBUFSIZE 00002 0000BB3C 06888  06868
NCARD    00004 00000008 07347  04706 04712 04744 04746 04748 04750 04751 04751 04752 04754 04758 04759 04761 04762 04769
                               04771 04773 04774 04774 04775 04775 04776 04777 04794 04802 04812 04813 04815 04822 04824

                               04836 07346
NCATERM  00004 0000B578 06427  06284
NCKSPOL1 00004 000040E0 05060  05039

NCOMMENT 00004 00003AF4 04586  04570
NCOMMPCE 00004 00004F58 07281  04550
INIT                                              CROSS-REFERENCE                                              PAGE  182


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

NDAALLOC 00004 000040C2 05052  05063

NDADUPS  00004 000040A2 05044  05050
NDAEM1   00004 00004184 05121  05115
NDAEM2   00004 000041B0 05126  05117
NDAERR1  00004 00004174 05115  05041
NDAERR2  00004 0000417C 05117  05048 05061
NDAINIT  00002 000041F2 05139  05030
NDAOUT   00004 00004110 05079  05116 05118 05631 06149
NDAOUTC  00004 00004152 05100  05082

NDAOUTL  00004 0000411C 05083  05101
NDASETV  00004 000040BE 05051  05046

NDATRES  00004 00004136 05091  05089
NDCBDEB  00002 00003F2C 04915  04889 04894 04899 04904 04908 04913
NDCDEDUM 00004 00003F8C 04942  04917
NDCDEEND 00002 00003FBC 04954  04914
NDCDE1   00006 00003F30 04917  04939

NDCDE2   00004 00003F60 04929  04926
NDCDE3   00004 00003F70 04934  04930
NDCDE4   00004 00003F78 04936  04928
NE       00001 00000007 00567  05032 05035 05992 06163 06380
NECBRSET 00004 0000B7EA 06628  06626
NEWTO    00006 0000B8A2 06691  06588 06627 06666
NEWTOM   00004 0000B8D0 06701  06694
NEWTON   00001 0000B8D9 06705  06693
NEWTOT   00001 0000B7CE 06698  06692

NEWTOV   00001 0000B8F1 06706  06691 06692

NFIXECB  00004 00003FB8 04952  04919 04920 04923
NGAASPOL 00004 00004820 05534  05463 05467
NGACTR   00002 0000481E 05533  05480 05484
NGAERR   00004 0000463A 05502  05172 05478
NGALLOC  00004 000045A0 05462  05274 05325 05415

NGASPX   00004 00004636 05501  05496
NGATAB   00010 0000467A 05517  05503
NGAWTO   00004 00004648 05507  05515 05516
NGAWTOZ  00004 00004670 05516  05504
NGBITMAP 00002 0000483C 05547  05384 05425
NGBOI    00004 00004878 05568  05560
NGBT     00008 00004870 05567  05559
NGB010   00004 00004852 05559  05565
NGB020   00004 0000486A 05565  05563
NGCKF    00006 00004970 05612  05175 05218 05596

NGCKLN   00001 000006B4 05577  05581 05597 05612

NGCKMSG  00004 00004990 05619  05221 05625
NGCKMSGW 00006 00004988 05616  06026
NGCKMSGZ 00004 000049A5 05625  05616
NGCKRD   00008 00004880 05578  05745

NGCKSW   00008 00004958 05609  05176 06021
NGCKWR   00008 000048E8 05593  06022
NGCK2F   00006 00004978 05614  05190 05601
NGCK2SR  00008 000048D8 05591  05191 05582 05583
NGCK2SW  00008 00004960 05610  05192 05598 05599
NGCK3F   00006 00004980 05615  05204 05607
NGCK3SR  00008 000048E0 05592  05205 05587 05588
NGCK3SW  00008 00004968 05611  05206 05604 05605
NGCOLD   00002 0000451C 05407  05210 05243
INIT                                              CROSS-REFERENCE                                              PAGE  183


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78


NGC010   00004 00004528 05412  05426
NGC019   00004 0000455C 05426  05416
NGC020   00004 00004560 05432  05414
NGDACKPT 00002 00004830 05538  05374 05482 05489 05494 05499 06009

NGDEBSET 00002 00004A00 05645  05165 05338
NGDSN    00044 00004694 05527  05524
NGD1     00004 00004A4C 05671  05658 05702
NGD3     00004 00004AB2 05703  05673
NGECB    00004 00004AD4 05739  05732 05735 05742
NGEXCP   00004 00004AB8 05729  05219 05815 05987 06024
NGEXIT   00004 00004D60 06007  05387 05453
NGFCFLDS 00004 00004C4C 05852  05798 05805
NGFDATL  00001 00004C48 05851  05792
NGFL     00002 00004C40 05850  05800 05806 05814 05829 05834 05836 05838 05839
NGFORMAT 00002 00004B04 05762  05328 05420
NGFREE   00004 00004C2C 05842  05778

NGFSRCH  00008 00004C38 05848  05785
NGF010   00004 00004B70 05793  05796
NGF020   00004 00004B8E 05804  05840

NGF021   00004 00004B9A 05807  05810
NGF022   00004 00004BC0 05820  05826
NGF022Z  00004 00004BDD 05826  05817
NGF023   00004 00004BF8 05829  05816
NGF024   00004 00004C0A 05834  05832
NGF025   00006 00004C1E 05839  05835
NGF1     00004 00004B0C 05767  05773
NGF1Z    00004 00004B19 05773  05764 05817
NGIKDD   00001 00004AFB 05754  05983 05984 05990 05991
NGIMBB   00001 00004AF8 05750  05754
NGIOB    00004 00004AD8 05740  05156 05218 05473 05579 05594 05729 05782 05814 05841 05848 05986 05995 06021 06023
NGMAP    00002 00004C50 05863  05379 05421

NGNRT    00002 00004CA6 05920  05677

NGNRTRET 00004 00004D04 05972  05921 05969
NGNRT1   00002 00004CCA 05939  05937

NGNRT2   00004 00004CDE 05952  05949
NGNRT3   00002 00004CEA 05955  05953
NGQUIT   00004 00004412 05308  05272 05290 05306 05322 05331 05513 05827 06007
NGQUITM  00004 000049D0 05633  05626
NGQUITT  00004 000049B8 05626  05173 05308 05667
NGRCP    00008 00004D40 05995  05985
NGRCT    00008 00004D58 05998  05991 05997
NGREADCT 00002 00004D10 05982  05293 05327 05419
NGSEARCH 00004 00004684 05519  05168 05475
NGTG0    00004 000044C4 05376  05386
NGTG1    00004 000044E4 05385  05381
NGTG9    00004 000044EC 05387  05378

NGVOL    00004 00004661 05515  05166 05462 05495 05525
NGWDBL   00008 000044F0 05388  05174 05175 05176 05177 05179 05181 05186 05188 05189 05190 05191 05192 05194 05195 05200

                               05202 05203 05204 05205 05206 05208 05479 05485 05487 05490 05492

NGWKA    00008 000046C0 05528  05526
NGWSPOOL 00002 00004824 05536  05337 05534
NGWTAB   00001 000044F4 05390  05260
NGW010   00004 00004326 05250  05307
NGW011   00004 00004332 05254  05256
NGW012   00004 00004354 05264  05270 05271
INIT                                              CROSS-REFERENCE                                              PAGE  184


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

NGW012A  00004 00004367 05270  05257
NGW012B  00004 0000436E 05271  05261
NGW015   00004 0000437C 05274  05255
NGW016   00004 0000439C 05283  05289

NGW016A  00004 000043B9 05289  05280
NGW017   00002 000043C4 05292  05279
NGW018   00004 000043D0 05296  05294

NGW018A  00004 000043D4 05299  05305
NGW018B  00004 000043F8 05305  05296
NGW019   00004 0000440E 05307  05273 05275 05291 05295
NGW020   00002 00004416 05313  05252
NGW021   00004 0000441A 05315  05321 05324 05330
NGW022   00004 0000443A 05324  05319
NGW029   00002 0000444E 05329  05326
NGW030   00006 00004458 05337  05317 05323
NGW031   00004 00004482 05352  05349
NGW032   00004 00004492 05357  05354 05363
NGW033   00004 000044A6 05363  05360
NGW040   00002 000044AA 05367  05342

NGXTGS   00004 00004DE0 06049  05382 05383 05422 05424 06036
NGZ      00001 00000000 05706  05656
NGZA     00002 0000000C 05718  05684
NGZC     00002 00000000 05707  05687

NGZF     00001 00000009 05714  05936 05948 05952
NGZFT    00001 00000001 05715  05948
NGZF2305 00001 00000008 05716  05936 05952
NGZH     00002 00000002 05708  05679
NGZL     00001 00000007 05712  05935
NGZNL    00001 00000006 05711  05954

NGZO     00002 00000006 05710  05938
NGZR     00002 00000004 05709  05964
NGZT     00002 0000000A 05717  05950
NGZU     00001 00000008 05713  05928
NG1      00004 00004286 05189  05184
NG2      00004 000042C4 05203  05198
NHASPBR1 00008 0000B956 06717  06591
NHASPCOD 00004 00004F90 07297  04661

NHCTLIST 00004 00005194 07365  05014
NHEXTAB  00001 0000506F 07349  04750 04763 04773

NHOLDL   00004 00003A84 04540  04549
NIBLCOLD 00002 0000BA8A 06824  06818
NIBLDAB  00004 0000BA46 06802  06815
NIBLDBUF 00004 0000BABA 06845  06806 06812 06876
NIBLDBUG 00002 0000BA32 06791  06779
NIBLDCKM 00006 0000B9F4 06778  06774
NIBLDFRE 00002 0000B9E8 06773  06755 06767
NIBLDM   00006 0000BA18 06788  06783

NIBLDMB  00004 0000BA5A 06808  06801 06804
NIBLDRES 00004 0000BB40 06890  06754
NIBLDSVC 00002 0000BA30 06790  06785 06786
NIBLDTST 00004 0000BA70 06814  06810
NIBLDW   00008 0000BB50 06893  06782 06783

NINITWTO 00002 00004EB2 06099  06044
NINOREQ  00004 0000BAB6 06840  06829
NL       00001 0000000B 00571  06190

INIT                                              CROSS-REFERENCE                                              PAGE  185


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

NLINKSVC 00004 00004F88 07294  06510
NLSTBUFA 00004 000051AC 07371  06747 06771
NMAXDA4  00002 00004F5C 07283  05040
NMCORE   00004 0000BB44 06892  06735
NNOREP   00004 00003E94 04855  04687

NNOTR20  00004 0000B5F8 06464  06462
NOINRS   00002 0000B2F4 06199  06189 06191 06194
NOLA1    00006 00004ED6 06119  06126
NOLA2    00004 00004EF2 06126  06120
NOLIB    00004 000051F8 07396  04979 04981 04987

NOLIBDD  00008 00004F60 07284  04970
NOLIBEM1 00004 0000B528 06416  06148
NOLIBTAG 00002 0000B524 06414  06147
NOPRTS   00002 0000B518 06405  06241 06244 06247
NOPTAREA 00100 00004F94 07298  04604 04605 04613 04619 04642 04642 04647 04648
NOPTECB  00004 00004FFC 07299  04606 04616 04643 04649
NOPTEND  00002 000050B0 07322  04637
NOPTNULL 00004 00005000 07300  04622
NOPTORG  00002 00005010 07304  04636 04637
NOPTPARM 00004 00005008 07301  04635 04639
NOPTSCN1 00004 00003B5E 04622  04660
NOPTSCN2 00004 00003B62 04623  04629 04633

NOPTSCN3 00004 00003B8E 04635  04625 04627
NOPTSCN4 00004 00003B9A 04638  04641
NOPTSCN5 00006 00003BF2 04657  04640

NOPTWAIT 00004 00003B44 04613  04655
NOPUNS   00002 0000B51A 06406  06251 06254 06257
NORDRS   00002 0000B51C 06407  06261 06269 06272
NOVERLAY 00004 00004F78 07289  06522

NP       00001 0000000D 00574  05552
NQ       00001 00000003 06939  06934 06940 06940 06942 06944 06947 06948 06950 06955 06962 06969 07004 07009 07025 07028
                               07033 07034 07036 07046 07064 07067 07072 07072 07073 07073 07117 07121 07123 07129 07131
                               07132 07132 07157 07158 07159 07169 07173 07244
NQ$ALSTA 00004 00003AF8 04587  07109
NQALLOC  00002 0000BEAA 07219  07011 07051

NQBADJ   00001 0000BF7B 07272  07015 07059
NQBF     00001 00000005 06915  06925 06933 06958 07043 07045 07060 07062 07084 07149 07151 07177 07178 07209
NQCHECK  00004 0000BE98 07209  07214
NQCT1    00004 0000BD7E 07102  07108
NQCT2    00002 0000BD86 07104  07107

NQDBL    00008 0000BF08 07259  07245 07246 07246 07248
NQDCT    00001 00000004 06916  06929 06930 07090 07207
NQECB    00004 0000BFCC 07275  06975 06977
NQEDMSK  00005 0000BF3B 07265  07247 07261
NQENDX   00001 0000BF4E 07269  06964

NQEXCP   00002 0000BE8E 07204  07201
NQEXEC   00001 0000BF5C 07270  06971
NQIBAD   00001 0000BF98 07273  07042 07053
NQJOBNR  00005 0000BF18 07263  06973 07247 07248
NQMSG    00004 0000BF10 07260  07255 07261

NQMSG2   00030 0000BF1D 07264  07249 07250 07250 07258
NQPRPU   00001 0000BFB5 07274  07163
NQPURGM  00001 0000BF6A 07271  07037
NQRDRM   00001 0000BF40 07268  06943
NQREAD   00002 0000BE82 07199  06956 07005 07041

INIT                                              CROSS-REFERENCE                                              PAGE  186


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

NQREM    00002 0000BE36 07167  07160
NQREPLY  00004 0000BFD0 07276  06976 06999 07001
NQUIKOUT 00004 0000415A 05103  04835
NQWK     00001 00000007 06914  06922 07087 07119 07133 07221 07229

NQWRITE  00002 0000BE8A 07202  07014 07026 07056
NQWTO    00002 0000BECC 07243  06946 06965 06972 07016 07038 07054 07066 07164
NQWTOMVC 00006 0000BF02 07258  07253
NQ010    00002 0000BB96 06940  06951 07074

NQ020    00004 0000BBC2 06955  06945
NQ030    00002 0000BBEC 06968  06961
NQ031    00004 0000BC10 06977  07002
NQ032    00004 0000BC14 06980  06993 06994
NQ032A   00004 0000BC3A 06993  06973

NQ032B   00008 0000BC40 06994  06974
NQ040    00002 0000BC86 07008  06970
NQ050    00002 0000BCAA 07019  07000
NQ090    00002 0000BCC2 07027  06966
NQ1STBUF 00004 0000BFD4 07277  06919 07080
NQ100    00002 0000BCC6 07032  06963
NQ110    00002 0000BCDE 07039  07035

NQ780    00004 0000BD26 07059  06957 07006
NQ790    00004 0000BD3E 07066  07044 07047 07049 07061
NQ800    00002 0000BD46 07071  07012 07017 07052 07057

NQ900    00002 0000BD52 07079  06941
NQ910    00002 0000BDAE 07120  07133
NQ920    00002 0000BDD0 07130  07122
NQ930    00002 0000BDE0 07138  07144
NQ940    00002 0000BDF8 07148  07141

NQ950    00002 0000BDFC 07150  07174 07178
NQ960    00002 0000BE00 07152  07162 07166
NQ970    00002 0000BE4E 07176  07155
NQ990    00004 0000BE7E 07194  07183
NREPADDR 00004 00003D6E 04769  04760
NREPBLNK 00006 00003DE0 04802  04772
NREPCCW  00008 00000000 07346  04708 04709 04711 04718 04720 04735 04737
NREPDATA 00004 00003D4A 04761  04747 04749

NREPDO   00004 00003E4C 04831  04801 04805
NREPEM1  00004 000041D8 05131  04834

NREPEND  00004 00003E80 04847  04728 04745
NREPHW   00006 00003D52 04763  04768
NREPIO   00001 00000000 07345  04704
NREPLIST 00004 00003CE4 04735  04741
NREPMOD  00004 00003E66 04837  04753 04778

NREPMVC1 00006 00003E60 04836  04831
NREPM1   00004 00003E6E 04839  04842
NREPOERR 00004 00003E58 04834  04821 04829
NREPOMOR 00004 00003E16 04817  04811
NREPORES 00004 00003DA8 04783  04780
NREPOR1  00004 00003DB2 04787  04793 04795
NREPOV   00004 00003E1E 04819  04789 04816
NREPOV1  00004 00003E40 04827  04818
NREPREAD 00004 00003CA6 04718  04713 04724 04803 04833

NREPRES  00002 00003DDA 04800  04782

NREPSCAN 00006 00003D02 04744  04734
NREPTABE 00002 00005130 07343  04838
INIT                                              CROSS-REFERENCE                                              PAGE  187


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

NREPTABL 00004 000050B0 07324  04688 04837 04838

NREPTIO  00004 00003CBC 04725  04726
NREPTIOL 00004 00003CFA 04742  04743
NREPWAIT 00004 00003C96 04714  04715 04717 04730 04732
NROOTEND 00002 00003B00 04598  04555
NROOTL   00004 00003ADE 04580  04584
NROOTSEG 00002 00003AC2 04567  04551
NSAVE    00004 00004F10 07280  04530 04971 04974 05111 06130
NSEGLOC  00001 0000000A 04561  04594
NSEGLOCA 00008 00000760 04593  04594
NSKPHOLD 00004 00003AA0 04547  04541 04543 04545

NSMFHASP 00002 0000B966 06719  06678

NSMFNAM  00008 0000B95E 06718  06630
NSMFSET  00004 0000B862 06667  06665
NSPOOL   00005 00004F70 07287  05034
NSPOOLL1 00002 000041FC 05155  04991 04993 05044 05060 05062 05079 05158 05254 05277 05315 05337 05374 05376 05412 05464

                               05481 05488 05493 05497 05500 05628 05657 05671 05698 05763 05864 05880 06041
NSPOOSAV 00006 00004DC8 06047  05158 05628 06041
NSTINITV 00004 0000B914 06712  06535 06536 06539
NSTMVTI  00006 0000B6C4 06535  06544
NSTRBRDL 00001 00000016 06714  06713
NSTRBRDR 00004 0000B938 06713  06532 06714
NSTRDRV  00004 0000B8F8 06711  06528
NSXEQPCE 00004 0000B642 06494  06498
NUMBUF   00002 0000BB5A 06897  06781 06808 06813
NUMBUFA  00002 0000BB5C 06898  06765 06778 06780 06802 06807 06814
NUMBUFM  00002 0000BB5E 06900  06778

NURASOFF 00004 0000B48C 06348  06341
NURAVAIL 00004 0000B488 06347  06319 06335 06339
NURB     00004 0000B208 06227  06229 06230 06231 06232 06233 06234 06235 06236
NURDCTL  00006 0000B3C0 06278  06283

NURDRAIN 00002 0000B490 06349  06293 06296 06305 06307 06321 06327 06333
NUREADER 00004 0000B39C 06261  06229 06230 06231
NUREAL   00002 0000B318 06217  06174 06179
NUREND   00002 0000B506 06392  06160
NURERR   00004 0000B4E6 06379  06243 06253 06263
NURFDCT  00002 0000B3E0 06287  06279
NURFND   00004 0000B29E 06165  06181 06212
NURFNDR  00004 0000B334 06225  06221
NURGMA   00004 0000B514 06404  06364 06374
NURLDCT  00004 0000B3BC 06276  06198 06248 06258
NURLOOKR 00006 0000B320 06220  06223
NURNARDR 00002 0000B40C 06303  06298

NURNINR  00004 0000B3F4 06295  06290
NURN2520 00002 0000B2F6 06200  06187
NUROSWTR 00002 0000B522 06412  06202

NUROUT   00002 000040F0 05066  06285
NUROUTC  00004 00004108 05076  05074
NUROUTL  00004 000040F6 05071  05077
NURPRINT 00002 0000B35C 06239  06235 06236
NURPRTM  00001 0000B5A5 06432  06242
NURPSONL 00004 0000B302 06205  06203
NURPUNCH 00004 0000B37C 06251  06232 06233 06234
NURPUNM  00001 0000B5B3 06434  06252
NURRDCCW 00008 0000B480 06342  06322
INIT                                              CROSS-REFERENCE                                              PAGE  188


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

NURRDCST 00004 0000B464 06336  06328

NURRDHLD 00004 0000B474 06340  06337

NURRDRM  00001 0000B5C1 06436  06262
NURRDSIO 00004 0000B42C 06322  06329

NURRDTIO 00004 0000B44C 06330  06334
NURTAB   00002 0000B33C 06228  06218 06237
NURTCSW  00004 0000B310 06211  06180
NURTN    00001 00000008 06237  06219
NURWTOL  00004 0000B550 06421  06386
NURWTOV  00001 0000B55F 06425  06382
NVERSION 00008 0000B968 06721  06485
NWTOLSVC 00004 00004F84 07293  06514 06517
NWTOROUT 00002 0000416A 05110  04620
NWTRNAM  00008 0000B94E 06716  06546 06557
NWTRPARM 00004 00004F68 07285  06204 06552
NWTRSET  00004 0000B76C 06589  06586

NXCTLSVC 00004 00004F8C 07295  06512
N1STBUF  00004 000051A0 07368  06800 06811

N1STBUFA 00004 000051A8 07370  06736 06748 06753 06753 06768 06799

O        00001 00000001 00562  04575 05037 05736
OACEASMO 00004 0000005C 01065  04796
OACENAME 00004 00000058 01063  04794
OACEPROG 00004 00000060 01067  06145 06227 06448 06731 06909
OACE2    00008 00003500 04461  04453
OACE3    00001 00000000 04480  04473
OLAYBUF  00001 00000040 01083  04451 04471
OREPEND  00001 00002F9A 04435  06060
OTBADDR  00004 00000000 01437  04790
OTBDSECT 00001 00000000 01436  01442 04784
OTBSIZE  00001 00000004 01442  04787
P        00001 00000002 00564  05893

PCEASYID 00001 00000000 01007  04540
PCEBASE2 00004 00000044 00978  04553 04571 06068
PCECONID 00001 0000000A 01017  04542

PCEDSECT 00001 00000000 00956  00958 04538 04563 04577 06068 06128 06491 06497
PCEEWF   00002 00000048 00979  04546 04580 06931 07212
PCEID    00002 0000004A 00980  04540 04542 04544 06494
PCELINK  00004 0000000C 00963  06133
PCENEXT  00004 00000008 00962  04547 04582 06495
PCER15   00004 00000010 00964  04552
PCETIMID 00001 0000000C 01019  04544
PCEWF    00004 00000030 00972  04554
PITCLASS 00001 00000008 01452  01453
PITICLAS 00001 00000001 01448  06535 06536
PITLAST  00001 00000001 01462  06542
PITLNGTH 00001 00000014 01453  06543

PITSTAT  00001 00000000 01447  06542
PRCFLAGS 00001 00000004 01531  07121 07129 07129 07131
PRCHKJOB 00001 00000040 01545  07121
PRCHKPT  00028 00000064 03611  06053 06072

PRCKJOE  00001 00000002 01530  07123
PRCSIZE  00028 0000001C 01540  03611 05577 06095 07129 07132
QENTBY   00001 00000080 01253  06944 07009 07033
QUECHAIN 00001 00000004 01243  05357 05362 06948 07072
QUEFLAGS 00001 00000004 01242  06942 07034
INIT                                              CROSS-REFERENCE                                              PAGE  189



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

QUEHOLD2 00001 00000020 01267  06942
QUEJCTSW 00001 00000002 01271  06942
QUEJOBNO 00001 00000002 01241  07244
QUEPURGE 00001 00000010 01268  07034
QUETRAK  00001 00000008 01244  06955 06969 07004 07025 07046
QUETYPE  00001 00000001 01240  06944 06962 07009 07028 07033 07036 07067 07159 07173
RIDUCB   00004 00000038 01120  06291

R0       00001 00000000 00525  04622 04631 04635 04662 04755 04755 04769 04770 04779 04779 04785 04786 04788 04838 04842
                               04886 04891 04896 04901 04906 04909 04915 04915 04939 05228 05233 05376 05377 05377 05380

                               05382 05383 05445 05450 05469 05470 05483 05484 05554 05557 05698 05699 05777 05778 05791
                               05796 05804 05810 05842 05871 05871 05872 05873 05873 05884 05885 06013 06018 06219 06223
                               06357 06360 06362 06527 06527 06531 06531 06538 06538 06552 06553 06752 06772 06773 06773
                               06959 06960 06960 06969 07020 07020 07021 07062 07063 07064 07097 07097 07106 07110 07111
                               07177 07233 07237 07244 07245
R1       00001 00000001 00526  04551 04552 04577 04578 04582 04583 04583 04589 04622 04632 04635 04661 04666 04668 04697
                               04698 04701 04706 04708 04710 04711 04720 04722 04737 04739 04752 04754 04757 04758 04762
                               04763 04764 04766 04766 04767 04777 04807 04807 04808 04809 04809 04810 04813 04814 04815

                               04817 04840 04871 04880 04881 04882 04912 04919 04936 04936 04941 04981 04982 04995 04997
                               05115 05117 05177 05178 05179 05180 05181 05182 05182 05183 05185 05185 05189 05193 05194
                               05195 05196 05196 05197 05199 05199 05203 05207 05208 05231 05233 05237 05241 05242 05242
                               05276 05278 05358 05359 05359 05368 05370 05370 05447 05450 05452 05452 05463 05465 05466
                               05466 05467 05468 05472 05481 05482 05485 05486 05487 05488 05489 05490 05491 05492 05493

                               05494 05503 05504 05558 05559 05561 05561 05562 05626 05648 05649 05701 05701 05763 05764
                               05782 05783 05783 05784 05785 05786 05786 05789 05794 05794 05795 05797 05798 05805 05808

                               05808 05809 05841 05864 05865 05865 05867 05867 05868 05875 05875 05891 05985 05986 06016
                               06018 06020 06022 06023 06030 06037 06039 06051 06111 06112 06127 06146 06147 06218 06220
                               06222 06222 06225 06225 06226 06242 06252 06262 06284 06322 06323 06324 06325 06326 06330
                               06331 06332 06379 06381 06382 06479 06480 06481 06481 06490 06491 06495 06496 06520 06521
                               06522 06528 06532 06539 06552 06580 06620 06659 06668 06670 06683 06694 06748 06768 06770
                               06771 06785 06816 06817 06817 06919 06922 06925 06927 06929 06931 06932 06943 06947 06955
                               06964 06971 07003 07004 07010 07013 07015 07022 07024 07024 07025 07037 07040 07042 07050
                               07053 07055 07059 07080 07084 07087 07090 07098 07099 07102 07109 07110 07111 07163 07169

                               07205 07207 07221 07225 07229 07235 07251 07258 07290 07291
R10      00001 0000000A 00535  00554 04697 04851 05651 05652 05654 05655 05922 05923 06946 06956 06957 06965 06972 06976
                               06989 07005 07006 07011 07014 07016 07026 07038 07041 07051 07054 07056 07065 07066 07164
                               07210 07238 07257
R11      00001 0000000B 00536  00555

R12      00001 0000000C 00537  00556 04526 05112 05150 05151 06051 06133
R13      00001 0000000D 00538  00557 04526 04531 04532 04533 05111 05112 05165 05172 05226 05227 05228 05274 05293 05325
                               05327 05328 05338 05384 05415 05419 05420 05425 05501 05514 05552 05566 05704 05828 05846

                               05989 05992 05993 06011 06012 06013
R14      00001 0000000E 00539  00558 00791 04526 04569 04573 04589 04783 04784 04785 04786 04787 04787 04788 04798 04889
                               04894 04899 04904 04908 04913 04916 04940 05082 05084 05092 05094 05096 05098 05107 05112
                               05113 05219 05226 05237 05379 05421 05656 05671 05672 05672 05674 05736 05737 05815 05869
                               05893 05895 05922 05922 05923 05987 06011 06020 06024 06051 06130 06131 06132 06133 06758
                               06759 06760 06762 06806 06812 06878 06949 07172
R15      00001 0000000F 00540  00790 00790 04527 04530 04531 04532 04533 04538 04539 04547 04548 04548 04550 04556 04568

                               04663 04757 04781 04790 04791 04792 04792 04797 04798 04799 04800 04837 04839 04839 04840
                               04874 04874 04882 04883 04921 04934 04937 04937 04941 05044 05047 05052 05053 05054 05062
                               05071 05072 05079 05083 05085 05100 05100 05106 05108 05170 05170 05230 05231 05448 05448
                               05477 05477 05480 05482 05483 05489 05494 05502 05503 05555 05556 05557 05564 05564 05568
                               05646 05646 05671 05698 05702 06015 06016 06192 06245 06255 06270 06278 06351 06352 06375

                               06375 06401 06689 06749 06749 06761 06823 07171 07172 07213 07223 07225 07235 07251 07252
                               07253 07290
R2       00001 00000002 00527  00546 05186 05187 05187 05188 05200 05201 05201 05202 05277 05278 05340 05341 05350 05355
INIT                                              CROSS-REFERENCE                                              PAGE  190



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

                               05361 05380 05408 05410 05410 05423 05433 05433 05434 05435 05438 05439 05442 05444 05464
                               05465 05497 05498 05498 05499 05500 05551 05551 05565 05774 05775 05776 05777 05787 05788
                               05789 05790 05793 05795 05806 05809 05829 05830 05830 05831 05833 05833 05834 05836 05837
                               05837 05838 05868 05870 05872 05883 05883 05885 05886 05886 05890 05891 05892 05894 05894
                               06035 06036 06553 06554 06555 06556 06580 06975 06991 06996 07101 07102 07108 07115 07116

                               07124 07128 07142 07156 07175
R3       00001 00000003 00528  00547 05250 05251 05251 05254 05257 05258 05259 05260 05260 05261 05280 05296 05315 05316
                               05316 05318 05343 05357 05362 05363 05412 05413 05413 05422 05423 05424 05441 05462 05559
                               05560 05775 05787 05791 05792 05795 05806 05807 05809 05877 05878 05879 05880 05882 05882
                               05888 05888 05892 06556 06561 06582 06585 06585 06587 06589 06939 07102 07103 07104 07104

R4       00001 00000004 00529  00548 05249 05249 05250 05276 05307 05313 05313 05314 05318 05320 05320 05324 05329 05329
                               05363 05434 06916
R5       00001 00000005 00530  00549 05253 05253 05254 05256 05277 05314 05315 05321 05330 05340 05371 05371 05376 05386
                               05411 05411 05412 05426 05435 05442 05464 05468 05481 05488 05493 05763 05864 05880 06915
R6       00001 00000006 00531  00550 05162 05256 05307 05321 05324 05330 05347 05348 05348 05350 05351 05352 05353 05353

                               05355 05356 05357 05358 05361 05362 05372 05386 05426 05432 05443 05702 06948 06950 07123
                               07124 07124 07125 07127 07128 07128 07129 07137 07139 07140 07140 07142 07142 07151 07153
                               07154 07154 07156 07156 07170 07175
R7       00001 00000007 00532  00551 05164 05444 06914
R8       00001 00000008 00533  00552 00553 05432 05436 05437 05441 05442 05443

R9       00001 00000009 00534  05159 05160 05161 05375 05385 05385 05471 05472 05647 05700 05700 05703 06051
SAVE     00001 0000000D 00557  00958 04563 04576 06128 06129 06131 06132 06489 06497
SMFDSECT 00001 00000000 01548  06668 06674 06675 06675 06675
SMFHDRTY 00001 0000000D 01559  06677
SMFHSPID 00001 00000002 01688  06719

SMFRDW   00004 00000008 01553  06676 06676
SMFRSTRT 00001 0000001A 01565  01591 01647
SMFSSID  00002 0000001A 01648  06678
SMFSSLEN 00002 0000001E 01650  06679
SMFSSSTP 00001 0000002B 01696  06677
SMFSSTRT 00001 00000020 01652  01661 01666 01678

SMF43END 00001 00000024 01658  06675 06676 06679
SMF43OPT 00001 00000023 01657  06680
SMF43RV1 00003 00000020 01656  06679
SRTEALOC 00001 00000008 03031  05036 05055 05090 06295

SRTEASCI 00001 00000004 03162  03163
SRTEBPRV 00001 00000010 03159  05057
SRTEBPUB 00001 00000008 03160  05056
SRTEBSTR 00001 00000004 03161  03164 05056
SRTECHGS 00001 00000040 03028  06197 06206

SRTEONLI 00001 00000080 03027  06196 06205 06301 06348 06554
SRTEPRES 00001 00000004 03032  05036 05055 05099
SRTERESV 00001 00000020 03029  05036 05055 05087
SRTESTAB 00001 00000022 03156  05056 05057
SRTESTAT 00001 00000003 03026  05036 05055 05087 05090 05099 06196 06197 06205 06206 06295 06301 06348 06554
SRTEUSER 00001 00000038 03170  05088
SRTEVOLI 00006 0000001C 03155  05034 05038 05047 05053

S1       00004 00002ACC 04410  06070
S2       00004 00002BB8 04414  04411
S3       00004 00002CA4 04418  04415

S4       00004 00002D90 04422  04419
S5       00004 00002E7C 04426  04423
S6       00001 00000000 04430  04427
TCBDSECT 00001 00000000 01943  05012 06480
TCBLMP   00001 00000022 01956  06480

INIT                                              CROSS-REFERENCE                                              PAGE  191


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

TCBPKF   00001 0000001C 01951  05012
TEDDSECT 00001 00000000 01422  01432 05160
TEDSIZ   00001 00000014 01432  05385 05700 06078 06089
TEDSTART 00004 00000718 04054  06074 06089 06089 06089
TNMD     00002 00000008 01425  05473
TNMO     00002 00000010 01429  05556

TNRT     00002 0000000A 01426  05678 05774 05804
TNTC     00004 00000004 01424  05178 05183 05197 05486 05491 05683 05831

TNTG     00002 0000000E 01428  05697 05870 05878 05884
UCBALOC  00001 00000008 02913  03031
UCBATI   00001 0000000B 02951  05075 06195 06207 06268
UCBBALB  00001 00000020 03068  03158
UCBBJLB  00001 00000002 03076  03165

UCBBNUL  00001 00000001 03077  03166
UCBBPRV  00001 00000010 03072  03159
UCBBPUB  00001 00000008 03073  03160
UCBBSTR  00001 00000004 03074  03161 03162
UCBBSVL  00001 00000080 03062  03157
UCBCHA   00001 00000004 02921  06165 06324 06330
UCBCHGS  00001 00000040 02910  03028
UCBDADI  00001 00000001 02918  03034
UCBDBBNR 00002 00000038 03351  03387

UCBDCELL 00016 00000038 03349  03386

UCBDDMCT 00001 00000043 03377  03392
UCBDEV   00001 00000018 03041  03050 03177 03211 03227 03247 03329
UCBDJBNR 00001 00000042 03376  03391
UCBDMCT  00001 00000023 03080  03167
UCBDSECT 00001 00000000 02769  04989 05023 05086 06161 06554

UCBDSTAB 00001 0000003A 03352  03388
UCBDSTAT 00001 0000003B 03364  03389
UCBDUSER 00001 00000047 03384  03394
UCBDVOLI 00006 0000003C 03375  03390
UCBDVTOC 00003 00000044 03383  03393
UCBERADR 00004 0000000C 03553  06359 06361 06374 06377 06377
UCBFL1   00001 00000006 02926  03035 06320
UCBFL2   00001 00000006 03035  06173 06304
UCBFSCT  00002 00000024 03085  03168
UCBFSEQ  00002 00000026 03086  03169

UCBJBNR  00001 00000000 02875  03024

UCBMONT  00001 00000001 02885  03025
UCBONLI  00001 00000080 02909  03027
UCBPRES  00001 00000004 02914  03032
UCBRESV  00001 00000020 02911  03029

UCBSTAB  00001 00000022 03061  03156
UCBSTAT  00001 00000003 02908  03026
UCBSYSR  00001 00000002 02915  03033
UCBTBYT3 00001 00000012 02993  05031 06162 06220
UCBTBYT4 00001 00000013 03002  05054 05091 05093 05095 05097 06186 06353
UCBUCS   00001 00000000 03524  06356
UCBUNLD  00001 00000010 02912  03030
UCBUSER  00001 00000038 03137  03170 03343
UCBVOLI  00006 0000001C 03060  03155
UCBXTADR 00004 0000001C 03219  06355
UCB1403  00001 00000008 07434  06236

UCB2301  00001 00000002 07425  05091
INIT                                              CROSS-REFERENCE                                              PAGE  192


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

UCB2303  00001 00000003 07424  05093

UCB2305  00001 00000006 07426  05095
UCB23052 00001 00000007 07427  05097
UCB2501  00001 00000004 07431  06230
UCB2520  00001 00000005 07432  06186 06233
UCB2540P 00001 00000002 07429  06232
UCB2540R 00001 00000001 07428  06229
UCB3DACC 00001 00000020 02996  05031
UCB3UREC 00001 00000008 02998  06162 06229 06230 06231 06232 06233 06234 06235 06236
UCB3211  00001 00000009 07435  06235
UCB3505  00001 00000006 07433  06231
UCB3525  00001 0000000C 07437  06234
WA       00001 00000002 00546  04613 04623 04623 04624 04626 04628 04630 04632 04659 04670 04677 04776 04781 04796 04799

                               04819 04820 04827 04832 04832 04836 04871 04877 04877 04878 04878 04879 04879 04884 04887
                               04892 04897 04902 04907 04910 04938 04941 04962 04963 04965 04966 04982 04989 04991 04994
                               04997 05006 05007 05021 05022 05026 05027 05027 05676 05678 05685 05685 05686 05687 05688

                               05690 05692 05693 05925 05939 05940 05965 05966 05966 05967 05968 06115 06126 06153 06154
                               06154 06156 06157 06157 06453 06454 06459 06459 06468 06470 06472 06474 06476 06477 06506
                               06507 06508 06509 06510 06511 06512 06513 06514 06515 06516 06517 06518 06534 06535 06536
                               06542 06543 06543 06587 06590 06600 06622 06625 06625 06628 06636 06640 06659 06661 06664
                               06664 06667 06691 06797 06844 06846 06871 06879
WB       00001 00000003 00547  04636 04638 04638 04639 04657 04658 04688 04800 04802 04804 04804 04808 04812 04817 04825
                               04826 04873 04888 04893 04898 04903 04911 04934 04935 04935 04998 05000 05001 05008 05009
                               05009 05010 05012 05023 05026 05028 05028 05052 05072 05073 05073 05085 05086 05114 05677
                               05684 05688 05695 05696 05921 05926 05926 05927 05928 05940 05956 05964 05965 05968 05969
                               05970 06117 06119 06156 06158 06158 06161 06204 06291 06352 06355 06356 06403 06454 06455
                               06456 06457 06458 06461 06464 06469 06471 06473 06475 06493 06494 06498 06588 06627 06666
                               06697 06747 06751 06751 06752 06754 06756 06758 06761 06765 06766 06766 06769 06770 06772

                               06780 06781 06782 06798 06849

WC       00001 00000004 00548  04637 04641 04689 04819 04822 04823 04824 04825 04827 04828 04999 05000 05025 05029 05032
                               05035 05037 05058 05070 05077 05081 05101 05679 05680 05681 05682 05682 05683 05686 05689

                               05690 05696 05925 05950 05951 05955 05956 05967 06118 06119 06122 06123 06124 06126 06155
                               06159 06163 06190 06208 06224 06354 06363 06376 06378 06380 06390 06460 06460 06463 06468
                               06470 06472 06474 06756 06762 06769 06805 06811 06845 06846 06851 06852 06853 06854 06858
                               06859 06863 06864 06866 06867 06868 06869 06870 06870 06871 06872 06873
WD       00001 00000005 00549  04759 04761 04764 04765 04765 04770 04809 04814 04823 04827 04831 04832 04982 04997 05024
                               05040 05045 05051 05051 05689 05691 05697 05921 05927 05935 05938 05939 05954 05955 05969
                               06165 06166 06178 06202 06306 06350 06351 06358 06358 06359 06360 06361 06362 06364 06372
                               06468 06469 06470 06471 06472 06473 06474 06475 06546 06550 06557 06560 06591 06595 06599
                               06630 06634 06639 06693 06722 06735 06744 06802 06803 06803 06807 06808 06809 06809 06813
                               06814 06876 06877
WE       00001 00000006 00550  04698 04699 04700 04701 04703 04703 04704 04844 04959 04960 05002 05043 05043 05044 05045
                               05049 05049 06113 06114 06114 06117 06118 06122 06276 06277 06280 06281 06281 06282 06282

                               06403 06547 06549 06592 06594 06619 06620 06631 06633 06736 06745 06799 06800 06805
WF       00001 00000007 00551  04525 04528 04529 04529 04554 05137 05629 06099 06100 06102 06103 06104 06104

W1       00004 00000740 04081  06071

W10      00004 00000C2C 04126  04122
W11      00004 00000CB8 04131  04127
W12      00004 00000D44 04136  04132
W13      00004 00000DD0 04141  04137
W14      00004 00000E5C 04146  04142
W15      00004 00000EE8 04151  04147
W16      00004 00000F74 04156  04152
W17      00004 00001000 04161  04157
W18      00004 0000108C 04166  04162
INIT                                              CROSS-REFERENCE                                              PAGE  193


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

W19      00004 00001118 04171  04167

W2       00004 000007CC 04086  04082
W20      00004 000011A4 04176  04172
W21      00004 00001230 04181  04177

W22      00004 000012BC 04186  04182
W23      00004 00001348 04191  04187
W24      00004 000013D4 04196  04192
W25      00004 00001460 04201  04197
W26      00004 000014EC 04206  04202
W27      00004 00001578 04211  04207
W28      00004 00001604 04216  04212
W29      00004 00001690 04221  04217
W3       00004 00000858 04091  04087
W30      00004 0000171C 04226  04222
W31      00004 000017A8 04231  04227
W32      00004 00001834 04236  04232

W33      00004 000018C0 04241  04237
W34      00004 0000194C 04246  04242
W35      00004 000019D8 04251  04247
W36      00004 00001A64 04256  04252

W37      00004 00001AF0 04261  04257
W38      00004 00001B7C 04266  04262
W39      00004 00001C08 04271  04267
W4       00004 000008E4 04096  04092
W40      00004 00001C94 04276  04272
W41      00004 00001D20 04281  04277

W42      00004 00001DAC 04286  04282
W43      00004 00001E38 04291  04287
W44      00004 00001EC4 04296  04292
W45      00004 00001F50 04301  04297
W46      00004 00001FDC 04306  04302
W47      00004 00002068 04311  04307
W48      00004 000020F4 04316  04312
W49      00004 00002180 04321  04317

W5       00004 00000970 04101  04097

W50      00004 0000220C 04326  04322
W51      00004 00002298 04331  04327
W52      00004 00002324 04336  04332
W53      00004 000023B0 04341  04337
W54      00004 0000243C 04346  04342
W55      00004 000024C8 04351  04347
W56      00004 00002554 04356  04352
W57      00004 000025E0 04361  04357
W58      00004 0000266C 04366  04362

W59      00004 000026F8 04371  04367
W6       00004 000009FC 04106  04102
W60      00004 00002784 04376  04372
W61      00004 00002810 04381  04377
W62      00004 0000289C 04386  04382

W63      00004 00002928 04391  04387
W64      00004 000029B4 04396  04392

W65      00004 00002A40 04401  04397
W66      00001 00000000 04406  04402
W7       00004 00000A88 04111  04107
W8       00004 00000B14 04116  04112
INIT                                              CROSS-REFERENCE                                              PAGE  194


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

W9       00004 00000BA0 04121  04117
Z        00001 00000008 00570  04916 05029 06159

INIT                                              LITERAL CROSS-REFERENCE                                      PAGE  195


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

=A($JOBQUE+100*16,PRCHKPT)
         00004 00004DE8 06053  05226 06011
=A($JOBQUE,$JOBQUE,16,$JOBQUE-1+100*16)

         00004 00004DF0 06054  05340
=A(HASPNUC)
         00004 00004E00 06055  04534

=V($ABEND)
         00004 00004E04 06056  04670
=A($OREPS)
         00004 00004E08 06057  04689
=A(X'FFF')
         00004 00004E0C 06058  04699
=V(HASPOTAB)

         00004 00004E10 06059  04783
=A(OREPEND)
         00004 00004E14 06060  04820 04828
=X'80000000'
         00001 00004E18 06061  04826

=A($RDRDCT)
         00004 00004E1C 06062  04887
=A($PRTDCT)
         00004 00004E20 06063  04892

=A($PUNDCT)
         00004 00004E24 06064  04897
=A($INRDCT)
         00004 00004E28 06065  04902
=A($LNEDCT)
         00004 00004E2C 06066  04907

=A($OLAYDCT)
         00004 00004E30 06067  04910 04959
=A($OROLLAD-PCEBASE2+PCEDSECT)
         00004 00004E34 06068  04962
=V($OLASYNC)

         00004 00004E38 06069  04965
=A(S1)   00004 00004E3C 06070  05016
=A(W1)   00004 00004E40 06071  05018
=A(PRCHKPT)
         00004 00004E44 06072  05019

=A(CYLMAP)
         00004 00004E48 06073  05020
=A(TEDSTART)
         00004 00004E4C 06074  05159 05375 05471 05647 05703
=V($JITTRAK)

         00004 00004E50 06075  05193
=V($JOTTRAK)
         00004 00004E54 06076  05207
=A(16,(100-1)*16+$JOBQUE,$JOBQUE)
         00004 00004E58 06077  05432

=A(TEDSIZ)
         00004 00004E64 06078  05469
=A(6)    00004 00004E68 06079  05470
=F'7'    00004 00004E6C 06080  05562
=A(HASPINGO+4096)
         00004 00004E70 06081  05629

=A(HASPINGO)
INIT                                              LITERAL CROSS-REFERENCE                                      PAGE  196


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.01 08/28/78

         00004 00004E74 06082  05630

=A(1960) 00004 00004E78 06083  05676
=X'1D000000'
         00001 00004E7C 06084  05790
=F'8'    00004 00004E80 06085  05793
=FS24'1' 00004 00004E84 06086  05807

=V($ALSTATB)
         00004 00004E88 06087  06035
=V($TEDDATA)
         00004 00004E8C 06088  06037
=A(TEDSTART,TEDSTART+(2-1)*TEDSIZ,TEDSTART)
         00004 00004E90 06089  06039
=H'4000' 00002 00004E9C 06090  04700

=C'/*'   00001 00004E9E 06091  04744
=H'255'  00002 00004EA0 06092  04810
=Y(572)  00002 00004EA2 06093  04873

=H'40'   00002 00004EA4 06094  04880
=Y(3*PRCSIZE)
         00002 00004EA6 06095  05230 05447 06015
=VL3($IOAPPEN)
         00003 00004EA8 06096  04924 06031

=C'WRITING'
         00001 00004EAB 06097  05616
=A(HASPINGO)
         00004 000051B8 07376  06101
=A($OLAYDCT)
         00004 000051BC 07377  06111
=V(HASPOTAB)
         00004 000051C0 07378  06146

=A(X'FFF')
         00004 000051C4 07379  06166

=A(X'00000FFF')
         00004 000051C8 07380  06325 06331
=V(WUCMSVE3)
         00004 000051CC 07381  06464
=V(XSTATUS)

         00004 000051D0 07382  06476
=V($EXECPCE)
         00004 000051D4 07383  06490
=V($PITABLE)
         00004 000051D8 07384  06534
=V(HASPWTR)
         00004 000051DC 07385  06547
=V($PWTRECB)
         00004 000051E0 07386  06555

=V($WTOPECB)

         00004 000051E4 07387  06590
=V($HASPWTO)
         00004 000051E8 07388  06592
=V(WTOTCBA)
         00004 000051EC 07389  06619

=V(HASPACCT)
         00004 000051F0 07390  06631
=V($PSMFECB)
         00004 000051F4 07391  06636
INIT                                              ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE  197


                                                                                                 ASM 0201 20.01 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)

  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)

  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT       3494
TOTAL RECORDS READ FROM SYSTEM LIBRARY    13853

TOTAL RECORDS PUNCHED                       449
TOTAL RECORDS PRINTED                      8582

INTF                                           EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.02 08/28/78

HASPINTF  SD  0001 000000 0003F8
$ATTNXIT  LD       000000        0001
HASP      ER  0002
XSTATUS   LD       000088        0001
$WTOXIT   LD       000178        0001
$WTOSVC   ER  0003

WUCMSVE3  LD       000200        0001
$LINKXIT  LD       000210        0001

$XCTLXIT  LD       000220        0001
$MGCRSVC  ER  0004
XJCLSCAN  ER  0005
$POSTECB  LD       000354        0001
INTF     HASP OS INTERFACE MODULE                                                                              PAGE    2



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                      2          PRINT OFF                 FOR $GLOBAL                          K0004000
                                    127          PRINT ON                                                       K0008000






000000                              129 HASPINTF START 0                   HASP OS INTERFACE MODULE             K0012000



                                    131          PRINT OFF                 FOR $HASPGEN                         K0020000
                                    488          PRINT ON                                                       K0024000

INTF     HASP CONTROL BLOCKS                                                                                   PAGE    3



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    490          AIF   (&SYSVS2).KNOINTF                                        K0028000
                                    491         $HASPCB HCT,CVT,UCB,DCT,DCB,DEB,TCB,RB,BUFFER,PCE,             *K0030000
                                                       XEQWORK,                                                *K0032000
                                                       DOC=NO                                                   K0034000

INTF     HASP COMMUNICATION TABLE DSECT                                                                        PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              493+HCTDSECT DSECT                     HASP COMMUNICATION TABLE DSECT       HC437000


                            00000   495+         USING HCTDSECT,BASE1      ESTABLISH HCT ADDRESSABILITY         HC439000


000000 40E540F44BF0F0F9             497+$VERSION DC    CL8' V 4.009762'         HASP VERSION                    HC441000


                                    499+*                             VS2 - HASP VECTOR TABLE                   HC451050


000008                              501+$HVT     DS    0F                                                       HC451150

000008 00000000                     502+$HVTEXCP DC    V($EXCPSVC)         IOS PSEUDO DEVICE EXIT ADDRESS       HC451200
00000C 00000000                     503+         DC    V(XJCLSCAN)         INTERPRETTER EXIT ADDRESS            HC451250
000010 00000000                     504+         DC    V($MGCRSVC)         MGCR EXIT ADDRESS                    HC451300
000014 00000000                     505+         DC    V($WTOSVC)          WTO(R)/WTL EXIT 1 ADDRESS            HC451350

000018 00000000                     506+         DC    V($WTOSVC2)         WTO(R) EXIT 2 ADDRESS                HC451400
00001C 0000002C                     507+         DC    A($EXITNOP)         JOB INITIATION EXIT ADDRESS          HC451450
000020 0000002C                     508+         DC    A($EXITNOP)         STEP INITIATION EXIT ADDRESS         HC451500
000024 00000000                     509+         DC    V(XTERMSMF)         TERMINATION EXIT ADDRESS             HC451550
000028 00000000                     510+         DC    V($TSOCOMM)         TSO STATUS/CANCEL EXIT ADDRESS       HC451600

00002C 1BFF                         512+$EXITNOP SR    R15,R15             R15 = RC = 0                         HC451750
00002E 07FE                         513+         BR    R14                 RETURN                               HC451800


                                    515+*                             ENTRY TO HASP DISPATCHER                  HC452000


000030 47F0 B030      00030         517+$WAIT    B     *                                                        HN016000


                                    519+*                             ENTRIES TO HASP BUFFER SERVICES           HC456000


000034 47F0 B034      00034         521+$GETBUF  B     *                                                        HN016000
000038 47F0 B038      00038         522+$GETPBUF B     *                                                        HN016000
00003C 47F0 B03C      0003C         523+$FREEBUF B     *                                                        HN016000


                                    525+*                             ENTRIES TO HASP UNIT SERVICES             HC462000

000040 47F0 B040      00040         527+$GETUNIT B     *                                                        HN016000
000044 47F0 B044      00044         528+$FREUNIT B     *                                                        HN016000


                                    530+*                             ENTRIES TO HASP JOB QUEUE SERVICES        HC467000

000048 47F0 B048      00048         532+$QADD    B     *                                                        HN016000

00004C 47F0 B04C      0004C         533+$QGET    B     *                                                        HN016000
000050 47F0 B050      00050         534+$QPUT    B     *                                                        HN016000
000054 47F0 B054      00054         535+$QREM    B     *                                                        HN016000

000058 47F0 B058      00058         536+$QSIZ    B     *                                                        HN016000
00005C 47F0 B05C      0005C         537+$QLOC    B     *                                                        HN016000
000060 47F0 B060      00060         538+$QJITLOC B     *                                                        HN016000
INTF     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    540+*                             ENTRIES TO DIRECT ACCESS SPACE SERVICES   HC477000

000064 47F0 B064      00064         542+$TRACK   B     *                                                        HN016000
000068 47F0 B068      00068         543+$PURGER  B     *                                                        HN016000


                                    545+*                             ENTRIES TO HASP INPUT/OUTPUT SERVICES     HC482000


00006C 47F0 B06C      0006C         547+$EXCP    B     *                                                        HN016000

000070 47F0 B070      00070         548+$EXTPOPE B     *                                                        HN016000
000074 47F0 B074      00074         549+$EXTPGET B     *                                                        HN016000

000078 47F0 B078      00078         550+$EXTPPUT B     *                                                        HN016000
00007C 47F0 B07C      0007C         551+$EXTPCLO B     *                                                        HN016000
000080 47F0 B080      00080         552+$RESTORE B     *                                                        HN016000


                                    554+*                             ENTRIES TO HASP OVERLAY SERVICES          HC491000

000084 47F0 B084      00084         556+$ODEL    B     *                                                        HN016000
000088 47F0 B088      00088         557+$ORET    B     *                                                        HN016000
00008C 47F0 B08C      0008C         558+$OLINK   B     *                                                        HN016000
000090 47F0 B090      00090         559+$OXCTL   B     *                                                        HN016000
000094 47F0 B094      00094         560+$OLOAD   B     *                                                        HN016000



                                    562+*                             ENTRIES TO HASP CONSOLE SERVICES          HC499000


000098 47F0 B098      00098         564+$WTO     B     *                                                        HN016000

00009C 47F0 B09C      0009C         565+$FREEMSG B     *                                                        HN016000
0000A0 47F0 B0A0      000A0         566+$DOM     B     *                                                        HN016000


                                    568+*                             ENTRIES TO HASP SMF BUFFER SERVICES       HC503200

0000A4 47F0 B0A4      000A4         570+$QUESMFB B     *                                                        HN016000
0000A8 47F0 B0A8      000A8         571+$GETSMFB B     *                                                        HN016000


                                    573+*                             ENTRIES TO HASP INTERVAL TIMER SERVICES   HC504000

0000AC 47F0 B0AC      000AC         575+$STIMER  B     *                                                        HN016000
0000B0 47F0 B0B0      000B0         576+$TTIMER  B     *                                                        HN016000



                                    578+*                             ENTRIES TO HASP ERROR SERVICES            HC509000


0000B4 47F0 B0B4      000B4         580+$IOERROR B     *                                                        HN016000
0000B8 47F0 B0B8      000B8         581+$ERROR   B     *                                                        HN016000
0000BC 47F0 B0BC      000BC         582+$DISTERR B     *                                                        HN016000
INTF     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0000C0 00                           584+         DC    AL1(0)              RESERVED                             HC515000
0000C1 00                           585+$OPTSTAT DC    AL1(*-*)            HASP INITIALIZATION OPTIONS          HC516000
0000C2 00                           586+$STATUS  DC    AL1(*-*)            HASP SYSTEM STATUS                   HC517000
0000C3 00                           587+$CURPCE  DC    AL1(*-*)            CURRENT PCE ID                       HC518000
0000C4 00                           588+$HASPECF DC    AL1(*-*)            MASTER EVENT CONTROL FIELD           HC519000
0000C5 00                           589+MHASPECF DC    AL1(*-*)            LINE MANAGER EVENT CONTROL FIELD     HC520000
0000C6 00                           590+$XEQACT  DC    AL1(*-*)            COUNT OF JOBS IN O/S EXECUTION       HC521000

0000C7 00                           591+$ACTIVE  DC    AL1(*-*)            COUNT OF ACTIVE FUNCTIONS            HC522000
0000C8 FF                           592+$ENBALL  DC    X'FF'               ENABLE ALL MASK                      HC523000
0000C9 00                           593+$DISALL  DC    X'00'               DISABLE ALL MASK                     HC524000
0000CA FE                           594+$DISINT  DC    X'FE'               DISABLE INTERVAL TIMER MASK          HC525000

0000CB 00                           595+         DC    X'00'               RESERVED                             HC526000
0000CC 0000                         596+$EXCPCT  DC    Y(*-*)              ACTIVE HASP I/O COUNT                HC531000
0000CE 0040                         597+$COMMCT  DC    Y(64)                     ACTIVE HASP COMMAND COUNT      HC532000
0000D0 0000                         598+$CKPTRAK DC    Y(*-*)              HASP CHECKPOINT TRACK ADDRESS        HC533000
0000D2 0000                         599+         DC    Y(0)                RESERVED                             HC534000
0000D4 00000000                     600+$HASPTCB DC    A(*-*)              ADDRESS OF HASP TASK CONTROL BLOCK   HC535000

0000D8 00000000                     601+$HASPECB DC    F'0'                COMMON HASP ECB                      HC535200
0000DC 00000000                     602+$ASYNCQ  DC    A(0)                ASYNC I/O COMPLETION QUEUE           HC535400
0000E0 00000000                     603+$RJECHEQ DC    A(0)                RJE I/O COMPLETION QUEUE             HC535600
                                    604+*                                  ADDRESS OF FIRST HASP PCE            HC536000
0000E4 00000000                     605+$PCEORG  DC    A(*-*)                                                   HN010000
0000E8 00000000                     606+$BUFPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE HASP BUFFER HC538000
0000EC 00000000                     607+$TPBPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE RJE BUFFER  HC539000
0000F0 00000000                     608+$DCTPOOL DC    A(*-*)              ADDRESS OF FIRST HASP DCT            HC540000

0000F4 00000000                     609+$JITABLE DC    A(*-*)              ADDRESS OF HASP JOB INFO TABLE       HC541000
0000F8 00000000                     610+$JOTABLE DC    V($JOT)             ADDRESS OF JOB OUTPUT TABLE          HC541500

0000FC 00000000                     611+$CYLMAP  DC    A(*-*)              ADDRESS OF FIRST CYLINDER MODULE MAP HC542000
000100 00000000                     612+$TEDADDR DC    A(*-*)              ADDRESS OF FIRST EXTENT DATA TABLE   HC543000
000104 00000000                     613+$DCBLIST DC    A(*-*)              ADDRESS OF DIRECT ACCESS DCB         HC544000
000108 00000000                     614+$FREEQUE DC    A(*-*)              ADDR OF 1ST FREE CONSOLE MSG BUFFER  HC545000
00010C 00000000                     615+$BUSYQUE DC    A(*-*)              CONSOLE MSG BUFFERS QUEUED FOR I/O   HC546000
000110 00000000                     616+$LOGQUE  DC    A(*-*)              CMB'S QUEUED FOR LOG PROCESSOR       HC547000
000114 00000000                     617+$COMMQUE DC    A(*-*)              COMMANDS QUEUED FOR COMMAND PROC     HC548000
000118 00000000                     618+$DOMQUE  DC    A(*-*)              CMB'S AWAITING ACTION                HC548200

00011C 00000000                     619+$SMFFREE DC    A(*-*)              ADDR OF 1ST FREE SMF BUFFER          HC548400
000120 00000000                     620+$SMFBUSY DC    A(*-*)              SMF BUFFERS QUEUED FOR I/O           HC548600
000124 00000000                     621+$PRCHKPT DC    A(*-*)              ADDRESS OF PRINT CHECKPOINT TABLE    HC549000
000128 00000002                     622+$TIMEARG DC    F'2'                FAKE SVRB+36 FOR IGC011              HC549500
INTF     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE    7



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    624+*                             NUCLEUS ADDRESS TABLE                     HC551000


00012C                              626+$NUCTABL DS    0F                  START OF NUCLEUS ADDRESS TABLE       HC553000
00012C 00000000                     627+$STATENT DC    A(*-*)              ENTRY TO STATUS ROUTINE              HC554000
000130 00000000                     628+$TIMENT  DC    A(*-*)              ENTRY TO TIME ROUTINE                HC555000
000134 00000000                     629+$XSMFENT DC    A(*-*)              ENTRY TO SMF EXCP COUNTING ROUTINE   HC559000
000138 00000000                     630+$SVCRSET DC    A(*-*)              ENTRY TO HASP SVC RESET ROUTINE      HC560000
                            00010   631+$NUCLEN  EQU   *-$NUCTABL          LENGTH OF NUCLEUS ADDRESS TABLE      HC561000



                                    633+*********************************************************************** HC576000
                                    634+*  ALL VARIABLES LOCATED IN THIS AREA WILL BE REGULARLY CHECKPOINTED  * HC577000
                                    635+*  BY HASP AND WILL BE RESTORED ON ANY WARM START.....                * HC578000
                                    636+*                                                                     * HC579000
                                    637+*                                                                     * HC580000

                                    638+*                                                                     * HC581000
00013C                              639+$SAVEBEG DS    0F                  BEGINNING OF SAVE AREA             * HC582000
00013C 00000000                     640+$JOBQPTR DC    A(*-*)              ADDRESS OF HASP JOB QUEUE          * HC583000
000140 00000000                     641+$JQFREE  DC    A(*-*)              BEGINNING OF FREE QUEUE CHAIN      * HC584000

000144 00000000                     642+$JQENT   DC    A(*-*)              BEGINNING OF ACTIVE QUEUE CHAIN    * HC585000
000148 00000000                     643+$DATAKEY DC    F'0'                MASTER PERIPHERAL DATA SET KEY     * HC588000
00014C 0000                         644+$JOBNO   DC    H'0'                HASP JOB NUMBER                    * HC589000
00014E 0000                         645+$MSGRPNO DC    H'0'                LAST CONSOLE MESSAGE TRACK GROUP   * HC590000
000150 0000000000000000             646+$DACKPT  DC    2XL6'0'             DA CHECKPOINT FOR WARM START       * HC591000
                            0015C   647+$SAVEEND EQU   *                   END OF SAVE AREA                   * HC592000

                            00020   648+$SAVELEN EQU   $SAVEEND-$SAVEBEG   LENGTH OF SAVE AREA                * HC593000
                                    649+*                                                                     * HC594000
                                    650+*                                                                     * HC595000
                                    651+*                                                                     * HC596000
                                    652+*********************************************************************** HC597000

                                    653+*                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000

00015C                              655+$NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000
00015C 00000000                     656+$ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000
000160 00000000                     657+$SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000
000164 00000000                     658+$SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000
                            0000C   659+$NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000


                                    661+*                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000

000168 00000000                     663+$IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000
00016C 00000000                     664+$WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000

000170 00000000                     665+$LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000
000174 00000000                     666+$XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000
000178 00000000                     667+$SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000

00017C 00000000                     668+$SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000
000180 00000000                     669+$SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000
000184 00000000                     670+$SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000
000188 00000000                     671+$SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000
00018C                              672+$ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000




INTF     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              675+HASPINTF CSECT ,                   END OF HCT DSECT                RFIT HC998000
INTF     OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE    9



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00010   677+$CVTPTR  EQU   16                  ADDRESS OF CVT POINTER               CT008000
000000                              678+CVTDSECT DSECT                     COMMUNICATION VECTOR TABLE DSECT     CT012000


                                    680+*                                                                       00510000

                                    681+*              OS/360                                                   00560000
                                    682+*        COMMUNICATION VECTOR TABLE                                     00800000
                                    683+*                                                                       00810000
                                    684+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5                    01050021
                                    685+*                                                                       01200000
                            00010   686+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT         01400000

                                    687+*                                                                       01600000
                                    688+*              BEGINNING OF CVT PROPER                                  01601000
                                    689+*                                                                       01610000
000000                              690+         DS    0F                                                       01611000

                            00000   691+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE                 01840000
                                    692+*                                                                       02000000
000000 00000000                     693+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST  02200000
000004 00000000                     694+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE                02610000
                                    695+*                              ASYNCHRONOUS EXITS                       02620000

000008 00000000                     696+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB                   02800000
00000C 00000000                     697+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB                     03000000
000010 00000000                     698+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT                03200000
                                    699+*                              CONSOLE INTERRUPTION ROUTINE             03400000
000014 00000000                     700+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE         03600000
000018 00000000                     701+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING 03800000
                                    702+*                              ROUTINE FOR SUPERVISOR                   04000000

00001C 00000000                     703+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04200000
                                    704+*                              RELATIVE TRACK ADDR TO ABSOLUTE          04400000
000020 00000000                     705+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04600000

                                    706+*                              ABSOLUTE TRACK ADDR TO RELATIVE          04800000
000024 00000000                     707+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION   05000000
                                    708+*                              IN UCB LOOKUP TABLE                      05200000
000028 00000000                     709+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION     05400000
                                    710+*                              IN UCB LOOKUP TABLE                      05600000

00002C 00000000                     711+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE           05800000
                                    712+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES 06000000
000030 00000000                     713+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY      06200000
                                    714+*                              IN UCB LOOKUP TABLE                      06400000
000034 00000000                     715+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE         06600000
000038 00000000                     716+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL             06800000
00003C 00000000                     717+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)       07210000
                                    718+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS    07220000

                                    719+*                              MASTER SCHEDULER RESIDENT DATA AREA      07221000
000040 00000000                     720+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE    07400000

000044 00000000                     721+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE          07600000
000048 00000000                     722+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS       08000000
                                    723+*                              FOR DAMAGE ASSESSMENT ROUTINES           08200000
00004C 00000000                     724+CVT0FN00 DC    A(0) -        RESERVED (MVT)                             08610000
000050 0A03                         725+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER                         08800000

000052 07FE                         726+CVTBRET  BR    14 -          RETURN TO CALLER                           09000000
000054 00000000                     727+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB                    09200000
000058 00000000                     728+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER     09411000
                                    729+*                              ROUTINE (SHPC FIRST)                     09412000
00005C 00000000                     730+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL              09430000
INTF     OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000060 00000000                     731+CVTSJQ   DC    A(0) -        RESERVED (MVT)                             09810000
000064 00000000                     732+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR  10000000

000068 00000000                     733+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE              10410000

                                    734+*                              FOR INTERVAL TIMER                       10411000
00006C 00000000                     735+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE              10420000
                                    736+*                              FOR INTERVAL TIMER                       10421000
000070 00000000                     737+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE         10600000
000074 10                           738+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM                           11600000

                            00040   739+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11600100
                            00020   740+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11600200
                            00010   741+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11600300
                            00004   742+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11600400
000075 000000                       743+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11601000
000078 00000000                     744+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE            11820000
00007C 00000000                     745+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER    12400000
000080 00000000                     746+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS               12600000
000084 00000000                     747+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE              12800000
000088 00000000                     748+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER             13000000

00008C 00000000                     749+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE         13200000

000090 00000000                     750+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE            13400000
000094 00000000                     751+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT          13810000
                                    752+*                              DATA AREA (MVT/MFT)                      13820000
000098 00000000                     753+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE    14000000

00009C 00000000                     754+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE                14200000
0000A0 00000000                     755+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE           14400000
0000A4 00000000                     756+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS                    14600000
0000A8 00000000                     757+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)      14601000
0000AC 00000000                     758+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD         16638521
                                    759+*                              (0 IF GFX INACTIVE) MVT                  16640821
0000B0 00000000                     760+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA       16647721
                                    761+*                              (MVT/MFT)                                16650000
0000B4 0000                         762+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    16660000
0000B6 00                           763+CVTOPTA  DC    AL1(00)    -     MISCELLANEOUS FLAGS                     16670021
                            00080   764+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)               16680000

                            00040   765+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --                    16681000
                                    766+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16681100
                            00020   767+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --          16683000
                                    768+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16683200

                            00010   769+CVTNIP   EQU   X'10' -       NIP RUNNING                                16690000
                            00008   770+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)                     16691000
                            00004   771+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16692000
                            00002   772+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16693000
                            00001   773+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16695000
0000B7 00                           774+CVTOPTB  DC    AL1(00)     - MISCELLANEOUS FLAGS                        16700021
                            00080   775+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)            16702000
                            00020   776+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)        16704000
                                    777+*                                                                       16800000
                                    778+*              PCP OVERLAY                                              17000000
                                    779+*                                                                       17200000
0000B8                              780+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART            17400000

0000BB                              781+CVTSTUSA DS    B -           STATUS BYTE A                              17600000
                            00008   782+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART     17800000
                                    783+*                              WAS INITIATED INTRASTEP                  18000000

                            00004   784+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART           18200000
                                    785+*                              WAS INITIATED INTERSTEP                  18400000
INTF     OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00002   786+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM          18600000
                                    787+*                              AND DATA HAS NOT BEEN READ               18800000
0000BC                              788+         DS    CL2 -         RESERVED                                   19000000
0000BE                              789+         DS    CL2 -         RESERVED                                   19200000
                                    790+*                                                                       19400000
                                    791+*              MVT/MFT OVERLAY                                          19600000
                                    792+*                                                                       19800000
0000C0                      000B8   793+         ORG   CVTCRTTR                                                 20000000

                                    794+*                                                                       20200000

0000B8 00000000                     795+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR           20400000
0000BC 00000000                     796+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21000000

                                    797+*                                                                       21670000
                                    798+*              END OF OVERLAYS                                          21800000
                                    799+*                                                                       22000000
0000C0 00000000                     800+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)                       22421000
0000C4 00000000                     801+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA            22600000
0000C8 00000000                     802+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT     22610000
                                    803+*                              (MVT/MPS)                                22610100
0000CC 00000000                     804+CVTUSER  DC    A(0) -        A WORD TO THE USER                         22620000
0000D0                      000CC   805+         ORG   CVTUSER -     REMAP CVTUSER AS CVTHJES              RFIT 22620100
0000CC                              806+CVTHJES  DS    0A -          SAME AS CVTHJESA BELOW                RFIT 22620300
0000CC 00                           807+         DC    XL1'00' -     RESERVED - FIRST BYTE OF CVTHJES      RFIT 22620500
0000CD 000000                       808+CVTHJESA DC    AL3(0) -      ADDRESS OF HASP COMMUNICATION TABLE   RFIT 22620700

0000D0                      000D0   809+         ORG   , -           RESTORE LOCATION COUNTER              RFIT 22620900
                                    810+*                                                                       23000000

                                    811+*              MFT/MVT CVT EXTENSION                                    24000000

                                    812+*                                                                       24200000
0000D0 00000000                     813+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT       24400021
0000D4 0A0D                         814+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)                 24600000
0000D6 0A06                         815+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)   25000000
0000D8 00000000                     816+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25421000
0000DC 00000000                     817+CVTPATCH DC    V(IEAPATCH) - ADDR OF FE PATCH AREA                      25540000
0000E0 00000000                     818+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA  25800000
                                    819+*                              (MVT/MFT)                                25810000
0000E4                              820+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)             26000000
0000E4 00                           821+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)                   26050000
                            00080   822+CVTTSRDY EQU   X'80' -       TIME SHARING READY                         26100000
0000E5 000000                       823+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)             26150000

0000E8 00000000                     824+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     27393221
0000EC                              825+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)   27394021
0000EC 00                           826+CVTGTFST DC    B'0' -        STATUS FLAGS                               27396021

                            000C0   827+CVTGTFS  EQU   X'C0' -       STATE                                      27398021
                                    828+*/       00    CVTGTFIN      INACTIVE                                   27398421
                                    829+*/       01    CVTGTFSR      STARTING                                   27398821
                                    830+*/       10    CVTGTFSP      STOPPING                                   27399221
                                    831+*/       11    CVTGTFAC      ACTIVE                                     27399621
                            00020   832+CVTSTATE EQU   X'20' -       IN CONTROL                                 27399721
                            00010   833+CVTMODE  EQU   X'10' -       EXT MODE                                   27399821
                            00008   834+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA                27399921
                            00004   835+CVTUSR   EQU   X'04' -       USR TRACE                                  27449921
                            00002   836+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID                       27459921
0000ED 000000                       837+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE                27469921
0000F0                              838+CVTTCMFG DS    0B -          TCAM FLAGS                                 27499921

                            00080   839+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)                         27600000
0000F0 00000000                     840+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF             27610000
INTF     OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    841+*                            TCAM ADDRESS VECTOR TABLE                  27620021
                                    842+*                                                                       29401221
                                    843+*              MVT CVT EXTENSION                                        29401321
                                    844+*                                                                       29401421
0000F4                              845+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE 29401521
                                    846+*                            (PWF)                               S21167 29401621

0000F4 80                           847+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY   29404021
                                    848+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167 29404221
                            00080   849+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167 29404421
0000F5 000000                       850+CVTVOLT2 DC    AL3(0)     -  PWF RECHECK TIME DELAY.  THIS VALUE IS     29404621
                                    851+*                            OVERLAID BY CVTVOLM2 AFTER PWF             29404821
                                    852+*                            INITIALIZATION                      S21167 29405021
0000F8 00000000                     853+         DC    A(0) -        RESERVED                                   29405221
                                    854+*                                                                       29407021

                                    855+*              MVT/MFT CVT EXTENSION                                    29408021
                                    856+*                                                                       29408821

0000FC 00000114                     857+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1              29410821
                                    858+*                            (ICB421)                APAR'S 47331,47332 29413221
000100                              859+         DS    F -           RESERVED                                   29414221
000104                              860+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE         29415221
000104                              861+         DS    X -           RESERVED                                   29416421
000105 000000                       862+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE         29417421
000108                              863+         DS    F -           RESERVED                                   29418421
00010C                              864+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307 29419421

00010C                              865+         DS    X -           RESERVED                            ICB307 29420421
00010D 000000                       866+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND              29421421
                                    867+*                            COMMUNICATION AREA                  ICB307 29422421
000110                              868+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308 29423421
000110                              869+         DS    X -           RESERVED                            ICB308 29424421

000111 000000                       870+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY      29425421
                                    871+*                            ROUTINE                             ICB308 29426421
                                    872+*                                                                       29427421

                                    873+*              COMMON EXTENSION 1                                       29435721
                                    874+*              ADDRESS OF EXTENSION IS IN CVTEXT1                       29445721
                                    875+*                                                                       29455721
                                    876+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,               29456121
                                    877+*              YOU SHOULD CODE -                                        29462521
                                    878+*                                                                       29464521
                                    879+*              L     REG,CVTEXT1                                        29466521

                                    880+*              USING CVTXTNT1,REG                                       29468521
                                    881+*                                                                       29468621
                                    882+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.               29468721
                                    883+*                                                                       29468821
                            00114   884+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1                29475221

                                    885+*                            (ICB421)                APAR'S 47331,47332 29475721
000114 00000000                     886+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS        29477221
                                    887+*                            (ISAM) (ICB421)         APAR'S 47331,47332 29479221

                                    888+*                                                                       29494421
                                    889+*              END OF CVT PROPER                                        29513521
                                    890+*                                                                       29532621
                                    891+*                                                                       29870000
                                    892+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT           29880000
                                    893+*                                                                       29890000
000000                              894+HASPINTF CSECT                     END OF CVT DSECT                     CT020000

INTF     OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              896+UCBDSECT DSECT                     UNIT CONTROL BLOCK DSECT             UC008000


                                    898+*%UCBL1 : ;                                                             IE005000

                                    899+*/* **************************************************************** */ IE006000
                                    900+*/*                                                                  */ IE007000
                                    901+*/*            U N I T   C O N T R O L   B L O C K                   */ IE008000
                                    902+*/*                                                                  */ IE009000

                                    903+*/* **************************************************************** */ IE010000
                                    904+*/*                                                                  */ IE011000
                                    905+*/*  STATUS                                                          */ IE012000
                                    906+*/*                                                                  */ IE013000
                                    907+*/*      OS/VS2 RELEASE 1, OS/VS1 RELEASE 2, 08/14/72, LEVEL=14      */ IE014000
                                    908+*/*                                                                  */ IE015000

                                    909+*/*  METHOD OF ACCESS                                                */ IE016000
                                    910+*/*                                                                  */ IE017000
                                    911+*/*      PL/S - DCL (UCBPTR,UCBDCPTR) PTR                            */ IE018000
                                    912+*/*      BAL  - DSECT CARD SHOULD PRECEDE MACRO CALL.  SYMBOLS IN    */ IE019000
                                    913+*/*             COMMON SECTION AND DEVICE DEPENDENT SECTIONS ARE     */ IE020000

                                    914+*/*             ADDRESSABLE BY A USING ON UCBOB.  ADDITIONAL USINGS  */ IE021000
                                    915+*/*             ARE NECESSARY TO OBTAIN ADDRESSABILITY FOR EACH      */ IE022000
                                    916+*/*             EXTENSION OR PREFIX.  THESE ARE AS FOLLOWS -         */ IE023000
                                    917+*/*                                                                  */ IE024000
                                    918+*/*             DIRECT ACCESS EXTENSION           UCBDA              */ IE025000

                                    919+*/*             DIRECT ACCESS EXTENSION 2         UCBDA2             */ IE026000
                                    920+*/*             PREFIX TO MAGNETIC TAPE EXTENSION UCBMTPRF           */ IE027000
                                    921+*/*             MAGNETIC TAPE EXTENSION           UCBMT              */ IE028000
                                    922+*/*             TAPE CARTRIDGE READER EXTENSION   UCBTCR             */ IE029000
                                    923+*/*             OPTICAL READER EXTENSION          UCBOR              */ IE030000

                                    924+*/*             UNIT RECORD WITH UCS EXTENSION    UCBUCS             */ IE031000
                                    925+*/*             3211 SENSE INFORMATION EXTENSION  UCBSNINF           */ IE032000
                                    926+*/*             M65 MULTIPROCESSING PREFIX        UCBM65MP           */ IE033000
                                    927+*/*                                                                  */ IE034000
                                    928+*/*             WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH  */ IE035000

                                    929+*/*             DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER   */ IE036000
                                    930+*/*             IN THE DEFN COLUMN IN THE CORSS REFERENCE LISTING.   */ IE037000
                                    931+*/*             FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE          */ IE038000
                                    932+*/*             STATEMENT NUMBERS FOR UCBDA AND UCBDA2 IS IN THE     */ IE039000
                                    933+*/*             UCBDA DSECT.                                         */ IE040000
                                    934+*/*                                                                  */ IE041000

                                    935+*/*  F.E.'S                                                          */ IE042000
                                    936+*/*                                                                  */ IE043000
                                    937+*/*      MICROFICHE LISTING - IEFUCBOB                               */ IE044000
                                    938+*/*                                                                  */ IE045000

                                    939+*/*  DEVELOPERS                                                      */ IE046000
                                    940+*/*                                                                  */ IE047000
                                    941+*/*      BAL LISTING  - SPECIFY LIST=YES ON MACRO CALL               */ IE048000
                                    942+*/*      PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE        */ IE049000
                                    943+*/*                                                                  */ IE050000

                                    944+*/*      FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS     */ IE051000
                                    945+*/*      YOUR MODULE CREATES THE CSECT.                              */ IE052000
                                    946+*/*                                                                  */ IE053000
                                    947+*/*  FUNCTION                                                        */ IE054000
                                    948+*/*                                                                  */ IE055000
                                    949+*/*      A UNIT CONTROL BLOCK                                        */ IE056000
INTF     OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   14



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    950+*/*      INCORPORATING A SYSTEM RESOURCE TABLE                       */ IE057000
                                    951+*/*      RECORDS THE STATUS OF                                       */ IE058000

                                    952+*/*        A PHYSICAL INPUT OUTPUT DEVICE ADDRESS                    */ IE059000
                                    953+*/*      IS CREATED AND INITIALIZED DURING SYSTEM GENERATION         */ IE060000
                                    954+*/*      RESIDES IN THE NUCLEUS BELOW 32 K                           */ IE061000
                                    955+*/*      POINTS TO A DEVICE TYPE DEPENDENT EXTENSION                 */ IE062000
                                    956+*/*        RESIDING HIGHER IN THE NUCLEUS                            */ IE063000

                                    957+*/*      IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY            */ IE064000
                                    958+*/*        A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS     */ IE065000
                                    959+*/*      MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES               */ IE066000
                                    960+*/*        AND DATA EXTENT BLOCKS                                    */ IE067000
                                    961+*/*      CONTAINS INDICES INTO TABLES FOR                            */ IE068000
                                    962+*/*        DEVICE STATISTICS ATTENTION LOGICAL CHANNEL               */ IE069000
                                    963+*/*      MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS    */ IE070000
                                    964+*/*                                                                  */ IE071000

                                    965+*/*  OUTPUT                                                          */ IE072000
                                    966+*/*                                                                  */ IE073000

                                    967+*/*      SYSGEN INDEPENDENT COMMON SECTION                           */ IE074000
                                    968+*/*        INCLUDING UCBTYP WORD                                     */ IE075000
                                    969+*/*      DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)             */ IE076000
                                    970+*/*        DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE         */ IE077000
                                    971+*/*        DATACELL (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)*/ IE078000

                                    972+*/*        UNIT RECORD WITH UNIVERSAL CHARACTER SET                  */ IE079000
                                    973+*/*        GRAPHICS                                                  */ IE080000
                                    974+*/*        TAPE CARTRIDGE READER AND OPTICAL READER                  */ IE081000
                                    975+*/*      CELL DESCRIPTION FOR ONE OF THE TEN CELLS                   */ IE082000
                                    976+*/*        IN THE DATACELL DEVICE SEGMENT ABOVE                      */ IE083000
                                    977+*/*      UCB EXTENSION (ONE OF THE FOLLOWING)                        */ IE084000
                                    978+*/*        DIRECT ACCESS                                             */ IE085000
                                    979+*/*        DIRECT ACCESS 2                                           */ IE086000
                                    980+*/*        MAGNETIC TAPE AND ITS PREFIX                              */ IE087000

                                    981+*/*        TAPE CARTRIDGE READER                                     */ IE088000

                                    982+*/*        OPTICAL READER                                            */ IE089000
                                    983+*/*        UNIVERSAL CHARACTER SET                                   */ IE090000
                                    984+*/*        3211 SENSE INFORMATION                                    */ IE091000
                                    985+*/*      M65 MULTIPROCESSING PREFIX                                  */ IE092000
                                    986+*/*        (CONTIGUOUSLY PRECEDING COMMON SECTION)                   */ IE093000

                                    987+*/*                                                                  */ IE094000
                                    988+*/* **************************************************************** */ IE095000
                                    989+*%GOTO UCBL2;   /*                                                      IE096000
                                    990+         PUSH  PRINT                                                    IE097000
                                    991+         PRINT OFF                                                      IE099000
                                   1727+         POP   PRINT                                                    IE836000


000000                             1729+HASPINTF CSECT                     END UNIT CONTROL BLOCK DSECT         UC016000
INTF     HASP DEVICE CONTROL TABLE DSECT                                                                       PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             1732+DCTDSECT DSECT                     DEVICE CONTROL TABLE DSECT           DC308000
000000                             1733+DCTSTAT  DS    0C                  DCT STATUS                           DC310000
000000                             1734+DCTPCE   DS    F                   ADDRESS OF PROCESSOR CONTROL ELEMENT DC312000

000004                             1735+DCTBUFAD DS    F                   CURRENT BUFFER ADDRESS               DC314000
000008                             1736+DCTPSTAT DS    0C                  REMOTE JOB ENTRY FLAGS               DC316000
000008                             1737+DCTDCB   DS    0F                  ADDRESS OF DATA CONTROL BLOCK        DC318000
000008                             1738+DCTSEEK  DS    F                   CURRENT TRACK ADDRESS                DC320000
00000C                             1739+MDCTOPCT DS    0C                  COUNT OF OPEN RJE PROCESSORS         DC322000
00000C                             1740+MDCTOBUF DS    0F                  RJE OUTPUT BUFFER CHAIN              DC324000
00000C                             1741+DCTEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     DC326000
000010                             1742+DCTBUFCT DS    C                   ACTIVE BUFFER COUNT                  DC328000
000011                             1743+MDCTATTN DS    0C                  RJE LINE ACTION PENDING FLAGS        DC330000
000011                             1744+DCTNO    DS    C                   DCT NUMBER                           DC332000
000012                             1745+DCTDEVTP DS    C                   DEVICE TYPE                          DC334000

000013                             1746+DCTIOTYP DS    0C                  I/O REQUEST TYPE                     DC336000
000013                             1747+DCTPCODE DS    C                   LINE/REMOTE CODE                     DC338000
000014                             1748+DCTFLAGS DS    0C                  OPERATOR COMMAND FLAGS               DC340000
000014                             1749+DCTCHAIN DS    F                   ADDRESS OF NEXT DCT                  DC342000

000018                             1750+DCTDEVN  DS    0CL8,CL4            EBCDIC DEVICE NAME                   DC344000
00001C                             1751+DCTOTC   DS    H                   OVERLAY DEVICE TRACKS/CYLINDER       DC346000
00001E                             1752+DCTOTT   DS    H                   OVERLAY EXTENT BEGINNING TT          DC348000
000020                             1753+MDCTCODE DS    0F                  ADDRESS OF RJE CODE TABLE            DC350000
000020                             1754+DCTFORMS DS    0F                  PRINT/PUNCH FORMS ID                 DC352000
000020                             1755+DCTPRINT DS    C                   DEFAULT PRINT ROUTING                DC354000
000021                             1756+DCTPUNCH DS    C                   DEFAULT PUNCH ROUTING                DC356000
000022                             1757+DCTPRINC DS    C                   PRIORITY INCREMENT                   DC358000
000023                             1758+DCTPRLIM DS    C                   PRIORITY LIMIT                       DC360000
000024                             1759+DCTFCB   DS    F                   PRINT FCB ID                         DC360300
000028                             1760+DCTUCS   DS    F                   PRINT UCS ID                         DC360600
00002C                             1761+DCTPPSW  DS    X                   PRINT/PUNCH SWITCHES                 DC360900

00002D                             1762+DCTCLASS DS    CL8                 PRINT/PUNCH CLASS MASK               DC361200
000035                             1763+         DS    C                   CLASS MASK TERMINATOR                DC361500
000038                             1764+DCTWORK  DS    0F                  START OF DEVICE WORK AREA            DC362000

000038                             1765+RIDUCB   DS    0F                  INTERNAL READER UCB ADDRESS          DC364000
000038                             1766+MDCTFCS  DS    H                   REMOTE TERMINAL FUNCTION CONTROL SEQ DC366000
00003A                             1767+MDCTERCT DS    0C                  REMOTE TERMINAL ERROR COUNT          DC368000
00003A                             1768+DCTPRLEN DS    C                   REMOTE TERMINAL DATA WIDTH           DC370000
00003B                             1769+DCTPLINE DS    C                   REMOTE TERMINAL LINE CHARACTERISTICS DC372000
00003C                             1770+MDCTRCB  DS    0C                  REMOTE TERMINAL RECORD CONTROL BYTE  DC374000
00003C                             1771+MDCTDCT  DS    0F                  REMOTE TERMINAL DCT CHAIN FIELD      DC376000
00003C                             1772+RIDFLAGS DS    H                   INTERNAL READER SYNCH FLAGS          DC378000
00003E                             1773+RIDTJID  DS    H                   RESERVED                             DC380000
000040                             1774+RIDECB   DS    0F                  INTERNAL READER ECB ADDRESS          DC382000
000040                             1775+MDCTRSEQ DS    C                   REMOTE TERMINAL TRANSMIT SEQUENCE    DC384000
000041                             1776+MDCTTSEQ DS    C,H                 REMOTE TERMINAL RECEIVE SEQUENCE     DC386000

000044                             1777+MDCTPSWD DS    0CL8                REMOTE TERMINAL PASSWORD             DC388000

000044                             1778+RIDTCB   DS    F                   INTERNAL READER TCB ADDRESS          DC390000
000048                             1779+RIDDATA  DS    CL80                INTERNAL READER DATA AREA            DC394000

                            00098  1780+DCTEND   EQU   *                   SYMBOL FOR END OF DCT                DC395000
000000                             1781+HASPINTF CSECT                     END OF DEVICE CONTROL TABLE DSECT    DC396000
INTF     HASP DCT STATUS BIT DEFINITIONS                                                                       PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                   1784+*                             DCTSTAT                                   DC402000



                            00080  1786+DCTINUSE EQU   X'80'               DCT IS IN USE                        DC406000
                            00040  1787+DCTDRAIN EQU   X'40'               DCT IS DRAINED                       DC408000
                            00020  1788+DCTHOLD  EQU   X'20'               DCT IS HELD                          DC410000
                            00010  1789+DCTEJECT EQU   X'10'               DEVICE IS AT CHNL 1 POSITION         DC411000







                                   1791+*                             DCTPSTAT                                  DC414000




                            00080  1793+DCTLOGAL EQU   X'80'               LOG EVERY CHANNEL END                DC418000
                            00040  1794+DCTLEASE EQU   X'40'               LEASED LINE                          DC420000
                            00020  1795+DCTETX   EQU   X'20'               AN ETX HAS BEEN RECEIVED             DC422000
                            00010  1796+DCTSOFF  EQU   X'10'               A /*SIGNOFF CARD HAS BEEN RECEIVED   DC424000
                            00010  1797+DCTEOF   EQU   X'10'               AN EOF HAS BEEN DETECTED             DC425000
                            00008  1798+DCTSINON EQU   X'08'               REMOTE DCT IS ATTACHED TO LINE DCT   DC426000
                            00004  1799+DCTPOST  EQU   X'04'               I/O COMPLETE FLAG                    DC428000
                            00002  1800+DCTABORT EQU   X'02'               TRANSMISSION WAS ABORTED             DC430000
                            00001  1801+DCTPBUF  EQU   X'01'               REMOTE OUTPUT BUFFER INDICATION      DC432000






                                   1803+*                             DCTDEVTP                                  DC436000



                            00000  1805+DCTDA    EQU   X'00'               DIRECT ACCESS DEVICE                 DC440000

                            00001  1806+DCTOLAY  EQU   X'01'               OVERLAY DEVICE                       DC442000
                            00002  1807+DCTLNE   EQU   X'02'               REMOTE JOB ENTRY LINE                DC444000
                            00010  1808+DCTRDR   EQU   X'10'               LOCAL CARD READER                    DC446000
                            00012  1809+DCTRJR   EQU   X'12'               REMOTE CARD READER                   DC450000
                            00014  1810+DCTINR   EQU   X'14'               INTERNAL READER                      DC452000
                            00020  1811+DCTPRT   EQU   X'20'               LOCAL PRINTER                        DC454000
                            00022  1812+DCTRPR   EQU   X'22'               REMOTE PRINTER                       DC456000
                            00030  1813+DCTPUN   EQU   X'30'               LOCAL PUNCH                          DC458000
                            00032  1814+DCTRPU   EQU   X'32'               REMOTE PUNCH                         DC460000
                            00042  1815+DCTRCON  EQU   X'42'               REMOTE CONSOLE                       DC464000
INTF     HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                   1818+*                             DCTIOTYP                                  DC470000




                            00080  1820+DCTREAD  EQU   X'80'               READ REQUEST                         DC474000
                            00040  1821+DCTWRITE EQU   X'40'               WRITE REQUEST                        DC476000
                            00008  1822+DCTREJRM EQU   X'08'               REMOTE RESTRICTION ALWAYS 0          DC482000
                            00004  1823+DCTREJJB EQU   X'04'               RESTRICTED FROM JOB COMMANDS         DC484000
                            00002  1824+DCTREJDV EQU   X'02'               RESTRICTED FROM DEVICE COMMANDS      DC486000
                            00001  1825+DCTREJSY EQU   X'01'               RESTRICTED FROM SYSTEM COMMANDS      DC488000






                                   1827+*                             DCTPCODE                                  DC492000



                            00000  1829+DCTPHALF EQU   X'00'               HALF-DUPLEX LINE                     DC496000
                            00001  1830+DCTPFULL EQU   X'01'               FULL-DUPLEX LINE                     DC498000
                            00002  1831+DCTPWIDE EQU   X'02'               WIDE-BAND LINE                       DC500000
                            00020  1832+DCTPPRES EQU   X'20'               HARDWARE COMPRESS FEATURE            DC501000

                            00010  1833+DCTPCON  EQU   X'10'               REMOTE TERMINAL CONSOLE              DC502000
                            00010  1834+DCTPMRF  EQU   X'10'               MULTIPLE-RECORD FEATURE              DC504000

                            00008  1835+DCTPTAB  EQU   X'08'               HORIZONTAL FORMAT CONTROL            DC506000
                            00004  1836+DCTPROG  EQU   X'04'               PROGRAMMABLE INTERFACE               DC508000
                            00002  1837+DCTPVAR  EQU   X'02'               VARIABLE LENGTH RECORDS              DC510000
                            00001  1838+DCTPBLK  EQU   X'01'               BLOCKED RECORDS                      DC512000





                                   1840+*                             DCTPLINE                                  DC516000




                            00000  1842+DCTP2770 EQU   X'00'               1009, 2770, 3780                     DC520000
                            00001  1843+DCTPHARD EQU   X'01'               1978, 2780                           DC522000
                            00002  1844+DCTP20   EQU   X'02'               360/20 SUB-MODEL 5 OR 6              DC524000
                            00004  1845+DCTP360  EQU   X'04'               360/22, 25, 30, 40, ETC.             DC526000
                            00006  1846+DCTP20S2 EQU   X'06'               360/20 SUB-MODEL 2 OR 4              DC528000

                            00008  1847+DCTP1130 EQU   X'08'               1130                                 DC530000
                            0000A  1848+DCTPSYS3 EQU   X'0A'               SYSTEM/3                             DC532000

                            0000E  1849+DCTPCPU  EQU   X'0E'               CPU TERMINAL                         DC534000
                            00010  1850+DCTPHASP EQU   X'10'               HASP                                 DC536000
                            00020  1851+DCTPASCI EQU   X'20'               USASCII CODE                         DC538000
                            00040  1852+DCTPTRSP EQU   X'40'               TRANSPARENCY                         DC540000
                            00080  1853+DCTPBSC  EQU   X'80'               BINARY SYNCHRONOUS LINE              DC542000
INTF     HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                   1856+*                             DCTFLAGS                                  DC548000



                            00080  1858+DCTSTOP  EQU   X'80'               $Z ($STOP) COMMAND                   DC552000
                            00040  1859+DCTDELET EQU   X'40'               $C ($DELETE) COMMAND                 DC554000

                            00020  1860+DCTRSTRT EQU   X'20'               $E ($RESTART) COMMAND                DC556000
                            00010  1861+DCTRPT   EQU   X'10'               $N ($REPEAT) COMMAND                 DC558000
                            00008  1862+DCTBKSP  EQU   X'08'               $B ($BACKSPACE) COMMAND              DC560000

                            00004  1863+DCTHOLDJ EQU   X'04'               $T...,H COMMAND                      DC562000
                            00004  1864+DCTSPACE EQU   X'04'               $T...,C=1 COMMAND                    DC564000





                                   1866+*                                  DCTPPSW                              DC568000



                            00080  1868+DCTPPSWC EQU   X'80'               FCB CARRAGE ALTERED                  DC571000

                            00040  1869+DCTPPSWF EQU   X'40'               FORMS CONTROLLED BY OPERATOR         DC572000
                            00020  1870+DCTPPSWQ EQU   X'20'               QUEUE CLASSES ARE ALTERED            DC573000
                            00010  1871+DCTPPSWS EQU   X'10'               SUPPRESS SEPARATOR PAGES             DC574000
                            00008  1872+DCTPPSWT EQU   X'08'               UCS TRAIN ALTERED                    DC575000
                            00004  1873+DCTPPSWU EQU   X'04'               UCS NOT STANDARD                     DC575500

                            00002  1874+DCTPPSWI EQU   X'02'               DEVICE IDLE MESSAGE ISSUED           DC576000
                            00001  1875+DCTPPSWO EQU   X'01'               OPERATOR ACTION ALLOWED              DC577000






                                   1877+*                             RIDFLAGS                                  DC580000



                            00080  1879+RIDPOST  EQU   X'80'               USER WAITING FOR POST                DC584000
                            00040  1880+RIDBUSY  EQU   X'40'               I/O SIMULATION IN PROCESS            DC585000
INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   1882+*,***  IHB069  DEVD NOT SPECIFIED-ALL ASSUMED


                                   1884+*                       DCB SYMBOLIC DEFINITION FOR                     07700000
                                   1885+*                       PHYSICAL SEQUENTIAL                             07900000


                                   1887+*********************************************************************** 09960021
                                   1888+*  OS     RELEASE 21.8, 03/22/74                                      * 10000021
                                   1889+*  OS/VS1 RELEASE 03.1, 03/22/74                                      * 10010021
                                   1890+*********************************************************************** 10020021


000000                             1892+IHADCB   DSECT , -            DCBPTR                                    10150000

                            00080  1894+DCBBIT0  EQU   128                                                      10210021
                            00040  1895+DCBBIT1  EQU   64                                                       10220021
                            00020  1896+DCBBIT2  EQU   32                                                       10230021

                            00010  1897+DCBBIT3  EQU   16                                                       10240021
                            00008  1898+DCBBIT4  EQU   8                                                        10242021
                            00004  1899+DCBBIT5  EQU   4                                                        10244021
                            00002  1900+DCBBIT6  EQU   2                                                        10246021
                            00001  1901+DCBBIT7  EQU   1                                                        10248021


                                   1903+*                       DEVICE INTERFACES                               10350000

                                   1905+*                       DIRECT ACCESS DEVICES                           10500000

000000                             1907+DCBRELAD DS    CL4 -          PARTITIONED ORGANIZATION DATA SET -       10600000

                                   1908+*                             ADDRESS (IN THE FORM TTRN) OF MEMBER      10650000
                                   1909+*                             CURRENTLY USED.  ---                      10700000
                                   1910+*                             SYS1.LOGREC DATA SET - IF CCH OPTION HAS  10750000
                                   1911+*                             BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS 10800000

                                   1912+*                             OF A 12-BYTE PARAMETER IN THE EXPANSION   10850000
                                   1913+*                             OF MACRO INSTRUCTION IGFCATAP             10900000
000004                             1914+DCBKEYCN DS    FL1 -          KEYED BLOCK OVERHEAD CONSTANT             10950000
000005                             1915+DCBFDAD  DS    CL8 -          FULL DISK ADDRESS IN THE FORM OF MBBCCHHR 11000000
                                   1916+*                             OF RECORD THAT WAS JUST READ OR WRITTEN   11050000


00000D                      0000C  1918+         ORG   DCBFDAD+7                                                11150000
00000C                             1919+DCBDVTBL DS    0A -           SAME AS DCBDVTBA BELOW                    11200000
00000C                             1920+         DS    X -            LAST BYTE OF DCBFDAD                      11250000
00000D                             1921+DCBDVTBA DS    AL3 -          ADDRESS OF ENTRY IN I/O DEVICE            11300000
                                   1922+*                             CHARACTERISTICS TABLE FOR DEVICE BEING    11350000
                                   1923+*                             USED                                      11400000

000010                             1924+         DS    FL1 -          DCBKEYLE - KEY LENGTH OF DATA SET         11450000
000011                             1925+         DS    C -            DCBDEVT - DEVICE TYPE                     11500000
                                   1926+*   FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION      11550000

                            00021  1927+DCBDV311 EQU   X'21' -        2311 DISK DRIVE                           11600000
                            00022  1928+DCBDV301 EQU   X'22' -        2301 PARALLEL DRUM                        11650000
                            00023  1929+DCBDV303 EQU   X'23' -        2303 SERIAL DRUM                          11700000
                            00024  1930+DCBDV302 EQU   X'24' -        2302 DISK STORAGE                         11750000
                            00025  1931+DCBDV321 EQU   X'25' -        2321 DATA CELL DRIVE                      11800000

                            00028  1932+DCBDV314 EQU   X'28' -        2314 DISK STORAGE FACILITY                11850000
000012                             1933+DCBTRBAL DS    H -            TRACK BALANCE.  NUMBER OF BYTES REMAINING 11900000
                                   1934+*                             ON CURRENT TRACK AFTER A WRITE OPERATION  11950000
                                   1935+*                             (THIS QUANTITY MAY BE NEGATIVE IF THERE   12000000
INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1936+*                             ARE NO BYTES REMAINING ON TRACK).         12050000


                                   1938+*                       MAGNETIC TAPE                                   12200000


000014                      00000  1940+         ORG   IHADCB                                                   12300000
000000                             1941+         DS    CL12 -         RESERVED FOR I/O SUPERVISOR               12350000
00000C                             1942+DCBBLKCT DS    F -            BLOCK COUNT FOR EACH VOLUME               12400000
000010                             1943+DCBTRTCH DS    C -            TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 12450000
                            00023  1944+DCBMTE   EQU   X'23' -        E  - EVEN PARITY                          12500000

                            0003B  1945+DCBMTT   EQU   X'3B' -        T  - BCD/EBCDIC TRANSLATION               12550000
                            00013  1946+DCBMTC   EQU   X'13' -        C  - DATA CONVERSION                      12600000
                            0002B  1947+DCBMTET  EQU   X'2B' -        ET - EVEN PARITY AND TRANSLATION          12650000
000011                             1948+         DS    C -            DCBDEVT - DEVICE TYPE                     12700000
                            00081  1949+DCBDVMT  EQU   X'81' -        2400 SERIES MAGNETIC TAPE UNIT (7-TRACK   12750000
                                   1950+*                             OR 9-TRACK)                               12800000
                            00083  1951+DCBDVMT3 EQU   X'83' -        3400 SERIES MAGNETIC TAPE UNIT     ICB277 12850000
000012                             1952+DCBDEN   DS    C -            TAPE DENSITY - 2400 SERIES MAGNETIC TAPE  12900000
                                   1953+*                             UNITS                                     12950000

                                   1954+*                             CODE    7-TRACK     9-TRACK               13000000

                            00003  1955+DCBMTDN0 EQU   X'03' -         0       200 BPI       -                  13050000
                            00043  1956+DCBMTDN1 EQU   X'43' -         1       556 BPI       -                  13100000
                            00083  1957+DCBMTDN2 EQU   X'83' -         2       800 BPI     800 BPI              13150000
                            000C3  1958+DCBMTDN3 EQU   X'C3' -         3         -        1600 BPI              13200000
                            000D3  1959+DCBMTDN4 EQU   X'D3' -         4         -        6250 BPI        99223 13210003

000013                             1960+         DS    X -            RESERVED                                  13250000

                                   1962+*                       PAPER TAPE                                      13400000

000014                      00008  1964+         ORG   IHADCB+8                                                 13500000
000008                             1965+DCBLCTBL DS    A -            ADDRESS OF TRANSLATE TABLE                13550000
00000C                             1966+         DS    XL4 -          RESERVED                                  13600000
000010                             1967+DCBCODE  DS    C -            PAPER TAPE CODE BEING USED.  THE          13650000
                                   1968+*                             APPROPRIATE TRANSLATE TABLE IS MADE       13700000
                                   1969+*                             AVAILABLE                                 13750000

                            00080  1970+DCBPTCDN EQU   X'80' -        N - NO CONVERSION                         13800000

                            00040  1971+DCBPTCDI EQU   X'40' -        I - IBM BCD                               13850000
                            00020  1972+DCBPTCDF EQU   X'20' -        F - FRIDEN                                13900000
                            00010  1973+DCBPTCDB EQU   X'10' -        B - BURROUGHS                             13950000
                            00008  1974+DCBPTCDC EQU   X'08' -        C - NATIONAL CASH REGISTER                14000000

                            00004  1975+DCBPTCDA EQU   X'04' -        A - ASCII (8-TRACK)                       14050000
                            00002  1976+DCBPTCDT EQU   X'02' -        T - TELETYPE                              14100000
000011                             1977+         DS    C -            DCBDEVT - DEVICE TYPE                     14150000
                            00050  1978+DCBDVPTP EQU   X'50' -        2671 PAPER TAPE READER                    14200000
000012                             1979+         DS    X -            RESERVED                                  14250000
000013                             1980+DCBPTFLG DS    BL1 -          PAPER TAPE FLAGS                          14300000
                            00010  1981+DCBPTIC  EQU   DCBBIT3 -      INVALID CHARACTER IN LAST RECORD READ     14350003
                            00008  1982+DCBPTECT EQU   DCBBIT4 -      END OF RECORD CHARACTER REACHED IN        14400003
                                   1983+*                             TRANSLATION                               14450000
                            00004  1984+DCBPTECR EQU   DCBBIT5 -      END OF RECORD CHARACTER DETECTED DURING   14500003
                                   1985+*                             READ                                      14550000

                            00002  1986+DCBPTUCT EQU   DCBBIT6 -      IF ONE, UPPER CASE TRANSLATE.             14600003
                                   1987+*                             IF ZERO, LOWER CASE TRANSLATE             14650000
                            00001  1988+DCBPTERR EQU   DCBBIT7 -      ERROR DETECTED ON READ                    14700003


                                   1990+*                       PRINTER                                         14850000
INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000014                      00010  1992+         ORG   IHADCB+16                                                14950000
000010                             1993+DCBPRTSP DS    C -            NUMBER INDICATING NORMAL PRINTER SPACING  15000000
                            00001  1994+DCBPRSP0 EQU   X'01' -        0 - NO SPACING                            15050000
                            00009  1995+DCBPRSP1 EQU   X'09' -        1 - SPACE ONE LINE                        15100000
                            00011  1996+DCBPRSP2 EQU   X'11' -        2 - SPACE TWO LINES                       15150000
                            00019  1997+DCBPRSP3 EQU   X'19' -        3 - SPACE THREE LINES                     15200003
000011                             1998+         DS    C -            DCBDEVT - DEVICE TYPE                     15250000
                            00048  1999+DCBDVPR1 EQU   X'48' -        1403 PRINTER AND 1404 PRINTER (CONTINUOUS 15300000
                                   2000+*                             FORM SUPPORT ONLY)                        15350000

                            0004A  2001+DCBDVPR2 EQU   X'4A' -        1443 PRINTER                              15400000
                            00049  2002+DCBDVPR3 EQU   X'49' -        3211 PRINTER                              15450000
000012                             2003+DCBPRTOV DS    C -            TEST-FOR-PRINTER-OVERFLOW MASK            15500000

                                   2004+*                             (PRTOV MASK)                              15550000
                            00020  2005+DCBPRC9  EQU   X'20' -        9  - TEST FOR CHANNEL 9 OVERFLOW          15600000
                            00010  2006+DCBPRC12 EQU   X'10' -        12 - TEST FOR CHANNEL 12 OVERFLOW         15650000
000013                             2007+         DS    X -            RESERVED                                  15700000

                                   2009+*                       CARD READER, CARD PUNCH                         15850000

000014                      00010  2011+         ORG   IHADCB+16                                                15950000
000010                             2012+DCBMODE  DS    0B -           MODE OF OPERATION FOR 1442 CARD READ      16000000
                                   2013+*                             PUNCH (BITS 0-3)                          16050000
000010                             2014+DCBSTACK DS    B -            STACKER SELECTION (BITS 4-7)              16100000
                            00080  2015+DCBMODEC EQU   DCBBIT0 -      COLUMN BINARY MODE                        16150003

                            00040  2016+DCBMODEE EQU   DCBBIT1 -      EBCDIC MODE                               16200003

                            00020  2017+DCBMODEO EQU   DCBBIT2 -      OPTICAL MARK READ MODE                    16250003
                            00010  2018+DCBMODER EQU   DCBBIT3 -      READ COLUMN ELIMINATE MODE                16300003

                            00002  2019+DCBSTCK2 EQU   DCBBIT6 -      STACKER 2                                 16350003
                            00001  2020+DCBSTCK1 EQU   DCBBIT7 -      STACKER 1                                 16400003
000011                             2021+         DS    C -            DCBDEVT - DEVICE TYPE                     16450000
                            00041  2022+DCBDVCR0 EQU   X'41' -        2540 CARD READER                          16500000
                            00042  2023+DCBDVCP0 EQU   X'42' -        2540 CARD PUNCH                           16550000
                            00043  2024+DCBDVCRP EQU   X'43' -        1442 CARD READ PUNCH                      16600000
                            00044  2025+DCBDVCR1 EQU   X'44' -        2501 CARD READER                          16650000
                            00045  2026+DCBDVCPR EQU   X'45' -        2520 CARD READ PUNCH                      16700000
                            00046  2027+DCBDVCR2 EQU   X'46'          3505 CARD READER                   XM0629 16710002
                            0004C  2028+DCBDVCP1 EQU   X'4C'          3525 CARD PUNCH                    XM0629 16720002
000012                             2029+         DS    X -            RESERVED                                  16750000
000013                             2030+DCBFUNC  DS    B -            FUNCTION INDICATOR FOR THE 3525           16800000

                            00080  2031+DCBFNCBI EQU   DCBBIT0 -      INTERPRET (PUNCH AND PRINT TWO LINES)     16850003
                            00040  2032+DCBFNCBR EQU   DCBBIT1 -      READ                                      16900003

                            00020  2033+DCBFNCBP EQU   DCBBIT2 -      PUNCH                                     16950003

                            00010  2034+DCBFNCBW EQU   DCBBIT3 -      PRINT                                     17000003
                            00008  2035+DCBFNCBD EQU   DCBBIT4 -      DATA PROTECTION                           17050003
                            00004  2036+DCBFNCBX EQU   DCBBIT5 -      THIS DATA SET IS TO BE PRINTED            17100003
                            00002  2037+DCBFNCBT EQU   DCBBIT6 -      TWO-LINE PRINT SUPPORT REQUEST            17150003

                                   2039+*                       OPTICAL READER AND MAGNETIC CHAR READER         18100000

000014                      00000  2041+         ORG   IHADCB                                                   18200000
000000                             2042+DCBWTOID DS    0A -           SAME AS DCBWTOIA BELOW                    18250000
000000                             2043+         DS    X -            RESERVED                                  18300000
000001                             2044+DCBWTOIA DS    AL3 -          A BINARY IDENTIFICATION NUMBER ASSIGNED   18350000
                                   2045+*                             BY COMMUNICATIONS TASK TO MESSAGE ISSUED  18400000

                                   2046+*                             BY WTO MACRO.  THIS NUMBER IS USED BY THE 18450000
INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   2047+*                             DOM MACRO WHEN MESSAGE IS NO LONGER       18500000
                                   2048+*                             REQUIRED (MCS SUPPORT).  ---              18550000
                                   2049+*                             FOR MAGNETIC CHAR READER - AFTER FIRST    18600000
                                   2050+*                             READ HAS BEEN ISSUED, CONTAINS ADDRESS OF 18650000
                                   2051+*                             MAGNETIC INTERRUPT CONTROL BLOCK (MICB)   18700000
                                   2052+*                             BEING USED BY THE APPENDAGES.             18750000

                                   2054+*                       OPTICAL READER DEVICES                          18900000
                                   2055+*                       1285, 1287, 1288, 3886                          18950003

000004                      00004  2057+         ORG   DCBWTOID+4                                               19050000
000004                             2058+DCBERRCN DS    0A -           SAME AS DCBERRCA BELOW                    19100000

000004                             2059+DCBERRCA DS    AL3 -          ADDRESS OF 32 BYTES OF DECLARED STORAGE   19200000
                                   2060+*                             SPECIFIED BY THE USER IN HIS PROGRAM.     19250000
                                   2061+*                             THIS STORAGE WILL BE USED BY THE          19300000

                                   2062+*                             PROGRAMMING SUPPORT AS EIGHT 4-BYTE       19350000
                                   2063+*                             COUNTERS IN WHICH TOTALS OF CERTAIN 1285, 19400000
                                   2064+*                             1287 AND 1288 ERROR CONDITIONS ARE        19450000
                                   2065+*                             ACCUMULATED.                              19500000
000007                      00004  2066+         ORG   DCBWTOID+4                                               19510003
000004                             2067+DCBLNNUM DS    X              3886  DOCUMENT LINE NUMBER                19520003
000005                             2068+DCBLFMAT DS    X              3886  LINE FORMAT NUMBER                  19530003
000006                             2069+DCBORFLG DS    X              3886  FLAGS                               19540003
                            00080  2070+DCBEOPFG EQU   DCBBIT0        END OF PAGE                               19540403
000007                             2071+         DS    X              RESERVED                                  19542003
000008                             2072+DCBDSPLY DS    0A -           SAME AS DCBDSPLA BELOW                    19550000
000008                             2073+DCBFRID  DS    0CL4           3886  FORMAT RECORD ID                    19560003

000008                             2074+         DS    X -            RESERVED                                  19600000
000009                             2075+DCBDSPLA DS    AL3 -          ADDRESS OF DSPLY (BSAM) ROUTINE USED FOR  19650000
                                   2076+*                             KEYBOARD ENTRY OF A COMPLETE FIELD        19700000
00000C                             2077+DCBRESCN DS    0A -           SAME AS DCBRESCA BELOW                    19750000

00000C                             2078+DCBRDLNE DS    0A -           SAME AS DCBRDLNA BELOW                    19800000
00000C                             2079+DCBFRTBA DS    0A             3886  FORMAT RECORD TABLE                 19810003
00000C                             2080+         DS    X -            RESERVED                                  19850000
00000D                             2081+DCBRESCA DS    0AL3 -         ADDRESS OF RESCN (BSAM) ROUTINE USED TO   19900000
                                   2082+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    19950000
                                   2083+*                             CHARACTERS                                20000000

00000D                             2084+DCBRDLNA DS    AL3 -          ADDRESS OF RDLNE (QSAM) ROUTINE USED TO   20050000
                                   2085+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    20100000
                                   2086+*                             CHARACTERS                                20150000
000010                             2087+DCBORBYT DS    BL1 -          OPTICAL READER BYTE USED BY BSAM/QSAM     20200000
                            00080  2088+DCBORSYN EQU   DCBBIT0 -      SYNAD IN CONTROL                          20250003
                            00040  2089+DCBOREOF EQU   DCBBIT1 -      END OF FILE (EOF)                         20300003
                            00020  2090+DCBORBFP EQU   DCBBIT2 -      BUFFERS PRIMED (QSAM)                     20350003
000011                             2091+         DS    C -            DCBDEVT - DEVICE TYPE                     20400000

                            0005A  2092+DCBDVOR5 EQU   X'5A' -        1285 OPTICAL READER                       20450000
                            0005B  2093+DCBDVOR7 EQU   X'5B' -        1287 OPTICAL READER                       20500000

                            0005C  2094+DCBDVOR8 EQU   X'5C' -        1288 OPTICAL READER                       20550000
                            00057  2095+DCBDVOR9 EQU   X'57'          3886 OPTICAL READER                       20560003
000012                             2096+DCBEIB   DS    BL1 -          ERROR INDICATOR BYTE                      20600000
                            00040  2097+DCBORNRM EQU   DCBBIT1 -      THE 1287 OR 1288 SCANNER WAS UNABLE TO    20650003
                                   2098+*                             LOCATE THE REFERENCE MARK                 20700000
                            00020  2099+DCBORREJ EQU   DCBBIT2 -      FOR 1287, A STACKER SELECT COMMAND WAS    20750003
                                   2100+*                             GIVEN AFTER ALLOTTED TIME HAD ELAPSED AND 20800000
                                   2101+*                             THE DOCUMENT HAS BEEN PUT IN REJECT       20850000

INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2102+*                             POCKET.  FOR 1288 UNFORMATTED ONLY,       20900000
                                   2103+*                             END-OF-PAGE HAS OCCURRED.                 20950000
                            00010  2104+DCBORERR EQU   DCBBIT3 -      A NONRECOVERABLE ERROR HAS OCCURRED.      21000003

                            00008  2105+DCBORECK EQU   DCBBIT4 -      AN EQUIPMENT CHECK RESULTED IN AN         21050003
                                   2106+*                             INCOMPLETE READ                           21100000
                            00004  2107+DCBORWLR EQU   DCBBIT5 -      A WRONG-LENGTH RECORD CONDITION HAS       21150003

                                   2108+*                             OCCURRED                                  21200000
                            00002  2109+DCBORHPR EQU   DCBBIT6 -      FOR QSAM - OPERATOR ENTERED ONE OR MORE   21250003
                                   2110+*                             CHARACTERS FROM THE KEYBOARD.             21300000
                                   2111+*                             FOR BSAM - A HOPPER EMPTY CONDITION HAS   21350000
                                   2112+*                             OCCURRED                                  21400000
                            00001  2113+DCBORDCK EQU   DCBBIT7 -      A DATA CHECK HAS OCCURRED                 21450003
000013                             2114+         DS    X -            RESERVED                                  21500000


                                   2116+*                       MAGNETIC CHARACTER READER DEVICES               21650000
                                   2117+*                       1419 MAGNETIC CHARACTER READER                  21700000
                                   2118+*                       1275 OPTICAL READER SORTER                      21750000
                                   2119+*                       3890 MAGNETIC CHARACTER READER                  21760003


000014                      00000  2121+         ORG   IHADCB                                                   21850000
000000                             2122+DCBSSID  DS    CL8 -          BEFORE DCB IS OPENED - NAME OF USER'S     21900000
                                   2123+*                             STACKER SELECT ROUTINE.                   21950000


000008                      00000  2125+         ORG   DCBSSID                                                  22050000
000000                             2126+         DS    A -            AFTER DCB IS OPENED - DCBWTOID            22100000
000004                             2127+DCBSSAD  DS    0A -           ADDRESS OF USER'S STACKER SELECT ROUTINE  22150000
000004                             2128+DCBIMG   DS    0A             3890  ADDR OF USER'S IMAGE PROC RTN       22160003
000004                             2129+         DS    X -            RESERVED                                  22200000

000005                             2130+DCBSSADA DS    AL3 -          ADDRESS OF USER'S STACKER SELECT ROUTINE  22250000
000008                             2131+DCBIMAGE DS    0A -           SAME AS DCBIMAGA BELOW                    22300000
000008                             2132+DCBMRFG  DS    BL1 -          BUFFER INDICATOR                          22350000
                            000C0  2133+DCBMRBCT EQU   DCBBIT0+DCBBIT1 -                                        22400003
                                   2134+*                             TWO-BIT BINARY COUNTER WHICH INDICATES    22410003

                                   2135+*                             INTO WHICH BUFFER STATUS INFORMATION IS   22450000
                                   2136+*                             TO BE POSTED                              22500000
000009                             2137+DCBIMAGA DS    AL3 -          ADDRESS OF PARAMETER LIST USED TO         22550000
                                   2138+*                             COMMUNICATE BETWEEN USER'S PROCESSING     22600000
                                   2139+*                             ROUTINES AND HIS STACKER SELECT ROUTINES  22650000

00000C                             2140+DCBECBLT DS    0A -           SAME AS DCBECBLA BELOW                    22700000
00000C                             2141+DCBHDR   DS    0A             3890  ADDR OF USER'S HEADER DATA AREA     22702003
00000C                             2142+DCBMRIND DS    BL1 -          INDICATOR AND COUNTER BYTE                22750000
                            000E0  2143+DCBMRDCT EQU   DCBBIT0+DCBBIT1+DCBBIT2                                  22800003
                                   2144+*                             THREE-BIT BINARY COUNTER OF NUMBER OF     22810003

                                   2145+*                             DOCUMENTS READ AFTER DISENGAGE            22850000
                            00010  2146+DCBMRSCU EQU   DCBBIT3 -      DCB WAS ALTERED WHEN SYNAD ROUTINE WAS    22900003
                                   2147+*                             ENTERED DUE TO SECONDARY CONTROL UNIT     22950000
                                   2148+*                             (SCU) ERROR                               23000000
                            00008  2149+DCBMRPLO EQU   DCBBIT4 -      POCKET LIGHT HAS BEEN TURNED ON           23050003

                            00004  2150+DCBMRPLS EQU   DCBBIT5 -      POCKET LIGHT 0-6 IS BEING SET ON          23100003
                            00002  2151+DCBMRERP EQU   DCBBIT6 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23150003
                                   2152+*                             PRIMARY CONTROL UNIT (PCU)                23200000
                            00001  2153+DCBMRERS EQU   DCBBIT7 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23250003
                                   2154+*                             SECONDARY CONTROL UNIT (SCU)              23300000
00000D                             2155+DCBECBLA DS    AL3 -          ADDRESS OF ECB LIST PASSED TO WAIT MACRO  23350000

                                   2156+*                             BY CHECK MACRO WHEN NO 1419/1275 IS       23400000
INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2157+*                             AVAILABLE FOR PROCESSING                  23450000

000010                             2158+DCBMRFLG DS    BL1 -          FLAG BYTE                                 23500000
                            00080  2159+DCBMRSCC EQU   DCBBIT0 -      FIRST OR SECOND SECONDARY CONTROL UNIT    23550003
                                   2160+*                             COMMAND CHAIN IS BEING USED               23600000
                            00040  2161+DCBMRDBG EQU   DCBBIT1 -      DEBUGGING MODE IN USE                     23650003
                            00020  2162+DCBMRDRU EQU   DCBBIT2 -      DISENGAGE REQUESTED BY USER               23700003

                            00010  2163+DCBMRDR  EQU   DCBBIT3 -      DISENGAGE REQUESTED                       23750003
                            0000C  2164+DCBMRPCC EQU   DCBBIT4+DCBBIT5 -                                        23800003
                                   2165+*                             TWO-BIT BINARY COUNTER INDICATING FIRST,  23802003
                                   2166+*                             SECOND OR THIRD PRIMARY CONTROL UNIT      23850000
                                   2167+*                             COMMAND CHAIN IS BEING USED               23900000
                            00002  2168+DCBMRDWT EQU   DCBBIT6 -      WTO MESSAGE MUST BE DELETED               23950003
                            00001  2169+DCBMRUE  EQU   DCBBIT7 -      UNIT EXCEPTION                            24000003

000011                             2170+         DS    C -            DCBDEVT - DEVICE TYPE                     24050000
                            0005D  2171+DCBDVMR  EQU   X'5D' -        1419 MAGNETIC CHARACTER READER            24100000
                            0005F  2172+DCBDVORS EQU   X'5F' -        1275 OPTICAL READER SORTER                24150000

                            00056  2173+DCBDVMRS EQU   X'56'          3890 MAGNETIC CHARACTER READER SORTER     24160003
000012                             2174+DCBAPPIN DS    C -            AN INDICATOR USED BY THE APPENDAGES TO    24200000
                                   2175+*                             PASS INFORMATION ABOUT ONE CHANNEL CHAIN  24250000
                                   2176+*                             TO AN APPENDAGE ASSOCIATED WITH ANOTHER   24300000
                                   2177+*                             CHANNEL CHAIN                             24350000

000013                             2178+         DS    X -            RESERVED                                  24400000

                                   2180+*                       ACCESS METHOD COMMON INTERFACE                  24600000

000014                      00010  2182+         ORG   IHADCB+16                                                24700000
000010                             2183+DCBRELB  DS    0F -           SAME AS DCBREL BELOW                      24750000
000010                             2184+DCBKEYLE DS    FL1 -          KEY LENGTH OF DATA SET                    24800000
000011                             2185+DCBDEVT  DS    0C -           DEVICE TYPE                               24850000

                            0004F  2186+DCBDVTRM EQU   X'4F' -        TERMINAL.  (DD CONTAINS TERM=TS)          24900000
000011                             2187+DCBREL   DS    FL3 -          NUMBER OF RELATIVE TRACKS OR BLOCKS IN    24950000

                                   2188+*                             THIS DATA SET (BDAM)                      25000000
000014                             2189+DCBBUFCB DS    0A -           ADDRESS OF BUFFER POOL CONTROL BLOCK      25050000
000014                             2190+DCBBUFNO DS    FL1 -          NUMBER OF BUFFERS REQUIRED FOR THIS DATA  25100000
                                   2191+*                             SET.  MAY RANGE FROM 0 TO 255.  IF        25150000
                                   2192+*                             UNBLOCKED SPANNED RECORDS ARE USED,       25200000

                                   2193+*                             NUMBER OF SEGMENT WORK AREAS REQUIRED     25250000
                                   2194+*                             FOR THIS DATA SET.                        25300000
000015                             2195+DCBBUFCA DS    AL3 -          ADDRESS OF BUFFER POOL CONTROL BLOCK      25350000
000018                             2196+DCBBUFL  DS    H -            LENGTH OF BUFFER.  MAY RANGE FROM 0 TO    25400000
                                   2197+*                             32,767.                                   25450000
00001A                             2198+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED          25500000
00001A                             2199+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG                    25550000
                            00080  2200+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION      25600003
                            00040  2201+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION     25650003

                            00020  2202+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION                  25700003

                            00010  2203+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP              25750003
                            00008  2204+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE     25800003
                            00004  2205+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE   25850003
                            00002  2206+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION             25900003
                            00001  2207+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS         25950003

                                   2208+*                                  LOCATION DEPENDENT INFORMATION       26000000
00001B                             2209+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG                   26050000
                            00080  2210+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION                26100003
                            00040  2211+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP                      26150003
INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00020  2212+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE                   26200003
                            00008  2213+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1 26250003
                            00004  2214+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024 26260003
00001C                             2215+DCBIOBAD DS    0A -           ADDRESS OF IOB WHEN CHAINED SCHEDULING IS 26300000

                                   2216+*                             USED OR FOR 1419/1275                     26350000

00001C                             2217+DCBODEB  DS    0A -           ADDRESS OF OLD DEB                        26400000
00001C                             2218+DCBLNP   DS    0FL1 -         3525 PRINTER LINE POSITION COUNTER        26450000
00001C                             2219+DCBQSLM  DS    BL1 -          QSAM LOCATE MODE LOGICAL RECORD INTERFACE 26500000
                                   2220+*                             INDICATOR BYTE FOR UPDAT PROCESSING OF    26550000

                                   2221+*                             SPANNED RECORDS                           26600000
                            00080  2222+DCB1DVDS EQU   DCBBIT0 -      ONLY ONE DEVICE IS ALLOCATED TO THIS      26650003
                                   2223+*                             DATA SET                                  26700000
                            00040  2224+DCBUPDCM EQU   DCBBIT1 -      UPDATE COMPLETE, FREE OLD DEB             26750003
                            00030  2225+DCBUPDBT EQU   DCBBIT2+DCBBIT3 -                                        26800003
                                   2226+*                             UPDATE BITS                               26810003
                            00020  2227+DCBUPDT  EQU   DCBBIT2 -      UPDATE TO TAKE PLACE                      26850003
                            00030  2228+DCBNUPD  EQU   DCBBIT2+DCBBIT3 -                                        26900003
                                   2229+*                             NO UPDATE TO TAKE PLACE                   26910003
                            00010  2230+DCBSVDEB EQU   DCBBIT3 -      OLD DEB ADDRESS MUST BE SAVED             26950003
00001D                             2231+DCBIOBAA DS    0AL3 -         SAME AS DCBIOBAD ABOVE                    27000000

00001D                             2232+DCBODEBA DS    AL3 -          ADDRESS OF OLD DEB                        27050000
000020                      0001C  2233+         ORG   IHADCB+28                                     ICBI DCB-4 27100000
00001C                             2234+DCBSVCXL DS    0A -           SAME AS DCBSVCXA BELOW         ICBI DCB-4 27150000
00001C                             2235+         DS    X -            RESERVED                       ICBI DCB-4 27200000

00001D                             2236+DCBSVCXA DS    AL3 -          POINTER TO EXIT LIST OF JES    ICBI DCB-4 27250000
                                   2237+*                             C.I. INTERFACE CONTROL SVC     ICBI DCB-4 27300000

                                   2239+*                       FOUNDATION EXTENSION                            27400000

000020                             2241+DCBEODAD DS    0A -           SAME AS DCBEODA BELOW                     27500000
000020                             2242+DCBHIARC DS    0BL1 -         HIERARCHY BITS                            27550000
000020                             2243+DCBBFTEK DS    0BL1 -         BUFFERING TECHNIQUE BITS                  27600000
000020                             2244+DCBBFALN DS    BL1 -          BUFFER ALIGNMENT BITS                     27650000
                            00080  2245+DCBH1    EQU   DCBBIT0 -      HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO  27700003
                            00070  2246+DCBBFT   EQU   DCBBIT1+DCBBIT2+DCBBIT3                                  27750003
                                   2247+*                             BUFFERING TECHNIQUE                       27760003

                            00060  2248+DCBBFTA  EQU   DCBBIT1+DCBBIT2 -                                        27800003
                                   2249+*                             QSAM LOCATE MODE PROCESSING OF SPANNED    27810003
                                   2250+*                             RECORDS - OPEN IS TO CONSTRUCT A RECORD   27850000

                                   2251+*                             AREA IF IT AUTOMATICALLY CONSTRUCTS       27900000
                                   2252+*                             BUFFERS                                   27950000
                            00020  2253+DCBBFTR  EQU   DCBBIT2 -      FOR BSAM CREATE BDAM PROCESSING OF        28000003
                                   2254+*                             UNBLOCKED SPANNED RECORDS - SOFTWARE      28050000
                                   2255+*                             TRACK OVERFLOW.  FOR BSAM INPUT           28100000
                                   2256+*                             PROCESSING OF UNBLOCKED SPANNED RECORDS   28150000
                                   2257+*                             WITH KEYS - RECORD OFFSET PROCESSING.     28200000
                            00040  2258+DCBBFTS  EQU   DCBBIT1 -      SIMPLE BUFFERING - BIT 3 IS ZERO          28250003
                            00020  2259+DCBBFTKR EQU   DCBBIT2 -      UNBLOCKED SPANNED RECORDS - SOFTWARE      28300003
                                   2260+*                             TRACK OVERFLOW (BDAM)                     28350000
                            00010  2261+DCBBFTE  EQU   DCBBIT3 -      EXCHANGE BUFFERING - BIT 1 IS ZERO        28400003
                            00008  2262+DCBBFTKD EQU   DCBBIT4 -      DYNAMIC BUFFERING (BTAM)                  28450003

                            00004  2263+DCBH0    EQU   DCBBIT5 -      HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO  28500003

                            00003  2264+DCBBFA   EQU   DCBBIT6+DCBBIT7 -                                        28550003
                                   2265+*                             BUFFER ALIGNMENT                          28560003

                            00002  2266+DCBBFAD  EQU   DCBBIT6 -      DOUBLEWORD BOUNDARY                       28600003
INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00001  2267+DCBBFAF1 EQU   DCBBIT7 -      FULLWORD NOT A DOUBLEWORD BOUNDARY,       28650003
                                   2268+*                             CODED IN DCB MACRO INSTRUCTION            28700000
                            00003  2269+DCBBFAF2 EQU   DCBBIT6+DCBBIT7 -                                        28750003
                                   2270+*                             FULLWORD NOT A DOUBLEWORD BOUNDARY,       28760003
                                   2271+*                             CODED IN DCB MACRO INSTRUCTION            28800000
000021                             2272+DCBEODA  DS    AL3 -          ADDRESS OF A USER-PROVIDED ROUTINE TO     28850000
                                   2273+*                             HANDLE END-OF-DATA CONDITIONS             28900000
000024                             2274+DCBEXLST DS    0A -           ADDRESS OF USER-PROVIDED LIST OF EXITS    28950000
000024                             2275+DCBRECFM DS    BL1 -          RECORD FORMAT                             29000000

                            000E0  2276+DCBRECLA EQU   DCBBIT0+DCBBIT1+DCBBIT2  -                               29050003
                                   2277+*                             RECORD LENGTH INDICATOR - ASCII           29060003

                            00020  2278+DCBRECD  EQU   DCBBIT2 -      ASCII VARIABLE RECORD LENGTH              29100003

                            000C0  2279+DCBRECL  EQU   DCBBIT0+DCBBIT1 -                                        29150003
                                   2280+*                             RECORD LENGTH INDICATOR                   29160003
                            00080  2281+DCBRECF  EQU   DCBBIT0 -      FIXED RECORD LENGTH                       29200003
                            00040  2282+DCBRECV  EQU   DCBBIT1 -      VARIABLE RECORD LENGTH                    29250003
                            000C0  2283+DCBRECU  EQU   DCBBIT0+DCBBIT1 -                                        29300003
                                   2284+*                             UNDEFINED RECORD LENGTH                   29310003
                            00020  2285+DCBRECTO EQU   DCBBIT2 -      TRACK OVERFLOW                            29350003
                            00010  2286+DCBRECBR EQU   DCBBIT3 -      BLOCKED RECORDS                           29400003
                            00008  2287+DCBRECSB EQU   DCBBIT4 -      FOR FIXED LENGTH RECORD FORMAT - STANDARD 29450003
                                   2288+*                             BLOCKS.  FOR VARIABLE LENGTH RECORD       29500000
                                   2289+*                             FORMAT - SPANNED RECORDS                  29550000
                            00006  2290+DCBRECCC EQU   DCBBIT5+DCBBIT6 -                                        29600003

                                   2291+*                             CONTROL CHARACTER INDICATOR               29610003
                            00004  2292+DCBRECCA EQU   DCBBIT5 -      ASA CONTROL CHARACTER                     29650003
                            00002  2293+DCBRECCM EQU   DCBBIT6 -      MACHINE CONTROL CHARACTER                 29700003

                            00000  2294+DCBRECC  EQU   X'00' -        NO CONTROL CHARACTER                      29750000
                            00001  2295+DCBRECKL EQU   DCBBIT7 -      KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB  29800003
                                   2296+*                             MACRO INSTRUCTION                         29850000
000025                             2297+DCBEXLSA DS    AL3 -          ADDRESS OF USER-PROVIDED LIST OF EXITS    29900000


                                   2300+*                       FOUNDATION BEFORE OPEN                          47150000

000028                      00028  2302+         ORG   IHADCB+40                                                47250000
000028                             2303+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES    47300000
                                   2304+*                             THE DATA SET ASSOCIATED WITH THIS DCB     47350000
000030                             2305+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE                47400000

                            00080  2306+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR   47450003
                                   2307+*                             POINT.  IF ONE, LAST I/O OPERATION WAS    47500000
                                   2308+*                             WRITE.                                    47550000

                            00080  2309+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR     47600003
                                   2310+*                             OUTPUT (BDAM)                             47650000
                            00040  2311+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD   47700003
                                   2312+*                             MODE                                      47750000
                            00020  2313+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE       47800003
                                   2314+*                             ROUTINE FOR CONCATENATION OF DATA SETS    47850000
                                   2315+*                             WITH UNLIKE ATTRIBUTES                    47900000
                            00010  2316+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED   47950003
                            00008  2317+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 48000003
                                   2318+*                             CONCATENATION OF UNLIKE ATTRIBUTES        48050000
                            00004  2319+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ                   48100003
                            00002  2320+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN  48150003

                                   2321+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1 48200000
INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2322+*                             ON RETURN FROM USER EXIT TO THE I/O       48250000

                                   2323+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.     48300000
                            00001  2324+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF    48350003
                                   2325+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION   48400000
000031                             2326+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR  48450000
                                   2327+*                             CONDITIONS AND IN DETERMINING CORRECTIVE  48500000
                                   2328+*                             PROCEDURES                                48550000

                            000C0  2329+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -                                        48600003
                                   2330+*                             ERROR CORRECTION INDICATOR                48610003
                            00000  2331+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE                    48650000
                            00040  2332+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN       48700003
                                   2333+*                             PROCESS                                   48750000
                            000C0  2334+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -                                        48800003
                                   2335+*                             PERMANENT ERROR CORRECTION                48810003
                            00030  2336+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -                                        48850003

                                   2337+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     48860003
                            00020  2338+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH     48900003

                                   2339+*                             SENSED                                    48950000
                            00010  2340+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH    49000003
                                   2341+*                             SENSED                                    49050000
                            0000C  2342+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -                                        49100003
                                   2343+*                             IOS ERROR ROUTINE USE INDICATOR           49110003
                            00000  2344+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE   49150000
                            00004  2345+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49200003
                            00004  2346+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE  49250003

                                   2347+*                             (BTAM)                                    49300000
                            00008  2348+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49350003
                            0000C  2349+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -                                        49400003
                                   2350+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE    49410003
000032                             2351+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE               49450000

000032                             2352+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR                     49500000
                            00080  2353+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---        49550003
                                   2354+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,     49600000

                                   2355+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)    49650000
                            00040  2356+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)    49700003
                            00040  2357+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)                   49750003
                            00040  2358+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---          49800003
                                   2359+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 49850000
                                   2360+*                             RESERVED (BTAM)                           49900000
                            00020  2361+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)            49950003

                            00020  2362+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)      50000003
                            00020  2363+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---           50050003
                                   2364+*                             ALWAYS ZERO (QSAM, QISAM)                 50100000
                            00010  2365+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)                   50150003
                            00010  2366+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)            50200003

                            00010  2367+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---          50250003
                                   2368+*                             ALWAYS ZERO (BISAM) ---                   50300000
                                   2369+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)         50350000
                            00008  2370+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)          50400003

                            00008  2371+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---          50450003
                                   2372+*                             ALWAYS ZERO (BISAM) ---                   50500000
                                   2373+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   50550000
                            00004  2374+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK   50600003
                                   2375+*                             COUNT (EXCP)                              50650000
                            00004  2376+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   50700003

INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00004  2377+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)             50750003
                            00004  2378+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---       50800003
                                   2379+*                             ALWAYS ZERO (QISAM) ---                   50850000

                                   2380+*                             RESERVED (QTAM, BTAM)                     50900000
                            00002  2381+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)    50950003
                            00002  2382+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        51000003
                            00002  2383+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)                             51050003
                            00002  2384+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---                 51100003

                                   2385+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)        51150000
                            00001  2386+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)                   51200003
                            00001  2387+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,    51250003
                                   2388+*                             BPAM, BISAM, QISAM, QTAM, BTAM)           51300000
000033                             2389+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR                    51350000

                            00080  2390+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM, 51400003
                                   2391+*                             BPAM, BISAM, BDAM) ---                    51450000
                                   2392+*                             RESERVED (EXCP, QTAM, BTAM)               51500000
                            00040  2393+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)    51550003
                            00040  2394+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---          51600003

                                   2395+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 51650000
                                   2396+*                             RESERVED (EXCP, BTAM)                     51700000
                            00020  2397+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)     51750003
                            00020  2398+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---            51800003
                                   2399+*                             ALWAYS ZERO (QSAM, QISAM) ---             51850000
                                   2400+*                             RESERVED (EXCP)                           51900000

                            00010  2401+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)            51950003
                            00010  2402+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---         52000003
                                   2403+*                             ALWAYS ZERO (BISAM) ---                   52050000
                                   2404+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   52100000

                            00008  2405+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)         52150003
                            00008  2406+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)     52200003
                                   2407+*                             (BSAM)                                    52250000
                            00008  2408+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)          52300003
                            00008  2409+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---         52350003

                                   2410+*                             ALWAYS ZERO (BISAM) ---                   52400000
                                   2411+*                             RESERVED (BPAM, QTAM, BTAM)               52450000
                            00004  2412+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)         52500003
                            00004  2413+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   52550003
                            00004  2414+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)                    52600003
                            00004  2415+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---        52650003
                                   2416+*                             ALWAYS ZERO (BISAM) ---                   52700000

                                   2417+*                             RESERVED (BDAM, QTAM, BTAM)               52750000
                            00002  2418+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)        52800003
                            00002  2419+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        52850003

                            00002  2420+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)                       52900003
                            00002  2421+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---              52950003
                                   2422+*                             ALWAYS ZERO (BISAM) ---                   53000000
                                   2423+*                             RESERVED (BPAM, QTAM, BTAM)               53050000
                            00001  2424+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)          53100003

                            00001  2425+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT     53150003
                                   2426+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)   53200000
                            00001  2427+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)                          53250003
                            00001  2428+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---                    53300003
                                   2429+*                             ALWAYS ZERO (BISAM) ---                   53350000
                                   2430+*                             RESERVED (BPAM, QTAM, BTAM)               53400000

INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   29



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2432+*                       FOUNDATION AFTER OPEN                           53500000


000034                      00028  2434+         ORG   IHADCB+40                                                53600000
000028                             2435+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD 53650000
                                   2436+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED 53700000
                                   2437+*                             WITH THIS DCB                             53750000

00002A                             2438+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN               53800000
00002A                             2439+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF                    53850000
00002B                             2440+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF                   53900000
00002C                             2441+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB                 53950000
00002C                             2442+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN               54000000
                            000C0  2443+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -                                        54050003
                                   2444+*                             ERROR CORRECTION INDICATOR                54060003
                            00030  2445+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -                                        54100003
                                   2446+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     54110003

                            0000C  2447+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -                                        54150003

                                   2448+*                             IOS ERROR ROUTINE USE INDICATOR           54160003
00002D                             2449+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB                 54200000

000030                      00030  2451+         ORG   IHADCB+48                                                54350000
000030                             2452+DCBREAD  DS    0A -           ADDRESS OF READ MODULE                    54400000

000030                             2453+DCBWRITE DS    A -            ADDRESS OF WRITE MODULE                   54450000

000034                      00030  2455+         ORG   IHADCB+48                                                54600000
000030                             2456+DCBGET   DS    0A -           ADDRESS OF GET MODULE                     54650000
000030                             2457+DCBPUT   DS    A -            ADDRESS OF PUT MODULE                     54700000

                                   2459+*                       QSAM-BSAM-BPAM COMMON INTERFACE                 77750000

000034                      00034  2461+         ORG   IHADCB+52                                                77850000
000034                             2462+DCBGERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  77950000

000034                             2463+DCBPERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  78000000

000034                             2464+DCBCHECK DS    0A -           ADDRESS OF CHECK MODULE                   78050000
000034                             2465+DCBOPTCD DS    BL1 -          OPTION CODES                              78150000
                            00080  2466+DCBOPTW  EQU   DCBBIT0 -      WRITE VALIDITY CHECK (DASD)               78500003
                                   2467+*                             (BSAM, BPAM, QSAM, ISAM, BDAM)            78550000

                            00040  2468+DCBOPTU  EQU   DCBBIT1 -      ALLOW DATA CHECK CAUSED BY INVALID        78600003
                                   2469+*                             CHARACTER (1403 PRINTER WITH UCS FEATURE) 78650000
                                   2470+*                             (BSAM, BPAM, QSAM)                        78700000
                            00020  2471+DCBOPTC  EQU   DCBBIT2 -      CHAINED SCHEDULING USING PCI              78750003
                                   2472+*                             (BSAM, BPAM, QSAM)                        78800000
                            00010  2473+DCBOPTH  EQU   DCBBIT3 -      1287/1288 OPTICAL READER - HOPPER EMPTY   78850003
                                   2474+*                             EXIT (BSAM, BPAM)                         78900000
                            00010  2475+DCBOPTO  EQU   DCBBIT3 -      1285/1287 OPTICAL READER - ON-LINE        78950003
                                   2476+*                             CORRECTION (QSAM)                         79000000
                            00010  2477+DCBBCKPT EQU   DCBBIT3 -      CHANNEL-END APPENDAGE IS TO BYPASS DOS    79050003
                                   2478+*                             EMBEDDED CHECKPOINT RECORDS ON TAPE       79100000

                                   2479+*                             (BSAM, QSAM)                       ICB226 79150000
                            00008  2480+DCBOPTQ  EQU   DCBBIT4 -      TRANSLATION TO OR FROM ASCII              79200003
                                   2481+*                             (BSAM, BPAM, QSAM)                        79250000
                            00004  2482+DCBOPTZ  EQU   DCBBIT5 -      MAGNETIC TAPE DEVICES - USE REDUCED ERROR 79300003

                                   2483+*                             RECOVERY PROCEDURE (EXCP, BSAM, BPAM,     79350000
                                   2484+*                             QSAM)                                     79400000
                            00004  2485+DCBSRCHD EQU   DCBBIT5 -      USE SEARCH DIRECT, INSTEAD OF SEARCH      79450003
                                   2486+*                             PREVIOUS, ON RECORD POSITION SENSING      79500000
INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2487+*                             DEVICE  (EXCP, BSAM, BPAM, QSAM)   ICB217 79550000
                            00002  2488+DCBOPTT  EQU   DCBBIT6 -      USER TOTALING (BSAM, QSAM)                79600003
000035                             2489+DCBGERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  79700000
000035                             2490+DCBPERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  79750000
000035                             2491+DCBCHCKA DS    AL3 -          ADDRESS OF CHECK MODULE                   79800000
000038                             2492+DCBSYNAD DS    0A -           ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80050000

000038                             2493+DCBIOBL  DS    FL1 -          IOB LENGTH IN DOUBLE WORDS                80100000
000039                             2494+DCBSYNA  DS    AL3 -          ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80150000
00003C                             2495+DCBFLAG1 DS    0BL1           TCAM APPLICATION PROGRAM FLAGS ICBI DCB-3 80460000

                                   2496+*                             (BSAM, BPAM, QSAM)                        80470000
00003C                             2497+DCBCIND1 DS    BL1 -          CONDITION INDICATORS                      80500000
                            00080  2498+DCBCNTOV EQU   DCBBIT0 -      DIRECT ACCESS - TRACK OVERFLOW IN USE     80550003
                                   2499+*                             (BSAM, BPAM, QSAM)                        80600000
                                   2500+*                             2540 CARD PUNCH - DATA SET WAS OPENED BUT 80650000
                                   2501+*                             NO DATA WAS WRITTEN (QSAM)                80700000
                            00080  2502+DCBSTQCK EQU   DCBBIT0 -      STOP EQUAL QUICK WAS SPECIFIED FOR        80710003
                                   2503+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80720000
                            00040  2504+DCBSTFLS EQU   DCBBIT1 -      STOP EQUAL FLUSH WAS SPECIFIED FOR        80730003
                                   2505+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80740000
                            00040  2506+DCBCNSRD EQU   DCBBIT1 -      SEARCH DIRECT (BSAM, BPAM, QSAM)          80750003
                            00020  2507+DCBCNEVB EQU   DCBBIT2 -      END OF VOLUME - USED BY EOB ROUTINES      80800003

                                   2508+*                             (BSAM, BPAM, QSAM)                        80850000

                            00010  2509+DCBCNEVA EQU   DCBBIT3 -      END OF VOLUME - USED BY CHANNEL-END       80900003
                                   2510+*                             APPENDAGE ROUTINES (BSAM, BPAM, QSAM)     80950000

                            00004  2511+DCBCNBRM EQU   DCBBIT5 -      BLOCKED RECORD BIT MODIFIED (BSAM,BPAM,   81000003
                                   2512+*                             QSAM)                          ICBI DCB-2 81050000
                            00001  2513+DCBCNEXB EQU   DCBBIT7 -      EXCHANGE BUFFERING SUPPORTED (QSAM)       81100003
00003D                             2514+DCBCIND2 DS    BL1 -          CONDITION INDICATORS                      81150000
                            00080  2515+DCBCNSTO EQU   DCBBIT0 -      PARTITIONED DATA SET - STOW HAS BEEN      81200003
                                   2516+*                             PERFORMED (BSAM, BPAM, QSAM)              81250000
                                   2517+*                             SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM) 81300000
                            00040  2518+DCBCNWR0 EQU   DCBBIT1 -      DIRECT ORGANIZATION DATA SET - LAST I/O   81350003
                                   2519+*                             WAS A WRITE RECORD ZERO                   81400000
                                   2520+*                             (BSAM, BPAM, QSAM)                        81450000
                                   2521+*                             SEQUENTIAL DATA SET - UPDATE EOF IS       81500000
                                   2522+*                             INDICATED (BSAM, BPAM)                    81550000

                            00020  2523+DCBCNCLO EQU   DCBBIT2 -      CLOSE IN PROCESS (QSAM)                   81600003

                            00010  2524+DCBCNIOE EQU   DCBBIT3 -      PERMANENT I/O ERROR (BSAM, BPAM, QSAM)    81650003
                            00008  2525+DCBCNBFP EQU   DCBBIT4 -      OPEN ACQUIRED BUFFER POOL                 81700003

                                   2526+*                             (BSAM, BPAM, QSAM)                        81750000
                            00004  2527+DCBCNCHS EQU   DCBBIT5 -      CHAINED SCHEDULING BEING SUPPORTED        81800003
                                   2528+*                             (BSAM, BPAM, QSAM)                        81850000
                            00002  2529+DCBCNFEO EQU   DCBBIT6 -      FEOV BIT (BSAM, BPAM, QSAM)               81900003
                            00001  2530+DCBCNQSM EQU   DCBBIT7 -      ALWAYS ZERO (BSAM, BPAM)                  81950003
                                   2531+*                             THIS IS A QSAM DCB (QSAM)                 82000000
00003E                             2532+DCBBLKSI DS    H -            MAXIMUM BLOCK SIZE                        82100000
000040                             2533+DCBWCPO  DS    AL1 -          OFFSET OF WRITE CHANNEL PROGRAM FROM THE  82350000
                                   2534+*                             START OF IOB                              82400000
000041                             2535+DCBWCPL  DS    FL1 -          LENGTH OF WRITE CHANNEL PROGRAM           82450000
000042                             2536+DCBOFFSR DS    AL1 -          OFFSET OF READ CCW FROM BSAM/BPAM PREFIX  82500000
                                   2537+*                             OF IOB                                    82550000

000043                             2538+DCBOFFSW DS    AL1 -          OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX 82600000
                                   2539+*                             OF IOB                                    82650000

000044                             2540+DCBIOBA  DS    A -            FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR 82700000

                                   2541+*                             BSAM/BPAM PREFIX OF IOB.  FOR CHAINED     82750000
INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2542+*                             SCHEDULING, ADDRESS OF ICB.  FOR          82800000
                                   2543+*                             1419/1275, ADDRESS OF MAGNETIC INTERRUPT  82850000
                                   2544+*                             CONTROL BLOCK (MICB) CURRENTLY BEING      82900000
                                   2545+*                             PROCESSED BY READ ROUTINE.  FOR TSO       82950000
                                   2546+*                             TERMINAL DATA SET OPENED FOR INPUT AND    83000000
                                   2547+*                             FORMAT U, SIMULATED LOW-ORDER FOUR BYTES  83050000
                                   2548+*                             OF IOBCSW                                 83100000

000048                      00044  2550+         ORG   IHADCB+68                                         ICB354 83160000

000044                             2551+DCBCICB  DS    0A -           SAME AS DCBCICBA BELOW             ICB354 83200000
000044                             2552+         DS    X -            DCBNCP  (BSAM,BPAM)                ICB354 83250000
000045                             2553+DCBCICBA DS    AL3 -          POINTER TO JES C.I.                ICB354 83300000

                                   2554+*                             CONTROL BLOCK (CICB)               ICB354 83350000

000048                      00050  2556+         ORG   IHADCB+80                                     ICBI DCB-4 83450000
000050                             2557+DCBDIRCT DS    0H -           NUMBER OF BYTES USED IN LAST DIRECTORY    83500000
                                   2558+*                             BLOCK (RANGE 0-254)  (BSAM, BPAM)  ICB295 83550000
000050                             2559+DCBQSWS  DS    0BL1 -         FLAG BYTE                          ICB295 83600000
                            00004  2560+DCBPOPEN EQU   DCBBIT5 -      QSAM PARALLEL INPUT PROCESSING            83610003
000050                             2561+DCBUSASI DS    B -            FLAG BYTE FOR ASCII TAPES                 83650000
                            00040  2562+DCBBLBP  EQU   DCBBIT1 -      BLOCK PREFIX IS FOUR BYTE FIELD           83700003
                                   2563+*                             CONTAINING BLOCK LENGTH IN UNPACKED       83750000
                                   2564+*                             DECIMAL (SPECIFIED BY BUFFER=L).          83800000
                            00038  2565+DCBQADFS EQU   DCBBIT2+DCBBIT3+DCBBIT4                                  83850003

                                   2566+*                             USED TO PERFORM SEQUENCE CHECKING WITH    83860003
                                   2567+*                             MULTIPLE FUNCTION SUPPORT FOR 3525        83900000
                                   2568+*                             (BSAM, QSAM)                              83950000
                            00020  2569+DCBQADF1 EQU   DCBBIT2 -      FIRST BIT OF DCBQADFS                     84000003

                            00010  2570+DCBQADF2 EQU   DCBBIT3 -      SECOND BIT OF DCBQADFS                    84050003
                            00008  2571+DCBQADF3 EQU   DCBBIT4 -      THIRD BIT OF DCBQADFS                     84100003
                            00001  2572+DCBQSTRU EQU   DCBBIT7 -      TRUNC ENTRY POINT ENTERED (QSAM)          84150003
000051                             2573+DCBBUFOF DS    0FL1 -         BLOCK PREFIX LENGTH (0-99), SPECIFIED BY  84200000
                                   2574+*                             BUFOFF=N OR BUFOFF=L                      84250000
000051                             2575+DCBDIRCQ DS    FL1 -          NUMBER OF BYTES USED IN LAST DIRECTORY    84300000

                                   2576+*                             BLOCK (RANGE 0-254)  (QSAM)        ICB295 84350000

                                   2578+*                       BSAM-BPAM INTERFACE                             84500000

000052                      00048  2580+         ORG   IHADCB+72                                                84600000
000048                             2581+DCBEOBR  DS    0A -           ADDRESS OF END-OF-BLOCK MODULE FOR READ   84650000
000048                             2582+DCBNCP   DS    FL1 -          NUMBER OF CHANNEL PROGRAMS.               84750000
                                   2583+*                             NUMBER OF READ OR WRITE REQUESTS WHICH    85000000

                                   2584+*                             MAY BE ISSUED PRIOR TO A CHECK, NUMBER    85050000
                                   2585+*                             OF IOB'S GENERATED.  (99 MAXIMUM)         85100000

000049                             2586+DCBEOBRA DS    AL3 -          ADDRESS OF END-OF-BLOCK MODULE FOR READ   85150000
00004C                             2587+DCBEOBW  DS    A -            ADDRESS OF END-OF-BLOCK MODULE FOR WRITE. 85200000
                                   2588+*                             FOR BSAM CREATE BDAM PROCESSING OF        85250000
                                   2589+*                             UNBLOCKED SPANNED RECORDS WITH BKTEK=R    85300000
                                   2590+*                             SPECIFIED, ADDRESS OF SEGMENT WORK AREA   85350000
                                   2591+*                             CONTROL BLOCK                             85400000
000050                             2592+         DS    H -            DCBDIRCT - NUMBER OF BYTES USED IN LAST   85450000
                                   2593+*                             DIRECTORY BLOCK  (RANGE 0-254)     ICB295 85500000

000052                             2594+DCBLRECL DS    H -            LOGICAL RECORD LENGTH                     85600000
000054                             2595+DCBCNTRL DS    0A -           ADDRESS OF CNTRL MODULE                   85850000
000054                             2596+DCBNOTE  DS    0A -           ADDRESS OF NOTE/POINT MODULE              85900000
INTF     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000054                             2597+DCBPOINT DS    A -            ADDRESS OF NOTE/POINT MODULE              85950000

                                   2599+*                       QSAM INTERFACE                                  86100000


000058                      00048  2601+         ORG   IHADCB+72                                                86650021
000048                             2602+DCBLCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF LAST   86700000
                                   2603+*                             CCW IN LIST                               86750000
000048                             2604+DCBEOBAD DS    A -            FOR SIMPLE BUFFERING, ADDRESS OF LAST     86800000
                                   2605+*                             BYTE OF CURRENT BUFFER                    86850000
00004C                             2606+DCBCCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF        86900000

                                   2607+*                             CURRENT OR NEXT CCW                       86950000
00004C                             2608+DCBRECAD DS    0A -           ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87000000
00004C                             2609+DCBRECBT DS    BL1 -          FLAG BYTE                                 87050000
                            000F0  2610+DCBRCREL EQU   DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3  -                       87100003
                                   2611+*                             RELSE MACRO HAS BEEN ISSUED               87110003

                                   2612+*                             (QSAM WITH SIMPLE BUFFERING)              87150000
                            00080  2613+DCBRCTRU EQU   DCBBIT0 -      TRUNC MACRO HAS BEEN ISSUED (QSAM LOCATE  87200003
                                   2614+*                             MODE)                                     87250000
                            00040  2615+DCBRCFGT EQU   DCBBIT1 -      FIRST GET AFTER OPEN (QSAM LOCATE MODE)   87300003

00004D                             2616+DCBRECA  DS    AL3 -          ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87350000
000050                             2617+         DS    B -            DCBQSWS - FLAG BYTE                ICB295 87400000
000051                             2618+         DS    FL1 -          DCBDIRCQ - NUMBER OF BYTES USED IN LAST   87450000
                                   2619+*                             DIRECTORY BLOCK (RANGE 0-254)      ICB295 87500000
000052                             2620+         DS    H -            DCBLRECL - LOGICAL RECORD LENGTH          87750021
000054                             2621+         DS    0A -           DCBCNTRL - ADDRESS OF CNTRL MODULE        88000021

000054                             2622+DCBEROPT DS    BL1 -          ERROR OPTION                              88100000
                            00080  2623+DCBERACC EQU   DCBBIT0 -         ACCEPT PERMANENT ERROR                 88150003
                            00040  2624+DCBERSKP EQU   DCBBIT1 -         SKIP PERMANENT ERROR                   88200003
                            00020  2625+DCBERABE EQU   DCBBIT2 -         ABNORMAL END OF TASK                   88250003
000055                             2626+         DS    AL3 -          DCBCNTRA - ADDRESS OF CNTRL MODULE        88500021

000058                             2627+         DS    XL2 -          RESERVED                                  88600021
00005A                             2628+DCBPRECL DS    H -            BLOCK LENGTH, MAXIMUM BLOCK LENGTH OR     88650000
                                   2629+*                             DATA LENGTH                               88700000
00005C                             2630+DCBEOB   DS    A -            ADDRESS OF END OF BLOCK MODULE            88750000




                            00000  2633+DCBDSECT EQU   IHADCB   DEFINE ALTERNATE DSECT NAME                     DB012000

000000                             2635+HASPINTF CSECT          END OF DATA CONTROL BLOCK DSECT                 DB016000
INTF     OS DATA EXTENT BLOCK DSECT                                                                            PAGE   33



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             2638+DEBDSECT DSECT                     DATA EXTENT BLOCK DSECT              DE010000
000000                             2639+DEBTCBAD DS    F                   ADDRESS OF TCB                       DE012000

000004                             2640+DEBDEBAD DS    F                   ADDRESS OF NEXT DEB                  DE014000
000008                             2641+DEBIRBAD DS    F                   ADDRESS OF IRB                       DE016000
00000C                             2642+         DS    F                   RESERVED                             DE018000
000010                             2643+DEBNMEXT DS    0C                  NUMBER OF EXTENTS                    DE019000
000010                             2644+DEBUSRPG DS    F                   ADDR OF 1ST IOB IN USER PURGE CHAIN  DE020000
000014                             2645+DEBPRIOR DS    0C                  PRIORITY OF THE TASK                 DE022000

000014                             2646+DEBECBAD DS    F                   ADDRESS OF PURGE ECB PARAMETER LIST  DE024000
000018                             2647+DEBPROTG DS    0C                  PROTECTION KEY OF TASK               DE026000
000018                             2648+DEBDEBID DS    0C                  DEB IDENTIFICATION (X'0F')           DE028000
000018                             2649+DEBDCBAD DS    F                   ADDRESS OF DCB                       DE030000

00001C                             2650+DEBEXSCL DS    0C                  EXTENT SCALE                         DE031000
00001C                             2651+DEBAPPAD DS    F                   ADDR OF I/O APPENDAGE VECTOR TABLE   DE032000
000020                             2652+DEBDVMOD DS    0C                  DEVICE MODIFIER / FILE MASK          DE034000
000020                             2653+DEBUCBAD DS    F                   ADDRESS OF UCB                       DE036000
000024                             2654+DEBEXTNT DS    0CL12               DATA SET EXTENT                      DE038000

000024                             2655+DEBBINUM DS    H                   BIN NUMBER                           DE040000
000026                             2656+DEBSTRCC DS    H                   CYLINDER START ADDRESS               DE042000
000028                             2657+DEBSTRHH DS    H                   READ OR WRITE TRACK START ADDRESS    DE044000
00002A                             2658+DEBENDCC DS    H                   CYLINDER END ADDRESS                 DE046000
00002C                             2659+DEBENDHH DS    H                   READ OR WRITE TRACK END ADDRESS      DE048000
00002E                             2660+DEBNUMTR DS    H                   NUMBER OF TRACKS IN THIS EXTENT      DE050000
000000                             2661+HASPINTF CSECT                     END OF DATA EXTENT BLOCK DSECT       DE052000

INTF     OS TASK CONTROL BLOCK DSECT                                                                           PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             2664+TCBDSECT DSECT                     TASK CONTROL BLOCK DSECT             TC010000
000000                             2665+TCBRBP   DS    F                   ADDRESS OF TOP RB                    TC012000
000004                             2666+TCBPIE   DS    F                   ADDRESS OF PROGRAM INTERRUPT ELEMENT TC014000
000008                             2667+TCBDEB   DS    F                   ADDRESS OF DEB QUEUE                 TC016000

00000C                             2668+TCBTIO   DS    F                   ADDRESS OF TASK I/O TABLE            TC018000
000010                             2669+TCBCMP   DS    F                   TASK COMPLETION CODE                 TC020000
000014                             2670+TCBTRN   DS    F                   ADDRESS OF TESTRAN CONTROL TABLE     TC022000
000018                             2671+TCBMSS   DS    F                   MAIN STORAGE SUPERVISOR POINTER      TC026000
00001C                             2672+TCBPKF   DS    C                   PROTECTION KEY                       TC028000
00001D                             2673+TCBFLGS  DS    3C                  MISCELLANEOUS FLAGS                  TC028800
000020                             2674+TCBFLGS4 DS    C                   NONDISPATCHABILITY FLAGS             TC029600
                            00010  2675+TCBHNDSP EQU   X'10'               HASP FREEZE BIT                      TC030400

000021                             2676+TCBFLGS5 DS    C                   NONDISPATCHABILITY FLAGS             TC031200
000022                             2677+TCBLMP   DS    C                   ENQUEUE COUNT / LIMIT PRIORITY       TC032000

000023                             2678+TCBDSP   DS    C                   DISPATCHING PRIORITY                 TC034000
000024                             2679+TCBLLS   DS    F                   LOAD LIST                            TC036000
000028                             2680+TCBJLB   DS    F                   ADDRESS OF JOBLIB DCB                TC038000
00002C                             2681+TCBJPQ   DS    F                   ADDRESS OF CDE FOR JPA               TC040000
000030                             2682+TCBGRS   DS    16F                 GENERAL REGISTER SAVE AREA           TC042000

000070                             2683+TCBQEL   DS    0C                  ENQUEUE COUNT (MVT)                  TC046000
000070                             2684+TCBFSA   DS    F                   ADDRESS OF FIRST PROGRAM SAVE AREA   TC048000
000074                             2685+TCBTCB   DS    F                   ADDRESS OF NEXT LOWER PRIORITY TCB   TC050000
000078                             2686+TCBTME   DS    F                   ADDRESS OF TIMER ELEMENT             TC052000
00007C                             2687+TCBJSTCB DS    F                   ADDRESS OF FIRST TCB FOR JOB STEP    TC056000
000080                             2688+TCBNTC   DS    F                   ADDRESS OF PREVIOUS TCB              TC058000
000084                             2689+TCBOTC   DS    F                   ADDRESS OF ORIGINATING TCB           TC060000
000088                             2690+TCBLTC   DS    F                   ADDRESS OF LAST TCB ON SUBTASK QUEUE TC062000
00008C                             2691+TCBIQE   DS    F                   ADDRESS OF IQE FOR ETXR ROUTINE      TC064000

000090                             2692+TCBECB   DS    F                   ADDRESS OF ECB POSTED ON COMPLETION  TC066000

000094                             2693+TCBTSFLG DS    C                   TIME SHARING FLAGS                   TC066800
000095                             2694+TCBSTPCT DS    C                   STATUS STOP COUNT                    TC067600
000096                             2695+TCBTSLP  DS    C                   TS TASK LIMIT PRIORITY               TC068400
000097                             2696+TCBTSDP  DS    C                   TS TASK DISPATCHING PRIORITY         TC069200
000098                             2697+TCBPQE   DS    F                   ADDRESS OF REGION DUMMY PQE - 8      TC070000

00009C                             2698+TCBAQE   DS    F                   ADDRESS OF ALLOCATED QUEUE ELEMENT   TC072000
0000A0                             2699+TCBNSTAE DS    F                   ADDR OF CURRENT STAE CONTROL BLOCK   TC074000
0000A4                             2700+TCBTCT   DS    F                   ADDRESS OF THE TCT                   TC076000
0000A8                             2701+TCBUSER  DS    F                   USER FIELD                           TC078000
0000AC                             2702+TCBNDSP  DS    F                   SECONDARY NONDISPATCHABILITY         TC080000
0000B0                             2703+TCBPCE   DS    0F .                ADDRESS OF HASP PCE         FJP/RFIT TC081700
                            00001  2704+TCBPCEND EQU   X'01' .             HASP NON-DISPATCH. FLAG     FJP/RFIT TC081800
0000B0                             2705+         DS    F                   RESERVED                             TC082000
0000B4                             2706+TCBJSCB  DS    F                   ADDRESS OF JSCB                      TC083000
000000                             2707+HASPINTF CSECT                     END OF TASK CONTROL BLOCK DSECT      TC084000

INTF     OS GENERAL REQUEST BLOCK DSECT                                                                        PAGE   35



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             2710+RBPREFIX DSECT                     REQUEST BLOCK PREFIX DSECT           RB009000

000000                             2711+         DS    (X'3E')C                                                 RB010000
00003E                             2712+RBINTCOD DS    H                   INTERRUPT CODE                       RB011000
000040                             2713+RBDSECT  DS    0F                  REQUEST BLOCK DSECT                  RB012000
000040                             2714+RBEXRTNM DS    0CL8                MVT SIRB ERROR EXIT ROUTINE NAME     RB014000
000040                             2715+RBTABNO  DS    0H                  MVT SVRB DISPLACEMENT FOR TACT ENTRY RB016000
000040                             2716+RBTMFLD  DS    0C                  MVT IRB INDICATORS                   RB018000
000040                             2717+RBPPSAV  DS    0F,H                MVT IRB PROBLEM PROGRAM SAVE AREA    RB020000
000042                             2718+RBRTLNTH DS    H                   MVT SVRB SVC ROUTINE LENGTH          RB022000
000044                             2719+RBABOPSW DS    F                   MVT RIGHT HALF OF USERS OLD PSW      RB024000
000048                             2720+RBWCSA   DS    C                   MVT WAIT COUNT SAVE AREA             RB028000
000049                             2721+RBSIZE   DS    C                   MVT SIZE OF THIS RB                  RB030000

00004A                             2722+RBSTAB   DS    H                   MVT STATUS AND ATTRIBUTE BITS        RB034000
00004C                             2723+RBEP     DS    0F                  MVT IRB ASYNCHRONOUS ROUTINE ENTRY   RB040000
00004C                             2724+RBCDFLGS DS    0C                  MVT CONTENTS CONTROL FLAGS           RB042000
00004C                             2725+RBCDE    DS    0F                  MVT ADDRESS OF CDE                   RB044000

00004C                             2726+RBSVTQN  DS    F                   MVT SVRB ADDRESS OF NEXT TRANS RB    RB046000
000050                             2727+RBOPSW   DS    D                   MVT OLD PSW                          RB050000
000058                             2728+RBUSE    DS    0C                  MVT ATTACH USE COUNT                 RB054000
000058                             2729+RBPGMQ   DS    0F                  MVT ADDR OF SERIALLY REUSE PROG RB   RB056000
000058                             2730+RBTAWCSA DS    C                   MVT SVRB WAIT COUNT SAVE AREA        RB058000
000059                             2731+RBSVTTR  DS    0CL3                MVT SVRB TTR FOR SVC ROUTINE         RB060000
00005A                             2732+RBIQE    DS    H                   MVT IRB LIST ORIGIN FOR IQE (RQE)    RB062000
00005C                             2733+RBWCF    DS    0C                  MVT WAIT COUNT                       RB068000
00005C                             2734+RBLINK   DS    F                   MVT ADDRESS OF NEXT RB OR TCB        RB070000
000060                             2735+RBGRSAV  DS    16F                 MVT GENERAL REGISTER SAVE AREA       RB074000
0000A0                             2736+RBNEXAV  DS    0F                  MVT IRB ADDR OF NEXT AVAILABLE IQE   RB076000
0000A0                             2737+RBEXSAV  DS    16F                 MVT SVRB EXTENDED SAVE AREA          RB078000

000000                             2738+HASPINTF CSECT                     END OF REQUEST BLOCK DSECT           RB080000
INTF     HASP BUFFER DSECT                                                                                     PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000000                             2740+BUFDSECT DSECT                     BUFFER DSECT                         BU444000
000000                             2741+IOBFLAG1 DS    C                   I/O FLAGS                            BU446000
000001                             2742+IOBFLAG2 DS    C                   I/O FLAGS                            BU448000
000002                             2743+IOBSENS0 DS    C                   FIRST SENSE BYTE                     BU450000
000003                             2744+IOBSENS1 DS    C                   SECOND SENSE BYTE                    BU452000
000004                             2745+IOBECBCC DS    0C                  I/O COMPLETION CODE                  BU454000
000004                             2746+IOBECBPT DS    F                   ADDRESS OF HASP EVENT CONTROL BLOCK  BU456000
000008                             2747+IOBFLAG3 DS    C                   I/O FLAGS                            BU458000
000009                             2748+IOBCSW   DS    CL7                 CHANNEL STATUS WORD                  BU460000
000010                             2749+IOBSIOCC DS    0C                  SIO CONDITION CODE                   BU462000
000010                             2750+IOBSTART DS    F                   ADDRESS OF CHANNEL PROGRAM           BU464000
000014                             2751+IOBDCBPT DS    F                   ADDRESS OF DATA CONTROL BLOCK        BU466000

000018                             2752+IOBREPM  DS    0C                  REPOSITION MODIFIER                  BU468000
000018                             2753+IOBRESTR DS    F                   RESTART ADDRESS OF CHANNEL PROGRAM   BU470000
00001C                             2754+TPBMXREC DS    0C                  MAXIMUM RJE OUTPUT RECORD COUNT      BU472000

00001C                             2755+IOBINCAM DS    H                   BLOCK COUNT INCREMENT                BU474000
00001E                             2756+IOBERRCT DS    H                   ERROR COUNT                          BU476000
000020                             2757+TPBLCCC  DS    0C                  LAST REMOTE OUTPUT COMMAND OP.       BU478000
000020                             2758+TPBLCCAD DS    0F                  ADDR OF LAST REMOTE CARRIAGE CONTROL BU480000
000020                             2759+IOBXTENT DS    C                   DEB EXTENT                           BU482000
000021                             2760+IOBSEEK  DS    0CL7,3C             DIRECT ACCESS SEEK ADDRESS           BU484000
000024                             2761+TPBRECNT DS    0C                  CURRENT REMOTE OUTPUT RECORD COUNT   BU486000
000024                             2762+TPBFDATA DS    F                   REMOTE DATA POINTER                  BU488000
000028                             2763+BUFECBCC DS    0C                  I/O COMPLETION CODE                  BU490000
000028                             2764+BUFCHAIN DS    F                   BUFFER CHAIN FIELD                   BU492000
00002C                             2765+BUFTYPE  DS    0C                  BUFFER TYPE                          BU494000
00002C                             2766+BUFDCT   DS    F                   ADDRESS OF DEVICE CONTROL TABLE      BU496000

000030                             2767+BUFEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     BU498000

000034                             2768+OACECHN  DS    0F                  OVERLAY AREA CHAIN WORD              BU500000
000034                             2769+BUFDDB   DS    0F                  DDB ADDRESS                          BU501000

000034                             2770+LCBMCB   DS    C                   REMOTE MODE BYTE                     BU502000
000035                             2771+LCBACK   DS    C                   REMOTE NEXT ACKNOWLEDGEMENT          BU504000
000036                             2772+LCBRCB   DS    H                   REMOTE RESPONSE CONTROL BLOCK        BU506000
000038                             2773+IOBCCW1  DS    D                   CHANNEL COMMAND WORD 1               BU508000
000040                             2774+IOBCCW2  DS    D                   CHANNEL COMMAND WORD 2               BU510000
000048                             2775+IOBCCW3  DS    0D,5C               CHANNEL COMMAND WORD 3               BU511000
00004D                             2776+OACEPRIO DS    C                   PRIO OF OLAY ROUTINE IN THIS AREA    BU512000
00004E                             2777+OACEOCON DS    H                   OVERLAY CALL CONSTANT                BU514000
000050                             2778+IOBCCW4  DS    D                   CHANNEL COMMAND WORD 4               BU516000
000058                             2779+BUFSTART DS    0D                  START OF BUFFER WORK SPACE           BU518000
000058                             2780+OACENAME DS    0F                  NAME OF OVERLAY ROUTINE              BU520000
000058                             2781+HDBNXTRK DS    F                   HASP DATA BLOCK CHAIN TRACK          BU522000

00005C                             2782+OACEASMO DS    0F                  ASSEMBLY ORIGIN OF OVERLAY ROUTINE   BU524000
00005C                             2783+HDBDSKEY DS    F                   HASP DATA BLOCK DATA SET KEY         BU526000

000060                             2784+OACEPROG DS    0F                  ENTRY POINT OF OVERLAY ROUTINE       BU528000

000060                             2785+HDBSTART DS    F                   HASP DATA BLOCK START                BU529000
000064                      00058  2786+         ORG   BUFSTART                                                 BU530000
000058                             2787+IOBCCW5  DS    D                   CHANNEL COMMAND WORD 5               BU534000
000060                             2788+IOBCCW6  DS    D                   CHANNEL COMMAND WORD 6               BU536000
000068                             2789+IOBCCW7  DS    D                   CHANNEL COMMAND WORD 7               BU538000
000070                             2790+IOBCCW8  DS    D                   CHANNEL COMMAND WORD 8               BU540000
000078                             2791+TPBUFST  DS    0F                  START OF REMOTE BUFFER WORK SPACE    BU542000
000078                      00558  2792+         ORG   BUFSTART+1280           SPACE OVER OVERLAY AREA          BU544000
000558                             2793+OACEPCE  DS    F                   CHAIN OF PCE'S USING OVERLAY AREA    BU546000
000000                             2794+HASPINTF CSECT                     END OF BUFFER DSECT                  BU548000
INTF     HASP BUFFER STATUS BIT DEFINITIONS                                                                    PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                   2797+*                             BUFFER TYPE BIT DEFINITIONS               BU554000




                            00080  2799+TPBUF    EQU   X'80'               REMOTE BUFFER TYPE                   BU558000
                            00040  2800+OLAYBUF  EQU   X'40'               OVERLAY AREA TYPE                    BU560000
                            00000  2801+HASPBUF  EQU   X'00'               HASP BUFFER TYPE                     BU562000
INTF     HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             2804+PCEDSECT DSECT                     PROCESSOR CONTROL ELEMENT DSECT      PC260000



                            00000  2806+         USING PCEDSECT,SAVE       ESTABLISH PCE ADDRESSABILITY         PC264000




000000                             2808+PCESAVEA DS    F                   RESERVED                             PC268000
000004                             2809+PCEPREV  DS    F                   ADDRESS OF PREVIOUS PCE              PC270000
000008                             2810+PCENEXT  DS    F                   ADDRESS OF NEXT PCE                  PC272000
00000C                             2811+PCELINK  DS    F                   REGISTER 14 (LINK) STORAGE           PC274000

000010                             2812+PCER15   DS    F                   REGISTER 15 STORAGE                  PC276000
000014                             2813+PCER0    DS    F                   REGISTER 0 STORAGE                   PC278000
000018                             2814+PCER1    DS    F                   REGISTER 1 STORAGE                   PC280000
00001C                             2815+PCEWA    DS    F                   REGISTER 2 (WA) STORAGE              PC282000
000020                             2816+PCEWB    DS    F                   REGISTER 3 (WB) STORAGE              PC284000
000024                             2817+PCEWC    DS    F                   REGISTER 4 (WC) STORAGE              PC286000

000028                             2818+PCEWD    DS    F                   REGISTER 5 (WD) STORAGE              PC288000
00002C                             2819+PCEWE    DS    F                   REGISTER 6 (WE) STORAGE              PC290000
000030                             2820+PCEWF    DS    F                   REGISTER 7 (WF) STORAGE              PC292000
000034                             2821+PCEWG    DS    0F                  REGISTER 8 (WG) STORAGE              PC294000
000034                             2822+PCEBASE3 DS    F                   REGISTER 8 (BASE3) STORAGE           PC296000
000038                             2823+PCER9    DS    F                   REGISTER 9 STORAGE                   PC298000
00003C                             2824+PCEJCT   DS    F                   REGISTER 10 (JCT) STORAGE            PC300000
000040                             2825+PCEBASE1 DS    F                   REGISTER 11 (BASE1) STORAGE          PC302000

000044                             2826+PCEBASE2 DS    F                   REGISTER 12 (BASE2) STORAGE          PC304000
000048                             2827+PCEEWF   DS    H                   PROCESSOR EVENT WAIT FIELD           PC306000

00004A                             2828+PCEID    DS    H                   PROCESSOR TYPE                       PC308000
00004C                             2829+         DS    C                   RESERVED                             PC310000
00004D                             2830+PCEOPRIO DS    C                   REQUESTED OVERLAY ROUTINE PRIORITY   PC312000
00004E                             2831+PCEOCON  DS    H                   REQUESTED OVERLAY ROUTINE OCON       PC314000
000050                             2832+PCEORTRN DS    F                   $RETURN PAST $LINK STORAGE           PC316000
000054                             2833+PCEOPCE  DS    F                   CHAIN OF PCE'S USING SAME OVERLAY    PC318000
000058                             2834+PCEWORK  DS    0D                  VARIABLE LENGTH PROCESSOR WORK AREA  PC320000
000000                             2835+HASPINTF CSECT                     END OF PCE DSECT                     PC322000

INTF     HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2837+*                                                                       PC326000
                                   2838+*                             PROCESSOR CONTROL ELEMENT IDENTIFICATION  PC328000
                                   2839+*                                                                       PC330000






                                   2841+*                                                                       PC334000

                                   2842+*                             BYTE 1                                    PC336000
                                   2843+*                                                                       PC338000



                            00001  2845+PCELCLID EQU   X'01'               LOCAL SPECIAL PCE ID                 PC342000
                            00002  2846+PCERJEID EQU   X'02'               REMOTE SPECIAL PCE ID                PC344000
                            00004  2847+PCEINRID EQU   X'04'               INTERNAL SPECIAL PCE ID              PC346000
                            00080  2848+PCEPRSID EQU   X'80'               PRINT SPECIAL PCE ID                 PC348000

                            00040  2849+PCEPUSID EQU   X'40'               PUNCH SPECIAL PCE ID                 PC350000





                                   2851+*                                                                       PC354000
                                   2852+*                             BYTE 2                                    PC356000

                                   2853+*                                                                       PC358000



                            00000  2855+PCEASYID EQU   0                   ASYNCH PCE ID                        PC362000
                            00001  2856+PCERDRID EQU   1                   INPUT PCE ID                         PC364000

                            00002  2857+PCESETID EQU   2                   SETUP PCE ID                         PC366000
                            00003  2858+PCEXEQID EQU   3                   EXECUTION PCE ID                     PC368000
                            00004  2859+PCETHWID EQU   4                   EXECUTION THAW PCE ID                PC370000
                            00005  2860+PCEXZMID EQU   5                   EXECUTION TASK MONITOR PCE ID        PC372000
                            00006  2861+PCEOUTID EQU   6                   OUTPUT PROCESSOR PCE ID              PC374000
                            00007  2862+PCEPRTID EQU   7                   PRINT PCE ID                         PC376000

                            00008  2863+PCEPUNID EQU   8                   PUNCH PCE ID                         PC378000
                            00009  2864+PCEPRGID EQU   9                   PURGE PCE ID                         PC380000
                            0000A  2865+PCECONID EQU   10                  CONSOLE PCE ID                       PC382000
                            0000B  2866+PCEMLMID EQU   11                  LINE MANAGER PCE ID                  PC384000
                            0000C  2867+PCETIMID EQU   12                  TIMER PCE ID                         PC386000

                            0000D  2868+PCECKPID EQU   13                  CHECKPOINT PCE ID                    PC388000
                            0000E  2869+PCEGPRID EQU   14                  PRIORITY AGING PCE ID                PC390000
INTF     HASP EXECUTION PROCESSOR PCE WORK AREA DSECT                                                          PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000058                             2872+PCEDSECT DSECT                     HASP EXECUTION PROCESSOR             XW296000
000058                      00058  2873+         ORG   PCEWORK              PCE WORK AREA DSECT                 XW298000
000058                             2874+XPCESTAT DS    B                   PCE STATUS BYTE                      XW299000
                            00080  2875+XDUPBIT  EQU   X'80'               JOB WITH DUP NAME WAITING            XW299100

                            00040  2876+XEOJMES  EQU   X'40'               END-EXECUTION MESSAGE SENT           XW299200
                            00020  2877+XPOSTBIT EQU   X'20'               XTHAW SHOULD THAW XPCEJST            XW299300
                            00010  2878+XREXREQ  EQU   X'10'               REQUEUE FOR XEQ AT END XEQ           XW299400
                            00008  2879+XSYNCREQ EQU   X'08'               SYNCHRONOUS ACTION REQUIRED          XW299500
                            00004  2880+XOCRMES  EQU   X'04'               OCR-OVERFLOW MESSAGE SENT            XW299600

                            00002  2881+XPCERSV6 EQU   X'02'               RESERVED                             XW299700
                            00001  2882+XPCERSV7 EQU   X'01'               RESERVED                             XW299800
000059                             2883+XSYNCFLG DS    B                   SYNCHRONOUS ACTION FLAGS             XW299900
                            00080  2884+XEOJBIT  EQU   X'80'               TERMINATE JOB EXECUTION              XW300000
                            00040  2885+XALLOCWT EQU   X'40'               WRITE 'AWAITING ALLOCATION'          XW300100
                            00020  2886+XGETIOT  EQU   X'20'               GET ANOTHER IOT FOR RDR/INTRP        XW300200

                            00010  2887+XIOTWREQ EQU   X'10'               IOT CHECKPOINT REQUIRED              XW300300
                            00008  2888+XOUTCDBF EQU   X'08'               GET A /*OUTPUT CARD BUFFER           XW300400
                            00004  2889+XOCRMSG  EQU   X'04'               WRITE OCR OVERFLOW MESSAGE           XW300500
                            00002  2890+XSYNRSV6 EQU   X'02'               RESERVED                             XW300600

                            00001  2891+XSYNRSV7 EQU   X'01'               RESERVED                             XW300700
00005A                             2892+XPCESTEP DS    H                   CURRENT STEP NUMBER                  XW300800
00005C                             2893+XPCEOUTC DS    F                   POINTER TO /*OUTPUT CARD BUFFER      XW300900
000060                             2894+XPCEJST  DS    F                   ADDRESS OF USER TASK CONTROL BLOCK   XW302000
000064                             2895+XPCEJOB  DS    F                   ADDRESS OF JOB QUEUE ENTRY           XW304000

000068                             2896+XPCEIOT  DS    F                   ADDRESS OF FIRST IOT                 XW306000
00006C                             2897+XPCEJOBN DS    CL8                 JOB NAME                             XW308000
000074                             2898+XPCEDCT  DS    F                   ADDRESS OF DIRECT-ACCESS DCT         XW312000
000078                             2899+XPCEDDB  DS    F                   START OF DATA DEFINITION TABLE CHAIN XW314000
                            00000  2900+XOUTTOTL EQU   0                   TOTAL OUTPUT RECORDS                 XW318000
                            00004  2901+XOUTEST  EQU   4                   ESTIMATED OUTPUT RECORDS             XW320000
                            00008  2902+XOUTXCES EQU   8                   ESTIMATED EXCESSION AMOUNT           XW322000

                            0000C  2903+XOUTTYPE EQU   12                  OUTPUT RECORD TYPE (EBCDIC)          XW324000
                            00010  2904+XOUTENT  EQU   16                  OUTPUT INFORMATION TABLE LENGTH      XW326000
00007C                             2905+XPCEPRT  DS    CL(XOUTENT)         PRINT INFORMATION TABLE              XW328000

00008C                             2906+XPCEPUN  DS    CL(XOUTENT)         PUNCH INFORMATION TABLE              XW330000
00009C                             2907+XPCEPIT  DS    F                   ADDR OF PARTITION INFORMATION TABLE  XW332000
0000A0                             2908+XSTQE    DS    3F                  EXECUTION TIMER QUEUE ELEMENT        XW334000
0000AC                             2909+XXSTIME  DS    F                   TIME ESTIMATE EXCESSION AMOUNT       XW336000
                            00058  2910+XEQPCEWS EQU   *-PCEWORK           LENGTH OF EXECUTION PCE WORK AREA    XW340000

000000                             2911+HASPINTF CSECT                     END OF EXECUTION PCE WORK AREA DSECT XW342000
                                   2912          AIF   (NOT &AUTORDR).KNOARDR                                   K0036000
INTF     HASP ATTENTION APPENDAGE                                                                              PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2914 *        THE FOLLOWING ROUTINE FUNCTIONS AS AN IOS APPENDAGE.           K0040000
                                   2915 *        REGISTER 7 CONTAINS THE UCB ADDRESS AT ENTRANCE AND            K0042000
                                   2916 *        R14 CONTAINS THE RETURN ADDRESS.                               K0044000
                                   2917 *                                                                       K0046000

                                   2918          ENTRY $ATTNXIT                                                 K0048000
                            00000  2919          USING $ATTNXIT,R1                                              K0050000

                            00000  2920          USING UCBDSECT,R7                                              K0052000
000000 5810 1200      00200        2921 $ATTNXIT L     R1,WUCMSVE3         ADDRESS OF UCM SAVE AREA             K0054000
000004 900F 1000      00000        2922          STM   R0,R15,0(R1)        SAVE ALL REGISTERS IN UCM            K0056000
000008 18A1                        2923          LR    R10,R1              PRESERVE UCM SAVE AREA ADDRESS       K0058000
                                   2924          DROP  R1                                                       K0060000

00000A 05F0                        2925          BALR  R15,0               ESTABLISH LOCAL                      K0062000
                            0000C  2926          USING *,R15                ADDRESSIBILITY                      K0064000
00000C 58B0 F064      00070        2927          L     BASE1,APPBASE1      SET UP BASE1 ADDRESSIBILITY          K0066000
000010 9520 7013      00013        2928          CLI   UCBTBYT4,X'20'      TEST UCB TYPE                        K0068000
000014 4780 F052      0005E        2929          BE    ANOTRDR             BRANCH IF 1052 CONSOLE               K0070000
                                   2930          LA    R0,&NUMRDRS         R0 = NUMBER OF READERS               K0072000
000018 4100 0001      00001        2931+         LA    R0,1                R0 = NUMBER OF READERS               K0072000
00001C 58E0 B0F0      000F0        2932          L     R14,$DCTPOOL        R14 = FIRST READER DCT ADDRESS       K0074000
                            00000  2933          USING DCTDSECT,R14        ESTABLISH DCT ADDRESSIBILITY         K0076000

000020 58D0 E008      00008        2934 ANEXTRDR L     R13,DCTDCB          R13 = DCB ADDRESS                    K0078000

000024 58D0 D02C      0002C        2935          L     R13,DCBDEBAD-DCBDSECT(,R13) R13 = DEB ADDRESS            K0080000
000028 4970 D022      00022        2936          CH    R7,DEBUCBAD+2-DEBDSECT(,R13) COMPARE UCB ADDRESSES       K0082000
00002C 4780 F030      0003C        2937          BE    ASTRTRDR            BRANCH IF UCB ADDRESS MATCH          K0084000
000030 58E0 E014      00014        2938          L     R14,DCTCHAIN        R14 = NEXT READER DCT ADDRESS        K0086000
000034 4600 F014      00020        2939          BCT   R0,ANEXTRDR         CHECK NEXT DCT                       K0088000

000038 47F0 F052      0005E        2940          B     ANOTRDR             NOT FOUND, CALL IIIBA1               K0090000
00003C 94DF E000      00000        2941 ASTRTRDR NI    DCTSTAT,255-DCTHOLD TURN OFF HOLD BIT IN DCT             K0092000
                                   2942          DROP  R14                                                      K0094000
                                   2943         $POST  $HASPECF,UNIT       $POST MASTER EVENT CONTROL FIELD.    K0096000
000040 94F7 B0C4      000C4        2944+         NI    $HASPECF,255-$EWFUNIT                                    PO008000
                                   2945 APENPOST NULL                                                           K0098000
000044                             2946+APENPOST DS    0H                                                       NU006000
000044 D203 F078 B0D4 00084 000D4  2947          MVC   AHASPTCB,$HASPTCB    POST                                K0100000
00004A 41E0 B0D8      000D8        2948          LA    R14,$HASPECB        FETCH ADDRESS OF ECB TO BE POSTED    K0102000
00004E 50E0 F074      00080        2949          ST    R14,AHASPECB          STORE INTO PARM LIST               K0104000

000052 98F0 F068      00074        2950          LM    R15,R0,AADDCONS     GO                                   K0106000

000056 05EF                        2951          BALR  R14,R15               HASP                               K0108000
000058 980F A000      00000        2952 APPENRET LM    R0,R15,0(R10)       RESTORE ALL REGISTERS                K0110000
00005C 07FE                        2953          BR    R14                 RETURN TO IOS                        K0112000
                                   2954          DROP  R7                                                       K0114000

00005E 980F A000      00000        2955 ANOTRDR  LM    R0,R15,0(R10)       RESTORE ALL REGISTERS                K0116000
000062 5810 0010      00010        2956          L     R1,$CVTPTR           CVT ADDRESS                         K0118000
000066 5810 1064      00064        2957          L     R1,CVTCUCB-CVTDSECT(,R1) UCM ADDRESS                     K0120000
00006A 47F0 F00E      0000E        2958          B     14(,R15)            RETURN TO IEEBA1 PROCESSING          K0122000
00006E 0000
000070 00000000                    2959 APPBASE1 DC    V(HASP)             ADDRESSIBILITY BASE                  K0124000
000074 00000354                    2960 AADDCONS DC    A($POSTECB)         ADDRESS OF POST ROUTINE              K0126000
000078 0000007C                    2961          DC    A(*+4)              PARAMETER POINTER                    K0128000
00007C 00000000                    2962          DC    A(0)                COMPLETION CODE                      K0130000
000080 00000000                    2963 AHASPECB DC    A(*-*)              HASP ECB ADDRESS                     K0132000
000084 00000000                    2964 AHASPTCB DC    A(*-*)              SET TO HASP TCB ADDRESS              K0134000
                                   2965          DROP  R15                                                      K0136000

                                   2966 .KNOARDR ANOP                                                           K0138000
INTF     HASP STATUS ROUTINE                                                                                   PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   2968 ***************************************************************         K0314000
                                   2969 *                                                             *         K0316000
                                   2970 * TITLE - HASP STATUS ROUTINE                                 *         K0318000
                                   2971 *                                                             *         K0320000
                                   2972 * FUNCTION/OPERATION -                                        *         K0322000
                                   2973 *        THIS ROUTINE GETS CALLED IN NON-VS2 SYSTEMS INSTEAD  *         K0324000
                                   2974 *  OF THE STATUS SVC.  IF IT IS BEING USED TO COOL THE TASK,  *         K0326000
                                   2975 *  THEN IT ASSUMES R2 POINTS TO THE IOB OF THE ISSUER OF THE  *         K0328000
                                   2976 *  PSEUDO EXCP.  XSTATUS THEN USES THE ECB POINTED TO BY THE  *         K0330000
                                   2977 *  IOB TO MAKE THE CALLER WAIT.  THE TCBPCEND FLAG IS SET TO  *         K0332000
                                   2978 *  SHOW THAT THE TASK HAS BEEN COOLED BY HASP.  IF XSTATUS    *         K0334000

                                   2979 *  HAS BEEN USED TO WARM A JOB, THEN IT WILL RUN THE TCBS     *         K0336000
                                   2980 *  AND POST ANY TASK WHICH IS PART OF THE JOBSTEP AND HAS     *         K0338000
                                   2981 *  THE TCBPCEND FLAG SET.  THE ECB WILL BE LOCATED THROUGH    *         K0340000
                                   2982 *  THE IOB WHICH REGISTER R1 (IN TCBGRS) ADDRESSES.           *         K0342000

                                   2983 *                                                             *         K0344000
                                   2984 *                                                             *         K0346000
                                   2985 ***************************************************************         K0348000



                                   2987          ENTRY XSTATUS                                                  K0352000
                            00088  2988          USING XSTATUS,R15                                              K0354000
000088 900F F0A4      0012C        2989 XSTATUS  STM   R0,R15,STATSAVE     SAVE ALL REGISTERS                   K0356000
00008C 18CF                        2990          LR    BASE2,R15                                                K0358000
                                   2991          DROP  R15                                                      K0360000
                            00088  2992          USING XSTATUS,BASE2                                            K0362000
00008E 950C C0A7      0012F        2993          CLI   STATSAVE+3,X'0C'    HASP FREEZE?                         K0364000
000092 4770 C038      000C0        2994          BNE   STATWARM            BIF NOT                              K0366000

000096 1841                        2995          LR    R4,R1               BE SURE TO USE ARGUMENT              K0368000
                            00000  2996          USING BUFDSECT,R2         $EXCPSVC REGISTER                    K0370000
000098 5810 2004      00004        2997          L     R1,IOBECBCC         ECB ADDR                             K0372000

                                   2998          DROP  R2                                                       K0374000
00009C 4100 0001      00001        2999          LA    R0,1                WAIT COUNT                           K0376000
0000A0 4111 0000      00000        3000          LA    R1,0(R1)            ZERO HIGH ORDER BYTE                 K0378000
0000A4 5830 0010      00010        3001          L     R3,$CVTPTR          SET UP FAKE SVC FLIH INFO       RFIT K0380000
0000A8 58F0 B16C      0016C        3002          L     R15,$WAITENT        ADDRESS OF WAIT ROUTINE              K0384000
0000AC 943F 1000      00000        3003          NI    0(R1),X'3F'         TURN OFF WAIT AND POST BITS          K0386000
                            00000  3004          USING TCBDSECT,R4                                              K0388000
0000B0 5850 4000      00000        3005          L     R5,TCBRBP           SET UP FAKE SVC FLIH INFO       RFIT K0388200
0000B4 9601 40B0      000B0        3006          OI    TCBPCE,TCBPCEND     SHOW HASP NON-DISPATCHABILITY        K0390000
                                   3007          DROP  R4                                                       K0392000
0000B8 05EF                        3008          BALR  R14,R15             ENTER WAIT                           K0394000
                            000BA  3009          USING *,R14               R14 WAS RETURN                       K0396000

0000BA 980F E072      0012C        3010          LM    R0,R15,STATSAVE     RESTORE REGISERS                     K0398000

0000BE 07FE                        3011          BR    R14                                                      K0400000
                                   3012          DROP  R14                                                      K0402000




0000C0 5830 0010      00010        3014 STATWARM L     R3,$CVTPTR                                               K0406000
                            00000  3015          USING CVTDSECT,R3                                              K0408000
0000C4 4150 302C      0002C        3016          LA    R5,CVTHEAD-(TCBTCB-TCBDSECT) TREAT CVT AS 1ST TCB        K0410000
                            00000  3017          USING TCBDSECT,R5                                              K0412000
0000C8 5850 5074      00074        3018 STATWRM1 L     R5,TCBTCB                                                K0414000
INTF     HASP STATUS ROUTINE                                                                                   PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0000CC 4155 0000      00000        3019          LA    R5,0(R5)            CLEAR                                K0416000
0000D0 1255                        3020          LTR   R5,R5               TEST FOR END                         K0418000
0000D2 4780 C09E      00126        3021          BZ    STATWRM2            BIF END                              K0420000
0000D6 D502 C0A9 507D 00131 0007D  3022          CLC   STATSAVE+5(3),TCBJSTCB+1 SAME JOB STEP?             RFIT K0422000

0000DC 4770 C040      000C8        3023          BNE   STATWRM1            BIF NOT                              K0424000
0000E0 9101 50B0      000B0        3024          TM    TCBPCE,TCBPCEND     COOLED BY HASP?                      K0426000

0000E4 4780 C040      000C8        3025          BZ    STATWRM1            BIF NOT                              K0428000

                                   3026          AIF   (&SYSMVT).KNOMFT3                                   RFIT K0429000
0000E8 5870 5034      00034        3027 .KNOMFT3 L     R7,TCBGRS+4         FETCH R1 FROM TCB SAVEAREA      RFIT K0431000
                                   3028 .KNOMFT4 ANOP                                                      RFIT K0431500
0000EC 58E0 5000      00000        3029          L   R14,TCBRBP            GET TCB RBLINK ADDRESS          RFIT K0431510
0000F0 91C0 E00A      0000A        3030          TM    10(R14),X'C0'       IRB OR SIRB?                    RFIT K0431520
0000F4 47B0 C074      000FC        3031          BNM   RBOK                NO - USE TCB REGS               RFIT K0431530
0000F8 5870 E024      00024        3032          L     R7,36(,R14)         YES - USE RB REGS               RFIT K0431540
                                   3033 RBOK     NULL                                                      RFIT K0431550
0000FC                             3034+RBOK     DS    0H                                                       NU006000
0000FC 4177 0000      00000        3035          LA    R7,0(R7)                                                 K0432000
000100 5570 30A4      000A4        3036          CL    R7,CVTMZ00          TOO LARGE?                           K0434000
000104 47B0 C040      000C8        3037          BNL   STATWRM1            BIF TOO LARGE                        K0436000

000108 94FE 50B0      000B0        3038          NI    TCBPCE,255-TCBPCEND CLEAR FLAG                           K0438000
00010C 5877 0004      00004        3039          L     R7,IOBECBCC-BUFDSECT(R7) TO GET TO ECB                   K0440000
000110 5070 C0E8      00170        3040          ST    R7,STATPARM+4       ECB ADDR                             K0442000

000114 5050 C0EC      00174        3041          ST    R5,STATPARM+8       TCB ADDR                             K0444000
000118 4100 C0E4      0016C        3042          LA    R0,STATPARM         FIREUP                               K0446000
00011C 41F0 C2CC      00354        3043          LA    R15,$POSTECB                                             K0448000
000120 05EF                        3044          BALR  R14,R15             POST TASK                            K0450000
000122 47F0 C040      000C8        3045          B     STATWRM1            LOOP                                 K0452000
000126 980F C0A4      0012C        3046 STATWRM2 LM    R0,R15,STATSAVE                                          K0454000
00012A 07FE                        3047          BR    R14                                                      K0456000



00012C                             3049 STATSAVE DS    16F                                                      K0460000
00016C 00000000                    3050 STATPARM DC    F'0'                COMPLETION CODE                      K0462000
000170 00000000                    3051          DC    F'0'                ECB ADDRESS                          K0464000
000174 00000000                    3052          DC    F'0'                TCB ADDRESS                          K0466000

                                   3053          DROP  BASE2                                                    K0470000
                                   3054          DROP  R5,R3                                                    K0472000
INTF     HASP WTO/WTOR/WTL ENTRY POINT                                                                         PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   3056 **************************************************************          K0476000
                                   3057 *                                                             *         K0478000
                                   3058 *        HASP SVC 35 EXIT 1 AND SVC 36 INTERFACE ROUTINE      *         K0480000
                                   3059 *                                                             *         K0482000
                                   3060 * FUNCTION/PURPOSE                                            *         K0484000
                                   3061 *                                                             *         K0486000

                                   3062 *        THIS ROUTINE GETS CONTROL FROM THE SLIH FOR SVCS     *         K0488000
                                   3063 *        35 & 36 AND CALLS $WTOSVC.  UPON RETURN, R15= 0      *         K0490000
                                   3064 *        INDICATES CONTINUE SVC 35/36 PROCESSING AND R15 = 4  *         K0492000
                                   3065 *        MEANS TO IGNORE THE MESSAGE.                         *         K0494000
                                   3066 *                                                             *         K0496000
                                   3067 *  REGISTER CONTENT ON ENTRY FROM SVC SLIH..                  *         K0498000
                                   3068 *                                                             *         K0500000
                                   3069 *                             REG  CONTENTS                   *         K0502000

                                   3070 *                             ---  --------                   *         K0504000
                                   3071 *                             R1   INPUT ADDRESS              *         K0506000

                                   3072 *                             R3   CVT ADDRESS                *         K0508000
                                   3073 *                             R4   TCB ADDRESS                *         K0510000
                                   3074 *                             R5   SVRB ADDRESS               *         K0512000
                                   3075 *                             R14  RETURN ADDRESS             *         K0514000
                                   3076 *                                                             *         K0516000
                                   3077 **************************************************************          K0518000


                                   3079 ***************************************************************         K0522000

                                   3080 *              ENTRY POINT                                    *         K0524000
                                   3081 ***************************************************************         K0526000


                            00000  3083          USING TCBDSECT,R4         ESTABLISH TCB ADDRESSABILITY         K0530000
                            00040  3084          USING RBDSECT,R5          ESTABLISH RB ADDRESSABILITY          K0532000



                                   3086          ENTRY $WTOXIT                                                  K0538000
000178                             3087 $WTOXIT  DS    0D                  DOUBLE WORD BOUNDRY FOR SVC TBL RFIT K0540000

000178 0520                        3088          BALR  R2,0                TEMP                            RFIT K0540010
                            0017A  3089          USING *,R2                ADDRESSABILITY                  RFIT K0540020
00017A 98BC 207E      001F8        3090          LM    BASE1,BASE2,XBASCON1 NOW USE STD HASP ADDRESSABILITYRFIT K0540030
                                   3091          DROP  R2                                                  RFIT K0540040
                            00178  3092          USING $WTOXIT,BASE2                                       RFIT K0540050



                                   3094 WTOMTST  NULL                                                           K0544000

00017E                             3095+WTOMTST  DS    0H                                                       NU006000
00017E 5890 501C      0005C        3096          L     R9,RBLINK           SET R9 = NEXT RB ADDRESS             K0546000
000182 90E1 5060      00060        3097          STM   R14,R1,WXSAVE(R5)   SAVE PARAMETER REGISTERS             K0548000
000186 91FF 506C      0006C        3098          TM    WXSAVE+12(R5),X'FF' TEST INPUT ADDRESS DISPOSITION       K0550000
00018A 4710 C03A      001B2        3099          BO    WTXXIT               AND LET OS HAVE IT IF NEGATIVE      K0552000

00018E 18F1                        3100          LR    R15,R1                                                   K0554000
000190 9500 1000      00000        3101          CLI   0(R1),0             TEST MESSAGE TYPE (WTO/WTOR)         K0556000
000194 4780 C024      0019C        3102          BE    WTXPROC             BRANCH IF WTO MESSAGE                K0558000
000198 41F0 1008      00008        3103          LA    R15,8(,R1)          POINT TO MESSAGE LENGTH FIELD        K0560000

00019C 9504 F001      00001        3104 WTXPROC  CLI   1(R15),4            TEST FOR ZERO LENGTH MESSAGE         K0562000
0001A0 47D0 C03A      001B2        3105          BNH   WTXXIT              BRANCH IF ZERO LENGTH                K0564000
INTF     HASP WTO/WTOR/WTL ENTRY POINT                                                                         PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0001A4 58F0 C06C      001E4        3106          L     R15,WTXADDR         GET ADDRESS OF $WTOSVC               K0566000
0001A8 05EF                        3107          BALR  R14,R15             CALL HASP EXIT                       K0568000

0001AA 12FF                        3108          LTR   R15,R15             TEST RC                              K0570000
0001AC 4780 C03A      001B2        3109          BZ    WTXXIT              BIF MESSAGE TO BE DISPLAYED          K0572000
0001B0 0A03                        3110          SVC   3                    ELSE IGNORE MESSAGE                 K0574000
0001B2 98E1 5060      00060        3111 WTXXIT   LM    R14,R1,WXSAVE(R5)   RESTORE PARAMETERS                   K0576000
0001B6 9523 9013      00013        3112          CLI   RBOPSW+3-RBDSECT(R9),35 TEST FOR WTO(R) OR WTL           K0578000

0001BA 4780 C050      001C8        3113          BE    WTOXSET             BRANCH IF WTO(R)                     K0580000
                                   3114         $TRACE                                                          K0582000
0001BE D207 5068 C078 00068 001F0  3115          MVC   WXAXNM(8,R5),WTLFLNM SETUP FOR XCTL TO WTL               K0584000
0001C4 47F0 C056      001CE        3116          B     WTOXCTL             GO TO XCTL PROCEDURE                 K0586000
                                   3117 ***************************************************************         K0588000

                                   3118 *              XCTL TO REAL FIRST LOAD OF SVC 35 OR 36        *         K0590000
                                   3119 ***************************************************************         K0592000
0001C8                             3120 WTOXSET  DS    0H                                                       K0594000
                                   3121         $TRACE                                                          K0596000
0001C8 D207 5068 C070 00068 001E8  3122          MVC   WXAXNM(8,R5),WTOFLNM SETUP XCTL TO WTO FIRST LOAD        K0598000

0001CE 1BFF                        3123 WTOXCTL  SR    R15,R15             CLEAR                                K0600000
0001D0 50F0 5064      00064        3124          ST    R15,WXADCB(,R5)      DCB                                 K0602000
0001D4 41F0 5068      00068        3125          LA    R15,WXAXNM(,R5)     ADDRESS OF ENTRY POINT NAME          K0604000
0001D8 50F0 5060      00060        3126          ST    R15,WXAPTR(,R5)     STORE IN XSA FIELD                   K0606000
0001DC 41F0 5060      00060        3127          LA    R15,WXAPTR(,R5)     XCTL PARAMETER LIST                  K0608000

                                   3128          XCTL  SF=(E,(15))         GO TO FIRST LOAD                     K0610000
0001E0 0A07                        3129+         SVC   7                                 ISSUE XCTL SVC         00600000


0001E2 0000
0001E4 00000000                    3131 WTXADDR  DC    V($WTOSVC)          HASP WTO/WTL EXIT                    K0614000
0001E8 C9C7C3F0F0F0F3C5            3132 WTOFLNM  DC    CL8'IGC0003E'       SVC 35 FIRST LOAD NAME               K0616000

0001F0 C9C7C3F0F0F0F3C6            3133 WTLFLNM  DC    CL8'IGC0003F'       SVC 36 FIRST LOAD NAME               K0618000
0001F8 0000000000000178            3134 XBASCON1 DC    V(HASP),A($WTOXIT)  BASE1 AND BASE2 ADDRESSES            K0618100
                                   3135 ***************************************************************         K0620000
                                   3136 *              SVRB EXTENDED SAVE AREA DEFINITION             *         K0622000

                                   3137 ***************************************************************         K0624000


                            00060  3139 WXSAVE   EQU   RBEXSAV-RBDSECT     ORIGIN OF SVRB EXTENDED SAVE AREA    K0628000
                            00060  3140 WXAPTR   EQU   WXSAVE              POINTER TO XCTL NAME                 K0630000
                            00064  3141 WXADCB   EQU   WXSAVE+4            DCB POINTER (SET TO 0)               K0632000

                            00068  3142 WXAXNM   EQU   WXSAVE+8            XCTL NAME                            K0634000
                            00070  3143 WXSVRX   EQU   WXSAVE+16           R0, R1 SAVE IF FORCED WAIT           K0636000
                                   3144 ***************************************************************         K0638000
                                   3145 *              UCM DATA (SET BY INITIALIZATION) AND EQUATES   *         K0640000
                                   3146 ***************************************************************         K0642000
                                   3147          ENTRY WUCMSVE3                                                 K0644000


000200 00000000                    3149 WUCMSVE3 DC    A(*-*)              ADDRESS OF UCM SAVE AREA             K0648000
000204 00000000                    3150 WUCMSTCB DC    A(*-*)              COMMUNICATIONS TASK TCB              K0650000
000208 00000000                    3151 WUCMVEA  DC    A(*-*)              ADDRESS OF UCMVEA FIELD              K0652000

00020C 00                          3152 WUCMMODE DC    AL1(*-*)            CONTENTS OF MODE FLAG BYTE           K0654000


                            00002  3154 WUCMMCS  EQU   X'02'               MCS AUTHORIZATION FLAG FIELD         K0658000
                            0001A  3155 WUCMID   EQU   X'1A'               UCMID FIELD IN EACH UCM ENTRY        K0660000
                            00028  3156 WUCMAUTH EQU   X'28'               AUTHORIZATION CODE FIELD             K0662000

INTF     HASP WTO/WTOR/WTL ENTRY POINT                                                                         PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3157          DROP   BASE2                                                   K0664000
INTF     HASP LINK/XCTL INTERFACE                                                                              PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3159 *                                                                       K0668000
                                   3160 *              SVC INTERCEPT ROUTINES (LINK AND XCTL)                   K0670000
                                   3161 *                                                                       K0672000



                                   3163          ENTRY $LINKXIT                                                 K0676000

000210                             3164 $LINKXIT DS    0D                  LINK (SVC 6) INTERCEPT ROUTINE       K0678000
000210 0570                        3165          BALR  R7,0                ESTABLISH                            K0680000
                            00212  3166          USING *,R7                 TEMPORARY ADDRESSABILITY            K0682000
000212 5860 704A      0025C        3167          L     R6,XHASPBAS         GET ADDRESS OF                       K0684000
000216 5860 6170      00170        3168          L     R6,$LINKENT-HCTDSECT(,R6) ENTRY TO LINK (IGC006)         K0686000

00021A 47F0 7018      0022A        3169          B     XSVCSRCH            GO TO COMMON CODE                    K0688000



                                   3171          ENTRY $XCTLXIT                                                 K0692000
000220                             3172 $XCTLXIT DS    0D                  XCTL (SVC 7) INTERCEPT ROUTINE       K0694000
000220 0570                        3173          BALR  R7,0                ESTABLISH                            K0696000
                            00222  3174          USING *,R7                 TEMPORARY ADDRESSABILITY            K0698000
000222 5860 703A      0025C        3175          L     R6,XHASPBAS         GET ADDRESS OF                       K0700000
000226 5860 6174      00174        3176          L     R6,$XCTLENT-HCTDSECT(,R6) ENTRY TO XCTL (IGC007)         K0702000




00022A 0570                        3178 XSVCSRCH BALR  R7,0                ESTABLISH                            K0706000

                            0022C  3179          USING *,R7                 ADDRESSABILITY                      K0708000
00022C 588F 0000      00000        3180          L     R8,0(R15)           R8 = ADDRESS OF EBCDIC MODULE NAME   K0710000
000230 4190 7034      00260        3181          LA    R9,XSVCTABL         R9 = ADDRESS OF NAME TABLE           K0712000
000234 41A0 0003      00003        3182          LA    R10,(XSVCTEND-XSVCTABL)/12    R10 = TABLE LENGTH         K0714000
000238 D507 8000 9000 00000 00000  3183 XSVCSCH1 CLC   0(8,R8),0(R9)       SEARCH                               K0716000

00023E 4780 7020      0024C        3184          BE    XSVCSCH2             FOR                                 K0718000
000242 4199 000C      0000C        3185          LA    R9,12(R9)             MATCHING                           K0720000
000246 46A0 700C      00238        3186          BCT   R10,XSVCSCH1           NAME                              K0722000
00024A 07F6                        3187          BR    R6                  NOT FOUND, EXIT                      K0724000
00024C 90D7 70FC      00328        3188 XSVCSCH2 STM   R13,R7,XSVCSAVE     SAVE REGISTERS                       K0726000
000250 58F9 0008      00008        3189          L     R15,8(R9)           GET APPENDAGE ADDRESS                K0728000
                                   3190         $TRACE                                                          K0730000
000254 05EF                        3191          BALR  R14,R15             ENTER APPENDAGE                      K0732000
                            00256  3192          USING *,R14               ESTABLISH TEMPORARY ADDRESSABILITY   K0734000

000256 98D7 E0D2      00328        3193          LM    R13,R7,XSVCSAVE     RESTORE REGISTERS                    K0736000

00025A 07F6                        3194          BR    R6                   AND EXIT                            K0738000
                                   3195          DROP  R7,R14              KILL ADDRESSABILITY                  K0740000
00025C 00000000                    3196 XHASPBAS DC    V(HASP)             ADDRESS OF HASP COMMUNICATION TABLE  K0742000



000260                             3198 XSVCTABL DS    0F                  LINK/XCTL INTERCEPT NAME TABLE       K0746000

000260 C9C5C6E5C8C14040            3199          DC    CL8'IEFVHA  ',A(XNEXRCON)                                K0748000
00026C C9C5C6E5C8C3C240            3200          DC    CL8'IEFVHCB ',A(XRESTORE)                                K0750000
000278 C9C7C3F0F4F0F3C4            3201          DC    CL8'IGC0403D',A(WMGCRSVC)                                K0752000
                                   3202          AIF   (&SYSMVT).KNOMFT5                                   RFIT K0753999
                                   3203 .KNOMFT5 ANOP                                                      RFIT K0754001
000284                             3204 XSVCTEND DS    0F                  END OF TABLE                         K0756000
INTF     HASP SVC 34 INTERFACE -- ENTRY POINT                                                                  PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3206 ***************************************************************         K0760000
                                   3207 *                                                             *         K0762000

                                   3208 * TITLE - WMGCRSVC (SVC 34 PROCESSOR)                         *         K0764000

                                   3209 *                                                             *         K0766000
                                   3210 * FUNCTION/OPERATION -                                        *         K0768000
                                   3211 *                                                             *         K0770000
                                   3212 *  ENTERED FROM HASP XCTL/LINK INTERCEPT ROUTINE WHEN A XCTL  *         K0772000

                                   3213 *  TO MODULE 'IGC0403D' IS DETECTED.  THE FOLLOWING MAJOR     *         K0774000
                                   3214 *  STEPS ARE PERFORMED...                                     *         K0776000
                                   3215 *                                                             *         K0778000
                                   3216 *        (1)   HASP IS ENTERED AT $MGCRSVC TO PROCESS THE     *         K0780000
                                   3217 *              COMMAND.                                       *         K0782000
                                   3218 *                                                             *         K0784000
                                   3219 *        (2)   IF R15=0 UPON RETURN FROM $MGCRSVC, THEN THE   *         K0786000
                                   3220 *              RESUME PSW IN THE SVRB OF THE ISSUER OF THE    *         K0788000
                                   3221 *              XCTL TO IGC0403D IS CHANGED TO POINT TO CVTEXIT*         K0790000
                                   3222 *              IN THE CVT.  THE CURRENT SVRB IS TERMINATED BY *         K0792000
                                   3223 *              AN SVC 3 WHICH EVENTUALLY RESULTS IN THE       *         K0794000

                                   3224 *              COMMAND BEING IGNORED BY OS.                   *         K0796000
                                   3225 *                                                             *         K0798000
                                   3226 *        (3)   IF R15^=0 UPON RETURN, THEN IT IS EITHER AN OS *         K0800000
                                   3227 *              COMMAND OR A HASP COMMAND WHEN HASP IS OUT OF  *         K0802000

                                   3228 *              CMBS.  THE PROCESSING CONTINUES WITH A RETURN  *         K0804000
                                   3229 *              TO LINK/XCTL.                                  *         K0806000
                                   3230 *                                                             *         K0808000
                                   3231 ***************************************************************         K0810000



                            00000  3233          USING CVTDSECT,R3                                              K0814000
                            00284  3234          USING WMGCRSVC,R8                                              K0816000
000284 188F                        3235 WMGCRSVC LR    R8,R15              SET BASE REGISTER                    K0818000
000286 98D7 80A4      00328        3236          LM    R13,R7,XSVCSAVE     RESTORE SLIH REGISERSS               K0820000
00028A 189E                        3237          LR    R9,R14              PRESERVE RETURN ADDRESS              K0822000
00028C 18AF                        3238          LR    R10,R15             PRESERVE R15 VALUE                   K0824000
00028E 58F0 802C      002B0        3239          L     R15,WMGCRAD         PICK UP PTR TO $MGCRSVC              K0826000

000292 05EF                        3240          BALR  R14,R15              AND ENTER HIM                       K0828000
000294 8000 8011      00295        3241          SSM   *+1                 MUST ENTER LINK/XCTL DISABLED   RFIT K0829000
000298 18E9                        3242          LR    R14,R9              RESTORE ORIGINAL R14                 K0830000

00029A 18BF                        3243          LR    R11,R15             CAPTURE RU5                          K0832000
00029C 18FA                        3244          LR    R15,R10              AND THEN RESTORE                    K0834000
00029E 12BB                        3245          LTR   R11,R11             TEST RETURN CODE                     K0836000
0002A0 0776                        3246          BCR   NZ,R6               GO TO LINK/XCTL IF NOT HASP COMMAND  K0838000
0002A2 58A0 501C      0001C        3247          L     R10,RBLINK-RBDSECT(,R5)  GET NEXT SVRB                   K0840000
0002A6 4143 0050      00050        3248          LA    R4,CVTEXIT-CVTDSECT(R3) ADDRESS OF CVTEXIT               K0842000
0002AA 5040 A014      00014        3249          ST    R4,RBOPSW+4-RBDSECT(,R10) RESET RESUME PSW               K0844000
0002AE 0A03                        3250          SVC   3                   COMMENCE EXIT PROCEDURE              K0846000



0002B0 00000000                    3252 WMGCRAD  DC    V($MGCRSVC)         HASP SVC 34 PROCESSOR                K0850000



                                   3254          DROP  R8,R3                                                    K0854000

INTF     HASP SVC 34 INTERFACE -- ENTRY POINT                                                                  PAGE   49



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3255          AIF   (&SYSMVT).KNOMFT6                                   RFIT K0855999

                                   3256 .KNOMFT6 ANOP                                                      RFIT K0922001
INTF     HASP R/I APPENDAGE -- ESTABLISH INTERPRETER EXIT                                                      PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3258 *****************************************************************       K0926000
                                   3259 *                                                               *       K0928000
                                   3260 * TITLE - INTERPRETER ACCOUNTING ROUTINE EXIT FIXER             *       K0930000
                                   3261 *                                                               *       K0932000
                                   3262 * FUNCTION/OPERATION -                                          *       K0934000
                                   3263 *        THIS ROUTINE INSPECTS THE ESOTERIC NAME (E.G., SYSDA)  *       K0936000
                                   3264 *   SPECIFIED IN THE INTERPRETER OPTION LIST (THE SAME AS THAT  *       K0938000
                                   3265 *   SPECIFIED IN THE READER/ASB PROCEDURE PARM= FIELD) TO SEE   *       K0940000
                                   3266 *   IF IT IS CL8'SPOOL'.  IF THAT IS THE CASE, THE READER HAS   *       K0942000

                                   3267 *   BEEN STARTED FOR THE USE OF HASP.  THIS ROUTINE STORES IN   *       K0944000
                                   3268 *   THE INTERPRETER WORK AREA (IWA) AT OFFSET X'C8' A POINTER   *       K0946000

                                   3269 *   TO THE HASP ACCOUNTING-ROUTINE EXIT SPECIFIER, THUS AVOID-  *       K0948000

                                   3270 *   ING CHANGES TO THE INTERPRETER EXIT LIST.  WHEN CONTROL     *       K0950000
                                   3271 *   SECTION IEFVFA HAS CONVERTED A JCL STATEMENT TO INTERNAL    *       K0952000
                                   3272 *   TEXT, IT EXAMINES IWA+X'C8' TO SEE IF AN EXIT WAS SPECIFIED.*       K0954000
                                   3273 *   IF AN EXIT WAS SPECIFIED, IEFVFA GIVES CONTROL TO THE EXIT  *       K0956000
                                   3274 *   ROUTINE.  ON RETURN, IEFVFA INVOKES THE APPROPRIATE STATE-  *       K0958000
                                   3275 *   MENT PROCESSOR -- IEFVJA, IEFVEA, OR IEFVDA.                *       K0960000
                                   3276 *                                                               *       K0962000
                                   3277 * ENTRY -                                                       *       K0964000
                                   3278 *                                                               *       K0966000
                                   3279 *        FROM HASP LINK/XCTL INTERFACE, WHEN THE REQUESTED LOAD *       K0968000
                                   3280 *   MODULE IS NAMED IEFVHA (MAIN ENTRY TO THE INTERPRETER) OR   *       K0970000
                                   3281 *   IEFVHCB (ALTERNATE ENTRY TO INTERPRETER FOR TRANSIENT MFT   *       K0972000

                                   3282 *   READER RESTORE).                                            *       K0974000
                                   3283 *                                                               *       K0976000
                                   3284 * EXIT -                                                        *       K0978000

                                   3285 *                                                               *       K0980000
                                   3286 *        TO HASP LINK/XCTL INTERFACE.                           *       K0982000
                                   3287 *                                                               *       K0984000
                                   3288 * INPUT -                                                       *       K0986000
                                   3289 *                                                               *       K0988000
                                   3290 *        GPR 5 POINTS TO THE LINK/XCTL SVRB OF WHICH GPR 12     *       K0990000
                                   3291 *   POINTS TO THE INTERPRETER WORK AREA (IWA).                  *       K0992000
                                   3292 *                                                               *       K0994000
                                   3293 * OUTPUT -                                                      *       K0996000
                                   3294 *                                                               *       K0998000
                                   3295 *        IWA FIELD IWAINTS3 (IWA+X'C8') IS MODIFIED IF APPRO-   *       K1000000
                                   3296 *   PRIATE TO POINT TO THE INTERPRETER ACCOUNTING-ROUTINE EXIT  *       K1002000

                                   3297 *   SPECIFIER IN HASP.                                          *       K1004000
                                   3298 *                                                               *       K1006000
                                   3299 * CONTROL BLOCKS USED -                                         *       K1008000
                                   3300 *                                                               *       K1010000

                                   3301 *   SUPERVISOR REQUEST BLOCK (SVRB)                             *       K1012000
                                   3302 *     RBGRSV12, GPR 12 AT ISSUANCE OF THE LINK/XCTL             *       K1014000
                                   3303 *   INTERPRETER WORK AREA (IWA)                                 *       K1016000
                                   3304 *     IWACSCBP, A POINTER TO THE NEL                            *       K1018000
                                   3305 *     IWAINTS3, A POINTER TO ACCOUNTING-ROUTINE EXIT SPECIFIER  *       K1020000
                                   3306 *   INTERPRETER ENTRANCE LIST (NEL)                             *       K1022000

                                   3307 *     XNELOPLP, A POINTER TO THE OPTION LIST                    *       K1024000
                                   3308 *   OPTION LIST                                                 *       K1026000
                                   3309 *     XOPLSYSN, THE SYSOUT ESOTERIC NAME                        *       K1028000
                                   3310 *                                                               *       K1030000
                                   3311 *****************************************************************       K1032000
INTF     HASP R/I APPENDAGE -- ESTABLISH INTERPRETER EXIT                                                      PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00050  3313 RBGRSV12 EQU   X'50'               DISPL TO GPR 12 IN SVRB.             K1036000

                            0000C  3314 IWACSCBP EQU   X'C'                DISPL TO NEL POINTER IN IWA.         K1038000
                            00000  3315 XNELOPLP EQU   0                   DISPL TO OPT LIST PTR IN NEL.        K1040000

                            00018  3316 XOPLSYSN EQU   X'18'               DISPL TO ESO NAME IN OPT LIST.       K1042000
                            000C8  3317 IWAINTS3 EQU   X'C8'               DISPL TO PTR TO ACCTG-RTN            K1044000
                                   3318 *                                   EXIT SPECIFIER IN THE IWA.          K1046000



0002B4                             3320 XNEXRCON DS    0H                  ENTERED ON XCTL TO IEFVHA.           K1050000
0002B4                             3321 XRESTORE DS    0H                  ENTERED ON XCTL TO IEFVHCB.          K1052000
                            002B4  3322          USING *,R15               FROM HASP LINK/XCTL INTERFACE.       K1054000


0002B4 5810 5050      00050        3324          L     R1,RBGRSV12(,R5)    AT XCTL, R12 PTS TO THE IWA.         K1058000
0002B8 5820 100C      0000C        3325          L     R2,IWACSCBP(,R1)    USE THE IWA TO PT TO THE NEL.        K1060000
0002BC 5830 2000      00000        3326          L     R3,XNELOPLP(,R2)    USE THE NEL TO PT TO OPT LIST.       K1062000
0002C0 D507 F01E 3018 002D2 00018  3327          CLC   XNEXSYSD,XOPLSYSN(R3) IS THE ESO NAME C'SPOOL'...        K1064000
0002C6 077E                        3328          BCR   NE,R14              IF NOT, RETURN.                      K1066000

0002C8 4140 F02C      002E0        3329          LA    R4,XNEXNEW          OTHERWISE, STORE A PTR TO OUR        K1068000
0002CC 5041 00C8      000C8        3330          ST    R4,IWAINTS3(R1)     ACCTG-RTN EXIT SPECIFIER             K1070000
0002D0 07FE                        3331          BR    R14                  IN THE IWA, AND RETURN              K1072000

                                   3332          DROP  R15                                                      K1074000



0002D2 E2D7D6D6D3404040            3334 XNEXSYSD DC    CL8'SPOOL'          ESOTERIC NAME FOR HASP RDR           K1078000
0002DA 000000000000
0002E0 40800000000002E8            3335 XNEXNEW  DC    0D'0',X'40800000',A(XJCLEXIT)                            K1080000



0002E8 05F0                        3337 XJCLEXIT BALR  R15,0                                                    K1084000

                            002EA  3338          USING *,R15                                                    K1086000
0002EA D202 F027 1001 00311 00001  3339          MVC   XJCLPARM+5(3),1(R1) JCL POINTER                          K1088000
0002F0 D202 F023 C0D1 0030D 000D1  3340          MVC   XJCLPARM+1(3),X'D1'(R12) JMR POINTER                     K1090000
0002F6 90E1 F02A      00314        3341          STM   R14,R1,XJCLSAVE     SAVE A FEW                           K1092000
0002FA 4110 F022      0030C        3342          LA    R1,XJCLPARM                                              K1094000

0002FE 58F0 F03A      00324        3343          L     R15,XJCLADDR        CALL XJCLSCAN                        K1096000
                                   3344          DROP  R15                                                      K1098000
000302 05EF                        3345          BALR  R14,R15                                                  K1100000
                            00304  3346          USING *,R14                                                    K1102000

000304 98E1 E010      00314        3347          LM    R14,R1,XJCLSAVE     RESTORE                              K1104000
000308 07FE                        3348          BR    R14                 RETURN                               K1106000
                                   3349          DROP  R14                                                      K1108000



00030A 0000
00030C 0000000000000000            3351 XJCLPARM DC    2F'0'                                                    K1112000

000314 0000000000000000            3352 XJCLSAVE DC    4F'0'                                                    K1114000
000324 00000000                    3353 XJCLADDR DC    V(XJCLSCAN)                                              K1116000
000328                             3354 XSVCSAVE DS    11F                 REGISTER SAVE AREA                   K1118000
INTF     HASP TASK POSTING SUBROUTINE                                                                          PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   3356 *                                                                       K1122000
                                   3357 *                                                                       K1124000
                                   3358 *      THE FOLLOWING ROUTINE CAUSES AN ECB TO BE POSTED WITHOUT         K1126000
                                   3359 *      GOING THROUGH FLIH.  THE ROUTINE IS TRANSPARENT TO R1 - R13.     K1128000
                                   3360 *      R0, R14, AND R15 MUST BE SET AS FOLLOWS-                         K1130000

                                   3361 *                                                                       K1132000
                                   3362 *         R0  -  ADDRESS OF PARAMETER LIST.                             K1134000
                                   3363 *         R14 -  RETURN ADDRESS                                         K1136000
                                   3364 *         R15 -  ADDRESS OF THIS ROUTINE ($POSTECB)                     K1138000
                                   3365 *                                                                       K1140000

                                   3366 *      THE PARAMETER LIST IS 3 WORDS LONG AND HAS THE FOLLOWING         K1142000
                                   3367 *      FORMAT-                                                          K1144000
                                   3368 *                                                                       K1146000
                                   3369 *        DC    A(X'COMPLETION CODE')                                    K1148000
                                   3370 *        DC    A(ECB ADDRESS)                                           K1150000

                                   3371 *        DC    A(TCB ADDRESS)                                           K1152000
                                   3372 *                                                                       K1154000





                            00354  3374          USING *,R15               ESTABLISH ADDRESSABILITY             K1158000
                                   3375          ENTRY $POSTECB                                                 K1160000

000354 909E F080      003D4        3376 $POSTECB STM   R9,R14,WPOSTSAV     SAVE ALL REGISTERS                   K1162000
000358 5030 F098      003EC        3377          ST    R3,WPOSTSV3          WHICH WILL BE USED                  K1164000
00035C 5830 0010      00010        3378          L     R3,$CVTPTR          ESTABLISH                            K1166000
                            00000  3379          USING CVTDSECT,R3          CVT ADDRESSABILITY                  K1168000




000360 18A0                        3381          LR    R10,R0              GET ADDRESS OF PARAMETER LIST        K1172000
000362 9103 A007      00007        3382          TM    7(R10),X'03'        VALIDATE ADDRESS OF ECB              K1174000
000366 4770 F072      003C6        3383          BNZ   WPOSTRET            BRANCH IF NOT ON WORD BOUNDARY       K1176000
00036A 98AC A000      00000        3384          LM    R10,R12,0(R10)      PICK UP PARAMETER LIST               K1178000

00036E 41B0 B000      00000        3385          LA    R11,0(,R11)         CLEAR HIGH-ORDER BYTE                K1180000
000372 55B0 30A4      000A4        3386          CL    R11,CVTMZ00         VALIDATE ADDRESS OF ECB              K1182000
000376 47B0 F072      003C6        3387          BNL   WPOSTRET            BRANCH IF INVALID ECB ADDRESS        K1184000



00037A 41C0 C000      00000        3389          LA    R12,0(,R12)         CLEAR HIGH BYTE OF TCB ADDRESS       K1188000
00037E 41D0 302C      0002C        3390          LA    R13,CVTHEAD-(TCBTCB-TCBDSECT) TREAT CVT AS FIRST TCB     K1190000
                                   3391          DROP  SAVE                ESTABLISH                            K1192000

                            00000  3392          USING TCBDSECT,R13         TCB ADDRESSABILITY                  K1194000

000382 58D0 D074      00074        3394 WPOSTCB  L     R13,TCBTCB          GET ADDRESS OF NEXT TCB              K1198000

000386 41D0 D000      00000        3395          LA    R13,0(,R13)         CLEAR HIGH-ORDER BYTE                K1200000
00038A 12DD                        3396          LTR   R13,R13             TEST FOR END-OF-CHAIN                K1202000
00038C 4780 F072      003C6        3397          BZ    WPOSTRET            INVALID TCB IF END-OF-CHAIN          K1204000
000390 15DC                        3398          CLR   R13,R12             TEST TCB ADDRESS                     K1206000
000392 4770 F02E      00382        3399          BNE   WPOSTCB             BRANCH IF NOT TCB SPECIFIED          K1208000

INTF     HASP TASK POSTING SUBROUTINE                                                                          PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000396 9180 B000      00000        3401          TM    0(R11),X'80'        TEST STATUS OF ECB                   K1212000
00039A 4780 F06A      003BE        3402          BZ    WPOST               BRANCH IF ECB IS NOT WAITING         K1214000


00039E 58E0 B000      00000        3404          L     R14,0(,R11)         GET ADDRESS OF WAITING RB            K1218000
0003A2 41E0 E000      00000        3405          LA    R14,0(,R14)         CLEAR HIGH-ORDER BYTE                K1220000
0003A6 5FD0 F09C      003F0        3406          SL    R13,WPOSTDSP        TREAT TCB AS RB                      K1222000

                            00040  3407          USING RBDSECT,R13         ESTABLISH RB ADDRESSABILITY          K1224000


0003AA 58D0 D01C      0005C        3409 WPOSTRB  L     R13,RBLINK          GET ADDRESS OF NEXT RB               K1228000
0003AE 41D0 D000      00000        3410          LA    R13,0(,R13)         CLEAR HIGH-ORDER BYTE                K1230000
0003B2 15DC                        3411          CLR   R13,R12             TEST FOR END-OF-CHAIN                K1232000
0003B4 4780 F072      003C6        3412          BE    WPOSTRET            INVALID RB IF END-OF-CHAIN           K1234000
0003B8 15DE                        3413          CLR   R13,R14             TEST RB ADDRESS                      K1236000

0003BA 4770 F056      003AA        3414          BNE   WPOSTRB             BRANCH IF NOT RB SPECIFIED           K1238000



0003BE 58F0 3098      00098        3416 WPOST    L     R15,CVT0PT01        GET ADDRESS OF POST ROUTINE          K1242000
                                   3417          BAL   R14,(&SYSMFT*4+&SYSVS1*4)(,R15) BRANCH TO EFFECT THE     K1244000
0003C2 45E0 F000      00000        3418+         BAL   R14,(0*4+0*4)(,R15)             BRANCH TO EFFECT THE     K1244000
                                   3419 *                                   POST                                K1246000



0003C6 05F0                        3421 WPOSTRET BALR  R15,0               ESTABLISH NEW                        K1250000

                            003C8  3422          USING *,R15                TEMPORARY ADDRESSABILITY            K1252000
0003C8 5830 F024      003EC        3423          L     R3,WPOSTSV3         RESTORE                              K1254000

0003CC 989E F00C      003D4        3424          LM    R9,R14,WPOSTSAV      REGISTERS                           K1256000
0003D0 07FE                        3425          BR    R14                   AND RETURN                         K1258000
                                   3426          DROP  R3,R13,R15          *                                    K1260000
                            00000  3427          USING PCEDSECT,SAVE       RE-ESTABLISH PCE ADDRESSABILITY      K1262000






0003D4                             3429 WPOSTSAV DS    6F                  REGISTER                             K1266000
0003EC                             3430 WPOSTSV3 DS    F                    SAVE AREA                           K1268000
0003F0 0000001C                    3431 WPOSTDSP DC    A(RBLINK-RBDSECT)   DISPLACEMENT OF RB LINK FIELD        K1270000
                                   3432 .KNOINTF ANOP                                                           K1272000
0003F8                             3433          LTORG ,                                                        K9994000
                                   3434 $DLENGTH $DLENGTH                                                       K9996000
INTF     HASPINTF CONTROL SECTION LENGTH                                                                       PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78













0003F8                             3437+         DS    0D                  FILL OUT CONTROL SECTION             DN016000
                            003F8  3438+$L       EQU   *-HASPINTF                                               DN018000

                            00000  3439+$L1      EQU   $L/100000*100000              COMPUTE                    DN020000
                            00000  3440+$L2      EQU   ($L-$L1)/10000*10000            INTERMEDIATE             DN022000
                            003E8  3441+$L3      EQU   ($L-$L1-$L2)/1000*1000            LENGTH                 DN024000
                            00000  3442+$L4      EQU   ($L-$L1-$L2-$L3)/100*100            VALUES               DN026000
                            0000A  3443+$L5      EQU   ($L-$L1-$L2-$L3-$L4)/10*10                               DN028000
                            00006  3444+$L6      EQU   $L-$L1-$L2-$L3-$L4-$L5                                   DN030000





                                   3446+*                                                                       DN034000
                                   3447+*                                  DECIMAL LENGTH                       DN036000

                                   3448+*                                                                       DN038000




                            01016  3450+$DLENGTH EQU   $L1/100000*1048576+$L2/10000*65536+$L3/1000*4096+$L4/100CDN042000
                                       +               *256+$L5/10*16+$L6                                       DN044000






                                   3452          END   ,                                                        K9998000
INTF                                              RELOCATION DICTIONARY                                        PAGE   55


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78

 0001     0001      0C     000074
 0001     0001      0C     000078
 0001     0001      0C     0001FC
 0001     0001      0C     000268
 0001     0001      0C     000274
 0001     0001      0C     000280
 0001     0001      0C     0002E4

 0001     0002      1C     000070
 0001     0002      1C     0001F8
 0001     0002      1C     00025C
 0001     0003      1C     0001E4

 0001     0004      1C     0002B0
 0001     0005      1C     000324

INTF                                              CROSS-REFERENCE                                              PAGE   56


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$ATTNXIT 00004 00000000 02921  02918 02919
$CVTPTR  00001 00000010 00677  02956 03001 03014 03378
$DCTPOOL 00004 000000F0 00608  02932
$EWFUNIT 00001 00000008 00329  02944
$EXITNOP 00002 0000002C 00512  00507 00508
$HASPECB 00004 000000D8 00601  02948
$HASPECF 00001 000000C4 00588  02944

$HASPTCB 00004 000000D4 00600  02947
$L       00001 000003F8 03438  03439 03440 03441 03442 03443 03444
$LINKENT 00004 00000170 00665  03168

$LINKXIT 00008 00000210 03164  03163
$L1      00001 00000000 03439  03440 03441 03442 03443 03444 03450
$L2      00001 00000000 03440  03441 03442 03443 03444 03450
$L3      00001 000003E8 03441  03442 03443 03444 03450
$L4      00001 00000000 03442  03443 03444 03450
$L5      00001 0000000A 03443  03444 03450
$L6      00001 00000006 03444  03450
$NUCTABL 00004 0000012C 00626  00631
$NUCTBLE 00004 0000015C 00655  00659
$POSTECB 00004 00000354 03376  02960 03043 03375
$SAVEBEG 00004 0000013C 00639  00648
$SAVEEND 00001 0000015C 00647  00648

$WAITENT 00004 0000016C 00664  03002

$WTOXIT  00008 00000178 03087  03086 03092 03134
$XCTLENT 00004 00000174 00666  03176

$XCTLXIT 00008 00000220 03172  03171
AADDCONS 00004 00000074 02960  02950
AHASPECB 00004 00000080 02963  02949
AHASPTCB 00004 00000084 02964  02947
ANEXTRDR 00004 00000020 02934  02939
ANOTRDR  00004 0000005E 02955  02929 02940
APPBASE1 00004 00000070 02959  02927
ASTRTRDR 00004 0000003C 02941  02937
BASE1    00001 0000000B 00299  00495 02927 03090
BASE2    00001 0000000C 00300  02990 02992 03053 03090 03092 03157
BUFDSECT 00001 00000000 02740  02996 03039
BUFSTART 00008 00000058 02779  02786 02792

CVTCRTTR 00003 000000B8 00780  00793
CVTCUCB  00004 00000064 00732  02957

CVTDSECT 00001 00000000 00678  02957 03015 03233 03248 03379

CVTEXIT  00002 00000050 00725  03248
CVTHEAD  00004 000000A0 00755  03016 03390
CVTMZ00  00004 000000A4 00756  03036 03386
CVTUSER  00004 000000CC 00804  00805
CVTXTNT1 00001 00000114 00884  00857
CVT0PT01 00004 00000098 00753  03416
DCBBIT0  00001 00000080 01894  02015 02031 02070 02088 02133 02143 02159 02200 02210 02222 02245 02276 02279 02281 02283
                               02306 02309 02329 02334 02353 02390 02443 02466 02498 02502 02515 02610 02613 02623
DCBBIT1  00001 00000040 01895  02016 02032 02089 02097 02133 02143 02161 02201 02211 02224 02246 02248 02258 02276 02279
                               02282 02283 02311 02329 02332 02334 02356 02357 02358 02393 02394 02443 02468 02504 02506
                               02518 02562 02610 02615 02624
DCBBIT2  00001 00000020 01896  02017 02033 02090 02099 02143 02162 02202 02212 02225 02227 02228 02246 02248 02253 02259

                               02276 02278 02285 02313 02336 02338 02361 02362 02363 02397 02398 02445 02471 02507 02523
                               02565 02569 02610 02625
DCBBIT3  00001 00000010 01897  01981 02018 02034 02104 02146 02163 02203 02225 02228 02230 02246 02261 02286 02316 02336

INTF                                              CROSS-REFERENCE                                              PAGE   57


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

                               02340 02365 02366 02367 02401 02402 02445 02473 02475 02477 02509 02524 02565 02570 02610
DCBBIT4  00001 00000008 01898  01982 02035 02105 02149 02164 02204 02213 02262 02287 02317 02342 02348 02349 02370 02371
                               02405 02406 02408 02409 02447 02480 02525 02565 02571
DCBBIT5  00001 00000004 01899  01984 02036 02107 02150 02164 02205 02214 02263 02290 02292 02319 02342 02345 02346 02349
                               02374 02376 02377 02378 02412 02413 02414 02415 02447 02482 02485 02511 02527 02560
DCBBIT6  00001 00000002 01900  01986 02019 02037 02109 02151 02168 02206 02264 02266 02269 02290 02293 02320 02381 02382
                               02383 02384 02418 02419 02420 02421 02488 02529
DCBBIT7  00001 00000001 01901  01988 02020 02113 02153 02169 02207 02264 02267 02269 02295 02324 02386 02387 02424 02425
                               02427 02428 02513 02530 02572
DCBDEBAD 00004 0000002C 02441  02935

DCBDSECT 00001 00000000 02633  02935
DCBFDAD  00008 00000005 01915  01918
DCBSSID  00008 00000000 02122  02125
DCBWTOID 00004 00000000 02042  02057 02066

DCTCHAIN 00004 00000014 01749  02938
DCTDCB   00004 00000008 01737  02934
DCTDSECT 00001 00000000 01732  02933
DCTHOLD  00001 00000020 01788  02941
DCTSTAT  00001 00000000 01733  02941
DEBDSECT 00001 00000000 02638  02936

DEBUCBAD 00004 00000020 02653  02936
HASPINTF 00001 00000000 00129  00675 00894 01729 01781 02635 02661 02707 02738 02794 02835 02911 03438
HCTDSECT 00001 00000000 00493  00495 03168 03176
IHADCB   00001 00000000 01892  01940 01964 01992 02011 02041 02121 02182 02233 02302 02434 02451 02455 02461 02550 02556
                               02580 02601 02633
IOBECBCC 00001 00000004 02745  02997 03039
IWACSCBP 00001 0000000C 03314  03325
IWAINTS3 00001 000000C8 03317  03330

NE       00001 00000007 00311  03328
NZ       00001 00000007 00312  03246

PCEDSECT 00001 00000000 02804  02806 02872 03427
PCEWORK  00008 00000058 02834  02873 02910
RBDSECT  00004 00000040 02713  03084 03112 03139 03247 03249 03407 03431
RBEXSAV  00004 000000A0 02737  03139
RBGRSV12 00001 00000050 03313  03324
RBLINK   00004 0000005C 02734  03096 03247 03409 03431
RBOK     00002 000000FC 03034  03031
RBOPSW   00008 00000050 02727  03112 03249

R0       00001 00000000 00269  02922 02931 02939 02950 02952 02955 02989 02999 03010 03042 03046 03381
R1       00001 00000001 00270  02919 02921 02922 02923 02924 02956 02957 02957 02995 02997 03000 03000 03003 03097 03100
                               03101 03103 03111 03324 03325 03330 03339 03341 03342 03347
R10      00001 0000000A 00279  00298 02923 02952 02955 03182 03186 03238 03244 03247 03249 03381 03382 03384 03384
R11      00001 0000000B 00280  00299 03243 03245 03245 03385 03385 03386 03401 03404

R12      00001 0000000C 00281  00300 03340 03384 03389 03389 03398 03411
R13      00001 0000000D 00282  00301 02934 02935 02935 02936 03188 03193 03236 03390 03392 03394 03395 03395 03396 03396
                               03398 03406 03407 03409 03410 03410 03411 03413 03426

R14      00001 0000000E 00283  00302 00513 02932 02933 02938 02942 02948 02949 02951 02953 03008 03009 03011 03012 03029
                               03030 03032 03044 03047 03097 03107 03111 03191 03192 03195 03237 03240 03242 03328 03331
                               03341 03345 03346 03347 03348 03349 03376 03404 03405 03405 03413 03418 03424 03425
R15      00001 0000000F 00284  00512 00512 02922 02925 02926 02950 02951 02952 02955 02958 02965 02988 02989 02990 02991
                               03002 03008 03010 03043 03044 03046 03100 03103 03104 03106 03107 03108 03108 03123 03123
                               03124 03125 03126 03127 03180 03189 03191 03235 03238 03239 03240 03243 03244 03322 03332
                               03337 03338 03343 03344 03345 03374 03416 03418 03421 03422 03426

R2       00001 00000002 00271  00290 02996 02998 03088 03089 03091 03325 03326
R3       00001 00000003 00272  00291 03001 03014 03015 03054 03233 03248 03254 03326 03327 03377 03378 03379 03423 03426
INTF                                              CROSS-REFERENCE                                              PAGE   58


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

R4       00001 00000004 00273  00292 02995 03004 03007 03083 03248 03249 03329 03330

R5       00001 00000005 00274  00293 03005 03016 03017 03018 03019 03019 03020 03020 03041 03054 03084 03097 03098 03111
                               03115 03122 03124 03125 03126 03127 03247 03324
R6       00001 00000006 00275  00294 03167 03168 03168 03175 03176 03176 03187 03194 03246
R7       00001 00000007 00276  00295 02920 02936 02954 03027 03032 03035 03035 03036 03039 03039 03040 03165 03166 03173

                               03174 03178 03179 03188 03193 03195 03236
R8       00001 00000008 00277  00296 00297 03180 03183 03234 03235 03254
R9       00001 00000009 00278  03096 03112 03181 03183 03185 03185 03189 03237 03242 03376 03424
SAVE     00001 0000000D 00301  02806 03391 03427
SRTEASCI 00001 00000004 01289  01290
SRTEBSTR 00001 00000004 01288  01291

STATPARM 00004 0000016C 03050  03040 03041 03042
STATSAVE 00004 0000012C 03049  02989 02993 03010 03022 03046
STATWARM 00004 000000C0 03014  02994
STATWRM1 00004 000000C8 03018  03023 03025 03037 03045
STATWRM2 00004 00000126 03046  03021

TCBDSECT 00001 00000000 02664  03004 03016 03017 03083 03390 03392
TCBGRS   00004 00000030 02682  03027
TCBJSTCB 00004 0000007C 02687  03022
TCBPCE   00004 000000B0 02703  03006 03024 03038
TCBPCEND 00001 00000001 02704  03006 03024 03038

TCBRBP   00004 00000000 02665  03005 03029
TCBTCB   00004 00000074 02685  03016 03018 03390 03394
UCBALOC  00001 00000008 01040  01158
UCBBALB  00001 00000020 01195  01285
UCBBJLB  00001 00000002 01203  01292

UCBBNUL  00001 00000001 01204  01293
UCBBPRV  00001 00000010 01199  01286
UCBBPUB  00001 00000008 01200  01287
UCBBSTR  00001 00000004 01201  01288 01289
UCBBSVL  00001 00000080 01189  01284

UCBCHGS  00001 00000040 01037  01155
UCBDADI  00001 00000001 01045  01161
UCBDBBNR 00002 00000038 01478  01514
UCBDCELL 00016 00000038 01476  01513
UCBDDMCT 00001 00000043 01504  01519
UCBDEV   00001 00000018 01168  01177 01304 01338 01354 01374 01456

UCBDJBNR 00001 00000042 01503  01518
UCBDMCT  00001 00000023 01207  01294
UCBDSECT 00001 00000000 00896  02920
UCBDSTAB 00001 0000003A 01479  01515

UCBDSTAT 00001 0000003B 01491  01516
UCBDUSER 00001 00000047 01511  01521
UCBDVOLI 00006 0000003C 01502  01517
UCBDVTOC 00003 00000044 01510  01520
UCBFL1   00001 00000006 01053  01162

UCBFSCT  00002 00000024 01212  01295
UCBFSEQ  00002 00000026 01213  01296
UCBJBNR  00001 00000000 01002  01151
UCBMONT  00001 00000001 01012  01152
UCBONLI  00001 00000080 01036  01154
UCBPRES  00001 00000004 01041  01159

UCBRESV  00001 00000020 01038  01156
UCBSTAB  00001 00000022 01188  01283
UCBSTAT  00001 00000003 01035  01153
INTF                                              CROSS-REFERENCE                                              PAGE   59



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

UCBSYSR  00001 00000002 01042  01160
UCBTBYT4 00001 00000013 01129  02928
UCBUNLD  00001 00000010 01039  01157
UCBUSER  00001 00000038 01264  01297 01470

UCBVOLI  00006 0000001C 01187  01282
WMGCRAD  00004 000002B0 03252  03239
WMGCRSVC 00002 00000284 03235  03201 03234
WPOST    00004 000003BE 03416  03402
WPOSTCB  00004 00000382 03394  03399
WPOSTDSP 00004 000003F0 03431  03406
WPOSTRB  00004 000003AA 03409  03414

WPOSTRET 00002 000003C6 03421  03383 03387 03397 03412
WPOSTSAV 00004 000003D4 03429  03376 03424
WPOSTSV3 00004 000003EC 03430  03377 03423

WTLFLNM  00008 000001F0 03133  03115
WTOFLNM  00008 000001E8 03132  03122
WTOXCTL  00002 000001CE 03123  03116
WTOXSET  00002 000001C8 03120  03113
WTXADDR  00004 000001E4 03131  03106

WTXPROC  00004 0000019C 03104  03102
WTXXIT   00004 000001B2 03111  03099 03105 03109
WUCMSVE3 00004 00000200 03149  02921 03147
WXADCB   00004 00000064 03141  03124
WXAPTR   00004 00000060 03140  03126 03127
WXAXNM   00004 00000068 03142  03115 03122 03125
WXSAVE   00004 00000060 03139  03097 03098 03111 03140 03141 03142 03143
XBASCON1 00004 000001F8 03134  03090

XHASPBAS 00004 0000025C 03196  03167 03175
XJCLADDR 00004 00000324 03353  03343

XJCLEXIT 00002 000002E8 03337  03335
XJCLPARM 00004 0000030C 03351  03339 03340 03342
XJCLSAVE 00004 00000314 03352  03341 03347
XNELOPLP 00001 00000000 03315  03326
XNEXNEW  00008 000002E0 03335  03329

XNEXRCON 00002 000002B4 03320  03199
XNEXSYSD 00008 000002D2 03334  03327
XOPLSYSN 00001 00000018 03316  03327
XOUTENT  00001 00000010 02904  02905 02906
XRESTORE 00002 000002B4 03321  03200
XSTATUS  00004 00000088 02989  02987 02988 02992
XSVCSAVE 00004 00000328 03354  03188 03193 03236
XSVCSCH1 00006 00000238 03183  03186
XSVCSCH2 00004 0000024C 03188  03184

XSVCSRCH 00002 0000022A 03178  03169

XSVCTABL 00004 00000260 03198  03181 03182
XSVCTEND 00004 00000284 03204  03182
INTF                                              ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE   60


                                                                                                 ASM 0201 20.02 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY

HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT        569
TOTAL RECORDS READ FROM SYSTEM LIBRARY     9565
TOTAL RECORDS PUNCHED                        26
TOTAL RECORDS PRINTED                      2605

MISC                                           EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.02 08/28/78

HASPMISC  SD  0001 000000 000AC8
HASPVPRG  LD       000000        0001
HASPCKPT  LD       000008        0001
$JOBQUE   LD       0000F0        0001
$JOT      ER  0002
HA$QVPUR  XD  0003 000007 000000
HA$OVPUR  SD  0004 000AC8 00022A
HA$IVPUR  LD       000ACC        0004
HA$QKCP   XD  0005 000007 000000
HA$OKCP   SD  0006 000CF8 000159

HA$IKCP   LD       000D04        0006
$HASPECB  ER  0007
$JITTRAK  LD       0000E0        0001
$JOTTRAK  LD       0000E7        0001

$HASPJIT  LD       0007A8        0001
MISC                                                                                                           PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                      1 *                                                                  RFIT V0000000
                                      2 *                            KILL ALL 370 INSTRUCTIONS             RFIT V0000010
                                      3 *                                                                  RFIT V0000020

                                      4 MVCL     OPSYN ,                                                   RFIT V0000030
                                      5 CLCL     OPSYN ,                                                   RFIT V0000040
                                      6 SIOF     OPSYN ,                                                   RFIT V0000050
                                      7 HDV      OPSYN ,                                                   RFIT V0000070
                                      8 STNSM    OPSYN ,                                                   RFIT V0000080
                                      9 STOSM    OPSYN ,                                                   RFIT V0000090
                                     10 MC       OPSYN ,                                                   RFIT V0000110
                                     11 LRA      OPSYN ,                                                   RFIT V0000120

                                     12 STCTL    OPSYN ,                                                   RFIT V0000130
                                     13 LCTL     OPSYN ,                                                   RFIT V0000140

                                     14 CLM      OPSYN ,                                                   RFIT V0000180
                                     15 STCM     OPSYN ,                                                   RFIT V0000190
                                     16 ICM      OPSYN ,                                                   RFIT V0000200
                                     17 STIDP    OPSYN ,                                                   RFIT V0000210
                                     18 STIDC    OPSYN ,                                                   RFIT V0000220
                                     19 SCK      OPSYN ,                                                   RFIT V0000230
                                     20 STCK     OPSYN ,                                                   RFIT V0000240
                                     21 SCKC     OPSYN ,                                                   RFIT V0000250

                                     22 STCKC    OPSYN ,                                                   RFIT V0000260
                                     23 SPT      OPSYN ,                                                   RFIT V0000270
                                     24 STPT     OPSYN ,                                                   RFIT V0000280
                                     25 PTLB     OPSYN ,                                                   RFIT V0000310
                                     26 RRB      OPSYN ,                                                   RFIT V0000350

                                     27 SRP      OPSYN ,                                                   RFIT V0000360
MISC     HASP GLOBAL DEFINITIONS                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                     29          COPY  $GLOBAL                                                  V0004000
                                     30 *                                                                       GL002000
                                     31 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                     32 *                                                                       GL006000



                                     34          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000
                                     35          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000

                                     36          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                     37          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000
                                     38          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000






                                     40 *                                                                       GL032000
                                     41 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000
                                     42 *                                                                       GL036000



                                     44          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000
                                     45          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                     46          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000
                                     47          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                     48          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000
                                     49          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000
                                     50          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                     51          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000

                                     52          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000
                                     53          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000
                                     54          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000

                                     55          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                     56          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000
                                     57          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000
                                     58          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000

                                     59          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000
                                     60          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                     61          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200
                                     62          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300
                                     63          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000
                                     64          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000

                                     65          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                     66          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000
                                     67          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                     68          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                     69          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000

                                     70          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000
                                     71          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                     72          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000
                                     73          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000
                                     74          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000

MISC     HASP GLOBAL DEFINITIONS                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                     76 *                                                                       GL116000
                                     77 *                             O/S INTERFACE PARAMETERS                  GL118000
                                     78 *                                                                       GL120000




                                     80          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000
                                     81          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                     82          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000
                                     83          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000

                                     84          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000
                                     85          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000
                                     86          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                     87          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000
                                     88          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000
                                     89          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000

                                     90          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                     91          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200
                                     92          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300
                                     93          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400






                                     95 *                                                                       GL150000
                                     96 *                             HASP OPTION PARAMETERS                    GL152000
                                     97 *                                                                       GL154000




                                     99          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000
                                    100          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000
                                    101          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000
                                    102          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000
                                    103          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000
                                    104          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000

                                    105          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000
                                    106          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000
                                    107          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000

                                    108          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000
                                    109          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100
                                    110          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500
                                    111          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                    112          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500

                                    113          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000
                                    114          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                    115          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000
                                    116          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000
                                    117          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000
                                    118          GBLB  &DEBUG              DEBUG MODE                           GL186000
                                    119          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000
                                    120          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000

MISC     HASP GLOBAL DEFINITIONS                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    122 *                                                                       GL226000
                                    123 *                             REMOTE JOB ENTRY PARAMETERS               GL228000
                                    124 *                                                                       GL230000



                                    126          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000

                                    127          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000
                                    128          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000
                                    129          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    130          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000
                                    131          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000
                                    132          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000
                                    133          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000
                                    134          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000







                                    136 *                                                                       GL260000
                                    137 *                             INTERNAL GENERATION PARAMETERS            GL262000
                                    138 *                                                                       GL264000



                                    140          GBLC  &VERSION            HASP VERSION                         GL270000

                                    141          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000
                                    142          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                    143          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000
                                    144          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500
                                    145          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000
                                    146          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500
                                    147          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                    148          GBLA  &LOW                OVERLAY PRIORITY                     GL280000
                                    149          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000
                                    150          GBLA  &HIGH                 PARAMETER VALUES                   GL284000

                                    151          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000

                                    152          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000
                                    153          LCLC  &DOC                DOCUMENTATION OPTION                 V0006000
                                    154          LCLA  &PRCPRC                                             RFIT V0006010
MISC     HASP MISCELLANEOUS PROCESSORS                                                                         PAGE    6



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                              157 HASPMISC START 0                   HASP MISCELLANEOUS PROCESSORS        V0012000





                                    159 *                                                                       V0016000
                                    160 *                             EXTERNAL REFERENCES                       V0018000
                                    161 *                                                                       V0020000



                                    163          ENTRY HASPVPRG            HASP PURGE PROCESSOR                 V0024000

                                    164          ENTRY HASPCKPT            HASP CHECKPOINT PROCESSOR            V0026000
                                    165          ENTRY $JOBQUE             HASP JOB QUEUE                       V0028000






                                    167          COPY  $HASPGEN            COPY HASPGEN PARAMETERS              V0032000
MISC     HASPGEN PARAMETER VALUES                                                                              PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    169 *                                                                       HA004000
                                    170 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000
                                    171 *                                                                       HA008000



                                    173 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000
                                    174 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                    175 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000
                                    176 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000
                                    177 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000





                                    179 *                                                                       HA028000

                                    180 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000
                                    181 *                                                                       HA032000



                                    183 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000
                                    184 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000
                                    185 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000
                                    186 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000
                                    187 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000
                                    188 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                    189 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000
                                    190 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000
                                    191 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000

                                    192 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000

                                    193 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    194 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000

                                    195 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000
                                    196 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000
                                    197 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000
                                    198 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000
                                    199 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000
                                    200 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                    201 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200
                                    202 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300
                                    203 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                    204 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000
                                    205 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                    206 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000

                                    207 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000
                                    208 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000

                                    209 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000

                                    210 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000
                            0003C   211 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000
MISC     HASPGEN PARAMETER VALUES                                                                              PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    214 *                                                                       HA100000
                                    215 *                             O/S INTERFACE PARAMETERS                  HA102000
                                    216 *                                                                       HA104000



                                    218 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                    219 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000

                                    220 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000
                                    221 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000
                                    222 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000

                                    223 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000
                                    224 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                    225 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                    226 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000
                                    227 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100
                                    228 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200
                                    229 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300
                                    230 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400



                                    232 *                                                                  RFIT HA125600
                                    233 *                             HASP SVC NUMBER                      RFIT HA125700
                                    234 *                                                                  RFIT HA125800

                                    235          COPY  $INITSVC                                            RFIT HA125900
                                    236 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT






                                    238 *                                                                       HA130000
                                    239 *                             HASP OPTION PARAMETERS                    HA132000
                                    240 *                                                                       HA134000



                                    242 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000
                                    243 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000

                                    244 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000
                                    245 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000
                                    246 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                    247 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000
                                    248 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    249 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000
                                    250 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000
                                    251 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000

                                    252 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100
                                    253 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500

                                    254 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
MISC     HASPGEN PARAMETER VALUES                                                                              PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    255 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500
                                    256 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                    257 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000
                                    258 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                    259 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000

                                    260 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                    261 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000
                                    262 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                    263 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000
MISC     HASPGEN PARAMETER VALUES                                                                              PAGE   10



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    266 *                                                                       HA174000
                                    267 *                             REMOTE JOB ENTRY PARAMETERS               HA176000
                                    268 *                                                                       HA178000



                                    270 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000
                                    271 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000
                                    272 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000

                                    273 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000
                                    274 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                    275 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000
                                    276 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000
                                    277 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000

                                    278 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000






                                    280 *                                                                       HA202000
                                    281 *                             INTERNAL GENERATION PARAMETERS            HA204000
                                    282 *                                                                       HA206000



                                    284 &VERSION SETC  '4.0'               HASP VERSION                         HA210000
                                    285 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000
                                    286 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000

                                    287 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                    288 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000
                                    289 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                    290 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000
                                    291 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500

                                    292 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                    293 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000
                                    294 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000
                                    295 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000

                                    296 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000
                                    297 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
MISC     HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    300 *                                                                       HA234000
                                    301 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000
                                    302 *                                                                       HA238000



                            00000   304 R0       EQU   0                                                        HA242000

                            00001   305 R1       EQU   1                                                        HA244000
                            00002   306 R2       EQU   2                                                        HA246000
                            00003   307 R3       EQU   3                                                        HA248000
                            00004   308 R4       EQU   4                                                        HA250000
                            00005   309 R5       EQU   5                                                        HA252000

                            00006   310 R6       EQU   6                                                        HA254000
                            00007   311 R7       EQU   7                                                        HA256000
                            00008   312 R8       EQU   8                                                        HA258000
                            00009   313 R9       EQU   9                                                        HA260000
                            0000A   314 R10      EQU   10                                                       HA262000

                            0000B   315 R11      EQU   11                                                       HA264000
                            0000C   316 R12      EQU   12                                                       HA266000
                            0000D   317 R13      EQU   13                                                       HA268000
                            0000E   318 R14      EQU   14                                                       HA270000
                            0000F   319 R15      EQU   15                                                       HA272000






                                    321 *                                                                       HA276000
                                    322 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000
                                    323 *                                                                       HA280000




                            00002   325 WA       EQU   R2                  WORK REGISTER A                      HA284000
                            00003   326 WB       EQU   R3                  WORK REGISTER B                      HA286000
                            00004   327 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   328 WD       EQU   R5                  WORK REGISTER D                      HA290000

                            00006   329 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007   330 WF       EQU   R7                  WORK REGISTER F                      HA294000
                            00008   331 WG       EQU   R8                  WORK REGISTER G                      HA296000
                            00008   332 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000
                            0000A   333 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000

                            0000B   334 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000
                            0000C   335 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000
                            0000D   336 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000
                            0000E   337 LINK     EQU   R14                 LINK REGISTER                        HA308000
MISC     HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78













                            00000   340 NOP      EQU   0                   NO-OP                                HA314000
                            00001   341 O        EQU   1                   ONES OR OVERFLOW                     HA316000
                            00002   342 H        EQU   2                   HIGH                                 HA318000
                            00002   343 P        EQU   2                   PLUS                                 HA320000
                            00004   344 L        EQU   4                   LOW                                  HA322000

                            00004   345 M        EQU   4                   MINUS OR MIXED                       HA324000
                            00007   346 NE       EQU   7                   NOT EQUAL                            HA326000
                            00007   347 NZ       EQU   7                   NOT ZERO                             HA328000
                            00008   348 E        EQU   8                   EQUAL                                HA330000
                            00008   349 Z        EQU   8                   ZERO                                 HA332000
                            0000B   350 NL       EQU   11                  NOT LOW                              HA334000
                            0000B   351 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000
                            0000D   352 NH       EQU   13                  NOT HIGH                             HA338000

                            0000D   353 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   354 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000

MISC     HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    356 *                                                                       HA346000
                                    357 *                             BIT DEFINITIONS                           HA348000
                                    358 *                                                                       HA350000




                            00080   360 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000
                            00040   361 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000
                            00020   362 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000
                            00010   363 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000
                            00008   364 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000
                            00004   365 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000
                            00002   366 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000
                            00002   367 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000

                            00001   368 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000

                                    369 *                                                                       HA370000
                            00080   370 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000
                            00040   371 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020   372 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   373 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000

                            00008   374 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000
                            00004   375 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000
                            00002   376 $EWF15   EQU   X'02'               SPARE                                HA384000
                            00001   377 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000





                                    379 *                                                                       HA390000
                                    380 *                             BYTE DEFINITIONS                          HA392000
                                    381 *                                                                       HA394000




                            00000   383 $EWBPOST EQU   0                   BYTE 0                               HA398000

                            00000   384 $EWBBUF  EQU   0                   BYTE 0                               HA400000
                            00000   385 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   386 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000   387 $EWBUNIT EQU   0                   BYTE 0                               HA406000

                            00000   388 $EWBCKPT EQU   0                   BYTE 0                               HA408000
                            00000   389 $EWBCMB  EQU   0                   BYTE 0                               HA410000
                            00000   390 $EWBSMF  EQU   0                   BYTE 0                               HA411000
                            00000   391 $EWBJOT  EQU   0                   BYTE 0                               HA412000
                                    392 *                                                                       HA414000
                            00001   393 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001   394 $EWBIO   EQU   1                   BYTE 1                               HA418000
                            00001   395 $EWBWORK EQU   1                   BYTE 1                               HA420000
                            00001   396 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001   397 $EWBDDB  EQU   1                   BYTE 1                               HA424000
                            00001   398 $EWBOLAY EQU   1                   BYTE 1                               HA426000

                            00001   399 $EWB15   EQU   1                   BYTE 1                               HA428000
                            00001   400 $EWBOROL EQU   1                   BYTE 1                               HA430000
MISC     HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    403 *                                                                       HA436000
                                    404 *                             LOGICAL CONSOLE DEFINITIONS               HA438000
                                    405 *                                                                       HA440000



                            00001   407 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002   408 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000
                            00004   409 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008   410 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000
                            00010   411 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000
                            00020   412 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000

                            00040   413 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   414 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   415 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000

                            00000   416 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000





                                    418 *                                                                       HA466000
                                    419 *                             MESSAGE CLASS DEFINITIONS                 HA468000
                                    420 *                                                                       HA470000



                            00010   422 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000
                            00030   423 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050   424 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000
                            00070   425 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000
                            00080   426 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000






                                    428 *                                                                       HA484000

                                    429 *                             MESSAGE PRIORITY DEFINITIONS              HA486000
                                    430 *                                                                       HA488000



                            00001   432 $LO      EQU   1                   LOW PRIORITY                         HA492000
                            00004   433 $ST      EQU   4                   STANDARD PRIORITY                    HA494000
                            00007   434 $HI      EQU   7                   HIGH PRIORITY                        HA496000
MISC     HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    437 *                                                                       HA502000
                                    438 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000

                                    439 *                                                                       HA506000




                            00080   441 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000

                            00000   442 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000
                            00040   443 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000
                            00000   444 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000
                            00020   445 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000
                            00000   446 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000
                            00010   447 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000
                            00000   448 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000
                            00008   449 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000
                            00000   450 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000
                            00004   451 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000   452 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000






                                    454 *                                                                       HA536000
                                    455 *                             HASP STATUS BIT DEFINITIONS               HA538000

                                    456 *                                                                       HA540000



                            00080   458 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040   459 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000
                            00020   460 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000
                            00010   461 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000
                            00008   462 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000
                            00004   463 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000
                            00002   464 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000
MISC     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    467 *                                                                       HA560000
                                    468 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000
                                    469 *                                                                       HA564000




                                    471 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                    472 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000
                                    473 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000
                                    474 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000
                                    475 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000

                                    476 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000
                                    477 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000
                                    478 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                    479 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000





                                    481 *                                                                       HA588000
                                    482 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000

                                    483 *                                                                       HA592000




                                    485 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                    486 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000
                                    487 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000
                                    488 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                    489 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                    490 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000
                                    491 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                    492 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000

                                    493 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
MISC     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    496 *                                                                       HA618000
                                    497 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000

                                    498 *                                                                       HA622000



                                    500 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000
                                    501 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000
                                    502 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000
                                    503 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000
                                    504 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000
                                    505 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000

                                    506 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000
                                    507 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                    508 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000






                                    510 *                                                                       HA646000
                                    511 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000
                                    512 *                                                                       HA650000




                                    514 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000
                                    515 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                    516 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000
                                    517 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000
                                    518 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000
                                    519 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000

                                    520 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                    521 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000
                                    522 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
MISC     HASP CONTROL BLOCKS                                                                                   PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    525 *                                                                       V0038000
                                    526 *                             DOCUMENTATION OPTION                      V0040000

                                    527 *                                                                       V0042000



                                    529 &DOC     SETC  'NO'                TURN OFF DOCUMENTATION               V0046000





                                    531 *                                                                       V0050000

                                    532 *                             GENERATE HASP CONTROL BLOCKS              V0052000
                                    533 *                                                                       V0054000



                                    535         $HASPCB HCT,PCE,BUFFER,DCT,JQE,JIT,JOE,JOT,JCT,IOT,TED,        CV0058000
                                                       PRC,TQE,TCB,SMF,XEQWORK,DOC=&DOC                    RFIT V0060000

MISC     HASP COMMUNICATION TABLE DSECT                                                                        PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              537+HCTDSECT DSECT                     HASP COMMUNICATION TABLE DSECT       HC437000


                            00000   539+         USING HCTDSECT,BASE1      ESTABLISH HCT ADDRESSABILITY         HC439000



000000 40E540F44BF0F0F9             541+$VERSION DC    CL8' V 4.009762'         HASP VERSION                    HC441000


                                    543+*                             VS2 - HASP VECTOR TABLE                   HC451050


000008                              545+$HVT     DS    0F                                                       HC451150
000008 00000000                     546+$HVTEXCP DC    V($EXCPSVC)         IOS PSEUDO DEVICE EXIT ADDRESS       HC451200
00000C 00000000                     547+         DC    V(XJCLSCAN)         INTERPRETTER EXIT ADDRESS            HC451250
000010 00000000                     548+         DC    V($MGCRSVC)         MGCR EXIT ADDRESS                    HC451300
000014 00000000                     549+         DC    V($WTOSVC)          WTO(R)/WTL EXIT 1 ADDRESS            HC451350

000018 00000000                     550+         DC    V($WTOSVC2)         WTO(R) EXIT 2 ADDRESS                HC451400
00001C 0000002C                     551+         DC    A($EXITNOP)         JOB INITIATION EXIT ADDRESS          HC451450
000020 0000002C                     552+         DC    A($EXITNOP)         STEP INITIATION EXIT ADDRESS         HC451500
000024 00000000                     553+         DC    V(XTERMSMF)         TERMINATION EXIT ADDRESS             HC451550
000028 00000000                     554+         DC    V($TSOCOMM)         TSO STATUS/CANCEL EXIT ADDRESS       HC451600


00002C 1BFF                         556+$EXITNOP SR    R15,R15             R15 = RC = 0                         HC451750
00002E 07FE                         557+         BR    R14                 RETURN                               HC451800


                                    559+*                             ENTRY TO HASP DISPATCHER                  HC452000


000030 47F0 B030      00030         561+$WAIT    B     *                                                        HN016000


                                    563+*                             ENTRIES TO HASP BUFFER SERVICES           HC456000


000034 47F0 B034      00034         565+$GETBUF  B     *                                                        HN016000
000038 47F0 B038      00038         566+$GETPBUF B     *                                                        HN016000
00003C 47F0 B03C      0003C         567+$FREEBUF B     *                                                        HN016000


                                    569+*                             ENTRIES TO HASP UNIT SERVICES             HC462000

000040 47F0 B040      00040         571+$GETUNIT B     *                                                        HN016000

000044 47F0 B044      00044         572+$FREUNIT B     *                                                        HN016000


                                    574+*                             ENTRIES TO HASP JOB QUEUE SERVICES        HC467000


000048 47F0 B048      00048         576+$QADD    B     *                                                        HN016000
00004C 47F0 B04C      0004C         577+$QGET    B     *                                                        HN016000
000050 47F0 B050      00050         578+$QPUT    B     *                                                        HN016000
000054 47F0 B054      00054         579+$QREM    B     *                                                        HN016000

000058 47F0 B058      00058         580+$QSIZ    B     *                                                        HN016000
00005C 47F0 B05C      0005C         581+$QLOC    B     *                                                        HN016000
000060 47F0 B060      00060         582+$QJITLOC B     *                                                        HN016000
MISC     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    584+*                             ENTRIES TO DIRECT ACCESS SPACE SERVICES   HC477000

000064 47F0 B064      00064         586+$TRACK   B     *                                                        HN016000

000068 47F0 B068      00068         587+$PURGER  B     *                                                        HN016000



                                    589+*                             ENTRIES TO HASP INPUT/OUTPUT SERVICES     HC482000

00006C 47F0 B06C      0006C         591+$EXCP    B     *                                                        HN016000
000070 47F0 B070      00070         592+$EXTPOPE B     *                                                        HN016000
000074 47F0 B074      00074         593+$EXTPGET B     *                                                        HN016000

000078 47F0 B078      00078         594+$EXTPPUT B     *                                                        HN016000
00007C 47F0 B07C      0007C         595+$EXTPCLO B     *                                                        HN016000
000080 47F0 B080      00080         596+$RESTORE B     *                                                        HN016000


                                    598+*                             ENTRIES TO HASP OVERLAY SERVICES          HC491000

000084 47F0 B084      00084         600+$ODEL    B     *                                                        HN016000
000088 47F0 B088      00088         601+$ORET    B     *                                                        HN016000
00008C 47F0 B08C      0008C         602+$OLINK   B     *                                                        HN016000

000090 47F0 B090      00090         603+$OXCTL   B     *                                                        HN016000

000094 47F0 B094      00094         604+$OLOAD   B     *                                                        HN016000


                                    606+*                             ENTRIES TO HASP CONSOLE SERVICES          HC499000

000098 47F0 B098      00098         608+$WTO     B     *                                                        HN016000

00009C 47F0 B09C      0009C         609+$FREEMSG B     *                                                        HN016000
0000A0 47F0 B0A0      000A0         610+$DOM     B     *                                                        HN016000


                                    612+*                             ENTRIES TO HASP SMF BUFFER SERVICES       HC503200

0000A4 47F0 B0A4      000A4         614+$QUESMFB B     *                                                        HN016000
0000A8 47F0 B0A8      000A8         615+$GETSMFB B     *                                                        HN016000


                                    617+*                             ENTRIES TO HASP INTERVAL TIMER SERVICES   HC504000


0000AC 47F0 B0AC      000AC         619+$STIMER  B     *                                                        HN016000

0000B0 47F0 B0B0      000B0         620+$TTIMER  B     *                                                        HN016000


                                    622+*                             ENTRIES TO HASP ERROR SERVICES            HC509000


0000B4 47F0 B0B4      000B4         624+$IOERROR B     *                                                        HN016000
0000B8 47F0 B0B8      000B8         625+$ERROR   B     *                                                        HN016000
0000BC 47F0 B0BC      000BC         626+$DISTERR B     *                                                        HN016000
MISC     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0000C0 00                           628+         DC    AL1(0)              RESERVED                             HC515000
0000C1 00                           629+$OPTSTAT DC    AL1(*-*)            HASP INITIALIZATION OPTIONS          HC516000
0000C2 00                           630+$STATUS  DC    AL1(*-*)            HASP SYSTEM STATUS                   HC517000
0000C3 00                           631+$CURPCE  DC    AL1(*-*)            CURRENT PCE ID                       HC518000
0000C4 00                           632+$HASPECF DC    AL1(*-*)            MASTER EVENT CONTROL FIELD           HC519000
0000C5 00                           633+MHASPECF DC    AL1(*-*)            LINE MANAGER EVENT CONTROL FIELD     HC520000

0000C6 00                           634+$XEQACT  DC    AL1(*-*)            COUNT OF JOBS IN O/S EXECUTION       HC521000
0000C7 00                           635+$ACTIVE  DC    AL1(*-*)            COUNT OF ACTIVE FUNCTIONS            HC522000
0000C8 FF                           636+$ENBALL  DC    X'FF'               ENABLE ALL MASK                      HC523000
0000C9 00                           637+$DISALL  DC    X'00'               DISABLE ALL MASK                     HC524000

0000CA FE                           638+$DISINT  DC    X'FE'               DISABLE INTERVAL TIMER MASK          HC525000
0000CB 00                           639+         DC    X'00'               RESERVED                             HC526000
0000CC 0000                         640+$EXCPCT  DC    Y(*-*)              ACTIVE HASP I/O COUNT                HC531000
0000CE 0040                         641+$COMMCT  DC    Y(64)                     ACTIVE HASP COMMAND COUNT      HC532000
0000D0 0000                         642+$CKPTRAK DC    Y(*-*)              HASP CHECKPOINT TRACK ADDRESS        HC533000
0000D2 0000                         643+         DC    Y(0)                RESERVED                             HC534000
0000D4 00000000                     644+$HASPTCB DC    A(*-*)              ADDRESS OF HASP TASK CONTROL BLOCK   HC535000
0000D8 00000000                     645+$HASPECB DC    F'0'                COMMON HASP ECB                      HC535200
0000DC 00000000                     646+$ASYNCQ  DC    A(0)                ASYNC I/O COMPLETION QUEUE           HC535400
0000E0 00000000                     647+$RJECHEQ DC    A(0)                RJE I/O COMPLETION QUEUE             HC535600
                                    648+*                                  ADDRESS OF FIRST HASP PCE            HC536000
0000E4 00000000                     649+$PCEORG  DC    A(*-*)                                                   HN010000

0000E8 00000000                     650+$BUFPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE HASP BUFFER HC538000
0000EC 00000000                     651+$TPBPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE RJE BUFFER  HC539000
0000F0 00000000                     652+$DCTPOOL DC    A(*-*)              ADDRESS OF FIRST HASP DCT            HC540000

0000F4 00000000                     653+$JITABLE DC    A(*-*)              ADDRESS OF HASP JOB INFO TABLE       HC541000
0000F8 00000000                     654+$JOTABLE DC    V($JOT)             ADDRESS OF JOB OUTPUT TABLE          HC541500
0000FC 00000000                     655+$CYLMAP  DC    A(*-*)              ADDRESS OF FIRST CYLINDER MODULE MAP HC542000
000100 00000000                     656+$TEDADDR DC    A(*-*)              ADDRESS OF FIRST EXTENT DATA TABLE   HC543000
000104 00000000                     657+$DCBLIST DC    A(*-*)              ADDRESS OF DIRECT ACCESS DCB         HC544000
000108 00000000                     658+$FREEQUE DC    A(*-*)              ADDR OF 1ST FREE CONSOLE MSG BUFFER  HC545000
00010C 00000000                     659+$BUSYQUE DC    A(*-*)              CONSOLE MSG BUFFERS QUEUED FOR I/O   HC546000
000110 00000000                     660+$LOGQUE  DC    A(*-*)              CMB'S QUEUED FOR LOG PROCESSOR       HC547000
000114 00000000                     661+$COMMQUE DC    A(*-*)              COMMANDS QUEUED FOR COMMAND PROC     HC548000
000118 00000000                     662+$DOMQUE  DC    A(*-*)              CMB'S AWAITING ACTION                HC548200
00011C 00000000                     663+$SMFFREE DC    A(*-*)              ADDR OF 1ST FREE SMF BUFFER          HC548400
000120 00000000                     664+$SMFBUSY DC    A(*-*)              SMF BUFFERS QUEUED FOR I/O           HC548600

000124 00000000                     665+$PRCHKPT DC    A(*-*)              ADDRESS OF PRINT CHECKPOINT TABLE    HC549000

000128 00000002                     666+$TIMEARG DC    F'2'                FAKE SVRB+36 FOR IGC011              HC549500
MISC     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   22



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    668+*                             NUCLEUS ADDRESS TABLE                     HC551000

00012C                              670+$NUCTABL DS    0F                  START OF NUCLEUS ADDRESS TABLE       HC553000
00012C 00000000                     671+$STATENT DC    A(*-*)              ENTRY TO STATUS ROUTINE              HC554000
000130 00000000                     672+$TIMENT  DC    A(*-*)              ENTRY TO TIME ROUTINE                HC555000
000134 00000000                     673+$XSMFENT DC    A(*-*)              ENTRY TO SMF EXCP COUNTING ROUTINE   HC559000
000138 00000000                     674+$SVCRSET DC    A(*-*)              ENTRY TO HASP SVC RESET ROUTINE      HC560000
                            00010   675+$NUCLEN  EQU   *-$NUCTABL          LENGTH OF NUCLEUS ADDRESS TABLE      HC561000


                                    677+*********************************************************************** HC576000
                                    678+*  ALL VARIABLES LOCATED IN THIS AREA WILL BE REGULARLY CHECKPOINTED  * HC577000

                                    679+*  BY HASP AND WILL BE RESTORED ON ANY WARM START.....                * HC578000
                                    680+*                                                                     * HC579000

                                    681+*                                                                     * HC580000

                                    682+*                                                                     * HC581000
00013C                              683+$SAVEBEG DS    0F                  BEGINNING OF SAVE AREA             * HC582000
00013C 00000000                     684+$JOBQPTR DC    A(*-*)              ADDRESS OF HASP JOB QUEUE          * HC583000
000140 00000000                     685+$JQFREE  DC    A(*-*)              BEGINNING OF FREE QUEUE CHAIN      * HC584000
000144 00000000                     686+$JQENT   DC    A(*-*)              BEGINNING OF ACTIVE QUEUE CHAIN    * HC585000
000148 00000000                     687+$DATAKEY DC    F'0'                MASTER PERIPHERAL DATA SET KEY     * HC588000
00014C 0000                         688+$JOBNO   DC    H'0'                HASP JOB NUMBER                    * HC589000
00014E 0000                         689+$MSGRPNO DC    H'0'                LAST CONSOLE MESSAGE TRACK GROUP   * HC590000
000150 0000000000000000             690+$DACKPT  DC    2XL6'0'             DA CHECKPOINT FOR WARM START       * HC591000
                            0015C   691+$SAVEEND EQU   *                   END OF SAVE AREA                   * HC592000
                            00020   692+$SAVELEN EQU   $SAVEEND-$SAVEBEG   LENGTH OF SAVE AREA                * HC593000
                                    693+*                                                                     * HC594000

                                    694+*                                                                     * HC595000
                                    695+*                                                                     * HC596000
                                    696+*********************************************************************** HC597000

                                    697+*                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000

00015C                              699+$NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000
00015C 00000000                     700+$ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000
000160 00000000                     701+$SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000
000164 00000000                     702+$SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000
                            0000C   703+$NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000


                                    705+*                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000

000168 00000000                     707+$IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000
00016C 00000000                     708+$WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000

000170 00000000                     709+$LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000
000174 00000000                     710+$XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000
000178 00000000                     711+$SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000

00017C 00000000                     712+$SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000
000180 00000000                     713+$SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000
000184 00000000                     714+$SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000
000188 00000000                     715+$SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000
00018C                              716+$ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000



MISC     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              719+HASPMISC CSECT ,                   END OF HCT DSECT                RFIT HC998000
MISC     HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                              722+PCEDSECT DSECT                     PROCESSOR CONTROL ELEMENT DSECT      PC260000



                            00000   724+         USING PCEDSECT,SAVE       ESTABLISH PCE ADDRESSABILITY         PC264000




000000                              726+PCESAVEA DS    F                   RESERVED                             PC268000
000004                              727+PCEPREV  DS    F                   ADDRESS OF PREVIOUS PCE              PC270000
000008                              728+PCENEXT  DS    F                   ADDRESS OF NEXT PCE                  PC272000
00000C                              729+PCELINK  DS    F                   REGISTER 14 (LINK) STORAGE           PC274000
000010                              730+PCER15   DS    F                   REGISTER 15 STORAGE                  PC276000

000014                              731+PCER0    DS    F                   REGISTER 0 STORAGE                   PC278000
000018                              732+PCER1    DS    F                   REGISTER 1 STORAGE                   PC280000
00001C                              733+PCEWA    DS    F                   REGISTER 2 (WA) STORAGE              PC282000
000020                              734+PCEWB    DS    F                   REGISTER 3 (WB) STORAGE              PC284000
000024                              735+PCEWC    DS    F                   REGISTER 4 (WC) STORAGE              PC286000
000028                              736+PCEWD    DS    F                   REGISTER 5 (WD) STORAGE              PC288000
00002C                              737+PCEWE    DS    F                   REGISTER 6 (WE) STORAGE              PC290000
000030                              738+PCEWF    DS    F                   REGISTER 7 (WF) STORAGE              PC292000

000034                              739+PCEWG    DS    0F                  REGISTER 8 (WG) STORAGE              PC294000
000034                              740+PCEBASE3 DS    F                   REGISTER 8 (BASE3) STORAGE           PC296000

000038                              741+PCER9    DS    F                   REGISTER 9 STORAGE                   PC298000
00003C                              742+PCEJCT   DS    F                   REGISTER 10 (JCT) STORAGE            PC300000
000040                              743+PCEBASE1 DS    F                   REGISTER 11 (BASE1) STORAGE          PC302000
000044                              744+PCEBASE2 DS    F                   REGISTER 12 (BASE2) STORAGE          PC304000
000048                              745+PCEEWF   DS    H                   PROCESSOR EVENT WAIT FIELD           PC306000
00004A                              746+PCEID    DS    H                   PROCESSOR TYPE                       PC308000
00004C                              747+         DS    C                   RESERVED                             PC310000
00004D                              748+PCEOPRIO DS    C                   REQUESTED OVERLAY ROUTINE PRIORITY   PC312000

00004E                              749+PCEOCON  DS    H                   REQUESTED OVERLAY ROUTINE OCON       PC314000
000050                              750+PCEORTRN DS    F                   $RETURN PAST $LINK STORAGE           PC316000
000054                              751+PCEOPCE  DS    F                   CHAIN OF PCE'S USING SAME OVERLAY    PC318000
000058                              752+PCEWORK  DS    0D                  VARIABLE LENGTH PROCESSOR WORK AREA  PC320000
000000                              753+HASPMISC CSECT                     END OF PCE DSECT                     PC322000

MISC     HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    755+*                                                                       PC326000

                                    756+*                             PROCESSOR CONTROL ELEMENT IDENTIFICATION  PC328000
                                    757+*                                                                       PC330000





                                    759+*                                                                       PC334000
                                    760+*                             BYTE 1                                    PC336000
                                    761+*                                                                       PC338000




                            00001   763+PCELCLID EQU   X'01'               LOCAL SPECIAL PCE ID                 PC342000
                            00002   764+PCERJEID EQU   X'02'               REMOTE SPECIAL PCE ID                PC344000
                            00004   765+PCEINRID EQU   X'04'               INTERNAL SPECIAL PCE ID              PC346000
                            00080   766+PCEPRSID EQU   X'80'               PRINT SPECIAL PCE ID                 PC348000

                            00040   767+PCEPUSID EQU   X'40'               PUNCH SPECIAL PCE ID                 PC350000





                                    769+*                                                                       PC354000

                                    770+*                             BYTE 2                                    PC356000
                                    771+*                                                                       PC358000



                            00000   773+PCEASYID EQU   0                   ASYNCH PCE ID                        PC362000
                            00001   774+PCERDRID EQU   1                   INPUT PCE ID                         PC364000
                            00002   775+PCESETID EQU   2                   SETUP PCE ID                         PC366000

                            00003   776+PCEXEQID EQU   3                   EXECUTION PCE ID                     PC368000
                            00004   777+PCETHWID EQU   4                   EXECUTION THAW PCE ID                PC370000
                            00005   778+PCEXZMID EQU   5                   EXECUTION TASK MONITOR PCE ID        PC372000
                            00006   779+PCEOUTID EQU   6                   OUTPUT PROCESSOR PCE ID              PC374000
                            00007   780+PCEPRTID EQU   7                   PRINT PCE ID                         PC376000

                            00008   781+PCEPUNID EQU   8                   PUNCH PCE ID                         PC378000
                            00009   782+PCEPRGID EQU   9                   PURGE PCE ID                         PC380000
                            0000A   783+PCECONID EQU   10                  CONSOLE PCE ID                       PC382000
                            0000B   784+PCEMLMID EQU   11                  LINE MANAGER PCE ID                  PC384000
                            0000C   785+PCETIMID EQU   12                  TIMER PCE ID                         PC386000

                            0000D   786+PCECKPID EQU   13                  CHECKPOINT PCE ID                    PC388000
                            0000E   787+PCEGPRID EQU   14                  PRIORITY AGING PCE ID                PC390000
MISC     HASP BUFFER DSECT                                                                                     PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              789+BUFDSECT DSECT                     BUFFER DSECT                         BU444000

000000                              790+IOBFLAG1 DS    C                   I/O FLAGS                            BU446000
000001                              791+IOBFLAG2 DS    C                   I/O FLAGS                            BU448000
000002                              792+IOBSENS0 DS    C                   FIRST SENSE BYTE                     BU450000
000003                              793+IOBSENS1 DS    C                   SECOND SENSE BYTE                    BU452000
000004                              794+IOBECBCC DS    0C                  I/O COMPLETION CODE                  BU454000

000004                              795+IOBECBPT DS    F                   ADDRESS OF HASP EVENT CONTROL BLOCK  BU456000
000008                              796+IOBFLAG3 DS    C                   I/O FLAGS                            BU458000
000009                              797+IOBCSW   DS    CL7                 CHANNEL STATUS WORD                  BU460000
000010                              798+IOBSIOCC DS    0C                  SIO CONDITION CODE                   BU462000
000010                              799+IOBSTART DS    F                   ADDRESS OF CHANNEL PROGRAM           BU464000
000014                              800+IOBDCBPT DS    F                   ADDRESS OF DATA CONTROL BLOCK        BU466000

000018                              801+IOBREPM  DS    0C                  REPOSITION MODIFIER                  BU468000
000018                              802+IOBRESTR DS    F                   RESTART ADDRESS OF CHANNEL PROGRAM   BU470000
00001C                              803+TPBMXREC DS    0C                  MAXIMUM RJE OUTPUT RECORD COUNT      BU472000
00001C                              804+IOBINCAM DS    H                   BLOCK COUNT INCREMENT                BU474000

00001E                              805+IOBERRCT DS    H                   ERROR COUNT                          BU476000
000020                              806+TPBLCCC  DS    0C                  LAST REMOTE OUTPUT COMMAND OP.       BU478000
000020                              807+TPBLCCAD DS    0F                  ADDR OF LAST REMOTE CARRIAGE CONTROL BU480000
000020                              808+IOBXTENT DS    C                   DEB EXTENT                           BU482000
000021                              809+IOBSEEK  DS    0CL7,3C             DIRECT ACCESS SEEK ADDRESS           BU484000

000024                              810+TPBRECNT DS    0C                  CURRENT REMOTE OUTPUT RECORD COUNT   BU486000
000024                              811+TPBFDATA DS    F                   REMOTE DATA POINTER                  BU488000
000028                              812+BUFECBCC DS    0C                  I/O COMPLETION CODE                  BU490000
000028                              813+BUFCHAIN DS    F                   BUFFER CHAIN FIELD                   BU492000
00002C                              814+BUFTYPE  DS    0C                  BUFFER TYPE                          BU494000
00002C                              815+BUFDCT   DS    F                   ADDRESS OF DEVICE CONTROL TABLE      BU496000
000030                              816+BUFEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     BU498000

000034                              817+OACECHN  DS    0F                  OVERLAY AREA CHAIN WORD              BU500000
000034                              818+BUFDDB   DS    0F                  DDB ADDRESS                          BU501000
000034                              819+LCBMCB   DS    C                   REMOTE MODE BYTE                     BU502000

000035                              820+LCBACK   DS    C                   REMOTE NEXT ACKNOWLEDGEMENT          BU504000
000036                              821+LCBRCB   DS    H                   REMOTE RESPONSE CONTROL BLOCK        BU506000
000038                              822+IOBCCW1  DS    D                   CHANNEL COMMAND WORD 1               BU508000
000040                              823+IOBCCW2  DS    D                   CHANNEL COMMAND WORD 2               BU510000
000048                              824+IOBCCW3  DS    0D,5C               CHANNEL COMMAND WORD 3               BU511000

00004D                              825+OACEPRIO DS    C                   PRIO OF OLAY ROUTINE IN THIS AREA    BU512000
00004E                              826+OACEOCON DS    H                   OVERLAY CALL CONSTANT                BU514000
000050                              827+IOBCCW4  DS    D                   CHANNEL COMMAND WORD 4               BU516000
000058                              828+BUFSTART DS    0D                  START OF BUFFER WORK SPACE           BU518000
000058                              829+OACENAME DS    0F                  NAME OF OVERLAY ROUTINE              BU520000
000058                              830+HDBNXTRK DS    F                   HASP DATA BLOCK CHAIN TRACK          BU522000
00005C                              831+OACEASMO DS    0F                  ASSEMBLY ORIGIN OF OVERLAY ROUTINE   BU524000
00005C                              832+HDBDSKEY DS    F                   HASP DATA BLOCK DATA SET KEY         BU526000

000060                              833+OACEPROG DS    0F                  ENTRY POINT OF OVERLAY ROUTINE       BU528000
000060                              834+HDBSTART DS    F                   HASP DATA BLOCK START                BU529000

000064                      00058   835+         ORG   BUFSTART                                                 BU530000
000058                              836+IOBCCW5  DS    D                   CHANNEL COMMAND WORD 5               BU534000
000060                              837+IOBCCW6  DS    D                   CHANNEL COMMAND WORD 6               BU536000
000068                              838+IOBCCW7  DS    D                   CHANNEL COMMAND WORD 7               BU538000
000070                              839+IOBCCW8  DS    D                   CHANNEL COMMAND WORD 8               BU540000

000078                              840+TPBUFST  DS    0F                  START OF REMOTE BUFFER WORK SPACE    BU542000
000078                      00558   841+         ORG   BUFSTART+1280           SPACE OVER OVERLAY AREA          BU544000
000558                              842+OACEPCE  DS    F                   CHAIN OF PCE'S USING OVERLAY AREA    BU546000
000000                              843+HASPMISC CSECT                     END OF BUFFER DSECT                  BU548000
MISC     HASP BUFFER STATUS BIT DEFINITIONS                                                                    PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    846+*                             BUFFER TYPE BIT DEFINITIONS               BU554000





                            00080   848+TPBUF    EQU   X'80'               REMOTE BUFFER TYPE                   BU558000
                            00040   849+OLAYBUF  EQU   X'40'               OVERLAY AREA TYPE                    BU560000
                            00000   850+HASPBUF  EQU   X'00'               HASP BUFFER TYPE                     BU562000
MISC     HASP DEVICE CONTROL TABLE DSECT                                                                       PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





000000                              853+DCTDSECT DSECT                     DEVICE CONTROL TABLE DSECT           DC308000
000000                              854+DCTSTAT  DS    0C                  DCT STATUS                           DC310000
000000                              855+DCTPCE   DS    F                   ADDRESS OF PROCESSOR CONTROL ELEMENT DC312000
000004                              856+DCTBUFAD DS    F                   CURRENT BUFFER ADDRESS               DC314000
000008                              857+DCTPSTAT DS    0C                  REMOTE JOB ENTRY FLAGS               DC316000
000008                              858+DCTDCB   DS    0F                  ADDRESS OF DATA CONTROL BLOCK        DC318000
000008                              859+DCTSEEK  DS    F                   CURRENT TRACK ADDRESS                DC320000
00000C                              860+MDCTOPCT DS    0C                  COUNT OF OPEN RJE PROCESSORS         DC322000

00000C                              861+MDCTOBUF DS    0F                  RJE OUTPUT BUFFER CHAIN              DC324000

00000C                              862+DCTEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     DC326000
000010                              863+DCTBUFCT DS    C                   ACTIVE BUFFER COUNT                  DC328000
000011                              864+MDCTATTN DS    0C                  RJE LINE ACTION PENDING FLAGS        DC330000
000011                              865+DCTNO    DS    C                   DCT NUMBER                           DC332000

000012                              866+DCTDEVTP DS    C                   DEVICE TYPE                          DC334000
000013                              867+DCTIOTYP DS    0C                  I/O REQUEST TYPE                     DC336000
000013                              868+DCTPCODE DS    C                   LINE/REMOTE CODE                     DC338000
000014                              869+DCTFLAGS DS    0C                  OPERATOR COMMAND FLAGS               DC340000
000014                              870+DCTCHAIN DS    F                   ADDRESS OF NEXT DCT                  DC342000
000018                              871+DCTDEVN  DS    0CL8,CL4            EBCDIC DEVICE NAME                   DC344000
00001C                              872+DCTOTC   DS    H                   OVERLAY DEVICE TRACKS/CYLINDER       DC346000
00001E                              873+DCTOTT   DS    H                   OVERLAY EXTENT BEGINNING TT          DC348000
000020                              874+MDCTCODE DS    0F                  ADDRESS OF RJE CODE TABLE            DC350000
000020                              875+DCTFORMS DS    0F                  PRINT/PUNCH FORMS ID                 DC352000
000020                              876+DCTPRINT DS    C                   DEFAULT PRINT ROUTING                DC354000

000021                              877+DCTPUNCH DS    C                   DEFAULT PUNCH ROUTING                DC356000
000022                              878+DCTPRINC DS    C                   PRIORITY INCREMENT                   DC358000
000023                              879+DCTPRLIM DS    C                   PRIORITY LIMIT                       DC360000
000024                              880+DCTFCB   DS    F                   PRINT FCB ID                         DC360300

000028                              881+DCTUCS   DS    F                   PRINT UCS ID                         DC360600
00002C                              882+DCTPPSW  DS    X                   PRINT/PUNCH SWITCHES                 DC360900
00002D                              883+DCTCLASS DS    CL8                 PRINT/PUNCH CLASS MASK               DC361200
000035                              884+         DS    C                   CLASS MASK TERMINATOR                DC361500
000038                              885+DCTWORK  DS    0F                  START OF DEVICE WORK AREA            DC362000
000038                              886+RIDUCB   DS    0F                  INTERNAL READER UCB ADDRESS          DC364000
000038                              887+MDCTFCS  DS    H                   REMOTE TERMINAL FUNCTION CONTROL SEQ DC366000
00003A                              888+MDCTERCT DS    0C                  REMOTE TERMINAL ERROR COUNT          DC368000
00003A                              889+DCTPRLEN DS    C                   REMOTE TERMINAL DATA WIDTH           DC370000
00003B                              890+DCTPLINE DS    C                   REMOTE TERMINAL LINE CHARACTERISTICS DC372000
00003C                              891+MDCTRCB  DS    0C                  REMOTE TERMINAL RECORD CONTROL BYTE  DC374000
00003C                              892+MDCTDCT  DS    0F                  REMOTE TERMINAL DCT CHAIN FIELD      DC376000

00003C                              893+RIDFLAGS DS    H                   INTERNAL READER SYNCH FLAGS          DC378000
00003E                              894+RIDTJID  DS    H                   RESERVED                             DC380000
000040                              895+RIDECB   DS    0F                  INTERNAL READER ECB ADDRESS          DC382000

000040                              896+MDCTRSEQ DS    C                   REMOTE TERMINAL TRANSMIT SEQUENCE    DC384000
000041                              897+MDCTTSEQ DS    C,H                 REMOTE TERMINAL RECEIVE SEQUENCE     DC386000
000044                              898+MDCTPSWD DS    0CL8                REMOTE TERMINAL PASSWORD             DC388000
000044                              899+RIDTCB   DS    F                   INTERNAL READER TCB ADDRESS          DC390000
000048                              900+RIDDATA  DS    CL80                INTERNAL READER DATA AREA            DC394000
                            00098   901+DCTEND   EQU   *                   SYMBOL FOR END OF DCT                DC395000
000000                              902+HASPMISC CSECT                     END OF DEVICE CONTROL TABLE DSECT    DC396000
MISC     HASP DCT STATUS BIT DEFINITIONS                                                                       PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    905+*                             DCTSTAT                                   DC402000





                            00080   907+DCTINUSE EQU   X'80'               DCT IS IN USE                        DC406000
                            00040   908+DCTDRAIN EQU   X'40'               DCT IS DRAINED                       DC408000

                            00020   909+DCTHOLD  EQU   X'20'               DCT IS HELD                          DC410000
                            00010   910+DCTEJECT EQU   X'10'               DEVICE IS AT CHNL 1 POSITION         DC411000





                                    912+*                             DCTPSTAT                                  DC414000



                            00080   914+DCTLOGAL EQU   X'80'               LOG EVERY CHANNEL END                DC418000
                            00040   915+DCTLEASE EQU   X'40'               LEASED LINE                          DC420000
                            00020   916+DCTETX   EQU   X'20'               AN ETX HAS BEEN RECEIVED             DC422000
                            00010   917+DCTSOFF  EQU   X'10'               A /*SIGNOFF CARD HAS BEEN RECEIVED   DC424000
                            00010   918+DCTEOF   EQU   X'10'               AN EOF HAS BEEN DETECTED             DC425000
                            00008   919+DCTSINON EQU   X'08'               REMOTE DCT IS ATTACHED TO LINE DCT   DC426000

                            00004   920+DCTPOST  EQU   X'04'               I/O COMPLETE FLAG                    DC428000
                            00002   921+DCTABORT EQU   X'02'               TRANSMISSION WAS ABORTED             DC430000
                            00001   922+DCTPBUF  EQU   X'01'               REMOTE OUTPUT BUFFER INDICATION      DC432000






                                    924+*                             DCTDEVTP                                  DC436000



                            00000   926+DCTDA    EQU   X'00'               DIRECT ACCESS DEVICE                 DC440000
                            00001   927+DCTOLAY  EQU   X'01'               OVERLAY DEVICE                       DC442000
                            00002   928+DCTLNE   EQU   X'02'               REMOTE JOB ENTRY LINE                DC444000
                            00010   929+DCTRDR   EQU   X'10'               LOCAL CARD READER                    DC446000
                            00012   930+DCTRJR   EQU   X'12'               REMOTE CARD READER                   DC450000
                            00014   931+DCTINR   EQU   X'14'               INTERNAL READER                      DC452000
                            00020   932+DCTPRT   EQU   X'20'               LOCAL PRINTER                        DC454000
                            00022   933+DCTRPR   EQU   X'22'               REMOTE PRINTER                       DC456000

                            00030   934+DCTPUN   EQU   X'30'               LOCAL PUNCH                          DC458000
                            00032   935+DCTRPU   EQU   X'32'               REMOTE PUNCH                         DC460000

                            00042   936+DCTRCON  EQU   X'42'               REMOTE CONSOLE                       DC464000

MISC     HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    939+*                             DCTIOTYP                                  DC470000



                            00080   941+DCTREAD  EQU   X'80'               READ REQUEST                         DC474000
                            00040   942+DCTWRITE EQU   X'40'               WRITE REQUEST                        DC476000
                            00008   943+DCTREJRM EQU   X'08'               REMOTE RESTRICTION ALWAYS 0          DC482000
                            00004   944+DCTREJJB EQU   X'04'               RESTRICTED FROM JOB COMMANDS         DC484000
                            00002   945+DCTREJDV EQU   X'02'               RESTRICTED FROM DEVICE COMMANDS      DC486000
                            00001   946+DCTREJSY EQU   X'01'               RESTRICTED FROM SYSTEM COMMANDS      DC488000






                                    948+*                             DCTPCODE                                  DC492000




                            00000   950+DCTPHALF EQU   X'00'               HALF-DUPLEX LINE                     DC496000
                            00001   951+DCTPFULL EQU   X'01'               FULL-DUPLEX LINE                     DC498000
                            00002   952+DCTPWIDE EQU   X'02'               WIDE-BAND LINE                       DC500000
                            00020   953+DCTPPRES EQU   X'20'               HARDWARE COMPRESS FEATURE            DC501000
                            00010   954+DCTPCON  EQU   X'10'               REMOTE TERMINAL CONSOLE              DC502000
                            00010   955+DCTPMRF  EQU   X'10'               MULTIPLE-RECORD FEATURE              DC504000
                            00008   956+DCTPTAB  EQU   X'08'               HORIZONTAL FORMAT CONTROL            DC506000
                            00004   957+DCTPROG  EQU   X'04'               PROGRAMMABLE INTERFACE               DC508000
                            00002   958+DCTPVAR  EQU   X'02'               VARIABLE LENGTH RECORDS              DC510000
                            00001   959+DCTPBLK  EQU   X'01'               BLOCKED RECORDS                      DC512000






                                    961+*                             DCTPLINE                                  DC516000



                            00000   963+DCTP2770 EQU   X'00'               1009, 2770, 3780                     DC520000

                            00001   964+DCTPHARD EQU   X'01'               1978, 2780                           DC522000
                            00002   965+DCTP20   EQU   X'02'               360/20 SUB-MODEL 5 OR 6              DC524000
                            00004   966+DCTP360  EQU   X'04'               360/22, 25, 30, 40, ETC.             DC526000
                            00006   967+DCTP20S2 EQU   X'06'               360/20 SUB-MODEL 2 OR 4              DC528000
                            00008   968+DCTP1130 EQU   X'08'               1130                                 DC530000
                            0000A   969+DCTPSYS3 EQU   X'0A'               SYSTEM/3                             DC532000

                            0000E   970+DCTPCPU  EQU   X'0E'               CPU TERMINAL                         DC534000
                            00010   971+DCTPHASP EQU   X'10'               HASP                                 DC536000
                            00020   972+DCTPASCI EQU   X'20'               USASCII CODE                         DC538000
                            00040   973+DCTPTRSP EQU   X'40'               TRANSPARENCY                         DC540000
                            00080   974+DCTPBSC  EQU   X'80'               BINARY SYNCHRONOUS LINE              DC542000
MISC     HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    977+*                             DCTFLAGS                                  DC548000




                            00080   979+DCTSTOP  EQU   X'80'               $Z ($STOP) COMMAND                   DC552000
                            00040   980+DCTDELET EQU   X'40'               $C ($DELETE) COMMAND                 DC554000
                            00020   981+DCTRSTRT EQU   X'20'               $E ($RESTART) COMMAND                DC556000
                            00010   982+DCTRPT   EQU   X'10'               $N ($REPEAT) COMMAND                 DC558000
                            00008   983+DCTBKSP  EQU   X'08'               $B ($BACKSPACE) COMMAND              DC560000
                            00004   984+DCTHOLDJ EQU   X'04'               $T...,H COMMAND                      DC562000
                            00004   985+DCTSPACE EQU   X'04'               $T...,C=1 COMMAND                    DC564000






                                    987+*                                  DCTPPSW                              DC568000



                            00080   989+DCTPPSWC EQU   X'80'               FCB CARRAGE ALTERED                  DC571000

                            00040   990+DCTPPSWF EQU   X'40'               FORMS CONTROLLED BY OPERATOR         DC572000
                            00020   991+DCTPPSWQ EQU   X'20'               QUEUE CLASSES ARE ALTERED            DC573000
                            00010   992+DCTPPSWS EQU   X'10'               SUPPRESS SEPARATOR PAGES             DC574000

                            00008   993+DCTPPSWT EQU   X'08'               UCS TRAIN ALTERED                    DC575000
                            00004   994+DCTPPSWU EQU   X'04'               UCS NOT STANDARD                     DC575500
                            00002   995+DCTPPSWI EQU   X'02'               DEVICE IDLE MESSAGE ISSUED           DC576000
                            00001   996+DCTPPSWO EQU   X'01'               OPERATOR ACTION ALLOWED              DC577000





                                    998+*                             RIDFLAGS                                  DC580000




                            00080  1000+RIDPOST  EQU   X'80'               USER WAITING FOR POST                DC584000
                            00040  1001+RIDBUSY  EQU   X'40'               I/O SIMULATION IN PROCESS            DC585000
MISC     HASP JOB QUEUE ENTRY FIELD DEFINITIONS                                                                PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   1003+*                             HASP JOB QUEUE ENTRY DISPLACEMENTS        JQ056000


                            00000  1005+QUEPRIO  EQU   0                   JOB PRIORITY                         JQ060000
                            00001  1006+QUETYPE  EQU   1                   LOGICAL QUEUE TYPE                   JQ062000

                            00002  1007+QUEJOBNO EQU   2                   HASP JOB NUMBER                      JQ064000
                            00004  1008+QUEFLAGS EQU   4                   JOB QUEUE FLAGS                      JQ066000
                            00004  1009+QUECHAIN EQU   4                   ADDRESS OF NEXT JOB QUEUE ELEMENT    JQ068000
                            00008  1010+QUETRAK  EQU   8                   TRACK ADDRESS OF JOB CONTROL TABLE   JQ070000
                            0000C  1011+QUEPRTRT EQU   12                  PRINT ROUTE                          JQ072000
                            0000D  1012+QUEPUNRT EQU   13                  PUNCH ROUTE                          JQ074000

                            0000E  1013+QUEJOECT EQU   14                  JOB OUTPUT ELEMENT COUNT             JQ076000








                                   1015+*                             HASP JOB QUEUE ENTRY BIT DEFINITIONS      JQ084000





                                   1017+*                             QUETYPE                                   JQ088000


                            00080  1019+QENTBY   EQU   X'80'               QUEUE ENTRY BUSY BIT                 JQ092000

                            00040  1020+$XEQ     EQU   X'40'               OS EXECUTION QUEUE                   JQ094000
                            00020  1021+$INPUT   EQU   X'20'               INPUT QUEUE                          JQ096000
                            00010  1022+$SETUP   EQU   X'10'               SETUP QUEUE                          JQ098000
                            00008  1023+$BRKDOWN EQU   X'08'               BREAKDOWN QUEUE                      JQ100000
                            00004  1024+$OUTPUT  EQU   X'04'               OUTPUT QUEUE                         JQ102000

                            00002  1025+$HARDCPY EQU   X'02'               OUTPUT IN-PROGRESS QUEUE             JQ104000
                            00001  1026+$PLOT    EQU   X'01'               PLOT QUEUE                           JQ106000
                            00000  1027+$PURGE   EQU   X'00'               PURGE QUEUE                          JQ108000





                                   1029+*                             QUEFLAGS                                  JQ112000


                            00080  1031+QUEHOLDA EQU   X'80'               HOLD ALL JOBS                        JQ116000
                            00040  1032+QUEHOLD1 EQU   X'40'               HOLD SINGLE JOB                      JQ118000
                            00020  1033+QUEHOLD2 EQU   X'20'               HOLD FOR DUPLICATE JOB NAME          JQ120000
                            00010  1034+QUEPURGE EQU   X'10'               JOB IS TO BE PURGED                  JQ122000

                            00008  1035+QUEOPCAN EQU   X'08'               OPERATOR ISSUED $C OR $P JOB         JQ124000
                            00004  1036+QUEOPRTE EQU   X'04'               OPERATOR HAS ISSUED $R ALL           JQ125000
                            00002  1037+QUEJCTSW EQU   X'02'               JCT INTERLOCK FOR UPDATE             JQ125100
MISC     HASP JOB INFORMATION TABLE ELEMENT FIELD DEFINITIONS                                                  PAGE   33



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1039+*                   HASP JOB INFORMATION TABLE ELEMENT DISPLACEMENTS    JI040000





                            00000  1041+JITJNAME EQU   0                   JOB NAME                             JI044000

                                   1042+*                                                                       JI046000
                                   1043+*                                                                       JI048000
                                   1044+*        THE FOLLOWING ENTRIES ARE NOT IMPLEMENTED BUT REPRESENT        JI050000
                                   1045+*        SUGGESTIONS AS TO POSSIBLE INSTALLATION MODIFICATIONS...       JI052000
                                   1046+*                                                                       JI054000
                                   1047+*                                                                       JI056000
                                   1048+*                                                                       JI058000

                                   1049+*JITLINE EQU   8                   ESTIMATED THEN ACTUAL PRINT LINES    JI060000
                                   1050+*JITCARD EQU   12                  ESTIMATED THEN ACTUAL PUNCHED CARDS  JI062000
                                   1051+*JITETIM EQU   16                  ESTIMATED EXECUTION TIME             JI064000

                                   1052+*JITSAFE EQU   20                  JOB SECURITY CONTROL PASSWORD        JI066000
                                   1053+*JITSTAT EQU   28                  ADDITIONAL JOB STATUS BITS           JI068000
                                   1054+*JITETC  EQU   29                  ANYTHING ELSE                        JI070000
MISC     HASP JOB OUTPUT ELEMENT DSECT                                                                         PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000000                             1056+JOEDSECT DSECT                     JOB OUTPUT ELEMENT DSECT             JE230000
                                   1057+*                                                                       JE232000
                                   1058+*        JOE FIELDS - USED AS A WORK ELEMENT                            JE234000
                                   1059+*                                                                       JE236000
000000                             1060+JOENEXT  DS    H                   PTR TO NEXT WORK ELEMENT             JE238000
000002                             1061+JOEFLAG  DS    H                   FLAG BITS                            JE240000
                            00080  1062+$JOEBUSY EQU   X'80'               JOE BUSY FLAG                        JE242000
                            00040  1063+$JOECKV  EQU   X'40'               CHECKPOINT ELEMENT VALID FLAG        JE244000

000004                             1064+JOECHAR  DS    H                   PTR TO CHARACTERISTICS ELEMENT       JE246000
000006                             1065+JOECKPT  DS    H                   PTR TO CHECKPOINT ELEMENT            JE248000

000008                             1066+JOESEC   DS    X                   SECURITY LEVEL OF DATA               JE250000
000009                             1067+JOECPU   DS    X                   CPU ID OF DATA                       JE252000
00000A                             1068+JOEROUT  DS    H                   REMOTE ID OF DATA                    JE254000
                            00080  1069+$JOEIRTE EQU   X'80'               EXPLICIT ROUTING                     JE256000
00000C                             1070+JOERECCT DS    F                   LINE/CARD COUNT FOR THIS JOE         JE258000

000010                             1071+JOEJQE   DS    F                   A(HASP JOB QUEUE ELEMENT)            JE260000
000014                             1072+JOEDEST  DS    H                   DESTINATION CODE FROM PDDB           JE262000
                                   1073+*                                                                       JE264000
                                   1074+*        JOE FIELDS - USED AS A CHARACTERISTICS ELEMENT                 JE266000
                                   1075+*                                                                       JE268000
000016                      00000  1076+         ORG   JOEDSECT            RESET LOCATION TO START OF JOE       JE270000
000000                             1077+         DS    H                   POINTER TO NEXT CHAR-JOE             JE272000
000002                             1078+JOEUSE   DS    H                   # OF JOES USING THIS ELEMENT         JE274000
000004                             1079+JOEFORM  DS    F                   FORMS NUMBER                         JE276000

000008                             1080+JOEFCB   DS    F                   FCB NUMBER                           JE278000

00000C                             1081+JOEUCS   DS    F                   UCS NUMBER                           JE280000
000010                             1082+JOEWTRID DS    CL8                 SPECIAL SYSOUT WRITER ID             JE282000
000018                             1083+JOEACTPR DS    X                   # OF ACTIVE PRINTERS                 JE284000
000019                             1084+JOEACTPU DS    X                   # OF ACTIVE PUNCHES                  JE286000
00001A                             1085+JOEUNUSD DS    H                   UNUSED, PROVIDES 360 WD BNDRY   RFIT JE286005

                                   1086+*                                                                       JE288000
                                   1087+*        JOE FIELDS - USED AS A CHECKPOINT ELEMENT                      JE290000
                                   1088+*                                                                       JE292000
00001C                      00000  1089+         ORG   JOEDSECT            RESET LOCATION TO START OF JOE       JE294000
000000                             1090+JOECKFLG DS    X                   CHECKPOINT FLAGS                     JE296000
000001                             1091+JOECOPY  DS    X                   COPY NUMBER IN PROGRESS              JE298000
000002                             1092+JOEJRCB  DS    H                   DISPL INTO EJECT BUFFER              JE300000
000004                             1093+JOEPDDB  DS    H                   DISPL IN JCT OF PDDB                 JE302000
000006                             1094+JOEPPCT  DS    H                   PDDB PAGE COUNT                      JE304000
000008                             1095+JOETLNC  DS    F                   TOTAL JOE LINE COUNT                 JE306000

00000C                             1096+JOETPCT  DS    F                   TOTAL JOE PAGE COUNT                 JE308000

000010                             1097+JOEMTTR  DS    F                   LAST EJECT BUFFER TRACK ADDRESS      JE310000
000014                             1098+JOEIOTTR DS    F                   CURRENT IOT TRACK ADDRESS            JE312000
000018                      0001C  1099+JOEEND   ORG   ,                                                        JE314000
                            0001C  1100+JOESIZE  EQU   *-JOEDSECT          LENGTH OF MAX JOE                    JE316000

000000                             1101+HASPMISC CSECT                     END OF JOE DSECT                     JE318000
MISC     HASP JOB OUTPUT TABLE DSECT                                                                           PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1103+         EXTRN $JOT                HASP JOB OUTPUT TABLE                JT076000
000000                             1104+JOTDSECT DSECT                     JOB OUTPUT TABLE DSECT               JT078000
000000                             1105+JOTJOBNO DS    H                   JOB NUMBER ACTIVE IN $OUTPUT         JT080000
000002                             1106+JOTCKPT  DS    H                   INDEX OF LAST JOE ADDED FOR JOB      JT082000
000004                             1107+JOTFREC  DS    H                   COUNT OF FREE JOES                   JT084000
000006                             1108+JOTFREL  DS    H                   MINIMUM FREE COUNT ALLOWED           JT086000
000008                             1109+JOTFREQ  DS    H                   QUEUE OF FREE JOES                   JT088000
00000A                             1110+JOTCHRQ  DS    H                   QUEUE OF CHAR-JOES                   JT090000

00000C                             1111+JOTCLSQ  DS    36H                 QUEUES OF WORK-JOES BY CLASS         JT092000
000054                             1112+JOTJOES  DS    0F                  START OF JOES                        JT094000
000054 0000000000000000            1113+         DC    (64*JOESIZE)X'00'       SPACE TAKEN BY JOES              JT096000
000758                             1114+         DS    0D                                                       JT098000

                            00758  1115+JOTSIZE  EQU   *-JOTDSECT          SIZE OF JOB OUTPUT TABLE             JT100000
000000                             1116+HASPMISC CSECT                     END OF JOB OUTPUT TABLE DSECT        JT102000
MISC     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                             1118+JCTDSECT DSECT                     JOB CONTROL TABLE DSECT              JC650000
                            00000  1119+         USING JCTDSECT,JCT        ESTABLISH JCT ADDRESSABILITY         JC652000
000000                             1120+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      JC654000
000058                             1121+JCTJQE   DS    F                   OFFSET OF HASP JOB QUEUE ELEMENT     JC656000
00005C                             1122+JCTIOTTR DS    F                   TRACK ADDRESS OF FIRST IOT           JC658000
000060                             1123+JCTDSKEY DS    F                   PERIPHERAL DATA SET KEY              JC660000
000064                             1124+JCTINJCT DS    F                   TRACK ADDRESS OF INPUT JCT           JC662000
000068                             1125+         DS    X                   RESERVED                             JC664000

000069                             1126+JCTSMFLG DS    BL1                 SMF FLAGS                            JC666000
00006A                             1127+JCTPURGE DS    X                   START OF SMF PURGE RECORD            JC668000
00006B                             1128+JCTJBOPT DS    BL1                 HASP JOB OPTIONS                     JC670000

00006C                             1129+JCTJOBEB DS    CL4                 HASP ASSIGNED JOB NUMBER (EBCDIC)    JC672000
000070                             1130+JCTJNAME DS    CL8                 JOB NAME FROM JOB CARD               JC674000
000078                             1131+JCTPNAME DS    CL20                PROGRAMMER'S NAME FROM JOB CARD      JC676000
00008C                             1132+JCTMCLAS DS    C                   MSGCLASS FROM JOB CARD               JC678000
00008D                             1133+JCTJCLAS DS    C                   JOB CLASS FROM JOB CARD              JC680000
00008E                             1134+         DS    X                   RESERVED                             JC682000
00008F                             1135+JCTPRIO  DS    X                   HASP EXECUTION SELECTION PRIORITY    JC684000
000090                             1136+         DS    X                   RESERVED                             JC686000
000091                             1137+JCTOPRIO DS    X                   HASP OUTPUT SELECTION PRIORITY       JC688000
000092                             1138+JCTROUTE DS    XL2                 INPUT ROUTE CODE                     JC690000
000094                             1139+JCTINDEV DS    CL8                 HASP INPUT DEVICE NAME               JC692000
00009C                             1140+JCTACCTN DS    CL4                 JOB ACCOUNTING NUMBER FROM JOB CARD  JC694000

0000A0                             1141+JCTROOMN DS    CL4                 PROGRAMMER'S ROOM NUMBER             JC696000
0000A4                             1142+JCTETIME DS    F                   ESTIMATED EXECUTION TIME             JC698000
0000A8                             1143+JCTESTLN DS    F                   ESTIMATED OUTPUT LINES               JC700000

0000AC                             1144+JCTESTPU DS    F                   ESTIMATED PUNCHED OUTPUT             JC702000
0000B0                             1145+JCTFORMS DS    CL4                 JOB OUTPUT FORMS                     JC704000
0000B4                             1146+         DS    X                   RESERVED                             JC706000
0000B5                             1147+JCTCPYCT DS    X                   JOB PRINT COPY COUNT                 JC708000
0000B6                             1148+         DS    X                   RESERVED                             JC710000
0000B7                             1149+JCTLINCT DS    X                   LINES PER PAGE                       JC712000
0000B8                             1150+JCTPROUT DS    XL2                 JOB PRINT ROUTE CODE                 JC714000
0000BA                             1151+JCTPUOUT DS    XL2                 JOB PUNCH ROUTE CODE                 JC716000
0000BC                             1152+JCTXEQON DS    F                   TIME ON EXECUTION PROCESSOR          JC718000
0000C0                             1153+JCTXDTON DS    F                   DATE ON EXECUTION PROCESSOR          JC720000
0000C4                             1154+JCTXEQOF DS    F                   TIME OFF EXECUTION PROCESSOR         JC722000
0000C8                             1155+JCTXDTOF DS    F                   DATE OFF EXECUTION PROCESSOR         JC724000

0000CC                             1156+JCTOUTON DS    F                   TIME ON OUTPUT PROCESSOR             JC726000

0000D0                             1157+JCTODTON DS    F                   DATE ON OUTPUT PROCESSOR             JC728000
0000D4                             1158+JCTOUTOF DS    F                   TIME OFF OUTPUT PROCESSOR            JC730000

0000D8                             1159+JCTODTOF DS    F                   DATE OFF OUTPUT PROCESSOR            JC732000
0000DC                             1160+JCTCARDS DS    F                   TOTAL NUMBER OF INPUT CARDS          JC734000
0000E0                             1161+JCTLINES DS    F                   GENERATED OUTPUT LINES               JC736000
0000E4                             1162+JCTPUNCH DS    F                   GENERATED PUNCHED OUTPUT             JC738000
0000E8                             1163+         DS    F                   RESERVED                             JC740000
0000EC                             1164+JCTPRTCT DS    F                   CURRENT NUMBER OF LINES PRINTED      JC742000
0000F0                             1165+JCTPAGCT DS    F                   CURRENT NUMBER OF PAGES PRINTED      JC744000
0000F4                             1166+JCTPUNCT DS    F                   CURRENT NUMBER OF CARDS PUNCHED      JC746000
0000F8                             1167+JCTESOUT DS    F                   ESTIMATED OUTPUT (LINES+CARDS)       JC748000
0000FC                             1168+JCTXOUT  DS    F                   GENERATED OUTPUT RECORDS             JC750000
000100                             1169+         DS    F                   RESERVED                             JC752000
000104                             1170+JCTCYSAV DS    XL100               INPUT ALLOCATION BIT MAP             JC754000

000168                             1171+JCTWORK  DS    XL144               144-BYTE WORK AREA                   JC756000
0001F8                             1172+         DS    0F                                                       JC758000

MISC     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   37



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0001F8                             1173+JCTJMR   DS    XL56                JMR AREA                             JC760000
000230                      001F8  1174+         ORG   JCTJMR                                                   JC762000
0001F8                             1175+JCTJMRJN DS    CL8                 JMR JOB NAME                         JC764000
000200                             1176+JCTRDRON DS    F                   TIME ON INPUT PROCESSOR              JC766000
000204                             1177+JCTRDTON DS    F                   DATE ON INPUT PROCESSOR              JC768000
000208                             1178+JCTCPUID DS    XL4                 JMR CPU IDENTIFICATION               JC770000
00020C                             1179+JCTUSEID DS    CL8                 JMR USER IDENTIFICATION              JC772000
000214                             1180+JCTSTEP  DS    X                   CURRENT STEP NUMBER                  JC774000
000215                             1181+JCTINDC  DS    BL1                 JMR SMF OPTIONS                      JC776000
000216                             1182+         DS    XL2                 RESERVED                             JC778000
000218                             1183+JCTUCOM  DS    F                   JMR USER COMMUNICATION AREA          JC780000

00021C                             1184+JCTUJVP  DS    F                   JMR ADDRESS OF USER EXIT ROUTINE     JC782000
000220                             1185+JCTRDROF DS    F                   TIME OFF INPUT PROCESSOR             JC784000
000224                             1186+JCTRDTOF DS    F                   DATE OFF INPUT PROCESSOR             JC786000

000228                             1187+JCTJOBIN DS    F                   JMR JOB SYSIN COUNT                  JC788000
00022C                             1188+JCTRDR   DS    XL2                 READER DEVICE TYPE AND CLASS         JC790000
00022E                             1189+JCTJMOPT DS    BL1                 JMR SMF OPTIONS                      JC792000
00022F                             1190+         DS    X                   RESERVED                             JC794000
000230                      00230  1191+         ORG                                                            JC796000
                            00230  1192+JCTEND   EQU   *                   END OF JOB CONTROL TABLE             JC798000





                                   1194+*                             JCTSMFLG                                  JC802000



                            00080  1196+JCTSMFL0 EQU   B'10000000'         RESERVED                             JC806000
                            00040  1197+JCTSMFL1 EQU   B'01000000'         RESERVED                             JC808000

                            00020  1198+JCTSMFL2 EQU   B'00100000'         RESERVED                             JC810000
                            00010  1199+JCTSMFL3 EQU   B'00010000'         RESERVED                             JC812000
                            00008  1200+JCTSMFL4 EQU   B'00001000'         RESERVED                             JC814000
                            00004  1201+JCTSMFL5 EQU   B'00000100'         RESERVED                             JC816000

                            00002  1202+JCTSMFL6 EQU   B'00000010'         RESERVED                             JC818000
                            00001  1203+JCTSMFL7 EQU   B'00000001'         RESERVED                             JC820000





                                   1205+*                             JCTJBOPT                                  JC824000




                            00080  1207+JCTPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              JC828000
                            00040  1208+JCTSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              JC830000
                            00020  1209+JCTTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           JC832000
                            00010  1210+JCTNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    JC834000
                            00008  1211+JCTXBACH EQU   B'00001000'         EXECUTION BATCHING JOB               JC836000
                            00004  1212+JCTJBOP5 EQU   B'00000100'         RESERVED                             JC838000
                            00002  1213+JCTJBOP6 EQU   B'00000010'         RESERVED                             JC840000
                            00001  1214+JCTJBOP7 EQU   B'00000001'         RESERVED                             JC842000

MISC     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                   1217+*                             JCTJMOPT                                  JC848000



                            00020  1219+JCTJMRUX EQU   B'00100000'         IF ON, TAKE USER EXITS FOR SMF       JC852000





                                   1221+*                                                                       JC856000

                                   1222+*        IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT      JC858000
                                   1223+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  JC860000
                                   1224+*        THE JCT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    JC862000
                                   1225+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    JC864000
                                   1226+*                                                                       JC866000

                            005D0  1227+$JCTTEST EQU   1960-JCTEND+JCTJQE                                       JC868000
000230 05D0                        1228+         DC    Y($JCTTEST)         TEST INSTRUCTION                     JC870000
000000                             1229+HASPMISC CSECT                     END OF JOB CONTROL TABLE DSECT       JC872000

MISC     HASP INPUT/OUTPUT TABLE DSECT                                                                         PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             1232+IOTDSECT DSECT                     HASP INPUT/OUTPUT TABLE DSECT        IT116000
000000                             1233+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      IT118000
000058                             1234+IOTFLAGS DS    0BL1                MISCELLANEOUS FLAGS                  IT120000

000058                             1235+IOTIOT   DS    F                   ADDRESS OF NEXT INPUT/OUTPUT TABLE   IT122000
00005C                             1236+IOTTRACK DS    F                   TRACK ADDRESS OF CURRENT IOT         IT124000
000060                             1237+IOTIOTTR DS    F                   TRACK ADDRESS OF NEXT IOT            IT126000
000064                             1238+IOTJCTTR DS    F                   TRACK ADDRESS OF JOB CONTROL TABLE   IT128000
000068                             1239+IOTCYMXM DS    F                   MAXIMUM MTTR FOR CURRENT TRACK GROUP IT130000

00006C                             1240+IOTMTTR  DS    F                   LAST MTTR ALLOCATED                  IT132000
000070                             1241+IOTCYMAP DS    XL100               OUTPUT ALLOCATION BIT MAP            IT134000
0000D4                             1242+IOTPDDBP DS    F                   OFFSET OF NEXT AVAILABLE PDDB SPACE  IT136000
0000D8                             1243+IOTPDDB  DS    0F                  PERIPHERAL DATA DEFINITION BLOCKS    IT138000






                                   1245+*                            IOTFLAGS                                   IT142000



                            00080  1247+IOTWRITE EQU   B'10000000'         CHECKPOINT IOT                       IT146000
                            00040  1248+IOTFLAG1 EQU   B'01000000'         RESERVED                             IT148000

                            00020  1249+IOTFLAG2 EQU   B'00100000'         RESERVED                             IT150000
                            00010  1250+IOTFLAG3 EQU   B'00010000'         RESERVED                             IT152000
                            00008  1251+IOTFLAG4 EQU   B'00001000'         RESERVED                             IT154000
                            00004  1252+IOTFLAG5 EQU   B'00000100'         RESERVED                             IT156000
                            00002  1253+IOTFLAG6 EQU   B'00000010'         RESERVED                             IT158000

                            00001  1254+IOTFLAG7 EQU   B'00000001'         RESERVED                             IT160000





                                   1256+*                                                                       IT164000
                                   1257+*           IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT   IT166000

                                   1258+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  IT168000
                                   1259+*        THE IOT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    IT170000
                                   1260+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    IT172000
                                   1261+*                                                                       IT174000
                            00722  1262+$IOTTEST EQU   1960-IOTPDDB+IOTJCTTR-18                                 IT176000

0000D8 0722                        1263+         DC    Y($IOTTEST)         TEST INSTRUCTION                     IT178000
000000                             1264+HASPMISC CSECT                     END OF HASP INPUT/OUTPUT TABLE DSECT IT180000
MISC     HASP TRACK EXTENT DATA TABLE DSECT                                                                    PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             1267+TEDDSECT DSECT                     EXTENT DATA DUMMY SECTION            TE074000
000000 00000000                    1268+TNCH     DC    F'0'                SEEK ADDRESS OF MOST RECENT $EXCP    TE076000
000004 00000000                    1269+TNTC     DC    F'0'                NR OF TRACKS PER CYL ON THIS DEVICE  TE078000
000008 0000                        1270+TNMD     DC    HS8'0'              EXTENT NUMBER, SHIFTED LEFT 8        TE080000
00000A 0000                        1271+TNRT     DC    H'0'                MAXIMUM RECORD NUMBER                TE082000

00000C 0190                        1272+TNGE     DC    H'400'              NUMBER OF TRACK GROUPS IN EXTENT     TE084000
00000E 0001                        1273+TNTG     DC    H'1'                NUMBER OF TRACKS PER GROUP           TE086000
000010 0000                        1274+TNMO     DC    H'0'                OFFSET OF THIS MAP FROM FIRST MAP    TE088000
000012 0032                        1275+TNMB     DC    H'50'               NUMBER OF BYTES IN A MAP             TE092000

000014                             1276+         DS    0F                                                       TE094000
                            00014  1277+TEDSIZ   EQU   *-TEDDSECT          LENGTH OF DSECT                      TE096000
000000                             1278+HASPMISC CSECT                     END OF EXTENT DATA TABLE DSECT       TE098000
MISC     HASP PRINT CHECKPOINT ELEMENT FIELD DEFINITIONS                                                       PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                   1281+*                        PRINT CHECKPOINT ELEMENT ENTRY DISPLACEMENTS   PR088000



                            00000  1283+PRCJOBNO EQU   0                   CKPT - H - JOB NUMBER                PR092000
                            00002  1284+PRCKJOE  EQU   2                   CKPT - H - CKPT JOE DISPL            PR094000
                            00004  1285+PRCFLAGS EQU   4                   CKPT - C - FLAGS                     PR096000

                            00005  1286+PRCCPYCT EQU   5                   CKPT - C - CURRENT COPY COUNT        PR098000
                            00006  1287+PRCEJRCB EQU   6                   CKPT - H - EJECT RCB DISPL           PR100000
                            00008  1288+PRCPDDBD EQU   8                   CKPT - H - PDDB DISPLACEMENT         PR102000

                            0000A  1289+PRCPDDBP EQU   10                  CKPT - H - PDDB PAGE COUNT           PR104000
                            0000C  1290+PRCLINCT EQU   12                  CKPT - F - TOTAL LINT COUNT          PR106000
                            00010  1291+PRCPAGCT EQU   16                  CKPT - F - TOTAL PAGE COUNT          PR108000
                            00014  1292+PRCEMTTR EQU   20                  CKPT - F - MTTR OF LAST EJECT        PR110000
                            00018  1293+PRCIOTTR EQU   24                  CKPT - F - MTTR OF CURRENT IOT       PR112000

                            0001C  1294+PRCSIZE  EQU   28,28               LENGTH OF A PRC ELEMENT              PR114000





                                   1296+*                   PRINT CHECKPOINT ELEMENT FLAG DEFINITIONS           PR118000



                            00080  1298+PRCHKUSE EQU   X'80'               CHECKPOINT ENTRY IS IN USE           PR122000
                            00040  1299+PRCHKJOB EQU   X'40'               JOB ACTIVE INDICATOR                 PR124000
MISC     HASP TIMER QUEUE ELEMENT FIELD DEFINITIONS                                                            PAGE   42



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












                                   1302+*                             HASP TIMER QUEUE ELEMENT DISPLACEMENTS    TQ048000






                            00000  1304+ICHAIN   EQU   0                   ADDRESS OF NEXT TIMER QUEUE ELEMENT  TQ052000
                            00004  1305+ITIME    EQU   4                   SPECIFIED INTERVAL (IN TIMER UNITS)  TQ054000
                            00008  1306+IPOST    EQU   8                   FLAG BYTE AND ADDRESS OF EWF         TQ056000
MISC     OS TASK CONTROL BLOCK DSECT                                                                           PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             1309+TCBDSECT DSECT                     TASK CONTROL BLOCK DSECT             TC010000

000000                             1310+TCBRBP   DS    F                   ADDRESS OF TOP RB                    TC012000

000004                             1311+TCBPIE   DS    F                   ADDRESS OF PROGRAM INTERRUPT ELEMENT TC014000
000008                             1312+TCBDEB   DS    F                   ADDRESS OF DEB QUEUE                 TC016000
00000C                             1313+TCBTIO   DS    F                   ADDRESS OF TASK I/O TABLE            TC018000
000010                             1314+TCBCMP   DS    F                   TASK COMPLETION CODE                 TC020000
000014                             1315+TCBTRN   DS    F                   ADDRESS OF TESTRAN CONTROL TABLE     TC022000

000018                             1316+TCBMSS   DS    F                   MAIN STORAGE SUPERVISOR POINTER      TC026000
00001C                             1317+TCBPKF   DS    C                   PROTECTION KEY                       TC028000
00001D                             1318+TCBFLGS  DS    3C                  MISCELLANEOUS FLAGS                  TC028800
000020                             1319+TCBFLGS4 DS    C                   NONDISPATCHABILITY FLAGS             TC029600
                            00010  1320+TCBHNDSP EQU   X'10'               HASP FREEZE BIT                      TC030400
000021                             1321+TCBFLGS5 DS    C                   NONDISPATCHABILITY FLAGS             TC031200
000022                             1322+TCBLMP   DS    C                   ENQUEUE COUNT / LIMIT PRIORITY       TC032000
000023                             1323+TCBDSP   DS    C                   DISPATCHING PRIORITY                 TC034000
000024                             1324+TCBLLS   DS    F                   LOAD LIST                            TC036000
000028                             1325+TCBJLB   DS    F                   ADDRESS OF JOBLIB DCB                TC038000

00002C                             1326+TCBJPQ   DS    F                   ADDRESS OF CDE FOR JPA               TC040000

000030                             1327+TCBGRS   DS    16F                 GENERAL REGISTER SAVE AREA           TC042000
000070                             1328+TCBQEL   DS    0C                  ENQUEUE COUNT (MVT)                  TC046000
000070                             1329+TCBFSA   DS    F                   ADDRESS OF FIRST PROGRAM SAVE AREA   TC048000
000074                             1330+TCBTCB   DS    F                   ADDRESS OF NEXT LOWER PRIORITY TCB   TC050000

000078                             1331+TCBTME   DS    F                   ADDRESS OF TIMER ELEMENT             TC052000
00007C                             1332+TCBJSTCB DS    F                   ADDRESS OF FIRST TCB FOR JOB STEP    TC056000
000080                             1333+TCBNTC   DS    F                   ADDRESS OF PREVIOUS TCB              TC058000
000084                             1334+TCBOTC   DS    F                   ADDRESS OF ORIGINATING TCB           TC060000
000088                             1335+TCBLTC   DS    F                   ADDRESS OF LAST TCB ON SUBTASK QUEUE TC062000
00008C                             1336+TCBIQE   DS    F                   ADDRESS OF IQE FOR ETXR ROUTINE      TC064000
000090                             1337+TCBECB   DS    F                   ADDRESS OF ECB POSTED ON COMPLETION  TC066000
000094                             1338+TCBTSFLG DS    C                   TIME SHARING FLAGS                   TC066800
000095                             1339+TCBSTPCT DS    C                   STATUS STOP COUNT                    TC067600
000096                             1340+TCBTSLP  DS    C                   TS TASK LIMIT PRIORITY               TC068400
000097                             1341+TCBTSDP  DS    C                   TS TASK DISPATCHING PRIORITY         TC069200

000098                             1342+TCBPQE   DS    F                   ADDRESS OF REGION DUMMY PQE - 8      TC070000
00009C                             1343+TCBAQE   DS    F                   ADDRESS OF ALLOCATED QUEUE ELEMENT   TC072000
0000A0                             1344+TCBNSTAE DS    F                   ADDR OF CURRENT STAE CONTROL BLOCK   TC074000
0000A4                             1345+TCBTCT   DS    F                   ADDRESS OF THE TCT                   TC076000

0000A8                             1346+TCBUSER  DS    F                   USER FIELD                           TC078000
0000AC                             1347+TCBNDSP  DS    F                   SECONDARY NONDISPATCHABILITY         TC080000
0000B0                             1348+TCBPCE   DS    0F .                ADDRESS OF HASP PCE         FJP/RFIT TC081700
                            00001  1349+TCBPCEND EQU   X'01' .             HASP NON-DISPATCH. FLAG     FJP/RFIT TC081800
0000B0                             1350+         DS    F                   RESERVED                             TC082000
0000B4                             1351+TCBJSCB  DS    F                   ADDRESS OF JSCB                      TC083000
000000                             1352+HASPMISC CSECT                     END OF TASK CONTROL BLOCK DSECT      TC084000
MISC     HASP SMF BUFFER DSECT                                                                                 PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             1355+SMFDSECT DSECT                     HASP SMF BUFFER DSECT                SM561000
000000                             1356+SMFCHAIN DS    F                   SMF BUFFER CHAIN TO NEXT BUFFER      SM562000
000004                             1357+SMFTYPE  DS    C                   TYPE OF BUFFER  X'FF' = JMR BUFFER   SM563000
000005                             1358+SMFPARM  DS    3C                  RESERVED                             SM564000

000008                             1359+JMRCHAIN DS    0CL4                POINTER TO PURGE RECORD BUFFER       SM565000
000008                             1360+SMFRDW   DS    CL4                 SMF RECORD DESCRIPTOR WORD           SM566000


                                   1362+*  BEGINNING OF JMR OR HASP SMF RECORD                                  SM568000
00000C                             1363+SMFJMR   DS    0CL56               JMR DATA AREA                        SM569000

00000C 00                          1365+SMFHDFLG DC    BL1'0'              HEADER FLAG BYTE                     SM571000
00000D 00                          1366+SMFHDRTY DC    BL1'0'              RECORD TYPE                          SM572000
00000E 00000000                    1367+SMFHDTME DC    BL4'0'              TOD, USING FORMAT FROM TIME MACRO    SM573000
000012 0000000C                    1368+SMFHDDTE DC    PL4'0000'           DATE IN PACKD DECIMAL FORM  00YYDDDF SM574000
000016 4040                        1369+SMFHDSID DC    CL2'  '             SYSTEM IDENTIFICATION                SM575000
000018 4040                        1370+SMFHDMOD DC    CL2'  '             SYSTEM MODEL IDENTIFIER              SM576000



00001A                             1372+SMFRSTRT DS    0C                  DEFINE START OF RECORD AFTER HEADER  SM578000


                                   1374+* BEGINNING OF HASP TYPE 6 OUTPUT PROCESSOR RECORD AFTER STD. HEADER    SM580000

00001A 4040404040404040            1376+SMF6JBN  DC    CL8' '              JOB NAME FROM JMR                    SM582000
000022 00000000                    1377+SMF6RST  DC    BL4'0'              READER START TIME                    SM583000
000026 0000000C                    1378+SMF6RSD  DC    PL4'0000'           READER START DATE                    SM584000
00002A F040404040404040            1379+SMF6UIF  DC    CL8'0'              USER IDENTIFICATION FIELD            SM585000
000032 40                          1380+SMF6OWC  DC    CL1' '              OUTPUT WRITER CLASS                  SM586000
000033 00000000                    1381+SMF6WST  DC    BL4'0'              WRITER START TIME                    SM587000
000037 0000000C                    1382+SMF6WSD  DC    PL4'0000'           WRITER START DATE                    SM588000
00003B 00000000                    1383+SMF6NLR  DC    BL4'0'              # OF LOGICAL RECORDS FOR WRITER      SM589000
00003F 00                          1384+SMF6IOE  DC    BL1'0'              I/O ERROR INDICATOR                  SM590000
000040 00                          1385+SMF6NDS  DC    BL1'0'              # OF DATA SETS PROCESSED BY WTR      SM591000

000041 40404040                    1386+SMF6FMN  DC    CL4' '              FORM NUMBER                          SM592000

000045 00000000000000              1387+SMF6RV1  DC    BL7'0'              RESERVED                             SM593000
00004C 40404040                    1388+SMF6JNM  DC    CL4' '              HASP ASSIGNED JOB NUMBER             SM594000

000050 4040404040404040            1389+SMF6OUT  DC    CL8' '              HASP LOGICAL OUTPUT DEVICE NAME      SM595000
000058 40404040                    1390+SMF6FCB  DC    CL4' '              FCB ID                               SM596000
00005C 40404040                    1391+SMF6UCS  DC    CL4' '              UCS ID                               SM597000
000060 00000000                    1392+SMF6PGE  DC    BL4'0'              PAGE COUNT                           SM598000
000064 0000                        1393+SMF6RTE  DC    BL2'0'              OUTPUT ROUTE CODE                    SM599000
000066                             1394+SMF6END  DS    0C                  END OF TYPE 6 RECORD                 SM600000
MISC     HASP SMF BUFFER DSECT                                                                                 PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1396+* BEGINNING OF HASP TYPE 26 PURGE RECORD AFTER STANDARD HEADER          SM602000

000066                      0001A  1398+         ORG   SMFRSTRT                                                 SM604000
00001A 4040404040404040            1399+SMF26JBN DC    CL8' '              JOB NAME FROM JMR                    SM605000

000022 00000000                    1400+SMF26RST DC    BL4'0'              READER START TIME                    SM606000
000026 0000000C                    1401+SMF26RSD DC    PL4'0000'           READER START DATE                    SM607000

00002A F040404040404040            1402+SMF26UIF DC    CL8'0'              USER IDENTIFICATION FIELD            SM608000

000032 00000000                    1403+SMF26RSV DC    BL4'0'              RESERVED                             SM609000
000036 0000                        1404+SMF26SBS DC    BL2'0'              SUBSYSTEM ID - HASP =X'0002'         SM610000
000038 0000                        1405+SMF26IND DC    BL2'0'              SECTION INDICATOR =X'E000'           SM611000
00003A 0000                        1406+SMF26LN1 DC    BL2'0'              DESCRIPTOR SECTION LENGTH            SM612000
00003C 000000                      1407+SMF26RV1 DC    BL3'0'              RESERVED                             SM613000
00003F 00                          1408+SMF26INF DC    BL1'0'              JOB INFORMATION                      SM614000
000040 40404040                    1409+SMF26JNM DC    CL4' '              HASP ASSIGNED JOB NUMBER             SM615000
000044 4040404040404040            1410+SMF26RV0 DC    CL8' '              JOB NAME FROM JOB CARD               SM616000
00004C 4040404040404040            1411+SMF26NAM DC    CL20' '             PROGRAMMER'S NAME FROM JOB CARD      SM617000
000060 40                          1412+SMF26MSG DC    CL1' '              MSGCLASS FROM JOB CARD               SM618000
000061 40                          1413+SMF26CLS DC    CL1' '              JOB CLASS FROM JOB CARD              SM619000
000062 0000                        1414+SMF26XPR DC    H'0'                HASP EXECUTION SELECTION PRIORITY    SM620000

000064 0000                        1415+SMF26OPR DC    H'0'                HASP OUTPUT SELECTION PRIORITY       SM621000
000066 0000                        1416+SMF26LOC DC    H'0'                INPUT ROUTE CODE                     SM622000
000068 4040404040404040            1417+SMF26DEV DC    CL8' '              HASP LOGICAL INPUT DEVICE NAME       SM623000

000070 40404040                    1418+SMF26ACT DC    CL4' '              PROGRAMMER'S ACCOUNTING NUMBER       SM624000
000074 40404040                    1419+SMF26ROM DC    CL4' '              PROGRAMMER'S ROOM NUMBER             SM625000
000078 00000000                    1420+SMF26XTM DC    BL4'0'              ESTIMATED EXECUTION TIME             SM626000
00007C 00000000                    1421+SMF26ELN DC    BL4'0'              ESTIMATED OUTPUT LINES               SM627000
000080 00000000                    1422+SMF26EPU DC    BL4'0'              ESTIMATED PUNCHED OUTPUT             SM628000
000084 40404040                    1423+SMF26FRM DC    CL4' '              DEFAULT OUTPUT FORM NUMBER           SM629000
000088 0000                        1424+SMF26CYP DC    BL2'0'              PRINT COPY COUNT                     SM630000
00008A 0000                        1425+SMF26LIN DC    BL2'0'              LINES PER PAGE                       SM631000
00008C 0000                        1426+SMF26PRR DC    BL2'0'              PRINT ROUTE CODE                     SM632000
00008E 0000                        1427+SMF26PUR DC    BL2'0'              PUNCH ROUTE CODE                     SM633000
000090 0000                        1428+SMF26LN2 DC    BL2'0'              EVENTS SECTION LENGTH                SM634000
000092 0000                        1429+SMF26RV2 DC    BL2'0'              RESERVED                             SM635000

000094 00000000                    1430+SMF26RPT DC    BL4'0'              READER STOP TIME                     SM636000
000098 0000000C                    1431+SMF26RPD DC    PL4'0000'           READER STOP DATE                     SM637000
00009C 0000000000000000            1432+SMF26RV3 DC    BL16'0'             RESERVED                             SM638000
0000AC 00000000                    1433+SMF26XST DC    BL4'0'              EXECUTION START TIME                 SM639000

0000B0 0000000C                    1434+SMF26XSD DC    PL4'0000'           EXECUTION START DATE                 SM640000
0000B4 00000000                    1435+SMF26XPT DC    BL4'0'              EXECUTION STOP TIME                  SM641000
0000B8 0000000C                    1436+SMF26XPD DC    PL4'0000'           EXECUTION STOP DATE                  SM642000
0000BC 00000000                    1437+SMF26OST DC    BL4'0'              OUTPUT PROCESSOR START TIME          SM643000
0000C0 0000000C                    1438+SMF26OSD DC    PL4'0000'           OUTPUT PROCESSOR START DATE          SM644000
0000C4 00000000                    1439+SMF26OPT DC    BL4'0'              OUTPUT PROCESSOR STOP TIME           SM645000

0000C8 0000000C                    1440+SMF26OPD DC    PL4'0000'           OUTPUT PROCESSOR STOP DATE           SM646000
0000CC 0000                        1441+SMF26LN3 DC    BL2'0'              ACTUALS SECTION LENGTH               SM647000
0000CE 0000                        1442+SMF26RV4 DC    BL2'0'              RESERVED                             SM648000
0000D0 00000000                    1443+SMF26ICD DC    BL4'0'              NUMBER OF INPUT CARDS (JCL AND DATA) SM649000
0000D4 00000000                    1444+SMF26XLN DC    BL4'0'              GENERATED OUTPUT LINES               SM650000
0000D8 00000000                    1445+SMF26XPU DC    BL4'0'              GENERATED PUNCHED OUTPUT             SM651000
0000DC 00000000                    1446+SMF26RV5 DC    BL4'0'              RESERVED                             SM652000
0000E0 00000000                    1447+SMF26PLN DC    BL4'0'              PRINTED LINES                        SM653000

0000E4 00000000                    1448+SMF26PPG DC    BL4'0'              PRINTED PAGES                        SM654000
0000E8 00000000                    1449+SMF26PUC DC    BL4'0'              PUNCHED CARDS                        SM655000

0000EC                             1450+SMF26END DS    0C                  END OF TYPE 26 RECORD                SM656000
MISC     HASP SMF BUFFER DSECT                                                                                 PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1452+* SUBSYSTEM HEADER FOR HASP SUBSYSTEM RECORD TYPES 43, 45, 47, & 48     SM658000

0000EC                      0001A  1454+         ORG   SMFRSTRT                                                 SM660000
00001A 0002                        1455+SMFSSID  DC    XL2'0002'           HASP SUBSYSTEM ID                    SM661000
00001C 0000                        1456+SMFSSRSV DC    BL2'0'              RESERVED                             SM662000

00001E 0000                        1457+SMFSSLEN DC    BL2'0'              LENGTH OF REST OF RECORD             SM663000


000020                             1459+SMFSSTRT DS    0C                  DEFINE START OF SUBSYSTEM PORTION    SM665000

                                   1461+* BEGINNING OF HASP TYPE 43 START HASP RECORD AFTER HDR & SUBSYSTEM HDR SM667000


000020 000000                      1463+SMF43RV1 DC    BL3'0'              RESERVED                             SM669000
000023 00                          1464+SMF43OPT DC    BL1'0'              START HASP OPTIONS                   SM670000

000024                             1465+SMF43END DS    0C                  END OF TYPE 43 SMF RECORD            SM671000


                                   1467+* BEGINNING OF HASP TYPE 45 STOP  HASP RECORD AFTER HDR & SUBSYSTEM HDR SM673000
000024                      00020  1468+         ORG   SMFSSTRT                                                 SM674000
000020                             1469+SMF45END DS    0C                  END OF TYPE 45 RECORD                SM675000


                                   1471+* BEGINNING OF HASP TYPE 47 START SUBSYSTEM EVENT AFTER TWO HEADERS     SM677000


000020                      00020  1473+         ORG   SMFSSTRT                                                 SM679000
000020 0000                        1474+SMF47EVT DC    BL2'0'              EVENT STARTING                       SM680000
000022 0000                        1475+SMF47LN1 DC    BL2'0'              ID SEC LGTH (INCL SMF47LN1)          SM681000
000024 4040404040404040            1476+SMF47RMT DC    CL8' '              REMOTE NAME                          SM682000

00002C 4040404040404040            1477+SMF47LIN DC    CL8' '              LINE NAME                            SM683000
000034 4040404040404040            1478+SMF47PSW DC    CL8' '              PASSWORD                             SM684000
00003C 0000                        1479+SMF47LN2 DC    BL2'0'              MSG SEC LGTH (INCL SMF47LN2)         SM685000
00003E F040404040404040            1480+SMF47MSG DC    CL36'0'             MESSAGE                              SM686000

000062                             1481+SMF47END DS    0C                  END OF TYPE 47 RECORD                SM687000


                                   1483+* BEGINNING OF HASP TYPE 48 STOP  SUBSYSTEM EVENT AFTER TWO HEADERS     SM689000

000062                      00020  1485+         ORG   SMFSSTRT                                                 SM691000
000020 0000                        1486+SMF48EVT DC    BL2'0'              EVENT STOPPING                       SM692000

000022 0000                        1487+SMF48RV1 DC    BL2'0'              RESERVED                             SM693000
000024 4040404040404040            1488+SMF48RMT DC    CL8' '              REMOTE NAME                          SM694000
00002C 4040404040404040            1489+SMF48LIN DC    CL8' '              LINE NAME                            SM695000
000034 4040404040404040            1490+SMF48PSW DC    CL8' '              PASSWORD                             SM696000
00003C                             1491+SMF48END DS    0C                  END OF TYPE 48 RECORD                SM697000






                                   1493+*                             SMFSSID                                   SM699000



                            00002  1495+SMFHSPID EQU   X'0002'             HASP SUBSYSTEM IDENTIFICATION        SM701000

MISC     HASP SMF BUFFER DSECT                                                                                 PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1497+*                             SMFTYPE & SMFHDRTY                        SM703000



                            000FF  1499+SMFJMRTP EQU   X'FF'               JMR BUFFER                           SM705000

                            00000  1500+SMFRECTP EQU   X'00'               SMF RECORD BUFFER                    SM706000
                            00006  1501+SMFOUTTP EQU   6                   HASP OUTPUT PROCESSOR SMF RECORD TYP SM707000
                            0001A  1502+SMFPRGTP EQU   26                  HASP PURGE RECORD TYPE               SM708000
                            0002B  1503+SMFSSSTP EQU   43                  START SUBSYSTEM RECORD TYPE          SM709000
                            0002D  1504+SMFPSSTP EQU   45                  STOP  SUBSYSTEM RECORD TYPE          SM710000

                            0002F  1505+SMFSSETP EQU   47                  START SUBSYSTEM EVENT ID             SM711000
                            00030  1506+SMFPSETP EQU   48                  STOP  SUBSYSTEM EVENT ID             SM712000





                                   1508+*                             SMF6IOE                                   SM714000




                            00004  1510+SMFDSER  EQU   X'04'               DATA SET ERROR                       SM716000
                            00001  1511+SMFCBER  EQU   X'01'               CONTROL BLOCK READ ERROR             SM717000






                                   1513+*                             SMF26INF                                  SM719000



                            00080  1515+SMFPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              SM721000
                            00040  1516+SMFSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              SM722000
                            00020  1517+SMFTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           SM723000

                            00010  1518+SMFNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    SM724000
                            00008  1519+SMFEXBCH EQU   B'00001000'         EXECUTION BATCHING JOB               SM725000
                            00004  1520+SMFJBOP5 EQU   B'00000100'         RESERVED                             SM726000
                            00002  1521+SMFJBOP6 EQU   B'00000010'         RESERVED                             SM727000
                            00001  1522+SMFOPCAN EQU   B'00000001'         JOB CANCELED BY $C OR $P             SM728000






                                   1524+*                             SMF47EVT & SMF48EVT                       SM730000



                            00001  1526+SMFRMTEV EQU   X'0001'             HASP SIGNON/SIGNOFF SUBSYSTEM EVENT  SM732000

                            00002  1527+SMFLINEV EQU   X'0002'             HASP START/STOP LINE SUBSYSTEM EVENT SM733000
000000                             1528+HASPMISC CSECT                     END OF HASP SMF BUFFER DSECT         SM734000
MISC     HASP EXECUTION PROCESSOR PCE WORK AREA DSECT                                                          PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000058                             1531+PCEDSECT DSECT                     HASP EXECUTION PROCESSOR             XW296000
000058                      00058  1532+         ORG   PCEWORK              PCE WORK AREA DSECT                 XW298000
000058                             1533+XPCESTAT DS    B                   PCE STATUS BYTE                      XW299000
                            00080  1534+XDUPBIT  EQU   X'80'               JOB WITH DUP NAME WAITING            XW299100
                            00040  1535+XEOJMES  EQU   X'40'               END-EXECUTION MESSAGE SENT           XW299200
                            00020  1536+XPOSTBIT EQU   X'20'               XTHAW SHOULD THAW XPCEJST            XW299300
                            00010  1537+XREXREQ  EQU   X'10'               REQUEUE FOR XEQ AT END XEQ           XW299400

                            00008  1538+XSYNCREQ EQU   X'08'               SYNCHRONOUS ACTION REQUIRED          XW299500
                            00004  1539+XOCRMES  EQU   X'04'               OCR-OVERFLOW MESSAGE SENT            XW299600

                            00002  1540+XPCERSV6 EQU   X'02'               RESERVED                             XW299700
                            00001  1541+XPCERSV7 EQU   X'01'               RESERVED                             XW299800
000059                             1542+XSYNCFLG DS    B                   SYNCHRONOUS ACTION FLAGS             XW299900
                            00080  1543+XEOJBIT  EQU   X'80'               TERMINATE JOB EXECUTION              XW300000
                            00040  1544+XALLOCWT EQU   X'40'               WRITE 'AWAITING ALLOCATION'          XW300100

                            00020  1545+XGETIOT  EQU   X'20'               GET ANOTHER IOT FOR RDR/INTRP        XW300200
                            00010  1546+XIOTWREQ EQU   X'10'               IOT CHECKPOINT REQUIRED              XW300300
                            00008  1547+XOUTCDBF EQU   X'08'               GET A /*OUTPUT CARD BUFFER           XW300400
                            00004  1548+XOCRMSG  EQU   X'04'               WRITE OCR OVERFLOW MESSAGE           XW300500
                            00002  1549+XSYNRSV6 EQU   X'02'               RESERVED                             XW300600
                            00001  1550+XSYNRSV7 EQU   X'01'               RESERVED                             XW300700
00005A                             1551+XPCESTEP DS    H                   CURRENT STEP NUMBER                  XW300800
00005C                             1552+XPCEOUTC DS    F                   POINTER TO /*OUTPUT CARD BUFFER      XW300900
000060                             1553+XPCEJST  DS    F                   ADDRESS OF USER TASK CONTROL BLOCK   XW302000

000064                             1554+XPCEJOB  DS    F                   ADDRESS OF JOB QUEUE ENTRY           XW304000

000068                             1555+XPCEIOT  DS    F                   ADDRESS OF FIRST IOT                 XW306000
00006C                             1556+XPCEJOBN DS    CL8                 JOB NAME                             XW308000
000074                             1557+XPCEDCT  DS    F                   ADDRESS OF DIRECT-ACCESS DCT         XW312000
000078                             1558+XPCEDDB  DS    F                   START OF DATA DEFINITION TABLE CHAIN XW314000
                            00000  1559+XOUTTOTL EQU   0                   TOTAL OUTPUT RECORDS                 XW318000

                            00004  1560+XOUTEST  EQU   4                   ESTIMATED OUTPUT RECORDS             XW320000
                            00008  1561+XOUTXCES EQU   8                   ESTIMATED EXCESSION AMOUNT           XW322000
                            0000C  1562+XOUTTYPE EQU   12                  OUTPUT RECORD TYPE (EBCDIC)          XW324000
                            00010  1563+XOUTENT  EQU   16                  OUTPUT INFORMATION TABLE LENGTH      XW326000
00007C                             1564+XPCEPRT  DS    CL(XOUTENT)         PRINT INFORMATION TABLE              XW328000
00008C                             1565+XPCEPUN  DS    CL(XOUTENT)         PUNCH INFORMATION TABLE              XW330000
00009C                             1566+XPCEPIT  DS    F                   ADDR OF PARTITION INFORMATION TABLE  XW332000
0000A0                             1567+XSTQE    DS    3F                  EXECUTION TIMER QUEUE ELEMENT        XW334000
0000AC                             1568+XXSTIME  DS    F                   TIME ESTIMATE EXCESSION AMOUNT       XW336000

                            00058  1569+XEQPCEWS EQU   *-PCEWORK           LENGTH OF EXECUTION PCE WORK AREA    XW340000

000000                             1570+HASPMISC CSECT                     END OF EXECUTION PCE WORK AREA DSECT XW342000
MISC     HASP PURGE PROCESSOR                                                                                  PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1572 *********************************************************************** V0064000
                                   1573 *                                                                     * V0066000

                                   1574 *                                                                     * V0068000
                                   1575 * FUNCTION/OPERATION                                                  * V0070000
                                   1576 *    THIS PROCESSOR FREES THE JOB'S ACQUIRED INPUT TRACKS FROM THE    * V0072000
                                   1577 *    JCT AND THE OUTPUT TRACKS FROM THE IOT. THEN AN SMF PURGE RECORD * V0072500
                                   1578 *    (TYPE 26) IS QUEUED FOR OUTPUT. FINALLY A MESSAGE IS SENT TO     * V0073000
                                   1579 *    NOTIFY THE OPERATOR THAT THE JOB IS PURGED.                      * V0073500
                                   1580 *                                                                     * V0074000
                                   1581 *    THE FOLLOWING REGISTERS ARE USED FOR THE FOLLOWING PURPOSES      * V0074500
                                   1582 *        WA  =  QUEUE ELEMENT ADDRESS                                 * V0075000
                                   1583 *        WB  =  DCT ADDRESS                                           * V0075500

                                   1584 *        WD  =  IOT BUFFER ADDRESS                                    * V0076000

                                   1585 *        JCT =  JCT BUFFER ADDRESS                                    * V0076500
                                   1586 *                                                                     * V0078000
                                   1587 *                                                                     * V0080000
                                   1588 *********************************************************************** V0082000



                                   1590 HASPVPRG NULL                      HASP PURGE PROCESSOR                 V0086000
000000                             1591+HASPVPRG DS    0H                                                       NU006000
                            00000  1592          USING *,BASE2                                                  V0088000
                                   1593          $LINK HASPVPUR            ENTER OVERLAY SEQMENT                V0090000
000000                             1594+HA$QVPUR DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
000000                             1595+HASPMISC CSECT                                                          OL014000
000000 41E00000                    1596+         DC    Y(X'4100'+LINK*16),QL2(HA$QVPUR) LOAD OCON INTO LINK     OL016000
000004 45F0 B08C      0008C        1597+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000
                                   1598 *                                  RETURN IS NOT EXPECTED               V0092000
                                   1599 HASPVPUR $OVERLAY &LOW,&MED        BEGIN PURGE OVERLAY                  V0094000

000AC8                             1600+HA$OVPUR CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            00ACC  1601+HA$IVPUR EQU   HA$OVPUR+4          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   1602+         ENTRY HA$IVPUR                                                 OV036000
000AC8 E5D7E4D9                    1603+         DC    CL4'VPUR'           IDENTIFY MODULE ON CORE DUMP         OV038000

000ACC 00000AC8                    1604+         DC    A(HA$OVPUR)         ASSEMBLY ORIGIN                      OV040000
000AD0                             1605+HASPVPUR DS    0F                  ENTRY POINT                          OV042000
                            00A70  1606+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                                   1607          $QGET $PURGE,VNOJOB,OLAY=YES GET A JOB TO PURGE                V0098000
000AD0 4110 0000      00000        1608+         LA    R1,$PURGE                                                DG012000
000AD4 45E0 B04C      0004C        1609+         BAL   LINK,$QGET          LINK TO CONTROL SERVICE PROGRAM      QG044000
000AD8 4780 8276      00CE6        1610+         BC    8,VNOJOB                                                 NP008000
000ADC 1B55                        1611          SR    WD,WD               ZERO IOT BUFFER REGISTER             V0106000
000ADE 1821                        1612          LR    WA,R1               SAVE THE QUEUE ELEMENT ADDR IN WA    V0108000
                                   1613          $ACTIVE                   TELL SYSTEM $PURGE IS ACTIVE         V0110000
000AE0 4310 B0C7      000C7        1614+         IC    R1,$ACTIVE          INDICATE                             AC006000
000AE4 4110 1001      00001        1615+         LA    R1,1(,R1)            PROCESSOR                           AC008000

000AE8 4210 B0C7      000C7        1616+         STC   R1,$ACTIVE            ACTIVE                             AC010000
000AEC 47F0 8088      00AF8        1617          B     VGETUNIT            GO GET A UNIT (DCT)                  V0112000
                            00AF0  1618 VNOUNIT  EQU   *                                                        V0114000

                                   1619          $WAIT UNIT                WAIT FOR A UNIT (DCT)                V0116000
000AF0 9608 D048      00048        1620+         OI    PCEEWF+$EWBUNIT,$EWFUNIT                                 WA016000
000AF4 45F0 B030      00030        1621+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                            00AF8  1622 VGETUNIT EQU   *                                                        V0118000
                                   1623          $GETUNIT DA,VNOUNIT,OLAY=YES GET DIRECT-ACCESS DCT             V0120000
000AF8 4110 0000      00000        1624+         LA    R1,DCTDA                                                 DG012000
000AFC 45E0 B040      00040        1625+         BAL   LINK,$GETUNIT       LINK TO CONTROL SERVICE PROGRAM      GU010000
MISC     HASP PURGE PROCESSOR                                                                                  PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000B00 4780 8080      00AF0        1626+         BC    8,VNOUNIT                                                NP008000
000B04 1831                        1627          LR    WB,R1               PUT DCT ADDR IN WB                   V0122000
                            00000  1628          USING DCTDSECT,WB                                              V0124000

000B06 47F0 80A2      00B12        1629          B     VGETBUF             GO GET A BUFFER                      V0126000

                            00B0A  1630 VNOBUF   EQU   *                                                        V0128000
                                   1631          $WAIT BUF                 WAIT FOR A BUFFER                    V0130000

000B0A 9640 D048      00048        1632+         OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000
000B0E 45F0 B030      00030        1633+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                            00B12  1634 VGETBUF  EQU   *                                                        V0132000
                                   1635          $GETBUF VNOBUF,OLAY=YES   GET A BUFFER FOR JCT                 V0134000
000B12 45E0 B034      00034        1636+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
000B16 4780 809A      00B0A        1637+         BC    8,VNOBUF                                                 NP008000
000B1A 18A1                        1638          LR    JCT,R1              SAVE JCT BUFFER ADDR IN JCT REGISTER V0136000
000B1C 50A0 3004      00004        1639          ST    JCT,DCTBUFAD        PUT JCT BUFFER ADDR IN DCT           V0138000
000B20 D203 3008 2008 00008 00008  1640          MVC   DCTSEEK,QUETRAK(WA) PUT JCT SEEK ADDR IN DCT             V0140000
000B26 9280 3013      00013        1641          MVI   DCTIOTYP,DCTREAD    PUT READ OPERATION CODE IN DCT       V0142000
000B2A 4110 D049      00049        1642          LA    R1,PCEEWF+$EWBIO    PUT PCE EVENT WAIT FIELD ADDR IN DCT V0144000
000B2E 5010 300C      0000C        1643          ST    R1,DCTEWF           FOR READING THE JCT INTO ITS BUFFER  V0146000

                                   1644          $EXCP (WB),OLAY=YES       READ JCT                             V0148000
000B32 1813                        1645+         LR    R1,WB                                                    DG018000

000B34 45E0 B06C      0006C        1646+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000

                                   1647 VWAIT    NULL                                                           V0150000
000B38                             1648+VWAIT    DS    0H                                                       NU006000
                                   1649          $WAIT IO                  WAIT FOR JCT TO BE READ INTO BUFFER  V0152000
000B38 9640 D049      00049        1650+         OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
000B3C 45F0 B030      00030        1651+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000B40 917F A028      00028        1652          TM    BUFECBCC-BUFDSECT(JCT),X'7F' WAS THE READ SUCCESSFULL    V0154000
000B44 4780 80C8      00B38        1653          BC    8,VWAIT             NO, GO WAIT AGAIN                    V0156000
000B48 4710 80F6      00B66        1654          BC    1,VNOERROR          YES, GO CONTINUE PROCESSING          V0158000
                                   1655          $IOERROR (JCT),OLAY=YES   INDICATE JCT READ ERROR              V0160000
000B4C 181A                        1656+         LR    R1,JCT                                                   DG018000
000B4E 41E0 80E8      00B58        1657+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
000B52 1FE8                        1658+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000

000B54 47F0 B0B4      000B4        1659+         B     $IOERROR            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   1660 VERROR   $DISTERR OLAY=YES         INDICATE DISASTROUS ERROR            V0162000
000B58 41E0 80F2      00B62        1661+VERROR   LA    LINK,*+10           SET UP LINK REGISTER                 BA014000

000B5C 1FE8                        1662+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
000B5E 47F0 B0BC      000BC        1663+         B     $DISTERR            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
000B62 47F0 8212      00C82        1664          B     VREMJOB             GO REMOVE THE JOB'S QUEUE ELEMENT    V0164000
000B66 5810 A058      00058        1665 VNOERROR L     R1,JCTJQE           TEST FOR VALID JCT - ADD DISP.       V0166000
000B6A 5A10 B13C      0013C        1666          A     R1,$JOBQPTR         TO ADDR OF BEGINNING                 V0166500
000B6E 1912                        1667          CR    R1,WA               COMPARE TO PRESENT JQE ADDR.         V0167000
000B70 4770 80E8      00B58        1668          BNE   VERROR              INVALID JCT                          V0167500
000B74 47F0 8110      00B80        1669          B     VGETIOT                                                  V0168500
                            00000  1670          USING IOTDSECT,WD                                              V0169000
                                   1671 VNOIOT   NULL                                                           V0169500
000B78                             1672+VNOIOT   DS    0H                                                       NU006000
                                   1673         $WAIT  BUF                                                      V0170000

000B78 9640 D048      00048        1674+         OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000
000B7C 45F0 B030      00030        1675+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                                   1676 VGETIOT  NULL                                                           V0170500
000B80                             1677+VGETIOT  DS    0H                                                       NU006000

                                   1678         $GETBUF VNOIOT,OLAY=YES    GET A BUFFER FOR IOT(S)              V0171000
000B80 45E0 B034      00034        1679+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
000B84 4780 8108      00B78        1680+         BC    8,VNOIOT                                                 NP008000
MISC     HASP PURGE PROCESSOR                                                                                  PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000B88 1851                        1681          LR    WD,R1               SAVE IOT BUFFER ADDRESS.             V0171500

000B8A 5010 3004      00004        1682          ST    R1,DCTBUFAD         PUT IOT BUFFER ADDR. IN DCT          V0172000
000B8E D203 3008 A05C 00008 0005C  1683          MVC   DCTSEEK,JCTIOTTR    PUT IOT SEEK ADDR IN DCT             V0172500
                                   1684 VREADIOT NULL                                                           V0173000
000B94                             1685+VREADIOT DS    0H                                                       NU006000
                                   1686         $EXCP  (WB),OLAY=YES       REAT IOT                             V0173500
000B94 1813                        1687+         LR    R1,WB                                                    DG018000
000B96 45E0 B06C      0006C        1688+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
                                   1689 VWAITIOT NULL                                                           V0174000

000B9A                             1690+VWAITIOT DS    0H                                                       NU006000
                                   1691         $WAIT  IO                  WAIT FOR IOT TO BE READ INTO BUFFER  V0174500

000B9A 9640 D049      00049        1692+         OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
000B9E 45F0 B030      00030        1693+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000BA2 917F 5028      00028        1694          TM    BUFECBCC-BUFDSECT(WD),X'7F' WAS THE READ SUCCESSFUL      V0175000
000BA6 4780 812A      00B9A        1695          BC    8,VWAITIOT          NO, GO WAIT AGAIN                    V0175500
                                   1696         $PURGE JCTCYSAV,OLAY=YES   FREE JOB'S INPUT TRACKS      OY07275 V0175600
000BAA 4110 A104      00104        1697+         LA    R1,JCTCYSAV                                              DG012000
000BAE 45E0 B068      00068        1698+         BAL   LINK,$PURGER        LINK TO CONTROL SERVICE PROGRAM      PU010000
000BB2 917F 5028      00028        1699          TM    BUFECBCC-BUFDSECT(WD),X'7F' IOT READ ERRORS?     OY07275 V0175800

000BB6 4710 815A      00BCA        1700          BO    VNOIOTER            NO, CONTINUE PROCESSING      OY07275 V0176000
                                   1701         $IOERROR (WD),OLAY=YES     INDICATE IOT READ ERROR              V0176500
000BBA 1815                        1702+         LR    R1,WD                                                    DG018000
000BBC 41E0 8156      00BC6        1703+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
000BC0 1FE8                        1704+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000

000BC2 47F0 B0B4      000B4        1705+         B     $IOERROR            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
000BC6 47F0 8164      00BD4        1706          B     VDSTER              INDICATE DISASTROUS ERROR            V0177000
000BCA D503 5064 2008 00064 00008  1707 VNOIOTER CLC   IOTJCTTR,QUETRAK(WA)     TEST FOR VALID IOT              V0177500

000BD0 4780 8172      00BE2        1708          BE    VPRGCYL             IF VALID, FREE OUTPUT CYLINDERS      V0178000
                                   1709 VDSTER   NULL                                                           V0178500
000BD4                             1710+VDSTER   DS    0H                                                       NU006000
                                   1711         $DISTERR OLAY=YES          IF INVALID, INDICATE DISASTER ERR    V0179000
000BD4 41E0 816E      00BDE        1712+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
000BD8 1FE8                        1713+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
000BDA 47F0 B0BC      000BC        1714+         B     $DISTERR            BRANCH TO CONTROL SERVICE PROGRAM    BA018000

000BDE 47F0 817A      00BEA        1715          B     VSMFPRG             WRITE SMF PURGE RECORD ANYWAY        V0179500
                                   1716 VPRGCYL  NULL                                                           V0180000
000BE2                             1717+VPRGCYL  DS    0H                                                       NU006000
                                   1718         $PURGE IOTCYMAP,OLAY=YES FREE JOB'S OUTPUT TRACKS               V0180500
000BE2 4110 5070      00070        1719+         LA    R1,IOTCYMAP                                              DG012000

000BE6 45E0 B068      00068        1720+         BAL   LINK,$PURGER        LINK TO CONTROL SERVICE PROGRAM      PU010000
                                   1721 VSMFPRG  NULL                                                           V0183000
000BEA                             1722+VSMFPRG  DS    0H                                                       NU006000
                                   1723          AIF   (&NUMSMFB LT 2).VNOSMF                                   V0183500

                            00000  1724          USING SMFDSECT,R1                                              V0184000
                                   1725         $GETSMFB WAIT=YES,OLAY=YES OBTAIN JMR BUFFER ADDRESS            V0184500
000BEA 4110 0001      00001        1726+         LA    R1,1                WAIT FOR SMF IF NECESSARY            GM008000
000BEE 41E0 8188      00BF8        1727+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
000BF2 1FE8                        1728+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
000BF4 47F0 B0A8      000A8        1729+         B     $GETSMFB            BRANCH TO CONTROL SERVICE PROGRAM    BA018000

000BF8 9120 A215      00215        1730          TM    JCTINDC,JCTJMRUX    SHOULD USER EXITS BE TAKEN           V0184700
000BFC 4780 81AA      00C1A        1731          BZ    VCRE826             NO, DO NOT SAVE JMR                  V0184900
000C00 D237 100C A1F8 0000C 001F8  1732          MVC   SMFJMR,JCTJMR       PUT COMMON EXIT PARM. LIST IN BUFFER V0185000
000C06 92FF 1004      00004        1733          MVI   SMFTYPE,SMFJMRTP    JMR BUFFER ID                        V0185500
000C0A 1841                        1734          LR    WC,R1               SAVE BUFFER ADDR. FOR PURGE REC      V0186000

                                   1735         $GETSMFB WAIT=YES,OLAY=YES OBTAIN PURGE REC. BUF ADDR.          V0186500
MISC     HASP PURGE PROCESSOR                                                                                  PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000C0C 4110 0001      00001        1736+         LA    R1,1                WAIT FOR SMF IF NECESSARY            GM008000
000C10 41E0 81AA      00C1A        1737+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000

000C14 1FE8                        1738+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
000C16 47F0 B0A8      000A8        1739+         B     $GETSMFB            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
000C1A 9200 1008      00008        1740 VCRE826  MVI   SMFRDW,0            CLEAR RECORD AREA                    V0187000
000C1E D2E2 1009 1008 00009 00008  1741          MVC   SMFRDW+1(SMF26END-SMFRDW-1),SMFRDW                       V0187500
000C24 D20F 101A A1F8 0001A 001F8  1742          MVC   SMF26JBN(SMFSIZE1),JCTJMRJN   GATHER PURGE RECORD INTO   V0188000

000C2A D207 102A A20C 0002A 0020C  1743          MVC   SMF26UIF,JCTUSEID         SMF BUFFER - HEADER            V0188500
000C30 D251 103E A06A 0003E 0006A  1744          MVC   SMF26RV1+2(JCTPUOUT+L'JCTPUOUT-JCTPURGE),JCTPURGE        V0189000
000C36 D207 1094 A220 00094 00220  1745          MVC   SMF26RPT(SMFSIZE3),JCTRDROF        TIME/DATE OFF READER  V0189500
000C3C D21F 10AC A0BC 000AC 000BC  1746          MVC   SMF26XST(JCTODTOF+L'JCTODTOF-JCTXEQON),JCTXEQON          V0189700
000C42 D21B 10D0 A0DC 000D0 000DC  1747          MVC   SMF26ICD(JCTPUNCT+L'JCTPUNCT-JCTCARDS),JCTCARDS          V0190000

000C48 9108 2004      00004        1748          TM    QUEFLAGS(WA),QUEOPCAN    DID OPERATOR ISSUE $C OR $P     V0190500
000C4C 4780 81E4      00C54        1749          BZ    VSMFREC                                                  V0191000
000C50 9601 103F      0003F        1750          OI    SMF26INF,SMFOPCAN   INDICATE OPERATOR CANCELLED JOB      V0191500
                                   1751 VSMFREC  NULL                                                           V0192000
000C54                             1752+VSMFREC  DS    0H                                                       NU006000
000C54 92E4 1009      00009        1753          MVI   SMFRDW+1,SMF26END-SMFRDW      SIZE OF PURGE RECORD       V0192500

000C58 9256 103B      0003B        1754          MVI   SMF26LN1+1,SMF26PUR+L'SMF26PUR-SMF26LN1 DESC LGTH        V0192600
000C5C 923C 1091      00091        1755          MVI   SMF26LN2+1,SMF26OPD+L'SMF26OPD-SMF26LN2 EVENTS LGTH      V0192700
000C60 9220 10CD      000CD        1756          MVI   SMF26LN3+1,SMF26END-SMF26LN3    ACTUALS LENGTH           V0192800
000C64 921A 100D      0000D        1757          MVI   SMFHDRTY,SMFPRGTP   IDENTIFY PURGE RECORD TYPE           V0193000

000C68 9202 1037      00037        1758          MVI   SMF26SBS+1,SMFHSPID HASP SUBSYSTEM ID                    V0193100
000C6C 92E0 1038      00038        1759          MVI   SMF26IND,X'E0'      SECTION EXISTENCE IDENTIFIER         V0193200
000C70 9120 A215      00215        1760          TM    JCTINDC,JCTJMRUX    SHOULD USER EXITS BE TAKEN           V0193300
000C74 4780 820E      00C7E        1761          BZ    VQUE                NO, THEN DONT CHAIN BUFFERS          V0193400
000C78 5014 0008      00008        1762          ST    R1,JMRCHAIN-SMFDSECT(WC) PUT PURGE BUF ADDR IN JMR BUF   V0193500

000C7C 1814                        1763          LR    R1,WC               PUT JMR IN SMF BUFFER BUSY           V0194000
                                   1764 VQUE    $QUESMFB OLAY=YES          QUEUE BUFFER(S) FOR WRITING          V0194500
000C7E 45E0 B0A4      000A4        1765+VQUE     BAL   LINK,$QUESMFB                                            QM006000
                                   1766          DROP  R1                                                       V0195000
                                   1767 .VNOSMF  ANOP                                                           V0195500
                                   1768          DROP  WD                                                       V0196000
                                   1769 VREMJOB  NULL                                                           V0210000

000C82                             1770+VREMJOB  DS    0H                                                       NU006000
000C82 1812                        1771          LR    R1,WA               PUT QUEUE ELEMENT ADDR IN R1         V0212000
                                   1772          $QREM (R1),OLAY=YES       REMOVE JOB FROM SYSTEM               V0214000

000C84 41E0 821E      00C8E        1773+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
000C88 1FE8                        1774+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
000C8A 47F0 B054      00054        1775+         B     $QREM               BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   1776 *                                  FROM THE PURGE QUEUE                 V0216000
                                   1777 VWTO     $WTO  VPRGMSG,L'VPRGMSG,WAIT=NO, INDICATE PURGED JOB          CV0218000

                                                       ROUTE=$LOG+$UR,CLASS=$TRIVIA,PRI=$ST,JOB=YES             V0220000
000C8E 4110 826C      00CDC        1778+VWTO     LA    R1,VPRGMSG                                               DG012000
000C92 0700                        1779+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
000C94 5800 822C      00C9C        1780+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
000C98 45E0 B098      00098        1781+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
000C9C 06050914                    1782+         DC    AL1(6,$LOG+$UR,L'VPRGMSG,$TRIVIA+$ST)                    WT044000
000CA0 4770 8240      00CB0        1783          BNZ   VWTOOK              BR IF WTO ACCEPTED                   V0222000
                                   1784          $WAIT CMB                 OTHERWISE WAIT FOR MESSAGE BUFFER    V0224000

000CA4 9602 D048      00048        1785+         OI    PCEEWF+$EWBCMB,$EWFCMB                                   WA016000
000CA8 45F0 B030      00030        1786+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

000CAC 47F0 821E      00C8E        1787          B     VWTO                AND TRY AGAIN                        V0226000
                                   1788 VWTOOK   NULL  *                   WTO ACCEPTED                         V0228000
000CB0                             1789+VWTOOK   DS    0H                                                       NU006000
MISC     HASP PURGE PROCESSOR                                                                                  PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000CB0 181A                        1790          LR    R1,JCT              PUT JCT ADDR IN R1                   V0230000
                                   1791          $FREEBUF (R1),OLAY=YES    FREE JCT BUFFER                      V0232000
000CB2 45E0 B03C      0003C        1792+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
000CB6 1BAA                        1793          SR    JCT,JCT             ZERO JCT REG TO INDICATE NO JOB      V0234000
000CB8 1215                        1794          LTR   R1,WD               PUT IOT BUF. ADDR. IN R1             V0234500
000CBA 4780 8252      00CC2        1795          BZ    VFREEDCT            BRANCH IF NO IOT BUF GOTTEN          V0234700
                                   1796         $FREEBUF (R1),OLAY=YES     FREE IOT BUFFER                      V0235000
000CBE 45E0 B03C      0003C        1797+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000

                                   1798          DROP  WB                  KILL DCT ADDRESSABILITY              V0236000
                                   1799 VFREEDCT NULL                                                           V0237000

000CC2                             1800+VFREEDCT DS    0H                                                       NU006000
                                   1801          $FREUNIT (WB),OLAY=YES    FREE DCT                             V0238000
000CC2 1813                        1802+         LR    R1,WB                                                    DG018000
000CC4 41E0 825E      00CCE        1803+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
000CC8 1FE8                        1804+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000

000CCA 47F0 B044      00044        1805+         B     $FREUNIT            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   1806          $DORMANT                  TELL SPOOL SYSTEM THAT THE PURGE     V0240000
000CCE 4310 B0C7      000C7        1807+         IC    R1,$ACTIVE          INDICATE                             DO006000
000CD2 0610                        1808+         BCTR  R1,0                 PROCESSOR                           DO008000
000CD4 4210 B0C7      000C7        1809+         STC   R1,$ACTIVE            INACTIVE                           DO010000
                                   1810 *                                  PROCESSOR IS NOT ACTIVE              V0242000
000CD8 47F0 8060      00AD0        1811          B     HASPVPUR            GET NEXT JOB TO PURGE                V0244000
000CDC C9E240D7E4D9C7C5            1812 VPRGMSG  DC    C'IS PURGED'                                             V0246000
                                   1813 VNOJOB   NULL                      NO JOB EXIT                          V0248000

000CE6                             1814+VNOJOB   DS    0H                                                       NU006000

                                   1815          $WAIT JOB                 WAIT FOR ANOTHER                     V0250000
000CE6 9610 D048      00048        1816+         OI    PCEEWF+$EWBJOB,$EWFJOB                                   WA016000
000CEA 45F0 B030      00030        1817+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000CEE 47F0 8060      00AD0        1818          B     HASPVPUR            AND TRY AGAIN                        V0252000
                            00010  1819 SMFSIZE1 EQU   JCTCPUID-JCTJMRJN   LENGTH OF JOB NAME AND TIME          V0253200

                            00008  1820 SMFSIZE3 EQU   JCTJOBIN-JCTRDROF   LENGTH OF RDR OFF TIME-DATE          V0253600
                                   1821          DROP  BASE3               KILL OVERLAY ADDR                    V0254000
000008                             1822 HASPMISC CSECT                     RETURN TO BASE2                      V0256000
000008                             1823          DS    0D             PURGE PROCESSOR RESIDENT LITERAL POOL     V0258000
000008                             1824          LTORG                                                          V0260000
                                   1825          AIF   (&SYSVS2).XZEXIT                                    RFIT V0261000
                                   1826          AIF   (&MAXXEQS LT 2 OR &MONINTV EQ 0).XZEXIT             RFIT V0262000
                                   1827 .XZEXIT  ANOP                                                      RFIT V0698000
MISC     HASP CHECKPOINT PROCESSOR                                                                             PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   1829 *                                                                       V0702000

                                   1830 *              HASP CHECKPOINT PROCESSOR                                V0704000
                                   1831 *                                                                       V0706000
                                   1832 *                                  CHECKPOINT REGISTER EQUATES          V0714000
                            00004  1833 KDCT     EQU   WC                  DEVICE POINTER                       V0716000

                            00005  1834 KBUF     EQU   WD                  CHECKPOINT BUFFER POINTER            V0718000
                                   1835 *                                                                       V0720000
                                   1836 HASPCKPT NULL                      FIRST TIME ENTRY POINT               V0722000
000008                             1837+HASPCKPT DS    0H                                                       NU006000
                            00008  1838          USING *,BASE2             SET UP BY HASP                       V0724000
                                   1839          $LINK HASPKCP             ENTER CHECKPOINT OVERLAY             V0726000
000000                             1840+HA$QKCP  DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
000008                             1841+HASPMISC CSECT                                                          OL014000
000008 41E00000                    1842+         DC    Y(X'4100'+LINK*16),QL2(HA$QKCP) LOAD OCON INTO LINK      OL016000
00000C 45F0 B08C      0008C        1843+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000
                                   1844 *                                  RETURN IS NOT EXPECTED               V0728000

                                   1845 HASPKCP  $OVERLAY &HIGH,&HIGH      CHECKPOINT PROCESSOR                 V0730000
000CF8                             1846+HA$OKCP  CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            00D04  1847+HA$IKCP  EQU   HA$OKCP+12          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   1848+         ENTRY HA$IKCP                                                  OV036000

000CF8 D2C3D740                    1849+         DC    CL4'KCP'            IDENTIFY MODULE ON CORE DUMP         OV038000
000CFC 00000CF8                    1850+         DC    A(HA$OKCP)          ASSEMBLY ORIGIN                      OV040000
000D00                             1851+HASPKCP  DS    0F                  ENTRY POINT                          OV042000
                            00CA0  1852+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                                   1853 *                                                                       V0730500
                                   1854 *              INITIALIZATION - EXECUTED ONLY ONCE                      V0731000
                                   1855 *                                                                       V0731500
                                   1856 K1       $GETUNIT DA,OLAY=YES      FOR CHECKPOINT WRITE                 V0732000
000D00 4110 0000      00000        1857+K1       LA    R1,DCTDA                                                 DG012000
000D04 45E0 B040      00040        1858+         BAL   LINK,$GETUNIT       LINK TO CONTROL SERVICE PROGRAM      GU010000
000D08 4770 8078      00D18        1859          BNZ   K2                  BR IF GOTTEN                         V0734000
                                   1860          $WAIT UNIT                OR                                   V0736000

000D0C 9608 D048      00048        1861+         OI    PCEEWF+$EWBUNIT,$EWFUNIT                                 WA016000
000D10 45F0 B030      00030        1862+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000D14 47F0 8060      00D00        1863          B     K1                  TRY AGAIN                            V0738000

                            00000  1864          USING DCTDSECT,KDCT       *                                    V0740000
                                   1865 K2       NULL                      *                                    V0742000
000D18                             1866+K2       DS    0H                                                       NU006000
000D18 1841                        1867          LR    KDCT,R1             SAVE UNIT                            V0744000
000D1A 4120 D049      00049        1868          LA    WA,PCEEWF+$EWBIO    CHECKPOINT EWF                       V0746000
000D1E 5020 400C      0000C        1869          ST    WA,DCTEWF           TO UNIT                              V0748000
000D22 9240 4013      00013        1870          MVI   DCTIOTYP,DCTWRITE   SET WRITE                            V0750000
000D26 9200 4008      00008        1871          MVI   DCTSEEK,0           AND MODULE                           V0752000
000D2A D201 4009 B0D0 00009 000D0  1872          MVC   DCTSEEK+1(2),$CKPTRAK  AND TRACK                         V0754000
000D30 9201 400B      0000B        1873          MVI   DCTSEEK+3,1         AND RECORD                           V0756000
000D34 4150 C020      00028        1874          LA    KBUF,$JOBQBUF       AND                                  V0758000
000D38 5050 4004      00004        1875          ST    KBUF,DCTBUFAD       BUFFER                               V0760000

                            00000  1876          USING BUFDSECT,KBUF       *                                    V0762000

000D3C 4120 D049      00049        1877          LA    WA,PCEEWF+$EWBWORK  ADDRESS OF TIMER POST BIT            V0766000
000D40 5020 C010      00018        1878          ST    WA,KSTQE+IPOST      TO STQE                              V0768000

000D44 4120 C0E8      000F0        1879          LA    WA,$JOBQUE          BEGINNING OF CHECKPOINT DATA         V0772000
000D48 5A20 817C      00E1C        1880          A     WA,KJQSIZE          SKIP JOB QUEUE                       V0774000
000D4C 47F0 80B8      00D58        1881          B     KCHECK              GO CHECK POINT                       V0776000
                                   1882 *                                                                       V0776500
                                   1883 *              CHECKPOINT PROCESSING STARTS HERE                        V0777000
MISC     HASP CHECKPOINT PROCESSOR                                                                             PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1884 *                                                                       V0777500
                                   1885 KWAIT    $WAIT WORK                WAIT FOR NEXT JOB MOVEMENT           V0778000
000D50 9620 D049      00049        1886+KWAIT    OI    PCEEWF+$EWBWORK,$EWFWORK                                 WA016000
000D54 45F0 B030      00030        1887+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                                   1888 KCHECK   NULL                      MAIN ENTRY POINT                     V0780000

000D58                             1889+KCHECK   DS    0H                                                       NU006000
                                   1890          $TRACE                    COUNT CHECKPOINT ENTRIES             V0782000

                                   1891 *                                                                       V0784000

                                   1892 *              CHECKPOINT 1 (HASP JOB QUEUE) ---                        V0786000
                                   1893 *                                                                       V0788000
000D58 D21F 2000 B13C 00000 0013C  1894          MVC   0($SAVELEN,WA),$SAVEBEG  MOVE SAVE AREA FOR CKPT.        V0790000
000D5E 4100 2020      00020        1895          LA    R0,$SAVELEN(,WA)    R0 = ADDRESS (IN CHKPT REC)          V0792000
                                   1896          LH    R1,=Y(&NUMPRC*PRCSIZE)  OF PRPU CHKPT, R1 = SIZE         V0793000
000D62 4810 C018      00020        1897+         LH    R1,=Y(3*PRCSIZE)        OF PRPU CHKPT, R1 = SIZE         V0793000
000D66 58E0 B124      00124        1898          L     R14,$PRCHKPT        R14 = ADDRESS OF PRPU CHKPT          V0794000
000D6A 18F1                        1899          LR    R15,R1              R15 = SIZE                           V0795000
                                   1900 *        MVCL  R0,R14              MOVE PRPU CHKPT TO CHKPT REC    RFIT V0796000
000D6C 1810                        1901          LR    R1,R0                                               RFIT V0796005
                                   1902 &PRCPRC  SETA  &NUMPRC*28  THIS VALUE MUST BE CHANGED IF PRT CKPT  RFIT V0796010
                                   1903 *                             IS EVER EXPANDED        .......C     RFIT V0796015

                                   1904          $XXC  MVC,(0,R1),(0,R14),&PRCPRC                          RFIT V0796020
000D6E D253 1000 E000 00000 00000  1905+         MVC   0+0(84,R1),0+0(R14)                                      XX050000
000D74 9610 B0C2      000C2        1906          OI    $STATUS,$CKPTACT    SHOW CHECKPOINT ACTIVE.              V0798000

                                   1907 *                                                                       V0800000
                                   1908 *              CHECKPOINT 2 (JOB INFORMATION TABLE) ---                 V0802000
                                   1909 *                                                                       V0804000
000D78 D207 C078 C0B8 00080 000C0  1910          MVC   $JITCCW,$JITCCW0    ASSUME NO JIT CKPT REQ'D.            V0806000
000D7E 9108 B0C2      000C2        1911          TM    $STATUS,$JITCKPT    IS JIT CHECKPOINT REQUIRED...        V0808000
000D82 4780 80F0      00D90        1912          BZ    KJOT                BRANCH IF NOT.                       V0810000
000D86 94F7 B0C2      000C2        1913          NI    $STATUS,255-$JITCKPT  YES.  RESET JIT CKPT SWITCH.       V0812000
000D8A D207 C078 C0C0 00080 000C8  1914          MVC   $JITCCW,$JITCCW1    CAUSE JIT TO CHECKPOINT.             V0814000
                                   1915 *                                                                       V0816000
                                   1916 *              CHECKPOINT 3 (JOB OUTPUT TABLE) ---                      V0818000
                                   1917 *                                                                       V0820000
000D90 D207 C098 C0C8 000A0 000D0  1918 KJOT     MVC   $JOTCCW,$JOTCCW0    ASSUME NO JOT CKPT REQ'D.            V0822000

000D96 9102 B0C2      000C2        1919          TM    $STATUS,$JOTCKPT    IS JOT CHECKPOINT REQUIRED...        V0824000
000D9A 4780 8108      00DA8        1920          BZ    KEXCP               BRANCH IF NOT.                       V0826000
000D9E 94FD B0C2      000C2        1921          NI    $STATUS,255-$JOTCKPT  YES.  RESET JOT CKPT SWITCH.       V0828000
000DA2 D207 C098 C0D0 000A0 000D8  1922          MVC   $JOTCCW,$JOTCCW1    CAUSE JOT TO CHECKPOINT.             V0830000

                                   1923 *                                                                       V0832000
                                   1924 *              WRITE THE CHECKPOINT RECORDS                             V0834000
                                   1925 *                                                                       V0836000
000DA8                             1926 KEXCP    DS    0H                  ISSUE $EXCP TO START WRITE.          V0838000
                                   1927          $EXCP (KDCT),OLAY=YES     WRITE THE RECORD                     V0900000
000DA8 1814                        1928+         LR    R1,KDCT                                                  DG018000

000DAA 45E0 B06C      0006C        1929+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
                                   1930 KIOWAIT  $WAIT IO                  WAIT FOR COMPLETION                  V0902000
000DAE 9640 D049      00049        1931+KIOWAIT  OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
000DB2 45F0 B030      00030        1932+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000DB6 917F 5028      00028        1933          TM    BUFECBCC,X'7F'      DID IT COMPLETE...                   V0904000
000DBA 4780 810E      00DAE        1934          BZ    KIOWAIT             BR IF NO TO WAIT SOME MORE           V0906000
000DBE 94EF B0C2      000C2        1935          NI    $STATUS,255-$CKPTACT INDICATE CHECKPOINT INACTIVE        V0908000
                                   1936          $POST $HASPECF,CKPT       ALLOW PROCESSORS TO CONTINUE         V0910000

000DC2 94FB B0C4      000C4        1937+         NI    $HASPECF,255-$EWFCKPT                                    PO008000
                                   1938          $TTIMER KSTQE,CANCEL,OLAY=YES TURN OFF CLOCK IF ON             V0912000

MISC     HASP CHECKPOINT PROCESSOR                                                                             PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000DC6 4110 C008      00010        1939+         LA    R1,KSTQE                                                 DG012000
000DCA 1311                        1940+         LCR   R1,R1               COMPLEMENT TO INDICATE 'CANCEL'      TT022000
000DCC 45E0 B0B0      000B0        1941+         BAL   LINK,$TTIMER        LINK TO CONTROL SERVICE PROGRAM      TT024000
                                   1942          AIF   (NOT &TIMER).KNOTIM2                                     V0914000
000DD0 4110 003C      0003C        1943          LA    R1,$CKPTIME         CHECKPOINT TIME INTERVAL             V0916000
000DD4 5010 C00C      00014        1944          ST    R1,KSTQE+ITIME      TO STQE                              V0918000

                                   1945          $STIMER KSTQE,OLAY=YES    RESET TO CHECKPOINT INTERVAL         V0920000
000DD8 4110 C008      00010        1946+         LA    R1,KSTQE                                                 DG012000
000DDC 45E0 B0AC      000AC        1947+         BAL   LINK,$STIMER        LINK TO CONTROL SERVICE PROGRAM      ST020000
                                   1948 .KNOTIM2 ANOP                      *                                    V0922000
000DE0 917F 5028      00028        1949          TM    BUFECBCC,X'7F'                                           V0924000

000DE4 4710 80B0      00D50        1950          BC    1,KWAIT                                                  V0926000
                                   1951          $IOERROR (KBUF),OLAY=YES  I/O ERROR ON CHECKPOINT              V0928000
000DE8 1815                        1952+         LR    R1,KBUF                                                  DG018000

000DEA 41E0 8154      00DF4        1953+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
000DEE 1FE8                        1954+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
000DF0 47F0 B0B4      000B4        1955+         B     $IOERROR            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   1956 KWTO     $WTO  KM,L'KM,JOB=NO,WAIT=NO,  DISASTROUS ERROR DURING        CV0930000
                                                       ROUTE=$LOG+$ERR,PRI=$HI,CLASS=$ALWAYS   CHECKPOINT       V0932000
000DF4 4110 8180      00E20        1957+KWTO     LA    R1,KM                                                    DG012000
000DF8                             1958+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000

000DF8 5800 8160      00E00        1959+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
000DFC 45E0 B098      00098        1960+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
000E00 04033177                    1961+         DC    AL1(4,$LOG+$ERR,L'KM,$ALWAYS+$HI)                        WT044000
000E04 4770 8174      00E14        1962          BNZ   KWTOOK              BR IF MESSAGE ACCEPTED               V0934000
                                   1963          $WAIT CMB                 OTHERWISE WAIT                       V0936000

000E08 9602 D048      00048        1964+         OI    PCEEWF+$EWBCMB,$EWFCMB                                   WA016000
000E0C 45F0 B030      00030        1965+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000E10 47F0 8154      00DF4        1966          B     KWTO                 AND TRY AGAIN                       V0938000
                                   1967 KWTOOK   NULL  *                   WTO ACCEPTED                         V0940000

000E14                             1968+KWTOOK   DS    0H                                                       NU006000
                                   1969 *    INSERT CODE HERE TO DRAIN SYSTEM                                   V0942000
                                   1970 *                                                                       V0944000
                                   1971          $WAIT OPER                ENTER PERMANENT WAIT                 V0946000
000E14 9680 D049      00049        1972+         OI    PCEEWF+$EWBOPER,$EWFOPER                                 WA016000
000E18 45F0 B030      00030        1973+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

                                   1974 KJQSIZE  DC    A(&QENTSIZ*&MAXJOBS) JOB QUEUE SIZE CONSTANT             V0948000
000E1C 00000640                    1975+KJQSIZE  DC    A(16*100)            JOB QUEUE SIZE CONSTANT             V0948000
000E20 C4C9E2C1E2E3D9D6            1976 KM       DC    C'DISASTROUS ERROR DURING CHECKPOINT - RESTART ASAP'     V0950000
                                   1977          DROP  BASE3               *                                    V0952000
000010                             1978 HASPMISC CSECT                     RESUME BASE2                         V0954000

                                   1979          AIF   (NOT &TIMER).KNOTIM3                                     V0956000
000010 000000000000003C            1980 KSTQE    DC    A(0,$CKPTIME,0)     SPOOL TIMER QUEUE ELEMENT            V0958000
                                   1981 .KNOTIM3 ANOP                                                           V0960000
                                   1982          DROP  KDCT,KBUF           *                                    V0962000




000020                             1984          DS    0D             CHECKPOINT RESIDENT LITERAL POOL          V0966000
000020                             1985          LTORG                                                          V0968000
000020 0054                        1986                =Y(3*PRCSIZE)
MISC     HASP JOB QUEUE                                                                                        PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   1988 *                                                                       V0972000
                                   1989 *                             IOB FOR CHECKPOINT RECORD                 V0974000
                                   1990 *                                                                       V0976000



000028                             1992 $JOBQBUF DS    0D                  CHECKPOINT IOB                       V0980000

000028 42000000                    1993          DC    X'42000000'         IOB FLAGS AND SENSE BYTES            V0982000
00002C 00000000                    1994          DC    V($HASPECB)         COMPLETION CODE AND ECB ADDRESS      V0984000
000030 0000000000000000            1995          DC    XL8'00'             IOB FLAG AND CHANNEL STATUS WORD     V0986000
000038 00000060                    1996          DC    A($JOBQCCW)         ADDRESS OF CHANNEL PROGRAM           V0988000
00003C 00000000                    1997          DC    A(*-*)              ADDRESS OF DCB                       V0990000
000040 00000000                    1998          DC    A(*-*)              CHANNEL PROGRAM RESTART ADDRESS      V0992000

000044 00000000                    1999          DC    2H'0'               ERROR COUNTS                         V0994000
000048 0000000000000001            2000 $JOBQTRK DC    XL8'01'             SEEK ADDRESS                         V0996000
000050 00000000                    2001          DC    A(*-*)              BUFFER CHAIN FIELD                   V0998000
000054 00000000                    2002          DC    A(*-*)              ADDRESS OF DCT                       V1000000

000058 00000000                    2003          DC    A(*-*)              ADDRESS OF EVENT WAIT FIELD          V1002000
00005C 00000000                    2004          DC    A(0)                UNUSED                               V1004000
000060 0300006540000001            2005 $JOBQCCW CCW   X'03',*+5,X'40',1   SET SECTOR                           V1005000
000068 3100004B40000005            2006          CCW   X'31',$JOBQTRK+3,X'40',5  SEARCH JOBQ                    V1006000
000070 0800006800000001            2007          CCW   X'08',*-8,0,1       TIC *-8                              V1007000

000078 050000F0400006B4            2008          CCW   X'05',$JOBQUE,X'40',$JOBQEND-$JOBQUE  WRITE JOBQ         V1008000
000080                             2009 $JITCCW  DS    D                   EITHER SEEK OR TIC $JOTCCW           V1009000
000088 310000E240000005            2010          CCW   X'31',$JITTRAK+2,X'40',5  SEARCH JIT                     V1010000
000090 0800008800000001            2011          CCW   X'08',*-8,0,1       TIC *-8                              V1011000
                                   2012          CCW   X'05',$HASPJIT,X'40',&MAXJOBS*&JITSIZE  WRITE JIT        V1012000
000098 050007A840000320            2013+         CCW   X'05',$HASPJIT,X'40',100*8              WRITE JIT        V1012000
0000A0                             2014 $JOTCCW  DS    D                   EITHER SEEK OR NOP                   V1013000
0000A8 310000E940000005            2015          CCW   X'31',$JOTTRAK+2,X'40',5  SEARCH JOT                     V1014000
0000B0 080000A800000001            2016          CCW   X'08',*-8,0,1       TIC *-8                              V1015000
0000B8 0500000000000758            2017          CCW   X'05',$JOT,0,JOTSIZE  WRITE JOT                          V1016000
0000C0 080000A000000001            2018 $JITCCW0 CCW   X'08',$JOTCCW,0,1   CCW TO BYPASS JIT                    V1017000
0000C8 070000E040000006            2019 $JITCCW1 CCW   X'07',$JITTRAK,X'40',6  CCW TO SEEK JIT                  V1018000

0000D0 0300000020000001            2020 $JOTCCW0 CCW   X'03',0,X'20',1     CCW TO BYPASS JOT                    V1019000
0000D8 070000E740000006            2021 $JOTCCW1 CCW   X'07',$JOTTRAK,X'40',6  CCW TO SEEK JOT                  V1020000
                                   2022          ENTRY $JITTRAK,$JOTTRAK   FOR HASPINIT.                        V1022000

0000E0 00000000000001              2023 $JITTRAK DC    XL7'1'              BBCCHHR FOR JIT.                     V1024000
0000E7 00000000000001              2024 $JOTTRAK DC    XL7'1'              BBCCHHR FOR JOT.                     V1025000



0000F0                             2026 $JOBQUE  DS    0D                  HASP JOB QUEUE                       V1028000
                                   2027          DC    &MAXJOBS.XL&QENTSIZ'00'                                  V1030000
0000F0 0000000000000000            2028+         DC    100XL16'00'                                              V1030000
000730 0000000000000000            2029          DC    XL($SAVELEN)'00'    MISCELLANEOUS CHECKPOINT VARIABLES   V1034000

                                   2030          DC    &NUMPRC.XL(L'PRCSIZE)'0'  PRINTER CHECKPOINT             V1036000
000750 0000000000000000            2031+         DC    3XL(L'PRCSIZE)'0'         PRINTER CHECKPOINT             V1036000
                            007A4  2032 $JOBQEND EQU   *                   END OF CHECKPOINT RECORD             V1038000




                                   2034          ENTRY $HASPJIT                                                 V1044000
0007A8                             2035 $HASPJIT DS    0D                  HASP JOB INFORMATION TABLE           V1046000
                                   2036          DC    &MAXJOBS.XL&JITSIZE'00'                                  V1048000
MISC     HASP JOB QUEUE                                                                                        PAGE   58



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0007A8 0000000000000000            2037+         DC    100XL8'00'                                               V1048000
                                   2038          AIF   (&PRIRATE EQ 0).GNOPRAG                                  V1052000
                                   2039 .GNOPRAG ANOP                      *                                    V1148000



                                   2041 $DLENGTH $DLENGTH                  COMPUTE CONTROL SECTION LENGTH       V1152000
MISC     HASPMISC CONTROL SECTION LENGTH                                                                       PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78













000AC8                             2044+         DS    0D                  FILL OUT CONTROL SECTION             DN016000
                            00AC8  2045+$L       EQU   *-HASPMISC                                               DN018000
                            00000  2046+$L1      EQU   $L/100000*100000              COMPUTE                    DN020000

                            00000  2047+$L2      EQU   ($L-$L1)/10000*10000            INTERMEDIATE             DN022000
                            007D0  2048+$L3      EQU   ($L-$L1-$L2)/1000*1000            LENGTH                 DN024000
                            002BC  2049+$L4      EQU   ($L-$L1-$L2-$L3)/100*100            VALUES               DN026000
                            0003C  2050+$L5      EQU   ($L-$L1-$L2-$L3-$L4)/10*10                               DN028000
                            00000  2051+$L6      EQU   $L-$L1-$L2-$L3-$L4-$L5                                   DN030000





                                   2053+*                                                                       DN034000
                                   2054+*                                  DECIMAL LENGTH                       DN036000

                                   2055+*                                                                       DN038000




                            02760  2057+$DLENGTH EQU   $L1/100000*1048576+$L2/10000*65536+$L3/1000*4096+$L4/100CDN042000
                                       +               *256+$L5/10*16+$L6                                       DN044000






                                   2059          END                                                            V1154000
MISC                                              RELOCATION DICTIONARY                                        PAGE   60


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78

 0001     0001      0C     000038
 0001     0001      08     000061
 0001     0001      08     000069
 0001     0001      08     000071
 0001     0001      08     000079
 0001     0001      08     000089
 0001     0001      08     000091

 0001     0001      08     000099

 0001     0001      08     0000A9
 0001     0001      08     0000B1
 0001     0001      08     0000C1
 0001     0001      08     0000C9

 0001     0001      08     0000D9
 0001     0002      08     0000B9
 0001     0003      24     000002
 0001     0005      24     00000A
 0001     0007      1C     00002C
 0004     0004      0C     000ACC
 0006     0006      0C     000CFC

MISC                                              CROSS-REFERENCE                                              PAGE   61


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$ACTIVE  00001 000000C7 00635  01614 01616 01807 01809

$ALWAYS  00001 00000070 00425  01961
$CKPTACT 00001 00000010 00461  01906 01935
$CKPTIME 00001 0000003C 00211  01943 01980
$CKPTRAK 00002 000000D0 00642  01872

$DISTERR 00004 000000BC 00626  01663 01714
$ERR     00001 00000002 00408  01961
$EWBBUF  00001 00000000 00384  01632 01674
$EWBCMB  00001 00000000 00389  01785 01964
$EWBIO   00001 00000001 00394  01642 01650 01692 01868 01931
$EWBJOB  00001 00000000 00386  01816
$EWBOPER 00001 00000001 00393  01972
$EWBUNIT 00001 00000000 00387  01620 01861
$EWBWORK 00001 00000001 00395  01877 01886
$EWFBUF  00001 00000040 00361  01632 01674
$EWFCKPT 00001 00000004 00365  01937
$EWFCMB  00001 00000002 00366  01785 01964

$EWFIO   00001 00000040 00371  01650 01692 01931
$EWFJOB  00001 00000010 00363  01816
$EWFOPER 00001 00000080 00370  01972

$EWFUNIT 00001 00000008 00364  01620 01861
$EWFWORK 00001 00000020 00372  01886
$EXCP    00004 0000006C 00591  01646 01688 01929
$EXITNOP 00002 0000002C 00556  00551 00552
$FREEBUF 00004 0000003C 00567  01792 01797
$FREUNIT 00004 00000044 00572  01805
$GETBUF  00004 00000034 00565  01636 01679
$GETSMFB 00004 000000A8 00615  01729 01739
$GETUNIT 00004 00000040 00571  01625 01858
$HASPECF 00001 000000C4 00632  01937
$HASPJIT 00008 000007A8 02035  02013 02034
$HI      00001 00000007 00434  01961

$IOERROR 00004 000000B4 00624  01659 01705 01955

$IOTTEST 00001 00000722 01262  01263
$JCTTEST 00001 000005D0 01227  01228

$JITCCW  00008 00000080 02009  01910 01914
$JITCCW0 00008 000000C0 02018  01910
$JITCCW1 00008 000000C8 02019  01914
$JITCKPT 00001 00000008 00462  01911 01913
$JITTRAK 00007 000000E0 02023  02010 02019 02022
$JOBQBUF 00008 00000028 01992  01874
$JOBQCCW 00008 00000060 02005  01996
$JOBQEND 00001 000007A4 02032  02008
$JOBQPTR 00004 0000013C 00684  01666
$JOBQTRK 00008 00000048 02000  02006
$JOBQUE  00008 000000F0 02026  00165 01879 02008 02008
$JOT     00001 00000000 01103  02017

$JOTCCW  00008 000000A0 02014  01918 01922 02018
$JOTCCW0 00008 000000D0 02020  01918

$JOTCCW1 00008 000000D8 02021  01922

$JOTCKPT 00001 00000002 00464  01919 01921
$JOTTRAK 00007 000000E7 02024  02015 02021 02022
$L       00001 00000AC8 02045  02046 02047 02048 02049 02050 02051
$LOG     00001 00000001 00407  01782 01961
$L1      00001 00000000 02046  02047 02048 02049 02050 02051 02057
MISC                                              CROSS-REFERENCE                                              PAGE   62


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$L2      00001 00000000 02047  02048 02049 02050 02051 02057
$L3      00001 000007D0 02048  02049 02050 02051 02057
$L4      00001 000002BC 02049  02050 02051 02057
$L5      00001 0000003C 02050  02051 02057
$L6      00001 00000000 02051  02057

$NUCTABL 00004 0000012C 00670  00675
$NUCTBLE 00004 0000015C 00699  00703
$OLINK   00004 0000008C 00602  01597 01843

$PRCHKPT 00004 00000124 00665  01898
$PURGE   00001 00000000 01027  01608
$PURGER  00004 00000068 00587  01698 01720
$QGET    00004 0000004C 00577  01609
$QREM    00004 00000054 00579  01775
$QUESMFB 00004 000000A4 00614  01765
$SAVEBEG 00004 0000013C 00683  00692 01894
$SAVEEND 00001 0000015C 00691  00692
$SAVELEN 00001 00000020 00692  01894 01895 02029
$ST      00001 00000004 00433  01782
$STATUS  00001 000000C2 00630  01906 01911 01913 01919 01921 01935
$STIMER  00004 000000AC 00619  01947

$TRIVIA  00001 00000010 00422  01782
$TTIMER  00004 000000B0 00620  01941
$UR      00001 00000004 00409  01782
$WAIT    00004 00000030 00561  01621 01633 01651 01675 01693 01786 01817 01862 01887 01932 01965 01973

$WTO     00004 00000098 00608  01781 01960
BASE1    00001 0000000B 00334  00539
BASE2    00001 0000000C 00335  01592 01838
BASE3    00001 00000008 00332  01606 01658 01662 01704 01713 01728 01738 01774 01804 01821 01852 01954 01977
BUFDSECT 00001 00000000 00789  01120 01233 01606 01652 01694 01699 01852 01876
BUFECBCC 00001 00000028 00812  01652 01694 01699 01933 01949

BUFSTART 00008 00000058 00828  00835 00841 01120 01233
DCTBUFAD 00004 00000004 00856  01639 01682 01875
DCTDA    00001 00000000 00926  01624 01857
DCTDSECT 00001 00000000 00853  01628 01864
DCTEWF   00004 0000000C 00862  01643 01869
DCTIOTYP 00001 00000013 00867  01641 01870
DCTREAD  00001 00000080 00941  01641
DCTSEEK  00004 00000008 00859  01640 01683 01871 01872 01873

DCTWRITE 00001 00000040 00942  01870
HA$IKCP  00001 00000D04 01847  01848

HA$IVPUR 00001 00000ACC 01601  01602
HA$OKCP  00001 00000CF8 01846  01847 01850
HA$OVPUR 00001 00000AC8 01600  01601 01604
HA$QKCP  00001 00000000 01840  01842
HA$QVPUR 00001 00000000 01594  01596
HASPCKPT 00002 00000008 01837  00164
HASPMISC 00001 00000000 00157  00719 00753 00843 00902 01101 01116 01229 01264 01278 01352 01528 01570 01595 01822 01841
                               01978 02045

HASPVPRG 00002 00000000 01591  00163
HASPVPUR 00004 00000AD0 01605  01811 01818
HCTDSECT 00001 00000000 00537  00539
IOTCYMAP 00100 00000070 01241  01719
IOTDSECT 00001 00000000 01232  01670

IOTJCTTR 00004 00000064 01238  01262 01707
IOTPDDB  00004 000000D8 01243  01262
MISC                                              CROSS-REFERENCE                                              PAGE   63



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

IPOST    00001 00000008 01306  01878
ITIME    00001 00000004 01305  01944
JCT      00001 0000000A 00333  01119 01638 01639 01652 01656 01790 01793 01793
JCTCARDS 00004 000000DC 01160  01747 01747
JCTCPUID 00004 00000208 01178  01819
JCTCYSAV 00100 00000104 01170  01697

JCTDSECT 00001 00000000 01118  01119
JCTEND   00001 00000230 01192  01227
JCTINDC  00001 00000215 01181  01730 01760
JCTIOTTR 00004 0000005C 01122  01683
JCTJMR   00056 000001F8 01173  01174 01732

JCTJMRJN 00008 000001F8 01175  01742 01819
JCTJMRUX 00001 00000020 01219  01730 01760
JCTJOBIN 00004 00000228 01187  01820
JCTJQE   00004 00000058 01121  01227 01665

JCTODTOF 00004 000000D8 01159  01746 01746
JCTPUNCT 00004 000000F4 01166  01747 01747
JCTPUOUT 00002 000000BA 01151  01744 01744
JCTPURGE 00001 0000006A 01127  01744 01744
JCTRDROF 00004 00000220 01185  01745 01820
JCTUSEID 00008 0000020C 01179  01743

JCTXEQON 00004 000000BC 01152  01746 01746
JMRCHAIN 00004 00000008 01359  01762
JOEDSECT 00001 00000000 01056  01076 01089 01100
JOESIZE  00001 0000001C 01100  01113
JOTDSECT 00001 00000000 01104  01115

JOTSIZE  00001 00000758 01115  02017
KBUF     00001 00000005 01834  01874 01875 01876 01952 01982
KCHECK   00002 00000D58 01889  01881
KDCT     00001 00000004 01833  01864 01867 01928 01982
KEXCP    00002 00000DA8 01926  01920

KIOWAIT  00004 00000DAE 01931  01934
KJOT     00006 00000D90 01918  01912
KJQSIZE  00004 00000E1C 01975  01880
KM       00049 00000E20 01976  01957 01961
KSTQE    00004 00000010 01980  01878 01939 01944 01946

KWAIT    00004 00000D50 01886  01950
KWTO     00004 00000DF4 01957  01966
KWTOOK   00002 00000E14 01968  01962
K1       00004 00000D00 01857  01863
K2       00002 00000D18 01866  01859

LINK     00001 0000000E 00337  01596 01609 01625 01636 01646 01657 01658 01661 01662 01679 01688 01698 01703 01704 01712
                               01713 01720 01727 01728 01737 01738 01765 01773 01774 01781 01792 01797 01803 01804 01842
                               01858 01929 01941 01947 01953 01954 01960
OACEPROG 00004 00000060 00833  01606 01852
PCEDSECT 00001 00000000 00722  00724 01531

PCEEWF   00002 00000048 00745  01620 01632 01642 01650 01674 01692 01785 01816 01861 01868 01877 01886 01931 01964 01972
PCEWORK  00008 00000058 00752  01532 01569
PRCSIZE  00028 0000001C 01294  01986 02031
QUEFLAGS 00001 00000004 01008  01748
QUEOPCAN 00001 00000008 01035  01748

QUETRAK  00001 00000008 01010  01640 01707
R0       00001 00000000 00304  01780 01895 01901 01959
R1       00001 00000001 00305  01608 01612 01614 01615 01615 01616 01624 01627 01638 01642 01643 01645 01656 01665 01666
                               01667 01681 01682 01687 01697 01702 01719 01724 01726 01734 01736 01762 01763 01766 01771
MISC                                              CROSS-REFERENCE                                              PAGE   64



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

                               01778 01790 01794 01802 01807 01808 01809 01857 01867 01897 01899 01901 01905 01928 01939
                               01940 01940 01943 01944 01946 01952 01957
R10      00001 0000000A 00314  00333
R11      00001 0000000B 00315  00334
R12      00001 0000000C 00316  00335

R13      00001 0000000D 00317  00336
R14      00001 0000000E 00318  00337 00557 01898 01905
R15      00001 0000000F 00319  00556 00556 01597 01621 01633 01651 01675 01693 01786 01817 01843 01862 01887 01899 01932
                               01965 01973

R2       00001 00000002 00306  00325
R3       00001 00000003 00307  00326
R4       00001 00000004 00308  00327
R5       00001 00000005 00309  00328
R6       00001 00000006 00310  00329

R7       00001 00000007 00311  00330
R8       00001 00000008 00312  00331 00332
SAVE     00001 0000000D 00336  00724
SMFDSECT 00001 00000000 01355  01724 01762
SMFHDRTY 00001 0000000D 01366  01757
SMFHSPID 00001 00000002 01495  01758
SMFJMR   00056 0000000C 01363  01732

SMFJMRTP 00001 000000FF 01499  01733
SMFOPCAN 00001 00000001 01522  01750
SMFPRGTP 00001 0000001A 01502  01757

SMFRDW   00004 00000008 01360  01740 01741 01741 01741 01753 01753
SMFRSTRT 00001 0000001A 01372  01398 01454
SMFSIZE1 00004 00000010 01819  01742
SMFSIZE3 00004 00000008 01820  01745
SMFSSTRT 00001 00000020 01459  01468 01473 01485

SMFTYPE  00001 00000004 01357  01733
SMF26END 00001 000000EC 01450  01741 01753 01756
SMF26ICD 00004 000000D0 01443  01747
SMF26IND 00002 00000038 01405  01759
SMF26INF 00001 0000003F 01408  01750
SMF26JBN 00008 0000001A 01399  01742
SMF26LN1 00002 0000003A 01406  01754 01754
SMF26LN2 00002 00000090 01428  01755 01755

SMF26LN3 00002 000000CC 01441  01756 01756
SMF26OPD 00004 000000C8 01440  01755 01755

SMF26PUR 00002 0000008E 01427  01754 01754
SMF26RPT 00004 00000094 01430  01745
SMF26RV1 00003 0000003C 01407  01744
SMF26SBS 00002 00000036 01404  01758
SMF26UIF 00008 0000002A 01402  01743

SMF26XST 00004 000000AC 01433  01746
TEDDSECT 00001 00000000 01267  01277
VCRE826  00004 00000C1A 01740  01731
VDSTER   00002 00000BD4 01710  01706
VERROR   00004 00000B58 01661  01668
VFREEDCT 00002 00000CC2 01800  01795
VGETBUF  00001 00000B12 01634  01629
VGETIOT  00002 00000B80 01677  01669
VGETUNIT 00001 00000AF8 01622  01617

VNOBUF   00001 00000B0A 01630  01637

VNOERROR 00004 00000B66 01665  01654
MISC                                              CROSS-REFERENCE                                              PAGE   65


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

VNOIOT   00002 00000B78 01672  01680
VNOIOTER 00006 00000BCA 01707  01700

VNOJOB   00002 00000CE6 01814  01610
VNOUNIT  00001 00000AF0 01618  01626
VPRGCYL  00002 00000BE2 01717  01708
VPRGMSG  00009 00000CDC 01812  01778 01782
VQUE     00004 00000C7E 01765  01761
VREMJOB  00002 00000C82 01770  01664
VSMFPRG  00002 00000BEA 01722  01715
VSMFREC  00002 00000C54 01752  01749
VWAIT    00002 00000B38 01648  01653
VWAITIOT 00002 00000B9A 01690  01695

VWTO     00004 00000C8E 01778  01787

VWTOOK   00002 00000CB0 01789  01783
WA       00001 00000002 00325  01612 01640 01667 01707 01748 01771 01868 01869 01877 01878 01879 01880 01894 01895
WB       00001 00000003 00326  01627 01628 01645 01687 01798 01802
WC       00001 00000004 00327  01734 01762 01763 01833

WD       00001 00000005 00328  01611 01611 01670 01681 01694 01699 01702 01768 01794 01834
XOUTENT  00001 00000010 01563  01564 01565
MISC                                              LITERAL CROSS-REFERENCE                                      PAGE   66


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

=Y(3*PRCSIZE)
         00002 00000020 01986  01897
MISC                                              ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE   67


                                                                                                 ASM 0201 20.02 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY

  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1

TOTAL RECORDS READ FROM SYSTEM INPUT        710
TOTAL RECORDS READ FROM SYSTEM LIBRARY     9425
TOTAL RECORDS PUNCHED                        81
TOTAL RECORDS PRINTED                      2509

NUC                                            EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.02 08/28/78

HASPNUC   SD  0001 000000 002058
HASP      LD       000000        0001
$HNUCEND  LD       002058        0001
$HASPECB  LD       0000D8        0001
$ALSTATB  LD       000BC8        0001
$IOAPPEN  LD       000CB8        0001

$ABEND    LD       0025E8        000A
$OLASYNC  LD       0026B0        000A

$ASYNCP   LD       000E00        0001
$MLLMPCE  LD       000EB0        0001
$MCONPCE  LD       000EB0        0001
$EXECPCE  LD       000EB0        0001
$XTHPCE   LD       0010C0        0001

$LOGPCE   LD       001E00        0001
$COMMPCE  LD       001E58        0001
$TSOSPCE  LD       001F50        0001
$CKPTPCE  LD       002000        0001
$OROLLAD  LD       000418        0001
$WRESERV  LD       000A88        0001
$EXCPSVC  ER  0002
XJCLSCAN  ER  0003

$MGCRSVC  ER  0004
$WTOSVC   ER  0005

$WTOSVC2  ER  0006
XTERMSMF  ER  0007
$TSOCOMM  ER  0008
$JOT      ER  0009
HASPNUC2  SD  000A 002058 000700

HASPCBUF  ER  000B
HASPCON   ER  000C
$CMBWECB  LD       000A74        0001
$ACCTECB  ER  000D
HASPINGO  ER  000E
$WCOMRES  ER  000F
$TEDDATA  LD       002300        000A
$1STOACE  ER  0010
HASPOTAB  ER  0011

$OLAYDCT  ER  0012

$OREPS    ER  0013
HASPXEQ   ER  0014
HASPXTHW  ER  0015
HASPRDR   ER  0016
HASPHOPE  ER  0017

HASPPR    ER  0018
HASPPU    ER  0019
HASPLOG   ER  001A
HASPCOMM  ER  001B
HASPTSOS  ER  001C
HASPVPRG  ER  001D
HASPCKPT  ER  001E
NUC                                                                                                            PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                      1 *                                                                  RFIT H0000000

                                      2 *                            KILL ALL 370 INSTRUCTIONS             RFIT H0000010

                                      3 *                                                                  RFIT H0000020
                                      4 MVCL     OPSYN ,                                                   RFIT H0000030
                                      5 CLCL     OPSYN ,                                                   RFIT H0000040
                                      6 SIOF     OPSYN ,                                                   RFIT H0000050

                                      7 HDV      OPSYN ,                                                   RFIT H0000070
                                      8 STNSM    OPSYN ,                                                   RFIT H0000080
                                      9 STOSM    OPSYN ,                                                   RFIT H0000090
                                     10 MC       OPSYN ,                                                   RFIT H0000110
                                     11 LRA      OPSYN ,                                                   RFIT H0000120
                                     12 STCTL    OPSYN ,                                                   RFIT H0000130
                                     13 LCTL     OPSYN ,                                                   RFIT H0000140
                                     14 CLM      OPSYN ,                                                   RFIT H0000180
                                     15 STCM     OPSYN ,                                                   RFIT H0000190
                                     16 ICM      OPSYN ,                                                   RFIT H0000200
                                     17 STIDP    OPSYN ,                                                   RFIT H0000210

                                     18 STIDC    OPSYN ,                                                   RFIT H0000220
                                     19 SCK      OPSYN ,                                                   RFIT H0000230
                                     20 STCK     OPSYN ,                                                   RFIT H0000240
                                     21 SCKC     OPSYN ,                                                   RFIT H0000250

                                     22 STCKC    OPSYN ,                                                   RFIT H0000260
                                     23 SPT      OPSYN ,                                                   RFIT H0000270
                                     24 STPT     OPSYN ,                                                   RFIT H0000280
                                     25 PTLB     OPSYN ,                                                   RFIT H0000310
                                     26 RRB      OPSYN ,                                                   RFIT H0000350
                                     27 SRP      OPSYN ,                                                   RFIT H0000360
NUC      HASP PROCESSOR CONTROL ELEMENT GENERATION MACRO                                                       PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                     30 *                                                                       H0006000
                                     31 ***** $GENPCE  *****          GENERATE PROCESSOR CONTROL ELEMENT(S)     H0008000

                                     32 *                                                                       H0010000
                                     33 *                                                                       H0012000
                                     34          MACRO                                                          H0014000

                                     35 &NAME    $GENPCE &NUM,&TYPE,&ENTRY,&COND=1,&SPECTYP=0,&ENTYPE=V,       CH0016000
                                                       &$WAIT=,&WRKSPCE=0                                       H0018000
                                     36          GBLA  &PCENO                                                   H0020000
                                     37          LCLA  &COUNT                                                   H0022000
                                     38 &NAME    DS    0D                                                       H0024000
                                     39          AIF   (&COND EQ 0).END                                         H0026000
                                     40 .A       AIF   (&COUNT GE &NUM).END                                     H0028000
                                     41 PCE&PCENO DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
                                     42 &PCENO   SETA  &PCENO-1                                                 H0032000
                                     43          DC    A(0)                RESERVED                             H0034000
                                     44          DC    A(PCE&PCENO)             ADDRESS OF PREVIOUS PCE         H0036000
                                     45 &PCENO   SETA  &PCENO+2                                                 H0038000

                                     46          DC    A(PCE&PCENO)             ADDRESS OF NEXT PCE             H0040000

                                     47          DC    A(0)                REGISTER 14 STORAGE                  H0042000
                                     48          DC    &ENTYPE.(&ENTRY)         ENTRY POINT                     H0044000

                                     49          DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
                                     50          DC    A(HASP)             BASE REGISTER STORAGE                H0048000
                                     51          DC    &ENTYPE.(&ENTRY)         BASE REGISTER STORAGE           H0050000
                                     52          AIF   ('&$WAIT' EQ '').B                                       H0052000
                                     53          DC    AL2(((1-$EWB&$WAIT)*255+1)*$EWF&$WAIT) EVENT WAIT FIELD  H0054000
                                     54          AGO   .C                                                       H0056000
                                     55 .B       DC    AL2(0)              EVENT WAIT FIELD                     H0058000
                                     56 .C       DC    AL1(&SPECTYP,&TYPE)     PROCESSOR TYPE                   H0060000
                                     57          DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
                                     58          DS    0D                  PROCESSOR WORK SPACE                 H0064000
                                     59          DC    (&WRKSPCE)X'00'                                          H0066000
                                     60          SPACE 3                                                        H0068000

                                     61 &COUNT   SETA  &COUNT+1                                                 H0070000
                                     62          AGO   .A                                                       H0072000

                                     63 .END     MEND                                                           H0074000

NUC      HASP GLOBAL DEFINITIONS                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                     65          COPY  $GLOBAL                                                  H0078000
                                     66 *                                                                       GL002000
                                     67 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                     68 *                                                                       GL006000



                                     70          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000
                                     71          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000
                                     72          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                     73          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000
                                     74          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000






                                     76 *                                                                       GL032000

                                     77 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000
                                     78 *                                                                       GL036000



                                     80          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000
                                     81          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                     82          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000
                                     83          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                     84          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000
                                     85          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000
                                     86          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                     87          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000
                                     88          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000

                                     89          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000
                                     90          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000
                                     91          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                     92          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000

                                     93          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000
                                     94          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000
                                     95          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000
                                     96          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                     97          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200
                                     98          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300

                                     99          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000
                                    100          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000
                                    101          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                    102          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000
                                    103          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                    104          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                    105          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000
                                    106          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000

                                    107          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                    108          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000

                                    109          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000
                                    110          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000
NUC      HASP GLOBAL DEFINITIONS                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    112 *                                                                       GL116000
                                    113 *                             O/S INTERFACE PARAMETERS                  GL118000
                                    114 *                                                                       GL120000




                                    116          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000
                                    117          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                    118          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000
                                    119          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000
                                    120          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000

                                    121          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000
                                    122          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                    123          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000

                                    124          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000
                                    125          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000
                                    126          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                    127          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200
                                    128          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300
                                    129          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400






                                    131 *                                                                       GL150000
                                    132 *                             HASP OPTION PARAMETERS                    GL152000
                                    133 *                                                                       GL154000




                                    135          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000
                                    136          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000
                                    137          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000
                                    138          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000

                                    139          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000
                                    140          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000
                                    141          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000
                                    142          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000
                                    143          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000
                                    144          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000

                                    145          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100
                                    146          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500
                                    147          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                    148          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                    149          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000

                                    150          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                    151          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000
                                    152          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000
                                    153          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000
                                    154          GBLB  &DEBUG              DEBUG MODE                           GL186000

                                    155          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000
                                    156          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000
NUC      HASP GLOBAL DEFINITIONS                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    158 *                                                                       GL226000

                                    159 *                             REMOTE JOB ENTRY PARAMETERS               GL228000
                                    160 *                                                                       GL230000



                                    162          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                    163          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000

                                    164          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000
                                    165          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    166          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000
                                    167          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000
                                    168          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000
                                    169          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000

                                    170          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000





                                    172 *                                                                       GL260000

                                    173 *                             INTERNAL GENERATION PARAMETERS            GL262000
                                    174 *                                                                       GL264000



                                    176          GBLC  &VERSION            HASP VERSION                         GL270000
                                    177          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000

                                    178          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                    179          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000
                                    180          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500
                                    181          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000
                                    182          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500
                                    183          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                    184          GBLA  &LOW                OVERLAY PRIORITY                     GL280000

                                    185          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000
                                    186          GBLA  &HIGH                 PARAMETER VALUES                   GL284000
                                    187          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000

                                    188          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000
                                    189          GBLA  &PCENO              PCE NUMBER                           H0080000
                                    190          LCLC  &DOC                DOCUMENTATION OPTION                 H0082000
NUC      HASP NUCLEUS                                                                                          PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                              193 HASPNUC  START 0                   HASP NUCLEUS                         H0088000





                                    195 *                                                                       H0092000
                                    196 *                             EXTERNAL REFERENCES                       H0094000

                                    197 *                                                                       H0096000



                                    199          ENTRY HASP                MAIN ENTRY                           H0100000

                                    200          ENTRY $HNUCEND            END OF HASPNUC CSECT                 H0101000
                                    201          ENTRY $HASPECB            COMMON HASP EVENT CONTROL BLOCK      H0102000
                                    202          ENTRY $ALSTATB            ADDR OF ALLOCATION STATISTICS TABLE  H0104000
                                    203          ENTRY $IOAPPEN            I/O APPENDAGE TABLE                  H0106000
                                    204          ENTRY $ABEND              HASP STAE EXIT ROUTINE               H0112000

                                    205          ENTRY $OLASYNC            ADDRESS OF OVERLAY ASYNC EXIT        H0114000
                                    206          ENTRY $ASYNCP             ADDRESS OF ASYNCHRONOUS I/O PCE      H0116000
                                    207          ENTRY $MLLMPCE            ADDRESS OF LINE MANAGER PCE          H0118000
                                    208          ENTRY $MCONPCE            ADDRESS OF REMOTE CONSOLE PCE        H0120000
                                    209          ENTRY $EXECPCE            ADDRESS OF FIRST EXECUTION PCE       H0122000
                                    210          ENTRY $XTHPCE             ADDRESS OF EXECUTION THAW PCE        H0124000
                                    211          ENTRY $LOGPCE             ADDRESS OF LOG PROCESSOR PCE         H0126000
                                    212          ENTRY $COMMPCE            ADDRESS OF COMMAND PROCESSOR PCE     H0128000

                                    213          ENTRY $TSOSPCE            ADDRESS OF TSO SUPPORT PCE           H0129000
                                    214          ENTRY $CKPTPCE            ADDRESS OF CHECKPOINT PCE            H0132000

                                    215          ENTRY $OROLLAD            ADDRESS OF $OROLL PROCESSOR          H0134000





                                    217          COPY  $HASPGEN            COPY HASPGEN PARAMETERS              H0138000
NUC      HASPGEN PARAMETER VALUES                                                                              PAGE    8



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    219 *                                                                       HA004000
                                    220 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000
                                    221 *                                                                       HA008000



                                    223 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000
                                    224 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                    225 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000
                                    226 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000

                                    227 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000





                                    229 *                                                                       HA028000
                                    230 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000
                                    231 *                                                                       HA032000




                                    233 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000
                                    234 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000
                                    235 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000
                                    236 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000
                                    237 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000
                                    238 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                    239 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000
                                    240 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000
                                    241 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000

                                    242 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000

                                    243 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    244 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000
                                    245 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000
                                    246 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000

                                    247 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000
                                    248 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000
                                    249 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000
                                    250 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                    251 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200
                                    252 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300
                                    253 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                    254 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000
                                    255 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                    256 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000
                                    257 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000

                                    258 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                    259 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000
                                    260 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000
                            0003C   261 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000

NUC      HASPGEN PARAMETER VALUES                                                                              PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    264 *                                                                       HA100000
                                    265 *                             O/S INTERFACE PARAMETERS                  HA102000
                                    266 *                                                                       HA104000



                                    268 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                    269 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000
                                    270 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000
                                    271 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000

                                    272 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000
                                    273 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000
                                    274 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000

                                    275 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                    276 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000
                                    277 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100
                                    278 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200
                                    279 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300
                                    280 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400



                                    282 *                                                                  RFIT HA125600
                                    283 *                             HASP SVC NUMBER                      RFIT HA125700
                                    284 *                                                                  RFIT HA125800
                                    285          COPY  $INITSVC                                            RFIT HA125900
                                    286 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT







                                    288 *                                                                       HA130000

                                    289 *                             HASP OPTION PARAMETERS                    HA132000
                                    290 *                                                                       HA134000



                                    292 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000
                                    293 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000
                                    294 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000
                                    295 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000
                                    296 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                    297 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000
                                    298 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    299 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000
                                    300 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000

                                    301 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000
                                    302 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100

                                    303 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500

                                    304 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
NUC      HASPGEN PARAMETER VALUES                                                                              PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    305 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500
                                    306 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                    307 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000
                                    308 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                    309 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000
                                    310 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                    311 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000
                                    312 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                    313 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000

NUC      HASPGEN PARAMETER VALUES                                                                              PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    316 *                                                                       HA174000
                                    317 *                             REMOTE JOB ENTRY PARAMETERS               HA176000
                                    318 *                                                                       HA178000



                                    320 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000
                                    321 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000
                                    322 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000
                                    323 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000
                                    324 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                    325 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000
                                    326 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000

                                    327 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000
                                    328 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000






                                    330 *                                                                       HA202000
                                    331 *                             INTERNAL GENERATION PARAMETERS            HA204000
                                    332 *                                                                       HA206000



                                    334 &VERSION SETC  '4.0'               HASP VERSION                         HA210000
                                    335 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000

                                    336 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000
                                    337 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                    338 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000
                                    339 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                    340 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000
                                    341 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500
                                    342 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                    343 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000

                                    344 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000
                                    345 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000

                                    346 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000
                                    347 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
NUC      HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    350 *                                                                       HA234000
                                    351 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000

                                    352 *                                                                       HA238000



                            00000   354 R0       EQU   0                                                        HA242000
                            00001   355 R1       EQU   1                                                        HA244000
                            00002   356 R2       EQU   2                                                        HA246000

                            00003   357 R3       EQU   3                                                        HA248000
                            00004   358 R4       EQU   4                                                        HA250000
                            00005   359 R5       EQU   5                                                        HA252000

                            00006   360 R6       EQU   6                                                        HA254000
                            00007   361 R7       EQU   7                                                        HA256000
                            00008   362 R8       EQU   8                                                        HA258000
                            00009   363 R9       EQU   9                                                        HA260000
                            0000A   364 R10      EQU   10                                                       HA262000
                            0000B   365 R11      EQU   11                                                       HA264000
                            0000C   366 R12      EQU   12                                                       HA266000

                            0000D   367 R13      EQU   13                                                       HA268000
                            0000E   368 R14      EQU   14                                                       HA270000
                            0000F   369 R15      EQU   15                                                       HA272000






                                    371 *                                                                       HA276000
                                    372 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000
                                    373 *                                                                       HA280000




                            00002   375 WA       EQU   R2                  WORK REGISTER A                      HA284000
                            00003   376 WB       EQU   R3                  WORK REGISTER B                      HA286000
                            00004   377 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   378 WD       EQU   R5                  WORK REGISTER D                      HA290000
                            00006   379 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007   380 WF       EQU   R7                  WORK REGISTER F                      HA294000

                            00008   381 WG       EQU   R8                  WORK REGISTER G                      HA296000
                            00008   382 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000
                            0000A   383 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000
                            0000B   384 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000
                            0000C   385 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000

                            0000D   386 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000
                            0000E   387 LINK     EQU   R14                 LINK REGISTER                        HA308000
NUC      HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












                            00000   390 NOP      EQU   0                   NO-OP                                HA314000
                            00001   391 O        EQU   1                   ONES OR OVERFLOW                     HA316000

                            00002   392 H        EQU   2                   HIGH                                 HA318000
                            00002   393 P        EQU   2                   PLUS                                 HA320000
                            00004   394 L        EQU   4                   LOW                                  HA322000
                            00004   395 M        EQU   4                   MINUS OR MIXED                       HA324000
                            00007   396 NE       EQU   7                   NOT EQUAL                            HA326000

                            00007   397 NZ       EQU   7                   NOT ZERO                             HA328000
                            00008   398 E        EQU   8                   EQUAL                                HA330000
                            00008   399 Z        EQU   8                   ZERO                                 HA332000
                            0000B   400 NL       EQU   11                  NOT LOW                              HA334000
                            0000B   401 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000
                            0000D   402 NH       EQU   13                  NOT HIGH                             HA338000
                            0000D   403 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   404 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
NUC      HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    406 *                                                                       HA346000
                                    407 *                             BIT DEFINITIONS                           HA348000

                                    408 *                                                                       HA350000



                            00080   410 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000

                            00040   411 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000
                            00020   412 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000
                            00010   413 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000
                            00008   414 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000
                            00004   415 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000
                            00002   416 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000

                            00002   417 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001   418 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000
                                    419 *                                                                       HA370000
                            00080   420 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000

                            00040   421 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020   422 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   423 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000
                            00008   424 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000
                            00004   425 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000

                            00002   426 $EWF15   EQU   X'02'               SPARE                                HA384000
                            00001   427 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000





                                    429 *                                                                       HA390000
                                    430 *                             BYTE DEFINITIONS                          HA392000
                                    431 *                                                                       HA394000




                            00000   433 $EWBPOST EQU   0                   BYTE 0                               HA398000
                            00000   434 $EWBBUF  EQU   0                   BYTE 0                               HA400000

                            00000   435 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   436 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000   437 $EWBUNIT EQU   0                   BYTE 0                               HA406000
                            00000   438 $EWBCKPT EQU   0                   BYTE 0                               HA408000
                            00000   439 $EWBCMB  EQU   0                   BYTE 0                               HA410000

                            00000   440 $EWBSMF  EQU   0                   BYTE 0                               HA411000
                            00000   441 $EWBJOT  EQU   0                   BYTE 0                               HA412000
                                    442 *                                                                       HA414000
                            00001   443 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001   444 $EWBIO   EQU   1                   BYTE 1                               HA418000
                            00001   445 $EWBWORK EQU   1                   BYTE 1                               HA420000
                            00001   446 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001   447 $EWBDDB  EQU   1                   BYTE 1                               HA424000

                            00001   448 $EWBOLAY EQU   1                   BYTE 1                               HA426000
                            00001   449 $EWB15   EQU   1                   BYTE 1                               HA428000

                            00001   450 $EWBOROL EQU   1                   BYTE 1                               HA430000
NUC      HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    453 *                                                                       HA436000
                                    454 *                             LOGICAL CONSOLE DEFINITIONS               HA438000
                                    455 *                                                                       HA440000



                            00001   457 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002   458 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000
                            00004   459 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008   460 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000
                            00010   461 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000

                            00020   462 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000

                            00040   463 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   464 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   465 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000
                            00000   466 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000






                                    468 *                                                                       HA466000
                                    469 *                             MESSAGE CLASS DEFINITIONS                 HA468000
                                    470 *                                                                       HA470000



                            00010   472 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000
                            00030   473 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050   474 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000
                            00070   475 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000
                            00080   476 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000






                                    478 *                                                                       HA484000
                                    479 *                             MESSAGE PRIORITY DEFINITIONS              HA486000
                                    480 *                                                                       HA488000




                            00001   482 $LO      EQU   1                   LOW PRIORITY                         HA492000
                            00004   483 $ST      EQU   4                   STANDARD PRIORITY                    HA494000
                            00007   484 $HI      EQU   7                   HIGH PRIORITY                        HA496000
NUC      HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    487 *                                                                       HA502000
                                    488 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000
                                    489 *                                                                       HA506000




                            00080   491 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000
                            00000   492 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000
                            00040   493 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000

                            00000   494 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000
                            00020   495 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000
                            00000   496 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000
                            00010   497 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000
                            00000   498 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000
                            00008   499 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000
                            00000   500 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000
                            00004   501 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000   502 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000





                                    504 *                                                                       HA536000

                                    505 *                             HASP STATUS BIT DEFINITIONS               HA538000
                                    506 *                                                                       HA540000




                            00080   508 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040   509 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000
                            00020   510 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000
                            00010   511 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000
                            00008   512 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000
                            00004   513 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000
                            00002   514 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000
NUC      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    517 *                                                                       HA560000

                                    518 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000

                                    519 *                                                                       HA564000




                                    521 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                    522 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000
                                    523 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000
                                    524 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000
                                    525 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000
                                    526 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000
                                    527 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000
                                    528 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                    529 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000





                                    531 *                                                                       HA588000

                                    532 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000
                                    533 *                                                                       HA592000





                                    535 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                    536 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000
                                    537 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000
                                    538 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                    539 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                    540 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000
                                    541 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                    542 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000
                                    543 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
NUC      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    546 *                                                                       HA618000
                                    547 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000

                                    548 *                                                                       HA622000



                                    550 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000
                                    551 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000
                                    552 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000
                                    553 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000
                                    554 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000
                                    555 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000
                                    556 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000
                                    557 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                    558 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000






                                    560 *                                                                       HA646000
                                    561 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000
                                    562 *                                                                       HA650000




                                    564 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000
                                    565 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                    566 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000
                                    567 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000
                                    568 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000

                                    569 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000
                                    570 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                    571 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000
                                    572 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
NUC      HASP CONTROL BLOCKS                                                                                   PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    574 *                                                                       H0142000
                                    575 *                             OPTIONAL ENTRY POINTS                     H0144000

                                    576 *                                                                       H0146000




                                    578          ENTRY $WRESERV            ADDRESS OF RESERVED CMB              H0156000










                                    581 *                                                                       H0162000
                                    582 *                             DOCUMENTATION OPTION                      H0164000
                                    583 *                                                                       H0166000




                                    585 &DOC     SETC  'NO'                TURN OFF DOCUMENTATION               H0170000





                                    587 *                                                                       H0174000

                                    588 *                             GENERATE HASP CONTROL BLOCKS              H0176000
                                    589 *                                                                       H0178000




                                    591         $HASPCB PCE,BUFFER,CMB,DCT,JQE,JIT,JCT,TED,TQE,OTB,JOE,        CH0182000
                                                       CVT,TCB,RB,DCB,DEB,UCB,RDRWORK,XEQWORK,OUTWORK,PPPWORK, CH0183000
                                                       HCT,DOC=&DOC                                             H0184000
NUC      HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                              594+PCEDSECT DSECT                     PROCESSOR CONTROL ELEMENT DSECT      PC260000



                            00000   596+         USING PCEDSECT,SAVE       ESTABLISH PCE ADDRESSABILITY         PC264000



000000                              598+PCESAVEA DS    F                   RESERVED                             PC268000

000004                              599+PCEPREV  DS    F                   ADDRESS OF PREVIOUS PCE              PC270000
000008                              600+PCENEXT  DS    F                   ADDRESS OF NEXT PCE                  PC272000
00000C                              601+PCELINK  DS    F                   REGISTER 14 (LINK) STORAGE           PC274000
000010                              602+PCER15   DS    F                   REGISTER 15 STORAGE                  PC276000

000014                              603+PCER0    DS    F                   REGISTER 0 STORAGE                   PC278000
000018                              604+PCER1    DS    F                   REGISTER 1 STORAGE                   PC280000
00001C                              605+PCEWA    DS    F                   REGISTER 2 (WA) STORAGE              PC282000
000020                              606+PCEWB    DS    F                   REGISTER 3 (WB) STORAGE              PC284000
000024                              607+PCEWC    DS    F                   REGISTER 4 (WC) STORAGE              PC286000
000028                              608+PCEWD    DS    F                   REGISTER 5 (WD) STORAGE              PC288000

00002C                              609+PCEWE    DS    F                   REGISTER 6 (WE) STORAGE              PC290000
000030                              610+PCEWF    DS    F                   REGISTER 7 (WF) STORAGE              PC292000
000034                              611+PCEWG    DS    0F                  REGISTER 8 (WG) STORAGE              PC294000
000034                              612+PCEBASE3 DS    F                   REGISTER 8 (BASE3) STORAGE           PC296000
000038                              613+PCER9    DS    F                   REGISTER 9 STORAGE                   PC298000

00003C                              614+PCEJCT   DS    F                   REGISTER 10 (JCT) STORAGE            PC300000
000040                              615+PCEBASE1 DS    F                   REGISTER 11 (BASE1) STORAGE          PC302000
000044                              616+PCEBASE2 DS    F                   REGISTER 12 (BASE2) STORAGE          PC304000
000048                              617+PCEEWF   DS    H                   PROCESSOR EVENT WAIT FIELD           PC306000

00004A                              618+PCEID    DS    H                   PROCESSOR TYPE                       PC308000
00004C                              619+         DS    C                   RESERVED                             PC310000
00004D                              620+PCEOPRIO DS    C                   REQUESTED OVERLAY ROUTINE PRIORITY   PC312000
00004E                              621+PCEOCON  DS    H                   REQUESTED OVERLAY ROUTINE OCON       PC314000
000050                              622+PCEORTRN DS    F                   $RETURN PAST $LINK STORAGE           PC316000
000054                              623+PCEOPCE  DS    F                   CHAIN OF PCE'S USING SAME OVERLAY    PC318000

000058                              624+PCEWORK  DS    0D                  VARIABLE LENGTH PROCESSOR WORK AREA  PC320000
000000                              625+HASPNUC  CSECT                     END OF PCE DSECT                     PC322000
NUC      HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    627+*                                                                       PC326000

                                    628+*                             PROCESSOR CONTROL ELEMENT IDENTIFICATION  PC328000
                                    629+*                                                                       PC330000





                                    631+*                                                                       PC334000

                                    632+*                             BYTE 1                                    PC336000
                                    633+*                                                                       PC338000



                            00001   635+PCELCLID EQU   X'01'               LOCAL SPECIAL PCE ID                 PC342000
                            00002   636+PCERJEID EQU   X'02'               REMOTE SPECIAL PCE ID                PC344000

                            00004   637+PCEINRID EQU   X'04'               INTERNAL SPECIAL PCE ID              PC346000
                            00080   638+PCEPRSID EQU   X'80'               PRINT SPECIAL PCE ID                 PC348000
                            00040   639+PCEPUSID EQU   X'40'               PUNCH SPECIAL PCE ID                 PC350000






                                    641+*                                                                       PC354000
                                    642+*                             BYTE 2                                    PC356000
                                    643+*                                                                       PC358000



                            00000   645+PCEASYID EQU   0                   ASYNCH PCE ID                        PC362000
                            00001   646+PCERDRID EQU   1                   INPUT PCE ID                         PC364000

                            00002   647+PCESETID EQU   2                   SETUP PCE ID                         PC366000
                            00003   648+PCEXEQID EQU   3                   EXECUTION PCE ID                     PC368000
                            00004   649+PCETHWID EQU   4                   EXECUTION THAW PCE ID                PC370000
                            00005   650+PCEXZMID EQU   5                   EXECUTION TASK MONITOR PCE ID        PC372000

                            00006   651+PCEOUTID EQU   6                   OUTPUT PROCESSOR PCE ID              PC374000
                            00007   652+PCEPRTID EQU   7                   PRINT PCE ID                         PC376000
                            00008   653+PCEPUNID EQU   8                   PUNCH PCE ID                         PC378000
                            00009   654+PCEPRGID EQU   9                   PURGE PCE ID                         PC380000
                            0000A   655+PCECONID EQU   10                  CONSOLE PCE ID                       PC382000

                            0000B   656+PCEMLMID EQU   11                  LINE MANAGER PCE ID                  PC384000
                            0000C   657+PCETIMID EQU   12                  TIMER PCE ID                         PC386000
                            0000D   658+PCECKPID EQU   13                  CHECKPOINT PCE ID                    PC388000
                            0000E   659+PCEGPRID EQU   14                  PRIORITY AGING PCE ID                PC390000
NUC      HASP BUFFER DSECT                                                                                     PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              661+BUFDSECT DSECT                     BUFFER DSECT                         BU444000

000000                              662+IOBFLAG1 DS    C                   I/O FLAGS                            BU446000
000001                              663+IOBFLAG2 DS    C                   I/O FLAGS                            BU448000
000002                              664+IOBSENS0 DS    C                   FIRST SENSE BYTE                     BU450000

000003                              665+IOBSENS1 DS    C                   SECOND SENSE BYTE                    BU452000
000004                              666+IOBECBCC DS    0C                  I/O COMPLETION CODE                  BU454000
000004                              667+IOBECBPT DS    F                   ADDRESS OF HASP EVENT CONTROL BLOCK  BU456000
000008                              668+IOBFLAG3 DS    C                   I/O FLAGS                            BU458000
000009                              669+IOBCSW   DS    CL7                 CHANNEL STATUS WORD                  BU460000

000010                              670+IOBSIOCC DS    0C                  SIO CONDITION CODE                   BU462000
000010                              671+IOBSTART DS    F                   ADDRESS OF CHANNEL PROGRAM           BU464000
000014                              672+IOBDCBPT DS    F                   ADDRESS OF DATA CONTROL BLOCK        BU466000
000018                              673+IOBREPM  DS    0C                  REPOSITION MODIFIER                  BU468000
000018                              674+IOBRESTR DS    F                   RESTART ADDRESS OF CHANNEL PROGRAM   BU470000
00001C                              675+TPBMXREC DS    0C                  MAXIMUM RJE OUTPUT RECORD COUNT      BU472000
00001C                              676+IOBINCAM DS    H                   BLOCK COUNT INCREMENT                BU474000
00001E                              677+IOBERRCT DS    H                   ERROR COUNT                          BU476000

000020                              678+TPBLCCC  DS    0C                  LAST REMOTE OUTPUT COMMAND OP.       BU478000
000020                              679+TPBLCCAD DS    0F                  ADDR OF LAST REMOTE CARRIAGE CONTROL BU480000

000020                              680+IOBXTENT DS    C                   DEB EXTENT                           BU482000
000021                              681+IOBSEEK  DS    0CL7,3C             DIRECT ACCESS SEEK ADDRESS           BU484000
000024                              682+TPBRECNT DS    0C                  CURRENT REMOTE OUTPUT RECORD COUNT   BU486000
000024                              683+TPBFDATA DS    F                   REMOTE DATA POINTER                  BU488000
000028                              684+BUFECBCC DS    0C                  I/O COMPLETION CODE                  BU490000

000028                              685+BUFCHAIN DS    F                   BUFFER CHAIN FIELD                   BU492000
00002C                              686+BUFTYPE  DS    0C                  BUFFER TYPE                          BU494000
00002C                              687+BUFDCT   DS    F                   ADDRESS OF DEVICE CONTROL TABLE      BU496000
000030                              688+BUFEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     BU498000
000034                              689+OACECHN  DS    0F                  OVERLAY AREA CHAIN WORD              BU500000
000034                              690+BUFDDB   DS    0F                  DDB ADDRESS                          BU501000
000034                              691+LCBMCB   DS    C                   REMOTE MODE BYTE                     BU502000
000035                              692+LCBACK   DS    C                   REMOTE NEXT ACKNOWLEDGEMENT          BU504000
000036                              693+LCBRCB   DS    H                   REMOTE RESPONSE CONTROL BLOCK        BU506000

000038                              694+IOBCCW1  DS    D                   CHANNEL COMMAND WORD 1               BU508000

000040                              695+IOBCCW2  DS    D                   CHANNEL COMMAND WORD 2               BU510000
000048                              696+IOBCCW3  DS    0D,5C               CHANNEL COMMAND WORD 3               BU511000
00004D                              697+OACEPRIO DS    C                   PRIO OF OLAY ROUTINE IN THIS AREA    BU512000
00004E                              698+OACEOCON DS    H                   OVERLAY CALL CONSTANT                BU514000
000050                              699+IOBCCW4  DS    D                   CHANNEL COMMAND WORD 4               BU516000

000058                              700+BUFSTART DS    0D                  START OF BUFFER WORK SPACE           BU518000
000058                              701+OACENAME DS    0F                  NAME OF OVERLAY ROUTINE              BU520000
000058                              702+HDBNXTRK DS    F                   HASP DATA BLOCK CHAIN TRACK          BU522000
00005C                              703+OACEASMO DS    0F                  ASSEMBLY ORIGIN OF OVERLAY ROUTINE   BU524000
00005C                              704+HDBDSKEY DS    F                   HASP DATA BLOCK DATA SET KEY         BU526000
000060                              705+OACEPROG DS    0F                  ENTRY POINT OF OVERLAY ROUTINE       BU528000
000060                              706+HDBSTART DS    F                   HASP DATA BLOCK START                BU529000
000064                      00058   707+         ORG   BUFSTART                                                 BU530000
000058                              708+IOBCCW5  DS    D                   CHANNEL COMMAND WORD 5               BU534000
000060                              709+IOBCCW6  DS    D                   CHANNEL COMMAND WORD 6               BU536000

000068                              710+IOBCCW7  DS    D                   CHANNEL COMMAND WORD 7               BU538000

000070                              711+IOBCCW8  DS    D                   CHANNEL COMMAND WORD 8               BU540000
000078                              712+TPBUFST  DS    0F                  START OF REMOTE BUFFER WORK SPACE    BU542000
000078                      00558   713+         ORG   BUFSTART+1280           SPACE OVER OVERLAY AREA          BU544000
000558                              714+OACEPCE  DS    F                   CHAIN OF PCE'S USING OVERLAY AREA    BU546000

000000                              715+HASPNUC  CSECT                     END OF BUFFER DSECT                  BU548000
NUC      HASP BUFFER STATUS BIT DEFINITIONS                                                                    PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    718+*                             BUFFER TYPE BIT DEFINITIONS               BU554000



                            00080   720+TPBUF    EQU   X'80'               REMOTE BUFFER TYPE                   BU558000
                            00040   721+OLAYBUF  EQU   X'40'               OVERLAY AREA TYPE                    BU560000
                            00000   722+HASPBUF  EQU   X'00'               HASP BUFFER TYPE                     BU562000
NUC      HASP CONSOLE MESSAGE BUFFER DSECT                                                                     PAGE   24



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                              725+CMBDSECT DSECT                     CONSOLE MESSAGE BUFFER DSECT         CM098000

000000                              726+CMBCHAIN DS    F                   ADDR OF NEXT CONSOLE MESSAGE BUFFER  CM100000
000004                              727+CMBFLAGS DS    C                   FLAG BYTE                            CM102000
000005                              728+CMBCONS  DS    C                   CONSOLES SPECIFIED                   CM104000
000006                              729+CMBMSGL  DS    C                   MESSAGE LENGTH                       CM106000
000007                              730+CMBPRIO  DS    0C                  MESSAGE PRIORITY                     CM108000
000007                              731+CMBCLASS DS    C                   MESSAGE CLASS OR DISPLAY AREA        CM110000
000008                              732+CMBMSG   DS    0CL132              CONSOLE MESSAGE                      CM112000
000008                              733+CMBDOMID DS    0F                  DOM ID FOR CMB                       CM113000
000008                              734+CMBMARK  DS    C                   ATTENTION INDICATOR                  CM114000
000009                              735+CMBTIME  DS    CL9                 TIME OF DAY                          CM116000
000012                              736+CMBJOBNO DS    CL9                 JOB NUMBER                           CM118000
00001B                              737+CMBTEXT  DS    CL113               MESSAGE TEXT                         CM120000

                            0008C   738+CMBEND   EQU   *                   END OF CMB                   OY05859 CM121000
000000                              739+HASPNUC  CSECT                     END OF CMB DSECT                     CM122000



                                    741+*                                  SYMBOLIC DISPLACEMENTS               CM126000


                            00004   743+CMBFLD   EQU   CMBFLAGS-CMBDSECT   FLAG BYTE                            CM130000
                            00006   744+CMBMLD   EQU   CMBMSGL-CMBDSECT    MESSAGE LENGTH                       CM132000
                            00008   745+CMBMSD   EQU   CMBMSG-CMBDSECT     MESSAGE                              CM134000


                                    747+*                                  FLAG BYTE BITS                       CM138000


                            00080   749+WCMBFD   EQU   X'80'               END OF OUT OF LINE WTO (MLWTO)       CM142000
                            00040   750+WCMBFH   EQU   X'40'               OPERATION TYPE                       CM144000
                            00020   751+WCMBFE   EQU   X'20'               MESSAGE FOR HASP LOG ONLY            CM146000
                            00010   752+WCMBFF   EQU   X'10'               CMBCONS CONTAINS UCMID               CM148000

                            00008   753+WCMBFG   EQU   X'08'               CMBCONS CONTAINS REMOTE NUMBER       CM150000

                            00004   754+WCMBFA   EQU   X'04'               RESERVED FOR COMMAND PROCESSOR       CM152000
                            00002   755+WCMBFB   EQU   X'02'               RESERVED FOR COMMAND PROCESSOR       CM154000

                            00001   756+WCMBFC   EQU   X'01'               RESERVED FOR COMMAND PROCESSOR       CM156000


                                    758+*                         NOTE (1) LOGICAL CONSOLES (CMBCONS) ARE       CM160000
                                    759+*                                  SPECIFIED BY NULL WCMBFD, WCMBFF     CM162000
                                    760+*                                  AND WCMBFG SETTINGS.                 CM164000
                                    761+*                                                                       CM166000
                                    762+*                              (2) FOR WCMBFH...READ=1, WRITE=0         CM168000
                                    763+*                                                                       CM170000
NUC      HASP DEVICE CONTROL TABLE DSECT                                                                       PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





000000                              766+DCTDSECT DSECT                     DEVICE CONTROL TABLE DSECT           DC308000
000000                              767+DCTSTAT  DS    0C                  DCT STATUS                           DC310000

000000                              768+DCTPCE   DS    F                   ADDRESS OF PROCESSOR CONTROL ELEMENT DC312000

000004                              769+DCTBUFAD DS    F                   CURRENT BUFFER ADDRESS               DC314000
000008                              770+DCTPSTAT DS    0C                  REMOTE JOB ENTRY FLAGS               DC316000
000008                              771+DCTDCB   DS    0F                  ADDRESS OF DATA CONTROL BLOCK        DC318000
000008                              772+DCTSEEK  DS    F                   CURRENT TRACK ADDRESS                DC320000
00000C                              773+MDCTOPCT DS    0C                  COUNT OF OPEN RJE PROCESSORS         DC322000
00000C                              774+MDCTOBUF DS    0F                  RJE OUTPUT BUFFER CHAIN              DC324000
00000C                              775+DCTEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     DC326000
000010                              776+DCTBUFCT DS    C                   ACTIVE BUFFER COUNT                  DC328000
000011                              777+MDCTATTN DS    0C                  RJE LINE ACTION PENDING FLAGS        DC330000
000011                              778+DCTNO    DS    C                   DCT NUMBER                           DC332000
000012                              779+DCTDEVTP DS    C                   DEVICE TYPE                          DC334000
000013                              780+DCTIOTYP DS    0C                  I/O REQUEST TYPE                     DC336000

000013                              781+DCTPCODE DS    C                   LINE/REMOTE CODE                     DC338000
000014                              782+DCTFLAGS DS    0C                  OPERATOR COMMAND FLAGS               DC340000
000014                              783+DCTCHAIN DS    F                   ADDRESS OF NEXT DCT                  DC342000

000018                              784+DCTDEVN  DS    0CL8,CL4            EBCDIC DEVICE NAME                   DC344000
00001C                              785+DCTOTC   DS    H                   OVERLAY DEVICE TRACKS/CYLINDER       DC346000
00001E                              786+DCTOTT   DS    H                   OVERLAY EXTENT BEGINNING TT          DC348000
000020                              787+MDCTCODE DS    0F                  ADDRESS OF RJE CODE TABLE            DC350000
000020                              788+DCTFORMS DS    0F                  PRINT/PUNCH FORMS ID                 DC352000
000020                              789+DCTPRINT DS    C                   DEFAULT PRINT ROUTING                DC354000
000021                              790+DCTPUNCH DS    C                   DEFAULT PUNCH ROUTING                DC356000
000022                              791+DCTPRINC DS    C                   PRIORITY INCREMENT                   DC358000
000023                              792+DCTPRLIM DS    C                   PRIORITY LIMIT                       DC360000
000024                              793+DCTFCB   DS    F                   PRINT FCB ID                         DC360300
000028                              794+DCTUCS   DS    F                   PRINT UCS ID                         DC360600
00002C                              795+DCTPPSW  DS    X                   PRINT/PUNCH SWITCHES                 DC360900

00002D                              796+DCTCLASS DS    CL8                 PRINT/PUNCH CLASS MASK               DC361200
000035                              797+         DS    C                   CLASS MASK TERMINATOR                DC361500
000038                              798+DCTWORK  DS    0F                  START OF DEVICE WORK AREA            DC362000
000038                              799+RIDUCB   DS    0F                  INTERNAL READER UCB ADDRESS          DC364000

000038                              800+MDCTFCS  DS    H                   REMOTE TERMINAL FUNCTION CONTROL SEQ DC366000
00003A                              801+MDCTERCT DS    0C                  REMOTE TERMINAL ERROR COUNT          DC368000
00003A                              802+DCTPRLEN DS    C                   REMOTE TERMINAL DATA WIDTH           DC370000
00003B                              803+DCTPLINE DS    C                   REMOTE TERMINAL LINE CHARACTERISTICS DC372000
00003C                              804+MDCTRCB  DS    0C                  REMOTE TERMINAL RECORD CONTROL BYTE  DC374000
00003C                              805+MDCTDCT  DS    0F                  REMOTE TERMINAL DCT CHAIN FIELD      DC376000

00003C                              806+RIDFLAGS DS    H                   INTERNAL READER SYNCH FLAGS          DC378000
00003E                              807+RIDTJID  DS    H                   RESERVED                             DC380000
000040                              808+RIDECB   DS    0F                  INTERNAL READER ECB ADDRESS          DC382000
000040                              809+MDCTRSEQ DS    C                   REMOTE TERMINAL TRANSMIT SEQUENCE    DC384000
000041                              810+MDCTTSEQ DS    C,H                 REMOTE TERMINAL RECEIVE SEQUENCE     DC386000
000044                              811+MDCTPSWD DS    0CL8                REMOTE TERMINAL PASSWORD             DC388000
000044                              812+RIDTCB   DS    F                   INTERNAL READER TCB ADDRESS          DC390000
000048                              813+RIDDATA  DS    CL80                INTERNAL READER DATA AREA            DC394000

                            00098   814+DCTEND   EQU   *                   SYMBOL FOR END OF DCT                DC395000
000000                              815+HASPNUC  CSECT                     END OF DEVICE CONTROL TABLE DSECT    DC396000

NUC      HASP DCT STATUS BIT DEFINITIONS                                                                       PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    818+*                             DCTSTAT                                   DC402000



                            00080   820+DCTINUSE EQU   X'80'               DCT IS IN USE                        DC406000
                            00040   821+DCTDRAIN EQU   X'40'               DCT IS DRAINED                       DC408000

                            00020   822+DCTHOLD  EQU   X'20'               DCT IS HELD                          DC410000
                            00010   823+DCTEJECT EQU   X'10'               DEVICE IS AT CHNL 1 POSITION         DC411000





                                    825+*                             DCTPSTAT                                  DC414000




                            00080   827+DCTLOGAL EQU   X'80'               LOG EVERY CHANNEL END                DC418000
                            00040   828+DCTLEASE EQU   X'40'               LEASED LINE                          DC420000

                            00020   829+DCTETX   EQU   X'20'               AN ETX HAS BEEN RECEIVED             DC422000
                            00010   830+DCTSOFF  EQU   X'10'               A /*SIGNOFF CARD HAS BEEN RECEIVED   DC424000
                            00010   831+DCTEOF   EQU   X'10'               AN EOF HAS BEEN DETECTED             DC425000
                            00008   832+DCTSINON EQU   X'08'               REMOTE DCT IS ATTACHED TO LINE DCT   DC426000
                            00004   833+DCTPOST  EQU   X'04'               I/O COMPLETE FLAG                    DC428000
                            00002   834+DCTABORT EQU   X'02'               TRANSMISSION WAS ABORTED             DC430000
                            00001   835+DCTPBUF  EQU   X'01'               REMOTE OUTPUT BUFFER INDICATION      DC432000






                                    837+*                             DCTDEVTP                                  DC436000



                            00000   839+DCTDA    EQU   X'00'               DIRECT ACCESS DEVICE                 DC440000

                            00001   840+DCTOLAY  EQU   X'01'               OVERLAY DEVICE                       DC442000
                            00002   841+DCTLNE   EQU   X'02'               REMOTE JOB ENTRY LINE                DC444000
                            00010   842+DCTRDR   EQU   X'10'               LOCAL CARD READER                    DC446000

                            00012   843+DCTRJR   EQU   X'12'               REMOTE CARD READER                   DC450000
                            00014   844+DCTINR   EQU   X'14'               INTERNAL READER                      DC452000
                            00020   845+DCTPRT   EQU   X'20'               LOCAL PRINTER                        DC454000
                            00022   846+DCTRPR   EQU   X'22'               REMOTE PRINTER                       DC456000
                            00030   847+DCTPUN   EQU   X'30'               LOCAL PUNCH                          DC458000
                            00032   848+DCTRPU   EQU   X'32'               REMOTE PUNCH                         DC460000
                            00042   849+DCTRCON  EQU   X'42'               REMOTE CONSOLE                       DC464000

NUC      HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    852+*                             DCTIOTYP                                  DC470000




                            00080   854+DCTREAD  EQU   X'80'               READ REQUEST                         DC474000
                            00040   855+DCTWRITE EQU   X'40'               WRITE REQUEST                        DC476000
                            00008   856+DCTREJRM EQU   X'08'               REMOTE RESTRICTION ALWAYS 0          DC482000

                            00004   857+DCTREJJB EQU   X'04'               RESTRICTED FROM JOB COMMANDS         DC484000
                            00002   858+DCTREJDV EQU   X'02'               RESTRICTED FROM DEVICE COMMANDS      DC486000
                            00001   859+DCTREJSY EQU   X'01'               RESTRICTED FROM SYSTEM COMMANDS      DC488000





                                    861+*                             DCTPCODE                                  DC492000




                            00000   863+DCTPHALF EQU   X'00'               HALF-DUPLEX LINE                     DC496000
                            00001   864+DCTPFULL EQU   X'01'               FULL-DUPLEX LINE                     DC498000
                            00002   865+DCTPWIDE EQU   X'02'               WIDE-BAND LINE                       DC500000
                            00020   866+DCTPPRES EQU   X'20'               HARDWARE COMPRESS FEATURE            DC501000

                            00010   867+DCTPCON  EQU   X'10'               REMOTE TERMINAL CONSOLE              DC502000
                            00010   868+DCTPMRF  EQU   X'10'               MULTIPLE-RECORD FEATURE              DC504000
                            00008   869+DCTPTAB  EQU   X'08'               HORIZONTAL FORMAT CONTROL            DC506000
                            00004   870+DCTPROG  EQU   X'04'               PROGRAMMABLE INTERFACE               DC508000
                            00002   871+DCTPVAR  EQU   X'02'               VARIABLE LENGTH RECORDS              DC510000

                            00001   872+DCTPBLK  EQU   X'01'               BLOCKED RECORDS                      DC512000





                                    874+*                             DCTPLINE                                  DC516000




                            00000   876+DCTP2770 EQU   X'00'               1009, 2770, 3780                     DC520000
                            00001   877+DCTPHARD EQU   X'01'               1978, 2780                           DC522000
                            00002   878+DCTP20   EQU   X'02'               360/20 SUB-MODEL 5 OR 6              DC524000
                            00004   879+DCTP360  EQU   X'04'               360/22, 25, 30, 40, ETC.             DC526000
                            00006   880+DCTP20S2 EQU   X'06'               360/20 SUB-MODEL 2 OR 4              DC528000

                            00008   881+DCTP1130 EQU   X'08'               1130                                 DC530000
                            0000A   882+DCTPSYS3 EQU   X'0A'               SYSTEM/3                             DC532000
                            0000E   883+DCTPCPU  EQU   X'0E'               CPU TERMINAL                         DC534000
                            00010   884+DCTPHASP EQU   X'10'               HASP                                 DC536000
                            00020   885+DCTPASCI EQU   X'20'               USASCII CODE                         DC538000
                            00040   886+DCTPTRSP EQU   X'40'               TRANSPARENCY                         DC540000

                            00080   887+DCTPBSC  EQU   X'80'               BINARY SYNCHRONOUS LINE              DC542000
NUC      HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    890+*                             DCTFLAGS                                  DC548000



                            00080   892+DCTSTOP  EQU   X'80'               $Z ($STOP) COMMAND                   DC552000
                            00040   893+DCTDELET EQU   X'40'               $C ($DELETE) COMMAND                 DC554000

                            00020   894+DCTRSTRT EQU   X'20'               $E ($RESTART) COMMAND                DC556000
                            00010   895+DCTRPT   EQU   X'10'               $N ($REPEAT) COMMAND                 DC558000
                            00008   896+DCTBKSP  EQU   X'08'               $B ($BACKSPACE) COMMAND              DC560000
                            00004   897+DCTHOLDJ EQU   X'04'               $T...,H COMMAND                      DC562000
                            00004   898+DCTSPACE EQU   X'04'               $T...,C=1 COMMAND                    DC564000






                                    900+*                                  DCTPPSW                              DC568000



                            00080   902+DCTPPSWC EQU   X'80'               FCB CARRAGE ALTERED                  DC571000

                            00040   903+DCTPPSWF EQU   X'40'               FORMS CONTROLLED BY OPERATOR         DC572000
                            00020   904+DCTPPSWQ EQU   X'20'               QUEUE CLASSES ARE ALTERED            DC573000
                            00010   905+DCTPPSWS EQU   X'10'               SUPPRESS SEPARATOR PAGES             DC574000
                            00008   906+DCTPPSWT EQU   X'08'               UCS TRAIN ALTERED                    DC575000
                            00004   907+DCTPPSWU EQU   X'04'               UCS NOT STANDARD                     DC575500

                            00002   908+DCTPPSWI EQU   X'02'               DEVICE IDLE MESSAGE ISSUED           DC576000
                            00001   909+DCTPPSWO EQU   X'01'               OPERATOR ACTION ALLOWED              DC577000





                                    911+*                             RIDFLAGS                                  DC580000



                            00080   913+RIDPOST  EQU   X'80'               USER WAITING FOR POST                DC584000
                            00040   914+RIDBUSY  EQU   X'40'               I/O SIMULATION IN PROCESS            DC585000

NUC      HASP JOB QUEUE ENTRY FIELD DEFINITIONS                                                                PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    916+*                             HASP JOB QUEUE ENTRY DISPLACEMENTS        JQ056000


                            00000   918+QUEPRIO  EQU   0                   JOB PRIORITY                         JQ060000
                            00001   919+QUETYPE  EQU   1                   LOGICAL QUEUE TYPE                   JQ062000
                            00002   920+QUEJOBNO EQU   2                   HASP JOB NUMBER                      JQ064000

                            00004   921+QUEFLAGS EQU   4                   JOB QUEUE FLAGS                      JQ066000
                            00004   922+QUECHAIN EQU   4                   ADDRESS OF NEXT JOB QUEUE ELEMENT    JQ068000
                            00008   923+QUETRAK  EQU   8                   TRACK ADDRESS OF JOB CONTROL TABLE   JQ070000
                            0000C   924+QUEPRTRT EQU   12                  PRINT ROUTE                          JQ072000
                            0000D   925+QUEPUNRT EQU   13                  PUNCH ROUTE                          JQ074000
                            0000E   926+QUEJOECT EQU   14                  JOB OUTPUT ELEMENT COUNT             JQ076000









                                    928+*                             HASP JOB QUEUE ENTRY BIT DEFINITIONS      JQ084000





                                    930+*                             QUETYPE                                   JQ088000


                            00080   932+QENTBY   EQU   X'80'               QUEUE ENTRY BUSY BIT                 JQ092000

                            00040   933+$XEQ     EQU   X'40'               OS EXECUTION QUEUE                   JQ094000
                            00020   934+$INPUT   EQU   X'20'               INPUT QUEUE                          JQ096000
                            00010   935+$SETUP   EQU   X'10'               SETUP QUEUE                          JQ098000
                            00008   936+$BRKDOWN EQU   X'08'               BREAKDOWN QUEUE                      JQ100000
                            00004   937+$OUTPUT  EQU   X'04'               OUTPUT QUEUE                         JQ102000
                            00002   938+$HARDCPY EQU   X'02'               OUTPUT IN-PROGRESS QUEUE             JQ104000
                            00001   939+$PLOT    EQU   X'01'               PLOT QUEUE                           JQ106000
                            00000   940+$PURGE   EQU   X'00'               PURGE QUEUE                          JQ108000





                                    942+*                             QUEFLAGS                                  JQ112000



                            00080   944+QUEHOLDA EQU   X'80'               HOLD ALL JOBS                        JQ116000
                            00040   945+QUEHOLD1 EQU   X'40'               HOLD SINGLE JOB                      JQ118000
                            00020   946+QUEHOLD2 EQU   X'20'               HOLD FOR DUPLICATE JOB NAME          JQ120000

                            00010   947+QUEPURGE EQU   X'10'               JOB IS TO BE PURGED                  JQ122000
                            00008   948+QUEOPCAN EQU   X'08'               OPERATOR ISSUED $C OR $P JOB         JQ124000
                            00004   949+QUEOPRTE EQU   X'04'               OPERATOR HAS ISSUED $R ALL           JQ125000
                            00002   950+QUEJCTSW EQU   X'02'               JCT INTERLOCK FOR UPDATE             JQ125100
NUC      HASP JOB INFORMATION TABLE ELEMENT FIELD DEFINITIONS                                                  PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    952+*                   HASP JOB INFORMATION TABLE ELEMENT DISPLACEMENTS    JI040000





                            00000   954+JITJNAME EQU   0                   JOB NAME                             JI044000
                                    955+*                                                                       JI046000

                                    956+*                                                                       JI048000
                                    957+*        THE FOLLOWING ENTRIES ARE NOT IMPLEMENTED BUT REPRESENT        JI050000
                                    958+*        SUGGESTIONS AS TO POSSIBLE INSTALLATION MODIFICATIONS...       JI052000
                                    959+*                                                                       JI054000

                                    960+*                                                                       JI056000
                                    961+*                                                                       JI058000
                                    962+*JITLINE EQU   8                   ESTIMATED THEN ACTUAL PRINT LINES    JI060000
                                    963+*JITCARD EQU   12                  ESTIMATED THEN ACTUAL PUNCHED CARDS  JI062000
                                    964+*JITETIM EQU   16                  ESTIMATED EXECUTION TIME             JI064000
                                    965+*JITSAFE EQU   20                  JOB SECURITY CONTROL PASSWORD        JI066000
                                    966+*JITSTAT EQU   28                  ADDITIONAL JOB STATUS BITS           JI068000
                                    967+*JITETC  EQU   29                  ANYTHING ELSE                        JI070000
NUC      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              969+JCTDSECT DSECT                     JOB CONTROL TABLE DSECT              JC650000
                            00000   970+         USING JCTDSECT,JCT        ESTABLISH JCT ADDRESSABILITY         JC652000

000000                              971+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      JC654000
000058                              972+JCTJQE   DS    F                   OFFSET OF HASP JOB QUEUE ELEMENT     JC656000
00005C                              973+JCTIOTTR DS    F                   TRACK ADDRESS OF FIRST IOT           JC658000

000060                              974+JCTDSKEY DS    F                   PERIPHERAL DATA SET KEY              JC660000
000064                              975+JCTINJCT DS    F                   TRACK ADDRESS OF INPUT JCT           JC662000
000068                              976+         DS    X                   RESERVED                             JC664000
000069                              977+JCTSMFLG DS    BL1                 SMF FLAGS                            JC666000
00006A                              978+JCTPURGE DS    X                   START OF SMF PURGE RECORD            JC668000
00006B                              979+JCTJBOPT DS    BL1                 HASP JOB OPTIONS                     JC670000
00006C                              980+JCTJOBEB DS    CL4                 HASP ASSIGNED JOB NUMBER (EBCDIC)    JC672000
000070                              981+JCTJNAME DS    CL8                 JOB NAME FROM JOB CARD               JC674000
000078                              982+JCTPNAME DS    CL20                PROGRAMMER'S NAME FROM JOB CARD      JC676000
00008C                              983+JCTMCLAS DS    C                   MSGCLASS FROM JOB CARD               JC678000
00008D                              984+JCTJCLAS DS    C                   JOB CLASS FROM JOB CARD              JC680000
00008E                              985+         DS    X                   RESERVED                             JC682000

00008F                              986+JCTPRIO  DS    X                   HASP EXECUTION SELECTION PRIORITY    JC684000

000090                              987+         DS    X                   RESERVED                             JC686000
000091                              988+JCTOPRIO DS    X                   HASP OUTPUT SELECTION PRIORITY       JC688000

000092                              989+JCTROUTE DS    XL2                 INPUT ROUTE CODE                     JC690000
000094                              990+JCTINDEV DS    CL8                 HASP INPUT DEVICE NAME               JC692000
00009C                              991+JCTACCTN DS    CL4                 JOB ACCOUNTING NUMBER FROM JOB CARD  JC694000
0000A0                              992+JCTROOMN DS    CL4                 PROGRAMMER'S ROOM NUMBER             JC696000
0000A4                              993+JCTETIME DS    F                   ESTIMATED EXECUTION TIME             JC698000
0000A8                              994+JCTESTLN DS    F                   ESTIMATED OUTPUT LINES               JC700000
0000AC                              995+JCTESTPU DS    F                   ESTIMATED PUNCHED OUTPUT             JC702000
0000B0                              996+JCTFORMS DS    CL4                 JOB OUTPUT FORMS                     JC704000
0000B4                              997+         DS    X                   RESERVED                             JC706000
0000B5                              998+JCTCPYCT DS    X                   JOB PRINT COPY COUNT                 JC708000
0000B6                              999+         DS    X                   RESERVED                             JC710000
0000B7                             1000+JCTLINCT DS    X                   LINES PER PAGE                       JC712000

0000B8                             1001+JCTPROUT DS    XL2                 JOB PRINT ROUTE CODE                 JC714000
0000BA                             1002+JCTPUOUT DS    XL2                 JOB PUNCH ROUTE CODE                 JC716000

0000BC                             1003+JCTXEQON DS    F                   TIME ON EXECUTION PROCESSOR          JC718000

0000C0                             1004+JCTXDTON DS    F                   DATE ON EXECUTION PROCESSOR          JC720000
0000C4                             1005+JCTXEQOF DS    F                   TIME OFF EXECUTION PROCESSOR         JC722000
0000C8                             1006+JCTXDTOF DS    F                   DATE OFF EXECUTION PROCESSOR         JC724000
0000CC                             1007+JCTOUTON DS    F                   TIME ON OUTPUT PROCESSOR             JC726000
0000D0                             1008+JCTODTON DS    F                   DATE ON OUTPUT PROCESSOR             JC728000
0000D4                             1009+JCTOUTOF DS    F                   TIME OFF OUTPUT PROCESSOR            JC730000
0000D8                             1010+JCTODTOF DS    F                   DATE OFF OUTPUT PROCESSOR            JC732000
0000DC                             1011+JCTCARDS DS    F                   TOTAL NUMBER OF INPUT CARDS          JC734000
0000E0                             1012+JCTLINES DS    F                   GENERATED OUTPUT LINES               JC736000
0000E4                             1013+JCTPUNCH DS    F                   GENERATED PUNCHED OUTPUT             JC738000
0000E8                             1014+         DS    F                   RESERVED                             JC740000
0000EC                             1015+JCTPRTCT DS    F                   CURRENT NUMBER OF LINES PRINTED      JC742000

0000F0                             1016+JCTPAGCT DS    F                   CURRENT NUMBER OF PAGES PRINTED      JC744000
0000F4                             1017+JCTPUNCT DS    F                   CURRENT NUMBER OF CARDS PUNCHED      JC746000
0000F8                             1018+JCTESOUT DS    F                   ESTIMATED OUTPUT (LINES+CARDS)       JC748000

0000FC                             1019+JCTXOUT  DS    F                   GENERATED OUTPUT RECORDS             JC750000
000100                             1020+         DS    F                   RESERVED                             JC752000
000104                             1021+JCTCYSAV DS    XL100               INPUT ALLOCATION BIT MAP             JC754000
000168                             1022+JCTWORK  DS    XL144               144-BYTE WORK AREA                   JC756000
0001F8                             1023+         DS    0F                                                       JC758000
NUC      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0001F8                             1024+JCTJMR   DS    XL56                JMR AREA                             JC760000
000230                      001F8  1025+         ORG   JCTJMR                                                   JC762000
0001F8                             1026+JCTJMRJN DS    CL8                 JMR JOB NAME                         JC764000
000200                             1027+JCTRDRON DS    F                   TIME ON INPUT PROCESSOR              JC766000
000204                             1028+JCTRDTON DS    F                   DATE ON INPUT PROCESSOR              JC768000

000208                             1029+JCTCPUID DS    XL4                 JMR CPU IDENTIFICATION               JC770000
00020C                             1030+JCTUSEID DS    CL8                 JMR USER IDENTIFICATION              JC772000
000214                             1031+JCTSTEP  DS    X                   CURRENT STEP NUMBER                  JC774000
000215                             1032+JCTINDC  DS    BL1                 JMR SMF OPTIONS                      JC776000

000216                             1033+         DS    XL2                 RESERVED                             JC778000
000218                             1034+JCTUCOM  DS    F                   JMR USER COMMUNICATION AREA          JC780000
00021C                             1035+JCTUJVP  DS    F                   JMR ADDRESS OF USER EXIT ROUTINE     JC782000
000220                             1036+JCTRDROF DS    F                   TIME OFF INPUT PROCESSOR             JC784000
000224                             1037+JCTRDTOF DS    F                   DATE OFF INPUT PROCESSOR             JC786000
000228                             1038+JCTJOBIN DS    F                   JMR JOB SYSIN COUNT                  JC788000

00022C                             1039+JCTRDR   DS    XL2                 READER DEVICE TYPE AND CLASS         JC790000
00022E                             1040+JCTJMOPT DS    BL1                 JMR SMF OPTIONS                      JC792000
00022F                             1041+         DS    X                   RESERVED                             JC794000
000230                      00230  1042+         ORG                                                            JC796000
                            00230  1043+JCTEND   EQU   *                   END OF JOB CONTROL TABLE             JC798000





                                   1045+*                             JCTSMFLG                                  JC802000




                            00080  1047+JCTSMFL0 EQU   B'10000000'         RESERVED                             JC806000
                            00040  1048+JCTSMFL1 EQU   B'01000000'         RESERVED                             JC808000
                            00020  1049+JCTSMFL2 EQU   B'00100000'         RESERVED                             JC810000
                            00010  1050+JCTSMFL3 EQU   B'00010000'         RESERVED                             JC812000
                            00008  1051+JCTSMFL4 EQU   B'00001000'         RESERVED                             JC814000
                            00004  1052+JCTSMFL5 EQU   B'00000100'         RESERVED                             JC816000
                            00002  1053+JCTSMFL6 EQU   B'00000010'         RESERVED                             JC818000
                            00001  1054+JCTSMFL7 EQU   B'00000001'         RESERVED                             JC820000





                                   1056+*                             JCTJBOPT                                  JC824000




                            00080  1058+JCTPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              JC828000
                            00040  1059+JCTSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              JC830000

                            00020  1060+JCTTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           JC832000
                            00010  1061+JCTNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    JC834000

                            00008  1062+JCTXBACH EQU   B'00001000'         EXECUTION BATCHING JOB               JC836000
                            00004  1063+JCTJBOP5 EQU   B'00000100'         RESERVED                             JC838000
                            00002  1064+JCTJBOP6 EQU   B'00000010'         RESERVED                             JC840000
                            00001  1065+JCTJBOP7 EQU   B'00000001'         RESERVED                             JC842000
NUC      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                   1068+*                             JCTJMOPT                                  JC848000



                            00020  1070+JCTJMRUX EQU   B'00100000'         IF ON, TAKE USER EXITS FOR SMF       JC852000






                                   1072+*                                                                       JC856000
                                   1073+*        IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT      JC858000
                                   1074+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  JC860000

                                   1075+*        THE JCT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    JC862000
                                   1076+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    JC864000
                                   1077+*                                                                       JC866000
                            005D0  1078+$JCTTEST EQU   1960-JCTEND+JCTJQE                                       JC868000
000230 05D0                        1079+         DC    Y($JCTTEST)         TEST INSTRUCTION                     JC870000
000000                             1080+HASPNUC  CSECT                     END OF JOB CONTROL TABLE DSECT       JC872000
NUC      HASP TRACK EXTENT DATA TABLE DSECT                                                                    PAGE   34



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             1083+TEDDSECT DSECT                     EXTENT DATA DUMMY SECTION            TE074000
000000 00000000                    1084+TNCH     DC    F'0'                SEEK ADDRESS OF MOST RECENT $EXCP    TE076000

000004 00000000                    1085+TNTC     DC    F'0'                NR OF TRACKS PER CYL ON THIS DEVICE  TE078000
000008 0000                        1086+TNMD     DC    HS8'0'              EXTENT NUMBER, SHIFTED LEFT 8        TE080000
00000A 0000                        1087+TNRT     DC    H'0'                MAXIMUM RECORD NUMBER                TE082000
00000C 0190                        1088+TNGE     DC    H'400'              NUMBER OF TRACK GROUPS IN EXTENT     TE084000

00000E 0001                        1089+TNTG     DC    H'1'                NUMBER OF TRACKS PER GROUP           TE086000
000010 0000                        1090+TNMO     DC    H'0'                OFFSET OF THIS MAP FROM FIRST MAP    TE088000
000012 0032                        1091+TNMB     DC    H'50'               NUMBER OF BYTES IN A MAP             TE092000
000014                             1092+         DS    0F                                                       TE094000
                            00014  1093+TEDSIZ   EQU   *-TEDDSECT          LENGTH OF DSECT                      TE096000
000000                             1094+HASPNUC  CSECT                     END OF EXTENT DATA TABLE DSECT       TE098000

NUC      HASP TIMER QUEUE ELEMENT FIELD DEFINITIONS                                                            PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












                                   1097+*                             HASP TIMER QUEUE ELEMENT DISPLACEMENTS    TQ048000





                            00000  1099+ICHAIN   EQU   0                   ADDRESS OF NEXT TIMER QUEUE ELEMENT  TQ052000

                            00004  1100+ITIME    EQU   4                   SPECIFIED INTERVAL (IN TIMER UNITS)  TQ054000
                            00008  1101+IPOST    EQU   8                   FLAG BYTE AND ADDRESS OF EWF         TQ056000
NUC      HASP OVERLAY TABLE DSECT                                                                              PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             1104+OTBDSECT DSECT                     HASP OVERLAY TABLE DSECT             OT056000
000000                             1105+OTBADDR  DS    0F                  ADDRESS OF RESIDENT OVERLAY MODULE   OT064000
000000                             1106+OTBPRIO  DS    C                   PRIORITY OF NON-RESIDENT OVERLAY     OT066000
                                   1107+*                                   OR X'FF' IF RESIDENT                OT068000

000001                             1108+         DS    C                   RESERVED                             OT070000
000002                             1109+OTBTRAK  DS    H                   RELATIVE DISK T R OF OVERLAY MODULE  OT072000
                            00004  1110+OTBSIZE  EQU   *-OTBDSECT                                               OT082000
000000                             1111+HASPNUC  CSECT                     END OF OVERLAY TABLE DSECT           OT084000
NUC      HASP JOB OUTPUT ELEMENT DSECT                                                                         PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000000                             1113+JOEDSECT DSECT                     JOB OUTPUT ELEMENT DSECT             JE230000
                                   1114+*                                                                       JE232000
                                   1115+*        JOE FIELDS - USED AS A WORK ELEMENT                            JE234000
                                   1116+*                                                                       JE236000

000000                             1117+JOENEXT  DS    H                   PTR TO NEXT WORK ELEMENT             JE238000
000002                             1118+JOEFLAG  DS    H                   FLAG BITS                            JE240000
                            00080  1119+$JOEBUSY EQU   X'80'               JOE BUSY FLAG                        JE242000
                            00040  1120+$JOECKV  EQU   X'40'               CHECKPOINT ELEMENT VALID FLAG        JE244000
000004                             1121+JOECHAR  DS    H                   PTR TO CHARACTERISTICS ELEMENT       JE246000

000006                             1122+JOECKPT  DS    H                   PTR TO CHECKPOINT ELEMENT            JE248000
000008                             1123+JOESEC   DS    X                   SECURITY LEVEL OF DATA               JE250000
000009                             1124+JOECPU   DS    X                   CPU ID OF DATA                       JE252000
00000A                             1125+JOEROUT  DS    H                   REMOTE ID OF DATA                    JE254000
                            00080  1126+$JOEIRTE EQU   X'80'               EXPLICIT ROUTING                     JE256000
00000C                             1127+JOERECCT DS    F                   LINE/CARD COUNT FOR THIS JOE         JE258000
000010                             1128+JOEJQE   DS    F                   A(HASP JOB QUEUE ELEMENT)            JE260000

000014                             1129+JOEDEST  DS    H                   DESTINATION CODE FROM PDDB           JE262000
                                   1130+*                                                                       JE264000
                                   1131+*        JOE FIELDS - USED AS A CHARACTERISTICS ELEMENT                 JE266000

                                   1132+*                                                                       JE268000
000016                      00000  1133+         ORG   JOEDSECT            RESET LOCATION TO START OF JOE       JE270000
000000                             1134+         DS    H                   POINTER TO NEXT CHAR-JOE             JE272000
000002                             1135+JOEUSE   DS    H                   # OF JOES USING THIS ELEMENT         JE274000
000004                             1136+JOEFORM  DS    F                   FORMS NUMBER                         JE276000

000008                             1137+JOEFCB   DS    F                   FCB NUMBER                           JE278000
00000C                             1138+JOEUCS   DS    F                   UCS NUMBER                           JE280000
000010                             1139+JOEWTRID DS    CL8                 SPECIAL SYSOUT WRITER ID             JE282000
000018                             1140+JOEACTPR DS    X                   # OF ACTIVE PRINTERS                 JE284000
000019                             1141+JOEACTPU DS    X                   # OF ACTIVE PUNCHES                  JE286000
00001A                             1142+JOEUNUSD DS    H                   UNUSED, PROVIDES 360 WD BNDRY   RFIT JE286005
                                   1143+*                                                                       JE288000
                                   1144+*        JOE FIELDS - USED AS A CHECKPOINT ELEMENT                      JE290000

                                   1145+*                                                                       JE292000
00001C                      00000  1146+         ORG   JOEDSECT            RESET LOCATION TO START OF JOE       JE294000

000000                             1147+JOECKFLG DS    X                   CHECKPOINT FLAGS                     JE296000
000001                             1148+JOECOPY  DS    X                   COPY NUMBER IN PROGRESS              JE298000
000002                             1149+JOEJRCB  DS    H                   DISPL INTO EJECT BUFFER              JE300000
000004                             1150+JOEPDDB  DS    H                   DISPL IN JCT OF PDDB                 JE302000
000006                             1151+JOEPPCT  DS    H                   PDDB PAGE COUNT                      JE304000

000008                             1152+JOETLNC  DS    F                   TOTAL JOE LINE COUNT                 JE306000
00000C                             1153+JOETPCT  DS    F                   TOTAL JOE PAGE COUNT                 JE308000
000010                             1154+JOEMTTR  DS    F                   LAST EJECT BUFFER TRACK ADDRESS      JE310000
000014                             1155+JOEIOTTR DS    F                   CURRENT IOT TRACK ADDRESS            JE312000
000018                      0001C  1156+JOEEND   ORG   ,                                                        JE314000
                            0001C  1157+JOESIZE  EQU   *-JOEDSECT          LENGTH OF MAX JOE                    JE316000
000000                             1158+HASPNUC  CSECT                     END OF JOE DSECT                     JE318000
NUC      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                            00010  1160+$CVTPTR  EQU   16                  ADDRESS OF CVT POINTER               CT008000

000000                             1161+CVTDSECT DSECT                     COMMUNICATION VECTOR TABLE DSECT     CT012000


                                   1163+*                                                                       00510000
                                   1164+*              OS/360                                                   00560000
                                   1165+*        COMMUNICATION VECTOR TABLE                                     00800000

                                   1166+*                                                                       00810000
                                   1167+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5                    01050021
                                   1168+*                                                                       01200000
                            00010  1169+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT         01400000
                                   1170+*                                                                       01600000
                                   1171+*              BEGINNING OF CVT PROPER                                  01601000
                                   1172+*                                                                       01610000
000000                             1173+         DS    0F                                                       01611000
                            00000  1174+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE                 01840000
                                   1175+*                                                                       02000000

000000 00000000                    1176+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST  02200000

000004 00000000                    1177+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE                02610000
                                   1178+*                              ASYNCHRONOUS EXITS                       02620000
000008 00000000                    1179+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB                   02800000
00000C 00000000                    1180+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB                     03000000

000010 00000000                    1181+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT                03200000
                                   1182+*                              CONSOLE INTERRUPTION ROUTINE             03400000
000014 00000000                    1183+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE         03600000
000018 00000000                    1184+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING 03800000
                                   1185+*                              ROUTINE FOR SUPERVISOR                   04000000
00001C 00000000                    1186+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04200000
                                   1187+*                              RELATIVE TRACK ADDR TO ABSOLUTE          04400000
000020 00000000                    1188+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04600000
                                   1189+*                              ABSOLUTE TRACK ADDR TO RELATIVE          04800000
000024 00000000                    1190+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION   05000000
                                   1191+*                              IN UCB LOOKUP TABLE                      05200000

000028 00000000                    1192+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION     05400000
                                   1193+*                              IN UCB LOOKUP TABLE                      05600000
00002C 00000000                    1194+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE           05800000
                                   1195+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES 06000000

000030 00000000                    1196+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY      06200000
                                   1197+*                              IN UCB LOOKUP TABLE                      06400000
000034 00000000                    1198+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE         06600000
000038 00000000                    1199+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL             06800000
00003C 00000000                    1200+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)       07210000
                                   1201+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS    07220000
                                   1202+*                              MASTER SCHEDULER RESIDENT DATA AREA      07221000
000040 00000000                    1203+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE    07400000
000044 00000000                    1204+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE          07600000
000048 00000000                    1205+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS       08000000
                                   1206+*                              FOR DAMAGE ASSESSMENT ROUTINES           08200000
00004C 00000000                    1207+CVT0FN00 DC    A(0) -        RESERVED (MVT)                             08610000

000050 0A03                        1208+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER                         08800000
000052 07FE                        1209+CVTBRET  BR    14 -          RETURN TO CALLER                           09000000
000054 00000000                    1210+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB                    09200000

000058 00000000                    1211+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER     09411000
                                   1212+*                              ROUTINE (SHPC FIRST)                     09412000
00005C 00000000                    1213+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL              09430000
NUC      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000060 00000000                    1214+CVTSJQ   DC    A(0) -        RESERVED (MVT)                             09810000
000064 00000000                    1215+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR  10000000
000068 00000000                    1216+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE              10410000
                                   1217+*                              FOR INTERVAL TIMER                       10411000
00006C 00000000                    1218+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE              10420000
                                   1219+*                              FOR INTERVAL TIMER                       10421000
000070 00000000                    1220+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE         10600000

000074 10                          1221+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM                           11600000

                            00040  1222+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11600100
                            00020  1223+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11600200

                            00010  1224+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11600300
                            00004  1225+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11600400
000075 000000                      1226+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11601000
000078 00000000                    1227+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE            11820000
00007C 00000000                    1228+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER    12400000
000080 00000000                    1229+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS               12600000
000084 00000000                    1230+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE              12800000
000088 00000000                    1231+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER             13000000
00008C 00000000                    1232+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE         13200000
000090 00000000                    1233+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE            13400000
000094 00000000                    1234+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT          13810000
                                   1235+*                              DATA AREA (MVT/MFT)                      13820000

000098 00000000                    1236+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE    14000000
00009C 00000000                    1237+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE                14200000

0000A0 00000000                    1238+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE           14400000

0000A4 00000000                    1239+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS                    14600000
0000A8 00000000                    1240+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)      14601000
0000AC 00000000                    1241+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD         16638521
                                   1242+*                              (0 IF GFX INACTIVE) MVT                  16640821
0000B0 00000000                    1243+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA       16647721
                                   1244+*                              (MVT/MFT)                                16650000
0000B4 0000                        1245+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    16660000
0000B6 00                          1246+CVTOPTA  DC    AL1(00)    -     MISCELLANEOUS FLAGS                     16670021
                            00080  1247+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)               16680000
                            00040  1248+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --                    16681000
                                   1249+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16681100
                            00020  1250+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --          16683000

                                   1251+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16683200
                            00010  1252+CVTNIP   EQU   X'10' -       NIP RUNNING                                16690000
                            00008  1253+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)                     16691000

                            00004  1254+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16692000
                            00002  1255+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16693000
                            00001  1256+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16695000
0000B7 00                          1257+CVTOPTB  DC    AL1(00)     - MISCELLANEOUS FLAGS                        16700021
                            00080  1258+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)            16702000
                            00020  1259+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)        16704000
                                   1260+*                                                                       16800000
                                   1261+*              PCP OVERLAY                                              17000000
                                   1262+*                                                                       17200000
0000B8                             1263+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART            17400000
0000BB                             1264+CVTSTUSA DS    B -           STATUS BYTE A                              17600000
                            00008  1265+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART     17800000

                                   1266+*                              WAS INITIATED INTRASTEP                  18000000
                            00004  1267+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART           18200000
                                   1268+*                              WAS INITIATED INTERSTEP                  18400000

NUC      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00002  1269+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM          18600000
                                   1270+*                              AND DATA HAS NOT BEEN READ               18800000
0000BC                             1271+         DS    CL2 -         RESERVED                                   19000000
0000BE                             1272+         DS    CL2 -         RESERVED                                   19200000
                                   1273+*                                                                       19400000
                                   1274+*              MVT/MFT OVERLAY                                          19600000
                                   1275+*                                                                       19800000
0000C0                      000B8  1276+         ORG   CVTCRTTR                                                 20000000
                                   1277+*                                                                       20200000
0000B8 00000000                    1278+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR           20400000

0000BC 00000000                    1279+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21000000
                                   1280+*                                                                       21670000
                                   1281+*              END OF OVERLAYS                                          21800000
                                   1282+*                                                                       22000000

0000C0 00000000                    1283+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)                       22421000
0000C4 00000000                    1284+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA            22600000
0000C8 00000000                    1285+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT     22610000
                                   1286+*                              (MVT/MPS)                                22610100
0000CC 00000000                    1287+CVTUSER  DC    A(0) -        A WORD TO THE USER                         22620000
0000D0                      000CC  1288+         ORG   CVTUSER -     REMAP CVTUSER AS CVTHJES              RFIT 22620100

0000CC                             1289+CVTHJES  DS    0A -          SAME AS CVTHJESA BELOW                RFIT 22620300
0000CC 00                          1290+         DC    XL1'00' -     RESERVED - FIRST BYTE OF CVTHJES      RFIT 22620500
0000CD 000000                      1291+CVTHJESA DC    AL3(0) -      ADDRESS OF HASP COMMUNICATION TABLE   RFIT 22620700
0000D0                      000D0  1292+         ORG   , -           RESTORE LOCATION COUNTER              RFIT 22620900
                                   1293+*                                                                       23000000
                                   1294+*              MFT/MVT CVT EXTENSION                                    24000000
                                   1295+*                                                                       24200000
0000D0 00000000                    1296+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT       24400021

0000D4 0A0D                        1297+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)                 24600000
0000D6 0A06                        1298+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)   25000000

0000D8 00000000                    1299+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25421000
0000DC 00000000                    1300+CVTPATCH DC    V(IEAPATCH) - ADDR OF FE PATCH AREA                      25540000
0000E0 00000000                    1301+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA  25800000
                                   1302+*                              (MVT/MFT)                                25810000
0000E4                             1303+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)             26000000
0000E4 00                          1304+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)                   26050000
                            00080  1305+CVTTSRDY EQU   X'80' -       TIME SHARING READY                         26100000
0000E5 000000                      1306+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)             26150000

0000E8 00000000                    1307+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     27393221
0000EC                             1308+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)   27394021
0000EC 00                          1309+CVTGTFST DC    B'0' -        STATUS FLAGS                               27396021
                            000C0  1310+CVTGTFS  EQU   X'C0' -       STATE                                      27398021
                                   1311+*/       00    CVTGTFIN      INACTIVE                                   27398421

                                   1312+*/       01    CVTGTFSR      STARTING                                   27398821
                                   1313+*/       10    CVTGTFSP      STOPPING                                   27399221
                                   1314+*/       11    CVTGTFAC      ACTIVE                                     27399621

                            00020  1315+CVTSTATE EQU   X'20' -       IN CONTROL                                 27399721
                            00010  1316+CVTMODE  EQU   X'10' -       EXT MODE                                   27399821
                            00008  1317+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA                27399921
                            00004  1318+CVTUSR   EQU   X'04' -       USR TRACE                                  27449921
                            00002  1319+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID                       27459921
0000ED 000000                      1320+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE                27469921
0000F0                             1321+CVTTCMFG DS    0B -          TCAM FLAGS                                 27499921

                            00080  1322+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)                         27600000
0000F0 00000000                    1323+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF             27610000
NUC      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1324+*                            TCAM ADDRESS VECTOR TABLE                  27620021

                                   1325+*                                                                       29401221
                                   1326+*              MVT CVT EXTENSION                                        29401321
                                   1327+*                                                                       29401421
0000F4                             1328+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE 29401521

                                   1329+*                            (PWF)                               S21167 29401621
0000F4 80                          1330+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY   29404021
                                   1331+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167 29404221
                            00080  1332+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167 29404421
0000F5 000000                      1333+CVTVOLT2 DC    AL3(0)     -  PWF RECHECK TIME DELAY.  THIS VALUE IS     29404621
                                   1334+*                            OVERLAID BY CVTVOLM2 AFTER PWF             29404821

                                   1335+*                            INITIALIZATION                      S21167 29405021
0000F8 00000000                    1336+         DC    A(0) -        RESERVED                                   29405221
                                   1337+*                                                                       29407021
                                   1338+*              MVT/MFT CVT EXTENSION                                    29408021
                                   1339+*                                                                       29408821

0000FC 00000114                    1340+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1              29410821
                                   1341+*                            (ICB421)                APAR'S 47331,47332 29413221
000100                             1342+         DS    F -           RESERVED                                   29414221
000104                             1343+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE         29415221
000104                             1344+         DS    X -           RESERVED                                   29416421

000105 000000                      1345+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE         29417421
000108                             1346+         DS    F -           RESERVED                                   29418421
00010C                             1347+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307 29419421
00010C                             1348+         DS    X -           RESERVED                            ICB307 29420421
00010D 000000                      1349+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND              29421421

                                   1350+*                            COMMUNICATION AREA                  ICB307 29422421
000110                             1351+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308 29423421
000110                             1352+         DS    X -           RESERVED                            ICB308 29424421
000111 000000                      1353+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY      29425421
                                   1354+*                            ROUTINE                             ICB308 29426421

                                   1355+*                                                                       29427421
                                   1356+*              COMMON EXTENSION 1                                       29435721
                                   1357+*              ADDRESS OF EXTENSION IS IN CVTEXT1                       29445721
                                   1358+*                                                                       29455721
                                   1359+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,               29456121
                                   1360+*              YOU SHOULD CODE -                                        29462521

                                   1361+*                                                                       29464521
                                   1362+*              L     REG,CVTEXT1                                        29466521
                                   1363+*              USING CVTXTNT1,REG                                       29468521
                                   1364+*                                                                       29468621

                                   1365+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.               29468721
                                   1366+*                                                                       29468821
                            00114  1367+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1                29475221
                                   1368+*                            (ICB421)                APAR'S 47331,47332 29475721
000114 00000000                    1369+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS        29477221

                                   1370+*                            (ISAM) (ICB421)         APAR'S 47331,47332 29479221
                                   1371+*                                                                       29494421
                                   1372+*              END OF CVT PROPER                                        29513521
                                   1373+*                                                                       29532621
                                   1374+*                                                                       29870000
                                   1375+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT           29880000
                                   1376+*                                                                       29890000

000000                             1377+HASPNUC  CSECT                     END OF CVT DSECT                     CT020000
NUC      OS TASK CONTROL BLOCK DSECT                                                                           PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             1380+TCBDSECT DSECT                     TASK CONTROL BLOCK DSECT             TC010000
000000                             1381+TCBRBP   DS    F                   ADDRESS OF TOP RB                    TC012000
000004                             1382+TCBPIE   DS    F                   ADDRESS OF PROGRAM INTERRUPT ELEMENT TC014000

000008                             1383+TCBDEB   DS    F                   ADDRESS OF DEB QUEUE                 TC016000
00000C                             1384+TCBTIO   DS    F                   ADDRESS OF TASK I/O TABLE            TC018000
000010                             1385+TCBCMP   DS    F                   TASK COMPLETION CODE                 TC020000
000014                             1386+TCBTRN   DS    F                   ADDRESS OF TESTRAN CONTROL TABLE     TC022000
000018                             1387+TCBMSS   DS    F                   MAIN STORAGE SUPERVISOR POINTER      TC026000
00001C                             1388+TCBPKF   DS    C                   PROTECTION KEY                       TC028000
00001D                             1389+TCBFLGS  DS    3C                  MISCELLANEOUS FLAGS                  TC028800
000020                             1390+TCBFLGS4 DS    C                   NONDISPATCHABILITY FLAGS             TC029600

                            00010  1391+TCBHNDSP EQU   X'10'               HASP FREEZE BIT                      TC030400
000021                             1392+TCBFLGS5 DS    C                   NONDISPATCHABILITY FLAGS             TC031200

000022                             1393+TCBLMP   DS    C                   ENQUEUE COUNT / LIMIT PRIORITY       TC032000
000023                             1394+TCBDSP   DS    C                   DISPATCHING PRIORITY                 TC034000
000024                             1395+TCBLLS   DS    F                   LOAD LIST                            TC036000
000028                             1396+TCBJLB   DS    F                   ADDRESS OF JOBLIB DCB                TC038000
00002C                             1397+TCBJPQ   DS    F                   ADDRESS OF CDE FOR JPA               TC040000

000030                             1398+TCBGRS   DS    16F                 GENERAL REGISTER SAVE AREA           TC042000
000070                             1399+TCBQEL   DS    0C                  ENQUEUE COUNT (MVT)                  TC046000
000070                             1400+TCBFSA   DS    F                   ADDRESS OF FIRST PROGRAM SAVE AREA   TC048000
000074                             1401+TCBTCB   DS    F                   ADDRESS OF NEXT LOWER PRIORITY TCB   TC050000
000078                             1402+TCBTME   DS    F                   ADDRESS OF TIMER ELEMENT             TC052000
00007C                             1403+TCBJSTCB DS    F                   ADDRESS OF FIRST TCB FOR JOB STEP    TC056000
000080                             1404+TCBNTC   DS    F                   ADDRESS OF PREVIOUS TCB              TC058000
000084                             1405+TCBOTC   DS    F                   ADDRESS OF ORIGINATING TCB           TC060000
000088                             1406+TCBLTC   DS    F                   ADDRESS OF LAST TCB ON SUBTASK QUEUE TC062000

00008C                             1407+TCBIQE   DS    F                   ADDRESS OF IQE FOR ETXR ROUTINE      TC064000

000090                             1408+TCBECB   DS    F                   ADDRESS OF ECB POSTED ON COMPLETION  TC066000
000094                             1409+TCBTSFLG DS    C                   TIME SHARING FLAGS                   TC066800
000095                             1410+TCBSTPCT DS    C                   STATUS STOP COUNT                    TC067600
000096                             1411+TCBTSLP  DS    C                   TS TASK LIMIT PRIORITY               TC068400
000097                             1412+TCBTSDP  DS    C                   TS TASK DISPATCHING PRIORITY         TC069200

000098                             1413+TCBPQE   DS    F                   ADDRESS OF REGION DUMMY PQE - 8      TC070000
00009C                             1414+TCBAQE   DS    F                   ADDRESS OF ALLOCATED QUEUE ELEMENT   TC072000
0000A0                             1415+TCBNSTAE DS    F                   ADDR OF CURRENT STAE CONTROL BLOCK   TC074000
0000A4                             1416+TCBTCT   DS    F                   ADDRESS OF THE TCT                   TC076000
0000A8                             1417+TCBUSER  DS    F                   USER FIELD                           TC078000
0000AC                             1418+TCBNDSP  DS    F                   SECONDARY NONDISPATCHABILITY         TC080000
0000B0                             1419+TCBPCE   DS    0F .                ADDRESS OF HASP PCE         FJP/RFIT TC081700
                            00001  1420+TCBPCEND EQU   X'01' .             HASP NON-DISPATCH. FLAG     FJP/RFIT TC081800
0000B0                             1421+         DS    F                   RESERVED                             TC082000
0000B4                             1422+TCBJSCB  DS    F                   ADDRESS OF JSCB                      TC083000

000000                             1423+HASPNUC  CSECT                     END OF TASK CONTROL BLOCK DSECT      TC084000

NUC      OS GENERAL REQUEST BLOCK DSECT                                                                        PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             1426+RBPREFIX DSECT                     REQUEST BLOCK PREFIX DSECT           RB009000
000000                             1427+         DS    (X'3E')C                                                 RB010000
00003E                             1428+RBINTCOD DS    H                   INTERRUPT CODE                       RB011000
000040                             1429+RBDSECT  DS    0F                  REQUEST BLOCK DSECT                  RB012000
000040                             1430+RBEXRTNM DS    0CL8                MVT SIRB ERROR EXIT ROUTINE NAME     RB014000
000040                             1431+RBTABNO  DS    0H                  MVT SVRB DISPLACEMENT FOR TACT ENTRY RB016000
000040                             1432+RBTMFLD  DS    0C                  MVT IRB INDICATORS                   RB018000
000040                             1433+RBPPSAV  DS    0F,H                MVT IRB PROBLEM PROGRAM SAVE AREA    RB020000
000042                             1434+RBRTLNTH DS    H                   MVT SVRB SVC ROUTINE LENGTH          RB022000
000044                             1435+RBABOPSW DS    F                   MVT RIGHT HALF OF USERS OLD PSW      RB024000
000048                             1436+RBWCSA   DS    C                   MVT WAIT COUNT SAVE AREA             RB028000

000049                             1437+RBSIZE   DS    C                   MVT SIZE OF THIS RB                  RB030000
00004A                             1438+RBSTAB   DS    H                   MVT STATUS AND ATTRIBUTE BITS        RB034000
00004C                             1439+RBEP     DS    0F                  MVT IRB ASYNCHRONOUS ROUTINE ENTRY   RB040000
00004C                             1440+RBCDFLGS DS    0C                  MVT CONTENTS CONTROL FLAGS           RB042000

00004C                             1441+RBCDE    DS    0F                  MVT ADDRESS OF CDE                   RB044000
00004C                             1442+RBSVTQN  DS    F                   MVT SVRB ADDRESS OF NEXT TRANS RB    RB046000
000050                             1443+RBOPSW   DS    D                   MVT OLD PSW                          RB050000
000058                             1444+RBUSE    DS    0C                  MVT ATTACH USE COUNT                 RB054000
000058                             1445+RBPGMQ   DS    0F                  MVT ADDR OF SERIALLY REUSE PROG RB   RB056000
000058                             1446+RBTAWCSA DS    C                   MVT SVRB WAIT COUNT SAVE AREA        RB058000
000059                             1447+RBSVTTR  DS    0CL3                MVT SVRB TTR FOR SVC ROUTINE         RB060000
00005A                             1448+RBIQE    DS    H                   MVT IRB LIST ORIGIN FOR IQE (RQE)    RB062000
00005C                             1449+RBWCF    DS    0C                  MVT WAIT COUNT                       RB068000
00005C                             1450+RBLINK   DS    F                   MVT ADDRESS OF NEXT RB OR TCB        RB070000
000060                             1451+RBGRSAV  DS    16F                 MVT GENERAL REGISTER SAVE AREA       RB074000
0000A0                             1452+RBNEXAV  DS    0F                  MVT IRB ADDR OF NEXT AVAILABLE IQE   RB076000

0000A0                             1453+RBEXSAV  DS    16F                 MVT SVRB EXTENDED SAVE AREA          RB078000
000000                             1454+HASPNUC  CSECT                     END OF REQUEST BLOCK DSECT           RB080000
NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   44



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1456+*,***  IHB069  DEVD NOT SPECIFIED-ALL ASSUMED


                                   1458+*                       DCB SYMBOLIC DEFINITION FOR                     07700000
                                   1459+*                       PHYSICAL SEQUENTIAL                             07900000

                                   1461+*********************************************************************** 09960021
                                   1462+*  OS     RELEASE 21.8, 03/22/74                                      * 10000021
                                   1463+*  OS/VS1 RELEASE 03.1, 03/22/74                                      * 10010021
                                   1464+*********************************************************************** 10020021

000000                             1466+IHADCB   DSECT , -            DCBPTR                                    10150000



                            00080  1468+DCBBIT0  EQU   128                                                      10210021
                            00040  1469+DCBBIT1  EQU   64                                                       10220021

                            00020  1470+DCBBIT2  EQU   32                                                       10230021
                            00010  1471+DCBBIT3  EQU   16                                                       10240021
                            00008  1472+DCBBIT4  EQU   8                                                        10242021
                            00004  1473+DCBBIT5  EQU   4                                                        10244021
                            00002  1474+DCBBIT6  EQU   2                                                        10246021
                            00001  1475+DCBBIT7  EQU   1                                                        10248021

                                   1477+*                       DEVICE INTERFACES                               10350000

                                   1479+*                       DIRECT ACCESS DEVICES                           10500000

000000                             1481+DCBRELAD DS    CL4 -          PARTITIONED ORGANIZATION DATA SET -       10600000

                                   1482+*                             ADDRESS (IN THE FORM TTRN) OF MEMBER      10650000
                                   1483+*                             CURRENTLY USED.  ---                      10700000

                                   1484+*                             SYS1.LOGREC DATA SET - IF CCH OPTION HAS  10750000

                                   1485+*                             BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS 10800000
                                   1486+*                             OF A 12-BYTE PARAMETER IN THE EXPANSION   10850000
                                   1487+*                             OF MACRO INSTRUCTION IGFCATAP             10900000
000004                             1488+DCBKEYCN DS    FL1 -          KEYED BLOCK OVERHEAD CONSTANT             10950000
000005                             1489+DCBFDAD  DS    CL8 -          FULL DISK ADDRESS IN THE FORM OF MBBCCHHR 11000000
                                   1490+*                             OF RECORD THAT WAS JUST READ OR WRITTEN   11050000

00000D                      0000C  1492+         ORG   DCBFDAD+7                                                11150000
00000C                             1493+DCBDVTBL DS    0A -           SAME AS DCBDVTBA BELOW                    11200000
00000C                             1494+         DS    X -            LAST BYTE OF DCBFDAD                      11250000
00000D                             1495+DCBDVTBA DS    AL3 -          ADDRESS OF ENTRY IN I/O DEVICE            11300000
                                   1496+*                             CHARACTERISTICS TABLE FOR DEVICE BEING    11350000

                                   1497+*                             USED                                      11400000
000010                             1498+         DS    FL1 -          DCBKEYLE - KEY LENGTH OF DATA SET         11450000
000011                             1499+         DS    C -            DCBDEVT - DEVICE TYPE                     11500000

                                   1500+*   FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION      11550000
                            00021  1501+DCBDV311 EQU   X'21' -        2311 DISK DRIVE                           11600000
                            00022  1502+DCBDV301 EQU   X'22' -        2301 PARALLEL DRUM                        11650000
                            00023  1503+DCBDV303 EQU   X'23' -        2303 SERIAL DRUM                          11700000
                            00024  1504+DCBDV302 EQU   X'24' -        2302 DISK STORAGE                         11750000
                            00025  1505+DCBDV321 EQU   X'25' -        2321 DATA CELL DRIVE                      11800000
                            00028  1506+DCBDV314 EQU   X'28' -        2314 DISK STORAGE FACILITY                11850000
000012                             1507+DCBTRBAL DS    H -            TRACK BALANCE.  NUMBER OF BYTES REMAINING 11900000
                                   1508+*                             ON CURRENT TRACK AFTER A WRITE OPERATION  11950000
                                   1509+*                             (THIS QUANTITY MAY BE NEGATIVE IF THERE   12000000
NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   1510+*                             ARE NO BYTES REMAINING ON TRACK).         12050000

                                   1512+*                       MAGNETIC TAPE                                   12200000


000014                      00000  1514+         ORG   IHADCB                                                   12300000
000000                             1515+         DS    CL12 -         RESERVED FOR I/O SUPERVISOR               12350000
00000C                             1516+DCBBLKCT DS    F -            BLOCK COUNT FOR EACH VOLUME               12400000
000010                             1517+DCBTRTCH DS    C -            TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 12450000
                            00023  1518+DCBMTE   EQU   X'23' -        E  - EVEN PARITY                          12500000
                            0003B  1519+DCBMTT   EQU   X'3B' -        T  - BCD/EBCDIC TRANSLATION               12550000
                            00013  1520+DCBMTC   EQU   X'13' -        C  - DATA CONVERSION                      12600000
                            0002B  1521+DCBMTET  EQU   X'2B' -        ET - EVEN PARITY AND TRANSLATION          12650000
000011                             1522+         DS    C -            DCBDEVT - DEVICE TYPE                     12700000
                            00081  1523+DCBDVMT  EQU   X'81' -        2400 SERIES MAGNETIC TAPE UNIT (7-TRACK   12750000
                                   1524+*                             OR 9-TRACK)                               12800000

                            00083  1525+DCBDVMT3 EQU   X'83' -        3400 SERIES MAGNETIC TAPE UNIT     ICB277 12850000
000012                             1526+DCBDEN   DS    C -            TAPE DENSITY - 2400 SERIES MAGNETIC TAPE  12900000
                                   1527+*                             UNITS                                     12950000
                                   1528+*                             CODE    7-TRACK     9-TRACK               13000000

                            00003  1529+DCBMTDN0 EQU   X'03' -         0       200 BPI       -                  13050000
                            00043  1530+DCBMTDN1 EQU   X'43' -         1       556 BPI       -                  13100000
                            00083  1531+DCBMTDN2 EQU   X'83' -         2       800 BPI     800 BPI              13150000
                            000C3  1532+DCBMTDN3 EQU   X'C3' -         3         -        1600 BPI              13200000
                            000D3  1533+DCBMTDN4 EQU   X'D3' -         4         -        6250 BPI        99223 13210003
000013                             1534+         DS    X -            RESERVED                                  13250000


                                   1536+*                       PAPER TAPE                                      13400000

000014                      00008  1538+         ORG   IHADCB+8                                                 13500000
000008                             1539+DCBLCTBL DS    A -            ADDRESS OF TRANSLATE TABLE                13550000
00000C                             1540+         DS    XL4 -          RESERVED                                  13600000
000010                             1541+DCBCODE  DS    C -            PAPER TAPE CODE BEING USED.  THE          13650000
                                   1542+*                             APPROPRIATE TRANSLATE TABLE IS MADE       13700000

                                   1543+*                             AVAILABLE                                 13750000
                            00080  1544+DCBPTCDN EQU   X'80' -        N - NO CONVERSION                         13800000

                            00040  1545+DCBPTCDI EQU   X'40' -        I - IBM BCD                               13850000
                            00020  1546+DCBPTCDF EQU   X'20' -        F - FRIDEN                                13900000
                            00010  1547+DCBPTCDB EQU   X'10' -        B - BURROUGHS                             13950000
                            00008  1548+DCBPTCDC EQU   X'08' -        C - NATIONAL CASH REGISTER                14000000
                            00004  1549+DCBPTCDA EQU   X'04' -        A - ASCII (8-TRACK)                       14050000
                            00002  1550+DCBPTCDT EQU   X'02' -        T - TELETYPE                              14100000
000011                             1551+         DS    C -            DCBDEVT - DEVICE TYPE                     14150000
                            00050  1552+DCBDVPTP EQU   X'50' -        2671 PAPER TAPE READER                    14200000

000012                             1553+         DS    X -            RESERVED                                  14250000
000013                             1554+DCBPTFLG DS    BL1 -          PAPER TAPE FLAGS                          14300000
                            00010  1555+DCBPTIC  EQU   DCBBIT3 -      INVALID CHARACTER IN LAST RECORD READ     14350003
                            00008  1556+DCBPTECT EQU   DCBBIT4 -      END OF RECORD CHARACTER REACHED IN        14400003
                                   1557+*                             TRANSLATION                               14450000

                            00004  1558+DCBPTECR EQU   DCBBIT5 -      END OF RECORD CHARACTER DETECTED DURING   14500003
                                   1559+*                             READ                                      14550000
                            00002  1560+DCBPTUCT EQU   DCBBIT6 -      IF ONE, UPPER CASE TRANSLATE.             14600003

                                   1561+*                             IF ZERO, LOWER CASE TRANSLATE             14650000
                            00001  1562+DCBPTERR EQU   DCBBIT7 -      ERROR DETECTED ON READ                    14700003

                                   1564+*                       PRINTER                                         14850000
NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000014                      00010  1566+         ORG   IHADCB+16                                                14950000

000010                             1567+DCBPRTSP DS    C -            NUMBER INDICATING NORMAL PRINTER SPACING  15000000
                            00001  1568+DCBPRSP0 EQU   X'01' -        0 - NO SPACING                            15050000
                            00009  1569+DCBPRSP1 EQU   X'09' -        1 - SPACE ONE LINE                        15100000
                            00011  1570+DCBPRSP2 EQU   X'11' -        2 - SPACE TWO LINES                       15150000
                            00019  1571+DCBPRSP3 EQU   X'19' -        3 - SPACE THREE LINES                     15200003

000011                             1572+         DS    C -            DCBDEVT - DEVICE TYPE                     15250000
                            00048  1573+DCBDVPR1 EQU   X'48' -        1403 PRINTER AND 1404 PRINTER (CONTINUOUS 15300000
                                   1574+*                             FORM SUPPORT ONLY)                        15350000
                            0004A  1575+DCBDVPR2 EQU   X'4A' -        1443 PRINTER                              15400000

                            00049  1576+DCBDVPR3 EQU   X'49' -        3211 PRINTER                              15450000
000012                             1577+DCBPRTOV DS    C -            TEST-FOR-PRINTER-OVERFLOW MASK            15500000
                                   1578+*                             (PRTOV MASK)                              15550000
                            00020  1579+DCBPRC9  EQU   X'20' -        9  - TEST FOR CHANNEL 9 OVERFLOW          15600000
                            00010  1580+DCBPRC12 EQU   X'10' -        12 - TEST FOR CHANNEL 12 OVERFLOW         15650000
000013                             1581+         DS    X -            RESERVED                                  15700000


                                   1583+*                       CARD READER, CARD PUNCH                         15850000

000014                      00010  1585+         ORG   IHADCB+16                                                15950000
000010                             1586+DCBMODE  DS    0B -           MODE OF OPERATION FOR 1442 CARD READ      16000000

                                   1587+*                             PUNCH (BITS 0-3)                          16050000
000010                             1588+DCBSTACK DS    B -            STACKER SELECTION (BITS 4-7)              16100000
                            00080  1589+DCBMODEC EQU   DCBBIT0 -      COLUMN BINARY MODE                        16150003
                            00040  1590+DCBMODEE EQU   DCBBIT1 -      EBCDIC MODE                               16200003
                            00020  1591+DCBMODEO EQU   DCBBIT2 -      OPTICAL MARK READ MODE                    16250003

                            00010  1592+DCBMODER EQU   DCBBIT3 -      READ COLUMN ELIMINATE MODE                16300003
                            00002  1593+DCBSTCK2 EQU   DCBBIT6 -      STACKER 2                                 16350003
                            00001  1594+DCBSTCK1 EQU   DCBBIT7 -      STACKER 1                                 16400003
000011                             1595+         DS    C -            DCBDEVT - DEVICE TYPE                     16450000
                            00041  1596+DCBDVCR0 EQU   X'41' -        2540 CARD READER                          16500000

                            00042  1597+DCBDVCP0 EQU   X'42' -        2540 CARD PUNCH                           16550000
                            00043  1598+DCBDVCRP EQU   X'43' -        1442 CARD READ PUNCH                      16600000
                            00044  1599+DCBDVCR1 EQU   X'44' -        2501 CARD READER                          16650000
                            00045  1600+DCBDVCPR EQU   X'45' -        2520 CARD READ PUNCH                      16700000
                            00046  1601+DCBDVCR2 EQU   X'46'          3505 CARD READER                   XM0629 16710002

                            0004C  1602+DCBDVCP1 EQU   X'4C'          3525 CARD PUNCH                    XM0629 16720002
000012                             1603+         DS    X -            RESERVED                                  16750000
000013                             1604+DCBFUNC  DS    B -            FUNCTION INDICATOR FOR THE 3525           16800000
                            00080  1605+DCBFNCBI EQU   DCBBIT0 -      INTERPRET (PUNCH AND PRINT TWO LINES)     16850003
                            00040  1606+DCBFNCBR EQU   DCBBIT1 -      READ                                      16900003
                            00020  1607+DCBFNCBP EQU   DCBBIT2 -      PUNCH                                     16950003

                            00010  1608+DCBFNCBW EQU   DCBBIT3 -      PRINT                                     17000003
                            00008  1609+DCBFNCBD EQU   DCBBIT4 -      DATA PROTECTION                           17050003
                            00004  1610+DCBFNCBX EQU   DCBBIT5 -      THIS DATA SET IS TO BE PRINTED            17100003
                            00002  1611+DCBFNCBT EQU   DCBBIT6 -      TWO-LINE PRINT SUPPORT REQUEST            17150003


                                   1613+*                       OPTICAL READER AND MAGNETIC CHAR READER         18100000

000014                      00000  1615+         ORG   IHADCB                                                   18200000
000000                             1616+DCBWTOID DS    0A -           SAME AS DCBWTOIA BELOW                    18250000

000000                             1617+         DS    X -            RESERVED                                  18300000
000001                             1618+DCBWTOIA DS    AL3 -          A BINARY IDENTIFICATION NUMBER ASSIGNED   18350000
                                   1619+*                             BY COMMUNICATIONS TASK TO MESSAGE ISSUED  18400000
                                   1620+*                             BY WTO MACRO.  THIS NUMBER IS USED BY THE 18450000
NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1621+*                             DOM MACRO WHEN MESSAGE IS NO LONGER       18500000

                                   1622+*                             REQUIRED (MCS SUPPORT).  ---              18550000
                                   1623+*                             FOR MAGNETIC CHAR READER - AFTER FIRST    18600000
                                   1624+*                             READ HAS BEEN ISSUED, CONTAINS ADDRESS OF 18650000

                                   1625+*                             MAGNETIC INTERRUPT CONTROL BLOCK (MICB)   18700000
                                   1626+*                             BEING USED BY THE APPENDAGES.             18750000

                                   1628+*                       OPTICAL READER DEVICES                          18900000
                                   1629+*                       1285, 1287, 1288, 3886                          18950003


000004                      00004  1631+         ORG   DCBWTOID+4                                               19050000
000004                             1632+DCBERRCN DS    0A -           SAME AS DCBERRCA BELOW                    19100000
000004                             1633+DCBERRCA DS    AL3 -          ADDRESS OF 32 BYTES OF DECLARED STORAGE   19200000
                                   1634+*                             SPECIFIED BY THE USER IN HIS PROGRAM.     19250000
                                   1635+*                             THIS STORAGE WILL BE USED BY THE          19300000
                                   1636+*                             PROGRAMMING SUPPORT AS EIGHT 4-BYTE       19350000
                                   1637+*                             COUNTERS IN WHICH TOTALS OF CERTAIN 1285, 19400000

                                   1638+*                             1287 AND 1288 ERROR CONDITIONS ARE        19450000
                                   1639+*                             ACCUMULATED.                              19500000

000007                      00004  1640+         ORG   DCBWTOID+4                                               19510003
000004                             1641+DCBLNNUM DS    X              3886  DOCUMENT LINE NUMBER                19520003
000005                             1642+DCBLFMAT DS    X              3886  LINE FORMAT NUMBER                  19530003
000006                             1643+DCBORFLG DS    X              3886  FLAGS                               19540003
                            00080  1644+DCBEOPFG EQU   DCBBIT0        END OF PAGE                               19540403

000007                             1645+         DS    X              RESERVED                                  19542003
000008                             1646+DCBDSPLY DS    0A -           SAME AS DCBDSPLA BELOW                    19550000
000008                             1647+DCBFRID  DS    0CL4           3886  FORMAT RECORD ID                    19560003
000008                             1648+         DS    X -            RESERVED                                  19600000
000009                             1649+DCBDSPLA DS    AL3 -          ADDRESS OF DSPLY (BSAM) ROUTINE USED FOR  19650000
                                   1650+*                             KEYBOARD ENTRY OF A COMPLETE FIELD        19700000
00000C                             1651+DCBRESCN DS    0A -           SAME AS DCBRESCA BELOW                    19750000
00000C                             1652+DCBRDLNE DS    0A -           SAME AS DCBRDLNA BELOW                    19800000
00000C                             1653+DCBFRTBA DS    0A             3886  FORMAT RECORD TABLE                 19810003

00000C                             1654+         DS    X -            RESERVED                                  19850000

00000D                             1655+DCBRESCA DS    0AL3 -         ADDRESS OF RESCN (BSAM) ROUTINE USED TO   19900000
                                   1656+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    19950000
                                   1657+*                             CHARACTERS                                20000000
00000D                             1658+DCBRDLNA DS    AL3 -          ADDRESS OF RDLNE (QSAM) ROUTINE USED TO   20050000
                                   1659+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    20100000

                                   1660+*                             CHARACTERS                                20150000
000010                             1661+DCBORBYT DS    BL1 -          OPTICAL READER BYTE USED BY BSAM/QSAM     20200000
                            00080  1662+DCBORSYN EQU   DCBBIT0 -      SYNAD IN CONTROL                          20250003
                            00040  1663+DCBOREOF EQU   DCBBIT1 -      END OF FILE (EOF)                         20300003
                            00020  1664+DCBORBFP EQU   DCBBIT2 -      BUFFERS PRIMED (QSAM)                     20350003
000011                             1665+         DS    C -            DCBDEVT - DEVICE TYPE                     20400000
                            0005A  1666+DCBDVOR5 EQU   X'5A' -        1285 OPTICAL READER                       20450000
                            0005B  1667+DCBDVOR7 EQU   X'5B' -        1287 OPTICAL READER                       20500000
                            0005C  1668+DCBDVOR8 EQU   X'5C' -        1288 OPTICAL READER                       20550000
                            00057  1669+DCBDVOR9 EQU   X'57'          3886 OPTICAL READER                       20560003

000012                             1670+DCBEIB   DS    BL1 -          ERROR INDICATOR BYTE                      20600000

                            00040  1671+DCBORNRM EQU   DCBBIT1 -      THE 1287 OR 1288 SCANNER WAS UNABLE TO    20650003
                                   1672+*                             LOCATE THE REFERENCE MARK                 20700000
                            00020  1673+DCBORREJ EQU   DCBBIT2 -      FOR 1287, A STACKER SELECT COMMAND WAS    20750003
                                   1674+*                             GIVEN AFTER ALLOTTED TIME HAD ELAPSED AND 20800000

                                   1675+*                             THE DOCUMENT HAS BEEN PUT IN REJECT       20850000
NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1676+*                             POCKET.  FOR 1288 UNFORMATTED ONLY,       20900000
                                   1677+*                             END-OF-PAGE HAS OCCURRED.                 20950000
                            00010  1678+DCBORERR EQU   DCBBIT3 -      A NONRECOVERABLE ERROR HAS OCCURRED.      21000003
                            00008  1679+DCBORECK EQU   DCBBIT4 -      AN EQUIPMENT CHECK RESULTED IN AN         21050003
                                   1680+*                             INCOMPLETE READ                           21100000
                            00004  1681+DCBORWLR EQU   DCBBIT5 -      A WRONG-LENGTH RECORD CONDITION HAS       21150003
                                   1682+*                             OCCURRED                                  21200000
                            00002  1683+DCBORHPR EQU   DCBBIT6 -      FOR QSAM - OPERATOR ENTERED ONE OR MORE   21250003

                                   1684+*                             CHARACTERS FROM THE KEYBOARD.             21300000
                                   1685+*                             FOR BSAM - A HOPPER EMPTY CONDITION HAS   21350000
                                   1686+*                             OCCURRED                                  21400000
                            00001  1687+DCBORDCK EQU   DCBBIT7 -      A DATA CHECK HAS OCCURRED                 21450003

000013                             1688+         DS    X -            RESERVED                                  21500000

                                   1690+*                       MAGNETIC CHARACTER READER DEVICES               21650000
                                   1691+*                       1419 MAGNETIC CHARACTER READER                  21700000
                                   1692+*                       1275 OPTICAL READER SORTER                      21750000
                                   1693+*                       3890 MAGNETIC CHARACTER READER                  21760003

000014                      00000  1695+         ORG   IHADCB                                                   21850000
000000                             1696+DCBSSID  DS    CL8 -          BEFORE DCB IS OPENED - NAME OF USER'S     21900000
                                   1697+*                             STACKER SELECT ROUTINE.                   21950000

000008                      00000  1699+         ORG   DCBSSID                                                  22050000

000000                             1700+         DS    A -            AFTER DCB IS OPENED - DCBWTOID            22100000
000004                             1701+DCBSSAD  DS    0A -           ADDRESS OF USER'S STACKER SELECT ROUTINE  22150000
000004                             1702+DCBIMG   DS    0A             3890  ADDR OF USER'S IMAGE PROC RTN       22160003

000004                             1703+         DS    X -            RESERVED                                  22200000
000005                             1704+DCBSSADA DS    AL3 -          ADDRESS OF USER'S STACKER SELECT ROUTINE  22250000
000008                             1705+DCBIMAGE DS    0A -           SAME AS DCBIMAGA BELOW                    22300000
000008                             1706+DCBMRFG  DS    BL1 -          BUFFER INDICATOR                          22350000
                            000C0  1707+DCBMRBCT EQU   DCBBIT0+DCBBIT1 -                                        22400003
                                   1708+*                             TWO-BIT BINARY COUNTER WHICH INDICATES    22410003
                                   1709+*                             INTO WHICH BUFFER STATUS INFORMATION IS   22450000
                                   1710+*                             TO BE POSTED                              22500000
000009                             1711+DCBIMAGA DS    AL3 -          ADDRESS OF PARAMETER LIST USED TO         22550000
                                   1712+*                             COMMUNICATE BETWEEN USER'S PROCESSING     22600000
                                   1713+*                             ROUTINES AND HIS STACKER SELECT ROUTINES  22650000
00000C                             1714+DCBECBLT DS    0A -           SAME AS DCBECBLA BELOW                    22700000

00000C                             1715+DCBHDR   DS    0A             3890  ADDR OF USER'S HEADER DATA AREA     22702003

00000C                             1716+DCBMRIND DS    BL1 -          INDICATOR AND COUNTER BYTE                22750000
                            000E0  1717+DCBMRDCT EQU   DCBBIT0+DCBBIT1+DCBBIT2                                  22800003

                                   1718+*                             THREE-BIT BINARY COUNTER OF NUMBER OF     22810003
                                   1719+*                             DOCUMENTS READ AFTER DISENGAGE            22850000
                            00010  1720+DCBMRSCU EQU   DCBBIT3 -      DCB WAS ALTERED WHEN SYNAD ROUTINE WAS    22900003
                                   1721+*                             ENTERED DUE TO SECONDARY CONTROL UNIT     22950000
                                   1722+*                             (SCU) ERROR                               23000000
                            00008  1723+DCBMRPLO EQU   DCBBIT4 -      POCKET LIGHT HAS BEEN TURNED ON           23050003
                            00004  1724+DCBMRPLS EQU   DCBBIT5 -      POCKET LIGHT 0-6 IS BEING SET ON          23100003
                            00002  1725+DCBMRERP EQU   DCBBIT6 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23150003
                                   1726+*                             PRIMARY CONTROL UNIT (PCU)                23200000
                            00001  1727+DCBMRERS EQU   DCBBIT7 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23250003
                                   1728+*                             SECONDARY CONTROL UNIT (SCU)              23300000
00000D                             1729+DCBECBLA DS    AL3 -          ADDRESS OF ECB LIST PASSED TO WAIT MACRO  23350000

                                   1730+*                             BY CHECK MACRO WHEN NO 1419/1275 IS       23400000

NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   49


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   1731+*                             AVAILABLE FOR PROCESSING                  23450000
000010                             1732+DCBMRFLG DS    BL1 -          FLAG BYTE                                 23500000
                            00080  1733+DCBMRSCC EQU   DCBBIT0 -      FIRST OR SECOND SECONDARY CONTROL UNIT    23550003
                                   1734+*                             COMMAND CHAIN IS BEING USED               23600000
                            00040  1735+DCBMRDBG EQU   DCBBIT1 -      DEBUGGING MODE IN USE                     23650003
                            00020  1736+DCBMRDRU EQU   DCBBIT2 -      DISENGAGE REQUESTED BY USER               23700003
                            00010  1737+DCBMRDR  EQU   DCBBIT3 -      DISENGAGE REQUESTED                       23750003
                            0000C  1738+DCBMRPCC EQU   DCBBIT4+DCBBIT5 -                                        23800003
                                   1739+*                             TWO-BIT BINARY COUNTER INDICATING FIRST,  23802003
                                   1740+*                             SECOND OR THIRD PRIMARY CONTROL UNIT      23850000
                                   1741+*                             COMMAND CHAIN IS BEING USED               23900000
                            00002  1742+DCBMRDWT EQU   DCBBIT6 -      WTO MESSAGE MUST BE DELETED               23950003

                            00001  1743+DCBMRUE  EQU   DCBBIT7 -      UNIT EXCEPTION                            24000003
000011                             1744+         DS    C -            DCBDEVT - DEVICE TYPE                     24050000

                            0005D  1745+DCBDVMR  EQU   X'5D' -        1419 MAGNETIC CHARACTER READER            24100000

                            0005F  1746+DCBDVORS EQU   X'5F' -        1275 OPTICAL READER SORTER                24150000
                            00056  1747+DCBDVMRS EQU   X'56'          3890 MAGNETIC CHARACTER READER SORTER     24160003
000012                             1748+DCBAPPIN DS    C -            AN INDICATOR USED BY THE APPENDAGES TO    24200000
                                   1749+*                             PASS INFORMATION ABOUT ONE CHANNEL CHAIN  24250000
                                   1750+*                             TO AN APPENDAGE ASSOCIATED WITH ANOTHER   24300000
                                   1751+*                             CHANNEL CHAIN                             24350000
000013                             1752+         DS    X -            RESERVED                                  24400000

                                   1754+*                       ACCESS METHOD COMMON INTERFACE                  24600000

000014                      00010  1756+         ORG   IHADCB+16                                                24700000
000010                             1757+DCBRELB  DS    0F -           SAME AS DCBREL BELOW                      24750000

000010                             1758+DCBKEYLE DS    FL1 -          KEY LENGTH OF DATA SET                    24800000
000011                             1759+DCBDEVT  DS    0C -           DEVICE TYPE                               24850000
                            0004F  1760+DCBDVTRM EQU   X'4F' -        TERMINAL.  (DD CONTAINS TERM=TS)          24900000

000011                             1761+DCBREL   DS    FL3 -          NUMBER OF RELATIVE TRACKS OR BLOCKS IN    24950000
                                   1762+*                             THIS DATA SET (BDAM)                      25000000
000014                             1763+DCBBUFCB DS    0A -           ADDRESS OF BUFFER POOL CONTROL BLOCK      25050000
000014                             1764+DCBBUFNO DS    FL1 -          NUMBER OF BUFFERS REQUIRED FOR THIS DATA  25100000
                                   1765+*                             SET.  MAY RANGE FROM 0 TO 255.  IF        25150000
                                   1766+*                             UNBLOCKED SPANNED RECORDS ARE USED,       25200000
                                   1767+*                             NUMBER OF SEGMENT WORK AREAS REQUIRED     25250000
                                   1768+*                             FOR THIS DATA SET.                        25300000
000015                             1769+DCBBUFCA DS    AL3 -          ADDRESS OF BUFFER POOL CONTROL BLOCK      25350000
000018                             1770+DCBBUFL  DS    H -            LENGTH OF BUFFER.  MAY RANGE FROM 0 TO    25400000
                                   1771+*                             32,767.                                   25450000
00001A                             1772+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED          25500000

00001A                             1773+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG                    25550000
                            00080  1774+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION      25600003
                            00040  1775+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION     25650003
                            00020  1776+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION                  25700003

                            00010  1777+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP              25750003
                            00008  1778+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE     25800003
                            00004  1779+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE   25850003
                            00002  1780+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION             25900003
                            00001  1781+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS         25950003
                                   1782+*                                  LOCATION DEPENDENT INFORMATION       26000000

00001B                             1783+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG                   26050000
                            00080  1784+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION                26100003
                            00040  1785+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP                      26150003
NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00020  1786+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE                   26200003
                            00008  1787+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1 26250003
                            00004  1788+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024 26260003

00001C                             1789+DCBIOBAD DS    0A -           ADDRESS OF IOB WHEN CHAINED SCHEDULING IS 26300000
                                   1790+*                             USED OR FOR 1419/1275                     26350000

00001C                             1791+DCBODEB  DS    0A -           ADDRESS OF OLD DEB                        26400000
00001C                             1792+DCBLNP   DS    0FL1 -         3525 PRINTER LINE POSITION COUNTER        26450000
00001C                             1793+DCBQSLM  DS    BL1 -          QSAM LOCATE MODE LOGICAL RECORD INTERFACE 26500000
                                   1794+*                             INDICATOR BYTE FOR UPDAT PROCESSING OF    26550000
                                   1795+*                             SPANNED RECORDS                           26600000
                            00080  1796+DCB1DVDS EQU   DCBBIT0 -      ONLY ONE DEVICE IS ALLOCATED TO THIS      26650003
                                   1797+*                             DATA SET                                  26700000
                            00040  1798+DCBUPDCM EQU   DCBBIT1 -      UPDATE COMPLETE, FREE OLD DEB             26750003

                            00030  1799+DCBUPDBT EQU   DCBBIT2+DCBBIT3 -                                        26800003
                                   1800+*                             UPDATE BITS                               26810003
                            00020  1801+DCBUPDT  EQU   DCBBIT2 -      UPDATE TO TAKE PLACE                      26850003
                            00030  1802+DCBNUPD  EQU   DCBBIT2+DCBBIT3 -                                        26900003
                                   1803+*                             NO UPDATE TO TAKE PLACE                   26910003

                            00010  1804+DCBSVDEB EQU   DCBBIT3 -      OLD DEB ADDRESS MUST BE SAVED             26950003
00001D                             1805+DCBIOBAA DS    0AL3 -         SAME AS DCBIOBAD ABOVE                    27000000
00001D                             1806+DCBODEBA DS    AL3 -          ADDRESS OF OLD DEB                        27050000

000020                      0001C  1807+         ORG   IHADCB+28                                     ICBI DCB-4 27100000
00001C                             1808+DCBSVCXL DS    0A -           SAME AS DCBSVCXA BELOW         ICBI DCB-4 27150000
00001C                             1809+         DS    X -            RESERVED                       ICBI DCB-4 27200000
00001D                             1810+DCBSVCXA DS    AL3 -          POINTER TO EXIT LIST OF JES    ICBI DCB-4 27250000
                                   1811+*                             C.I. INTERFACE CONTROL SVC     ICBI DCB-4 27300000

                                   1813+*                       FOUNDATION EXTENSION                            27400000


000020                             1815+DCBEODAD DS    0A -           SAME AS DCBEODA BELOW                     27500000
000020                             1816+DCBHIARC DS    0BL1 -         HIERARCHY BITS                            27550000
000020                             1817+DCBBFTEK DS    0BL1 -         BUFFERING TECHNIQUE BITS                  27600000
000020                             1818+DCBBFALN DS    BL1 -          BUFFER ALIGNMENT BITS                     27650000

                            00080  1819+DCBH1    EQU   DCBBIT0 -      HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO  27700003
                            00070  1820+DCBBFT   EQU   DCBBIT1+DCBBIT2+DCBBIT3                                  27750003
                                   1821+*                             BUFFERING TECHNIQUE                       27760003
                            00060  1822+DCBBFTA  EQU   DCBBIT1+DCBBIT2 -                                        27800003

                                   1823+*                             QSAM LOCATE MODE PROCESSING OF SPANNED    27810003
                                   1824+*                             RECORDS - OPEN IS TO CONSTRUCT A RECORD   27850000
                                   1825+*                             AREA IF IT AUTOMATICALLY CONSTRUCTS       27900000
                                   1826+*                             BUFFERS                                   27950000
                            00020  1827+DCBBFTR  EQU   DCBBIT2 -      FOR BSAM CREATE BDAM PROCESSING OF        28000003
                                   1828+*                             UNBLOCKED SPANNED RECORDS - SOFTWARE      28050000

                                   1829+*                             TRACK OVERFLOW.  FOR BSAM INPUT           28100000
                                   1830+*                             PROCESSING OF UNBLOCKED SPANNED RECORDS   28150000
                                   1831+*                             WITH KEYS - RECORD OFFSET PROCESSING.     28200000
                            00040  1832+DCBBFTS  EQU   DCBBIT1 -      SIMPLE BUFFERING - BIT 3 IS ZERO          28250003
                            00020  1833+DCBBFTKR EQU   DCBBIT2 -      UNBLOCKED SPANNED RECORDS - SOFTWARE      28300003

                                   1834+*                             TRACK OVERFLOW (BDAM)                     28350000
                            00010  1835+DCBBFTE  EQU   DCBBIT3 -      EXCHANGE BUFFERING - BIT 1 IS ZERO        28400003
                            00008  1836+DCBBFTKD EQU   DCBBIT4 -      DYNAMIC BUFFERING (BTAM)                  28450003
                            00004  1837+DCBH0    EQU   DCBBIT5 -      HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO  28500003
                            00003  1838+DCBBFA   EQU   DCBBIT6+DCBBIT7 -                                        28550003

                                   1839+*                             BUFFER ALIGNMENT                          28560003
                            00002  1840+DCBBFAD  EQU   DCBBIT6 -      DOUBLEWORD BOUNDARY                       28600003
NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00001  1841+DCBBFAF1 EQU   DCBBIT7 -      FULLWORD NOT A DOUBLEWORD BOUNDARY,       28650003

                                   1842+*                             CODED IN DCB MACRO INSTRUCTION            28700000
                            00003  1843+DCBBFAF2 EQU   DCBBIT6+DCBBIT7 -                                        28750003
                                   1844+*                             FULLWORD NOT A DOUBLEWORD BOUNDARY,       28760003
                                   1845+*                             CODED IN DCB MACRO INSTRUCTION            28800000
000021                             1846+DCBEODA  DS    AL3 -          ADDRESS OF A USER-PROVIDED ROUTINE TO     28850000

                                   1847+*                             HANDLE END-OF-DATA CONDITIONS             28900000
000024                             1848+DCBEXLST DS    0A -           ADDRESS OF USER-PROVIDED LIST OF EXITS    28950000
000024                             1849+DCBRECFM DS    BL1 -          RECORD FORMAT                             29000000
                            000E0  1850+DCBRECLA EQU   DCBBIT0+DCBBIT1+DCBBIT2  -                               29050003
                                   1851+*                             RECORD LENGTH INDICATOR - ASCII           29060003
                            00020  1852+DCBRECD  EQU   DCBBIT2 -      ASCII VARIABLE RECORD LENGTH              29100003

                            000C0  1853+DCBRECL  EQU   DCBBIT0+DCBBIT1 -                                        29150003
                                   1854+*                             RECORD LENGTH INDICATOR                   29160003
                            00080  1855+DCBRECF  EQU   DCBBIT0 -      FIXED RECORD LENGTH                       29200003
                            00040  1856+DCBRECV  EQU   DCBBIT1 -      VARIABLE RECORD LENGTH                    29250003

                            000C0  1857+DCBRECU  EQU   DCBBIT0+DCBBIT1 -                                        29300003
                                   1858+*                             UNDEFINED RECORD LENGTH                   29310003
                            00020  1859+DCBRECTO EQU   DCBBIT2 -      TRACK OVERFLOW                            29350003
                            00010  1860+DCBRECBR EQU   DCBBIT3 -      BLOCKED RECORDS                           29400003
                            00008  1861+DCBRECSB EQU   DCBBIT4 -      FOR FIXED LENGTH RECORD FORMAT - STANDARD 29450003

                                   1862+*                             BLOCKS.  FOR VARIABLE LENGTH RECORD       29500000
                                   1863+*                             FORMAT - SPANNED RECORDS                  29550000
                            00006  1864+DCBRECCC EQU   DCBBIT5+DCBBIT6 -                                        29600003
                                   1865+*                             CONTROL CHARACTER INDICATOR               29610003
                            00004  1866+DCBRECCA EQU   DCBBIT5 -      ASA CONTROL CHARACTER                     29650003
                            00002  1867+DCBRECCM EQU   DCBBIT6 -      MACHINE CONTROL CHARACTER                 29700003
                            00000  1868+DCBRECC  EQU   X'00' -        NO CONTROL CHARACTER                      29750000

                            00001  1869+DCBRECKL EQU   DCBBIT7 -      KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB  29800003
                                   1870+*                             MACRO INSTRUCTION                         29850000
000025                             1871+DCBEXLSA DS    AL3 -          ADDRESS OF USER-PROVIDED LIST OF EXITS    29900000



                                   1874+*                       FOUNDATION BEFORE OPEN                          47150000

000028                      00028  1876+         ORG   IHADCB+40                                                47250000

000028                             1877+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES    47300000
                                   1878+*                             THE DATA SET ASSOCIATED WITH THIS DCB     47350000
000030                             1879+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE                47400000
                            00080  1880+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR   47450003
                                   1881+*                             POINT.  IF ONE, LAST I/O OPERATION WAS    47500000
                                   1882+*                             WRITE.                                    47550000
                            00080  1883+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR     47600003
                                   1884+*                             OUTPUT (BDAM)                             47650000

                            00040  1885+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD   47700003
                                   1886+*                             MODE                                      47750000

                            00020  1887+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE       47800003
                                   1888+*                             ROUTINE FOR CONCATENATION OF DATA SETS    47850000
                                   1889+*                             WITH UNLIKE ATTRIBUTES                    47900000
                            00010  1890+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED   47950003
                            00008  1891+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 48000003

                                   1892+*                             CONCATENATION OF UNLIKE ATTRIBUTES        48050000
                            00004  1893+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ                   48100003
                            00002  1894+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN  48150003
                                   1895+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1 48200000
NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1896+*                             ON RETURN FROM USER EXIT TO THE I/O       48250000
                                   1897+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.     48300000
                            00001  1898+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF    48350003

                                   1899+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION   48400000

000031                             1900+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR  48450000
                                   1901+*                             CONDITIONS AND IN DETERMINING CORRECTIVE  48500000
                                   1902+*                             PROCEDURES                                48550000
                            000C0  1903+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -                                        48600003
                                   1904+*                             ERROR CORRECTION INDICATOR                48610003

                            00000  1905+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE                    48650000
                            00040  1906+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN       48700003
                                   1907+*                             PROCESS                                   48750000
                            000C0  1908+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -                                        48800003
                                   1909+*                             PERMANENT ERROR CORRECTION                48810003
                            00030  1910+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -                                        48850003
                                   1911+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     48860003
                            00020  1912+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH     48900003
                                   1913+*                             SENSED                                    48950000
                            00010  1914+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH    49000003

                                   1915+*                             SENSED                                    49050000

                            0000C  1916+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -                                        49100003
                                   1917+*                             IOS ERROR ROUTINE USE INDICATOR           49110003
                            00000  1918+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE   49150000
                            00004  1919+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49200003

                            00004  1920+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE  49250003
                                   1921+*                             (BTAM)                                    49300000
                            00008  1922+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49350003
                            0000C  1923+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -                                        49400003
                                   1924+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE    49410003
000032                             1925+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE               49450000
000032                             1926+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR                     49500000
                            00080  1927+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---        49550003
                                   1928+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,     49600000
                                   1929+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)    49650000
                            00040  1930+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)    49700003

                            00040  1931+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)                   49750003
                            00040  1932+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---          49800003
                                   1933+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 49850000
                                   1934+*                             RESERVED (BTAM)                           49900000

                            00020  1935+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)            49950003
                            00020  1936+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)      50000003
                            00020  1937+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---           50050003
                                   1938+*                             ALWAYS ZERO (QSAM, QISAM)                 50100000
                            00010  1939+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)                   50150003
                            00010  1940+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)            50200003
                            00010  1941+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---          50250003
                                   1942+*                             ALWAYS ZERO (BISAM) ---                   50300000
                                   1943+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)         50350000
                            00008  1944+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)          50400003
                            00008  1945+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---          50450003
                                   1946+*                             ALWAYS ZERO (BISAM) ---                   50500000

                                   1947+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   50550000
                            00004  1948+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK   50600003
                                   1949+*                             COUNT (EXCP)                              50650000

                            00004  1950+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   50700003
NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00004  1951+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)             50750003
                            00004  1952+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---       50800003
                                   1953+*                             ALWAYS ZERO (QISAM) ---                   50850000
                                   1954+*                             RESERVED (QTAM, BTAM)                     50900000
                            00002  1955+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)    50950003
                            00002  1956+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        51000003
                            00002  1957+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)                             51050003
                            00002  1958+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---                 51100003
                                   1959+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)        51150000

                            00001  1960+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)                   51200003
                            00001  1961+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,    51250003
                                   1962+*                             BPAM, BISAM, QISAM, QTAM, BTAM)           51300000

000033                             1963+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR                    51350000
                            00080  1964+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM, 51400003
                                   1965+*                             BPAM, BISAM, BDAM) ---                    51450000
                                   1966+*                             RESERVED (EXCP, QTAM, BTAM)               51500000
                            00040  1967+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)    51550003
                            00040  1968+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---          51600003
                                   1969+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 51650000
                                   1970+*                             RESERVED (EXCP, BTAM)                     51700000
                            00020  1971+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)     51750003
                            00020  1972+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---            51800003
                                   1973+*                             ALWAYS ZERO (QSAM, QISAM) ---             51850000
                                   1974+*                             RESERVED (EXCP)                           51900000

                            00010  1975+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)            51950003

                            00010  1976+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---         52000003
                                   1977+*                             ALWAYS ZERO (BISAM) ---                   52050000

                                   1978+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   52100000
                            00008  1979+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)         52150003
                            00008  1980+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)     52200003
                                   1981+*                             (BSAM)                                    52250000
                            00008  1982+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)          52300003
                            00008  1983+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---         52350003
                                   1984+*                             ALWAYS ZERO (BISAM) ---                   52400000
                                   1985+*                             RESERVED (BPAM, QTAM, BTAM)               52450000
                            00004  1986+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)         52500003
                            00004  1987+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   52550003
                            00004  1988+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)                    52600003
                            00004  1989+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---        52650003

                                   1990+*                             ALWAYS ZERO (BISAM) ---                   52700000
                                   1991+*                             RESERVED (BDAM, QTAM, BTAM)               52750000

                            00002  1992+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)        52800003

                            00002  1993+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        52850003
                            00002  1994+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)                       52900003
                            00002  1995+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---              52950003
                                   1996+*                             ALWAYS ZERO (BISAM) ---                   53000000
                                   1997+*                             RESERVED (BPAM, QTAM, BTAM)               53050000
                            00001  1998+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)          53100003
                            00001  1999+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT     53150003
                                   2000+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)   53200000
                            00001  2001+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)                          53250003
                            00001  2002+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---                    53300003
                                   2003+*                             ALWAYS ZERO (BISAM) ---                   53350000
                                   2004+*                             RESERVED (BPAM, QTAM, BTAM)               53400000


NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   2006+*                       FOUNDATION AFTER OPEN                           53500000

000034                      00028  2008+         ORG   IHADCB+40                                                53600000
000028                             2009+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD 53650000
                                   2010+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED 53700000
                                   2011+*                             WITH THIS DCB                             53750000
00002A                             2012+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN               53800000
00002A                             2013+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF                    53850000
00002B                             2014+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF                   53900000
00002C                             2015+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB                 53950000
00002C                             2016+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN               54000000
                            000C0  2017+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -                                        54050003

                                   2018+*                             ERROR CORRECTION INDICATOR                54060003
                            00030  2019+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -                                        54100003
                                   2020+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     54110003
                            0000C  2021+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -                                        54150003

                                   2022+*                             IOS ERROR ROUTINE USE INDICATOR           54160003
00002D                             2023+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB                 54200000

000030                      00030  2025+         ORG   IHADCB+48                                                54350000
000030                             2026+DCBREAD  DS    0A -           ADDRESS OF READ MODULE                    54400000
000030                             2027+DCBWRITE DS    A -            ADDRESS OF WRITE MODULE                   54450000


000034                      00030  2029+         ORG   IHADCB+48                                                54600000
000030                             2030+DCBGET   DS    0A -           ADDRESS OF GET MODULE                     54650000
000030                             2031+DCBPUT   DS    A -            ADDRESS OF PUT MODULE                     54700000

                                   2033+*                       QSAM-BSAM-BPAM COMMON INTERFACE                 77750000

000034                      00034  2035+         ORG   IHADCB+52                                                77850000

000034                             2036+DCBGERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  77950000
000034                             2037+DCBPERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  78000000

000034                             2038+DCBCHECK DS    0A -           ADDRESS OF CHECK MODULE                   78050000
000034                             2039+DCBOPTCD DS    BL1 -          OPTION CODES                              78150000
                            00080  2040+DCBOPTW  EQU   DCBBIT0 -      WRITE VALIDITY CHECK (DASD)               78500003
                                   2041+*                             (BSAM, BPAM, QSAM, ISAM, BDAM)            78550000
                            00040  2042+DCBOPTU  EQU   DCBBIT1 -      ALLOW DATA CHECK CAUSED BY INVALID        78600003
                                   2043+*                             CHARACTER (1403 PRINTER WITH UCS FEATURE) 78650000
                                   2044+*                             (BSAM, BPAM, QSAM)                        78700000
                            00020  2045+DCBOPTC  EQU   DCBBIT2 -      CHAINED SCHEDULING USING PCI              78750003

                                   2046+*                             (BSAM, BPAM, QSAM)                        78800000
                            00010  2047+DCBOPTH  EQU   DCBBIT3 -      1287/1288 OPTICAL READER - HOPPER EMPTY   78850003
                                   2048+*                             EXIT (BSAM, BPAM)                         78900000
                            00010  2049+DCBOPTO  EQU   DCBBIT3 -      1285/1287 OPTICAL READER - ON-LINE        78950003
                                   2050+*                             CORRECTION (QSAM)                         79000000

                            00010  2051+DCBBCKPT EQU   DCBBIT3 -      CHANNEL-END APPENDAGE IS TO BYPASS DOS    79050003
                                   2052+*                             EMBEDDED CHECKPOINT RECORDS ON TAPE       79100000
                                   2053+*                             (BSAM, QSAM)                       ICB226 79150000

                            00008  2054+DCBOPTQ  EQU   DCBBIT4 -      TRANSLATION TO OR FROM ASCII              79200003
                                   2055+*                             (BSAM, BPAM, QSAM)                        79250000
                            00004  2056+DCBOPTZ  EQU   DCBBIT5 -      MAGNETIC TAPE DEVICES - USE REDUCED ERROR 79300003
                                   2057+*                             RECOVERY PROCEDURE (EXCP, BSAM, BPAM,     79350000
                                   2058+*                             QSAM)                                     79400000
                            00004  2059+DCBSRCHD EQU   DCBBIT5 -      USE SEARCH DIRECT, INSTEAD OF SEARCH      79450003
                                   2060+*                             PREVIOUS, ON RECORD POSITION SENSING      79500000

NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2061+*                             DEVICE  (EXCP, BSAM, BPAM, QSAM)   ICB217 79550000
                            00002  2062+DCBOPTT  EQU   DCBBIT6 -      USER TOTALING (BSAM, QSAM)                79600003
000035                             2063+DCBGERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  79700000

000035                             2064+DCBPERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  79750000
000035                             2065+DCBCHCKA DS    AL3 -          ADDRESS OF CHECK MODULE                   79800000
000038                             2066+DCBSYNAD DS    0A -           ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80050000
000038                             2067+DCBIOBL  DS    FL1 -          IOB LENGTH IN DOUBLE WORDS                80100000

000039                             2068+DCBSYNA  DS    AL3 -          ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80150000
00003C                             2069+DCBFLAG1 DS    0BL1           TCAM APPLICATION PROGRAM FLAGS ICBI DCB-3 80460000
                                   2070+*                             (BSAM, BPAM, QSAM)                        80470000
00003C                             2071+DCBCIND1 DS    BL1 -          CONDITION INDICATORS                      80500000
                            00080  2072+DCBCNTOV EQU   DCBBIT0 -      DIRECT ACCESS - TRACK OVERFLOW IN USE     80550003
                                   2073+*                             (BSAM, BPAM, QSAM)                        80600000

                                   2074+*                             2540 CARD PUNCH - DATA SET WAS OPENED BUT 80650000
                                   2075+*                             NO DATA WAS WRITTEN (QSAM)                80700000
                            00080  2076+DCBSTQCK EQU   DCBBIT0 -      STOP EQUAL QUICK WAS SPECIFIED FOR        80710003
                                   2077+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80720000
                            00040  2078+DCBSTFLS EQU   DCBBIT1 -      STOP EQUAL FLUSH WAS SPECIFIED FOR        80730003

                                   2079+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80740000
                            00040  2080+DCBCNSRD EQU   DCBBIT1 -      SEARCH DIRECT (BSAM, BPAM, QSAM)          80750003
                            00020  2081+DCBCNEVB EQU   DCBBIT2 -      END OF VOLUME - USED BY EOB ROUTINES      80800003
                                   2082+*                             (BSAM, BPAM, QSAM)                        80850000
                            00010  2083+DCBCNEVA EQU   DCBBIT3 -      END OF VOLUME - USED BY CHANNEL-END       80900003

                                   2084+*                             APPENDAGE ROUTINES (BSAM, BPAM, QSAM)     80950000
                            00004  2085+DCBCNBRM EQU   DCBBIT5 -      BLOCKED RECORD BIT MODIFIED (BSAM,BPAM,   81000003
                                   2086+*                             QSAM)                          ICBI DCB-2 81050000
                            00001  2087+DCBCNEXB EQU   DCBBIT7 -      EXCHANGE BUFFERING SUPPORTED (QSAM)       81100003
00003D                             2088+DCBCIND2 DS    BL1 -          CONDITION INDICATORS                      81150000

                            00080  2089+DCBCNSTO EQU   DCBBIT0 -      PARTITIONED DATA SET - STOW HAS BEEN      81200003
                                   2090+*                             PERFORMED (BSAM, BPAM, QSAM)              81250000
                                   2091+*                             SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM) 81300000
                            00040  2092+DCBCNWR0 EQU   DCBBIT1 -      DIRECT ORGANIZATION DATA SET - LAST I/O   81350003
                                   2093+*                             WAS A WRITE RECORD ZERO                   81400000

                                   2094+*                             (BSAM, BPAM, QSAM)                        81450000
                                   2095+*                             SEQUENTIAL DATA SET - UPDATE EOF IS       81500000
                                   2096+*                             INDICATED (BSAM, BPAM)                    81550000
                            00020  2097+DCBCNCLO EQU   DCBBIT2 -      CLOSE IN PROCESS (QSAM)                   81600003
                            00010  2098+DCBCNIOE EQU   DCBBIT3 -      PERMANENT I/O ERROR (BSAM, BPAM, QSAM)    81650003
                            00008  2099+DCBCNBFP EQU   DCBBIT4 -      OPEN ACQUIRED BUFFER POOL                 81700003

                                   2100+*                             (BSAM, BPAM, QSAM)                        81750000
                            00004  2101+DCBCNCHS EQU   DCBBIT5 -      CHAINED SCHEDULING BEING SUPPORTED        81800003
                                   2102+*                             (BSAM, BPAM, QSAM)                        81850000
                            00002  2103+DCBCNFEO EQU   DCBBIT6 -      FEOV BIT (BSAM, BPAM, QSAM)               81900003

                            00001  2104+DCBCNQSM EQU   DCBBIT7 -      ALWAYS ZERO (BSAM, BPAM)                  81950003
                                   2105+*                             THIS IS A QSAM DCB (QSAM)                 82000000
00003E                             2106+DCBBLKSI DS    H -            MAXIMUM BLOCK SIZE                        82100000
000040                             2107+DCBWCPO  DS    AL1 -          OFFSET OF WRITE CHANNEL PROGRAM FROM THE  82350000
                                   2108+*                             START OF IOB                              82400000

000041                             2109+DCBWCPL  DS    FL1 -          LENGTH OF WRITE CHANNEL PROGRAM           82450000
000042                             2110+DCBOFFSR DS    AL1 -          OFFSET OF READ CCW FROM BSAM/BPAM PREFIX  82500000
                                   2111+*                             OF IOB                                    82550000
000043                             2112+DCBOFFSW DS    AL1 -          OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX 82600000
                                   2113+*                             OF IOB                                    82650000
000044                             2114+DCBIOBA  DS    A -            FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR 82700000
                                   2115+*                             BSAM/BPAM PREFIX OF IOB.  FOR CHAINED     82750000

NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2116+*                             SCHEDULING, ADDRESS OF ICB.  FOR          82800000

                                   2117+*                             1419/1275, ADDRESS OF MAGNETIC INTERRUPT  82850000
                                   2118+*                             CONTROL BLOCK (MICB) CURRENTLY BEING      82900000
                                   2119+*                             PROCESSED BY READ ROUTINE.  FOR TSO       82950000
                                   2120+*                             TERMINAL DATA SET OPENED FOR INPUT AND    83000000
                                   2121+*                             FORMAT U, SIMULATED LOW-ORDER FOUR BYTES  83050000

                                   2122+*                             OF IOBCSW                                 83100000

000048                      00044  2124+         ORG   IHADCB+68                                         ICB354 83160000
000044                             2125+DCBCICB  DS    0A -           SAME AS DCBCICBA BELOW             ICB354 83200000
000044                             2126+         DS    X -            DCBNCP  (BSAM,BPAM)                ICB354 83250000
000045                             2127+DCBCICBA DS    AL3 -          POINTER TO JES C.I.                ICB354 83300000
                                   2128+*                             CONTROL BLOCK (CICB)               ICB354 83350000


000048                      00050  2130+         ORG   IHADCB+80                                     ICBI DCB-4 83450000
000050                             2131+DCBDIRCT DS    0H -           NUMBER OF BYTES USED IN LAST DIRECTORY    83500000

                                   2132+*                             BLOCK (RANGE 0-254)  (BSAM, BPAM)  ICB295 83550000
000050                             2133+DCBQSWS  DS    0BL1 -         FLAG BYTE                          ICB295 83600000
                            00004  2134+DCBPOPEN EQU   DCBBIT5 -      QSAM PARALLEL INPUT PROCESSING            83610003
000050                             2135+DCBUSASI DS    B -            FLAG BYTE FOR ASCII TAPES                 83650000
                            00040  2136+DCBBLBP  EQU   DCBBIT1 -      BLOCK PREFIX IS FOUR BYTE FIELD           83700003

                                   2137+*                             CONTAINING BLOCK LENGTH IN UNPACKED       83750000
                                   2138+*                             DECIMAL (SPECIFIED BY BUFFER=L).          83800000
                            00038  2139+DCBQADFS EQU   DCBBIT2+DCBBIT3+DCBBIT4                                  83850003
                                   2140+*                             USED TO PERFORM SEQUENCE CHECKING WITH    83860003
                                   2141+*                             MULTIPLE FUNCTION SUPPORT FOR 3525        83900000
                                   2142+*                             (BSAM, QSAM)                              83950000
                            00020  2143+DCBQADF1 EQU   DCBBIT2 -      FIRST BIT OF DCBQADFS                     84000003
                            00010  2144+DCBQADF2 EQU   DCBBIT3 -      SECOND BIT OF DCBQADFS                    84050003
                            00008  2145+DCBQADF3 EQU   DCBBIT4 -      THIRD BIT OF DCBQADFS                     84100003

                            00001  2146+DCBQSTRU EQU   DCBBIT7 -      TRUNC ENTRY POINT ENTERED (QSAM)          84150003

000051                             2147+DCBBUFOF DS    0FL1 -         BLOCK PREFIX LENGTH (0-99), SPECIFIED BY  84200000
                                   2148+*                             BUFOFF=N OR BUFOFF=L                      84250000
000051                             2149+DCBDIRCQ DS    FL1 -          NUMBER OF BYTES USED IN LAST DIRECTORY    84300000
                                   2150+*                             BLOCK (RANGE 0-254)  (QSAM)        ICB295 84350000


                                   2152+*                       BSAM-BPAM INTERFACE                             84500000

000052                      00048  2154+         ORG   IHADCB+72                                                84600000
000048                             2155+DCBEOBR  DS    0A -           ADDRESS OF END-OF-BLOCK MODULE FOR READ   84650000
000048                             2156+DCBNCP   DS    FL1 -          NUMBER OF CHANNEL PROGRAMS.               84750000
                                   2157+*                             NUMBER OF READ OR WRITE REQUESTS WHICH    85000000
                                   2158+*                             MAY BE ISSUED PRIOR TO A CHECK, NUMBER    85050000
                                   2159+*                             OF IOB'S GENERATED.  (99 MAXIMUM)         85100000
000049                             2160+DCBEOBRA DS    AL3 -          ADDRESS OF END-OF-BLOCK MODULE FOR READ   85150000
00004C                             2161+DCBEOBW  DS    A -            ADDRESS OF END-OF-BLOCK MODULE FOR WRITE. 85200000

                                   2162+*                             FOR BSAM CREATE BDAM PROCESSING OF        85250000

                                   2163+*                             UNBLOCKED SPANNED RECORDS WITH BKTEK=R    85300000
                                   2164+*                             SPECIFIED, ADDRESS OF SEGMENT WORK AREA   85350000
                                   2165+*                             CONTROL BLOCK                             85400000
000050                             2166+         DS    H -            DCBDIRCT - NUMBER OF BYTES USED IN LAST   85450000

                                   2167+*                             DIRECTORY BLOCK  (RANGE 0-254)     ICB295 85500000
000052                             2168+DCBLRECL DS    H -            LOGICAL RECORD LENGTH                     85600000
000054                             2169+DCBCNTRL DS    0A -           ADDRESS OF CNTRL MODULE                   85850000
000054                             2170+DCBNOTE  DS    0A -           ADDRESS OF NOTE/POINT MODULE              85900000
NUC      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000054                             2171+DCBPOINT DS    A -            ADDRESS OF NOTE/POINT MODULE              85950000

                                   2173+*                       QSAM INTERFACE                                  86100000

000058                      00048  2175+         ORG   IHADCB+72                                                86650021
000048                             2176+DCBLCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF LAST   86700000

                                   2177+*                             CCW IN LIST                               86750000
000048                             2178+DCBEOBAD DS    A -            FOR SIMPLE BUFFERING, ADDRESS OF LAST     86800000
                                   2179+*                             BYTE OF CURRENT BUFFER                    86850000

00004C                             2180+DCBCCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF        86900000
                                   2181+*                             CURRENT OR NEXT CCW                       86950000
00004C                             2182+DCBRECAD DS    0A -           ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87000000
00004C                             2183+DCBRECBT DS    BL1 -          FLAG BYTE                                 87050000
                            000F0  2184+DCBRCREL EQU   DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3  -                       87100003
                                   2185+*                             RELSE MACRO HAS BEEN ISSUED               87110003
                                   2186+*                             (QSAM WITH SIMPLE BUFFERING)              87150000
                            00080  2187+DCBRCTRU EQU   DCBBIT0 -      TRUNC MACRO HAS BEEN ISSUED (QSAM LOCATE  87200003
                                   2188+*                             MODE)                                     87250000
                            00040  2189+DCBRCFGT EQU   DCBBIT1 -      FIRST GET AFTER OPEN (QSAM LOCATE MODE)   87300003
00004D                             2190+DCBRECA  DS    AL3 -          ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87350000

000050                             2191+         DS    B -            DCBQSWS - FLAG BYTE                ICB295 87400000
000051                             2192+         DS    FL1 -          DCBDIRCQ - NUMBER OF BYTES USED IN LAST   87450000
                                   2193+*                             DIRECTORY BLOCK (RANGE 0-254)      ICB295 87500000
000052                             2194+         DS    H -            DCBLRECL - LOGICAL RECORD LENGTH          87750021

000054                             2195+         DS    0A -           DCBCNTRL - ADDRESS OF CNTRL MODULE        88000021
000054                             2196+DCBEROPT DS    BL1 -          ERROR OPTION                              88100000
                            00080  2197+DCBERACC EQU   DCBBIT0 -         ACCEPT PERMANENT ERROR                 88150003
                            00040  2198+DCBERSKP EQU   DCBBIT1 -         SKIP PERMANENT ERROR                   88200003
                            00020  2199+DCBERABE EQU   DCBBIT2 -         ABNORMAL END OF TASK                   88250003
000055                             2200+         DS    AL3 -          DCBCNTRA - ADDRESS OF CNTRL MODULE        88500021
000058                             2201+         DS    XL2 -          RESERVED                                  88600021
00005A                             2202+DCBPRECL DS    H -            BLOCK LENGTH, MAXIMUM BLOCK LENGTH OR     88650000
                                   2203+*                             DATA LENGTH                               88700000
00005C                             2204+DCBEOB   DS    A -            ADDRESS OF END OF BLOCK MODULE            88750000




                            00000  2207+DCBDSECT EQU   IHADCB   DEFINE ALTERNATE DSECT NAME                     DB012000

000000                             2209+HASPNUC  CSECT          END OF DATA CONTROL BLOCK DSECT                 DB016000

NUC      OS DATA EXTENT BLOCK DSECT                                                                            PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             2212+DEBDSECT DSECT                     DATA EXTENT BLOCK DSECT              DE010000
000000                             2213+DEBTCBAD DS    F                   ADDRESS OF TCB                       DE012000
000004                             2214+DEBDEBAD DS    F                   ADDRESS OF NEXT DEB                  DE014000
000008                             2215+DEBIRBAD DS    F                   ADDRESS OF IRB                       DE016000
00000C                             2216+         DS    F                   RESERVED                             DE018000
000010                             2217+DEBNMEXT DS    0C                  NUMBER OF EXTENTS                    DE019000
000010                             2218+DEBUSRPG DS    F                   ADDR OF 1ST IOB IN USER PURGE CHAIN  DE020000
000014                             2219+DEBPRIOR DS    0C                  PRIORITY OF THE TASK                 DE022000

000014                             2220+DEBECBAD DS    F                   ADDRESS OF PURGE ECB PARAMETER LIST  DE024000

000018                             2221+DEBPROTG DS    0C                  PROTECTION KEY OF TASK               DE026000
000018                             2222+DEBDEBID DS    0C                  DEB IDENTIFICATION (X'0F')           DE028000

000018                             2223+DEBDCBAD DS    F                   ADDRESS OF DCB                       DE030000
00001C                             2224+DEBEXSCL DS    0C                  EXTENT SCALE                         DE031000
00001C                             2225+DEBAPPAD DS    F                   ADDR OF I/O APPENDAGE VECTOR TABLE   DE032000
000020                             2226+DEBDVMOD DS    0C                  DEVICE MODIFIER / FILE MASK          DE034000
000020                             2227+DEBUCBAD DS    F                   ADDRESS OF UCB                       DE036000
000024                             2228+DEBEXTNT DS    0CL12               DATA SET EXTENT                      DE038000
000024                             2229+DEBBINUM DS    H                   BIN NUMBER                           DE040000
000026                             2230+DEBSTRCC DS    H                   CYLINDER START ADDRESS               DE042000
000028                             2231+DEBSTRHH DS    H                   READ OR WRITE TRACK START ADDRESS    DE044000
00002A                             2232+DEBENDCC DS    H                   CYLINDER END ADDRESS                 DE046000
00002C                             2233+DEBENDHH DS    H                   READ OR WRITE TRACK END ADDRESS      DE048000
00002E                             2234+DEBNUMTR DS    H                   NUMBER OF TRACKS IN THIS EXTENT      DE050000

000000                             2235+HASPNUC  CSECT                     END OF DATA EXTENT BLOCK DSECT       DE052000
NUC      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   59



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000000                             2237+UCBDSECT DSECT                     UNIT CONTROL BLOCK DSECT             UC008000


                                   2239+*%UCBL1 : ;                                                             IE005000
                                   2240+*/* **************************************************************** */ IE006000
                                   2241+*/*                                                                  */ IE007000
                                   2242+*/*            U N I T   C O N T R O L   B L O C K                   */ IE008000
                                   2243+*/*                                                                  */ IE009000
                                   2244+*/* **************************************************************** */ IE010000
                                   2245+*/*                                                                  */ IE011000
                                   2246+*/*  STATUS                                                          */ IE012000
                                   2247+*/*                                                                  */ IE013000
                                   2248+*/*      OS/VS2 RELEASE 1, OS/VS1 RELEASE 2, 08/14/72, LEVEL=14      */ IE014000

                                   2249+*/*                                                                  */ IE015000
                                   2250+*/*  METHOD OF ACCESS                                                */ IE016000
                                   2251+*/*                                                                  */ IE017000

                                   2252+*/*      PL/S - DCL (UCBPTR,UCBDCPTR) PTR                            */ IE018000
                                   2253+*/*      BAL  - DSECT CARD SHOULD PRECEDE MACRO CALL.  SYMBOLS IN    */ IE019000
                                   2254+*/*             COMMON SECTION AND DEVICE DEPENDENT SECTIONS ARE     */ IE020000
                                   2255+*/*             ADDRESSABLE BY A USING ON UCBOB.  ADDITIONAL USINGS  */ IE021000
                                   2256+*/*             ARE NECESSARY TO OBTAIN ADDRESSABILITY FOR EACH      */ IE022000
                                   2257+*/*             EXTENSION OR PREFIX.  THESE ARE AS FOLLOWS -         */ IE023000
                                   2258+*/*                                                                  */ IE024000
                                   2259+*/*             DIRECT ACCESS EXTENSION           UCBDA              */ IE025000
                                   2260+*/*             DIRECT ACCESS EXTENSION 2         UCBDA2             */ IE026000
                                   2261+*/*             PREFIX TO MAGNETIC TAPE EXTENSION UCBMTPRF           */ IE027000
                                   2262+*/*             MAGNETIC TAPE EXTENSION           UCBMT              */ IE028000
                                   2263+*/*             TAPE CARTRIDGE READER EXTENSION   UCBTCR             */ IE029000

                                   2264+*/*             OPTICAL READER EXTENSION          UCBOR              */ IE030000
                                   2265+*/*             UNIT RECORD WITH UCS EXTENSION    UCBUCS             */ IE031000
                                   2266+*/*             3211 SENSE INFORMATION EXTENSION  UCBSNINF           */ IE032000
                                   2267+*/*             M65 MULTIPROCESSING PREFIX        UCBM65MP           */ IE033000

                                   2268+*/*                                                                  */ IE034000
                                   2269+*/*             WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH  */ IE035000
                                   2270+*/*             DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER   */ IE036000
                                   2271+*/*             IN THE DEFN COLUMN IN THE CORSS REFERENCE LISTING.   */ IE037000
                                   2272+*/*             FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE          */ IE038000
                                   2273+*/*             STATEMENT NUMBERS FOR UCBDA AND UCBDA2 IS IN THE     */ IE039000

                                   2274+*/*             UCBDA DSECT.                                         */ IE040000
                                   2275+*/*                                                                  */ IE041000
                                   2276+*/*  F.E.'S                                                          */ IE042000
                                   2277+*/*                                                                  */ IE043000
                                   2278+*/*      MICROFICHE LISTING - IEFUCBOB                               */ IE044000
                                   2279+*/*                                                                  */ IE045000
                                   2280+*/*  DEVELOPERS                                                      */ IE046000
                                   2281+*/*                                                                  */ IE047000

                                   2282+*/*      BAL LISTING  - SPECIFY LIST=YES ON MACRO CALL               */ IE048000
                                   2283+*/*      PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE        */ IE049000

                                   2284+*/*                                                                  */ IE050000
                                   2285+*/*      FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS     */ IE051000
                                   2286+*/*      YOUR MODULE CREATES THE CSECT.                              */ IE052000
                                   2287+*/*                                                                  */ IE053000
                                   2288+*/*  FUNCTION                                                        */ IE054000
                                   2289+*/*                                                                  */ IE055000
                                   2290+*/*      A UNIT CONTROL BLOCK                                        */ IE056000
NUC      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   60



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2291+*/*      INCORPORATING A SYSTEM RESOURCE TABLE                       */ IE057000
                                   2292+*/*      RECORDS THE STATUS OF                                       */ IE058000
                                   2293+*/*        A PHYSICAL INPUT OUTPUT DEVICE ADDRESS                    */ IE059000
                                   2294+*/*      IS CREATED AND INITIALIZED DURING SYSTEM GENERATION         */ IE060000

                                   2295+*/*      RESIDES IN THE NUCLEUS BELOW 32 K                           */ IE061000
                                   2296+*/*      POINTS TO A DEVICE TYPE DEPENDENT EXTENSION                 */ IE062000
                                   2297+*/*        RESIDING HIGHER IN THE NUCLEUS                            */ IE063000

                                   2298+*/*      IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY            */ IE064000
                                   2299+*/*        A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS     */ IE065000
                                   2300+*/*      MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES               */ IE066000
                                   2301+*/*        AND DATA EXTENT BLOCKS                                    */ IE067000
                                   2302+*/*      CONTAINS INDICES INTO TABLES FOR                            */ IE068000
                                   2303+*/*        DEVICE STATISTICS ATTENTION LOGICAL CHANNEL               */ IE069000
                                   2304+*/*      MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS    */ IE070000

                                   2305+*/*                                                                  */ IE071000
                                   2306+*/*  OUTPUT                                                          */ IE072000
                                   2307+*/*                                                                  */ IE073000
                                   2308+*/*      SYSGEN INDEPENDENT COMMON SECTION                           */ IE074000
                                   2309+*/*        INCLUDING UCBTYP WORD                                     */ IE075000

                                   2310+*/*      DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)             */ IE076000
                                   2311+*/*        DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE         */ IE077000
                                   2312+*/*        DATACELL (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)*/ IE078000
                                   2313+*/*        UNIT RECORD WITH UNIVERSAL CHARACTER SET                  */ IE079000

                                   2314+*/*        GRAPHICS                                                  */ IE080000
                                   2315+*/*        TAPE CARTRIDGE READER AND OPTICAL READER                  */ IE081000
                                   2316+*/*      CELL DESCRIPTION FOR ONE OF THE TEN CELLS                   */ IE082000
                                   2317+*/*        IN THE DATACELL DEVICE SEGMENT ABOVE                      */ IE083000
                                   2318+*/*      UCB EXTENSION (ONE OF THE FOLLOWING)                        */ IE084000
                                   2319+*/*        DIRECT ACCESS                                             */ IE085000

                                   2320+*/*        DIRECT ACCESS 2                                           */ IE086000
                                   2321+*/*        MAGNETIC TAPE AND ITS PREFIX                              */ IE087000
                                   2322+*/*        TAPE CARTRIDGE READER                                     */ IE088000
                                   2323+*/*        OPTICAL READER                                            */ IE089000
                                   2324+*/*        UNIVERSAL CHARACTER SET                                   */ IE090000

                                   2325+*/*        3211 SENSE INFORMATION                                    */ IE091000
                                   2326+*/*      M65 MULTIPROCESSING PREFIX                                  */ IE092000
                                   2327+*/*        (CONTIGUOUSLY PRECEDING COMMON SECTION)                   */ IE093000
                                   2328+*/*                                                                  */ IE094000
                                   2329+*/* **************************************************************** */ IE095000

                                   2330+*%GOTO UCBL2;   /*                                                      IE096000
                                   2331+         PUSH  PRINT                                                    IE097000
                                   2332+         PRINT OFF                                                      IE099000
                                   3068+         POP   PRINT                                                    IE836000



000000                             3070+HASPNUC  CSECT                     END UNIT CONTROL BLOCK DSECT         UC016000
NUC      HASP INPUT PROCESSOR PCE WORK AREA DSECT                                                              PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000058                             3072+PCEDSECT DSECT                     HASP INPUT PROCESSOR                 RW574000
000058                      00058  3073+         ORG   PCEWORK              PCE WORK AREA DSECT                 RW576000

000058                             3074+RCARDID  DS    0C                  CARD IDENTIFICATION BYTE             RW578000
000058                             3075+RDRDCT   DS    F                   ADDRESS OF INPUT DCT                 RW580000
00005C                             3076+RDRSW    DS    0C                  READER SWITCHES                      RW582000
00005C                             3077+RDADCT   DS    F                   ADDRESS OF DIRECT-ACCESS DCT         RW584000
000060                             3078+RBIEND   DS    F                   ADDRESS OF LAST CARD IN INPUT BUFFER RW586000
000064                             3079+RBONEXT  DS    F                   ADDR OF NEXT CARD IN OUTPUT BUFFER   RW588000

000068                             3080+RBOEND   DS    F                   ADDRESS OF END OF OUTPUT BUFFER      RW590000
00006C                             3081+RLSAVE1  DS    F                   LINK REGISTER SAVE WORD 1            RW592000
000070                             3082+RLSAVE2  DS    F                   LINK REGISTER SAVE WORD 2            RW594000
000074                             3083+RLSAVE3  DS    F                   LINK REGISTER SAVE WORD 3            RW596000

000078                             3084+RSAVE1   DS    F                   GENERAL PURPOSE SAVE WORD 1          RW598000
00007C                             3085+RSAVE2   DS    F                   GENERAL PURPOSE SAVE WORD 2          RW600000
000080                             3086+RJCLTRAK DS    F                   TRACK ADDRESS OF NEXT JCL BLOCK      RW602000
000084                             3087+RMESSAGE DS    CL52                READER MESSAGE AREA                  RW604000
0000B8                             3088+RJOB     DS    F                   ADDRESS OF JOB QUEUE ENTRY           RW606000

0000BC                             3089+RPRIORTY DS    C                   CHARACTER FROM /*PRIORITY CARD       RW628000
0000BD                             3090+RMSGCLAS DS    C                   MSGCLASS FROM JOB CARD               RW630000
0000BE                             3091+RDRDLM   DS    CL2                 INPUT DATA SET DELIMITER             RW632000
                            00068  3092+RDRPCEWS EQU   *-PCEWORK           LENGTH OF NORMAL INPUT PCE WORK AREA RW676000
0000C0                             3093+RTPCARD  DS    CL80                RJE INPUT CARD IMAGE                 RW678000
                            000B8  3094+RJEPCEWS EQU   *-PCEWORK           LENGTH OF RJE INPUT PCE WORK AREA    RW680000
000000                             3095+HASPNUC  CSECT                     END OF INPUT PCE WORK AREA DSECT     RW682000

NUC      HASP EXECUTION PROCESSOR PCE WORK AREA DSECT                                                          PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000110                             3098+PCEDSECT DSECT                     HASP EXECUTION PROCESSOR             XW296000
000110                      00058  3099+         ORG   PCEWORK              PCE WORK AREA DSECT                 XW298000
000058                             3100+XPCESTAT DS    B                   PCE STATUS BYTE                      XW299000
                            00080  3101+XDUPBIT  EQU   X'80'               JOB WITH DUP NAME WAITING            XW299100

                            00040  3102+XEOJMES  EQU   X'40'               END-EXECUTION MESSAGE SENT           XW299200
                            00020  3103+XPOSTBIT EQU   X'20'               XTHAW SHOULD THAW XPCEJST            XW299300
                            00010  3104+XREXREQ  EQU   X'10'               REQUEUE FOR XEQ AT END XEQ           XW299400
                            00008  3105+XSYNCREQ EQU   X'08'               SYNCHRONOUS ACTION REQUIRED          XW299500
                            00004  3106+XOCRMES  EQU   X'04'               OCR-OVERFLOW MESSAGE SENT            XW299600
                            00002  3107+XPCERSV6 EQU   X'02'               RESERVED                             XW299700
                            00001  3108+XPCERSV7 EQU   X'01'               RESERVED                             XW299800
000059                             3109+XSYNCFLG DS    B                   SYNCHRONOUS ACTION FLAGS             XW299900

                            00080  3110+XEOJBIT  EQU   X'80'               TERMINATE JOB EXECUTION              XW300000
                            00040  3111+XALLOCWT EQU   X'40'               WRITE 'AWAITING ALLOCATION'          XW300100

                            00020  3112+XGETIOT  EQU   X'20'               GET ANOTHER IOT FOR RDR/INTRP        XW300200
                            00010  3113+XIOTWREQ EQU   X'10'               IOT CHECKPOINT REQUIRED              XW300300
                            00008  3114+XOUTCDBF EQU   X'08'               GET A /*OUTPUT CARD BUFFER           XW300400
                            00004  3115+XOCRMSG  EQU   X'04'               WRITE OCR OVERFLOW MESSAGE           XW300500
                            00002  3116+XSYNRSV6 EQU   X'02'               RESERVED                             XW300600

                            00001  3117+XSYNRSV7 EQU   X'01'               RESERVED                             XW300700
00005A                             3118+XPCESTEP DS    H                   CURRENT STEP NUMBER                  XW300800
00005C                             3119+XPCEOUTC DS    F                   POINTER TO /*OUTPUT CARD BUFFER      XW300900
000060                             3120+XPCEJST  DS    F                   ADDRESS OF USER TASK CONTROL BLOCK   XW302000
000064                             3121+XPCEJOB  DS    F                   ADDRESS OF JOB QUEUE ENTRY           XW304000
000068                             3122+XPCEIOT  DS    F                   ADDRESS OF FIRST IOT                 XW306000
00006C                             3123+XPCEJOBN DS    CL8                 JOB NAME                             XW308000
000074                             3124+XPCEDCT  DS    F                   ADDRESS OF DIRECT-ACCESS DCT         XW312000
000078                             3125+XPCEDDB  DS    F                   START OF DATA DEFINITION TABLE CHAIN XW314000

                            00000  3126+XOUTTOTL EQU   0                   TOTAL OUTPUT RECORDS                 XW318000

                            00004  3127+XOUTEST  EQU   4                   ESTIMATED OUTPUT RECORDS             XW320000
                            00008  3128+XOUTXCES EQU   8                   ESTIMATED EXCESSION AMOUNT           XW322000
                            0000C  3129+XOUTTYPE EQU   12                  OUTPUT RECORD TYPE (EBCDIC)          XW324000
                            00010  3130+XOUTENT  EQU   16                  OUTPUT INFORMATION TABLE LENGTH      XW326000
00007C                             3131+XPCEPRT  DS    CL(XOUTENT)         PRINT INFORMATION TABLE              XW328000

00008C                             3132+XPCEPUN  DS    CL(XOUTENT)         PUNCH INFORMATION TABLE              XW330000
00009C                             3133+XPCEPIT  DS    F                   ADDR OF PARTITION INFORMATION TABLE  XW332000
0000A0                             3134+XSTQE    DS    3F                  EXECUTION TIMER QUEUE ELEMENT        XW334000
0000AC                             3135+XXSTIME  DS    F                   TIME ESTIMATE EXCESSION AMOUNT       XW336000
                            00058  3136+XEQPCEWS EQU   *-PCEWORK           LENGTH OF EXECUTION PCE WORK AREA    XW340000
000000                             3137+HASPNUC  CSECT                     END OF EXECUTION PCE WORK AREA DSECT XW342000
NUC      HASP OUTPUT PROCESSOR EXECUTIVE PCE WORK AREA DSECT                                                   PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0000B0                             3139+PCEDSECT DSECT                     HASP OUTPUT PROCESSOR EXECUTIVE      OW170000

0000B0                      00058  3140+         ORG   PCEWORK             PCE WORK AREA DSECT                  OW172000

000058                             3141+OPJQE    DS    F                                                        OW174000
00005C                             3142+OPDADCT  DS    F                                                        OW176000
000060                             3143+OPJCTBUF DS    F                                                        OW178000
000064                             3144+OPDDB    DS    F                   RESTART PDDB POINTER                 OW180000
000068                             3145+OPTIMEON DS    2F                  OUTPUT PROCESSOR TIME/DATE           OW182000

000070                             3146+OPWORK   DS    (JOESIZE)X          PROTOTYPE WORK-JOE                   OW184000
00008C                             3147+OPCHAR   DS    (JOESIZE)X          PROTOTYPE CHAR-JOE                   OW186000
0000A8                             3148+OPDBEND  DS    F                   1ST FREE PDDB SLOT IN IOT            OW188000
0000AC                             3149+OPIOT    DS    F                   RESTART IOT ADDRESS                  OW190000
0000B0                             3150+OPRECCT  DS    F                   RECORD COUNT FOR CURRENT PDDB        OW192000
0000B4                             3151+OPJOBFRM DS    F                   JOB DEFAULT FORMS ID                 OW194000
0000B8                             3152+OPJOBCPY DS    X                   JOB LEVEL COPY COUNT FROM JCT        OW196000
0000B9                             3153+OPMSGCLS DS    X                   JOB MESSAGE CLASS                    OW198000
0000BA                             3154+OPCKPT   DS    H                   INDEX TO JOE BEING BUILT             OW200000
0000BC                             3155+OPCLASS  DS    X                   CLASS OF ACTIVE JOE                  OW202000

                            00065  3156+OUTWKSIZ EQU   *-PCEWORK           LENGTH OF HOPE PCE WORK AREA         OW204000

000000                             3157+HASPNUC  CSECT                     END OF HOPE PCE WORK AREA DSECT      OW206000
NUC      HASP PRINT/PUNCH PROCESSOR PCE WORK AREA DSECT                                                        PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







0000BD                             3160+PCEDSECT DSECT                     HASP PRINT/PUNCH PROCESSOR           PW544000
0000BD                      00058  3161+         ORG   PCEWORK              PCE WORK AREA DSECT                 PW546000
000058                             3162+PPFLAG   DS    0C                  PRINT/PUNCH SYNCHRONIZATION FLAGS    PW548000
000058                             3163+PDCT     DS    F                   ADDRESS OF PRINT/PUNCH/REMOTE DCT    PW550000
00005C                             3164+PDCTFLAG DS    0C                  PRINT/PUNCH/REMOTE DCT FLAGS         PW552000
00005C                             3165+PDADCT   DS    F                   ADDRESS OF DIRECT-ACCESS DCT         PW554000
000060                             3166+PJOB     DS    F                   ADDRESS OF JOB QUEUE ENTRY           PW556000
000064                             3167+PRCHKPTE DS    F                   ADDRESS OF CHECKPOINT ELEMENT        PW558000
000068                             3168+PUERRPT  DS    F                   ADDRESS OF PUNCH ERROR CCW           PW560000
00006C                             3169+PTIMEON  DS    2F                  PRINT/PUNCH SIGN-ON TIME/DATE        PW562000

000074                             3170+PBUFSAVE DS    F                   ADDRESS OF NEXT PRINT/PUNCH BUFFER   PW564000
000078                             3171+PCCWPT   DS    F                   ADDRESS OF LAST CCW                  PW566000
00007C                             3172+PCCWEND  DS    F                   ADDRESS OF LAST POSSIBLE CCW         PW568000
000080                             3173+PMESSAGE DS    CL40                MESSAGE WORK AREA                    PW570000

0000A8                             3174+PDDBSKIP DS    H                   COUNT OF PAGES TO SKIP               PW572000
0000AA                             3175+         DS    H                   UNUSED                               PW574000
0000AC                             3176+PPRCFLAG DS    C                   CHECKPOINT FLAGS                     PW576000
0000AD                             3177+PPRCPYCT DS    C                   COPY COUNT                           PW578000
0000AE                             3178+PCEEJRCB DS    H                   LAST EJECT RCB DISPLACEMENT          PW580000
0000B0                             3179+PDDBDISP DS    H                   CURRENT PDDB DISPLACEMENT            PW582000
0000B2                             3180+PDDBPGCT DS    H                   CURRENT PDDB PAGE COUNT              PW584000
0000B4                             3181+PPLNCDCT DS    F                   CURRENT LINE OR CARD COUNT           PW586000
0000B8                             3182+PRPAGECT DS    F                   CURRENT PAGE COUNT                   PW588000
0000BC                             3183+PCEJMTTR DS    F                   LAST EJECT BUFFER MTTR               PW590000
0000C0                             3184+PCEIOTTR DS    F                   CURRENT IOT MTTR                     PW592000
0000C4                             3185+PBUFOPT  DS    0C                  PRINT/PUNCH BUFFERING OPTION         PW594000

0000C4                             3186+PDEVTYPE DS    F                   PRINT/PUNCH DEVICE TYPE              PW596000
0000C8                             3187+PLSAVE   DS    F                   LINK REGISTER SAVE WORD              PW598000
0000CC                             3188+PLSAVE2  DS    F                   SECOND LINK REG SAVE WORD    OY04719 PW599000

0000D0                             3189+PLSAVE3  DS    F                   THIRD LINK REG SAVE WORD     OY07290 PW599500
0000D4                             3190+PRLINECT DS    F                   MAXIMUM LINES PER PAGE               PW600000
0000D8 00000000                    3191+PWKJOE   DC    F'0'                C'CLASS',AL3(WORK JOE)               PW602000
0000DC 00000000                    3192+PCHJOE   DC    F'0'                A(CHARACTERISTICS JOE)               PW604000
0000E0                             3193+PCEFORM  DS    F                   FORMS FOR CURRENT PDDB               PW606000
0000E4                             3194+PCEFCB   DS    F                   FCB   FOR CURRENT PDDB               PW608000
0000E8                             3195+PCEUCSB  DS    F                   UCSB  FOR CURRENT PDDB               PW610000
0000EC                             3196+PPJOBFRM DS    F                   JOB DEFAULT FORMS ID                 PW612000
0000F0                             3197+PPRECCT  DS    F                   MAXIMUM RECORD COUNT                 PW614000
0000F4                             3198+PPJCARDS DS    F                   NUMBER OF CARDS READ                 PW616000
0000F8                             3199+PPJLINES DS    F                   NUMBER OF SYSOUT PRINT RECORDS       PW618000
0000FC                             3200+PPJPUNCH DS    F                   NUMBER OF SYSOUT PUNCH RECORDS       PW620000

000100                             3201+PPJXEQOF DS    F                   TIME OFF EXECUTION                   PW622000

000104                             3202+PPJXEQON DS    F                   TIME ON EXECUTION                    PW624000
000108                             3203+PPJDSKEY DS    F                   DATA SET BUFFER VALIDITY KEY         PW626000

00010C                             3204+PPJJOBEB DS    CL(L'JCTJOBEB)      JOB NUMBER                           PW628000
000110                             3205+PPJROOMN DS    CL(L'JCTROOMN)      ROOM NUMBER                          PW630000
000114                             3206+PPJJNAME DS    CL(L'JCTJNAME)      JOB NAME                             PW632000
00011C                             3207+PPJPNAME DS    CL(L'JCTPNAME)      PROGRAMMER NAME                      PW634000
000130                             3208+PRINDEX  DS    X                   3211 INDEX VALUE                     PW636000
NUC      HASP PRINT/PUNCH PROCESSOR PCE WORK AREA DSECT                                                        PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000131                             3209+PPMSGCLS DS    X                   JOB MESSAGE CLASS                    PW638000
000132                             3210+PPDSCPY  DS    X                   DATA SET COPY COUNT                  PW640000
000133                             3211+PPJNDS   DS    X                   DATA SET PER JOE COUNTER             PW642000
000134                             3212+PBSPGCT  DS    H                   BSP PAGE COUNTER                     PW646000
000136                             3213+PBSPTBL  DS    CL(4*6)             BSP TABLE                            PW648000

                            000F6  3214+PRRPCEWS EQU   *-PCEWORK           LENGTH OF REMOTE PRINT PCE WORK AREA PW652000
                            000F6  3215+PURPCEWS EQU   *-PCEWORK           LENGTH OF REMOTE PUNCH PCE WORK AREA PW654000

000150                             3216+PCCWCHN  DS    (30+1)D                   PRINT CCW CHAIN                PW656000

                            001F0  3217+PRTPCEWS EQU   *-PCEWORK           LENGTH OF LOCAL PRINT PCE WORK AREA  PW658000
000248                      00150  3218+         ORG   PCCWCHN                                                  PW660000
000150                             3219+         DS    (30+2)D                   PUNCH CCW CHAIN                PW662000
                            001F8  3220+PUNPCEWS EQU   *-PCEWORK           LENGTH OF LOCAL PUNCH PCE WORK AREA  PW664000
000000                             3221+HASPNUC  CSECT                     END OF PRINT/PUNCH WORK AREA DSECT   PW666000
NUC      HASP COMMUNICATION TABLE                                                                              PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00000  3223+         USING HASP,BASE1          ESTABLISH NUCLEUS ADDRESSABILITY     HC444000

000000                             3225+$VERSION DC    0CL8' V 4.009762'        HASP VERSION                    HC446000

000000 18BF                        3227+HASP     LR    BASE1,R15           ESTABLISH NUCLEUS ADDRESSABILITY     HC448000

000002 58F0 BC18      00C18        3228+         L     R15,=V(HASPINGO)    GET ENTRY TO HASP INITIALIZATION     HC449000
000006 07FF                        3229+         BR    R15                 INITIALIZE HASP                      HC450000



                                   3231+*                             VS2 - HASP VECTOR TABLE                   HC451050

000008                             3233+$HVT     DS    0F                                                       HC451150
000008 00000000                    3234+$HVTEXCP DC    V($EXCPSVC)         IOS PSEUDO DEVICE EXIT ADDRESS       HC451200
00000C 00000000                    3235+         DC    V(XJCLSCAN)         INTERPRETTER EXIT ADDRESS            HC451250
000010 00000000                    3236+         DC    V($MGCRSVC)         MGCR EXIT ADDRESS                    HC451300
000014 00000000                    3237+         DC    V($WTOSVC)          WTO(R)/WTL EXIT 1 ADDRESS            HC451350
000018 00000000                    3238+         DC    V($WTOSVC2)         WTO(R) EXIT 2 ADDRESS                HC451400
00001C 0000002C                    3239+         DC    A($EXITNOP)         JOB INITIATION EXIT ADDRESS          HC451450
000020 0000002C                    3240+         DC    A($EXITNOP)         STEP INITIATION EXIT ADDRESS         HC451500
000024 00000000                    3241+         DC    V(XTERMSMF)         TERMINATION EXIT ADDRESS             HC451550
000028 00000000                    3242+         DC    V($TSOCOMM)         TSO STATUS/CANCEL EXIT ADDRESS       HC451600


00002C 1BFF                        3244+$EXITNOP SR    R15,R15             R15 = RC = 0                         HC451750
00002E 07FE                        3245+         BR    R14                 RETURN                               HC451800



                                   3247+*                             ENTRY TO HASP DISPATCHER                  HC452000

000030 47F0 B23C      0023C        3249+         B     $WAIT                                                    HN026000


                                   3251+*                             ENTRIES TO HASP BUFFER SERVICES           HC456000


000034 47F0 B664      00664        3253+         B     $GETBUF                                                  HN026000
000038 47F0 B664      00664        3254+         B     $GETPBUF                                                 HN026000
00003C 47F0 B674      00674        3255+         B     $FREEBUF                                                 HN026000


                                   3257+*                             ENTRIES TO HASP UNIT SERVICES             HC462000

000040 47F0 B690      00690        3259+         B     $GETUNIT                                                 HN026000
000044 47F0 B6D2      006D2        3260+         B     $FREUNIT                                                 HN026000



                                   3262+*                             ENTRIES TO HASP JOB QUEUE SERVICES        HC467000


000048 47F0 B428      00428        3264+         B     $QADD                                                    HN026000
00004C 47F0 B4A4      004A4        3265+         B     $QGET                                                    HN026000
000050 47F0 B4E8      004E8        3266+         B     $QPUT                                                    HN026000
000054 47F0 B53C      0053C        3267+         B     $QREM                                                    HN026000
000058 47F0 B59C      0059C        3268+         B     $QSIZ                                                    HN026000
00005C 47F0 B60E      0060E        3269+         B     $QLOC                                                    HN026000
000060 47F0 B632      00632        3270+         B     $QJITLOC                                                 HN026000

NUC      HASP COMMUNICATION TABLE (CONTINUED)                                                                  PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3272+*                             ENTRIES TO DIRECT ACCESS SPACE SERVICES   HC477000

000064 47F0 BC46      00C46        3274+         B     $TRACK                                                   HN026000

000068 47F0 BB7C      00B7C        3275+         B     $PURGER                                                  HN026000


                                   3277+*                             ENTRIES TO HASP INPUT/OUTPUT SERVICES     HC482000


00006C 47F0 B30C      0030C        3279+         B     $EXCP                                                    HN026000
000070 47F0 BBEC      00BEC        3280+         B     $EXTPOPE                                                 HN026000
000074 47F0 BBEC      00BEC        3281+         B     $EXTPGET                                                 HN026000
000078 47F0 BBEC      00BEC        3282+         B     $EXTPPUT                                                 HN026000
00007C 47F0 BBEC      00BEC        3283+         B     $EXTPCLO                                                 HN026000
000080 47F0 BBEC      00BEC        3284+         B     $RESTORE                                                 HN026000



                                   3286+*                             ENTRIES TO HASP OVERLAY SERVICES          HC491000

000084 47F0 B3CE      003CE        3288+         B     $ODEL                                                    HN026000
000088 47F0 B3D2      003D2        3289+         B     $ORET                                                    HN026000

00008C 47F0 B3EA      003EA        3290+         B     $OLINK                                                   HN026000
000090 47F0 B3F4      003F4        3291+         B     $OXCTL                                                   HN026000
000094 47F0 B404      00404        3292+         B     $OLOAD                                                   HN026000



                                   3294+*                             ENTRIES TO HASP CONSOLE SERVICES          HC499000

000098 47F0 B8FA      008FA        3296+         B     $WTO                                                     HN026000
00009C 47F0 B9A8      009A8        3297+         B     $FREEMSG                                                 HN026000
0000A0 47F0 BA8C      00A8C        3298+         B     $DOM                                                     HN026000



                                   3300+*                             ENTRIES TO HASP SMF BUFFER SERVICES       HC503200

0000A4 47F0 BB42      00B42        3302+         B     $QUESMFB                                                 HN026000
0000A8 47F0 BB0C      00B0C        3303+         B     $GETSMFB                                                 HN026000



                                   3305+*                             ENTRIES TO HASP INTERVAL TIMER SERVICES   HC504000

0000AC 47F0 B734      00734        3307+         B     $STIMER                                                  HN026000
0000B0 47F0 B880      00880        3308+         B     $TTIMER                                                  HN026000



                                   3310+*                             ENTRIES TO HASP ERROR SERVICES            HC509000

0000B4 47F0 BBF6      00BF6        3312+         B     $IOERROR                                                 HN026000
0000B8 47F0 BBF0      00BF0        3313+         B     $ERROR                                                   HN026000
0000BC 47F0 BBD0      00BD0        3314+         B     $DISTERR                                                 HN026000

NUC      HASP COMMUNICATION TABLE (CONTINUED)                                                                  PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0000C0 00                          3316+         DC    AL1(0)              RESERVED                             HC515000
0000C1 00                          3317+$OPTSTAT DC    AL1(*-*)            HASP INITIALIZATION OPTIONS          HC516000
0000C2 00                          3318+$STATUS  DC    AL1(*-*)            HASP SYSTEM STATUS                   HC517000

0000C3 00                          3319+$CURPCE  DC    AL1(*-*)            CURRENT PCE ID                       HC518000
0000C4 00                          3320+$HASPECF DC    AL1(*-*)            MASTER EVENT CONTROL FIELD           HC519000
0000C5 00                          3321+MHASPECF DC    AL1(*-*)            LINE MANAGER EVENT CONTROL FIELD     HC520000
0000C6 00                          3322+$XEQACT  DC    AL1(*-*)            COUNT OF JOBS IN O/S EXECUTION       HC521000
0000C7 00                          3323+$ACTIVE  DC    AL1(*-*)            COUNT OF ACTIVE FUNCTIONS            HC522000
0000C8 FF                          3324+$ENBALL  DC    X'FF'               ENABLE ALL MASK                      HC523000

0000C9 00                          3325+$DISALL  DC    X'00'               DISABLE ALL MASK                     HC524000
0000CA FE                          3326+$DISINT  DC    X'FE'               DISABLE INTERVAL TIMER MASK          HC525000
0000CB 00                          3327+         DC    X'00'               RESERVED                             HC526000
0000CC 0000                        3328+$EXCPCT  DC    Y(*-*)              ACTIVE HASP I/O COUNT                HC531000

0000CE 0040                        3329+$COMMCT  DC    Y(64)                     ACTIVE HASP COMMAND COUNT      HC532000
0000D0 0000                        3330+$CKPTRAK DC    Y(*-*)              HASP CHECKPOINT TRACK ADDRESS        HC533000
0000D2 0000                        3331+         DC    Y(0)                RESERVED                             HC534000
0000D4 00000000                    3332+$HASPTCB DC    A(*-*)              ADDRESS OF HASP TASK CONTROL BLOCK   HC535000
0000D8 00000000                    3333+$HASPECB DC    F'0'                COMMON HASP ECB                      HC535200

0000DC 00000000                    3334+$ASYNCQ  DC    A(0)                ASYNC I/O COMPLETION QUEUE           HC535400
0000E0 00000000                    3335+$RJECHEQ DC    A(0)                RJE I/O COMPLETION QUEUE             HC535600
                                   3336+*                                  ADDRESS OF FIRST HASP PCE            HC536000
0000E4 00000E00                    3337+$PCEORG  DC    A(PCE1)                                                  HN022000
0000E8 00000000                    3338+$BUFPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE HASP BUFFER HC538000
0000EC 00000000                    3339+$TPBPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE RJE BUFFER  HC539000
0000F0 00000000                    3340+$DCTPOOL DC    A(*-*)              ADDRESS OF FIRST HASP DCT            HC540000

0000F4 00000000                    3341+$JITABLE DC    A(*-*)              ADDRESS OF HASP JOB INFO TABLE       HC541000
0000F8 00000000                    3342+$JOTABLE DC    V($JOT)             ADDRESS OF JOB OUTPUT TABLE          HC541500
0000FC 00000000                    3343+$CYLMAP  DC    A(*-*)              ADDRESS OF FIRST CYLINDER MODULE MAP HC542000

000100 00000000                    3344+$TEDADDR DC    A(*-*)              ADDRESS OF FIRST EXTENT DATA TABLE   HC543000
000104 00000000                    3345+$DCBLIST DC    A(*-*)              ADDRESS OF DIRECT ACCESS DCB         HC544000
000108 00000000                    3346+$FREEQUE DC    A(*-*)              ADDR OF 1ST FREE CONSOLE MSG BUFFER  HC545000
00010C 00000000                    3347+$BUSYQUE DC    A(*-*)              CONSOLE MSG BUFFERS QUEUED FOR I/O   HC546000
000110 00000000                    3348+$LOGQUE  DC    A(*-*)              CMB'S QUEUED FOR LOG PROCESSOR       HC547000

000114 00000000                    3349+$COMMQUE DC    A(*-*)              COMMANDS QUEUED FOR COMMAND PROC     HC548000
000118 00000000                    3350+$DOMQUE  DC    A(*-*)              CMB'S AWAITING ACTION                HC548200
00011C 00000000                    3351+$SMFFREE DC    A(*-*)              ADDR OF 1ST FREE SMF BUFFER          HC548400
000120 00000000                    3352+$SMFBUSY DC    A(*-*)              SMF BUFFERS QUEUED FOR I/O           HC548600
000124 00000000                    3353+$PRCHKPT DC    A(*-*)              ADDRESS OF PRINT CHECKPOINT TABLE    HC549000
000128 00000002                    3354+$TIMEARG DC    F'2'                FAKE SVRB+36 FOR IGC011              HC549500
NUC      HASP COMMUNICATION TABLE (CONTINUED)                                                                  PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   3356+*                             NUCLEUS ADDRESS TABLE                     HC551000


00012C                             3358+$NUCTABL DS    0F                  START OF NUCLEUS ADDRESS TABLE       HC553000
00012C 00000000                    3359+$STATENT DC    A(*-*)              ENTRY TO STATUS ROUTINE              HC554000
000130 00000000                    3360+$TIMENT  DC    A(*-*)              ENTRY TO TIME ROUTINE                HC555000
000134 00000000                    3361+$XSMFENT DC    A(*-*)              ENTRY TO SMF EXCP COUNTING ROUTINE   HC559000
000138 00000000                    3362+$SVCRSET DC    A(*-*)              ENTRY TO HASP SVC RESET ROUTINE      HC560000

                            00010  3363+$NUCLEN  EQU   *-$NUCTABL          LENGTH OF NUCLEUS ADDRESS TABLE      HC561000


                                   3365+*********************************************************************** HC576000
                                   3366+*  ALL VARIABLES LOCATED IN THIS AREA WILL BE REGULARLY CHECKPOINTED  * HC577000
                                   3367+*  BY HASP AND WILL BE RESTORED ON ANY WARM START.....                * HC578000
                                   3368+*                                                                     * HC579000
                                   3369+*                                                                     * HC580000
                                   3370+*                                                                     * HC581000

00013C                             3371+$SAVEBEG DS    0F                  BEGINNING OF SAVE AREA             * HC582000
00013C 00000000                    3372+$JOBQPTR DC    A(*-*)              ADDRESS OF HASP JOB QUEUE          * HC583000

000140 00000000                    3373+$JQFREE  DC    A(*-*)              BEGINNING OF FREE QUEUE CHAIN      * HC584000
000144 00000000                    3374+$JQENT   DC    A(*-*)              BEGINNING OF ACTIVE QUEUE CHAIN    * HC585000
000148 00000000                    3375+$DATAKEY DC    F'0'                MASTER PERIPHERAL DATA SET KEY     * HC588000
00014C 0000                        3376+$JOBNO   DC    H'0'                HASP JOB NUMBER                    * HC589000
00014E 0000                        3377+$MSGRPNO DC    H'0'                LAST CONSOLE MESSAGE TRACK GROUP   * HC590000

000150 0000000000000000            3378+$DACKPT  DC    2XL6'0'             DA CHECKPOINT FOR WARM START       * HC591000
                            0015C  3379+$SAVEEND EQU   *                   END OF SAVE AREA                   * HC592000
                            00020  3380+$SAVELEN EQU   $SAVEEND-$SAVEBEG   LENGTH OF SAVE AREA                * HC593000
                                   3381+*                                                                     * HC594000
                                   3382+*                                                                     * HC595000
                                   3383+*                                                                     * HC596000
                                   3384+*********************************************************************** HC597000
                                   3385+*                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000


00015C                             3387+$NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000

00015C 00000000                    3388+$ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000
000160 00000000                    3389+$SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000
000164 00000000                    3390+$SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000
                            0000C  3391+$NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000



                                   3393+*                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000

000168 00000000                    3395+$IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000
00016C 00000000                    3396+$WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000
000170 00000000                    3397+$LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000
000174 00000000                    3398+$XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000
000178 00000000                    3399+$SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000
00017C 00000000                    3400+$SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000
000180 00000000                    3401+$SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000
000184 00000000                    3402+$SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000

000188 00000000                    3403+$SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000

00018C                             3404+$ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000



NUC      HASP PATCH SPACE                                                                                      PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                   3408 $PATCHSP $PATCHSP 64               GENERATE PATCH SPACE                 H0212000
000198                             3409+$PATCHSP DS    0H                                                       NU006000
000198 B198                        3410+         DC    S(*)                                                     PA014000
00019A B19A                        3411+         DC    S(*)                                                     PA014000
00019C B19C                        3412+         DC    S(*)                                                     PA014000
00019E B19E                        3413+         DC    S(*)                                                     PA014000
0001A0 B1A0                        3414+         DC    S(*)                                                     PA014000
0001A2 B1A2                        3415+         DC    S(*)                                                     PA014000
0001A4 B1A4                        3416+         DC    S(*)                                                     PA014000

0001A6 B1A6                        3417+         DC    S(*)                                                     PA014000
0001A8 B1A8                        3418+         DC    S(*)                                                     PA014000
0001AA B1AA                        3419+         DC    S(*)                                                     PA014000
0001AC B1AC                        3420+         DC    S(*)                                                     PA014000

0001AE B1AE                        3421+         DC    S(*)                                                     PA014000
0001B0 B1B0                        3422+         DC    S(*)                                                     PA014000
0001B2 B1B2                        3423+         DC    S(*)                                                     PA014000
0001B4 B1B4                        3424+         DC    S(*)                                                     PA014000
0001B6 B1B6                        3425+         DC    S(*)                                                     PA014000
0001B8 B1B8                        3426+         DC    S(*)                                                     PA014000
0001BA B1BA                        3427+         DC    S(*)                                                     PA014000
0001BC B1BC                        3428+         DC    S(*)                                                     PA014000
0001BE B1BE                        3429+         DC    S(*)                                                     PA014000
0001C0 B1C0                        3430+         DC    S(*)                                                     PA014000
0001C2 B1C2                        3431+         DC    S(*)                                                     PA014000
0001C4 B1C4                        3432+         DC    S(*)                                                     PA014000

0001C6 B1C6                        3433+         DC    S(*)                                                     PA014000
0001C8 B1C8                        3434+         DC    S(*)                                                     PA014000
0001CA B1CA                        3435+         DC    S(*)                                                     PA014000

0001CC B1CC                        3436+         DC    S(*)                                                     PA014000
0001CE B1CE                        3437+         DC    S(*)                                                     PA014000
0001D0 B1D0                        3438+         DC    S(*)                                                     PA014000
0001D2 B1D2                        3439+         DC    S(*)                                                     PA014000
0001D4 B1D4                        3440+         DC    S(*)                                                     PA014000
0001D6 B1D6                        3441+         DC    S(*)                                                     PA014000
NUC      HASP DISPATCHER                                                                                       PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3443 HASPDISP NULL                      HASP DISPATCHER                      H0216000
0001D8                             3444+HASPDISP DS    0H                                                       NU006000
0001D8 9200 B0D8      000D8        3445          MVI   $HASPECB,0          CLEAR HASP ECB                       H0218000
0001DC 58D0 B0E4      000E4        3446          L     SAVE,$PCEORG        GET ADDRESS OF FIRST PCE             H0220000

0001E0 9680 B0C4      000C4        3447          OI    $HASPECF,$EWFPOST   NEGATE COMMON POST INDICATOR         H0222000

0001E4 95FF B0C4      000C4        3448          CLI   $HASPECF,X'FF'      HAS ANY SYSTEM FUNCTION BEEN $POSTED H0224000
0001E8 4780 B210      00210        3449          BE    HASPSCAN            BYPASS PCE POST IF NO                H0226000

                                   3450          AIF   (&SYSMFT OR &SYSMVT).HASP1                          RFIT H0227900
                                   3451 .HASP1  $DISABLE ALL                                               RFIT H0228200
0001EC 8000 B0C9      000C9        3452+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
                                   3453 .HASP2   ANOP                                                      RFIT H0228300
                                   3454          AIF   (&NUMLNES EQ 0).HNORJE                                   H0230000
0001F0 D200 B1FF B0C4 001FF 000C4  3455 .HNORJE  MVC   HASPOST+1(1),$HASPECF    MOVE FOR EFFICIENCY             H0234000
0001F6 92FF B0C4      000C4        3456          MVI   $HASPECF,X'FF'      RESET MASTER EVENT CONTROL FIELD     H0236000
                                   3457          AIF   (&SYSMFT OR &SYSMVT).HASP3                          RFIT H0237900
                                   3458 .HASP3  $ENABLE ALL                                                RFIT H0238200
0001FA 8000 B0C8      000C8        3459+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   3460 .HASP4   ANOP                                                      RFIT H0238300



0001FE 9400 D048      00048        3462 HASPOST  NI    PCEEWF,*-*          $POST EACH PROCESSOR CONTROL ELEMENT H0242000
000202 58D0 D008      00008        3463          L     SAVE,PCENEXT        GET ADDRESS OF NEXT PCE              H0244000

000206 12DD                        3464          LTR   SAVE,SAVE           TEST                                 H0246000

000208 4770 B1FE      001FE        3465          BNZ   HASPOST             BRANCH IF NOT LAST PCE               H0248000

00020C 58D0 B0E4      000E4        3467          L     SAVE,$PCEORG        RESTORE ADDRESS OF FIRST PCE         H0252000



                                   3469 HASPSCAN NULL                      DISPATCH FIRST ELIGIBLE PCE          H0256000
000210                             3470+HASPSCAN DS    0H                                                       NU006000
000210 4810 D048      00048        3471          LH    R1,PCEEWF           GET EVENT WAIT FIELD                 H0258000
000214 5510 BC1C      00C1C        3472          CL    R1,=A($EWFOROL)     TEST                                 H0260000
000218 4720 B24C      0024C        3473          BH    HASPNEXT            BRANCH IF NOT DISPATCHABLE           H0262000
00021C 4740 B230      00230        3474          BL    HASPGO              BRANCH IF DISPATCHABLE               H0264000
000220 94FE D049      00049        3475          NI    PCEEWF+$EWBOROL,255-$EWFOROL TURN OFF OROL BIT           H0266000
000224 98EC D00C      0000C        3476          LM    LINK,BASE2,PCELINK  LOAD PROCESSOR'S REGISTERS           H0268000

000228 5840 B414      00414        3477          L     WC,$OLINKAD         WC = BASE FOR OVERLAY SERVICE        H0270000
                            02330  3478          USING OLINK,WC            ESTABLISH ADDRESSABILITY             H0272000
                                   3479          $TRACE                    TRACE EACH RE-CALL REQUEST           H0274000

00022C 47F0 4028      02358        3480          B     OUNROL              GO TO RE-REQUEST USE OF              H0276000
                                   3481 *                                   THE PROPER OVERLAY ROUTINE          H0278000
                                   3482          DROP  WC                  CANCEL ADDRESSABILITY                H0280000


000230 98EC D00C      0000C        3484 HASPGO   LM    LINK,BASE2,PCELINK  LOAD PROCESSOR'S                     H0284000
                                   3485         $TRACE                      REGISTERS                           H0286000
000234 D200 B0C3 D04B 000C3 0004B  3486          MVC   $CURPCE(1),PCEID+1  SAVE PCE TYPE                        H0287000
00023A 07FF                        3487          BR    R15                 DISPATCH PROCESSOR                   H0288000



                                   3489 $WAIT    NULL                      PROCESSOR RETURN POINT               H0292000
00023C                             3490+$WAIT    DS    0H                                                       NU006000
00023C 92FF B0C3      000C3        3491          MVI   $CURPCE,X'FF'       SHOW NOT IN ANY PCE                  H0293000

NUC      HASP DISPATCHER                                                                                       PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3492         $TRACE                                                          H0294000
000240 90EC D00C      0000C        3493          STM   LINK,BASE2,PCELINK  SAVE PROCESSOR'S REGISTERS           H0296000

000244 95FF B0C4      000C4        3494          CLI   $HASPECF,X'FF'      HAS ANY SYSTEM FUNCTION BEEN POSTED  H0298000
000248 4770 B1D8      001D8        3495          BNE   HASPDISP            IF YES START AT TOP OF PCE CHAIN     H0300000



                                   3497 HASPNEXT NULL                                                           H0304000
00024C                             3498+HASPNEXT DS    0H                                                       NU006000
00024C 58D0 D008      00008        3499          L     SAVE,PCENEXT        GET ADDRESS OF NEXT PCE              H0306000

000250 12DD                        3500          LTR   SAVE,SAVE           TEST                                 H0308000
000252 4770 B210      00210        3501          BNZ   HASPSCAN            BRANCH IF NOT LAST PCE               H0310000


000256 5850 B410      00410        3503          L     WD,$WAITACE         WD = ADDR 1ST PCE WAITING            H0310400
00025A 1255                        3504          LTR   WD,WD                FOR OLAY AREA, IF ANY               H0310600
00025C 4780 B266      00266        3505          BZ    $ROLLED             BRANCH IF NONE                       H0310800
000260 58C0 B418      00418        3506          L     BASE2,$OROLLAD      LOAD $OROLL PROCESSOR BASE           H0311000
000264 07FC                        3507          BR    BASE2               GO TO $OROLL PROCESSOR               H0311200

                                   3508 $ROLLED  NULL                                                           H0311400
000266                             3509+$ROLLED  DS    0H                                                       NU006000




000266 9500 B0C7      000C7        3511          CLI   $ACTIVE,0           TEST ACTIVE COUNT                    H0314000
00026A 4770 B2D8      002D8        3512          BNE   HASPACT             BRANCH IF FUNCTIONS ARE ACTIVE       H0316000
00026E 9180 B0C2      000C2        3513          TM    $STATUS,$RDRPEND    TEST SYSTEM STATUS                   H0318000
000272 4710 B2DC      002DC        3514          BO    HASPWAIT            BRANCH IF O/S READER IS PENDING      H0320000


000276 4810 B0CC      000CC        3516          LH    R1,$EXCPCT          TEST OUTSTANDING I/O                 H0324000
00027A 5A10 B10C      0010C        3517          A     R1,$BUSYQUE         TEST                                 H0326000

00027E 5A10 B110      00110        3518          A     R1,$LOGQUE           CONSOLE                             H0328000
000282 5A10 B114      00114        3519          A     R1,$COMMQUE           BACKLOG                            H0330000
000286 4770 B2DC      002DC        3520          BNZ   HASPWAIT            BRANCH IF SYSTEM IS ACTIVE           H0332000


00028A 9140 B0C2      000C2        3522          TM    $STATUS,$ALMSGSW    TEST SYSTEM STATUS                   H0336000

00028E 4710 B2DC      002DC        3523          BO    HASPWAIT            BRANCH IF MESSAGE HAS BEEN ISSUED    H0338000
000292 9104 B0C2      000C2        3524          TM    $STATUS,$SYSEXIT    TEST SYSTEM STATUS                   H0340000
000296 4710 B2F4      002F4        3525          BO    HASPRET             BRANCH IF FINAL ENTRY                H0342000


                                   3527         $WTO   HASPALL,L'HASPALL,JOB=NO,WAIT=NO,  ISSUE ALL AVAILABLE  CH0346000
                                                       ROUTE=$ALL,CLASS=$ALWAYS,PRI=$HI    FUNCTIONS COMPLETE   H0348000
00029A 4110 B2B8      002B8        3528+         LA    R1,HASPALL                                               DG012000
00029E 0700                        3529+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
0002A0 5800 B2A8      002A8        3530+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
0002A4 45E0 B8FA      008FA        3531+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000

0002A8 04FF2077                    3532+         DC    AL1(4,$ALL,L'HASPALL,$ALWAYS+$HI)                        WT044000

0002AC 4780 B2DC      002DC        3534          BZ    HASPWAIT            $WTO WAS UNSUCCESSFUL, WAIT          H0352000
0002B0 9640 B0C2      000C2        3535          OI    $STATUS,$ALMSGSW    SET MESSAGE ISSUED SWITCH            H0354000
0002B4 47F0 B1D8      001D8        3536          B     HASPDISP            GO PROCESS MESSAGE                   H0356000

0002B8 C1D3D340C1E5C1C9            3537 HASPALL  DC    C'ALL AVAILABLE FUNCTIONS COMPLETE'                      H0358000
NUC      HASP DISPATCHER                                                                                       PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0002D8 94BF B0C2      000C2        3539 HASPACT  NI    $STATUS,255-$ALMSGSW     RESET MESSAGE ISSUED SWITCH     H0362000




                                   3541 HASPWAIT NULL                      ENTER O/S WAIT STATE                 H0366000
0002DC                             3542+HASPWAIT DS    0H                                                       NU006000
0002DC 92FE B0C3      000C3        3543          MVI   $CURPCE,X'FE'       SHOW IN OS WAIT STATE                H0367000
                                   3544          WAIT  ECB=$HASPECB        WAIT FOR SOMETHING TO DO             H0368000
0002E0 4110 B0D8      000D8        3545+         LA    1,$HASPECB                        LOAD PARAMETER REG 1   00100000

0002E4 4100 0001      00001        3546+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
0002E8 0A01                        3547+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
0002EA 92FF B0C3      000C3        3548          MVI   $CURPCE,X'FF'       SHOW NOT IN ANY PCE                  H0369000

0002EE 47F0 B1D8      001D8        3550          B     HASPDISP            DISPATCH ELIGIBLE PROCESSORS         H0378000




0002F2                             3552 HASPSM   DS    C                   SAVE FOR SYSTEM MASK         OY02728 H0387000
                                   3553 HASPRET  NULL                      RETURN TO SYSTEM                     H0388000
0002F4                             3554+HASPRET  DS    0H                                                       NU006000
                                   3555          AIF   (&TRACE EQ 0).HNOTRCE                                    H0390000

0002F4 58F0 B138      00138        3556 .HNOTRCE L     R15,$SVCRSET        PICK UP EXIT SVC                     H0414000
0002F8 41E0 B2FE      002FE        3557          LA    R14,*+6             R14 = RETURN ADDRESS                 H0415000
0002FC 07FF                        3558          BR    R15                 RESET INITIALIZATION SVC             H0416000
0002FE 58D0 B0E4      000E4        3559          L     R13,$PCEORG         PICK UP FIRST PCE                    H0418000
000302 58D0 D004      00004        3560          L     R13,4(,R13)         LOCATE SYSTEM SAVE                   H0420000

000306 98EC D00C      0000C        3561          LM    R14,R12,12(R13)     LOAD REGISTERS                       H0422000
00030A 07FE                        3562          BR    R14                 RETURN                               H0424000
                                   3563          AIF   (&TRACE EQ 0).TNOE                                       H0424100
                                   3564 .TNOE    ANOP                                                           H0426300
NUC      HASP INPUT/OUTPUT SUPERVISOR                                                                          PAGE   74



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3566 *                                                                     * H0428000
                                   3567 *********************************************************************** H0430000
                                   3568 *                                                                     * H0432000
                                   3569 *           HASP EXECUTE-CHANNEL-PROGRAM SUBROUTINE                   * H0434000
                                   3570 *                                                                     * H0436000

                                   3571 *********************************************************************** H0438000
                                   3572 *                                                                     * H0440000
00030C                             3573 $EXCP    DS    0H                  R1 POINTS TO A DCT.                  H0442000
00030C 9023 B3B8      003B8        3574          STM   WA,WB,ESAVE         SAVE                                 H0444000

                            00000  3575          USING DCTDSECT,R1         USE DSECT TO ADDRESS THE DCT.        H0446000
000310 5820 1004      00004        3576          L     WA,DCTBUFAD         FROM DCT POINT TO THE IOB/BUFFER.    H0448000
                            00000  3577          USING BUFDSECT,WA         USE DSECT TO ADDRESS IOB/BUFFER.     H0450000
                                   3578          $TRACE                    WITH R1 AND WA LOADED, TRACE.        H0452000
000314 9242 2000      00000        3579          MVI   IOBFLAG1,X'42'      SHOW CMD CHAINING, UNRELATED IN IOB. H0454000

000318 D203 2030 100C 00030 0000C  3580          MVC   BUFEWF,DCTEWF       MOVE INFO FOR $ASYNC INTO THE IOB.   H0456000
                                   3581 *        STCM  R1,7,BUFDCT+1       MAKE THE IOB POINT TO THE DCT   RFIT H0460000
00031E 5010 BA54      00A54        3582          ST    R1,TEMPSAVE                                         RFIT H0460005
000322 D202 202D BA55 0002D 00A55  3583          MVC   BUFDCT+1(3),TEMPSAVE+1                              RFIT H0460010
000328 4330 1010      00010        3584          IC    WB,DCTBUFCT         ADD 1 TO THE COUNT OF BUFFERS        H0464000
00032C 4130 3001      00001        3585          LA    WB,1(,WB)           PENDING COMPLETION UNDER THIS DCT.   H0466000

000330 4230 1010      00010        3586          STC   WB,DCTBUFCT         (THE COUNT IS USED BY $ASYNC.)       H0468000
000334 D202 2015 1009 00015 00009  3587          MVC   IOBDCBPT+1(3),DCTDCB+1  SET DCB ADDRESS IN IOB.          H0470000
                                   3588          AIF   (&RPS).ERPS1        *                                    H0471000
00033A 9500 1012      00012        3589          CLI   DCTDEVTP,DCTDA      IS THIS A DIRECT-ACCESS REQUEST...   H0472000

00033E 4770 B39C      0039C        3590          BNE   ESENDIT             IF NOT, SKIP THE FOLLOWING.          H0474000
                                   3591          AGO   .ENORPS1            *                                    H0474400
                                   3592 .ENORPS1 ANOP                      *                                    H0475600
                                   3593 *                                                                     * H0476000
                                   3594 *********************************************************************** H0478000

                                   3595 *                                                                     * H0480000
                                   3596 *           EXTRA PROCESSING FOR ALL DIRECT-ACCESS REQUESTS           * H0482000
                                   3597 *                                                                     * H0484000
                                   3598 *********************************************************************** H0486000
                                   3599 *                                                                     * H0488000
000342 D202 2015 B105 00015 00105  3600          MVC   IOBDCBPT+1(3),$DCBLIST+1  POINT IOB TO DIRECT-ACCESS DCB H0490000
000348 92FF 2021      00021        3601          MVI   IOBSEEK,X'FF'       SET INVALID BB IN IOB.               H0490500

                                   3602          CLI   DCTSEEK,&NUMDA      IS EXTENT WITHIN BOUNDS...           H0491000
00034C 9502 1008      00008        3603+         CLI   DCTSEEK,2           IS EXTENT WITHIN BOUNDS...           H0491000
000350 4720 B39C      0039C        3604          BH    ESENDIT             IF NOT, CAUSE X'42' POST.            H0491500

000354 9206 2050      00050        3605          MVI   IOBCCW4,6           SET CHANNEL COMMAND TO READ DATA.    H0492000
000358 9180 1013      00013        3606          TM    DCTIOTYP,DCTREAD    IS THIS A READ REQUEST...            H0494000
00035C 4710 B364      00364        3607          BO    *+8                 BRANCH IF SO.                        H0496000
000360 9205 2050      00050        3608          MVI   IOBCCW4,5           SET CHANNEL COMMAND TO WRITE DATA.   H0498000
000364 5830 1008      00008        3609          L     WB,DCTSEEK          PREPARE TO SET MBBCCHHR IN IOB.      H0500000

000368 4100 3000      00000        3610          LA    R0,0(,WB)           GET MTTR AND ISOLATE TTR IN R0.      H0502000
00036C 1730                        3611          XR    WB,R0               THEN ISOLATE M IN WB.                H0504000
00036E 5030 2020      00020        3612          ST    WB,IOBXTENT         SET 'M000' IN THE IOB.               H0506000
000372 4200 2028      00028        3613          STC   R0,BUFECBCC         SET RECORD NUMBER TOO FAR RIGHT.     H0508000
000376 8830 0018      00018        3614          SRL   WB,24               SHIFT 'M' (EXTENT NR) FOR MULTIPLY.  H0510000
00037A 4C30 BC44      00C44        3615          MH    WB,=AL2(TEDSIZ)     COMPUTE ADDRESS OF EXTENT DATA       H0512000
00037E 5A30 B100      00100        3616          A     WB,$TEDADDR         APPLICABLE TO THE I/O REQUEST.       H0514000
                            00000  3617          USING TEDDSECT,WB         USE DSECT TO ADDRESS IT.             H0516000

000382 5000 3000      00000        3618          ST    R0,TNCH             SAVE MOST-RECENT SEEK ADDRESS.       H0518000
000386 8C00 0028      00028        3619          SRDL  R0,40               SHIFT 'TT' FOR DIVIDE.               H0520000

00038A 5D00 3004      00004        3620          D     R0,TNTC             COMPUTE CYLINDER AND HEAD NUMBERS.   H0522000
NUC      HASP INPUT/OUTPUT SUPERVISOR                                                                          PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00038E 4010 2024      00024        3621          STH   R1,IOBSEEK+3        SET CYLINDER NUMBER TOO FAR RIGHT.   H0524000
000392 4000 2026      00026        3622          STH   R0,IOBSEEK+5        SET HEAD NUMBER TOO FAR RIGHT.       H0526000

000396 D204 2023 2024 00023 00024  3623          MVC   IOBSEEK+2(5),IOBSEEK+3  SHIFT CCHHR LEFT ONE BYTE.       H0528000
                                   3624          AIF   (NOT &RPS).ENORPS2  *                                    H0529000
                                   3625 .ENORPS2 ANOP                      *                                    H0531000
                                   3626 *                                                                     * H0532000
                                   3627 *********************************************************************** H0534000
                                   3628 *                                                                     * H0536000
                                   3629 *           ISSUE EXCP FOR ALL REQUESTS HERE.                         * H0538000
                                   3630 *                                                                     * H0540000
                                   3631 *********************************************************************** H0542000

                                   3632 *                                                                     * H0544000

00039C                             3633 ESENDIT  DS    0H                                                       H0546000
00039C 9200 2028      00028        3634          MVI   BUFECBCC,0          SET COMPLETION CODE TO ZERO.         H0548000
0003A0 4110 2000      00000        3635          LA    R1,IOBFLAG1         SET IOB ADDRESS AS ARGUMENT TO EXCP. H0550000
0003A4 4830 B0CC      000CC        3636          LH    WB,$EXCPCT          ADD ONE                              H0552000
0003A8 4130 3001      00001        3637          LA    WB,1(,WB)             TO THE                             H0554000

0003AC 4030 B0CC      000CC        3638          STH   WB,$EXCPCT              $EXCP COUNTER.                   H0556000
0003B0 9823 B3B8      003B8        3639          LM    WA,WB,ESAVE         RESTORE TO ALLOW REG 13 USE          H0558000
                                   3640          EXCP  (1)                 CALL THE OS I/O SUPERVISOR.          H0560000
0003B4 0A00                        3641+         SVC   0                                 ISSUE SVC FOR EXCP     00100000
0003B6 07FE                        3642          BR    R14                 THEN RETURN.  R0, R1 ARE DESTROYED.  H0562000
                                   3643          DROP  R1,WA,WB            DISESTABLISH ADDRESSABILITY.         H0564000
0003B8                             3644 ESAVE    DS    2F                  SAVE AREA FOR REGS WA, WB            H0566000
                                   3645          AIF   (NOT &RPS).ENORPS3                                       H0566800
                                   3646 .ENORPS3 AIF   (&NUMLNES EQ 0).MNORJE                                   H0568000
                                   3647 .MNORJE  ANOP                      *                                    H0766000

NUC      HASP OVERLAY SERVICE ENTRY ROUTINES                                                                   PAGE   76



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3649 *                             ENTRY TO INDICATE OVERLAY LOADING ERROR   H0770000
                                   3650 $OERR    NULL                                                           H0772000
0003C0                             3651+$OERR    DS    0H                                                       NU006000

0003C0 5810 BC20      00C20        3652          L     R1,=A(OERRMSG)      R1 = ADDR OF OLAY ERR MSG            H0774000
                                   3653          WTO   MF=(E,(1))          DISPLAY ON CONSOLE(S)                H0775000
0003C4 0A23                        3654+         SVC   35                                ISSUE SVC              00750021
                                   3655          $WAIT OPER                PERMANENTLY $WAIT PROCESSOR          H0776000
0003C6 9680 D049      00049        3656+         OI    PCEEWF+$EWBOPER,$EWFOPER                                 WA016000
0003CA 45F0 B23C      0023C        3657+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
002058                             3658 HASPNUC2 CSECT                                                          H0776400
002058                             3659 OERRMSG  DS    0F                                                       H0776800
                                   3660  WTO 'UNREADABLE OVERLAY - REBUILD OLAYLIB AND WARM START',MF=L         H0777200
002058                             3661+         DS    0F                                                       01050021
002058 0037                        3662+         DC    AL2(55)             TEXT LENGTH                          11950021

00205A 0000                        3663+         DC    B'0000000000000000' MCS FLAGS                            12000021
00205C E4D5D9C5C1C4C1C2            3664+         DC    C'UNREADABLE OVERLAY - REBUILD OLAYLIB AND WARM START'   12100021
0003CE                             3665 HASPNUC  CSECT                                                          H0777600






                                   3667 *                             ENTRY TO $DELETE A $LOAD'ED OLAY ROUTINE  H0780000
                                   3668 *                                                                       H0782000
                                   3669 *                               LINK = RETURN ADDRESS, CONDITION CODE   H0784000
                                   3670 *                               BASE3 = OVERLAY AREA ADDRESS            H0786000
                                   3671 *                                                                       H0788000
                                   3672 $ODEL    NULL                                                           H0790000
0003CE                             3673+$ODEL    DS    0H                                                       NU006000
0003CE 50E0 D050      00050        3674          ST    LINK,PCEORTRN       SET CALLER'S RETURN REGISTER         H0792000


                                   3676 *                             ENTRY TO $RETURN TO POINT OF $LINK        H0796000
                                   3677 $ORET    NULL                                                           H0798000

0003D2                             3678+$ORET    DS    0H                                                       NU006000
                                   3679 *                                                                       H0800000
                                   3680 *                               LINK = CONDITION CODE                   H0802000

                                   3681 *                               BASE3 = OVERLAY AREA ADDRESS            H0804000
                                   3682 *                                                                       H0806000
                                   3683          $TRACE                    TRACE EACH RETURN OR DELETE          H0808000
0003D2 9004 D014      00014        3684          STM   R0,WC,PCER0         SAVE CALLER'S REGS TO BE USED        H0810000
0003D6 5840 B414      00414        3685          L     WC,$OLINKAD         WC = BASE FOR OVERLAY SERVICE        H0812000
                            02330  3686          USING OLINK,WC            ADDRABILITY TO OLAY SERVICE          H0814000
0003DA 4520 40DA      0240A        3687          BAL   WA,OEXIT            UNCHAIN PCE FROM OVERLAY CONTROL     H0816000
                                   3688 *                                   AND IF AREA IS MADE INACTIVE, START H0818000
                                   3689 *                                   HIEST WAITING I/O REQUEST, IF ANY   H0820000
0003DE 04E0                        3690          SPM   LINK                RE-SET RETURNED CONDITION CODE       H0822000
0003E0 9804 D014      00014        3691          LM    R0,WC,PCER0         RE-LOAD DESTROYED REGISTERS          H0824000
0003E4 58E0 D050      00050        3692          L     LINK,PCEORTRN       LOAD RETURN ADDRESS                  H0826000

0003E8 07FE                        3693          BR    LINK                RETURN                               H0828000

                                   3694          DROP  WC                                                       H0830000
NUC      HASP OVERLAY SERVICE ENTRY ROUTINES                                                                   PAGE   77



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3696 *                             ENTRY TO $LINK TO AN OVERLAY ROUTINE      H0834000
                                   3697 *                                                                       H0836000
                                   3698 *                               LINK = OCON OF REQUESTED ROUTINE        H0838000
                                   3699 *                               R15 = CALLER'S $RETURN ADDRESS          H0840000
                                   3700 *                                                                       H0842000
                                   3701 $OLINK   NULL                                                           H0844000
0003EA                             3702+$OLINK   DS    0H                                                       NU006000
0003EA 9004 D014      00014        3703          STM   R0,WC,PCER0         SAVE CALLER'S REGS TO BE USED        H0846000
0003EE 5840 B414      00414        3704          L     WC,$OLINKAD         WC = BASE FOR OVERLAY SERVICE        H0848000
0003F2 07F4                        3705          BR    WC                  GO TO OVERLAY SERVICE                H0850000






                                   3707 *                             ENTRY TO $XCTL TO AN OVERLAY ROUTINE      H0854000

                                   3708 *                                                                       H0856000

                                   3709 *                               LINK = OCON OF REQUESTED ROUTINE        H0858000
                                   3710 *                                                                       H0860000
                                   3711 $OXCTL   NULL                                                           H0862000
0003F4                             3712+$OXCTL   DS    0H                                                       NU006000
0003F4 9004 D014      00014        3713          STM   R0,WC,PCER0         SAVE CALLER'S REGS TO BE USED        H0864000
0003F8 5840 B414      00414        3714          L     WC,$OLINKAD         WC = BASE FOR OVERLAY SERVICE        H0866000
                            02330  3715          USING OLINK,WC            ADDRABILITY TO OLAY SERVICE          H0868000
0003FC 4520 40DA      0240A        3716          BAL   WA,OEXIT            UNCHAIN PCE FROM OVERLAY CONTROL     H0870000
                                   3717 *                                   AND IF AREA IS MADE INACTIVE, START H0872000
                                   3718 *                                   HIEST WAITING I/O REQUEST, IF ANY   H0874000
000400 47F0 4004      02334        3719          B     OXCTL               GO TO OVERLAY SERVICE                H0876000
                                   3720          DROP  WC                                                       H0878000






                                   3722 *                             ENTRY TO $LOAD AN OVERLAY ROUTINE         H0882000

                                   3723 *                                                                       H0884000
                                   3724 *                               LINK = OCON OF REQUESTED ROUTINE        H0886000
                                   3725 *                               R15 = CALLER'S NEXT INSTRUCTION ADDRESS H0888000
                                   3726 *                                                                       H0890000
                                   3727 $OLOAD   NULL                                                           H0892000
000404                             3728+$OLOAD   DS    0H                                                       NU006000
000404 9004 D014      00014        3729          STM   R0,WC,PCER0         SAVE CALLER'S REGS TO BE USED        H0894000
000408 5840 B414      00414        3730          L     WC,$OLINKAD         WC = BASE FOR OVERLAY SERVICE        H0896000
                            02330  3731          USING OLINK,WC            ADDRABILITY TO OLAY SERVICE          H0898000
00040C 47F0 4008      02338        3732          B     OLOAD               GO TO OVERLAY SERVICE                H0900000
                                   3733          DROP  WC                                                       H0902000






000410 00000000                    3735 $WAITACE DC    A(0)                PCE CHN WTNG FOR OLAY AREA           H0905000
000414 00002330                    3736 $OLINKAD DC    A(OLINK)            BASE VALUE FOR OVERLAY SERVICE       H0906000
000418 000025FC                    3737 $OROLLAD DC    A($OROLL)           BASE FOR $OROLL PROCESSOR            H0907000

00041C 00000FFF                    3738 $OMAXDSP DC    F'4095'             MAXIMUM RELATIVE LINK OR R15         H0908000
NUC      HASP JOB QUEUE MANAGER                                                                                PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3740 *                                                                       H0912000
                                   3741 *                                  ADD AN ENTRY TO THE QUEUE            H0914000
                                   3742 *                                  R1=ENTRY ,R0 = QUEUE ID              H0916000

                                   3743 QUWAIT1  NULL                                                           H0918000
000420                             3744+QUWAIT1  DS    0H                                                       NU006000
                                   3745          $WAIT CKPT                WAIT FOR CKPT I/O TO COMPLETE        H0920000
000420 9604 D048      00048        3746+         OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
000424 45F0 B23C      0023C        3747+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                                   3748 $QADD    NULL                                                           H0922000
000428                             3749+$QADD    DS    0H                                                       NU006000
000428 9110 B0C2      000C2        3750          TM    $STATUS,$CKPTACT    IS CHECKPOINT IN PROGRESS            H0924000

00042C 4710 B420      00420        3751          BO    QUWAIT1             YES, WAIT FOR COMPLETION             H0926000
                                   3752          $TRACE                                                         H0928000

000430 D602 B141 B141 00141 00141  3753          OC    QUEFREE+1(3),QUEFREE+1   IS A FREE ENTRY LEFT            H0930000
000436 4770 B440      00440        3754          BNZ   *+10                BRANCH IF YES                        H0932000
00043A 1B11                        3755          SR    R1,R1               SET CONDITION CODE                   H0934000
00043C 47F0 B656      00656        3756          B     $SYSRET              AND RETURN                          H0936000
000440 D200 B45D 1000 0045D 00000  3757          MVC   QCOMP+1(1),QUEPRIO(R1)   GET JOB PRIORITY                H0938000
000446 9023 D01C      0001C        3758          STM   WA,WB,PCEWA         PRESERVE WORK REGS                   H0940000
00044A 4120 B140      00140        3759          LA    WA,QUEENT-QUECHAIN  ACTIVE CHAIN                         H0942000
                                   3760 QNEXT1   NULL                                                           H0944000

00044E                             3761+QNEXT1   DS    0H                                                       NU006000
00044E 5832 0004      00004        3762          L     WB,QUECHAIN(WA)     GET NEXT ELEMENT                     H0946000
000452 4133 0000      00000        3763          LA    WB,0(WB)            ZERO HIGH ORDER BYTE OF WB           H0948000
000456 1233                        3764          LTR   WB,WB               IS THIS END OF CHAIN                 H0950000
000458 4780 B46A      0046A        3765          BZ    QINSERT             BRANCH IF YES TO ADD                 H0952000

00045C 9500 3000      00000        3766 QCOMP    CLI   QUEPRIO(WB),*-*     NO... IS CURRENT PRIO HI             H0954000
000460 4740 B46A      0046A        3767          BL    QINSERT             BRA IF NOT TO ADD                    H0956000
000464 1823                        3768          LR    WA,WB               TO NEXT IN CHAIN                     H0958000

000466 47F0 B44E      0044E        3769          B     QNEXT1              GO LOOK                              H0960000
                            0046A  3770 QINSERT  EQU   *                                                        H0962000
00046A D202 2005 B141 00005 00141  3771          MVC   QUECHAIN+1(3,WA),QUEFREE+1 INSERT FREE ELEMENT           H0964000
000470 5822 0004      00004        3772          L     WA,QUECHAIN(WA)     FORWARD FREE CHAIN                   H0966000
000474 D202 B141 2005 00141 00005  3773          MVC   QUEFREE+1(3),QUECHAIN+1(WA) UPDATE FREE CHAIN            H0968000
                                   3774          MVC   0(&QENTSIZ,WA),0(R1)     INITIALIZE QUEUE ELEMENT        H0970000
00047A D20F 2000 1000 00000 00000  3775+         MVC   0(16,WA),0(R1)           INITIALIZE QUEUE ELEMENT        H0970000

000480 5032 0004      00004        3776          ST    WB,QUECHAIN(WA)     CHAIN TO NEXT ENTRY                  H0972000
000484 D200 2004 1004 00004 00004  3777          MVC   QUECHAIN(1,WA),QUECHAIN(R1)  RESET HIGH-ORDER BYTE       H0974000
00048A 4202 0001      00001        3778          STC   R0,QUETYPE(WA)            INSERT QUE TYPE                H0976000
00048E 1812                        3779          LR    R1,WA               SAVE QUEUE ENTRY                     H0978000
                                   3780         $POST  $HASPECF,JOB        INDICATE JOB AVAILABLE               H0980000

000490 94EF B0C4      000C4        3781+         NI    $HASPECF,255-$EWFJOB                                     PO008000
000494 5820 BC24      00C24        3782          L     WA,=A($CKPTPCE)     PUT CHECKPOINT'S PCE ADDR IN WA      H0982000
                                   3783          $POST PCEEWF+$EWBWORK-PCEDSECT(WA),WORK  GIVE CKPT CONTROL     H0984000
000498 94DF 2049      00049        3784+         NI    PCEEWF+$EWBWORK-PCEDSECT(WA),255-$EWFWORK                PO008000

00049C 947F B0C4      000C4        3785+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
0004A0 47F0 B636      00636        3786          B     QJITLOC             GO LOCATE JIT AND RETURN             H0986000
                                   3787 *                                                                       H0988000
                                   3788 *                             GET A QUEUE ENTRY                         H0990000
                                   3789 *                                                                       H0992000
                                   3790 *                                ADDITIONAL REQUIREMENTS IN R0          H0994000

                                   3791 *                                QUEUE TYPE IN R1                       H0996000
                                   3792 *                                ENTRY OR 0 RETURNED IN R1              H0998000
                                   3793 *                                                                       H1000000
                                   3794 $QGET    NULL                                                           H1002000
NUC      HASP JOB QUEUE MANAGER                                                                                PAGE   79



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0004A4                             3795+$QGET    DS    0H                                                       NU006000
                                   3796          $TRACE                                                         H1004000
0004A4 9003 D014      00014        3797          STM   R0,WB,PCER0         SAVE CALLER'S REGS                   H1006000
0004A8 1B00                        3798          SR    R0,R0               INITIALIZE FOR SEARCH                H1008000

0004AA 5810 B144      00144        3799          L     R1,QUEENT         GET 1ST ENTRY                          H1010000
0004AE 9120 B0C2      000C2        3800          TM    $STATUS,$DRAINED    TEST SYSTEM STATUS                   H1012000
0004B2 4780 B4B8      004B8        3801          BZ    *+6                 BRANCH IF HASP IS NOT $DRAINED       H1014000
0004B6 1B11                        3802          SR    R1,R1               SIMULATE EMPTY QUEUE                 H1016000
0004B8 1211                        3803 QNEXT    LTR   R1,R1             IS ENTRY ZERO                          H1018000

0004BA 4780 B4DA      004DA        3804          BZ    QGETRET             YES. RETURN... NO JOB                H1020000
0004BE 4520 B5DC      005DC        3805          BAL   WA,QTEST            TEST QUEUE ENTRY PARAMETERS          H1022000
0004C2 4780 B4D2      004D2        3806          BE    QFOUND              BRANCH IF MATCHING ELEMENT           H1024000
0004C6 5810 1004      00004        3807          L     R1,QUECHAIN(,R1)    GET NEXT ENTRY                       H1026000
0004CA 4110 1000      00000        3808          LA    R1,0(,R1)           CLEAR HIGH-ORDER BYTE                H1028000

0004CE 47F0 B4B8      004B8        3809          B     QNEXT             GO TEST IT                             H1030000
                                   3810 QFOUND   NULL                    TYPE REQUESTED FOUND                   H1032000
0004D2                             3811+QFOUND   DS    0H                                                       NU006000
0004D2 9680 1001      00001        3812          OI    QUETYPE(R1),QENTBY SHOW ENTRY TAKEN (SET CC)             H1034000
0004D6 47F0 B636      00636        3813          B     QJITLOC             GO LOCATE JIT AND RETURN             H1036000

0004DA 5820 D01C      0001C        3814 QGETRET  L     WA,PCEWA            RESTORE REGISTER                     H1038000
0004DE 07FE                        3815          BR    LINK              RETURN                                 H1040000
                                   3816 *                                                                       H1042000
                                   3817 *                             TO RETURN A GOTTEN ENTRY                  H1044000
                                   3818 *                                                                       H1046000

                                   3819 *                               R1= LOC OF ENTRY                        H1048000
                                   3820 *                               R0= NEW QUEUE ID                        H1050000
                                   3821 *                                                                       H1052000
                                   3822 QUWAIT3  NULL                                                           H1054000
0004E0                             3823+QUWAIT3  DS    0H                                                       NU006000

                                   3824          $WAIT CKPT                WAIT FOR CKPT I/O TO COMPLETE        H1056000
0004E0 9604 D048      00048        3825+         OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
0004E4 45F0 B23C      0023C        3826+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                                   3827 $QPUT    NULL                      *                                    H1058000
0004E8                             3828+$QPUT    DS    0H                                                       NU006000
0004E8 9110 B0C2      000C2        3829          TM    $STATUS,$CKPTACT    IS CHECKPOINT IN PROGRESS            H1060000

0004EC 4710 B4E0      004E0        3830          BO    QUWAIT3             YES, WAIT FOR COMPLETION             H1062000
0004F0 9023 D01C      0001C        3831          STM   WA,WB,PCEWA         SAVE WORK REGS                       H1064000
0004F4 4821 0002      00002        3832          LH    WA,QUEJOBNO(R1)     GET JOB NUMBER                       H1066000
0004F8 5830 B144      00144        3833          L     WB,QUEENT           GET 1ST ACTIVE ENTRY                 H1068000

                                   3834          $TRACE                                                         H1070000
0004FC 1233                        3835 QNEXT2   LTR   WB,WB               IS THIS END OF CHAIN                 H1072000
0004FE 4780 B52E      0052E        3836          BC    8,QBACK1            YES... QUIT                          H1074000
000502 4923 0002      00002        3837          CH    WA,QUEJOBNO(WB)     IS THIS THE JOB                      H1076000
000506 4780 B516      00516        3838          BE    QFOUND1             BRA IF YES                           H1078000

00050A 5833 0004      00004        3839          L     WB,QUECHAIN(WB)     NOPE... GET NEXT                     H1080000
00050E 4133 0000      00000        3840          LA    WB,0(WB)            ZERO HIGH ORDER BYTE OF WB           H1082000
000512 47F0 B4FC      004FC        3841          B     QNEXT2              AND CHECK HIM                        H1084000
                                   3842 QFOUND1 $POST  $HASPECF,JOB        INDICATE JOB AVAILABLE               H1086000
000516 94EF B0C4      000C4        3843+QFOUND1  NI    $HASPECF,255-$EWFJOB                                     PO008000
00051A 5820 BC24      00C24        3844          L     WA,=A($CKPTPCE)     PUT CHECKPOINT'S PCE ADDR IN WA      H1088000
                                   3845          $POST PCEEWF+$EWBWORK-PCEDSECT(WA),WORK  GIVE CKPT CONTROL     H1090000

00051E 94DF 2049      00049        3846+         NI    PCEEWF+$EWBWORK-PCEDSECT(WA),255-$EWFWORK                PO008000
000522 947F B0C4      000C4        3847+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
000526 94EF 3004      00004        3848          NI    QUEFLAGS(WB),255-QUEPURGE RESET PURGE FLAG               H1092000

NUC      HASP JOB QUEUE MANAGER                                                                                PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00052A 4200 3001      00001        3850 QSKIP3   STC   R0,QUETYPE(,WB)     SET NEW QUEUE TYPE                   H1118000
00052E 1813                        3851 QBACK1   LR    R1,WB               QUEUE ENTRY (OR 0) TO R1             H1120000
000530 47F0 B636      00636        3852          B     QJITLOC                                                  H1122000

                                   3853 *                                                                       H1124000
                                   3854 *                             TO REMOVE A JOB FROM THE QUEUE            H1126000
                                   3855 *                                                                       H1128000
                                   3856 *                                 R1= JOB ENTRY ADDRESS                 H1130000
                                   3857 *                                                                       H1132000
                                   3858 QUWAIT2  NULL                                                           H1134000
000534                             3859+QUWAIT2  DS    0H                                                       NU006000
                                   3860          $WAIT CKPT                WAIT FOR CKPT I/O TO COMPLETE        H1136000

000534 9604 D048      00048        3861+         OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
000538 45F0 B23C      0023C        3862+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

                                   3863 $QREM    NULL                      *                                    H1138000
00053C                             3864+$QREM    DS    0H                                                       NU006000
00053C 9110 B0C2      000C2        3865          TM    $STATUS,$CKPTACT    IS CHECKPOINT IN PROGRESS            H1140000
000540 4710 B534      00534        3866          BO    QUWAIT2             YES, WAIT FOR COMPLETION             H1142000
000544 9023 D01C      0001C        3867          STM   WA,WB,PCEWA         SAVE WORK REGS                       H1144000

000548 4811 0002      00002        3868          LH    R1,QUEJOBNO(R1)     JOB NUMBER                           H1146000
00054C 4120 B140      00140        3869          LA    WA,QUEENT-QUECHAIN  1ST ENTRY                            H1148000
                                   3870          $TRACE                                                         H1150000
                                   3871 QNEXT3   NULL                      *                                    H1152000
000550                             3872+QNEXT3   DS    0H                                                       NU006000
000550 5832 0004      00004        3873          L     WB,QUECHAIN(WA)     GET ENTRY                            H1154000
000554 4133 0000      00000        3874          LA    WB,0(WB)            ZERO HIGH ORDER BYTE OF WB           H1156000
000558 1233                        3875          LTR   WB,WB               IS IT LAST                           H1158000
00055A 4780 B596      00596        3876          BC    8,QBACK2            YES... RETURN                        H1160000

00055E 4913 0002      00002        3877          CH    R1,QUEJOBNO(WB)     IS THIS THE JOB                      H1162000

000562 4780 B56C      0056C        3878          BE    QFOUND2             BRA IF YES                           H1164000
000566 1823                        3879          LR    WA,WB               RESET                                H1166000
000568 47F0 B550      00550        3880          B     QNEXT3              AND LOOK AGAIN                       H1168000
                                   3881 QFOUND2  NULL                      *                                    H1170000
00056C                             3882+QFOUND2  DS    0H                                                       NU006000

00056C D202 2005 3005 00005 00005  3883          MVC   QUECHAIN+1(3,WA),QUECHAIN+1(WB) RE-CONNECT CHAIN         H1172000
000572 D203 3004 B140 00004 00140  3884          MVC   QUECHAIN(4,WB),QUEFREE   ADD TO FREE CHAIN               H1174000
000578 5030 B140      00140        3885          ST    WB,QUEFREE          RESET POINTER                        H1176000
00057C D603 3004 3004 00004 00004  3886          OC    QUECHAIN(4,WB),QUECHAIN(WB)   WAS QUEUE EMPTY            H1176400
000582 4770 B58A      0058A        3887          BNZ   QFOUND3             BRANCH IF NOT                        H1176800
                                   3888          $POST $HASPECF,JOB        INDICATE AVAILABLE JQE               H1177200
000586 94EF B0C4      000C4        3889+         NI    $HASPECF,255-$EWFJOB                                     PO008000
                                   3890 QFOUND3  NULL                      *                                    H1177600
00058A                             3891+QFOUND3  DS    0H                                                       NU006000
                                   3892 *                                  NOW POST CHECKPOINT                  H1178000

00058A 5820 BC24      00C24        3893          L     WA,=A($CKPTPCE)     PUT CHECKPOINT'S PCE ADDR IN WA      H1180000

                                   3894          $POST PCEEWF+$EWBWORK-PCEDSECT(WA),WORK  GIVE CKPT CONTROL     H1182000
00058E 94DF 2049      00049        3895+         NI    PCEEWF+$EWBWORK-PCEDSECT(WA),255-$EWFWORK                PO008000
000592 947F B0C4      000C4        3896+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
000596 1813                        3897 QBACK2   LR    R1,WB               QUEUE ADDR(OR 0) TO R1               H1184000

000598 47F0 B636      00636        3898          B     QJITLOC             GO LOCATE JIT AND RETURN             H1186000
                                   3899 *                                                                       H1188000
                                   3900 *                             TO FIND THE SIZE OF A QUEUE               H1190000
                                   3901 *                                                                       H1192000
                                   3902 *                                 R1 = QUEUE ID                         H1194000
                                   3903 *                                 R0 = ADDITIONAL REQUIREMENTS          H1196000
                                   3904 $QSIZ    NULL                      *                                    H1198000
NUC      HASP JOB QUEUE MANAGER                                                                                PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00059C                             3905+$QSIZ    DS    0H                                                       NU006000
00059C 9003 D014      00014        3906          STM   R0,WB,PCER0         SAVE REGISTERS                       H1200000

0005A0 1B33                        3907          SR    WB,WB               INITIALIZE COUNT                     H1202000
0005A2 5810 B144      00144        3908          L     R1,QUEENT           GET FIRST ENTRY                      H1204000
0005A6 950A D04B      0004B        3909          CLI   PCEID+1,PCECONID    TEST PROCESSOR TYPE                  H1206000
0005AA 4780 B5B6      005B6        3910          BE    QNEXT4              BRANCH IF COMMAND PROCESSOR          H1208000

0005AE 9120 B0C2      000C2        3911          TM    $STATUS,$DRAINED    TEST SYSTEM STATUS                   H1210000
0005B2 4710 B5D4      005D4        3912          BO    QBACK3              BRANCH IF HASP IS $DRAINED           H1212000
0005B6 1211                        3913 QNEXT4   LTR   R1,R1               IS THIS END OF CHAIN                 H1214000
0005B8 4780 B5D4      005D4        3914          BZ    QBACK3              YES RETURN                           H1216000
0005BC 4520 B5DC      005DC        3915          BAL   WA,QTEST            TEST QUEUE ENTRY PARAMETERS          H1218000
0005C0 4770 B5C8      005C8        3916          BNE   QSKIP1              BRANCH IF NO MATCH                   H1220000
0005C4 4130 3001      00001        3917          LA    WB,1(,WB)           MATCH, COUNT IT                      H1222000
                            005C8  3918 QSKIP1   EQU   *                                                        H1224000
0005C8 5810 1004      00004        3919          L     R1,QUECHAIN(,R1)    GET NEXT ENTRY                       H1226000
0005CC 4110 1000      00000        3920          LA    R1,0(,R1)           CLEAR HIGH-ORDER BYTE                H1228000
0005D0 47F0 B5B6      005B6        3921          B     QNEXT4              TO CHECK                             H1230000
                                   3922 QBACK3   NULL                      RETURN POINT                         H1232000

0005D4                             3923+QBACK3   DS    0H                                                       NU006000
                                   3924          $TRACE                                                         H1234000
0005D4 1213                        3925          LTR   R1,WB               SET COUNT IN R1                      H1236000

0005D6 9823 D01C      0001C        3926          LM    WA,WB,PCEWA         RESTORE REGISTERS                    H1238000
0005DA 07FE                        3927          BR    LINK                RETURN                               H1240000
                                   3928 *                                                                       H1242000
                                   3929 *                             TO TEST QUEUE ENTRY PARAMETERS            H1244000
                                   3930 *                                                                       H1246000
                                   3931 *                                 R1 = QUEUE ENTRY                      H1248000
                                   3932 *                                                                       H1250000
                                   3933 QTEST    NULL                      *                                    H1252000
0005DC                             3934+QTEST    DS    0H                                                       NU006000
0005DC D500 1001 D01B 00001 0001B  3935          CLC   QUETYPE(1,R1),PCER1+3    COMPARE LOGICAL QUEUE TYPE      H1254000
0005E2 0772                        3936          BCR   NE,WA               RETURN IF NOT EQUAL                  H1256000
0005E4 9108 D01A      0001A        3937          TM    PCER1+2,8           TEST FOR PRINT ROUTE SPECIFIED       H1258000

0005E8 4780 B5F4      005F4        3938          BZ    QTEST0              BRANCH IF NO PRINT ROUTE             H1260000

0005EC D500 100C D014 0000C 00014  3939          CLC   QUEPRTRT(1,R1),PCER0     COMPARE PRINT ROUTE             H1262000
0005F2 0772                        3940          BCR   NE,WA               RETURN IF NOT EQUAL                  H1264000

0005F4 9104 D01A      0001A        3941 QTEST0   TM    PCER1+2,4           TEST FOR PUNCH ROUTE SPECIFIED       H1266000
0005F8 4780 B604      00604        3942          BZ    QTEST2              BRANCH IF NO PUNCH ROUTE             H1268000
0005FC D500 100D D015 0000D 00015  3943          CLC   QUEPUNRT(1,R1),PCER0+1   COMPARE PUNCH ROUTE             H1270000
000602 0772                        3944          BCR   NE,WA               RETURN IF NOT EQUAL                  H1272000
000604 91E0 1004      00004        3945 QTEST2   TM    QUEFLAGS(R1),QUEHOLDA+QUEHOLD1+QUEHOLD2 TEST HOLD STATUS H1282000
000608 0782                        3946          BCR   Z,WA                RETURN IF JOB IS NOT BEING HELD      H1284000
00060A 1211                        3947 QTEST3   LTR   R1,R1               SET CONDITION CODE                   H1304000
00060C 07F2                        3948          BR    WA                   AND RETURN                          H1306000
                                   3949 *                                                                       H1308000
                                   3950 *                             TO LOCATE A JOB QUEUE ELEMENT             H1310000
                                   3951 *                                                                       H1312000
                                   3952 *                                 R1 = JOB NO. UPON ENTRY               H1314000

                                   3953 *                                 R1 = ELEMENT ADDR OR ZERO ON RETURN   H1316000
                                   3954 *                                                                       H1318000

                                   3955 $QLOC    NULL                                                           H1320000

00060E                             3956+$QLOC    DS    0H                                                       NU006000
                                   3957          $TRACE                                                         H1322000
00060E 4010 B630      00630        3958          STH   R1,QSTORE           SAVE JOB NO. IN QSTORE               H1324000
000612 5810 B144      00144        3959          L     R1,QUEENT           GET FIRST QUEUE ENTRY IN R1          H1326000
NUC      HASP JOB QUEUE MANAGER                                                                                PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00616  3960 QLOOP    EQU   *                                                        H1328000
000616 1211                        3961          LTR   R1,R1               IS THIS THE LAST QUEUE ENTRY         H1330000
000618 078E                        3962          BCR   8,LINK              YES, RETURN TO THE CALLER (NO JOB    H1332000
                                   3963 *                                  QUEUE ELEMENT FOUND)                 H1334000
00061A D501 B630 1002 00630 00002  3964          CLC   QSTORE,QUEJOBNO(R1) IS THIS THE CORRECT JOB QUEUE ENTRY  H1336000
000620 4780 B632      00632        3965          BE    $QJITLOC            YES... GO FIND JIT AND EXIT          H1338000

000624 5811 0004      00004        3966          L     R1,QUECHAIN(R1)     NO,PUT NEXT ENTRY IN R1              H1340000
000628 4111 0000      00000        3967          LA    R1,0(R1)            ZERO HIGH ORDER BYTE OF R1           H1342000
00062C 47F0 B616      00616        3968          B     QLOOP               GO ENTER THE LOOP AGAIN              H1344000

000630                             3969 QSTORE   DS    H                                                        H1346000



                                   3971 *                                                                       H1350000
                                   3972 *                             TO LOCATE THE JOB INFO TABLE ENTRY        H1352000
                                   3973 *                             ASSOCIATED WITH A JOB QUEUE ENTRY         H1354000
                                   3974 *                                                                       H1356000
                                   3975 *                                 R1 = QUEUE ENTRY ADDRESS              H1358000
                                   3976 *                                 R0 = JOB INFO TABLE ENTRY             H1360000
                                   3977 *                                                                       H1362000
000632 9023 D01C      0001C        3978 $QJITLOC STM   WA,WB,PCEWA         SAVE ENTRY FOR JITLOC                H1364000
000636 1B00                        3979 QJITLOC  SR    R0,R0               NORMAL ENTRY POINT                   H1366000
000638 4110 1000      00000        3980          LA    R1,0(,R1)           CLEAR HIGH-ORDER BYTE                H1370000

00063C 1821                        3981          LR    WA,R1               PRESERVE R1                          H1372000
00063E 5B10 B13C      0013C        3982          S     R1,$JOBQPTR         REDUCE TO ENTRY DISPLACEMENT         H1374000
                                   3983          D     R0,=A(&QENTSIZ)     THEN TO RELATIVE POSITION            H1376000
000642 5D00 BC28      00C28        3984+         D     R0,=A(16)           THEN TO RELATIVE POSITION            H1376000

                                   3985          M     R0,=A(&JITSIZE)     THEN TO JIT ENTRY DISPLACEMENT       H1378000
000646 5C00 BC2C      00C2C        3986+         M     R0,=A(8)            THEN TO JIT ENTRY DISPLACEMENT       H1378000
00064A 5A10 B0F4      000F4        3987          A     R1,$JITABLE         AND FINALLY TO JIT ENTRY ADDRESS     H1380000
00064E 1801                        3988          LR    R0,R1               POSITION FOR RETURN                  H1382000
000650 1812                        3989          LR    R1,WA               RESTORE JOB QUEUE ELEMENT ADDR       H1384000
000652 9823 D01C      0001C        3990          LM    WA,WB,PCEWA         RESTORE ORIGINAL REGS                H1386000

                                   3991 $SYSRET  NULL                      RETURN TO POTENTIAL OVERLAY ROUTINE  H1388000
000656                             3992+$SYSRET  DS    0H                                                       NU006000
000656 55E0 B41C      0041C        3993          CL    LINK,$OMAXDSP       TEST RETURN REGISTER                 H1390000
00065A 4720 B660      00660        3994          BH    *+6                 BRANCH IF ABSOLUTE                   H1392000
00065E 1EE8                        3995          ALR   LINK,BASE3          COMPUTE ABSOLUTE RETURN POINT        H1394000
000660 1211                        3996          LTR   R1,R1               SET PROPER CONDITION CODE            H1396000
000662 07FE                        3997          BR    LINK                AND RETURN TO CALLER                 H1398000
                            00140  3998 QUEFREE  EQU   $JQFREE             POINT TO CHECKPOINT AREA             H1400000

                            00144  3999 QUEENT   EQU   $JQENT              POINT TO SAVE AREA                   H1402000
NUC      HASP BUFFER POOL MANAGER                                                                              PAGE   83



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4001 *                                                                       H1406000
                                   4002 *              GET BUFFER ROUTINES                                      H1408000
                                   4003 *                                                                       H1410000
                                   4004 *                    GOTTEN BUFFER ADDRESS 0R ZERO IS                   H1412000
                                   4005 *                    RETURNED IN R1. COND. CODE IS SET                  H1414000
                                   4006 *                    AS TO CONDITION OF R1.                             H1416000
                                   4007 *                                                                       H1418000

                            00000  4008          USING BUFDSECT,R1         ESTABLISH BUFFER ADDRESSABILITY      H1420000
                                   4009 $GETPBUF NULL                      GET RJE BUFFER                       H1422000
000664                             4010+$GETPBUF DS    0H                                                       NU006000
                                   4011          AIF   (&NUMLNES EQ 0).BB2                                      H1424000
                                   4012 .BB2     ANOP                                                           H1448000

                                   4013 *                                                                       H1450000
                                   4014 *                                                                       H1452000
                                   4015 *                                                                       H1454000

                                   4016 $GETBUF  NULL                      GET HASP BUFFER                      H1456000
000664                             4017+$GETBUF  DS    0H                                                       NU006000
                                   4018          $TRACE                                                         H1458000
000664 5810 B0E8      000E8        4019          L     R1,$BUFPOOL         CHAIN STARTER                        H1460000
000668 1211                        4020          LTR   R1,R1               ANY LEFT                             H1462000
00066A 078E                        4021          BCR   8,LINK              RETURN IF NO                         H1464000
00066C D202 B0E9 1029 000E9 00029  4022          MVC   $BUFPOOL+1(3),BUFCHAIN+1 UPDATE CHAIN                    H1466000

                                   4023          $TRACE                                                         H1468000
                                   4024          AIF   (NOT &DEBUG).BB3                                         H1470000
                                   4025 .BB3     ANOP                                                           H1476000
000672 07FE                        4026          BR    LINK                RETURN                               H1478000
NUC      HASP BUFFER POOL MANAGER                                                                              PAGE   84



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4028 *                                                                       H1482000
                                   4029 *              FREE A BUFFER ROUTINE                                    H1484000
                                   4030 *                                                                       H1486000
                                   4031 *                         BUFFER ADDRESS TO FREE IS                     H1488000
                                   4032 *                         IN R1.                                        H1490000
                                   4033 *                                                                       H1492000
                                   4034 $FREEBUF NULL                                                           H1494000
000674                             4035+$FREEBUF DS    0H                                                       NU006000
                                   4036          $TRACE                                                         H1496000
000674 4111 0000      00000        4037          LA    R1,0(R1)            NO..HIGH ORDER BYTE...               H1498000
                                   4038          AIF   (&NUMLNES EQ 0).BB5                                      H1500000

                                   4039 .BB5     AIF   (NOT &DEBUG).BB6    FREE HASP BUFFER                     H1520000
                                   4040 .BB6     ANOP                                                           H1524000
000678 D203 1028 B0E8 00028 000E8  4041          MVC   BUFCHAIN,$BUFPOOL   BACK UP CHAIN                        H1526000

00067E 5010 B0E8      000E8        4042          ST    R1,$BUFPOOL          INSERT BUFFER                       H1528000
000682 4100 1038      00038        4043          LA    R0,IOBCCW1          CHAN PROG ADDRESS                    H1530000
000686 5000 1010      00010        4044          ST    R0,IOBSTART         RESTORE ADDR                         H1532000
                                   4045 BUFPOST  NULL                      $POST $POOLECF TO                    H1534000

00068A                             4046+BUFPOST  DS    0H                                                       NU006000
                                   4047         $POST  $HASPECF,BUF        INDICATE BUFFER AVAILABLE            H1536000
00068A 94BF B0C4      000C4        4048+         NI    $HASPECF,255-$EWFBUF                                     PO008000
00068E 07FE                        4049          BR    LINK                 RETURN                              H1538000
                                   4050          AIF   (NOT &DEBUG).BNOCHEK                                     H1540000
                                   4051 .BNOCHEK ANOP                                                           H1642000

                                   4052          DROP  R1                  *                                    H1644000
NUC      HASP UNIT ALLOCATOR / DE-ALLOCATOR                                                                    PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00000  4054          USING DCTDSECT,R1                                              H1648000
                                   4055 $GETUNIT $TRACE                    GET UNIT                             H1650000

000690                             4056+$GETUNIT DS    0H                                                       NU006000
000690 4210 B699      00699        4057          STC   R1,UNICLI+1         SET UNIT TYPE                        H1652000
000694 5810 B0F0      000F0        4058          L     R1,$DCTPOOL         START WITH FIRST DCT                 H1654000
000698 9500 1012      00012        4059 UNICLI   CLI   DCTDEVTP,*-*        COMPARE DEVICE TYPE                  H1656000
00069C 4770 B6A8      006A8        4060          BNE   UNINEXT             BRANCH IF DIFFERENT                  H1658000

0006A0 91E0 1000      00000        4061          TM    DCTSTAT,DCTINUSE+DCTDRAIN+DCTHOLD  TEST STATUS BITS      H1660000
0006A4 4780 B6B8      006B8        4062          BZ    UNIFOUND            BRANCH IF AVAILABLE                  H1662000
0006A8 5810 1014      00014        4063 UNINEXT  L     R1,DCTCHAIN         GET NEXT DCT                         H1664000
0006AC 4111 0000      00000        4064          LA    R1,0(R1)            CLEAR HIGH-ORDER BYTE                H1666000
0006B0 1211                        4065          LTR   R1,R1               TEST FOR END OF CHAIN                H1668000

0006B2 4770 B698      00698        4066          BNZ   UNICLI              LOOP IF NOT END OF CHAIN             H1670000
                                   4067          $TRACE                    TRACE                                H1672000
0006B6 07FE                        4068          BR    LINK                RETURN - NO UNITS AVAILABLE          H1674000






0006B8 4300 1000      00000        4070 UNIFOUND IC    R0,DCTPCE           AVAILABLE DCT FOUND                  H1678000
0006BC 50D0 1000      00000        4071          ST    SAVE,DCTPCE         STORE PCE POINTER                    H1680000
0006C0 4200 1000      00000        4072          STC   R0,DCTPCE           RESTORE HIGH ORDER BYTE              H1682000
0006C4 9680 1000      00000        4073          OI    DCTSTAT,DCTINUSE    TURN ON USE BIT                      H1684000
                                   4074          $TRACE                    TRACE                                H1686000
0006C8 07FE                        4075          BR    LINK                RETURN                               H1688000

NUC      HASP UNIT ALLOCATOR / DE-ALLOCATOR                                                                    PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4077 UNIFREE  $WAIT BUF                 WAIT FOR BUFFERS TO BE RELEASED      H1692000
0006CA 9640 D048      00048        4078+UNIFREE  OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000

0006CE 45F0 B23C      0023C        4079+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                                   4080 $FREUNIT $TRACE                    FREE UNIT                            H1694000
0006D2                             4081+$FREUNIT DS    0H                                                       NU006000
0006D2 9500 1010      00010        4082          CLI   DCTBUFCT,0          CHECK BUFFERS ASSOCIATED WITH DCT    H1696000
0006D6 4770 B6CA      006CA        4083          BNE   UNIFREE             BRANCH IF NOT ZERO                   H1698000

0006DA D703 100C 100C 0000C 0000C  4084          XC    DCTEWF,DCTEWF       CLEAR DCT EWF FIELD                  H1700000
0006E0 947F 1000      00000        4085          NI    DCTSTAT,255-DCTINUSE TURN OFF USE BIT                    H1702000
0006E4 94E9 1008      00008        4086          NI    DCTPSTAT,255-DCTEOF-DCTPOST-DCTABORT  RESET STATUS       H1704000
0006E8 9160 1000      00000        4087          TM    DCTSTAT,DCTDRAIN+DCTHOLD TEST STATUS BITS                H1705000
0006EC 4770 B6F4      006F4        4088          BNZ   UNOAVAIL            SKIP $POST IF NOT AVAILABLE          H1705500
                                   4089         $POST  $HASPECF,UNIT       INDICATE UNIT AVAILABLE              H1706000
0006F0 94F7 B0C4      000C4        4090+         NI    $HASPECF,255-$EWFUNIT                                    PO008000

0006F4 9140 1000      00000        4091 UNOAVAIL TM    DCTSTAT,DCTDRAIN    TEST FOR $P COMMAND                  H1708000
0006F8 4780 B656      00656        4092          BZ    $SYSRET             RETURN IF UNIT NOT DRAINED           H1710000
                                   4093          AIF   (&NUMLNES EQ 0).UNORJE                                   H1712000

0006FC D207 B720 1018 00720 00018  4094 .UNORJE  MVC   UDRMSG(8),DCTDEVN   SET UP MESSAGE                       H1728000
000702 50E0 D000      00000        4095          ST    LINK,PCESAVEA       SAVE LINK REGISTER                   H1730000
                                   4096         $WTO   UDRMSG,L'UDRMSG,    ISSUE DRAINED MESSAGE               CH1732000
                                                       ROUTE=$LOG+$UR+$TP,CLASS=$TRIVIA,PRI=$ST,JOB=NO          H1734000
000706 4110 B720      00720        4097+         LA    R1,UDRMSG                                                DG012000

00070A 0700                        4098+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
00070C 5800 B714      00714        4099+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
000710 45E0 B8FA      008FA        4100+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
000714 000D1314                    4101+         DC    AL1(0,$LOG+$UR+$TP,L'UDRMSG,$TRIVIA+$ST)                 WT044000
000718 58E0 D000      00000        4102          L     LINK,PCESAVEA       RESTORE LINK REGISTER                H1736000
00071C 47F0 B656      00656        4103          B     $SYSRET             RETURN                               H1738000
                                   4104          DROP  R1                  KILL DCT ADDRESSABILITY              H1740000



000720 C4C5E540D5C1D4C5            4106 UDRMSG   DC    C'DEV NAME IS DRAINED'   DEVICE DRAINED MESSAGE          H1744000
                                   4107          AIF   (NOT &TIMER).INOTIME                                     H1746000

NUC      HASP INTERVAL TIMER MANAGER                                                                           PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4109 $STIMER  NULL                      ENQUEUE ENTRY POINT                  H1750000
000734                             4110+$STIMER  DS    0H                                                       NU006000
                                   4111          $TRACE                                                         H1752000

000734 9024 B85C      0085C        4112          STM   WA,WC,ISAVE1        SAVE BUT PRESERVE PCE S.A.           H1754000
000738 9200 1008      00008        4113          MVI   IPOST(R1),0         ZERO POST BIT                        H1756000
00073C 5831 0004      00004        4114          L     WB,ITIME(R1)        GET REQ'D TIME IN SECONDS            H1758000
000740 5C20 B854      00854        4115          M     WA,ITIMECVT         CONVERT TO TIMER UNITS               H1760000
000744 1222                        4116          LTR   WA,WA               TEST PRODUCT                         H1762000
000746 4780 B74E      0074E        4117          BZ    *+8                 BRANCH IF NOT NEGATIVE OR VERY LARGE H1764000
00074A 5D20 B858      00858        4118          D     WA,ITIMCVTH         CONVERT HUNDREDTHS TO TIMER UNITS    H1766000
00074E 5031 0004      00004        4119          ST    WB,ITIME(R1)        AND OVER STORE                       H1768000
000752 5820 B878      00878        4120          L     WA,ITCHAIN          1ST STQE POINTER                     H1772000

000756 1222                        4121          LTR   WA,WA               IS TIMER CURRENTLY ACTIVE...         H1774000

000758 4780 B7A4      007A4        4122          BZ    INACTIVE            BRANCH IF NO...                      H1776000
00075C 1841                        4123          LR    WC,R1               YES... PRESERVE REQUESTOR'S STQE     H1778000
                                   4124          TTIMER CANCEL             AND TURN IT OFF                      H1780000
00075E 4110 0001      00001        4125+         LA    1,1       CANCEL THIS TASK                         20272 36020020
000762 0A2E                        4126+         SVC   46        ISSUE TTIMER                             20272 60020020

000764 5812 0004      00004        4127          L     R1,ITIME(WA)        ACTIVE  INTERVAL                     H1784000
000768 1B10                        4128          SR    R1,R0               R1= EXPIRED TIME                     H1786000
                                   4129          $TRACE                                                         H1788000
00076A 4520 B7EA      007EA        4130          BAL   WA,IADJUST          COMPENSATE ALL STQE'S FOR ELAPSED    H1790000
00076E 4520 B82A      0082A        4131          BAL   WA,IPOSTIT          CHECK FOR SIMULTANEOUS EXPIRATION    H1792000
000772 5804 0004      00004        4132          L     R0,ITIME(WC)        REQUESTED INTERVAL                   H1794000
000776 4120 B878      00878        4133          LA    WA,ITCHAIN-ICHAIN   FAKE 1ST CHAIN                       H1796000
                                   4134 INEXT    NULL                                                           H1798000
00077A                             4135+INEXT    DS    0H                                                       NU006000
00077A 5812 0000      00000        4136          L     R1,ICHAIN(WA)       GET NEXT STQE                        H1800000

00077E 1211                        4137          LTR   R1,R1               IS THIS END                          H1802000

000780 4780 B792      00792        4138          BZ    INSERT              BRANCH IF YES TO INSERT              H1804000
000784 5501 0004      00004        4139          CL    R0,ITIME(R1)        IS REQUESTED INTERVAL LESS           H1806000
000788 4740 B792      00792        4140          BL    INSERT              THAN THIS... BRANCH IF YES           H1808000
00078C 1821                        4141          LR    WA,R1               NO... TO NEXT STQE                   H1810000

00078E 47F0 B77A      0077A        4142          B     INEXT               FOR CHECK                            H1812000
                                   4143 INSERT   NULL                      SLOT FOR STQE FOUND                  H1814000
000792                             4144+INSERT   DS    0H                                                       NU006000
000792 5042 0000      00000        4145          ST    WC,ICHAIN(WA)       INSERT INTO CHAIN                    H1816000
000796 5014 0000      00000        4146          ST    R1,ICHAIN(WC)       CONTINUE CHAIN                       H1818000
00079A 4520 B804      00804        4147          BAL   WA,ISETINT          GO START TIMER                       H1820000
                                   4148 IRETURN  NULL                      MAIN RETURN POINT                    H1822000
00079E                             4149+IRETURN  DS    0H                                                       NU006000
00079E 9824 B85C      0085C        4150          LM    WA,WC,ISAVE1                                             H1824000
0007A2 07FE                        4151          BR    LINK                                                     H1826000
                                   4152 INACTIVE NULL                      NO ACTIVE STQE                       H1828000

0007A4                             4153+INACTIVE DS    0H                                                       NU006000
0007A4 5010 B878      00878        4154          ST    R1,ITCHAIN          SET UP TIMER CHAIN                   H1832000
0007A8 5021 0000      00000        4155          ST    WA,ICHAIN(R1)       AND END IT                           H1834000
0007AC 4520 B804      00804        4156          BAL   WA,ISETINT          GO START CLOCK                       H1836000

0007B0 47F0 B79E      0079E        4157          B     IRETURN             AND EXIT                             H1838000



                                   4159 *                                                                       H1842000
                                   4160 *                        ASYNCHRONOUS TIMER EXIT ROUTINE                H1844000
                                   4161 *                                                                       H1846000
NUC      HASP INTERVAL TIMER MANAGER                                                                           PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4163 ITIMEUP  NULL                                                           H1850000
0007B4                             4164+ITIMEUP  DS    0H                                                       NU006000
                            007B4  4165          USING *,R15               SUPPLIED BY SYSTEM                   H1852000
0007B4 9023 F0B8      0086C        4166          STM   WA,WB,ISAVE+4       BE SAFE                              H1854000
0007B8 50B0 F0B4      00868        4167          ST    BASE1,ISAVE         REG 15 IS NOT SAFE                   H1856000

0007BC 58B0 F0C0      00874        4168          L     BASE1,ISTANBAS      AROUND POSSIBLE SVC'S                H1858000
                                   4169          DROP  R15                 SWITCH TO STANDARD BASE              H1860000
0007C0 5810 B878      00878        4170          L     R1,ITCHAIN          ACTIVE ENTRY ADDRESS                 H1862000

0007C4 5811 0004      00004        4171          L     R1,ITIME(R1)        INTERVAL JUST ELAPSED                H1864000
0007C8 4520 B7EA      007EA        4172          BAL   WA,IADJUST          GO REDUCE OTHER STQE'S BY THIS       H1866000
0007CC 5820 BC30      00C30        4173          L     WA,=A($TIMEPCE)     GET $TIMER PCE ADDRESS               H1868000
                                   4174          $POST PCEEWF+$EWBWORK-PCEDSECT(WA),WORK  ACTIVATE PROCESSOR    H1870000
0007D0 94DF 2049      00049        4175+         NI    PCEEWF+$EWBWORK-PCEDSECT(WA),255-$EWFWORK                PO008000
0007D4 947F B0C4      000C4        4176+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   4177          POST  $HASPECB            RESTART HASP                         H1872000
0007D8 1B00                        4178+         SR    0,0                    . SET POST CODE REG ZERO          00640021
0007DA 4110 B0D8      000D8        4179+         LA    1,$HASPECB             . LOAD ECB ADDRESS IN REG 1       02350021
0007DE 0A02                        4180+         SVC   2                      . ISSUE THE POST SVC              08250021
0007E0 9823 B86C      0086C        4181          LM    WA,WB,ISAVE+4       RESTORE                              H1874000
0007E4 58B0 B868      00868        4182          L     BASE1,ISAVE         REGISTERS                            H1876000

0007E8 07FE                        4183          BR    R14                 AND RETURN                           H1878000

                                   4184 *                                                                       H1880000
                                   4185 *                        ADJUST ALL QUEUED ENTRIES FOR ELAPSED TIME     H1882000

                                   4186 *                                                                       H1884000


                                   4188 IADJUST  NULL                      EXPIRED TIME IN R1                   H1888000
0007EA                             4189+IADJUST  DS    0H                                                       NU006000
0007EA 5830 B878      00878        4190          L     WB,ITCHAIN          1ST STQE POINTER                     H1890000
0007EE 1233                        4191 IADJ1    LTR   WB,WB               IS THERE ONE                         H1892000
0007F0 0782                        4192          BCR   8,WA                RETURN IF NO                         H1894000
0007F2 5803 0004      00004        4193          L     R0,ITIME(WB)        GET REQUESTED INTERVAL               H1896000
0007F6 1B01                        4194          SR    R0,R1               REDUCE BY TIME                       H1898000
0007F8 5003 0004      00004        4195          ST    R0,ITIME(WB)        AND RE-SET                           H1900000
0007FC 5833 0000      00000        4196          L     WB,ICHAIN(WB)       TO NEXT                              H1902000
000800 47F0 B7EE      007EE        4197          B     IADJ1               IN CHAIN                             H1904000

                                   4198 *                                                                       H1906000
                                   4199 *                        SET SYSTEM TIMER TO LOWEST REQUESTED INTERVAL  H1908000

                                   4200 *                                                                       H1910000



                                   4202 ISETINT  NULL                                                           H1914000
000804                             4203+ISETINT  DS    0H                                                       NU006000
000804 5830 B878      00878        4204          L     WB,ITCHAIN          1ST STQE                             H1916000
000808 1233                        4205          LTR   WB,WB               IF NONE EXIST                        H1918000
00080A 0782                        4206          BCR   8,WA                JUST RETURN                          H1920000
00080C 50E0 B87C      0087C        4207          ST    R14,R14TEMP         SAVE AROUND SVC                      H1922000
                                   4208 *                                                                       H1924000
                                   4209          STIMER REAL,ITIMEUP,TUINTVL=ITIME(WB)    OTHERWISE SET IT      H1926000
000810 4113 0004      00004        4210+         LA    1,ITIME(WB)                       LOAD PARAMETER REG 1   00100000
000814 4100 B7B4      007B4        4211+         LA    0,ITIMEUP                         LOAD PARAMETER REG 0   00280000
000818 41E0 0003      00003        4212+         LA    14,3(0,0)                         LOAD FLAG BYTE         00600000

00081C 89E0 0018      00018        4213+         SLL   14,24(0)                          SHIFT TO HI-ORDER BYTE 00620000
000820 160E                        4214+         OR    0,14                              AND PACK WITHEXIT ADDR 00640000
000822 0A2F                        4215+         SVC   47                                ISSUE STIMER SVC       00660000

NUC      HASP INTERVAL TIMER MANAGER                                                                           PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000824 58E0 B87C      0087C        4216          L     R14,R14TEMP         RESTORE R14                          H1928000
000828 07F2                        4217          BR    WA                  AND RETURN                           H1930000
                                   4218 *                                                                       H1932000
                                   4219 *                        POST ALL SPOOL PROCESSORS WHOSE TIME ELAPSED.  H1934000
                                   4220 *                                                                       H1936000
                                   4221 IPOSTIT  NULL                                                           H1938000
00082A                             4222+IPOSTIT  DS    0H                                                       NU006000
00082A 5830 B878      00878        4223          L     WB,ITCHAIN          GET 1ST STQE                         H1940000
00082E 1233                        4224          LTR   WB,WB               IF NONE                              H1942000
000830 0782                        4225          BCR   8,WA                RETURN                               H1944000

000832 5813 0004      00004        4226          L     R1,ITIME(WB)        TIME REMAINING IN INTERVAL           H1946000
000836 1211                        4227          LTR   R1,R1               HAS IT EXPIRED...                    H1948000
000838 0772                        4228          BCR   7,WA                RETURN IF NO...                      H1950000
00083A 5813 0008      00008        4229          L     R1,IPOST(WB)        YES... GET ECF ADDRESS               H1952000

                                   4230          $POST 0(R1),WORK          AND POST IT                          H1954000
00083E 94DF 1000      00000        4231+         NI    0(R1),255-$EWFWORK                                       PO008000
000842 947F B0C4      000C4        4232+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
000846 9280 3008      00008        4233          MVI   IPOST(WB),X'80'     SHOW TIMER POST                      H1956000
00084A D202 B879 3001 00879 00001  4234          MVC   ITCHAIN+1(3),ICHAIN+1(WB)     UPDATE STQE CHAIN          H1958000
000850 47F0 B82A      0082A        4235          B     IPOSTIT             AND CHECK NEXT...                    H1960000

                                   4236 *                                                                       H1962000
                                   4237 *                                                                       H1964000
                                   4238 *                        $STIMER STORAGE AND CONSTANTS                  H1966000
                                   4239 *                                                                       H1968000



000854 0000963D                    4241 ITIMECVT DC    A(1000000/26)       SECONDS TO TIMER UNITS FACTOR        H1972000
000858 FFFFFF9C                    4242 ITIMCVTH DC    F'-100'             HUNDREDTHS TO TIMER UNITS            H1974000
00085C                             4243 ISAVE1   DS    3F                  QUEUEING ROUTINE SAVE AREA           H1976000

000868                             4244 ISAVE    DS    3F                  ASYNCHRONOUS SAVE AREA               H1978000
000874 00000000                    4245 ISTANBAS DC    A(HASP)             ADDRESSABILITY CONSTANT              H1980000

000878 00000000                    4246 ITCHAIN  DC    A(0)                START OF STQE CHAIN                  H1982000
00087C 00000000                    4247 R14TEMP  DC    F'0'                REGISTER 14 SAVE AREA                H1984000
NUC      HASP INTERVAL TIMER MANAGER                                                                           PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4249 *                                                                       H1988000
                                   4250 *                        RETURN TIME REMAINING AND OPTIONALLY CANCEL    H1990000
                                   4251 *                                                                       H1992000




                                   4253 $TTIMER  NULL                                                           H1996000
000880                             4254+$TTIMER  DS    0H                                                       NU006000
000880 9024 B85C      0085C        4255          STM   WA,WC,ISAVE1                                             H1998000
                                   4256          $TRACE                                                         H2000000
000884 1841                        4257          LR    WC,R1               SAVE INPUT ADDRESS                   H2004000

000886 5820 B878      00878        4258          L     WA,ITCHAIN          START OF CHAIN                       H2006000
00088A 1202                        4259          LTR   R0,WA               IS IT ZERO                           H2008000

00088C 4780 B79E      0079E        4260          BZ    IRETURN             YES... RETURN WITH NO TIME           H2010000
                                   4261          TTIMER CANCEL             TURN OFF TIMER                       H2012000
000890 4110 0001      00001        4262+         LA    1,1       CANCEL THIS TASK                         20272 36020020
000894 0A2E                        4263+         SVC   46        ISSUE TTIMER                             20272 60020020
000896 5812 0004      00004        4264          L     R1,ITIME(WA)        GET TOTAL INCREMENT                  H2016000
00089A 1B10                        4265          SR    R1,R0               SUBTRACT REMAINING = ELAPSED         H2018000
00089C 4520 B7EA      007EA        4266          BAL   WA,IADJUST          GO COMPENSATE                        H2020000
0008A0 4520 B82A      0082A        4267          BAL   WA,IPOSTIT          JUST IN CASE                         H2022000

0008A4 1214                        4268          LTR   R1,WC               WAS CANCEL REQUESTED                 H2024000
0008A6 4720 B8AC      008AC        4269          BP    *+6                 BRA IF NO                            H2026000
0008AA 1311                        4270          LCR   R1,R1               YES... STQE TO TRUE                  H2028000
0008AC 4120 B878      00878        4271          LA    WA,ITCHAIN-ICHAIN   FAKE STQE                            H2030000
0008B0 5832 0000      00000        4272 INEXT2   L     WB,ICHAIN(WA)       GET NEXT                             H2032000

0008B4 1203                        4273          LTR   R0,WB               IS THIS END                          H2034000
0008B6 4780 B8D6      008D6        4274          BZ    IRET1               YES... RESTART AND RETURN            H2036000
0008BA 1931                        4275          CR    WB,R1               NO... IS THIS REQUESTED STQE         H2038000

0008BC 4780 B8C6      008C6        4276          BE    IHERE               BRANCH IF YES                        H2040000
0008C0 1823                        4277          LR    WA,WB               UPDATE CHAIN                         H2042000
0008C2 47F0 B8B0      008B0        4278          B     INEXT2              AND KEEP LOOKING                     H2044000
                                   4279 IHERE    NULL                      STQE FOUND                           H2046000
0008C6                             4280+IHERE    DS    0H                                                       NU006000
0008C6 5803 0004      00004        4281          L     R0,ITIME(WB)        GET TIME REMAINING                   H2048000
0008CA 1244                        4282          LTR   WC,WC               WAS CANCEL REQUESTED                 H2050000

0008CC 4720 B8D6      008D6        4283          BP    IRET1               BRA IF NO                            H2052000
0008D0 D203 2000 3000 00000 00000  4284          MVC   ICHAIN(4,WA),ICHAIN(WB)  YES... REMOVE FROM CHAIN        H2054000
0008D6 1840                        4285 IRET1    LR    WC,R0               SAVE  R0                             H2056000
0008D8 4520 B804      00804        4286          BAL   WA,ISETINT          GO RESET TIMER                       H2058000
0008DC 1B22                        4287          SR    WA,WA               CLEAR FOR DIVIDE                     H2060000

0008DE 1834                        4288          LR    WB,WC               TIME IN TIMER UNITS                  H2062000
0008E0 5840 B854      00854        4289          L     WC,ITIMECVT         CONVERSION FACTOR FOR SECONDS        H2064000
0008E4 1D24                        4290          DR    WA,WC               CONVERT                              H2066000
0008E6 8840 0001      00001        4291          SRL   WC,1                HALVE                                H2068000

0008EA 1924                        4292          CR    WA,WC               CHECK FOR REMAINDER                  H2070000
0008EC 1803                        4293          LR    R0,WB               FOR USER                             H2072000
0008EE 4740 B8F6      008F6        4294          BL    *+8                 BR IF REMAINDER LESS THAN 1/2 SEC    H2074000
0008F2 4103 0001      00001        4295          LA    R0,1(WB)            OTHERWISE ROUND                      H2076000
0008F6 47F0 B79E      0079E        4296          B     IRETURN             AND EXIT                             H2078000
                                   4297 .INOTIME ANOP                                                           H2080000

NUC      HASP CONSOLE MESSAGE INTERFACE                                                                        PAGE   91


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4299 ******************************************************************      H2084000
                                   4300 *                                                                *      H2086000
                                   4301 *                                                                *      H2088000

                                   4302 *      THE FOLLOWING SUBROUTINE PROVIDES $WTO PROCESSING.  IF    *      H2090000
                                   4303 *      A BUFFER IS AVAILABLE A LINK TO THE BUFFERING ROUTINE     *      H2092000
                                   4304 *      IS MADE TO INITIALIZE A BUFFER WITH THE MESSAGE AND       *      H2094000
                                   4305 *      QUEUE IT UP.  IF NO BUFFER IS AVAILABLE THE PROCESSOR     *      H2096000
                                   4306 *      IS $WAITED UNTIL ONE IS AVAILABLE.                        *      H2098000

                                   4307 *                                                                *      H2100000
                                   4308 *                                                                *      H2102000
                                   4309 ******************************************************************      H2104000






                                   4311 $WTO     NULL                                                           H2108000
0008FA                             4312+$WTO     DS    0H                                                       NU006000
0008FA 5000 B998      00998        4313          ST    R0,WSAVLINK         STORE PARAMETERS                     H2109000
                                   4314         $DISABLE ALL               DISABLE.                             H2110000
0008FE 8000 B0C9      000C9        4315+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000

000902 D603 B108 B108 00108 00108  4316          OC    $FREEQUE,$FREEQUE   TEST FOR AVAILABLE BUFFER.           H2112000
000908 4770 B94C      0094C        4317          BNZ   WSETRTN             CONTINUE IF YES.                     H2114000
00090C 9110 B998      00998        4318          TM    WSAVLINK,WCMBFF     CHECK FOR COMMAND PROCESSOR          H2114200
000910 4780 B92E      0092E        4319          BZ    WTOWAIT             WAIT                                 H2114400
000914 58F0 BC34      00C34        4320          L     R15,=V($WCOMRES)    POINT TO RESERVED                    H2114600
000918 D203 B108 F000 00108 00000  4321          MVC   $FREEQUE,0(R15)     MOVE POINTER TO POSSIBLE CMB         H2114800

00091E D703 F000 F000 00000 00000  4322          XC    0(4,R15),0(R15)     MAKE SURE RESERVED ZERO NOW          H2115000
000924 D603 B108 B108 00108 00108  4323          OC    $FREEQUE,$FREEQUE   STILL ZERO                           H2115200
00092A 4770 B94C      0094C        4324          BNZ   WSETRTN             IF NOT QUEUE IT                      H2115400
00092E                             4325 WTOWAIT  DS    0H                                                       H2115600

                                   4326         $ENABLE ALL                ENABLE.                              H2116000
00092E 8000 B0C8      000C8        4327+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
000932 9104 B998      00998        4328          TM    WSAVLINK,WFWAIT      WAIT SPECIFICATION.                 H2120000
000936 4780 B940      00940        4329          BZ    *+10                BRANCH IF WAIT SPECIFIED.            H2122000
00093A 1BFF                        4330          SR    R15,R15             SET ZERO CONDITION CODE.             H2124000

00093C 47FE 0004      00004        4331          B     4(LINK)             EXIT.                                H2126000
                                   4332         $WAIT  CMB                 OTHERWISE, $WAIT PROCESSOR.          H2128000
000940 9602 D048      00048        4333+         OI    PCEEWF+$EWBCMB,$EWFCMB                                   WA016000
000944 45F0 B23C      0023C        4334+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000948 47F0 B8FA      008FA        4335          B     $WTO                                                     H2130000
00094C                             4336 WSETRTN  DS    0H                                                       H2130400
00094C 9180 B99B      0099B        4337          TM    WSAVLINK+3,$DOMACT  IS THIS SPECIAL ACTION               H2130800

000950 4780 B96E      0096E        4338          BZ    WSETRTNA            ENTER $WTO PROCESSING                H2131200
000954 9110 B998      00998        4339          TM    WSAVLINK,WCMBFF     IS THIS POSSIBLE OUT OF LINE         H2131400
000958 4710 B96E      0096E        4340          BO    WSETRTNA            ENTER $WTO PROCESSING                H2131500

00095C 48F0 B0CE      000CE        4341          LH    R15,$COMMCT         PICK UP COUNT                        H2131600
000960 06F0                        4342          BCTR  R15,0               REDUCE IT                            H2132000
000962 49F0 BAF4      00AF4        4343          CH    R15,HDOMMIN         CHECK FOR TOO LOW                    H2132400
000966 4740 B92E      0092E        4344          BL    WTOWAIT             WAIT FOR MORE CMBS                   H2132800
00096A 40F0 B0CE      000CE        4345          STH   R15,$COMMCT         SAVE FOR NEXT TIME                   H2133200

                                   4346 * NOTE THAT ONLY LOGICAL ROUTINGS MAY BE USED FOR $DOMACT               H2133400
                                   4347 * MESSAGES AND THERE MUST BE AT LEAST ONE CONSOLE SPECIFIED.            H2133600
00096E 50E0 B998      00998        4348 WSETRTNA ST    LINK,WSAVLINK       SAVE RETURN LINKAGE                  H2133800
000972 50C0 B99C      0099C        4349          ST    BASE2,WSAVBASE      SAVE USERS BASE2.                    H2134000
NUC      HASP CONSOLE MESSAGE INTERFACE                                                                        PAGE   92


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000976 4111 0000      00000        4350          LA    R1,0(R1)            SET OFF OC BYTE TO IDENTIFY $WTO.    H2136000
00097A 58F0 B9A0      009A0        4351          L     R15,WCONBUF         GET ENTRY TO BUFFERING ROUTINE.      H2138000

00097E 58C0 B9A4      009A4        4352          L     BASE2,WCONBASE      SET UP NEW ADDRESSABILITY.           H2140000
000982 05EF                        4353          BALR  LINK,R15            LINK TO CONSOLE BUFFERING ROUTINE.   H2142000

                                   4354 *      RETURN FROM QUEUEING.                                            H2144000
000984 58C0 B99C      0099C        4355          L     BASE2,WSAVBASE      RESTORE USERS BASE2.                 H2146000
000988 58E0 B998      00998        4356          L     LINK,WSAVLINK       RESTORE.                             H2148000
                                   4357         $ENABLE ALL                ENABLE.                              H2150000
00098C 8000 B0C8      000C8        4358+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000

000990 12EE                        4359          LTR   LINK,LINK           SET NON-ZERO CONDITION CODE.         H2152000
000992 47FE 0004      00004        4360          B     4(LINK)             EXIT.                                H2154000
000998                             4361 WSAVLINK DS    F                                                        H2156000
00099C                             4362 WSAVBASE DS    F                                                        H2158000
0009A0 00000000                    4363 WCONBUF  DC    V(HASPCBUF)         ENTRY TO CONSOLE BUFFERING ROUTINE.  H2160000
0009A4 00000000                    4364 WCONBASE DC    V(HASPCON)          BASE ADDRESS OF CONSOLE ROUTINES.    H2162000
                            00004  4365 WFWAIT   EQU   X'04'               NO FORCED $WAIT                      H2164000
NUC      HASP CONSOLE MESSAGE BUFFER RETURN SUBROUTINE                                                         PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4367 ***************************************************************         H2308000

                                   4368 *                                                             *         H2310000
                                   4369 * TITLE - $FREEMSG (FREE CONSOLE MESSAGE BUFFER - MCS OPTION) *         H2312000
                                   4370 *                                                             *         H2314000
                                   4371 * FUNCTION/OPERATION -                                        *         H2316000
                                   4372 *                                                             *         H2318000

                                   4373 *  SUBROUTINE TO RETURN A CMB TO THE FREE CHAIN AND           *         H2320000
                                   4374 *  TO $POST HASP AND/OR POST OS TASK(S) WHICH ARE WAITING     *         H2322000
                                   4375 *  FOR A CMB. GENERAL ACTIVITY IS DESCFIBED BELOW...          *         H2324000
                                   4376 *                                                             *         H2326000
                                   4377 *        (1)   BUFFER (ADDRESS IN R1) IS RETURNED TO FREE     *         H2328000
                                   4378 *              CMB CHAIN...$FREEQUE.                          *         H2330000
                                   4379 *                                                             *         H2332000
                                   4380 *        (2)   THE PQE (POST QUEUE ELEMENT) CHAIN IS TESTED   *         H2334000
                                   4381 *              FOR TASKS WHICH HAVE BEEN FORCED INTO AN OS    *         H2336000
                                   4382 *              WAIT STATE BECAUSE NO CMBS WERE AVAILABLE. IF  *         H2338000

                                   4383 *              TASKS ARE WAITING, THE HASP OS POST ROUTINE    *         H2340000

                                   4384 *              WITH THE ECB AND TCB ADDRESS IN THE PQE IS     *         H2342000
                                   4385 *              USED TO POST THE TASKS.                        *         H2344000
                                   4386 *                                                             *         H2346000
                                   4387 *        (3)   AFTER STEP 2 OR IF NO OS TASKS ARE WAITING,    *         H2348000

                                   4388 *              A TEST IS MADE TO DETERMINE THE STATUS OF THE  *         H2350000
                                   4389 *              FREE QUEUE PRIOR TO RETURNING THE CURRENT CMB. *         H2352000
                                   4390 *              IF THE FREE QUEUE WAS EMPTY, THE CONDITION     *         H2354000
                                   4391 *              CODE IS SET TO ZERO, OTHERWISE TO NON-ZERO IF  *         H2356000
                                   4392 *              THE QUEUE WAS NOT EMPTY. (THE CONDITION CODE   *         H2358000
                                   4393 *              IS USED BY THE HASP WTO SUBTASK ($HASPWTO) TO  *         H2360000
                                   4394 *              DETERMINE THE NECESSITY FOR POSTING HASP). A   *         H2362000
                                   4395 *              $POST FOR CMB AVAILABLE IS ISSUED IF THE QUEUE *         H2364000
                                   4396 *              WAS DEPLETED PRIOR TO THE CURRENT ENTRY.       *         H2366000
                                   4397 *                                                             *         H2368000
                                   4398 *        (4)   CONTROL IS RETURNED TO CALLER WITH CC SET AS   *         H2370000

                                   4399 *              NOTED. R1 IS CLOBBERED IF CC = 0.              *         H2372000
                                   4400 *                                                             *         H2374000
                                   4401 ***************************************************************         H2376000




0009A8                             4403 $FREEMSG DS    0H                                                       H2380000
0009A8 D603 BA88 BA88 00A88 00A88  4404          OC    $WRESERV,$WRESERV   IS THE RESERVE BUFFER THERE          H2380400
0009AE 4770 B9BA      009BA        4405          BNZ   *+12                IF YES, FREE NORMALLY                H2380800
0009B2 5010 BA88      00A88        4406          ST    R1,$WRESERV         PLACE THIS CMB IN RESERVE            H2381000
0009B6 1211                        4407          LTR   R1,R1               SET NON ZERO CONDITION CODE          H2381200
0009B8 07FE                        4408          BR    R14                 RETURN WITHOUT $POST, CC NOT 0       H2381600
                            00000  4409          USING CMBDSECT,R1         CONSOLE BUFFER ADDRESSABILITY        H2382000
0009BA D203 1000 B108 00000 00108  4410          MVC   CMBCHAIN,$FREEQUE   RETURN BUFFER TO                     H2384000
0009C0 5010 B108      00108        4411          ST    R1,$FREEQUE          FREE CHAIN                          H2386000
NUC      HASP CONSOLE MESSAGE BUFFER RETURN SUBROUTINE                                                         PAGE   94


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4413 ***************************************************************         H2390000

                                   4414 *              TEST FOR TASK(S) WAITING FOR HASP CMB(S)       *         H2392000
                                   4415 ***************************************************************         H2394000
0009C4 957F BA74      00A74        4416          CLI   $CMBWECB,X'7F'      CHECK FOR WAITING ECB                H2396000

0009C8 4720 B9EA      009EA        4417          BH    WFMSTORE            BRANCH IF TASK WAITING               H2398000
0009CC D603 1000 1000 00000 00000  4418 WFMWHAT  OC    CMBCHAIN,CMBCHAIN   WAS $FREEQUE DEPLETED...             H2400000
0009D2 4780 B9E2      009E2        4419          BZ    WFMWHAT1            TELL HASP IF YES                     H2400500
0009D6 5810 1000      00000        4420          L     R1,CMBCHAIN         CHECK FIRST CMB                      H2401000
0009DA D603 1000 1000 00000 00000  4421          OC    CMBCHAIN,CMBCHAIN   WAS THERE ONLY ONE CMB               H2401500
0009E0 077E                        4422          BCR   NZ,R14              RETURN WITH NON-ZERO CC IF NOT       H2402000
                                   4423 WFMWHAT1 NULL                                                           H2403000
0009E2                             4424+WFMWHAT1 DS    0H                                                       NU006000
                                   4425         $POST  $HASPECF,CMB         OTHERWISE, TELL HASP ABOUT CMB      H2404000
0009E2 94FD B0C4      000C4        4426+         NI    $HASPECF,255-$EWFCMB                                     PO008000
0009E6 1B11                        4427          SR    R1,R1                 SET CC TO ZERO FOR WTO SUBTASK     H2406000
0009E8 07FE                        4428          BR    R14                    AND RETURN TO CALLING PROGRAM..   H2408000

                                   4429          DROP  R1                                                       H2410000

                                   4430 ***************************************************************         H2412000
                                   4431 *              POST TASK(S) WAITING FOR HASP CMB(S)           *         H2414000

                                   4432 ***************************************************************         H2416000
0009EA 90AF BA5C      00A5C        4433 WFMSTORE STM   R10,R15,WFMSAVE     SAVE REGISTERS                       H2418000
0009EE 5030 BA58      00A58        4434          ST    R3,WFMSAV3          SAVE R3                              H2418400
0009F2 5830 0010      00010        4435          L     R3,CVTPTR           PICK UP CVT ADDRESS                  H2418800
                            00000  4436          USING CVTDSECT,R3                                              H2419200
0009F6 41D0 302C      0002C        4437          LA    R13,CVTHEAD-(TCBTCB-TCBDSECT) POINT TO DUMMY TCB         H2419600
                            00000  4438          USING TCBDSECT,R13                                             H2420000
0009FA 58C0 BA80      00A80        4439          L     R12,WFMTCBA         PICK UP TCB TO POST                  H2420400
                                   4440 *WFMLOOP ICM   R13,15,TCBTCB       PICK UP NEXT TCB                RFIT H2420800
0009FE 58D0 D074      00074        4441 WFMLOOP  L     R13,TCBTCB                                          RFIT H2420805
000A02 12DD                        4442          LTR   R13,R13                                             RFIT H2420810
000A04 4780 BA44      00A44        4443          BZ    WFMOUT              EXIT IF END                          H2421200

000A08 19DC                        4444          CR    R13,R12             CHECK FOR TCB OK                     H2421600
000A0A 4770 B9FE      009FE        4445          BNE   WFMLOOP             CONTINUE                             H2422000

000A0E 58D0 D000      00000        4446          L     R13,TCBRBP          PICK UP RB                           H2422400

000A12 47F0 BA1A      00A1A        4447          B     *+8                 SKIP NSI                             H2422800
                            00040  4448          USING RBDSECT,R13                                              H2423200
                                   4449 *WFMLOOPRICM   R13,7,RBLINK+1      POINT TO NEXT RB                RFIT H2423600
000A16 58D0 D01C      0005C        4450 WFMLOOPR L     R13,RBLINK                                          RFIT H2423605
000A1A 89D0 0008      00008        4451          SLL   R13,8                                               RFIT H2423610
000A1E 88D0 0008      00008        4452          SRL   R13,8                                               RFIT H2423615
000A22 19DC                        4453          CR    R13,R12             CHECK FOR BACK TO TCB                H2424000
000A24 4780 BA44      00A44        4454          BE    WFMOUT              EXIT IF TCB                          H2424400
                                   4455 *        CLM   R13,7,$CMBWECB+1    CHECK FOR MATCHING RB           RFIT H2424800
000A28 50D0 BA54      00A54        4456          ST    R13,TEMPSAVE                                        RFIT H2424805
000A2C D502 BA55 BA75 00A55 00A75  4457          CLC   TEMPSAVE+1(3),$CMBWECB+1                            RFIT H2424810
000A32 4770 BA16      00A16        4458          BNE   WFMLOOPR            CONTINUE                             H2425200

000A36 58F0 3098      00098        4459          L     R15,CVT0PT01        POINT TO POST                        H2425600
000A3A 98AD BA78      00A78        4460          LM    R10,R13,WFMPARMS    PICK UP PARMS                        H2426000
000A3E 05EF                        4461          BALR  R14,R15             ENTER POST                           H2426400

                            00A40  4462          USING *,R14                                                    H2426800
000A40 58B0 E020      00A60        4463          L     R11,WFMSAVE+4       RESTORE BASE                         H2427200
                                   4464          DROP  R14,R13,R3                                               H2427600
000A44 98AF BA5C      00A5C        4465 WFMOUT   LM    R10,R15,WFMSAVE     RESTORE REGISTERS                    H2428000
000A48 5830 BA58      00A58        4466          L     R3,WFMSAV3          RESTORE R3                           H2428400
000A4C 9200 BA74      00A74        4467          MVI   $CMBWECB,0          MAKE SURE ECB 0                      H2428800
NUC      HASP CONSOLE MESSAGE BUFFER RETURN SUBROUTINE                                                         PAGE   95


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000A50 47F0 B9CC      009CC        4468          B     WFMWHAT             TEST FOR $POST                       H2429200





000A54                             4470 TEMPSAVE DS    F                                                   RFIT H2429210






                            00000  4472          USING PCEDSECT,SAVE                                            H2429600
NUC      HASP CONSOLE MESSAGE BUFFER RETURN SUBROUTINE                                                         PAGE   96



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4474 ******************************************************************      H2430400
                                   4475 *                                                                       H2430800
                                   4476 *        FREE MESSAGE WORK AREAS                                        H2431200
                                   4477 *                                                                       H2431600
                                   4478 ******************************************************************      H2432000

000A58 00000000                    4479 WFMSAV3  DC    F'0'                                                     H2432400
000A5C 0000000000000000            4480 WFMSAVE  DC    6F'0'                                                    H2432800
                                   4481          ENTRY $CMBWECB                                                 H2433200
000A74 00000000                    4482 $CMBWECB DC    F'0'                WAIT ON CMB ECB                      H2433600
000A78 7F000000                    4483 WFMPARMS DC    X'7F000000'         COMPLETION CODE          R10         H2434000
000A7C 80000A74                    4484          DC    X'80',AL3($CMBWECB) ECB ADDRESS              R11         H2434400
000A80 00000000                    4485 WFMTCBA  DC    A(*-*)              TCB ADDRESS              R12         H2434800
000A84 00000000                    4486          DC    F'0'                TJID                     R13         H2435200

000A88 00000000                    4487 $WRESERV DC    A(*-*)                                                   H2435600

NUC      HASP CONSOLE SUPPORT $DOM ROUTINE                                                                     PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4489 ******************************************************************      H2436400
                                   4490 *                                                                       H2436800
                                   4491 * TITLE - $DOM - DELETE OPERATOR MESSAGE FOR HASP PROCESSOR             H2437200
                                   4492 *                                                                       H2437600
                                   4493 * FUNCTION/OPERATION -                                                  H2438000
                                   4494 *                                                                       H2438400
                                   4495 * SUBROUTINE TO ISSUE OS DOMS FOR OUTSTANDING $DOMACT MESSAGES          H2438800

                                   4496 * AND TO RELEASE THE ASSOCIATED CMBS.                                   H2439200
                                   4497 *                                                                       H2439600
                                   4498 * FUNCTIONS                                                             H2440000
                                   4499 *                                                                       H2440400
                                   4500 *    (1) TURN OFF THE DOM INDICATOR IN THE CMB IN CASE WTO NOT          H2440800

                                   4501 *        ISSUED OR QUEUED INTO THE $DOMQUE BEFORE $DOM ISSUED.          H2441200
                                   4502 *                                                                       H2441600

                                   4503 *    (2) ADJUST $COMMCT TO ALLOW MORE ACTION MESSAGES TO BE             H2442000
                                   4504 *        DISPLAYED.                                                     H2442400
                                   4505 *                                                                       H2442800
                                   4506 *    (3) SEARCH THE $DOMQUE FOR THE CMB AND IF FOUND REMOVE THE         H2443200
                                   4507 *        CMB, ISSUE THE DOM, AND FREE THE CMB.                          H2443600
                                   4508 *                                                                       H2444000
                                   4509 * REGISTERS USED                                                        H2444400
                                   4510 *                                                                       H2444800

                                   4511 *        R1    = ADDRESS OF THE CMB POINTED TO BY $WTO                  H2445200
                                   4512 *        R14   = RETURN                                                 H2445600
                                   4513 *        R0,R15,R2 = WORK REGISTERS ( SAVED AND RESTORED )              H2446000
                                   4514 *                                                                       H2446400
                                   4515 ******************************************************************      H2446800

                            00002  4516 $DOMMIN  EQU   2                   RESERVED CMBS FROM $DOMACT           H2447200
000A8C                             4517 $DOM     DS    0H                                                       H2447600
                                   4518          $DISABLE ALL              PREVENT INTERRUPTS                   H2448000

000A8C 8000 B0C9      000C9        4519+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
000A90 90E2 BAF8      00AF8        4520          STM   R14,R2,HDOMSAVE     SAVE SOME REGISTERS                  H2448400
                            00000  4521          USING CMBDSECT,R1                                              H2448800
000A94 947F 1007      00007        4522          NI    CMBCLASS,255-$DOMACT TURN OFF DOM ACTION                 H2449200
000A98 48F0 B0CE      000CE        4523          LH    R15,$COMMCT         PICK UP COMMCT                       H2449600
000A9C 49F0 BAF4      00AF4        4524          CH    R15,HDOMMIN         COULD ANY $DOMACT BE WAITING         H2450000
000AA0 4770 BAA8      00AA8        4525          BNE   HDOMNPST            SKIP $POST IF NO                     H2450400

                                   4526          $POST $HASPECF,CMB        POST CMB                             H2450800
000AA4 94FD B0C4      000C4        4527+         NI    $HASPECF,255-$EWFCMB                                     PO008000
000AA8 41F0 F001      00001        4528 HDOMNPST LA    R15,1(0,R15)        UP ON COUNT                          H2451200
000AAC 40F0 B0CE      000CE        4529          STH   R15,$COMMCT         SAVE FOR LATER                       H2451600
000AB0 4120 B118      00118        4530          LA    R2,$DOMQUE-(CMBCHAIN-CMBDSECT) POINT TO CMB HEAD         H2452000

000AB4 18F2                        4531 HDOMLOOP LR    R15,R2              PULL UP REAR                         H2452400
                                   4532 *        ICM   R2,7,CMBCHAIN-CMBDSECT+1(R2) POINT TO NEXT          RFIT H2452800
000AB6 5822 0000      00000        4533          L     R2,CMBCHAIN-CMBDSECT(R2)                            RFIT H2452805
000ABA 8920 0008      00008        4534          SLL   R2,8                                                RFIT H2452810

000ABE 8820 0008      00008        4535          SRL   R2,8                                                RFIT H2452815
000AC2 1222                        4536          LTR   R2,R2                                               RFIT H2452820
000AC4 4780 BAEA      00AEA        4537          BZ    HDOMRET             EXIT IF END                          H2453200
000AC8 1921                        4538          CR    R2,R1               IS THIS THE ONE DOMED                H2453600
000ACA 4770 BAB4      00AB4        4539          BNE   HDOMLOOP            LOOP                                 H2454000
000ACE D203 F000 1000 00000 00000  4540          MVC   CMBCHAIN-CMBDSECT(,R15),CMBCHAIN REMOVE CMB              H2454400

000AD4 5810 1008      00008        4541          L     R1,CMBDOMID         PICK UP DOMID                        H2454800
                                   4542          $ENABLE ALL               ALLOW INTERRUPTS                     H2455200
000AD8 8000 B0C8      000C8        4543+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
NUC      HASP CONSOLE SUPPORT $DOM ROUTINE                                                                     PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4544          DOM   MSG=(1)             DELETE MESSAGE                       H2455600
000ADC                             4545+         DS    0H                                                       08000021
000ADC 1700                        4546+         XR    0,0                                                      30000018
000ADE 0A57                        4547+         SVC   87                                                       33000018
000AE0 1812                        4548          LR    R1,R2               POINT TO CMB                         H2456000

                                   4549          $DISABLE ALL              PREVENT INTERRUPTS                   H2456400
000AE2 8000 B0C9      000C9        4550+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
000AE6 45E0 B9A8      009A8        4551          BAL   R14,$FREEMSG        FREE MESSAGE                         H2456800
                                   4552 HDOMRET  $ENABLE ALL               ALLOW INTERRUPTS                     H2457200
000AEA 8000 B0C8      000C8        4553+HDOMRET  SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000

000AEE 98E2 BAF8      00AF8        4554          LM    R14,R2,HDOMSAVE     RESTORE SOME                         H2457600
000AF2 07FE                        4555          BR    R14                 RETURN                               H2458000
                                   4556          DROP  R1                                                       H2458400
000AF4 0003                        4557 HDOMMIN  DC    Y($DOMMIN+1)        RESERVED CMBS FROM $DOMACT + 1       H2458800
000AF6 0000

000AF8 0000000000000000            4558 HDOMSAVE DC    5F'0'               REGISTER SAVE                        H2459200
                                   4559          AIF   (&NUMSMFB LT 2).HNOSMF                                   H2459600
NUC      HASP REMOVE SMF BUFFER FROM QUEUE ROUTINE                                                             PAGE   99


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4561 ******************************************************************      H2460400
                                   4562 *                                                                *      H2460800

                                   4563 * FUNCTION/OPERATION-                                            *      H2461200
                                   4564 *                                                                *      H2461600
                                   4565 *      THE FOLLOWING SUBROUTINE TAKES A HASP SMF BUFFER FROM     *      H2462000
                                   4566 *      $SMFFREE FREE BUFFER POOL AND REUTRNS.  IF THERE ARE      *      H2462400

                                   4567 *      NO BUFFERS AVAILABLE THE PROCESSOR IS $WAITED FOR SMF,    *      H2462800
                                   4568 *      WHICH IS EQUATED TO CMB, UNTIL A BUFFER IS AVAILABLE,     *      H2463200
                                   4569 *      UNLESS THE CALLING ROUTINE REQUESTS IMMEDIATE RETURN.     *      H2463600
                                   4570 *                                                                *      H2464000
                                   4571 * INPUT -                                                        *      H2464400

                                   4572 *                                                                *      H2464800
                                   4573 *      R14 - RETURN TO CALLING ROUTINE                                  H2465200
                                   4574 *      R1  - ZERO =DON'T WAIT IF NO BUFFERS AVAILABLE                   H2465600
                                   4575 *            NON-ZERO = WAIT IF NO BUFFERS AVAILABLE                    H2466000
                                   4576 *                                                                *      H2466400
                                   4577 * OUTPUT -                                                       *      H2466800
                                   4578 *      R1  - ZERO = NO BUFFER AVAILABLE                          *      H2467200

                                   4579 *            NON-ZERO = BUFFER ADDRESS                           *      H2467600
                                   4580 *                                                                *      H2468000
                                   4581 ******************************************************************      H2468400

                                   4582 $GETSMFB NULL                                                           H2468800
000B0C                             4583+$GETSMFB DS    0H                                                       NU006000
                                   4584         $DISABLE ALL               DISABLE.                             H2469200
000B0C 8000 B0C9      000C9        4585+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
000B10 D603 B11C B11C 0011C 0011C  4586          OC    $SMFFREE,$SMFFREE   TEST FOR AVAILABLE BUFFER            H2469600

000B16 4770 BB30      00B30        4587          BNZ   SGETBUF             CONTINUE IF YES                      H2470000
                                   4588         $ENABLE ALL                ENABLE                               H2470400
000B1A 8000 B0C8      000C8        4589+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
000B1E 1211                        4590          LTR   R1,R1               TEST FOR WAIT FOR BUFFER             H2470800
000B20 4780 B656      00656        4591          BZ    $SYSRET             NO WAIT                              H2471200
                                   4592         $WAIT  SMF                                                      H2471600
000B24 9602 D048      00048        4593+         OI    PCEEWF+$EWBSMF,$EWFSMF                                   WA016000
000B28 45F0 B23C      0023C        4594+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

000B2C 47F0 BB0C      00B0C        4595          B     $GETSMFB            ANY BUFFERS AVAILABLE NOW            H2472000
000B30 5810 B11C      0011C        4596 SGETBUF  L     R1,$SMFFREE         CHAIN STARTER                        H2472400

000B34 D203 B11C 1000 0011C 00000  4597          MVC   $SMFFREE,0(R1)      UPDATE CHAIN                         H2472800
                                   4598         $ENABLE ALL                                                     H2473200
000B3A 8000 B0C8      000C8        4599+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
000B3E 47F0 B656      00656        4600          B     $SYSRET                                                  H2473600
NUC      HASP PUT SMF BUFFER ON BUSY QUEUE ROUTINE                                                             PAGE  100



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4602 ******************************************************************      H2474400
                                   4603 *                                                                *      H2474800
                                   4604 * FUNCTION/OPERATION -                                           *      H2475200
                                   4605 *                                                                *      H2475600
                                   4606 *      THE FOLLOWING SUBROUTINE PUTS A HASP SMF BUFFER ON THE END*      H2476000
                                   4607 *      OF THE $SMFBUSY CHAIN AND ISSUES AN OS POST FOR HASPACCT  *      H2476400
                                   4608 *      SUBTASK TO PROCESS SMF RECORD.                            *      H2476800
                                   4609 *                                                                *      H2477200

                                   4610 * INPUT   - R1 - HASP SMF BUFFER ADDRESS                         *      H2477600

                                   4611 *          R14- RETURN ADDRESS                                   *      H2478000
                                   4612 *                                                                *      H2478400
                                   4613 * OUTPUT  - NONE                                                 *      H2478800
                                   4614 *                                                                *      H2479200
                                   4615 ******************************************************************      H2479600

000B42 1B00                        4616 $QUESMFB SR    R0,R0               ZERO FOR COMPARISONS                 H2480000
                                   4617         $DISABLE ALL               DISABLE                              H2480400
000B44 8000 B0C9      000C9        4618+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
000B48 41F0 B120      00120        4619          LA    R15,$SMFBUSY        USE BUSY QUEUE TO CHECK FIRST BUF4.0 H2480800
000B4C 47F0 BB54      00B54        4620          B     SCKEND              FIRST TIME THRU LOOP                 H2481200
000B50 58FF 0000      00000        4621 STRYNXT  L     R15,0(R15)          LOAD NEXT BUFFER ADDRESS             H2481600
000B54 590F 0000      00000        4622 SCKEND   C     R0,0(R15)           END OF CHAIN                         H2482000
000B58 4770 BB50      00B50        4623          BNE   STRYNXT             NO                                   H2482400
000B5C 501F 0000      00000        4624          ST    R1,0(R15)           YES, PUT BUFFER ON END OF CHAIN      H2482800
000B60 5001 0000      00000        4625          ST    R0,0(R1)            ZERO LINK FIELD                      H2483200

                                   4626         $ENABLE ALL                ENABLE                               H2483600

000B64 8000 B0C8      000C8        4627+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
000B68 5810 BB78      00B78        4628          L     R1,SECBADDR         POST HASPACCT                        H2484000
                                   4629          POST  (1)                      FOR WORK                        H2484400
000B6C 1B00                        4630+         SR    0,0                    . SET POST CODE REG ZERO          00640021

000B6E 4110 1000      00000        4631+         LA    1,0(0,1)               . LOAD ECB REG 1, CLEAR HI BYTE   02250021
000B72 0A02                        4632+         SVC   2                      . ISSUE THE POST SVC              08250021
000B74 07FE                        4633          BR    LINK                RETURN                               H2484800
000B76 0000
000B78 00000000                    4634 SECBADDR DC    V($ACCTECB)         HASPACCT ECB TO BE POSTED FOR WORK   H2485200
                                   4635 .HNOSMF  ANOP                                                           H2485600
NUC      HASP DIRECT ACCESS PURGE ROUTINE                                                                      PAGE  101


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4637 $PURGER  NULL                                                           H2502000
000B7C                             4638+$PURGER  DS    0H                                                       NU006000
000B7C 9023 D01C      0001C        4639          STM   WA,WB,PCEWA         SAVE REGISTERS                       H2504000

000B80 5820 B0FC      000FC        4640          L     WA,$CYLMAP          GET ADDRESS OF HASP CYLINDER MAP     H2506000
                                   4641          $TRACE                                                         H2508000
                                   4642          AIF   (NOT &DEBUG OR &CYLMAPL GT 256).VNOCHK                   H2510000
                                   4643 .VNOCHK  ANOP                                                           H2524000

                                   4644         $XXC   OC,(0,WA),(0,R1),&CYLMAPL  FREE ALL OF THIS JOB'S TRACKS H2526000
000B84 D663 2000 1000 00000 00000  4645+         OC    0+0(100,WA),0+0(R1)                                      XX050000
                                   4646         $XXC   XC,(0,R1),(0,R1),&CYLMAPL     CLEAR JCT TRACK AREA       H2528000
000B8A D763 1000 1000 00000 00000  4647+         XC    0+0(100,R1),0+0(R1)                                      XX050000
                                   4648         $POST  $HASPECF,TRAK       INDICATE TRACKS AVAILABLE            H2530000
000B90 94DF B0C4      000C4        4649+         NI    $HASPECF,255-$EWFTRAK                                    PO008000

000B94                             4651 VLOOP    DS    0H                  COUNT NR OF ALLOCATED TRACK GROUPS.  H2534000
000B94 1B00                        4652          SR    R0,R0               ZERO R0 AS AVAILABLE-GROUP COUNTER.  H2536000
000B96 5810 B0FC      000FC        4653          L     R1,$CYLMAP          POINT ONE BYTE BEFORE                H2538000
000B9A 0610                        4654          BCTR  R1,0                THE START OF THE TRACK GROUP MAP.    H2540000
                                   4655          LA    R2,&CYLMAPL         GET NUMBER OF BYTES IN THE MAP.      H2542000

000B9C 4120 0064      00064        4656+         LA    R2,100              GET NUMBER OF BYTES IN THE MAP.      H2542000
000BA0 4332 1000      00000        4657 VL1      IC    R3,0(R2,R1)         PICK UP A MAP BYTE AND               H2544000
000BA4 8930 0018      00018        4658          SLL   R3,24               LEFT-JUSTIFY IT IN R3.               H2546000

000BA8 1E33                        4659 VL2      ALR   R3,R3               SHIFT LEFT 1 AND SET CONDITION CODE. H2548000
000BAA 47C0 BBB0      00BB0        4660          BC    B'1100',*+6         DON'T CHANGE COUNTER UNLESS CARRY.   H2550000
000BAE 0600                        4661          BCTR  R0,0                IF CARRY, COUNT A TRACK GROUP.       H2552000
000BB0 4750 BBA8      00BA8        4662          BC    B'0101',VL2         IF BYTE NOT YET ZERO, LOOP.          H2554000
000BB4 4620 BBA0      00BA0        4663          BCT   R2,VL1              ELSE DO THE SAME FOR ANOTHER BYTE.   H2556000
000BB8 5A00 BBCC      00BCC        4664          A     R0,VCYLTOTL         CALCULATE AND SAVE THE NUMBER        H2558000
000BBC 5000 BBC8      00BC8        4665          ST    R0,$CYLALOC         OF ALLOCATED TRACK GROUPS.           H2560000
000BC0 9823 D01C      0001C        4666          LM    WA,WB,PCEWA         RESTORE THE WORKING REGISTERS        H2562000
000BC4 07FE                        4667          BR    LINK                AND RETURN.                          H2564000


000BC8                             4669 $ALSTATB DS    0F                  ALLOCATION STATISTICS TABLE.         H2568000
000BC8 00000000                    4670 $CYLALOC DC    F'0'                COUNT OF ALLOCATED TRACK GROUPS.     H2570000

000BCC 00000000                    4671 VCYLTOTL DC    F'0'                COUNT OF ALLOCATABLE TRACK GROUPS,   H2572000

                                   4672 *                                  SET BY DIRECT-ACCESS INITIALIZATION. H2574000
NUC      HASP DISASTROUS ERROR ROUTINE                                                                         PAGE  102



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78



                                   4675 *                                                                       H2580000
                                   4676 *              THIS ROUTINE IS ENTERED WHEN AN I/O ERROR OR             H2582000
                                   4677 *              SOME OTHER UNRECOVERABLE ERROR IS ENCOUNTERED.           H2584000
                                   4678 *                                                                       H2586000

                                   4680 $DISTERR NULL                                                           H2590000
000BD0                             4681+$DISTERR DS    0H                                                       NU006000
000BD0 50E0 D000      00000        4682          ST    LINK,PCESAVEA       SAVE THE RETURN REGISTER             H2592000
000BD4 5810 BC38      00C38        4683          L     R1,=A(DISASTER)     R1 = ADDR OF ERROR MSG               H2593000
                                   4684         $WTO   (R1),L'DISASTER,JOB=NO,  DISPLAY ERROR MESSAGE          CH2594000

                                                       ROUTE=$ERR+$LOG,CLASS=$ALWAYS,PRI=$HI                    H2596000
000BD8                             4685+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000

000BD8 5800 BBE0      00BE0        4686+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000

000BDC 45E0 B8FA      008FA        4687+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
000BE0 00032977                    4688+         DC    AL1(0,$ERR+$LOG,L'DISASTER,$ALWAYS+$HI)                  WT044000
000BE4 58E0 D000      00000        4689          L     LINK,PCESAVEA       RESTORE THE RETURN REGISTER          H2598000
000BE8 47F0 B656      00656        4690          B     $SYSRET             RETURN TO THE CALLER                 H2600000
00208F                             4691 HASPNUC2 CSECT                                                          H2601000
00208F C4C9E2C1E2E3D9D6            4692 DISASTER DC    C'DISASTROUS ERROR - COLD START SYSTEM ASAP'             H2602000
000BEC                             4693 HASPNUC  CSECT                                                          H2603000
                                   4694          AIF   (&NUMLNES NE 0 AND &NUMSMFB GE 2 AND &TIMER).HUNSUP3     H2604000
NUC      HASP UNSUPPORTED FUNCTIONS                                                                            PAGE  103


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4696          AIF   (&NUMSMFB GE 2).HUNSUP                                   H2606200
                                   4697 .HUNSUP  ANOP                                                           H2607800

                                   4698          AIF   (&NUMLNES NE 0).HUNSUP1                                  H2608000






                                   4700 *                                                                       H2612000
                                   4701 *                             REMOTE JOB ENTRY ROUTINES                 H2614000
                                   4702 *                                                                       H2616000



                                   4704 $EXTPOPE NULL                      REMOTE JOB ENTRY OPEN                H2620000
000BEC                             4705+$EXTPOPE DS    0H                                                       NU006000
                                   4706 $EXTPGET NULL                      REMOTE JOB ENTRY GET                 H2622000
000BEC                             4707+$EXTPGET DS    0H                                                       NU006000
                                   4708 $EXTPPUT NULL                      REMOTE JOB ENTRY PUT                 H2624000
000BEC                             4709+$EXTPPUT DS    0H                                                       NU006000
                                   4710 $EXTPCLO NULL                      REMOTE JOB ENTRY CLOSE               H2626000
000BEC                             4711+$EXTPCLO DS    0H                                                       NU006000

                                   4712 $RESTORE NULL                      REMOTE JOB ENTRY RESTORE             H2628000
000BEC                             4713+$RESTORE DS    0H                                                       NU006000
                                   4714 .HUNSUP1 AIF   (&TIMER).HUNSUP2                                         H2630000

                                   4715 .HUNSUP2 ANOP                                                           H2646000





000BEC 4100 BC3C      00C3C        4717 H01      LA    R0,=CL4'H01'        LOAD ERROR CODE AND FALL THROUGH     H2650000
                                   4718 *                                   TO $ERROR...                        H2652000
                                   4719 .HUNSUP3 ANOP                                                           H2654000
NUC      HASP CATASTROPHIC ERROR ROUTINE                                                                       PAGE  104


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4721 $ERROR   NULL                                                           H2658000
000BF0                             4722+$ERROR   DS    0H                                                       NU006000
000BF0 58B0 BC40      00C40        4723          L     BASE1,=A(ERROR)     BASE1 = ADDR OF CATAST ERR RTN       H2660000
000BF4 07FB                        4724          BR    BASE1               ENTER IT                             H2662000

0020B8                             4725 HASPNUC2 CSECT                                                          H2664000
                            020B8  4726          USING ERROR,BASE1                                              H2666000
0020B8 5010 B04C      02104        4727 ERROR    ST    R1,ERRORSAV         SAVE R1                              H2668000
0020BC 1810                        4728          LR    R1,R0               R1 = ADDR OF ERROR CODE              H2670000

0020BE D203 B03E 1000 020F6 00000  4729          MVC   ERRORMSG+8+42(4),0(R1)  MOVE CODE TO ERROR MSG           H2672000
                                   4730 ERRORMSG WTO   '$ HASP SYSTEM CATASTROPHIC ERROR.  CODE = CODE'         H2674000
0020C4                             4731+         CNOP  0,4                                                      08550021
0020C4 4510 B042      020FA        4732+ERRORMSG BAL   1,IHB0308A                        BRANCH AROUND MESSAGE  08600021
0020C8 0032                        4733+         DC    AL2(50)             TEXT LENGTH                          11950021
0020CA 0000                        4734+         DC    B'0000000000000000' MCS FLAGS                            12000021

0020CC 5B40C8C1E2D740E2            4735+         DC    C'$ HASP SYSTEM CATASTROPHIC ERROR.  CODE = CODE'        12100021
0020FA                             4736+IHB0308A DS    0H                                                       13900021
0020FA 0A23                        4737+         SVC   35                                                       14000021
0020FC 5810 B04C      02104        4738          L     R1,ERRORSAV         RELOAD R1                            H2676000
002100 47F0 B048      02100        4739          B     *                   LOOP INDEFINITLY                     H2678000
002104                             4740 ERRORSAV DS    F                                                        H2680000
000BF6                             4741 HASPNUC  CSECT                                                          H2682000
                            00000  4742          USING HASP,BASE1          RESTORE NORMAL BASE1 USAGE           H2684000

NUC      HASP INPUT/OUTPUT ERROR ENTRY ROUTINE                                                                 PAGE  105


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4744 $IOERROR NULL                      INPUT/OUTPUT ERROR ENTRY ROUTINE     H2722000
000BF6                             4745+$IOERROR DS    0H                                                       NU006000
000BF6 90E2 D00C      0000C        4746          STM   LINK,WA,PCELINK     SAVE REGISTERS                       H2724000
000BFA 5820 BC00      00C00        4747 ERRRETRY L     WA,ERRENTRY         LOAD ENTRY POINT FOR MAIN ROUTINE    H2726000
000BFE 07F2                        4748          BR    WA                  ENTER PROCESSING ROUTINE             H2728000



000C00 000024D2                    4750 ERRENTRY DC    A(EIOERROR)         ENTRY TO PROCESSING ROUTINE          H2732000
                            00B14  4751 ERRTRTAB EQU   *-C'0'              HEXADECIMAL TO EBCDIC                H2734000

000C04 F0F1F2F3F4F5F6F7            4752          DC    C'0123456789ABCDEF'  TRANSLATE TABLE                     H2736000
NUC      HASP CONTROL SERVICE PROGRAM LITERAL POOL                                                             PAGE  106


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                   4755 *                                                                       H2742000
                                   4756 *                        LITERAL POOL FOR CONTROL SERVICE PROGRAMS      H2744000
                                   4757 *                                                                       H2746000




000C18                             4759          DS    0D                                                       H2750000
000C18                             4760          LTORG                                                          H2752000
000C18 00000000                    4761                =V(HASPINGO)
000C1C 00000001                    4762                =A($EWFOROL)
000C20 00002058                    4763                =A(OERRMSG)
000C24 00002000                    4764                =A($CKPTPCE)

000C28 00000010                    4765                =A(16)
000C2C 00000008                    4766                =A(8)
000C30 00000E58                    4767                =A($TIMEPCE)
000C34 00000000                    4768                =V($WCOMRES)
000C38 0000208F                    4769                =A(DISASTER)

000C3C C8F0F140                    4770                =CL4'H01'
000C40 000020B8                    4771                =A(ERROR)
000C44 0014                        4772                =AL2(TEDSIZ)
NUC      HASP DIRECT ACCESS SPACE ALLOCATION ROUTINE                                                           PAGE  107



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78



                                   4775 *********************************************************************** H2758000
                                   4776 *                                                                     * H2760000
                                   4777 *                                                                     * H2762000
                                   4778 *        $TRACK ROUTINE STAGE 1 ---                                   * H2764000

                                   4779 *                                                                     * H2766000
                                   4780 *                                                                     * H2768000
                                   4781 *                                                                     * H2770000
                                   4782 *        OPERATION ---                                                * H2772000
                                   4783 *                                                                     * H2774000

                                   4784 *        1. IF THIS IS THE FIRST CALL FOR THIS JCT, WE BRANCH TO      * H2776000
                                   4785 *           STAGE 2 TO GET A TRACK GROUP.                             * H2778000
                                   4786 *        2. IF CURRENT RECORD NUMBER IS NOT THE LAST, WE ALLOCATE     * H2780000
                                   4787 *           THE NEXT RECORD AND RETURN.                               * H2782000
                                   4788 *        3. IF CURRENT TRACK NUMBER IS NOT MAXIMUM, WE ALLOCATE       * H2784000

                                   4789 *           NEXT TRACK'S RECORD 1 AND RETURN.                         * H2786000
                                   4790 *        4. END OF TRACK GROUP.  WE BRANCH TO STAGE 2 TO GET A        * H2788000
                                   4791 *           NEW TRACK GROUP.                                          * H2790000
                                   4792 *                                                                     * H2792000
                                   4793 *                                                                     * H2794000

                                   4794 *        INPUT TO STAGE 1 ---                                         * H2796000
                                   4795 *                                                                     * H2798000
                                   4796 *        JCTMTTR, WHICH CONTAINS -                                    * H2800000
                                   4797 *           EITHER MTTR, THE EXTENT NUMBER, TRACK NUMBER, AND         * H2802000
                                   4798 *           RECORD NUMBER OF THE LAST RECORD ALLOCATED TO THIS JCT,   * H2804000

                                   4799 *           OR ZEROES, FOR A NEW JCT.                                 * H2806000
                                   4800 *                                                                     * H2808000
                                   4801 *                                                                     * H2810000
                                   4802 *        OUTPUT FROM STAGE 1 ---                                      * H2812000
                                   4803 *                                                                     * H2814000
                                   4804 *        JCTMTTR CONTAINS UPDATED MTTR.                               * H2816000

                                   4805 *        R1 CONTAINS THE SAME VALUE AS DOES JCTMTTR.                  * H2818000
                                   4806 *        CONDITION CODE IS 1.                                         * H2820000
                                   4807 *                                                                     * H2822000
                                   4808 *                                                                     * H2824000

                                   4809 *********************************************************************** H2826000
                                   4810          ENTRY $TEDDATA                                                 H2828000
NUC      HASP DIRECT ACCESS SPACE ALLOCATION ROUTINE                                                           PAGE  108


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4812 *                                                                     * H2832000

                                   4813 *********************************************************************** H2834000
                                   4814 *                                                                     * H2836000
                                   4815 *        STAGE 1 --- GET A NEW RECORD OR TRACK FOR CALLER.            * H2838000
                                   4816 *                                                                     * H2840000
                                   4817 *********************************************************************** H2842000
                                   4818 *                                                                     * H2844000
000C46                             4819 $TRACK   DS    0H                                                       H2846000

                            00000  4820          USING TCTDSECT,R1         USE TRK CTRL TABLE DSECT.            H2846500
000C46 5800 1004      00004        4821          L     R0,TCTMTTR          GET CURRENT TRACK ADDRESS.           H2847000
000C4A 1200                        4822          LTR   R0,R0               IF ZERO, BRANCH FOR FIRST            H2848000

000C4C 4780 BCAC      00CAC        4823          BZ    TFIRST              ALLOCATION FOR THIS TCT.             H2850000
000C50 5E00 BC7C      00C7C        4824          AL    R0,TRECINCR         ELSE UP RECORD NR BY &RECINCR.       H2852000
000C54 5000 1004      00004        4825 TRECORD  ST    R0,TCTMTTR          SET THE NEW TRACK ADDRESS.           H2854000
000C58 D500 1007 1003 00007 00003  4826          CLC   TCTMTTR+3(1),TCTCYMXM+3  IS REC NUMBER TOO BIG...        H2856000
000C5E 47D0 BCA6      00CA6        4827          BNH   TTRACK1             RETURN IF NOT.                       H2858000

                                   4828          CLI   TCTCYMXM,&RECINCR   IS THIS TRACK DEPLETED...            H2860000
000C62 9502 1000      00000        4829+         CLI   TCTCYMXM,2          IS THIS TRACK DEPLETED...            H2860000
000C66 47B0 BC8C      00C8C        4830          BNL   TTRACK              BRANCH IF SO.                        H2862000
000C6A 4300 1000      00000        4831          IC    R0,TCTCYMXM         NO.  GET BEGINNING RECORD NR,        H2864000
000C6E 5E00 BC80      00C80        4832          AL    R0,TRECF1           UP IT BY ONE,                        H2866000
000C72 4200 1000      00000        4833          STC   R0,TCTCYMXM         AND SAVE NEW BEGINNING NR.           H2868000
000C76 47F0 BC54      00C54        4834          B     TRECORD             THEN SET AND CHECK NEW MTTR.         H2870000
                                   4835 TRECINCR DC    F'&RECINCR'         FULLWORD CONSTANT OF &RECINCR.       H2872000

000C7A 0000
000C7C 00000002                    4836+TRECINCR DC    F'2'                FULLWORD CONSTANT OF &RECINCR.       H2872000

000C80 00000001                    4837 TRECF1   DC    F'1'                FULLWORD CONSTANT OF 1.              H2874000
000C84 00000100                    4838 TTRKF256 DC    F'256'              FULLWORD CONSTANT OF 256.            H2876000
000C88 00002108                    4839 TADNEIGH DC    A(TNEIGH)           STAGE 2 BASE ADDRESS                 H2877000
000C8C 5E00 BC84      00C84        4840 TTRACK   AL    R0,TTRKF256         UP THE TRACK NUMBER BY 1.            H2878000
000C90 4300 BC86      00C86        4841          IC    R0,TTRKF256+2       SET THE NEW RECORD NR TO 1.          H2880000

000C94 5000 1004      00004        4842          ST    R0,TCTMTTR          SET THE NEW MTTR.                    H2882000
000C98 9201 1000      00000        4843          MVI   TCTCYMXM,1          SET BEGINNING REC NR TO 1.           H2884000
000C9C D502 1005 1001 00005 00001  4844          CLC   TCTMTTR+1(3),TCTCYMXM+1  ARE WE IN SAME TG...            H2886000
000CA2 4720 BCAC      00CAC        4845          BH    TFIRST              BRANCH IF NOT.                       H2887000
000CA6 1810                        4846 TTRACK1  LR    R1,R0               ELSE PUT NEW MTTR IN R1              H2888000
000CA8 47F0 B656      00656        4847          B     $SYSRET             AND RETURN TO CALLER.                H2889000



                                   4849 *              DSECT FOR TRACK CONTROL TABLE                            H2889200


000000                             4851 TCTDSECT DSECT                                                          H2889400

000000                             4852 TCTCYMXM DS    F                   MAX MTTR FOR CUR TRACK GROUP         H2889500
000004                             4853 TCTMTTR  DS    F                   LAST MTTR ALLOCATED                  H2889600
                                   4854 TCTCYMAP DS    (&NUMDA)XL((&NUMTGV+7)/8)  BIT MAP                       H2889700
000008                             4855+TCTCYMAP DS    (2)XL((400+7)/8)           BIT MAP                       H2889700
000CAC                             4856 HASPNUC  CSECT                                                          H2889800

NUC      HASP DIRECT ACCESS SPACE ALLOCATION ROUTINE                                                           PAGE  109


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4858 *********************************************************************** H2892000
                                   4859 *                                                                     * H2894000
                                   4860 *                                                                     * H2896000
                                   4861 *        $TRACK ROUTINE STAGE 2---                                    * H2898000
                                   4862 *                                                                     * H2900000
                                   4863 *                                                                     * H2902000
                                   4864 *                                                                     * H2904000
                                   4865 *        PHILOSOPHY ---                                               * H2906000

                                   4866 *                                                                     * H2908000

                                   4867 *      THIS ROUTINE ALLOCATES TO CALLER THE FIRST RECORD ON THE FIRST * H2910000
                                   4868 * TRACK OF AN UNUSED TRACK GROUP.  IN AN EFFORT TO INCREASE PERFOR-   * H2912000
                                   4869 * MANCE OF THE HASP SYSTEM, $TRACK USES TWO CONSIDERATIONS IN SPOOL   * H2914000
                                   4870 * VOLUME ALLOCATION --                                                * H2916000

                                   4871 *                                                                     * H2918000
                                   4872 *   1. ALLOCATION SHOULD BE SUCH AS TO MINIMIZE MECHANICAL MOTION.    * H2920000
                                   4873 * NOTE THAT WE ATTEMPT MINIMIZATION OF ROTATIONAL DELAY IN STAGE 1'S  * H2922000
                                   4874 * RECORD ALLOCATION BY CHOOSING RECORDS IN THE ORDER                  * H2924000
                                   4875 *               1, 3, 5, ..., 2, 4, 6, ....                           * H2926000
                                   4876 * HERE IN STAGE 2 WE TRY TO CHOOSE A NEW TRACK GROUP IN SUCH A WAY    * H2928000
                                   4877 * AS TO MINIMIZE ACCESS MECHANISM MOTION.  SINCE ROUTINE $EXCP HAS    * H2930000
                                   4878 * FOR THIS REASON SAVED FOR EACH SPOOL VOLUME ITS MOST RECENT SEEK    * H2932000
                                   4879 * ADDRESS, WE FIRST EXAMINE THE MASTER MAP BIT CORRESPONDING TO THAT  * H2934000
                                   4880 * SEEK.  IF THAT TRACK GROUP IS UNAVAILABLE WE CHECK THE ONE BEFORE   * H2936000
                                   4881 * IT, THEN THE ONE AFTER IT, AND SO ON, UNTIL EITHER WE'VE FOUND AN   * H2938000

                                   4882 * AVAILABLE TRACK GROUP OR NONE OF THE 17 TRACK GROUPS CENTERED UPON  * H2940000
                                   4883 * THE TRACK GROUP OF LAST I/O IS AVAILABLE.  IF THE LATTER IS THE     * H2942000
                                   4884 * CASE, WE SEARCH THE ENTIRE MASTER MAP, FROM FIRST TRACK GROUP TO    * H2944000
                                   4885 * LAST.                                                               * H2946000

                                   4886 *                                                                     * H2948000
                                   4887 *   2. IF THERE IS MORE THAN ONE SPOOL VOLUME, ALLOCATION SHOULD      * H2950000
                                   4888 * PROMOTE UNIFORM DISTRIBUTION OF RECORDS OVER ALL SPOOL VOLUMES.     * H2952000
                                   4889 *                                                                     * H2954000
                                   4890 *      FOR AN EXAMPLE, SUPPOSE THAT -                                 * H2956000
                                   4891 * A. THE SYSTEM HAS TWO SPOOL DISKS, WHICH WE SHALL CALL A AND B.     * H2958000
                                   4892 * B. THE LAST SEEKS ON A AND B WERE TO TRACK GROUPS 73 AND 119.       * H2960000
                                   4893 * C. STAGE 2 OF $TRACK ALLOCATED FROM DISK B WHEN CALLED LAST.        * H2962000
                                   4894 * THEN THE MASTER MAP BITS WOULD BE SEARCHED IN THE FOLLOWING ORDER - * H2964000
                                   4895 *                                                                     * H2966000
                                   4896 *      A73, B119, A72, B118, A74, B120, A71, B117,                    * H2968000
                                   4897 *                            *    *    *                              * H2970000

                                   4898 *             A66, B112, A80, B126, A65, B111, A81, AND B127,         * H2972000
                                   4899 *                                                                     * H2974000
                                   4900 * WHERE, FOR INSTANCE, B112 IS THE MASTER MAP BIT CORRESPONDING TO    * H2976000

                                   4901 * TRACK GROUP 112 ON DISK B.                                          * H2978000
                                   4902 * IF ALL OF THE ABOVE BITS WERE ZERO, WE WOULD ALLOCATE THE LOWEST-   * H2980000
                                   4903 * NUMBERED AVAILABLE TRACK GROUP ON DISK A.  IF DISK A WERE FULL, WE  * H2982000
                                   4904 * WOULD ALLOCATE THE LOWEST-NUMBERED AVAILABLE CYLINDER ON DISK B.    * H2984000
                                   4905 * IF DISK B WERE FULL, WE WOULD INFORM THE OPERATOR AND WAIT FOR      * H2986000
                                   4906 * TRACK GROUPS TO BE PURGED.                                          * H2988000
                                   4907 *                                                                     * H2990000
                                   4908 *                                                                     * H2992000
                                   4909 *                                                                     * H2994000
                                   4910 *        OPERATION ---                                                * H2996000
                                   4911 *                                                                     * H2998000
                                   4912 *      THE SEARCH OF THE MASTER MAP TO CHECK SPECIFIC BITS, AS        * H3000000

NUC      HASP DIRECT ACCESS SPACE ALLOCATION ROUTINE                                                           PAGE  110



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4913 * DESCRIBED ABOVE, CENTERS AROUND THE DOUBLE LOOP AT SYMBOL TNLOOP.   * H3002000

                                   4914 * THE INNER LOOP CHECKS THE SAME BIT (RELATIVE TO LAST SEEK) FOR EACH * H3004000
                                   4915 * OF THE SPOOL VOLUMES AND THEN (UNLESS A 1-BIT WAS FOUND) FALLS      * H3006000
                                   4916 * THROUGH.  THE OUTER LOOP SELECTS THE NEXT RELATIVE BIT TO BE TESTED * H3008000
                                   4917 * AND FALLS THROUGH WHEN ALL 17 BITS HAVE BEEN TESTED FOR EACH SPOOL  * H3010000
                                   4918 * VOLUME.                                                             * H3012000
                                   4919 *                                                                     * H3014000
                                   4920 *      ON THE FIRST PASS OF THE OUTER LOOP, CERTAIN INFORMATION MUST  * H3016000
                                   4921 * BE INITIALIZED FOR EACH SPOOL VOLUME.  THIS INFORMATION IS KEPT IN  * H3018000
                                   4922 * WORK TABLES FOR USE IN SUBSEQUENT PASSES THROUGH THE OUTER LOOP.    * H3020000
                                   4923 * THE INFORMATION IS -                                                * H3022000
                                   4924 *   1. THE ADDRESS OF THE EXTENT DATA AREA FOR THE SPOOL VOLUME.      * H3024000
                                   4925 *   2. THE OFFSET, FROM THE BEGINNING OF THIS SPOOL VOLUME'S PORTION  * H3026000

                                   4926 * OF THE MASTER MAP, OF THE BYTE WHICH CONTAINS THE BIT CORRESPONDING * H3028000
                                   4927 * TO THE TRACK GROUP OF LAST I/O.                                     * H3030000
                                   4928 *   3. THE NUMBER OF THAT BIT WITHIN THAT BYTE.  (FOR EXAMPLE, FOR    * H3032000

                                   4929 * DISK A IN THE ABOVE EXAMPLE, ITEM 2 IS H'9' AND ITEM 3 IS H'1'.     * H3034000
                                   4930 * THEN 9 * 8 + 1 = 73, THE TRACK GROUP NUMBER.)                       * H3036000
                                   4931 *   4. A DOUBLEWORD CONTAINING THE 17 BITS TO BE EXAMINED FOR THIS    * H3038000
                                   4932 * SPOOL VOLUME.  THE DOUBLEWORD IS SO ARRANGED THAT, OF ITS BITS 0-   * H3040000
                                   4933 * 63, THE 17 BITS ARE INITIALLY CENTERED UPON BIT 32.                 * H3042000
                                   4934 *                                                                     * H3044000
                                   4935 *      THE SEARCH OF THE ENTIRE MAP, WHICH PROCEEDS WHEN THE ABOVE    * H3046000
                                   4936 * SEARCH FAILS TO TURN UP AN AVAILABLE TRACK GROUP, COMMENCES WITH    * H3048000
                                   4937 * THE SAME EXTENT MAP AS DID THE ABOVE SEARCH.  (AN 'EXTENT MAP' IS   * H3050000
                                   4938 * THE MAP OF THE TRACK GROUPS OF A SINGLE SPOOL VOLUME.)  STARTING    * H3052000
                                   4939 * WITH THE FIRST BYTE, WE COMPARE EACH BYTE WITH ZERO.  IF ALL BYTES  * H3054000
                                   4940 * OF AN EXTENT MAP ARE ZERO, WE GO ON TO THE NEXT EXTENT MAP.  BUT IF * H3056000

                                   4941 * A BYTE IS NOT ZERO, WE ALLOCATE THE TRACK GROUP CORRESPONDING TO    * H3058000
                                   4942 * ITS LOWEST-NUMBERED (LEFTMOST) 1-BIT.                               * H3060000

                                   4943 *                                                                     * H3062000

                                   4944 *      IF ALL BYTES OF ALL EXTENT MAPS ARE ZERO, NO TRACK GROUPS ARE  * H3064000
                                   4945 * AVAILABLE.  THE OPERATOR IS INFORMED, AND WE WAIT FOR A TRACK GROUP * H3066000
                                   4946 * TO BECOME AVAILABLE.                                                * H3068000
                                   4947 *                                                                     * H3070000
                                   4948 *      THE FINAL ROUTINE PERFORMS THE ACTUAL ALLOCATION.  THE ARGU-   * H3072000
                                   4949 * MENTS IT RECEIVES TO DO THIS ARE THE SAME WHETHER IT IS CALLED BY   * H3074000
                                   4950 * TNEIGH OR TWHOLE.  TO PERFORM THE ALLOCATION, IT SETS OFF THE       * H3076000
                                   4951 * APPROPRIATE BIT IN THE MASTER MAP, SETS ON THE SAME BIT IN THE JOB  * H3078000
                                   4952 * MAP (WHICH STARTS AT JCTCYMAP AND IS THE SAME LENGTH AS THE         * H3080000
                                   4953 * MASTER MAP), SETS THE NEW MODULE AND TRACK NUMBER, AND RECORD NUM-  * H3082000
                                   4954 * BER 1 IN JCTMTTR IN THE FORMAT MTTR, SETS FIELD JCTCYMXM TO THE     * H3084000
                                   4955 * MAXIMUM MTTR POSSIBLE FOR THIS TRACK GROUP, SETS R1 TO JCTMTTR,     * H3086000

                                   4956 * AND RETURNS TO THE CALLER WITH CC=1.                                * H3088000
                                   4957 *                                                                     * H3090000
                                   4958 *                                                                     * H3092000

                                   4959 *********************************************************************** H3094000
NUC      HASP DIRECT ACCESS SPACE ALLOCATION ROUTINE                                                           PAGE  111


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4961 *                                                                     * H3098000
                                   4962 *********************************************************************** H3100000
                                   4963 *                                                                     * H3102000
                                   4964 *              INITIALIZATION FOR NEIGHBORHOOD INSPECTION             * H3104000
                                   4965 *                                                                     * H3106000
                                   4966 *********************************************************************** H3108000
                                   4967 *                                                                     * H3110000
000CAC 90EC D00C      0000C        4968 TFIRST   STM   R14,R12,12(R13)     SAVE ALL REGISTERS IN THE PCE.       H3112000
000CB0 18A1                        4969          LR    R10,R1              POINT R10 TO THE TCT.                H3112500

                            00000  4970          USING TCTDSECT,R10        USE TRK CTRL TABLE DSECT.            H3113000
000CB2 58C0 BC88      00C88        4971          L     BASE2,TADNEIGH      SET                                  H3113500
000CB6 07FC                        4972          BR    BASE2                ADDRESSABILITY                      H3114000
002108                             4973 HASPNUC2 CSECT                                                          H3115000

                            02108  4974          USING TNEIGH,BASE2          FOR THE                            H3116000
002108                             4975 TNEIGH   DS    0H                     FOLLOWING CODE.                   H3117000
002108 5830 C200      02308        4976          L     R3,TNEXTEXT         POINT TO INFO FOR NEXT SPOOL VOL.    H3118000
                            00000  4977          USING TEDDSECT,R3         ESTABLISH EXTENT DATA ADDRESSABILITY H3120000
00210C 4140 0010      00010        4978          LA    R4,L'TNWKAREA       SET MINOR LOOP BXLE INCREMENT.       H3122000
002110 4150 C227      0232F        4979          LA    R5,TNWKEND-1        SET MINOR LOOP BXLE COMPARAND.       H3124000

002114 4160 C208      02310        4980          LA    R6,TNWKSTRT         SET MINOR LOOP BXLE REG=WORK TAB PTR H3126000
                            02310  4981          USING TNWKSTRT,R6         SET WORKAREA ADDRESSABILITY.         H3128000
002118 1B77                        4982          SR    R7,R7               MAJOR LOOP BXLE REG = SHIFT COUNT.   H3130000
00211A 41E0 0001      00001        4983          LA    R14,1               MAJOR LOOP BXLE INCREMENT.           H3132000
00211E 928D C09C      021A4        4984          MVI   TNSXDL,X'8D'        INITIALIZE SHIFT TO 'SLDL'.          H3134000
NUC      HASP DIRECT ACCESS SPACE ALLOCATION ROUTINE                                                           PAGE  112


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4986 *                                                                     * H3138000

                                   4987 *********************************************************************** H3140000
                                   4988 *                                                                     * H3142000

                                   4989 *        INITIALIZATION FOR WORK TABLE ENTRY BEFORE EACH PASS OF      * H3144000
                                   4990 *        MINOR LOOP, ON THE FIRST PASS ONLY OF THE MAJOR LOOP         * H3146000
                                   4991 *                                                                     * H3148000
                                   4992 *********************************************************************** H3150000
                                   4993 *                                                                     * H3152000
002122 4580 C022      0212A        4994          BAL   R8,*+8              SET MINOR LOOP BOUNDARY IN R8.       H3154000
002126 45F0 C1E6      022EE        4995          BAL   R15,TNEXTONE        GET PTR TO NEXT SPOOL VOL DATA,      H3156000
                                   4996 *                                  BUT NOT THE FIRST TIME THROUGH.      H3158000

00212A 5810 3000      00000        4997          L     R1,TNCH             GET 0TTR OF LAST $EXCP THIS EXTENT.  H3160000
00212E 8810 0008      00008        4998          SRL   R1,8                MAKE IT 00TT.                        H3162000
002132 4820 300E      0000E        4999          LH    R2,TNTG             GET DIVISOR = TRACKS PER GROUP.      H3164000
002136 1B00                        5000          SR    R0,R0               ZERO HIGH-ORDER DIVIDEND REGISTER.   H3166000
002138 1D02                        5001          DR    R0,R2               GET TRACK GROUP NUMBER OF LAST $EXCP H3168000

00213A 1B00                        5002          SR    R0,R0               ZERO HIGH-ORDER DIVIDEND REGISTER.   H3170000
00213C 5D00 C08C      02194        5003          D     R0,TF8              COMPUTE BIT NR (R0), BYTE NR (R1).   H3172000
002140 4910 3012      00012        5004          CH    R1,TNMB             IF TRACK GROUP IS OFF THE MAP,       H3172500

002144 47B0 C0F8      02200        5005          BNL   TWHOLE               BYPASS DOUBLE LOOP LOGIC.           H3173000
002148 4010 6004      02314        5006          STH   R1,TNWKBYTE         SAVE OFFSET OF CUR BYTE THIS EXTENT. H3174000
00214C 4000 6006      02316        5007          STH   R0,TNWKBIT          SAVE NUMBER OF CURRENT BIT.          H3176000
002150 5030 6000      02310        5008          ST    R3,TNWKEDA          SAVE ADDRESS OF EXTENT DATA AREA.    H3178000
002154 4820 3010      00010        5009          LH    R2,TNMO             SET R2 TO POINT TO                   H3180000
002158 5A20 B0FC      000FC        5010          A     R2,$CYLMAP          FIRST BYTE OF THIS EXTENT MAP.       H3182000
                                   5011 *                                                                     * H3184000

                                   5012 *********************************************************************** H3186000
                                   5013 *                                                                     * H3188000
                                   5014 *        LOAD INTO R0 THE BYTES IN WHICH RESIDE THE 17 BITS TO BE     * H3190000
                                   5015 *        INSPECTED.  WATCH OUT FOR BEING CLOSE TO BEGINNING OR        * H3192000
                                   5016 *        END OF THE EXTENT MAP.                                       * H3194000

                                   5017 *                                                                     * H3196000
                                   5018 *********************************************************************** H3198000
                                   5019 *                                                                     * H3200000
00215C 13F0                        5020          LCR   R15,R0              SAVE NEG OF BIT NR FOR SRDL.         H3202000

00215E 1211                        5021          LTR   R1,R1               WAS THE BYTE NUMBER ZERO...          H3204000
002160 4780 C068      02170        5022          BZ    TNSET1              IF SO, DON'T USE PREVIOUS BYTE.      H3206000
002164 1B1E                        5023          SR    R1,R14              BYTE NUMBER NOT ZERO.  REDUCE IT     H3208000
002166 4301 2000      00000        5024          IC    R0,0(R1,R2)         BY 1, LOAD PREVIOUS BYTE,            H3210000
00216A 8900 0008      00008        5025          SLL   R0,8                SHIFT IT TO R0 BYTE 2, AND           H3212000
00216E 1A1E                        5026          AR    R1,R14              PUT BYTE NR BACK AS IT WAS.          H3214000

002170 4301 2000      00000        5027 TNSET1   IC    R0,0(R1,R2)         LOAD THE CURRENT BYTE AND            H3216000
002174 8900 0008      00008        5028          SLL   R0,8                SHIFT IT TO R0 BYTE 2.               H3218000
002178 1A1E                        5029          AR    R1,R14              POINT TO THE NEXT BYTE OF MAP.       H3220000
00217A 4910 3012      00012        5030          CH    R1,TNMB             IF NEXT BYTE IS NOT WITHIN           H3222000
00217E 47B0 C07E      02186        5031          BNL   TNSET2              THIS EXTENT'S MAP, DON'T LOAD IT.    H3224000

002182 4301 2000      00000        5032          IC    R0,0(R1,R2)         OTHERWISE LOAD IT.                   H3226000
002186 1B11                        5033 TNSET2   SR    R1,R1               R0 CONTAINS 2 OR 3 MAP BYTES.        H3228000
002188 8C00 F010      00010        5034          SRDL  R0,16(R15)          SHIFT SO CURRENT BIT IS R1 BIT 0.    H3230000
00218C 41F0 0010      00010        5035          LA    R15,16              SET MAJOR LOOP BXLE COMPARAND.       H3232000
002190 47F0 C0A0      021A8        5036          B     TNTEST              THEN GO JUMP INTO TESTING LOOP.      H3234000

002194 00000008                    5037 TF8      DC    F'8'                DIVISOR - CONSTANT OF 8.             H3236000
NUC      HASP DIRECT ACCESS SPACE ALLOCATION ROUTINE                                                           PAGE  113


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5039 *                                                                     * H3240000
                                   5040 *********************************************************************** H3242000

                                   5041 *                                                                     * H3244000
                                   5042 *        MAJOR LOOP STARTS                                            * H3246000
                                   5043 *                                                                     * H3248000
                                   5044 *********************************************************************** H3250000
                                   5045 *                                                                     * H3252000

                                   5046          DROP  R6                  ADDRESSABILITY DISESTABLISHMENT      H3254000
002198 4160 C208      02310        5047 TNLOOP   LA    R6,TNWKAREA         AGAIN POINT TO FIRST WORK TABLE.     H3256000
                            02310  5048          USING TNWKAREA,R6         ADDRESSABILITY ANTIDISESTABLISHMENT  H3258000
00219C 9701 C09C      021A4        5049          XI    TNSXDL,1            SLDL BECOMES SRDL, SRDL BECOMES SLDL H3260000
                                   5050 *                                                                     * H3262000
                                   5051 *********************************************************************** H3264000

                                   5052 *                                                                     * H3266000
                                   5053 *        MINOR LOOP STARTS (EXCEPT FIRST TIME)                        * H3268000
                                   5054 *                                                                     * H3270000
                                   5055 *********************************************************************** H3272000

                                   5056 *                                                                     * H3274000
0021A0 9801 6008      02318        5057 TNLUPE   LM    R0,R1,TNWKR0        LOAD UP THE BIT-CONTAINING REGS.     H3276000
0021A4 8D00 7000      00000        5058 TNSXDL   SLDL  R0,0(R7)            SHIFT SO NEXT BIT TO CK IS R1 BIT 0. H3278000
0021A8 1211                        5059 TNTEST   LTR   R1,R1               IS THE BIT ON...                     H3280000
0021AA 4740 C0BA      021C2        5060          BM    TNALLOC             BR IF SO - TRACK GROUP IS AVAILABLE. H3282000

0021AE 9001 6008      02318        5061          STM   R0,R1,TNWKR0        NO. SAVE REGS FOR NEXT TIME AROUND.  H3284000
0021B2 8764 8000      00000        5062          BXLE  R6,R4,0(R8)         PT TO NEXT WK TAB ENTRY AND LOOP.    H3286000
                                   5063 *                                                                     * H3288000
                                   5064 *********************************************************************** H3290000
                                   5065 *                                                                     * H3292000
                                   5066 *        MINOR LOOP ENDS                                              * H3294000
                                   5067 *                                                                     * H3296000

                                   5068 *********************************************************************** H3298000
                                   5069 *                                                                     * H3300000
0021B6 4180 C098      021A0        5070          LA    R8,TNLUPE           SET NEW MINOR LOOP START ADDRESS.    H3302000

0021BA 877E C090      02198        5071          BXLE  R7,R14,TNLOOP       UP SHIFT COUNTER AND LOOP.           H3304000
                                   5072 *                                                                     * H3306000
                                   5073 *********************************************************************** H3308000
                                   5074 *                                                                     * H3310000
                                   5075 *        MAJOR LOOP ENDS                                              * H3312000

                                   5076 *                                                                     * H3314000
                                   5077 *********************************************************************** H3316000
                                   5078 *                                                                     * H3318000
0021BE 47F0 C0F8      02200        5079          B     TWHOLE              GO TAKE ANY AVAILABLE TRACK GROUP.   H3320000
NUC      HASP DIRECT ACCESS SPACE ALLOCATION ROUTINE                                                           PAGE  114


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5081 *                                                                     * H3324000
                                   5082 *********************************************************************** H3326000

                                   5083 *                                                                     * H3328000
                                   5084 *        A 1-BIT HAS BEEN FOUND.  TO ALLOCATE THE CORRESPONDING       * H3330000

                                   5085 *        TRACK GROUP, SET UP REGISTERS AS REQUIRED AND GO TO TALLOC.  * H3332000
                                   5086 *        NOTE - THE PHRASES 'CURRENT BIT' AND 'CURRENT BYTE' IN THE   * H3334000
                                   5087 *        COMMENTS BELOW REFER NOT TO THE 1-BIT FOUND BUT TO THE       * H3336000
                                   5088 *        BIT FOR THE CURRENT ACCESS MECHANISM POSITION.               * H3338000
                                   5089 *                                                                     * H3340000

                                   5090 *********************************************************************** H3342000
                                   5091 *                                                                     * H3344000
0021C2 1A7E                        5092 TNALLOC  AR    R7,R14              ADD ONE TO THE SHIFT COUNTER.        H3346000
0021C4 14E7                        5093          NR    R14,R7              SET CC=0 IF SHIFT COUNT IS NOW EVEN. H3348000
0021C6 8870 0001      00001        5094          SRL   R7,1                DIVIDE SHIFT COUNT BY TWO.           H3350000
0021CA 4770 C0C8      021D0        5095          BNZ   *+6                 IF COUNT WAS EVEN, USE IT POSITIVE.  H3352000
0021CE 1377                        5096          LCR   R7,R7               OTHERWISE USE IT NEGATIVE.           H3354000
0021D0 4A70 6006      02316        5097          AH    R7,TNWKBIT          ADD CUR BIT OFFSET TO SHIFT COUNT.   H3356000
0021D4 5810 C204      0230C        5098          L     R1,TBIT8            SET BIT 8 ON, OTHERS OFF IN R1.      H3358000

0021D8 8810 7008      00008        5099          SRL   R1,8(R7)            SHIFT SO CUR BYTE IS R1 BITS 16-23.  H3360000

0021DC 5830 6000      02310        5100          L     R3,TNWKEDA          FOR TALLOC, SET R3=A(CUR EXT DATA).  H3362000
0021E0 4880 6004      02314        5101          LH    R8,TNWKBYTE         GET CUR BYTE OFFSET AND ADD ONE      H3364000
0021E4 4180 8001      00001        5102          LA    R8,1(,R8)           TO IT (FOR BIT ON IN R1 BYTE 3).     H3366000
0021E8 4100 0008      00008        5103          LA    R0,8                SET R0 TO 8 FOR ARITHMETIC.          H3368000
0021EC 1B70                        5104          SR    R7,R0               SET BIT NR FOR BIT ON IN R1 BYTE 3.  H3370000

0021EE 47B0 C17A      02282        5105 TNBYTE   BNM   TALLOC              IF R7 IS .GE. 0, GO ALLOCATE.        H3372000
0021F2 8810 0008      00008        5106          SRL   R1,8                OTHERWISE SHIFT BYTE RIGHT 8 BITS,   H3374000
0021F6 1A70                        5107          AR    R7,R0               UP R7 BY 8,                          H3376000
0021F8 4680 C0E6      021EE        5108          BCT   R8,TNBYTE           REDUCE BYTE NR BY 8, AND LOOP.       H3378000
0021FC 47F0 C17A      02282        5109          B     TALLOC              IF BIT'S IN BYTE ZERO, GO ALLOCATE.  H3380000
NUC      HASP DIRECT ACCESS SPACE ALLOCATION ROUTINE                                                           PAGE  115


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5111 *                                                                     * H3384000
                                   5112 *********************************************************************** H3386000
                                   5113 *                                                                     * H3388000

                                   5114 *        SINCE NO TRACK GROUPS WERE AVAILABLE IN THE NEIGHBORHOODS OF * H3390000

                                   5115 *        THE TRACK GROUPS LAST ADDRESSED BY EXCP'S, CHOOSE THE LOWEST-* H3392000
                                   5116 *        NUMBERED AVAILABLE TRACK GROUP ON ANY SPOOL VOLUME.          * H3394000
                                   5117 *                                                                     * H3396000
                                   5118 *********************************************************************** H3398000

                                   5119 *                                                                     * H3400000
002200 1863                        5120 TWHOLE   LR    R6,R3               SAVE ADR OF LAST SPOOL VOL DATA.     H3402000
002202 184E                        5121          LR    R4,R14              SET R4 TO 1 AS BXLE INCREMENT.       H3404000
002204 45F0 C1E6      022EE        5122 TWLOOP   BAL   R15,TNEXTONE        POINT TO NEXT SPOOL VOLUME DATA.     H3406000
002208 5820 B0FC      000FC        5123          L     R2,$CYLMAP          POINT REGISTER 2 TO FIRST BYTE OF    H3408000
00220C 4A20 3010      00010        5124          AH    R2,TNMO             THE MAP FOR THIS SPOOL VOLUME.       H3410000
002210 1852                        5125          LR    R5,R2               FOR BXLE COMPARAND, SET R5 TO        H3412000
002212 4A50 3012      00012        5126          AH    R5,TNMB             LAST+1 BYTE OF THE EXTENT MAP,       H3414000
002216 0650                        5127          BCTR  R5,0                AND THEN POINT TO ITS LAST BYTE.     H3416000
002218 1882                        5128          LR    R8,R2               SET R8 = BXLE REG TO PT TO MAPBYT 0. H3418000
00221A 9500 8000      00000        5129 TWLUPE   CLI   0(R8),0             ARE ANY BITS ON IN THIS BYTE...      H3420000

00221E 4770 C15A      02262        5130          BNE   TWBYTE              IF SO, GO PREPARE TO ALLOCATE.       H3422000
002222 8784 C112      0221A        5131          BXLE  R8,R4,TWLUPE        IF NOT, THEN CHECK NEXT BYTE.        H3424000
002226 1963                        5132          CR    R6,R3               IF MORE EXTENT MAPS TO GO,           H3426000
002228 4770 C0FC      02204        5133          BNE   TWLOOP              EXAMINE THE NEXT EXTENT MAP.         H3428000

                                   5134 *                                                                     * H3430000
                                   5135 *********************************************************************** H3432000
                                   5136 *                                                                     * H3434000
                                   5137 *        NO TRACK GROUPS ARE AVAILABLE.  WARN THE OPERATOR OF THIS.   * H3436000
                                   5138 *                                                                     * H3438000
                                   5139 *********************************************************************** H3440000
                                   5140 *                                                                     * H3442000
                                   5141         $WTO   TRAKMSG,L'TRAKMSG,JOB=NO,WAIT=NO,                       CH3444000
                                                       CLASS=$ALWAYS,PRI=$HI,ROUTE=$MAIN+$LOG+$UR               H3446000
00222C 4110 C144      0224C        5142+         LA    R1,TRAKMSG                                               DG012000
002230                             5143+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
002230 5800 C130      02238        5144+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000

002234 45E0 B8FA      008FA        5145+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
002238 04251677                    5146+         DC    AL1(4,$MAIN+$LOG+$UR,L'TRAKMSG,$ALWAYS+$HI)              WT044000
                                   5147 *                            TELL OPERATOR 'SPOOL VOLUMES ARE FULL'.    H3448000

00223C 98EC D00C      0000C        5148          LM    R14,R12,12(R13)     RESTORE ALL REGISTERS.               H3450000
                                   5149          DROP  BASE2               END OF ADDRESSABILITY UNDER BASE2.   H3452000
                                   5150         $WAIT  TRAK                WAIT TILL SOMEONE FREES A TK GP.     H3454000
002240 9620 D048      00048        5151+         OI    PCEEWF+$EWBTRAK,$EWFTRAK                                 WA016000
002244 45F0 B23C      0023C        5152+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
002248 47F0 BCAC      00CAC        5153          B     TFIRST              THEN TRY AGAIN FOR A TRACK GROUP.    H3456000
00224C E2D7D6D6D340E5D6            5154 TRAKMSG  DC    C'SPOOL VOLUMES ARE FULL'                                H3458000
NUC      HASP DIRECT ACCESS SPACE ALLOCATION ROUTINE                                                           PAGE  116


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5156 *                                                                     * H3462000
                                   5157 *********************************************************************** H3464000
                                   5158 *                                                                     * H3466000

                                   5159 *        PREPARE TO ALLOCATE FROM NONZERO BYTE FOUND BY TWHOLE.       * H3468000
                                   5160 *                                                                     * H3470000
                                   5161 *********************************************************************** H3472000

                                   5162 *                                                                     * H3474000
                            02108  5163          USING TNEIGH,BASE2        RE-ESTABLISH ADDRESSABILITY.         H3476000
002262 4310 8000      00000        5164 TWBYTE   IC    R1,0(,R8)           LOAD THE BYTE WE JUST FOUND.         H3478000
002266 1B82                        5165          SR    R8,R2               SET R8 TO RELATIVE BYTE OFFSET.      H3480000
002268 4100 00FF      000FF        5166          LA    R0,255              ZERO OUT ALL BYTES IN REGISTER       H3482000
00226C 1401                        5167          NR    R0,R1               EXCEPT FOR THE BYTE WE LOADED.       H3484000
00226E 4110 0080      00080        5168          LA    R1,X'80'            ASSUME FIRST 1-BIT IS BIT 0,         H3486000
002272 1B77                        5169          SR    R7,R7               AND SET BIT NUMBER TO ZERO.          H3488000
002274 1910                        5170 TWLOOP2  CR    R1,R0               IF ASSUMPTION WAS CORRECT,           H3490000
002276 47D0 C17A      02282        5171          BNH   TWALLOC             GO ALLOCATE.                         H3492000
00227A 8810 0001      00001        5172          SRL   R1,1                OTHERWISE SHIFT THE TEST BIT RIGHT,  H3494000
00227E 8774 C16C      02274        5173          BXLE  R7,R4,TWLOOP2       ADD 1 TO THE BIT NUMBER, AND LOOP.   H3496000

                                   5174 TWALLOC  $TRACE                                                         H3498000

002282                             5175+TWALLOC  DS    0H                                                       NU006000
                                   5176 *                                                                     * H3500000

                                   5177 *********************************************************************** H3502000
                                   5178 *                                                                     * H3504000
                                   5179 *        NOW ALLOCATE TO CALLER THE TRACK GROUP FOUND BY TNEIGH       * H3506000
                                   5180 *        OR TWHOLE.  ARGUMENTS TO THIS ROUTINE ARE ---                * H3508000
                                   5181 *                                                                     * H3510000
                                   5182 *        R1 BITS 24-31 CONTAIN A BYTE OF WHICH THE BIT TO ALLOCATE    * H3512000
                                   5183 *           IS ON AND ALL OTHERS ARE OFF.                             * H3514000
                                   5184 *        R3 POINTS TO THE EXTENT DATA AREA FOR THIS SPOOL VOLUME.     * H3516000
                                   5185 *        R7 CONTAINS THE BIT NUMBER OF THE BIT IN R1.                 * H3518000
                                   5186 *        R8 CONTAINS THE BYTE NUMBER OF THE BYTE IN BITS 24-31 OF R1. * H3520000
                                   5187 *        R10 IS ADDRESSABILITY FOR THE JCT.                           * H3522000
                                   5188 *                                                                     * H3524000

                                   5189 *********************************************************************** H3526000
                                   5190 *                                                                     * H3528000

002282 5820 B0FC      000FC        5191 TALLOC   L     R2,$CYLMAP          POINT R2 TO MASTER TRACK GROUP MAP.  H3530000

002286 4860 3010      00010        5192          LH    R6,TNMO             SET R6 TO MAP OFFSET THIS EXTENT.    H3532000
00228A 1A68                        5193          AR    R6,R8               SET R6 TO OFFSET FOR THIS BYTE.      H3534000
00228C 4306 2000      00000        5194          IC    R0,0(R6,R2)         SHOW TRACK GROUP                     H3536000
                                   5195          $TRACE                                                         H3538000
002290 1701                        5196          XR    R0,R1                 UNAVAILABLE BY ZEROING             H3540000
002292 4206 2000      00000        5197          STC   R0,0(R6,R2)             THE PROPER MASTER MAP BIT.       H3542000
002296 4306 A008      00008        5198          IC    R0,TCTCYMAP(R6)     SHOW TRACK GROUP ALLOCATED           H3544000
00229A 1601                        5199          OR    R0,R1                 TO USER BY SETTING TO 1 THE        H3546000
00229C 4206 A008      00008        5200          STC   R0,TCTCYMAP(R6)         CORRESP BIT IN HIS MAP.          H3548000
0022A0 8980 0003      00003        5201          SLL   R8,3                (BYTE NUMBER TIMES 8 PLUS            H3550000
0022A4 1A78                        5202          AR    R7,R8                 BIT NUMBER) = TRACK GROUP NUMBER.  H3552000
0022A6 4C70 300E      0000E        5203          MH    R7,TNTG             CALCULATE BEGINNING TRACK NUMBER     H3554000

0022AA 4860 300E      0000E        5204          LH    R6,TNTG               AND ENDING                         H3556000
0022AE 1A67                        5205          AR    R6,R7                   TRACK NUMBER FOR                 H3558000
0022B0 0660                        5206          BCTR  R6,0                      THIS SINGLE TRACK GROUP.       H3560000

0022B2 8D60 0008      00008        5207          SLDL  R6,8                SHIFT BOTH REGISTERS LEFT 8.         H3562000
0022B6 5660 3008      00008        5208          O     R6,TNMD             ADD MODULE NR AND MAX RECORD NR      H3564000
0022BA 5060 A000      00000        5209          ST    R6,TCTCYMXM         TO ENDING TRK NR AND STORE.          H3566000
0022BE 5670 3008      00008        5210          O     R7,TNMD             SAME FOR                             H3568000
NUC      HASP DIRECT ACCESS SPACE ALLOCATION ROUTINE                                                           PAGE  117


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0022C2 5070 A004      00004        5211          ST    R7,TCTMTTR            BEGINNING TRACK, BUT               H3570000
0022C6 9201 A007      00007        5212          MVI   TCTMTTR+3,1             SET RECORD NUMBER TO 1.          H3572000
0022CA 9201 A000      00000        5213          MVI   TCTCYMXM,1          SET BEGINNING REC NR TO 1.           H3574000
0022CE 45F0 C1E6      022EE        5214          BAL   R15,TNEXTONE        POINT TO NEXT TED, AND               H3576000
0022D2 5030 C200      02308        5215          ST    R3,TNEXTEXT           SAVE IT FOR NEXT TIME.             H3578000
0022D6 5810 BBC8      00BC8        5216          L     R1,$CYLALOC         UP COUNT OF                          H3580000

0022DA 4110 1001      00001        5217          LA    R1,1(,R1)             ALLOCATED TRACK                    H3582000
0022DE 5010 BBC8      00BC8        5218          ST    R1,$CYLALOC             GROUPS BY 1.                     H3584000
0022E2 98EC D00C      0000C        5219          LM    R14,R12,12(R13)     RESTORE ALL REGISTERS,               H3586000
                                   5220          DROP  R10                 DROP R10 AS TCT BASE,                H3587000

0022E6 5810 1004      00004        5221          L     R1,TCTMTTR          PUT NEW MTTR IN R1,                  H3588000
                                   5222          DROP  R1                  DROP R1 AS TCT BASE,                 H3589000
0022EA 47F0 B656      00656        5223          B     $SYSRET             AND RETURN WITH CONDITION CODE 1.    H3590000
NUC      HASP DIRECT ACCESS SPACE ALLOCATION ROUTINE                                                           PAGE  118


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5225 *                                                                     * H3594000

                                   5226 *********************************************************************** H3596000
                                   5227 *                                                                     * H3598000
                                   5228 *        SUBROUTINE TO POINT TO NEXT EXTENT DATA AREA                 * H3600000
                                   5229 *                                                                     * H3602000
                                   5230 *********************************************************************** H3604000
                                   5231 *                                                                     * H3606000
0022EE 4130 3014      00014        5232 TNEXTONE LA    R3,TEDSIZ(,R3)      POINT TO NEXT EXTENT DATA AREA.      H3608000
0022F2 5930 C1FC      02304        5233          C     R3,TEDLAST          IS IT THE LAST ONE...                H3610000

0022F6 07DF                        5234          BCR   NH,R15              IF NOT PAST LAST, RETURN TO CALLER.  H3612000
0022F8 5830 C1F8      02300        5235          L     R3,TEDFIRST         OTHERWISE POINT TO THE FIRST ONE     H3614000

0022FC 07FF                        5236          BR    R15                 AND THEN RETURN TO THE CALLER.       H3616000
002300                             5237 $TEDDATA DS    0F                  NEXT 12 BYTES SET BY HASPINIT.       H3618000
002300 00000000                    5238 TEDFIRST DC    A(0)                ADDRESS OF FIRST EXTENT DATA AREA.   H3620000
002304 00000000                    5239 TEDLAST  DC    A(0)                ADDRESS OF LAST EXTENT DATA AREA.    H3622000
002308 00000000                    5240 TNEXTEXT DC    A(0)                POINTER TO DATA FOR EXTENT FROM      H3624000
                                   5241 *                                  WHICH $TRACK MOST RECENTLY ALLO-     H3626000
                                   5242 *                                  CATED.                               H3628000
                                   5243 *                                                                     * H3630000

                                   5244 *********************************************************************** H3632000
                                   5245 *                                                                     * H3634000
                                   5246 *        WORKAREA FOR TRACK GROUP (CYLINDER) ALLOCATION               * H3636000
                                   5247 *                                                                     * H3638000
                                   5248 *********************************************************************** H3640000

                                   5249 *                                                                     * H3642000
00230C 00800000                    5250 TBIT8    DC    FS23'1'             CONSTANT OF X'00800000'.             H3644000
002310                             5251 TNWKSTRT DS    0F                  START OF 16-BYTE WORKAREA.           H3646000

002310                             5252 TNWKAREA DS    0XL16               LENGTH OF EACH ENTRY IS 16 BYTES.    H3648000
002310                             5253 TNWKEDA  DS    A                   ADDRESS OF EXTENT DATA AREA.         H3650000
002314                             5254 TNWKBYTE DS    H                   OFFSET TO CURRENT BYTE.              H3652000
002316                             5255 TNWKBIT  DS    H                   NUMBER OF CURRENT BIT.               H3654000
002318                             5256 TNWKR0   DS    F                   SAVE AREA FOR THE TWO REGISTERS      H3656000
00231C                             5257 TNWKR1   DS    F                   USED BY TNEIGH IN SHIFTING.          H3658000
                                   5258          DS    (&NUMDA-1)XL16      THERE IS ONE WORKAREA PER EXTENT.    H3660000

002320                             5259+         DS    (2-1)XL16           THERE IS ONE WORKAREA PER EXTENT.    H3660000
                            02330  5260 TNWKEND  EQU   *                   END OF ALL WORKAREAS.                H3662000
                                   5261          DROP  BASE2               END OF ADDRESSABILITY REQUIREMENTS.  H3664000
NUC      HASP OVERLAY SERVICE ROUTINES                                                                         PAGE  119


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   5263 *********************************************************************** H3668000
                                   5264 *                                                                       H3670000
                                   5265 *              THIS ROUTINE PERFORMS INITIAL CALLING ACTIONS FOR $LINK, H3672000
                                   5266 *              $XCTL, AND $LOAD.  INITIAL ENTRY ACTIONS ARE PERFORMED   H3674000

                                   5267 *              ABOVE UNDER BASE1, INCLUDE SAVING REGISTERS, AND FOR     H3676000
                                   5268 *              $XCTL, USING THE OEXIT SUBROUTINE TO EXIT FROM THE       H3678000
                                   5269 *              PREVIOUS OVERLAY ROUTINE.                                H3680000
                                   5270 *                                                                       H3682000
                                   5271 *              ACTIONS HERE INCLUDE SETTING THE PCE WITH THE OCON AND   H3684000
                                   5272 *              PRIORITY OF THE CALLED ROUTINE, COUNTING CALLS           H3686000

                                   5273 *              (OPTIONAL), AND DIRECTLY ENTERING THE ROUTINE IF IT IS   H3688000
                                   5274 *              PERMANENTLY RESIDENT.                                    H3690000
                                   5275 *                                                                       H3692000
                                   5276 *              R15 IS SET TO THE ABSOLUTE OR RELATIVE ADDRESS WHERE     H3694000
                                   5277 *              CONTROL IS TO BE TRANSFERRED WHEN THE CALLED ROUTINE IS  H3696000

                                   5278 *              AVAILABLE IN MEMORY.                                     H3698000
                                   5279 *                                                                       H3700000
                                   5280 *********************************************************************** H3702000



                            00000  5282 PCE      EQU   PCEDSECT            SHORTHAND FOR PCEDSECT               H3706000

                            02330  5283          USING OLINK,WC            ADDRABILITY FOR OLAY RTNS            H3708000
                            00000  5284          USING BUFDSECT,BASE3      ADDRABILITY FOR OVERLAY AREA         H3710000



                                   5286 OLINK    NULL  ,                                                        H3714000
002330                             5287+OLINK    DS    0H                                                       NU006000

002330 50F0 D050      00050        5288          ST    R15,PCEORTRN        SAVE LINKOR'S RETURN REGISTER        H3716000
                                   5289 OXCTL    NULL  ,                                                        H3718000
002334                             5290+OXCTL    DS    0H                                                       NU006000
002334 41F0 0060      00060        5291          LA    R15,OACEPROG-BUFDSECT R15 = ORIGINAL ENTRY POINT DISPL   H3720000
                                   5292 OLOAD    NULL  ,                                                        H3722000

002338                             5293+OLOAD    DS    0H                                                       NU006000
                                   5294          $TRACE                    TRACE EACH INITIAL CALL              H3724000
002338 40E0 D04E      0004E        5295          STH   LINK,PCEOCON        SAVE CALLED ROUTINE OCON IN PCE      H3726000
00233C 4CE0 41A0      024D0        5296          MH    LINK,=Y(OTBSIZE)    MULTIPLY BY SIZE OF AN OTAB ENTRY    H3728000
002340 5EE0 4198      024C8        5297          AL    LINK,=V(HASPOTAB)   ADD ADDRESS OF THE OVERLAY TABLE     H3730000
                            00000  5298          USING OTBDSECT,LINK       ADDRABILITY TO THE OTAB ENTRY        H3732000

                                   5299          AIF   (NOT &DEBUG).ONOBUG1                                     H3734000
002344 D200 D04D E000 0004D 00000  5300 .ONOBUG1 MVC   PCEOPRIO,OTBPRIO    SET CALLED ROUTINE PRIORITY IN PCE   H3742000
00234A 5880 E000      00000        5301          L     BASE3,OTBADDR       BASE3 = ADDR OF ROUTINE, IF RESIDENT H3744000
00234E 1288                        5302          LTR   BASE3,BASE3         IS ROUTINE PERMENANTLY RESIDENT      H3746000

002350 4180 8000      00000        5303          LA    BASE3,0(,BASE3)     CLEAR HI BYTE OF BASE3               H3748000
002354 4740 404A      0237A        5304          BM    OGO                 BRANCH IF YES TO ACTIVATE ROUTINE    H3750000
                                   5305          DROP  LINK                                                     H3752000
                                   5306 OUNROL   NULL  ,                   RE-CALL ENTRY IF PREVIOUSLY ROLLED   H3754000
002358                             5307+OUNROL   DS    0H                                                       NU006000

NUC      HASP OVERLAY SERVICE ROUTINES                                                                         PAGE  120


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5309 *********************************************************************** H3758000
                                   5310 *                                                                       H3760000
                                   5311 *              THIS ROUTINE SEARCHES OVERLAY AREAS LOOKING FOR THE      H3762000
                                   5312 *              CALLED ROUTINE IN ONE OF THEM.  THE SEARCH HAS           H3764000
                                   5313 *              THREE POSSIBLE OUTCOMES.                                 H3766000

                                   5314 *                                                                       H3768000
                                   5315 *               (1) THE CALLED ROUTINE IS FOUND IN AN AREA, THE         H3770000
                                   5316 *                   CALLER'S PCE IS ADDED TO THE AREA'S CHAIN OF        H3772000

                                   5317 *                   USERS, AND THE ROUTINE IS ENTERED.  CALLER MAY      H3774000
                                   5318 *                   HAVE TO $WAIT OLAY IF THE ROUTINE IS READING        H3776000
                                   5319 *                   INTO THE AREA.                                      H3778000
                                   5320 *                                                                       H3780000
                                   5321 *               (2) AN INACTIVE AREA (NO USERS) IS FOUND AND THE OLOD   H3782000

                                   5322 *                   SUBROUTINE IS CALLED TO START READING THE ROUTINE   H3784000
                                   5323 *                   INTO MEMORY.  CALLER IS MADE TO $WAIT OLAY WHILE    H3786000
                                   5324 *                   CHAINED TO THE AREA.                                H3788000
                                   5325 *                                                                       H3790000
                                   5326 *               (3) NO INACTIVE AREA IS FOUND.  CONTROL PASSES TO OQUE  H3792000
                                   5327 *                   TO PLACE THE CALLER ON THE $WAITACE QUEUE AND       H3794000
                                   5328 *                   TO MAKE THE CALLER $WAIT OLAY.                      H3796000
                                   5329 *                                                                       H3798000

                                   5330 *********************************************************************** H3800000




002358 5880 4190      024C0        5332 OFINDACE L     BASE3,$OACEADR      BASE3 = ADDR OF 1ST OVERLAY AREA     H3804000
00235C 1B22                        5333          SR    WA,WA               ZERO WA, ADDR OF AN INACTIVE AREA    H3806000
00235E D501 D04E 804E 0004E 0004E  5334 OFIND1   CLC   PCEOCON,OACEOCON    DOES THIS AREA HAVE CORRECT ROUTINE  H3808000
002364 4770 405C      0238C        5335          BNE   OFIND2              BRANCH IF NO                         H3810000
002368 D203 D054 8558 00054 00558  5336          MVC   PCEOPCE,OACEPCE     ADD CALLING PCE TO CHAIN             H3812000

00236E 50D0 8558      00558        5337          ST    SAVE,OACEPCE         OF ALL USER'S OF THIS ROUTINE       H3814000
                                   5338          AIF   (NOT &DEBUG).ONOBUG2                                     H3816000
                                   5339 .ONOBUG2 ANOP                                                           H3824000
002372 9500 8028      00028        5340 OFIND6   CLI   BUFECBCC,0          IS ROUTINE NOW BEING READ FROM DISK  H3826000
002376 4780 40CE      023FE        5341          BE    OQ5                 BRANCH IF YES TO $WAIT THIS PCE      H3828000
00237A 9804 D014      00014        5342 OGO      LM    R0,WC,PCER0         RELOAD PROCESSOR'S REGISTERS         H3830000
00237E 5080 D034      00034        5343          ST    BASE3,PCEBASE3      STORE BASE3 IN THE PCE               H3832000
002382 55F0 B41C      0041C        5344          CL    R15,$OMAXDSP        IS R15 NOW A RELATIVE ENTRY POINT    H3834000
002386 072F                        5345          BCR   H,R15               IF NOT, ENTER ROUTINE (RTRN IF LOAD) H3836000

002388 47F8 F000      00000        5346          B     0(BASE3,R15)        ENTER ROUTINE RELATIVE TO BASE3      H3838000

00238C D603 8558 8558 00558 00558  5347 OFIND2   OC    OACEPCE,OACEPCE     IS THIS AREA INACTIVE (NO USERS)     H3840000
002392 4770 4078      023A8        5348          BNZ   OFIND4              BRANCH IF NO                         H3842000
002396 1222                        5349          LTR   WA,WA               HAS ANY INACTIVE AREA BEEN FOUND     H3844000
002398 4780 4076      023A6        5350          BZ    OFIND3              BRANCH IF NO                         H3846000
00239C D500 804D 204D 0004D 0004D  5351          CLC   OACEPRIO,OACEPRIO-BUFDSECT(WA) LOWER PRI THAN PREV AREA  H3848000

0023A2 47B0 4078      023A8        5352          BNL   OFIND4              BRANCH IF NO                         H3850000
0023A6 1828                        5353 OFIND3   LR    WA,BASE3            REMEMBER ADDRESS OF LOWEST INACTIVE  H3852000
0023A8 5880 8034      00034        5354 OFIND4   L     BASE3,OACECHN       BASE3 = ADDRESS OF NEXT OVERLAY AREA H3854000
0023AC 1288                        5355          LTR   BASE3,BASE3         ARE THERE MORE AREAS                 H3856000
0023AE 4770 402E      0235E        5356          BNZ   OFIND1              LOOP BACK TO TEST IF YES             H3858000
0023B2 D703 D054 D054 00054 00054  5357          XC    PCEOPCE,PCEOPCE     ZERO PCE'S OVERLAY CHAIN WORD        H3860000
0023B8 1282                        5358          LTR   BASE3,WA            WAS AN INACTIVE AREA FOUND           H3862000
0023BA 4780 4098      023C8        5359          BZ    OQUE                BRANCH IF NOT TO PUT PCE ON QUE      H3864000
0023BE 181D                        5360          LR    R1,SAVE             R1 = PCE ADDRESS OF CALLER           H3866000
0023C0 4520 4114      02444        5361          BAL   WA,OLOD             START I/O TO READ IN ROUTINE         H3868000

NUC      HASP OVERLAY SERVICE ROUTINES                                                                         PAGE  121



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0023C4 47F0 40CE      023FE        5362          B     OQ5                 GO $WAIT PCE UNTIL I/O COMPLETES     H3870000
NUC      HASP OVERLAY SERVICE ROUTINES                                                                         PAGE  122


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   5364 *********************************************************************** H3874000
                                   5365 *                                                                       H3876000
                                   5366 *              THIS ROUTINE INSERTS THE CALLING PCE IN A QUE            H3878000
                                   5367 *              WAITING FOR AN OVERLAY AREA.  INSERTION IS IN            H3880000
                                   5368 *              DESCENDING ORDER BY PRIORITY.  CHAIN WORD FOR THIS       H3882000
                                   5369 *              QUE IS PCEBASE3.  PCES NEEDING SAME OVERLAY              H3884000
                                   5370 *              ROUTINE (OCONS EQUAL) ARE CHAINED TOGETHER BY            H3886000
                                   5371 *              PCEOPCE.  REGISTER USAGE FOLLOWS.                        H3888000
                                   5372 *                                                                       H3890000
                                   5373 *              SAVE = ADDR OF PCE TO INSERT                             H3892000
                                   5374 *              WA = ADDR OF PCE BEFORE INSERTION                        H3894000

                                   5375 *              WB = ADDR OF PCE AFTER INSERTION                         H3896000
                                   5376 *                                                                       H3898000
                                   5377 *********************************************************************** H3900000




0023C8 4130 B3DC      003DC        5379 OQUE     LA    WB,$WAITACE-(PCEBASE3-PCE) WB = ADDR QUE HEAD AS A PCE   H3904000
0023CC 1823                        5380 OQ1      LR    WA,WB               WA = WB, BEFORE PCE = AFTER PCE      H3906000
0023CE 5830 3034      00034        5381          L     WB,PCEBASE3-PCE(,WB) WB = NEXT PCE DOWN (PRIO) AS AFTER  H3908000
0023D2 1233                        5382          LTR   WB,WB               IS THIS END OF PRIO CHAIN            H3910000
0023D4 4780 40B2      023E2        5383          BZ    OQ2                 BRANCH IF YES                        H3912000
0023D8 D500 D04D 304D 0004D 0004D  5384          CLC   PCEOPRIO,PCEOPRIO-PCE(WB) THIS PCE PRIO GT AFTER PCE     H3914000
0023DE 47D0 40B8      023E8        5385          BNH   OQ3                 BRANCH IF NOT                        H3916000
0023E2 1883                        5386 OQ2      LR    BASE3,WB            POINT THIS PCE PRIO CHN TO AFTER PCE H3918000
0023E4 47F0 40CA      023FA        5387          B     OQ4                 GO TO COMPLETE CHAIN                 H3920000
0023E8 D501 D04E 304E 0004E 0004E  5388 OQ3      CLC   PCEOCON,PCEOCON-PCE(WB) THIS PCE CALL SAME RTN AS AFTER  H3922000
0023EE 4770 409C      023CC        5389          BNE   OQ1                 BRANCH IF NOT TO CONTINUE SEARCH     H3924000

0023F2 5030 D054      00054        5390          ST    WB,PCEOPCE          POINT THIS PCE RTN CHN TO AFTER PCE  H3926000
0023F6 5880 3034      00034        5391          L     BASE3,PCEBASE3-PCE(,WB) AND REPLACE IT IN THE PRIO CHN   H3928000
0023FA 50D0 2034      00034        5392 OQ4      ST    SAVE,PCEBASE3-PCE(,WA) POINT BEFORE PCE TO THIS PCE      H3930000
0023FE 9804 D014      00014        5393 OQ5      LM    R0,WC,PCER0         RE-LOAD PROCESSOR'S REGISTERS        H3932000

002402 9604 D049      00049        5394          OI    PCEEWF+$EWBOLAY,$EWFOLAY SET $WAIT OLAY BIT              H3934000
002406 47F0 B23C      0023C        5395          B     $WAIT               $WAIT PCE WITHOUT DESTROYING R15     H3936000
NUC      HASP OVERLAY SERVICE ROUTINES                                                                         PAGE  123


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5397 *********************************************************************** H3940000
                                   5398 *                                                                       H3942000
                                   5399 *              THIS SUBROUTINE IS CALLED WHEN A PCE RELINQUISHES USE    H3944000
                                   5400 *              OF AN OVERLAY ROUTINE BY $XCTL, $RETURN, OR $DELETE.     H3946000
                                   5401 *                                                                       H3948000
                                   5402 *              IF THE OVERLAY ROUTINE IS PERMANENTLY RESIDENT, THE      H3950000
                                   5403 *              SUBROUTINE RETURNS IMMEDIATELY.  OTHERWISE, THE CALLER'S H3952000
                                   5404 *              PCE IS REMOVED FROM THE CHAIN OF USER'S OF THE AREA      H3954000

                                   5405 *              CONTAINING THE ROUTINE.                                  H3956000
                                   5406 *                                                                       H3958000
                                   5407 *              IF THE AREA BECOMES INACTIVE (NO USERS), THE TOP GROUP   H3960000

                                   5408 *              OF PCES ON THE $WAITACE QUEUE (IF ANY) IS DE-QUEUED AND  H3962000
                                   5409 *              CONTROL DROPS THROUGH TO THE OLOD SUBROUTINE.            H3964000
                                   5410 *                                                                       H3966000
                                   5411 *********************************************************************** H3968000



00240A 95FF D04D      0004D        5413 OEXIT    CLI   PCEOPRIO,X'FF'      IS ROUTINE PERMENANTLY RESIDENT      H3972000
00240E 9200 D04D      0004D        5414          MVI   PCEOPRIO,0          SET PCE PRIORITY TO ZERO             H3974000
002412 0782                        5415          BCR   E,WA                RETURN IF RESIDENT                   H3976000
002414 4110 8504      00504        5416          LA    R1,OACEPCE-(PCEOPCE-PCE) R1 = ADDR OF OACE AS A PCE      H3978000
002418 55D0 1054      00054        5417 OEX1     CL    SAVE,PCEOPCE-PCE(,R1) IS THIS PCE ABOVE OURS IN RTN CHN  H3980000
00241C 4780 40F8      02428        5418          BE    OEX2                BR IF YES TO UNCHAIN                 H3982000
002420 5810 1054      00054        5419          L     R1,PCEOPCE-PCE(,R1) R1 = NEXT PCE ADDR IN RTN CHN        H3984000

002424 47F0 40E8      02418        5420          B     OEX1                GO TO TEST NEXT PCE POINTER          H3986000

002428 D203 1054 D054 00054 00054  5421 OEX2     MVC   PCEOPCE-PCE(,R1),PCEOPCE REMOVE PCE FROM RTN CHAIN       H3988000
00242E D603 8558 8558 00558 00558  5422          OC    OACEPCE,OACEPCE     OLAY AREA STILL BEING USED           H3990000

002434 0772                        5423          BCR   NZ,WA               RETURN IF YES                        H3992000
                                   5424 OEXERR   NULL                                                           H3993000
002436                             5425+OEXERR   DS    0H                                                       NU006000
002436 5810 B410      00410        5426          L     R1,$WAITACE         GET TOP PCE WAITING AREA             H3994000
00243A 1211                        5427          LTR   R1,R1               TEST IF ANY PCES ARE WAITING         H3996000
00243C 0782                        5428          BCR   Z,WA                RETURN IF NO                         H3998000
00243E D203 B410 1034 00410 00034  5429          MVC   $WAITACE,PCEBASE3-PCE(R1) DEQ TOP PCE GROUP, START I/O   H4000000
NUC      HASP OVERLAY SERVICE ROUTINES                                                                         PAGE  124


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5431 *********************************************************************** H4004000
                                   5432 *                                                                       H4006000
                                   5433 *              THIS SUBROUTINE IS CALLED TO START READING AN OVERLAY    H4008000

                                   5434 *              ROUTINE INTO AN OVERLAY AREA ON BEHALF OF ONE OR MORE    H4010000
                                   5435 *              PCES CHAINED TOGETHER BY PCEOPCE, ADDRESS OF THE FIRST   H4012000

                                   5436 *              OF THEM BEING IN REGISTER R1 ON ENTRY.                   H4014000

                                   5437 *                                                                       H4016000
                                   5438 *              THE AREA IS POINTED TO THE CHAIN OF USERS AND THE        H4018000
                                   5439 *              ROUTINE'S OCON AND PRIORITY ARE STORED IN THE AREA TO    H4020000
                                   5440 *              SHOW RESIDENCE.  THE NUMBER OF READS (LODS) FROM DIRECT  H4022000
                                   5441 *              ACCESS FOR THIS ROUTINE IS COUNTED (OPTIONAL).           H4024000
                                   5442 *                                                                       H4026000
                                   5443 *              THE TR DIRECT ACCESS ADDRESS OF THE ROUTINE FROM THE     H4028000
                                   5444 *              OVERLAY TABLE IS CONVERTED TO MTTR OR MBBCCHHR FOR       H4030000
                                   5445 *              OVERLAY DATA SET ON ANY SPOOL OR NON-SPOOL VOLUME,       H4032000
                                   5446 *              RESPECTIVELY.  READ IS STARTED BY $EXCP.                 H4034000
                                   5447 *                                                                       H4036000
                                   5448 *********************************************************************** H4038000




002444 5010 8558      00558        5450 OLOD     ST    R1,OACEPCE          PUT PCE RTN CHN ON THIS AREA         H4042000
002448 D202 804D 104D 0004D 0004D  5451          MVC   OACEPRIO(3),PCEOPRIO-PCE(R1) PUT PRIO AND OCON IN AREA   H4044000

                                   5452          $TRACE                    TRACE EACH OVERLAY I/O ACTION        H4046000
00244E 90EF 4188      024B8        5453          STM   LINK,R15,OLODSAVE   SAVE REGS CLOBBERED BY $EXCP         H4048000
002452 4810 804E      0004E        5454          LH    R1,OACEOCON         COMPUTE ADDRESS OF                   H4050000
002456 4C10 41A0      024D0        5455          MH    R1,=Y(OTBSIZE)       OVERLAY TABLE ENTRY                 H4052000
00245A 5E10 4198      024C8        5456          AL    R1,=V(HASPOTAB)       FOR ROUTINE TO BE READ IN FROM DA  H4054000
                            00000  5457          USING OTBDSECT,R1                                              H4056000
                                   5458          AIF   (NOT &DEBUG).ONOBUG3                                     H4058000
00245E 48F0 1002      00002        5459 .ONOBUG3 LH    R15,OTBTRAK         GET RELATIVE T R OF ROUTINE          H4066000
002462 5810 419C      024CC        5460          L     R1,=V($OLAYDCT)     R1 = ADDRESS OF OVERLAY DCT          H4068000
                            00000  5461          USING DCTDSECT,R1                                              H4070000
002466 42F0 8027      00027        5462          STC   R15,IOBSEEK+6       STORE R IN IOB                       H4072000
00246A 88F0 0008      00008        5463          SRL   R15,8               SHIFT RIGHT TO ISOLATE RELATIVE T    H4074000

00246E 4AF0 101E      0001E        5464          AH    R15,DCTOTT          ADD BEGINNING TT OF OVERLAY XTENT    H4076000
002472 9500 1012      00012        5465          CLI   DCTDEVTP,DCTDA      IS OVERLAY XTENT ON A SPOOL PACK     H4078000
002476 4770 415E      0248E        5466          BNE   OLD1                BRANCH IF NOT                        H4080000
00247A 40F0 100A      0000A        5467          STH   R15,DCTSEEK+2       PUT ABSOLUTE TT IN DCTSEEK           H4082000

00247E D201 1009 100A 00009 0000A  5468          MVC   DCTSEEK+1(2),DCTSEEK+2 AND POSITION CORRECTLY            H4084000
002484 D200 100B 8027 0000B 00027  5469          MVC   DCTSEEK+3(1),IOBSEEK+6 MOVE R TO DCTSEEK                 H4086000
00248A 47F0 4178      024A8        5470          B     OLD2                GO TO START I/O                      H4088000
00248E 1BEE                        5471 OLD1     SR    LINK,LINK           CLEAR EVEN REGISTER OF DIVIDEND      H4090000
002490 4800 101C      0001C        5472          LH    R0,DCTOTC           DIVIDE ABSOLUTE TT BY TRKS/CYL       H4092000
002494 1DE0                        5473          DR    LINK,R0              FOR OVERLAY DEVICE                  H4094000

002496 40F0 8024      00024        5474          STH   R15,IOBSEEK+3       PUT CC (QUOTIENT) INTO IOB           H4096000
00249A D201 8023 8024 00023 00024  5475          MVC   IOBSEEK+2(2),IOBSEEK+3 AND POSITION CORRECTLY            H4098000
0024A0 42E0 8026      00026        5476          STC   LINK,IOBSEEK+5      PUT HH (REMAINDER) IN IOB            H4100000
0024A4 9200 8025      00025        5477          MVI   IOBSEEK+4,0          AND ZERO HI ORDER BYTE OF HH        H4102000
0024A8 5080 1004      00004        5478 OLD2     ST    BASE3,DCTBUFAD      STORE AREA ADDRESS IN DCT            H4104000
                                   5479          DROP  R1                                                       H4106000
                                   5480          $EXCP (R1)                START I/O                            H4108000
0024AC 45E0 B30C      0030C        5481+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000

0024B0 98EF 4188      024B8        5482          LM    LINK,R15,OLODSAVE   RE-LOAD REGISTERS CLOBBERED BY $EXCP H4110000
0024B4 07F2                        5483          BR    WA                  RETURN                               H4112000

NUC      HASP OVERLAY SERVICE ROUTINES                                                                         PAGE  125


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5484          DROP  BASE3,WC                                                 H4114000
0024B8                             5485 OLODSAVE DS    2F                  REG SAVE AREA FOR LINK, R15          H4116000





0024C0 00000000                    5487 $OACEADR DC    V($1STOACE)         BEGINNING OF OVERLAY AREA CHAIN      H4122000




0024C8                             5489          DS    0D                                                       H4126000
0024C8                             5490          LTORG                                                          H4128000
0024C8 00000000                    5491                =V(HASPOTAB)
0024CC 00000000                    5492                =V($OLAYDCT)
0024D0 0004                        5493                =Y(OTBSIZE)

NUC      HASP INPUT/OUTPUT ERROR PROCESSING ROUTINE                                                            PAGE  126


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5495 EIOERROR NULL                      LOG INPUT/OUTPUT ERROR               H4132000

0024D2                             5496+EIOERROR DS    0H                                                       NU006000
                            024D2  5497          USING EIOERROR,WA         ESTABLISH LOCAL ADDRESSABILITY       H4134000
                            00000  5498          USING BUFDSECT,R1         ESTABLISH IOB ADDRESSABILITY         H4136000
0024D2 4100 0026      00026        5499          LA    R0,38               ASSUME UNIT RECORD ERROR             H4138000
0024D6 58F0 102C      0002C        5500          L     R15,BUFDCT          R15 = DCT ADDRESS                    H4140000
                            00000  5501          USING DCTDSECT,R15        ESTABLISH DCT ADDRESSABILITY         H4142000
0024DA D207 20E1 F018 025B3 00018  5502          MVC   ERRDEVN,DCTDEVN     SET UP HASP DEVICE NAME              H4144000

0024E0 58F0 1014      00014        5503          L     R15,IOBDCBPT        R15 = DCB ADDRESS                    H4146000
                            00000  5504          USING DCBDSECT,R15        ESTABLISH DCB ADDRESSABILITY         H4148000
0024E4 58F0 F02C      0002C        5505          L     R15,DCBDEBAD        R15 = DEB ADDRESS                    H4150000
                            00000  5506          USING DEBDSECT,R15        ESTABLISH DEB ADDRESSABILITY         H4152000
0024E8 F110 20D0 1020 025A2 00020  5507          MVO   ERRWORK+2(2),IOBXTENT    GET 16 * EXTENT NUMBER          H4153000

0024EE 5EF0 20CE      025A0        5508          AL    R15,ERRWORK         ADJUST ADDRESS FOR EXTENT            H4153500
0024F2 58F0 F020      00020        5509          L     R15,DEBUCBAD        R15 = UCB ADDRESS                    H4154000
                            00000  5510          USING UCBDSECT,R15        ESTABLISH UCB ADDRESSABILITY         H4156000
0024F6 9120 F012      00012        5511          TM    UCBTBYT3,UCB3DACC   TEST DEVICE TYPE                     H4158000

0024FA 4780 203C      0250E        5512          BZ    ERRNOTDA            BRANCH IF NOT DIRECT ACCESS          H4160000
0024FE D205 20E1 F01C 025B3 0001C  5513          MVC   ERRVOLID,SRTEVOLI   SET UP VOLUME SERIAL                 H4162000
002504 D201 20E7 20D2 025B9 025A4  5514          MVC   ERRVOLID+6(2),ERRBLANK   BLANK OUT REST OF FIELD         H4164000
00250A 4100 0035      00035        5515          LA    R0,53               SET FOR DIRECT ACCESS ERROR          H4166000
00250E D202 20EA F00D 025BC 0000D  5516 ERRNOTDA MVC   ERRNAME,UCBNAME     SET UP UNIT ADDRESS                  H4168000
                                   5517          DROP  R15                 KILL UCB ADDRESSABILITY              H4170000

002514 58F0 1008      00008        5518          L     R15,IOBCSW-1        R15 = ADDRESS OF                     H4172000
002518 41F0 F000      00000        5519          LA    R15,0(,R15)          LAST                                H4173000
00251C 5BF0 210A      025DC        5520          S     R15,ERREIGHT          COMMAND                            H4173500
002520 4740 206A      0253C        5521          BM    ERRNOIO             USE IOBSTART IF NEGATIVE             H4174000
002524 9180 102C      0002C        5522          TM    BUFTYPE,TPBUF       TEST BUFFER TYPE                     H4174500

002528 4710 2062      02534        5523          BO    ERRRJE              BRANCH IF RJE ERROR                  H4175000
00252C 9101 1004      00004        5524          TM    IOBECBCC,X'01'      TEST COMPLETION CODE                 H4176000
002530 4780 206A      0253C        5525          BZ    ERRNOIO             BRANCH IF NO I/O HAS OCCURRED        H4178000
002534 9110 1010      00010        5526 ERRRJE   TM    IOBSIOCC,X'10'      TEST SIO COMPLETION                  H4180000
002538 4780 206E      02540        5527          BZ    ERRSIOOK            BRANCH IF SUCCESSFUL SIO             H4182000

00253C 58F0 1010      00010        5528 ERRNOIO  L     R15,IOBSTART        GET FIRST COMMAND ADDRESS            H4184000
002540 F321 20EE F000 025C0 00000  5529 ERRSIOOK UNPK  ERRCOM,0(2,R15)     SET UP COMMAND CODE                  H4186000
002546 F342 20F1 100C 025C3 0000C  5530          UNPK  ERRSTAT,IOBCSW+3(3) SET UP STATUS BYTES                  H4188000
00254C F342 20F6 1002 025C8 00002  5531          UNPK  ERRSENS,IOBSENS0(3) SET UP SENSE BYTES                   H4190000
002552 F3E7 20FB 1021 025CD 00021  5532          UNPK  ERRSEEK,IOBSEEK(8)  SET UP SEEK ADDRESS                  H4192000

                                   5533          AIF   (&NUMLNES EQ 0).ERRNOTP                                  H4194000
                                   5534 .ERRNOTP ANOP                      *                                    H4212000
002558 DC1A 20EE BB14 025C0 00B14  5535 ERRNOTTP TR    ERRINFO,ERRTRTAB    TRANSLATE INFORMATION TO EBCDIC      H4214000
00255E 926B 20F0      025C2        5536          MVI   ERRCOM+2,C','       INSERT                               H4216000
002562 926B 20F5      025C7        5537          MVI   ERRSTAT+4,C','       SEPARATION                          H4218000

002566 926B 20FA      025CC        5538          MVI   ERRSENS+4,C','        COMMAS                             H4220000
NUC      HASP INPUT/OUTPUT ERROR PROCESSING ROUTINE                                                            PAGE  127


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00256A 4700 210E      025E0        5540          NOP   ERRSTOP             REP TO LPSW (X'82') TO STOP DEAD     H4224000
                                   5541         $WTO   ERRMSG,(R0),JOB=NO,WAIT=NO,   ISSUE ERROR MESSAGE       CH4226000
                                                       ROUTE=$LOG+$ERR+$TP,CLASS=$ALWAYS,PRI=$HI                H4228000

00256E 4110 20D4      025A6        5542+         LA    R1,ERRMSG                                                DG012000
002572 8900 0008      00008        5543+         SLL   R0,8                SET UP MESSAGE LENGTH                WT050000
002576 0700                        5544+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT052000
002578 5600 20AE      02580        5545+         O     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT054000

00257C 45E0 B8FA      008FA        5546+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT056000
002580 040B0077                    5547+         DC    AL1(4,$LOG+$ERR+$TP,0,$ALWAYS+$HI)                       WT058000
002584 98E2 D00C      0000C        5548          LM    LINK,WA,PCELINK     RESTORE REGISTERS                    H4230000
002588 4770 B656      00656        5549          BNZ   $SYSRET             RETURN IF $WTO IS SUCCESSFUL         H4232000
00258C 9500 D04B      0004B        5550          CLI   PCEID+1,PCEASYID    TEST PROCESSOR TYPE                  H4234000

002590 4780 B656      00656        5551          BE    $SYSRET             DON'T WAIT IF $ASYNC PROCESSOR       H4236000
                                   5552          AIF   (&NUMLNES EQ 0).ERNOTP                                   H4238000
                                   5553 .ERNOTP $WAIT  CMB                 WAIT FOR A CONSOLE MESSAGE BUFFER    H4244000
002594 9602 D048      00048        5554+         OI    PCEEWF+$EWBCMB,$EWFCMB                                   WA016000
002598 45F0 B23C      0023C        5555+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
00259C 47F0 BBFA      00BFA        5556          B     ERRRETRY            TRY AGAIN                            H4246000
                                   5557          DROP  R1,WA               KILL ADDRESSABILITY                  H4248000












0025A0 00000000                    5559 ERRWORK  DC    F'0'                WORK AREA FOR 16*EXTENT              H4251000
0025A4 4040                        5560 ERRBLANK DC    CL2' '              BLANK CONSTANT                       H4252000
0025A6 C961D640C5D9D9D6            5561 ERRMSG   DC    C'I/O ERROR ON '    ERROR MESSAGE                        H4254000
0025B3                             5562 ERRVOLID DC    0CL6' '             VOLUME SERIAL (DA ONLY)              H4256000

0025B3 4040404040404040            5563 ERRDEVN  DC    CL8' ',C' '         HASP DEVICE NAME (NON-DA)            H4258000
0025BC 4040406B                    5564 ERRNAME  DC    CL3' ',C','         UNIT ADDRESS                         H4260000
0025C0                             5565 ERRINFO  DC    0CL27' '            ERROR INFORMATION                    H4262000
0025C0 404040                      5566 ERRCOM   DC    CL3' '              COMMAND CODE                         H4264000
0025C3 4040404040                  5567 ERRSTAT  DC    CL5' '              ERROR STATUS                         H4266000
0025C8 4040404040                  5568 ERRSENS  DC    CL5' '              SENSE INFORMATION                    H4268000
0025CD                             5569 ERRTPCDE DC    0CL3' '             TP COMMAND SEQUENCE TYPE (TP ONLY)   H4270000
0025CD 4040404040404040            5570 ERRSEEK  DC    CL15' '             SEEK ADDRESS (DA ONLY)               H4272000

0025DC 00000008                    5571 ERREIGHT DC    F'8'                CONSTANT                             H4274000






0025E0 000F0F0F0F0F0F0F            5573 ERRSTOP  DC    0D'0',X'000F0F0F0F0F0F0F'                                H4278000
NUC      HASP STAE EXIT ROUTINE                                                                                PAGE  128


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5575 *      THIS ROUTINE RECEIVES CONTROL WHEN HASP IS ABENDED BY OS         H4432000

                                   5576 *      FOR ANY REASON.  THE ROUTINE USES HASP $ERROR TO NOTIFY THE      H4434000
                                   5577 *      OPERATOR AND TO LOOP THE CPU.  A FULL MEMORY DUMP TAKEN AT THIS  H4436000
                                   5578 *      TIME SHOULD BE ANALYZED FOR COMPLETION CODE ETC. ACCORDING TO    H4438000
                                   5579 *      THE SYSTEM PROGRAMMER'S GUIDE SRL DESCRIPTION OF STAE EXITS,     H4440000
                                   5580 *      WITH THE FOLLOWING EXCEPTION.....                                H4442000
                                   5581 *                                                                       H4444000
                                   5582 *        REGISTER 0 IS PRESERVED IN REGISTER 2.                         H4446000






                                   5584 $ABEND   NULL                                                           H4450000

0025E8                             5585+$ABEND   DS    0H                                                       NU006000
                            025E8  5586          USING *,R15               OS STAE EXIT ADDRESSABILITY          H4452000
0025E8 1820                        5587          LR    R2,R0               PRESERVE R0 IN R2                    H4454000
0025EA 58B0 F010      025F8        5588          L     BASE1,ABNDBASE      SET UP STANDARD BASE1                H4456000
                                   5589          DROP  R15                                                      H4458000

                                   5590 ABND     $ERROR                    TELL OPERATOR HASP HAS ABENDED       H4460000
0025EE 4500 BBF0      00BF0        5591+ABND     BAL   R0,$ERROR           TERMINATE PROCESSING                 ER008000
0025F2 C1C2D5C4                    5592+         DC    CL4'ABND'             HASP SYSTEM ERROR CODE             ER010000
0025F6 0000
0025F8 00000000                    5593 ABNDBASE DC    A(HASP)             STANDARD BASE1 ADDRESS               H4460500
000CB8                             5594 HASPNUC  CSECT                                                          H4461000
NUC      HASP INPUT/OUTPUT SUPERVISOR APPENDAGES                                                               PAGE  129


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5596 *                                                                       H4464000
                                   5597 *                             I/O APPENDAGE TABLE                       H4466000
                                   5598 *                                                                       H4468000




000CB8 00000D0E                    5600 $IOAPPEN DC    A(ERETURN)          END OF EXTENT                        H4472000
                                   5601          AIF   (&SYSMFT OR &SYSMVT).ESIO1                          RFIT H4473900
000CBC 00000D0E                    5602 .ESIO1   DC    A(ERETURN)          SIO                             RFIT H4474200

                                   5603 .ESIO2   ANOP                                                      RFIT H4474300
000CC0 00000D0E                    5604          DC    A(ERETURN)          PCI                                  H4476000
000CC4 00000CE4                    5605          DC    A(ECHANEND)         CHANNEL END                          H4478000
000CC8 00000CCC                    5606          DC    A(EABCHEND)         ABNORMAL CHANNEL END                 H4480000
                                   5607          AIF   (&SYSMFT OR &SYSMVT).ESIO3                          RFIT H4480100
                                   5608 .ESIO3   ANOP                                                      RFIT H4483400





                                   5610 *                                                                       H4484000
                                   5611 *                             ABNORMAL CHANNEL END APPENDAGE            H4486000

                                   5612 *                                                                       H4488000




                            00000  5614          USING BUFDSECT,R2         ESTABLISH IOB ADDRESSABILITY         H4492000
                            00000  5615          USING DCBDSECT,R4         ESTABLISH DCB ADDRESSABILITY         H4494000
                            00000  5616          USING UCBDSECT,R7         ESTABLISH UCB ADDRESSABILITY         H4495000




                            00CCC  5618          USING *,R15               ESTABLISH LOCAL ADDRESSABILITY       H4498000
                                   5619 EABCHEND NULL                                                           H4500000
000CCC                             5620+EABCHEND DS    0H                                                       NU006000
000CCC 9120 2004      00004        5621          TM    IOBECBCC,X'20'      TEST COMPLETION CODE                 H4502000
000CD0 077E                        5622          BCR   NZ,R14              RETURN IF NO ERROR INDICATED         H4504000
000CD2 9200 2001      00001        5623          MVI   IOBFLAG2,0          RESET IOBFLAG2                       H4506000
000CD6 D701 201E 201E 0001E 0001E  5624          XC    IOBERRCT,IOBERRCT    IOBERRCT                            H4508000
000CDC 943F 402C      0002C        5625          NI    DCBIFLGS,X'3F'        AND DCBIFLGS                       H4510000
000CE0 47F0 F01E      00CEA        5626          B     EABCONT             ENTER COMMON PROCESSING              H4512000
NUC      HASP INPUT/OUTPUT SUPERVISOR APPENDAGES                                                               PAGE  130



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5628 *                                                                       H4516000
                                   5629 *                             CHANNEL END APPENDAGE                     H4518000
                                   5630 *                                                                       H4520000




                            00CE4  5632          USING *,R15               ESTABLISH LOCAL ADDRESSABILITY       H4524000
                                   5633 ECHANEND NULL                                                           H4526000
000CE4                             5634+ECHANEND DS    0H                                                       NU006000
000CE4 9104 2000      00000        5635          TM    IOBFLAG1,X'04'      IS ERROR ROUTINE IN CONTROL          H4528000
000CE8 077E                        5636          BCR   NZ,R14              RETURN IF YES                        H4530000
000CEA 05F0                        5637 EABCONT  BALR  R15,0               ESTABLISH                            H4532000
                            00CEC  5638          USING *,R15                NEW LOCAL ADDRESSABILITY            H4534000
000CEC 58B0 F028      00D14        5639          L     BASE1,EASYBASE      SET UP STANDARD BASE1                H4535000
000CF0 58A0 F024      00D10        5640          L     R10,EASYNCP         R10 = ASYNC PROCESSSOR PCE EWF       H4562000
000CF4 41C0 B0DC      000DC        5641          LA    R12,$ASYNCQ         R12 = ASYNC BUFFER QUEUE ADDR        H4564000
000CF8 4120 2000      00000        5642 ENEXT    LA    R2,0(,R2)           CLEAR HIGH-ORDER BYTE                H4566000

000CFC D203 2028 C000 00028 00000  5643          MVC   BUFCHAIN,0(R12)     PUT NEW BUFFER                       H4568000
000D02 5020 C000      00000        5644          ST    R2,0(,R12)           ON TOP OF QUEUE                     H4570000
                                   5645         $POST  $EWBWORK(R10),WORK  POST PROCESSOR                       H4582000

000D06 94DF A001      00001        5646+         NI    $EWBWORK(R10),255-$EWFWORK                               PO008000
000D0A 947F B0C4      000C4        5647+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
000D0E 07FE                        5648 ERETURN  BR    R14                 RETURN TO IOS                        H4584000



000D10 00000E48                    5650 EASYNCP  DC    A($ASYNCP+PCEEWF-PCEDSECT) ASYNC PROCESSOR PCE EWF       H4588000
000D14 00000000                    5651 EASYBASE DC    A(HASP)             STANDARD BASE1 ADDRESS               H4592000
                                   5652          DROP  R2,R4,R7,R15        KILL ALL ADDRESSABILITY              H4594000
NUC      HASP ASYNCHRONOUS INPUT/OUTPUT PROCESSOR                                                              PAGE  131


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5654 $ASYNC   NULL                      HASP ASYNCHRONOUS I/O PROCESSOR      H4598000
000D18                             5655+$ASYNC   DS    0H                                                       NU006000
                            00D18  5656          USING *,BASE2             ESTABLISH LOCAL ADDRESSABILITY       H4600000

                                   5657          AIF   (&SYSMFT OR &SYSMVT).ASYNC1                         RFIT H4601900

                                   5658 .ASYNC1 $DISABLE ALL                                               RFIT H4602200
000D18 8000 B0C9      000C9        5659+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000

                                   5660 .ASYNC2  ANOP                                                      RFIT H4602300
000D1C 5810 B0DC      000DC        5661          L     R1,$ASYNCQ          GET QUEUE ENTRY                      H4604000
000D20 1211                        5662          LTR   R1,R1               ANYTHING IN QUEUE                    H4606000
                                   5663          AIF   (NOT &SYSVS2).ASYNC3                                RFIT H4606900
                                   5664 .ASYNC3  ANOP                                                      RFIT H4607100
000D22 4780 C086      00D9E        5665          BZ    AEOQ                BR IF NO                             H4608000
                                   5666          AIF   (&SYSMFT OR &SYSMVT).ASYNC4                         RFIT H4608900
                                   5667 .ASYNC4  ANOP                                                      RFIT H4609100
                            00000  5668          USING BUFDSECT,R1         R1= QUEUED BUFFER                    H4610000
000D26 5820 1028      00028        5669          L    WA,BUFCHAIN          GET NEXT QUEUE ENTRY                 H4611000
                                   5670          AIF   (&SYSMFT OR &SYSMVT).ASYNC5                         RFIT H4611400
                                   5671 .ASYNC5  ANOP                                                      RFIT H4613600

000D2A 5020 B0DC      000DC        5672 AOK      ST    WA,$ASYNCQ          UPDATE CHAIN                         H4614000
                                   5673          AIF   (&SYSMFT OR &SYSMVT).ASYNC6                         RFIT H4614400

                                   5674 .ASYNC6 $ENABLE ALL                                                RFIT H4614700

000D2E 8000 B0C8      000C8        5675+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   5676 .ASYNC7  ANOP                                                      RFIT H4614800
000D32 4820 B0CC      000CC        5677          LH    WA,$EXCPCT          DECREMENT                            H4616000
000D36 5B20 C0B8      00DD0        5678          S     WA,AFONE             MASTER I/O COUNT                    H4618000
000D3A 4740 C09E      00DB6        5679          BM    E01                 ERROR IF NEGATIVE                    H4620000
000D3E 4020 B0CC      000CC        5680          STH   WA,$EXCPCT          UPDATE MASTER I/O COUNT              H4622000
                                   5681          AIF   (&NUMLNES EQ 0).ARJE01                           OY02728 H4622150
                                   5682 .ARJE01  ANOP                                                   OY02728 H4623650
000D42 D200 1028 1004 00028 00004  5683          MVC   BUFECBCC,IOBECBCC   SAVE CC FOR USER                     H4624000
000D48 5820 102C      0002C        5684          L     WA,BUFDCT           WA = DCT ASSOCIATED WITH BUFFER      H4626000
                            00000  5685          USING DCTDSECT,WA         ESTABLISH DCT ADDRESSABILITY         H4628000
000D4C 1B33                        5686          SR    WB,WB               ZERO WB                              H4630000

000D4E 4330 2010      00010        5687          IC    WB,DCTBUFCT         WB = DCT BUFFER COUNT                H4632000
000D52 5B30 C0B8      00DD0        5688          S     WB,AFONE            DECREMENT BY ONE                     H4634000
000D56 4740 C096      00DAE        5689          BM    A01                 COUNT SHOULD NEVER GO MINUS          H4636000

000D5A 4230 2010      00010        5690          STC   WB,DCTBUFCT         SET NEW BUFFER COUNT                 H4638000
000D5E 5830 2000      00000        5691          L     WB,DCTPCE           USER PCE ADDRESS                     H4640000
                                   5692          DROP  WA                  KILL DCT ADDRESSABILITY              H4642000
000D62 5820 1030      00030        5693          L     WA,BUFEWF           GET USER EWF                         H4644000
000D66 1222                        5694          LTR   WA,WA               *                                    H4646000
000D68 4740 C064      00D7C        5695          BM    AENTER              MINUS = ASYNC. EXIT                  H4648000
000D6C 4780 C072      00D8A        5696          BZ    AFREE               ZERO  = NO ACTION                    H4650000
                                   5697         $TRACE                                                          H4652000
                                   5698         $POST  0(WA),IO            OTHERWISE, POST I/O                  H4654000
000D70 94BF 2000      00000        5699+         NI    0(WA),255-$EWFIO                                         PO008000
000D74 947F B0C4      000C4        5700+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
000D78 47F0 C000      00D18        5701          B     $ASYNC              AND GO AGAIN                         H4656000

                                   5702 AENTER   NULL                      REQ. FOR ASYNC. ENTRY                H4658000
000D7C                             5703+AENTER   DS    0H                                                       NU006000
                                   5704         $TRACE                                                          H4660000
                                   5705          DROP  BASE2               TO PREVENT LATER ERRORS              H4662000

000D7C 58C3 0044      00044        5706          L     BASE2,PCEBASE2-PCEDSECT(WB)   ESTABLISH USER ADDR        H4664000
000D80 05F2                        5707          BALR  R15,WA              ENTER USER                           H4666000
                            00D82  5708          USING *,R15               ESTABLISH TEMPORARY ADDRESSABILITY   H4668000
NUC      HASP ASYNCHRONOUS INPUT/OUTPUT PROCESSOR                                                              PAGE  132


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000D82 58C0 F052      00DD4        5709          L     BASE2,AA$ASYNC      RESET BASE2 FOR $ASYNC               H4670000

                                   5710          DROP  R15                 DROP TEMPORARY ADDRESSABILITY        H4672000
                            00D18  5711          USING $ASYNC,BASE2        RE-ESTABLISH $ASYNC ADDRESSABILITY   H4674000
000D86 47F0 C000      00D18        5712          B     $ASYNC              AND GO AGAIN                         H4676000
                                   5713 AFREE    NULL                                                           H4678000
000D8A                             5714+AFREE    DS    0H                                                       NU006000
                                   5715         $TRACE                                                          H4680000
000D8A 957F 1028      00028        5716          CLI   BUFECBCC,X'7F'      TEST I/O COMPLETION CODE             H4682000
000D8E 4780 C07E      00D96        5717          BE    AFREE1              BRANCH IF NO ERROR                   H4684000

                                   5718         $IOERROR (R1)              ERROR DETECTED                       H4686000
000D92 45E0 BBF6      00BF6        5719+         BAL   LINK,$IOERROR       LINK TO CONTROL SERVICE PROGRAM      BA008000

                                   5720 AFREE1  $FREEBUF (R1)              FREE BUFFER                          H4688000
000D96                             5721+AFREE1   DS    0H                                                       NU006000
000D96 45E0 B674      00674        5722+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
000D9A 47F0 C000      00D18        5723          B     $ASYNC              AND AGAIN                            H4690000
                                   5724 AEOQ     NULL                      END OF CHAIN REACHED                 H4692000
000D9E                             5725+AEOQ     DS    0H                                                       NU006000
000D9E 9620 D049      00049        5726          OI    PCEEWF+$EWBWORK,$EWFWORK  SET $WAIT WORK BIT     OY02728 H4693000
                                   5727          AIF   (&SYSMFT OR &SYSMVT).ASYNC8                         RFIT H4693900

                                   5728 .ASYNC8 $ENABLE ALL                                                RFIT H4694200
000DA2 8000 B0C8      000C8        5729+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   5730 .ASYNC9  ANOP                                                      RFIT H4694300
                                   5731         $WAIT  ABIT                WAIT                         OY02728 H4695000
000DA6 45F0 B23C      0023C        5732+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

000DAA 47F0 C000      00D18        5733          B     $ASYNC              START OVER WHEN ACTIVATED            H4696000
                                   5734 A01     $ERROR                     NEGATIVE DCT BUFFER COUNT DISCOVERED H4698000
000DAE 4500 BBF0      00BF0        5735+A01      BAL   R0,$ERROR           TERMINATE PROCESSING                 ER008000

000DB2 C1F0F140                    5736+         DC    CL4'A01'              HASP SYSTEM ERROR CODE             ER010000
                                   5737 E01     $ERROR                     NEGATIVE MASTER I/O COJNT            H4700000
000DB6 4500 BBF0      00BF0        5738+E01      BAL   R0,$ERROR           TERMINATE PROCESSING                 ER008000
000DBA C5F0F140                    5739+         DC    CL4'E01'              HASP SYSTEM ERROR CODE             ER010000
000DBE 9200 B0DC      000DC        5740 ATTEN    MVI   $ASYNCQ,0           CLEAR ATTENTION NOTIFICATION         H4700200
                                   5741          AIF   (&SYSMFT OR &SYSMVT).ASYNCB                         RFIT H4700250
                                   5742 .ASYNCB $ENABLE ALL                RE-ENABLE                       RFIT H4700500

000DC2 8000 B0C8      000C8        5743+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
                                   5744 .ASYNCC  ANOP                                                      RFIT H4700550
                                   5745          LA    R0,&NUMRDRS         R0 = NUMBER OF READERS               H4700600
000DC6 4100 0001      00001        5746+         LA    R0,1                R0 = NUMBER OF READERS               H4700600
000DCA 5810 B0F0      000F0        5747          L     R1,$DCTPOOL         R1 = ADDR OF 1ST READER DCT          H4700800

                                   5748          AIF   (NOT &SYSVS2).ASYNCA                                RFIT H4700900
                                   5749 .ASYNCA  ANOP                                                      RFIT H4703300
000DCE 0000
000DD0 00000001                    5750 AFONE    DC    F'1'                CONSTANT                             H4704000

000DD4 00000D18                    5751 AA$ASYNC DC    A($ASYNC)           ADDRESSABILITY CONSTANT              H4706000
                                   5752          DROP  R1                  KILL BUFFER ADDRESSING               H4708000
                                   5753          AIF   (NOT &TIMER).TNOTIME                                     H4710000
NUC      HASP $TIMER PROCESSOR                                                                                 PAGE  133


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5755 *                                                                       H4714000

                                   5756 *              THE PURPOSE OF THIS PROCESSOR IS TO RESET THE INTERVAL   H4716000
                                   5757 *              TIMER AFTER A TIMER INTERRUPT HAS OCCURRED.              H4718000
                                   5758 *                                                                       H4720000






                            00DD8  5760          USING *,BASE2             ESTABLISH PROCESSOR ADDRESSABILITY   H4724000
                                   5761 $TIMER   NULL                                                           H4726000
000DD8                             5762+$TIMER   DS    0H                                                       NU006000
000DD8 4520 B82A      0082A        5763          BAL   WA,IPOSTIT          POST COMPLETED STQE(S)               H4728000
000DDC 4520 B804      00804        5764          BAL   WA,ISETINT          SET NEXT INTERVAL                    H4730000

000DE0 9620 D049      00049        5765          OI    PCEEWF+$EWBWORK,$EWFWORK  SET $WAIT WORK BIT             H4730400
000DE4 5820 B878      00878        5766          L     WA,ITCHAIN          WA = ADDR 1ST STQE                   H4730800
000DE8 1222                        5767          LTR   WA,WA               ARE THERE ANY STQES                  H4731200
000DEA 4780 C020      00DF8        5768          BZ    TIMER1              GO $WAIT IF NOT                      H4731600
000DEE 5820 2004      00004        5769          L     WA,ITIME(,WA)       WA = SHORTEST INTERVAL               H4732000

000DF2 1222                        5770          LTR   WA,WA               HAS IT EXPIRED                       H4732400
000DF4 4780 C000      00DD8        5771          BZ    $TIMER              REPEAT $TIMER IF YES                 H4732800
000DF8 45F0 B23C      0023C        5772 TIMER1   BAL   R15,$WAIT           RETURN TO DISPATCHER                 H4733200
000DFC 47F0 C000      00DD8        5773          B     $TIMER              AND REPEAT                           H4734000
                                   5774 .TNOTIME ANOP                      *                                    H4736000

NUC      HASP OVERLAY ROLL PROCESSOR                                                                           PAGE  134


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5776 *********************************************************************** H4740000
                                   5777 *                                                                       H4742000
                                   5778 *              THIS PROCESSOR IS ENTERED AT LOWEST HASP PRIORITY, WHEN  H4744000
                                   5779 *              THE HASP DISPATCHER IS JUST ABOUT TO DO AN OS WAIT.  IT  H4746000

                                   5780 *              ATTEMPTS TO EMPTY THE $WAITACE QUEUE BY PRE-EMPTING      H4748000
                                   5781 *              OVERLAY AREAS CURRENTLY BEING USED.                      H4750000
                                   5782 *                                                                       H4752000
                                   5783 *              AN AREA WHICH HAS AN ACTIVE READ OPERATION FOR ANOTHER   H4754000

                                   5784 *              OVERLAY ROUTINE WILL NOT BE PRE-EMPTED.  ALL OTHER AREAS H4756000
                                   5785 *              MAY BE PRE-EMPTED BUT THOSE WHOSE PCE USERS ARE NOT      H4758000
                                   5786 *              $WAITING I/O ARE CHOSEN FIRST.                           H4760000
                                   5787 *                                                                       H4762000
                                   5788 *              ALL USERS OF A PRE-EMPTED AREA ARE 'ROLLED' BY MAKING    H4764000

                                   5789 *              THEM $WAIT OROL, RELATIVIZING THEIR PCER15 IF IT POINTS  H4766000
                                   5790 *              INTO THE AREA, AND UNCHAINING THEM FROM THE AREA.  THE   H4768000
                                   5791 *              HASP DISPATCHER WILL LATER FORCE EACH PCE TO RE-CALL     H4770000
                                   5792 *              ITS REQUESTED ROUTINE WHEN THE PCE HAS BEEN $POSTED FOR  H4772000
                                   5793 *              ALL CONDITIONS EXCEPT THE OROL CONDITION.                H4774000
                                   5794 *                                                                       H4776000
                                   5795 *              THE OLOD SUBROUTINE IS CALLED TO BEGIN READING A NEW     H4778000

                                   5796 *              ROUTINE FOR THE TOP GROUP OF PCES ON THE $WAITACE QUEUE. H4780000
                                   5797 *                                                                       H4782000
                                   5798 *              THE PROCESSOR REPEATS ITS ACTIONS UNTIL THE $WAITACE     H4784000

                                   5799 *              QUEUE IS EMPTY OR UNTIL ALL OVERLAY AREAS HAVE AN ACTIVE H4786000
                                   5800 *              READ OPERATION ACTIVE.                                   H4788000
                                   5801 *                                                                       H4790000
                                   5802 *********************************************************************** H4792000




0025FC                             5804 HASPNUC2 CSECT                                                          H4795000
                            025FC  5805          USING *,BASE2             DISPATCHER PROVIDED ADDRESSABILITY   H4796000
                                   5806 $OROLL   NULL                                                           H4798000
0025FC                             5807+$OROLL   DS    0H                                                       NU006000
0025FC 5840 B414      00414        5808          L     WC,$OLINKAD         WC = BASE FOR OVERLAY SERVICE        H4800000
                            02330  5809          USING OLINK,WC                                                 H4802000
                                   5810 ORMOREQS NULL                      LOOP POINT FOR MULTIPLE ROLL REQSTS  H4810000
002600                             5811+ORMOREQS DS    0H                                                       NU006000

002600 1B22                        5812 ORTSTACE SR    WA,WA               ZER WA, PTR TO LOW AREA NOT WAIT I/O H4812000
002602 1B33                        5813          SR    WB,WB               ZERO WB, PTR TO LOW AREA WAITING I/O H4814000

002604 5880 4190      024C0        5814          L     BASE3,$OACEADR      GET ADDRESS OF FIRST OVERLAY AREA    H4816000
                            00000  5815          USING BUFDSECT,BASE3                                           H4818000
002608 9500 8028      00028        5816 ORTSTLOD CLI   BUFECBCC,0          IS OVERLAY READ IN PROCESS ON AREA   H4820000
00260C 4780 C052      0264E        5817          BE    ORNXTACE            BR IF YES, NOT ELIGABLE TO BE ROLLED H4822000
002610 5810 8558      00558        5818          L     R1,OACEPCE          GET TOP OF PCE CHN USING THIS AREA   H4824000

002614 9140 1049      00049        5819 ORTSTWIO TM    PCEEWF-PCE+$EWBIO(R1),$EWFIO  THIS PCE $WAITING I/O      H4826000
002618 4710 C040      0263C        5820          BO    ORWTNGIO            BRANCH IF YES                        H4828000
00261C 5810 1054      00054        5821          L     R1,PCEOPCE-PCE(,R1) GO TO NEXT PCE ON RTN CHAIN          H4830000
002620 1211                        5822          LTR   R1,R1               END OF CHAIN                         H4832000
002622 4770 C018      02614        5823          BNZ   ORTSTWIO            BRANCH IF NOT TO TEST FOR I/O WAIT   H4834000
002626 1222                        5824          LTR   WA,WA               PREV AREA FOUND NOT $WAITING I/O     H4836000
002628 4780 C03A      02636        5825          BZ    ORLOWNIO            BRANCH IF NO                         H4838000
00262C D500 804D 204D 0004D 0004D  5826          CLC   OACEPRIO,OACEPRIO-BUFDSECT(WA) PRIO LOWER THAN PREV AREA H4840000

002632 47B0 C052      0264E        5827          BNL   ORNXTACE            BRANCH IF NOT                        H4842000
002636 1828                        5828 ORLOWNIO LR    WA,BASE3            REMEMBER AREA AS LOW NOT WAITING I/O H4844000

NUC      HASP OVERLAY ROLL PROCESSOR                                                                           PAGE  135


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002638 47F0 C052      0264E        5829          B     ORNXTACE            GO TO TEST NEXT AREA                 H4846000
00263C 1233                        5830 ORWTNGIO LTR   WB,WB               PREV AREA FOUND $WAITING I/O         H4848000
00263E 4780 C050      0264C        5831          BZ    ORLOWIO             BRANCH IF NOT                        H4850000

002642 D500 804D 304D 0004D 0004D  5832          CLC   OACEPRIO,OACEPRIO-BUFDSECT(WB) PRIO LOWER THAN PREV AREA H4852000
002648 47B0 C052      0264E        5833          BNL   ORNXTACE            BRANCH IF NOT                        H4854000
00264C 1838                        5834 ORLOWIO  LR    WB,BASE3            REMEMBER AREA AS LOW $WAITING I/O    H4856000
00264E 5880 8034      00034        5835 ORNXTACE L     BASE3,OACECHN       CHAIN TO NEXT OVERLAY AREA           H4858000
002652 1288                        5836          LTR   BASE3,BASE3         END OF CHAIN                         H4860000
002654 4770 C00C      02608        5837          BNZ   ORTSTLOD            BRANCH IF NOT TO TEST AREA           H4862000
002658 1282                        5838          LTR   BASE3,WA            ELIGABLE AREA NOT $WAITING I/O FOUND H4864000
00265A 4770 C068      02664        5839          BNZ   ORACEOUT            BRANCH IF YES TO USE IT              H4866000
00265E 1283                        5840          LTR   BASE3,WB            ELIGABLE AREA $WAITING I/O FOUND     H4868000

002660 4780 C0B0      026AC        5841          BZ    ORALLLOD            BRANCH IF NO                         H4870000

002664 5810 8558      00558        5842 ORACEOUT L     R1,OACEPCE          GET PCE CHAIN OF CURRENT USERS       H4872000
                                   5843          $TRACE                    TRACE EACH ROLL-OUT ACTION           H4874000
002668 9200 1010      00010        5844 OROUT1   MVI   PCER15-PCE(R1),0    ZERO HI BYTE OF PCE RE-ENTRY ADDR    H4876000
00266C 5800 1010      00010        5845          L     R0,PCER15-PCE(,R1)  IS PCE RE-ENTRY ADDRESS              H4878000
002670 1908                        5846          CR    R0,BASE3             IN OVERLAY AREA                     H4880000

002672 4740 C08A      02686        5847          BL    OROUT2              BRANCH IF NO                         H4882000
002676 1F08                        5848          SLR   R0,BASE3            RELATIVIZE PCE RE-ENTRY ADDRESS      H4884000
002678 5500 B41C      0041C        5849          CL    R0,$OMAXDSP         IS RELATIVE VALUE REASONABLE         H4886000
00267C 47D0 C086      02682        5850          BNH   *+6                 SKIP IF YES                          H4888000
002680 1E08                        5851          ALR   R0,BASE3            $WAIT MUST BE OUT OF OVERLAY AREA    H4890000
002682 5000 1010      00010        5852          ST    R0,PCER15-PCE(,R1)  RE-STORE PCE RE-ENTRY ADDRESS IN PCE H4892000
002686 9601 1049      00049        5853 OROUT2   OI    PCEEWF-PCE+$EWBOROL(R1),$EWFOROL INDICATE ROLL TO DSPCHR H4894000
00268A 5810 1054      00054        5854          L     R1,PCEOPCE-PCE(,R1) CHAIN TO NEXT PCE                    H4896000
00268E 1211                        5855          LTR   R1,R1               END OF CHAIN                         H4898000
002690 4770 C06C      02668        5856          BNZ   OROUT1              BRANCH IF NOT TO ROLL MORE PCES      H4900000

002694 1815                        5857          LR    R1,WD               R1 = CHAIN OF NEW USERS OF AREA      H4902000

002696 4520 4114      02444        5858          BAL   WA,OLOD             ASK OVERLAY SERVICE TO START I/O     H4904000
00269A 5850 5034      00034        5859          L     WD,PCEBASE3-PCE(,WD) GET NEXT PCE IN $WAIT OLAY CHAIN    H4906000
00269E 5050 B410      00410        5860          ST    WD,$WAITACE         UPDATE WAITING CHAIN                 H4908000
0026A2 1255                        5861          LTR   WD,WD               ARE THERE MORE PCES $WAITING OLAY    H4910000

0026A4 4770 C004      02600        5862          BNZ   ORMOREQS            BR IF YES TO TRY ANOTHER ROLL        H4912000
0026A8 47F0 B266      00266        5863          B     $ROLLED             RETURN TO DISPATCHER                 H4914000


                                   5865 ORALLLOD NULL                                                           H4922000
0026AC                             5866+ORALLLOD DS    0H                                                       NU006000
                                   5867          $TRACE                    TRACE IF EXIT WITH QUE NOT EMPTY     H4924000
0026AC 47F0 B266      00266        5868          B     $ROLLED             RETURN TO DISPATCHER                 H4926000
NUC      HASP OVERLAY $ASYNC EXIT ROUTINE                                                                      PAGE  136


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5870 *********************************************************************** H4930000
                                   5871 *                                                                       H4932000

                                   5872 *              THIS ROUTINE IS ENTERED BY AN EXIT FROM $ASYNC WHENEVER  H4934000
                                   5873 *              A READ OPERATION ON AN OVERLAY AREA IS COMPLETED.        H4936000
                                   5874 *              R1 CONTAINS THE ADDRESS OF THE OVERLAY AREA ON ENTRY.    H4938000
                                   5875 *                                                                       H4940000

                                   5876 *              EACH PCE USER IS SET UP TO USE THE OVERLAY ROUTINE BY    H4942000
                                   5877 *              STORING THE AREA ADDRESS IN PCEBASE3, $POSTING OLAY, AND H4944000
                                   5878 *              ABSOLUTIZING THE RE-ENTRY ADDRESS PCER15, IF NECESSARY.  H4946000
                                   5879 *                                                                       H4948000
                                   5880 *              IF THE READ OPERATION ENDED IN PERMANENT I/O ERROR, THE  H4950000
                                   5881 *              PCE IS SET TO TYPE A MESSAGE AND DO A PERMANENT $WAIT.   H4952000
                                   5882 *                                                                       H4954000
                                   5883 *              OVERLAY REPS (IF ANY) ARE SEARCHED AND APPLIED TO THE    H4956000
                                   5884 *              ROUTINE JUST READ INTO MEMORY.                           H4958000
                                   5885 *                                                                       H4960000
                                   5886 *********************************************************************** H4962000




                                   5888 $OLASYNC NULL                      $ASYNCH EXIT WHEN OVERLAY READ POSTS H4966000
0026B0                             5889+$OLASYNC DS    0H                                                       NU006000
0026B0 1881                        5890          LR    BASE3,R1            PUT BUFFER ADDRESS IN OLAY BASE REG  H4968000

0026B2 5840 B414      00414        5891          L     WC,$OLINKAD         WC = BASE FOR OVERLAY SERVICE        H4970000
0026B6 41E0 B3C0      003C0        5892          LA    LINK,$OERR          LINK = ADDR OF OLAY READ ERROR RTN   H4972000
0026BA 5810 8558      00558        5893          L     R1,OACEPCE          GET ADDR OF 1ST PCE USING AREA       H4974000
                                   5894          $TRACE                    TRACE EACH POST                      H4976000
0026BE 5800 1010      00010        5895 OASYN1   L     R0,PCER15-PCE(,R1)  ABSOLUTIZE                           H4978000
0026C2 5500 B41C      0041C        5896          CL    R0,$OMAXDSP          PCE RE-ENTRY ADDRESS                H4980000
0026C6 4720 C0D4      026D0        5897          BH    OASYN2                IF IT HAD PREVIOUSLY               H4982000
0026CA 1E08                        5898          ALR   R0,BASE3               BEEN MADE                         H4984000
0026CC 5000 1010      00010        5899          ST    R0,PCER15-PCE(,R1)      RELATIVE                         H4986000
0026D0 5080 1034      00034        5900 OASYN2   ST    BASE3,PCEBASE3-PCE(,R1) SET AREA BASE VALUE IN PCE       H4988000
0026D4 957F 8028      00028        5901          CLI   BUFECBCC,X'7F'      WAS READ SUCCESSFUL                  H4990000
0026D8 4780 C0F0      026EC        5902          BE    OASYN3              BRANCH IF YES                        H4992000

0026DC 50E0 1010      00010        5903          ST    LINK,PCER15-PCE(,R1) SET PCE TO ENTER ERROR ROUTINE      H4994000

0026E0 D703 8558 8558 00558 00558  5904          XC    OACEPCE,OACEPCE     SHOW OVERLAY AREA INACTIVE           H4996000
0026E6 D701 804E 804E 0004E 0004E  5905          XC    OACEOCON,OACEOCON    AND NOT OCCUPIED BY ANY ROUTINE     H4998000

                                   5906 OASYN3   $POST PCEEWF-PCE+$EWBOLAY(R1),OLAY MAKE PCE DISPATCHABLE AGAIN H5000000
0026EC 94FB 1049      00049        5907+OASYN3   NI    PCEEWF-PCE+$EWBOLAY(R1),255-$EWFOLAY                     PO008000
0026F0 947F B0C4      000C4        5908+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
0026F4 5810 1054      00054        5909          L     R1,PCEOPCE-PCE(,R1) CHAIN TO NEXT PCE                    H5002000
0026F8 1211                        5910          LTR   R1,R1               END OF CHAIN                         H5004000
0026FA 4770 C0C2      026BE        5911          BNZ   OASYN1              BRANCH IF NO                         H5006000
0026FE 957F 8028      00028        5912          CLI   BUFECBCC,X'7F'      WAS READ SUCCESSFUL                  H5006400
002702 4780 C110      0270C        5913          BE    *+10                BRANCH IF YES                        H5006800
002706 4520 4106      02436        5914          BAL   WA,OEXERR           GO START A QUEUED REQUEST            H5007200
00270A 07FF                        5915          BR    R15                 RETURN TO $ASYNC                     H5007600
                                   5916          AIF   (&OREPSIZ EQ 0).ONOREP1                                  H5008000
00270C 5820 C158      02754        5917          L     WA,OASYNRPS         WA = ADDRESS OF ANY OVERLAY REPS     H5010000

002710 9500 2000      00000        5918          CLI   0(WA),0             ARE THERE ANY OVERLAY REPS           H5012000
002714 078F                        5919          BCR   E,R15               RETURN TO $ASYNC IF NOT              H5014000

002716 4310 2004      00004        5920 OASYN4   IC    R1,4(,WA)           R1 = MOVE LENGTH OF OVERLAY REP      H5016000

00271A D503 8058 2000 00058 00000  5921          CLC   OACENAME,0(WA)      DOES REP APPLY TO THIS OVERLAY       H5018000
002720 4770 C13E      0273A        5922          BNE   OASYN5              BRANCH IF NO                         H5020000
NUC      HASP OVERLAY $ASYNC EXIT ROUTINE                                                                      PAGE  137


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002724 D202 C155 2005 02751 00005  5923          MVC   OASYNWD+1(3),5(WA)  GET RELATIVE ADDRESS OF WHERE TO     H5022000
00272A 5830 C154      02750        5924          L     WB,OASYNWD           APPLY REP INTO REGISTER WB          H5024000
00272E 5F30 805C      0005C        5925          SL    WB,OACEASMO          BY SUBTRACTING ASSEMBLY ORIGIN      H5026000
002732 4133 8058      00058        5926          LA    WB,BUFSTART(WB)     RELOCATE ADDRESS TO OVERLAY AREA     H5028000
002736 4410 C14C      02748        5927          EX    R1,OASYNMVC         APPLY REP                            H5030000
00273A 4121 2009      00009        5928 OASYN5   LA    WA,9(R1,WA)         UPDATE WA TO NEXT REP                H5032000
00273E 9500 2000      00000        5929          CLI   0(WA),0             HAVE ALL REPS BEEN INSPECTED         H5034000
002742 4770 C11A      02716        5930          BNE   OASYN4              LOOP BACK IF NOT                     H5036000

002746 07FF                        5931 .ONOREP1 BR    R15                 RETURN TO $ASYNC                     H5038000
                                   5932          DROP  WC,BASE2,BASE3                                           H5040000
                                   5933          AIF   (&OREPSIZ EQ 0).ONOREP2                                  H5042000

002748 D200 3000 2008 00000 00008  5934 OASYNMVC MVC   0(*-*,WB),8(WA)     MVC TO APPLY OVERLAY REP             H5044000
00274E 0000
002750 00000000                    5935 OASYNWD  DC    A(0)                FULL WORD FOR OVERLAY REP ADDRESS    H5046000
002754 00000000                    5936 OASYNRPS DC    V($OREPS)           ADDRESS OF OVERLAY REP STORAGE AREA  H5048000
                                   5937 .ONOREP2 ANOP                                                           H5050000
000E00                             5938 HASPNUC  CSECT                                                          H5051000
                                   5939          AIF   (&TRACE EQ 0).TNO                                        H5052000
                                   5940 .TNO     ANOP                      TRACE ROUTINE BYPASS                 H5220000
NUC      HASP PROCESSOR CONTROL ELEMENTS                                                                       PAGE  138


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00000  5942 PCE0     EQU   0                   DEFINE DUMMY PCE                     H5224000
                                   5943 &PCENO   SETA  1                   INITIALIZE PCE COUNTER               H5226000




                                   5945 *                                                                       H5230000
                                   5946 *                             ASYNCHRONOUS INPUT/OUTPUT PROCESSOR       H5232000
                                   5947 *                                                                       H5234000




                                   5949 $ASYNCP  $GENPCE 1,PCEASYID,$ASYNC,ENTYPE=A,$WAIT=WORK                  H5238000
000E00                             5950+$ASYNCP  DS    0D                                                       H0024000
000E00                             5951+PCE1      DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
000E00 00000000                    5952+         DC    A(0)                RESERVED                             H0034000
000E04 00000000                    5953+         DC    A(PCE0)                  ADDRESS OF PREVIOUS PCE         H0036000

000E08 00000E58                    5954+         DC    A(PCE2)                  ADDRESS OF NEXT PCE             H0040000
000E0C 00000000                    5955+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
000E10 00000D18                    5956+         DC    A($ASYNC)                ENTRY POINT                     H0044000
000E14 0000000000000000            5957+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
000E40 00000000                    5958+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
000E44 00000D18                    5959+         DC    A($ASYNC)                BASE REGISTER STORAGE           H0050000
000E48 0020                        5960+         DC    AL2(((1-$EWBWORK)*255+1)*$EWFWORK)     EVENT WAIT FIELD  H0054000
000E4A 0000                        5961+         DC    AL1(0,PCEASYID)         PROCESSOR TYPE                   H0060000

000E4C 0000000000000000            5962+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
000E58                             5963+         DS    0D                  PROCESSOR WORK SPACE                 H0064000

000E58                             5964+         DC    (0)X'00'                                                 H0066000





                                   5967 *                                                                       H5254000
                                   5968 *                             $TIMER PROCESSOR                          H5256000
                                   5969 *                                                                       H5258000



                                   5971 $TIMEPCE $GENPCE 1,PCETIMID,$TIMER,COND=&TIMER,ENTYPE=A,$WAIT=WORK      H5262000

000E58                             5972+$TIMEPCE DS    0D                                                       H0024000
000E58                             5973+PCE2      DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
000E58 00000000                    5974+         DC    A(0)                RESERVED                             H0034000
000E5C 00000E00                    5975+         DC    A(PCE1)                  ADDRESS OF PREVIOUS PCE         H0036000
000E60 00000EB0                    5976+         DC    A(PCE3)                  ADDRESS OF NEXT PCE             H0040000

000E64 00000000                    5977+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
000E68 00000DD8                    5978+         DC    A($TIMER)                ENTRY POINT                     H0044000
000E6C 0000000000000000            5979+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000

000E98 00000000                    5980+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
000E9C 00000DD8                    5981+         DC    A($TIMER)                BASE REGISTER STORAGE           H0050000
000EA0 0020                        5982+         DC    AL2(((1-$EWBWORK)*255+1)*$EWFWORK)     EVENT WAIT FIELD  H0054000
000EA2 000C                        5983+         DC    AL1(0,PCETIMID)         PROCESSOR TYPE                   H0060000
000EA4 0000000000000000            5984+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
000EB0                             5985+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
000EB0                             5986+         DC    (0)X'00'                                                 H0066000

NUC      HASP PROCESSOR CONTROL ELEMENTS                                                                       PAGE  139


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78



                                   5989 *                                                                       H5266000
                                   5990 *                             LINE MANAGER PROCESSOR                    H5268000

                                   5991 *                                                                       H5270000



                                   5993 $MLLMPCE $GENPCE 1,PCEMLMID,HASPMLLM,COND=&NUMLNES,$WAIT=WORK           H5274000
000EB0                             5994+$MLLMPCE DS    0D                                                       H0024000



                                   5996 *                                                                       H5278000
                                   5997 *                             REMOTE CONSOLE INPUT/OUTPUT PROCESSOR     H5280000
                                   5998 *                                                                       H5282000



                                   6000 $MCONPCE $GENPCE 1,PCECONID,HASPMCON,COND=&NUMLNES                      H5286000

000EB0                             6001+$MCONPCE DS    0D                                                       H0024000


                                   6003 *                                                                       H5290000
                                   6004 *                             O/S EXECUTION PROCESSOR(S)                H5292000
                                   6005 *                                                                       H5294000




                                   6007 $EXECPCE $GENPCE &MAXXEQS,PCEXEQID,HASPXEQ,WRKSPCE=XEQPCEWS             H5298000
000EB0                             6008+$EXECPCE DS    0D                                                       H0024000
000EB0                             6009+PCE3      DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
000EB0 00000000                    6010+         DC    A(0)                RESERVED                             H0034000

000EB4 00000E58                    6011+         DC    A(PCE2)                  ADDRESS OF PREVIOUS PCE         H0036000
000EB8 00000F60                    6012+         DC    A(PCE4)                  ADDRESS OF NEXT PCE             H0040000
000EBC 00000000                    6013+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
000EC0 00000000                    6014+         DC    V(HASPXEQ)               ENTRY POINT                     H0044000
000EC4 0000000000000000            6015+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000

000EF0 00000000                    6016+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
000EF4 00000000                    6017+         DC    V(HASPXEQ)               BASE REGISTER STORAGE           H0050000
000EF8 0000                        6018+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000
000EFA 0003                        6019+         DC    AL1(0,PCEXEQID)         PROCESSOR TYPE                   H0060000
000EFC 0000000000000000            6020+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000

000F08                             6021+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
000F08 0000000000000000            6022+         DC    (XEQPCEWS)X'00'                                          H0066000



000F60                             6024+PCE4      DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
000F60 00000000                    6025+         DC    A(0)                RESERVED                             H0034000
000F64 00000EB0                    6026+         DC    A(PCE3)                  ADDRESS OF PREVIOUS PCE         H0036000

000F68 00001010                    6027+         DC    A(PCE5)                  ADDRESS OF NEXT PCE             H0040000
000F6C 00000000                    6028+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
000F70 00000000                    6029+         DC    V(HASPXEQ)               ENTRY POINT                     H0044000
000F74 0000000000000000            6030+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000

NUC      HASP PROCESSOR CONTROL ELEMENTS                                                                       PAGE  140


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000FA0 00000000                    6031+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
000FA4 00000000                    6032+         DC    V(HASPXEQ)               BASE REGISTER STORAGE           H0050000
000FA8 0000                        6033+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000

000FAA 0003                        6034+         DC    AL1(0,PCEXEQID)         PROCESSOR TYPE                   H0060000
000FAC 0000000000000000            6035+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
000FB8                             6036+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
000FB8 0000000000000000            6037+         DC    (XEQPCEWS)X'00'                                          H0066000



001010                             6039+PCE5      DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
001010 00000000                    6040+         DC    A(0)                RESERVED                             H0034000

001014 00000F60                    6041+         DC    A(PCE4)                  ADDRESS OF PREVIOUS PCE         H0036000
001018 000010C0                    6042+         DC    A(PCE6)                  ADDRESS OF NEXT PCE             H0040000
00101C 00000000                    6043+         DC    A(0)                REGISTER 14 STORAGE                  H0042000

001020 00000000                    6044+         DC    V(HASPXEQ)               ENTRY POINT                     H0044000
001024 0000000000000000            6045+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
001050 00000000                    6046+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
001054 00000000                    6047+         DC    V(HASPXEQ)               BASE REGISTER STORAGE           H0050000
001058 0000                        6048+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000

00105A 0003                        6049+         DC    AL1(0,PCEXEQID)         PROCESSOR TYPE                   H0060000
00105C 0000000000000000            6050+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
001068                             6051+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
001068 0000000000000000            6052+         DC    (XEQPCEWS)X'00'                                          H0066000





                                   6055 *                                                                       H5302000

                                   6056 *                             EXECUTION THAW PROCESSOR                  H5304000
                                   6057 *                                                                       H5306000




                                   6059 $XTHPCE  $GENPCE 1,PCETHWID,HASPXTHW,$WAIT=WORK,WRKSPCE=4               H5310000
0010C0                             6060+$XTHPCE  DS    0D                                                       H0024000
0010C0                             6061+PCE6      DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
0010C0 00000000                    6062+         DC    A(0)                RESERVED                             H0034000
0010C4 00001010                    6063+         DC    A(PCE5)                  ADDRESS OF PREVIOUS PCE         H0036000

0010C8 00001120                    6064+         DC    A(PCE7)                  ADDRESS OF NEXT PCE             H0040000
0010CC 00000000                    6065+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
0010D0 00000000                    6066+         DC    V(HASPXTHW)              ENTRY POINT                     H0044000
0010D4 0000000000000000            6067+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
001100 00000000                    6068+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
001104 00000000                    6069+         DC    V(HASPXTHW)              BASE REGISTER STORAGE           H0050000
001108 0020                        6070+         DC    AL2(((1-$EWBWORK)*255+1)*$EWFWORK)     EVENT WAIT FIELD  H0054000
00110A 0004                        6071+         DC    AL1(0,PCETHWID)         PROCESSOR TYPE                   H0060000

00110C 0000000000000000            6072+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
001118                             6073+         DS    0D                  PROCESSOR WORK SPACE                 H0064000

001118 00000000                    6074+         DC    (4)X'00'                                                 H0066000



NUC      HASP PROCESSOR CONTROL ELEMENTS                                                                       PAGE  141


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6077 *                                                                       H5314000

                                   6078 *                             INPUT PROCESSOR(S)                        H5316000
                                   6079 *                                                                       H5318000



                                   6081          $GENPCE &NUMRDRS,PCERDRID,HASPRDR,SPECTYP=PCELCLID,           CH5322000
                                                       WRKSPCE=RDRPCEWS                                         H5324000
001120                             6082+         DS    0D                                                       H0024000
001120                             6083+PCE7      DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
001120 00000000                    6084+         DC    A(0)                RESERVED                             H0034000
001124 000010C0                    6085+         DC    A(PCE6)                  ADDRESS OF PREVIOUS PCE         H0036000

001128 000011E0                    6086+         DC    A(PCE8)                  ADDRESS OF NEXT PCE             H0040000

00112C 00000000                    6087+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
001130 00000000                    6088+         DC    V(HASPRDR)               ENTRY POINT                     H0044000
001134 0000000000000000            6089+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
001160 00000000                    6090+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
001164 00000000                    6091+         DC    V(HASPRDR)               BASE REGISTER STORAGE           H0050000

001168 0000                        6092+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000
00116A 0101                        6093+         DC    AL1(PCELCLID,PCERDRID)  PROCESSOR TYPE                   H0060000
00116C 0000000000000000            6094+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
001178                             6095+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
001178 0000000000000000            6096+         DC    (RDRPCEWS)X'00'                                          H0066000



                                   6098          $GENPCE &NUMINRS,PCERDRID,HASPRDR,SPECTYP=PCEINRID,           CH5330000
                                                       WRKSPCE=RDRPCEWS                                         H5332000
0011E0                             6099+         DS    0D                                                       H0024000
0011E0                             6100+PCE8      DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000

0011E0 00000000                    6101+         DC    A(0)                RESERVED                             H0034000

0011E4 00001120                    6102+         DC    A(PCE7)                  ADDRESS OF PREVIOUS PCE         H0036000
0011E8 000012A0                    6103+         DC    A(PCE9)                  ADDRESS OF NEXT PCE             H0040000
0011EC 00000000                    6104+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
0011F0 00000000                    6105+         DC    V(HASPRDR)               ENTRY POINT                     H0044000

0011F4 0000000000000000            6106+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
001220 00000000                    6107+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
001224 00000000                    6108+         DC    V(HASPRDR)               BASE REGISTER STORAGE           H0050000
001228 0000                        6109+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000
00122A 0401                        6110+         DC    AL1(PCEINRID,PCERDRID)  PROCESSOR TYPE                   H0060000
00122C 0000000000000000            6111+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
001238                             6112+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
001238 0000000000000000            6113+         DC    (RDRPCEWS)X'00'                                          H0066000



0012A0                             6115+PCE9      DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
0012A0 00000000                    6116+         DC    A(0)                RESERVED                             H0034000

0012A4 000011E0                    6117+         DC    A(PCE8)                  ADDRESS OF PREVIOUS PCE         H0036000
0012A8 00001360                    6118+         DC    A(PCE10)                 ADDRESS OF NEXT PCE             H0040000
0012AC 00000000                    6119+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
0012B0 00000000                    6120+         DC    V(HASPRDR)               ENTRY POINT                     H0044000

0012B4 0000000000000000            6121+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
0012E0 00000000                    6122+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
0012E4 00000000                    6123+         DC    V(HASPRDR)               BASE REGISTER STORAGE           H0050000
NUC      HASP PROCESSOR CONTROL ELEMENTS                                                                       PAGE  142


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0012E8 0000                        6124+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000
0012EA 0401                        6125+         DC    AL1(PCEINRID,PCERDRID)  PROCESSOR TYPE                   H0060000
0012EC 0000000000000000            6126+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
0012F8                             6127+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
0012F8 0000000000000000            6128+         DC    (RDRPCEWS)X'00'                                          H0066000



001360                             6130+PCE10     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000

001360 00000000                    6131+         DC    A(0)                RESERVED                             H0034000
001364 000012A0                    6132+         DC    A(PCE9)                  ADDRESS OF PREVIOUS PCE         H0036000
001368 00001420                    6133+         DC    A(PCE11)                 ADDRESS OF NEXT PCE             H0040000

00136C 00000000                    6134+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
001370 00000000                    6135+         DC    V(HASPRDR)               ENTRY POINT                     H0044000
001374 0000000000000000            6136+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
0013A0 00000000                    6137+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
0013A4 00000000                    6138+         DC    V(HASPRDR)               BASE REGISTER STORAGE           H0050000
0013A8 0000                        6139+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000
0013AA 0401                        6140+         DC    AL1(PCEINRID,PCERDRID)  PROCESSOR TYPE                   H0060000
0013AC 0000000000000000            6141+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
0013B8                             6142+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
0013B8 0000000000000000            6143+         DC    (RDRPCEWS)X'00'                                          H0066000



001420                             6145+PCE11     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000

001420 00000000                    6146+         DC    A(0)                RESERVED                             H0034000

001424 00001360                    6147+         DC    A(PCE10)                 ADDRESS OF PREVIOUS PCE         H0036000
001428 000014E0                    6148+         DC    A(PCE12)                 ADDRESS OF NEXT PCE             H0040000

00142C 00000000                    6149+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
001430 00000000                    6150+         DC    V(HASPRDR)               ENTRY POINT                     H0044000
001434 0000000000000000            6151+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
001460 00000000                    6152+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
001464 00000000                    6153+         DC    V(HASPRDR)               BASE REGISTER STORAGE           H0050000
001468 0000                        6154+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000
00146A 0401                        6155+         DC    AL1(PCEINRID,PCERDRID)  PROCESSOR TYPE                   H0060000
00146C 0000000000000000            6156+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
001478                             6157+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
001478 0000000000000000            6158+         DC    (RDRPCEWS)X'00'                                          H0066000



0014E0                             6160+PCE12     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000

0014E0 00000000                    6161+         DC    A(0)                RESERVED                             H0034000
0014E4 00001420                    6162+         DC    A(PCE11)                 ADDRESS OF PREVIOUS PCE         H0036000

0014E8 000015A0                    6163+         DC    A(PCE13)                 ADDRESS OF NEXT PCE             H0040000

0014EC 00000000                    6164+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
0014F0 00000000                    6165+         DC    V(HASPRDR)               ENTRY POINT                     H0044000
0014F4 0000000000000000            6166+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
001520 00000000                    6167+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
001524 00000000                    6168+         DC    V(HASPRDR)               BASE REGISTER STORAGE           H0050000
001528 0000                        6169+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000
00152A 0401                        6170+         DC    AL1(PCEINRID,PCERDRID)  PROCESSOR TYPE                   H0060000
00152C 0000000000000000            6171+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
001538                             6172+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
NUC      HASP PROCESSOR CONTROL ELEMENTS                                                                       PAGE  143


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001538 0000000000000000            6173+         DC    (RDRPCEWS)X'00'                                          H0066000




0015A0                             6175+PCE13     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
0015A0 00000000                    6176+         DC    A(0)                RESERVED                             H0034000

0015A4 000014E0                    6177+         DC    A(PCE12)                 ADDRESS OF PREVIOUS PCE         H0036000
0015A8 00001660                    6178+         DC    A(PCE14)                 ADDRESS OF NEXT PCE             H0040000
0015AC 00000000                    6179+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
0015B0 00000000                    6180+         DC    V(HASPRDR)               ENTRY POINT                     H0044000
0015B4 0000000000000000            6181+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
0015E0 00000000                    6182+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
0015E4 00000000                    6183+         DC    V(HASPRDR)               BASE REGISTER STORAGE           H0050000
0015E8 0000                        6184+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000
0015EA 0401                        6185+         DC    AL1(PCEINRID,PCERDRID)  PROCESSOR TYPE                   H0060000
0015EC 0000000000000000            6186+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
0015F8                             6187+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
0015F8 0000000000000000            6188+         DC    (RDRPCEWS)X'00'                                          H0066000




                                   6190          $GENPCE &NUMTPRD,PCERDRID,HASPRDR,COND=&NUMLNES,              CH5334000
                                                       SPECTYP=PCERJEID,WRKSPCE=RJEPCEWS                        H5336000
001660                             6191+         DS    0D                                                       H0024000



                                   6193 *                                                                       H5338200
                                   6194 *                             OUTPUT PROCESSOR                          H5338400
                                   6195 *                                                                       H5338600



                                   6197          $GENPCE 1,PCEOUTID,HASPHOPE,WRKSPCE=OUTWKSIZ                   H5339000

001660                             6198+         DS    0D                                                       H0024000
001660                             6199+PCE14     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
001660 00000000                    6200+         DC    A(0)                RESERVED                             H0034000
001664 000015A0                    6201+         DC    A(PCE13)                 ADDRESS OF PREVIOUS PCE         H0036000
001668 00001720                    6202+         DC    A(PCE15)                 ADDRESS OF NEXT PCE             H0040000
00166C 00000000                    6203+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
001670 00000000                    6204+         DC    V(HASPHOPE)              ENTRY POINT                     H0044000
001674 0000000000000000            6205+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000

0016A0 00000000                    6206+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
0016A4 00000000                    6207+         DC    V(HASPHOPE)              BASE REGISTER STORAGE           H0050000

0016A8 0000                        6208+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000
0016AA 0006                        6209+         DC    AL1(0,PCEOUTID)         PROCESSOR TYPE                   H0060000
0016AC 0000000000000000            6210+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
0016B8                             6211+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
0016B8 0000000000000000            6212+         DC    (OUTWKSIZ)X'00'                                          H0066000





                                   6215 *                                                                       H5340000

                                   6216 *                             PRINT PROCESSOR(S)                        H5342000
NUC      HASP PROCESSOR CONTROL ELEMENTS                                                                       PAGE  144


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6217 *                                                                       H5344000




                                   6219          $GENPCE &NUMPRTS,PCEPRTID,HASPPR,                             CH5348000
                                                       $WAIT=JOT,                                              CH5349000
                                                       SPECTYP=PCEPRSID+PCELCLID,WRKSPCE=PRTPCEWS               H5350000

001720                             6220+         DS    0D                                                       H0024000
001720                             6221+PCE15     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
001720 00000000                    6222+         DC    A(0)                RESERVED                             H0034000
001724 00001660                    6223+         DC    A(PCE14)                 ADDRESS OF PREVIOUS PCE         H0036000
001728 00001968                    6224+         DC    A(PCE16)                 ADDRESS OF NEXT PCE             H0040000
00172C 00000000                    6225+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
001730 00000000                    6226+         DC    V(HASPPR)                ENTRY POINT                     H0044000

001734 0000000000000000            6227+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
001760 00000000                    6228+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
001764 00000000                    6229+         DC    V(HASPPR)                BASE REGISTER STORAGE           H0050000
001768 0100                        6230+         DC    AL2(((1-$EWBJOT)*255+1)*$EWFJOT)       EVENT WAIT FIELD  H0054000
00176A 8107                        6231+         DC    AL1(PCEPRSID+PCELCLID,PCEPRTID) PROCESSOR TYPE           H0060000

00176C 0000000000000000            6232+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
001778                             6233+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
001778 0000000000000000            6234+         DC    (PRTPCEWS)X'00'                                          H0066000




001968                             6236+PCE16     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
001968 00000000                    6237+         DC    A(0)                RESERVED                             H0034000
00196C 00001720                    6238+         DC    A(PCE15)                 ADDRESS OF PREVIOUS PCE         H0036000
001970 00001BB0                    6239+         DC    A(PCE17)                 ADDRESS OF NEXT PCE             H0040000
001974 00000000                    6240+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
001978 00000000                    6241+         DC    V(HASPPR)                ENTRY POINT                     H0044000

00197C 0000000000000000            6242+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
0019A8 00000000                    6243+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
0019AC 00000000                    6244+         DC    V(HASPPR)                BASE REGISTER STORAGE           H0050000
0019B0 0100                        6245+         DC    AL2(((1-$EWBJOT)*255+1)*$EWFJOT)       EVENT WAIT FIELD  H0054000
0019B2 8107                        6246+         DC    AL1(PCEPRSID+PCELCLID,PCEPRTID) PROCESSOR TYPE           H0060000

0019B4 0000000000000000            6247+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
0019C0                             6248+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
0019C0 0000000000000000            6249+         DC    (PRTPCEWS)X'00'                                          H0066000



                                   6251          $GENPCE &NUMTPPR,PCEPRTID,HASPPR,COND=&NUMLNES,               CH5352000

                                                       $WAIT=JOT,                                              CH5353000
                                                       SPECTYP=PCEPRSID+PCERJEID,WRKSPCE=PRRPCEWS               H5354000
001BB0                             6252+         DS    0D                                                       H0024000


                                   6254 *                                                                       H5358000

                                   6255 *                             PUNCH PROCESSOR(S)                        H5360000
                                   6256 *                                                                       H5362000



                                   6258          $GENPCE &NUMPUNS,PCEPUNID,HASPPU,                             CH5366000
NUC      HASP PROCESSOR CONTROL ELEMENTS                                                                       PAGE  145



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                                       $WAIT=JOT,                                              CH5367000
                                                       SPECTYP=PCEPUSID+PCELCLID,WRKSPCE=PUNPCEWS               H5368000
001BB0                             6259+         DS    0D                                                       H0024000
001BB0                             6260+PCE17     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000

001BB0 00000000                    6261+         DC    A(0)                RESERVED                             H0034000
001BB4 00001968                    6262+         DC    A(PCE16)                 ADDRESS OF PREVIOUS PCE         H0036000
001BB8 00001E00                    6263+         DC    A(PCE18)                 ADDRESS OF NEXT PCE             H0040000
001BBC 00000000                    6264+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
001BC0 00000000                    6265+         DC    V(HASPPU)                ENTRY POINT                     H0044000

001BC4 0000000000000000            6266+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
001BF0 00000000                    6267+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
001BF4 00000000                    6268+         DC    V(HASPPU)                BASE REGISTER STORAGE           H0050000
001BF8 0100                        6269+         DC    AL2(((1-$EWBJOT)*255+1)*$EWFJOT)       EVENT WAIT FIELD  H0054000
001BFA 4108                        6270+         DC    AL1(PCEPUSID+PCELCLID,PCEPUNID) PROCESSOR TYPE           H0060000

001BFC 0000000000000000            6271+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
001C08                             6272+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
001C08 0000000000000000            6273+         DC    (PUNPCEWS)X'00'                                          H0066000



                                   6275          $GENPCE &NUMTPPU,PCEPUNID,HASPPU,COND=&NUMLNES,               CH5370000
                                                       $WAIT=JOT,                                              CH5371000

                                                       SPECTYP=PCEPUSID+PCERJEID,WRKSPCE=PURPCEWS               H5372000
001E00                             6276+         DS    0D                                                       H0024000


                                   6278 *                                                                       H5376000

                                   6279 *                             LOG PROCESSOR                             H5378000
                                   6280 *                                                                       H5380000



                                   6282 $LOGPCE  $GENPCE 1,PCECONID,HASPLOG,$WAIT=WORK                          H5384000
001E00                             6283+$LOGPCE  DS    0D                                                       H0024000

001E00                             6284+PCE18     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
001E00 00000000                    6285+         DC    A(0)                RESERVED                             H0034000
001E04 00001BB0                    6286+         DC    A(PCE17)                 ADDRESS OF PREVIOUS PCE         H0036000
001E08 00001E58                    6287+         DC    A(PCE19)                 ADDRESS OF NEXT PCE             H0040000
001E0C 00000000                    6288+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
001E10 00000000                    6289+         DC    V(HASPLOG)               ENTRY POINT                     H0044000
001E14 0000000000000000            6290+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000

001E40 00000000                    6291+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
001E44 00000000                    6292+         DC    V(HASPLOG)               BASE REGISTER STORAGE           H0050000
001E48 0020                        6293+         DC    AL2(((1-$EWBWORK)*255+1)*$EWFWORK)     EVENT WAIT FIELD  H0054000

001E4A 000A                        6294+         DC    AL1(0,PCECONID)         PROCESSOR TYPE                   H0060000
001E4C 0000000000000000            6295+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
001E58                             6296+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
001E58                             6297+         DC    (0)X'00'                                                 H0066000






                                   6300 *                                                                       H5388000
                                   6301 *                             HASP COMMAND PROCESSOR                    H5390000
NUC      HASP PROCESSOR CONTROL ELEMENTS                                                                       PAGE  146


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6302 *                                                                       H5392000



                                   6304 $COMMPCE $GENPCE 1,PCECONID,HASPCOMM,WRKSPCE=160                        H5396000

001E58                             6305+$COMMPCE DS    0D                                                       H0024000
001E58                             6306+PCE19     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000

001E58 00000000                    6307+         DC    A(0)                RESERVED                             H0034000
001E5C 00001E00                    6308+         DC    A(PCE18)                 ADDRESS OF PREVIOUS PCE         H0036000
001E60 00001F50                    6309+         DC    A(PCE20)                 ADDRESS OF NEXT PCE             H0040000
001E64 00000000                    6310+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
001E68 00000000                    6311+         DC    V(HASPCOMM)              ENTRY POINT                     H0044000

001E6C 0000000000000000            6312+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
001E98 00000000                    6313+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
001E9C 00000000                    6314+         DC    V(HASPCOMM)              BASE REGISTER STORAGE           H0050000
001EA0 0000                        6315+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000
001EA2 000A                        6316+         DC    AL1(0,PCECONID)         PROCESSOR TYPE                   H0060000
001EA4 0000000000000000            6317+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
001EB0                             6318+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
001EB0 0000000000000000            6319+         DC    (160)X'00'                                               H0066000







                                   6322 *                                                                       H5400000
                                   6323 *                             TSO STATUS/CANCEL SUPPORT PROCESSOR       H5402000
                                   6324 *                                                                       H5404000



                                   6326 $TSOSPCE $GENPCE 1,PCECONID,HASPTSOS,COND=&TSOSTCN,$WAIT=WORK           H5408000

001F50                             6327+$TSOSPCE DS    0D                                                       H0024000
001F50                             6328+PCE20     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
001F50 00000000                    6329+         DC    A(0)                RESERVED                             H0034000
001F54 00001E58                    6330+         DC    A(PCE19)                 ADDRESS OF PREVIOUS PCE         H0036000
001F58 00001FA8                    6331+         DC    A(PCE21)                 ADDRESS OF NEXT PCE             H0040000
001F5C 00000000                    6332+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
001F60 00000000                    6333+         DC    V(HASPTSOS)              ENTRY POINT                     H0044000
001F64 0000000000000000            6334+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
001F90 00000000                    6335+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
001F94 00000000                    6336+         DC    V(HASPTSOS)              BASE REGISTER STORAGE           H0050000

001F98 0020                        6337+         DC    AL2(((1-$EWBWORK)*255+1)*$EWFWORK)     EVENT WAIT FIELD  H0054000

001F9A 000A                        6338+         DC    AL1(0,PCECONID)         PROCESSOR TYPE                   H0060000
001F9C 0000000000000000            6339+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
001FA8                             6340+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
001FA8                             6341+         DC    (0)X'00'                                                 H0066000




                                   6343 *                                                                       H5412000
                                   6344 *                             PURGE PROCESSOR                           H5414000
                                   6345 *                                                                       H5416000
NUC      HASP PROCESSOR CONTROL ELEMENTS                                                                       PAGE  147


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6347          $GENPCE 1,PCEPRGID,HASPVPRG                                    H5420000
001FA8                             6348+         DS    0D                                                       H0024000
001FA8                             6349+PCE21     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
001FA8 00000000                    6350+         DC    A(0)                RESERVED                             H0034000
001FAC 00001F50                    6351+         DC    A(PCE20)                 ADDRESS OF PREVIOUS PCE         H0036000

001FB0 00002000                    6352+         DC    A(PCE22)                 ADDRESS OF NEXT PCE             H0040000
001FB4 00000000                    6353+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
001FB8 00000000                    6354+         DC    V(HASPVPRG)              ENTRY POINT                     H0044000
001FBC 0000000000000000            6355+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000

001FE8 00000000                    6356+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
001FEC 00000000                    6357+         DC    V(HASPVPRG)              BASE REGISTER STORAGE           H0050000
001FF0 0000                        6358+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000
001FF2 0009                        6359+         DC    AL1(0,PCEPRGID)         PROCESSOR TYPE                   H0060000
001FF4 0000000000000000            6360+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
002000                             6361+         DS    0D                  PROCESSOR WORK SPACE                 H0064000
002000                             6362+         DC    (0)X'00'                                                 H0066000





                                   6365       AIF (((&MAXXEQS LT 2) OR (&MONINTV EQ 0)) OR &SYSVS2).HNOXM1 RFIT H5424000
                                   6366 .HNOXM1  ANOP                                                      RFIT H5432000
                                   6367 *                                                                       H5438000

                                   6368 *                             CHECKPOINT PROCESSOR                      H5440000
                                   6369 *                                                                       H5442000




                                   6371 $CKPTPCE $GENPCE 1,PCECKPID,HASPCKPT                                    H5446000
002000                             6372+$CKPTPCE DS    0D                                                       H0024000
002000                             6373+PCE22     DS   0D                  PROCESSOR CONTROL ELEMENT            H0030000
002000 00000000                    6374+         DC    A(0)                RESERVED                             H0034000
002004 00001FA8                    6375+         DC    A(PCE21)                 ADDRESS OF PREVIOUS PCE         H0036000
002008 00000000                    6376+         DC    A(PCE23)                 ADDRESS OF NEXT PCE             H0040000
00200C 00000000                    6377+         DC    A(0)                REGISTER 14 STORAGE                  H0042000
002010 00000000                    6378+         DC    V(HASPCKPT)              ENTRY POINT                     H0044000
002014 0000000000000000            6379+         DC    11A(0)              REGISTER 0-10 STORAGE                H0046000
002040 00000000                    6380+         DC    A(HASP)             BASE REGISTER STORAGE                H0048000
002044 00000000                    6381+         DC    V(HASPCKPT)              BASE REGISTER STORAGE           H0050000
002048 0000                        6382+         DC    AL2(0)              EVENT WAIT FIELD                     H0058000

00204A 000D                        6383+         DC    AL1(0,PCECKPID)         PROCESSOR TYPE                   H0060000

00204C 0000000000000000            6384+         DC    3A(0)               OVERLAY CONTROL FIELDS               H0062000
002058                             6385+         DS    0D                  PROCESSOR WORK SPACE                 H0064000

002058                             6386+         DC    (0)X'00'                                                 H0066000





                                   6389 *                                                                       H5450000
                                   6390 *                             PRIORITY AGING PROCESSOR                  H5452000
                                   6391 *                                                                       H5454000
NUC      HASP PROCESSOR CONTROL ELEMENTS                                                                       PAGE  148


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6393         $GENPCE 1,PCEGPRID,HASPGPRC,COND=&PRIRATE                       H5458000
002058                             6394+         DS    0D                                                       H0024000
                                   6395 PCE&PCENO EQU  0                   TERMINATE PCE CHAIN                  H5476000
                            00000  6396+PCE23     EQU  0                   TERMINATE PCE CHAIN                  H5476000







002058                             6398 $HNUCEND DS    0D                  DEFINE END OF CSECT                  H5480000

                                   6399 $HNUCLEN $DLENGTH HEADER=N         COMPUTE CONTROL SECTION LENGTH       H5482000
NUC      HASPNUC CONTROL SECTION LENGTH                                                                        PAGE  149


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78











002058                             6402+         DS    0D                  FILL OUT CONTROL SECTION             DN016000
                            02058  6403+$N       EQU   *-HASPNUC                                                DN018000
                            00000  6404+$N1      EQU   $N/100000*100000              COMPUTE                    DN020000
                            00000  6405+$N2      EQU   ($N-$N1)/10000*10000            INTERMEDIATE             DN022000
                            01F40  6406+$N3      EQU   ($N-$N1-$N2)/1000*1000            LENGTH                 DN024000

                            000C8  6407+$N4      EQU   ($N-$N1-$N2-$N3)/100*100            VALUES               DN026000
                            00050  6408+$N5      EQU   ($N-$N1-$N2-$N3-$N4)/10*10                               DN028000
                            00000  6409+$N6      EQU   $N-$N1-$N2-$N3-$N4-$N5                                   DN030000






                                   6411+*                                                                       DN034000
                                   6412+*                                  DECIMAL LENGTH                       DN036000
                                   6413+*                                                                       DN038000



                            08280  6415+$HNUCLEN EQU   $N1/100000*1048576+$N2/10000*65536+$N3/1000*4096+$N4/100CDN042000
                                       +               *256+$N5/10*16+$N6                                       DN044000





002758                             6417 HASPNUC2 CSECT                     REVERT TO 2ND CSECT                  H5484000
                                   6418 $NUC2LEN $DLENGTH                  COMPUTE CONTROL SECTION LENGTH       H5486000

NUC      HASPNUC2 CONTROL SECTION LENGTH                                                                       PAGE  150


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












002758                             6421+         DS    0D                  FILL OUT CONTROL SECTION             DN016000
                            00700  6422+$L       EQU   *-HASPNUC2                                               DN018000
                            00000  6423+$L1      EQU   $L/100000*100000              COMPUTE                    DN020000
                            00000  6424+$L2      EQU   ($L-$L1)/10000*10000            INTERMEDIATE             DN022000

                            003E8  6425+$L3      EQU   ($L-$L1-$L2)/1000*1000            LENGTH                 DN024000
                            002BC  6426+$L4      EQU   ($L-$L1-$L2-$L3)/100*100            VALUES               DN026000
                            0005A  6427+$L5      EQU   ($L-$L1-$L2-$L3-$L4)/10*10                               DN028000
                            00002  6428+$L6      EQU   $L-$L1-$L2-$L3-$L4-$L5                                   DN030000





                                   6430+*                                                                       DN034000
                                   6431+*                                  DECIMAL LENGTH                       DN036000

                                   6432+*                                                                       DN038000




                            01792  6434+$NUC2LEN EQU   $L1/100000*1048576+$L2/10000*65536+$L3/1000*4096+$L4/100CDN042000
                                       +               *256+$L5/10*16+$L6                                       DN044000





000000                             6436          END   HASP                ENTRY POINT FOR HASP SYSTEM          H5488000
NUC                                               RELOCATION DICTIONARY                                        PAGE  151


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78

 0001     0001      0C     00001C

 0001     0001      0C     000020
 0001     0001      0C     0000E4
 0001     0001      0C     000874
 0001     0001      08     000A7D
 0001     0001      0C     000C24

 0001     0001      0C     000C30
 0001     0001      0C     000CB8
 0001     0001      0C     000CBC

 0001     0001      0C     000CC0
 0001     0001      0C     000CC4
 0001     0001      0C     000CC8
 0001     0001      0C     000D10
 0001     0001      0C     000D14
 0001     0001      0C     000DD4
 0001     0001      0C     000E08

 0001     0001      0C     000E10
 0001     0001      0C     000E40
 0001     0001      0C     000E44
 0001     0001      0C     000E5C
 0001     0001      0C     000E60

 0001     0001      0C     000E68
 0001     0001      0C     000E98
 0001     0001      0C     000E9C
 0001     0001      0C     000EB4

 0001     0001      0C     000EB8
 0001     0001      0C     000EF0
 0001     0001      0C     000F64
 0001     0001      0C     000F68
 0001     0001      0C     000FA0
 0001     0001      0C     001014

 0001     0001      0C     001018
 0001     0001      0C     001050
 0001     0001      0C     0010C4
 0001     0001      0C     0010C8
 0001     0001      0C     001100

 0001     0001      0C     001124
 0001     0001      0C     001128
 0001     0001      0C     001160
 0001     0001      0C     0011E4

 0001     0001      0C     0011E8
 0001     0001      0C     001220
 0001     0001      0C     0012A4
 0001     0001      0C     0012A8
 0001     0001      0C     0012E0
 0001     0001      0C     001364

 0001     0001      0C     001368
 0001     0001      0C     0013A0
 0001     0001      0C     001424
 0001     0001      0C     001428
 0001     0001      0C     001460

 0001     0001      0C     0014E4
 0001     0001      0C     0014E8
 0001     0001      0C     001520
 0001     0001      0C     0015A4
NUC                                               RELOCATION DICTIONARY                                        PAGE  152



POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78

 0001     0001      0C     0015A8
 0001     0001      0C     0015E0
 0001     0001      0C     001664
 0001     0001      0C     001668

 0001     0001      0C     0016A0
 0001     0001      0C     001724
 0001     0001      0C     001728
 0001     0001      0C     001760
 0001     0001      0C     00196C

 0001     0001      0C     001970
 0001     0001      0C     0019A8
 0001     0001      0C     001BB4
 0001     0001      0C     001BB8
 0001     0001      0C     001BF0
 0001     0001      0C     001E04

 0001     0001      0C     001E08
 0001     0001      0C     001E40
 0001     0001      0C     001E5C
 0001     0001      0C     001E60

 0001     0001      0C     001E98
 0001     0001      0C     001F54
 0001     0001      0C     001F58
 0001     0001      0C     001F90
 0001     0001      0C     001FAC

 0001     0001      0C     001FB0
 0001     0001      0C     001FE8
 0001     0001      0C     002004
 0001     0001      0C     002040
 0001     0002      1C     000008
 0001     0003      1C     00000C
 0001     0004      1C     000010

 0001     0005      1C     000014
 0001     0006      1C     000018
 0001     0007      1C     000024

 0001     0008      1C     000028
 0001     0009      1C     0000F8
 0001     000A      0C     000414
 0001     000A      0C     000418
 0001     000A      0C     000C00

 0001     000A      0C     000C20
 0001     000A      0C     000C38
 0001     000A      0C     000C40
 0001     000A      0C     000C88
 0001     000B      1C     0009A0
 0001     000C      1C     0009A4
 0001     000D      1C     000B78
 0001     000E      1C     000C18

 0001     000F      1C     000C34
 0001     0014      1C     000EC0

 0001     0014      1C     000EF4
 0001     0014      1C     000F70
 0001     0014      1C     000FA4
 0001     0014      1C     001020
 0001     0014      1C     001054

 0001     0015      1C     0010D0
NUC                                               RELOCATION DICTIONARY                                        PAGE  153


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78

 0001     0015      1C     001104
 0001     0016      1C     001130
 0001     0016      1C     001164
 0001     0016      1C     0011F0
 0001     0016      1C     001224
 0001     0016      1C     0012B0

 0001     0016      1C     0012E4

 0001     0016      1C     001370
 0001     0016      1C     0013A4
 0001     0016      1C     001430
 0001     0016      1C     001464
 0001     0016      1C     0014F0

 0001     0016      1C     001524
 0001     0016      1C     0015B0
 0001     0016      1C     0015E4
 0001     0017      1C     001670
 0001     0017      1C     0016A4
 0001     0018      1C     001730
 0001     0018      1C     001764
 0001     0018      1C     001978
 0001     0018      1C     0019AC
 0001     0019      1C     001BC0

 0001     0019      1C     001BF4

 0001     001A      1C     001E10
 0001     001A      1C     001E44
 0001     001B      1C     001E68
 0001     001B      1C     001E9C

 0001     001C      1C     001F60
 0001     001C      1C     001F94
 0001     001D      1C     001FB8
 0001     001D      1C     001FEC
 0001     001E      1C     002010
 0001     001E      1C     002044
 000A     0001      0C     0025F8
 000A     0010      1C     0024C0
 000A     0011      1C     0024C8
 000A     0012      1C     0024CC
 000A     0013      1C     002754


NUC                                               CROSS-REFERENCE                                              PAGE  154


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$ABEND   00002 000025E8 05585  00204

$ACTIVE  00001 000000C7 03323  03511
$ALL     00001 000000FF 00465  03532
$ALMSGSW 00001 00000040 00509  03522 03535 03539
$ALSTATB 00004 00000BC8 04669  00202
$ALWAYS  00001 00000070 00475  03532 04688 05146 05547
$ASYNC   00002 00000D18 05655  05701 05711 05712 05723 05733 05751 05956 05959
$ASYNCP  00008 00000E00 05950  00206 05650
$ASYNCQ  00004 000000DC 03334  05641 05661 05672 05740
$BUFPOOL 00004 000000E8 03338  04019 04022 04041 04042
$BUSYQUE 00004 0000010C 03347  03517
$CKPTACT 00001 00000010 00511  03750 03829 03865
$CKPTPCE 00008 00002000 06372  00214 04764

$CMBWECB 00004 00000A74 04482  04416 04457 04467 04481 04484
$COMMCT  00002 000000CE 03329  04341 04345 04523 04529
$COMMPCE 00008 00001E58 06305  00212

$COMMQUE 00004 00000114 03349  03519
$CURPCE  00001 000000C3 03319  03486 03491 03543 03548
$CYLALOC 00004 00000BC8 04670  04665 05216 05218
$CYLMAP  00004 000000FC 03343  04640 04653 05010 05123 05191
$DCBLIST 00004 00000104 03345  03600
$DCTPOOL 00004 000000F0 03340  04058 05747
$DISALL  00001 000000C9 03325  03452 04315 04519 04550 04585 04618 05659
$DISTERR 00002 00000BD0 04681  03314
$DOM     00002 00000A8C 04517  03298
$DOMACT  00001 00000080 00476  04337 04522
$DOMMIN  00001 00000002 04516  04557
$DOMQUE  00004 00000118 03350  04530

$DRAINED 00001 00000020 00510  03800 03911

$ENBALL  00001 000000C8 03324  03459 04327 04358 04543 04553 04589 04599 04627 05675 05729 05743
$ERR     00001 00000002 00458  04688 05547

$ERROR   00002 00000BF0 04722  03313 05591 05735 05738
$EWBBUF  00001 00000000 00434  04078
$EWBCKPT 00001 00000000 00438  03746 03825 03861
$EWBCMB  00001 00000000 00439  04333 05554
$EWBIO   00001 00000001 00444  05819
$EWBJOT  00001 00000000 00441  06230 06245 06269
$EWBOLAY 00001 00000001 00448  05394 05907
$EWBOPER 00001 00000001 00443  03656
$EWBOROL 00001 00000001 00450  03475 05853
$EWBSMF  00001 00000000 00440  04593
$EWBTRAK 00001 00000000 00435  05151
$EWBWORK 00001 00000001 00445  03784 03846 03895 04175 05646 05726 05765 05960 05982 06070 06293 06337

$EWFBUF  00001 00000040 00411  04048 04078
$EWFCKPT 00001 00000004 00415  03746 03825 03861

$EWFCMB  00001 00000002 00416  04333 04426 04527 05554

$EWFIO   00001 00000040 00421  05699 05819
$EWFJOB  00001 00000010 00413  03781 03843 03889
$EWFJOT  00001 00000001 00418  06230 06245 06269
$EWFOLAY 00001 00000004 00425  05394 05907
$EWFOPER 00001 00000080 00420  03656
$EWFOROL 00001 00000001 00427  03475 04762 05853
$EWFPOST 00001 00000080 00410  03447 03785 03847 03896 04176 04232 05647 05700 05908
$EWFSMF  00001 00000002 00417  04593
$EWFTRAK 00001 00000020 00412  04649 05151
NUC                                               CROSS-REFERENCE                                              PAGE  155


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$EWFUNIT 00001 00000008 00414  04090

$EWFWORK 00001 00000020 00422  03784 03846 03895 04175 04231 05646 05726 05765 05960 05982 06070 06293 06337
$EXCP    00002 0000030C 03573  03279 05481
$EXCPCT  00002 000000CC 03328  03516 03636 03638 05677 05680

$EXECPCE 00008 00000EB0 06008  00209
$EXITNOP 00002 0000002C 03244  03239 03240
$EXTPCLO 00002 00000BEC 04711  03283
$EXTPGET 00002 00000BEC 04707  03281
$EXTPOPE 00002 00000BEC 04705  03280
$EXTPPUT 00002 00000BEC 04709  03282
$FREEBUF 00002 00000674 04035  03255 05722
$FREEMSG 00002 000009A8 04403  03297 04551
$FREEQUE 00004 00000108 03346  04316 04316 04321 04323 04323 04410 04411
$FREUNIT 00002 000006D2 04081  03260
$GETBUF  00002 00000664 04017  03253
$GETPBUF 00002 00000664 04010  03254

$GETSMFB 00002 00000B0C 04583  03303 04595
$GETUNIT 00002 00000690 04056  03259
$HASPECB 00004 000000D8 03333  00201 03445 03545 04179
$HASPECF 00001 000000C4 03320  03447 03448 03455 03456 03494 03781 03785 03843 03847 03889 03896 04048 04090 04176 04232

                               04426 04527 04649 05647 05700 05908
$HI      00001 00000007 00484  03532 04688 05146 05547
$HNUCEND 00008 00002058 06398  00200
$IOAPPEN 00004 00000CB8 05600  00203
$IOERROR 00002 00000BF6 04745  03312 05719
$JCTTEST 00001 000005D0 01078  01079

$JITABLE 00004 000000F4 03341  03987
$JOBQPTR 00004 0000013C 03372  03982
$JQENT   00004 00000144 03374  03999
$JQFREE  00004 00000140 03373  03998
$L       00001 00000700 06422  06423 06424 06425 06426 06427 06428
$LOG     00001 00000001 00457  04101 04688 05146 05547
$LOGPCE  00008 00001E00 06283  00211
$LOGQUE  00004 00000110 03348  03518

$L1      00001 00000000 06423  06424 06425 06426 06427 06428 06434
$L2      00001 00000000 06424  06425 06426 06427 06428 06434

$L3      00001 000003E8 06425  06426 06427 06428 06434
$L4      00001 000002BC 06426  06427 06428 06434
$L5      00001 0000005A 06427  06428 06434
$L6      00001 00000002 06428  06434
$MAIN    00001 00000020 00462  05146
$MCONPCE 00008 00000EB0 06001  00208
$MLLMPCE 00008 00000EB0 05994  00207
$N       00001 00002058 06403  06404 06405 06406 06407 06408 06409

$NUCTABL 00004 0000012C 03358  03363
$NUCTBLE 00004 0000015C 03387  03391
$N1      00001 00000000 06404  06405 06406 06407 06408 06409 06415
$N2      00001 00000000 06405  06406 06407 06408 06409 06415
$N3      00001 00001F40 06406  06407 06408 06409 06415

$N4      00001 000000C8 06407  06408 06409 06415
$N5      00001 00000050 06408  06409 06415
$N6      00001 00000000 06409  06415
$OACEADR 00004 000024C0 05487  05332 05814
$ODEL    00002 000003CE 03673  03288
$OERR    00002 000003C0 03651  05892
NUC                                               CROSS-REFERENCE                                              PAGE  156


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$OLASYNC 00002 000026B0 05889  00205
$OLINK   00002 000003EA 03702  03290
$OLINKAD 00004 00000414 03736  03477 03685 03704 03714 03730 05808 05891
$OLOAD   00002 00000404 03728  03292

$OMAXDSP 00004 0000041C 03738  03993 05344 05849 05896
$ORET    00002 000003D2 03678  03289
$OROLL   00002 000025FC 05807  03737

$OROLLAD 00004 00000418 03737  00215 03506
$OXCTL   00002 000003F4 03712  03291
$PCEORG  00004 000000E4 03337  03446 03467 03559

$PURGER  00002 00000B7C 04638  03275
$QADD    00002 00000428 03749  03264
$QGET    00002 000004A4 03795  03265
$QJITLOC 00004 00000632 03978  03270 03965
$QLOC    00002 0000060E 03956  03269
$QPUT    00002 000004E8 03828  03266
$QREM    00002 0000053C 03864  03267

$QSIZ    00002 0000059C 03905  03268
$QUESMFB 00002 00000B42 04616  03302
$RDRPEND 00001 00000080 00508  03513
$RESTORE 00002 00000BEC 04713  03284
$ROLLED  00002 00000266 03509  03505 05863 05868

$SAVEBEG 00004 0000013C 03371  03380
$SAVEEND 00001 0000015C 03379  03380
$SMFBUSY 00004 00000120 03352  04619
$SMFFREE 00004 0000011C 03351  04586 04586 04596 04597

$ST      00001 00000004 00483  04101
$STATUS  00001 000000C2 03318  03513 03522 03524 03535 03539 03750 03800 03829 03865 03911
$STIMER  00002 00000734 04110  03307
$SVCRSET 00004 00000138 03362  03556
$SYSEXIT 00001 00000004 00513  03524
$SYSRET  00002 00000656 03992  03756 04092 04103 04591 04600 04690 04847 05223 05549 05551

$TEDADDR 00004 00000100 03344  03616
$TEDDATA 00004 00002300 05237  04810
$TIMEPCE 00008 00000E58 05972  04767
$TIMER   00002 00000DD8 05762  05771 05773 05978 05981
$TP      00001 00000008 00460  04101 05547

$TRACK   00002 00000C46 04819  03274
$TRIVIA  00001 00000010 00472  04101
$TSOSPCE 00008 00001F50 06327  00213
$TTIMER  00002 00000880 04254  03308
$UR      00001 00000004 00459  04101 05146

$WAIT    00002 0000023C 03490  03249 03657 03747 03826 03862 04079 04334 04594 05152 05395 05555 05732 05772
$WAITACE 00004 00000410 03735  03503 05379 05426 05429 05860
$WRESERV 00004 00000A88 04487  00578 04404 04404 04406
$WTO     00002 000008FA 04312  03296 03531 04100 04335 04687 05145 05546
$XTHPCE  00008 000010C0 06060  00210

AA$ASYNC 00004 00000DD4 05751  05709
ABNDBASE 00004 000025F8 05593  05588
AENTER   00002 00000D7C 05703  05695
AEOQ     00002 00000D9E 05725  05665
AFONE    00004 00000DD0 05750  05678 05688

AFREE    00002 00000D8A 05714  05696
AFREE1   00002 00000D96 05721  05717
A01      00004 00000DAE 05735  05689
NUC                                               CROSS-REFERENCE                                              PAGE  157


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

BASE1    00001 0000000B 00384  03223 03227 04167 04168 04182 04723 04724 04726 04742 05588 05639

BASE2    00001 0000000C 00385  03476 03484 03493 03506 03507 04349 04352 04355 04971 04972 04974 05149 05163 05261 05656
                               05705 05706 05709 05711 05760 05805 05932
BASE3    00001 00000008 00382  03995 05284 05301 05302 05302 05303 05303 05332 05343 05346 05353 05354 05355 05355 05358
                               05386 05391 05478 05484 05814 05815 05828 05834 05835 05836 05836 05838 05840 05846 05848

                               05851 05890 05898 05900 05932
BUFCHAIN 00004 00000028 00685  04022 04041 05643 05669
BUFDCT   00004 0000002C 00687  03583 05500 05684
BUFDSECT 00001 00000000 00661  00971 03577 04008 05284 05291 05351 05498 05614 05668 05815 05826 05832
BUFECBCC 00001 00000028 00684  03613 03634 05340 05683 05716 05816 05901 05912

BUFEWF   00004 00000030 00688  03580 05693
BUFSTART 00008 00000058 00700  00707 00713 00971 05926
BUFTYPE  00001 0000002C 00686  05522
CMBCHAIN 00004 00000000 00726  04410 04418 04418 04420 04421 04421 04530 04533 04540 04540
CMBCLASS 00001 00000007 00731  04522
CMBDOMID 00004 00000008 00733  04541
CMBDSECT 00001 00000000 00725  00743 00744 00745 04409 04521 04530 04533 04540

CMBFLAGS 00001 00000004 00727  00743
CMBMSG   00132 00000008 00732  00745
CMBMSGL  00001 00000006 00729  00744

CVTCRTTR 00003 000000B8 01263  01276
CVTDSECT 00001 00000000 01161  04436
CVTHEAD  00004 000000A0 01238  04437
CVTPTR   00001 00000010 01169  04435
CVTUSER  00004 000000CC 01287  01288

CVTXTNT1 00001 00000114 01367  01340
CVT0PT01 00004 00000098 01236  04459
DCBBIT0  00001 00000080 01468  01589 01605 01644 01662 01707 01717 01733 01774 01784 01796 01819 01850 01853 01855 01857
                               01880 01883 01903 01908 01927 01964 02017 02040 02072 02076 02089 02184 02187 02197
DCBBIT1  00001 00000040 01469  01590 01606 01663 01671 01707 01717 01735 01775 01785 01798 01820 01822 01832 01850 01853
                               01856 01857 01885 01903 01906 01908 01930 01931 01932 01967 01968 02017 02042 02078 02080
                               02092 02136 02184 02189 02198
DCBBIT2  00001 00000020 01470  01591 01607 01664 01673 01717 01736 01776 01786 01799 01801 01802 01820 01822 01827 01833

                               01850 01852 01859 01887 01910 01912 01935 01936 01937 01971 01972 02019 02045 02081 02097
                               02139 02143 02184 02199

DCBBIT3  00001 00000010 01471  01555 01592 01608 01678 01720 01737 01777 01799 01802 01804 01820 01835 01860 01890 01910
                               01914 01939 01940 01941 01975 01976 02019 02047 02049 02051 02083 02098 02139 02144 02184
DCBBIT4  00001 00000008 01472  01556 01609 01679 01723 01738 01778 01787 01836 01861 01891 01916 01922 01923 01944 01945
                               01979 01980 01982 01983 02021 02054 02099 02139 02145
DCBBIT5  00001 00000004 01473  01558 01610 01681 01724 01738 01779 01788 01837 01864 01866 01893 01916 01919 01920 01923

                               01948 01950 01951 01952 01986 01987 01988 01989 02021 02056 02059 02085 02101 02134
DCBBIT6  00001 00000002 01474  01560 01593 01611 01683 01725 01742 01780 01838 01840 01843 01864 01867 01894 01955 01956
                               01957 01958 01992 01993 01994 01995 02062 02103
DCBBIT7  00001 00000001 01475  01562 01594 01687 01727 01743 01781 01838 01841 01843 01869 01898 01960 01961 01998 01999
                               02001 02002 02087 02104 02146
DCBDEBAD 00004 0000002C 02015  05505
DCBDSECT 00001 00000000 02207  05504 05615
DCBFDAD  00008 00000005 01489  01492
DCBIFLGS 00001 0000002C 02016  05625

DCBSSID  00008 00000000 01696  01699

DCBWTOID 00004 00000000 01616  01631 01640
DCTABORT 00001 00000002 00834  04086
DCTBUFAD 00004 00000004 00769  03576 05478
DCTBUFCT 00001 00000010 00776  03584 03586 04082 05687 05690
DCTCHAIN 00004 00000014 00783  04063

NUC                                               CROSS-REFERENCE                                              PAGE  158


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

DCTDA    00001 00000000 00839  03589 05465
DCTDCB   00004 00000008 00771  03587
DCTDEVN  00008 00000018 00784  04094 05502
DCTDEVTP 00001 00000012 00779  03589 04059 05465
DCTDRAIN 00001 00000040 00821  04061 04087 04091
DCTDSECT 00001 00000000 00766  03575 04054 05461 05501 05685
DCTEOF   00001 00000010 00831  04086
DCTEWF   00004 0000000C 00775  03580 04084 04084

DCTHOLD  00001 00000020 00822  04061 04087

DCTINUSE 00001 00000080 00820  04061 04073 04085
DCTIOTYP 00001 00000013 00780  03606
DCTOTC   00002 0000001C 00785  05472
DCTOTT   00002 0000001E 00786  05464

DCTPCE   00004 00000000 00768  04070 04071 04072 05691
DCTPOST  00001 00000004 00833  04086
DCTPSTAT 00001 00000008 00770  04086
DCTREAD  00001 00000080 00854  03606
DCTSEEK  00004 00000008 00772  03603 03609 05467 05468 05468 05469
DCTSTAT  00001 00000000 00767  04061 04073 04085 04087 04091
DEBDSECT 00001 00000000 02212  05506
DEBUCBAD 00004 00000020 02227  05509
DISASTER 00041 0000208F 04692  04688 04769
E        00001 00000008 00398  05415 05919
EABCHEND 00002 00000CCC 05620  05606

EABCONT  00002 00000CEA 05637  05626
EASYBASE 00004 00000D14 05651  05639
EASYNCP  00004 00000D10 05650  05640
ECHANEND 00002 00000CE4 05634  05605

EIOERROR 00002 000024D2 05496  04750 05497
ERETURN  00002 00000D0E 05648  05600 05602 05604
ERRBLANK 00002 000025A4 05560  05514
ERRCOM   00003 000025C0 05566  05529 05536
ERRDEVN  00008 000025B3 05563  05502
ERREIGHT 00004 000025DC 05571  05520
ERRENTRY 00004 00000C00 04750  04747
ERRINFO  00027 000025C0 05565  05535
ERRMSG   00013 000025A6 05561  05542
ERRNAME  00003 000025BC 05564  05516
ERRNOIO  00004 0000253C 05528  05521 05525
ERRNOTDA 00006 0000250E 05516  05512

ERROR    00004 000020B8 04727  04726 04771
ERRORMSG 00004 000020C4 04732  04729
ERRORSAV 00004 00002104 04740  04727 04738

ERRRETRY 00004 00000BFA 04747  05556
ERRRJE   00004 00002534 05526  05523
ERRSEEK  00015 000025CD 05570  05532
ERRSENS  00005 000025C8 05568  05531 05538
ERRSIOOK 00006 00002540 05529  05527
ERRSTAT  00005 000025C3 05567  05530 05537
ERRSTOP  00008 000025E0 05573  05540
ERRTRTAB 00001 00000B14 04751  05535
ERRVOLID 00006 000025B3 05562  05513 05514
ERRWORK  00004 000025A0 05559  05507 05508
ESAVE    00004 000003B8 03644  03574 03639
ESENDIT  00002 0000039C 03633  03590 03604

NUC                                               CROSS-REFERENCE                                              PAGE  159



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

E01      00004 00000DB6 05738  05679

H        00001 00000002 00392  05345
HASP     00002 00000000 03227  00199 03223 04245 04742 05593 05651 05958 05980 06016 06031 06046 06068 06090 06107 06122
                               06137 06152 06167 06182 06206 06228 06243 06267 06291 06313 06335 06356 06380 06436
HASPACT  00004 000002D8 03539  03512
HASPALL  00032 000002B8 03537  03528 03532
HASPDISP 00002 000001D8 03444  03495 03536 03550
HASPGO   00004 00000230 03484  03474
HASPNEXT 00002 0000024C 03498  03473
HASPNUC  00001 00000000 00193  00625 00715 00739 00815 01080 01094 01111 01158 01377 01423 01454 02209 02235 03070 03095
                               03137 03157 03221 03665 04693 04741 04856 05594 05938 06403
HASPNUC2 00001 00002058 03658  04691 04725 04973 05804 06417 06422
HASPOST  00004 000001FE 03462  03455 03465

HASPRET  00002 000002F4 03554  03525
HASPSCAN 00002 00000210 03470  03449 03501

HASPWAIT 00002 000002DC 03542  03514 03520 03523 03534

HDOMLOOP 00002 00000AB4 04531  04539
HDOMMIN  00002 00000AF4 04557  04343 04524
HDOMNPST 00004 00000AA8 04528  04525
HDOMRET  00004 00000AEA 04553  04537
HDOMSAVE 00004 00000AF8 04558  04520 04554
IADJUST  00002 000007EA 04189  04130 04172 04266
IADJ1    00002 000007EE 04191  04197
ICHAIN   00001 00000000 01099  04133 04136 04145 04146 04155 04196 04234 04271 04272 04284 04284
IHADCB   00001 00000000 01466  01514 01538 01566 01585 01615 01695 01756 01807 01876 02008 02025 02029 02035 02124 02130
                               02154 02175 02207
IHB0308A 00002 000020FA 04736  04732
IHERE    00002 000008C6 04280  04276

INACTIVE 00002 000007A4 04153  04122
INEXT    00002 0000077A 04135  04142
INEXT2   00004 000008B0 04272  04278

INSERT   00002 00000792 04144  04138 04140
IOBCCW1  00008 00000038 00694  04043
IOBCCW4  00008 00000050 00699  03605 03608
IOBCSW   00007 00000009 00669  05518 05530
IOBDCBPT 00004 00000014 00672  03587 03600 05503
IOBECBCC 00001 00000004 00666  05524 05621 05683
IOBERRCT 00002 0000001E 00677  05624 05624
IOBFLAG1 00001 00000000 00662  03579 03635 05635
IOBFLAG2 00001 00000001 00663  05623
IOBSEEK  00007 00000021 00681  03601 03621 03622 03623 03623 05462 05469 05474 05475 05475 05476 05477 05532
IOBSENS0 00001 00000002 00664  05531
IOBSIOCC 00001 00000010 00670  05526

IOBSTART 00004 00000010 00671  04044 05528
IOBXTENT 00001 00000020 00680  03612 05507
IPOST    00001 00000008 01101  04113 04229 04233
IPOSTIT  00002 0000082A 04222  04131 04235 04267 05763

IRETURN  00002 0000079E 04149  04157 04260 04296
IRET1    00002 000008D6 04285  04274 04283
ISAVE    00004 00000868 04244  04166 04167 04181 04182
ISAVE1   00004 0000085C 04243  04112 04150 04255
ISETINT  00002 00000804 04203  04147 04156 04286 05764
ISTANBAS 00004 00000874 04245  04168

ITCHAIN  00004 00000878 04246  04120 04133 04154 04170 04190 04204 04223 04234 04258 04271 05766
ITIMCVTH 00004 00000858 04242  04118
NUC                                               CROSS-REFERENCE                                              PAGE  160


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

ITIME    00001 00000004 01100  04114 04119 04127 04132 04139 04171 04193 04195 04210 04226 04264 04281 05769
ITIMECVT 00004 00000854 04241  04115 04289
ITIMEUP  00002 000007B4 04164  04211
JCT      00001 0000000A 00383  00970

JCTDSECT 00001 00000000 00969  00970

JCTEND   00001 00000230 01043  01078
JCTJMR   00056 000001F8 01024  01025
JCTJNAME 00008 00000070 00981  03206
JCTJOBEB 00004 0000006C 00980  03204
JCTJQE   00004 00000058 00972  01078
JCTPNAME 00020 00000078 00982  03207
JCTROOMN 00004 000000A0 00992  03205
JOEDSECT 00001 00000000 01113  01133 01146 01157
JOESIZE  00001 0000001C 01157  03146 03147

LINK     00001 0000000E 00387  03476 03484 03493 03531 03674 03690 03692 03693 03815 03927 03962 03993 03995 03997 04021
                               04026 04049 04068 04075 04095 04100 04102 04151 04331 04348 04353 04356 04359 04359 04360
                               04633 04667 04682 04687 04689 04746 05145 05295 05296 05297 05298 05305 05453 05471 05471
                               05473 05476 05481 05482 05546 05548 05719 05722 05892 05903
NE       00001 00000007 00396  03936 03940 03944

NH       00001 0000000D 00402  05234
NZ       00001 00000007 00397  04422 05423 05622 05636

OACEASMO 00004 0000005C 00703  05925
OACECHN  00004 00000034 00689  05354 05835
OACENAME 00004 00000058 00701  05921
OACEOCON 00002 0000004E 00698  05334 05454 05905 05905
OACEPCE  00004 00000558 00714  05336 05337 05347 05347 05416 05422 05422 05450 05818 05842 05893 05904 05904
OACEPRIO 00001 0000004D 00697  05351 05351 05451 05826 05826 05832 05832
OACEPROG 00004 00000060 00705  05291
OASYNMVC 00006 00002748 05934  05927

OASYNRPS 00004 00002754 05936  05917
OASYNWD  00004 00002750 05935  05923 05924
OASYN1   00004 000026BE 05895  05911
OASYN2   00004 000026D0 05900  05897
OASYN3   00004 000026EC 05907  05902

OASYN4   00004 00002716 05920  05930
OASYN5   00004 0000273A 05928  05922
OERRMSG  00004 00002058 03659  04763

OEXERR   00002 00002436 05425  05914
OEXIT    00004 0000240A 05413  03687 03716
OEX1     00004 00002418 05417  05420
OEX2     00006 00002428 05421  05418
OFIND1   00006 0000235E 05334  05356
OFIND2   00006 0000238C 05347  05335
OFIND3   00002 000023A6 05353  05350

OFIND4   00004 000023A8 05354  05348 05352
OGO      00004 0000237A 05342  05304
OLD1     00002 0000248E 05471  05466
OLD2     00004 000024A8 05478  05470
OLINK    00002 00002330 05287  03478 03686 03715 03731 03736 05283 05809

OLOAD    00002 00002338 05293  03732
OLOD     00004 00002444 05450  05361 05858
OLODSAVE 00004 000024B8 05485  05453 05482
OQUE     00004 000023C8 05379  05359

OQ1      00002 000023CC 05380  05389
OQ2      00002 000023E2 05386  05383
NUC                                               CROSS-REFERENCE                                              PAGE  161


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

OQ3      00006 000023E8 05388  05385
OQ4      00004 000023FA 05392  05387

OQ5      00004 000023FE 05393  05341 05362
ORACEOUT 00004 00002664 05842  05839
ORALLLOD 00002 000026AC 05866  05841
ORLOWIO  00002 0000264C 05834  05831
ORLOWNIO 00002 00002636 05828  05825

ORMOREQS 00002 00002600 05811  05862
ORNXTACE 00004 0000264E 05835  05817 05827 05829 05833
OROUT1   00004 00002668 05844  05856
OROUT2   00004 00002686 05853  05847
ORTSTLOD 00004 00002608 05816  05837

ORTSTWIO 00004 00002614 05819  05823
ORWTNGIO 00002 0000263C 05830  05820
OTBADDR  00004 00000000 01105  05301
OTBDSECT 00001 00000000 01104  01110 05298 05457
OTBPRIO  00001 00000000 01106  05300

OTBSIZE  00001 00000004 01110  05493
OTBTRAK  00002 00000002 01109  05459
OUNROL   00002 00002358 05307  03480
OUTWKSIZ 00001 00000065 03156  06212
OXCTL    00002 00002334 05290  03719

PCCWCHN  00008 00000150 03216  03218
PCE      00001 00000000 05282  05379 05381 05384 05388 05391 05392 05416 05417 05419 05421 05429 05451 05819 05821 05844
                               05845 05852 05853 05854 05859 05895 05899 05900 05903 05907 05909
PCEASYID 00001 00000000 00645  05550 05961
PCEBASE2 00004 00000044 00616  05706
PCEBASE3 00004 00000034 00612  05343 05379 05381 05391 05392 05429 05859 05900

PCECKPID 00001 0000000D 00658  06383
PCECONID 00001 0000000A 00655  03909 06294 06316 06338
PCEDSECT 00001 00000000 00594  00596 03072 03098 03139 03160 03784 03846 03895 04175 04472 05282 05650 05706
PCEEWF   00002 00000048 00617  03462 03471 03475 03656 03746 03784 03825 03846 03861 03895 04078 04175 04333 04593 05151

                               05394 05554 05650 05726 05765 05819 05853 05907
PCEID    00002 0000004A 00618  03486 03909 05550
PCEINRID 00001 00000004 00637  06110 06125 06140 06155 06170 06185
PCELCLID 00001 00000001 00635  06093 06231 06246 06270
PCELINK  00004 0000000C 00601  03476 03484 03493 04746 05548

PCENEXT  00004 00000008 00600  03463 03499
PCEOCON  00002 0000004E 00621  05295 05334 05388 05388
PCEOPCE  00004 00000054 00623  05336 05357 05357 05390 05416 05417 05419 05421 05421 05821 05854 05909
PCEOPRIO 00001 0000004D 00620  05300 05384 05384 05413 05414 05451
PCEORTRN 00004 00000050 00622  03674 03692 05288
PCEOUTID 00001 00000006 00651  06209
PCEPRGID 00001 00000009 00654  06359

PCEPRSID 00001 00000080 00638  06231 06246
PCEPRTID 00001 00000007 00652  06231 06246
PCEPUNID 00001 00000008 00653  06270

PCEPUSID 00001 00000040 00639  06270
PCERDRID 00001 00000001 00646  06093 06110 06125 06140 06155 06170 06185
PCER0    00004 00000014 00603  03684 03691 03703 03713 03729 03797 03906 03939 03943 05342 05393
PCER1    00004 00000018 00604  03935 03937 03941
PCER15   00004 00000010 00602  05844 05845 05852 05895 05899 05903

PCESAVEA 00004 00000000 00598  04095 04102 04682 04689
PCETHWID 00001 00000004 00649  06071
PCETIMID 00001 0000000C 00657  05983
NUC                                               CROSS-REFERENCE                                              PAGE  162


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

PCEWA    00004 0000001C 00605  03758 03814 03831 03867 03926 03978 03990 04639 04666
PCEWORK  00008 00000058 00624  03073 03092 03094 03099 03136 03140 03156 03161 03214 03215 03217 03220
PCEXEQID 00001 00000003 00648  06019 06034 06049

PCE0     00001 00000000 05942  05953
PCE1     00008 00000E00 05951  03337 05975

PCE10    00008 00001360 06130  06118 06147
PCE11    00008 00001420 06145  06133 06162
PCE12    00008 000014E0 06160  06148 06177
PCE13    00008 000015A0 06175  06163 06201
PCE14    00008 00001660 06199  06178 06223

PCE15    00008 00001720 06221  06202 06238
PCE16    00008 00001968 06236  06224 06262
PCE17    00008 00001BB0 06260  06239 06286
PCE18    00008 00001E00 06284  06263 06308
PCE19    00008 00001E58 06306  06287 06330
PCE2     00008 00000E58 05973  05954 06011
PCE20    00008 00001F50 06328  06309 06351
PCE21    00008 00001FA8 06349  06331 06375
PCE22    00008 00002000 06373  06352

PCE23    00001 00000000 06396  06376

PCE3     00008 00000EB0 06009  05976 06026
PCE4     00008 00000F60 06024  06012 06041
PCE5     00008 00001010 06039  06027 06063
PCE6     00008 000010C0 06061  06042 06085
PCE7     00008 00001120 06083  06064 06102

PCE8     00008 000011E0 06100  06086 06117
PCE9     00008 000012A0 06115  06103 06132
PRTPCEWS 00001 000001F0 03217  06234 06249
PUNPCEWS 00001 000001F8 03220  06273
QBACK1   00002 0000052E 03851  03836
QBACK2   00002 00000596 03897  03876
QBACK3   00002 000005D4 03923  03912 03914
QCOMP    00004 0000045C 03766  03757
QENTBY   00001 00000080 00932  03812
QFOUND   00002 000004D2 03811  03806

QFOUND1  00004 00000516 03843  03838

QFOUND2  00002 0000056C 03882  03878
QFOUND3  00002 0000058A 03891  03887
QGETRET  00004 000004DA 03814  03804
QINSERT  00001 0000046A 03770  03765 03767

QJITLOC  00002 00000636 03979  03786 03813 03852 03898
QLOOP    00001 00000616 03960  03968
QNEXT    00002 000004B8 03803  03809
QNEXT1   00002 0000044E 03761  03769
QNEXT2   00002 000004FC 03835  03841
QNEXT3   00002 00000550 03872  03880
QNEXT4   00002 000005B6 03913  03910 03921
QSKIP1   00001 000005C8 03918  03916
QSTORE   00002 00000630 03969  03958 03964
QTEST    00002 000005DC 03934  03805 03915
QTEST0   00004 000005F4 03941  03938

QTEST2   00004 00000604 03945  03942
QUECHAIN 00001 00000004 00922  03759 03762 03771 03772 03773 03776 03777 03777 03807 03839 03869 03873 03883 03883 03884
                               03886 03886 03919 03966
QUEENT   00004 00000144 03999  03759 03799 03833 03869 03908 03959

NUC                                               CROSS-REFERENCE                                              PAGE  163


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

QUEFLAGS 00001 00000004 00921  03848 03945
QUEFREE  00004 00000140 03998  03753 03753 03771 03773 03884 03885
QUEHOLDA 00001 00000080 00944  03945
QUEHOLD1 00001 00000040 00945  03945
QUEHOLD2 00001 00000020 00946  03945
QUEJOBNO 00001 00000002 00920  03832 03837 03868 03877 03964
QUEPRIO  00001 00000000 00918  03757 03766
QUEPRTRT 00001 0000000C 00924  03939
QUEPUNRT 00001 0000000D 00925  03943
QUEPURGE 00001 00000010 00947  03848

QUETYPE  00001 00000001 00919  03778 03812 03850 03935
QUWAIT1  00002 00000420 03744  03751
QUWAIT2  00002 00000534 03859  03866

QUWAIT3  00002 000004E0 03823  03830
RBDSECT  00004 00000040 01429  04448
RBLINK   00004 0000005C 01450  04450
RDRPCEWS 00001 00000068 03092  06096 06113 06128 06143 06158 06173 06188
R0       00001 00000000 00354  03530 03610 03611 03613 03618 03619 03620 03622 03684 03691 03703 03713 03729 03778 03797
                               03798 03798 03850 03906 03979 03979 03984 03986 03988 04043 04044 04070 04072 04099 04128
                               04132 04139 04193 04194 04195 04259 04265 04273 04281 04285 04293 04295 04313 04616 04616
                               04622 04625 04652 04652 04661 04664 04665 04686 04717 04728 04821 04822 04822 04824 04825
                               04831 04832 04833 04840 04841 04842 04846 05000 05000 05001 05002 05002 05003 05007 05020
                               05024 05025 05027 05028 05032 05034 05057 05058 05061 05103 05104 05107 05144 05166 05167
                               05170 05194 05196 05197 05198 05199 05200 05342 05393 05472 05473 05499 05515 05543 05545
                               05587 05591 05735 05738 05746 05845 05846 05848 05849 05851 05852 05895 05896 05898 05899

R1       00001 00000001 00355  03471 03472 03516 03517 03518 03519 03528 03575 03582 03621 03635 03643 03652 03755 03755

                               03757 03775 03777 03779 03799 03802 03802 03803 03803 03807 03807 03808 03808 03812 03832
                               03851 03868 03868 03877 03897 03908 03913 03913 03919 03919 03920 03920 03925 03935 03939

                               03943 03945 03947 03947 03958 03959 03961 03961 03964 03966 03966 03967 03967 03980 03980
                               03981 03982 03987 03988 03989 03996 03996 04008 04019 04020 04020 04037 04037 04042 04052
                               04054 04057 04058 04063 04064 04064 04065 04065 04097 04104 04113 04114 04119 04123 04127
                               04128 04136 04137 04137 04139 04141 04146 04154 04155 04170 04171 04171 04194 04226 04227
                               04227 04229 04231 04257 04264 04265 04268 04270 04270 04275 04350 04350 04406 04407 04407
                               04409 04411 04420 04427 04427 04429 04521 04538 04541 04548 04556 04590 04590 04596 04597
                               04624 04625 04628 04645 04647 04647 04653 04654 04657 04683 04727 04728 04729 04738 04820
                               04846 04969 04997 04998 05004 05006 05021 05021 05023 05024 05026 05027 05029 05030 05032
                               05033 05033 05057 05059 05059 05061 05098 05099 05106 05142 05164 05167 05168 05170 05172
                               05196 05199 05216 05217 05217 05218 05221 05222 05360 05416 05417 05419 05419 05421 05426
                               05427 05427 05429 05450 05451 05454 05455 05456 05457 05460 05461 05479 05498 05542 05557
                               05661 05662 05662 05668 05747 05752 05818 05819 05821 05821 05822 05822 05842 05844 05845

                               05852 05853 05854 05854 05855 05855 05857 05890 05893 05895 05899 05900 05903 05907 05909
                               05909 05910 05910 05920 05927 05928

R10      00001 0000000A 00364  00383 04433 04460 04465 04969 04970 05220 05640 05646

R11      00001 0000000B 00365  00384 04463
R12      00001 0000000C 00366  00385 03561 04439 04444 04453 04968 05148 05219 05641 05643 05644
R13      00001 0000000D 00367  00386 03559 03560 03560 03561 04437 04438 04441 04442 04442 04444 04446 04448 04450 04451
                               04452 04453 04456 04460 04464 04968 05148 05219
R14      00001 0000000E 00368  00387 03245 03557 03561 03562 03642 04183 04207 04216 04408 04422 04428 04461 04462 04464
                               04520 04551 04554 04555 04968 04983 05023 05026 05029 05071 05092 05093 05121 05148 05219
                               05622 05636 05648
R14TEMP  00004 0000087C 04247  04207 04216
R15      00001 0000000F 00369  03227 03228 03229 03244 03244 03487 03556 03558 03657 03747 03826 03862 04079 04165 04169
                               04320 04321 04322 04322 04330 04330 04334 04341 04342 04343 04345 04351 04353 04433 04459
                               04461 04465 04523 04524 04528 04528 04529 04531 04540 04594 04619 04621 04621 04622 04624
                               04995 05020 05034 05035 05122 05152 05214 05234 05236 05288 05291 05344 05345 05346 05453

NUC                                               CROSS-REFERENCE                                              PAGE  164


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

                               05459 05462 05463 05464 05467 05474 05482 05500 05501 05503 05504 05505 05506 05508 05509

                               05510 05517 05518 05519 05519 05520 05528 05529 05555 05586 05589 05618 05632 05637 05638
                               05652 05707 05708 05710 05732 05772 05915 05919 05931
R2       00001 00000002 00356  00375 04520 04530 04531 04533 04533 04534 04535 04536 04536 04538 04548 04554 04656 04657
                               04663 04999 05001 05009 05010 05024 05027 05032 05123 05124 05125 05128 05165 05191 05194
                               05197 05587 05614 05642 05642 05644 05652
R3       00001 00000003 00357  00376 04434 04435 04436 04464 04466 04657 04658 04659 04659 04976 04977 05008 05100 05120
                               05132 05215 05232 05232 05233 05235
R4       00001 00000004 00358  00377 04978 05062 05121 05131 05173 05615 05652
R5       00001 00000005 00359  00378 04979 05125 05126 05127
R6       00001 00000006 00360  00379 04980 04981 05046 05047 05048 05062 05120 05132 05192 05193 05194 05197 05198 05200
                               05204 05205 05206 05207 05208 05209
R7       00001 00000007 00361  00380 04982 04982 05058 05071 05092 05093 05094 05096 05096 05097 05099 05104 05107 05169

                               05169 05173 05202 05203 05205 05210 05211 05616 05652
R8       00001 00000008 00362  00381 00382 04994 05062 05070 05101 05102 05102 05108 05128 05129 05131 05164 05165 05193
                               05201 05202

SAVE     00001 0000000D 00386  00596 03446 03463 03464 03464 03467 03499 03500 03500 04071 04472 05337 05360 05392 05417
SCKEND   00004 00000B54 04622  04620
SECBADDR 00004 00000B78 04634  04628
SGETBUF  00004 00000B30 04596  04587
SRTEASCI 00001 00000004 02630  02631
SRTEBSTR 00001 00000004 02629  02632
SRTEVOLI 00006 0000001C 02623  05513
STRYNXT  00004 00000B50 04621  04623
TADNEIGH 00004 00000C88 04839  04971
TALLOC   00004 00002282 05191  05105 05109
TBIT8    00004 0000230C 05250  05098
TCBDSECT 00001 00000000 01380  04437 04438

TCBRBP   00004 00000000 01381  04446
TCBTCB   00004 00000074 01401  04437 04441
TCTCYMAP 00050 00000008 04855  05198 05200
TCTCYMXM 00004 00000000 04852  04826 04829 04831 04833 04843 04844 05209 05213

TCTDSECT 00001 00000000 04851  04820 04970
TCTMTTR  00004 00000004 04853  04821 04825 04826 04842 04844 05211 05212 05221
TEDDSECT 00001 00000000 01083  01093 03617 04977
TEDFIRST 00004 00002300 05238  05235
TEDLAST  00004 00002304 05239  05233
TEDSIZ   00001 00000014 01093  04772 05232

TEMPSAVE 00004 00000A54 04470  03582 03583 04456 04457
TFIRST   00004 00000CAC 04968  04823 04845 05153
TF8      00004 00002194 05037  05003
TIMER1   00004 00000DF8 05772  05768
TNALLOC  00002 000021C2 05092  05060
TNBYTE   00004 000021EE 05105  05108
TNCH     00004 00000000 01084  03618 04997
TNEIGH   00002 00002108 04975  04839 04974 05163

TNEXTEXT 00004 00002308 05240  04976 05215
TNEXTONE 00004 000022EE 05232  04995 05122 05214

TNLOOP   00004 00002198 05047  05071
TNLUPE   00004 000021A0 05057  05070
TNMB     00002 00000012 01091  05004 05030 05126
TNMD     00002 00000008 01086  05208 05210
TNMO     00002 00000010 01090  05009 05124 05192
TNSET1   00004 00002170 05027  05022
TNSET2   00002 00002186 05033  05031
NUC                                               CROSS-REFERENCE                                              PAGE  165



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

TNSXDL   00004 000021A4 05058  04984 05049
TNTC     00004 00000004 01085  03620
TNTEST   00002 000021A8 05059  05036
TNTG     00002 0000000E 01089  04999 05203 05204

TNWKAREA 00016 00002310 05252  04978 05047 05048
TNWKBIT  00002 00002316 05255  05007 05097
TNWKBYTE 00002 00002314 05254  05006 05101

TNWKEDA  00004 00002310 05253  05008 05100
TNWKEND  00001 00002330 05260  04979
TNWKR0   00004 00002318 05256  05057 05061
TNWKSTRT 00004 00002310 05251  04980 04981
TPBUF    00001 00000080 00720  05522
TRAKMSG  00022 0000224C 05154  05142 05146
TRECF1   00004 00000C80 04837  04832

TRECINCR 00004 00000C7C 04836  04824
TRECORD  00004 00000C54 04825  04834
TTRACK   00004 00000C8C 04840  04830
TTRACK1  00002 00000CA6 04846  04827
TTRKF256 00004 00000C84 04838  04840 04841

TWALLOC  00002 00002282 05175  05171
TWBYTE   00004 00002262 05164  05130
TWHOLE   00002 00002200 05120  05005 05079
TWLOOP   00004 00002204 05122  05133

TWLOOP2  00002 00002274 05170  05173
TWLUPE   00004 0000221A 05129  05131
UCBALOC  00001 00000008 02381  02499
UCBBALB  00001 00000020 02536  02626
UCBBJLB  00001 00000002 02544  02633
UCBBNUL  00001 00000001 02545  02634

UCBBPRV  00001 00000010 02540  02627
UCBBPUB  00001 00000008 02541  02628
UCBBSTR  00001 00000004 02542  02629 02630
UCBBSVL  00001 00000080 02530  02625
UCBCHGS  00001 00000040 02378  02496

UCBDADI  00001 00000001 02386  02502
UCBDBBNR 00002 00000038 02819  02855
UCBDCELL 00016 00000038 02817  02854
UCBDDMCT 00001 00000043 02845  02860
UCBDEV   00001 00000018 02509  02518 02645 02679 02695 02715 02797

UCBDJBNR 00001 00000042 02844  02859
UCBDMCT  00001 00000023 02548  02635
UCBDSECT 00001 00000000 02237  05510 05616
UCBDSTAB 00001 0000003A 02820  02856
UCBDSTAT 00001 0000003B 02832  02857

UCBDUSER 00001 00000047 02852  02862
UCBDVOLI 00006 0000003C 02843  02858
UCBDVTOC 00003 00000044 02851  02861
UCBFL1   00001 00000006 02394  02503
UCBFSCT  00002 00000024 02553  02636

UCBFSEQ  00002 00000026 02554  02637
UCBJBNR  00001 00000000 02343  02492
UCBMONT  00001 00000001 02353  02493
UCBNAME  00003 0000000D 02441  05516
UCBONLI  00001 00000080 02377  02495
UCBPRES  00001 00000004 02382  02500

NUC                                               CROSS-REFERENCE                                              PAGE  166


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

UCBRESV  00001 00000020 02379  02497
UCBSTAB  00001 00000022 02529  02624

UCBSTAT  00001 00000003 02376  02494
UCBSYSR  00001 00000002 02383  02501
UCBTBYT3 00001 00000012 02461  05511
UCBUNLD  00001 00000010 02380  02498
UCBUSER  00001 00000038 02605  02638 02811

UCBVOLI  00006 0000001C 02528  02623
UCB3DACC 00001 00000020 02464  05511
UDRMSG   00019 00000720 04106  04094 04097 04101
UNICLI   00004 00000698 04059  04057 04066
UNIFOUND 00004 000006B8 04070  04062
UNIFREE  00004 000006CA 04078  04083
UNINEXT  00004 000006A8 04063  04060

UNOAVAIL 00004 000006F4 04091  04088
VCYLTOTL 00004 00000BCC 04671  04664
VL1      00004 00000BA0 04657  04663

VL2      00002 00000BA8 04659  04662
WA       00001 00000002 00375  03574 03576 03577 03639 03643 03687 03716 03758 03759 03762 03768 03771 03772 03772 03773
                               03775 03776 03777 03778 03779 03782 03784 03805 03814 03831 03832 03837 03844 03846 03867
                               03869 03873 03879 03883 03893 03895 03915 03926 03936 03940 03944 03946 03948 03978 03981
                               03989 03990 04112 04115 04116 04116 04118 04120 04121 04121 04127 04130 04131 04133 04136

                               04141 04145 04147 04150 04155 04156 04166 04172 04173 04175 04181 04192 04206 04217 04225
                               04228 04255 04258 04259 04264 04266 04267 04271 04272 04277 04284 04286 04287 04287 04290
                               04292 04639 04640 04645 04666 04746 04747 04748 05333 05333 05349 05349 05351 05353 05358
                               05361 05380 05392 05415 05423 05428 05483 05497 05548 05557 05669 05672 05677 05678 05680
                               05684 05685 05692 05693 05694 05694 05699 05707 05763 05764 05766 05767 05767 05769 05769
                               05770 05770 05812 05812 05824 05824 05826 05828 05838 05858 05914 05917 05918 05920 05921
                               05923 05928 05928 05929 05934
WB       00001 00000003 00376  03574 03584 03585 03585 03586 03609 03610 03611 03612 03614 03615 03616 03617 03636 03637

                               03637 03638 03639 03643 03758 03762 03763 03763 03764 03764 03766 03768 03776 03797 03831
                               03833 03835 03835 03837 03839 03839 03840 03840 03848 03850 03851 03867 03873 03874 03874

                               03875 03875 03877 03879 03883 03884 03885 03886 03886 03897 03906 03907 03907 03917 03917
                               03925 03926 03978 03990 04114 04119 04166 04181 04190 04191 04191 04193 04195 04196 04196
                               04204 04205 04205 04210 04223 04224 04224 04226 04229 04233 04234 04272 04273 04275 04277
                               04281 04284 04288 04293 04295 04639 04666 05379 05380 05381 05381 05382 05382 05384 05386
                               05388 05390 05391 05686 05686 05687 05688 05690 05691 05706 05813 05813 05830 05830 05832

                               05834 05840 05924 05925 05926 05926 05934
WC       00001 00000004 00377  03477 03478 03482 03684 03685 03686 03691 03694 03703 03704 03705 03713 03714 03715 03720
                               03729 03730 03731 03733 04112 04123 04132 04145 04146 04150 04255 04257 04268 04282 04282
                               04285 04288 04289 04290 04291 04292 05283 05342 05393 05484 05808 05809 05891 05932
WCMBFF   00001 00000010 00752  04318 04339
WCONBASE 00004 000009A4 04364  04352
WCONBUF  00004 000009A0 04363  04351
WD       00001 00000005 00378  03503 03504 03504 05857 05859 05859 05860 05861 05861
WFMLOOP  00004 000009FE 04441  04445

WFMLOOPR 00004 00000A16 04450  04458

WFMOUT   00004 00000A44 04465  04443 04454
WFMPARMS 00004 00000A78 04483  04460
WFMSAVE  00004 00000A5C 04480  04433 04463 04465
WFMSAV3  00004 00000A58 04479  04434 04466
WFMSTORE 00004 000009EA 04433  04417

WFMTCBA  00004 00000A80 04485  04439
WFMWHAT  00006 000009CC 04418  04468
WFMWHAT1 00002 000009E2 04424  04419
NUC                                               CROSS-REFERENCE                                              PAGE  167


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

WFWAIT   00001 00000004 04365  04328
WSAVBASE 00004 0000099C 04362  04349 04355
WSAVLINK 00004 00000998 04361  04313 04318 04328 04337 04339 04348 04356
WSETRTN  00002 0000094C 04336  04317 04324
WSETRTNA 00004 0000096E 04348  04338 04340

WTOWAIT  00002 0000092E 04325  04319 04344

XEQPCEWS 00001 00000058 03136  06022 06037 06052
XOUTENT  00001 00000010 03130  03131 03132
Z        00001 00000008 00399  03946 05428
NUC                                               LITERAL CROSS-REFERENCE                                      PAGE  168



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

=V(HASPINGO)
         00004 00000C18 04761  03228
=A($EWFOROL)
         00004 00000C1C 04762  03472
=A(OERRMSG)
         00004 00000C20 04763  03652
=A($CKPTPCE)
         00004 00000C24 04764  03782 03844 03893
=A(16)   00004 00000C28 04765  03984
=A(8)    00004 00000C2C 04766  03986

=A($TIMEPCE)
         00004 00000C30 04767  04173
=V($WCOMRES)
         00004 00000C34 04768  04320

=A(DISASTER)
         00004 00000C38 04769  04683
=CL4'H01'
         00004 00000C3C 04770  04717
=A(ERROR)
         00004 00000C40 04771  04723
=AL2(TEDSIZ)
         00002 00000C44 04772  03615
=V(HASPOTAB)
         00004 000024C8 05491  05297 05456
=V($OLAYDCT)
         00004 000024CC 05492  05460

=Y(OTBSIZE)
         00002 000024D0 05493  05296 05455
NUC                                               ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE  169



                                                                                                 ASM 0201 20.02 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT       2894
TOTAL RECORDS READ FROM SYSTEM LIBRARY    10075
TOTAL RECORDS PUNCHED                       224
TOTAL RECORDS PRINTED                      7017

OBLD                                           EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.02 08/28/78

HASPOBLD  SD  0001 000000 009260
OBLD                                                                                                           PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                      1 *                                                                  RFIT O0000000
                                      2 *                            KILL ALL 370 INSTRUCTIONS             RFIT O0000010
                                      3 *                                                                  RFIT O0000020
                                      4 MVCL     OPSYN ,                                                   RFIT O0000030
                                      5 CLCL     OPSYN ,                                                   RFIT O0000040
                                      6 SIOF     OPSYN ,                                                   RFIT O0000050
                                      7 HDV      OPSYN ,                                                   RFIT O0000070

                                      8 STNSM    OPSYN ,                                                   RFIT O0000080
                                      9 STOSM    OPSYN ,                                                   RFIT O0000090
                                     10 MC       OPSYN ,                                                   RFIT O0000110
                                     11 LRA      OPSYN ,                                                   RFIT O0000120

                                     12 STCTL    OPSYN ,                                                   RFIT O0000130
                                     13 LCTL     OPSYN ,                                                   RFIT O0000140
                                     14 CLM      OPSYN ,                                                   RFIT O0000180
                                     15 STCM     OPSYN ,                                                   RFIT O0000190
                                     16 ICM      OPSYN ,                                                   RFIT O0000200
                                     17 STIDP    OPSYN ,                                                   RFIT O0000210

                                     18 STIDC    OPSYN ,                                                   RFIT O0000220
                                     19 SCK      OPSYN ,                                                   RFIT O0000230
                                     20 STCK     OPSYN ,                                                   RFIT O0000240
                                     21 SCKC     OPSYN ,                                                   RFIT O0000250
                                     22 STCKC    OPSYN ,                                                   RFIT O0000260
                                     23 SPT      OPSYN ,                                                   RFIT O0000270
                                     24 STPT     OPSYN ,                                                   RFIT O0000280
                                     25 PTLB     OPSYN ,                                                   RFIT O0000310

                                     26 RRB      OPSYN ,                                                   RFIT O0000350
                                     27 SRP      OPSYN ,                                                   RFIT O0000360

OBLD     HASP OVERLAY BUILDER - PUTS OVERLAY CSECTS IN OLAYLIB, PASSES RESIDENT CSECTS TO OS LINKAGE EDITOR    PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                     29          COPY  $GLOBAL                                                  O0006000
                                     30 *                                                                       GL002000
                                     31 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                     32 *                                                                       GL006000



                                     34          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000

                                     35          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000
                                     36          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                     37          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000
                                     38          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000






                                     40 *                                                                       GL032000
                                     41 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000

                                     42 *                                                                       GL036000



                                     44          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000
                                     45          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                     46          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000
                                     47          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                     48          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000

                                     49          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000
                                     50          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                     51          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000
                                     52          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000
                                     53          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000

                                     54          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000
                                     55          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                     56          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000
                                     57          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000

                                     58          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000
                                     59          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000
                                     60          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                     61          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200
                                     62          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300
                                     63          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000

                                     64          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000
                                     65          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                     66          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000
                                     67          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                     68          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000

                                     69          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000
                                     70          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000
                                     71          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                     72          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000
                                     73          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000

                                     74          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000
OBLD     HASP OVERLAY BUILDER - PUTS OVERLAY CSECTS IN OLAYLIB, PASSES RESIDENT CSECTS TO OS LINKAGE EDITOR    PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                     76 *                                                                       GL116000
                                     77 *                             O/S INTERFACE PARAMETERS                  GL118000

                                     78 *                                                                       GL120000



                                     80          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000
                                     81          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                     82          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000

                                     83          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000
                                     84          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000
                                     85          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000
                                     86          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                     87          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000
                                     88          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000

                                     89          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000
                                     90          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                     91          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200
                                     92          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300

                                     93          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400





                                     95 *                                                                       GL150000
                                     96 *                             HASP OPTION PARAMETERS                    GL152000

                                     97 *                                                                       GL154000



                                     99          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000
                                    100          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000
                                    101          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000
                                    102          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000
                                    103          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000

                                    104          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000
                                    105          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000
                                    106          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000

                                    107          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000
                                    108          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000
                                    109          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100
                                    110          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500
                                    111          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000

                                    112          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                    113          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000
                                    114          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                    115          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000
                                    116          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000
                                    117          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000
                                    118          GBLB  &DEBUG              DEBUG MODE                           GL186000
                                    119          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000

                                    120          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000
OBLD     HASP OVERLAY BUILDER - PUTS OVERLAY CSECTS IN OLAYLIB, PASSES RESIDENT CSECTS TO OS LINKAGE EDITOR    PAGE    5



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    122 *                                                                       GL226000
                                    123 *                             REMOTE JOB ENTRY PARAMETERS               GL228000
                                    124 *                                                                       GL230000




                                    126          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                    127          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000
                                    128          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000
                                    129          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    130          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000
                                    131          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000
                                    132          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000
                                    133          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000
                                    134          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000







                                    136 *                                                                       GL260000
                                    137 *                             INTERNAL GENERATION PARAMETERS            GL262000
                                    138 *                                                                       GL264000




                                    140          GBLC  &VERSION            HASP VERSION                         GL270000
                                    141          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000
                                    142          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                    143          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000
                                    144          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500
                                    145          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000
                                    146          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500
                                    147          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                    148          GBLA  &LOW                OVERLAY PRIORITY                     GL280000

                                    149          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000

                                    150          GBLA  &HIGH                 PARAMETER VALUES                   GL284000
                                    151          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000
                                    152          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000
                                    153          GBLA  &MAXESID            MAX ESID NUMBER IN AN OBJECT MODULE  O0008000
                                    154          GBLA  &SYMAREA            SIZE OF SYMBOL TABLE AREA            O0010000

                                    155          GBLA  &WRKAREA            SIZE OF WORK AREA                    O0012000
OBLD     HASP OVERLAY BUILDER - PUTS OVERLAY CSECTS IN OLAYLIB, PASSES RESIDENT CSECTS TO OS LINKAGE EDITOR    PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                              158 HASPOBLD START 0                                                        O0018000





                                    160          COPY  $HASPGEN                                                 O0022000
OBLD     HASPGEN PARAMETER VALUES                                                                              PAGE    7



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    162 *                                                                       HA004000
                                    163 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000
                                    164 *                                                                       HA008000




                                    166 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000
                                    167 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                    168 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000
                                    169 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000
                                    170 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000




                                    172 *                                                                       HA028000
                                    173 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000
                                    174 *                                                                       HA032000




                                    176 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000
                                    177 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000
                                    178 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000
                                    179 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000

                                    180 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000
                                    181 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                    182 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000
                                    183 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000
                                    184 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000
                                    185 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000
                                    186 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    187 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000
                                    188 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000
                                    189 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000
                                    190 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000
                                    191 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000

                                    192 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000
                                    193 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                    194 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200

                                    195 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300
                                    196 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                    197 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000
                                    198 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                    199 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000
                                    200 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000
                                    201 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                    202 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000
                                    203 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000
                            0003C   204 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000
OBLD     HASPGEN PARAMETER VALUES                                                                              PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    207 *                                                                       HA100000

                                    208 *                             O/S INTERFACE PARAMETERS                  HA102000
                                    209 *                                                                       HA104000



                                    211 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                    212 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000
                                    213 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000
                                    214 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000
                                    215 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000
                                    216 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000
                                    217 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                    218 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                    219 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000

                                    220 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100
                                    221 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200

                                    222 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300

                                    223 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400



                                    225 *                                                                  RFIT HA125600
                                    226 *                             HASP SVC NUMBER                      RFIT HA125700
                                    227 *                                                                  RFIT HA125800
                                    228          COPY  $INITSVC                                            RFIT HA125900
                                    229 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT





                                    231 *                                                                       HA130000
                                    232 *                             HASP OPTION PARAMETERS                    HA132000
                                    233 *                                                                       HA134000




                                    235 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000
                                    236 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000

                                    237 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000
                                    238 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000
                                    239 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                    240 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000
                                    241 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    242 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000
                                    243 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000
                                    244 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000
                                    245 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100
                                    246 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500
                                    247 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
OBLD     HASPGEN PARAMETER VALUES                                                                              PAGE    9



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    248 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500
                                    249 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                    250 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000

                                    251 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                    252 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000
                                    253 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                    254 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000
                                    255 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                    256 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000

OBLD     HASPGEN PARAMETER VALUES                                                                              PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    259 *                                                                       HA174000
                                    260 *                             REMOTE JOB ENTRY PARAMETERS               HA176000
                                    261 *                                                                       HA178000




                                    263 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000
                                    264 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000

                                    265 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000
                                    266 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000
                                    267 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                    268 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000
                                    269 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000
                                    270 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000
                                    271 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000






                                    273 *                                                                       HA202000
                                    274 *                             INTERNAL GENERATION PARAMETERS            HA204000
                                    275 *                                                                       HA206000




                                    277 &VERSION SETC  '4.0'               HASP VERSION                         HA210000
                                    278 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000
                                    279 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000

                                    280 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                    281 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000
                                    282 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                    283 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000
                                    284 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500
                                    285 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                    286 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000

                                    287 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000
                                    288 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000
                                    289 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000
                                    290 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
OBLD     HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   11



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    293 *                                                                       HA234000

                                    294 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000
                                    295 *                                                                       HA238000



                            00000   297 R0       EQU   0                                                        HA242000
                            00001   298 R1       EQU   1                                                        HA244000
                            00002   299 R2       EQU   2                                                        HA246000

                            00003   300 R3       EQU   3                                                        HA248000
                            00004   301 R4       EQU   4                                                        HA250000
                            00005   302 R5       EQU   5                                                        HA252000
                            00006   303 R6       EQU   6                                                        HA254000
                            00007   304 R7       EQU   7                                                        HA256000

                            00008   305 R8       EQU   8                                                        HA258000
                            00009   306 R9       EQU   9                                                        HA260000
                            0000A   307 R10      EQU   10                                                       HA262000
                            0000B   308 R11      EQU   11                                                       HA264000
                            0000C   309 R12      EQU   12                                                       HA266000

                            0000D   310 R13      EQU   13                                                       HA268000
                            0000E   311 R14      EQU   14                                                       HA270000
                            0000F   312 R15      EQU   15                                                       HA272000






                                    314 *                                                                       HA276000
                                    315 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000
                                    316 *                                                                       HA280000



                            00002   318 WA       EQU   R2                  WORK REGISTER A                      HA284000

                            00003   319 WB       EQU   R3                  WORK REGISTER B                      HA286000
                            00004   320 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   321 WD       EQU   R5                  WORK REGISTER D                      HA290000
                            00006   322 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007   323 WF       EQU   R7                  WORK REGISTER F                      HA294000
                            00008   324 WG       EQU   R8                  WORK REGISTER G                      HA296000

                            00008   325 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000
                            0000A   326 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000
                            0000B   327 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000
                            0000C   328 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000

                            0000D   329 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000
                            0000E   330 LINK     EQU   R14                 LINK REGISTER                        HA308000
OBLD     HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












                            00000   333 NOP      EQU   0                   NO-OP                                HA314000
                            00001   334 O        EQU   1                   ONES OR OVERFLOW                     HA316000
                            00002   335 H        EQU   2                   HIGH                                 HA318000
                            00002   336 P        EQU   2                   PLUS                                 HA320000

                            00004   337 L        EQU   4                   LOW                                  HA322000
                            00004   338 M        EQU   4                   MINUS OR MIXED                       HA324000
                            00007   339 NE       EQU   7                   NOT EQUAL                            HA326000

                            00007   340 NZ       EQU   7                   NOT ZERO                             HA328000
                            00008   341 E        EQU   8                   EQUAL                                HA330000
                            00008   342 Z        EQU   8                   ZERO                                 HA332000
                            0000B   343 NL       EQU   11                  NOT LOW                              HA334000
                            0000B   344 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000

                            0000D   345 NH       EQU   13                  NOT HIGH                             HA338000
                            0000D   346 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   347 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
OBLD     HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    349 *                                                                       HA346000
                                    350 *                             BIT DEFINITIONS                           HA348000
                                    351 *                                                                       HA350000




                            00080   353 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000

                            00040   354 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000
                            00020   355 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000
                            00010   356 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000
                            00008   357 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000
                            00004   358 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000

                            00002   359 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000
                            00002   360 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001   361 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000
                                    362 *                                                                       HA370000
                            00080   363 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000
                            00040   364 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020   365 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   366 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000

                            00008   367 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000
                            00004   368 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000

                            00002   369 $EWF15   EQU   X'02'               SPARE                                HA384000
                            00001   370 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000





                                    372 *                                                                       HA390000

                                    373 *                             BYTE DEFINITIONS                          HA392000
                                    374 *                                                                       HA394000



                            00000   376 $EWBPOST EQU   0                   BYTE 0                               HA398000
                            00000   377 $EWBBUF  EQU   0                   BYTE 0                               HA400000
                            00000   378 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   379 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000   380 $EWBUNIT EQU   0                   BYTE 0                               HA406000
                            00000   381 $EWBCKPT EQU   0                   BYTE 0                               HA408000

                            00000   382 $EWBCMB  EQU   0                   BYTE 0                               HA410000

                            00000   383 $EWBSMF  EQU   0                   BYTE 0                               HA411000
                            00000   384 $EWBJOT  EQU   0                   BYTE 0                               HA412000
                                    385 *                                                                       HA414000
                            00001   386 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001   387 $EWBIO   EQU   1                   BYTE 1                               HA418000

                            00001   388 $EWBWORK EQU   1                   BYTE 1                               HA420000
                            00001   389 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001   390 $EWBDDB  EQU   1                   BYTE 1                               HA424000
                            00001   391 $EWBOLAY EQU   1                   BYTE 1                               HA426000
                            00001   392 $EWB15   EQU   1                   BYTE 1                               HA428000
                            00001   393 $EWBOROL EQU   1                   BYTE 1                               HA430000
OBLD     HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    396 *                                                                       HA436000

                                    397 *                             LOGICAL CONSOLE DEFINITIONS               HA438000
                                    398 *                                                                       HA440000



                            00001   400 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000

                            00002   401 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000
                            00004   402 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008   403 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000
                            00010   404 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000
                            00020   405 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000
                            00040   406 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   407 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   408 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000
                            00000   409 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000






                                    411 *                                                                       HA466000
                                    412 *                             MESSAGE CLASS DEFINITIONS                 HA468000
                                    413 *                                                                       HA470000




                            00010   415 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000
                            00030   416 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050   417 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000
                            00070   418 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000
                            00080   419 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000




                                    421 *                                                                       HA484000
                                    422 *                             MESSAGE PRIORITY DEFINITIONS              HA486000
                                    423 *                                                                       HA488000



                            00001   425 $LO      EQU   1                   LOW PRIORITY                         HA492000

                            00004   426 $ST      EQU   4                   STANDARD PRIORITY                    HA494000
                            00007   427 $HI      EQU   7                   HIGH PRIORITY                        HA496000
OBLD     HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   15



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    430 *                                                                       HA502000
                                    431 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000
                                    432 *                                                                       HA506000



                            00080   434 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000
                            00000   435 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000
                            00040   436 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000
                            00000   437 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000
                            00020   438 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000

                            00000   439 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000

                            00010   440 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000
                            00000   441 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000

                            00008   442 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000
                            00000   443 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000
                            00004   444 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000   445 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000





                                    447 *                                                                       HA536000
                                    448 *                             HASP STATUS BIT DEFINITIONS               HA538000
                                    449 *                                                                       HA540000



                            00080   451 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040   452 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000

                            00020   453 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000
                            00010   454 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000

                            00008   455 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000

                            00004   456 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000
                            00002   457 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000
OBLD     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    460 *                                                                       HA560000
                                    461 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000
                                    462 *                                                                       HA564000



                                    464 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                    465 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000

                                    466 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000
                                    467 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000
                                    468 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000

                                    469 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000
                                    470 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000
                                    471 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                    472 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000





                                    474 *                                                                       HA588000
                                    475 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000
                                    476 *                                                                       HA592000



                                    478 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                    479 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000

                                    480 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000
                                    481 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                    482 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                    483 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000

                                    484 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                    485 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000
                                    486 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
OBLD     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    489 *                                                                       HA618000
                                    490 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000
                                    491 *                                                                       HA622000



                                    493 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000
                                    494 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000
                                    495 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000

                                    496 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000
                                    497 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000

                                    498 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000
                                    499 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000
                                    500 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                    501 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000





                                    503 *                                                                       HA646000
                                    504 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000

                                    505 *                                                                       HA650000



                                    507 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000
                                    508 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                    509 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000

                                    510 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000
                                    511 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000
                                    512 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000

                                    513 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                    514 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000
                                    515 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
OBLD     HASP OVERLAY BUILDER - INTERNAL GENERATION PARAMETERS                                                 PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












                                    518 &MAXESID SETA  255                 MAX ESID NUMBER IN AN OBJ MOD        O0028000
                                    519 &SYMAREA SETA  8*1024              SIZE OF SYMBOL TABLE AREA            O0030000
                                    520 &WRKAREA SETA  24*1024             SIZE OF WORK AREA                    O0032000






                                    522          $HASPCB DCB,DEB,BUFFER,OTB,DOC=YES                             O0036000
OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   19



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    524+*,***  IHB069  DEVD NOT SPECIFIED-ALL ASSUMED


                                    526+*                       DCB SYMBOLIC DEFINITION FOR                     07700000
                                    527+*                       PHYSICAL SEQUENTIAL                             07900000


                                    529+*********************************************************************** 09960021
                                    530+*  OS     RELEASE 21.8, 03/22/74                                      * 10000021
                                    531+*  OS/VS1 RELEASE 03.1, 03/22/74                                      * 10010021
                                    532+*********************************************************************** 10020021


000000                              534+IHADCB   DSECT , -            DCBPTR                                    10150000

                            00080   536+DCBBIT0  EQU   128                                                      10210021
                            00040   537+DCBBIT1  EQU   64                                                       10220021
                            00020   538+DCBBIT2  EQU   32                                                       10230021

                            00010   539+DCBBIT3  EQU   16                                                       10240021
                            00008   540+DCBBIT4  EQU   8                                                        10242021
                            00004   541+DCBBIT5  EQU   4                                                        10244021
                            00002   542+DCBBIT6  EQU   2                                                        10246021
                            00001   543+DCBBIT7  EQU   1                                                        10248021


                                    545+*                       DEVICE INTERFACES                               10350000

                                    547+*                       DIRECT ACCESS DEVICES                           10500000


000000                              549+DCBRELAD DS    CL4 -          PARTITIONED ORGANIZATION DATA SET -       10600000
                                    550+*                             ADDRESS (IN THE FORM TTRN) OF MEMBER      10650000
                                    551+*                             CURRENTLY USED.  ---                      10700000
                                    552+*                             SYS1.LOGREC DATA SET - IF CCH OPTION HAS  10750000
                                    553+*                             BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS 10800000
                                    554+*                             OF A 12-BYTE PARAMETER IN THE EXPANSION   10850000

                                    555+*                             OF MACRO INSTRUCTION IGFCATAP             10900000
000004                              556+DCBKEYCN DS    FL1 -          KEYED BLOCK OVERHEAD CONSTANT             10950000
000005                              557+DCBFDAD  DS    CL8 -          FULL DISK ADDRESS IN THE FORM OF MBBCCHHR 11000000
                                    558+*                             OF RECORD THAT WAS JUST READ OR WRITTEN   11050000


00000D                      0000C   560+         ORG   DCBFDAD+7                                                11150000
00000C                              561+DCBDVTBL DS    0A -           SAME AS DCBDVTBA BELOW                    11200000
00000C                              562+         DS    X -            LAST BYTE OF DCBFDAD                      11250000
00000D                              563+DCBDVTBA DS    AL3 -          ADDRESS OF ENTRY IN I/O DEVICE            11300000

                                    564+*                             CHARACTERISTICS TABLE FOR DEVICE BEING    11350000
                                    565+*                             USED                                      11400000
000010                              566+         DS    FL1 -          DCBKEYLE - KEY LENGTH OF DATA SET         11450000
000011                              567+         DS    C -            DCBDEVT - DEVICE TYPE                     11500000
                                    568+*   FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION      11550000
                            00021   569+DCBDV311 EQU   X'21' -        2311 DISK DRIVE                           11600000

                            00022   570+DCBDV301 EQU   X'22' -        2301 PARALLEL DRUM                        11650000
                            00023   571+DCBDV303 EQU   X'23' -        2303 SERIAL DRUM                          11700000
                            00024   572+DCBDV302 EQU   X'24' -        2302 DISK STORAGE                         11750000
                            00025   573+DCBDV321 EQU   X'25' -        2321 DATA CELL DRIVE                      11800000

                            00028   574+DCBDV314 EQU   X'28' -        2314 DISK STORAGE FACILITY                11850000
000012                              575+DCBTRBAL DS    H -            TRACK BALANCE.  NUMBER OF BYTES REMAINING 11900000
                                    576+*                             ON CURRENT TRACK AFTER A WRITE OPERATION  11950000
                                    577+*                             (THIS QUANTITY MAY BE NEGATIVE IF THERE   12000000
OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   20



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    578+*                             ARE NO BYTES REMAINING ON TRACK).         12050000

                                    580+*                       MAGNETIC TAPE                                   12200000

000014                      00000   582+         ORG   IHADCB                                                   12300000
000000                              583+         DS    CL12 -         RESERVED FOR I/O SUPERVISOR               12350000

00000C                              584+DCBBLKCT DS    F -            BLOCK COUNT FOR EACH VOLUME               12400000
000010                              585+DCBTRTCH DS    C -            TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 12450000
                            00023   586+DCBMTE   EQU   X'23' -        E  - EVEN PARITY                          12500000

                            0003B   587+DCBMTT   EQU   X'3B' -        T  - BCD/EBCDIC TRANSLATION               12550000
                            00013   588+DCBMTC   EQU   X'13' -        C  - DATA CONVERSION                      12600000
                            0002B   589+DCBMTET  EQU   X'2B' -        ET - EVEN PARITY AND TRANSLATION          12650000
000011                              590+         DS    C -            DCBDEVT - DEVICE TYPE                     12700000
                            00081   591+DCBDVMT  EQU   X'81' -        2400 SERIES MAGNETIC TAPE UNIT (7-TRACK   12750000

                                    592+*                             OR 9-TRACK)                               12800000
                            00083   593+DCBDVMT3 EQU   X'83' -        3400 SERIES MAGNETIC TAPE UNIT     ICB277 12850000
000012                              594+DCBDEN   DS    C -            TAPE DENSITY - 2400 SERIES MAGNETIC TAPE  12900000
                                    595+*                             UNITS                                     12950000
                                    596+*                             CODE    7-TRACK     9-TRACK               13000000
                            00003   597+DCBMTDN0 EQU   X'03' -         0       200 BPI       -                  13050000
                            00043   598+DCBMTDN1 EQU   X'43' -         1       556 BPI       -                  13100000
                            00083   599+DCBMTDN2 EQU   X'83' -         2       800 BPI     800 BPI              13150000

                            000C3   600+DCBMTDN3 EQU   X'C3' -         3         -        1600 BPI              13200000
                            000D3   601+DCBMTDN4 EQU   X'D3' -         4         -        6250 BPI        99223 13210003

000013                              602+         DS    X -            RESERVED                                  13250000

                                    604+*                       PAPER TAPE                                      13400000

000014                      00008   606+         ORG   IHADCB+8                                                 13500000

000008                              607+DCBLCTBL DS    A -            ADDRESS OF TRANSLATE TABLE                13550000
00000C                              608+         DS    XL4 -          RESERVED                                  13600000
000010                              609+DCBCODE  DS    C -            PAPER TAPE CODE BEING USED.  THE          13650000
                                    610+*                             APPROPRIATE TRANSLATE TABLE IS MADE       13700000
                                    611+*                             AVAILABLE                                 13750000
                            00080   612+DCBPTCDN EQU   X'80' -        N - NO CONVERSION                         13800000
                            00040   613+DCBPTCDI EQU   X'40' -        I - IBM BCD                               13850000
                            00020   614+DCBPTCDF EQU   X'20' -        F - FRIDEN                                13900000
                            00010   615+DCBPTCDB EQU   X'10' -        B - BURROUGHS                             13950000

                            00008   616+DCBPTCDC EQU   X'08' -        C - NATIONAL CASH REGISTER                14000000

                            00004   617+DCBPTCDA EQU   X'04' -        A - ASCII (8-TRACK)                       14050000
                            00002   618+DCBPTCDT EQU   X'02' -        T - TELETYPE                              14100000
000011                              619+         DS    C -            DCBDEVT - DEVICE TYPE                     14150000
                            00050   620+DCBDVPTP EQU   X'50' -        2671 PAPER TAPE READER                    14200000
000012                              621+         DS    X -            RESERVED                                  14250000

000013                              622+DCBPTFLG DS    BL1 -          PAPER TAPE FLAGS                          14300000
                            00010   623+DCBPTIC  EQU   DCBBIT3 -      INVALID CHARACTER IN LAST RECORD READ     14350003
                            00008   624+DCBPTECT EQU   DCBBIT4 -      END OF RECORD CHARACTER REACHED IN        14400003
                                    625+*                             TRANSLATION                               14450000
                            00004   626+DCBPTECR EQU   DCBBIT5 -      END OF RECORD CHARACTER DETECTED DURING   14500003
                                    627+*                             READ                                      14550000
                            00002   628+DCBPTUCT EQU   DCBBIT6 -      IF ONE, UPPER CASE TRANSLATE.             14600003
                                    629+*                             IF ZERO, LOWER CASE TRANSLATE             14650000
                            00001   630+DCBPTERR EQU   DCBBIT7 -      ERROR DETECTED ON READ                    14700003


                                    632+*                       PRINTER                                         14850000

OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000014                      00010   634+         ORG   IHADCB+16                                                14950000
000010                              635+DCBPRTSP DS    C -            NUMBER INDICATING NORMAL PRINTER SPACING  15000000

                            00001   636+DCBPRSP0 EQU   X'01' -        0 - NO SPACING                            15050000
                            00009   637+DCBPRSP1 EQU   X'09' -        1 - SPACE ONE LINE                        15100000
                            00011   638+DCBPRSP2 EQU   X'11' -        2 - SPACE TWO LINES                       15150000
                            00019   639+DCBPRSP3 EQU   X'19' -        3 - SPACE THREE LINES                     15200003
000011                              640+         DS    C -            DCBDEVT - DEVICE TYPE                     15250000
                            00048   641+DCBDVPR1 EQU   X'48' -        1403 PRINTER AND 1404 PRINTER (CONTINUOUS 15300000
                                    642+*                             FORM SUPPORT ONLY)                        15350000
                            0004A   643+DCBDVPR2 EQU   X'4A' -        1443 PRINTER                              15400000
                            00049   644+DCBDVPR3 EQU   X'49' -        3211 PRINTER                              15450000
000012                              645+DCBPRTOV DS    C -            TEST-FOR-PRINTER-OVERFLOW MASK            15500000
                                    646+*                             (PRTOV MASK)                              15550000

                            00020   647+DCBPRC9  EQU   X'20' -        9  - TEST FOR CHANNEL 9 OVERFLOW          15600000
                            00010   648+DCBPRC12 EQU   X'10' -        12 - TEST FOR CHANNEL 12 OVERFLOW         15650000
000013                              649+         DS    X -            RESERVED                                  15700000


                                    651+*                       CARD READER, CARD PUNCH                         15850000

000014                      00010   653+         ORG   IHADCB+16                                                15950000
000010                              654+DCBMODE  DS    0B -           MODE OF OPERATION FOR 1442 CARD READ      16000000
                                    655+*                             PUNCH (BITS 0-3)                          16050000
000010                              656+DCBSTACK DS    B -            STACKER SELECTION (BITS 4-7)              16100000
                            00080   657+DCBMODEC EQU   DCBBIT0 -      COLUMN BINARY MODE                        16150003
                            00040   658+DCBMODEE EQU   DCBBIT1 -      EBCDIC MODE                               16200003
                            00020   659+DCBMODEO EQU   DCBBIT2 -      OPTICAL MARK READ MODE                    16250003
                            00010   660+DCBMODER EQU   DCBBIT3 -      READ COLUMN ELIMINATE MODE                16300003
                            00002   661+DCBSTCK2 EQU   DCBBIT6 -      STACKER 2                                 16350003
                            00001   662+DCBSTCK1 EQU   DCBBIT7 -      STACKER 1                                 16400003

000011                              663+         DS    C -            DCBDEVT - DEVICE TYPE                     16450000
                            00041   664+DCBDVCR0 EQU   X'41' -        2540 CARD READER                          16500000
                            00042   665+DCBDVCP0 EQU   X'42' -        2540 CARD PUNCH                           16550000

                            00043   666+DCBDVCRP EQU   X'43' -        1442 CARD READ PUNCH                      16600000
                            00044   667+DCBDVCR1 EQU   X'44' -        2501 CARD READER                          16650000
                            00045   668+DCBDVCPR EQU   X'45' -        2520 CARD READ PUNCH                      16700000
                            00046   669+DCBDVCR2 EQU   X'46'          3505 CARD READER                   XM0629 16710002
                            0004C   670+DCBDVCP1 EQU   X'4C'          3525 CARD PUNCH                    XM0629 16720002
000012                              671+         DS    X -            RESERVED                                  16750000
000013                              672+DCBFUNC  DS    B -            FUNCTION INDICATOR FOR THE 3525           16800000
                            00080   673+DCBFNCBI EQU   DCBBIT0 -      INTERPRET (PUNCH AND PRINT TWO LINES)     16850003
                            00040   674+DCBFNCBR EQU   DCBBIT1 -      READ                                      16900003
                            00020   675+DCBFNCBP EQU   DCBBIT2 -      PUNCH                                     16950003
                            00010   676+DCBFNCBW EQU   DCBBIT3 -      PRINT                                     17000003
                            00008   677+DCBFNCBD EQU   DCBBIT4 -      DATA PROTECTION                           17050003

                            00004   678+DCBFNCBX EQU   DCBBIT5 -      THIS DATA SET IS TO BE PRINTED            17100003

                            00002   679+DCBFNCBT EQU   DCBBIT6 -      TWO-LINE PRINT SUPPORT REQUEST            17150003


                                    681+*                       OPTICAL READER AND MAGNETIC CHAR READER         18100000

000014                      00000   683+         ORG   IHADCB                                                   18200000
000000                              684+DCBWTOID DS    0A -           SAME AS DCBWTOIA BELOW                    18250000
000000                              685+         DS    X -            RESERVED                                  18300000
000001                              686+DCBWTOIA DS    AL3 -          A BINARY IDENTIFICATION NUMBER ASSIGNED   18350000
                                    687+*                             BY COMMUNICATIONS TASK TO MESSAGE ISSUED  18400000
                                    688+*                             BY WTO MACRO.  THIS NUMBER IS USED BY THE 18450000
OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    689+*                             DOM MACRO WHEN MESSAGE IS NO LONGER       18500000
                                    690+*                             REQUIRED (MCS SUPPORT).  ---              18550000

                                    691+*                             FOR MAGNETIC CHAR READER - AFTER FIRST    18600000
                                    692+*                             READ HAS BEEN ISSUED, CONTAINS ADDRESS OF 18650000

                                    693+*                             MAGNETIC INTERRUPT CONTROL BLOCK (MICB)   18700000

                                    694+*                             BEING USED BY THE APPENDAGES.             18750000

                                    696+*                       OPTICAL READER DEVICES                          18900000
                                    697+*                       1285, 1287, 1288, 3886                          18950003

000004                      00004   699+         ORG   DCBWTOID+4                                               19050000
000004                              700+DCBERRCN DS    0A -           SAME AS DCBERRCA BELOW                    19100000
000004                              701+DCBERRCA DS    AL3 -          ADDRESS OF 32 BYTES OF DECLARED STORAGE   19200000
                                    702+*                             SPECIFIED BY THE USER IN HIS PROGRAM.     19250000
                                    703+*                             THIS STORAGE WILL BE USED BY THE          19300000
                                    704+*                             PROGRAMMING SUPPORT AS EIGHT 4-BYTE       19350000
                                    705+*                             COUNTERS IN WHICH TOTALS OF CERTAIN 1285, 19400000

                                    706+*                             1287 AND 1288 ERROR CONDITIONS ARE        19450000
                                    707+*                             ACCUMULATED.                              19500000
000007                      00004   708+         ORG   DCBWTOID+4                                               19510003

000004                              709+DCBLNNUM DS    X              3886  DOCUMENT LINE NUMBER                19520003
000005                              710+DCBLFMAT DS    X              3886  LINE FORMAT NUMBER                  19530003
000006                              711+DCBORFLG DS    X              3886  FLAGS                               19540003
                            00080   712+DCBEOPFG EQU   DCBBIT0        END OF PAGE                               19540403
000007                              713+         DS    X              RESERVED                                  19542003
000008                              714+DCBDSPLY DS    0A -           SAME AS DCBDSPLA BELOW                    19550000
000008                              715+DCBFRID  DS    0CL4           3886  FORMAT RECORD ID                    19560003
000008                              716+         DS    X -            RESERVED                                  19600000
000009                              717+DCBDSPLA DS    AL3 -          ADDRESS OF DSPLY (BSAM) ROUTINE USED FOR  19650000
                                    718+*                             KEYBOARD ENTRY OF A COMPLETE FIELD        19700000
00000C                              719+DCBRESCN DS    0A -           SAME AS DCBRESCA BELOW                    19750000
00000C                              720+DCBRDLNE DS    0A -           SAME AS DCBRDLNA BELOW                    19800000

00000C                              721+DCBFRTBA DS    0A             3886  FORMAT RECORD TABLE                 19810003
00000C                              722+         DS    X -            RESERVED                                  19850000
00000D                              723+DCBRESCA DS    0AL3 -         ADDRESS OF RESCN (BSAM) ROUTINE USED TO   19900000
                                    724+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    19950000

                                    725+*                             CHARACTERS                                20000000
00000D                              726+DCBRDLNA DS    AL3 -          ADDRESS OF RDLNE (QSAM) ROUTINE USED TO   20050000
                                    727+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    20100000
                                    728+*                             CHARACTERS                                20150000
000010                              729+DCBORBYT DS    BL1 -          OPTICAL READER BYTE USED BY BSAM/QSAM     20200000
                            00080   730+DCBORSYN EQU   DCBBIT0 -      SYNAD IN CONTROL                          20250003

                            00040   731+DCBOREOF EQU   DCBBIT1 -      END OF FILE (EOF)                         20300003
                            00020   732+DCBORBFP EQU   DCBBIT2 -      BUFFERS PRIMED (QSAM)                     20350003
000011                              733+         DS    C -            DCBDEVT - DEVICE TYPE                     20400000
                            0005A   734+DCBDVOR5 EQU   X'5A' -        1285 OPTICAL READER                       20450000
                            0005B   735+DCBDVOR7 EQU   X'5B' -        1287 OPTICAL READER                       20500000
                            0005C   736+DCBDVOR8 EQU   X'5C' -        1288 OPTICAL READER                       20550000
                            00057   737+DCBDVOR9 EQU   X'57'          3886 OPTICAL READER                       20560003
000012                              738+DCBEIB   DS    BL1 -          ERROR INDICATOR BYTE                      20600000

                            00040   739+DCBORNRM EQU   DCBBIT1 -      THE 1287 OR 1288 SCANNER WAS UNABLE TO    20650003
                                    740+*                             LOCATE THE REFERENCE MARK                 20700000

                            00020   741+DCBORREJ EQU   DCBBIT2 -      FOR 1287, A STACKER SELECT COMMAND WAS    20750003
                                    742+*                             GIVEN AFTER ALLOTTED TIME HAD ELAPSED AND 20800000
                                    743+*                             THE DOCUMENT HAS BEEN PUT IN REJECT       20850000
OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    744+*                             POCKET.  FOR 1288 UNFORMATTED ONLY,       20900000
                                    745+*                             END-OF-PAGE HAS OCCURRED.                 20950000
                            00010   746+DCBORERR EQU   DCBBIT3 -      A NONRECOVERABLE ERROR HAS OCCURRED.      21000003

                            00008   747+DCBORECK EQU   DCBBIT4 -      AN EQUIPMENT CHECK RESULTED IN AN         21050003
                                    748+*                             INCOMPLETE READ                           21100000
                            00004   749+DCBORWLR EQU   DCBBIT5 -      A WRONG-LENGTH RECORD CONDITION HAS       21150003
                                    750+*                             OCCURRED                                  21200000
                            00002   751+DCBORHPR EQU   DCBBIT6 -      FOR QSAM - OPERATOR ENTERED ONE OR MORE   21250003

                                    752+*                             CHARACTERS FROM THE KEYBOARD.             21300000
                                    753+*                             FOR BSAM - A HOPPER EMPTY CONDITION HAS   21350000
                                    754+*                             OCCURRED                                  21400000

                            00001   755+DCBORDCK EQU   DCBBIT7 -      A DATA CHECK HAS OCCURRED                 21450003
000013                              756+         DS    X -            RESERVED                                  21500000

                                    758+*                       MAGNETIC CHARACTER READER DEVICES               21650000
                                    759+*                       1419 MAGNETIC CHARACTER READER                  21700000
                                    760+*                       1275 OPTICAL READER SORTER                      21750000
                                    761+*                       3890 MAGNETIC CHARACTER READER                  21760003


000014                      00000   763+         ORG   IHADCB                                                   21850000
000000                              764+DCBSSID  DS    CL8 -          BEFORE DCB IS OPENED - NAME OF USER'S     21900000
                                    765+*                             STACKER SELECT ROUTINE.                   21950000


000008                      00000   767+         ORG   DCBSSID                                                  22050000
000000                              768+         DS    A -            AFTER DCB IS OPENED - DCBWTOID            22100000
000004                              769+DCBSSAD  DS    0A -           ADDRESS OF USER'S STACKER SELECT ROUTINE  22150000
000004                              770+DCBIMG   DS    0A             3890  ADDR OF USER'S IMAGE PROC RTN       22160003

000004                              771+         DS    X -            RESERVED                                  22200000
000005                              772+DCBSSADA DS    AL3 -          ADDRESS OF USER'S STACKER SELECT ROUTINE  22250000
000008                              773+DCBIMAGE DS    0A -           SAME AS DCBIMAGA BELOW                    22300000
000008                              774+DCBMRFG  DS    BL1 -          BUFFER INDICATOR                          22350000
                            000C0   775+DCBMRBCT EQU   DCBBIT0+DCBBIT1 -                                        22400003
                                    776+*                             TWO-BIT BINARY COUNTER WHICH INDICATES    22410003

                                    777+*                             INTO WHICH BUFFER STATUS INFORMATION IS   22450000
                                    778+*                             TO BE POSTED                              22500000
000009                              779+DCBIMAGA DS    AL3 -          ADDRESS OF PARAMETER LIST USED TO         22550000
                                    780+*                             COMMUNICATE BETWEEN USER'S PROCESSING     22600000
                                    781+*                             ROUTINES AND HIS STACKER SELECT ROUTINES  22650000

00000C                              782+DCBECBLT DS    0A -           SAME AS DCBECBLA BELOW                    22700000
00000C                              783+DCBHDR   DS    0A             3890  ADDR OF USER'S HEADER DATA AREA     22702003
00000C                              784+DCBMRIND DS    BL1 -          INDICATOR AND COUNTER BYTE                22750000
                            000E0   785+DCBMRDCT EQU   DCBBIT0+DCBBIT1+DCBBIT2                                  22800003
                                    786+*                             THREE-BIT BINARY COUNTER OF NUMBER OF     22810003

                                    787+*                             DOCUMENTS READ AFTER DISENGAGE            22850000
                            00010   788+DCBMRSCU EQU   DCBBIT3 -      DCB WAS ALTERED WHEN SYNAD ROUTINE WAS    22900003
                                    789+*                             ENTERED DUE TO SECONDARY CONTROL UNIT     22950000
                                    790+*                             (SCU) ERROR                               23000000
                            00008   791+DCBMRPLO EQU   DCBBIT4 -      POCKET LIGHT HAS BEEN TURNED ON           23050003

                            00004   792+DCBMRPLS EQU   DCBBIT5 -      POCKET LIGHT 0-6 IS BEING SET ON          23100003
                            00002   793+DCBMRERP EQU   DCBBIT6 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23150003
                                    794+*                             PRIMARY CONTROL UNIT (PCU)                23200000
                            00001   795+DCBMRERS EQU   DCBBIT7 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23250003
                                    796+*                             SECONDARY CONTROL UNIT (SCU)              23300000

00000D                              797+DCBECBLA DS    AL3 -          ADDRESS OF ECB LIST PASSED TO WAIT MACRO  23350000
                                    798+*                             BY CHECK MACRO WHEN NO 1419/1275 IS       23400000
OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    799+*                             AVAILABLE FOR PROCESSING                  23450000

000010                              800+DCBMRFLG DS    BL1 -          FLAG BYTE                                 23500000
                            00080   801+DCBMRSCC EQU   DCBBIT0 -      FIRST OR SECOND SECONDARY CONTROL UNIT    23550003
                                    802+*                             COMMAND CHAIN IS BEING USED               23600000
                            00040   803+DCBMRDBG EQU   DCBBIT1 -      DEBUGGING MODE IN USE                     23650003
                            00020   804+DCBMRDRU EQU   DCBBIT2 -      DISENGAGE REQUESTED BY USER               23700003

                            00010   805+DCBMRDR  EQU   DCBBIT3 -      DISENGAGE REQUESTED                       23750003
                            0000C   806+DCBMRPCC EQU   DCBBIT4+DCBBIT5 -                                        23800003
                                    807+*                             TWO-BIT BINARY COUNTER INDICATING FIRST,  23802003
                                    808+*                             SECOND OR THIRD PRIMARY CONTROL UNIT      23850000
                                    809+*                             COMMAND CHAIN IS BEING USED               23900000

                            00002   810+DCBMRDWT EQU   DCBBIT6 -      WTO MESSAGE MUST BE DELETED               23950003
                            00001   811+DCBMRUE  EQU   DCBBIT7 -      UNIT EXCEPTION                            24000003
000011                              812+         DS    C -            DCBDEVT - DEVICE TYPE                     24050000
                            0005D   813+DCBDVMR  EQU   X'5D' -        1419 MAGNETIC CHARACTER READER            24100000
                            0005F   814+DCBDVORS EQU   X'5F' -        1275 OPTICAL READER SORTER                24150000
                            00056   815+DCBDVMRS EQU   X'56'          3890 MAGNETIC CHARACTER READER SORTER     24160003

000012                              816+DCBAPPIN DS    C -            AN INDICATOR USED BY THE APPENDAGES TO    24200000
                                    817+*                             PASS INFORMATION ABOUT ONE CHANNEL CHAIN  24250000
                                    818+*                             TO AN APPENDAGE ASSOCIATED WITH ANOTHER   24300000
                                    819+*                             CHANNEL CHAIN                             24350000

000013                              820+         DS    X -            RESERVED                                  24400000

                                    822+*                       ACCESS METHOD COMMON INTERFACE                  24600000

000014                      00010   824+         ORG   IHADCB+16                                                24700000

000010                              825+DCBRELB  DS    0F -           SAME AS DCBREL BELOW                      24750000
000010                              826+DCBKEYLE DS    FL1 -          KEY LENGTH OF DATA SET                    24800000
000011                              827+DCBDEVT  DS    0C -           DEVICE TYPE                               24850000
                            0004F   828+DCBDVTRM EQU   X'4F' -        TERMINAL.  (DD CONTAINS TERM=TS)          24900000
000011                              829+DCBREL   DS    FL3 -          NUMBER OF RELATIVE TRACKS OR BLOCKS IN    24950000
                                    830+*                             THIS DATA SET (BDAM)                      25000000
000014                              831+DCBBUFCB DS    0A -           ADDRESS OF BUFFER POOL CONTROL BLOCK      25050000

000014                              832+DCBBUFNO DS    FL1 -          NUMBER OF BUFFERS REQUIRED FOR THIS DATA  25100000
                                    833+*                             SET.  MAY RANGE FROM 0 TO 255.  IF        25150000
                                    834+*                             UNBLOCKED SPANNED RECORDS ARE USED,       25200000

                                    835+*                             NUMBER OF SEGMENT WORK AREAS REQUIRED     25250000
                                    836+*                             FOR THIS DATA SET.                        25300000
000015                              837+DCBBUFCA DS    AL3 -          ADDRESS OF BUFFER POOL CONTROL BLOCK      25350000
000018                              838+DCBBUFL  DS    H -            LENGTH OF BUFFER.  MAY RANGE FROM 0 TO    25400000
                                    839+*                             32,767.                                   25450000

00001A                              840+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED          25500000
00001A                              841+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG                    25550000
                            00080   842+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION      25600003
                            00040   843+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION     25650003
                            00020   844+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION                  25700003
                            00010   845+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP              25750003
                            00008   846+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE     25800003
                            00004   847+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE   25850003

                            00002   848+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION             25900003
                            00001   849+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS         25950003

                                    850+*                                  LOCATION DEPENDENT INFORMATION       26000000
00001B                              851+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG                   26050000
                            00080   852+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION                26100003
                            00040   853+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP                      26150003
OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   25



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00020   854+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE                   26200003
                            00008   855+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1 26250003
                            00004   856+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024 26260003
00001C                              857+DCBIOBAD DS    0A -           ADDRESS OF IOB WHEN CHAINED SCHEDULING IS 26300000
                                    858+*                             USED OR FOR 1419/1275                     26350000
00001C                              859+DCBODEB  DS    0A -           ADDRESS OF OLD DEB                        26400000
00001C                              860+DCBLNP   DS    0FL1 -         3525 PRINTER LINE POSITION COUNTER        26450000
00001C                              861+DCBQSLM  DS    BL1 -          QSAM LOCATE MODE LOGICAL RECORD INTERFACE 26500000

                                    862+*                             INDICATOR BYTE FOR UPDAT PROCESSING OF    26550000

                                    863+*                             SPANNED RECORDS                           26600000
                            00080   864+DCB1DVDS EQU   DCBBIT0 -      ONLY ONE DEVICE IS ALLOCATED TO THIS      26650003
                                    865+*                             DATA SET                                  26700000
                            00040   866+DCBUPDCM EQU   DCBBIT1 -      UPDATE COMPLETE, FREE OLD DEB             26750003
                            00030   867+DCBUPDBT EQU   DCBBIT2+DCBBIT3 -                                        26800003

                                    868+*                             UPDATE BITS                               26810003
                            00020   869+DCBUPDT  EQU   DCBBIT2 -      UPDATE TO TAKE PLACE                      26850003
                            00030   870+DCBNUPD  EQU   DCBBIT2+DCBBIT3 -                                        26900003
                                    871+*                             NO UPDATE TO TAKE PLACE                   26910003
                            00010   872+DCBSVDEB EQU   DCBBIT3 -      OLD DEB ADDRESS MUST BE SAVED             26950003
00001D                              873+DCBIOBAA DS    0AL3 -         SAME AS DCBIOBAD ABOVE                    27000000
00001D                              874+DCBODEBA DS    AL3 -          ADDRESS OF OLD DEB                        27050000
000020                      0001C   875+         ORG   IHADCB+28                                     ICBI DCB-4 27100000
00001C                              876+DCBSVCXL DS    0A -           SAME AS DCBSVCXA BELOW         ICBI DCB-4 27150000
00001C                              877+         DS    X -            RESERVED                       ICBI DCB-4 27200000

00001D                              878+DCBSVCXA DS    AL3 -          POINTER TO EXIT LIST OF JES    ICBI DCB-4 27250000

                                    879+*                             C.I. INTERFACE CONTROL SVC     ICBI DCB-4 27300000

                                    881+*                       FOUNDATION EXTENSION                            27400000


000020                              883+DCBEODAD DS    0A -           SAME AS DCBEODA BELOW                     27500000
000020                              884+DCBHIARC DS    0BL1 -         HIERARCHY BITS                            27550000
000020                              885+DCBBFTEK DS    0BL1 -         BUFFERING TECHNIQUE BITS                  27600000
000020                              886+DCBBFALN DS    BL1 -          BUFFER ALIGNMENT BITS                     27650000
                            00080   887+DCBH1    EQU   DCBBIT0 -      HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO  27700003
                            00070   888+DCBBFT   EQU   DCBBIT1+DCBBIT2+DCBBIT3                                  27750003
                                    889+*                             BUFFERING TECHNIQUE                       27760003
                            00060   890+DCBBFTA  EQU   DCBBIT1+DCBBIT2 -                                        27800003
                                    891+*                             QSAM LOCATE MODE PROCESSING OF SPANNED    27810003
                                    892+*                             RECORDS - OPEN IS TO CONSTRUCT A RECORD   27850000
                                    893+*                             AREA IF IT AUTOMATICALLY CONSTRUCTS       27900000

                                    894+*                             BUFFERS                                   27950000
                            00020   895+DCBBFTR  EQU   DCBBIT2 -      FOR BSAM CREATE BDAM PROCESSING OF        28000003
                                    896+*                             UNBLOCKED SPANNED RECORDS - SOFTWARE      28050000
                                    897+*                             TRACK OVERFLOW.  FOR BSAM INPUT           28100000

                                    898+*                             PROCESSING OF UNBLOCKED SPANNED RECORDS   28150000
                                    899+*                             WITH KEYS - RECORD OFFSET PROCESSING.     28200000
                            00040   900+DCBBFTS  EQU   DCBBIT1 -      SIMPLE BUFFERING - BIT 3 IS ZERO          28250003
                            00020   901+DCBBFTKR EQU   DCBBIT2 -      UNBLOCKED SPANNED RECORDS - SOFTWARE      28300003
                                    902+*                             TRACK OVERFLOW (BDAM)                     28350000
                            00010   903+DCBBFTE  EQU   DCBBIT3 -      EXCHANGE BUFFERING - BIT 1 IS ZERO        28400003
                            00008   904+DCBBFTKD EQU   DCBBIT4 -      DYNAMIC BUFFERING (BTAM)                  28450003
                            00004   905+DCBH0    EQU   DCBBIT5 -      HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO  28500003
                            00003   906+DCBBFA   EQU   DCBBIT6+DCBBIT7 -                                        28550003
                                    907+*                             BUFFER ALIGNMENT                          28560003
                            00002   908+DCBBFAD  EQU   DCBBIT6 -      DOUBLEWORD BOUNDARY                       28600003
OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   26



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00001   909+DCBBFAF1 EQU   DCBBIT7 -      FULLWORD NOT A DOUBLEWORD BOUNDARY,       28650003
                                    910+*                             CODED IN DCB MACRO INSTRUCTION            28700000

                            00003   911+DCBBFAF2 EQU   DCBBIT6+DCBBIT7 -                                        28750003
                                    912+*                             FULLWORD NOT A DOUBLEWORD BOUNDARY,       28760003
                                    913+*                             CODED IN DCB MACRO INSTRUCTION            28800000
000021                              914+DCBEODA  DS    AL3 -          ADDRESS OF A USER-PROVIDED ROUTINE TO     28850000
                                    915+*                             HANDLE END-OF-DATA CONDITIONS             28900000
000024                              916+DCBEXLST DS    0A -           ADDRESS OF USER-PROVIDED LIST OF EXITS    28950000
000024                              917+DCBRECFM DS    BL1 -          RECORD FORMAT                             29000000
                            000E0   918+DCBRECLA EQU   DCBBIT0+DCBBIT1+DCBBIT2  -                               29050003
                                    919+*                             RECORD LENGTH INDICATOR - ASCII           29060003
                            00020   920+DCBRECD  EQU   DCBBIT2 -      ASCII VARIABLE RECORD LENGTH              29100003
                            000C0   921+DCBRECL  EQU   DCBBIT0+DCBBIT1 -                                        29150003
                                    922+*                             RECORD LENGTH INDICATOR                   29160003

                            00080   923+DCBRECF  EQU   DCBBIT0 -      FIXED RECORD LENGTH                       29200003

                            00040   924+DCBRECV  EQU   DCBBIT1 -      VARIABLE RECORD LENGTH                    29250003
                            000C0   925+DCBRECU  EQU   DCBBIT0+DCBBIT1 -                                        29300003

                                    926+*                             UNDEFINED RECORD LENGTH                   29310003
                            00020   927+DCBRECTO EQU   DCBBIT2 -      TRACK OVERFLOW                            29350003
                            00010   928+DCBRECBR EQU   DCBBIT3 -      BLOCKED RECORDS                           29400003
                            00008   929+DCBRECSB EQU   DCBBIT4 -      FOR FIXED LENGTH RECORD FORMAT - STANDARD 29450003
                                    930+*                             BLOCKS.  FOR VARIABLE LENGTH RECORD       29500000
                                    931+*                             FORMAT - SPANNED RECORDS                  29550000
                            00006   932+DCBRECCC EQU   DCBBIT5+DCBBIT6 -                                        29600003
                                    933+*                             CONTROL CHARACTER INDICATOR               29610003
                            00004   934+DCBRECCA EQU   DCBBIT5 -      ASA CONTROL CHARACTER                     29650003
                            00002   935+DCBRECCM EQU   DCBBIT6 -      MACHINE CONTROL CHARACTER                 29700003
                            00000   936+DCBRECC  EQU   X'00' -        NO CONTROL CHARACTER                      29750000
                            00001   937+DCBRECKL EQU   DCBBIT7 -      KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB  29800003

                                    938+*                             MACRO INSTRUCTION                         29850000
000025                              939+DCBEXLSA DS    AL3 -          ADDRESS OF USER-PROVIDED LIST OF EXITS    29900000




                                    942+*                       FOUNDATION BEFORE OPEN                          47150000

000028                      00028   944+         ORG   IHADCB+40                                                47250000
000028                              945+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES    47300000
                                    946+*                             THE DATA SET ASSOCIATED WITH THIS DCB     47350000
000030                              947+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE                47400000
                            00080   948+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR   47450003
                                    949+*                             POINT.  IF ONE, LAST I/O OPERATION WAS    47500000
                                    950+*                             WRITE.                                    47550000
                            00080   951+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR     47600003
                                    952+*                             OUTPUT (BDAM)                             47650000

                            00040   953+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD   47700003
                                    954+*                             MODE                                      47750000
                            00020   955+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE       47800003

                                    956+*                             ROUTINE FOR CONCATENATION OF DATA SETS    47850000
                                    957+*                             WITH UNLIKE ATTRIBUTES                    47900000
                            00010   958+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED   47950003
                            00008   959+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 48000003
                                    960+*                             CONCATENATION OF UNLIKE ATTRIBUTES        48050000
                            00004   961+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ                   48100003
                            00002   962+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN  48150003
                                    963+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1 48200000
OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    964+*                             ON RETURN FROM USER EXIT TO THE I/O       48250000
                                    965+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.     48300000

                            00001   966+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF    48350003
                                    967+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION   48400000
000031                              968+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR  48450000
                                    969+*                             CONDITIONS AND IN DETERMINING CORRECTIVE  48500000

                                    970+*                             PROCEDURES                                48550000
                            000C0   971+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -                                        48600003
                                    972+*                             ERROR CORRECTION INDICATOR                48610003
                            00000   973+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE                    48650000
                            00040   974+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN       48700003
                                    975+*                             PROCESS                                   48750000

                            000C0   976+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -                                        48800003
                                    977+*                             PERMANENT ERROR CORRECTION                48810003
                            00030   978+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -                                        48850003
                                    979+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     48860003
                            00020   980+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH     48900003
                                    981+*                             SENSED                                    48950000
                            00010   982+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH    49000003
                                    983+*                             SENSED                                    49050000

                            0000C   984+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -                                        49100003
                                    985+*                             IOS ERROR ROUTINE USE INDICATOR           49110003

                            00000   986+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE   49150000
                            00004   987+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49200003
                            00004   988+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE  49250003
                                    989+*                             (BTAM)                                    49300000
                            00008   990+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49350003
                            0000C   991+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -                                        49400003
                                    992+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE    49410003
000032                              993+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE               49450000

000032                              994+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR                     49500000
                            00080   995+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---        49550003
                                    996+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,     49600000
                                    997+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)    49650000
                            00040   998+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)    49700003

                            00040   999+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)                   49750003
                            00040  1000+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---          49800003
                                   1001+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 49850000

                                   1002+*                             RESERVED (BTAM)                           49900000
                            00020  1003+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)            49950003
                            00020  1004+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)      50000003
                            00020  1005+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---           50050003
                                   1006+*                             ALWAYS ZERO (QSAM, QISAM)                 50100000
                            00010  1007+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)                   50150003
                            00010  1008+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)            50200003

                            00010  1009+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---          50250003
                                   1010+*                             ALWAYS ZERO (BISAM) ---                   50300000
                                   1011+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)         50350000
                            00008  1012+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)          50400003
                            00008  1013+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---          50450003

                                   1014+*                             ALWAYS ZERO (BISAM) ---                   50500000
                                   1015+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   50550000
                            00004  1016+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK   50600003
                                   1017+*                             COUNT (EXCP)                              50650000
                            00004  1018+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   50700003
OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00004  1019+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)             50750003
                            00004  1020+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---       50800003
                                   1021+*                             ALWAYS ZERO (QISAM) ---                   50850000
                                   1022+*                             RESERVED (QTAM, BTAM)                     50900000
                            00002  1023+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)    50950003

                            00002  1024+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        51000003
                            00002  1025+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)                             51050003
                            00002  1026+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---                 51100003

                                   1027+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)        51150000
                            00001  1028+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)                   51200003
                            00001  1029+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,    51250003
                                   1030+*                             BPAM, BISAM, QISAM, QTAM, BTAM)           51300000

000033                             1031+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR                    51350000
                            00080  1032+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM, 51400003
                                   1033+*                             BPAM, BISAM, BDAM) ---                    51450000
                                   1034+*                             RESERVED (EXCP, QTAM, BTAM)               51500000
                            00040  1035+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)    51550003
                            00040  1036+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---          51600003

                                   1037+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 51650000
                                   1038+*                             RESERVED (EXCP, BTAM)                     51700000
                            00020  1039+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)     51750003
                            00020  1040+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---            51800003
                                   1041+*                             ALWAYS ZERO (QSAM, QISAM) ---             51850000

                                   1042+*                             RESERVED (EXCP)                           51900000
                            00010  1043+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)            51950003
                            00010  1044+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---         52000003
                                   1045+*                             ALWAYS ZERO (BISAM) ---                   52050000
                                   1046+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   52100000

                            00008  1047+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)         52150003
                            00008  1048+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)     52200003
                                   1049+*                             (BSAM)                                    52250000
                            00008  1050+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)          52300003
                            00008  1051+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---         52350003

                                   1052+*                             ALWAYS ZERO (BISAM) ---                   52400000
                                   1053+*                             RESERVED (BPAM, QTAM, BTAM)               52450000
                            00004  1054+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)         52500003
                            00004  1055+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   52550003
                            00004  1056+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)                    52600003

                            00004  1057+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---        52650003
                                   1058+*                             ALWAYS ZERO (BISAM) ---                   52700000
                                   1059+*                             RESERVED (BDAM, QTAM, BTAM)               52750000
                            00002  1060+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)        52800003
                            00002  1061+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        52850003
                            00002  1062+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)                       52900003

                            00002  1063+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---              52950003
                                   1064+*                             ALWAYS ZERO (BISAM) ---                   53000000
                                   1065+*                             RESERVED (BPAM, QTAM, BTAM)               53050000
                            00001  1066+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)          53100003

                            00001  1067+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT     53150003
                                   1068+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)   53200000
                            00001  1069+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)                          53250003
                            00001  1070+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---                    53300003
                                   1071+*                             ALWAYS ZERO (BISAM) ---                   53350000

                                   1072+*                             RESERVED (BPAM, QTAM, BTAM)               53400000

OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1074+*                       FOUNDATION AFTER OPEN                           53500000

000034                      00028  1076+         ORG   IHADCB+40                                                53600000

000028                             1077+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD 53650000
                                   1078+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED 53700000
                                   1079+*                             WITH THIS DCB                             53750000

00002A                             1080+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN               53800000
00002A                             1081+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF                    53850000
00002B                             1082+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF                   53900000
00002C                             1083+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB                 53950000
00002C                             1084+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN               54000000

                            000C0  1085+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -                                        54050003
                                   1086+*                             ERROR CORRECTION INDICATOR                54060003
                            00030  1087+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -                                        54100003
                                   1088+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     54110003
                            0000C  1089+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -                                        54150003
                                   1090+*                             IOS ERROR ROUTINE USE INDICATOR           54160003
00002D                             1091+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB                 54200000


000030                      00030  1093+         ORG   IHADCB+48                                                54350000
000030                             1094+DCBREAD  DS    0A -           ADDRESS OF READ MODULE                    54400000

000030                             1095+DCBWRITE DS    A -            ADDRESS OF WRITE MODULE                   54450000

000034                      00030  1097+         ORG   IHADCB+48                                                54600000
000030                             1098+DCBGET   DS    0A -           ADDRESS OF GET MODULE                     54650000
000030                             1099+DCBPUT   DS    A -            ADDRESS OF PUT MODULE                     54700000


                                   1101+*                       QSAM-BSAM-BPAM COMMON INTERFACE                 77750000

000034                      00034  1103+         ORG   IHADCB+52                                                77850000
000034                             1104+DCBGERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  77950000
000034                             1105+DCBPERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  78000000
000034                             1106+DCBCHECK DS    0A -           ADDRESS OF CHECK MODULE                   78050000
000034                             1107+DCBOPTCD DS    BL1 -          OPTION CODES                              78150000
                            00080  1108+DCBOPTW  EQU   DCBBIT0 -      WRITE VALIDITY CHECK (DASD)               78500003

                                   1109+*                             (BSAM, BPAM, QSAM, ISAM, BDAM)            78550000

                            00040  1110+DCBOPTU  EQU   DCBBIT1 -      ALLOW DATA CHECK CAUSED BY INVALID        78600003
                                   1111+*                             CHARACTER (1403 PRINTER WITH UCS FEATURE) 78650000
                                   1112+*                             (BSAM, BPAM, QSAM)                        78700000
                            00020  1113+DCBOPTC  EQU   DCBBIT2 -      CHAINED SCHEDULING USING PCI              78750003
                                   1114+*                             (BSAM, BPAM, QSAM)                        78800000

                            00010  1115+DCBOPTH  EQU   DCBBIT3 -      1287/1288 OPTICAL READER - HOPPER EMPTY   78850003
                                   1116+*                             EXIT (BSAM, BPAM)                         78900000
                            00010  1117+DCBOPTO  EQU   DCBBIT3 -      1285/1287 OPTICAL READER - ON-LINE        78950003
                                   1118+*                             CORRECTION (QSAM)                         79000000
                            00010  1119+DCBBCKPT EQU   DCBBIT3 -      CHANNEL-END APPENDAGE IS TO BYPASS DOS    79050003
                                   1120+*                             EMBEDDED CHECKPOINT RECORDS ON TAPE       79100000
                                   1121+*                             (BSAM, QSAM)                       ICB226 79150000
                            00008  1122+DCBOPTQ  EQU   DCBBIT4 -      TRANSLATION TO OR FROM ASCII              79200003
                                   1123+*                             (BSAM, BPAM, QSAM)                        79250000
                            00004  1124+DCBOPTZ  EQU   DCBBIT5 -      MAGNETIC TAPE DEVICES - USE REDUCED ERROR 79300003

                                   1125+*                             RECOVERY PROCEDURE (EXCP, BSAM, BPAM,     79350000

                                   1126+*                             QSAM)                                     79400000
                            00004  1127+DCBSRCHD EQU   DCBBIT5 -      USE SEARCH DIRECT, INSTEAD OF SEARCH      79450003
                                   1128+*                             PREVIOUS, ON RECORD POSITION SENSING      79500000
OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   30



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1129+*                             DEVICE  (EXCP, BSAM, BPAM, QSAM)   ICB217 79550000
                            00002  1130+DCBOPTT  EQU   DCBBIT6 -      USER TOTALING (BSAM, QSAM)                79600003
000035                             1131+DCBGERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  79700000
000035                             1132+DCBPERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  79750000
000035                             1133+DCBCHCKA DS    AL3 -          ADDRESS OF CHECK MODULE                   79800000
000038                             1134+DCBSYNAD DS    0A -           ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80050000
000038                             1135+DCBIOBL  DS    FL1 -          IOB LENGTH IN DOUBLE WORDS                80100000
000039                             1136+DCBSYNA  DS    AL3 -          ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80150000
00003C                             1137+DCBFLAG1 DS    0BL1           TCAM APPLICATION PROGRAM FLAGS ICBI DCB-3 80460000
                                   1138+*                             (BSAM, BPAM, QSAM)                        80470000

00003C                             1139+DCBCIND1 DS    BL1 -          CONDITION INDICATORS                      80500000
                            00080  1140+DCBCNTOV EQU   DCBBIT0 -      DIRECT ACCESS - TRACK OVERFLOW IN USE     80550003
                                   1141+*                             (BSAM, BPAM, QSAM)                        80600000
                                   1142+*                             2540 CARD PUNCH - DATA SET WAS OPENED BUT 80650000

                                   1143+*                             NO DATA WAS WRITTEN (QSAM)                80700000
                            00080  1144+DCBSTQCK EQU   DCBBIT0 -      STOP EQUAL QUICK WAS SPECIFIED FOR        80710003
                                   1145+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80720000
                            00040  1146+DCBSTFLS EQU   DCBBIT1 -      STOP EQUAL FLUSH WAS SPECIFIED FOR        80730003
                                   1147+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80740000
                            00040  1148+DCBCNSRD EQU   DCBBIT1 -      SEARCH DIRECT (BSAM, BPAM, QSAM)          80750003
                            00020  1149+DCBCNEVB EQU   DCBBIT2 -      END OF VOLUME - USED BY EOB ROUTINES      80800003
                                   1150+*                             (BSAM, BPAM, QSAM)                        80850000
                            00010  1151+DCBCNEVA EQU   DCBBIT3 -      END OF VOLUME - USED BY CHANNEL-END       80900003
                                   1152+*                             APPENDAGE ROUTINES (BSAM, BPAM, QSAM)     80950000
                            00004  1153+DCBCNBRM EQU   DCBBIT5 -      BLOCKED RECORD BIT MODIFIED (BSAM,BPAM,   81000003
                                   1154+*                             QSAM)                          ICBI DCB-2 81050000

                            00001  1155+DCBCNEXB EQU   DCBBIT7 -      EXCHANGE BUFFERING SUPPORTED (QSAM)       81100003
00003D                             1156+DCBCIND2 DS    BL1 -          CONDITION INDICATORS                      81150000
                            00080  1157+DCBCNSTO EQU   DCBBIT0 -      PARTITIONED DATA SET - STOW HAS BEEN      81200003

                                   1158+*                             PERFORMED (BSAM, BPAM, QSAM)              81250000
                                   1159+*                             SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM) 81300000
                            00040  1160+DCBCNWR0 EQU   DCBBIT1 -      DIRECT ORGANIZATION DATA SET - LAST I/O   81350003
                                   1161+*                             WAS A WRITE RECORD ZERO                   81400000
                                   1162+*                             (BSAM, BPAM, QSAM)                        81450000
                                   1163+*                             SEQUENTIAL DATA SET - UPDATE EOF IS       81500000
                                   1164+*                             INDICATED (BSAM, BPAM)                    81550000
                            00020  1165+DCBCNCLO EQU   DCBBIT2 -      CLOSE IN PROCESS (QSAM)                   81600003
                            00010  1166+DCBCNIOE EQU   DCBBIT3 -      PERMANENT I/O ERROR (BSAM, BPAM, QSAM)    81650003
                            00008  1167+DCBCNBFP EQU   DCBBIT4 -      OPEN ACQUIRED BUFFER POOL                 81700003
                                   1168+*                             (BSAM, BPAM, QSAM)                        81750000
                            00004  1169+DCBCNCHS EQU   DCBBIT5 -      CHAINED SCHEDULING BEING SUPPORTED        81800003

                                   1170+*                             (BSAM, BPAM, QSAM)                        81850000

                            00002  1171+DCBCNFEO EQU   DCBBIT6 -      FEOV BIT (BSAM, BPAM, QSAM)               81900003
                            00001  1172+DCBCNQSM EQU   DCBBIT7 -      ALWAYS ZERO (BSAM, BPAM)                  81950003

                                   1173+*                             THIS IS A QSAM DCB (QSAM)                 82000000
00003E                             1174+DCBBLKSI DS    H -            MAXIMUM BLOCK SIZE                        82100000
000040                             1175+DCBWCPO  DS    AL1 -          OFFSET OF WRITE CHANNEL PROGRAM FROM THE  82350000
                                   1176+*                             START OF IOB                              82400000
000041                             1177+DCBWCPL  DS    FL1 -          LENGTH OF WRITE CHANNEL PROGRAM           82450000
000042                             1178+DCBOFFSR DS    AL1 -          OFFSET OF READ CCW FROM BSAM/BPAM PREFIX  82500000
                                   1179+*                             OF IOB                                    82550000
000043                             1180+DCBOFFSW DS    AL1 -          OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX 82600000
                                   1181+*                             OF IOB                                    82650000
000044                             1182+DCBIOBA  DS    A -            FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR 82700000
                                   1183+*                             BSAM/BPAM PREFIX OF IOB.  FOR CHAINED     82750000
OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   31



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1184+*                             SCHEDULING, ADDRESS OF ICB.  FOR          82800000

                                   1185+*                             1419/1275, ADDRESS OF MAGNETIC INTERRUPT  82850000

                                   1186+*                             CONTROL BLOCK (MICB) CURRENTLY BEING      82900000
                                   1187+*                             PROCESSED BY READ ROUTINE.  FOR TSO       82950000
                                   1188+*                             TERMINAL DATA SET OPENED FOR INPUT AND    83000000
                                   1189+*                             FORMAT U, SIMULATED LOW-ORDER FOUR BYTES  83050000
                                   1190+*                             OF IOBCSW                                 83100000

000048                      00044  1192+         ORG   IHADCB+68                                         ICB354 83160000
000044                             1193+DCBCICB  DS    0A -           SAME AS DCBCICBA BELOW             ICB354 83200000
000044                             1194+         DS    X -            DCBNCP  (BSAM,BPAM)                ICB354 83250000
000045                             1195+DCBCICBA DS    AL3 -          POINTER TO JES C.I.                ICB354 83300000
                                   1196+*                             CONTROL BLOCK (CICB)               ICB354 83350000


000048                      00050  1198+         ORG   IHADCB+80                                     ICBI DCB-4 83450000
000050                             1199+DCBDIRCT DS    0H -           NUMBER OF BYTES USED IN LAST DIRECTORY    83500000
                                   1200+*                             BLOCK (RANGE 0-254)  (BSAM, BPAM)  ICB295 83550000

000050                             1201+DCBQSWS  DS    0BL1 -         FLAG BYTE                          ICB295 83600000
                            00004  1202+DCBPOPEN EQU   DCBBIT5 -      QSAM PARALLEL INPUT PROCESSING            83610003
000050                             1203+DCBUSASI DS    B -            FLAG BYTE FOR ASCII TAPES                 83650000
                            00040  1204+DCBBLBP  EQU   DCBBIT1 -      BLOCK PREFIX IS FOUR BYTE FIELD           83700003
                                   1205+*                             CONTAINING BLOCK LENGTH IN UNPACKED       83750000
                                   1206+*                             DECIMAL (SPECIFIED BY BUFFER=L).          83800000
                            00038  1207+DCBQADFS EQU   DCBBIT2+DCBBIT3+DCBBIT4                                  83850003
                                   1208+*                             USED TO PERFORM SEQUENCE CHECKING WITH    83860003
                                   1209+*                             MULTIPLE FUNCTION SUPPORT FOR 3525        83900000
                                   1210+*                             (BSAM, QSAM)                              83950000
                            00020  1211+DCBQADF1 EQU   DCBBIT2 -      FIRST BIT OF DCBQADFS                     84000003
                            00010  1212+DCBQADF2 EQU   DCBBIT3 -      SECOND BIT OF DCBQADFS                    84050003

                            00008  1213+DCBQADF3 EQU   DCBBIT4 -      THIRD BIT OF DCBQADFS                     84100003
                            00001  1214+DCBQSTRU EQU   DCBBIT7 -      TRUNC ENTRY POINT ENTERED (QSAM)          84150003
000051                             1215+DCBBUFOF DS    0FL1 -         BLOCK PREFIX LENGTH (0-99), SPECIFIED BY  84200000
                                   1216+*                             BUFOFF=N OR BUFOFF=L                      84250000

000051                             1217+DCBDIRCQ DS    FL1 -          NUMBER OF BYTES USED IN LAST DIRECTORY    84300000
                                   1218+*                             BLOCK (RANGE 0-254)  (QSAM)        ICB295 84350000

                                   1220+*                       BSAM-BPAM INTERFACE                             84500000

000052                      00048  1222+         ORG   IHADCB+72                                                84600000

000048                             1223+DCBEOBR  DS    0A -           ADDRESS OF END-OF-BLOCK MODULE FOR READ   84650000
000048                             1224+DCBNCP   DS    FL1 -          NUMBER OF CHANNEL PROGRAMS.               84750000
                                   1225+*                             NUMBER OF READ OR WRITE REQUESTS WHICH    85000000
                                   1226+*                             MAY BE ISSUED PRIOR TO A CHECK, NUMBER    85050000
                                   1227+*                             OF IOB'S GENERATED.  (99 MAXIMUM)         85100000
000049                             1228+DCBEOBRA DS    AL3 -          ADDRESS OF END-OF-BLOCK MODULE FOR READ   85150000
00004C                             1229+DCBEOBW  DS    A -            ADDRESS OF END-OF-BLOCK MODULE FOR WRITE. 85200000
                                   1230+*                             FOR BSAM CREATE BDAM PROCESSING OF        85250000

                                   1231+*                             UNBLOCKED SPANNED RECORDS WITH BKTEK=R    85300000
                                   1232+*                             SPECIFIED, ADDRESS OF SEGMENT WORK AREA   85350000

                                   1233+*                             CONTROL BLOCK                             85400000
000050                             1234+         DS    H -            DCBDIRCT - NUMBER OF BYTES USED IN LAST   85450000
                                   1235+*                             DIRECTORY BLOCK  (RANGE 0-254)     ICB295 85500000
000052                             1236+DCBLRECL DS    H -            LOGICAL RECORD LENGTH                     85600000
000054                             1237+DCBCNTRL DS    0A -           ADDRESS OF CNTRL MODULE                   85850000
000054                             1238+DCBNOTE  DS    0A -           ADDRESS OF NOTE/POINT MODULE              85900000
OBLD     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000054                             1239+DCBPOINT DS    A -            ADDRESS OF NOTE/POINT MODULE              85950000

                                   1241+*                       QSAM INTERFACE                                  86100000

000058                      00048  1243+         ORG   IHADCB+72                                                86650021

000048                             1244+DCBLCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF LAST   86700000
                                   1245+*                             CCW IN LIST                               86750000

000048                             1246+DCBEOBAD DS    A -            FOR SIMPLE BUFFERING, ADDRESS OF LAST     86800000
                                   1247+*                             BYTE OF CURRENT BUFFER                    86850000
00004C                             1248+DCBCCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF        86900000
                                   1249+*                             CURRENT OR NEXT CCW                       86950000
00004C                             1250+DCBRECAD DS    0A -           ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87000000
00004C                             1251+DCBRECBT DS    BL1 -          FLAG BYTE                                 87050000
                            000F0  1252+DCBRCREL EQU   DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3  -                       87100003
                                   1253+*                             RELSE MACRO HAS BEEN ISSUED               87110003

                                   1254+*                             (QSAM WITH SIMPLE BUFFERING)              87150000
                            00080  1255+DCBRCTRU EQU   DCBBIT0 -      TRUNC MACRO HAS BEEN ISSUED (QSAM LOCATE  87200003
                                   1256+*                             MODE)                                     87250000
                            00040  1257+DCBRCFGT EQU   DCBBIT1 -      FIRST GET AFTER OPEN (QSAM LOCATE MODE)   87300003
00004D                             1258+DCBRECA  DS    AL3 -          ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87350000

000050                             1259+         DS    B -            DCBQSWS - FLAG BYTE                ICB295 87400000
000051                             1260+         DS    FL1 -          DCBDIRCQ - NUMBER OF BYTES USED IN LAST   87450000
                                   1261+*                             DIRECTORY BLOCK (RANGE 0-254)      ICB295 87500000

000052                             1262+         DS    H -            DCBLRECL - LOGICAL RECORD LENGTH          87750021
000054                             1263+         DS    0A -           DCBCNTRL - ADDRESS OF CNTRL MODULE        88000021
000054                             1264+DCBEROPT DS    BL1 -          ERROR OPTION                              88100000
                            00080  1265+DCBERACC EQU   DCBBIT0 -         ACCEPT PERMANENT ERROR                 88150003
                            00040  1266+DCBERSKP EQU   DCBBIT1 -         SKIP PERMANENT ERROR                   88200003
                            00020  1267+DCBERABE EQU   DCBBIT2 -         ABNORMAL END OF TASK                   88250003
000055                             1268+         DS    AL3 -          DCBCNTRA - ADDRESS OF CNTRL MODULE        88500021

000058                             1269+         DS    XL2 -          RESERVED                                  88600021
00005A                             1270+DCBPRECL DS    H -            BLOCK LENGTH, MAXIMUM BLOCK LENGTH OR     88650000
                                   1271+*                             DATA LENGTH                               88700000
00005C                             1272+DCBEOB   DS    A -            ADDRESS OF END OF BLOCK MODULE            88750000




                            00000  1275+DCBDSECT EQU   IHADCB   DEFINE ALTERNATE DSECT NAME                     DB012000

000000                             1277+HASPOBLD CSECT          END OF DATA CONTROL BLOCK DSECT                 DB016000

OBLD     OS DATA EXTENT BLOCK DSECT                                                                            PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             1280+DEBDSECT DSECT                     DATA EXTENT BLOCK DSECT              DE010000
000000                             1281+DEBTCBAD DS    F                   ADDRESS OF TCB                       DE012000

000004                             1282+DEBDEBAD DS    F                   ADDRESS OF NEXT DEB                  DE014000
000008                             1283+DEBIRBAD DS    F                   ADDRESS OF IRB                       DE016000
00000C                             1284+         DS    F                   RESERVED                             DE018000
000010                             1285+DEBNMEXT DS    0C                  NUMBER OF EXTENTS                    DE019000
000010                             1286+DEBUSRPG DS    F                   ADDR OF 1ST IOB IN USER PURGE CHAIN  DE020000

000014                             1287+DEBPRIOR DS    0C                  PRIORITY OF THE TASK                 DE022000
000014                             1288+DEBECBAD DS    F                   ADDRESS OF PURGE ECB PARAMETER LIST  DE024000
000018                             1289+DEBPROTG DS    0C                  PROTECTION KEY OF TASK               DE026000
000018                             1290+DEBDEBID DS    0C                  DEB IDENTIFICATION (X'0F')           DE028000
000018                             1291+DEBDCBAD DS    F                   ADDRESS OF DCB                       DE030000

00001C                             1292+DEBEXSCL DS    0C                  EXTENT SCALE                         DE031000
00001C                             1293+DEBAPPAD DS    F                   ADDR OF I/O APPENDAGE VECTOR TABLE   DE032000
000020                             1294+DEBDVMOD DS    0C                  DEVICE MODIFIER / FILE MASK          DE034000
000020                             1295+DEBUCBAD DS    F                   ADDRESS OF UCB                       DE036000
000024                             1296+DEBEXTNT DS    0CL12               DATA SET EXTENT                      DE038000

000024                             1297+DEBBINUM DS    H                   BIN NUMBER                           DE040000
000026                             1298+DEBSTRCC DS    H                   CYLINDER START ADDRESS               DE042000
000028                             1299+DEBSTRHH DS    H                   READ OR WRITE TRACK START ADDRESS    DE044000
00002A                             1300+DEBENDCC DS    H                   CYLINDER END ADDRESS                 DE046000
00002C                             1301+DEBENDHH DS    H                   READ OR WRITE TRACK END ADDRESS      DE048000

00002E                             1302+DEBNUMTR DS    H                   NUMBER OF TRACKS IN THIS EXTENT      DE050000
000000                             1303+HASPOBLD CSECT                     END OF DATA EXTENT BLOCK DSECT       DE052000
OBLD     HASP BUFFER FORMAT                                                                                    PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                   1306+*****************************************************                   BU014000
                                   1307+*   IOBFLAG1 *   IOBFLAG2 *   IOBSENS0 *   IOBSENS1 *                   BU016000
                                   1308+*            *            *                         *                   BU018000
                                   1309+* I/O FLAGS  * I/O FLAGS  *  FIRST TWO SENSE BYTES  *                   BU020000

                                   1310+*            *            *            *            *                   BU022000
                                   1311+*****************************************************                   BU024000
                                   1312+*   IOBECBPT *            *            *            *                   BU026000
                                   1313+*   IOBECBCC *                                      *                   BU028000
                                   1314+*I/O COMPLE- * ADDRESS OF HASP EVENT CONTROL BLOCK  *                   BU030000

                                   1315+* TION CODE  *            *            *            *                   BU032000
                                   1316+*****************************************************                   BU034000
                                   1317+*   IOBFLAG3 *    IOBCSW  *     +1     *     +2     *                   BU036000
                                   1318+*            *                                      *                   BU038000
                                   1319+* I/O FLAGS  *         CHANNEL STATUS WORD          *                   BU040000
                                   1320+*            *   BYTE 2   *   BYTE 3   *   BYTE 4   *                   BU042000
                                   1321+*****************************************************                   BU044000

                                   1322+*     +3     *     +4     *     +5     *     +6     *                   BU046000
                                   1323+*                                                   *                   BU048000
                                   1324+*          CHANNEL STATUS WORD (CONTINUED)          *                   BU050000

                                   1325+*   BYTE 5   *   BYTE 6   *   BYTE 7   *   BYTE 8   *                   BU052000
                                   1326+*****************************************************                   BU054000
                                   1327+*   IOBSTART *            *            *            *                   BU056000
                                   1328+*   IOBSIOCC *                                      *                   BU058000
                                   1329+* SIO CONDI- *      ADDRESS OF CHANNEL PROGRAM      *                   BU060000

                                   1330+*  TION CODE *            *            *            *                   BU062000
                                   1331+*****************************************************                   BU064000
                                   1332+*   IOBDCBPT *            *            *            *                   BU066000
                                   1333+*                                                   *                   BU068000
                                   1334+*           ADDRESS OF DATA CONTROL BLOCK           *                   BU070000
                                   1335+*            *            *            *            *                   BU072000
                                   1336+*****************************************************                   BU074000
                                   1337+*   IOBRESTR *            *            *            *                   BU076000

                                   1338+*   IOBREPM  *                                      *                   BU078000
                                   1339+* REPOSITION *  RESTART ADDRESS OF CHANNEL PROGRAM  *                   BU080000

                                   1340+*  MODIFIER  *            *            *            *                   BU082000
                                   1341+*****************************************************                   BU084000
                                   1342+*   IOBINCAM *            *   IOBERRCT *            *                   BU086000
                                   1343+*   TPBMXREC *    BLOCK   *                         *                   BU088000
                                   1344+* REMOTE MAX *    COUNT   *       ERROR COUNT       *                   BU090000

                                   1345+*RECORD COUNT*  INCREMENT *            *            *                   BU092000
                                   1346+*****************************************************                   BU094000
OBLD     HASP BUFFER FORMAT (CONTINUED)                                                                        PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                   1349+*****************************************************                   BU100000
                                   1350+*   IOBXTENT *   IOBSEEK  *     +1     *     +2     *                   BU102000
                                   1351+*   TPBLCCAD *      DIRECT ACCESS SEEK ADDRESS      *                   BU104000

                                   1352+*   TPBLCCC  * ADDR OF LAST REMOTE CARRIAGE CONTROL *                   BU106000

                                   1353+*LAST CAR CTL*            *            *            *                   BU108000
                                   1354+*****************************************************                   BU110000
                                   1355+*     +3     *     +4     *     +5     *     +6     *                   BU112000
                                   1356+*   TPBFDATA *DIRECT ACCESS SEEK ADDRESS (CONTINUED)*                   BU114000
                                   1357+*   TPBRECNT *         REMOTE DATA POINTER          *                   BU116000

                                   1358+*RECORD COUNT*            *            *            *                   BU118000
                                   1359+*****************************************************                   BU120000
                                   1360+*   BUFCHAIN *            *            *            *                   BU122000
                                   1361+*   BUFECBCC *                                      *                   BU124000
                                   1362+*I/O COMPLE- *          BUFFER CHAIN FIELD          *                   BU126000
                                   1363+* TION CODE  *            *            *            *                   BU128000
                                   1364+*****************************************************                   BU130000
                                   1365+*   BUFDCT   *            *            *            *                   BU132000
                                   1366+*   BUFTYPE  *                                      *                   BU134000
                                   1367+*BUFFER TYPE *   ADDRESS OF DEVICE CONTROL TABLE    *                   BU136000

                                   1368+*            *            *            *            *                   BU138000

                                   1369+*****************************************************                   BU140000
                                   1370+*   BUFEWF   *            *            *            *                   BU142000
                                   1371+*            *                                      *                   BU144000
                                   1372+* EWF FLAGS  *   EVENT WAIT FIELD OR POST ADDRESS   *                   BU146000

                                   1373+*            *            *            *            *                   BU148000
                                   1374+*****************************************************                   BU150000
                                   1375+*   OACECHN  *       OVERLAY AREA CHAIN WORD        *                   BU152000
                                   1376+*   BUFDDB   *            ADDRESS OF DDB            *                   BU154000
                                   1377+*   LCBMCB   *   LCBACK   *   LCBRCB   *            *                   BU156000
                                   1378+* MODE BYTE  *  NEXT ACK  * RESPONSE CONTROL BLOCK  *                   BU158000
                                   1379+*****************************************************                   BU160000
                                   1380+*   IOBCCW1  *     +1     *     +2     *     +3     *                   BU162000
                                   1381+*                                                   *                   BU164000
                                   1382+*              CHANNEL COMMAND WORD 1               *                   BU166000
                                   1383+*COMMAND CODE* DATA ADDR. * DATA ADDR. * DATA ADDR. *                   BU168000

                                   1384+*****************************************************                   BU170000
                                   1385+*     +4     *     +5     *     +6     *     +7     *                   BU172000
                                   1386+*            *   MSEQTYPE *                         *                   BU174000
                                   1387+*        CHANNEL COMMAND WORD 1 (CONTINUED)         *                   BU176000

                                   1388+*   FLAGS    *SEQ/COM TYPE*   COUNT    *   COUNT    *                   BU178000
                                   1389+*****************************************************                   BU180000
OBLD     HASP BUFFER FORMAT (CONTINUED)                                                                        PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                   1392+*****************************************************                   BU186000
                                   1393+*   IOBCCW2  *            *            *            *                   BU188000
                                   1394+*                                                   *                   BU190000
                                   1395+*              CHANNEL COMMAND WORD 2               *                   BU192000
                                   1396+*            *            *            *            *                   BU194000
                                   1397+*****************************************************                   BU196000

                                   1398+*            *            *            *            *                   BU196100
                                   1399+*                                                   *                   BU196300
                                   1400+*        CHANNEL COMMAND WORD 2 (CONTINUED)         *                   BU196500

                                   1401+*            *            *            *            *                   BU196700
                                   1402+*****************************************************                   BU196900
                                   1403+*   IOBCCW3  *            *            *            *                   BU197100
                                   1404+*                                                   *                   BU197300
                                   1405+*              CHANNEL COMMAND WORD 3               *                   BU197500
                                   1406+*            *            *            *            *                   BU197700
                                   1407+*****************************************************                   BU197900
                                   1408+*            *   OACEPRIO *   OACEOCON *            *                   BU198000
                                   1409+*            *            *                         *                   BU200000
                                   1410+*  RESERVED  *  OVERLAY   *  OVERLAY CALL CONSTANT  *                   BU202000
                                   1411+*            *  PRIORITY  *            *            *                   BU204000
                                   1412+*****************************************************                   BU206000

                                   1413+*   IOBCCW4  *            *            *            *                   BU208000

                                   1414+*                                                   *                   BU210000
                                   1415+*              CHANNEL COMMAND WORD 4               *                   BU212000

                                   1416+*            *            *            *            *                   BU214000
                                   1417+*****************************************************                   BU216000
                                   1418+*            *            *            *            *                   BU218000
                                   1419+*                                                   *                   BU220000
                                   1420+*        CHANNEL COMMAND WORD 4 (CONTINUED)         *                   BU222000
                                   1421+*            *            *            *            *                   BU224000
                                   1422+*****************************************************                   BU226000
                                   1423+*   BUFSTART *            *            *            *                   BU228000
                                   1424+*                                                   *                   BU230000
                                   1425+*              VARIABLE LENGTH BUFFER               *                   BU232000
                                   1426+*            *            *            *            *                   BU234000
                                   1427+*****************************************************                   BU236000

OBLD     HASP BUFFER FORMAT (CONTINUED)                                                                        PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78








                                   1430+*****************************************************                   BU240000
                                   1431+*   HDBNXTRK *            *            *            *                   BU242000
                                   1432+*   NOTE -- THIS WORD IS SYNONYMOUS WITH BUFSTART   *                   BU244000
                                   1433+*            HASP DATA BLOCK CHAIN TRACK            *                   BU246000
                                   1434+*            *            *            *            *                   BU248000
                                   1435+*****************************************************                   BU250000
                                   1436+*   HDBDSKEY *            *            *            *                   BU250200
                                   1437+*                                                   *                   BU250600
                                   1438+*           HASP DATA BLOCK DATA SET KEY            *                   BU251000
                                   1439+*            *            *            *            *                   BU251400
                                   1440+*****************************************************                   BU251800

                                   1441+*   HDBSTART *            *            *            *                   BU252000
                                   1442+*                                                   *                   BU254000
                                   1443+*               HASP DATA BLOCK START               *                   BU256000

                                   1444+*            *            *            *            *                   BU258000
                                   1445+*****************************************************                   BU260000
OBLD     HASP OVERLAY AREA FORMAT                                                                              PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                   1448+*****************************************************                   BU390000
                                   1449+*   OACENAME *            *            *            *                   BU392000
                                   1450+*   NOTE -- THIS WORD IS SYNONYMOUS WITH BUFSTART   *                   BU394000
                                   1451+*              NAME OF OVERLAY ROUTINE              *                   BU396000
                                   1452+*            *            *            *            *                   BU398000
                                   1453+*****************************************************                   BU400000

                                   1454+*   OACEASMO *            *            *            *                   BU402000
                                   1455+*                                                   *                   BU404000
                                   1456+*        ASSEMBLY ORIGIN OF OVERLAY ROUTINE         *                   BU406000
                                   1457+*            *            *            *            *                   BU408000

                                   1458+*****************************************************                   BU410000
                                   1459+*   OACEPROG *            *            *            *                   BU412000
                                   1460+*                                                   *                   BU414000
                                   1461+*          ENTRY POINT OF OVERLAY ROUTINE           *                   BU416000
                                   1462+*            *            *            *            *                   BU418000
                                   1463+*****************************************************                   BU420000

                                   1464+*            *            *            *            *                   BU422000
                                   1465+*                                                   *                   BU424000
                                   1466+*           VARIABLE LENGTH OVERLAY AREA            *                   BU426000
                                   1467+*            *            *            *            *                   BU428000
                                   1468+*****************************************************                   BU430000
                                   1469+*   OACEPCE  *            *            *            *                   BU432000
                                   1470+*                                                   *                   BU434000
                                   1471+*         CHAIN OF PCE'S USING OVERLAY AREA         *                   BU436000

                                   1472+*            *            *            *            *                   BU438000

                                   1473+*****************************************************                   BU440000
OBLD     HASP BUFFER DSECT                                                                                     PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                             1475+BUFDSECT DSECT                     BUFFER DSECT                         BU444000
000000                             1476+IOBFLAG1 DS    C                   I/O FLAGS                            BU446000
000001                             1477+IOBFLAG2 DS    C                   I/O FLAGS                            BU448000
000002                             1478+IOBSENS0 DS    C                   FIRST SENSE BYTE                     BU450000
000003                             1479+IOBSENS1 DS    C                   SECOND SENSE BYTE                    BU452000
000004                             1480+IOBECBCC DS    0C                  I/O COMPLETION CODE                  BU454000

000004                             1481+IOBECBPT DS    F                   ADDRESS OF HASP EVENT CONTROL BLOCK  BU456000
000008                             1482+IOBFLAG3 DS    C                   I/O FLAGS                            BU458000
000009                             1483+IOBCSW   DS    CL7                 CHANNEL STATUS WORD                  BU460000
000010                             1484+IOBSIOCC DS    0C                  SIO CONDITION CODE                   BU462000
000010                             1485+IOBSTART DS    F                   ADDRESS OF CHANNEL PROGRAM           BU464000

000014                             1486+IOBDCBPT DS    F                   ADDRESS OF DATA CONTROL BLOCK        BU466000
000018                             1487+IOBREPM  DS    0C                  REPOSITION MODIFIER                  BU468000

000018                             1488+IOBRESTR DS    F                   RESTART ADDRESS OF CHANNEL PROGRAM   BU470000
00001C                             1489+TPBMXREC DS    0C                  MAXIMUM RJE OUTPUT RECORD COUNT      BU472000
00001C                             1490+IOBINCAM DS    H                   BLOCK COUNT INCREMENT                BU474000
00001E                             1491+IOBERRCT DS    H                   ERROR COUNT                          BU476000
000020                             1492+TPBLCCC  DS    0C                  LAST REMOTE OUTPUT COMMAND OP.       BU478000
000020                             1493+TPBLCCAD DS    0F                  ADDR OF LAST REMOTE CARRIAGE CONTROL BU480000
000020                             1494+IOBXTENT DS    C                   DEB EXTENT                           BU482000
000021                             1495+IOBSEEK  DS    0CL7,3C             DIRECT ACCESS SEEK ADDRESS           BU484000

000024                             1496+TPBRECNT DS    0C                  CURRENT REMOTE OUTPUT RECORD COUNT   BU486000
000024                             1497+TPBFDATA DS    F                   REMOTE DATA POINTER                  BU488000
000028                             1498+BUFECBCC DS    0C                  I/O COMPLETION CODE                  BU490000
000028                             1499+BUFCHAIN DS    F                   BUFFER CHAIN FIELD                   BU492000
00002C                             1500+BUFTYPE  DS    0C                  BUFFER TYPE                          BU494000

00002C                             1501+BUFDCT   DS    F                   ADDRESS OF DEVICE CONTROL TABLE      BU496000
000030                             1502+BUFEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     BU498000
000034                             1503+OACECHN  DS    0F                  OVERLAY AREA CHAIN WORD              BU500000

000034                             1504+BUFDDB   DS    0F                  DDB ADDRESS                          BU501000
000034                             1505+LCBMCB   DS    C                   REMOTE MODE BYTE                     BU502000
000035                             1506+LCBACK   DS    C                   REMOTE NEXT ACKNOWLEDGEMENT          BU504000
000036                             1507+LCBRCB   DS    H                   REMOTE RESPONSE CONTROL BLOCK        BU506000
000038                             1508+IOBCCW1  DS    D                   CHANNEL COMMAND WORD 1               BU508000
000040                             1509+IOBCCW2  DS    D                   CHANNEL COMMAND WORD 2               BU510000
000048                             1510+IOBCCW3  DS    0D,5C               CHANNEL COMMAND WORD 3               BU511000

00004D                             1511+OACEPRIO DS    C                   PRIO OF OLAY ROUTINE IN THIS AREA    BU512000
00004E                             1512+OACEOCON DS    H                   OVERLAY CALL CONSTANT                BU514000
000050                             1513+IOBCCW4  DS    D                   CHANNEL COMMAND WORD 4               BU516000
000058                             1514+BUFSTART DS    0D                  START OF BUFFER WORK SPACE           BU518000
000058                             1515+OACENAME DS    0F                  NAME OF OVERLAY ROUTINE              BU520000

000058                             1516+HDBNXTRK DS    F                   HASP DATA BLOCK CHAIN TRACK          BU522000
00005C                             1517+OACEASMO DS    0F                  ASSEMBLY ORIGIN OF OVERLAY ROUTINE   BU524000
00005C                             1518+HDBDSKEY DS    F                   HASP DATA BLOCK DATA SET KEY         BU526000
000060                             1519+OACEPROG DS    0F                  ENTRY POINT OF OVERLAY ROUTINE       BU528000

000060                             1520+HDBSTART DS    F                   HASP DATA BLOCK START                BU529000
000064                      00058  1521+         ORG   BUFSTART                                                 BU530000
000058                             1522+IOBCCW5  DS    D                   CHANNEL COMMAND WORD 5               BU534000
000060                             1523+IOBCCW6  DS    D                   CHANNEL COMMAND WORD 6               BU536000
000068                             1524+IOBCCW7  DS    D                   CHANNEL COMMAND WORD 7               BU538000
000070                             1525+IOBCCW8  DS    D                   CHANNEL COMMAND WORD 8               BU540000

000078                             1526+TPBUFST  DS    0F                  START OF REMOTE BUFFER WORK SPACE    BU542000
000078                      00558  1527+         ORG   BUFSTART+1280           SPACE OVER OVERLAY AREA          BU544000
000558                             1528+OACEPCE  DS    F                   CHAIN OF PCE'S USING OVERLAY AREA    BU546000
000000                             1529+HASPOBLD CSECT                     END OF BUFFER DSECT                  BU548000
OBLD     HASP BUFFER STATUS BIT DEFINITIONS                                                                    PAGE   40



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                   1532+*                             BUFFER TYPE BIT DEFINITIONS               BU554000




                            00080  1534+TPBUF    EQU   X'80'               REMOTE BUFFER TYPE                   BU558000
                            00040  1535+OLAYBUF  EQU   X'40'               OVERLAY AREA TYPE                    BU560000
                            00000  1536+HASPBUF  EQU   X'00'               HASP BUFFER TYPE                     BU562000
OBLD     HASP OVERLAY TABLE FORMAT                                                                             PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                   1539+*****************************************************                   OT028000
                                   1540+*  OTBADDR   *            *   OTBTRAK  *            *                   OT030000
                                   1541+*   OTBPRIO  *  ADDRESS OF RESIDENT OVERLAY MODULE  *                   OT032000

                                   1542+*  PRIORITY  *  RESERVED  * RELATIVE T R IF OVERLAY *                   OT034000
                                   1543+*            *            *            *            *                   OT036000
                                   1544+*****************************************************                   OT038000
OBLD     HASP OVERLAY TABLE DSECT                                                                              PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             1547+OTBDSECT DSECT                     HASP OVERLAY TABLE DSECT             OT056000
000000                             1548+OTBADDR  DS    0F                  ADDRESS OF RESIDENT OVERLAY MODULE   OT064000
000000                             1549+OTBPRIO  DS    C                   PRIORITY OF NON-RESIDENT OVERLAY     OT066000

                                   1550+*                                   OR X'FF' IF RESIDENT                OT068000
000001                             1551+         DS    C                   RESERVED                             OT070000
000002                             1552+OTBTRAK  DS    H                   RELATIVE DISK T R OF OVERLAY MODULE  OT072000
                            00004  1553+OTBSIZE  EQU   *-OTBDSECT                                               OT082000
000000                             1554+HASPOBLD CSECT                     END OF OVERLAY TABLE DSECT           OT084000

OBLD     HASP OVERLAY BUILDER - OBJECT CARD AND SYMBOL TABLE DEFINITIONS                                       PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                            00000  1557 CDID     EQU   0                   OBJECT CARD IDENTIFIER               O0044000
                            00001  1558 CDTYP    EQU   1                   OBJECT CARD TYPE                     O0046000
                            00004  1559 CDADR    EQU   4                   OBJECT CARD ADDRESS                  O0048000

                            0000A  1560 CDNUM    EQU   10                  OBJECT CARD BYTE COUNT               O0050000
                            0000E  1561 CDESID   EQU   14                  OBJECT CARD ESID NUMBER              O0052000
                            00010  1562 CDATA    EQU   16                  OBJECT CARD DATA                     O0054000



                            00000  1564 ESNA     EQU   0                   EXTERNAL SYMBOL NAME                 O0058000
                            00008  1565 ESTYP    EQU   8                   EXTERNAL SYMBOL TYPE                 O0060000
                            00008  1566 ESADR    EQU   8                   EXTERNAL SYMBOL ADDRESS              O0062000
                            0000C  1567 ESLN     EQU   12                  EXTERNAL SYMBOL CSECT LENGTH         O0064000

                            0000E  1568 ESLDEI   EQU   14                  EXTERNAL SYMBOL ENTRY ESID REFERENCE O0066000
                            00010  1569 ESL      EQU   16                  EXTERNAL SYMBOL DATA ITEM LENGTH     O0068000
                            00000  1570 ESTSD    EQU   0                   EXTERNAL TYPE CSECT DEFINITION       O0070000
                            00001  1571 ESTLD    EQU   1                   EXTERNAL TYPE ENTRY DEFINITION       O0072000
                            00002  1572 ESTER    EQU   2                   EXTERNAL TYPE EXTERNAL REFERENCE     O0074000
                            00006  1573 ESTPR    EQU   6                   EXTERNAL TYPE DUMMY (PSEUDO REG)     O0076000
                            00007  1574 ESTNULL  EQU   7                   EXTERNAL TYPE NULL                   O0078000



                            00000  1576 RLEIR    EQU   0                   RLD ITEM RELOCATION ESID             O0082000
                            00002  1577 RLEIP    EQU   2                   RLD ITEM POSITION ESID               O0084000

                            00004  1578 RLF      EQU   4                   RLD ITEM FLAGS                       O0086000
                            00004  1579 RLADR    EQU   4                   RLD ITEM ADDRESS                     O0088000
                            00004  1580 RLSL     EQU   4                   RLD ITEM SHORT LENGTH                O0090000
                            00008  1581 RLLL     EQU   8                   RLD ITEM LONG LENGTH                 O0092000



                            00000  1583 SYMNA    EQU   0                   SYMBOL TABLE NAME                    O0096000
                            00000  1584 SYMLGTH  EQU   0                   SYMBOL TABLE CSECT LENGTH            O0097000
                            00008  1585 SYMADR   EQU   8                   SYMBOL TABLE ADDRESS                 O0098000
                            0000C  1586 SYMOCON  EQU   12                  SYMBOL TABLE OVERLAY CONSTANT        O0100000
                            0000C  1587 SYMERID  EQU   12                  SYMBOL TABLE OTAB RESIDENT EXT REF   O0102000
                            0000E  1588 SYMPRI   EQU   14                  SYMBOL TABLE OVERLAY PRIORITY        O0104000
                            0000F  1589 SYMTYP   EQU   15                  SYMBOL TABLE TYPE                    O0106000
                            00010  1590 SYML     EQU   16                  SYMBOL TABLE ITEM LENGTH             O0108000
                            00080  1591 SYMT$SD  EQU   X'80'               SYMBOL TYPE OVERLAY - DISK OR RES    O0110000

                            00040  1592 SYMTWRO  EQU   X'40'               SYMBOL TYPE OVERLAY - WRITE TO DA    O0112000

                            00020  1593 SYMTERRL EQU   X'20'               SYMBOL TYPE ERROR - TOO LONG         O0114000


                            00001  1595 EIRES    EQU   1                   ESID TYPE - PASS RESIDENT CODE TO OS O0118000
                            00002  1596 EIDUP    EQU   2                   ESID TYPE - DELETE DUPLICATE CSECT   O0120000
                            00004  1597 EIASMO   EQU   4                   ESID TYPE - DELETE ASSEM ORIGIN RLD  O0122000

OBLD     HASP OVERLAY BUILDER - OS ENTRY REQUIREMENTS                                                          PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                            00000  1600          USING *,15                TEMPORARY ADDRESSABILITY             O0128000
000000 90EC D00C      0000C        1601          STM   14,12,12(13)        SAVE CALLER'S REGISTERS              O0130000
000004 50D0 F024      00024        1602          ST    13,SAVEAREA+4       FORWARD CHAIN SAVE AREAS             O0132000
000008 18CD                        1603          LR    R12,13              REMEMBER SYSTEM SAVE AREA            O0134000
00000A 41D0 F020      00020        1604          LA    SAVE,SAVEAREA       ESTABLISH                            O0136000
                                   1605          DROP  15                   PERMANENT                           O0138000

                            00020  1606          USING SAVEAREA,SAVE,BASE2   ADDRESSABILITY                     O0140000

00000E 50D0 C008      00008        1607          ST    SAVE,8(,R12)        BACK CHAIN SAVE AREAS                O0142000
000012 41C0 DFFF      00FFF        1608          LA    BASE2,4095(,SAVE)   LOAD                                 O0144000
000016 41C0 C001      00001        1609          LA    BASE2,1(,BASE2)      SECOND BASE VALUE                   O0146000
00001A 47F0 D088      000A8        1610          B     PROGRAM             GO TO BEGIN PROGRAM                  O0148000



00001E 0000
000020 0000000000000000            1612 SAVEAREA DC    9D'0'               SAVE AREA                            O0152000


                                   1614 $PATCHSP $PATCHSP 64               PATCH SPACE                          O0156000
000068                             1615+$PATCHSP DS    0H                                                       NU006000
000068 D048                        1616+         DC    S(*)                                                     PA014000
00006A D04A                        1617+         DC    S(*)                                                     PA014000
00006C D04C                        1618+         DC    S(*)                                                     PA014000
00006E D04E                        1619+         DC    S(*)                                                     PA014000
000070 D050                        1620+         DC    S(*)                                                     PA014000

000072 D052                        1621+         DC    S(*)                                                     PA014000
000074 D054                        1622+         DC    S(*)                                                     PA014000
000076 D056                        1623+         DC    S(*)                                                     PA014000
000078 D058                        1624+         DC    S(*)                                                     PA014000

00007A D05A                        1625+         DC    S(*)                                                     PA014000
00007C D05C                        1626+         DC    S(*)                                                     PA014000
00007E D05E                        1627+         DC    S(*)                                                     PA014000
000080 D060                        1628+         DC    S(*)                                                     PA014000
000082 D062                        1629+         DC    S(*)                                                     PA014000
000084 D064                        1630+         DC    S(*)                                                     PA014000
000086 D066                        1631+         DC    S(*)                                                     PA014000
000088 D068                        1632+         DC    S(*)                                                     PA014000
00008A D06A                        1633+         DC    S(*)                                                     PA014000
00008C D06C                        1634+         DC    S(*)                                                     PA014000
00008E D06E                        1635+         DC    S(*)                                                     PA014000
000090 D070                        1636+         DC    S(*)                                                     PA014000

000092 D072                        1637+         DC    S(*)                                                     PA014000
000094 D074                        1638+         DC    S(*)                                                     PA014000
000096 D076                        1639+         DC    S(*)                                                     PA014000

000098 D078                        1640+         DC    S(*)                                                     PA014000
00009A D07A                        1641+         DC    S(*)                                                     PA014000
00009C D07C                        1642+         DC    S(*)                                                     PA014000
00009E D07E                        1643+         DC    S(*)                                                     PA014000
0000A0 D080                        1644+         DC    S(*)                                                     PA014000
0000A2 D082                        1645+         DC    S(*)                                                     PA014000
0000A4 D084                        1646+         DC    S(*)                                                     PA014000
0000A6 D086                        1647+         DC    S(*)                                                     PA014000
OBLD     HASP OVERLAY BUILDER - OPEN ALL DATA SETS                                                             PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1649 PROGRAM  NULL                                                           O0160000
0000A8                             1650+PROGRAM  DS    0H                                                       NU006000

                                   1651          TIME  TU                  LOOK AT THE CLOCK                    O0162000

0000A8 1B11                        1652+         SR    1,1                               ZERO 1 TO SPECIFY UNIT 00260000
0000AA 0A0B                        1653+         SVC   11                                ISSUE TIME SVC         00280000

0000AC 8900 0009      00009        1654          SLL   0,9                 POSITION FASTEST CHANGING BITS       O0164000
0000B0 5000 D8C4      008E4        1655          ST    0,OLIBTAG           REMEMBER VALUE AS OLIBTAG            O0166000
                                   1656          OPEN  (SYSIN,,SYSOBJ,,SYSPRINT,(OUTPUT),SYSLIN,(OUTPUT),OLAYLICO0168000
                                                       B,(OUTPUT))         OPEN ALL DATA SETS                   O0170000
0000B4                             1657+         CNOP  0,4                               ALIGN LIST TO FULLWORD 01740001
0000B4 4510 D0AC      000CC        1658+         BAL   1,*+24                            LOAD REG1 W/LIST ADDR. 01780000
0000B8 00                          1659+         DC    AL1(0)                            OPTION BYTE            01900000
0000B9 000C78                      1660+         DC    AL3(SYSIN)                        DCB ADDRESS            01920000
0000BC 00                          1661+         DC    AL1(0)                            OPTION BYTE            01900000
0000BD 000CD8                      1662+         DC    AL3(SYSOBJ)                       DCB ADDRESS            01920000
0000C0 0F                          1663+         DC    AL1(15)                           OPTION BYTE            01900000
0000C1 000D38                      1664+         DC    AL3(SYSPRINT)                     DCB ADDRESS            01920000

0000C4 0F                          1665+         DC    AL1(15)                           OPTION BYTE            01900000
0000C5 000D98                      1666+         DC    AL3(SYSLIN)                       DCB ADDRESS            01920000

0000C8 8F                          1667+         DC    AL1(143)                          OPTION BYTE            01900000

0000C9 000DF8                      1668+         DC    AL3(OLAYLIB)                      DCB ADDRESS            01920000
0000CC 0A13                        1669+         SVC   19                                ISSUE OPEN SVC         04000000





                                   1671          PUT   SYSPRINT,PRTITLE    PRINT LISTING TITLE                  O0174000
0000CE 4110 DD18      00D38        1672+         LA    1,SYSPRINT                        LOAD PARAMETER REG 1   00100000
0000D2 4100 DA89      00AA9        1673+         LA    0,PRTITLE                         LOAD PARAMETER REG 0   00280000
0000D6 58F0 1030      00030        1674+         L     15,48(0,1)                        LOAD PUT ROUTINE ADDR. 00100000
0000DA 05EF                        1675+         BALR  14,15                             LINK TO PUT ROUTINE    00120000
OBLD     HASP OVERLAY BUILDER - PREPARE OLAYLIB                                                                PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1677 PREPOLIB WRITE PWROLIB,SF,OLAYLIB,PRLINE,'S'  WRITE FILLER RECORD       O0174400

0000DC                             1678+         CNOP  0,4                                                      02179019
0000DC 4510 D0D4      000F4        1679+PREPOLIB BAL   1,*+24                   LOAD DECB ADDRESS               02187003
0000E0 00000000                    1680+PWROLIB  DC    F'0'                              EVENT CONTROL BLOCK    02200000

0000E4 80                          1681+         DC    X'80'                             TYPE FIELD             02260000
0000E5 20                          1682+         DC    X'20'                             TYPE FIELD             00840000
0000E6 0000                        1683+         DC    AL2(0)                            LENGTH                 02480000
0000E8 00000DF8                    1684+         DC    A(OLAYLIB)                        DCB ADDRESS            02540000
0000EC 00000A30                    1685+         DC    A(PRLINE)                         AREA ADDRESS           02660000
0000F0 00000000                    1686+         DC    A(0)                              RECORD POINTER WORD    02720000
0000F4 58F1 0008      00008        1687+         L     15,8(1,0)           LOAD DCB ADDRESS                     02091503
0000F8 58F0 F030      00030        1688+         L     15,48(0,15)                       LOAD RDWR ROUTINE ADDR 02097203
0000FC 05EF                        1689+         BALR  14,15                             LINK TO RDWR ROUTINE   02102903
                                   1690          CHECK PWROLIB             CHECK WRITE DONE OK                  O0174600
0000FE 4110 D0C0      000E0        1691+         LA    1,PWROLIB                         LOAD PARAMETER REG 1   00100000
000102 58E0 1008      00008        1692+         L     14,8(0,1)                         PICK UP DCB ADDRESS    00100000

000106 58F0 E034      00034        1693+         L     15,52(0,14)                       LOAD CHECK ROUT. ADDR. 00120000
00010A 05EF                        1694+         BALR  14,15                             LINK TO CHECK ROUTINE  00140000
                                   1695          NOTE  OLAYLIB             GET RELATIVE DA ADDRESS              O0174800

00010C 4110 DDD8      00DF8        1696+         LA    1,OLAYLIB                         LOAD PARAMETER REG 1   00100000
000110 58F0 1054      00054        1697+         L     15,84(0,1)                        LOAD NOTE  RTN ADDRESS 00100000
000114 05EF                        1698+         BALR  14,15                             LINK TO NOTE  ROUTINE  00120000
000116 8910 0010      00010        1699          SLL   R1,16               ISOLATE RECORD NUMBER                O0175000
00011A 8810 0018      00018        1700          SRL   R1,24                FROM TTR0                           O0175200
00011E 4910 DC14      00C34        1701          CH    R1,=H'1'            WAS RECORD 1 WRITTEN                 O0175400
000122 4770 D0BC      000DC        1702          BNE   PREPOLIB            LOOP IF NOT                          O0175600
OBLD     HASP OVERLAY BUILDER - READ AND PROCESS CONTROL CARDS                                                 PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000126 9209 DA89      00AA9        1704          MVI   PRTITLE,X'09'       SET PRINT LINE FOR SINGLE SPACE      O0178000
00012A 4130 C238      01258        1705          LA    WB,SYMS             WB = ADDR OF SYMTAB BEGINNING        O0180000
00012E 9110 DC88      00CA8        1706          TM    SYSIN+DCBOFLGS-IHADCB,X'10' IS THERE A CONTROL CARD FILE O0182000

000132 4780 D18A      001AA        1707          BZ    EOFIN               BRANCH IF NOT                        O0184000
                                   1708 GETIN    GET   SYSIN               GET NEXT CONTROL CARD                O0186000
000136 4110 DC58      00C78        1709+GETIN    LA    1,SYSIN                           LOAD PARAMETER REG 1   00100000
00013A 58F0 1030      00030        1710+         L     15,48(0,1)                        LOAD GET ROUTINE ADDR. 00100000

00013E 05EF                        1711+         BALR  14,15                             LINK TO GET ROUTINE    00120000
000140 1821                        1712          LR    WA,1                WA = ADDRESS OF CONTROL CARD         O0188000
000142 D24F DA94 2000 00AB4 00000  1713          MVC   PRTITLE+11(80),0(WA) MOVE CONTROL CARD TO PRINT LINE     O0190000
                                   1714          PUT   SYSPRINT,PRTITLE     AND PRINT IT                        O0192000
000148 4110 DD18      00D38        1715+         LA    1,SYSPRINT                        LOAD PARAMETER REG 1   00100000
00014C 4100 DA89      00AA9        1716+         LA    0,PRTITLE                         LOAD PARAMETER REG 0   00280000

000150 58F0 1030      00030        1717+         L     15,48(0,1)                        LOAD PUT ROUTINE ADDR. 00100000
000154 05EF                        1718+         BALR  14,15                             LINK TO PUT ROUTINE    00120000
000156 D502 2000 DC22 00000 00C42  1719          CLC   0(3,WA),=C'HA$'     DOES AN OLAY NAME BEGIN IN COL 1     O0194000
00015C 4770 D116      00136        1720          BNE   GETIN               IGNORE IF NOT                        O0196000
000160 D207 3000 2000 00000 00000  1721          MVC   SYMNA(8,WB),0(WA)   MOVE MODULE NAME TO SYM TAB          O0198000
000166 9207 300F      0000F        1722          MVI   SYMTYP(WB),ESTNULL  INDICATE NULL TYPE                   O0200000
00016A 9240 300E      0000E        1723          MVI   SYMPRI(WB),X'40'    INDICATE PRIORITY NOT SET            O0202000
00016E 4810 D8CA      008EA        1724          LH    R1,OCONS            ASSIGN                               O0204000

000172 4010 300C      0000C        1725          STH   R1,SYMOCON(,WB)      AN                                  O0206000
000176 4110 1001      00001        1726          LA    R1,1(,R1)             OVERLAY                            O0208000

00017A 4010 D8CA      008EA        1727          STH   R1,OCONS               CONSTANT                          O0210000
00017E 9540 200F      0000F        1728          CLI   15(WA),C' '         IS COL 16 BLANK                      O0212000
000182 4780 D182      001A2        1729          BE    GI1                 BRANCH IF YES                        O0214000
000186 4310 200F      0000F        1730          IC    R1,15(,WA)          R1 = 1ST PRIORITY DIGIT              O0216000
00018A 9540 2010      00010        1731          CLI   16(WA),C' '         IS COL 17 BLANK                      O0218000
00018E 4780 D17A      0019A        1732          BE    *+12                SKIP IF YES                          O0220000
000192 4310 2010      00010        1733          IC    R1,16(,WA)          R1 = 2ND PRIORITY DIGIT              O0222000
000196 4110 100A      0000A        1734          LA    R1,10(,R1)          ADD 10                               O0224000

00019A 4210 300E      0000E        1735          STC   R1,SYMPRI(,WB)      SET PRIORITY IN SYM TAB              O0226000
00019E 940F 300E      0000E        1736          NI    SYMPRI(WB),X'0F'    LIMIT PRIORITY TO 15                 O0228000
0001A2 4130 3010      00010        1737 GI1      LA    WB,SYML(,WB)        WB = ADDRESS OF NEXT FREE SYM TAB    O0230000
0001A6 47F0 D116      00136        1738          B     GETIN               GO TO READ NEXT CONTROL CARD         O0232000
OBLD     HASP OVERLAY BUILDER - INITIALIZE FOR AN OBJECT MODULE                                                PAGE   48



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1740 EOFIN    NULL                      CONTROL CARD END-OF-FILE DETECTED    O0236000
0001AA                             1741+EOFIN    DS    0H                                                       NU006000



0001AA D506 DAC5 DC25 00AE5 00C45  1743          CLC   PRTITLE+60(7),=C'PROGRAM' WERE CONTROL CARDS PRINTED     O0240000
0001B0 4780 D1A6      001C6        1744          BE    PUTHEAD             BRANCH IF NO                         O0242000
0001B4 9213 DA89      00AA9        1745          MVI   PRTITLE,X'13'       SKIP TWO LINES                       O0244000
                                   1746          PUT   SYSPRINT,PRTITLE     ON THE LISTING                      O0246000
0001B8 4110 DD18      00D38        1747+         LA    1,SYSPRINT                        LOAD PARAMETER REG 1   00100000
0001BC 4100 DA89      00AA9        1748+         LA    0,PRTITLE                         LOAD PARAMETER REG 0   00280000

0001C0 58F0 1030      00030        1749+         L     15,48(0,1)                        LOAD PUT ROUTINE ADDR. 00100000
0001C4 05EF                        1750+         BALR  14,15                             LINK TO PUT ROUTINE    00120000
                                   1751 PUTHEAD  PUT   SYSPRINT,PRHEADER   PRINT MODULE INFO HEADER LINE        O0248000
0001C6 4110 DD18      00D38        1752+PUTHEAD  LA    1,SYSPRINT                        LOAD PARAMETER REG 1   00100000
0001CA 4100 DA10      00A30        1753+         LA    0,PRHEADER                        LOAD PARAMETER REG 0   00280000

0001CE 58F0 1030      00030        1754+         L     15,48(0,1)                        LOAD PUT ROUTINE ADDR. 00100000
0001D2 05EF                        1755+         BALR  14,15                             LINK TO PUT ROUTINE    00120000
0001D4 9209 DA10      00A30        1756          MVI   PRLINE,X'09'        SET FOR SINGLE SPACING               O0250000






                                   1758 &TEMP    SETA  4*(&MAXESID+3)                                           O0254000
                                   1759 NEWMOD   $XXC  XC,ESIDS,ESIDS,&TEMP  CLEAR THE ESID TABLE               O0255000
0001D8 D7FF DE30 DE30 00E50 00E50  1760+NEWMOD   XC    ESIDS+0(256),ESIDS+0                                     XX036000
0001DE D7FF DF30 DF30 00F50 00F50  1761+         XC    ESIDS+256(256),ESIDS+256                                 XX036000
0001E4 D7FF C030 C030 01050 01050  1762+         XC    ESIDS+512(256),ESIDS+512                                 XX036000

0001EA D7FF C130 C130 01150 01150  1763+         XC    ESIDS+768(256),ESIDS+768                                 XX036000
0001F0 D707 C230 C230 01250 01250  1764+         XC    ESIDS+1024(8),ESIDS+1024                                 XX050000
0001F6 D203 D8C0 DC08 008E0 00C28  1765          MVC   OVADR,=A(WORK)      SET OVERLAY LOADING TO WORK ORIGIN   O0256000
0001FC D201 D8CC DC14 008EC 00C34  1766          MVC   SEQNO,=H'1'         SET OUTPUT CARD SEQUENCE TO ONE      O0258000
OBLD     HASP OVERLAY BUILDER - READ, CLASSIFY AN OBJECT CARD                                                  PAGE   49



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1768 GETOBJ   GET   SYSOBJ              GET NEXT OBJECT CARD                 O0262000
000202 4110 DCB8      00CD8        1769+GETOBJ   LA    1,SYSOBJ                          LOAD PARAMETER REG 1   00100000
000206 58F0 1030      00030        1770+         L     15,48(0,1)                        LOAD GET ROUTINE ADDR. 00100000
00020A 05EF                        1771+         BALR  14,15                             LINK TO GET ROUTINE    00120000

00020C 9500 D8CE      008EE        1772          CLI   OBJFLG,0            TEST UNLIKE CONCAT RE-GET FLAG       O0264000
000210 9200 D8CE      008EE        1773          MVI   OBJFLG,0            RESET FLAG                           O0266000
000214 4770 D1E2      00202        1774          BNE   GETOBJ              BRANCH IF RE-GET IS REQUIRED         O0268000
000218 1821                        1775          LR    WA,1                WA = OBJECT CARD ADDRESS             O0270000
00021A 4830 200A      0000A        1776          LH    WB,CDNUM(,WA)       WB = OBJECT CARD BYTE COUNT          O0272000

00021E 4840 200E      0000E        1777          LH    WC,CDESID(,WA)      WC = OBJECT CARD ESID NUMBER         O0274000
000222 4940 DC16      00C36        1778          CH    WC,=C'  '           IS NUMBER = TO BLANKS                O0276000
000226 4780 D21A      0023A        1779          BE    GO2                 OK IF YES                            O0278000
                                   1780          CH    WC,=Y(&MAXESID)     IS NUMBER GREATER THAN TABLE LIMIT   O0280000
00022A 4940 DC18      00C38        1781+         CH    WC,=Y(255)          IS NUMBER GREATER THAN TABLE LIMIT   O0280000

00022E 4720 D256      00276        1782          BH    GO1                 BRANCH IF YES                        O0282000
000232 8940 0002      00002        1783          SLL   WC,2                WC = ADDRESS OF ESID TABLE           O0284000
000236 4144 DE30      00E50        1784          LA    WC,ESIDS(WC)         FOR CARD'S ESID NUMBER              O0286000
00023A 4150 2010      00010        1785 GO2      LA    WD,CDATA(,WA)       WD = ADDRESS OF OBJECT CARD DATA     O0288000
00023E 9502 2000      00000        1786          CLI   CDID(WA),2          TEST OBJECT CARD IDENTIFIER          O0290000
000242 4770 D24E      0026E        1787          BNE   GO3                 BRANCH IF NOT OBJECT CARD            O0292000

000246 D502 2001 DC2C 00001 00C4C  1788          CLC   CDTYP(3,WA),=C'TXT' IS THIS A TEXT CARD                  O0294000
00024C 4780 D420      00440        1789          BE    TXT                 BRANCH IF YES                        O0296000
000250 D502 2001 DC2F 00001 00C4F  1790          CLC   CDTYP(3,WA),=C'RLD' IS THIS AN RLD CARD                  O0298000
000256 4780 D454      00474        1791          BE    RLD                 BRANCH IF YES                        O0300000

00025A D502 2001 DC32 00001 00C52  1792          CLC   CDTYP(3,WA),=C'ESD' IS THIS AN ESD CARD                  O0302000
000260 4780 D272      00292        1793          BE    ESD                 BRANCH IF YES                        O0304000
000264 D502 2001 DC35 00001 00C55  1794          CLC   CDTYP(3,WA),=C'END' IS THIS AN END CARD                  O0306000
00026A 4780 D526      00546        1795          BE    END                 BRANCH IF YES                        O0308000
00026E 4580 D860      00880        1796 GO3      BAL   WG,PUTLINA          WRITE UNKNOWN CARD TO LKED           O0310000

000272 47F0 D1E2      00202        1797          B     GETOBJ              GO READ NEXT OBJECT CARD             O0312000





                                   1799 GO1      PUT   SYSPRINT,(WA)       PRINT INCORRECT CARD                 O0316000
000276 4110 DD18      00D38        1800+GO1      LA    1,SYSPRINT                        LOAD PARAMETER REG 1   00100000
00027A 1802                        1801+         LR    0,WA                              LOAD PARAMETER REG 0   00320000
00027C 58F0 1030      00030        1802+         L     15,48(0,1)                        LOAD PUT ROUTINE ADDR. 00100000

000280 05EF                        1803+         BALR  14,15                             LINK TO PUT ROUTINE    00120000
                                   1804          ABEND 101,DUMP            ABEND, VERY BAD OBJECT CARD INPUT    O0318000
000282                             1805+         DS    0H                                                       00080019

000282 0700                        1806+         CNOP  0,4                                                      00860000
000284 47F0 D26C      0028C        1807+         B     *+8            BRANCH AROUND CONSTANT                    00880019
000288 80                          1808+         DC    AL1(128)                          DUMP/STEP CODE         00900000
000289 000065                      1809+         DC    AL3(101)                          COMPLETION CODE        00920000
00028C 5810 D268      00288        1810+         L     1,*-4                             LOAD CODES INTO REG 1  00940000

000290 0A0D                        1811+         SVC   13                                LINK TO ABEND ROUTINE  00960000
OBLD     HASP OVERLAY BUILDER - PROCESS AN ESD CARD                                                            PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000292 8830 0004      00004        1813 ESD      SRL   WB,4                WB = NUM OF ESD ITEMS ON CARD        O0322000
000296 9507 5008      00008        1814 S1       CLI   ESTYP(WD),ESTNULL   IS ESD TYPE LEGAL                    O0324000
00029A 4100 0001      00001        1815          LA    R0,EIRES            R0 = ESID FLAG TO PASS TO OS         O0326000
00029E 4720 D408      00428        1816          BH    S23                 BRANCH IF NOT, PASS ITEM TO OS       O0328000
0002A2 D502 5000 DC22 00000 00C42  1817          CLC   ESNA(3,WD),=C'HA$'  IS NAME UNDER HASP OVERLAY CONTROL   O0330000

0002A8 4780 D298      002B8        1818          BE    S2                  BRANCH IF YES                        O0332000
0002AC 9501 5008      00008        1819          CLI   ESTYP(WD),ESTLD     IS THIS AN ENTRY POINT TYPE          O0334000

0002B0 4780 D410      00430        1820          BE    S24                 BRANCH IF YES                        O0336000
0002B4 47F0 D408      00428        1821          B     S23                 GO TO STORE ESID TYPE & GET NEXT ESD O0338000
0002B8 4110 C228      01248        1822 S2       LA    R1,SYMS-SYML        SET R1 = SCAN ENTIRE SYM TABLE       O0340000
0002BC 4110 1010      00010        1823 S3       LA    R1,SYML(,R1)        R1 = ADDR OF NEXT SYM TAB LOCATION   O0342000
0002C0 9500 1002      00002        1824          CLI   SYMNA+2(R1),0       HAS END OF TABLE BEEN REACHED        O0344000

0002C4 4770 D2E8      00308        1825          BNE   S4                  BRANCH IF NO                         O0346000
0002C8 D207 1000 5000 00000 00000  1826          MVC   SYMNA(8,R1),ESNA(WD) NEW SYMBOL, MOVE NAME TO TABLE      O0348000
0002CE D200 100F 5008 0000F 00008  1827          MVC   SYMTYP(1,R1),ESTYP(WD) SET SYM TYPE FROM ESD TYPE        O0350000
0002D4 5800 D8C4      008E4        1828          L     R0,OLIBTAG          R0 = OLIBTAG AS OCON                 O0352000
0002D8 D504 1003 DC38 00003 00C58  1829          CLC   SYMNA+3(5,R1),=C'Q$$$$' IS THIS OLIBTAG NAME             O0354000
0002DE 4780 D3A0      003C0        1830          BE    S21                 BRANCH IF YES                        O0356000
0002E2 48E0 D8CA      008EA        1831          LH    R14,OCONS           ASSIGN                               O0358000
0002E6 40E0 100C      0000C        1832          STH   R14,SYMOCON(,R1)     AN                                  O0360000
0002EA 180E                        1833          LR    R0,R14                OVERLAY CALLING                    O0362000

0002EC 8900 0010      00010        1834          SLL   R0,16                  CONSTANT                          O0364000

0002F0 41E0 E001      00001        1835          LA    R14,1(,R14)         LEFT HALF OF R0 =                    O0366000
0002F4 40E0 D8CA      008EA        1836          STH   R14,OCONS             ASSIGNED OVERLAY CONSTANT          O0368000
0002F8 9240 100E      0000E        1837          MVI   SYMPRI(R1),X'40'    SHOW SYM PRIO NOT YET SET            O0370000
0002FC 9500 5008      00008        1838          CLI   ESTYP(WD),ESTSD     IS THIS A CSECT DEFINITION           O0372000
000300 4770 D3A0      003C0        1839          BNE   S21                 BRANCH IF NOT                        O0374000

000304 47F0 D356      00376        1840          B     S6                  GO TO PROCESS NEW OVERLAY CSECT      O0376000
000308 D503 1004 5004 00004 00004  1841 S4       CLC   SYMNA+4(4,R1),ESNA+4(WD) ESD NAME MATCH LAST 4 CHARS SYM O0378000
00030E 4770 D29C      002BC        1842          BNE   S3                  BRANCH IF NOT, LOOK AT NEXT SYMBOL   O0380000
000312 4800 100C      0000C        1843          LH    R0,SYMOCON(,R1)     LEFT HALF R0 =                       O0382000
000316 8900 0010      00010        1844          SLL   R0,16                 ASSIGNED OVERLAY CONSTANT          O0384000
00031A 9500 5008      00008        1845          CLI   ESTYP(WD),ESTSD     IS THIS A CSECT DEFINITION           O0386000
00031E 4770 D3A0      003C0        1846          BNE   S21                 BRANCH IF NOT                        O0388000
000322 9507 100F      0000F        1847          CLI   SYMTYP(R1),ESTNULL  WAS SYMBOL ALTERED BY A CONTROL CARD O0390000
000326 4780 D34C      0036C        1848          BE    S7                  BRANCH IF YES                        O0392000
00032A 9500 100F      0000F        1849          CLI   SYMTYP(R1),ESTSD    HAS THIS CSECT BEEN PREV DEFINED     O0394000

00032E 4770 D346      00366        1850          BNE   S5                  BRANCH IF NOT                        O0396000

000332 D207 DA25 5000 00A45 00000  1851          MVC   PRCSECT,ESNA(WD)    MOVE NAME TO LISTING LINE            O0398000
000338 D236 DA31 DA30 00A51 00A50  1852          MVC   PRLGTH(PREND-PRLGTH),PRLGTH-1 CLEAR REST OF LINE         O0400000
00033E D208 DA5F DC3D 00A7F 00C5D  1853          MVC   PRERR,=CL9'DUPLICATE' MOVE IN DUPLICATE ERROR MSG        O0402000
                                   1854          PUT   SYSPRINT,PRLINE     PRINT LISTING INFO LINE              O0404000

000344 4110 DD18      00D38        1855+         LA    1,SYSPRINT                        LOAD PARAMETER REG 1   00100000
000348 4100 DA10      00A30        1856+         LA    0,PRLINE                          LOAD PARAMETER REG 0   00280000
00034C 58F0 1030      00030        1857+         L     15,48(0,1)                        LOAD PUT ROUTINE ADDR. 00100000
000350 05EF                        1858+         BALR  14,15                             LINK TO PUT ROUTINE    00120000
000352 9504 D8C9      008E9        1859          CLI   CMPLCODE+1,4        TEST COMPLETION CODE                 O0404500
000356 4720 D33E      0035E        1860          BH    *+8                 SKIP IF GREATER THAN 4               O0405000
00035A 9204 D8C9      008E9        1861          MVI   CMPLCODE+1,4        SET COMPLETION CODE TO 4             O0405500
00035E 4100 0002      00002        1862          LA    R0,EIDUP            R0 = ESID DUPLICATE FLAG             O0406000
000362 47F0 D3A0      003C0        1863          B     S21                 GO TO DELETE ESD & SET ESID          O0408000
000366 D200 1003 5003 00003 00003  1864 S5       MVC   SYMNA+3(1,R1),ESNA+3(WD) SET 4TH CHAR OF NAME FROM ESD   O0410000
00036C 9200 100F      0000F        1865 S7       MVI   SYMTYP(R1),ESTSD    MAKE SYM TYPE DEFINED CSECT          O0412000

000370 D200 5003 1003 00003 00003  1866          MVC   ESNA+3(1,WD),SYMNA+3(R1) SET 4TH CHAR ESD FROM SYM TAB   O0414000
000376 4100 0005      00005        1867 S6       LA    R0,EIRES+EIASMO     R0 = ESID FLAGS, PASS TO OS AND      O0416000
OBLD     HASP OVERLAY BUILDER - PROCESS AN ESD CARD                                                            PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   1868 *                                   EXPECT TO DELETE ASM ORIGIN RLD     O0418000
00037A 9680 100F      0000F        1869          OI    SYMTYP(R1),SYMT$SD  SHOW CSECT DEFINED IN THIS OBJ MODUL O0420000
00037E D201 1000 500E 00000 0000E  1870          MVC   SYMLGTH(2,R1),ESLN+2(WD) SAVE CSECT LENGTH               O0421000
000384 95D6 1003      00003        1871          CLI   SYMNA+3(R1),C'O'    IS CSECT ACTUALLY TO BE OVERLAY      O0422000
000388 4770 D408      00428        1872          BNE   S23                 BRANCH IF NOT, PASS TO OS LINKEDIT   O0424000
00038C 9640 100F      0000F        1873          OI    SYMTYP(R1),SYMTWRO  SET FLAG TO WRITE TO OLAYLIB         O0426000
000390 58E0 D8C0      008E0        1874          L     R14,OVADR           ASSIGN A WORK AREA                   O0428000
000394 50E0 1008      00008        1875          ST    R14,SYMADR(,R1)      ADDRESS TO LOAD AN OVERLAY CSECT'S  O0430000
000398 180E                        1876          LR    R0,R14                TEXT, THEN UPDATE WORK AREA        O0432000
00039A 5EE0 500C      0000C        1877          AL    R14,ESLN(,WD)          ADDRESS TO THE                    O0434000
00039E 41E0 E007      00007        1878          LA    R14,7(,R14)             NEXT                             O0436000
0003A2 54E0 DC0C      00C2C        1879          N     R14,=F'-8'              AVAILABLE                        O0438000

0003A6 50E0 D8C0      008E0        1880          ST    R14,OVADR               DOUBLE WORD                      O0440000
0003AA 1BE0                        1881          SR    R14,R0              TEST FOR OVERLAY CSECT               O0442000
                                   1882          CH    R14,=Y(&OLAYSIZ)     GREATER THAN OVERLAY BUFFER SIZE    O0444000

0003AC 49E0 DC1A      00C3A        1883+         CH    R14,=Y(1280)         GREATER THAN OVERLAY BUFFER SIZE    O0444000
0003B0 47D0 D398      003B8        1884          BNH   *+8                 SKIP IF NOT                          O0446000
0003B4 9620 100F      0000F        1885          OI    SYMTYP(R1),SYMTERRL SET TO GEN ERROR MSG LATER           O0448000
0003B8 5F00 5008      00008        1886          SL    R0,ESADR(,WD)       R0 = RELOC VALUE FOR OVERLAY CSECT   O0450000
0003BC 4A00 DC1C      00C3C        1887          AH    R0,=Y(EIASMO)        WITH ESID FLAG TO DELETE ASMORG RLD O0452000
0003C0 5860 5008      00008        1888 S21      L     WE,ESADR(,WD)       WE = ADDR IN ESD ITEM                O0454000
0003C4 4870 500E      0000E        1889          LH    WF,ESLDEI(,WD)      WF = ESID REF IN POSSIBLE LD ITEM    O0456000
0003C8 9501 5008      00008        1890          CLI   ESTYP(WD),ESTLD     IS THIS AN LD (ENTRY POINT) ITEM     O0458000
0003CC 9240 5000      00000        1891          MVI   0(WD),C' '          BLANK ALL                            O0460000
0003D0 D20E 5001 5000 00001 00000  1892          MVC   1(ESL-1,WD),0(WD)    ESD ITEM                            O0462000
0003D6 4770 D404      00424        1893          BNE   S22                 BRANCH IF NOT LD ITEM TO MAKE A NULL O0464000
0003DA 4160 6000      00000        1894          LA    WE,0(,WE)           CLEAR HI BYTE OF ESD ITEM ADDR       O0466000

0003DE 8970 0002      00002        1895          SLL   WF,2                WF = ADDRESS OF ESID TABLE FOR       O0468000

0003E2 4177 DE30      00E50        1896          LA    WF,ESIDS(WF)         CSECT REFERENCED BY LD ITEM         O0470000
0003E6 9103 7003      00003        1897          TM    3(WF),EIRES+EIDUP   IS CSECT PASSED TO OS OR DUPLICATE   O0472000

0003EA 4770 D3EC      0040C        1898          BNZ   S26                 BRANCH IF EITHER YES                 O0474000
0003EE 9140 100E      0000E        1899          TM    SYMPRI(R1),X'40'    HAS ROUTINE PRIORITY BEEN PREV SET   O0476000
0003F2 4780 D3EC      0040C        1900          BZ    S26                 BRANCH IF YES                        O0478000
0003F6 5800 7000      00000        1901          L     R0,0(,WF)           R0 = CSECT RELOC VALUE               O0480000
0003FA 5400 DC0C      00C2C        1902          N     R0,=F'-8'           CLEAR LOW ORDER FLAG BITS            O0482000
0003FE 1E60                        1903          ALR   WE,R0               RELOCATE LD ITEM ADDRESS IN WE       O0484000
000400 5F60 1008      00008        1904          SL    WE,SYMADR(,R1)      COMPUTE OFFSET OF LD ITEM FROM CSECT O0486000
000404 4260 100E      0000E        1905          STC   WE,SYMPRI(,R1)      STORE AS OVERLAY ROUTINE PRIORITY    O0488000
000408 940F 100E      0000E        1906          NI    SYMPRI(R1),X'0F'    LIMIT PRIORITY VALUE TO 15 MAXIMUM   O0490000
00040C 4100 2037      00037        1907 S26      LA    R0,55(,WA)          DELETE LD ITEM IN OVERLAY FROM       O0492000
000410 1B05                        1908          SR    R0,WD                ESD CARD BY MOVING FOLLOWING ITEMS  O0494000
000412 4740 D414      00434        1909          BM    S25                   BACK OVER IT (IF ANY)              O0496000

000416 4200 D3FB      0041B        1910          STC   R0,*+5                 AND DECREASING ESD CARD           O0498000
00041A D200 5000 5010 00000 00010  1911          MVC   0(*-*,WD),16(WD)        BYTE COUNT                       O0500000
000420 47F0 D414      00434        1912          B     S25                 GO TO TEST IF DONE WITH THIS CARD    O0502000

000424 9207 5008      00008        1913 S22      MVI   ESTYP(WD),ESTNULL   NULL THIS ESD ITEM (STILL USES A NUM O0504000
000428 5000 4000      00000        1914 S23      ST    R0,0(,WC)           STORE RELOC VALUE OR OCON & FLAGS    O0506000
00042C 4140 4004      00004        1915          LA    WC,4(,WC)           WC = ESID TABLE ADDR FOR NEXT NON-LD O0508000
000430 4150 5010      00010        1916 S24      LA    WD,ESL(,WD)         WD = ADDR OF NEXT ESD ITEM ON CARD   O0510000
000434 4630 D276      00296        1917 S25      BCT   WB,S1               LOOP BACK IF MORE ITEMS ON CARD      O0512000
000438 4580 D854      00874        1918          BAL   WG,PUTLINDL         GO WRITE ESD CARD WITH ALTERATIONS   O0514000
00043C 47F0 D1E2      00202        1919          B     GETOBJ              GO TO READ NEXT OBJECT CARD          O0516000
OBLD     HASP OVERLAY BUILDER - PROCESS A TXT CARD                                                             PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000440 9102 4003      00003        1921 TXT      TM    3(WC),EIDUP         IS TEXT FROM A DUPLICATE OLAY CSECT  O0520000
000444 4710 D1E2      00202        1922          BO    GETOBJ              BRANCH IF YES TO IGNORE              O0522000
000448 9101 4003      00003        1923          TM    3(WC),EIRES         IS TEXT FROM A RESIDENT CSECT        O0524000

00044C 4780 D438      00458        1924          BZ    *+12                BRANCH IF NOT                        O0526000
000450 4580 D860      00880        1925          BAL   WG,PUTLINA          WRITE TEXT OF RESIDENT CSECT TO LKED O0528000

000454 47F0 D1E2      00202        1926          B     GETOBJ              GO READ NEXT OBJECT CARD             O0530000

000458 5810 4000      00000        1927          L     R1,0(,WC)           R1 = RELOC VALUE FROM ESID TABLE     O0532000
00045C 5410 DC0C      00C2C        1928          N     R1,=F'-8'           CLEAR LOW ORDER FLAG BITS            O0534000
000460 5E10 2004      00004        1929          AL    R1,CDADR(,WA)       ADD TEXT CARD ADDRESS                O0536000
000464 0630                        1930          BCTR  WB,0                REDUCE DATA COUNT FOR MVC            O0538000
000466 4430 D44E      0046E        1931          EX    WB,TMVC             MOVE TEXT INTO WORK AREA             O0540000
00046A 47F0 D1E2      00202        1932          B     GETOBJ              GO READ NEXT OBJECT CARD             O0542000
00046E D200 1000 5000 00000 00000  1933 TMVC     MVC   0(*-*,R1),0(WD)     OVERLAY LOADING MVC                  O0544000
OBLD     HASP OVERLAY BUILDER - PROCESS AN RLD CARD                                                            PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000474 8830 0002      00002        1935 RLD      SRL   WB,2                WB = NUM SHORT RLD ITEMS OR EQUIV    O0548000
000478 4860 5000      00000        1936 RL1      LH    WE,RLEIR(,WD)       WE = ADDRESS OF ESID TABLE WORD      O0550000
00047C 8960 0002      00002        1937          SLL   WE,2                 FOR                                 O0552000

000480 4166 DE30      00E50        1938          LA    WE,ESIDS(WE)         REFERENCED NAME                     O0554000
000484 4840 5002      00002        1939          LH    WC,RLEIP(,WD)       WC = ESID OF CSECT CONTAINING DC     O0556000
000488 4040 D92E      0094E        1940          STH   WC,LINTXT+CDESID    STORE IN TXT CARD FOR POSSIBLE QCON  O0558000

00048C 8940 0002      00002        1941          SLL   WC,2                WC = ADDRESS OF ESID TABLE WORD FOR  O0560000
000490 4144 DE30      00E50        1942          LA    WC,ESIDS(WC)         CSECT CONTAINING THE DC A, V, OR Q  O0562000
000494 1875                        1943          LR    WF,WD               WF = ADDRESS OF LONG RLD ITEM        O0564000
000496 1946                        1944          CR    WC,WE               ARE REFERENCED AND CONTAINING        O0566000
                                   1945 *                                   CSECTS THE SAME                     O0568000
000498 4770 D48C      004AC        1946          BNE   RL2                 BRANCH IF NO                         O0570000
00049C 9104 4003      00003        1947          TM    3(WC),EIASMO        IS ASM ORIGIN OF AN OLAY EXPECTED    O0572000
0004A0 4780 D48C      004AC        1948          BZ    RL2                 BRANCH IF NO                         O0574000
0004A4 94FB 4003      00003        1949          NI    3(WC),255-EIASMO    RESET ASM ORIGIN EXPECTED FLAG       O0576000
0004A8 47F0 D4E4      00504        1950          B     RL4                 GO TO DELETE THIS RLD ITEM           O0578000
0004AC 9102 4003      00003        1951 RL2      TM    3(WC),EIDUP         IS CONTAINING CSECT A DUPLICATE OLAY O0580000
0004B0 4710 D4E4      00504        1952          BO    RL4                 BRANCH IF YES TO DELETE RLD ITEM     O0582000

0004B4 9101 6003      00003        1953          TM    3(WE),EIRES         IS REFERENCED NAME A RESIDENT CSECT  O0584000
0004B8 4710 D508      00528        1954          BO    RL5                 BRANCH IF YES TO LET THRU TO LKED    O0586000
0004BC 9124 5004      00004        1955          TM    RLF(WD),X'24'       IS THIS                              O0594000
0004C0 47E0 D508      00528        1956          BNO   RL5                  A                                   O0596000

0004C4 9118 5004      00004        1957          TM    RLF(WD),X'18'         Q TYPE CONSTANT                    O0598000
0004C8 4770 D508      00528        1958          BNZ   RL5                 BRANCH IF NO TO LET THRU TO LKED     O0600000
0004CC 9101 4003      00003        1959          TM    3(WC),EIRES         CONTAINING CSECT PASSED TO LKED      O0604000
0004D0 4710 D4CA      004EA        1960          BO    RL3                 BRANCH IF YES                        O0606000
0004D4 5810 4000      00000        1961          L     R1,0(,WC)           R1 = POSITION ADJUSTMENT VALUE       O0608000
0004D8 5410 DC0C      00C2C        1962          N     R1,=F'-8'           CLEAR LOW ORDER FLAG BITS            O0610000

0004DC 5E10 5004      00004        1963          AL    R1,RLADR(,WD)       ADD POSITION ADDRESS FROM RLD ITEM   O0612000
0004E0 D201 1000 6000 00000 00000  1964          MVC   0(2,R1),0(WE)       MOVE IN 2 BYTE OCON TO RESOLVE QCON  O0614000
0004E6 47F0 D4E4      00504        1965          B     RL4                 GO TO DELETE RLD ITEM                O0616000
0004EA D201 D930 6000 00950 00000  1966 RL3      MVC   LINTXT+CDATA(2),0(WE) BUILD TXT CARD WITH 2 BYTE OCON    O0618000
0004F0 D202 D925 5005 00945 00005  1967          MVC   LINTXT+CDADR+1(3),RLADR+1(WD)  AS DATA, RLD ADDRESS AS   O0620000
0004F6 D203 D968 2048 00988 00048  1968          MVC   LINTXT+72(4),72(WA) ADDRESS, AND IDENT FROM RLD CARD     O0622000
0004FC 4110 D920      00940        1969          LA    R1,LINTXT           GO TO                                O0624000
000500 4580 D862      00882        1970          BAL   WG,PUTLIN1           WRITE TXT CARD TO SYSLIN FOR LKED   O0626000

000504 9101 5004      00004        1971 RL4      TM    RLF(WD),X'01'       IS NEXT RLD ITEM OF LONG FORM        O0628000
000508 4710 D508      00528        1972          BO    RL5                 BRANCH IF NOT                        O0630000

00050C 4100 203F      0003F        1973          LA    R0,63(,WA)          MOVE BACK ALL RLD ITEMS WHICH        O0632000
000510 1B05                        1974          SR    R0,WD                FOLLOW A LONG RLD ITEM AND          O0634000
000512 4740 D500      00520        1975          BM    RL7                  ASSOCIATED SHORT ITEMS (IF ANY)     O0636000
000516 4200 D4FB      0051B        1976          STC   R0,*+5               TO BE DELETED                       O0638000
00051A D200 7000 5008 00000 00008  1977          MVC   0(*-*,WF),8(WD)     MOVE TO ACCOMPLISH DELETION          O0640000
000520 1857                        1978 RL7      LR    WD,WF               NEXT ITEM TO BE PROCESSED AT (WD)    O0642000
000522 0630                        1979          BCTR  WB,0                REDUCE ITEM COUNT BY 1/2 LONG ITEM   O0644000
000524 47F0 D51A      0053A        1980          B     RL6                 GO TO COUNT 2ND 1/2 LONG ITEM        O0646000

000528 9101 5004      00004        1981 RL5      TM    RLF(WD),X'01'       IS NEXT RLD ITEM OF LONG FORM        O0648000
00052C 4150 5004      00004        1982          LA    WD,RLSL(,WD)        UPDT DATA PTR BY SHORT ITEM LENGTH   O0650000
000530 0630                        1983          BCTR  WB,0                COUNT THE SHORT ITEM                 O0652000
000532 4710 D48C      004AC        1984          BO    RL2                 BRANCH IF NEXT IS A SHORT ITEM       O0654000
000536 4150 5004      00004        1985          LA    WD,RLSL(,WD)        UPDT DAT PTR OVER 2ND 1/2 LONG ITEM  O0656000

00053A 4630 D458      00478        1986 RL6      BCT   WB,RL1              COUNT AND LOOP IF MORE ITEMS LEFT    O0658000
00053E 4580 D854      00874        1987          BAL   WG,PUTLINDL         GO TO WRITE FIXED RLD CARD TO SYSLIN O0660000
000542 47F0 D1E2      00202        1988          B     GETOBJ              GO TO READ NEXT OBJECT CARD          O0662000

OBLD     HASP OVERLAY BUILDER - PROCESS END CARD, WRITE OVERLAY CSECTS                                         PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000546 4580 D860      00880        1990 END      BAL   WG,PUTLINA          WRITE END CARD TO SYSLIN UN-ALTERED  O0666000
00054A 4120 C228      01248        1991          LA    WA,SYMS-SYML        SET WA TO PROCESS ENTIRE SYM TABLE   O0668000
00054E 4120 2010      00010        1992 E1       LA    WA,SYML(,WA)        WA = ADDRESS OF NEXT SYMBOL IN TABLE O0670000
000552 9500 2002      00002        1993          CLI   SYMNA+2(WA),0       HAS END OF TABLE BEEN REACHED        O0672000
000556 4780 D1B8      001D8        1994          BE    NEWMOD              IF YES, GO TO INITIALIZE FOR NEW MOD O0674000

00055A 955B 2002      00002        1995          CLI   SYMNA+2(WA),C'$'    IS THIS AN OVERLAY NAME              O0676000
00055E 4770 D52E      0054E        1996          BNE   E1                  BRANCH IF NOT TO GET NEXT SYMBOL     O0678000
000562 9180 200F      0000F        1997          TM    SYMTYP(WA),SYMT$SD  IS NAME A CSECT IN CURRENT MODULE    O0680000
000566 4780 D52E      0054E        1998          BZ    E1                  BRANCH IF NOT TO GET NEXT SYMBOL     O0682000
00056A 1B11                        1999          SR    R1,R1               ZERO R1, WILL HOLD TTR0              O0684000

00056C 9140 200F      0000F        2000          TM    SYMTYP(WA),SYMTWRO  IS CSECT TO BE WRITTEN TO OLAYLIB    O0686000
000570 4780 D59C      005BC        2001          BZ    E2                  BRANCH IF NO                         O0688000
000574 5830 2008      00008        2002          L     WB,SYMADR(,WA)      WB = CORE ADDRESS OF OVERLAY CSECT   O0690000
                                   2003          WRITE EWROLIB,SF,OLAYLIB,(WB),'S' WRITE CSECT TO OLAYLIB       O0692000

000578                             2004+         CNOP  0,4                                                      02179019
000578 4510 D570      00590        2005+         BAL   1,*+24                   LOAD DECB ADDRESS               02187003
00057C 00000000                    2006+EWROLIB  DC    F'0'                              EVENT CONTROL BLOCK    02200000
000580 80                          2007+         DC    X'80'                             TYPE FIELD             02260000
000581 20                          2008+         DC    X'20'                             TYPE FIELD             00840000
000582 0000                        2009+         DC    AL2(0)                            LENGTH                 02480000

000584 00000DF8                    2010+         DC    A(OLAYLIB)                        DCB ADDRESS            02540000
000588 00000000                    2011+         DC    A(0)                              AREA ADDRESS           02700000
00058C 00000000                    2012+         DC    A(0)                              RECORD POINTER WORD    02720000
000590 5031 000C      0000C        2013+         ST    WB,12(1,0)                        STORE AREA ADDRESS     02820000
000594 58F1 0008      00008        2014+         L     15,8(1,0)           LOAD DCB ADDRESS                     02091503

000598 58F0 F030      00030        2015+         L     15,48(0,15)                       LOAD RDWR ROUTINE ADDR 02097203
00059C 05EF                        2016+         BALR  14,15                             LINK TO RDWR ROUTINE   02102903
                                   2017          CHECK EWROLIB             CHECK WRITE DONE OK                  O0694000
00059E 4110 D55C      0057C        2018+         LA    1,EWROLIB                         LOAD PARAMETER REG 1   00100000
0005A2 58E0 1008      00008        2019+         L     14,8(0,1)                         PICK UP DCB ADDRESS    00100000

0005A6 58F0 E034      00034        2020+         L     15,52(0,14)                       LOAD CHECK ROUT. ADDR. 00120000
0005AA 05EF                        2021+         BALR  14,15                             LINK TO CHECK ROUTINE  00140000
                                   2022          NOTE  OLAYLIB             GET RELATIVE DA ADDRESS              O0696000
0005AC 4110 DDD8      00DF8        2023+         LA    1,OLAYLIB                         LOAD PARAMETER REG 1   00100000
0005B0 58F0 1054      00054        2024+         L     15,84(0,1)                        LOAD NOTE  RTN ADDRESS 00100000

0005B4 05EF                        2025+         BALR  14,15                             LINK TO NOTE  ROUTINE  00120000
0005B6 1811                        2026          LR    R1,1                R1 = TTR0 OF CSECT WRITTEN           O0698000
0005B8 5010 2008      00008        2027          ST    R1,SYMADR(,WA)      STORE IN SYM TABLE                   O0700000
0005BC D207 DA25 2000 00A45 00000  2028 E2       MVC   PRCSECT,SYMNA(WA)   MOVE CSECT NAME TO LISTING LINE      O0702000
0005C2 D201 DA25 DC1E 00A45 00C3E  2029          MVC   PRCSECT(2),=C'HA'   ALL NAMES BEGIN WITH 'HA'            O0703000

0005C8 F342 DA39 200C 00A59 0000C  2030          UNPK  PROCON(5),SYMOCON(3,WA) UNPACK OCON HEX DIGS IN LISTING  O0704000
0005CE F342 DA31 2000 00A51 00000  2031          UNPK  PRLGTH(5),SYMLGTH(3,WA) UNPK LGTH HEX INTO LISTING       O0705000
0005D4 F342 DA41 2009 00A61 00009  2032          UNPK  PRTR(5),SYMADR+1(3,WA) UNPACK T R DIGITS IN LISTING LINE O0706000
0005DA 41F0 DDD8      00DF8        2033          LA    R15,OLAYLIB         R15 = ADDRESS OF OLAYLIB DCB         O0708000
                            00000  2034          USING IHADCB,R15          DSECT  FOR DCB                       O0710000
0005DE 58E0 F02C      0002C        2035          L     LINK,DCBDEBAD       LINK = ADDRESS OF DEB                O0712000

                            00000  2036          USING DEBDSECT,LINK       DSECT FOR DEB                        O0714000
0005E2 8810 0010      00010        2037          SRL   R1,16               POSITION RELATIVE T IN R1            O0716000
0005E6 4A10 E028      00028        2038          AH    R1,DEBUCBAD+8       ADD BEGINNING HH OF EXTENT           O0718000
0005EA 1B00                        2039          SR    R0,R0               ZERO R0 FOR LATER DIVIDE             O0720000

0005EC 58F0 F00C      0000C        2040          L     R15,DCBDVTBL        R15 = ADDR OF DEVICE CHARS TABLE     O0722000
                                   2041          DROP  R15                                                      O0724000
0005F0 48F0 F002      00002        2042          LH    R15,2(,R15)         R15 = TRKS/CYL                       O0726000
0005F4 1D0F                        2043          DR    R0,R15              DIVIDE TRKS BY TRKS/CYL              O0728000
0005F6 4A10 E026      00026        2044          AH    R1,DEBUCBAD+6       ADD BEGINNING CC TO QUO GIVING CC    O0730000

OBLD     HASP OVERLAY BUILDER - PROCESS END CARD, WRITE OVERLAY CSECTS                                         PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2045          DROP  LINK                DEB NO LONGER NEEDED                 O0732000
0005FA 8910 0010      00010        2046          SLL   R1,16               POSITION CC IN HI PART OF R1         O0734000
0005FE 1610                        2047          OR    R1,R0               OR IN REMAINDER GIVING CCHH          O0736000
000600 5010 D8B8      008D8        2048          ST    R1,TEMPDW           STORE IN TEMPORARY AND               O0738000
000604 F384 DA49 D8B8 00A69 008D8  2049          UNPK  PRCCHHR(9),TEMPDW(5) UNPACK TO LISTING LINE              O0740000

00060A D201 DA51 DA43 00A71 00A63  2050          MVC   PRCCHHR+8(2),PRTR+2 R IN CCHHR SAME AS R IN TR           O0742000
000610 1B00                        2051          SR    R0,R0               ZERO R0 FOR IC                       O0744000
000612 4300 200E      0000E        2052          IC    R0,SYMPRI(,WA)      R0 = OVERLAY PRIOITY                 O0746000

000616 4E00 D8B8      008D8        2053          CVD   R0,TEMPDW           CONVERT TO DECIMAL                   O0748000
00061A F317 DA58 D8B8 00A78 008D8  2054          UNPK  PRPRIO+1(2),TEMPDW  UNPACK TO LISTING LINE               O0750000
000620 96F0 DA59      00A79        2055          OI    PRPRIO+2,X'F0'      DESTROY LOW ORDER SIGN DIGIT         O0752000
000624 DC29 DA31 DB02 00A51 00B22  2056          TR    PRLGTH(PRERR-PRLGTH-4),UNHEXTAB TRAN ALL TO EBCDIC       O0754000
00062A D208 DA5F DA5E 00A7F 00A7E  2057          MVC   PRERR,PRERR-1       BLANK ERROR MESSAGE                  O0756000

000630 9120 200F      0000F        2058          TM    SYMTYP(WA),SYMTERRL THIS OVERLAY EXCEED &OLAYSIZ         O0758000
000634 4780 D622      00642        2059          BZ    *+14                SKIP IF NO                           O0760000
000638 9208 D8C9      008E9        2060          MVI   CMPLCODE+1,8        SET COMPLETION CODE TO 8             O0761000
00063C D208 DA5F DC46 00A7F 00C66  2061          MVC   PRERR,=CL9'TOO LONG' SET UP THE 'TOO LONG' ERROR MESSAGE O0762000
000642 9140 200F      0000F        2062          TM    SYMTYP(WA),SYMTWRO  WAS CSECT WRITTEN TO OLAYLIB         O0764000
000646 4710 D630      00650        2063          BO    *+10                SKIP IF YES                          O0766000
00064A D21D DA41 DA40 00A61 00A60  2064          MVC   PRTR(PRERR-PRTR),PRTR-1 PRINT ONLY NAME & OCON FOR RES   O0768000
                                   2065          PUT   SYSPRINT,PRLINE     GO TO PRINT LISTING INFO LINE        O0770000

000650 4110 DD18      00D38        2066+         LA    1,SYSPRINT                        LOAD PARAMETER REG 1   00100000
000654 4100 DA10      00A30        2067+         LA    0,PRLINE                          LOAD PARAMETER REG 0   00280000

000658 58F0 1030      00030        2068+         L     15,48(0,1)                        LOAD PUT ROUTINE ADDR. 00100000
00065C 05EF                        2069+         BALR  14,15                             LINK TO PUT ROUTINE    00120000
00065E 9407 200F      0000F        2070          NI    SYMTYP(WA),X'07'    CLEAR ALL SYM TYPES EXCEPT STD ESDS  O0772000
000662 47F0 D52E      0054E        2071          B     E1                  GO TO NEXT SYM TAB ENTRY             O0774000
OBLD     HASP OVERLAY BUILDER - OPEN EXIT FOR UNLIKE SYSOBJ CATENATION                                         PAGE   56



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000666 0000
000668 8500066C                    2073 EXLOBJ   DC    0F'0',X'85',AL3(EXDCBOBJ) DCB EXIT FOR SYSOBJ FILE       O0778000


                                   2075 EXDCBOBJ NULL                                                           O0782000
00066C                             2076+EXDCBOBJ DS    0H                                                       NU006000
                            0066C  2077          USING *,15                ADDRESSABILITY FOR EXIT              O0784000
                            00000  2078          USING IHADCB,1            ADDRESSABILITY FOR DCB               O0786000
00066C 9108 1030      00030        2079          TM    DCBOFLGS,X'08'      IS THIS INITIAL OPEN                 O0788000

000670 4780 F00C      00678        2080          BZ    *+8                 BRANCH IF YES                        O0790000

000674 92FF F282      008EE        2081          MVI   OBJFLG,X'FF'        SET THE RE-GET REQUIRED FLAG         O0792000
000678 9608 1030      00030        2082          OI    DCBOFLGS,X'08'      SET THE UNLIKE ATTRIBUTES FLAG       O0794000
00067C 07FE                        2083          BR    14                  RETURN TO OPEN                       O0796000
                                   2084          DROP  1,15                                                     O0798000
OBLD     HASP OVERLAY BUILDER - MAKE HASPOTAB OBJECT MODULE                                                    PAGE   57



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2086 EOFOBJ   NULL                      ENTER AT SYSOBJ END-OF-FILE          O0802000
00067E                             2087+EOFOBJ   DS    0H                                                       NU006000


00067E 4800 D8CA      008EA        2089 MOT      LH    R0,OCONS            R0 = HIGHEST OCON USED + 1           O0806000
000682 4C00 DC20      00C40        2090          MH    R0,=Y(OTBSIZE)      R0 = LENGTH OF HASPOTAB CSECT        O0808000
000686 4000 D8EE      0090E        2091          STH   R0,OTABESD+CDATA+ESLN+2 PUT LENGTH IN ESD ITEM FOR CSECT O0810000
00068A 5810 DC08      00C28        2092          L     R1,=A(WORK)         R1 = ADDR BEGINNING OF WORK AREA     O0812000
                                   2093 *                                  TEXT OF CSECT WILL BE BUILT IN       O0814000
                                   2094 *                                   WORK AREA BEFORE MAKING TXT CARDS   O0816000

00068E 4000 1000      00000        2095          STH   R0,0(,R1)           STORE LENGTH IN 1ST HW OF 0TH ENTRY  O0818000

000692 D201 1002 D8C4 00002 008E4  2096          MVC   2(2,R1),OLIBTAG     MOVE OLIBTAG TO 0TH ENTRY            O0820000
000698 1840                        2097          LR    WC,R0               WC = LENGTH OF HASPOTAB CSECT        O0822000
00069A 8800 0008      00008        2098          SRL   R0,8                R0 = LENGTH DIVIDED BY 256           O0824000
00069E D7FB 1004 1004 00004 00004  2099          XC    4(252,R1),4(R1)     CLEAR 1ST 256 BYTE BLOCK             O0826000

0006A4 1200                        2100          LTR   R0,R0               TEST LENGTH OF HASPOTAB CSECT        O0828000
0006A6 4780 D698      006B8        2101          BZ    MOT13               BRANCH IF 256 BYTES OR SHORTER       O0830000
0006AA 4110 1100      00100        2102 MOT5     LA    R1,256(,R1)         R1 = ADDR NEXT 256 BYTE BLOCK        O0832000
0006AE D7FF 1000 1000 00000 00000  2103          XC    0(256,R1),0(R1)     CLEAR 256 BYTE BLOCK OF TEXT         O0834000
0006B4 4600 D68A      006AA        2104          BCT   R0,MOT5             LOOP BACK IF MORE BLOCKS TO CLEAR    O0836000
0006B8 4110 D8D0      008F0        2105 MOT13    LA    R1,OTABESD          WRITE ESD CARD CONTAINING ONLY       O0838000
0006BC 4580 D862      00882        2106          BAL   WG,PUTLIN1          THE ESD ITEM FOR HASPOTAB CSECT      O0840000
0006C0 D203 D968 D918 00988 00938  2107          MVC   LINTXT+72(4),OTABESD+72 PUT OTAB ID IN TXT CARD COLS 73- O0842000
                                   2108 *                                  SET UP ESD CARD TO GENERATE EXT REF  O0844000
                                   2109 *                                   ITEMS FOR VCONS TO RESIDENT         O0846000
                                   2110 *                                   OVERLAY MODULES (IF ANY)            O0848000

0006C6 D202 D8E9 D8E8 00909 00908  2111          MVC   OTABESD+CDATA+ESADR+1(3),OTABESD+CDATA+ESADR             O0850000
0006CC D202 D8ED D8EC 0090D 0090C  2112          MVC   OTABESD+CDATA+ESLN+1(3),OTABESD+CDATA+ESLN               O0852000
0006D2 9202 D8E8      00908        2113          MVI   OTABESD+CDATA+ESTYP,ESTER ESD ITEM TYPE SET TO ER        O0854000
0006D6 4130 0002      00002        2114          LA    WB,2                WB = 2, ESID NUM FOR 1ST EXT REF     O0856000

0006DA 4120 C228      01248        2115          LA    WA,SYMS-SYML        WA = BEGINNING SYM TAB - 1 ENTRY     O0858000
0006DE 4120 2010      00010        2116 MOT1     LA    WA,SYML(,WA)        WA = ADDR NEXT SYM TAB ENTRY         O0860000
0006E2 9500 2002      00002        2117          CLI   SYMNA+2(WA),0       HAS END OF TABLE BEEN REACHED        O0862000
0006E6 4780 D782      007A2        2118          BE    MOT2                BRANCH IF YES                        O0864000
0006EA 955B 2002      00002        2119          CLI   SYMNA+2(WA),C'$'    IS THIS NAME UNDER OVERLAY CONTROL   O0866000
0006EE 4770 D6BE      006DE        2120          BNE   MOT1                BRANCH IF NOT, GO TO NEXT SYM        O0868000
0006F2 D504 2003 DC38 00003 00C58  2121          CLC   SYMNA+3(5,WA),=C'Q$$$$'  IS THIS OLIBTAG NAME            O0870000
0006F8 4780 D6BE      006DE        2122          BE    MOT1                BRANCH IF YES, GO TO NEXT SYM        O0872000
0006FC 9500 200F      0000F        2123          CLI   SYMTYP(WA),ESTSD    IS THIS A DEFINED CSECT              O0874000
000700 4780 D728      00748        2124          BE    MOT6                BRANCH IF YES                        O0876000
000704 D207 DA25 2000 00A45 00000  2125          MVC   PRCSECT,SYMNA(WA)   MOVE NAME TO LISTING LINE            O0878000
00070A D201 DA25 DC1E 00A45 00C3E  2126          MVC   PRCSECT(2),=C'HA'   ALL NAMES BEGIN WITH 'HA'            O0879000

000710 F342 DA39 200C 00A59 0000C  2127          UNPK  PROCON(5),SYMOCON(3,WA) UNPACK OCON TO LISTING LINE      O0880000
000716 D203 DA31 DA30 00A51 00A50  2128          MVC   PRLGTH,PRLGTH-1     BLANK CSECT LENGTH                   O0881000
00071C DC03 DA39 DB02 00A59 00B22  2129          TR    PROCON,UNHEXTAB     TRANSLATE TO EBCDIC                  O0882000

000722 9240 DA3D      00A5D        2130          MVI   PROCON+4,C' '       BLANK REST                           O0884000
000726 D226 DA41 DA40 00A61 00A60  2131          MVC   PRTR(PREND-PRTR),PRTR-1  OF LISTING LINE                 O0886000
00072C D208 DA5F DC4F 00A7F 00C6F  2132          MVC   PRERR,=CL9'UNDEFINED' PUT IN UNDEFINED ERROR MSG         O0888000
                                   2133          PUT   SYSPRINT,PRLINE     WRITE LISTING INFO LINE              O0890000
000732 4110 DD18      00D38        2134+         LA    1,SYSPRINT                        LOAD PARAMETER REG 1   00100000
000736 4100 DA10      00A30        2135+         LA    0,PRLINE                          LOAD PARAMETER REG 0   00280000
00073A 58F0 1030      00030        2136+         L     15,48(0,1)                        LOAD PUT ROUTINE ADDR. 00100000
00073E 05EF                        2137+         BALR  14,15                             LINK TO PUT ROUTINE    00120000
000740 9208 D8C9      008E9        2138          MVI   CMPLCODE+1,8        SET COMPLETION CODE TO 8             O0891000
000744 47F0 D6BE      006DE        2139          B     MOT1                GO TO GET NEXT SYM                   O0892000
OBLD     HASP OVERLAY BUILDER - MAKE HASPOTAB OBJECT MODULE                                                    PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000748 4810 200C      0000C        2140 MOT6     LH    R1,SYMOCON(,WA)     R1 = OCON ASSIGNED TO THIS SYMBOL    O0894000
00074C 4C10 DC20      00C40        2141          MH    R1,=Y(OTBSIZE)      R1 = ADDR IN TEXT FOR THIS MODULE    O0896000
000750 5E10 DC08      00C28        2142          AL    R1,=A(WORK)                                              O0898000

                            00000  2143          USING OTBDSECT,R1         OTB ENTRY ADDRESSABILITY             O0900000
                                   2144          AIF   (NOT &DEBUG).ONOBUG1                                     O0902000
                                   2145 .ONOBUG1 ANOP                                                           O0906000
000754 95D6 2003      00003        2146          CLI   SYMNA+3(WA),C'O'    IS THIS MODULE ACTUALLY OVERLAY      O0908000
000758 4780 D772      00792        2147          BE    MOT7                BRANCH IF YES                        O0910000
00075C D203 1000 DC10 00000 00C30  2148          MVC   OTBADDR,=A(0-(BUFSTART-BUFDSECT)) PUT ABSOLUTE PART OF   O0912000
                                   2149 *                                   RESIDENT OVERLAY PRIO (X'FF') AND   O0914000
                                   2150 *                                   3 BYTE VCON INTO TEXT               O0916000
000762 4110 1001      00001        2151          LA    R1,OTBADDR+1        R1 = ADDR IN TEXT OF 3 BYTE VCON     O0918000
000766 5F10 DC08      00C28        2152          SL    R1,=A(WORK)          MADE RELATIVE TO ZERO FOR THE CSECT O0920000
00076A 5010 2008      00008        2153          ST    R1,SYMADR(,WA)      STORE IN SYM TAB FOR LATER RLD GEN   O0922000
00076E 4030 200C      0000C        2154          STH   WB,SYMERID(,WA)     STORE ESID NUMBER TO BE USED FOR     O0924000

000772 4030 D8DE      008FE        2155          STH   WB,OTABESD+CDESID    VCON IN SYM TAB & ESD CARD          O0926000

000776 4130 3001      00001        2156          LA    WB,1(,WB)           WB = NEXT ESID TO BE USED            O0928000
00077A D207 D8E0 2000 00900 00000  2157          MVC   OTABESD+CDATA+ESNA(8),SYMNA(WA) PUT NAME IN ESD ITEM     O0930000

000780 D201 D8E0 DC1E 00900 00C3E  2158          MVC   OTABESD+CDATA+ESNA(2),=C'HA' ALL NAMES BEGIN 'HA'        O0931000
000786 4110 D8D0      008F0        2159          LA    R1,OTABESD          WRITE ESD CARD FOR EXT REFERENCE     O0932000
00078A 4580 D862      00882        2160          BAL   WG,PUTLIN1           TO SYSLIN FOR OS LKED               O0934000
00078E 47F0 D6BE      006DE        2161          B     MOT1                GO TO LOOK AT NEXT SYMBOL            O0936000
000792 D201 1002 2009 00002 00009  2162 MOT7     MVC   OTBTRAK,SYMADR+1(WA) MODULE REALLY OVERLAY, PUT RELATIVE O0938000
000798 D200 1000 200E 00000 0000E  2163          MVC   OTBPRIO,SYMPRI(WA)     T R AND PRIO INTO TEXT            O0940000
                                   2164          DROP  R1                                                       O0942000
00079E 47F0 D6BE      006DE        2165          B     MOT1                GO TO LOOK AT NEXT SYMBOL            O0944000
0007A2 9238 D92B      0094B        2166 MOT2     MVI   LINTXT+CDNUM+1,56   SET UP TO GENERATE ALL TEXT INTO     O0946000
0007A6 9201 D92F      0094F        2167          MVI   LINTXT+CDESID+1,1     TXT CARDS                          O0948000
0007AA 9200 D925      00945        2168          MVI   LINTXT+CDADR+1,0                                         O0950000
0007AE 1B22                        2169          SR    WA,WA               WA = ZERO RELATIVE TEXT ADDRESS      O0952000

0007B0 5830 DC08      00C28        2170          L     WB,=A(WORK)         WB = ACTUAL TEXT ADDR IN WORK AREA   O0954000
0007B4 4020 D926      00946        2171 MOT3     STH   WA,LINTXT+CDADR+2   STORE ADDRESS IN TXT CARD            O0956000

0007B8 D237 D930 3000 00950 00000  2172          MVC   LINTXT+CDATA(56),0(WB) MOVE 56 BYTES OF TEXT TO TXT CARD O0958000

0007BE 4120 2038      00038        2173          LA    WA,56(,WA)          INCREMENT ZERO RELATIVE ADDRESS      O0960000
0007C2 4130 3038      00038        2174          LA    WB,56(,WB)          INCREMENT WORK AREA ADDRESS          O0962000
0007C6 1924                        2175          CR    WA,WC               COMPARE TXT ADDR WITH CSECT LENGTH   O0964000
0007C8 4780 D7C8      007E8        2176          BE    MOT4                IF EQUAL, FINISHED EXACTLY           O0966000
0007CC 4720 D7BC      007DC        2177          BH    MOT12               IF HIGH, LAST CARD WILL BE SHORT     O0968000
0007D0 4110 D920      00940        2178          LA    R1,LINTXT           WRITE TXT CARD TO SYSLIN             O0970000
0007D4 4580 D862      00882        2179          BAL   WG,PUTLIN1           FOR OS LINKEDIT                     O0972000
0007D8 47F0 D794      007B4        2180          B     MOT3                GO BACK TO MAKE MORE TXT CARDS       O0974000
0007DC 1B24                        2181 MOT12    SR    WA,WC               COMPUTE LENGTH OF LAST TXT CARD      O0976000
0007DE 1322                        2182          LCR   WA,WA                (LESS THAN 56)                      O0978000
0007E0 4120 2038      00038        2183          LA    WA,56(,WA)           IN REGISTER WA                      O0980000
0007E4 4020 D92A      0094A        2184          STH   WA,LINTXT+CDNUM     STORE IN TXT CARD                    O0982000

0007E8 4110 D920      00940        2185 MOT4     LA    R1,LINTXT           WRITE LAST TXT CARD OF HASPOTAB      O0984000
0007EC 4580 D862      00882        2186          BAL   WG,PUTLIN1           TO SYSLIN                           O0986000
0007F0 4120 C228      01248        2187          LA    WA,SYMS-SYML        WA = ADDR 1ST SYMBOL - 1 ENTRY       O0988000

0007F4 47F0 D822      00842        2188          B     MOT9                GO TO INITIALIZE FOR RLD GENERATION  O0990000
0007F8 955B 2002      00002        2189 MOT8     CLI   SYMNA+2(WA),C'$'    IS THIS SYMBOL UNDER OVERLAY CONTROL O0992000
0007FC 4770 D82C      0084C        2190          BNE   MOT10               BRANCH IF NO                         O0994000
000800 9500 200F      0000F        2191          CLI   SYMTYP(WA),ESTSD    IS IT A DEFINED CSECT                O0996000
000804 4770 D82C      0084C        2192          BNE   MOT10               BRANCH IF NO                         O0998000
000808 95D6 2003      00003        2193          CLI   SYMNA+3(WA),C'O'    IS THE MODULE ACTUALLY OVERLAY       O1000000
00080C 4780 D82C      0084C        2194          BE    MOT10               BRANCH IF YES                        O1002000
OBLD     HASP OVERLAY BUILDER - MAKE HASPOTAB OBJECT MODULE                                                    PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000810 D201 3000 200C 00000 0000C  2195          MVC   0(2,WB),SYMERID(WA) MOVE RELOCATION ESID INTO RLD ITEM   O1004000
000816 D201 3002 DC14 00002 00C34  2196          MVC   2(2,WB),=H'1'       MOVE POSITION ESID INTO RLD ITEM     O1006000
00081C 9208 3004      00004        2197          MVI   4(WB),X'08'         RLD FLAGS FOR 3 BYTE CON, LONG ITEM  O1008000

000820 D202 3005 2009 00005 00009  2198          MVC   5(3,WB),SYMADR+1(WA) MOVE ADDR OF VCON INTO RLD ITEM     O1010000
000826 4130 3008      00008        2199          LA    WB,8(,WB)           INCREMENT RLD DATA ADDRESS           O1012000
00082A 4140 4008      00008        2200          LA    WC,8(,WC)           INCREMENT RLD DATA BYTE COUNT        O1014000
00082E 4040 D97A      0099A        2201          STH   WC,OTABRLD+CDNUM    STORE BYTE COUNT IN RLD CARD         O1016000

000832 9538 D97B      0099B        2202          CLI   OTABRLD+CDNUM+1,56  IS THIS RLD CARD NOW FULL            O1018000
000836 4770 D82C      0084C        2203          BNE   MOT10               BRANCH IF NO                         O1020000
00083A 4110 D970      00990        2204          LA    R1,OTABRLD          WRITE RLD CARD TO SYSLIN             O1022000
00083E 4580 D862      00882        2205          BAL   WG,PUTLIN1           FOR OS LINKEDIT                     O1024000
000842 4130 D980      009A0        2206 MOT9     LA    WB,OTABRLD+CDATA    WB = ADDR OF 1ST RLD DATA ON CARD    O1026000
000846 1B44                        2207          SR    WC,WC               WC = ZERO, INITIAL DATA BYTE COUNT   O1028000

000848 4040 D97A      0099A        2208          STH   WC,OTABRLD+CDNUM    STORE BYTE COUNT IN RLD CARD         O1030000
00084C 4120 2010      00010        2209 MOT10    LA    WA,SYML(,WA)        WA = ADDR OF NEXT SYMTAB ENTRY       O1032000
000850 9500 2002      00002        2210          CLI   SYMNA+2(WA),0       IS THIS END OF SYMBOL TABLE          O1034000
000854 4770 D7D8      007F8        2211          BNE   MOT8                LOOP BACK IF NO TO CONTINUE SCAN     O1036000
000858 9500 D97B      0099B        2212          CLI   OTABRLD+CDNUM+1,0   IS RLD CARD EMPTY                    O1038000
00085C 4780 D848      00868        2213          BE    MOT11               BRANCH IF YES                        O1040000
000860 4110 D970      00990        2214          LA    R1,OTABRLD          WRITE LAST RLD CARD                  O1042000
000864 4580 D862      00882        2215          BAL   WG,PUTLIN1           TO SYSLIN                           O1044000

000868 4110 D9C0      009E0        2216 MOT11    LA    R1,OTABEND          WRITE END CARD OF HASPOTAB MODULE    O1046000
00086C 4580 D862      00882        2217          BAL   WG,PUTLIN1           TO SYSLIN FOR OS LINKEDIT           O1048000

000870 47F0 D88A      008AA        2218          B     PROGEND             GO TO END PROGRAM                    O1050000
OBLD     HASP OVERLAY BUILDER - SUBROUTINE TO WRITE CARDS TO SYSLIN                                            PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000874 4100 2010      00010        2220 PUTLINDL LA    R0,CDATA(,WA)       R0 = BEGINNING OF DATA ON CARD       O1054000
000878 1B50                        2221          SR    WD,R0               WD = DATA LENGTH AFTER DELETIONS     O1056000
00087A 0788                        2222          BCR   Z,WG                RETURN IF NO DATA LEFT AFTER DELETES O1058000
00087C 4050 200A      0000A        2223          STH   WD,CDNUM(,WA)       STORE NEW DATA LENGTH IN CARD        O1060000
000880 1812                        2224 PUTLINA  LR    R1,WA               R1 = ADDRESS OF CARD TO BE WRITTEN   O1062000

000882 4800 D8CC      008EC        2225 PUTLIN1  LH    R0,SEQNO            SEQUENCE                             O1064000
000886 4E00 D8B8      008D8        2226          CVD   R0,TEMPDW            OUTPUT                              O1066000
00088A 4A00 DC14      00C34        2227          AH    R0,=H'1'              OBJECT                             O1068000
00088E 4000 D8CC      008EC        2228          STH   R0,SEQNO               CARD                              O1070000
000892 F337 104C D8B8 0004C 008D8  2229          UNPK  76(4,R1),TEMPDW         IN                               O1072000

000898 96F0 104F      0004F        2230          OI    79(R1),X'F0'             COLS 77-80                      O1074000
00089C 1801                        2231          LR    0,R1                REG 0 = ADDRESS OF OUTPUT CARD       O1076000
                                   2232          PUT   SYSLIN,(0)          WRITE TO SYSLIN                      O1078000

00089E 4110 DD78      00D98        2233+         LA    1,SYSLIN                          LOAD PARAMETER REG 1   00100000
0008A2 58F0 1030      00030        2234+         L     15,48(0,1)                        LOAD PUT ROUTINE ADDR. 00100000
0008A6 05EF                        2235+         BALR  14,15                             LINK TO PUT ROUTINE    00120000
0008A8 07F8                        2236          BR    WG                  RETURN                               O1080000
OBLD     HASP OVERLAY BUILDER - SUBROUTINE TO WRITE CARDS TO SYSLIN                                            PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2238 PROGEND  NULL                                                           O1084000

0008AA                             2239+PROGEND  DS    0H                                                       NU006000
                                   2240          CLOSE (SYSIN,,SYSOBJ,,SYSPRINT,,SYSLIN,,OLAYLIB) CLOSE DSETS   O1086000
0008AA 0700                        2241+         CNOP  0,4                               ALIGN LIST TO FULLWORD 02420001
0008AC 4510 D8A4      008C4        2242+         BAL   1,*+24                            LOAD REG1 W/LIST ADDR  02460001
0008B0 00                          2243+         DC    AL1(0)                            OPTION BYTE            02580000

0008B1 000C78                      2244+         DC    AL3(SYSIN)                        DCB ADDRESS            02600000
0008B4 00                          2245+         DC    AL1(0)                            OPTION BYTE            02580000
0008B5 000CD8                      2246+         DC    AL3(SYSOBJ)                       DCB ADDRESS            02600000
0008B8 00                          2247+         DC    AL1(0)                            OPTION BYTE            02580000

0008B9 000D38                      2248+         DC    AL3(SYSPRINT)                     DCB ADDRESS            02600000
0008BC 00                          2249+         DC    AL1(0)                            OPTION BYTE            02580000
0008BD 000D98                      2250+         DC    AL3(SYSLIN)                       DCB ADDRESS            02600000
0008C0 80                          2251+         DC    AL1(128)                          OPTION BYTE            02580000
0008C1 000DF8                      2252+         DC    AL3(OLAYLIB)                      DCB ADDRESS            02600000
0008C4 0A14                        2253+         SVC   20                                ISSUE CLOSE SVC        01640000

OBLD     HASP OVERLAY BUILDER - OS RETURN REQUIREMENTS                                                         PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0008C6 48F0 D8C8      008E8        2255          LH    15,CMPLCODE         REG 15 = COMPLETION CODE             O1089000
0008CA 58D0 D004      00024        2256          L     13,SAVEAREA+4       FIND SYSTEM SAVE AREA                O1090000
                                   2257          DROP  SAVE,BASE2          DROP ADDRESSABILITY                  O1092000

0008CE 58E0 D00C      0000C        2258          L     14,12(,13)          RE-LOAD CALLER'S                     O1094000
0008D2 980C D014      00014        2259          LM    0,12,20(13)          REGISTERS                           O1096000
0008D6 07FE                        2260          BR    14                  RETURN TO CALLER                     O1098000
OBLD     HASP OVERLAY BUILDER - CONSTANTS, TEMPORARIES, ETC.                                                   PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


0008D8                             2262 TEMPDW   DS    D                   DOUBLE WORD TEMPORARY                O1102000
0008E0                             2263 OVADR    DS    F                   CORE ADDR TO ASSIGN NEXT OLAY CSECT  O1104000
0008E4                             2264 OLIBTAG  DS    F                   TAG VALUE FOR OLAYLIB CHECK          O1106000
0008E8 0000                        2265 CMPLCODE DC    H'0'                HASPOBLD COMPLETION CODE             O1107000
0008EA 0001                        2266 OCONS    DC    H'1'                CALLING CONSTANT TO ASSIGN NEXT OLAY O1108000

0008EC                             2267 SEQNO    DS    H                   SYSLIN OUTPUT CARD SEQUENCE NUMBER   O1110000
0008EE 00                          2268 OBJFLG   DC    X'00'               UNLIKE CONCAT SYSOBJ RE-GET FLAG     O1112000
0008EF 00
0008F0 02C5E2C440404040            2269 OTABESD  DC    0F'0',X'2',CL9'ESD',H'16',C'  ',H'1',CL8'HASPOTAB',A(0),CO1114000
0008F8 4040001040400001                                C' ',FL3'0',CL40' ',CL8'OTAB' ESD CARD FOR HASPOTAB      O1116000

000940 02E3E7E340404040            2270 LINTXT   DC    0F'0',X'2',CL9'TXT',H'2',CL68' ' TXT CARD                O1118000
000990 02D9D3C440404040            2271 OTABRLD  DC    0F'0',X'2',CL71'RLD',CL8'OTAB' RLD CARD FOR HASPOTAB     O1120000
0009E0 02C5D5C440404040            2272 OTABEND  DC    0F'0',X'2',CL71'END',CL8'OTAB' END CARD FOR HASPOTAB     O1122000
000A30                             2273 PRLINE   DS    0C                  MODULE INFO LISTING LINE             O1124000
000A30 1140404040404040            2274 PRHEADER DC    X'11',CL20' '       MODULE INFO HEADER, PRINT SPACE 2    O1126000
000A45 C3E2C5C3E3404040            2275 PRCSECT  DC    CL8'CSECT',CL4' '   MODULE NAME                          O1128000

000A51 D3C7E3C840404040            2276 PRLGTH   DC    CL4'LGTH',CL4' '    MODULE LENGTH                        O1129000
000A59 D6C3D6D540404040            2277 PROCON   DC    CL4'OCON',CL4' '    MODULE OVERLAY CALLING CONSTANT      O1130000
000A61 E340D94040404040            2278 PRTR     DC    CL4'T R',CL4' '     RELATIVE T R IN OLAYLIB              O1132000
000A69 C340C340C840C840            2279 PRCCHHR  DC    CL10'C C H H R',CL4' ' CCHHR IN OLAYLIB (FOR SUPERZAP)   O1134000

000A77 D7D9C9D640404040            2280 PRPRIO   DC    C'PRIO',CL4' '      OVERLAY MODULE PRIORITY              O1136000
000A7F 4040404040404040            2281 PRERR    DC    CL9' '              ERROR MESSAGE CONCERNING THIS MODULE O1138000
000A88 4040404040404040            2282 PREND    DC    CL33' '             END MODULE INFO LISTING LINE         O1140000
000AA9 1940404040404040            2283 PRTITLE  DC    X'19',CL40' ',CL80'HASP OVERLAY BUILD PROGRAM'           O1142000
000B22 4040404040404040            2284 UNHEXTAB DC    (C'0')C' ',C'0123456789ABCDEF' TRANSLATE HEX TO EBCDIC   O1144000

000C28                             2285          DS    0D                                                       O1146000
000C28                             2286          LTORG                                                          O1148000
000C28 00003258                    2287                =A(WORK)
000C2C FFFFFFF8                    2288                =F'-8'
000C30 FFFFFFA8                    2289                =A(0-(BUFSTART-BUFDSECT))
000C34 0001                        2290                =H'1'
000C36 4040                        2291                =C'  '

000C38 00FF                        2292                =Y(255)
000C3A 0500                        2293                =Y(1280)
000C3C 0004                        2294                =Y(EIASMO)

000C3E C8C1                        2295                =C'HA'
000C40 0004                        2296                =Y(OTBSIZE)
000C42 C8C15B                      2297                =C'HA$'
000C45 D7D9D6C7D9C1D4              2298                =C'PROGRAM'
000C4C E3E7E3                      2299                =C'TXT'

000C4F D9D3C4                      2300                =C'RLD'
000C52 C5E2C4                      2301                =C'ESD'
000C55 C5D5C4                      2302                =C'END'
000C58 D85B5B5B5B                  2303                =C'Q$$$$'
000C5D C4E4D7D3C9C3C1E3            2304                =CL9'DUPLICATE'
000C66 E3D6D640D3D6D5C7            2305                =CL9'TOO LONG'
000C6F E4D5C4C5C6C9D5C5            2306                =CL9'UNDEFINED'
OBLD     HASP OVERLAY BUILDER - OS DATA CONTROL BLOCKS                                                         PAGE   64



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2308 *              CONTROL CARD DATA SET                                    O1152000

                                   2309 *                                                                       O1154000
                                   2310 SYSIN    DCB   DDNAME=SYSIN,DSORG=PS,MACRF=GL,EODAD=EOFIN,             CO1156000
                                                       RECFM=FB,LRECL=80,BUFNO=1                                O1158000


                                   2312+*                       DATA CONTROL BLOCK                              22770020

                                   2313+*                                                                       22860020
000C78                             2314+SYSIN    DC    0F'0'                   ORIGIN ON WORD BOUNDARY          22914020

                                   2316+*                       DIRECT ACCESS DEVICE INTERFACE                  27360020

000C78 0000000000000000            2318+         DC    BL16'0'                  FDAD,DVTBL                      27540020
000C88 00000000                    2319+         DC    A(0)                     KEYLE,DEVT,TRBAL                27720020

                                   2321+*                       COMMON ACCESS METHOD INTERFACE                  48690020



000C8C 01                          2323+         DC    AL1(1)                  BUFNO                            49050020
000C8D 000001                      2324+         DC    AL3(1)                  BUFCB                            54720020
000C90 0000                        2325+         DC    AL2(0)             BUFL                                  55170020
000C92 4000                        2326+         DC    BL2'0100000000000000'                                   *55800020
                                       +                                                 DSORG                  55890020

000C94 00000001                    2327+         DC    A(1)                     IOBAD                           56340020

                                   2329+*                       FOUNDATION EXTENSION                            56610020

000C98 00                          2331+         DC    BL1'00000000'                  BFTEK,BFLN,HIARCHY        59850020
000C99 0001AA                      2332+         DC    AL3(EOFIN)              EODAD                            65970020
000C9C 90                          2333+         DC    BL1'10010000'                                           *66150020
                                       +                                       RECFM                            66240020
000C9D 000000                      2334+         DC    AL3(0)                  EXLST                            66330020


                                   2336+*                       FOUNDATION BLOCK                                66690020


000CA0 E2E8E2C9D5404040            2338+         DC    CL8'SYSIN'              DDNAME                           66870020
000CA8 02                          2339+         DC    BL1'00000010'           OFLGS                            68220020
000CA9 00                          2340+         DC    BL1'00000000'                          IFLG              68310020

000CAA 4800                        2341+         DC    BL2'0100100000000000'                                   *68400020
                                       +                                                                       *68490020
                                       +                                       MACR                             68580020

                                   2343+*                       BSAM-BPAM-QSAM INTERFACE                        74430020

000CAC 00                          2345+         DC    BL1'00000000'                                           *74610020
                                       +                                                                   RER1 74700020
000CAD 000001                      2346+         DC    AL3(1)                  CHECK, GERR, PERR                74790020
000CB0 00000001                    2347+         DC    A(1)                    SYNAD                            74880020
000CB4 0000                        2348+         DC    H'0'                    CIND1, CIND2                     74970020

000CB6 0000                        2349+         DC    AL2(0)                  BLKSIZE                          75240020
000CB8 00000000                    2350+         DC    F'0'                    WCPO, WCPL, OFFSR, OFFSW         75870020
000CBC 00000001                    2351+         DC    A(1)                    IOBA                             75960020
000CC0 00                          2352+         DC    AL1(0)                  NCP                              76050020

000CC1 000001                      2353+         DC    AL3(1)                  EOBR, EOBAD                      76140020

                                   2355+*                            QSAM INTERFACE                             81450020
OBLD     HASP OVERLAY BUILDER - OS DATA CONTROL BLOCKS                                                         PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000CC4 00000001                    2357+         DC    A(1)                     RECAD                           81630020
000CC8 0000                        2358+         DC    H'0'                    QSWS                             81810020
000CCA 0050                        2359+         DC    AL2(80)        LRECL                                     80730020
000CCC 00                          2360+         DC    BL1'00000000'           EROPT                            82530020
000CCD 000001                      2361+         DC    AL3(1)                  CNTRL                            82620020
000CD0 00000000                    2362+         DC    F'0'                    PRECL                            82710020

000CD4 00000001                    2363+         DC    A(1)                    EOB                              82800020
OBLD     HASP OVERLAY BUILDER - OS DATA CONTROL BLOCKS                                                         PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2365 *              HASP OBJECT MODULE INPUT DATA SET                        O1162000

                                   2366 *                                                                       O1164000
                                   2367 SYSOBJ   DCB   DDNAME=SYSOBJ,DSORG=PS,MACRF=GL,EODAD=EOFOBJ,           CO1166000
                                                       EXLST=EXLOBJ,                                           CO1168000
                                                       RECFM=FB,LRECL=80                                        O1170000


                                   2369+*                       DATA CONTROL BLOCK                              22770020
                                   2370+*                                                                       22860020
000CD8                             2371+SYSOBJ   DC    0F'0'                   ORIGIN ON WORD BOUNDARY          22914020

                                   2373+*                       DIRECT ACCESS DEVICE INTERFACE                  27360020

000CD8 0000000000000000            2375+         DC    BL16'0'                  FDAD,DVTBL                      27540020

000CE8 00000000                    2376+         DC    A(0)                     KEYLE,DEVT,TRBAL                27720020

                                   2378+*                       COMMON ACCESS METHOD INTERFACE                  48690020


000CEC 00                          2380+         DC    AL1(0)                  BUFNO                            49050020
000CED 000001                      2381+         DC    AL3(1)                  BUFCB                            54720020
000CF0 0000                        2382+         DC    AL2(0)             BUFL                                  55170020
000CF2 4000                        2383+         DC    BL2'0100000000000000'                                   *55800020
                                       +                                                 DSORG                  55890020
000CF4 00000001                    2384+         DC    A(1)                     IOBAD                           56340020

                                   2386+*                       FOUNDATION EXTENSION                            56610020

000CF8 00                          2388+         DC    BL1'00000000'                  BFTEK,BFLN,HIARCHY        59850020
000CF9 00067E                      2389+         DC    AL3(EOFOBJ)             EODAD                            65970020

000CFC 90                          2390+         DC    BL1'10010000'                                           *66150020

                                       +                                       RECFM                            66240020
000CFD 000668                      2391+         DC    AL3(EXLOBJ)             EXLST                            66330020


                                   2393+*                       FOUNDATION BLOCK                                66690020

000D00 E2E8E2D6C2D14040            2395+         DC    CL8'SYSOBJ'             DDNAME                           66870020
000D08 02                          2396+         DC    BL1'00000010'           OFLGS                            68220020
000D09 00                          2397+         DC    BL1'00000000'                          IFLG              68310020
000D0A 4800                        2398+         DC    BL2'0100100000000000'                                   *68400020
                                       +                                                                       *68490020
                                       +                                       MACR                             68580020

                                   2400+*                       BSAM-BPAM-QSAM INTERFACE                        74430020


000D0C 00                          2402+         DC    BL1'00000000'                                           *74610020
                                       +                                                                   RER1 74700020

000D0D 000001                      2403+         DC    AL3(1)                  CHECK, GERR, PERR                74790020

000D10 00000001                    2404+         DC    A(1)                    SYNAD                            74880020
000D14 0000                        2405+         DC    H'0'                    CIND1, CIND2                     74970020
000D16 0000                        2406+         DC    AL2(0)                  BLKSIZE                          75240020
000D18 00000000                    2407+         DC    F'0'                    WCPO, WCPL, OFFSR, OFFSW         75870020
000D1C 00000001                    2408+         DC    A(1)                    IOBA                             75960020
000D20 00                          2409+         DC    AL1(0)                  NCP                              76050020
000D21 000001                      2410+         DC    AL3(1)                  EOBR, EOBAD                      76140020

OBLD     HASP OVERLAY BUILDER - OS DATA CONTROL BLOCKS                                                         PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2412+*                            QSAM INTERFACE                             81450020


000D24 00000001                    2414+         DC    A(1)                     RECAD                           81630020
000D28 0000                        2415+         DC    H'0'                    QSWS                             81810020
000D2A 0050                        2416+         DC    AL2(80)        LRECL                                     80730020

000D2C 00                          2417+         DC    BL1'00000000'           EROPT                            82530020
000D2D 000001                      2418+         DC    AL3(1)                  CNTRL                            82620020
000D30 00000000                    2419+         DC    F'0'                    PRECL                            82710020
000D34 00000001                    2420+         DC    A(1)                    EOB                              82800020
OBLD     HASP OVERLAY BUILDER - OS DATA CONTROL BLOCKS                                                         PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2422 *              OUTPUT MESSAGE DATA SET                                  O1174000
                                   2423 *                                                                       O1176000
                                   2424 SYSPRINT DCB   DDNAME=SYSPRINT,DSORG=PS,MACRF=PM,                      CO1178000
                                                       RECFM=FBM,LRECL=121,BUFNO=1                              O1180000


                                   2426+*                       DATA CONTROL BLOCK                              22770020

                                   2427+*                                                                       22860020
000D38                             2428+SYSPRINT DC    0F'0'                   ORIGIN ON WORD BOUNDARY          22914020

                                   2430+*                       DIRECT ACCESS DEVICE INTERFACE                  27360020


000D38 0000000000000000            2432+         DC    BL16'0'                  FDAD,DVTBL                      27540020
000D48 00000000                    2433+         DC    A(0)                     KEYLE,DEVT,TRBAL                27720020

                                   2435+*                       COMMON ACCESS METHOD INTERFACE                  48690020


000D4C 01                          2437+         DC    AL1(1)                  BUFNO                            49050020
000D4D 000001                      2438+         DC    AL3(1)                  BUFCB                            54720020
000D50 0000                        2439+         DC    AL2(0)             BUFL                                  55170020
000D52 4000                        2440+         DC    BL2'0100000000000000'                                   *55800020
                                       +                                                 DSORG                  55890020
000D54 00000001                    2441+         DC    A(1)                     IOBAD                           56340020

                                   2443+*                       FOUNDATION EXTENSION                            56610020


000D58 00                          2445+         DC    BL1'00000000'                  BFTEK,BFLN,HIARCHY        59850020

000D59 000001                      2446+         DC    AL3(1)                  EODAD                            65970020
000D5C 92                          2447+         DC    BL1'10010010'                                           *66150020
                                       +                                       RECFM                            66240020
000D5D 000000                      2448+         DC    AL3(0)                  EXLST                            66330020

                                   2450+*                       FOUNDATION BLOCK                                66690020

000D60 E2E8E2D7D9C9D5E3            2452+         DC    CL8'SYSPRINT'           DDNAME                           66870020

000D68 02                          2453+         DC    BL1'00000010'           OFLGS                            68220020
000D69 00                          2454+         DC    BL1'00000000'                          IFLG              68310020
000D6A 0050                        2455+         DC    BL2'0000000001010000'                                   *68400020
                                       +                                                                       *68490020
                                       +                                       MACR                             68580020


                                   2457+*                       BSAM-BPAM-QSAM INTERFACE                        74430020


000D6C 00                          2459+         DC    BL1'00000000'                                           *74610020
                                       +                                                                   RER1 74700020
000D6D 000001                      2460+         DC    AL3(1)                  CHECK, GERR, PERR                74790020
000D70 00000001                    2461+         DC    A(1)                    SYNAD                            74880020
000D74 0000                        2462+         DC    H'0'                    CIND1, CIND2                     74970020
000D76 0000                        2463+         DC    AL2(0)                  BLKSIZE                          75240020
000D78 00000000                    2464+         DC    F'0'                    WCPO, WCPL, OFFSR, OFFSW         75870020

000D7C 00000001                    2465+         DC    A(1)                    IOBA                             75960020
000D80 00                          2466+         DC    AL1(0)                  NCP                              76050020
000D81 000001                      2467+         DC    AL3(1)                  EOBR, EOBAD                      76140020

                                   2469+*                            QSAM INTERFACE                             81450020

OBLD     HASP OVERLAY BUILDER - OS DATA CONTROL BLOCKS                                                         PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000D84 00000001                    2471+         DC    A(1)                     RECAD                           81630020
000D88 0000                        2472+         DC    H'0'                    QSWS                             81810020

000D8A 0079                        2473+         DC    AL2(121)       LRECL                                     80730020
000D8C 00                          2474+         DC    BL1'00000000'           EROPT                            82530020
000D8D 000001                      2475+         DC    AL3(1)                  CNTRL                            82620020
000D90 00000000                    2476+         DC    F'0'                    PRECL                            82710020
000D94 00000001                    2477+         DC    A(1)                    EOB                              82800020
OBLD     HASP OVERLAY BUILDER - OS DATA CONTROL BLOCKS                                                         PAGE   70



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2479 *              EDITED OBJECT MODULE OUTPUT TO OS LINKAGE EDITOR         O1184000
                                   2480 *                                                                       O1186000
                                   2481 SYSLIN   DCB   DDNAME=SYSLIN,DSORG=PS,MACRF=PM,                        CO1188000
                                                       RECFM=FB,LRECL=80                                        O1190000



                                   2483+*                       DATA CONTROL BLOCK                              22770020
                                   2484+*                                                                       22860020
000D98                             2485+SYSLIN   DC    0F'0'                   ORIGIN ON WORD BOUNDARY          22914020


                                   2487+*                       DIRECT ACCESS DEVICE INTERFACE                  27360020

000D98 0000000000000000            2489+         DC    BL16'0'                  FDAD,DVTBL                      27540020
000DA8 00000000                    2490+         DC    A(0)                     KEYLE,DEVT,TRBAL                27720020


                                   2492+*                       COMMON ACCESS METHOD INTERFACE                  48690020

000DAC 00                          2494+         DC    AL1(0)                  BUFNO                            49050020
000DAD 000001                      2495+         DC    AL3(1)                  BUFCB                            54720020
000DB0 0000                        2496+         DC    AL2(0)             BUFL                                  55170020

000DB2 4000                        2497+         DC    BL2'0100000000000000'                                   *55800020
                                       +                                                 DSORG                  55890020
000DB4 00000001                    2498+         DC    A(1)                     IOBAD                           56340020

                                   2500+*                       FOUNDATION EXTENSION                            56610020


000DB8 00                          2502+         DC    BL1'00000000'                  BFTEK,BFLN,HIARCHY        59850020
000DB9 000001                      2503+         DC    AL3(1)                  EODAD                            65970020
000DBC 90                          2504+         DC    BL1'10010000'                                           *66150020
                                       +                                       RECFM                            66240020

000DBD 000000                      2505+         DC    AL3(0)                  EXLST                            66330020

                                   2507+*                       FOUNDATION BLOCK                                66690020

000DC0 E2E8E2D3C9D54040            2509+         DC    CL8'SYSLIN'             DDNAME                           66870020

000DC8 02                          2510+         DC    BL1'00000010'           OFLGS                            68220020
000DC9 00                          2511+         DC    BL1'00000000'                          IFLG              68310020
000DCA 0050                        2512+         DC    BL2'0000000001010000'                                   *68400020
                                       +                                                                       *68490020
                                       +                                       MACR                             68580020

                                   2514+*                       BSAM-BPAM-QSAM INTERFACE                        74430020


000DCC 00                          2516+         DC    BL1'00000000'                                           *74610020
                                       +                                                                   RER1 74700020

000DCD 000001                      2517+         DC    AL3(1)                  CHECK, GERR, PERR                74790020
000DD0 00000001                    2518+         DC    A(1)                    SYNAD                            74880020
000DD4 0000                        2519+         DC    H'0'                    CIND1, CIND2                     74970020
000DD6 0000                        2520+         DC    AL2(0)                  BLKSIZE                          75240020
000DD8 00000000                    2521+         DC    F'0'                    WCPO, WCPL, OFFSR, OFFSW         75870020

000DDC 00000001                    2522+         DC    A(1)                    IOBA                             75960020
000DE0 00                          2523+         DC    AL1(0)                  NCP                              76050020
000DE1 000001                      2524+         DC    AL3(1)                  EOBR, EOBAD                      76140020

                                   2526+*                            QSAM INTERFACE                             81450020
OBLD     HASP OVERLAY BUILDER - OS DATA CONTROL BLOCKS                                                         PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000DE4 00000001                    2528+         DC    A(1)                     RECAD                           81630020

000DE8 0000                        2529+         DC    H'0'                    QSWS                             81810020
000DEA 0050                        2530+         DC    AL2(80)        LRECL                                     80730020

000DEC 00                          2531+         DC    BL1'00000000'           EROPT                            82530020
000DED 000001                      2532+         DC    AL3(1)                  CNTRL                            82620020
000DF0 00000000                    2533+         DC    F'0'                    PRECL                            82710020
000DF4 00000001                    2534+         DC    A(1)                    EOB                              82800020
OBLD     HASP OVERLAY BUILDER - OS DATA CONTROL BLOCKS                                                         PAGE   72



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2536 *              OVERLAY MODULE OUTPUT DATA SET                           O1194000
                                   2537 *                USED DURING HASP EXECUTION                             O1196000
                                   2538 *                                                                       O1198000
                                   2539 OLAYLIB  DCB   DDNAME=OLAYLIB,DSORG=PS,MACRF=WP,                       CO1200000
                                                       RECFM=U,BLKSIZE=&OLAYSIZ,BUFNO=0,NCP=1                   O1202000


                                   2541+*                       DATA CONTROL BLOCK                              22770020
                                   2542+*                                                                       22860020

000DF8                             2543+OLAYLIB  DC    0F'0'                   ORIGIN ON WORD BOUNDARY          22914020


                                   2545+*                       DIRECT ACCESS DEVICE INTERFACE                  27360020

000DF8 0000000000000000            2547+         DC    BL16'0'                  FDAD,DVTBL                      27540020
000E08 00000000                    2548+         DC    A(0)                     KEYLE,DEVT,TRBAL                27720020


                                   2550+*                       COMMON ACCESS METHOD INTERFACE                  48690020

000E0C 00                          2552+         DC    AL1(0)                  BUFNO                            49050020
000E0D 000001                      2553+         DC    AL3(1)                  BUFCB                            54720020
000E10 0000                        2554+         DC    AL2(0)             BUFL                                  55170020
000E12 4000                        2555+         DC    BL2'0100000000000000'                                   *55800020
                                       +                                                 DSORG                  55890020
000E14 00000001                    2556+         DC    A(1)                     IOBAD                           56340020

                                   2558+*                       FOUNDATION EXTENSION                            56610020


000E18 00                          2560+         DC    BL1'00000000'                  BFTEK,BFLN,HIARCHY        59850020
000E19 000001                      2561+         DC    AL3(1)                  EODAD                            65970020
000E1C C0                          2562+         DC    BL1'11000000'                                           *66150020

                                       +                                       RECFM                            66240020
000E1D 000000                      2563+         DC    AL3(0)                  EXLST                            66330020

                                   2565+*                       FOUNDATION BLOCK                                66690020

000E20 D6D3C1E8D3C9C240            2567+         DC    CL8'OLAYLIB'            DDNAME                           66870020
000E28 02                          2568+         DC    BL1'00000010'           OFLGS                            68220020
000E29 00                          2569+         DC    BL1'00000000'                          IFLG              68310020
000E2A 0024                        2570+         DC    BL2'0000000000100100'                                   *68400020
                                       +                                                                       *68490020

                                       +                                       MACR                             68580020


                                   2572+*                       BSAM-BPAM-QSAM INTERFACE                        74430020

000E2C 00                          2574+         DC    BL1'00000000'                                           *74610020

                                       +                                                                   RER1 74700020
000E2D 000001                      2575+         DC    AL3(1)                  CHECK, GERR, PERR                74790020
000E30 00000001                    2576+         DC    A(1)                    SYNAD                            74880020
000E34 0000                        2577+         DC    H'0'                    CIND1, CIND2                     74970020
000E36 0500                        2578+         DC    AL2(1280)               BLKSIZE                          75240020
000E38 00000000                    2579+         DC    F'0'                    WCPO, WCPL, OFFSR, OFFSW         75870020
000E3C 00000001                    2580+         DC    A(1)                    IOBA                             75960020
000E40 01                          2581+         DC    AL1(1)                  NCP                              76050020
000E41 000001                      2582+         DC    AL3(1)                  EOBR, EOBAD                      76140020

OBLD     HASP OVERLAY BUILDER - OS DATA CONTROL BLOCKS                                                         PAGE   73



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2584+*                         BSAM-BPAM INTERFACE                           76410020

000E44 00000001                    2586+         DC    A(1)                    EOBW                             76590020

000E48 0000                        2587+         DC    H'0'                    DIRCT                            78210020
000E4A 0000                        2588+         DC    AL2(0)         LRECL                                     80730020
000E4C 00000001                    2589+         DC    A(1)                    CNTRL, NOTE, POINT               78480020
OBLD     HASP OVERLAY BUILDER - TABLE AND WORK AREAS                                                           PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                   2592 ESIDS    DS    (&MAXESID+3)F       ESID NUMBER REFERENCE TABLE          O1208000
000E50                             2593+ESIDS    DS    (255+3)F            ESID NUMBER REFERENCE TABLE          O1208000





                                   2595 SYMS     DC    0F'0',&SYMAREA.X'00' AREA IN WHICH TO BUILD SYMBOL TABLE O1212000

001258 0000000000000000            2596+SYMS     DC    0F'0',8192X'00'      AREA IN WHICH TO BUILD SYMBOL TABLE O1212000






                                   2598 WORK     DS    D,&WRKAREA.X        AREA IN WHICH TO LOAD OVERLAY CSECTS O1216000
003258                             2599+WORK     DS    D,24576X            AREA IN WHICH TO LOAD OVERLAY CSECTS O1216000
                                   2600          END                                                            O1218000
OBLD                                              RELOCATION DICTIONARY                                        PAGE   75


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78

 0001     0001      08     0000B9
 0001     0001      08     0000BD
 0001     0001      08     0000C1
 0001     0001      08     0000C5
 0001     0001      08     0000C9
 0001     0001      0C     0000E8
 0001     0001      0C     0000EC

 0001     0001      0C     000584

 0001     0001      08     000669
 0001     0001      08     0008B1

 0001     0001      08     0008B5
 0001     0001      08     0008B9
 0001     0001      08     0008BD
 0001     0001      08     0008C1
 0001     0001      0C     000C28
 0001     0001      08     000C99
 0001     0001      08     000CF9
 0001     0001      08     000CFD

OBLD                                              CROSS-REFERENCE                                              PAGE   76


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

BASE2    00001 0000000C 00328  01606 01608 01609 01609 02257

BUFDSECT 00001 00000000 01475  02289
BUFSTART 00008 00000058 01514  01521 01527 02289

CDADR    00001 00000004 01559  01929 01967 02168 02171

CDATA    00001 00000010 01562  01785 01966 02091 02111 02111 02112 02112 02113 02157 02158 02172 02206 02220
CDESID   00001 0000000E 01561  01777 01940 02155 02167
CDID     00001 00000000 01557  01786
CDNUM    00001 0000000A 01560  01776 02166 02184 02201 02202 02208 02212 02223
CDTYP    00001 00000001 01558  01788 01790 01792 01794
CMPLCODE 00002 000008E8 02265  01859 01861 02060 02138 02255
DCBBIT0  00001 00000080 00536  00657 00673 00712 00730 00775 00785 00801 00842 00852 00864 00887 00918 00921 00923 00925
                               00948 00951 00971 00976 00995 01032 01085 01108 01140 01144 01157 01252 01255 01265
DCBBIT1  00001 00000040 00537  00658 00674 00731 00739 00775 00785 00803 00843 00853 00866 00888 00890 00900 00918 00921
                               00924 00925 00953 00971 00974 00976 00998 00999 01000 01035 01036 01085 01110 01146 01148
                               01160 01204 01252 01257 01266
DCBBIT2  00001 00000020 00538  00659 00675 00732 00741 00785 00804 00844 00854 00867 00869 00870 00888 00890 00895 00901

                               00918 00920 00927 00955 00978 00980 01003 01004 01005 01039 01040 01087 01113 01149 01165
                               01207 01211 01252 01267
DCBBIT3  00001 00000010 00539  00623 00660 00676 00746 00788 00805 00845 00867 00870 00872 00888 00903 00928 00958 00978

                               00982 01007 01008 01009 01043 01044 01087 01115 01117 01119 01151 01166 01207 01212 01252
DCBBIT4  00001 00000008 00540  00624 00677 00747 00791 00806 00846 00855 00904 00929 00959 00984 00990 00991 01012 01013
                               01047 01048 01050 01051 01089 01122 01167 01207 01213
DCBBIT5  00001 00000004 00541  00626 00678 00749 00792 00806 00847 00856 00905 00932 00934 00961 00984 00987 00988 00991
                               01016 01018 01019 01020 01054 01055 01056 01057 01089 01124 01127 01153 01169 01202
DCBBIT6  00001 00000002 00542  00628 00661 00679 00751 00793 00810 00848 00906 00908 00911 00932 00935 00962 01023 01024
                               01025 01026 01060 01061 01062 01063 01130 01171
DCBBIT7  00001 00000001 00543  00630 00662 00755 00795 00811 00849 00906 00909 00911 00937 00966 01028 01029 01066 01067
                               01069 01070 01155 01172 01214
DCBDEBAD 00004 0000002C 01083  02035
DCBDVTBL 00004 0000000C 00561  02040
DCBFDAD  00008 00000005 00557  00560

DCBOFLGS 00001 00000030 00947  01706 02079 02082
DCBSSID  00008 00000000 00764  00767
DCBWTOID 00004 00000000 00684  00699 00708
DEBDSECT 00001 00000000 01280  02036

DEBUCBAD 00004 00000020 01295  02038 02044
EIASMO   00001 00000004 01597  01867 01947 01949 02294
EIDUP    00001 00000002 01596  01862 01897 01921 01951
EIRES    00001 00000001 01595  01815 01867 01897 01923 01953 01959
END      00004 00000546 01990  01795
EOFIN    00002 000001AA 01741  01707 02332

EOFOBJ   00002 0000067E 02087  02389
ESADR    00001 00000008 01566  01886 01888 02111 02111
ESD      00004 00000292 01813  01793
ESIDS    00004 00000E50 02593  01760 01760 01761 01761 01762 01762 01763 01763 01764 01764 01784 01896 01938 01942
ESL      00001 00000010 01569  01892 01916
ESLDEI   00001 0000000E 01568  01889
ESLN     00001 0000000C 01567  01870 01877 02091 02112 02112
ESNA     00001 00000000 01564  01817 01826 01841 01851 01864 01866 02157 02158

ESTER    00001 00000002 01572  02113
ESTLD    00001 00000001 01571  01819 01890

ESTNULL  00001 00000007 01574  01722 01814 01847 01913
ESTSD    00001 00000000 01570  01838 01845 01849 01865 02123 02191
ESTYP    00001 00000008 01565  01814 01819 01827 01838 01845 01890 01913 02113
EWROLIB  00004 0000057C 02006  02018
OBLD                                              CROSS-REFERENCE                                              PAGE   77


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

EXDCBOBJ 00002 0000066C 02076  02073
EXLOBJ   00004 00000668 02073  02391

E1       00004 0000054E 01992  01996 01998 02071
E2       00006 000005BC 02028  02001
GETIN    00004 00000136 01709  01720 01738
GETOBJ   00004 00000202 01769  01774 01797 01919 01922 01926 01932 01988
GI1      00004 000001A2 01737  01729

GO1      00004 00000276 01800  01782
GO2      00004 0000023A 01785  01779
GO3      00004 0000026E 01796  01787

HASPOBLD 00001 00000000 00158  01277 01303 01529 01554
IHADCB   00001 00000000 00534  00582 00606 00634 00653 00683 00763 00824 00875 00944 01076 01093 01097 01103 01192 01198
                               01222 01243 01275 01706 02034 02078
LINK     00001 0000000E 00330  02035 02036 02045
LINTXT   00004 00000940 02270  01940 01966 01967 01968 01969 02107 02166 02167 02168 02171 02172 02178 02184 02185
MOT1     00004 000006DE 02116  02120 02122 02139 02161 02165
MOT10    00004 0000084C 02209  02190 02192 02194 02203

MOT11    00004 00000868 02216  02213
MOT12    00002 000007DC 02181  02177
MOT13    00004 000006B8 02105  02101
MOT2     00004 000007A2 02166  02118
MOT3     00004 000007B4 02171  02180

MOT4     00004 000007E8 02185  02176
MOT5     00004 000006AA 02102  02104
MOT6     00004 00000748 02140  02124
MOT7     00006 00000792 02162  02147

MOT8     00004 000007F8 02189  02211
MOT9     00004 00000842 02206  02188
NEWMOD   00006 000001D8 01760  01994
OBJFLG   00001 000008EE 02268  01772 01773 02081
OCONS    00002 000008EA 02266  01724 01727 01831 01836 02089
OLAYLIB  00004 00000DF8 02543  01668 01684 01696 02010 02023 02033 02252

OLIBTAG  00004 000008E4 02264  01655 01828 02096
OTABEND  00004 000009E0 02272  02216
OTABESD  00004 000008F0 02269  02091 02105 02107 02111 02111 02112 02112 02113 02155 02157 02158 02159
OTABRLD  00004 00000990 02271  02201 02202 02204 02206 02208 02212 02214
OTBADDR  00004 00000000 01548  02148 02151

OTBDSECT 00001 00000000 01547  01553 02143
OTBPRIO  00001 00000000 01549  02163
OTBSIZE  00001 00000004 01553  02296
OTBTRAK  00002 00000002 01552  02162
OVADR    00004 000008E0 02263  01765 01874 01880

PRCCHHR  00010 00000A69 02279  02049 02050
PRCSECT  00008 00000A45 02275  01851 02028 02029 02125 02126
PREND    00033 00000A88 02282  01852 02131
PREPOLIB 00004 000000DC 01679  01702
PRERR    00009 00000A7F 02281  01853 02056 02057 02057 02061 02064 02132

PRHEADER 00001 00000A30 02274  01753
PRLGTH   00004 00000A51 02276  01852 01852 01852 02031 02056 02056 02128 02128
PRLINE   00001 00000A30 02273  01685 01756 01856 02067 02135
PROCON   00004 00000A59 02277  02030 02127 02129 02130
PROGEND  00002 000008AA 02239  02218

PROGRAM  00002 000000A8 01650  01610
PRPRIO   00004 00000A77 02280  02054 02055
PRTITLE  00001 00000AA9 02283  01673 01704 01713 01716 01743 01745 01748
OBLD                                              CROSS-REFERENCE                                              PAGE   78


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

PRTR     00004 00000A61 02278  02032 02050 02064 02064 02064 02131 02131 02131

PUTHEAD  00004 000001C6 01752  01744
PUTLINA  00002 00000880 02224  01796 01925 01990
PUTLINDL 00004 00000874 02220  01918 01987
PUTLIN1  00004 00000882 02225  01970 02106 02160 02179 02186 02205 02215 02217

PWROLIB  00004 000000E0 01680  01691
RLADR    00001 00000004 01579  01963 01967
RLD      00004 00000474 01935  01791
RLEIP    00001 00000002 01577  01939
RLEIR    00001 00000000 01576  01936

RLF      00001 00000004 01578  01955 01957 01971 01981
RLSL     00001 00000004 01580  01982 01985
RL1      00004 00000478 01936  01986
RL2      00004 000004AC 01951  01946 01948 01984
RL3      00006 000004EA 01966  01960
RL4      00004 00000504 01971  01950 01952 01965
RL5      00004 00000528 01981  01954 01956 01958 01972

RL6      00004 0000053A 01986  01980
RL7      00002 00000520 01978  01975
R0       00001 00000000 00297  01815 01828 01833 01834 01843 01844 01862 01867 01876 01881 01886 01887 01901 01902 01903

                               01907 01908 01910 01914 01973 01974 01976 02039 02039 02043 02047 02051 02051 02052 02053
                               02089 02090 02091 02095 02097 02098 02100 02100 02104 02220 02221 02225 02226 02227 02228
R1       00001 00000001 00298  01699 01700 01701 01724 01725 01726 01726 01727 01730 01733 01734 01734 01735 01822 01823
                               01823 01824 01826 01827 01829 01832 01837 01841 01843 01847 01849 01864 01865 01866 01869
                               01870 01871 01873 01875 01885 01899 01904 01905 01906 01927 01928 01929 01933 01961 01962

                               01963 01964 01969 01999 01999 02026 02027 02037 02038 02044 02046 02047 02048 02092 02095
                               02096 02099 02099 02102 02102 02103 02103 02105 02140 02141 02142 02143 02151 02152 02153
                               02159 02164 02178 02185 02204 02214 02216 02224 02229 02230 02231
R10      00001 0000000A 00307  00326
R11      00001 0000000B 00308  00327
R12      00001 0000000C 00309  00328 01603 01607
R13      00001 0000000D 00310  00329
R14      00001 0000000E 00311  00330 01831 01832 01833 01835 01835 01836 01874 01875 01876 01877 01878 01878 01879 01880

                               01881 01883
R15      00001 0000000F 00312  02033 02034 02040 02041 02042 02042 02043

R2       00001 00000002 00299  00318
R3       00001 00000003 00300  00319
R4       00001 00000004 00301  00320
R5       00001 00000005 00302  00321
R6       00001 00000006 00303  00322

R7       00001 00000007 00304  00323
R8       00001 00000008 00305  00324 00325
SAVE     00001 0000000D 00329  01604 01606 01607 01608 02257
SAVEAREA 00008 00000020 01612  01602 01604 01606 02256
SEQNO    00002 000008EC 02267  01766 02225 02228
SYMADR   00001 00000008 01585  01875 01904 02002 02027 02032 02153 02162 02198
SYMERID  00001 0000000C 01587  02154 02195
SYML     00001 00000010 01590  01737 01822 01823 01991 01992 02115 02116 02187 02209

SYMLGTH  00001 00000000 01584  01870 02031
SYMNA    00001 00000000 01583  01721 01824 01826 01829 01841 01864 01866 01871 01993 01995 02028 02117 02119 02121 02125

                               02146 02157 02189 02193 02210
SYMOCON  00001 0000000C 01586  01725 01832 01843 02030 02127 02140
SYMPRI   00001 0000000E 01588  01723 01735 01736 01837 01899 01905 01906 02052 02163
SYMS     00004 00001258 02596  01705 01822 01991 02115 02187
SYMT$SD  00001 00000080 01591  01869 01997

OBLD                                              CROSS-REFERENCE                                              PAGE   79


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

SYMTERRL 00001 00000020 01593  01885 02058
SYMTWRO  00001 00000040 01592  01873 02000 02062
SYMTYP   00001 0000000F 01589  01722 01827 01847 01849 01865 01869 01873 01885 01997 02000 02058 02062 02070 02123 02191
SYSIN    00004 00000C78 02314  01660 01706 01709 02244
SYSLIN   00004 00000D98 02485  01666 02233 02250
SYSOBJ   00004 00000CD8 02371  01662 01769 02246
SYSPRINT 00004 00000D38 02428  01664 01672 01715 01747 01752 01800 01855 02066 02134 02248

S1       00004 00000296 01814  01917

S2       00004 000002B8 01822  01818
S21      00004 000003C0 01888  01830 01839 01846 01863
S22      00004 00000424 01913  01893
S23      00004 00000428 01914  01816 01821 01872
S24      00004 00000430 01916  01820

S25      00004 00000434 01917  01909 01912
S26      00004 0000040C 01907  01898 01900
S3       00004 000002BC 01823  01842
S4       00006 00000308 01841  01825
S5       00006 00000366 01864  01850
S6       00004 00000376 01867  01840
S7       00004 0000036C 01865  01848
TEMPDW   00008 000008D8 02262  02048 02049 02053 02054 02226 02229
TMVC     00006 0000046E 01933  01931
TXT      00004 00000440 01921  01789

UNHEXTAB 00001 00000B22 02284  02056 02129

WA       00001 00000002 00318  01712 01713 01719 01721 01728 01730 01731 01733 01775 01776 01777 01785 01786 01788 01790
                               01792 01794 01801 01907 01929 01968 01973 01991 01992 01992 01993 01995 01997 02000 02002
                               02027 02028 02030 02031 02032 02052 02058 02062 02070 02115 02116 02116 02117 02119 02121
                               02123 02125 02127 02140 02146 02153 02154 02157 02162 02163 02169 02169 02171 02173 02173

                               02175 02181 02182 02182 02183 02183 02184 02187 02189 02191 02193 02195 02198 02209 02209
                               02210 02220 02223 02224
WB       00001 00000003 00319  01705 01721 01722 01723 01725 01735 01736 01737 01737 01776 01813 01917 01930 01931 01935
                               01979 01983 01986 02002 02013 02114 02154 02155 02156 02156 02170 02172 02174 02174 02195
                               02196 02197 02198 02199 02199 02206
WC       00001 00000004 00320  01777 01778 01781 01783 01784 01784 01914 01915 01915 01921 01923 01927 01939 01940 01941
                               01942 01942 01944 01947 01949 01951 01959 01961 02097 02175 02181 02200 02200 02201 02207
                               02207 02208
WD       00001 00000005 00321  01785 01814 01817 01819 01826 01827 01838 01841 01845 01851 01864 01866 01870 01877 01886
                               01888 01889 01890 01891 01892 01892 01908 01911 01911 01913 01916 01916 01933 01936 01939
                               01943 01955 01957 01963 01967 01971 01974 01977 01978 01981 01982 01982 01985 01985 02221

                               02223
WE       00001 00000006 00322  01888 01894 01894 01903 01904 01905 01936 01937 01938 01938 01944 01953 01964 01966
WF       00001 00000007 00323  01889 01895 01896 01896 01897 01901 01943 01977 01978
WG       00001 00000008 00324  01796 01918 01925 01970 01987 01990 02106 02160 02179 02186 02205 02215 02217 02222 02236

WORK     00008 00003258 02599  02287
Z        00001 00000008 00342  02222
OBLD                                              LITERAL CROSS-REFERENCE                                      PAGE   80


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

=A(WORK) 00004 00000C28 02287  01765 02092 02142 02152 02170
=F'-8'   00004 00000C2C 02288  01879 01902 01928 01962
=A(0-(BUFSTART-BUFDSECT))
         00004 00000C30 02289  02148
=H'1'    00002 00000C34 02290  01701 01766 02196 02227
=C'  '   00002 00000C36 02291  01778
=Y(255)  00002 00000C38 02292  01781
=Y(1280) 00002 00000C3A 02293  01883

=Y(EIASMO)
         00002 00000C3C 02294  01887
=C'HA'   00002 00000C3E 02295  02029 02126 02158

=Y(OTBSIZE)
         00002 00000C40 02296  02090 02141
=C'HA$'  00003 00000C42 02297  01719 01817
=C'PROGRAM'
         00007 00000C45 02298  01743
=C'TXT'  00003 00000C4C 02299  01788
=C'RLD'  00003 00000C4F 02300  01790
=C'ESD'  00003 00000C52 02301  01792
=C'END'  00003 00000C55 02302  01794
=C'Q$$$$'
         00005 00000C58 02303  01829 02121
=CL9'DUPLICATE'

         00009 00000C5D 02304  01853

=CL9'TOO LONG'
         00009 00000C66 02305  02061

=CL9'UNDEFINED'
         00009 00000C6F 02306  02132
OBLD                                              ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE   81


                                                                                                 ASM 0201 20.02 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT        656

TOTAL RECORDS READ FROM SYSTEM LIBRARY    13038
TOTAL RECORDS PUNCHED                       218

TOTAL RECORDS PRINTED                      3060

F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST,MAP,NCAL
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)


                                                      MODULE MAP


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HASPOBLD      00    9260


 ENTRY ADDRESS       00
 TOTAL LENGTH      9260

****HASPOBLD  DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


PRPU                                           EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.02 08/28/78

HASPPRPU  SD  0001 000000 002B88
HASPHOPE  LD       000000        0001
$#ADD     LD       000656        0001
$#REM     LD       000778        0001
$#GET     LD       000884        0001
$#PUT     LD       000A8E        0001
$#LOC     LD       000B24        0001
$#CAN     LD       000B54        0001
$CKPTPCE  ER  0002
$#ADD     ER  0003

$JOT      LD       000D60        0001
HASPPR    LD       0014B8        0001
HASPPU    LD       0014B8        0001

HA$QPPI1  XD  0004 000007 000000
HA$QPPI2  XD  0005 000007 000000
HA$OPPI1  SD  0006 002B88 000265
HA$IPPI1  LD       002B90        0006
HA$OPPI2  SD  0007 002DF0 0001D2
HA$IPPI2  LD       002DF8        0007
HA$QBLOK  XD  0008 000007 000000
$#GET     ER  0009
$JOT      ER  000A
$#PUT     ER  000B
$#REM     ER  000C
HA$OBLOK  SD  000D 002FC8 0003ED

HA$IBLOK  LD       002FD0        000D
HA$QPRAN  XD  000E 000007 000000
HA$OPRAN  SD  000F 0033B8 000110
HA$IPRAN  LD       0033C0        000F

HA$QPRHN  XD  0010 000007 000000
HA$OPRHN  SD  0011 0034C8 000110
HA$IPRHN  LD       0034D0        0011
HA$QPRPN  XD  0012 000007 000000
HA$OPRPN  SD  0013 0035D8 000110
HA$IPRPN  LD       0035E0        0013

HA$QPRQN  XD  0014 000007 000000
HA$OPRQN  SD  0015 0036E8 000110
HA$IPRQN  LD       0036F0        0015
HA$QPRRN  XD  0016 000007 000000
HA$OPRRN  SD  0017 0037F8 000110
HA$IPRRN  LD       003800        0017
HA$QPRUN  XD  0018 000007 000000
HA$OPRUN  SD  0019 003908 000020

HA$IPRUN  LD       003910        0019

HA$QPRA1  XD  001A 000007 000000
HA$OPRA1  SD  001B 003928 000220
HA$IPRA1  LD       003930        001B
HA$QPRH1  XD  001C 000007 000000
HA$OPRH1  SD  001D 003B48 000220
HA$IPRH1  LD       003B50        001D
HA$QPRP1  XD  001E 000007 000000
HA$OPRP1  SD  001F 003D68 000220
HA$IPRP1  LD       003D70        001F

HA$QPRU1  XD  0020 000007 000000
HA$OPRU1  SD  0021 003F88 000020
PRPU                                           EXTERNAL SYMBOL DICTIONARY                                      PAGE    2


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.02 08/28/78

HA$IPRU1  LD       003F90        0021

HA$QC461  XD  0022 000007 000000
HA$OC461  SD  0023 003FA8 000063

HA$IC461  LD       003FB0        0023
HA$QC464  XD  0024 000007 000000
HA$OC464  SD  0025 004010 000065
HA$IC464  LD       004018        0025
HA$QC467  XD  0026 000007 000000
HA$OC467  SD  0027 004078 000063
HA$IC467  LD       004080        0027
PRPU                                                                                                           PAGE    3



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                      1 *                                                                  RFIT P0000000
                                      2 *                            KILL ALL 370 INSTRUCTIONS             RFIT P0000010
                                      3 *                                                                  RFIT P0000020
                                      4 MVCL     OPSYN ,                                                   RFIT P0000030

                                      5 CLCL     OPSYN ,                                                   RFIT P0000040
                                      6 SIOF     OPSYN ,                                                   RFIT P0000050
                                      7 HDV      OPSYN ,                                                   RFIT P0000070

                                      8 STNSM    OPSYN ,                                                   RFIT P0000080
                                      9 STOSM    OPSYN ,                                                   RFIT P0000090
                                     10 MC       OPSYN ,                                                   RFIT P0000110
                                     11 LRA      OPSYN ,                                                   RFIT P0000120
                                     12 STCTL    OPSYN ,                                                   RFIT P0000130
                                     13 LCTL     OPSYN ,                                                   RFIT P0000140
                                     14 CLM      OPSYN ,                                                   RFIT P0000180

                                     15 STCM     OPSYN ,                                                   RFIT P0000190
                                     16 ICM      OPSYN ,                                                   RFIT P0000200
                                     17 STIDP    OPSYN ,                                                   RFIT P0000210
                                     18 STIDC    OPSYN ,                                                   RFIT P0000220
                                     19 SCK      OPSYN ,                                                   RFIT P0000230

                                     20 STCK     OPSYN ,                                                   RFIT P0000240
                                     21 SCKC     OPSYN ,                                                   RFIT P0000250
                                     22 STCKC    OPSYN ,                                                   RFIT P0000260
                                     23 SPT      OPSYN ,                                                   RFIT P0000270

                                     24 STPT     OPSYN ,                                                   RFIT P0000280
                                     25 PTLB     OPSYN ,                                                   RFIT P0000310
                                     26 RRB      OPSYN ,                                                   RFIT P0000350
                                     27 SRP      OPSYN ,                                                   RFIT P0000360
PRPU     HASP GLOBAL DEFINITIONS                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                     29          COPY  $GLOBAL                                                  P0004000
                                     30 *                                                                       GL002000
                                     31 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                     32 *                                                                       GL006000




                                     34          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000
                                     35          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000
                                     36          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                     37          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000
                                     38          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000






                                     40 *                                                                       GL032000
                                     41 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000
                                     42 *                                                                       GL036000




                                     44          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000
                                     45          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                     46          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000
                                     47          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000

                                     48          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000
                                     49          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000
                                     50          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                     51          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000
                                     52          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000
                                     53          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000

                                     54          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000
                                     55          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                     56          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000
                                     57          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000

                                     58          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000
                                     59          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000
                                     60          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                     61          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200
                                     62          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300

                                     63          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000
                                     64          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000
                                     65          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                     66          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000
                                     67          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                     68          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                     69          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000

                                     70          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000
                                     71          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                     72          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000

                                     73          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000
                                     74          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000
PRPU     HASP GLOBAL DEFINITIONS                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                     76 *                                                                       GL116000

                                     77 *                             O/S INTERFACE PARAMETERS                  GL118000
                                     78 *                                                                       GL120000



                                     80          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000
                                     81          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                     82          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000
                                     83          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000
                                     84          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000

                                     85          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000
                                     86          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000

                                     87          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000
                                     88          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000
                                     89          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000
                                     90          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                     91          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200

                                     92          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300
                                     93          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400





                                     95 *                                                                       GL150000
                                     96 *                             HASP OPTION PARAMETERS                    GL152000
                                     97 *                                                                       GL154000



                                     99          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000

                                    100          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000

                                    101          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000
                                    102          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000
                                    103          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000
                                    104          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000
                                    105          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000

                                    106          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000
                                    107          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000
                                    108          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000
                                    109          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100
                                    110          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500
                                    111          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                    112          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                    113          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000
                                    114          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                    115          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000

                                    116          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000

                                    117          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000
                                    118          GBLB  &DEBUG              DEBUG MODE                           GL186000
                                    119          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000
                                    120          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000

PRPU     HASP GLOBAL DEFINITIONS                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    122 *                                                                       GL226000
                                    123 *                             REMOTE JOB ENTRY PARAMETERS               GL228000
                                    124 *                                                                       GL230000



                                    126          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                    127          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000
                                    128          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000
                                    129          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    130          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000

                                    131          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000
                                    132          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000
                                    133          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000
                                    134          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000






                                    136 *                                                                       GL260000
                                    137 *                             INTERNAL GENERATION PARAMETERS            GL262000
                                    138 *                                                                       GL264000



                                    140          GBLC  &VERSION            HASP VERSION                         GL270000
                                    141          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000
                                    142          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                    143          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000
                                    144          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500
                                    145          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000

                                    146          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500
                                    147          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                    148          GBLA  &LOW                OVERLAY PRIORITY                     GL280000

                                    149          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000
                                    150          GBLA  &HIGH                 PARAMETER VALUES                   GL284000
                                    151          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000
                                    152          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000
                                    153          LCLC  &DOC                DOCUMENTATION OPTION                 P0006000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE                                                                       PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                              156 HASPPRPU CSECT                     HASP PRINT/PUNCH SERVICE             P0012000






                                    158 *                                                                       P0016000

                                    159 *                             PRINT/PUNCH GENERATION OPTIONS            P0018000
                                    160 *                                                                       P0020000




                            0003D   162 $PRIDCT  EQU   61                  LINES ON LOCAL PRINT SEP PAGE        P0024000
                            00006   163 $TPIDCT  EQU   6                   LINES ON REMOTE PRINT SEP PAGE       P0026000
                            00002   164 $PRTBOPT EQU   2                   LOCAL PRINT BUFFERING OPTION         P0028000
                            00001   165 $PUNBOPT EQU   1                   LOCAL PUNCH BUFFERING OPTION         P0030000
                            00001   166 $RPRBOPT EQU   1                   REMOTE PRINT BUFFERING OPTION        P0032000
                            00001   167 $RPUBOPT EQU   1                   REMOTE PUNCH BUFFERING OPTION        P0034000





                                    169          COPY  $HASPGEN            COPY HASPGEN PARAMETERS              P0038000
PRPU     HASPGEN PARAMETER VALUES                                                                              PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    171 *                                                                       HA004000
                                    172 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000

                                    173 *                                                                       HA008000




                                    175 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000
                                    176 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                    177 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000
                                    178 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000
                                    179 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000




                                    181 *                                                                       HA028000
                                    182 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000
                                    183 *                                                                       HA032000




                                    185 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000
                                    186 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000
                                    187 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000

                                    188 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000
                                    189 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000
                                    190 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                    191 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000
                                    192 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000
                                    193 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000
                                    194 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000
                                    195 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    196 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000
                                    197 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000
                                    198 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000
                                    199 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000

                                    200 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000
                                    201 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000
                                    202 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100

                                    203 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200
                                    204 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300
                                    205 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                    206 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000
                                    207 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                    208 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000
                                    209 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000
                                    210 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                    211 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000
                                    212 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000
                            0003C   213 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000
PRPU     HASPGEN PARAMETER VALUES                                                                              PAGE    9



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    216 *                                                                       HA100000

                                    217 *                             O/S INTERFACE PARAMETERS                  HA102000
                                    218 *                                                                       HA104000



                                    220 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                    221 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000
                                    222 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000

                                    223 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000
                                    224 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000
                                    225 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000
                                    226 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                    227 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                    228 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000
                                    229 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100
                                    230 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200

                                    231 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300
                                    232 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400




                                    234 *                                                                  RFIT HA125600
                                    235 *                             HASP SVC NUMBER                      RFIT HA125700
                                    236 *                                                                  RFIT HA125800
                                    237          COPY  $INITSVC                                            RFIT HA125900
                                    238 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT






                                    240 *                                                                       HA130000
                                    241 *                             HASP OPTION PARAMETERS                    HA132000
                                    242 *                                                                       HA134000



                                    244 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000

                                    245 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000
                                    246 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000
                                    247 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000

                                    248 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                    249 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000
                                    250 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    251 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000
                                    252 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000
                                    253 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000
                                    254 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100

                                    255 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500
                                    256 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
PRPU     HASPGEN PARAMETER VALUES                                                                              PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    257 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500

                                    258 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                    259 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000
                                    260 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                    261 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000

                                    262 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                    263 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000
                                    264 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                    265 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000
PRPU     HASPGEN PARAMETER VALUES                                                                              PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    268 *                                                                       HA174000
                                    269 *                             REMOTE JOB ENTRY PARAMETERS               HA176000
                                    270 *                                                                       HA178000




                                    272 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000
                                    273 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000
                                    274 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000
                                    275 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000

                                    276 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                    277 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000
                                    278 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000
                                    279 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000
                                    280 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000






                                    282 *                                                                       HA202000
                                    283 *                             INTERNAL GENERATION PARAMETERS            HA204000
                                    284 *                                                                       HA206000




                                    286 &VERSION SETC  '4.0'               HASP VERSION                         HA210000
                                    287 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000
                                    288 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000
                                    289 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                    290 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000

                                    291 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                    292 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000
                                    293 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500
                                    294 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000

                                    295 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000
                                    296 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000
                                    297 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000
                                    298 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000
                                    299 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000

PRPU     HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    302 *                                                                       HA234000
                                    303 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000
                                    304 *                                                                       HA238000




                            00000   306 R0       EQU   0                                                        HA242000
                            00001   307 R1       EQU   1                                                        HA244000

                            00002   308 R2       EQU   2                                                        HA246000
                            00003   309 R3       EQU   3                                                        HA248000
                            00004   310 R4       EQU   4                                                        HA250000
                            00005   311 R5       EQU   5                                                        HA252000
                            00006   312 R6       EQU   6                                                        HA254000

                            00007   313 R7       EQU   7                                                        HA256000
                            00008   314 R8       EQU   8                                                        HA258000
                            00009   315 R9       EQU   9                                                        HA260000
                            0000A   316 R10      EQU   10                                                       HA262000
                            0000B   317 R11      EQU   11                                                       HA264000
                            0000C   318 R12      EQU   12                                                       HA266000
                            0000D   319 R13      EQU   13                                                       HA268000
                            0000E   320 R14      EQU   14                                                       HA270000

                            0000F   321 R15      EQU   15                                                       HA272000






                                    323 *                                                                       HA276000
                                    324 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000
                                    325 *                                                                       HA280000




                            00002   327 WA       EQU   R2                  WORK REGISTER A                      HA284000
                            00003   328 WB       EQU   R3                  WORK REGISTER B                      HA286000
                            00004   329 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   330 WD       EQU   R5                  WORK REGISTER D                      HA290000
                            00006   331 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007   332 WF       EQU   R7                  WORK REGISTER F                      HA294000
                            00008   333 WG       EQU   R8                  WORK REGISTER G                      HA296000
                            00008   334 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000
                            0000A   335 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000

                            0000B   336 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000

                            0000C   337 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000
                            0000D   338 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000
                            0000E   339 LINK     EQU   R14                 LINK REGISTER                        HA308000
PRPU     HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












                            00000   342 NOP      EQU   0                   NO-OP                                HA314000
                            00001   343 O        EQU   1                   ONES OR OVERFLOW                     HA316000
                            00002   344 H        EQU   2                   HIGH                                 HA318000
                            00002   345 P        EQU   2                   PLUS                                 HA320000
                            00004   346 L        EQU   4                   LOW                                  HA322000
                            00004   347 M        EQU   4                   MINUS OR MIXED                       HA324000

                            00007   348 NE       EQU   7                   NOT EQUAL                            HA326000

                            00007   349 NZ       EQU   7                   NOT ZERO                             HA328000
                            00008   350 E        EQU   8                   EQUAL                                HA330000
                            00008   351 Z        EQU   8                   ZERO                                 HA332000
                            0000B   352 NL       EQU   11                  NOT LOW                              HA334000

                            0000B   353 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000
                            0000D   354 NH       EQU   13                  NOT HIGH                             HA338000
                            0000D   355 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   356 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
PRPU     HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    358 *                                                                       HA346000
                                    359 *                             BIT DEFINITIONS                           HA348000
                                    360 *                                                                       HA350000



                            00080   362 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000

                            00040   363 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000
                            00020   364 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000
                            00010   365 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000
                            00008   366 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000

                            00004   367 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000
                            00002   368 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000
                            00002   369 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001   370 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000
                                    371 *                                                                       HA370000
                            00080   372 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000
                            00040   373 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020   374 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   375 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000
                            00008   376 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000
                            00004   377 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000
                            00002   378 $EWF15   EQU   X'02'               SPARE                                HA384000

                            00001   379 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000






                                    381 *                                                                       HA390000
                                    382 *                             BYTE DEFINITIONS                          HA392000
                                    383 *                                                                       HA394000



                            00000   385 $EWBPOST EQU   0                   BYTE 0                               HA398000
                            00000   386 $EWBBUF  EQU   0                   BYTE 0                               HA400000
                            00000   387 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   388 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000   389 $EWBUNIT EQU   0                   BYTE 0                               HA406000
                            00000   390 $EWBCKPT EQU   0                   BYTE 0                               HA408000
                            00000   391 $EWBCMB  EQU   0                   BYTE 0                               HA410000
                            00000   392 $EWBSMF  EQU   0                   BYTE 0                               HA411000

                            00000   393 $EWBJOT  EQU   0                   BYTE 0                               HA412000

                                    394 *                                                                       HA414000
                            00001   395 $EWBOPER EQU   1                   BYTE 1                               HA416000

                            00001   396 $EWBIO   EQU   1                   BYTE 1                               HA418000
                            00001   397 $EWBWORK EQU   1                   BYTE 1                               HA420000
                            00001   398 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001   399 $EWBDDB  EQU   1                   BYTE 1                               HA424000
                            00001   400 $EWBOLAY EQU   1                   BYTE 1                               HA426000
                            00001   401 $EWB15   EQU   1                   BYTE 1                               HA428000
                            00001   402 $EWBOROL EQU   1                   BYTE 1                               HA430000
PRPU     HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    405 *                                                                       HA436000

                                    406 *                             LOGICAL CONSOLE DEFINITIONS               HA438000
                                    407 *                                                                       HA440000




                            00001   409 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002   410 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000
                            00004   411 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008   412 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000
                            00010   413 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000
                            00020   414 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000
                            00040   415 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   416 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   417 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000
                            00000   418 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000






                                    420 *                                                                       HA466000
                                    421 *                             MESSAGE CLASS DEFINITIONS                 HA468000

                                    422 *                                                                       HA470000




                            00010   424 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000
                            00030   425 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050   426 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000
                            00070   427 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000
                            00080   428 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000




                                    430 *                                                                       HA484000
                                    431 *                             MESSAGE PRIORITY DEFINITIONS              HA486000
                                    432 *                                                                       HA488000




                            00001   434 $LO      EQU   1                   LOW PRIORITY                         HA492000
                            00004   435 $ST      EQU   4                   STANDARD PRIORITY                    HA494000
                            00007   436 $HI      EQU   7                   HIGH PRIORITY                        HA496000

PRPU     HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    439 *                                                                       HA502000
                                    440 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000
                                    441 *                                                                       HA506000



                            00080   443 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000
                            00000   444 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000
                            00040   445 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000
                            00000   446 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000

                            00020   447 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000
                            00000   448 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000
                            00010   449 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000
                            00000   450 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000

                            00008   451 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000
                            00000   452 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000
                            00004   453 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000   454 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000






                                    456 *                                                                       HA536000
                                    457 *                             HASP STATUS BIT DEFINITIONS               HA538000
                                    458 *                                                                       HA540000



                            00080   460 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040   461 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000
                            00020   462 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000
                            00010   463 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000

                            00008   464 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000
                            00004   465 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000

                            00002   466 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000
PRPU     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    469 *                                                                       HA560000
                                    470 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000
                                    471 *                                                                       HA564000




                                    473 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                    474 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000
                                    475 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000
                                    476 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000

                                    477 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000
                                    478 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000
                                    479 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000

                                    480 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                    481 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000





                                    483 *                                                                       HA588000
                                    484 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000
                                    485 *                                                                       HA592000




                                    487 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                    488 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000
                                    489 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000
                                    490 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000

                                    491 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                    492 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000
                                    493 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                    494 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000

                                    495 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
PRPU     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    498 *                                                                       HA618000

                                    499 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000
                                    500 *                                                                       HA622000



                                    502 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000
                                    503 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000

                                    504 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000
                                    505 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000
                                    506 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000
                                    507 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000
                                    508 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000

                                    509 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                    510 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000





                                    512 *                                                                       HA646000

                                    513 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000
                                    514 *                                                                       HA650000



                                    516 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000
                                    517 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000

                                    518 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000
                                    519 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000
                                    520 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000
                                    521 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000
                                    522 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                    523 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000

                                    524 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
PRPU     HASP CONTROL BLOCKS                                                                                   PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    527 *                                                                       P0044000
                                    528 *                             DOCUMENTATION OPTION                      P0046000
                                    529 *                                                                       P0048000




                                    531 &DOC     SETC  'NO'                TURN OFF DOCUMENTATION               P0052000





                                    533 *                                                                       P0056000
                                    534 *                             GENERATE HASP CONTROL BLOCKS              P0058000
                                    535 *                                                                       P0060000




                                    537         $HASPCB HCT,PCE,BUFFER,DCT,JQE,JCT,PRC,MSA,DCB,DEB,UCB,PPPWORK,CP0064000
                                                       SMF,IOT,JOE,PDDB,OUTWORK,DOC=&DOC                        P0066000
PRPU     HASP COMMUNICATION TABLE DSECT                                                                        PAGE   20



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              539+HCTDSECT DSECT                     HASP COMMUNICATION TABLE DSECT       HC437000


                            00000   541+         USING HCTDSECT,BASE1      ESTABLISH HCT ADDRESSABILITY         HC439000



000000 40E540F44BF0F0F9             543+$VERSION DC    CL8' V 4.009762'         HASP VERSION                    HC441000


                                    545+*                             VS2 - HASP VECTOR TABLE                   HC451050

000008                              547+$HVT     DS    0F                                                       HC451150
000008 00000000                     548+$HVTEXCP DC    V($EXCPSVC)         IOS PSEUDO DEVICE EXIT ADDRESS       HC451200
00000C 00000000                     549+         DC    V(XJCLSCAN)         INTERPRETTER EXIT ADDRESS            HC451250
000010 00000000                     550+         DC    V($MGCRSVC)         MGCR EXIT ADDRESS                    HC451300

000014 00000000                     551+         DC    V($WTOSVC)          WTO(R)/WTL EXIT 1 ADDRESS            HC451350
000018 00000000                     552+         DC    V($WTOSVC2)         WTO(R) EXIT 2 ADDRESS                HC451400

00001C 0000002C                     553+         DC    A($EXITNOP)         JOB INITIATION EXIT ADDRESS          HC451450
000020 0000002C                     554+         DC    A($EXITNOP)         STEP INITIATION EXIT ADDRESS         HC451500
000024 00000000                     555+         DC    V(XTERMSMF)         TERMINATION EXIT ADDRESS             HC451550
000028 00000000                     556+         DC    V($TSOCOMM)         TSO STATUS/CANCEL EXIT ADDRESS       HC451600


00002C 1BFF                         558+$EXITNOP SR    R15,R15             R15 = RC = 0                         HC451750
00002E 07FE                         559+         BR    R14                 RETURN                               HC451800


                                    561+*                             ENTRY TO HASP DISPATCHER                  HC452000

000030 47F0 B030      00030         563+$WAIT    B     *                                                        HN016000


                                    565+*                             ENTRIES TO HASP BUFFER SERVICES           HC456000


000034 47F0 B034      00034         567+$GETBUF  B     *                                                        HN016000

000038 47F0 B038      00038         568+$GETPBUF B     *                                                        HN016000
00003C 47F0 B03C      0003C         569+$FREEBUF B     *                                                        HN016000


                                    571+*                             ENTRIES TO HASP UNIT SERVICES             HC462000


000040 47F0 B040      00040         573+$GETUNIT B     *                                                        HN016000
000044 47F0 B044      00044         574+$FREUNIT B     *                                                        HN016000


                                    576+*                             ENTRIES TO HASP JOB QUEUE SERVICES        HC467000

000048 47F0 B048      00048         578+$QADD    B     *                                                        HN016000
00004C 47F0 B04C      0004C         579+$QGET    B     *                                                        HN016000
000050 47F0 B050      00050         580+$QPUT    B     *                                                        HN016000
000054 47F0 B054      00054         581+$QREM    B     *                                                        HN016000
000058 47F0 B058      00058         582+$QSIZ    B     *                                                        HN016000

00005C 47F0 B05C      0005C         583+$QLOC    B     *                                                        HN016000

000060 47F0 B060      00060         584+$QJITLOC B     *                                                        HN016000
PRPU     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    586+*                             ENTRIES TO DIRECT ACCESS SPACE SERVICES   HC477000


000064 47F0 B064      00064         588+$TRACK   B     *                                                        HN016000
000068 47F0 B068      00068         589+$PURGER  B     *                                                        HN016000


                                    591+*                             ENTRIES TO HASP INPUT/OUTPUT SERVICES     HC482000

00006C 47F0 B06C      0006C         593+$EXCP    B     *                                                        HN016000
000070 47F0 B070      00070         594+$EXTPOPE B     *                                                        HN016000
000074 47F0 B074      00074         595+$EXTPGET B     *                                                        HN016000
000078 47F0 B078      00078         596+$EXTPPUT B     *                                                        HN016000
00007C 47F0 B07C      0007C         597+$EXTPCLO B     *                                                        HN016000

000080 47F0 B080      00080         598+$RESTORE B     *                                                        HN016000


                                    600+*                             ENTRIES TO HASP OVERLAY SERVICES          HC491000


000084 47F0 B084      00084         602+$ODEL    B     *                                                        HN016000
000088 47F0 B088      00088         603+$ORET    B     *                                                        HN016000
00008C 47F0 B08C      0008C         604+$OLINK   B     *                                                        HN016000
000090 47F0 B090      00090         605+$OXCTL   B     *                                                        HN016000
000094 47F0 B094      00094         606+$OLOAD   B     *                                                        HN016000


                                    608+*                             ENTRIES TO HASP CONSOLE SERVICES          HC499000

000098 47F0 B098      00098         610+$WTO     B     *                                                        HN016000
00009C 47F0 B09C      0009C         611+$FREEMSG B     *                                                        HN016000
0000A0 47F0 B0A0      000A0         612+$DOM     B     *                                                        HN016000



                                    614+*                             ENTRIES TO HASP SMF BUFFER SERVICES       HC503200

0000A4 47F0 B0A4      000A4         616+$QUESMFB B     *                                                        HN016000

0000A8 47F0 B0A8      000A8         617+$GETSMFB B     *                                                        HN016000


                                    619+*                             ENTRIES TO HASP INTERVAL TIMER SERVICES   HC504000

0000AC 47F0 B0AC      000AC         621+$STIMER  B     *                                                        HN016000
0000B0 47F0 B0B0      000B0         622+$TTIMER  B     *                                                        HN016000


                                    624+*                             ENTRIES TO HASP ERROR SERVICES            HC509000

0000B4 47F0 B0B4      000B4         626+$IOERROR B     *                                                        HN016000
0000B8 47F0 B0B8      000B8         627+$ERROR   B     *                                                        HN016000
0000BC 47F0 B0BC      000BC         628+$DISTERR B     *                                                        HN016000

PRPU     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0000C0 00                           630+         DC    AL1(0)              RESERVED                             HC515000

0000C1 00                           631+$OPTSTAT DC    AL1(*-*)            HASP INITIALIZATION OPTIONS          HC516000
0000C2 00                           632+$STATUS  DC    AL1(*-*)            HASP SYSTEM STATUS                   HC517000
0000C3 00                           633+$CURPCE  DC    AL1(*-*)            CURRENT PCE ID                       HC518000
0000C4 00                           634+$HASPECF DC    AL1(*-*)            MASTER EVENT CONTROL FIELD           HC519000
0000C5 00                           635+MHASPECF DC    AL1(*-*)            LINE MANAGER EVENT CONTROL FIELD     HC520000
0000C6 00                           636+$XEQACT  DC    AL1(*-*)            COUNT OF JOBS IN O/S EXECUTION       HC521000
0000C7 00                           637+$ACTIVE  DC    AL1(*-*)            COUNT OF ACTIVE FUNCTIONS            HC522000
0000C8 FF                           638+$ENBALL  DC    X'FF'               ENABLE ALL MASK                      HC523000
0000C9 00                           639+$DISALL  DC    X'00'               DISABLE ALL MASK                     HC524000
0000CA FE                           640+$DISINT  DC    X'FE'               DISABLE INTERVAL TIMER MASK          HC525000
0000CB 00                           641+         DC    X'00'               RESERVED                             HC526000
0000CC 0000                         642+$EXCPCT  DC    Y(*-*)              ACTIVE HASP I/O COUNT                HC531000

0000CE 0040                         643+$COMMCT  DC    Y(64)                     ACTIVE HASP COMMAND COUNT      HC532000

0000D0 0000                         644+$CKPTRAK DC    Y(*-*)              HASP CHECKPOINT TRACK ADDRESS        HC533000
0000D2 0000                         645+         DC    Y(0)                RESERVED                             HC534000

0000D4 00000000                     646+$HASPTCB DC    A(*-*)              ADDRESS OF HASP TASK CONTROL BLOCK   HC535000
0000D8 00000000                     647+$HASPECB DC    F'0'                COMMON HASP ECB                      HC535200
0000DC 00000000                     648+$ASYNCQ  DC    A(0)                ASYNC I/O COMPLETION QUEUE           HC535400
0000E0 00000000                     649+$RJECHEQ DC    A(0)                RJE I/O COMPLETION QUEUE             HC535600
                                    650+*                                  ADDRESS OF FIRST HASP PCE            HC536000
0000E4 00000000                     651+$PCEORG  DC    A(*-*)                                                   HN010000
0000E8 00000000                     652+$BUFPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE HASP BUFFER HC538000
0000EC 00000000                     653+$TPBPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE RJE BUFFER  HC539000
0000F0 00000000                     654+$DCTPOOL DC    A(*-*)              ADDRESS OF FIRST HASP DCT            HC540000
0000F4 00000000                     655+$JITABLE DC    A(*-*)              ADDRESS OF HASP JOB INFO TABLE       HC541000
0000F8 00000000                     656+$JOTABLE DC    V($JOT)             ADDRESS OF JOB OUTPUT TABLE          HC541500
0000FC 00000000                     657+$CYLMAP  DC    A(*-*)              ADDRESS OF FIRST CYLINDER MODULE MAP HC542000

000100 00000000                     658+$TEDADDR DC    A(*-*)              ADDRESS OF FIRST EXTENT DATA TABLE   HC543000
000104 00000000                     659+$DCBLIST DC    A(*-*)              ADDRESS OF DIRECT ACCESS DCB         HC544000

000108 00000000                     660+$FREEQUE DC    A(*-*)              ADDR OF 1ST FREE CONSOLE MSG BUFFER  HC545000

00010C 00000000                     661+$BUSYQUE DC    A(*-*)              CONSOLE MSG BUFFERS QUEUED FOR I/O   HC546000
000110 00000000                     662+$LOGQUE  DC    A(*-*)              CMB'S QUEUED FOR LOG PROCESSOR       HC547000
000114 00000000                     663+$COMMQUE DC    A(*-*)              COMMANDS QUEUED FOR COMMAND PROC     HC548000
000118 00000000                     664+$DOMQUE  DC    A(*-*)              CMB'S AWAITING ACTION                HC548200
00011C 00000000                     665+$SMFFREE DC    A(*-*)              ADDR OF 1ST FREE SMF BUFFER          HC548400
000120 00000000                     666+$SMFBUSY DC    A(*-*)              SMF BUFFERS QUEUED FOR I/O           HC548600
000124 00000000                     667+$PRCHKPT DC    A(*-*)              ADDRESS OF PRINT CHECKPOINT TABLE    HC549000
000128 00000002                     668+$TIMEARG DC    F'2'                FAKE SVRB+36 FOR IGC011              HC549500
PRPU     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    670+*                             NUCLEUS ADDRESS TABLE                     HC551000


00012C                              672+$NUCTABL DS    0F                  START OF NUCLEUS ADDRESS TABLE       HC553000
00012C 00000000                     673+$STATENT DC    A(*-*)              ENTRY TO STATUS ROUTINE              HC554000
000130 00000000                     674+$TIMENT  DC    A(*-*)              ENTRY TO TIME ROUTINE                HC555000

000134 00000000                     675+$XSMFENT DC    A(*-*)              ENTRY TO SMF EXCP COUNTING ROUTINE   HC559000
000138 00000000                     676+$SVCRSET DC    A(*-*)              ENTRY TO HASP SVC RESET ROUTINE      HC560000
                            00010   677+$NUCLEN  EQU   *-$NUCTABL          LENGTH OF NUCLEUS ADDRESS TABLE      HC561000


                                    679+*********************************************************************** HC576000
                                    680+*  ALL VARIABLES LOCATED IN THIS AREA WILL BE REGULARLY CHECKPOINTED  * HC577000
                                    681+*  BY HASP AND WILL BE RESTORED ON ANY WARM START.....                * HC578000
                                    682+*                                                                     * HC579000
                                    683+*                                                                     * HC580000
                                    684+*                                                                     * HC581000
00013C                              685+$SAVEBEG DS    0F                  BEGINNING OF SAVE AREA             * HC582000
00013C 00000000                     686+$JOBQPTR DC    A(*-*)              ADDRESS OF HASP JOB QUEUE          * HC583000

000140 00000000                     687+$JQFREE  DC    A(*-*)              BEGINNING OF FREE QUEUE CHAIN      * HC584000
000144 00000000                     688+$JQENT   DC    A(*-*)              BEGINNING OF ACTIVE QUEUE CHAIN    * HC585000
000148 00000000                     689+$DATAKEY DC    F'0'                MASTER PERIPHERAL DATA SET KEY     * HC588000
00014C 0000                         690+$JOBNO   DC    H'0'                HASP JOB NUMBER                    * HC589000

00014E 0000                         691+$MSGRPNO DC    H'0'                LAST CONSOLE MESSAGE TRACK GROUP   * HC590000
000150 0000000000000000             692+$DACKPT  DC    2XL6'0'             DA CHECKPOINT FOR WARM START       * HC591000
                            0015C   693+$SAVEEND EQU   *                   END OF SAVE AREA                   * HC592000
                            00020   694+$SAVELEN EQU   $SAVEEND-$SAVEBEG   LENGTH OF SAVE AREA                * HC593000
                                    695+*                                                                     * HC594000
                                    696+*                                                                     * HC595000

                                    697+*                                                                     * HC596000
                                    698+*********************************************************************** HC597000
                                    699+*                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000

00015C                              701+$NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000
00015C 00000000                     702+$ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000
000160 00000000                     703+$SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000
000164 00000000                     704+$SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000

                            0000C   705+$NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000



                                    707+*                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000

000168 00000000                     709+$IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000
00016C 00000000                     710+$WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000
000170 00000000                     711+$LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000
000174 00000000                     712+$XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000
000178 00000000                     713+$SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000
00017C 00000000                     714+$SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000

000180 00000000                     715+$SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000
000184 00000000                     716+$SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000
000188 00000000                     717+$SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000
00018C                              718+$ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000




PRPU     HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              721+HASPPRPU CSECT ,                   END OF HCT DSECT                RFIT HC998000

PRPU     HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                              724+PCEDSECT DSECT                     PROCESSOR CONTROL ELEMENT DSECT      PC260000



                            00000   726+         USING PCEDSECT,SAVE       ESTABLISH PCE ADDRESSABILITY         PC264000




000000                              728+PCESAVEA DS    F                   RESERVED                             PC268000
000004                              729+PCEPREV  DS    F                   ADDRESS OF PREVIOUS PCE              PC270000
000008                              730+PCENEXT  DS    F                   ADDRESS OF NEXT PCE                  PC272000
00000C                              731+PCELINK  DS    F                   REGISTER 14 (LINK) STORAGE           PC274000

000010                              732+PCER15   DS    F                   REGISTER 15 STORAGE                  PC276000
000014                              733+PCER0    DS    F                   REGISTER 0 STORAGE                   PC278000
000018                              734+PCER1    DS    F                   REGISTER 1 STORAGE                   PC280000
00001C                              735+PCEWA    DS    F                   REGISTER 2 (WA) STORAGE              PC282000

000020                              736+PCEWB    DS    F                   REGISTER 3 (WB) STORAGE              PC284000
000024                              737+PCEWC    DS    F                   REGISTER 4 (WC) STORAGE              PC286000
000028                              738+PCEWD    DS    F                   REGISTER 5 (WD) STORAGE              PC288000
00002C                              739+PCEWE    DS    F                   REGISTER 6 (WE) STORAGE              PC290000
000030                              740+PCEWF    DS    F                   REGISTER 7 (WF) STORAGE              PC292000
000034                              741+PCEWG    DS    0F                  REGISTER 8 (WG) STORAGE              PC294000

000034                              742+PCEBASE3 DS    F                   REGISTER 8 (BASE3) STORAGE           PC296000
000038                              743+PCER9    DS    F                   REGISTER 9 STORAGE                   PC298000
00003C                              744+PCEJCT   DS    F                   REGISTER 10 (JCT) STORAGE            PC300000
000040                              745+PCEBASE1 DS    F                   REGISTER 11 (BASE1) STORAGE          PC302000
000044                              746+PCEBASE2 DS    F                   REGISTER 12 (BASE2) STORAGE          PC304000

000048                              747+PCEEWF   DS    H                   PROCESSOR EVENT WAIT FIELD           PC306000
00004A                              748+PCEID    DS    H                   PROCESSOR TYPE                       PC308000
00004C                              749+         DS    C                   RESERVED                             PC310000
00004D                              750+PCEOPRIO DS    C                   REQUESTED OVERLAY ROUTINE PRIORITY   PC312000
00004E                              751+PCEOCON  DS    H                   REQUESTED OVERLAY ROUTINE OCON       PC314000

000050                              752+PCEORTRN DS    F                   $RETURN PAST $LINK STORAGE           PC316000
000054                              753+PCEOPCE  DS    F                   CHAIN OF PCE'S USING SAME OVERLAY    PC318000
000058                              754+PCEWORK  DS    0D                  VARIABLE LENGTH PROCESSOR WORK AREA  PC320000
000000                              755+HASPPRPU CSECT                     END OF PCE DSECT                     PC322000
PRPU     HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   26



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    757+*                                                                       PC326000
                                    758+*                             PROCESSOR CONTROL ELEMENT IDENTIFICATION  PC328000
                                    759+*                                                                       PC330000






                                    761+*                                                                       PC334000
                                    762+*                             BYTE 1                                    PC336000
                                    763+*                                                                       PC338000



                            00001   765+PCELCLID EQU   X'01'               LOCAL SPECIAL PCE ID                 PC342000

                            00002   766+PCERJEID EQU   X'02'               REMOTE SPECIAL PCE ID                PC344000
                            00004   767+PCEINRID EQU   X'04'               INTERNAL SPECIAL PCE ID              PC346000
                            00080   768+PCEPRSID EQU   X'80'               PRINT SPECIAL PCE ID                 PC348000
                            00040   769+PCEPUSID EQU   X'40'               PUNCH SPECIAL PCE ID                 PC350000






                                    771+*                                                                       PC354000
                                    772+*                             BYTE 2                                    PC356000
                                    773+*                                                                       PC358000




                            00000   775+PCEASYID EQU   0                   ASYNCH PCE ID                        PC362000
                            00001   776+PCERDRID EQU   1                   INPUT PCE ID                         PC364000
                            00002   777+PCESETID EQU   2                   SETUP PCE ID                         PC366000
                            00003   778+PCEXEQID EQU   3                   EXECUTION PCE ID                     PC368000
                            00004   779+PCETHWID EQU   4                   EXECUTION THAW PCE ID                PC370000
                            00005   780+PCEXZMID EQU   5                   EXECUTION TASK MONITOR PCE ID        PC372000

                            00006   781+PCEOUTID EQU   6                   OUTPUT PROCESSOR PCE ID              PC374000
                            00007   782+PCEPRTID EQU   7                   PRINT PCE ID                         PC376000
                            00008   783+PCEPUNID EQU   8                   PUNCH PCE ID                         PC378000

                            00009   784+PCEPRGID EQU   9                   PURGE PCE ID                         PC380000
                            0000A   785+PCECONID EQU   10                  CONSOLE PCE ID                       PC382000
                            0000B   786+PCEMLMID EQU   11                  LINE MANAGER PCE ID                  PC384000
                            0000C   787+PCETIMID EQU   12                  TIMER PCE ID                         PC386000
                            0000D   788+PCECKPID EQU   13                  CHECKPOINT PCE ID                    PC388000

                            0000E   789+PCEGPRID EQU   14                  PRIORITY AGING PCE ID                PC390000
PRPU     HASP BUFFER DSECT                                                                                     PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              791+BUFDSECT DSECT                     BUFFER DSECT                         BU444000
000000                              792+IOBFLAG1 DS    C                   I/O FLAGS                            BU446000
000001                              793+IOBFLAG2 DS    C                   I/O FLAGS                            BU448000
000002                              794+IOBSENS0 DS    C                   FIRST SENSE BYTE                     BU450000
000003                              795+IOBSENS1 DS    C                   SECOND SENSE BYTE                    BU452000

000004                              796+IOBECBCC DS    0C                  I/O COMPLETION CODE                  BU454000
000004                              797+IOBECBPT DS    F                   ADDRESS OF HASP EVENT CONTROL BLOCK  BU456000

000008                              798+IOBFLAG3 DS    C                   I/O FLAGS                            BU458000
000009                              799+IOBCSW   DS    CL7                 CHANNEL STATUS WORD                  BU460000
000010                              800+IOBSIOCC DS    0C                  SIO CONDITION CODE                   BU462000
000010                              801+IOBSTART DS    F                   ADDRESS OF CHANNEL PROGRAM           BU464000
000014                              802+IOBDCBPT DS    F                   ADDRESS OF DATA CONTROL BLOCK        BU466000

000018                              803+IOBREPM  DS    0C                  REPOSITION MODIFIER                  BU468000
000018                              804+IOBRESTR DS    F                   RESTART ADDRESS OF CHANNEL PROGRAM   BU470000
00001C                              805+TPBMXREC DS    0C                  MAXIMUM RJE OUTPUT RECORD COUNT      BU472000
00001C                              806+IOBINCAM DS    H                   BLOCK COUNT INCREMENT                BU474000
00001E                              807+IOBERRCT DS    H                   ERROR COUNT                          BU476000
000020                              808+TPBLCCC  DS    0C                  LAST REMOTE OUTPUT COMMAND OP.       BU478000
000020                              809+TPBLCCAD DS    0F                  ADDR OF LAST REMOTE CARRIAGE CONTROL BU480000
000020                              810+IOBXTENT DS    C                   DEB EXTENT                           BU482000
000021                              811+IOBSEEK  DS    0CL7,3C             DIRECT ACCESS SEEK ADDRESS           BU484000

000024                              812+TPBRECNT DS    0C                  CURRENT REMOTE OUTPUT RECORD COUNT   BU486000

000024                              813+TPBFDATA DS    F                   REMOTE DATA POINTER                  BU488000
000028                              814+BUFECBCC DS    0C                  I/O COMPLETION CODE                  BU490000
000028                              815+BUFCHAIN DS    F                   BUFFER CHAIN FIELD                   BU492000
00002C                              816+BUFTYPE  DS    0C                  BUFFER TYPE                          BU494000
00002C                              817+BUFDCT   DS    F                   ADDRESS OF DEVICE CONTROL TABLE      BU496000

000030                              818+BUFEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     BU498000
000034                              819+OACECHN  DS    0F                  OVERLAY AREA CHAIN WORD              BU500000
000034                              820+BUFDDB   DS    0F                  DDB ADDRESS                          BU501000
000034                              821+LCBMCB   DS    C                   REMOTE MODE BYTE                     BU502000
000035                              822+LCBACK   DS    C                   REMOTE NEXT ACKNOWLEDGEMENT          BU504000
000036                              823+LCBRCB   DS    H                   REMOTE RESPONSE CONTROL BLOCK        BU506000
000038                              824+IOBCCW1  DS    D                   CHANNEL COMMAND WORD 1               BU508000
000040                              825+IOBCCW2  DS    D                   CHANNEL COMMAND WORD 2               BU510000
000048                              826+IOBCCW3  DS    0D,5C               CHANNEL COMMAND WORD 3               BU511000
00004D                              827+OACEPRIO DS    C                   PRIO OF OLAY ROUTINE IN THIS AREA    BU512000

00004E                              828+OACEOCON DS    H                   OVERLAY CALL CONSTANT                BU514000

000050                              829+IOBCCW4  DS    D                   CHANNEL COMMAND WORD 4               BU516000
000058                              830+BUFSTART DS    0D                  START OF BUFFER WORK SPACE           BU518000
000058                              831+OACENAME DS    0F                  NAME OF OVERLAY ROUTINE              BU520000
000058                              832+HDBNXTRK DS    F                   HASP DATA BLOCK CHAIN TRACK          BU522000

00005C                              833+OACEASMO DS    0F                  ASSEMBLY ORIGIN OF OVERLAY ROUTINE   BU524000
00005C                              834+HDBDSKEY DS    F                   HASP DATA BLOCK DATA SET KEY         BU526000
000060                              835+OACEPROG DS    0F                  ENTRY POINT OF OVERLAY ROUTINE       BU528000
000060                              836+HDBSTART DS    F                   HASP DATA BLOCK START                BU529000
000064                      00058   837+         ORG   BUFSTART                                                 BU530000
000058                              838+IOBCCW5  DS    D                   CHANNEL COMMAND WORD 5               BU534000
000060                              839+IOBCCW6  DS    D                   CHANNEL COMMAND WORD 6               BU536000
000068                              840+IOBCCW7  DS    D                   CHANNEL COMMAND WORD 7               BU538000
000070                              841+IOBCCW8  DS    D                   CHANNEL COMMAND WORD 8               BU540000
000078                              842+TPBUFST  DS    0F                  START OF REMOTE BUFFER WORK SPACE    BU542000
000078                      00558   843+         ORG   BUFSTART+1280           SPACE OVER OVERLAY AREA          BU544000

000558                              844+OACEPCE  DS    F                   CHAIN OF PCE'S USING OVERLAY AREA    BU546000
000000                              845+HASPPRPU CSECT                     END OF BUFFER DSECT                  BU548000
PRPU     HASP BUFFER STATUS BIT DEFINITIONS                                                                    PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    848+*                             BUFFER TYPE BIT DEFINITIONS               BU554000



                            00080   850+TPBUF    EQU   X'80'               REMOTE BUFFER TYPE                   BU558000
                            00040   851+OLAYBUF  EQU   X'40'               OVERLAY AREA TYPE                    BU560000
                            00000   852+HASPBUF  EQU   X'00'               HASP BUFFER TYPE                     BU562000
PRPU     HASP DEVICE CONTROL TABLE DSECT                                                                       PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





000000                              855+DCTDSECT DSECT                     DEVICE CONTROL TABLE DSECT           DC308000
000000                              856+DCTSTAT  DS    0C                  DCT STATUS                           DC310000
000000                              857+DCTPCE   DS    F                   ADDRESS OF PROCESSOR CONTROL ELEMENT DC312000
000004                              858+DCTBUFAD DS    F                   CURRENT BUFFER ADDRESS               DC314000

000008                              859+DCTPSTAT DS    0C                  REMOTE JOB ENTRY FLAGS               DC316000
000008                              860+DCTDCB   DS    0F                  ADDRESS OF DATA CONTROL BLOCK        DC318000
000008                              861+DCTSEEK  DS    F                   CURRENT TRACK ADDRESS                DC320000
00000C                              862+MDCTOPCT DS    0C                  COUNT OF OPEN RJE PROCESSORS         DC322000
00000C                              863+MDCTOBUF DS    0F                  RJE OUTPUT BUFFER CHAIN              DC324000
00000C                              864+DCTEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     DC326000
000010                              865+DCTBUFCT DS    C                   ACTIVE BUFFER COUNT                  DC328000
000011                              866+MDCTATTN DS    0C                  RJE LINE ACTION PENDING FLAGS        DC330000
000011                              867+DCTNO    DS    C                   DCT NUMBER                           DC332000
000012                              868+DCTDEVTP DS    C                   DEVICE TYPE                          DC334000
000013                              869+DCTIOTYP DS    0C                  I/O REQUEST TYPE                     DC336000
000013                              870+DCTPCODE DS    C                   LINE/REMOTE CODE                     DC338000

000014                              871+DCTFLAGS DS    0C                  OPERATOR COMMAND FLAGS               DC340000
000014                              872+DCTCHAIN DS    F                   ADDRESS OF NEXT DCT                  DC342000
000018                              873+DCTDEVN  DS    0CL8,CL4            EBCDIC DEVICE NAME                   DC344000

00001C                              874+DCTOTC   DS    H                   OVERLAY DEVICE TRACKS/CYLINDER       DC346000
00001E                              875+DCTOTT   DS    H                   OVERLAY EXTENT BEGINNING TT          DC348000
000020                              876+MDCTCODE DS    0F                  ADDRESS OF RJE CODE TABLE            DC350000
000020                              877+DCTFORMS DS    0F                  PRINT/PUNCH FORMS ID                 DC352000
000020                              878+DCTPRINT DS    C                   DEFAULT PRINT ROUTING                DC354000
000021                              879+DCTPUNCH DS    C                   DEFAULT PUNCH ROUTING                DC356000
000022                              880+DCTPRINC DS    C                   PRIORITY INCREMENT                   DC358000
000023                              881+DCTPRLIM DS    C                   PRIORITY LIMIT                       DC360000
000024                              882+DCTFCB   DS    F                   PRINT FCB ID                         DC360300
000028                              883+DCTUCS   DS    F                   PRINT UCS ID                         DC360600
00002C                              884+DCTPPSW  DS    X                   PRINT/PUNCH SWITCHES                 DC360900
00002D                              885+DCTCLASS DS    CL8                 PRINT/PUNCH CLASS MASK               DC361200

000035                              886+         DS    C                   CLASS MASK TERMINATOR                DC361500

000038                              887+DCTWORK  DS    0F                  START OF DEVICE WORK AREA            DC362000
000038                              888+RIDUCB   DS    0F                  INTERNAL READER UCB ADDRESS          DC364000

000038                              889+MDCTFCS  DS    H                   REMOTE TERMINAL FUNCTION CONTROL SEQ DC366000
00003A                              890+MDCTERCT DS    0C                  REMOTE TERMINAL ERROR COUNT          DC368000
00003A                              891+DCTPRLEN DS    C                   REMOTE TERMINAL DATA WIDTH           DC370000
00003B                              892+DCTPLINE DS    C                   REMOTE TERMINAL LINE CHARACTERISTICS DC372000
00003C                              893+MDCTRCB  DS    0C                  REMOTE TERMINAL RECORD CONTROL BYTE  DC374000
00003C                              894+MDCTDCT  DS    0F                  REMOTE TERMINAL DCT CHAIN FIELD      DC376000
00003C                              895+RIDFLAGS DS    H                   INTERNAL READER SYNCH FLAGS          DC378000
00003E                              896+RIDTJID  DS    H                   RESERVED                             DC380000
000040                              897+RIDECB   DS    0F                  INTERNAL READER ECB ADDRESS          DC382000
000040                              898+MDCTRSEQ DS    C                   REMOTE TERMINAL TRANSMIT SEQUENCE    DC384000
000041                              899+MDCTTSEQ DS    C,H                 REMOTE TERMINAL RECEIVE SEQUENCE     DC386000
000044                              900+MDCTPSWD DS    0CL8                REMOTE TERMINAL PASSWORD             DC388000

000044                              901+RIDTCB   DS    F                   INTERNAL READER TCB ADDRESS          DC390000
000048                              902+RIDDATA  DS    CL80                INTERNAL READER DATA AREA            DC394000

                            00098   903+DCTEND   EQU   *                   SYMBOL FOR END OF DCT                DC395000

000000                              904+HASPPRPU CSECT                     END OF DEVICE CONTROL TABLE DSECT    DC396000
PRPU     HASP DCT STATUS BIT DEFINITIONS                                                                       PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    907+*                             DCTSTAT                                   DC402000



                            00080   909+DCTINUSE EQU   X'80'               DCT IS IN USE                        DC406000
                            00040   910+DCTDRAIN EQU   X'40'               DCT IS DRAINED                       DC408000
                            00020   911+DCTHOLD  EQU   X'20'               DCT IS HELD                          DC410000
                            00010   912+DCTEJECT EQU   X'10'               DEVICE IS AT CHNL 1 POSITION         DC411000






                                    914+*                             DCTPSTAT                                  DC414000




                            00080   916+DCTLOGAL EQU   X'80'               LOG EVERY CHANNEL END                DC418000
                            00040   917+DCTLEASE EQU   X'40'               LEASED LINE                          DC420000
                            00020   918+DCTETX   EQU   X'20'               AN ETX HAS BEEN RECEIVED             DC422000
                            00010   919+DCTSOFF  EQU   X'10'               A /*SIGNOFF CARD HAS BEEN RECEIVED   DC424000
                            00010   920+DCTEOF   EQU   X'10'               AN EOF HAS BEEN DETECTED             DC425000
                            00008   921+DCTSINON EQU   X'08'               REMOTE DCT IS ATTACHED TO LINE DCT   DC426000
                            00004   922+DCTPOST  EQU   X'04'               I/O COMPLETE FLAG                    DC428000
                            00002   923+DCTABORT EQU   X'02'               TRANSMISSION WAS ABORTED             DC430000
                            00001   924+DCTPBUF  EQU   X'01'               REMOTE OUTPUT BUFFER INDICATION      DC432000





                                    926+*                             DCTDEVTP                                  DC436000




                            00000   928+DCTDA    EQU   X'00'               DIRECT ACCESS DEVICE                 DC440000
                            00001   929+DCTOLAY  EQU   X'01'               OVERLAY DEVICE                       DC442000
                            00002   930+DCTLNE   EQU   X'02'               REMOTE JOB ENTRY LINE                DC444000

                            00010   931+DCTRDR   EQU   X'10'               LOCAL CARD READER                    DC446000
                            00012   932+DCTRJR   EQU   X'12'               REMOTE CARD READER                   DC450000
                            00014   933+DCTINR   EQU   X'14'               INTERNAL READER                      DC452000
                            00020   934+DCTPRT   EQU   X'20'               LOCAL PRINTER                        DC454000
                            00022   935+DCTRPR   EQU   X'22'               REMOTE PRINTER                       DC456000
                            00030   936+DCTPUN   EQU   X'30'               LOCAL PUNCH                          DC458000

                            00032   937+DCTRPU   EQU   X'32'               REMOTE PUNCH                         DC460000
                            00042   938+DCTRCON  EQU   X'42'               REMOTE CONSOLE                       DC464000
PRPU     HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    941+*                             DCTIOTYP                                  DC470000




                            00080   943+DCTREAD  EQU   X'80'               READ REQUEST                         DC474000
                            00040   944+DCTWRITE EQU   X'40'               WRITE REQUEST                        DC476000

                            00008   945+DCTREJRM EQU   X'08'               REMOTE RESTRICTION ALWAYS 0          DC482000
                            00004   946+DCTREJJB EQU   X'04'               RESTRICTED FROM JOB COMMANDS         DC484000
                            00002   947+DCTREJDV EQU   X'02'               RESTRICTED FROM DEVICE COMMANDS      DC486000
                            00001   948+DCTREJSY EQU   X'01'               RESTRICTED FROM SYSTEM COMMANDS      DC488000





                                    950+*                             DCTPCODE                                  DC492000




                            00000   952+DCTPHALF EQU   X'00'               HALF-DUPLEX LINE                     DC496000
                            00001   953+DCTPFULL EQU   X'01'               FULL-DUPLEX LINE                     DC498000
                            00002   954+DCTPWIDE EQU   X'02'               WIDE-BAND LINE                       DC500000
                            00020   955+DCTPPRES EQU   X'20'               HARDWARE COMPRESS FEATURE            DC501000
                            00010   956+DCTPCON  EQU   X'10'               REMOTE TERMINAL CONSOLE              DC502000

                            00010   957+DCTPMRF  EQU   X'10'               MULTIPLE-RECORD FEATURE              DC504000
                            00008   958+DCTPTAB  EQU   X'08'               HORIZONTAL FORMAT CONTROL            DC506000
                            00004   959+DCTPROG  EQU   X'04'               PROGRAMMABLE INTERFACE               DC508000

                            00002   960+DCTPVAR  EQU   X'02'               VARIABLE LENGTH RECORDS              DC510000
                            00001   961+DCTPBLK  EQU   X'01'               BLOCKED RECORDS                      DC512000





                                    963+*                             DCTPLINE                                  DC516000



                            00000   965+DCTP2770 EQU   X'00'               1009, 2770, 3780                     DC520000

                            00001   966+DCTPHARD EQU   X'01'               1978, 2780                           DC522000
                            00002   967+DCTP20   EQU   X'02'               360/20 SUB-MODEL 5 OR 6              DC524000
                            00004   968+DCTP360  EQU   X'04'               360/22, 25, 30, 40, ETC.             DC526000
                            00006   969+DCTP20S2 EQU   X'06'               360/20 SUB-MODEL 2 OR 4              DC528000
                            00008   970+DCTP1130 EQU   X'08'               1130                                 DC530000

                            0000A   971+DCTPSYS3 EQU   X'0A'               SYSTEM/3                             DC532000
                            0000E   972+DCTPCPU  EQU   X'0E'               CPU TERMINAL                         DC534000
                            00010   973+DCTPHASP EQU   X'10'               HASP                                 DC536000
                            00020   974+DCTPASCI EQU   X'20'               USASCII CODE                         DC538000

                            00040   975+DCTPTRSP EQU   X'40'               TRANSPARENCY                         DC540000
                            00080   976+DCTPBSC  EQU   X'80'               BINARY SYNCHRONOUS LINE              DC542000
PRPU     HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    979+*                             DCTFLAGS                                  DC548000



                            00080   981+DCTSTOP  EQU   X'80'               $Z ($STOP) COMMAND                   DC552000
                            00040   982+DCTDELET EQU   X'40'               $C ($DELETE) COMMAND                 DC554000
                            00020   983+DCTRSTRT EQU   X'20'               $E ($RESTART) COMMAND                DC556000

                            00010   984+DCTRPT   EQU   X'10'               $N ($REPEAT) COMMAND                 DC558000
                            00008   985+DCTBKSP  EQU   X'08'               $B ($BACKSPACE) COMMAND              DC560000
                            00004   986+DCTHOLDJ EQU   X'04'               $T...,H COMMAND                      DC562000
                            00004   987+DCTSPACE EQU   X'04'               $T...,C=1 COMMAND                    DC564000






                                    989+*                                  DCTPPSW                              DC568000



                            00080   991+DCTPPSWC EQU   X'80'               FCB CARRAGE ALTERED                  DC571000
                            00040   992+DCTPPSWF EQU   X'40'               FORMS CONTROLLED BY OPERATOR         DC572000

                            00020   993+DCTPPSWQ EQU   X'20'               QUEUE CLASSES ARE ALTERED            DC573000
                            00010   994+DCTPPSWS EQU   X'10'               SUPPRESS SEPARATOR PAGES             DC574000
                            00008   995+DCTPPSWT EQU   X'08'               UCS TRAIN ALTERED                    DC575000
                            00004   996+DCTPPSWU EQU   X'04'               UCS NOT STANDARD                     DC575500
                            00002   997+DCTPPSWI EQU   X'02'               DEVICE IDLE MESSAGE ISSUED           DC576000

                            00001   998+DCTPPSWO EQU   X'01'               OPERATOR ACTION ALLOWED              DC577000





                                   1000+*                             RIDFLAGS                                  DC580000



                            00080  1002+RIDPOST  EQU   X'80'               USER WAITING FOR POST                DC584000

                            00040  1003+RIDBUSY  EQU   X'40'               I/O SIMULATION IN PROCESS            DC585000
PRPU     HASP JOB QUEUE ENTRY FIELD DEFINITIONS                                                                PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1005+*                             HASP JOB QUEUE ENTRY DISPLACEMENTS        JQ056000



                            00000  1007+QUEPRIO  EQU   0                   JOB PRIORITY                         JQ060000
                            00001  1008+QUETYPE  EQU   1                   LOGICAL QUEUE TYPE                   JQ062000
                            00002  1009+QUEJOBNO EQU   2                   HASP JOB NUMBER                      JQ064000
                            00004  1010+QUEFLAGS EQU   4                   JOB QUEUE FLAGS                      JQ066000

                            00004  1011+QUECHAIN EQU   4                   ADDRESS OF NEXT JOB QUEUE ELEMENT    JQ068000
                            00008  1012+QUETRAK  EQU   8                   TRACK ADDRESS OF JOB CONTROL TABLE   JQ070000
                            0000C  1013+QUEPRTRT EQU   12                  PRINT ROUTE                          JQ072000
                            0000D  1014+QUEPUNRT EQU   13                  PUNCH ROUTE                          JQ074000
                            0000E  1015+QUEJOECT EQU   14                  JOB OUTPUT ELEMENT COUNT             JQ076000









                                   1017+*                             HASP JOB QUEUE ENTRY BIT DEFINITIONS      JQ084000





                                   1019+*                             QUETYPE                                   JQ088000


                            00080  1021+QENTBY   EQU   X'80'               QUEUE ENTRY BUSY BIT                 JQ092000
                            00040  1022+$XEQ     EQU   X'40'               OS EXECUTION QUEUE                   JQ094000

                            00020  1023+$INPUT   EQU   X'20'               INPUT QUEUE                          JQ096000
                            00010  1024+$SETUP   EQU   X'10'               SETUP QUEUE                          JQ098000
                            00008  1025+$BRKDOWN EQU   X'08'               BREAKDOWN QUEUE                      JQ100000
                            00004  1026+$OUTPUT  EQU   X'04'               OUTPUT QUEUE                         JQ102000
                            00002  1027+$HARDCPY EQU   X'02'               OUTPUT IN-PROGRESS QUEUE             JQ104000
                            00001  1028+$PLOT    EQU   X'01'               PLOT QUEUE                           JQ106000
                            00000  1029+$PURGE   EQU   X'00'               PURGE QUEUE                          JQ108000





                                   1031+*                             QUEFLAGS                                  JQ112000



                            00080  1033+QUEHOLDA EQU   X'80'               HOLD ALL JOBS                        JQ116000
                            00040  1034+QUEHOLD1 EQU   X'40'               HOLD SINGLE JOB                      JQ118000
                            00020  1035+QUEHOLD2 EQU   X'20'               HOLD FOR DUPLICATE JOB NAME          JQ120000
                            00010  1036+QUEPURGE EQU   X'10'               JOB IS TO BE PURGED                  JQ122000

                            00008  1037+QUEOPCAN EQU   X'08'               OPERATOR ISSUED $C OR $P JOB         JQ124000
                            00004  1038+QUEOPRTE EQU   X'04'               OPERATOR HAS ISSUED $R ALL           JQ125000
                            00002  1039+QUEJCTSW EQU   X'02'               JCT INTERLOCK FOR UPDATE             JQ125100
PRPU     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                             1041+JCTDSECT DSECT                     JOB CONTROL TABLE DSECT              JC650000
                            00000  1042+         USING JCTDSECT,JCT        ESTABLISH JCT ADDRESSABILITY         JC652000
000000                             1043+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      JC654000
000058                             1044+JCTJQE   DS    F                   OFFSET OF HASP JOB QUEUE ELEMENT     JC656000

00005C                             1045+JCTIOTTR DS    F                   TRACK ADDRESS OF FIRST IOT           JC658000

000060                             1046+JCTDSKEY DS    F                   PERIPHERAL DATA SET KEY              JC660000
000064                             1047+JCTINJCT DS    F                   TRACK ADDRESS OF INPUT JCT           JC662000
000068                             1048+         DS    X                   RESERVED                             JC664000
000069                             1049+JCTSMFLG DS    BL1                 SMF FLAGS                            JC666000
00006A                             1050+JCTPURGE DS    X                   START OF SMF PURGE RECORD            JC668000

00006B                             1051+JCTJBOPT DS    BL1                 HASP JOB OPTIONS                     JC670000
00006C                             1052+JCTJOBEB DS    CL4                 HASP ASSIGNED JOB NUMBER (EBCDIC)    JC672000
000070                             1053+JCTJNAME DS    CL8                 JOB NAME FROM JOB CARD               JC674000
000078                             1054+JCTPNAME DS    CL20                PROGRAMMER'S NAME FROM JOB CARD      JC676000
00008C                             1055+JCTMCLAS DS    C                   MSGCLASS FROM JOB CARD               JC678000
00008D                             1056+JCTJCLAS DS    C                   JOB CLASS FROM JOB CARD              JC680000
00008E                             1057+         DS    X                   RESERVED                             JC682000
00008F                             1058+JCTPRIO  DS    X                   HASP EXECUTION SELECTION PRIORITY    JC684000
000090                             1059+         DS    X                   RESERVED                             JC686000
000091                             1060+JCTOPRIO DS    X                   HASP OUTPUT SELECTION PRIORITY       JC688000
000092                             1061+JCTROUTE DS    XL2                 INPUT ROUTE CODE                     JC690000
000094                             1062+JCTINDEV DS    CL8                 HASP INPUT DEVICE NAME               JC692000

00009C                             1063+JCTACCTN DS    CL4                 JOB ACCOUNTING NUMBER FROM JOB CARD  JC694000
0000A0                             1064+JCTROOMN DS    CL4                 PROGRAMMER'S ROOM NUMBER             JC696000
0000A4                             1065+JCTETIME DS    F                   ESTIMATED EXECUTION TIME             JC698000

0000A8                             1066+JCTESTLN DS    F                   ESTIMATED OUTPUT LINES               JC700000
0000AC                             1067+JCTESTPU DS    F                   ESTIMATED PUNCHED OUTPUT             JC702000
0000B0                             1068+JCTFORMS DS    CL4                 JOB OUTPUT FORMS                     JC704000
0000B4                             1069+         DS    X                   RESERVED                             JC706000
0000B5                             1070+JCTCPYCT DS    X                   JOB PRINT COPY COUNT                 JC708000
0000B6                             1071+         DS    X                   RESERVED                             JC710000
0000B7                             1072+JCTLINCT DS    X                   LINES PER PAGE                       JC712000
0000B8                             1073+JCTPROUT DS    XL2                 JOB PRINT ROUTE CODE                 JC714000
0000BA                             1074+JCTPUOUT DS    XL2                 JOB PUNCH ROUTE CODE                 JC716000
0000BC                             1075+JCTXEQON DS    F                   TIME ON EXECUTION PROCESSOR          JC718000

0000C0                             1076+JCTXDTON DS    F                   DATE ON EXECUTION PROCESSOR          JC720000

0000C4                             1077+JCTXEQOF DS    F                   TIME OFF EXECUTION PROCESSOR         JC722000
0000C8                             1078+JCTXDTOF DS    F                   DATE OFF EXECUTION PROCESSOR         JC724000
0000CC                             1079+JCTOUTON DS    F                   TIME ON OUTPUT PROCESSOR             JC726000
0000D0                             1080+JCTODTON DS    F                   DATE ON OUTPUT PROCESSOR             JC728000

0000D4                             1081+JCTOUTOF DS    F                   TIME OFF OUTPUT PROCESSOR            JC730000
0000D8                             1082+JCTODTOF DS    F                   DATE OFF OUTPUT PROCESSOR            JC732000
0000DC                             1083+JCTCARDS DS    F                   TOTAL NUMBER OF INPUT CARDS          JC734000
0000E0                             1084+JCTLINES DS    F                   GENERATED OUTPUT LINES               JC736000
0000E4                             1085+JCTPUNCH DS    F                   GENERATED PUNCHED OUTPUT             JC738000
0000E8                             1086+         DS    F                   RESERVED                             JC740000
0000EC                             1087+JCTPRTCT DS    F                   CURRENT NUMBER OF LINES PRINTED      JC742000
0000F0                             1088+JCTPAGCT DS    F                   CURRENT NUMBER OF PAGES PRINTED      JC744000
0000F4                             1089+JCTPUNCT DS    F                   CURRENT NUMBER OF CARDS PUNCHED      JC746000
0000F8                             1090+JCTESOUT DS    F                   ESTIMATED OUTPUT (LINES+CARDS)       JC748000
0000FC                             1091+JCTXOUT  DS    F                   GENERATED OUTPUT RECORDS             JC750000

000100                             1092+         DS    F                   RESERVED                             JC752000
000104                             1093+JCTCYSAV DS    XL100               INPUT ALLOCATION BIT MAP             JC754000
000168                             1094+JCTWORK  DS    XL144               144-BYTE WORK AREA                   JC756000
0001F8                             1095+         DS    0F                                                       JC758000

PRPU     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0001F8                             1096+JCTJMR   DS    XL56                JMR AREA                             JC760000
000230                      001F8  1097+         ORG   JCTJMR                                                   JC762000
0001F8                             1098+JCTJMRJN DS    CL8                 JMR JOB NAME                         JC764000
000200                             1099+JCTRDRON DS    F                   TIME ON INPUT PROCESSOR              JC766000
000204                             1100+JCTRDTON DS    F                   DATE ON INPUT PROCESSOR              JC768000
000208                             1101+JCTCPUID DS    XL4                 JMR CPU IDENTIFICATION               JC770000
00020C                             1102+JCTUSEID DS    CL8                 JMR USER IDENTIFICATION              JC772000
000214                             1103+JCTSTEP  DS    X                   CURRENT STEP NUMBER                  JC774000
000215                             1104+JCTINDC  DS    BL1                 JMR SMF OPTIONS                      JC776000
000216                             1105+         DS    XL2                 RESERVED                             JC778000

000218                             1106+JCTUCOM  DS    F                   JMR USER COMMUNICATION AREA          JC780000
00021C                             1107+JCTUJVP  DS    F                   JMR ADDRESS OF USER EXIT ROUTINE     JC782000
000220                             1108+JCTRDROF DS    F                   TIME OFF INPUT PROCESSOR             JC784000

000224                             1109+JCTRDTOF DS    F                   DATE OFF INPUT PROCESSOR             JC786000
000228                             1110+JCTJOBIN DS    F                   JMR JOB SYSIN COUNT                  JC788000
00022C                             1111+JCTRDR   DS    XL2                 READER DEVICE TYPE AND CLASS         JC790000
00022E                             1112+JCTJMOPT DS    BL1                 JMR SMF OPTIONS                      JC792000
00022F                             1113+         DS    X                   RESERVED                             JC794000
000230                      00230  1114+         ORG                                                            JC796000
                            00230  1115+JCTEND   EQU   *                   END OF JOB CONTROL TABLE             JC798000





                                   1117+*                             JCTSMFLG                                  JC802000



                            00080  1119+JCTSMFL0 EQU   B'10000000'         RESERVED                             JC806000

                            00040  1120+JCTSMFL1 EQU   B'01000000'         RESERVED                             JC808000

                            00020  1121+JCTSMFL2 EQU   B'00100000'         RESERVED                             JC810000
                            00010  1122+JCTSMFL3 EQU   B'00010000'         RESERVED                             JC812000

                            00008  1123+JCTSMFL4 EQU   B'00001000'         RESERVED                             JC814000
                            00004  1124+JCTSMFL5 EQU   B'00000100'         RESERVED                             JC816000
                            00002  1125+JCTSMFL6 EQU   B'00000010'         RESERVED                             JC818000
                            00001  1126+JCTSMFL7 EQU   B'00000001'         RESERVED                             JC820000





                                   1128+*                             JCTJBOPT                                  JC824000



                            00080  1130+JCTPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              JC828000
                            00040  1131+JCTSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              JC830000
                            00020  1132+JCTTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           JC832000
                            00010  1133+JCTNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    JC834000

                            00008  1134+JCTXBACH EQU   B'00001000'         EXECUTION BATCHING JOB               JC836000
                            00004  1135+JCTJBOP5 EQU   B'00000100'         RESERVED                             JC838000

                            00002  1136+JCTJBOP6 EQU   B'00000010'         RESERVED                             JC840000

                            00001  1137+JCTJBOP7 EQU   B'00000001'         RESERVED                             JC842000
PRPU     HASP JOB CONTROL TABLE DSECT                                                                          PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                   1140+*                             JCTJMOPT                                  JC848000



                            00020  1142+JCTJMRUX EQU   B'00100000'         IF ON, TAKE USER EXITS FOR SMF       JC852000





                                   1144+*                                                                       JC856000
                                   1145+*        IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT      JC858000

                                   1146+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  JC860000
                                   1147+*        THE JCT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    JC862000
                                   1148+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    JC864000

                                   1149+*                                                                       JC866000
                            005D0  1150+$JCTTEST EQU   1960-JCTEND+JCTJQE                                       JC868000
000230 05D0                        1151+         DC    Y($JCTTEST)         TEST INSTRUCTION                     JC870000
000000                             1152+HASPPRPU CSECT                     END OF JOB CONTROL TABLE DSECT       JC872000
PRPU     HASP PRINT CHECKPOINT ELEMENT FIELD DEFINITIONS                                                       PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                   1155+*                        PRINT CHECKPOINT ELEMENT ENTRY DISPLACEMENTS   PR088000



                            00000  1157+PRCJOBNO EQU   0                   CKPT - H - JOB NUMBER                PR092000
                            00002  1158+PRCKJOE  EQU   2                   CKPT - H - CKPT JOE DISPL            PR094000

                            00004  1159+PRCFLAGS EQU   4                   CKPT - C - FLAGS                     PR096000
                            00005  1160+PRCCPYCT EQU   5                   CKPT - C - CURRENT COPY COUNT        PR098000
                            00006  1161+PRCEJRCB EQU   6                   CKPT - H - EJECT RCB DISPL           PR100000
                            00008  1162+PRCPDDBD EQU   8                   CKPT - H - PDDB DISPLACEMENT         PR102000

                            0000A  1163+PRCPDDBP EQU   10                  CKPT - H - PDDB PAGE COUNT           PR104000
                            0000C  1164+PRCLINCT EQU   12                  CKPT - F - TOTAL LINT COUNT          PR106000
                            00010  1165+PRCPAGCT EQU   16                  CKPT - F - TOTAL PAGE COUNT          PR108000
                            00014  1166+PRCEMTTR EQU   20                  CKPT - F - MTTR OF LAST EJECT        PR110000
                            00018  1167+PRCIOTTR EQU   24                  CKPT - F - MTTR OF CURRENT IOT       PR112000
                            0001C  1168+PRCSIZE  EQU   28,28               LENGTH OF A PRC ELEMENT              PR114000






                                   1170+*                   PRINT CHECKPOINT ELEMENT FLAG DEFINITIONS           PR118000



                            00080  1172+PRCHKUSE EQU   X'80'               CHECKPOINT ENTRY IS IN USE           PR122000
                            00040  1173+PRCHKJOB EQU   X'40'               JOB ACTIVE INDICATOR                 PR124000
PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   1175+*,***  IHB069  DEVD NOT SPECIFIED-ALL ASSUMED



                                   1177+*                       DCB SYMBOLIC DEFINITION FOR                     07700000
                                   1178+*                       PHYSICAL SEQUENTIAL                             07900000

                                   1180+*********************************************************************** 09960021
                                   1181+*  OS     RELEASE 21.8, 03/22/74                                      * 10000021
                                   1182+*  OS/VS1 RELEASE 03.1, 03/22/74                                      * 10010021
                                   1183+*********************************************************************** 10020021


000000                             1185+IHADCB   DSECT , -            DCBPTR                                    10150000

                            00080  1187+DCBBIT0  EQU   128                                                      10210021
                            00040  1188+DCBBIT1  EQU   64                                                       10220021
                            00020  1189+DCBBIT2  EQU   32                                                       10230021

                            00010  1190+DCBBIT3  EQU   16                                                       10240021
                            00008  1191+DCBBIT4  EQU   8                                                        10242021
                            00004  1192+DCBBIT5  EQU   4                                                        10244021

                            00002  1193+DCBBIT6  EQU   2                                                        10246021
                            00001  1194+DCBBIT7  EQU   1                                                        10248021

                                   1196+*                       DEVICE INTERFACES                               10350000

                                   1198+*                       DIRECT ACCESS DEVICES                           10500000


000000                             1200+DCBRELAD DS    CL4 -          PARTITIONED ORGANIZATION DATA SET -       10600000
                                   1201+*                             ADDRESS (IN THE FORM TTRN) OF MEMBER      10650000
                                   1202+*                             CURRENTLY USED.  ---                      10700000
                                   1203+*                             SYS1.LOGREC DATA SET - IF CCH OPTION HAS  10750000
                                   1204+*                             BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS 10800000

                                   1205+*                             OF A 12-BYTE PARAMETER IN THE EXPANSION   10850000
                                   1206+*                             OF MACRO INSTRUCTION IGFCATAP             10900000
000004                             1207+DCBKEYCN DS    FL1 -          KEYED BLOCK OVERHEAD CONSTANT             10950000
000005                             1208+DCBFDAD  DS    CL8 -          FULL DISK ADDRESS IN THE FORM OF MBBCCHHR 11000000

                                   1209+*                             OF RECORD THAT WAS JUST READ OR WRITTEN   11050000

00000D                      0000C  1211+         ORG   DCBFDAD+7                                                11150000
00000C                             1212+DCBDVTBL DS    0A -           SAME AS DCBDVTBA BELOW                    11200000
00000C                             1213+         DS    X -            LAST BYTE OF DCBFDAD                      11250000
00000D                             1214+DCBDVTBA DS    AL3 -          ADDRESS OF ENTRY IN I/O DEVICE            11300000

                                   1215+*                             CHARACTERISTICS TABLE FOR DEVICE BEING    11350000
                                   1216+*                             USED                                      11400000
000010                             1217+         DS    FL1 -          DCBKEYLE - KEY LENGTH OF DATA SET         11450000
000011                             1218+         DS    C -            DCBDEVT - DEVICE TYPE                     11500000
                                   1219+*   FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION      11550000

                            00021  1220+DCBDV311 EQU   X'21' -        2311 DISK DRIVE                           11600000
                            00022  1221+DCBDV301 EQU   X'22' -        2301 PARALLEL DRUM                        11650000
                            00023  1222+DCBDV303 EQU   X'23' -        2303 SERIAL DRUM                          11700000
                            00024  1223+DCBDV302 EQU   X'24' -        2302 DISK STORAGE                         11750000
                            00025  1224+DCBDV321 EQU   X'25' -        2321 DATA CELL DRIVE                      11800000

                            00028  1225+DCBDV314 EQU   X'28' -        2314 DISK STORAGE FACILITY                11850000
000012                             1226+DCBTRBAL DS    H -            TRACK BALANCE.  NUMBER OF BYTES REMAINING 11900000
                                   1227+*                             ON CURRENT TRACK AFTER A WRITE OPERATION  11950000
                                   1228+*                             (THIS QUANTITY MAY BE NEGATIVE IF THERE   12000000
PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   39



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1229+*                             ARE NO BYTES REMAINING ON TRACK).         12050000

                                   1231+*                       MAGNETIC TAPE                                   12200000


000014                      00000  1233+         ORG   IHADCB                                                   12300000
000000                             1234+         DS    CL12 -         RESERVED FOR I/O SUPERVISOR               12350000
00000C                             1235+DCBBLKCT DS    F -            BLOCK COUNT FOR EACH VOLUME               12400000
000010                             1236+DCBTRTCH DS    C -            TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 12450000
                            00023  1237+DCBMTE   EQU   X'23' -        E  - EVEN PARITY                          12500000
                            0003B  1238+DCBMTT   EQU   X'3B' -        T  - BCD/EBCDIC TRANSLATION               12550000

                            00013  1239+DCBMTC   EQU   X'13' -        C  - DATA CONVERSION                      12600000
                            0002B  1240+DCBMTET  EQU   X'2B' -        ET - EVEN PARITY AND TRANSLATION          12650000
000011                             1241+         DS    C -            DCBDEVT - DEVICE TYPE                     12700000
                            00081  1242+DCBDVMT  EQU   X'81' -        2400 SERIES MAGNETIC TAPE UNIT (7-TRACK   12750000

                                   1243+*                             OR 9-TRACK)                               12800000
                            00083  1244+DCBDVMT3 EQU   X'83' -        3400 SERIES MAGNETIC TAPE UNIT     ICB277 12850000
000012                             1245+DCBDEN   DS    C -            TAPE DENSITY - 2400 SERIES MAGNETIC TAPE  12900000
                                   1246+*                             UNITS                                     12950000
                                   1247+*                             CODE    7-TRACK     9-TRACK               13000000

                            00003  1248+DCBMTDN0 EQU   X'03' -         0       200 BPI       -                  13050000
                            00043  1249+DCBMTDN1 EQU   X'43' -         1       556 BPI       -                  13100000
                            00083  1250+DCBMTDN2 EQU   X'83' -         2       800 BPI     800 BPI              13150000
                            000C3  1251+DCBMTDN3 EQU   X'C3' -         3         -        1600 BPI              13200000
                            000D3  1252+DCBMTDN4 EQU   X'D3' -         4         -        6250 BPI        99223 13210003
000013                             1253+         DS    X -            RESERVED                                  13250000


                                   1255+*                       PAPER TAPE                                      13400000

000014                      00008  1257+         ORG   IHADCB+8                                                 13500000

000008                             1258+DCBLCTBL DS    A -            ADDRESS OF TRANSLATE TABLE                13550000
00000C                             1259+         DS    XL4 -          RESERVED                                  13600000
000010                             1260+DCBCODE  DS    C -            PAPER TAPE CODE BEING USED.  THE          13650000
                                   1261+*                             APPROPRIATE TRANSLATE TABLE IS MADE       13700000
                                   1262+*                             AVAILABLE                                 13750000

                            00080  1263+DCBPTCDN EQU   X'80' -        N - NO CONVERSION                         13800000
                            00040  1264+DCBPTCDI EQU   X'40' -        I - IBM BCD                               13850000
                            00020  1265+DCBPTCDF EQU   X'20' -        F - FRIDEN                                13900000
                            00010  1266+DCBPTCDB EQU   X'10' -        B - BURROUGHS                             13950000
                            00008  1267+DCBPTCDC EQU   X'08' -        C - NATIONAL CASH REGISTER                14000000
                            00004  1268+DCBPTCDA EQU   X'04' -        A - ASCII (8-TRACK)                       14050000
                            00002  1269+DCBPTCDT EQU   X'02' -        T - TELETYPE                              14100000
000011                             1270+         DS    C -            DCBDEVT - DEVICE TYPE                     14150000

                            00050  1271+DCBDVPTP EQU   X'50' -        2671 PAPER TAPE READER                    14200000
000012                             1272+         DS    X -            RESERVED                                  14250000

000013                             1273+DCBPTFLG DS    BL1 -          PAPER TAPE FLAGS                          14300000
                            00010  1274+DCBPTIC  EQU   DCBBIT3 -      INVALID CHARACTER IN LAST RECORD READ     14350003
                            00008  1275+DCBPTECT EQU   DCBBIT4 -      END OF RECORD CHARACTER REACHED IN        14400003
                                   1276+*                             TRANSLATION                               14450000
                            00004  1277+DCBPTECR EQU   DCBBIT5 -      END OF RECORD CHARACTER DETECTED DURING   14500003

                                   1278+*                             READ                                      14550000
                            00002  1279+DCBPTUCT EQU   DCBBIT6 -      IF ONE, UPPER CASE TRANSLATE.             14600003
                                   1280+*                             IF ZERO, LOWER CASE TRANSLATE             14650000
                            00001  1281+DCBPTERR EQU   DCBBIT7 -      ERROR DETECTED ON READ                    14700003

                                   1283+*                       PRINTER                                         14850000
PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000014                      00010  1285+         ORG   IHADCB+16                                                14950000
000010                             1286+DCBPRTSP DS    C -            NUMBER INDICATING NORMAL PRINTER SPACING  15000000

                            00001  1287+DCBPRSP0 EQU   X'01' -        0 - NO SPACING                            15050000
                            00009  1288+DCBPRSP1 EQU   X'09' -        1 - SPACE ONE LINE                        15100000
                            00011  1289+DCBPRSP2 EQU   X'11' -        2 - SPACE TWO LINES                       15150000
                            00019  1290+DCBPRSP3 EQU   X'19' -        3 - SPACE THREE LINES                     15200003
000011                             1291+         DS    C -            DCBDEVT - DEVICE TYPE                     15250000

                            00048  1292+DCBDVPR1 EQU   X'48' -        1403 PRINTER AND 1404 PRINTER (CONTINUOUS 15300000
                                   1293+*                             FORM SUPPORT ONLY)                        15350000
                            0004A  1294+DCBDVPR2 EQU   X'4A' -        1443 PRINTER                              15400000
                            00049  1295+DCBDVPR3 EQU   X'49' -        3211 PRINTER                              15450000
000012                             1296+DCBPRTOV DS    C -            TEST-FOR-PRINTER-OVERFLOW MASK            15500000
                                   1297+*                             (PRTOV MASK)                              15550000
                            00020  1298+DCBPRC9  EQU   X'20' -        9  - TEST FOR CHANNEL 9 OVERFLOW          15600000
                            00010  1299+DCBPRC12 EQU   X'10' -        12 - TEST FOR CHANNEL 12 OVERFLOW         15650000
000013                             1300+         DS    X -            RESERVED                                  15700000



                                   1302+*                       CARD READER, CARD PUNCH                         15850000

000014                      00010  1304+         ORG   IHADCB+16                                                15950000
000010                             1305+DCBMODE  DS    0B -           MODE OF OPERATION FOR 1442 CARD READ      16000000
                                   1306+*                             PUNCH (BITS 0-3)                          16050000

000010                             1307+DCBSTACK DS    B -            STACKER SELECTION (BITS 4-7)              16100000
                            00080  1308+DCBMODEC EQU   DCBBIT0 -      COLUMN BINARY MODE                        16150003
                            00040  1309+DCBMODEE EQU   DCBBIT1 -      EBCDIC MODE                               16200003
                            00020  1310+DCBMODEO EQU   DCBBIT2 -      OPTICAL MARK READ MODE                    16250003
                            00010  1311+DCBMODER EQU   DCBBIT3 -      READ COLUMN ELIMINATE MODE                16300003
                            00002  1312+DCBSTCK2 EQU   DCBBIT6 -      STACKER 2                                 16350003
                            00001  1313+DCBSTCK1 EQU   DCBBIT7 -      STACKER 1                                 16400003
000011                             1314+         DS    C -            DCBDEVT - DEVICE TYPE                     16450000
                            00041  1315+DCBDVCR0 EQU   X'41' -        2540 CARD READER                          16500000
                            00042  1316+DCBDVCP0 EQU   X'42' -        2540 CARD PUNCH                           16550000

                            00043  1317+DCBDVCRP EQU   X'43' -        1442 CARD READ PUNCH                      16600000

                            00044  1318+DCBDVCR1 EQU   X'44' -        2501 CARD READER                          16650000
                            00045  1319+DCBDVCPR EQU   X'45' -        2520 CARD READ PUNCH                      16700000
                            00046  1320+DCBDVCR2 EQU   X'46'          3505 CARD READER                   XM0629 16710002
                            0004C  1321+DCBDVCP1 EQU   X'4C'          3525 CARD PUNCH                    XM0629 16720002

000012                             1322+         DS    X -            RESERVED                                  16750000
000013                             1323+DCBFUNC  DS    B -            FUNCTION INDICATOR FOR THE 3525           16800000
                            00080  1324+DCBFNCBI EQU   DCBBIT0 -      INTERPRET (PUNCH AND PRINT TWO LINES)     16850003
                            00040  1325+DCBFNCBR EQU   DCBBIT1 -      READ                                      16900003
                            00020  1326+DCBFNCBP EQU   DCBBIT2 -      PUNCH                                     16950003
                            00010  1327+DCBFNCBW EQU   DCBBIT3 -      PRINT                                     17000003
                            00008  1328+DCBFNCBD EQU   DCBBIT4 -      DATA PROTECTION                           17050003
                            00004  1329+DCBFNCBX EQU   DCBBIT5 -      THIS DATA SET IS TO BE PRINTED            17100003
                            00002  1330+DCBFNCBT EQU   DCBBIT6 -      TWO-LINE PRINT SUPPORT REQUEST            17150003

                                   1332+*                       OPTICAL READER AND MAGNETIC CHAR READER         18100000


000014                      00000  1334+         ORG   IHADCB                                                   18200000
000000                             1335+DCBWTOID DS    0A -           SAME AS DCBWTOIA BELOW                    18250000
000000                             1336+         DS    X -            RESERVED                                  18300000

000001                             1337+DCBWTOIA DS    AL3 -          A BINARY IDENTIFICATION NUMBER ASSIGNED   18350000
                                   1338+*                             BY COMMUNICATIONS TASK TO MESSAGE ISSUED  18400000
                                   1339+*                             BY WTO MACRO.  THIS NUMBER IS USED BY THE 18450000
PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1340+*                             DOM MACRO WHEN MESSAGE IS NO LONGER       18500000
                                   1341+*                             REQUIRED (MCS SUPPORT).  ---              18550000
                                   1342+*                             FOR MAGNETIC CHAR READER - AFTER FIRST    18600000
                                   1343+*                             READ HAS BEEN ISSUED, CONTAINS ADDRESS OF 18650000
                                   1344+*                             MAGNETIC INTERRUPT CONTROL BLOCK (MICB)   18700000
                                   1345+*                             BEING USED BY THE APPENDAGES.             18750000


                                   1347+*                       OPTICAL READER DEVICES                          18900000
                                   1348+*                       1285, 1287, 1288, 3886                          18950003


000004                      00004  1350+         ORG   DCBWTOID+4                                               19050000
000004                             1351+DCBERRCN DS    0A -           SAME AS DCBERRCA BELOW                    19100000
000004                             1352+DCBERRCA DS    AL3 -          ADDRESS OF 32 BYTES OF DECLARED STORAGE   19200000
                                   1353+*                             SPECIFIED BY THE USER IN HIS PROGRAM.     19250000
                                   1354+*                             THIS STORAGE WILL BE USED BY THE          19300000
                                   1355+*                             PROGRAMMING SUPPORT AS EIGHT 4-BYTE       19350000
                                   1356+*                             COUNTERS IN WHICH TOTALS OF CERTAIN 1285, 19400000
                                   1357+*                             1287 AND 1288 ERROR CONDITIONS ARE        19450000
                                   1358+*                             ACCUMULATED.                              19500000
000007                      00004  1359+         ORG   DCBWTOID+4                                               19510003
000004                             1360+DCBLNNUM DS    X              3886  DOCUMENT LINE NUMBER                19520003
000005                             1361+DCBLFMAT DS    X              3886  LINE FORMAT NUMBER                  19530003

000006                             1362+DCBORFLG DS    X              3886  FLAGS                               19540003

                            00080  1363+DCBEOPFG EQU   DCBBIT0        END OF PAGE                               19540403
000007                             1364+         DS    X              RESERVED                                  19542003

000008                             1365+DCBDSPLY DS    0A -           SAME AS DCBDSPLA BELOW                    19550000
000008                             1366+DCBFRID  DS    0CL4           3886  FORMAT RECORD ID                    19560003
000008                             1367+         DS    X -            RESERVED                                  19600000
000009                             1368+DCBDSPLA DS    AL3 -          ADDRESS OF DSPLY (BSAM) ROUTINE USED FOR  19650000
                                   1369+*                             KEYBOARD ENTRY OF A COMPLETE FIELD        19700000
00000C                             1370+DCBRESCN DS    0A -           SAME AS DCBRESCA BELOW                    19750000
00000C                             1371+DCBRDLNE DS    0A -           SAME AS DCBRDLNA BELOW                    19800000
00000C                             1372+DCBFRTBA DS    0A             3886  FORMAT RECORD TABLE                 19810003
00000C                             1373+         DS    X -            RESERVED                                  19850000
00000D                             1374+DCBRESCA DS    0AL3 -         ADDRESS OF RESCN (BSAM) ROUTINE USED TO   19900000
                                   1375+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    19950000
                                   1376+*                             CHARACTERS                                20000000

00000D                             1377+DCBRDLNA DS    AL3 -          ADDRESS OF RDLNE (QSAM) ROUTINE USED TO   20050000
                                   1378+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    20100000

                                   1379+*                             CHARACTERS                                20150000

000010                             1380+DCBORBYT DS    BL1 -          OPTICAL READER BYTE USED BY BSAM/QSAM     20200000
                            00080  1381+DCBORSYN EQU   DCBBIT0 -      SYNAD IN CONTROL                          20250003
                            00040  1382+DCBOREOF EQU   DCBBIT1 -      END OF FILE (EOF)                         20300003
                            00020  1383+DCBORBFP EQU   DCBBIT2 -      BUFFERS PRIMED (QSAM)                     20350003
000011                             1384+         DS    C -            DCBDEVT - DEVICE TYPE                     20400000
                            0005A  1385+DCBDVOR5 EQU   X'5A' -        1285 OPTICAL READER                       20450000
                            0005B  1386+DCBDVOR7 EQU   X'5B' -        1287 OPTICAL READER                       20500000
                            0005C  1387+DCBDVOR8 EQU   X'5C' -        1288 OPTICAL READER                       20550000
                            00057  1388+DCBDVOR9 EQU   X'57'          3886 OPTICAL READER                       20560003
000012                             1389+DCBEIB   DS    BL1 -          ERROR INDICATOR BYTE                      20600000
                            00040  1390+DCBORNRM EQU   DCBBIT1 -      THE 1287 OR 1288 SCANNER WAS UNABLE TO    20650003
                                   1391+*                             LOCATE THE REFERENCE MARK                 20700000

                            00020  1392+DCBORREJ EQU   DCBBIT2 -      FOR 1287, A STACKER SELECT COMMAND WAS    20750003
                                   1393+*                             GIVEN AFTER ALLOTTED TIME HAD ELAPSED AND 20800000
                                   1394+*                             THE DOCUMENT HAS BEEN PUT IN REJECT       20850000

PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1395+*                             POCKET.  FOR 1288 UNFORMATTED ONLY,       20900000
                                   1396+*                             END-OF-PAGE HAS OCCURRED.                 20950000
                            00010  1397+DCBORERR EQU   DCBBIT3 -      A NONRECOVERABLE ERROR HAS OCCURRED.      21000003
                            00008  1398+DCBORECK EQU   DCBBIT4 -      AN EQUIPMENT CHECK RESULTED IN AN         21050003
                                   1399+*                             INCOMPLETE READ                           21100000
                            00004  1400+DCBORWLR EQU   DCBBIT5 -      A WRONG-LENGTH RECORD CONDITION HAS       21150003
                                   1401+*                             OCCURRED                                  21200000
                            00002  1402+DCBORHPR EQU   DCBBIT6 -      FOR QSAM - OPERATOR ENTERED ONE OR MORE   21250003
                                   1403+*                             CHARACTERS FROM THE KEYBOARD.             21300000
                                   1404+*                             FOR BSAM - A HOPPER EMPTY CONDITION HAS   21350000

                                   1405+*                             OCCURRED                                  21400000
                            00001  1406+DCBORDCK EQU   DCBBIT7 -      A DATA CHECK HAS OCCURRED                 21450003
000013                             1407+         DS    X -            RESERVED                                  21500000


                                   1409+*                       MAGNETIC CHARACTER READER DEVICES               21650000
                                   1410+*                       1419 MAGNETIC CHARACTER READER                  21700000
                                   1411+*                       1275 OPTICAL READER SORTER                      21750000
                                   1412+*                       3890 MAGNETIC CHARACTER READER                  21760003

000014                      00000  1414+         ORG   IHADCB                                                   21850000

000000                             1415+DCBSSID  DS    CL8 -          BEFORE DCB IS OPENED - NAME OF USER'S     21900000
                                   1416+*                             STACKER SELECT ROUTINE.                   21950000

000008                      00000  1418+         ORG   DCBSSID                                                  22050000
000000                             1419+         DS    A -            AFTER DCB IS OPENED - DCBWTOID            22100000
000004                             1420+DCBSSAD  DS    0A -           ADDRESS OF USER'S STACKER SELECT ROUTINE  22150000
000004                             1421+DCBIMG   DS    0A             3890  ADDR OF USER'S IMAGE PROC RTN       22160003
000004                             1422+         DS    X -            RESERVED                                  22200000

000005                             1423+DCBSSADA DS    AL3 -          ADDRESS OF USER'S STACKER SELECT ROUTINE  22250000
000008                             1424+DCBIMAGE DS    0A -           SAME AS DCBIMAGA BELOW                    22300000

000008                             1425+DCBMRFG  DS    BL1 -          BUFFER INDICATOR                          22350000
                            000C0  1426+DCBMRBCT EQU   DCBBIT0+DCBBIT1 -                                        22400003
                                   1427+*                             TWO-BIT BINARY COUNTER WHICH INDICATES    22410003
                                   1428+*                             INTO WHICH BUFFER STATUS INFORMATION IS   22450000
                                   1429+*                             TO BE POSTED                              22500000
000009                             1430+DCBIMAGA DS    AL3 -          ADDRESS OF PARAMETER LIST USED TO         22550000
                                   1431+*                             COMMUNICATE BETWEEN USER'S PROCESSING     22600000
                                   1432+*                             ROUTINES AND HIS STACKER SELECT ROUTINES  22650000

00000C                             1433+DCBECBLT DS    0A -           SAME AS DCBECBLA BELOW                    22700000
00000C                             1434+DCBHDR   DS    0A             3890  ADDR OF USER'S HEADER DATA AREA     22702003
00000C                             1435+DCBMRIND DS    BL1 -          INDICATOR AND COUNTER BYTE                22750000
                            000E0  1436+DCBMRDCT EQU   DCBBIT0+DCBBIT1+DCBBIT2                                  22800003
                                   1437+*                             THREE-BIT BINARY COUNTER OF NUMBER OF     22810003

                                   1438+*                             DOCUMENTS READ AFTER DISENGAGE            22850000
                            00010  1439+DCBMRSCU EQU   DCBBIT3 -      DCB WAS ALTERED WHEN SYNAD ROUTINE WAS    22900003
                                   1440+*                             ENTERED DUE TO SECONDARY CONTROL UNIT     22950000

                                   1441+*                             (SCU) ERROR                               23000000
                            00008  1442+DCBMRPLO EQU   DCBBIT4 -      POCKET LIGHT HAS BEEN TURNED ON           23050003
                            00004  1443+DCBMRPLS EQU   DCBBIT5 -      POCKET LIGHT 0-6 IS BEING SET ON          23100003
                            00002  1444+DCBMRERP EQU   DCBBIT6 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23150003
                                   1445+*                             PRIMARY CONTROL UNIT (PCU)                23200000
                            00001  1446+DCBMRERS EQU   DCBBIT7 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23250003
                                   1447+*                             SECONDARY CONTROL UNIT (SCU)              23300000

00000D                             1448+DCBECBLA DS    AL3 -          ADDRESS OF ECB LIST PASSED TO WAIT MACRO  23350000
                                   1449+*                             BY CHECK MACRO WHEN NO 1419/1275 IS       23400000
PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1450+*                             AVAILABLE FOR PROCESSING                  23450000

000010                             1451+DCBMRFLG DS    BL1 -          FLAG BYTE                                 23500000
                            00080  1452+DCBMRSCC EQU   DCBBIT0 -      FIRST OR SECOND SECONDARY CONTROL UNIT    23550003
                                   1453+*                             COMMAND CHAIN IS BEING USED               23600000
                            00040  1454+DCBMRDBG EQU   DCBBIT1 -      DEBUGGING MODE IN USE                     23650003

                            00020  1455+DCBMRDRU EQU   DCBBIT2 -      DISENGAGE REQUESTED BY USER               23700003
                            00010  1456+DCBMRDR  EQU   DCBBIT3 -      DISENGAGE REQUESTED                       23750003
                            0000C  1457+DCBMRPCC EQU   DCBBIT4+DCBBIT5 -                                        23800003
                                   1458+*                             TWO-BIT BINARY COUNTER INDICATING FIRST,  23802003
                                   1459+*                             SECOND OR THIRD PRIMARY CONTROL UNIT      23850000
                                   1460+*                             COMMAND CHAIN IS BEING USED               23900000

                            00002  1461+DCBMRDWT EQU   DCBBIT6 -      WTO MESSAGE MUST BE DELETED               23950003
                            00001  1462+DCBMRUE  EQU   DCBBIT7 -      UNIT EXCEPTION                            24000003
000011                             1463+         DS    C -            DCBDEVT - DEVICE TYPE                     24050000
                            0005D  1464+DCBDVMR  EQU   X'5D' -        1419 MAGNETIC CHARACTER READER            24100000
                            0005F  1465+DCBDVORS EQU   X'5F' -        1275 OPTICAL READER SORTER                24150000

                            00056  1466+DCBDVMRS EQU   X'56'          3890 MAGNETIC CHARACTER READER SORTER     24160003
000012                             1467+DCBAPPIN DS    C -            AN INDICATOR USED BY THE APPENDAGES TO    24200000
                                   1468+*                             PASS INFORMATION ABOUT ONE CHANNEL CHAIN  24250000
                                   1469+*                             TO AN APPENDAGE ASSOCIATED WITH ANOTHER   24300000
                                   1470+*                             CHANNEL CHAIN                             24350000

000013                             1471+         DS    X -            RESERVED                                  24400000

                                   1473+*                       ACCESS METHOD COMMON INTERFACE                  24600000

000014                      00010  1475+         ORG   IHADCB+16                                                24700000

000010                             1476+DCBRELB  DS    0F -           SAME AS DCBREL BELOW                      24750000
000010                             1477+DCBKEYLE DS    FL1 -          KEY LENGTH OF DATA SET                    24800000
000011                             1478+DCBDEVT  DS    0C -           DEVICE TYPE                               24850000
                            0004F  1479+DCBDVTRM EQU   X'4F' -        TERMINAL.  (DD CONTAINS TERM=TS)          24900000
000011                             1480+DCBREL   DS    FL3 -          NUMBER OF RELATIVE TRACKS OR BLOCKS IN    24950000

                                   1481+*                             THIS DATA SET (BDAM)                      25000000
000014                             1482+DCBBUFCB DS    0A -           ADDRESS OF BUFFER POOL CONTROL BLOCK      25050000
000014                             1483+DCBBUFNO DS    FL1 -          NUMBER OF BUFFERS REQUIRED FOR THIS DATA  25100000
                                   1484+*                             SET.  MAY RANGE FROM 0 TO 255.  IF        25150000
                                   1485+*                             UNBLOCKED SPANNED RECORDS ARE USED,       25200000
                                   1486+*                             NUMBER OF SEGMENT WORK AREAS REQUIRED     25250000

                                   1487+*                             FOR THIS DATA SET.                        25300000
000015                             1488+DCBBUFCA DS    AL3 -          ADDRESS OF BUFFER POOL CONTROL BLOCK      25350000
000018                             1489+DCBBUFL  DS    H -            LENGTH OF BUFFER.  MAY RANGE FROM 0 TO    25400000
                                   1490+*                             32,767.                                   25450000

00001A                             1491+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED          25500000
00001A                             1492+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG                    25550000
                            00080  1493+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION      25600003
                            00040  1494+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION     25650003
                            00020  1495+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION                  25700003

                            00010  1496+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP              25750003
                            00008  1497+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE     25800003
                            00004  1498+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE   25850003
                            00002  1499+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION             25900003
                            00001  1500+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS         25950003
                                   1501+*                                  LOCATION DEPENDENT INFORMATION       26000000
00001B                             1502+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG                   26050000

                            00080  1503+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION                26100003
                            00040  1504+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP                      26150003
PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   44



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00020  1505+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE                   26200003
                            00008  1506+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1 26250003
                            00004  1507+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024 26260003
00001C                             1508+DCBIOBAD DS    0A -           ADDRESS OF IOB WHEN CHAINED SCHEDULING IS 26300000

                                   1509+*                             USED OR FOR 1419/1275                     26350000
00001C                             1510+DCBODEB  DS    0A -           ADDRESS OF OLD DEB                        26400000
00001C                             1511+DCBLNP   DS    0FL1 -         3525 PRINTER LINE POSITION COUNTER        26450000
00001C                             1512+DCBQSLM  DS    BL1 -          QSAM LOCATE MODE LOGICAL RECORD INTERFACE 26500000
                                   1513+*                             INDICATOR BYTE FOR UPDAT PROCESSING OF    26550000
                                   1514+*                             SPANNED RECORDS                           26600000
                            00080  1515+DCB1DVDS EQU   DCBBIT0 -      ONLY ONE DEVICE IS ALLOCATED TO THIS      26650003

                                   1516+*                             DATA SET                                  26700000
                            00040  1517+DCBUPDCM EQU   DCBBIT1 -      UPDATE COMPLETE, FREE OLD DEB             26750003
                            00030  1518+DCBUPDBT EQU   DCBBIT2+DCBBIT3 -                                        26800003

                                   1519+*                             UPDATE BITS                               26810003
                            00020  1520+DCBUPDT  EQU   DCBBIT2 -      UPDATE TO TAKE PLACE                      26850003
                            00030  1521+DCBNUPD  EQU   DCBBIT2+DCBBIT3 -                                        26900003
                                   1522+*                             NO UPDATE TO TAKE PLACE                   26910003
                            00010  1523+DCBSVDEB EQU   DCBBIT3 -      OLD DEB ADDRESS MUST BE SAVED             26950003

00001D                             1524+DCBIOBAA DS    0AL3 -         SAME AS DCBIOBAD ABOVE                    27000000
00001D                             1525+DCBODEBA DS    AL3 -          ADDRESS OF OLD DEB                        27050000
000020                      0001C  1526+         ORG   IHADCB+28                                     ICBI DCB-4 27100000
00001C                             1527+DCBSVCXL DS    0A -           SAME AS DCBSVCXA BELOW         ICBI DCB-4 27150000
00001C                             1528+         DS    X -            RESERVED                       ICBI DCB-4 27200000
00001D                             1529+DCBSVCXA DS    AL3 -          POINTER TO EXIT LIST OF JES    ICBI DCB-4 27250000
                                   1530+*                             C.I. INTERFACE CONTROL SVC     ICBI DCB-4 27300000


                                   1532+*                       FOUNDATION EXTENSION                            27400000


000020                             1534+DCBEODAD DS    0A -           SAME AS DCBEODA BELOW                     27500000
000020                             1535+DCBHIARC DS    0BL1 -         HIERARCHY BITS                            27550000
000020                             1536+DCBBFTEK DS    0BL1 -         BUFFERING TECHNIQUE BITS                  27600000
000020                             1537+DCBBFALN DS    BL1 -          BUFFER ALIGNMENT BITS                     27650000
                            00080  1538+DCBH1    EQU   DCBBIT0 -      HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO  27700003

                            00070  1539+DCBBFT   EQU   DCBBIT1+DCBBIT2+DCBBIT3                                  27750003
                                   1540+*                             BUFFERING TECHNIQUE                       27760003
                            00060  1541+DCBBFTA  EQU   DCBBIT1+DCBBIT2 -                                        27800003
                                   1542+*                             QSAM LOCATE MODE PROCESSING OF SPANNED    27810003
                                   1543+*                             RECORDS - OPEN IS TO CONSTRUCT A RECORD   27850000
                                   1544+*                             AREA IF IT AUTOMATICALLY CONSTRUCTS       27900000
                                   1545+*                             BUFFERS                                   27950000
                            00020  1546+DCBBFTR  EQU   DCBBIT2 -      FOR BSAM CREATE BDAM PROCESSING OF        28000003
                                   1547+*                             UNBLOCKED SPANNED RECORDS - SOFTWARE      28050000

                                   1548+*                             TRACK OVERFLOW.  FOR BSAM INPUT           28100000

                                   1549+*                             PROCESSING OF UNBLOCKED SPANNED RECORDS   28150000
                                   1550+*                             WITH KEYS - RECORD OFFSET PROCESSING.     28200000
                            00040  1551+DCBBFTS  EQU   DCBBIT1 -      SIMPLE BUFFERING - BIT 3 IS ZERO          28250003
                            00020  1552+DCBBFTKR EQU   DCBBIT2 -      UNBLOCKED SPANNED RECORDS - SOFTWARE      28300003
                                   1553+*                             TRACK OVERFLOW (BDAM)                     28350000

                            00010  1554+DCBBFTE  EQU   DCBBIT3 -      EXCHANGE BUFFERING - BIT 1 IS ZERO        28400003
                            00008  1555+DCBBFTKD EQU   DCBBIT4 -      DYNAMIC BUFFERING (BTAM)                  28450003
                            00004  1556+DCBH0    EQU   DCBBIT5 -      HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO  28500003
                            00003  1557+DCBBFA   EQU   DCBBIT6+DCBBIT7 -                                        28550003
                                   1558+*                             BUFFER ALIGNMENT                          28560003
                            00002  1559+DCBBFAD  EQU   DCBBIT6 -      DOUBLEWORD BOUNDARY                       28600003
PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00001  1560+DCBBFAF1 EQU   DCBBIT7 -      FULLWORD NOT A DOUBLEWORD BOUNDARY,       28650003
                                   1561+*                             CODED IN DCB MACRO INSTRUCTION            28700000

                            00003  1562+DCBBFAF2 EQU   DCBBIT6+DCBBIT7 -                                        28750003

                                   1563+*                             FULLWORD NOT A DOUBLEWORD BOUNDARY,       28760003
                                   1564+*                             CODED IN DCB MACRO INSTRUCTION            28800000
000021                             1565+DCBEODA  DS    AL3 -          ADDRESS OF A USER-PROVIDED ROUTINE TO     28850000
                                   1566+*                             HANDLE END-OF-DATA CONDITIONS             28900000

000024                             1567+DCBEXLST DS    0A -           ADDRESS OF USER-PROVIDED LIST OF EXITS    28950000
000024                             1568+DCBRECFM DS    BL1 -          RECORD FORMAT                             29000000
                            000E0  1569+DCBRECLA EQU   DCBBIT0+DCBBIT1+DCBBIT2  -                               29050003
                                   1570+*                             RECORD LENGTH INDICATOR - ASCII           29060003
                            00020  1571+DCBRECD  EQU   DCBBIT2 -      ASCII VARIABLE RECORD LENGTH              29100003
                            000C0  1572+DCBRECL  EQU   DCBBIT0+DCBBIT1 -                                        29150003
                                   1573+*                             RECORD LENGTH INDICATOR                   29160003
                            00080  1574+DCBRECF  EQU   DCBBIT0 -      FIXED RECORD LENGTH                       29200003
                            00040  1575+DCBRECV  EQU   DCBBIT1 -      VARIABLE RECORD LENGTH                    29250003
                            000C0  1576+DCBRECU  EQU   DCBBIT0+DCBBIT1 -                                        29300003
                                   1577+*                             UNDEFINED RECORD LENGTH                   29310003

                            00020  1578+DCBRECTO EQU   DCBBIT2 -      TRACK OVERFLOW                            29350003
                            00010  1579+DCBRECBR EQU   DCBBIT3 -      BLOCKED RECORDS                           29400003
                            00008  1580+DCBRECSB EQU   DCBBIT4 -      FOR FIXED LENGTH RECORD FORMAT - STANDARD 29450003
                                   1581+*                             BLOCKS.  FOR VARIABLE LENGTH RECORD       29500000

                                   1582+*                             FORMAT - SPANNED RECORDS                  29550000
                            00006  1583+DCBRECCC EQU   DCBBIT5+DCBBIT6 -                                        29600003
                                   1584+*                             CONTROL CHARACTER INDICATOR               29610003
                            00004  1585+DCBRECCA EQU   DCBBIT5 -      ASA CONTROL CHARACTER                     29650003
                            00002  1586+DCBRECCM EQU   DCBBIT6 -      MACHINE CONTROL CHARACTER                 29700003
                            00000  1587+DCBRECC  EQU   X'00' -        NO CONTROL CHARACTER                      29750000
                            00001  1588+DCBRECKL EQU   DCBBIT7 -      KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB  29800003
                                   1589+*                             MACRO INSTRUCTION                         29850000
000025                             1590+DCBEXLSA DS    AL3 -          ADDRESS OF USER-PROVIDED LIST OF EXITS    29900000


                                   1593+*                       FOUNDATION BEFORE OPEN                          47150000


000028                      00028  1595+         ORG   IHADCB+40                                                47250000
000028                             1596+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES    47300000

                                   1597+*                             THE DATA SET ASSOCIATED WITH THIS DCB     47350000
000030                             1598+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE                47400000
                            00080  1599+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR   47450003
                                   1600+*                             POINT.  IF ONE, LAST I/O OPERATION WAS    47500000
                                   1601+*                             WRITE.                                    47550000
                            00080  1602+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR     47600003
                                   1603+*                             OUTPUT (BDAM)                             47650000
                            00040  1604+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD   47700003
                                   1605+*                             MODE                                      47750000
                            00020  1606+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE       47800003
                                   1607+*                             ROUTINE FOR CONCATENATION OF DATA SETS    47850000
                                   1608+*                             WITH UNLIKE ATTRIBUTES                    47900000

                            00010  1609+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED   47950003

                            00008  1610+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 48000003
                                   1611+*                             CONCATENATION OF UNLIKE ATTRIBUTES        48050000

                            00004  1612+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ                   48100003
                            00002  1613+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN  48150003
                                   1614+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1 48200000
PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1615+*                             ON RETURN FROM USER EXIT TO THE I/O       48250000
                                   1616+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.     48300000
                            00001  1617+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF    48350003
                                   1618+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION   48400000
000031                             1619+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR  48450000
                                   1620+*                             CONDITIONS AND IN DETERMINING CORRECTIVE  48500000
                                   1621+*                             PROCEDURES                                48550000

                            000C0  1622+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -                                        48600003
                                   1623+*                             ERROR CORRECTION INDICATOR                48610003

                            00000  1624+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE                    48650000

                            00040  1625+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN       48700003
                                   1626+*                             PROCESS                                   48750000
                            000C0  1627+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -                                        48800003
                                   1628+*                             PERMANENT ERROR CORRECTION                48810003
                            00030  1629+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -                                        48850003
                                   1630+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     48860003
                            00020  1631+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH     48900003
                                   1632+*                             SENSED                                    48950000
                            00010  1633+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH    49000003
                                   1634+*                             SENSED                                    49050000
                            0000C  1635+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -                                        49100003
                                   1636+*                             IOS ERROR ROUTINE USE INDICATOR           49110003

                            00000  1637+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE   49150000
                            00004  1638+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49200003
                            00004  1639+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE  49250003

                                   1640+*                             (BTAM)                                    49300000
                            00008  1641+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49350003
                            0000C  1642+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -                                        49400003
                                   1643+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE    49410003
000032                             1644+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE               49450000
000032                             1645+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR                     49500000
                            00080  1646+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---        49550003
                                   1647+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,     49600000
                                   1648+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)    49650000
                            00040  1649+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)    49700003
                            00040  1650+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)                   49750003
                            00040  1651+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---          49800003

                                   1652+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 49850000
                                   1653+*                             RESERVED (BTAM)                           49900000
                            00020  1654+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)            49950003
                            00020  1655+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)      50000003

                            00020  1656+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---           50050003
                                   1657+*                             ALWAYS ZERO (QSAM, QISAM)                 50100000
                            00010  1658+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)                   50150003
                            00010  1659+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)            50200003
                            00010  1660+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---          50250003
                                   1661+*                             ALWAYS ZERO (BISAM) ---                   50300000

                                   1662+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)         50350000
                            00008  1663+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)          50400003
                            00008  1664+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---          50450003
                                   1665+*                             ALWAYS ZERO (BISAM) ---                   50500000
                                   1666+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   50550000
                            00004  1667+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK   50600003
                                   1668+*                             COUNT (EXCP)                              50650000
                            00004  1669+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   50700003

PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                            00004  1670+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)             50750003
                            00004  1671+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---       50800003
                                   1672+*                             ALWAYS ZERO (QISAM) ---                   50850000
                                   1673+*                             RESERVED (QTAM, BTAM)                     50900000
                            00002  1674+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)    50950003
                            00002  1675+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        51000003
                            00002  1676+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)                             51050003
                            00002  1677+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---                 51100003

                                   1678+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)        51150000
                            00001  1679+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)                   51200003
                            00001  1680+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,    51250003
                                   1681+*                             BPAM, BISAM, QISAM, QTAM, BTAM)           51300000
000033                             1682+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR                    51350000

                            00080  1683+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM, 51400003
                                   1684+*                             BPAM, BISAM, BDAM) ---                    51450000
                                   1685+*                             RESERVED (EXCP, QTAM, BTAM)               51500000

                            00040  1686+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)    51550003
                            00040  1687+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---          51600003
                                   1688+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 51650000
                                   1689+*                             RESERVED (EXCP, BTAM)                     51700000
                            00020  1690+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)     51750003
                            00020  1691+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---            51800003
                                   1692+*                             ALWAYS ZERO (QSAM, QISAM) ---             51850000

                                   1693+*                             RESERVED (EXCP)                           51900000
                            00010  1694+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)            51950003
                            00010  1695+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---         52000003
                                   1696+*                             ALWAYS ZERO (BISAM) ---                   52050000
                                   1697+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   52100000

                            00008  1698+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)         52150003
                            00008  1699+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)     52200003
                                   1700+*                             (BSAM)                                    52250000
                            00008  1701+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)          52300003

                            00008  1702+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---         52350003
                                   1703+*                             ALWAYS ZERO (BISAM) ---                   52400000
                                   1704+*                             RESERVED (BPAM, QTAM, BTAM)               52450000
                            00004  1705+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)         52500003
                            00004  1706+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   52550003
                            00004  1707+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)                    52600003

                            00004  1708+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---        52650003
                                   1709+*                             ALWAYS ZERO (BISAM) ---                   52700000
                                   1710+*                             RESERVED (BDAM, QTAM, BTAM)               52750000
                            00002  1711+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)        52800003
                            00002  1712+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        52850003

                            00002  1713+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)                       52900003
                            00002  1714+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---              52950003
                                   1715+*                             ALWAYS ZERO (BISAM) ---                   53000000
                                   1716+*                             RESERVED (BPAM, QTAM, BTAM)               53050000
                            00001  1717+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)          53100003

                            00001  1718+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT     53150003
                                   1719+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)   53200000
                            00001  1720+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)                          53250003
                            00001  1721+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---                    53300003
                                   1722+*                             ALWAYS ZERO (BISAM) ---                   53350000

                                   1723+*                             RESERVED (BPAM, QTAM, BTAM)               53400000

PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1725+*                       FOUNDATION AFTER OPEN                           53500000


000034                      00028  1727+         ORG   IHADCB+40                                                53600000
000028                             1728+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD 53650000
                                   1729+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED 53700000
                                   1730+*                             WITH THIS DCB                             53750000

00002A                             1731+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN               53800000
00002A                             1732+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF                    53850000
00002B                             1733+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF                   53900000
00002C                             1734+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB                 53950000
00002C                             1735+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN               54000000

                            000C0  1736+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -                                        54050003
                                   1737+*                             ERROR CORRECTION INDICATOR                54060003
                            00030  1738+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -                                        54100003
                                   1739+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     54110003
                            0000C  1740+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -                                        54150003

                                   1741+*                             IOS ERROR ROUTINE USE INDICATOR           54160003
00002D                             1742+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB                 54200000

000030                      00030  1744+         ORG   IHADCB+48                                                54350000
000030                             1745+DCBREAD  DS    0A -           ADDRESS OF READ MODULE                    54400000
000030                             1746+DCBWRITE DS    A -            ADDRESS OF WRITE MODULE                   54450000


000034                      00030  1748+         ORG   IHADCB+48                                                54600000
000030                             1749+DCBGET   DS    0A -           ADDRESS OF GET MODULE                     54650000
000030                             1750+DCBPUT   DS    A -            ADDRESS OF PUT MODULE                     54700000


                                   1752+*                       QSAM-BSAM-BPAM COMMON INTERFACE                 77750000

000034                      00034  1754+         ORG   IHADCB+52                                                77850000
000034                             1755+DCBGERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  77950000

000034                             1756+DCBPERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  78000000
000034                             1757+DCBCHECK DS    0A -           ADDRESS OF CHECK MODULE                   78050000
000034                             1758+DCBOPTCD DS    BL1 -          OPTION CODES                              78150000
                            00080  1759+DCBOPTW  EQU   DCBBIT0 -      WRITE VALIDITY CHECK (DASD)               78500003
                                   1760+*                             (BSAM, BPAM, QSAM, ISAM, BDAM)            78550000
                            00040  1761+DCBOPTU  EQU   DCBBIT1 -      ALLOW DATA CHECK CAUSED BY INVALID        78600003
                                   1762+*                             CHARACTER (1403 PRINTER WITH UCS FEATURE) 78650000

                                   1763+*                             (BSAM, BPAM, QSAM)                        78700000
                            00020  1764+DCBOPTC  EQU   DCBBIT2 -      CHAINED SCHEDULING USING PCI              78750003
                                   1765+*                             (BSAM, BPAM, QSAM)                        78800000

                            00010  1766+DCBOPTH  EQU   DCBBIT3 -      1287/1288 OPTICAL READER - HOPPER EMPTY   78850003
                                   1767+*                             EXIT (BSAM, BPAM)                         78900000
                            00010  1768+DCBOPTO  EQU   DCBBIT3 -      1285/1287 OPTICAL READER - ON-LINE        78950003
                                   1769+*                             CORRECTION (QSAM)                         79000000
                            00010  1770+DCBBCKPT EQU   DCBBIT3 -      CHANNEL-END APPENDAGE IS TO BYPASS DOS    79050003

                                   1771+*                             EMBEDDED CHECKPOINT RECORDS ON TAPE       79100000
                                   1772+*                             (BSAM, QSAM)                       ICB226 79150000
                            00008  1773+DCBOPTQ  EQU   DCBBIT4 -      TRANSLATION TO OR FROM ASCII              79200003
                                   1774+*                             (BSAM, BPAM, QSAM)                        79250000
                            00004  1775+DCBOPTZ  EQU   DCBBIT5 -      MAGNETIC TAPE DEVICES - USE REDUCED ERROR 79300003
                                   1776+*                             RECOVERY PROCEDURE (EXCP, BSAM, BPAM,     79350000
                                   1777+*                             QSAM)                                     79400000
                            00004  1778+DCBSRCHD EQU   DCBBIT5 -      USE SEARCH DIRECT, INSTEAD OF SEARCH      79450003

                                   1779+*                             PREVIOUS, ON RECORD POSITION SENSING      79500000
PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   49



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1780+*                             DEVICE  (EXCP, BSAM, BPAM, QSAM)   ICB217 79550000
                            00002  1781+DCBOPTT  EQU   DCBBIT6 -      USER TOTALING (BSAM, QSAM)                79600003
000035                             1782+DCBGERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  79700000
000035                             1783+DCBPERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  79750000

000035                             1784+DCBCHCKA DS    AL3 -          ADDRESS OF CHECK MODULE                   79800000
000038                             1785+DCBSYNAD DS    0A -           ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80050000
000038                             1786+DCBIOBL  DS    FL1 -          IOB LENGTH IN DOUBLE WORDS                80100000
000039                             1787+DCBSYNA  DS    AL3 -          ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80150000
00003C                             1788+DCBFLAG1 DS    0BL1           TCAM APPLICATION PROGRAM FLAGS ICBI DCB-3 80460000
                                   1789+*                             (BSAM, BPAM, QSAM)                        80470000
00003C                             1790+DCBCIND1 DS    BL1 -          CONDITION INDICATORS                      80500000
                            00080  1791+DCBCNTOV EQU   DCBBIT0 -      DIRECT ACCESS - TRACK OVERFLOW IN USE     80550003
                                   1792+*                             (BSAM, BPAM, QSAM)                        80600000

                                   1793+*                             2540 CARD PUNCH - DATA SET WAS OPENED BUT 80650000

                                   1794+*                             NO DATA WAS WRITTEN (QSAM)                80700000
                            00080  1795+DCBSTQCK EQU   DCBBIT0 -      STOP EQUAL QUICK WAS SPECIFIED FOR        80710003
                                   1796+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80720000
                            00040  1797+DCBSTFLS EQU   DCBBIT1 -      STOP EQUAL FLUSH WAS SPECIFIED FOR        80730003
                                   1798+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80740000

                            00040  1799+DCBCNSRD EQU   DCBBIT1 -      SEARCH DIRECT (BSAM, BPAM, QSAM)          80750003
                            00020  1800+DCBCNEVB EQU   DCBBIT2 -      END OF VOLUME - USED BY EOB ROUTINES      80800003
                                   1801+*                             (BSAM, BPAM, QSAM)                        80850000
                            00010  1802+DCBCNEVA EQU   DCBBIT3 -      END OF VOLUME - USED BY CHANNEL-END       80900003
                                   1803+*                             APPENDAGE ROUTINES (BSAM, BPAM, QSAM)     80950000
                            00004  1804+DCBCNBRM EQU   DCBBIT5 -      BLOCKED RECORD BIT MODIFIED (BSAM,BPAM,   81000003
                                   1805+*                             QSAM)                          ICBI DCB-2 81050000
                            00001  1806+DCBCNEXB EQU   DCBBIT7 -      EXCHANGE BUFFERING SUPPORTED (QSAM)       81100003
00003D                             1807+DCBCIND2 DS    BL1 -          CONDITION INDICATORS                      81150000
                            00080  1808+DCBCNSTO EQU   DCBBIT0 -      PARTITIONED DATA SET - STOW HAS BEEN      81200003

                                   1809+*                             PERFORMED (BSAM, BPAM, QSAM)              81250000

                                   1810+*                             SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM) 81300000
                            00040  1811+DCBCNWR0 EQU   DCBBIT1 -      DIRECT ORGANIZATION DATA SET - LAST I/O   81350003
                                   1812+*                             WAS A WRITE RECORD ZERO                   81400000
                                   1813+*                             (BSAM, BPAM, QSAM)                        81450000

                                   1814+*                             SEQUENTIAL DATA SET - UPDATE EOF IS       81500000
                                   1815+*                             INDICATED (BSAM, BPAM)                    81550000
                            00020  1816+DCBCNCLO EQU   DCBBIT2 -      CLOSE IN PROCESS (QSAM)                   81600003
                            00010  1817+DCBCNIOE EQU   DCBBIT3 -      PERMANENT I/O ERROR (BSAM, BPAM, QSAM)    81650003
                            00008  1818+DCBCNBFP EQU   DCBBIT4 -      OPEN ACQUIRED BUFFER POOL                 81700003
                                   1819+*                             (BSAM, BPAM, QSAM)                        81750000
                            00004  1820+DCBCNCHS EQU   DCBBIT5 -      CHAINED SCHEDULING BEING SUPPORTED        81800003
                                   1821+*                             (BSAM, BPAM, QSAM)                        81850000
                            00002  1822+DCBCNFEO EQU   DCBBIT6 -      FEOV BIT (BSAM, BPAM, QSAM)               81900003
                            00001  1823+DCBCNQSM EQU   DCBBIT7 -      ALWAYS ZERO (BSAM, BPAM)                  81950003
                                   1824+*                             THIS IS A QSAM DCB (QSAM)                 82000000

00003E                             1825+DCBBLKSI DS    H -            MAXIMUM BLOCK SIZE                        82100000
000040                             1826+DCBWCPO  DS    AL1 -          OFFSET OF WRITE CHANNEL PROGRAM FROM THE  82350000
                                   1827+*                             START OF IOB                              82400000
000041                             1828+DCBWCPL  DS    FL1 -          LENGTH OF WRITE CHANNEL PROGRAM           82450000

000042                             1829+DCBOFFSR DS    AL1 -          OFFSET OF READ CCW FROM BSAM/BPAM PREFIX  82500000
                                   1830+*                             OF IOB                                    82550000
000043                             1831+DCBOFFSW DS    AL1 -          OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX 82600000
                                   1832+*                             OF IOB                                    82650000
000044                             1833+DCBIOBA  DS    A -            FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR 82700000
                                   1834+*                             BSAM/BPAM PREFIX OF IOB.  FOR CHAINED     82750000
PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1835+*                             SCHEDULING, ADDRESS OF ICB.  FOR          82800000
                                   1836+*                             1419/1275, ADDRESS OF MAGNETIC INTERRUPT  82850000
                                   1837+*                             CONTROL BLOCK (MICB) CURRENTLY BEING      82900000
                                   1838+*                             PROCESSED BY READ ROUTINE.  FOR TSO       82950000

                                   1839+*                             TERMINAL DATA SET OPENED FOR INPUT AND    83000000
                                   1840+*                             FORMAT U, SIMULATED LOW-ORDER FOUR BYTES  83050000
                                   1841+*                             OF IOBCSW                                 83100000


000048                      00044  1843+         ORG   IHADCB+68                                         ICB354 83160000
000044                             1844+DCBCICB  DS    0A -           SAME AS DCBCICBA BELOW             ICB354 83200000
000044                             1845+         DS    X -            DCBNCP  (BSAM,BPAM)                ICB354 83250000
000045                             1846+DCBCICBA DS    AL3 -          POINTER TO JES C.I.                ICB354 83300000
                                   1847+*                             CONTROL BLOCK (CICB)               ICB354 83350000

000048                      00050  1849+         ORG   IHADCB+80                                     ICBI DCB-4 83450000
000050                             1850+DCBDIRCT DS    0H -           NUMBER OF BYTES USED IN LAST DIRECTORY    83500000
                                   1851+*                             BLOCK (RANGE 0-254)  (BSAM, BPAM)  ICB295 83550000
000050                             1852+DCBQSWS  DS    0BL1 -         FLAG BYTE                          ICB295 83600000
                            00004  1853+DCBPOPEN EQU   DCBBIT5 -      QSAM PARALLEL INPUT PROCESSING            83610003

000050                             1854+DCBUSASI DS    B -            FLAG BYTE FOR ASCII TAPES                 83650000

                            00040  1855+DCBBLBP  EQU   DCBBIT1 -      BLOCK PREFIX IS FOUR BYTE FIELD           83700003
                                   1856+*                             CONTAINING BLOCK LENGTH IN UNPACKED       83750000

                                   1857+*                             DECIMAL (SPECIFIED BY BUFFER=L).          83800000
                            00038  1858+DCBQADFS EQU   DCBBIT2+DCBBIT3+DCBBIT4                                  83850003
                                   1859+*                             USED TO PERFORM SEQUENCE CHECKING WITH    83860003
                                   1860+*                             MULTIPLE FUNCTION SUPPORT FOR 3525        83900000
                                   1861+*                             (BSAM, QSAM)                              83950000
                            00020  1862+DCBQADF1 EQU   DCBBIT2 -      FIRST BIT OF DCBQADFS                     84000003
                            00010  1863+DCBQADF2 EQU   DCBBIT3 -      SECOND BIT OF DCBQADFS                    84050003
                            00008  1864+DCBQADF3 EQU   DCBBIT4 -      THIRD BIT OF DCBQADFS                     84100003
                            00001  1865+DCBQSTRU EQU   DCBBIT7 -      TRUNC ENTRY POINT ENTERED (QSAM)          84150003
000051                             1866+DCBBUFOF DS    0FL1 -         BLOCK PREFIX LENGTH (0-99), SPECIFIED BY  84200000
                                   1867+*                             BUFOFF=N OR BUFOFF=L                      84250000
000051                             1868+DCBDIRCQ DS    FL1 -          NUMBER OF BYTES USED IN LAST DIRECTORY    84300000

                                   1869+*                             BLOCK (RANGE 0-254)  (QSAM)        ICB295 84350000


                                   1871+*                       BSAM-BPAM INTERFACE                             84500000


000052                      00048  1873+         ORG   IHADCB+72                                                84600000
000048                             1874+DCBEOBR  DS    0A -           ADDRESS OF END-OF-BLOCK MODULE FOR READ   84650000
000048                             1875+DCBNCP   DS    FL1 -          NUMBER OF CHANNEL PROGRAMS.               84750000
                                   1876+*                             NUMBER OF READ OR WRITE REQUESTS WHICH    85000000
                                   1877+*                             MAY BE ISSUED PRIOR TO A CHECK, NUMBER    85050000
                                   1878+*                             OF IOB'S GENERATED.  (99 MAXIMUM)         85100000
000049                             1879+DCBEOBRA DS    AL3 -          ADDRESS OF END-OF-BLOCK MODULE FOR READ   85150000
00004C                             1880+DCBEOBW  DS    A -            ADDRESS OF END-OF-BLOCK MODULE FOR WRITE. 85200000
                                   1881+*                             FOR BSAM CREATE BDAM PROCESSING OF        85250000
                                   1882+*                             UNBLOCKED SPANNED RECORDS WITH BKTEK=R    85300000
                                   1883+*                             SPECIFIED, ADDRESS OF SEGMENT WORK AREA   85350000

                                   1884+*                             CONTROL BLOCK                             85400000
000050                             1885+         DS    H -            DCBDIRCT - NUMBER OF BYTES USED IN LAST   85450000
                                   1886+*                             DIRECTORY BLOCK  (RANGE 0-254)     ICB295 85500000

000052                             1887+DCBLRECL DS    H -            LOGICAL RECORD LENGTH                     85600000
000054                             1888+DCBCNTRL DS    0A -           ADDRESS OF CNTRL MODULE                   85850000
000054                             1889+DCBNOTE  DS    0A -           ADDRESS OF NOTE/POINT MODULE              85900000
PRPU     OS DATA CONTROL BLOCK DSECT                                                                           PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000054                             1890+DCBPOINT DS    A -            ADDRESS OF NOTE/POINT MODULE              85950000

                                   1892+*                       QSAM INTERFACE                                  86100000

000058                      00048  1894+         ORG   IHADCB+72                                                86650021
000048                             1895+DCBLCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF LAST   86700000
                                   1896+*                             CCW IN LIST                               86750000

000048                             1897+DCBEOBAD DS    A -            FOR SIMPLE BUFFERING, ADDRESS OF LAST     86800000
                                   1898+*                             BYTE OF CURRENT BUFFER                    86850000
00004C                             1899+DCBCCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF        86900000
                                   1900+*                             CURRENT OR NEXT CCW                       86950000

00004C                             1901+DCBRECAD DS    0A -           ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87000000
00004C                             1902+DCBRECBT DS    BL1 -          FLAG BYTE                                 87050000
                            000F0  1903+DCBRCREL EQU   DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3  -                       87100003
                                   1904+*                             RELSE MACRO HAS BEEN ISSUED               87110003
                                   1905+*                             (QSAM WITH SIMPLE BUFFERING)              87150000
                            00080  1906+DCBRCTRU EQU   DCBBIT0 -      TRUNC MACRO HAS BEEN ISSUED (QSAM LOCATE  87200003

                                   1907+*                             MODE)                                     87250000
                            00040  1908+DCBRCFGT EQU   DCBBIT1 -      FIRST GET AFTER OPEN (QSAM LOCATE MODE)   87300003
00004D                             1909+DCBRECA  DS    AL3 -          ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87350000
000050                             1910+         DS    B -            DCBQSWS - FLAG BYTE                ICB295 87400000
000051                             1911+         DS    FL1 -          DCBDIRCQ - NUMBER OF BYTES USED IN LAST   87450000
                                   1912+*                             DIRECTORY BLOCK (RANGE 0-254)      ICB295 87500000
000052                             1913+         DS    H -            DCBLRECL - LOGICAL RECORD LENGTH          87750021
000054                             1914+         DS    0A -           DCBCNTRL - ADDRESS OF CNTRL MODULE        88000021

000054                             1915+DCBEROPT DS    BL1 -          ERROR OPTION                              88100000
                            00080  1916+DCBERACC EQU   DCBBIT0 -         ACCEPT PERMANENT ERROR                 88150003

                            00040  1917+DCBERSKP EQU   DCBBIT1 -         SKIP PERMANENT ERROR                   88200003
                            00020  1918+DCBERABE EQU   DCBBIT2 -         ABNORMAL END OF TASK                   88250003
000055                             1919+         DS    AL3 -          DCBCNTRA - ADDRESS OF CNTRL MODULE        88500021
000058                             1920+         DS    XL2 -          RESERVED                                  88600021
00005A                             1921+DCBPRECL DS    H -            BLOCK LENGTH, MAXIMUM BLOCK LENGTH OR     88650000
                                   1922+*                             DATA LENGTH                               88700000
00005C                             1923+DCBEOB   DS    A -            ADDRESS OF END OF BLOCK MODULE            88750000




                            00000  1926+DCBDSECT EQU   IHADCB   DEFINE ALTERNATE DSECT NAME                     DB012000

000000                             1928+HASPPRPU CSECT          END OF DATA CONTROL BLOCK DSECT                 DB016000
PRPU     OS DATA EXTENT BLOCK DSECT                                                                            PAGE   52



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             1931+DEBDSECT DSECT                     DATA EXTENT BLOCK DSECT              DE010000
000000                             1932+DEBTCBAD DS    F                   ADDRESS OF TCB                       DE012000
000004                             1933+DEBDEBAD DS    F                   ADDRESS OF NEXT DEB                  DE014000
000008                             1934+DEBIRBAD DS    F                   ADDRESS OF IRB                       DE016000
00000C                             1935+         DS    F                   RESERVED                             DE018000
000010                             1936+DEBNMEXT DS    0C                  NUMBER OF EXTENTS                    DE019000
000010                             1937+DEBUSRPG DS    F                   ADDR OF 1ST IOB IN USER PURGE CHAIN  DE020000

000014                             1938+DEBPRIOR DS    0C                  PRIORITY OF THE TASK                 DE022000
000014                             1939+DEBECBAD DS    F                   ADDRESS OF PURGE ECB PARAMETER LIST  DE024000
000018                             1940+DEBPROTG DS    0C                  PROTECTION KEY OF TASK               DE026000
000018                             1941+DEBDEBID DS    0C                  DEB IDENTIFICATION (X'0F')           DE028000
000018                             1942+DEBDCBAD DS    F                   ADDRESS OF DCB                       DE030000

00001C                             1943+DEBEXSCL DS    0C                  EXTENT SCALE                         DE031000
00001C                             1944+DEBAPPAD DS    F                   ADDR OF I/O APPENDAGE VECTOR TABLE   DE032000
000020                             1945+DEBDVMOD DS    0C                  DEVICE MODIFIER / FILE MASK          DE034000
000020                             1946+DEBUCBAD DS    F                   ADDRESS OF UCB                       DE036000

000024                             1947+DEBEXTNT DS    0CL12               DATA SET EXTENT                      DE038000
000024                             1948+DEBBINUM DS    H                   BIN NUMBER                           DE040000
000026                             1949+DEBSTRCC DS    H                   CYLINDER START ADDRESS               DE042000
000028                             1950+DEBSTRHH DS    H                   READ OR WRITE TRACK START ADDRESS    DE044000
00002A                             1951+DEBENDCC DS    H                   CYLINDER END ADDRESS                 DE046000
00002C                             1952+DEBENDHH DS    H                   READ OR WRITE TRACK END ADDRESS      DE048000

00002E                             1953+DEBNUMTR DS    H                   NUMBER OF TRACKS IN THIS EXTENT      DE050000
000000                             1954+HASPPRPU CSECT                     END OF DATA EXTENT BLOCK DSECT       DE052000
PRPU     OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                             1956+UCBDSECT DSECT                     UNIT CONTROL BLOCK DSECT             UC008000



                                   1958+*%UCBL1 : ;                                                             IE005000
                                   1959+*/* **************************************************************** */ IE006000
                                   1960+*/*                                                                  */ IE007000

                                   1961+*/*            U N I T   C O N T R O L   B L O C K                   */ IE008000
                                   1962+*/*                                                                  */ IE009000
                                   1963+*/* **************************************************************** */ IE010000
                                   1964+*/*                                                                  */ IE011000
                                   1965+*/*  STATUS                                                          */ IE012000
                                   1966+*/*                                                                  */ IE013000

                                   1967+*/*      OS/VS2 RELEASE 1, OS/VS1 RELEASE 2, 08/14/72, LEVEL=14      */ IE014000
                                   1968+*/*                                                                  */ IE015000
                                   1969+*/*  METHOD OF ACCESS                                                */ IE016000
                                   1970+*/*                                                                  */ IE017000
                                   1971+*/*      PL/S - DCL (UCBPTR,UCBDCPTR) PTR                            */ IE018000

                                   1972+*/*      BAL  - DSECT CARD SHOULD PRECEDE MACRO CALL.  SYMBOLS IN    */ IE019000
                                   1973+*/*             COMMON SECTION AND DEVICE DEPENDENT SECTIONS ARE     */ IE020000
                                   1974+*/*             ADDRESSABLE BY A USING ON UCBOB.  ADDITIONAL USINGS  */ IE021000
                                   1975+*/*             ARE NECESSARY TO OBTAIN ADDRESSABILITY FOR EACH      */ IE022000
                                   1976+*/*             EXTENSION OR PREFIX.  THESE ARE AS FOLLOWS -         */ IE023000

                                   1977+*/*                                                                  */ IE024000
                                   1978+*/*             DIRECT ACCESS EXTENSION           UCBDA              */ IE025000
                                   1979+*/*             DIRECT ACCESS EXTENSION 2         UCBDA2             */ IE026000
                                   1980+*/*             PREFIX TO MAGNETIC TAPE EXTENSION UCBMTPRF           */ IE027000
                                   1981+*/*             MAGNETIC TAPE EXTENSION           UCBMT              */ IE028000

                                   1982+*/*             TAPE CARTRIDGE READER EXTENSION   UCBTCR             */ IE029000
                                   1983+*/*             OPTICAL READER EXTENSION          UCBOR              */ IE030000
                                   1984+*/*             UNIT RECORD WITH UCS EXTENSION    UCBUCS             */ IE031000
                                   1985+*/*             3211 SENSE INFORMATION EXTENSION  UCBSNINF           */ IE032000
                                   1986+*/*             M65 MULTIPROCESSING PREFIX        UCBM65MP           */ IE033000

                                   1987+*/*                                                                  */ IE034000
                                   1988+*/*             WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH  */ IE035000
                                   1989+*/*             DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER   */ IE036000
                                   1990+*/*             IN THE DEFN COLUMN IN THE CORSS REFERENCE LISTING.   */ IE037000
                                   1991+*/*             FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE          */ IE038000
                                   1992+*/*             STATEMENT NUMBERS FOR UCBDA AND UCBDA2 IS IN THE     */ IE039000

                                   1993+*/*             UCBDA DSECT.                                         */ IE040000
                                   1994+*/*                                                                  */ IE041000
                                   1995+*/*  F.E.'S                                                          */ IE042000
                                   1996+*/*                                                                  */ IE043000

                                   1997+*/*      MICROFICHE LISTING - IEFUCBOB                               */ IE044000
                                   1998+*/*                                                                  */ IE045000
                                   1999+*/*  DEVELOPERS                                                      */ IE046000
                                   2000+*/*                                                                  */ IE047000
                                   2001+*/*      BAL LISTING  - SPECIFY LIST=YES ON MACRO CALL               */ IE048000

                                   2002+*/*      PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE        */ IE049000
                                   2003+*/*                                                                  */ IE050000
                                   2004+*/*      FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS     */ IE051000
                                   2005+*/*      YOUR MODULE CREATES THE CSECT.                              */ IE052000
                                   2006+*/*                                                                  */ IE053000
                                   2007+*/*  FUNCTION                                                        */ IE054000
                                   2008+*/*                                                                  */ IE055000

                                   2009+*/*      A UNIT CONTROL BLOCK                                        */ IE056000
PRPU     OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   2010+*/*      INCORPORATING A SYSTEM RESOURCE TABLE                       */ IE057000
                                   2011+*/*      RECORDS THE STATUS OF                                       */ IE058000
                                   2012+*/*        A PHYSICAL INPUT OUTPUT DEVICE ADDRESS                    */ IE059000
                                   2013+*/*      IS CREATED AND INITIALIZED DURING SYSTEM GENERATION         */ IE060000
                                   2014+*/*      RESIDES IN THE NUCLEUS BELOW 32 K                           */ IE061000

                                   2015+*/*      POINTS TO A DEVICE TYPE DEPENDENT EXTENSION                 */ IE062000
                                   2016+*/*        RESIDING HIGHER IN THE NUCLEUS                            */ IE063000
                                   2017+*/*      IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY            */ IE064000
                                   2018+*/*        A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS     */ IE065000
                                   2019+*/*      MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES               */ IE066000
                                   2020+*/*        AND DATA EXTENT BLOCKS                                    */ IE067000
                                   2021+*/*      CONTAINS INDICES INTO TABLES FOR                            */ IE068000
                                   2022+*/*        DEVICE STATISTICS ATTENTION LOGICAL CHANNEL               */ IE069000

                                   2023+*/*      MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS    */ IE070000
                                   2024+*/*                                                                  */ IE071000

                                   2025+*/*  OUTPUT                                                          */ IE072000
                                   2026+*/*                                                                  */ IE073000
                                   2027+*/*      SYSGEN INDEPENDENT COMMON SECTION                           */ IE074000
                                   2028+*/*        INCLUDING UCBTYP WORD                                     */ IE075000
                                   2029+*/*      DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)             */ IE076000

                                   2030+*/*        DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE         */ IE077000
                                   2031+*/*        DATACELL (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)*/ IE078000
                                   2032+*/*        UNIT RECORD WITH UNIVERSAL CHARACTER SET                  */ IE079000
                                   2033+*/*        GRAPHICS                                                  */ IE080000
                                   2034+*/*        TAPE CARTRIDGE READER AND OPTICAL READER                  */ IE081000
                                   2035+*/*      CELL DESCRIPTION FOR ONE OF THE TEN CELLS                   */ IE082000
                                   2036+*/*        IN THE DATACELL DEVICE SEGMENT ABOVE                      */ IE083000
                                   2037+*/*      UCB EXTENSION (ONE OF THE FOLLOWING)                        */ IE084000
                                   2038+*/*        DIRECT ACCESS                                             */ IE085000

                                   2039+*/*        DIRECT ACCESS 2                                           */ IE086000

                                   2040+*/*        MAGNETIC TAPE AND ITS PREFIX                              */ IE087000
                                   2041+*/*        TAPE CARTRIDGE READER                                     */ IE088000
                                   2042+*/*        OPTICAL READER                                            */ IE089000
                                   2043+*/*        UNIVERSAL CHARACTER SET                                   */ IE090000
                                   2044+*/*        3211 SENSE INFORMATION                                    */ IE091000

                                   2045+*/*      M65 MULTIPROCESSING PREFIX                                  */ IE092000
                                   2046+*/*        (CONTIGUOUSLY PRECEDING COMMON SECTION)                   */ IE093000
                                   2047+*/*                                                                  */ IE094000
                                   2048+*/* **************************************************************** */ IE095000
                                   2049+*%GOTO UCBL2;   /*                                                      IE096000
                                   2050+         PUSH  PRINT                                                    IE097000
                                   2051+         PRINT OFF                                                      IE099000
                                   2787+         POP   PRINT                                                    IE836000


000000                             2789+HASPPRPU CSECT                     END UNIT CONTROL BLOCK DSECT         UC016000

PRPU     HASP PRINT/PUNCH PROCESSOR PCE WORK AREA DSECT                                                        PAGE   55



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000058                             2792+PCEDSECT DSECT                     HASP PRINT/PUNCH PROCESSOR           PW544000

000058                      00058  2793+         ORG   PCEWORK              PCE WORK AREA DSECT                 PW546000
000058                             2794+PPFLAG   DS    0C                  PRINT/PUNCH SYNCHRONIZATION FLAGS    PW548000
000058                             2795+PDCT     DS    F                   ADDRESS OF PRINT/PUNCH/REMOTE DCT    PW550000
00005C                             2796+PDCTFLAG DS    0C                  PRINT/PUNCH/REMOTE DCT FLAGS         PW552000
00005C                             2797+PDADCT   DS    F                   ADDRESS OF DIRECT-ACCESS DCT         PW554000
000060                             2798+PJOB     DS    F                   ADDRESS OF JOB QUEUE ENTRY           PW556000
000064                             2799+PRCHKPTE DS    F                   ADDRESS OF CHECKPOINT ELEMENT        PW558000
000068                             2800+PUERRPT  DS    F                   ADDRESS OF PUNCH ERROR CCW           PW560000
00006C                             2801+PTIMEON  DS    2F                  PRINT/PUNCH SIGN-ON TIME/DATE        PW562000
000074                             2802+PBUFSAVE DS    F                   ADDRESS OF NEXT PRINT/PUNCH BUFFER   PW564000
000078                             2803+PCCWPT   DS    F                   ADDRESS OF LAST CCW                  PW566000

00007C                             2804+PCCWEND  DS    F                   ADDRESS OF LAST POSSIBLE CCW         PW568000
000080                             2805+PMESSAGE DS    CL40                MESSAGE WORK AREA                    PW570000
0000A8                             2806+PDDBSKIP DS    H                   COUNT OF PAGES TO SKIP               PW572000
0000AA                             2807+         DS    H                   UNUSED                               PW574000

0000AC                             2808+PPRCFLAG DS    C                   CHECKPOINT FLAGS                     PW576000
0000AD                             2809+PPRCPYCT DS    C                   COPY COUNT                           PW578000
0000AE                             2810+PCEEJRCB DS    H                   LAST EJECT RCB DISPLACEMENT          PW580000
0000B0                             2811+PDDBDISP DS    H                   CURRENT PDDB DISPLACEMENT            PW582000
0000B2                             2812+PDDBPGCT DS    H                   CURRENT PDDB PAGE COUNT              PW584000
0000B4                             2813+PPLNCDCT DS    F                   CURRENT LINE OR CARD COUNT           PW586000
0000B8                             2814+PRPAGECT DS    F                   CURRENT PAGE COUNT                   PW588000
0000BC                             2815+PCEJMTTR DS    F                   LAST EJECT BUFFER MTTR               PW590000
0000C0                             2816+PCEIOTTR DS    F                   CURRENT IOT MTTR                     PW592000
0000C4                             2817+PBUFOPT  DS    0C                  PRINT/PUNCH BUFFERING OPTION         PW594000
0000C4                             2818+PDEVTYPE DS    F                   PRINT/PUNCH DEVICE TYPE              PW596000
0000C8                             2819+PLSAVE   DS    F                   LINK REGISTER SAVE WORD              PW598000

0000CC                             2820+PLSAVE2  DS    F                   SECOND LINK REG SAVE WORD    OY04719 PW599000
0000D0                             2821+PLSAVE3  DS    F                   THIRD LINK REG SAVE WORD     OY07290 PW599500
0000D4                             2822+PRLINECT DS    F                   MAXIMUM LINES PER PAGE               PW600000

0000D8 00000000                    2823+PWKJOE   DC    F'0'                C'CLASS',AL3(WORK JOE)               PW602000
0000DC 00000000                    2824+PCHJOE   DC    F'0'                A(CHARACTERISTICS JOE)               PW604000
0000E0                             2825+PCEFORM  DS    F                   FORMS FOR CURRENT PDDB               PW606000
0000E4                             2826+PCEFCB   DS    F                   FCB   FOR CURRENT PDDB               PW608000
0000E8                             2827+PCEUCSB  DS    F                   UCSB  FOR CURRENT PDDB               PW610000
0000EC                             2828+PPJOBFRM DS    F                   JOB DEFAULT FORMS ID                 PW612000
0000F0                             2829+PPRECCT  DS    F                   MAXIMUM RECORD COUNT                 PW614000
0000F4                             2830+PPJCARDS DS    F                   NUMBER OF CARDS READ                 PW616000
0000F8                             2831+PPJLINES DS    F                   NUMBER OF SYSOUT PRINT RECORDS       PW618000
0000FC                             2832+PPJPUNCH DS    F                   NUMBER OF SYSOUT PUNCH RECORDS       PW620000
000100                             2833+PPJXEQOF DS    F                   TIME OFF EXECUTION                   PW622000
000104                             2834+PPJXEQON DS    F                   TIME ON EXECUTION                    PW624000

000108                             2835+PPJDSKEY DS    F                   DATA SET BUFFER VALIDITY KEY         PW626000

00010C                             2836+PPJJOBEB DS    CL(L'JCTJOBEB)      JOB NUMBER                           PW628000
000110                             2837+PPJROOMN DS    CL(L'JCTROOMN)      ROOM NUMBER                          PW630000

000114                             2838+PPJJNAME DS    CL(L'JCTJNAME)      JOB NAME                             PW632000
00011C                             2839+PPJPNAME DS    CL(L'JCTPNAME)      PROGRAMMER NAME                      PW634000
000130                             2840+PRINDEX  DS    X                   3211 INDEX VALUE                     PW636000
PRPU     HASP PRINT/PUNCH PROCESSOR PCE WORK AREA DSECT                                                        PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000131                             2841+PPMSGCLS DS    X                   JOB MESSAGE CLASS                    PW638000
000132                             2842+PPDSCPY  DS    X                   DATA SET COPY COUNT                  PW640000
000133                             2843+PPJNDS   DS    X                   DATA SET PER JOE COUNTER             PW642000
000134                             2844+PBSPGCT  DS    H                   BSP PAGE COUNTER                     PW646000
000136                             2845+PBSPTBL  DS    CL(4*6)             BSP TABLE                            PW648000
                            000F6  2846+PRRPCEWS EQU   *-PCEWORK           LENGTH OF REMOTE PRINT PCE WORK AREA PW652000
                            000F6  2847+PURPCEWS EQU   *-PCEWORK           LENGTH OF REMOTE PUNCH PCE WORK AREA PW654000

000150                             2848+PCCWCHN  DS    (30+1)D                   PRINT CCW CHAIN                PW656000
                            001F0  2849+PRTPCEWS EQU   *-PCEWORK           LENGTH OF LOCAL PRINT PCE WORK AREA  PW658000

000248                      00150  2850+         ORG   PCCWCHN                                                  PW660000

000150                             2851+         DS    (30+2)D                   PUNCH CCW CHAIN                PW662000
                            001F8  2852+PUNPCEWS EQU   *-PCEWORK           LENGTH OF LOCAL PUNCH PCE WORK AREA  PW664000
000000                             2853+HASPPRPU CSECT                     END OF PRINT/PUNCH WORK AREA DSECT   PW666000
PRPU     HASP SMF BUFFER DSECT                                                                                 PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             2856+SMFDSECT DSECT                     HASP SMF BUFFER DSECT                SM561000
000000                             2857+SMFCHAIN DS    F                   SMF BUFFER CHAIN TO NEXT BUFFER      SM562000
000004                             2858+SMFTYPE  DS    C                   TYPE OF BUFFER  X'FF' = JMR BUFFER   SM563000
000005                             2859+SMFPARM  DS    3C                  RESERVED                             SM564000
000008                             2860+JMRCHAIN DS    0CL4                POINTER TO PURGE RECORD BUFFER       SM565000

000008                             2861+SMFRDW   DS    CL4                 SMF RECORD DESCRIPTOR WORD           SM566000


                                   2863+*  BEGINNING OF JMR OR HASP SMF RECORD                                  SM568000

00000C                             2864+SMFJMR   DS    0CL56               JMR DATA AREA                        SM569000

00000C 00                          2866+SMFHDFLG DC    BL1'0'              HEADER FLAG BYTE                     SM571000
00000D 00                          2867+SMFHDRTY DC    BL1'0'              RECORD TYPE                          SM572000
00000E 00000000                    2868+SMFHDTME DC    BL4'0'              TOD, USING FORMAT FROM TIME MACRO    SM573000
000012 0000000C                    2869+SMFHDDTE DC    PL4'0000'           DATE IN PACKD DECIMAL FORM  00YYDDDF SM574000
000016 4040                        2870+SMFHDSID DC    CL2'  '             SYSTEM IDENTIFICATION                SM575000
000018 4040                        2871+SMFHDMOD DC    CL2'  '             SYSTEM MODEL IDENTIFIER              SM576000


00001A                             2873+SMFRSTRT DS    0C                  DEFINE START OF RECORD AFTER HEADER  SM578000

                                   2875+* BEGINNING OF HASP TYPE 6 OUTPUT PROCESSOR RECORD AFTER STD. HEADER    SM580000


00001A 4040404040404040            2877+SMF6JBN  DC    CL8' '              JOB NAME FROM JMR                    SM582000
000022 00000000                    2878+SMF6RST  DC    BL4'0'              READER START TIME                    SM583000
000026 0000000C                    2879+SMF6RSD  DC    PL4'0000'           READER START DATE                    SM584000

00002A F040404040404040            2880+SMF6UIF  DC    CL8'0'              USER IDENTIFICATION FIELD            SM585000
000032 40                          2881+SMF6OWC  DC    CL1' '              OUTPUT WRITER CLASS                  SM586000
000033 00000000                    2882+SMF6WST  DC    BL4'0'              WRITER START TIME                    SM587000
000037 0000000C                    2883+SMF6WSD  DC    PL4'0000'           WRITER START DATE                    SM588000
00003B 00000000                    2884+SMF6NLR  DC    BL4'0'              # OF LOGICAL RECORDS FOR WRITER      SM589000
00003F 00                          2885+SMF6IOE  DC    BL1'0'              I/O ERROR INDICATOR                  SM590000

000040 00                          2886+SMF6NDS  DC    BL1'0'              # OF DATA SETS PROCESSED BY WTR      SM591000
000041 40404040                    2887+SMF6FMN  DC    CL4' '              FORM NUMBER                          SM592000
000045 00000000000000              2888+SMF6RV1  DC    BL7'0'              RESERVED                             SM593000
00004C 40404040                    2889+SMF6JNM  DC    CL4' '              HASP ASSIGNED JOB NUMBER             SM594000
000050 4040404040404040            2890+SMF6OUT  DC    CL8' '              HASP LOGICAL OUTPUT DEVICE NAME      SM595000
000058 40404040                    2891+SMF6FCB  DC    CL4' '              FCB ID                               SM596000
00005C 40404040                    2892+SMF6UCS  DC    CL4' '              UCS ID                               SM597000
000060 00000000                    2893+SMF6PGE  DC    BL4'0'              PAGE COUNT                           SM598000

000064 0000                        2894+SMF6RTE  DC    BL2'0'              OUTPUT ROUTE CODE                    SM599000
000066                             2895+SMF6END  DS    0C                  END OF TYPE 6 RECORD                 SM600000

PRPU     HASP SMF BUFFER DSECT                                                                                 PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2897+* BEGINNING OF HASP TYPE 26 PURGE RECORD AFTER STANDARD HEADER          SM602000

000066                      0001A  2899+         ORG   SMFRSTRT                                                 SM604000
00001A 4040404040404040            2900+SMF26JBN DC    CL8' '              JOB NAME FROM JMR                    SM605000
000022 00000000                    2901+SMF26RST DC    BL4'0'              READER START TIME                    SM606000
000026 0000000C                    2902+SMF26RSD DC    PL4'0000'           READER START DATE                    SM607000

00002A F040404040404040            2903+SMF26UIF DC    CL8'0'              USER IDENTIFICATION FIELD            SM608000
000032 00000000                    2904+SMF26RSV DC    BL4'0'              RESERVED                             SM609000
000036 0000                        2905+SMF26SBS DC    BL2'0'              SUBSYSTEM ID - HASP =X'0002'         SM610000
000038 0000                        2906+SMF26IND DC    BL2'0'              SECTION INDICATOR =X'E000'           SM611000
00003A 0000                        2907+SMF26LN1 DC    BL2'0'              DESCRIPTOR SECTION LENGTH            SM612000

00003C 000000                      2908+SMF26RV1 DC    BL3'0'              RESERVED                             SM613000
00003F 00                          2909+SMF26INF DC    BL1'0'              JOB INFORMATION                      SM614000
000040 40404040                    2910+SMF26JNM DC    CL4' '              HASP ASSIGNED JOB NUMBER             SM615000
000044 4040404040404040            2911+SMF26RV0 DC    CL8' '              JOB NAME FROM JOB CARD               SM616000
00004C 4040404040404040            2912+SMF26NAM DC    CL20' '             PROGRAMMER'S NAME FROM JOB CARD      SM617000
000060 40                          2913+SMF26MSG DC    CL1' '              MSGCLASS FROM JOB CARD               SM618000
000061 40                          2914+SMF26CLS DC    CL1' '              JOB CLASS FROM JOB CARD              SM619000
000062 0000                        2915+SMF26XPR DC    H'0'                HASP EXECUTION SELECTION PRIORITY    SM620000
000064 0000                        2916+SMF26OPR DC    H'0'                HASP OUTPUT SELECTION PRIORITY       SM621000
000066 0000                        2917+SMF26LOC DC    H'0'                INPUT ROUTE CODE                     SM622000
000068 4040404040404040            2918+SMF26DEV DC    CL8' '              HASP LOGICAL INPUT DEVICE NAME       SM623000
000070 40404040                    2919+SMF26ACT DC    CL4' '              PROGRAMMER'S ACCOUNTING NUMBER       SM624000

000074 40404040                    2920+SMF26ROM DC    CL4' '              PROGRAMMER'S ROOM NUMBER             SM625000
000078 00000000                    2921+SMF26XTM DC    BL4'0'              ESTIMATED EXECUTION TIME             SM626000
00007C 00000000                    2922+SMF26ELN DC    BL4'0'              ESTIMATED OUTPUT LINES               SM627000

000080 00000000                    2923+SMF26EPU DC    BL4'0'              ESTIMATED PUNCHED OUTPUT             SM628000
000084 40404040                    2924+SMF26FRM DC    CL4' '              DEFAULT OUTPUT FORM NUMBER           SM629000
000088 0000                        2925+SMF26CYP DC    BL2'0'              PRINT COPY COUNT                     SM630000

00008A 0000                        2926+SMF26LIN DC    BL2'0'              LINES PER PAGE                       SM631000
00008C 0000                        2927+SMF26PRR DC    BL2'0'              PRINT ROUTE CODE                     SM632000
00008E 0000                        2928+SMF26PUR DC    BL2'0'              PUNCH ROUTE CODE                     SM633000
000090 0000                        2929+SMF26LN2 DC    BL2'0'              EVENTS SECTION LENGTH                SM634000
000092 0000                        2930+SMF26RV2 DC    BL2'0'              RESERVED                             SM635000
000094 00000000                    2931+SMF26RPT DC    BL4'0'              READER STOP TIME                     SM636000
000098 0000000C                    2932+SMF26RPD DC    PL4'0000'           READER STOP DATE                     SM637000

00009C 0000000000000000            2933+SMF26RV3 DC    BL16'0'             RESERVED                             SM638000
0000AC 00000000                    2934+SMF26XST DC    BL4'0'              EXECUTION START TIME                 SM639000
0000B0 0000000C                    2935+SMF26XSD DC    PL4'0000'           EXECUTION START DATE                 SM640000
0000B4 00000000                    2936+SMF26XPT DC    BL4'0'              EXECUTION STOP TIME                  SM641000
0000B8 0000000C                    2937+SMF26XPD DC    PL4'0000'           EXECUTION STOP DATE                  SM642000

0000BC 00000000                    2938+SMF26OST DC    BL4'0'              OUTPUT PROCESSOR START TIME          SM643000
0000C0 0000000C                    2939+SMF26OSD DC    PL4'0000'           OUTPUT PROCESSOR START DATE          SM644000
0000C4 00000000                    2940+SMF26OPT DC    BL4'0'              OUTPUT PROCESSOR STOP TIME           SM645000
0000C8 0000000C                    2941+SMF26OPD DC    PL4'0000'           OUTPUT PROCESSOR STOP DATE           SM646000

0000CC 0000                        2942+SMF26LN3 DC    BL2'0'              ACTUALS SECTION LENGTH               SM647000
0000CE 0000                        2943+SMF26RV4 DC    BL2'0'              RESERVED                             SM648000
0000D0 00000000                    2944+SMF26ICD DC    BL4'0'              NUMBER OF INPUT CARDS (JCL AND DATA) SM649000
0000D4 00000000                    2945+SMF26XLN DC    BL4'0'              GENERATED OUTPUT LINES               SM650000
0000D8 00000000                    2946+SMF26XPU DC    BL4'0'              GENERATED PUNCHED OUTPUT             SM651000
0000DC 00000000                    2947+SMF26RV5 DC    BL4'0'              RESERVED                             SM652000

0000E0 00000000                    2948+SMF26PLN DC    BL4'0'              PRINTED LINES                        SM653000
0000E4 00000000                    2949+SMF26PPG DC    BL4'0'              PRINTED PAGES                        SM654000
0000E8 00000000                    2950+SMF26PUC DC    BL4'0'              PUNCHED CARDS                        SM655000
0000EC                             2951+SMF26END DS    0C                  END OF TYPE 26 RECORD                SM656000
PRPU     HASP SMF BUFFER DSECT                                                                                 PAGE   59



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2953+* SUBSYSTEM HEADER FOR HASP SUBSYSTEM RECORD TYPES 43, 45, 47, & 48     SM658000

0000EC                      0001A  2955+         ORG   SMFRSTRT                                                 SM660000
00001A 0002                        2956+SMFSSID  DC    XL2'0002'           HASP SUBSYSTEM ID                    SM661000

00001C 0000                        2957+SMFSSRSV DC    BL2'0'              RESERVED                             SM662000
00001E 0000                        2958+SMFSSLEN DC    BL2'0'              LENGTH OF REST OF RECORD             SM663000


000020                             2960+SMFSSTRT DS    0C                  DEFINE START OF SUBSYSTEM PORTION    SM665000


                                   2962+* BEGINNING OF HASP TYPE 43 START HASP RECORD AFTER HDR & SUBSYSTEM HDR SM667000

000020 000000                      2964+SMF43RV1 DC    BL3'0'              RESERVED                             SM669000
000023 00                          2965+SMF43OPT DC    BL1'0'              START HASP OPTIONS                   SM670000
000024                             2966+SMF43END DS    0C                  END OF TYPE 43 SMF RECORD            SM671000



                                   2968+* BEGINNING OF HASP TYPE 45 STOP  HASP RECORD AFTER HDR & SUBSYSTEM HDR SM673000
000024                      00020  2969+         ORG   SMFSSTRT                                                 SM674000
000020                             2970+SMF45END DS    0C                  END OF TYPE 45 RECORD                SM675000


                                   2972+* BEGINNING OF HASP TYPE 47 START SUBSYSTEM EVENT AFTER TWO HEADERS     SM677000


000020                      00020  2974+         ORG   SMFSSTRT                                                 SM679000
000020 0000                        2975+SMF47EVT DC    BL2'0'              EVENT STARTING                       SM680000
000022 0000                        2976+SMF47LN1 DC    BL2'0'              ID SEC LGTH (INCL SMF47LN1)          SM681000

000024 4040404040404040            2977+SMF47RMT DC    CL8' '              REMOTE NAME                          SM682000
00002C 4040404040404040            2978+SMF47LIN DC    CL8' '              LINE NAME                            SM683000
000034 4040404040404040            2979+SMF47PSW DC    CL8' '              PASSWORD                             SM684000
00003C 0000                        2980+SMF47LN2 DC    BL2'0'              MSG SEC LGTH (INCL SMF47LN2)         SM685000
00003E F040404040404040            2981+SMF47MSG DC    CL36'0'             MESSAGE                              SM686000

000062                             2982+SMF47END DS    0C                  END OF TYPE 47 RECORD                SM687000


                                   2984+* BEGINNING OF HASP TYPE 48 STOP  SUBSYSTEM EVENT AFTER TWO HEADERS     SM689000

000062                      00020  2986+         ORG   SMFSSTRT                                                 SM691000
000020 0000                        2987+SMF48EVT DC    BL2'0'              EVENT STOPPING                       SM692000
000022 0000                        2988+SMF48RV1 DC    BL2'0'              RESERVED                             SM693000

000024 4040404040404040            2989+SMF48RMT DC    CL8' '              REMOTE NAME                          SM694000
00002C 4040404040404040            2990+SMF48LIN DC    CL8' '              LINE NAME                            SM695000
000034 4040404040404040            2991+SMF48PSW DC    CL8' '              PASSWORD                             SM696000

00003C                             2992+SMF48END DS    0C                  END OF TYPE 48 RECORD                SM697000





                                   2994+*                             SMFSSID                                   SM699000




                            00002  2996+SMFHSPID EQU   X'0002'             HASP SUBSYSTEM IDENTIFICATION        SM701000
PRPU     HASP SMF BUFFER DSECT                                                                                 PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2998+*                             SMFTYPE & SMFHDRTY                        SM703000



                            000FF  3000+SMFJMRTP EQU   X'FF'               JMR BUFFER                           SM705000
                            00000  3001+SMFRECTP EQU   X'00'               SMF RECORD BUFFER                    SM706000
                            00006  3002+SMFOUTTP EQU   6                   HASP OUTPUT PROCESSOR SMF RECORD TYP SM707000

                            0001A  3003+SMFPRGTP EQU   26                  HASP PURGE RECORD TYPE               SM708000
                            0002B  3004+SMFSSSTP EQU   43                  START SUBSYSTEM RECORD TYPE          SM709000

                            0002D  3005+SMFPSSTP EQU   45                  STOP  SUBSYSTEM RECORD TYPE          SM710000
                            0002F  3006+SMFSSETP EQU   47                  START SUBSYSTEM EVENT ID             SM711000
                            00030  3007+SMFPSETP EQU   48                  STOP  SUBSYSTEM EVENT ID             SM712000






                                   3009+*                             SMF6IOE                                   SM714000



                            00004  3011+SMFDSER  EQU   X'04'               DATA SET ERROR                       SM716000
                            00001  3012+SMFCBER  EQU   X'01'               CONTROL BLOCK READ ERROR             SM717000





                                   3014+*                             SMF26INF                                  SM719000



                            00080  3016+SMFPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              SM721000

                            00040  3017+SMFSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              SM722000

                            00020  3018+SMFTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           SM723000
                            00010  3019+SMFNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    SM724000
                            00008  3020+SMFEXBCH EQU   B'00001000'         EXECUTION BATCHING JOB               SM725000
                            00004  3021+SMFJBOP5 EQU   B'00000100'         RESERVED                             SM726000
                            00002  3022+SMFJBOP6 EQU   B'00000010'         RESERVED                             SM727000

                            00001  3023+SMFOPCAN EQU   B'00000001'         JOB CANCELED BY $C OR $P             SM728000





                                   3025+*                             SMF47EVT & SMF48EVT                       SM730000



                            00001  3027+SMFRMTEV EQU   X'0001'             HASP SIGNON/SIGNOFF SUBSYSTEM EVENT  SM732000
                            00002  3028+SMFLINEV EQU   X'0002'             HASP START/STOP LINE SUBSYSTEM EVENT SM733000
000000                             3029+HASPPRPU CSECT                     END OF HASP SMF BUFFER DSECT         SM734000
PRPU     HASP INPUT/OUTPUT TABLE DSECT                                                                         PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78








000000                             3032+IOTDSECT DSECT                     HASP INPUT/OUTPUT TABLE DSECT        IT116000
000000                             3033+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      IT118000
000058                             3034+IOTFLAGS DS    0BL1                MISCELLANEOUS FLAGS                  IT120000

000058                             3035+IOTIOT   DS    F                   ADDRESS OF NEXT INPUT/OUTPUT TABLE   IT122000
00005C                             3036+IOTTRACK DS    F                   TRACK ADDRESS OF CURRENT IOT         IT124000
000060                             3037+IOTIOTTR DS    F                   TRACK ADDRESS OF NEXT IOT            IT126000
000064                             3038+IOTJCTTR DS    F                   TRACK ADDRESS OF JOB CONTROL TABLE   IT128000
000068                             3039+IOTCYMXM DS    F                   MAXIMUM MTTR FOR CURRENT TRACK GROUP IT130000
00006C                             3040+IOTMTTR  DS    F                   LAST MTTR ALLOCATED                  IT132000
000070                             3041+IOTCYMAP DS    XL100               OUTPUT ALLOCATION BIT MAP            IT134000
0000D4                             3042+IOTPDDBP DS    F                   OFFSET OF NEXT AVAILABLE PDDB SPACE  IT136000
0000D8                             3043+IOTPDDB  DS    0F                  PERIPHERAL DATA DEFINITION BLOCKS    IT138000






                                   3045+*                            IOTFLAGS                                   IT142000



                            00080  3047+IOTWRITE EQU   B'10000000'         CHECKPOINT IOT                       IT146000
                            00040  3048+IOTFLAG1 EQU   B'01000000'         RESERVED                             IT148000

                            00020  3049+IOTFLAG2 EQU   B'00100000'         RESERVED                             IT150000
                            00010  3050+IOTFLAG3 EQU   B'00010000'         RESERVED                             IT152000
                            00008  3051+IOTFLAG4 EQU   B'00001000'         RESERVED                             IT154000
                            00004  3052+IOTFLAG5 EQU   B'00000100'         RESERVED                             IT156000
                            00002  3053+IOTFLAG6 EQU   B'00000010'         RESERVED                             IT158000
                            00001  3054+IOTFLAG7 EQU   B'00000001'         RESERVED                             IT160000





                                   3056+*                                                                       IT164000
                                   3057+*           IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT   IT166000
                                   3058+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  IT168000
                                   3059+*        THE IOT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    IT170000

                                   3060+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    IT172000
                                   3061+*                                                                       IT174000
                            00722  3062+$IOTTEST EQU   1960-IOTPDDB+IOTJCTTR-18                                 IT176000

0000D8 0722                        3063+         DC    Y($IOTTEST)         TEST INSTRUCTION                     IT178000
000000                             3064+HASPPRPU CSECT                     END OF HASP INPUT/OUTPUT TABLE DSECT IT180000
PRPU     HASP JOB OUTPUT ELEMENT DSECT                                                                         PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                             3066+JOEDSECT DSECT                     JOB OUTPUT ELEMENT DSECT             JE230000
                                   3067+*                                                                       JE232000
                                   3068+*        JOE FIELDS - USED AS A WORK ELEMENT                            JE234000
                                   3069+*                                                                       JE236000
000000                             3070+JOENEXT  DS    H                   PTR TO NEXT WORK ELEMENT             JE238000
000002                             3071+JOEFLAG  DS    H                   FLAG BITS                            JE240000
                            00080  3072+$JOEBUSY EQU   X'80'               JOE BUSY FLAG                        JE242000
                            00040  3073+$JOECKV  EQU   X'40'               CHECKPOINT ELEMENT VALID FLAG        JE244000

000004                             3074+JOECHAR  DS    H                   PTR TO CHARACTERISTICS ELEMENT       JE246000

000006                             3075+JOECKPT  DS    H                   PTR TO CHECKPOINT ELEMENT            JE248000
000008                             3076+JOESEC   DS    X                   SECURITY LEVEL OF DATA               JE250000

000009                             3077+JOECPU   DS    X                   CPU ID OF DATA                       JE252000
00000A                             3078+JOEROUT  DS    H                   REMOTE ID OF DATA                    JE254000
                            00080  3079+$JOEIRTE EQU   X'80'               EXPLICIT ROUTING                     JE256000
00000C                             3080+JOERECCT DS    F                   LINE/CARD COUNT FOR THIS JOE         JE258000
000010                             3081+JOEJQE   DS    F                   A(HASP JOB QUEUE ELEMENT)            JE260000
000014                             3082+JOEDEST  DS    H                   DESTINATION CODE FROM PDDB           JE262000
                                   3083+*                                                                       JE264000
                                   3084+*        JOE FIELDS - USED AS A CHARACTERISTICS ELEMENT                 JE266000
                                   3085+*                                                                       JE268000
000016                      00000  3086+         ORG   JOEDSECT            RESET LOCATION TO START OF JOE       JE270000
000000                             3087+         DS    H                   POINTER TO NEXT CHAR-JOE             JE272000
000002                             3088+JOEUSE   DS    H                   # OF JOES USING THIS ELEMENT         JE274000

000004                             3089+JOEFORM  DS    F                   FORMS NUMBER                         JE276000
000008                             3090+JOEFCB   DS    F                   FCB NUMBER                           JE278000

00000C                             3091+JOEUCS   DS    F                   UCS NUMBER                           JE280000

000010                             3092+JOEWTRID DS    CL8                 SPECIAL SYSOUT WRITER ID             JE282000
000018                             3093+JOEACTPR DS    X                   # OF ACTIVE PRINTERS                 JE284000
000019                             3094+JOEACTPU DS    X                   # OF ACTIVE PUNCHES                  JE286000
00001A                             3095+JOEUNUSD DS    H                   UNUSED, PROVIDES 360 WD BNDRY   RFIT JE286005
                                   3096+*                                                                       JE288000
                                   3097+*        JOE FIELDS - USED AS A CHECKPOINT ELEMENT                      JE290000
                                   3098+*                                                                       JE292000
00001C                      00000  3099+         ORG   JOEDSECT            RESET LOCATION TO START OF JOE       JE294000
000000                             3100+JOECKFLG DS    X                   CHECKPOINT FLAGS                     JE296000
000001                             3101+JOECOPY  DS    X                   COPY NUMBER IN PROGRESS              JE298000
000002                             3102+JOEJRCB  DS    H                   DISPL INTO EJECT BUFFER              JE300000
000004                             3103+JOEPDDB  DS    H                   DISPL IN JCT OF PDDB                 JE302000

000006                             3104+JOEPPCT  DS    H                   PDDB PAGE COUNT                      JE304000
000008                             3105+JOETLNC  DS    F                   TOTAL JOE LINE COUNT                 JE306000
00000C                             3106+JOETPCT  DS    F                   TOTAL JOE PAGE COUNT                 JE308000

000010                             3107+JOEMTTR  DS    F                   LAST EJECT BUFFER TRACK ADDRESS      JE310000
000014                             3108+JOEIOTTR DS    F                   CURRENT IOT TRACK ADDRESS            JE312000
000018                      0001C  3109+JOEEND   ORG   ,                                                        JE314000
                            0001C  3110+JOESIZE  EQU   *-JOEDSECT          LENGTH OF MAX JOE                    JE316000
000000                             3111+HASPPRPU CSECT                     END OF JOE DSECT                     JE318000
PRPU     HASP PERIPHERAL DATA DEFINITION BLOCK DSECT                                                           PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                             3113+PDBDSECT DSECT                     HASP PDDB DSECT                      PD122000
000000                             3114+PDBFLAG1 DS    BL1                 FIRST FLAG BYTE ---                  PD124000
                            00080  3115+PDB1FLG2 EQU   B'10000000'         FLAG 2 (OPTIONS FLAG) EXISTS         PD126000
                            00040  3116+PDB1NULL EQU   B'01000000'         THIS IS A NULL PDDB                  PD128000
                            00020  3117+PDB1LOG  EQU   B'00100000'         THIS PDDB IS FOR THE HASP JOB LOG    PD130000

                            00010  3118+PDB1MDES EQU   B'00010000'         THIS PDDB IS FOLLOWED BY OTHERS      PD132000
                                   3119+*                                   INDICATING MULTIPLE DESTINATIONS    PD134000
                            00008  3120+PDB1RSV4 EQU   B'00001000'         RESERVED                             PD136000
                            00004  3121+PDB1RSV5 EQU   B'00000100'         RESERVED                             PD138000

                            00002  3122+PDB1RSV6 EQU   B'00000010'         RESERVED                             PD140000
                            00001  3123+PDB1RSV7 EQU   B'00000001'         RESERVED                             PD142000
000001                             3124+PDBCLASS DS    C                   OUTPUT CLASS OF THIS DATA SET        PD144000
000002                             3125+PDBLENG  DS    X                   LENGTH OF THIS PDDB                  PD146000
000003                             3126+PDBMTTR  DS    0FL4                STARTING TRACK OF THIS DATA SET      PD148000
000003                             3127+PDBSTNR  DS    HL2                 STEP NUMBER OF THIS DATA SET         PD150000

000005                             3128+PDBDDNR  DS    HL2                 DD NUMBER OF THIS DATA SET           PD152000
                            00007  3129+PDBBASLN EQU   *-PDBDSECT          BASIC PDDB LENGTH                    PD154000
                                   3130+*                                                                       PD156000
                                   3131+*              FOLLOWING FIELDS ARE PRESENT ONLY IF PDB1FLG2 IS ONE     PD158000
                                   3132+*                                                                       PD160000
000007                             3133+PDBFLAG2 DS    BL1                 OPTIONAL FIELDS FLAG BYTE ---        PD162000
                            00080  3134+PDB2FORM EQU   B'10000000'         PDBFORMS                             PD164000
                            00040  3135+PDB2FCB  EQU   B'01000000'         PDBFCB                               PD166000

                            00020  3136+PDB2UCS  EQU   B'00100000'         PDBUCS                               PD168000

                            00010  3137+PDB2RECC EQU   B'00010000'         PDBRECCT                             PD170000
                            00008  3138+PDB2MSC1 EQU   B'00001000'         PDBMISC1                             PD172000
                            00004  3139+PDB2MSC2 EQU   B'00000100'         PDBMISC2                             PD174000
                            00003  3140+PDB2WTRI EQU   B'00000011'         PDBWTRID                             PD176000
                            00008  3141+PDBFL2LN EQU   *-PDBDSECT          MINIMUM NON-BASIC LENGTH             PD178000
                                   3142+*                                                                       PD180000
                                   3143+*              EACH OF THE FOLLOWING FOUR-BYTE OPTIONAL FIELDS          PD182000
                                   3144+*              IS PRESENT ONLY IF THE ASSOCIATED BIT IN PDBFLAG2        PD184000
                                   3145+*              IS ONE.                                                  PD186000

                                   3146+*                                                                       PD188000
000008                             3147+PDBFORMS DS    0FL4                FOUR-BYTE FORMS NUMBER               PD190000
000008                             3148+PDBFCB   DS    0FL4                FOUR-BYTE 3211 FCB ID                PD192000
000008                             3149+PDBUCS   DS    0FL4                FOUR-BYTE 1403 OR 3211 UCS ID        PD194000
000008                             3150+PDBRECCT DS    0FL4                FOUR-BYTE OUTPUT RECORD MAXIMUM      PD196000

000008                             3151+PDBMISC1 DS    0FL4                MISCELLANEOUS ---                    PD198000
000008                             3152+PDBSEC   DS    X                   - DATA SET SECURITY ID               PD200000

000009                             3153+PDBINDEX DS    X                   - 3211 FCB INDEX VALUE               PD202000
00000A                             3154+PDBDEST  DS    HL2                 - DATA SET OUTPUT DESTINATION        PD204000
00000C                      00008  3155+         ORG   PDBMISC1                                                 PD206000
000008                             3156+PDBMISC2 DS    0FL4                MISCELLANEOUS ---                    PD208000
000008                             3157+PDBCOPYS DS    X                   - COPIES OF THIS DATA SET            PD210000
000009                             3158+PDBCPU   DS    X                   - CPU ID                             PD212000
00000A                             3159+         DS    2X                  - RESERVED                           PD214000
00000C                      00008  3160+         ORG   PDBMISC2                                                 PD216000

000008                             3161+PDBWTRID DS    0CL8                EIGHT-BYTE OUTPUT WRITER ID          PD218000
000000                             3162+HASPPRPU CSECT                     END OF PDDB DSECT                    PD220000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE PCE WORK AREA DSECT                                                   PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000250                             3164+PCEDSECT DSECT                     HASP OUTPUT PROCESSOR EXECUTIVE      OW170000

000250                      00058  3165+         ORG   PCEWORK             PCE WORK AREA DSECT                  OW172000
000058                             3166+OPJQE    DS    F                                                        OW174000
00005C                             3167+OPDADCT  DS    F                                                        OW176000

000060                             3168+OPJCTBUF DS    F                                                        OW178000
000064                             3169+OPDDB    DS    F                   RESTART PDDB POINTER                 OW180000
000068                             3170+OPTIMEON DS    2F                  OUTPUT PROCESSOR TIME/DATE           OW182000
000070                             3171+OPWORK   DS    (JOESIZE)X          PROTOTYPE WORK-JOE                   OW184000
00008C                             3172+OPCHAR   DS    (JOESIZE)X          PROTOTYPE CHAR-JOE                   OW186000
0000A8                             3173+OPDBEND  DS    F                   1ST FREE PDDB SLOT IN IOT            OW188000
0000AC                             3174+OPIOT    DS    F                   RESTART IOT ADDRESS                  OW190000

0000B0                             3175+OPRECCT  DS    F                   RECORD COUNT FOR CURRENT PDDB        OW192000
0000B4                             3176+OPJOBFRM DS    F                   JOB DEFAULT FORMS ID                 OW194000
0000B8                             3177+OPJOBCPY DS    X                   JOB LEVEL COPY COUNT FROM JCT        OW196000
0000B9                             3178+OPMSGCLS DS    X                   JOB MESSAGE CLASS                    OW198000
0000BA                             3179+OPCKPT   DS    H                   INDEX TO JOE BEING BUILT             OW200000

0000BC                             3180+OPCLASS  DS    X                   CLASS OF ACTIVE JOE                  OW202000
                            00065  3181+OUTWKSIZ EQU   *-PCEWORK           LENGTH OF HOPE PCE WORK AREA         OW204000
000000                             3182+HASPPRPU CSECT                     END OF HOPE PCE WORK AREA DSECT      OW206000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE                                                                       PAGE   65



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3184 *                                                                       P0070000
                                   3185 *                             HOPE REGISTER DEFINITIONS                 P0072000
                                   3186 *                                                                       P0074000



                            00006  3188 JOE      EQU   6                   JOB OUTPUT ELEMENT BASE              P0078000

                            00007  3189 RNP      EQU   7                   NON-PROCESS RETURN REGISTER          P0080000
                            00008  3190 JOT      EQU   8                   JOB OUTPUT TABLE BASE        OY02744 P0082000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  PROCESSOR RESTART FOR AN INTERRUPTED JOB                         PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3192 *                                                                       P0088000

                                   3193 *        RESTART JOB IF OUTPUT PROCESSOR WAS ACTIVE BEFORE BREAK        P0090000
                                   3194 *                                                                       P0092000
                            00000  3195          USING *,BASE2             ACTIVATE HOPE ADDRESSABILITY         P0094000
                                   3196          ENTRY HASPHOPE            ENTRY FOR OUTPUT PROCESSOR           P0096000
000000                             3197 HASPHOPE DS    0H                                                       P0098000

000000 4180 CD60      00D60        3198          LA    JOT,$JOT            LOAD BASE FOR JOB OUTPUT TABLE       P0100000
                            00D60  3199          USING $JOT,JOT            ACTIVATE JOT ADDRESSABILITY          P0102000
                                   3200 *                                                                       P0104000
                                   3201 *        INVOLK CHECKPOINT OF JOB OUTPUT TABLE                          P0106000
                                   3202 *                                                                       P0108000

000004 5810 CD10      00D10        3203          L     R1,=V($CKPTPCE)     ADDRESS CHECKPOINT PCE               P0110000
000008 9602 B0C2      000C2        3204          OI    $STATUS,$JOTCKPT    REQUIRE CHECKPOINT OF JOT            P0112000
                                   3205         $POST  PCEEWF+$EWBWORK-PCEDSECT(R1),WORK FIRE UP CKPT           P0114000
00000C 94DF 1049      00049        3206+         NI    PCEEWF+$EWBWORK-PCEDSECT(R1),255-$EWFWORK                PO008000
000010 947F B0C4      000C4        3207+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000

                                   3208 *                                                                       P0116000
                                   3209 *        POST PRINT/PUNCH ROUTINES WAITING FOR JOT SERVICE              P0118000
                                   3210 *                                                                       P0120000
                                   3211         $POST  $HASPECF,JOT        POST JOT SERVICES AVAILABLE          P0122000
000014 94FE B0C4      000C4        3212+         NI    $HASPECF,255-$EWFJOT                                     PO008000
000018 D601 8000 8000 00D60 00D60  3213          OC    JOTJOBNO,JOTJOBNO   WAS PART OF A JOB IN JOT             P0124000

00001E 4780 C03A      0003A        3214          BZ    OPIDLE              BRANCH IF NO                         P0126000
                                   3215         $QLOC  JOTJOBNO            LOCATE JOB QUEUE ENTRY               P0128000
000022 4810 8000      00D60        3216+         LH    R1,JOTJOBNO                                              DG012000
000026 45E0 B05C      0005C        3217+         BAL   LINK,$QLOC          LINK TO CONTROL SERVICE PROGRAM      QL010000

00002A 4780 C036      00036        3218          BZ    JQELOST             BRANCH IF QUEUE ELEMENT LOST         P0130000
00002E 9680 1001      00001        3219          OI    QUETYPE(R1),QENTBY  SET JOB BUSY REQUEUED                P0132000
000032 47F0 C05C      0005C        3220          B     OPJOB               GO PROCESS JOB                       P0134000
                                   3221 *                                                                       P0136000
                                   3222 *        UNABLE TO LOCATE JOB QUEUE ENTRY FOR AN ACTIVE JOB             P0138000

                                   3223 *                                                                       P0140000
000036                             3224 JQELOST  DS    0H                                                       P0142000
                                   3225         $DISTERR                   INDICATE DISASTROUS ERROR            P0144000
000036 45E0 B0BC      000BC        3226+         BAL   LINK,$DISTERR       LINK TO CONTROL SERVICE PROGRAM      BA008000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  MAINLINE                                                         PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3228 *                                                                       P0148000

                                   3229 *        SELECT NEW JOB FROM OUTPUT QUEUE                               P0150000
                                   3230 *                                                                       P0152000
00003A                             3231 OPIDLE   DS    0H                                                       P0154000

                                   3232         $QGET  $OUTPUT             ATTEMPT TO GET A JOB                 P0156000
00003A 4110 0004      00004        3233+         LA    R1,$OUTPUT                                               DG012000
00003E 45E0 B04C      0004C        3234+         BAL   LINK,$QGET          LINK TO CONTROL SERVICE PROGRAM      QG044000
000042 4770 C052      00052        3235          BNZ   OPSETUP             BRANCH IF NEW JOB FOUND              P0158000
                                   3236 *                                                                       P0160000

                                   3237 *        $QGET NON-PROCESS EXIT ROUTINE                                 P0162000
                                   3238 *                                                                       P0164000
                                   3239         $WAIT  JOB                 WAIT FOR A JOB                       P0166000
000046 9610 D048      00048        3240+         OI    PCEEWF+$EWBJOB,$EWFJOB                                   WA016000
00004A 45F0 B030      00030        3241+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
00004E 47F0 C03A      0003A        3242          B     OPIDLE              TRY AGAIN                            P0168000
                                   3243 *                                                                       P0170000
                                   3244 *        SETUP TO PROCESS NEW JOB                                       P0172000

                                   3245 *                                                                       P0174000
000052                             3246 OPSETUP  DS    0H                                                       P0176000

000052 1B00                        3247          SR    R0,R0               GET CLEAR REG                        P0178000
000054 4000 100E      0000E        3248          STH   R0,QUEJOECT(,R1)    CLEAR PENDING JOE COUNT              P0180000
000058 4000 8002      00D62        3249          STH   R0,JOTCKPT          SET PARTIAL QUEUE TO ZERO            P0182000
00005C                             3250 OPJOB    DS    0H                                                       P0184000
                                   3251         $ACTIVE R=R14              INDICATE PROCESSOR ACTIVE            P0186000

00005C 43E0 B0C7      000C7        3252+         IC    R14,$ACTIVE         INDICATE                             AC006000
000060 41E0 E001      00001        3253+         LA    R14,1(,R14)          PROCESSOR                           AC008000
000064 42E0 B0C7      000C7        3254+         STC   R14,$ACTIVE           ACTIVE                             AC010000
000068 5010 D058      00058        3255          ST    R1,OPJQE            SAVE A(JOB QUEUE ELEMENT)            P0188000
00006C D201 8000 1002 00D60 00002  3256          MVC   JOTJOBNO,QUEJOBNO(R1) HOLD JOB NO IN JOT                 P0190000
000072 1821                        3257          LR    R2,R1               HOLD A(JOB QUEUE ELEMENT)            P0192000
                                   3258         $TIME                      GET SIGN-ON TIME/DATE                P0194000
000074 4110 0001      00001        3259+         LA    1,1(0,0)                          LOAD 1 TO SPECIFY UNIT 00200000
000078 0A0B                        3260+         SVC   11                                ISSUE TIME SVC         00280000

00007A 9001 D068      00068        3261          STM   R0,R1,OPTIMEON      SAVE IN PCE FOR JCT UPDATE           P0196000

00007E 0570                        3262          BALR  RNP,R0              SET N/P EXIT RETURN                  P0198000
                                   3263         $GETUNIT DA,OPUNIT         GET A DA DCT                         P0200000
000080 4110 0000      00000        3264+         LA    R1,DCTDA                                                 DG012000
000084 45E0 B040      00040        3265+         BAL   LINK,$GETUNIT       LINK TO CONTROL SERVICE PROGRAM      GU010000
000088 4780 C5E4      005E4        3266+         BC    8,OPUNIT                                                 NP008000

00008C 5010 D05C      0005C        3267          ST    R1,OPDADCT          SAVE A(DA DCT)                       P0202000
                                   3268 *                                                                       P0204000
                                   3269 *        GET A HASP BUFFER AND READ THE JCT                             P0206000
                                   3270 *                                                                       P0208000
000090 0570                        3271          BALR  RNP,R0              SET N/P EXIT RETURN                  P0210000
                                   3272         $GETBUF OPBUFR             GET A BUFFER FOR THE JCT             P0212000
000092 45E0 B034      00034        3273+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
000096 4780 C5EE      005EE        3274+         BC    8,OPBUFR                                                 NP008000
00009A 5010 D060      00060        3275          ST    R1,OPJCTBUF         SAVE A(JCT BUFFER)                   P0214000
00009E 18A1                        3276          LR    JCT,R1              LOAD JOT BASE                        P0216000

0000A0 5800 2008      00008        3277          L     R0,QUETRAK(,R2)     GET JCT TRACK ADDRESS                P0218000

                                   3278 *        ICM   R1,8,=AL1(DCTREAD)  INDICATE READ OPERATION         RFIT P0220000
0000A4 8910 0008      00008        3279          SLL   R1,8                                                RFIT P0220005
0000A8 8810 0008      00008        3280          SRL   R1,8                                                RFIT P0220010
0000AC 4370 CD56      00D56        3281          IC    RNP,=AL1(DCTREAD)                                   RFIT P0220015

0000B0 8970 0018      00018        3282          SLL   RNP,24                                              RFIT P0220020
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  MAINLINE                                                         PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0000B4 1617                        3283          OR    R1,RNP                                              RFIT P0220025
0000B6 4570 C5F8      005F8        3284          BAL   RNP,OPIOCK          CALL I/O AND CHECK ROUTINE           P0222000
0000BA 12FF                        3285          LTR   R15,R15             WAS READ GOOD                        P0224000
0000BC 4770 C0D6      000D6        3286          BNZ   JCTLOST             BRANCH IF NO                         P0226000
0000C0 5810 A058      00058        3287          L     R1,JCTJQE           JOB QUEUE ELEMENT OFFSET             P0228000
0000C4 5A10 B13C      0013C        3288          A     R1,$JOBQPTR         ADD JOB QUEUE ORIGIN                 P0230000
                                   3289 *        CLM   R1,7,OPJQE+1        IS JOB CONTROL TABLE VALID      RFIT P0232000
0000C8 5010 CD04      00D04        3290          ST    R1,DARTSCR1                                         RFIT P0232005

0000CC D502 CD05 D059 00D05 00059  3291          CLC   DARTSCR1+1(3),OPJQE+1                               RFIT P0232010
0000D2 4780 C10E      0010E        3292          BE    JCTOK               BRANCH IF YES                        P0234000
                                   3293 *                                                                       P0236000
                                   3294 *        JCT INVALID - NOTIFY THE OPERATOR                              P0238000

                                   3295 *                                                                       P0240000
0000D6                             3296 JCTLOST  DS    0H                                                       P0242000
                                   3297         $DISTERR                   INDICATE DISASTROUS ERROR            P0244000
0000D6 45E0 B0BC      000BC        3298+         BAL   LINK,$DISTERR       LINK TO CONTROL SERVICE PROGRAM      BA008000
                                   3299         $FREUNIT OPDADCT           FREE DA DCT                          P0246000
0000DA 5810 D05C      0005C        3300+         L     R1,OPDADCT                                               DG012000
0000DE 45E0 B044      00044        3301+         BAL   LINK,$FREUNIT       LINK TO CONTROL SERVICE PROGRAM      BA008000
                                   3302         $FREEBUF OPJCTBUF          FREE JCT BUFFER                      P0248000
0000E2 5810 D060      00060        3303+         L     R1,OPJCTBUF                                              DG012000
0000E6 45E0 B03C      0003C        3304+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
0000EA 5810 D058      00058        3305          L     R1,OPJQE            ADDRESS JOB QUEUE ELEMENT            P0250000
                                   3306         $QPUT  (R1),$PURGE         PUT JOB INTO THE PURGE QUEUE         P0252000

0000EE 4100 0000      00000        3307+         LA    R0,$PURGE                                                DG012000
0000F2 45E0 B050      00050        3308+         BAL   LINK,$QPUT          LINK TO CONTROL SERVICE PROGRAM      BA008000
                                   3309         $DORMANT                   INDICATE PROCESSOR DORMANT           P0254000

0000F6 4310 B0C7      000C7        3310+         IC    R1,$ACTIVE          INDICATE                             DO006000
0000FA 0610                        3311+         BCTR  R1,0                 PROCESSOR                           DO008000
0000FC 4210 B0C7      000C7        3312+         STC   R1,$ACTIVE            INACTIVE                           DO010000
000100 1B00                        3313          SR    R0,R0               GET CLEAR REG                        P0256000
000102 4000 8000      00D60        3314          STH   R0,JOTJOBNO         CLEAR ACTIVE JOB NO                  P0258000
000106 4000 8002      00D62        3315          STH   R0,JOTCKPT          CLEAR PARTIAL QUEUE NO               P0260000
00010A 47F0 C03A      0003A        3316          B     OPIDLE              TRY TO GET ANOTHER JOB               P0262000
                                   3317 *                                                                       P0264000
                                   3318 *        JCT VALID - PREPARE TO BUILD JOE'S                             P0266000
                                   3319 *                                                                       P0268000
00010E                             3320 JCTOK    DS    0H                                                       P0270000
00010E D200 D0B8 A0B5 000B8 000B5  3321          MVC   OPJOBCPY,JCTCPYCT   JOB LEVEL COPY COUNT                 P0272000

000114 9500 D0B8      000B8        3322          CLI   OPJOBCPY,0          ZERO JOB COPIES REQUESTED    OY02728 P0272500

000118 4770 C120      00120        3323          BNE   *+8                 BRANCH IF NO                 OY02728 P0273000
00011C 9201 D0B8      000B8        3324          MVI   OPJOBCPY,1          ASSUME ONE COPY              OY02728 P0273500

                                   3325          CLI   OPJOBCPY,&JCOPYLM   TOO MANY JOB COPIES REQUESTED        P0274000
000120 9514 D0B8      000B8        3326+         CLI   OPJOBCPY,20         TOO MANY JOB COPIES REQUESTED        P0274000
000124 47D0 C12C      0012C        3327          BNH   *+8                 BRANCH IF NO                         P0276000
                                   3328          MVI   OPJOBCPY,&JCOPYLM   USE HASPGEN MAXIMUM                  P0278000
000128 9214 D0B8      000B8        3329+         MVI   OPJOBCPY,20         USE HASPGEN MAXIMUM                  P0278000
00012C D200 D0B9 A08C 000B9 0008C  3330          MVC   OPMSGCLS,JCTMCLAS   JOB MESSAGE CLASS                    P0280000
000132 D203 D0B4 A0B0 000B4 000B0  3331          MVC   OPJOBFRM,JCTFORMS   DEFAULT JOB FORMS                    P0282000
                                   3332 *                                                                       P0284000
                                   3333 *        READ CHAIN OF IOT'S                                            P0286000
                                   3334 *                                                                       P0288000
000138 1B33                        3335          SR    R3,R3               CLEAR PREVIOUS BUFFER POINTER        P0290000
00013A 5800 A05C      0005C        3336          L     R0,JCTIOTTR         1ST IOT TRACK ADDRESS                P0292000

00013E 5810 D060      00060        3337          L     R1,OPJCTBUF         ADDRESS OF 1ST BUFFER                P0294000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  MAINLINE                                                         PAGE   69



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000142                             3338 OPIOTRD  DS    0H                                                       P0296000
000142 18A1                        3339          LR    JCT,R1              LOAD BASE FOR IOT                    P0298000
                            00000  3340          USING IOTDSECT,JCT        ACTIVATE IOT ADDRESSABILITY          P0300000
                                   3341 *        ICM   R1,8,=AL1(DCTREAD)  INDICATE READ OPERATION         RFIT P0302000
000144 8910 0008      00008        3342          SLL   R1,8                                                RFIT P0302005
000148 8810 0008      00008        3343          SRL   R1,8                                                RFIT P0302010
00014C 4370 CD56      00D56        3344          IC    RNP,=AL1(DCTREAD)                                   RFIT P0302015
000150 8970 0018      00018        3345          SLL   RNP,24                                              RFIT P0302020
000154 1617                        3346          OR    R1,RNP                                              RFIT P0302025
000156 4570 C5F8      005F8        3347          BAL   RNP,OPIOCK          CALL I/O AND CHECK ROUTINE           P0304000
00015A D503 A064 2008 00064 00008  3348          CLC   IOTJCTTR,QUETRAK(R2) IS IOT VALID                        P0306000
000160 4780 C17A      0017A        3349          BE    IOTOK               BRANCH IF YES                        P0308000

                                   3350 *                                                                       P0310000
                                   3351 *        IOT CHECK WORD DOES NOT CONTAIN JCT TRACK ADDRESS              P0312000
                                   3352 *                                                                       P0314000

000164 1233                        3353          LTR   R3,R3               IS AT LEAST 1 IOT VALID              P0316000
000166 4780 C0D6      000D6        3354          BZ    JCTLOST             BRANCH IF NO - FLUSH JOB             P0318000
                                   3355         $DISTERR                   INDICATE DISASTROUS ERROR            P0320000
00016A 45E0 B0BC      000BC        3356+         BAL   LINK,$DISTERR       LINK TO CONTROL SERVICE PROGRAM      BA008000
                                   3357         $FREEBUF (JCT)             FREE BUFFER OF INVALID IOT           P0322000
00016E 181A                        3358+         LR    R1,JCT                                                   DG018000
000170 45E0 B03C      0003C        3359+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
000174 18A3                        3360          LR    JCT,R3              ADDRESS LAST VALID IOT               P0324000
000176 47F0 C198      00198        3361          B     PDBSCAN             PROCESS WHAT IS LEFT                 P0326000
                                   3362 *                                                                       P0328000
                                   3363 *        IOT CHECK WORD CONTAINS JCT TRACK ADDRESS                      P0330000
                                   3364 *                                                                       P0332000

00017A                             3365 IOTOK    DS    0H                                                       P0334000
                                   3366 *        ICM   R0,15,IOTIOTTR      LOAD AND TEST NEXT TRACK        RFIT P0336000
00017A 5800 A060      00060        3367          L     R0,IOTIOTTR                                         RFIT P0336005

00017E 1200                        3368          LTR   R0,R0                                               RFIT P0336010
000180 4780 C198      00198        3369          BZ    PDBSCAN             BRANCH IF NO MORE IOT'S              P0338000
000184 0570                        3370          BALR  RNP,R0              SET N/P EXIT RETURN                  P0340000
                                   3371         $GETBUF OPBUFR             GET A BUFFER FOR THE NEXT IOT        P0342000
000186 45E0 B034      00034        3372+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
00018A 4780 C5EE      005EE        3373+         BC    8,OPBUFR                                                 NP008000
00018E 5010 A058      00058        3374          ST    R1,IOTIOT           CHAIN TO PREVIOUS IOT                P0344000
000192 183A                        3375          LR    R3,JCT              HOLD PREVIOUS IOT BASE               P0346000
000194 47F0 C142      00142        3376          B     OPIOTRD             CONTINUE READING IOT'S               P0348000
                                   3377 *                                                                       P0350000
                                   3378 *        ALL VALID IOTS HAVE BEEN READ - START PDDB SCAN                P0352000
                                   3379 *                                                                       P0354000

000198                             3380 PDBSCAN  DS    0H                                                       P0356000
000198 D703 A058 A058 00058 00058  3381          XC    IOTIOT,IOTIOT       ZERO CHAIN POINTER OF LAST IOT       P0358000
00019E D701 D0BA D0BA 000BA 000BA  3382          XC    OPCKPT,OPCKPT       ZERO CHECKPOINT JOE INDEX            P0360000
0001A4 58A0 D060      00060        3383          L     JCT,OPJCTBUF        ADDRESS 1ST IOT                      P0362000

0001A8                             3384 PDBIOT   DS    0H                                                       P0364000
0001A8 4120 A0D8      000D8        3385          LA    R2,IOTPDDB          ADDRESS 1ST PDDB IN IOT              P0366000
                            00000  3386          USING PDBDSECT,R2         ACTIVATE PDDB ADDRESSABILITY         P0368000
0001AC 5830 A0D4      000D4        3387          L     R3,IOTPDDBP         OFFSET AFTER LAST PDDB               P0370000
0001B0 1A3A                        3388          AR    R3,JCT              ADD CURRENT BUFFER ORIGIN            P0372000
0001B2 5030 D0A8      000A8        3389          ST    R3,OPDBEND          SAVE IN PCE                          P0374000

0001B6                             3390 PDBNEXT  DS    0H                                                       P0376000
0001B6 D703 D064 D064 00064 00064  3391          XC    OPDDB,OPDDB         CLEAR RESTART POINTER                P0378000
0001BC 5920 D0A8      000A8        3392          C     R2,OPDBEND          END OF PDDBS ID THIS IOT             P0380000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  MAINLINE                                                         PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0001C0 4770 C1D2      001D2        3393          BNE   PDBPDB              BRANCH IF NO                         P0382000
                                   3394 *        ICM   JCT,15,IOTIOT       LOAD AND TEST IOT CHAIN         RFIT P0384000
0001C4 58A0 A058      00058        3395          L     JCT,IOTIOT                                          RFIT P0384005

0001C8 12AA                        3396          LTR   JCT,JCT                                             RFIT P0384010
0001CA 4780 C4F6      004F6        3397          BZ    OPQPUT              BRANCH IF NO MORE IOTS               P0386000

0001CE 47F0 C1A8      001A8        3398          B     PDBIOT              SETUP NEW IOT ADDRESSES              P0388000
0001D2                             3399 PDBPDB   DS    0H                                                       P0390000
0001D2 9140 2000      00000        3400          TM    PDBFLAG1,PDB1NULL   IS THIS A NULL PDDB                  P0392000
0001D6 4780 C1E6      001E6        3401          BZ    PDBJOE              BRANCH IF NO - BUILD JOES            P0394000
0001DA 1B33                        3402          SR    R3,R3               GET ZERO REGISTER                    P0396000
0001DC 4330 2002      00002        3403          IC    R3,PDBLENG          LENGTH OF CURRENT PDDB               P0398000
0001E0 1A23                        3404          AR    R2,R3               STEP PDDB BASE TO NEXT PDDB          P0400000
0001E2 47F0 C1B6      001B6        3405          B     PDBNEXT             CONTINUE SCAN                        P0402000

0001E6                             3406 PDBJOE   DS    0H                                                       P0404000
0001E6 D200 D0BC 2001 000BC 00001  3407          MVC   OPCLASS,PDBCLASS    SYSOUT CLASS OF CURRENT PDDB         P0406000
                            00000  3408          USING JOEDSECT,JOE        ACTIVATE JOE ADDRESSABILITY          P0408000
0001EC 4160 D070      00070        3409          LA    JOE,OPWORK          ADDRESS PROTOTYPE WORK-JOE           P0410000
0001F0 D71B 6000 6000 00000 00000  3410          XC    JOENEXT(JOESIZE),JOENEXT ZERO PROTOTYPE WORK-JOE         P0412000

0001F6 5830 D058      00058        3411          L     R3,OPJQE            ADDRESS JOB QUEUE ELEMENT            P0414000
0001FA 5B30 B13C      0013C        3412          S     R3,$JOBQPTR         MINUS JOB QUEUE ORIGIN               P0416000
0001FE 5030 6010      00010        3413          ST    R3,JOEJQE           STORE INTO WORK-JOE                  P0418000

000202 4160 D08C      0008C        3414          LA    JOE,OPCHAR          ADDRESS CHAR-JOE                     P0420000
000206 D71B 6000 6000 00000 00000  3415          XC    JOENEXT(JOESIZE),JOENEXT ZERO PROTOTYPE CHAR-JOE         P0422000
00020C 1B55                        3416          SR    R5,R5               INDEX TO 1ST OPTIONAL FIELD          P0424000
00020E 1B77                        3417          SR    RNP,RNP             SELECT NO OPTION FIELD FLAGS         P0426000
000210 9180 2000      00000        3418          TM    PDBFLAG1,PDB1FLG2   AYN OPTIONAL FIELDS PRESENT          P0428000
000214 4780 C220      00220        3419          BZ    DART01A             BRANCH IF NO                    RFIT P0430000
                                   3420 *        ICM   RNP,8,PDBFLAG2      SELECT OPTION FLAGS             RFIT P0432000

000218 4370 2007      00007        3421          IC    RNP,PDBFLAG2                                        RFIT P0432005
00021C 8970 0018      00018        3422          SLL   RNP,24                                              RFIT P0432010
                            00220  3423 DART01A  EQU   *                                                   RFIT P0432015
                                   3424 *                                                                       P0434000
                                   3425 *        PROCESS FORMS ID                                               P0436000

                                   3426 *                                                                       P0438000
000220 4130 D0B4      000B4        3427          LA    R3,OPJOBFRM         SELECT DEFAULT FORMS ID              P0440000
000224 1E77                        3428          ALR   RNP,RNP             TEST PDB2FORM FLAG                   P0442000
000226 47C0 C232      00232        3429          BC    12,OP1FORM          BRANCH IF ZERO                       P0444000

00022A 4135 2008      00008        3430          LA    R3,PDBFORMS(R5)     SELECT SPECIFIED FORMS ID            P0446000
00022E 4150 5004      00004        3431          LA    R5,L'PDBFORMS(,R5)  INCREMENT OPTIONAL FIELD INDEX       P0448000
000232                             3432 OP1FORM  DS    0H                                                       P0450000
000232 D203 6004 3000 00004 00000  3433          MVC   JOEFORM,0(R3)       STORE FORMS ID IN CHAR-JOE           P0452000
                                   3434 *                                                                       P0454000
                                   3435 *        PROCESS FCB ID                                                 P0456000

                                   3436 *                                                                       P0458000
                                   3437          LA    R3,=CL4'&PRTFCB'    SELECT DEFAULT FCB ID                P0460000
000238 4130 CD14      00D14        3438+         LA    R3,=CL4'6'          SELECT DEFAULT FCB ID                P0460000
00023C 1E77                        3439          ALR   RNP,RNP             TEST PDB2FCB FLAG                    P0462000
00023E 47C0 C24A      0024A        3440          BC    12,OP1FCB           BRANCH IF ZERO                       P0464000

000242 4135 2008      00008        3441          LA    R3,PDBFCB(R5)       SELECT SPECIFIED FCB ID              P0466000
000246 4150 5004      00004        3442          LA    R5,L'PDBFCB(,R5)    INCREMENT OPTIONAL FIELD INDEX       P0468000
00024A                             3443 OP1FCB   DS    0H                                                       P0470000
00024A D203 6008 3000 00008 00000  3444          MVC   JOEFCB,0(R3)        STORE FCB ID IN CHAR-JOE             P0472000
                                   3445 *                                                                       P0474000

                                   3446 *        PROCESS UCSB ID                                                P0476000
                                   3447 *                                                                       P0478000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  MAINLINE                                                         PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000250 4130 CD18      00D18        3448          LA    R3,=CL4'****'       SELECT STANDARD UCSB ID              P0480000

000254 1E77                        3449          ALR   RNP,RNP             TEST PDB2UCS FLAG                    P0482000
000256 47C0 C262      00262        3450          BC    12,OP1UCS           BRANCH IF ZERO                       P0484000
00025A 4135 2008      00008        3451          LA    R3,PDBUCS(R5)       SELECT SPECIFIED UCSB ID             P0486000
00025E 4150 5004      00004        3452          LA    R5,L'PDBUCS(,R5)    INCREMENT OPTIONAL FIELD INDEX       P0488000
000262                             3453 OP1UCS   DS    0H                                                       P0490000

000262 D203 600C 3000 0000C 00000  3454          MVC   JOEUCS,0(R3)        STORE UCSB ID IN CHAR-JOE            P0492000
                                   3455 *                                                                       P0494000
                                   3456 *        PROCESS MAXIMUM RECORD COUNT FIELD                             P0496000
                                   3457 *                                                                       P0498000
000268 4130 CD1C      00D1C        3458          LA    R3,=F'1000'         SELECT DEFAULT MAXIMUM COUNT         P0500000
00026C 1E77                        3459          ALR   RNP,RNP             TEST PDB2RECC FLAG                   P0502000

00026E 47C0 C27A      0027A        3460          BC    12,OP1RECC          BRANCH IF ZERO                       P0504000
000272 4135 2008      00008        3461          LA    R3,PDBRECCT(R5)     SELECT SPECIFIED MAXIMUM COUNT       P0506000
000276 4150 5004      00004        3462          LA    R5,L'PDBRECCT(,R5)  INCREMENT OPTIONAL FIELD INDEX       P0508000
00027A                             3463 OP1RECC  DS    0H                                                       P0510000

00027A D203 D0B0 3000 000B0 00000  3464          MVC   OPRECCT,0(R3)       SAVE MAXIMUM RECORD COUNT            P0512000
                                   3465 *                                                                       P0514000
                                   3466 *        PROCESS SECURITY LEVEL                                         P0516000
                                   3467 *                                                                       P0518000
000280 4130 CD57      00D57        3468          LA    R3,=X'00'           SELECT DEFAULT SECURITY LEVEL        P0520000

000284 1277                        3469          LTR   RNP,RNP             TEST PDB2MSC1 FLAG                   P0522000
000286 47B0 C28E      0028E        3470          BNM   OP1SEC              BRANCH IF ZERO/PLUS                  P0524000
00028A 4135 2008      00008        3471          LA    R3,PDBSEC(R5)       SELECT SPECIFIED SECURITY            P0526000
00028E                             3472 OP1SEC   DS    0H                                                       P0528000
00028E 4160 D070      00070        3473          LA    JOE,OPWORK          ADDRESS WORK-JOE                     P0530000
000292 D200 6008 3000 00008 00000  3474          MVC   JOESEC,0(R3)        STORE SECURITY IN WORK-JOE           P0532000
                                   3475 *                                                                       P0534000

                                   3476 *        PROCESS ROUTE SPECIFICATION                                    P0536000
                                   3477 *                                                                       P0538000
000298 4130 CD48      00D48        3478          LA    R3,=X'8000'         SELECT DEFAULT ROUTING               P0540000

00029C 1E77                        3479          ALR   RNP,RNP             TEST PDB2MSC1 FLAG                   P0542000
00029E 47C0 C2AA      002AA        3480          BC    12,OP1ROUT          BRANCH IF ZERO                       P0544000
0002A2 4135 200A      0000A        3481          LA    R3,PDBDEST(R5)      SELECT SPECIFIED ROUTING             P0546000
0002A6 4150 5004      00004        3482          LA    R5,L'PDBMISC1(,R5)  INCREMENT OPTIONAL FIELD INDEX       P0548000
0002AA                             3483 OP1ROUT  DS    0H                                                       P0550000

0002AA D201 600A 3000 0000A 00000  3484          MVC   JOEROUT,0(R3)       STORE ROUTE IN WORK-JOE              P0552000
0002B0 D201 6014 3000 00014 00000  3485          MVC   JOEDEST,0(R3)       STORE DEST IN WORK-JOE               P0554000
0002B6 58F0 D058      00058        3486          L     R15,OPJQE           ADDRESS JOB QUEUE ELEMENT            P0556000
0002BA 9104 F004      00004        3487          TM    QUEFLAGS(R15),QUEOPRTE $R ALL GIVEN                      P0558000
0002BE 47E0 C2C6      002C6        3488          BNO   *+8                 BRANCH IF NO                         P0560000
0002C2 9680 600A      0000A        3489          OI    JOEROUT,$JOEIRTE    SET INDIRECT ROUTE FLAG              P0562000
                                   3490 *                                                                       P0564000
                                   3491 *        PROCESS DATA SET COPY COUNT                                    P0566000

                                   3492 *                                                                       P0568000
0002C6 4130 CD58      00D58        3493          LA    R3,=X'01'           SELECT DEFAULT DATA SET COPY         P0570000

0002CA 1277                        3494          LTR   RNP,RNP             TEST PDB2MSC2 FLAG                   P0572000
0002CC 47B0 C2D4      002D4        3495          BNM   OP1COPYS            BRANCH IF ZERO/PLUS                  P0574000
0002D0 4135 2008      00008        3496          LA    R3,PDBCOPYS(R5)     SELECT SPECIFIED COPY COUNT          P0576000
0002D4                             3497 OP1COPYS DS    0H                                                       P0578000
0002D4 1BFF                        3498          SR    R15,R15             GET CLEAR REGISTER                   P0580000

0002D6 43F3 0000      00000        3499          IC    R15,0(R3)           GET DATA SET COPY COUNT              P0582000
0002DA 5CE0 D0B0      000B0        3500          M     R14,OPRECCT         MULTIPLY BY LINES PER DATA SET       P0584000
0002DE 5AF0 600C      0000C        3501          A     R15,JOERECCT        ADD PREVIOUS LINES                   P0586000
0002E2 50F0 600C      0000C        3502          ST    R15,JOERECCT        SAVE TOTAL LINE COUNT                P0588000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  MAINLINE                                                         PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3503 *                                                                       P0590000
                                   3504 *        PROCESS CPU ID                                                 P0592000
                                   3505 *                                                                       P0594000

0002E6 4130 CD57      00D57        3506          LA    R3,=X'00'           SELECT DEFAULT CPU ID                P0596000

0002EA 1E77                        3507          ALR   RNP,RNP             TEST PDB2MSC2 FLAG                   P0598000
0002EC 47C0 C2F8      002F8        3508          BC    12,OP1CPU           BRANCH IF ZERO                       P0600000
0002F0 4135 2009      00009        3509          LA    R3,PDBCPU(R5)       SELECT SPECIFIED CPU ID              P0602000
0002F4 4150 5004      00004        3510          LA    R5,L'PDBMISC2(,R5)  INCREMENT OPTIONAL FIELD INDEX       P0604000
0002F8                             3511 OP1CPU   DS    0H                                                       P0606000

0002F8 D200 6009 3000 00009 00000  3512          MVC   JOECPU,0(R3)        STORE CPU ID IN WORK-JOE             P0608000
                                   3513 *                                                                       P0610000
                                   3514 *        PROCESS SPECIAL SYSOUT WRITER ID                               P0612000
                                   3515 *                                                                       P0614000
0002FE 4130 CD08      00D08        3516          LA    R3,=C'HASPPRPU'     SELECT DEFAULT WRITER ID             P0616000
000302 1E77                        3517          ALR   RNP,RNP             TEST PDB2WTRI FLAG                   P0618000
000304 47C0 C30C      0030C        3518          BC    12,OP1WTRI          BRANCH IF ZERO                       P0620000
000308 4135 2008      00008        3519          LA    R3,PDBWTRID(R5)     SELECT SPECIFIED WRITER ID           P0622000
00030C                             3520 OP1WTRI  DS    0H                                                       P0624000
00030C 4160 D08C      0008C        3521          LA    JOE,OPCHAR          ADDRESS CHAR-JOE                     P0626000

000310 D207 6010 3000 00010 00000  3522          MVC   JOEWTRID,0(R3)      STORE WRITER ID IN CHAR-JOE          P0628000

000316                             3523 OPTNSET  DS    0H                                                       P0630000
000316 1B77                        3524          SR    RNP,RNP             CLEAR REGISTER                       P0632000
000318 4370 D0B8      000B8        3525          IC    RNP,OPJOBCPY        JOB LEVEL COPY COUNT                 P0634000
00031C                             3526 OPJCOPY  DS    0H                                                       P0636000

00031C 4850 D0BA      000BA        3527          LH    R5,OPCKPT           GET INDEX FOR LAST JOE BUILT         P0638000
000320 4150 5001      00001        3528          LA    R5,1(,R5)           INCREMENT FOR THIS JOE               P0640000
000324 4950 8002      00D62        3529          CH    R5,JOTCKPT          HAS THIS JOE ALREADY BEEN ADDED      P0642000
000328 47D0 C36E      0036E        3530          BNH   OPSKIP              BRANCH IF YES                        P0644000
00032C                             3531 OPJOTADD DS    0H                                                       P0646000
00032C 5810 D058      00058        3532          L     R1,OPJQE            ADDRESS HASP JOB QUEUE ELEMENT       P0648000
000330 9110 1004      00004        3533          TM    QUEFLAGS(R1),QUEPURGE TEST FOR A DELETED JOB             P0650000
000334 4710 C4F6      004F6        3534          BO    OPQPUT              BRANCH IF YES                        P0652000
000338 4100 D070      00070        3535          LA    R0,OPWORK           PROTOTYPE WORK-JOE                   P0654000
00033C 4110 D08C      0008C        3536          LA    R1,OPCHAR           PROTOTYPE CHAR-JOE                   P0656000
                                   3537         $#ADD  WORK=(R0),CHAR=(R1),CLAS=OPCLASS ADD WORK TO JOT         P0658000

                                   3538+*        ICM   R0,8,&CLAS          CLASS QUEUE ID TO BYTE 0        RFIT AD020000
000340 8900 0008      00008        3539+         SLL   R0,8                                                RFIT AD020005
000344 8800 0008      00008        3540+         SRL   R0,8                                                RFIT AD020010
000348 43F0 D0BC      000BC        3541+         IC    R15,OPCLASS                                         RFIT AD020015

00034C 89F0 0018      00018        3542+         SLL   R15,24                                              RFIT AD020020
000350 160F                        3543+         OR    R0,R15                                              RFIT AD020025
000352 58F0 CD20      00D20        3544+         L     R15,=V($#ADD)       BASE FOR $#ADD SUBROUTINE            AD030000
000356 05EF                        3545+         BALR  R14,R15             GIVE IT A TRY                        AD044000
000358 12FF                        3546          LTR   R15,R15             WAS QUEUE ADD SUCCESSFUL             P0660000
00035A 4780 C36A      0036A        3547          BZ    OPADOK              BRANCH IF YES                        P0662000
                                   3548         $WAIT  JOT                 WAIT FOR JOT SERVICE                 P0664000
00035E 9601 D048      00048        3549+         OI    PCEEWF+$EWBJOT,$EWFJOT                                   WA016000
000362 45F0 B030      00030        3550+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000366 47F0 C32C      0032C        3551          B     OPJOTADD            TRY AGAIN                            P0666000
00036A                             3552 OPADOK   DS    0H                                                       P0668000
00036A 4050 8002      00D62        3553          STH   R5,JOTCKPT          SAVE IN JOT FOR WARM START           P0670000

00036E                             3554 OPSKIP   DS    0H                                                       P0672000
00036E 4050 D0BA      000BA        3555          STH   R5,OPCKPT           SAVE IN PCE FOR NEXT JOE             P0674000
000372 4670 C31C      0031C        3556          BCT   RNP,OPJCOPY         BRANCH FOR ALL JOB COPIES            P0676000

000376 9640 2000      00000        3557          OI    PDBFLAG1,PDB1NULL   SET PDDB PROCESSED BIT               P0678000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  MAINLINE                                                         PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3558 *                                                                       P0680000
                                   3559 *        SCAN REMAINING PDDB'S FOR A CHARACTERISTICS MATCH              P0682000
                                   3560 *                                                                       P0684000
00037A                             3561 DDBNEXT  DS    0H                                                       P0686000
00037A 1B55                        3562          SR    R5,R5               GET ZERO REGISTER                    P0688000
00037C 4350 2002      00002        3563          IC    R5,PDBLENG          LENGTH OF CURRENT PDDB               P0690000
000380 1A25                        3564          AR    R2,R5               STEP PDDB BASE TO NEXT PDDB          P0692000
000382                             3565 DDBIOT   DS    0H                                                       P0694000
000382 5920 D0A8      000A8        3566          C     R2,OPDBEND          END OF PDDBS IN THIS IOT             P0696000

000386 4770 C3A6      003A6        3567          BNE   DDBPDB              BRANCH IF NO                         P0698000

                                   3568 *        ICM   JCT,15,IOTIOT       LOAD AND TEST IOT CHAIN         RFIT P0700000
00038A 58A0 A058      00058        3569          L     JCT,IOTIOT                                          RFIT P0700005

00038E 12AA                        3570          LTR   JCT,JCT                                             RFIT P0700010
000390 4780 C4DA      004DA        3571          BZ    DDBEND              BRANCH IF NO MORE IOTS               P0702000
000394 4120 A0D8      000D8        3572          LA    R2,IOTPDDB          ADDRESS 1ST PDDB IN IOT              P0704000
000398 5830 A0D4      000D4        3573          L     R3,IOTPDDBP         OFFSET AFTER LAST PDDB               P0706000
00039C 1A3A                        3574          AR    R3,JCT              ADD BUFFER ORIGIN                    P0708000
00039E 5030 D0A8      000A8        3575          ST    R3,OPDBEND          SAVE IN PCE                          P0710000
0003A2 47F0 C382      00382        3576          B     DDBIOT              PROCESS PDDBS IN THIS IOT            P0712000
0003A6                             3577 DDBPDB   DS    0H                                                       P0714000
0003A6 9140 2000      00000        3578          TM    PDBFLAG1,PDB1NULL   IS THIS A NULL PDDB                  P0716000
0003AA 4710 C37A      0037A        3579          BO    DDBNEXT             BRANCH IF YES                        P0718000
                                   3580 *                                                                       P0720000
                                   3581 *        CHECK SYSOUT CLASS                                             P0722000

                                   3582 *                                                                       P0724000
0003AE D500 2001 D0BC 00001 000BC  3583          CLC   PDBCLASS,OPCLASS    DOES SYSOUT CLASS MATCH              P0726000

0003B4 4770 C4C4      004C4        3584          BNE   DDBSTEP             BRANCH IF NO                         P0728000

                                   3585 *                                                                       P0730000
                                   3586 *        SETUP FOR CHARACTERISTICS MATCH TEST                           P0732000
                                   3587 *                                                                       P0734000
0003B8 1B55                        3588          SR    R5,R5               INDEX TO 1ST OPTIONAL FIELD          P0736000
0003BA 1B77                        3589          SR    RNP,RNP             SELECT NO OPTION FIELD FLAGS         P0738000
0003BC 9180 2000      00000        3590          TM    PDBFLAG1,PDB1FLG2   AYN OPTIONAL FIELDS PRESENT          P0740000
0003C0 4780 C3CC      003CC        3591          BZ    DART01B             BRANCH IF NO                    RFIT P0742000
                                   3592 *        ICM   RNP,8,PDBFLAG2      SELECT OPTION FLAGS             RFIT P0744000
0003C4 4370 2007      00007        3593          IC    RNP,PDBFLAG2                                        RFIT P0744005
0003C8 8970 0018      00018        3594          SLL   RNP,24                                              RFIT P0744010
                            003CC  3595 DART01B  EQU   *                                                   RFIT P0744015
                                   3596 *                                                                       P0746000

                                   3597 *        CHECK FORMS ID                                                 P0748000
                                   3598 *                                                                       P0750000

0003CC 4130 D0B4      000B4        3599          LA    R3,OPJOBFRM         SELECT DEFAULT FORMS ID              P0752000

0003D0 1E77                        3600          ALR   RNP,RNP             TEST PDB2FORM FLAG                   P0754000
0003D2 47C0 C3DE      003DE        3601          BC    12,OP2FORM          BRANCH IF ZERO                       P0756000
0003D6 4135 2008      00008        3602          LA    R3,PDBFORMS(R5)     SELECT SPECIFIED FORMS ID            P0758000
0003DA 4150 5004      00004        3603          LA    R5,L'PDBFORMS(,R5)  INCREMENT OPTIONAL FIELD INDEX       P0760000
0003DE                             3604 OP2FORM  DS    0H                                                       P0762000
0003DE 4160 D08C      0008C        3605          LA    JOE,OPCHAR          ADDRESS CHAR-JOE                     P0764000
                                   3606          AIF   (NOT &DMNDSET).OPFORM IS DEMAND SETUP ALLOWED            P0766000
0003E2 D500 2001 D0B9 00001 000B9  3607          CLC   PDBCLASS,OPMSGCLS   SYSOUT CLASS = MSGCLASS              P0768000
0003E8 4780 C3F2      003F2        3608          BE    *+10                BRANCH IF YES - DEMAND SETUP         P0770000
                                   3609 .OPFORM  ANOP                                                           P0772000
0003EC D503 6004 3000 00004 00000  3610          CLC   JOEFORM,0(R3)       DOES FORMS ID MATCH                  P0774000
0003F2 4770 C4C4      004C4        3611          BNE   DDBSTEP             BRANCH IF NO                         P0776000

                                   3612 *                                                                       P0778000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  MAINLINE                                                         PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   3613 *        CHECK FCB ID                                                   P0780000
                                   3614 *                                                                       P0782000
                                   3615          LA    R3,=CL4'&PRTFCB'    SELECT DEFAULT FCB ID                P0784000
0003F6 4130 CD14      00D14        3616+         LA    R3,=CL4'6'          SELECT DEFAULT FCB ID                P0784000
0003FA 1E77                        3617          ALR   RNP,RNP             TEST PDB2FCB FLAG                    P0786000
0003FC 47C0 C408      00408        3618          BC    12,OP2FCB           BRANCH IF ZERO                       P0788000
000400 4135 2008      00008        3619          LA    R3,PDBFCB(R5)       SELECT SPECIFIED FCB ID              P0790000
000404 4150 5004      00004        3620          LA    R5,L'PDBFCB(,R5)    INCREMENT OPTIONAL FIELD INDEX       P0792000
000408                             3621 OP2FCB   DS    0H                                                       P0794000
                                   3622          AIF   (NOT &DMNDSET).OPFCB  IS DEMAND SETUP ALLOWED            P0796000
000408 D500 2001 D0B9 00001 000B9  3623          CLC   PDBCLASS,OPMSGCLS   SYSOUT CLASS = MSGCLASS              P0798000
00040E 4780 C418      00418        3624          BE    *+10                BRANCH IF YES - DEMAND SETUP         P0800000

                                   3625 .OPFCB   ANOP                                                           P0802000
000412 D503 6008 3000 00008 00000  3626          CLC   JOEFCB,0(R3)        DOES FCB ID MATCH                    P0804000
000418 4770 C4C4      004C4        3627          BNE   DDBSTEP             BRANCH IF NO                         P0806000
                                   3628 *                                                                       P0808000

                                   3629 *        CHECK UCSB ID                                                  P0810000
                                   3630 *                                                                       P0812000
00041C 4130 CD18      00D18        3631          LA    R3,=CL4'****'       SELECT STANDARD UCSB ID              P0814000
000420 1E77                        3632          ALR   RNP,RNP             TEST PDB2UCS FLAG                    P0816000
000422 47C0 C42E      0042E        3633          BC    12,OP2UCS           BRANCH IF ZERO                       P0818000
000426 4135 2008      00008        3634          LA    R3,PDBUCS(R5)       SELECT SPECIFIED UCSB ID             P0820000

00042A 4150 5004      00004        3635          LA    R5,L'PDBUCS(,R5)    INCREMENT OPTIONAL FIELD INDEX       P0822000
00042E                             3636 OP2UCS   DS    0H                                                       P0824000
                                   3637          AIF   (NOT &DMNDSET).OPUCSB IS DEMAND SETUP ALLOWED            P0826000
00042E D500 2001 D0B9 00001 000B9  3638          CLC   PDBCLASS,OPMSGCLS   SYSOUT CLASS = MSGCLASS              P0828000
000434 4780 C43E      0043E        3639          BE    *+10                BRANCH IF YES - DEMAND SETUP         P0830000
                                   3640 .OPUCSB  ANOP                                                           P0832000
000438 D503 600C 3000 0000C 00000  3641          CLC   JOEUCS,0(R3)        DOES UCSB ID MATCH                   P0834000
00043E 4770 C4C4      004C4        3642          BNE   DDBSTEP             BRANCH IF NO                         P0836000

                                   3643 *                                                                       P0838000
                                   3644 *        SKIP MAXIMUM RECORD COUNT FIELD                                P0840000

                                   3645 *                                                                       P0842000
000442 1E77                        3646          ALR   RNP,RNP             TEST PDB2RECC FLAG                   P0844000
000444 47C0 C44C      0044C        3647          BC    12,OP2RECC          BRANCH IF ZERO                       P0846000
000448 4150 5004      00004        3648          LA    R5,L'PDBRECCT(,R5)  INCREMENT OPTIONAL FIELD INDEX       P0848000
00044C                             3649 OP2RECC  DS    0H                                                       P0850000
                                   3650 *                                                                       P0852000
                                   3651 *        CHECK SECURITY LEVEL                                           P0854000
                                   3652 *                                                                       P0856000

00044C 4130 CD57      00D57        3653          LA    R3,=X'00'           SELECT DEFAULT SECURITY LEVEL        P0858000
000450 1277                        3654          LTR   RNP,RNP             TEST PDB2MSC1 FLAG                   P0860000
000452 47B0 C45A      0045A        3655          BNM   OP2SEC              BRANCH IF ZERO/PLUS                  P0862000
000456 4135 2008      00008        3656          LA    R3,PDBSEC(R5)       SELECT SPECIFIED SECURITY            P0864000
00045A                             3657 OP2SEC   DS    0H                                                       P0866000

00045A 4160 D070      00070        3658          LA    JOE,OPWORK          ADDRESS WORK-JOE                     P0868000
00045E D500 6008 3000 00008 00000  3659          CLC   JOESEC,0(R3)        DOES SECURITY LEVEL MATCH            P0870000
000464 4770 C4C4      004C4        3660          BNE   DDBSTEP             BRANCH IF NO                         P0872000

                                   3661 *                                                                       P0874000
                                   3662 *        CHECK ROUTE SPECIFICATION                                      P0876000
                                   3663 *                                                                       P0878000
000468 4130 CD48      00D48        3664          LA    R3,=X'8000'         SELECT DEFAULT ROUTING               P0880000
00046C 1E77                        3665          ALR   RNP,RNP             TEST PDB2MSC1 FLAG                   P0882000
00046E 47C0 C47A      0047A        3666          BC    12,OP2ROUT          BRANCH IF ZERO                       P0884000
000472 4135 200A      0000A        3667          LA    R3,PDBDEST(R5)      SELECT SPECIFIED ROUTING             P0886000

PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  MAINLINE                                                         PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000476 4150 5004      00004        3668          LA    R5,L'PDBMISC1(,R5)  INCREMENT OPTIONAL FIELD INDEX       P0888000
00047A                             3669 OP2ROUT  DS    0H                                                       P0890000
00047A D501 6014 3000 00014 00000  3670          CLC   JOEDEST,0(R3)       DOES DESTINATION MATCH               P0892000

000480 4770 C4C4      004C4        3671          BNE   DDBSTEP             BRANCH IF NO                         P0894000
                                   3672 *                                                                       P0896000
                                   3673 *        CHECK CPU ID                                                   P0898000
                                   3674 *                                                                       P0900000

000484 4130 CD57      00D57        3675          LA    R3,=X'00'           SELECT DEFAULT CPU ID                P0902000
000488 1E77                        3676          ALR   RNP,RNP             TEST PDB2MSC2 FLAG                   P0904000
00048A 47C0 C496      00496        3677          BC    12,OP2CPU           BRANCH IF ZERO                       P0906000
00048E 4135 2009      00009        3678          LA    R3,PDBCPU(R5)       SELECT SPECIFIED CPU ID              P0908000
000492 4150 5004      00004        3679          LA    R5,L'PDBMISC2(,R5)  INCREMENT OPTIONAL FIELD INDEX       P0910000
000496                             3680 OP2CPU   DS    0H                                                       P0912000

000496 D500 6009 3000 00009 00000  3681          CLC   JOECPU,0(R3)        DOES CPU ID MATCH                    P0914000
00049C 4770 C4C4      004C4        3682          BNE   DDBSTEP             BRANCH IF NO                         P0916000
                                   3683 *                                                                       P0918000
                                   3684 *        CHECK SPECIAL SYSOUT WRITER ID                                 P0920000
                                   3685 *                                                                       P0922000

0004A0 4130 CD08      00D08        3686          LA    R3,=C'HASPPRPU'     SELECT DEFAULT WRITER ID             P0924000
0004A4 1E77                        3687          ALR   RNP,RNP             TEST PDB2WTRI FLAG                   P0926000
0004A6 47C0 C4AE      004AE        3688          BC    12,OP2WTRI          BRANCH IF ZERO                       P0928000
0004AA 4135 2008      00008        3689          LA    R3,PDBWTRID(R5)     SELECT SPECIFIED WRITER ID           P0930000
0004AE                             3690 OP2WTRI  DS    0H                                                       P0932000

0004AE 4160 D08C      0008C        3691          LA    JOE,OPCHAR          ADDRESS CHAR-JOE                     P0934000
0004B2 D507 6010 3000 00010 00000  3692          CLC   JOEWTRID,0(R3)      DOES WRITER ID MATCH                 P0936000
0004B8 4770 C4C4      004C4        3693          BNE   DDBSTEP             BRANCH IF NO                         P0938000
0004BC                             3694 OPMATCH  DS    0H                                                       P0940000
0004BC 9640 2000      00000        3695          OI    PDBFLAG1,PDB1NULL   SET PDDB PROCESSED BIT               P0942000

0004C0 47F0 C37A      0037A        3696          B     DDBNEXT             GO PROCESS NEXT PDDB                 P0944000
                                   3697 *                                                                       P0946000
                                   3698 *        CHARACTERISTICS DO NOT MATCH                                   P0948000
                                   3699 *                                                                       P0950000
0004C4                             3700 DDBSTEP  DS    0H                                                       P0952000

0004C4 D603 D064 D064 00064 00064  3701          OC    OPDDB,OPDDB         RESTART POINT SELECTED               P0954000
0004CA 4770 C37A      0037A        3702          BNZ   DDBNEXT             BRANCH IF YES                        P0956000
0004CE 5020 D064      00064        3703          ST    R2,OPDDB            SET PDDB AS RESTART POINT            P0958000
0004D2 50A0 D0AC      000AC        3704          ST    JCT,OPIOT           AND SAVE IOT BUFFER ADDRESS          P0960000
0004D6 47F0 C37A      0037A        3705          B     DDBNEXT             CONTINUE SCAN OF PDDB'S              P0962000
                                   3706 *                                                                       P0964000

                                   3707 *        END OF PDDB LIST - ARE ALL PROCESSED                           P0966000
                                   3708 *                                                                       P0968000
0004DA                             3709 DDBEND   DS    0H                                                       P0970000
                                   3710 *        ICM   R2,15,OPDDB         IS RESTART ADDRESS ZERO         RFIT P0972000

0004DA 5820 D064      00064        3711          L     R2,OPDDB                                            RFIT P0972005
0004DE 1222                        3712          LTR   R2,R2                                               RFIT P0972010
0004E0 4780 C4F6      004F6        3713          BZ    OPQPUT              BRANCH IF YES                        P0974000
0004E4 58A0 D0AC      000AC        3714          L     JCT,OPIOT           RESTART IOT BASE                     P0976000
0004E8 5830 A0D4      000D4        3715          L     R3,IOTPDDBP         OFFSET AFTER LAST PDDB               P0978000

0004EC 1A3A                        3716          AR    R3,JCT              ADD BUFFER ORIGIN                    P0980000
0004EE 5030 D0A8      000A8        3717          ST    R3,OPDBEND          SAVE IN PCE                          P0982000
0004F2 47F0 C1B6      001B6        3718          B     PDBNEXT             CONTINUE PDDB SCAN                   P0984000
                                   3719 *                                                                       P0986000
                                   3720 *        ALL PDDBS HAVE BEEN PROCESSED - MAKE JOB AVAILABLE             P0988000
                                   3721 *                                                                       P0990000
0004F6                             3722 OPQPUT   DS    0H                                                       P0992000

PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  MAINLINE                                                         PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0004F6 5820 D058      00058        3723          L     R2,OPJQE            ADDRESS JOB QUEUE ELEMENT            P0994000

0004FA                             3724 OPJCTGET DS    0H                                                       P0996000
0004FA 9102 2004      00004        3725          TM    QUEFLAGS(R2),QUEJCTSW IS JCT AVAILABLE                   P0998000
0004FE 47E0 C50A      0050A        3726          BNO   OPJCTHAV            BRANCH IF YES                        P1000000
                                   3727         $WAIT  ABIT                STALL FOR A LOOP                     P1002000
000502 45F0 B030      00030        3728+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

000506 47F0 C4FA      004FA        3729          B     OPJCTGET            TRY AGAIN FOR THE JCT                P1004000
00050A                             3730 OPJCTHAV DS    0H                                                       P1006000
00050A 9602 2004      00004        3731          OI    QUEFLAGS(R2),QUEJCTSW SET JCT BUSY BIT                   P1008000
00050E 5810 D060      00060        3732          L     R1,OPJCTBUF         ADDRESS 1ST BUFFER                   P1010000
000512 18A1                        3733          LR    JCT,R1              LOAD JCT/IOT BASE                    P1012000
000514 D203 D060 A058 00060 00058  3734          MVC   OPJCTBUF,IOTIOT     SAVE CHAIN POINTER                   P1014000
                            00000  3735          USING JCTDSECT,JCT        ACTIVATE JCT ADDRESSABILITY          P1016000
                                   3736 *        ICM   R1,8,=AL1(DCTREAD)  INDICATE READ OPERATION         RFIT P1018000

00051A 8910 0008      00008        3737          SLL   R1,8                                                RFIT P1018005
00051E 8810 0008      00008        3738          SRL   R1,8                                                RFIT P1018010

000522 4300 CD56      00D56        3739          IC    R0,=AL1(DCTREAD)                                    RFIT P1018015
000526 8900 0018      00018        3740          SLL   R0,24                                               RFIT P1018020
00052A 1610                        3741          OR    R1,R0                                               RFIT P1018025
00052C 5802 0008      00008        3742          L     R0,QUETRAK(R2)      TRACK ADDRESS OF JCT                 P1020000
000530 4570 C5F8      005F8        3743          BAL   RNP,OPIOCK          CALL I/O AND CHECK ROUTINE           P1022000

000534 12FF                        3744          LTR   R15,R15             WAS READ SUCCESSFUL                  P1024000
000536 4770 C57C      0057C        3745          BNZ   OPNOJCT             BRANCH IF NO                         P1026000
00053A 5830 A058      00058        3746          L     R3,JCTJQE           OFFSET OF JOB QUEUE ELEMENT          P1028000
00053E 5A30 B13C      0013C        3747          A     R3,$JOBQPTR         ADD JOB QUEUE ORIGIN                 P1030000
                                   3748 *        CLM   R3,7,OPJQE+1        IS JCT VALIT                    RFIT P1032000
000542 5030 CD04      00D04        3749          ST    R3,DARTSCR1                                         RFIT P1032002
000546 D502 CD05 D059 00D05 00059  3750          CLC   DARTSCR1+1(3),OPJQE+1                               RFIT P1032010
00054C 4770 C57C      0057C        3751          BNE   OPNOJCT             BRANCH IF NO                         P1034000
000550 D207 A0CC D068 000CC 00068  3752          MVC   JCTOUTON(8),OPTIMEON HOPE SIGN-ON TIME/DATE      OY07285 P1036000

                                   3753         $TIME                      SIGN-OFF TIME/DATE                   P1038000

000556 4110 0001      00001        3754+         LA    1,1(0,0)                          LOAD 1 TO SPECIFY UNIT 00200000
00055A 0A0B                        3755+         SVC   11                                ISSUE TIME SVC         00280000
00055C 9001 A0D4      000D4        3756          STM   R0,R1,JCTOUTOF      HOPE SIGN-OFF TIME/DATE              P1040000
000560 181A                        3757          LR    R1,JCT              JCT BUFFER BASE FOR WRITE            P1042000
000562 5802 0008      00008        3758          L     R0,QUETRAK(R2)      TRACK ADDRESS OF JCT                 P1044000

                                   3759 *        ICM   R1,8,=AL1(DCTWRITE) VALIDATE WRITE OPERATION        RFIT P1046000
000566 8910 0008      00008        3760          SLL   R1,8                                                RFIT P1046005
00056A 8810 0008      00008        3761          SRL   R1,8                                                RFIT P1046010
00056E 4370 CD59      00D59        3762          IC    RNP,=AL1(DCTWRITE)                                  RFIT P1046015
000572 8970 0018      00018        3763          SLL   RNP,24                                              RFIT P1046020
000576 1617                        3764          OR    R1,RNP                                              RFIT P1046025
000578 4570 C5F8      005F8        3765          BAL   RNP,OPIOCK          CALL I/O AND CHECK ROUTINE           P1048000
                            00000  3766          USING IOTDSECT,JCT        ACTIVATE IOT ADDRESSABILITY          P1050000
00057C                             3767 OPNOJCT  DS    0H                                                       P1052000
00057C D203 A058 D060 00058 00060  3768          MVC   IOTIOT,OPJCTBUF     PUT BUFFER BACK IN CHAIN             P1054000

000582 50A0 D060      00060        3769          ST    JCT,OPJCTBUF        JCT BUFFER AT HEAD                   P1056000

000586 94FD 2004      00004        3770          NI    QUEFLAGS(R2),255-QUEJCTSW RELEASE JCT                    P1058000
00058A 9110 2004      00004        3771          TM    QUEFLAGS(R2),QUEPURGE HAS PURGE BIT BEEN SET             P1060000
00058E 4710 C5AA      005AA        3772          BO    OPTERM              BRANCH IF YES                        P1062000
000592 1812                        3773          LR    R1,R2               COPY JOB QUEUE ELEMENT ADDRESS       P1064000

000594 4100 0000      00000        3774          LA    R0,$PURGE           SET NEXT QUEUE AS $PURGE             P1066000
000598 D601 100E 100E 0000E 0000E  3775          OC    QUEJOECT(2,R1),QUEJOECT(R1) IS JOE COUNT ZERO            P1068000
00059E 4780 C5A6      005A6        3776          BZ    *+8                 BRANCH IF YES                        P1070000
0005A2 4100 0002      00002        3777          LA    R0,$HARDCPY         SET NEXT QUEUE AS $HARDCPY           P1072000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  MAINLINE                                                         PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3778         $QPUT  (R1),(R0)           MOVE JOB TO NEXT QUEUE               P1074000
0005A6 45E0 B050      00050        3779+         BAL   LINK,$QPUT          LINK TO CONTROL SERVICE PROGRAM      BA008000
0005AA                             3780 OPTERM   DS    0H                                                       P1076000
                                   3781         $FREUNIT OPDADCT           FREE DA DCT                          P1078000
0005AA 5810 D05C      0005C        3782+         L     R1,OPDADCT                                               DG012000

0005AE 45E0 B044      00044        3783+         BAL   LINK,$FREUNIT       LINK TO CONTROL SERVICE PROGRAM      BA008000
0005B2                             3784 OPBUFREE DS    0H                                                       P1080000
                                   3785 *        ICM   JCT,15,OPJCTBUF     LOAD AND TEST BUFFER POINTER    RFIT P1082000
0005B2 58A0 D060      00060        3786          L     JCT,OPJCTBUF                                        RFIT P1082005

0005B6 12AA                        3787          LTR   JCT,JCT                                             RFIT P1082010
0005B8 4780 C5CC      005CC        3788          BZ    OPPURGE             BRANCH IF ZERO                       P1084000
0005BC D203 D060 A058 00060 00058  3789          MVC   OPJCTBUF,IOTIOT     COPY NEXT BUFFER POINTER             P1086000
                                   3790         $FREEBUF (JCT)             FREE IOT BUFFER CHAIN                P1088000
0005C2 181A                        3791+         LR    R1,JCT                                                   DG018000
0005C4 45E0 B03C      0003C        3792+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
0005C8 47F0 C5B2      005B2        3793          B     OPBUFREE            CONTINUE TO END OF CHAIN             P1090000
0005CC                             3794 OPPURGE  DS    0H                                                       P1092000
0005CC 1B00                        3795          SR    R0,R0               GET A CLEAR REG                      P1094000
0005CE 4000 8000      00D60        3796          STH   R0,JOTJOBNO         CLEAR ACTIVE JOB POINTER             P1096000
0005D2 4000 8002      00D62        3797          STH   R0,JOTCKPT          CLEAR PARTIAL QUEUE                  P1098000
                                   3798         $DORMANT                   INDICATE PROCESSOR DORMANT           P1100000

0005D6 4310 B0C7      000C7        3799+         IC    R1,$ACTIVE          INDICATE                             DO006000
0005DA 0610                        3800+         BCTR  R1,0                 PROCESSOR                           DO008000
0005DC 4210 B0C7      000C7        3801+         STC   R1,$ACTIVE            INACTIVE                           DO010000

0005E0 47F0 C03A      0003A        3802          B     OPIDLE              TRY TO GET ANOTHER JOB               P1102000
                                   3803          DROP  R2                  SUSPEND PDDB ADDRESSABILITY          P1104000
                                   3804          DROP  JOE                 SUSPEND JOE ADDRESSABILITY           P1106000
                                   3805          DROP  JOT                 SUSPEND JOT ADDRESSABILITY           P1108000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  NON-PROCESS EXIT ROUTINES                                        PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3807 *                                                                       P1114000
                                   3808 *        $GETUNIT NON-PROCESS EXIT ROUTINE                              P1116000
                                   3809 *                                                                       P1118000
0005E4                             3810 OPUNIT   DS    0H                                                       P1120000
                                   3811         $WAIT  UNIT                WAIT FOR A UNIT TO BEE FREED         P1122000
0005E4 9608 D048      00048        3812+         OI    PCEEWF+$EWBUNIT,$EWFUNIT                                 WA016000

0005E8 45F0 B030      00030        3813+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
0005EC 07F7                        3814          BR    RNP                 TRY AGAIN                            P1124000
                                   3815 *                                                                       P1126000

                                   3816 *        $GETBUF NON-PROCESS EXIT ROUTINE                               P1128000
                                   3817 *                                                                       P1130000
0005EE                             3818 OPBUFR   DS    0H                                                       P1132000
                                   3819         $WAIT  BUF                 WAIT FOR A BUFFER TO BE FREED        P1134000
0005EE 9640 D048      00048        3820+         OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000
0005F2 45F0 B030      00030        3821+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
0005F6 07F7                        3822          BR    RNP                 TRY AGAIN                            P1136000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  READ/WRITE AND CHECK SUBROUTINE                                  PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3824 *                                                                       P1142000
                                   3825 *        BUFFER READ/WRITE AND CHECK SUBROUTINE                         P1144000
                                   3826 *                                                                       P1146000

0005F8                             3827 OPIOCK   DS    0H                                                       P1148000

                            00000  3828          USING BUFDSECT,R1         ACTIVATE BUFFER ADDRESSABILITY       P1150000
0005F8 58E0 D05C      0005C        3829          L     R14,OPDADCT         GET A(DA DCT)                        P1152000

                            00000  3830          USING DCTDSECT,R14        ACTIVATE DCT ADDRESSABILITY          P1154000
0005FC 41F0 D049      00049        3831          LA    R15,PCEEWF+$EWBIO   SET ADDRESS OF                       P1156000
000600 50F0 E00C      0000C        3832          ST    R15,DCTEWF          EVENT WAIT FIELD INTO DCT            P1158000
                                   3833 *        STCM  R1,8,DCTIOTYP       SET TYPE TO READ OR WRITE       RFIT P1160000
000604 5010 CD04      00D04        3834          ST    R1,DARTSCR1                                         RFIT P1160005
000608 D200 E013 CD04 00013 00D04  3835          MVC   DCTIOTYP(1),DARTSCR1                                RFIT P1160010
00060E 41F0 1038      00038        3836          LA    R15,IOBCCW1         RESET IOBSTART                       P1162000
000612 50F0 1010      00010        3837          ST    R15,IOBSTART        FOR READ                             P1164000
                                   3838          DROP  R1                  SUSPEND BUFFER ADDRESSABILITY        P1166000
000616 5010 E004      00004        3839          ST    R1,DCTBUFAD         BUFFER ADDRESS TO DCT                P1168000
00061A 5000 E008      00008        3840          ST    R0,DCTSEEK          TRACK ADDRESS TO DCT                 P1170000
00061E 181E                        3841          LR    R1,R14              SETUP FOR EXCP                       P1172000

                                   3842          DROP  R14                 SUSPEND DCT ADDRESSABILITY           P1174000
                                   3843         $EXCP  (R1)                READ BUFFER                          P1176000

000620 45E0 B06C      0006C        3844+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000

                                   3845 *                                                                       P1178000
                                   3846 *        CHECK BUFFER READ                                              P1180000
                                   3847 *                                                                       P1182000
000624 5810 D05C      0005C        3848          L     R1,OPDADCT          GET DCT ADDRESS                      P1184000
                            00000  3849          USING DCTDSECT,R1         ACTIVATE DCT ADDRESSABILITY          P1186000
000628 5810 1004      00004        3850          L     R1,DCTBUFAD         GET BUFFER ADDRESS                   P1188000
                                   3851          DROP  R1                  SUSPEND DCT ADDREWSABILITY           P1190000
                            00000  3852          USING BUFDSECT,R1         ACTIVATE BUFFER ADDRESSABILITY       P1192000
00062C                             3853 OPRDCK2  DS    0H                                                       P1194000
00062C 917F 1028      00028        3854          TM    BUFECBCC,X'7F'      TEST FOR I/O COMPLETE                P1196000
000630 4710 C64A      0064A        3855          BO    OPRDOK              BRANCH IF READ OK                    P1198000
000634 4770 C644      00644        3856          BNZ   OPRDER              BRANCH IF READ ERROR                 P1200000

                                   3857         $WAIT  IO                  WAIT FOR I/O COMPLETE POST           P1202000
000638 9640 D049      00049        3858+         OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
00063C 45F0 B030      00030        3859+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

000640 47F0 C62C      0062C        3860          B     OPRDCK2             TRY AGAIN                            P1204000
                                   3861 *                                                                       P1206000
                                   3862 *        READ ERROR INDICATED BY COMPLETION CODE                        P1208000
                                   3863 *                                                                       P1210000
000644                             3864 OPRDER   DS    0H                                                       P1212000
                                   3865         $IOERROR (R1)              LOG I/O ERROR                        P1214000
000644 45E0 B0B4      000B4        3866+         BAL   LINK,$IOERROR       LINK TO CONTROL SERVICE PROGRAM      BA008000
000648 05F7                        3867          BALR  R15,RNP             RETURN WITH ERROR CODE               P1216000
                                   3868 *                                                                       P1218000
                                   3869 *        READ SUCCESSFUL INDICATED BY COMPLETION CODE                   P1220000
                                   3870 *                                                                       P1222000
00064A                             3871 OPRDOK   DS    0H                                                       P1224000

00064A 1BFF                        3872          SR    R15,R15             SET GOOD RETURN CODE                 P1226000
00064C 07F7                        3873          BR    RNP                 RETURN TO CALLER                     P1228000
                                   3874          DROP  R1                  SUSPEND BUFFER ADDRESSABILITY        P1230000
                                   3875          DROP  BASE2               SUSPEND LOCAL ADDRESSABILITY         P1232000

PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE ADD SUBROUTINE                                             PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3877 *                                                                       P1238000
                                   3878 *        ADD AN ENTRY TO THE RESIDENT JOB OUTPUT TABLE                  P1240000
                                   3879 *                                                                       P1242000
00064E                             3880 ADCHK    DS    0H                                                       P1244000

                                   3881         $WAIT  CKPT                WAIT FOR CHECKPOINT TO COMPLETE      P1246000
00064E 9604 D048      00048        3882+         OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
000652 45F0 B030      00030        3883+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                            00656  3884          USING *,R15               ACTIVATE LOCAL ADDRESSABILITY        P1248000
                                   3885          ENTRY $#ADD               FOR REFERENCE BY OTHER MODULES       P1250000
000656                             3886 $#ADD    DS    0H                                                       P1252000
000656 9110 B0C2      000C2        3887          TM    $STATUS,$CKPTACT    IS CHECKPOINT ACTIVE                 P1254000
00065A 4780 F00E      00664        3888          BZ   ADCKPT               BRANCH IF NO                         P1256000

00065E 58F0 F6CE      00D24        3889          L     R15,=A(ADCHK)       ADDRESS OF WAIT                      P1258000
000662 07FF                        3890          BR    R15                 BRANCH TO WAIT                       P1260000

                                   3891 *                                                                       P1262000
                                   3892 *                                                                       P1264000
                                   3893 *                                                                       P1266000
000664                             3894 ADCKPT   DS    0H                                                       P1268000
000664 55E0 F6D2      00D28        3895          CL    R14,=F'4096'        TEST RETURN ADDRESS                  P1270000
000668 4720 F018      0066E        3896          BH    *+6                 BRANCH IF ABSOLUTE                   P1272000
00066C 1EE8                        3897          ALR   R14,BASE3           COMPUTE ABSOLUTE RETURN ADDRESS      P1274000
00066E 902C D01C      0001C        3898          STM   R2,R12,PCEWA        SAVE CALLER'S REGS IN HIS PCE        P1276000

000672 4180 F70A      00D60        3899          LA    JOT,$JOT            LOAD JOB OUTPUT TABLE BASE           P1278000
                                   3900 *                                                                       P1280000
                                   3901 *        ARE THERE ENOUGH AVAILABLE JOE'S TO CONTINUE THIS REQUEST      P1282000
                                   3902 *                                                                       P1284000
000676 4820 F70E      00D64        3903          LH    R2,JOTFREC          NUMBER OF AVAILABLE JOE'S            P1286000

00067A 0620                        3904          BCTR  R2,R0               JOE FOR A CHAR-JOE                   P1288000
00067C 0620                        3905          BCTR  R2,R0               JOE FOR A WORK-JOE                   P1290000
00067E 4920 F710      00D66        3906          CH    R2,JOTFREL          BELOW MINIMUM FREE LIMIT             P1292000

000682 47B0 F03A      00690        3907          BNL   ADDOK               BRANCH IF NO                         P1294000
                                   3908 *                                                                       P1296000
                                   3909 *        REQUEST MUST BE RETRYED LATER                                  P1298000
                                   3910 *                                                                       P1300000
000686 41F0 0004      00004        3911          LA    R15,4               SET NON-PROCESS INDICATION           P1302000
00068A 982C D01C      0001C        3912          LM    R2,R12,PCEWA        RELOAD CALLER'S REGISTERS            P1304000
00068E 07FE                        3913          BR    R14                 RETURN TO CALLER                     P1306000

                                   3914 *                                                                       P1308000
                                   3915 *        SAVE CALLER'S REGS - EXAMINE CHARACTERISTICS QUEUE             P1310000
                                   3916 *                                                                       P1312000
000690                             3917 ADDOK    DS    0H                                                       P1314000
000690 4860 F714      00D6A        3918          LH    JOE,JOTCHRQ         CHARACTERISTICS QUEUE 1ST DISPL      P1316000

                                   3919 *                                                                       P1318000
                                   3920 *        SCAN CHARACTERISTICS QUEUE FOR A MATCH WITH THIS REQUEST       P1320000
                                   3921 *                                                                       P1322000
000694                             3922 ADCHQSCN DS    0H                                                       P1324000

000694 1266                        3923          LTR   JOE,JOE             IS THIS THE END OF THE QUEUE         P1326000
000696 4780 F05A      006B0        3924          BZ    ADBLDC              BRANCH IF YES                        P1328000
00069A 4166 8000      00000        3925          LA    JOE,0(JOE,JOT)      ADDRESS CHAR-JOE                     P1330000
                            00000  3926          USING JOEDSECT,JOE        ACTIVATE JOE ADDRESSABILITY          P1332000
00069E D513 6004 1004 00004 00004  3927          CLC   JOEFORM(20),4(R1)   DOES JOE MATCH NEW REQUEST           P1334000
0006A4 4780 F0A6      006FC        3928          BE    ADCHEHIT            BRANCH IF YES                        P1336000

0006A8 4860 6000      00000        3929          LH    JOE,JOENEXT         GET NEXT ELEMENT DISPL               P1338000
0006AC 47F0 F03E      00694        3930          B     ADCHQSCN            LOOP THROUGH CHAR QUEUE              P1340000
                                   3931 *                                                                       P1342000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE ADD SUBROUTINE                                             PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   3932 *        GET A JOE IN WHICH TO BUILD A NEW CHAR-JOE                     P1344000
                                   3933 *                                                                       P1346000
0006B0                             3934 ADBLDC   DS    0H                                                       P1348000
0006B0 4570 F62C      00C82        3935          BAL   RNP,GETJOE          GET AN AVAILABLE JOE                 P1350000
0006B4 4163 8000      00000        3936          LA    JOE,0(R3,JOT)       ADDRESS OF FREE JOE                  P1352000

                                   3937 *                                                                       P1354000
                                   3938 *        INITIALIZE NEW CHARACTERISTICS ELEMENT WITH CALLER'S DATA      P1356000
                                   3939 *                                                                       P1358000
0006B8 1B33                        3940          SR    R3,R3               GET A ZERO REGISTER                  P1360000
0006BA 4030 6002      00002        3941          STH   R3,JOEUSE           CLEAR USE COUNT                      P1362000

0006BE D213 6004 1004 00004 00004  3942          MVC   JOEFORM(20),4(R1)   MOVE IN USER DATA                    P1364000
0006C4 D701 6018 6018 00018 00018  3943          XC    JOEACTPR(2),JOEACTPR CLEAR ACTIVE DEVICE COUNTERS        P1366000
0006CA 4120 F714      00D6A        3944          LA    R2,JOTCHRQ          ADDRESS OF CHAR-JOE QUEUE            P1368000
0006CE                             3945 ADCHSCN  DS    0H                                                       P1370000
0006CE 4830 2000      00000        3946          LH    R3,0(,R2)           DISPL OF NEXT CHAR-JOE               P1372000

0006D2 1233                        3947          LTR   R3,R3               CHAR-QUEUE END                       P1374000
0006D4 4780 F096      006EC        3948          BZ    ADCHINS             BRANCH IF YES                        P1376000
0006D8 4133 8000      00000        3949          LA    R3,0(R3,JOT)        ADDRESS OF NEXT CHAR-JOE             P1378000
0006DC D513 6004 3004 00004 00004  3950          CLC   JOEFORM(20),JOEFORM-JOEDSECT(R3) NEW CHAR-JOE FIT        P1380000
0006E2 4740 F096      006EC        3951          BL    ADCHINS             BRANCH IF YES                        P1382000
0006E6 1823                        3952          LR    R2,R3               STEP TO NEXT CHAR-QUEUE ENTRY        P1384000

0006E8 47F0 F078      006CE        3953          B     ADCHSCN             CONTINUE CHAR-QUEUE SCAN             P1386000
0006EC                             3954 ADCHINS  DS    0H                                                       P1388000
0006EC 4840 2000      00000        3955          LH    R4,JOENEXT-JOEDSECT(,R2) GET OLD NEXT ENTRY              P1390000
0006F0 4040 6000      00000        3956          STH   R4,JOENEXT          STORE INTO NEW ELEMENT               P1392000

0006F4 1846                        3957          LR    R4,JOE              COPY NEW ELEMENT ADDR                P1394000
0006F6 1B48                        3958          SR    R4,JOT              DISPL OF NEW ELEMENT                 P1396000
0006F8 4040 2000      00000        3959          STH   R4,JOENEXT-JOEDSECT(,R2) INTO PREVIOUS ELEMENT           P1398000
                                   3960 *                                                                       P1400000
                                   3961 *        CHAR-JOE FOUND/BUILT - CONNECT WORK-JOE                        P1402000

                                   3962 *                                                                       P1404000
0006FC                             3963 ADCHEHIT DS    0H                                                       P1406000
0006FC 4820 6002      00002        3964          LH    R2,JOEUSE           GET USE COUNT                        P1408000
000700 4120 2001      00001        3965          LA    R2,1(,R2)           INCREMENT BY 1                       P1410000
000704 4020 6002      00002        3966          STH   R2,JOEUSE           STORE UPDATED USE COUNTER            P1412000
000708 1846                        3967          LR    R4,JOE              COPY CHAR-JOE ADDRESS                P1414000
00070A 1B48                        3968          SR    R4,JOT              GET CHAR JOE DISPL IN JOT            P1416000

                                   3969 *                                                                       P1418000
                                   3970 *        GET A JOE IN WHICH TO BUILD A NEW WORK ELEMENT                 P1420000
                                   3971 *                                                                       P1422000

00070C 4570 F62C      00C82        3972          BAL   RNP,GETJOE          GET NEXT FREE JOE                    P1424000
000710 4163 8000      00000        3973          LA    JOE,0(R3,JOT)       ADDRESS OF 1ST FREE JOE              P1426000
                                   3974 *                                                                       P1428000
                                   3975 *        MOVE CALLER'S DATA INTO NEW WORK JOE                           P1430000
                                   3976 *                                                                       P1432000

000714 1830                        3977          LR    R3,R0               COPY WORK-JOE DATA ADDRESS           P1434000
000716 D21B 6000 3000 00000 00000  3978          MVC   JOENEXT(JOESIZE),0(R3) USER SPECS TO WORK-JOE            P1436000
00071C 4040 6004      00004        3979          STH   R4,JOECHAR          SAVE CHAR-JOE POINTER                P1438000
000720 1B44                        3980          SR    R4,R4               GET A ZERO REGISTER                  P1440000
000722 4040 6002      00002        3981          STH   R4,JOEFLAG          CLEAR FLAGS                          P1442000
000726 4040 6006      00006        3982          STH   R4,JOECKPT          CLEAR CHECKPOINT AREA POINTER        P1444000
                                   3983 *                                                                       P1446000
                                   3984 *        DETERMINE ADDRESS OF REQUESTED CLASS QUEUE                     P1448000

                                   3985 *                                                                       P1450000
00072A 8830 0018      00018        3986          SRL   R3,24               CLASS QUEUE ID TO BYTE 3             P1452000

PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE ADD SUBROUTINE                                             PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00072E 4570 F5F8      00C4E        3987          BAL   RNP,CNVCLASS        CLASS ID TO QUEUE ADDRESS            P1454000
                                   3988 *                                                                       P1456000
                                   3989 *        ADD WORK-JOE TO SELECTED CLASS QUEUE                           P1458000

                                   3990 *                                                                       P1460000
000732 4820 3000      00000        3991          LH    R2,0(,R3)           1ST CLASS QUEUE ENTRY                P1462000
000736 4020 6000      00000        3992          STH   R2,JOENEXT          MAKE NEW JOE 1ST                     P1464000
00073A 1B68                        3993          SR    JOE,JOT             DISPL OF WORK ELEM INTO JOT          P1466000
00073C 4063 0000      00000        3994          STH   JOE,JOENEXT-JOEDSECT(R3) PREV POINTS TO NEXT             P1468000
                                   3995 *                                                                       P1470000
                                   3996 *        INCREMENT JOE COUNTER IN HASP JOB QUEUE ELEMENT                P1472000
                                   3997 *                                                                       P1474000
000740 5828 6010      00010        3998          L     R2,JOEJQE(JOT)      JOB QUEUE ELEMENT DISPL              P1476000

000744 5A20 B13C      0013C        3999          A     R2,$JOBQPTR         ADD JOB QUEUE ORIGIN                 P1478000

000748 4832 000E      0000E        4000          LH    R3,QUEJOECT(R2)     GET PENDING JOE COUNTER              P1480000
00074C 4130 3001      00001        4001          LA    R3,1(,R3)           INCREMENT BY 1                       P1482000
000750 4032 000E      0000E        4002          STH   R3,QUEJOECT(R2)     SAVE COUNTER IN HASP JQE             P1484000
                                   4003 *                                                                       P1486000
                                   4004 *        INVOLK CHECKPOINT OF JOT                                       P1488000

                                   4005 *                                                                       P1490000
000754 5820 F6BA      00D10        4006          L     R2,=V($CKPTPCE)     ADDRESS OF CHECKPOINT PCE            P1492000
000758 9602 B0C2      000C2        4007          OI    $STATUS,$JOTCKPT    REQUIRE JOT CHECKPOINT               P1494000
                                   4008         $POST  PCEEWF+$EWBWORK-PCEDSECT(R2),WORK FIRE UP CHKPT          P1496000
00075C 94DF 2049      00049        4009+         NI    PCEEWF+$EWBWORK-PCEDSECT(R2),255-$EWFWORK                PO008000
000760 947F B0C4      000C4        4010+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   4011 *                                                                       P1498000
                                   4012 *        POST PRINT/PUNCH ROUTINES WAITING FOR JOT SERVICE              P1500000
                                   4013 *                                                                       P1502000
                                   4014         $POST  $HASPECF,JOT        POST JOT SERVICES AVAILABLE          P1504000

000764 94FE B0C4      000C4        4015+         NI    $HASPECF,255-$EWFJOT                                     PO008000

000768 1BFF                        4016          SR    R15,R15             SET GOOD RETURN INDICATION           P1506000
                                   4017          DROP  R15                 SUSPEND LOCAL ADDRESSABILITY         P1508000
00076A 982C D01C      0001C        4018          LM    R2,R12,PCEWA        RELOAD CALLER'S REGISTERS            P1510000
00076E 07FE                        4019          BR    R14                 RETURN TO CALLER                     P1512000

                                   4020          DROP  JOE                 SUSPEND JOE ADDRESSABILITY           P1514000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE REMOVE SUBROUTINE                                          PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4022 *                                                                       P1520000
                                   4023 *        REMOVE AN ENTRY FROM THE RESIDENT JOB OUTPUT TABLE             P1522000
                                   4024 *                                                                       P1524000
000770                             4025 RMCHK    DS    0H                                                       P1526000
                                   4026         $WAIT  CKPT                WIAT FOR CHECKPOINT TO COMPLETE      P1528000
000770 9604 D048      00048        4027+         OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
000774 45F0 B030      00030        4028+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                            00778  4029          USING *,R15               ACTIVATE LOCAL ADDRESSABILITY        P1530000

                                   4030          ENTRY $#REM               FOR USE BY OTHER MODULES             P1532000
000778                             4031 $#REM    DS    0H                                                       P1534000
000778 9110 B0C2      000C2        4032          TM    $STATUS,$CKPTACT    IS CHECKPOINT ACTIVE                 P1536000
00077C 4780 F00E      00786        4033          BZ    RMCKPT              BRNACH IF NO                         P1538000

000780 58F0 F5B4      00D2C        4034          L     R15,=A(RMCHK)       ADDRESS OF WAIT                      P1540000
000784 07FF                        4035          BR    R15                 BRANCH TO WAIT                       P1542000
                                   4036 *                                                                       P1544000
                                   4037 *        ADJUST RETURN ADDRESS FOR OVERLAY CALLERS                      P1546000
                                   4038 *                                                                       P1548000
000786                             4039 RMCKPT   DS    0H                                                       P1550000
000786 55E0 F5B0      00D28        4040          CL    R14,=F'4096'        TEST RETURN ADDRESS                  P1552000
00078A 4720 F018      00790        4041          BH    *+6                 BRANCH IF ABSOLUTE                   P1554000
00078E 1EE8                        4042          ALR   R14,BASE3           COMPUTE ABSOLUTE RETURN ADDRESS      P1556000
000790 902C D01C      0001C        4043          STM   R2,R12,PCEWA        SAVE CALLER'S REGS IN HIS PCE        P1558000
000794 4180 F5E8      00D60        4044          LA    JOT,$JOT            JOT ADDRESSABILITY REGISTER          P1560000

                                   4045 *                                                                       P1562000
                                   4046 *        FREE CHECKPOINT JOE IF ONE WAS ALLOCATED                       P1564000
                                   4047 *                                                                       P1566000
                            00000  4048          USING JOEDSECT,R1         ACTIVATE JOE ADDRESSABILITY          P1568000

000798 4820 1006      00006        4049          LH    R2,JOECKPT          DISPL OF CHECKPOINT ELEMENT          P1570000
00079C 1222                        4050          LTR   R2,R2               WAS AN ELEMENT ALLOCATED             P1572000
00079E 4780 F02E      007A6        4051          BZ    RMCHAR              BRANCH IF NO                         P1574000
0007A2 4570 F526      00C9E        4052          BAL   RNP,FREEJOE         ADD JOE TO FREE QUEUE                P1576000
                                   4053 *                                                                       P1578000
                                   4054 *        DECREMENT ACTIVE DEVICE COUNTER FOR THIS CHAR-JOE              P1580000
                                   4055 *                                                                       P1582000
0007A6                             4056 RMCHAR   DS    0H                                                       P1584000
0007A6 4820 1004      00004        4057          LH    R2,JOECHAR          CHAR-JOE DISPLACEMENT                P1586000
0007AA 9180 1002      00002        4058          TM    JOEFLAG,$JOEBUSY    WAS THIS JOE SELECTED                P1588000
0007AE 47E0 F05E      007D6        4059          BNO   RMRMT               BRANCH IF NO                         P1590000
0007B2 9101 D04A      0004A        4060          TM    PCEID,PCELCLID      IS REQUEST FOR A REMOTE DEVICE       P1592000

0007B6 47E0 F05E      007D6        4061          BNO   RMRMT               BRANCH IF YES                        P1594000
0007BA 4132 8018      00018        4062          LA    R3,JOEACTPR-JOEDSECT(R2,JOT) ASSUME PRINTER              P1596000
0007BE 9180 D04A      0004A        4063          TM    PCEID,PCEPRSID      IS REQUESTOR A PRINTER               P1598000

0007C2 4710 F052      007CA        4064          BO    *+8                 BRANCH IF YES                        P1600000
0007C6 4132 8019      00019        4065          LA    R3,JOEACTPU-JOEDSECT(R2,JOT) SET PUNCH                   P1602000
0007CA 1B44                        4066          SR    R4,R4               CLEAR R4                             P1604000
0007CC 4340 3000      00000        4067          IC    R4,0(,R3)           GET ACTIVE DEVICE COUNT              P1606000
0007D0 0640                        4068          BCTR  R4,R0               DECREMENT BY ONE                     P1608000
0007D2 4240 3000      00000        4069          STC   R4,0(,R3)           STORE UPDATED COUNTER                P1610000
                                   4070 *                                                                       P1612000
                                   4071 *        DECREMENT CHARACTERISTICS ELEMENT USE COUNT                    P1614000
                                   4072 *                                                                       P1616000
0007D6                             4073 RMRMT    DS    0H                                                       P1618000
0007D6 4832 8002      00002        4074          LH    R3,JOEUSE-JOEDSECT(R2,JOT) GET USE COUNTER               P1620000
0007DA 0630                        4075          BCTR  R3,R0               DECREMENT BY ONE                     P1622000

0007DC 4032 8002      00002        4076          STH   R3,JOEUSE-JOEDSECT(R2,JOT) STORE UPDATED COUNTER         P1624000

PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE REMOVE SUBROUTINE                                          PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


0007E0 1233                        4077          LTR   R3,R3               IS NUMBER OF USERS ZERO              P1626000
0007E2 4770 F094      0080C        4078          BNZ   RMWORK              BRANCH IF NO                         P1628000
                                   4079 *                                                                       P1630000
                                   4080 *        REMOVE CHARACTERISTICS ELEMENT FROM THE QUEUE                  P1632000
                                   4081 *                                                                       P1634000
0007E6 4130 F5F2      00D6A        4082          LA    R3,JOTCHRQ          ADDRESS OF CHAR-QUEUE                P1636000
0007EA 1B38                        4083          SR    R3,JOT              DISPL OF CHAR QUEUE IN JOT           P1638000
0007EC 4840 F5F2      00D6A        4084          LH    R4,JOTCHRQ          DISPL OF 1ST JOE IN CHAR QUEUE       P1640000
0007F0                             4085 RMCQSCN  DS    0H                                                       P1642000
0007F0 1924                        4086          CR    R2,R4               IS NEXT ELEM TO BE FREED             P1644000
0007F2 4780 F088      00800        4087          BE    RMCHEL              BRANCH IF YES                        P1646000
0007F6 1834                        4088          LR    R3,R4               MAKE NEXT PREVIOUS                   P1648000

0007F8 4844 8000      00000        4089          LH    R4,JOENEXT-JOEDSECT(R4,JOT)  GET NEW NEXT JOE            P1650000
0007FC 47F0 F078      007F0        4090          B     RMCQSCN             CONTINUE CHAR SCAN                   P1652000

000800                             4091 RMCHEL   DS    0H                                                       P1654000

000800 4842 8000      00000        4092          LH    R4,JOENEXT-JOEDSECT(R2,JOT) GET NEXT ELEMENT ADDR        P1656000
000804 4043 8000      00000        4093          STH   R4,JOENEXT-JOEDSECT(R3,JOT) REMOVE ELM FRON QUEUE        P1658000
000808 4570 F526      00C9E        4094          BAL   RNP,FREEJOE         ADD JOE TO FREE QUEUE                P1660000
                                   4095 *                                                                       P1662000
                                   4096 *        CONVERT CLASS TO CLASS QUEUE ADDRESS                           P1664000
                                   4097 *                                                                       P1666000
00080C                             4098 RMWORK   DS    0H                                                       P1668000
00080C 1831                        4099          LR    R3,R1               COPY C'CLASS',AL3(WORK JOE)          P1670000
00080E 8830 0018      00018        4100          SRL   R3,24               CLASS QUEUE ID TO BYTE 3             P1672000
000812 4570 F4D6      00C4E        4101          BAL   RNP,CNVCLASS        CLASS ID TO QUEUE ADDRESS            P1674000
000816 4120 1000      00000        4102          LA    R2,0(,R1)           COPY AL3(WORK JOE)                   P1676000
00081A 1B28                        4103          SR    R2,JOT              DISPL OF WORK JOE IN JOT             P1678000

00081C 1B38                        4104          SR    R3,JOT              DISPL OF CLASS QUEUE IN JOT          P1680000
00081E 4843 8000      00000        4105          LH    R4,0(R3,JOT)        DISPL OF 1ST JOE IN CLASS QUEUE      P1682000
000822                             4106 RMWQSCN  DS    0H                                                       P1684000

000822 1924                        4107          CR    R2,R4               IS NEXT JOE TO BEE FREED             P1686000
000824 4780 F0BA      00832        4108          BE    RMWKEL              BRANCH IF YES                        P1688000
000828 1834                        4109          LR    R3,R4               MAKE NEXT PREVIOUS                   P1690000
00082A 4844 8000      00000        4110          LH    R4,JOENEXT-JOEDSECT(R4,JOT) GET NEXT JOE ON QUEUE        P1692000
00082E 47F0 F0AA      00822        4111          B     RMWQSCN             CONTINUE SCAN OF CLASS QUEUE         P1694000
000832                             4112 RMWKEL   DS    0H                                                       P1696000
000832 4842 8000      00000        4113          LH    R4,JOENEXT-JOEDSECT(R2,JOT) GET NEXT JOE ADDRESS         P1698000
000836 4043 8000      00000        4114          STH   R4,JOENEXT-JOEDSECT(R3,JOT) REMOVE JOE FROM QUEUE        P1700000
00083A 4570 F526      00C9E        4115          BAL   RNP,FREEJOE         ADD JOE TO FREE QUEUE                P1702000
                                   4116 *                                                                       P1704000
                                   4117 *        DECREMENT PENDING JOE COUNTER IN HASP JOB QUEUE ELEMENT        P1706000
                                   4118 *                                                                       P1708000

00083E 5820 1010      00010        4119          L     R2,JOEJQE           JOB QUEUE ELEMENT DISPL              P1710000
000842 5A20 B13C      0013C        4120          A     R2,$JOBQPTR         ADD JOB QUEUE ORIGIN                 P1712000
000846 4832 000E      0000E        4121          LH    R3,QUEJOECT(R2)     GET PENDING JOE COUNTER              P1714000
00084A 0630                        4122          BCTR  R3,R0               DECREMENT BY ONE                     P1716000

00084C 4032 000E      0000E        4123          STH   R3,QUEJOECT(R2)     STORE UPDATED COUNTER                P1718000
                                   4124 *                                                                       P1720000
                                   4125 *        MOVE JOB TO $PURGE IF PENDING JOE COUNT WAS ZERO               P1722000
                                   4126 *                                                                       P1724000
000850 1233                        4127          LTR   R3,R3               WAS PENDING JOE COUNT ZERO           P1726000
000852 4770 F0EA      00862        4128          BNZ   RMEXIT              BRANCH IF NO                         P1728000

000856 9502 2001      00001        4129          CLI   QUETYPE(R2),$HARDCPY IS JOB IN $HARDCPY                  P1730000
00085A 4770 F0EA      00862        4130          BNE   *+8                 BRANCH IF NO                         P1732000
00085E 9200 2001      00001        4131          MVI   QUETYPE(R2),$PURGE  MOVE JOB TO $PURGE QUEUE             P1734000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE REMOVE SUBROUTINE                                          PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4132 *                                                                       P1736000
                                   4133 *        INVOLK CHECKPOINT OF JOB OUTPUT TABLE                          P1738000
                                   4134 *                                                                       P1740000

000862                             4135 RMEXIT   DS    0H                                                       P1742000
000862 5840 F598      00D10        4136          L     R4,=V($CKPTPCE)     ADDRESS OF CHECKPOINT PCE            P1744000

000866 9602 B0C2      000C2        4137          OI    $STATUS,$JOTCKPT    REQUIRE JOT CHECKPOINT               P1746000
                                   4138         $POST  PCEEWF+$EWBWORK-PCEDSECT(R4),WORK FIRE UP CHKPT          P1748000
00086A 94DF 4049      00049        4139+         NI    PCEEWF+$EWBWORK-PCEDSECT(R4),255-$EWFWORK                PO008000
00086E 947F B0C4      000C4        4140+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   4141 *                                                                       P1750000
                                   4142 *        POST JOT SERVICES AVAILABLE FOR THOSE WAITING FOR JOES         P1752000
                                   4143 *                                                                       P1754000
                                   4144         $POST  $HASPECF,JOT-$EWFJOB POST JOT AND JOB AVAILABLE          P1756000

000872 94EE B0C4      000C4        4145+         NI    $HASPECF,255-$EWFJOT-$EWFJOB                             PO008000
000876 982C D01C      0001C        4146          LM    R2,R12,PCEWA        RELOAD CALLER'S REGISTERS            P1758000
00087A 07FE                        4147          BR    R14                 RETURN TO CALLER                     P1760000
                                   4148          DROP  R15                 SUSPEND LOCAL ADDRESSABILITY         P1762000
                                   4149          DROP  R1                  SUSPEND JOE ADDRESSABILITY           P1764000

PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE GET SUBROUTINE                                             PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4151 *                                                                       P1770000

                                   4152 *        GET AN ENTRY FROM THE RESIDENT JOB OUTPUT TABLE                P1772000
                                   4153 *                                                                       P1774000
00087C                             4154 GTCHK    DS    0H                                                       P1776000
                                   4155         $WAIT  CKPT                WAIT FOR CHECKPOINT TO COMPLETE      P1778000
00087C 9604 D048      00048        4156+         OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
000880 45F0 B030      00030        4157+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                            00884  4158          USING *,R15               ACTIVATE LOCAL ADDRESSABILITY        P1780000

                                   4159          ENTRY $#GET               FOR USE BY OTHER MODULES             P1782000
000884                             4160 $#GET    DS    0H                                                       P1784000
000884 9110 B0C2      000C2        4161          TM    $STATUS,$CKPTACT    IS CHECKPOINT ACTIVE                 P1786000
000888 4780 F00E      00892        4162          BZ    GTCKPT              BRANCH IF NO                         P1788000
00088C 58F0 F4AC      00D30        4163          L     R15,=A(GTCHK)       ADDRESS OF WAIT                      P1790000

000890 07FF                        4164          BR    R15                 BRANCH TO WAIT                       P1792000
                                   4165 *                                                                       P1794000
                                   4166 *        ADJUST RETURN ADDRESS FOR OVERLAY CALLERS                      P1796000
                                   4167 *                                                                       P1798000

000892                             4168 GTCKPT   DS    0H                                                       P1800000
000892 55E0 F4A4      00D28        4169          CL    R14,=F'4096'        TEST RETURN ADDRESS                  P1802000
000896 4720 F018      0089C        4170          BH    *+6                 BRANCH IF ABSOLUTE                   P1804000
00089A 1EE8                        4171          ALR   R14,BASE3           COMPUTE ABSOLUTE RETURN ADDRESS      P1806000
00089C 902C D01C      0001C        4172          STM   R2,R12,PCEWA        SAVE CALLER'S REGS IN HIS PCE        P1808000
0008A0 4180 F4DC      00D60        4173          LA    JOT,$JOT            JOT BASE REGISTER                    P1810000

                                   4174 *                                                                       P1812000
                                   4175 *        RETURN IF HASP SYSTEM IS DRAINING ($P OR $PHASP)               P1814000
                                   4176 *                                                                       P1816000
0008A4 9120 B0C2      000C2        4177          TM    $STATUS,$DRAINED    IS HASP SYSTEM DRAINING              P1818000
0008A8 4710 F034      008B8        4178          BO    GTNOT               BRANCH IF YES                        P1820000

                                   4179 *                                                                       P1822000
                                   4180 *        ARE THERE ENOUGH AVAILABLE JOES TO COMPLETE THIS REQUEST       P1824000
                                   4181 *                                                                       P1826000
0008AC 4820 F4E0      00D64        4182          LH    R2,JOTFREC          NUMBER OF AVAILABLE JOES             P1828000
0008B0 0620                        4183          BCTR  R2,R0               JOE FOR A CHECKPOINT ELEMENT         P1830000

0008B2 1222                        4184          LTR   R2,R2               IS FREE JOE QUEUE VOID               P1832000
0008B4 4720 F03C      008C0        4185          BP    GETOK               BRANCH IF YES                        P1834000
                                   4186 *                                                                       P1836000
                                   4187 *        REQUEST MUST BE RETRYED LATER                                  P1838000
                                   4188 *                                                                       P1840000

0008B8                             4189 GTNOT    DS    0H                                                       P1842000
0008B8 1BFF                        4190          SR    R15,R15             SET NON-PROCESS INDICATION           P1844000
0008BA 982C D01C      0001C        4191          LM    R2,R12,PCEWA        RELOAD CALLER'S REGISTERS            P1846000
0008BE 07FE                        4192          BR    R14                 RETURN TO CALLER                     P1848000
                                   4193 *                                                                       P1850000

                                   4194 *        SCAN CLASS QUEUES FOR A PIECE OF WORK                          P1852000
                                   4195 *                                                                       P1854000
0008C0                             4196 GETOK    DS    0H                                                       P1856000
0008C0 1851                        4197          LR    R5,R1               COPY DCT ADDRESS             OY02744 P1858000
                            00000  4198          USING DCTDSECT,R5         ACTIVATE DCT ADDRESSABILTY   OY02744 P1860000
0008C2 4110 502D      0002D        4199          LA    R1,DCTCLASS         CLASS MASK ADDRESS                   P1862000

0008C6 D703 D018 D018 00018 00018  4200          XC    PCER1,PCER1         CLEAR BEST CHOICE SLOT               P1864000
0008CC 9224 D014      00014        4201          MVI   PCER0,36            SET CLASS ORDER PRIORITY TO 36       P1866000
0008D0                             4202 GTCLASS  DS    0H                                                       P1868000
0008D0 9540 1000      00000        4203          CLI   0(R1),C' '          END OF CLASS MASK                    P1870000

0008D4 4780 F16A      009EE        4204          BE    GTCMEND             BRANCH IF YES                        P1872000
                                   4205 *                                                                       P1874000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE GET SUBROUTINE                                             PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4206 *        CONVERT CLASS QUEUE ID TO CLASS QUEUE ADDRESS                  P1876000

                                   4207 *                                                                       P1878000
0008D8 1B33                        4208          SR    R3,R3               CLEAR R3                             P1880000
0008DA 4330 1000      00000        4209          IC    R3,0(,R1)           GET A CLASS ID FROM THE MASK         P1882000
0008DE 4570 F3CA      00C4E        4210          BAL   RNP,CNVCLASS        CONVERT ID TO ADDRESS                P1884000
0008E2 1863                        4211          LR    JOE,R3              COPY QUEUE ADDRESS TO JOE            P1886000
                                   4212 *                                                                       P1888000
                                   4213 *        SELECT A WORK-JOE FROM THE QUEUE                               P1890000

                                   4214 *                                                                       P1892000
0008E4                             4215 GTWKJOE  DS    0H                                                       P1894000
                            00000  4216          USING JOEDSECT,JOE        ACTIVATE JOE ADDRESSABILITY          P1896000

0008E4 943F D014      00014        4217          NI    PCER0,X'3F'         CLEAR PRIORITY BITS                  P1898000
0008E8 4860 6000      00000        4218          LH    JOE,JOENEXT         SELECT NEXT WORK-JOE                 P1900000
0008EC 1266                        4219          LTR   JOE,JOE             END OF CLASS QUEUE                   P1902000
0008EE 4770 F082      00906        4220          BNZ   GTJOEA              BRANCH IF NO                         P1904000
0008F2 4110 1001      00001        4221          LA    R1,1(,R1)           ADVANCE CLASS MASK POINTER           P1906000

0008F6 1B22                        4222          SR    R2,R2               CLEAR R2                             P1908000
0008F8 4320 D014      00014        4223          IC    R2,PCER0            CLASS ORDER PRIORITY                 P1910000
0008FC 0620                        4224          BCTR  R2,R0               DECREMENT BY ONE                     P1912000
0008FE 4220 D014      00014        4225          STC   R2,PCER0            STORE UPDATED PRIORITY               P1914000
000902 47F0 F04C      008D0        4226          B     GTCLASS             CONTINUE TO NEXT CLASS QUEUE         P1916000
                                   4227 *                                                                       P1918000
                                   4228 *        TRY TO DISQUALIFY THIS JOE FROM SELECTION                      P1920000
                                   4229 *                                                                       P1922000

000906                             4230 GTJOEA   DS    0H                                                       P1924000
000906 4060 D016      00016        4231          STH   JOE,PCER0+2         SAVE WORK-JOE DISPL                  P1926000

00090A 4166 8000      00000        4232          LA    JOE,0(JOE,JOT)      JOE-DISPL TO JOE-ADDRESS             P1928000
00090E 9180 6002      00002        4233          TM    JOEFLAG,$JOEBUSY    IS THIS WORK-JOE BUSY                P1930000
000912 4710 F060      008E4        4234          BO    GTWKJOE             BRANCH IF YES - REJECT               P1932000
000916 5820 6010      00010        4235          L     R2,JOEJQE           JOB QUEUE ELEMENT DISPL              P1934000
00091A 5A20 B13C      0013C        4236          A     R2,$JOBQPTR         ADD JOB QUEUE ORIGIN                 P1936000

00091E 91C0 2004      00004        4237          TM    QUEFLAGS(R2),QUEHOLDA+QUEHOLD1 IS JOB HELD               P1938000
000922 4770 F060      008E4        4238          BNZ   GTWKJOE             BRANCH IF YES - REJECT               P1940000
000926 D200 D015 2000 00015 00000  4239          MVC   PCER0+1(1),QUEPRIO(R2) JOB PRIORITY TO ACTIVE SLOT       P1942000
                                   4240 *                                                                       P1944000
                                   4241 *        CHECK ROUTE, CPU ID, SECURITY                                  P1946000
                                   4242 *                                                                       P1948000
00092C 4130 200C      0000C        4243          LA    R3,QUEPRTRT(,R2)    SELECT PRINT ROUTE                   P1950000
000930 9130 5012      00012        4244          TM    DCTDEVTP,X'30'      IS DEVICE A PRINTER                  P1952000
000934 47E0 F0B8      0093C        4245          BNO   *+8                 BRANCH IF YES                        P1954000

000938 4130 200D      0000D        4246          LA    R3,QUEPUNRT(,R2)    SELECT PUNCH ROUTE                   P1956000

00093C 9180 600A      0000A        4247          TM    JOEROUT,$JOEIRTE    IS ROUTE INDIRECT                    P1958000
000940 4710 F0C4      00948        4248          BO    *+8                 BRANCH IF YES                        P1960000
000944 4130 600B      0000B        4249          LA    R3,JOEROUT+1        SELECT SPECIFIC ROUTE                P1962000
000948 D500 3000 5011 00000 00011  4250          CLC   0(1,R3),DCTNO       DOES ROUTE MATCH DEVICE              P1964000
00094E 4770 F060      008E4        4251          BNE   GTWKJOE             BRANCH IF NO                         P1966000

000952 4820 6004      00004        4252          LH    R2,JOECHAR          CHAR-JOE DISPL                       P1968000
000956 4122 8000      00000        4253          LA    R2,0(R2,JOT)        ADD JOB OUTPUT TABLE ORIGIN          P1970000
                                   4254 *                                                                       P1972000
                                   4255 *        CHECK SPECIAL SYSOUT WRITER ID                                 P1974000
                                   4256 *                                                                       P1976000
00095A 1830                        4257          LR    R3,R0               COPY WRITER ID ADDRESS               P1978000
00095C D507 2010 3000 00010 00000  4258          CLC   JOEWTRID-JOEDSECT(8,R2),0(R3) DOES WRITER ID MATCH       P1980000
000962 4770 F060      008E4        4259          BNE   GTWKJOE             BRANCH IF NO - REJECT                P1982000
                                   4260 *                                                                       P1984000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE GET SUBROUTINE                                             PAGE   88



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4261 *        CHECK FORMS ID, FCB ID, UCSB ID                                P1986000
                                   4262 *                                                                       P1988000
000966 D507 5020 2004 00020 00004  4263          CLC   DCTFORMS(8),JOEFORM-JOEDSECT(R2) FORMS-FCB MATCH         P1990000
00096C 4770 F110      00994        4264          BNE   GTNOMCH             BRANCH IF NO                         P1992000

000970 D503 5028 200C 00028 0000C  4265          CLC   DCTUCS,JOEUCS-JOEDSECT(R2) UCS MATCH                     P1994000
000976 4780 F108      0098C        4266          BE    GTMATCH             BRANCH IF YES                        P1996000
00097A D503 200C F494 0000C 00D18  4267          CLC   JOEUCS-JOEDSECT(4,R2),=CL4'****' STANDARD UCS            P1998000
000980 4770 F110      00994        4268          BNE   GTNOMCH             BRANCH IF NO                         P2000000
000984 9104 502C      0002C        4269          TM    DCTPPSW,DCTPPSWU    IS DEVICE UCS STANDARD               P2002000
000988 4710 F110      00994        4270          BO    GTNOMCH             BRANCH IF NO                         P2004000
00098C                             4271 GTMATCH  DS    0H                                                       P2006000
00098C 9680 D014      00014        4272          OI    PCER0,X'80'         SET MATCH PRIORITY BIT               P2008000
000990 47F0 F14E      009D2        4273          B     GTPRIO              GO COMPARE PRIORITIES                P2010000
000994                             4274 GTNOMCH  DS    0H                                                       P2012000

000994 9140 502C      0002C        4275          TM    DCTPPSW,DCTPPSWF    IS DEVICE IN AUTO MODE               P2014000

000998 4710 F060      008E4        4276          BO    GTWKJOE             BRANCH IF NO - REJECT                P2016000
00099C 9102 5012      00012        4277          TM    DCTDEVTP,DCTLNE     IS REQUESTOR REMOTE                  P2018000
0009A0 4710 F14E      009D2        4278          BO    GTPRIO              BRANCH IF YES                        P2020000
0009A4 4132 0018      00018        4279          LA    R3,JOEACTPR-JOEDSECT(R2) ASSUME PRINTER                  P2022000

0009A8 9130 5012      00012        4280          TM    DCTDEVTP,X'30'      IS REQUEST FOR A PRINTER             P2024000
0009AC 47E0 F130      009B4        4281          BNO   *+8                 BRANCH IF YES                        P2026000
0009B0 4132 0019      00019        4282          LA    R3,JOEACTPU-JOEDSECT(R2) SET PUNCH                       P2028000
0009B4 9500 3000      00000        4283          CLI   0(R3),X'00'         IS ANY DEVICE ACTIVE                 P2030000
0009B8 4770 F13C      009C0        4284          BNE   *+8                 BRANCH IF YES                        P2032000
0009BC 9640 D014      00014        4285          OI    PCER0,X'40'         SET NOT IN USE PRIORITY BIT          P2034000
                                   4286          CLC   JOEFORM-JOEDSECT(4,R2),=CL4'&STDFORM' IS THIS STD        P2036000
0009C0 D503 2004 F4B0 00004 00D34  4287+         CLC   JOEFORM-JOEDSECT(4,R2),=CL4'STD.'     IS THIS STD        P2036000
0009C6 4780 F14E      009D2        4288          BE    GTPRIO              BRANCH IF YES                        P2038000
0009CA 9140 D014      00014        4289          TM    PCER0,X'40'         NON-STD IN USE                       P2040000
0009CE 4780 F060      008E4        4290          BZ    GTWKJOE             BRANCH IF YES - REJECT               P2042000

                                   4291 *                                                                       P2044000
                                   4292 *        IS CURRENT PRIORITY GE PREVIOUS BEST CHOICE                    P2046000
                                   4293 *                                                                       P2048000
0009D2                             4294 GTPRIO   DS    0H                                                       P2050000

0009D2 D501 D014 D018 00014 00018  4295          CLC   PCER0(2),PCER1      IS CURRENT A BETTER CHOICE           P2052000
0009D8 4740 F060      008E4        4296          BL    GTWKJOE             BRANCH IF NO - REJECT                P2054000
0009DC D200 D00C 1000 0000C 00000  4297          MVC   PCELINK(1),0(R1)    SAVE BEST CHOICE CLASS               P2056000
0009E2 5830 D014      00014        4298          L     R3,PCER0            TAKE CURRENT WORK-JOE                P2058000
0009E6 5030 D018      00018        4299          ST    R3,PCER1            AS NEW BEST CHOICE                   P2060000
0009EA 47F0 F060      008E4        4300          B     GTWKJOE             CONTINUE SCAN OF CLASS QUEUES        P2062000
                                   4301 *                                                                       P2064000
                                   4302 *        END OF CLASS QUEUE SCAN - HAVE WE SELECTED NEW WORK            P2066000
                                   4303 *                                                                       P2068000
0009EE                             4304 GTCMEND  DS    0H                                                       P2070000
0009EE D603 D018 D018 00018 00018  4305          OC    PCER1,PCER1         IS BEST CHOICE CELL ZERO             P2072000
0009F4 4780 F034      008B8        4306          BZ    GTNOT               BRANCH IF YES - NO WORK              P2074000

0009F8 4860 D01A      0001A        4307          LH    JOE,PCER1+2         GET BEST CHOICE JOE DISPL            P2076000
0009FC 4166 8000      00000        4308          LA    JOE,0(JOE,JOT)      ADD JOB OUTPUT TABLE ORIGIN          P2078000
000A00 4820 6004      00004        4309          LH    R2,JOECHAR          CHAR-JOE DISPL                       P2080000

000A04 4102 8000      00000        4310          LA    R0,0(R2,JOT)        CHAR-JOE ADDR TO RETURN REG          P2082000
000A08 9102 5012      00012        4311          TM    DCTDEVTP,DCTLNE     IS REQUESTOR REMOTE                  P2084000
000A0C 4710 F1AA      00A2E        4312          BO    GTRMT               BRANCH IF YES                        P2086000
000A10 4142 8018      00018        4313          LA    R4,JOEACTPR-JOEDSECT(R2,JOT) ASSUME PRINTER              P2088000
000A14 9130 5012      00012        4314          TM    DCTDEVTP,X'30'      IS REQUEST FOR A PRINTER             P2090000
000A18 47E0 F19C      00A20        4315          BNO   *+8                 BRANCH IF YES                        P2092000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE GET SUBROUTINE                                             PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000A1C 4142 8019      00019        4316          LA    R4,JOEACTPU-JOEDSECT(R2,JOT) SET PUNCH                   P2094000
000A20 1B33                        4317          SR    R3,R3               CLEAR R3                             P2096000
000A22 4330 4000      00000        4318          IC    R3,0(,R4)           GET ACTIVE DEVICE COUNTER            P2098000
000A26 4130 3001      00001        4319          LA    R3,1(,R3)           INCREMENT BY ONE                     P2100000

000A2A 4230 4000      00000        4320          STC   R3,0(,R4)           STORE UPDATED COUNTER                P2102000

000A2E                             4321 GTRMT    DS    0H                                                       P2104000
000A2E 5810 6010      00010        4322          L     R1,JOEJQE           JOB QUEUE ELEMENT DISPL              P2106000

000A32 5A10 B13C      0013C        4323          A     R1,$JOBQPTR         ADD JOB QUEUE ORIGIN                 P2108000
000A36 1255                        4324          LTR   R5,R5               IS $ GET IN HAVE=NO MODE     OY02744 P2110000
000A38 4740 F1E8      00A6C        4325          BM    GTEST               BRANCH IF YES - TEST ONLY            P2112000
000A3C 9680 6002      00002        4326          OI    JOEFLAG,$JOEBUSY    SET WORK-JOE BUSY                    P2114000
000A40 D601 6006 6006 00006 00006  4327          OC    JOECKPT,JOECKPT     IS CKPT-JOE PTR ZERO                 P2116000
000A46 4770 F1D8      00A5C        4328          BNZ   GTHOT               BRANCH IF NO                         P2118000
000A4A 4570 F3FE      00C82        4329          BAL   RNP,GETJOE          GET A FREE JOE                       P2120000
000A4E 4030 6006      00006        4330          STH   R3,JOECKPT          ASSIGN CKPT-JOE                      P2122000
000A52 4123 8000      00000        4331          LA    R2,0(R3,JOT)        ADD JOB OUTPUT TABLE ORIGIN  OY02744 P2124000
000A56 D713 2000 2000 00000 00000  4332          XC    0(20,R2),0(R2)      ZERO CKPT-JOE                OY02744 P2126000
000A5C                             4333 GTHOT    DS    0H                                                       P2128000
                                   4334 *                                                                       P2130000

                                   4335 *        INVOLK CHECKPOINT OF JOB OUTPUT TABLE                          P2132000
                                   4336 *                                                                       P2134000

000A5C 5820 F48C      00D10        4337          L     R2,=V($CKPTPCE)     ADDRESS OF CHECKPOINT PCE            P2136000

000A60 9602 B0C2      000C2        4338          OI    $STATUS,$JOTCKPT    REQUIRE JOT CHECKPOINT               P2138000
                                   4339         $POST  PCEEWF+$EWBWORK-PCEDSECT(R2),WORK FIRE UP CHKPT          P2140000
000A64 94DF 2049      00049        4340+         NI    PCEEWF+$EWBWORK-PCEDSECT(R2),255-$EWFWORK                PO008000
000A68 947F B0C4      000C4        4341+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
000A6C                             4342 GTEST    DS    0H                                                       P2142000
000A6C 18F6                        4343          LR    R15,JOE             WORK-JOE ADDRESS TO RETURN REG       P2144000
                                   4344 *        ICM   R15,8,PCELINK       CLASS ID TO RETURN REG          RFIT P2146000
000A6E 89F0 0008      00008        4345          SLL   R15,8                                               RFIT P2146005
000A72 88F0 0008      00008        4346          SRL   R15,8                                               RFIT P2146010
000A76 4320 D00C      0000C        4347          IC    R2,PCELINK                                          RFIT P2146015
000A7A 8920 0018      00018        4348          SLL   R2,24                                               RFIT P2146020
000A7E 16F2                        4349          OR    R15,R2                                              RFIT P2146025

000A80 982C D01C      0001C        4350          LM    R2,R12,PCEWA        RELOAD CALLER'S REGISTERS            P2148000
000A84 07FE                        4351          BR    R14                 RETURN TO CALLER                     P2150000
                                   4352          DROP  JOE                 SUSPEND JOE ADDRESSABILITY           P2152000

                                   4353          DROP  R5                  SUSPEND DCT ADDRESSABILITY   OY02744 P2154000
                                   4354          DROP  R15                 SUSPEND LOCAL ADDRESSABILITY         P2156000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE PUT SUBROUTINE                                             PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4356 *                                                                       P2162000
                                   4357 *        PUT BACK A GOTTEN ENTRY IN THE RESIDENT JOB OUTPUT TABLE       P2164000
                                   4358 *                                                                       P2166000
000A86                             4359 PTCHK    DS    0H                                                       P2168000
                                   4360         $WAIT  CKPT                WAIT FOR CHECKPOINT TO COMPLETE      P2170000
000A86 9604 D048      00048        4361+         OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
000A8A 45F0 B030      00030        4362+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                            00A8E  4363          USING *,R15               ACTIVATE LOCAL ADDRESSABILITY        P2172000

                                   4364          ENTRY $#PUT               FOR USE BY OTHER MODULES             P2174000
000A8E                             4365 $#PUT    DS    0H                                                       P2176000
000A8E 9110 B0C2      000C2        4366          TM    $STATUS,$CKPTACT    IS CHECKPOINT ACTIVE                 P2178000
000A92 4780 F00E      00A9C        4367          BZ    PTCKPT              BRANCH IF NO                         P2180000

000A96 58F0 F2AA      00D38        4368          L     R15,=A(PTCHK)       ADDRESS OF WAIT                      P2182000
000A9A 07FF                        4369          BR    R15                 BRANCH TO WAIT                       P2184000
                                   4370 *                                                                       P2186000
                                   4371 *        ADJUST RETURN ADDRESS FOR OVERLAY CALLERS                      P2188000
                                   4372 *                                                                       P2190000
000A9C                             4373 PTCKPT   DS    0H                                                       P2192000

000A9C 55E0 F29A      00D28        4374          CL    R14,=F'4096'        TEST RETURN ADDRESS                  P2194000
000AA0 4720 F018      00AA6        4375          BH    *+6                 BRANCH IF ABSOLUTE                   P2196000
000AA4 1EE8                        4376          ALR   R14,BASE3           COMPUTE ABSOLUTE RETURN ADDRESS      P2198000
000AA6 902C D01C      0001C        4377          STM   R2,R12,PCEWA        SAVE REGISTERS IN CALLER'S PCE       P2200000
000AAA 4180 F2D2      00D60        4378          LA    JOT,$JOT            LOAD JOT BASE REGISTER               P2202000
                            00000  4379          USING JOEDSECT,R1         ACTIVATE JOE ADDRESSABILITY          P2204000
                                   4380 *                                                                       P2206000
                                   4381 *        DECREMENT ACTIVE DEVICE COUNTER FOR THIS CHAR-JOE              P2208000

                                   4382 *                                                                       P2210000
000AAE 4830 1004      00004        4383          LH    R3,JOECHAR          CHAR-JOE DISPL                       P2212000

000AB2 9101 D04A      0004A        4384          TM    PCEID,PCELCLID      IS REQUEST FOR A REMOTE DEVICE       P2214000
000AB6 47E0 F048      00AD6        4385          BNO   PTRMT               BRANCH IF YES                        P2216000
000ABA 4143 8018      00018        4386          LA    R4,JOEACTPR-JOEDSECT(R3,JOT) ASSUME PRINTER              P2218000
000ABE 9180 D04A      0004A        4387          TM    PCEID,PCEPRSID      IS REQUESTOR A PRINTER               P2220000
000AC2 4710 F03C      00ACA        4388          BO    *+8                 BRANCH IF YES                        P2222000
000AC6 4143 8019      00019        4389          LA    R4,JOEACTPU-JOEDSECT(R3,JOT) SET PUNCH                   P2224000
000ACA 1B22                        4390          SR    R2,R2               CLEAR R2                             P2226000
000ACC 4320 4000      00000        4391          IC    R2,0(,R4)           GET ACTIVE DEVICE COUNTER            P2228000

000AD0 0620                        4392          BCTR  R2,R0               DECREMENT BY ONE                     P2230000
000AD2 4220 4000      00000        4393          STC   R2,0(,R4)           STORE UPDATED COUNTER                P2232000
                                   4394 *                                                                       P2234000
                                   4395 *        IF A(PRC) NE 0, MOVE PRC DATA TO CKPT-JOE                      P2236000
                                   4396 *                                                                       P2238000

000AD6                             4397 PTRMT    DS    0H                                                       P2240000
000AD6 943F 1002      00002        4398          NI    JOEFLAG,255-$JOEBUSY-$JOECKV RESET FLAGS                 P2242000
000ADA 1220                        4399          LTR   R2,R0               WAS A PRC ELEMENT SPECIFIED          P2244000

000ADC 4770 F064      00AF2        4400          BNZ   PTPRC               BRANCH IF YES                        P2246000
000AE0 4820 1006      00006        4401          LH    R2,JOECKPT          DISPL OF CKPT-JOE                    P2248000
000AE4 4570 F210      00C9E        4402          BAL   RNP,FREEJOE         ADD JOE TO FREE QUEUE                P2250000
000AE8 D701 1006 1006 00006 00006  4403          XC    JOECKPT,JOECKPT     CLEAR POINTER                        P2252000
000AEE 47F0 F074      00B02        4404          B     PTEXIT              PREPARE TO RETURN TO CALLER          P2254000
000AF2                             4405 PTPRC    DS    0H                                                       P2256000
000AF2 9640 1002      00002        4406          OI    JOEFLAG,$JOECKV     SET VALID CKPT-JOE DATA              P2258000

000AF6 4830 1006      00006        4407          LH    R3,JOECKPT          ADDRESS CKPT-JOE                     P2260000
000AFA 1A38                        4408          AR    R3,JOT              ADD JOT BASE                         P2262000
000AFC D217 3000 2004 00000 00004  4409          MVC   0(PRCSIZE-PRCFLAGS,R3),4(R2) PRC DATA TO CKPT-JOE        P2264000
000B02                             4410 PTEXIT   DS    0H                                                       P2266000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE PUT SUBROUTINE                                             PAGE   91



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4411 *                                                                       P2268000
                                   4412 *        INVOLK CHECKPOINT OF JOB OUTPUT TABLE                          P2270000
                                   4413 *                                                                       P2272000

000B02 5820 F282      00D10        4414          L     R2,=V($CKPTPCE)     ADDRESS OF CHECKPOINT PCE            P2274000
000B06 9602 B0C2      000C2        4415          OI    $STATUS,$JOTCKPT    REQUIRE JOT CHECKPOINT               P2276000
                                   4416         $POST  PCEEWF+$EWBWORK-PCEDSECT(R2),WORK FIRE UP CHKPT          P2278000
000B0A 94DF 2049      00049        4417+         NI    PCEEWF+$EWBWORK-PCEDSECT(R2),255-$EWFWORK                PO008000
000B0E 947F B0C4      000C4        4418+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   4419 *                                                                       P2280000

                                   4420 *        POST PRINT/PUNCH ROUTINES WAITING FOR JOT SERVICES             P2282000
                                   4421 *                                                                       P2284000
                                   4422         $POST  $HASPECF,JOT        POST JOT SERVICES AVAILABLE          P2286000
000B12 94FE B0C4      000C4        4423+         NI    $HASPECF,255-$EWFJOT                                     PO008000
                                   4424          DROP  R15                 SUSPEND LOCAL ADDRESSABILITY         P2288000

000B16 982C D01C      0001C        4425          LM    R2,R12,PCEWA        RELOAD CALLER'S REGISTERS            P2290000
000B1A 07FE                        4426          BR    R14                 RETURN TO CALLER                     P2292000
                                   4427          DROP  R1                  SUSPEND JOE ADDRESSABILITY           P2294000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE LOCATE SUBROUTINE                                          PAGE   92


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4429 *                                                                       P2300000
                                   4430 *        LOCATE AN ENTRY IN THE RESIDENT JOB OUTPUT TABLE               P2302000
                                   4431 *                                                                       P2304000
000B1C                             4432 LCCHK    DS    0H                                                       P2306000
                                   4433         $WAIT  CKPT                WAIT FOR CHECKPOINT TO COMPLETE      P2308000

000B1C 9604 D048      00048        4434+         OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
000B20 45F0 B030      00030        4435+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                            00B24  4436          USING *,R15               ACTIVATE LOCAL ADDRESSABILITY        P2310000
                                   4437          ENTRY $#LOC               FOR USE BY OTHER MODULES             P2312000
000B24                             4438 $#LOC    DS    0H                                                       P2314000

000B24 9110 B0C2      000C2        4439          TM    $STATUS,$CKPTACT    IS CHECKPOINT ACTIVE                 P2316000
000B28 4780 F00E      00B32        4440          BZ    LCCKPT              BRANCH IF NO                         P2318000
000B2C 58F0 F218      00D3C        4441          L     R15,=A(LCCHK)       ADDRESS OF WAIT                      P2320000
000B30 07FF                        4442          BR    R15                 BRANCH TO WAIT                       P2322000
                                   4443 *                                                                       P2324000
                                   4444 *        ADJUST RETURN ADDRESS FOR OVERLAY CALLERS                      P2326000

                                   4445 *                                                                       P2328000
000B32                             4446 LCCKPT   DS    0H                                                       P2330000
000B32 55E0 F204      00D28        4447          CL    R14,=F'4096'        TEST RETURN ADDRESS                  P2332000
000B36 4720 F018      00B3C        4448          BH    *+6                 BRANCH IF ABSOLUTE                   P2334000

000B3A 1EE8                        4449          ALR   R14,BASE3           COMPUTE ABSOLUTE RETURN ADDRESS      P2336000
000B3C 902C D01C      0001C        4450          STM   R2,R12,PCEWA        SAVE CALLER'S REGS IN HIS PCE        P2338000
000B40 4180 F23C      00D60        4451          LA    JOT,$JOT            JOT BASE REGISTER                    P2340000
                                   4452 *                                                                       P2342000
                                   4453 *        LOCATE EXIT                                                    P2344000

                                   4454 *                                                                       P2346000
000B44 1BFF                        4455          SR    R15,R15             CLEAR RETURN CODE REGISTER           P2348000
000B46 982C D01C      0001C        4456          LM    R2,R12,PCEWA        RELOAD CALLER'S REGISTERS            P2350000
000B4A 07FE                        4457          BR    R14                 RETURN TO CALLER                     P2352000
                                   4458          DROP  R15                 SUSPEND LOCAL ADDRESSABILITY         P2354000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE CANCEL SUBROUTINE                                          PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4460 *                                                                       P2360000
                                   4461 *        CANCEL ALL AVAILABLE ENTRIES FOR A SPECIFIC JOB                P2362000
                                   4462 *                                                                       P2364000

000B4C                             4463 CNCHK    DS    0H                                                       P2366000
                                   4464         $WAIT  CKPT                WAIT FOR CHECKPOINT TO COMPLETE      P2368000
000B4C 9604 D048      00048        4465+         OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
000B50 45F0 B030      00030        4466+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                            00B54  4467          USING *,R15               ACTIVATE LOCAL ADDRESSABILITY        P2370000

                                   4468          ENTRY $#CAN               FOR USE IN OTHER MODULES             P2372000
000B54                             4469 $#CAN    DS    0H                                                       P2374000
000B54 9110 B0C2      000C2        4470          TM    $STATUS,$CKPTACT    IS CHECKPOINT ACTIVE                 P2376000
000B58 4780 F00E      00B62        4471          BZ    CNCKPT              BRANCH IF NO                         P2378000
000B5C 58F0 F1EC      00D40        4472          L     R15,=A(CNCHK)       ADDRESS OF WAIT                      P2380000
000B60 07FF                        4473          BR    R15                 BRANCH TO WAIT                       P2382000
                                   4474 *                                                                       P2384000
                                   4475 *        ADJUST RETURN ADDRESS FOR OVERLAY CALLERS                      P2386000

                                   4476 *                                                                       P2388000
000B62                             4477 CNCKPT   DS    0H                                                       P2390000

000B62 55E0 F1D4      00D28        4478          CL    R14,=F'4096'        TEST RETURN ADDRESS                  P2392000
000B66 4720 F018      00B6C        4479          BH    *+6                 BRANCH IF ABSOLUTE                   P2394000
000B6A 1EE8                        4480          ALR   R14,BASE3           COMPUTE ABSOLUTE RETURN ADDRESS      P2396000
000B6C 902C D01C      0001C        4481          STM   R2,R12,PCEWA        SAVE CALLER'S REGS IN HIS PCE        P2398000
000B70 4180 F20C      00D60        4482          LA    JOT,$JOT            JOT BASE REGISTER                    P2400000

000B74 5B10 B13C      0013C        4483          S     R1,$JOBQPTR         USE DISPL FORM OF JQE POINTER        P2402000
000B78 4150 0048      00048        4484          LA    R5,72               INDEX TO CLASS QUEUES                P2404000
000B7C                             4485 CNCLASS  DS    0H                                                       P2406000
000B7C 4165 F216      00D6A        4486          LA    JOE,JOTCLSQ-2(R5)   LOAD CLASS QUEUE(INDEX) ADDR         P2408000
000B80                             4487 CNJOES   DS    0H                                                       P2410000
                            00000  4488          USING JOEDSECT,JOE        ACTIVATE JOE ADDRESSABILITY          P2412000
000B80 5060 D010      00010        4489          ST    JOE,PCER15          SAVE PREVIOUS WORK-JOE ADDR          P2414000
000B84 4860 6000      00000        4490          LH    JOE,JOENEXT         PICK NEXT WORK-JOE DISPL             P2416000
000B88 1266                        4491          LTR   JOE,JOE             END OF CLASS QUEUE                   P2418000
000B8A 4780 F0C4      00C18        4492          BZ    CNCLSX              BRANCH IF YES                        P2420000
000B8E 4166 8000      00000        4493          LA    JOE,0(JOE,JOT)      ADDRESS OF NEXT WORK-JOE             P2422000
000B92 9180 6002      00002        4494          TM    JOEFLAG,$JOEBUSY    IS THIS WORK-JOE BUSY                P2424000

000B96 4710 F02C      00B80        4495          BO    CNJOES              BRANCH IF YES                        P2426000
000B9A 5510 6010      00010        4496          CL    R1,JOEJQE           IS WORK-JOE FOR CANCELED JOB         P2428000
000B9E 4770 F02C      00B80        4497          BNE   CNJOES              BRANCH IF NO                         P2430000

                                   4498 *                                                                       P2432000
                                   4499 *        DECREMENT PENDING JOE COUNTER IN HASP JOB QUEUE ELEMENT        P2434000
                                   4500 *                                                                       P2436000
000BA2 5820 6010      00010        4501          L     R2,JOEJQE           JOB QUEUE ELEMENT DISPL              P2438000
000BA6 5A20 B13C      0013C        4502          A     R2,$JOBQPTR         ASS JOB QUEUE ORIGIN                 P2440000
000BAA 4832 000E      0000E        4503          LH    R3,QUEJOECT(R2)     GET PENDING JOE COUNTER              P2442000
000BAE 0630                        4504          BCTR  R3,R0               DECREMENT BY ONE                     P2444000
000BB0 4032 000E      0000E        4505          STH   R3,QUEJOECT(R2)     STORE UPDATED COUNTER                P2446000
                                   4506 *                                                                       P2448000

                                   4507 *        FREE CKPT-JOE IF ONE WAS ASSIGNED                              P2450000

                                   4508 *                                                                       P2452000
000BB4 4820 6006      00006        4509          LH    R2,JOECKPT          CKPT-JOE DISPL                       P2454000
000BB8 1222                        4510          LTR   R2,R2               WAS A CKPT-JOE ASSIGNED              P2456000
000BBA 4780 F06E      00BC2        4511          BZ    *+8                 BRANCH IF NO                         P2458000
000BBE 4570 F14A      00C9E        4512          BAL   RNP,FREEJOE         RETURN CKPT-JOE TO FREE QUEUE        P2460000

                                   4513 *                                                                       P2462000
                                   4514 *        DECREMENT CHARACTERISTICS-JOE USE COUNT                        P2464000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE CANCEL SUBROUTINE                                          PAGE   94


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4515 *                                                                       P2466000
000BC2 4820 6004      00004        4516          LH    R2,JOECHAR          CHAR-JOE DISPLACEMENT                P2468000
000BC6 4832 8002      00002        4517          LH    R3,JOEUSE-JOEDSECT(R2,JOT) GET USE COUNTER               P2470000
000BCA 0630                        4518          BCTR  R3,R0               DECREMENT BY ONE                     P2472000
000BCC 4032 8002      00002        4519          STH   R3,JOEUSE-JOEDSECT(R2,JOT) STORE UPDATED COUNTER         P2474000
000BD0 1233                        4520          LTR   R3,R3               IS NUMBER OF USERS ZERO              P2476000

000BD2 4770 F0A8      00BFC        4521          BNZ   CNWORK              BRANCH IF NO                         P2478000

                                   4522 *                                                                       P2480000
                                   4523 *        REMOVE CHARACTERISTICS-JOE FROM THE CHAR-QUEUE                 P2482000
                                   4524 *                                                                       P2484000
000BD6 4130 F216      00D6A        4525          LA    R3,JOTCHRQ          ADDRESS OF THE CHAR-JOE QUEUE        P2486000

000BDA 1B38                        4526          SR    R3,JOT              DISPL OF CHAR-QUEUE INTO JOT         P2488000
000BDC 4840 F216      00D6A        4527          LH    R4,JOTCHRQ          DISPL OF 1ST CHAR-JOE ON QUEUE       P2490000
000BE0                             4528 CNCQSCN  DS    0H                                                       P2492000
000BE0 1924                        4529          CR    R2,R4               IS NEXT JOE ONE TO BE FREED          P2494000
000BE2 4780 F09C      00BF0        4530          BE    CNCHEL              BRANCH IF YES                        P2496000
000BE6 1834                        4531          LR    R3,R4               MAKE NEXT PREVIOUS                   P2498000
000BE8 4844 8000      00000        4532          LH    R4,JOENEXT-JOEDSECT(R4,JOT) GET NEXT CHAR-JOE            P2500000
000BEC 47F0 F08C      00BE0        4533          B     CNCQSCN             CONTINUE CHAR-QUEUE SCAN             P2502000
000BF0                             4534 CNCHEL   DS    0H                                                       P2504000
000BF0 4842 8000      00000        4535          LH    R4,JOENEXT-JOEDSECT(R2,JOT) GET NEXT CHAR-JOE DISPL      P2506000
000BF4 4043 8000      00000        4536          STH   R4,JOENEXT-JOEDSECT(R3,JOT) REMOVE JOE FROM QUEUE        P2508000

000BF8 4570 F14A      00C9E        4537          BAL   RNP,FREEJOE         RETURN CHAR-JOE TO FREE QUEUE        P2510000
                                   4538 *                                                                       P2512000
                                   4539 *        REMOVE WORK-JOE FROM THE CLASS QUEUE                           P2514000
                                   4540 *                                                                       P2516000

000BFC                             4541 CNWORK   DS    0H                                                       P2518000
000BFC 4840 6000      00000        4542          LH    R4,JOENEXT          GET NEXT WORK-JOE DISPL              P2520000
000C00 5830 D010      00010        4543          L     R3,PCER15           GET PREVIOUS WORK-JOE ADDRESS        P2522000
000C04 4043 0000      00000        4544          STH   R4,JOENEXT-JOEDSECT(R3) STORE NEXT DISPL INTO PREV       P2524000
                                   4545 *                                                                       P2526000
                                   4546 *        RETURN WORK-JOE TO FREE QUEUE                                  P2528000
                                   4547 *                                                                       P2530000
000C08 1826                        4548          LR    R2,JOE              COPY WORK-JOE ADDRESS                P2532000
000C0A 1B28                        4549          SR    R2,JOT              MINUS JOB OUTPUT TABLE ORIGIN        P2534000
000C0C 4570 F14A      00C9E        4550          BAL   RNP,FREEJOE         RETURN WORK-JOE TO FREE QUEUE        P2536000
000C10 5860 D010      00010        4551          L     JOE,PCER15          MAKE PREVIOUS WORK-JOE CURRENT       P2538000
000C14 47F0 F02C      00B80        4552          B     CNJOES              CONTINUE CLASS QUEUE SCAN            P2540000

                                   4553 *                                                                       P2542000
                                   4554 *        STEP TO THE NEXT CLASS QUEUE                                   P2544000
                                   4555 *                                                                       P2546000

000C18                             4556 CNCLSX   DS    0H                                                       P2548000
000C18 0650                        4557          BCTR  R5,R0               DECREMENT QUEUE INDEX BY ONE         P2550000
000C1A 4650 F028      00B7C        4558          BCT   R5,CNCLASS          BRANCH IF NOT AT QUEUE END           P2552000
                                   4559 *                                                                       P2554000
                                   4560 *        ALL CLASS QUEUES HAVE BEEN SCANNED - PREPARE TO EXIT           P2556000
                                   4561 *                                                                       P2558000
000C1E 5A10 B13C      0013C        4562          A     R1,$JOBQPTR         DISPL OF JQE TO ADDRESS FORM         P2560000
000C22 9200 1001      00001        4563          MVI   QUETYPE(R1),$PURGE  MOVE JOB TO  $PURGE QUEUE            P2562000
000C26 D601 100E 100E 0000E 0000E  4564          OC    QUEJOECT(2,R1),QUEJOECT(R1) IS JOE COUNT ZERO            P2564000
000C2C 4780 F0E0      00C34        4565          BZ    *+8                 BRANCH IF YES                        P2566000
000C30 9202 1001      00001        4566          MVI   QUETYPE(R1),$HARDCPY MOVE JOB TO $HARDCPY QUEUE          P2568000
                                   4567 *                                                                       P2570000

                                   4568 *        INVOLK CHECKPOINT OF JOB OUTPUT TABLE                          P2572000

                                   4569 *                                                                       P2574000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE CANCEL SUBROUTINE                                          PAGE   95



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000C34                             4570 CNEXIT   DS    0H                                                       P2576000
000C34 5820 F1BC      00D10        4571          L     R2,=V($CKPTPCE)     ADDRESS OF CHECKPOINT PCE            P2578000
000C38 9602 B0C2      000C2        4572          OI    $STATUS,$JOTCKPT    REQUIRE JOT CHECKPOINT               P2580000
                                   4573         $POST  PCEEWF+$EWBWORK-PCEDSECT(R2),WORK FIRE UP CHKPT          P2582000
000C3C 94DF 2049      00049        4574+         NI    PCEEWF+$EWBWORK-PCEDSECT(R2),255-$EWFWORK                PO008000
000C40 947F B0C4      000C4        4575+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   4576 *                                                                       P2584000
                                   4577 *        POST PRINT/PUNCH ROUTINES WAITING FOR JOT SERVICES             P2586000
                                   4578 *                                                                       P2588000
                                   4579         $POST  $HASPECF,JOT-$EWFJOB POST JOT AND JOB AVAILABLE          P2590000
000C44 94EE B0C4      000C4        4580+         NI    $HASPECF,255-$EWFJOT-$EWFJOB                             PO008000

000C48 982C D01C      0001C        4581          LM    R2,R12,PCEWA        RELOAD CALLER'S REGISTERS            P2592000
000C4C 07FE                        4582          BR    R14                 RETURN TO CALLER                     P2594000

                                   4583          DROP  JOE                 SUSPEND JOE ADDRESSABILITY           P2596000

                                   4584          DROP  R15                 SUSPEND LOCAL ADDRESSABILITY         P2598000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE COMMON ROUTINES                                            PAGE   96


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4586 *                                                                       P2604000
                                   4587 *        SYSOUT CLASS ID TO CLASS QUEUE ADDRESS CONVERSION              P2606000
                                   4588 *                                                                       P2608000
000C4E                             4589 CNVCLASS DS    0H                                                       P2610000
000C4E 05C0                        4590          BALR  R12,R0              LOAD LOCAL BASE REGISTER             P2612000
                            00C50  4591          USING *,R12               ACTIVATE LOCAL ADDRESSABILITY        P2614000
000C50 4B30 C0FA      00D4A        4592          SH    R3,=H'193'          ADJUST CLASS A TO 00                 P2616000
000C54 4930 C0FC      00D4C        4593          CH    R3,=H'8'            CLASSES A-I                          P2618000
000C58 47D0 C028      00C78        4594          BNH   CNVCLSX             BRANCH IF YES                        P2620000

000C5C 4B30 C0FE      00D4E        4595          SH    R3,=H'7'            REMOVE I-J BREAK                     P2622000
000C60 4930 C100      00D50        4596          CH    R3,=H'17'           CLASSES J-R                          P2624000
000C64 47D0 C028      00C78        4597          BNH   CNVCLSX             BRANCH IF YES                        P2626000

000C68 4B30 C0FC      00D4C        4598          SH    R3,=H'8'            REMOVE R-S BREAK                     P2628000
000C6C 4930 C102      00D52        4599          CH    R3,=H'25'           CLASSES S-Z                          P2630000
000C70 47D0 C028      00C78        4600          BNH   CNVCLSX             BRANCH IF YES                        P2632000
000C74 4B30 C104      00D54        4601          SH    R3,=H'6'            REMOVE Z-0 BREAK                     P2634000
000C78                             4602 CNVCLSX  DS    0H                                                       P2636000
000C78 8930 0001      00001        4603          SLL   R3,1                QUEUE INDEX TO HALFWORD DISPL        P2638000
000C7C 4133 C11C      00D6C        4604          LA    R3,JOTCLSQ(R3)      ADDRESS OF CLASS QUEUE HEAD          P2640000
000C80 07F7                        4605          BR    RNP                 RETURN TO CALLER                     P2642000
                                   4606          DROP  R12                 SUSPEND LOCAL ADDRESSABILITY         P2644000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE COMMON ROUTINES                                            PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4608 *                                                                       P2648000

                                   4609 *        GET A JOE FROM THE FREE QUEUE                                  P2650000
                                   4610 *                                                                       P2652000
000C82                             4611 GETJOE   DS    0H                                                       P2654000
000C82 05C0                        4612          BALR  R12,R0              LOAD LOCAL BASE REGISTER             P2656000

                            00C84  4613          USING *,R12               ACTIVATE LOCAL ADDRESSABILITY        P2658000
000C84 4830 C0E0      00D64        4614          LH    R3,JOTFREC          GET FREE JOE COUNTER                 P2660000
000C88 0630                        4615          BCTR  R3,R0               DECREMENT BY ONE                     P2662000
000C8A 4030 C0E0      00D64        4616          STH   R3,JOTFREC          STORE UPDATED COUNTER IN JOT         P2664000
000C8E 4830 C0E4      00D68        4617          LH    R3,JOTFREQ          DISPL OF 1ST FREE JOE                P2666000
000C92 1A38                        4618          AR    R3,JOT              ADDRESS IF 1ST FREE JOE              P2668000

000C94 D201 C0E4 3000 00D68 00000  4619          MVC   JOTFREQ,0(R3)       REATTACH REMAINING FREE QUEUE        P2670000
000C9A 1B38                        4620          SR    R3,JOT              DISPL OF 1ST FREE JOE                P2672000
000C9C 07F7                        4621          BR    RNP                 RETURN TO CALLER                     P2674000
                                   4622          DROP  R12                 SUSPEND LOCAL ADDRESSABILITY         P2676000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  QUEUE COMMON ROUTINES                                            PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4624 *                                                                       P2680000
                                   4625 *        ADD A JOE TO THE FREE QUEUE                                    P2682000

                                   4626 *                                                                       P2684000
000C9E                             4627 FREEJOE  DS    0H                                                       P2686000

000C9E 05C0                        4628          BALR  R12,R0              LOAD LOCAL BASE REGISTER             P2688000
                            00CA0  4629          USING *,R12               ACTIVATE LOCAL ADDRESSABILITY        P2690000
000CA0 4830 C0C4      00D64        4630          LH    R3,JOTFREC          GET FREE JOE COUNTER                 P2692000
000CA4 4130 3001      00001        4631          LA    R3,1(,R3)           INCREMENT BY ONE                     P2694000
000CA8 4030 C0C4      00D64        4632          STH   R3,JOTFREC          STORE UPDATED COUNTER IN JOT         P2696000
000CAC 4130 C0C8      00D68        4633          LA    R3,JOTFREQ          ADDRESS FREE QUEUE POINTER           P2698000
000CB0                             4634 FRESCN   DS    0H                                                       P2700000
000CB0 4920 3000      00000        4635          CH    R2,0(,R3)           IS JOE DISPL LT NEXT FREE            P2702000

000CB4 4740 C032      00CD2        4636          BL    FREHIT              BRANCH IF YES                        P2704000
                                   4637 *        CLM   R2,12,0(R3)         IS NEXT FREE DISPL ZERO         RFIT P2706000
000CB8 5020 C064      00D04        4638          ST    R2,DARTSCR1                                         RFIT P2706005
000CBC D501 C064 3000 00D04 00000  4639          CLC   DARTSCR1(2),0(R3)                                   RFIT P2706015
000CC2 4780 C032      00CD2        4640          BE    FREHIT              BRANCH IF YES                        P2708000

000CC6 4830 3000      00000        4641          LH    R3,0(,R3)           DISPL OF NEXT FREE JOE               P2710000
000CCA 4133 8000      00000        4642          LA    R3,0(R3,JOT)        ADDRESS OF NEXT FREE JOE             P2712000
000CCE 47F0 C010      00CB0        4643          B     FRESCN              CONTINUE SEARCH                      P2714000

000CD2                             4644 FREHIT   DS    0H                                                       P2716000
                                   4645 *        ICM   R2,12,0(R3)         GET OLD NEXT FREE DISPL         RFIT P2718000
000CD2 D703 C064 C064 00D04 00D04  4646          XC    DARTSCR1,DARTSCR1                                   RFIT P2718005
000CD8 8920 0010      00010        4647          SLL   R2,16                                               RFIT P2718010
000CDC 8820 0010      00010        4648          SRL   R2,16                                               RFIT P2718015
000CE0 D201 C064 3000 00D04 00000  4649          MVC   DARTSCR1(2),0(R3)                                   RFIT P2718020
000CE6 5620 C064      00D04        4650          O     R2,DARTSCR1                                         RFIT P2718025

000CEA 4020 3000      00000        4651          STH   R2,0(,R3)           STORE NEW DISPL AS NEXT FREE         P2720000
000CEE 1832                        4652          LR    R3,R2               COPY R2                              P2722000
000CF0 5430 C0A4      00D44        4653          N     R3,=F'65535'        CLEAR HIGH HALF WORD                 P2724000
000CF4 4133 8000      00000        4654          LA    R3,0(R3,JOT)        ADDRESS OF NEW NEXT FREE             P2726000
                                   4655 *        STCM  R2,12,0(R3)         RECONNECT CHAIN                 RFIT P2728000

000CF8 5020 C064      00D04        4656          ST    R2,DARTSCR1                                         RFIT P2728005
000CFC D201 3000 C064 00000 00D04  4657          MVC   0(2,R3),DARTSCR1                                    RFIT P2728010
000D02 07F7                        4658          BR    RNP                 RETURN TO CALLER                     P2730000
                                   4659          DROP  R12                 SUSPEND LOCAL ADDRESSABILITY         P2732000

PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  LITERALS                                                         PAGE   99


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000D04                             4661 DARTSCR1 DS    F                                                   RFIT P2734005
                                   4662 *                                                                       P2736000
                                   4663 *        LITERAL POOL                                                   P2738000
                                   4664 *                                                                       P2740000

000D08                             4665          DS    0D                  ALIGNMENT                            P2742000
000D08                             4666          LTORG                                                          P2744000
000D08 C8C1E2D7D7D9D7E4            4667                =C'HASPPRPU'
000D10 00000000                    4668                =V($CKPTPCE)
000D14 F6404040                    4669                =CL4'6'

000D18 5C5C5C5C                    4670                =CL4'****'
000D1C 000003E8                    4671                =F'1000'
000D20 00000000                    4672                =V($#ADD)
000D24 0000064E                    4673                =A(ADCHK)
000D28 00001000                    4674                =F'4096'

000D2C 00000770                    4675                =A(RMCHK)
000D30 0000087C                    4676                =A(GTCHK)
000D34 E2E3C44B                    4677                =CL4'STD.'
000D38 00000A86                    4678                =A(PTCHK)
000D3C 00000B1C                    4679                =A(LCCHK)

000D40 00000B4C                    4680                =A(CNCHK)
000D44 0000FFFF                    4681                =F'65535'
000D48 8000                        4682                =X'8000'
000D4A 00C1                        4683                =H'193'
000D4C 0008                        4684                =H'8'

000D4E 0007                        4685                =H'7'
000D50 0011                        4686                =H'17'
000D52 0019                        4687                =H'25'
000D54 0006                        4688                =H'6'
000D56 80                          4689                =AL1(DCTREAD)
000D57 00                          4690                =X'00'

000D58 01                          4691                =X'01'
000D59 40                          4692                =AL1(DCTWRITE)
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  RESIDENT JOB OUTPUT TABLE                                        PAGE  100


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4694 *                                                                       P2750000
                                   4695 *        RESIDENT JOB OUTPUT TABLE                                      P2752000
                                   4696 *                                                                       P2754000
                                   4697          ENTRY $JOT                HASP JOB OUTPUT TABLE                P2756000
000D60                             4698 $JOT     DS    0D                                                       P2758000

000D60 0000                        4699 JOTJOBNO DC    H'0'                JOB INPROGRESS                       P2760000
000D62 0000                        4700 JOTCKPT  DC    H'0'                CURRENT JOE BUILD NO                 P2762000
                                   4701 JOTFREC  DC    H'&NUMJOES'         NUMBER OF FREE JOES                  P2764000
000D64 0040                        4702+JOTFREC  DC    H'64'               NUMBER OF FREE JOES                  P2764000
                                   4703 JOTFREL  DC    H'&MINJOES'         MIN NO OF FREE JOES                  P2766000
000D66 000C                        4704+JOTFREL  DC    H'12'               MIN NO OF FREE JOES                  P2766000
000D68 0054                        4705 JOTFREQ  DC    AL2(JOTJOES-$JOT)   PTR TO FIRST JOE                     P2768000

000D6A 0000                        4706 JOTCHRQ  DC    H'0'                QUEUE OF CHAR-JOES                   P2770000
000D6C 0000000000000000            4707 JOTCLSQ  DC    36H'0'              CLASS QUEUES A-Z,0-9                 P2772000
000DB4                             4708 JOTJOES  DS    0F                  START OF JOB OUTPUT ELEMENTS         P2774000

                                   4709 &TEMP    SETA  1                   JOE COUNTER                          P2776000
                                   4710 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000DB4 0070                        4711          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000DB6 0000000000000000            4712          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4713 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   4714          AGO   .JOT1                                                    P2786000
                                   4715 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000DD0 008C                        4716          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000DD2 0000000000000000            4717          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4718 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4719          AGO   .JOT1                                                    P2786000
                                   4720 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000

000DEC 00A8                        4721          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000DEE 0000000000000000            4722          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4723 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   4724          AGO   .JOT1                                                    P2786000
                                   4725 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000E08 00C4                        4726          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000E0A 0000000000000000            4727          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4728 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   4729          AGO   .JOT1                                                    P2786000
                                   4730 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000E24 00E0                        4731          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000E26 0000000000000000            4732          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4733 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4734          AGO   .JOT1                                                    P2786000
                                   4735 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000E40 00FC                        4736          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

000E42 0000000000000000            4737          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4738 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   4739          AGO   .JOT1                                                    P2786000
                                   4740 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000E5C 0118                        4741          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000E5E 0000000000000000            4742          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4743 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   4744          AGO   .JOT1                                                    P2786000
                                   4745 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000E78 0134                        4746          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000E7A 0000000000000000            4747          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4748 &TEMP    SETA  &TEMP+1                                                  P2784000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  RESIDENT JOB OUTPUT TABLE                                        PAGE  101


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4749          AGO   .JOT1                                                    P2786000
                                   4750 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000

000E94 0150                        4751          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

000E96 0000000000000000            4752          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4753 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4754          AGO   .JOT1                                                    P2786000
                                   4755 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000EB0 016C                        4756          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

000EB2 0000000000000000            4757          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4758 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4759          AGO   .JOT1                                                    P2786000
                                   4760 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000ECC 0188                        4761          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000ECE 0000000000000000            4762          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4763 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4764          AGO   .JOT1                                                    P2786000
                                   4765 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000EE8 01A4                        4766          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

000EEA 0000000000000000            4767          DC    (JOESIZE-2)X'00'                                         P2782000

                                   4768 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4769          AGO   .JOT1                                                    P2786000
                                   4770 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000F04 01C0                        4771          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

000F06 0000000000000000            4772          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4773 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4774          AGO   .JOT1                                                    P2786000
                                   4775 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000F20 01DC                        4776          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000F22 0000000000000000            4777          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4778 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4779          AGO   .JOT1                                                    P2786000
                                   4780 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000F3C 01F8                        4781          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000F3E 0000000000000000            4782          DC    (JOESIZE-2)X'00'                                         P2782000

                                   4783 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4784          AGO   .JOT1                                                    P2786000
                                   4785 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000F58 0214                        4786          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

000F5A 0000000000000000            4787          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4788 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4789          AGO   .JOT1                                                    P2786000
                                   4790 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000F74 0230                        4791          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000F76 0000000000000000            4792          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4793 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4794          AGO   .JOT1                                                    P2786000
                                   4795 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000F90 024C                        4796          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000F92 0000000000000000            4797          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4798 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   4799          AGO   .JOT1                                                    P2786000
                                   4800 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000FAC 0268                        4801          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

000FAE 0000000000000000            4802          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4803 &TEMP    SETA  &TEMP+1                                                  P2784000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  RESIDENT JOB OUTPUT TABLE                                        PAGE  102


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4804          AGO   .JOT1                                                    P2786000
                                   4805 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000FC8 0284                        4806          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
000FCA 0000000000000000            4807          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4808 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4809          AGO   .JOT1                                                    P2786000
                                   4810 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
000FE4 02A0                        4811          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

000FE6 0000000000000000            4812          DC    (JOESIZE-2)X'00'                                         P2782000

                                   4813 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4814          AGO   .JOT1                                                    P2786000

                                   4815 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001000 02BC                        4816          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001002 0000000000000000            4817          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4818 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4819          AGO   .JOT1                                                    P2786000
                                   4820 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
00101C 02D8                        4821          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
00101E 0000000000000000            4822          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4823 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4824          AGO   .JOT1                                                    P2786000
                                   4825 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001038 02F4                        4826          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

00103A 0000000000000000            4827          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4828 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   4829          AGO   .JOT1                                                    P2786000

                                   4830 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001054 0310                        4831          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001056 0000000000000000            4832          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4833 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4834          AGO   .JOT1                                                    P2786000
                                   4835 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001070 032C                        4836          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001072 0000000000000000            4837          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4838 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4839          AGO   .JOT1                                                    P2786000
                                   4840 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
00108C 0348                        4841          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

00108E 0000000000000000            4842          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4843 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4844          AGO   .JOT1                                                    P2786000

                                   4845 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
0010A8 0364                        4846          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
0010AA 0000000000000000            4847          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4848 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4849          AGO   .JOT1                                                    P2786000
                                   4850 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
0010C4 0380                        4851          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
0010C6 0000000000000000            4852          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4853 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4854          AGO   .JOT1                                                    P2786000
                                   4855 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
0010E0 039C                        4856          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

0010E2 0000000000000000            4857          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4858 &TEMP    SETA  &TEMP+1                                                  P2784000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  RESIDENT JOB OUTPUT TABLE                                        PAGE  103


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4859          AGO   .JOT1                                                    P2786000
                                   4860 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
0010FC 03B8                        4861          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
0010FE 0000000000000000            4862          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4863 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4864          AGO   .JOT1                                                    P2786000

                                   4865 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001118 03D4                        4866          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
00111A 0000000000000000            4867          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4868 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4869          AGO   .JOT1                                                    P2786000
                                   4870 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001134 03F0                        4871          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001136 0000000000000000            4872          DC    (JOESIZE-2)X'00'                                         P2782000

                                   4873 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4874          AGO   .JOT1                                                    P2786000

                                   4875 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001150 040C                        4876          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001152 0000000000000000            4877          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4878 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4879          AGO   .JOT1                                                    P2786000
                                   4880 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
00116C 0428                        4881          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
00116E 0000000000000000            4882          DC    (JOESIZE-2)X'00'                                         P2782000

                                   4883 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4884          AGO   .JOT1                                                    P2786000
                                   4885 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001188 0444                        4886          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
00118A 0000000000000000            4887          DC    (JOESIZE-2)X'00'                                         P2782000

                                   4888 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4889          AGO   .JOT1                                                    P2786000
                                   4890 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000

0011A4 0460                        4891          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
0011A6 0000000000000000            4892          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4893 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4894          AGO   .JOT1                                                    P2786000
                                   4895 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
0011C0 047C                        4896          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
0011C2 0000000000000000            4897          DC    (JOESIZE-2)X'00'                                         P2782000

                                   4898 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4899          AGO   .JOT1                                                    P2786000
                                   4900 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
0011DC 0498                        4901          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
0011DE 0000000000000000            4902          DC    (JOESIZE-2)X'00'                                         P2782000

                                   4903 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4904          AGO   .JOT1                                                    P2786000
                                   4905 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
0011F8 04B4                        4906          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

0011FA 0000000000000000            4907          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4908 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4909          AGO   .JOT1                                                    P2786000
                                   4910 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001214 04D0                        4911          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001216 0000000000000000            4912          DC    (JOESIZE-2)X'00'                                         P2782000

                                   4913 &TEMP    SETA  &TEMP+1                                                  P2784000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  RESIDENT JOB OUTPUT TABLE                                        PAGE  104


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4914          AGO   .JOT1                                                    P2786000
                                   4915 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000

001230 04EC                        4916          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001232 0000000000000000            4917          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4918 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4919          AGO   .JOT1                                                    P2786000
                                   4920 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000

00124C 0508                        4921          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
00124E 0000000000000000            4922          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4923 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4924          AGO   .JOT1                                                    P2786000
                                   4925 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000

001268 0524                        4926          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
00126A 0000000000000000            4927          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4928 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4929          AGO   .JOT1                                                    P2786000
                                   4930 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000

001284 0540                        4931          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001286 0000000000000000            4932          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4933 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4934          AGO   .JOT1                                                    P2786000
                                   4935 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
0012A0 055C                        4936          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

0012A2 0000000000000000            4937          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4938 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4939          AGO   .JOT1                                                    P2786000
                                   4940 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000

0012BC 0578                        4941          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
0012BE 0000000000000000            4942          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4943 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4944          AGO   .JOT1                                                    P2786000
                                   4945 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000

0012D8 0594                        4946          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
0012DA 0000000000000000            4947          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4948 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4949          AGO   .JOT1                                                    P2786000
                                   4950 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
0012F4 05B0                        4951          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

0012F6 0000000000000000            4952          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4953 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4954          AGO   .JOT1                                                    P2786000
                                   4955 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000

001310 05CC                        4956          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001312 0000000000000000            4957          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4958 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4959          AGO   .JOT1                                                    P2786000
                                   4960 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000

00132C 05E8                        4961          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
00132E 0000000000000000            4962          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4963 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4964          AGO   .JOT1                                                    P2786000
                                   4965 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001348 0604                        4966          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
00134A 0000000000000000            4967          DC    (JOESIZE-2)X'00'                                         P2782000

                                   4968 &TEMP    SETA  &TEMP+1                                                  P2784000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  RESIDENT JOB OUTPUT TABLE                                        PAGE  105


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4969          AGO   .JOT1                                                    P2786000
                                   4970 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001364 0620                        4971          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001366 0000000000000000            4972          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4973 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   4974          AGO   .JOT1                                                    P2786000
                                   4975 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001380 063C                        4976          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001382 0000000000000000            4977          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4978 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4979          AGO   .JOT1                                                    P2786000
                                   4980 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
00139C 0658                        4981          DC    AL2(*-$JOT+JOESIZE)                                      P2780000

00139E 0000000000000000            4982          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4983 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   4984          AGO   .JOT1                                                    P2786000
                                   4985 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
0013B8 0674                        4986          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
0013BA 0000000000000000            4987          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4988 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   4989          AGO   .JOT1                                                    P2786000
                                   4990 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
0013D4 0690                        4991          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
0013D6 0000000000000000            4992          DC    (JOESIZE-2)X'00'                                         P2782000
                                   4993 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   4994          AGO   .JOT1                                                    P2786000
                                   4995 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
0013F0 06AC                        4996          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
0013F2 0000000000000000            4997          DC    (JOESIZE-2)X'00'                                         P2782000

                                   4998 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   4999          AGO   .JOT1                                                    P2786000
                                   5000 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
00140C 06C8                        5001          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
00140E 0000000000000000            5002          DC    (JOESIZE-2)X'00'                                         P2782000
                                   5003 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   5004          AGO   .JOT1                                                    P2786000
                                   5005 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001428 06E4                        5006          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
00142A 0000000000000000            5007          DC    (JOESIZE-2)X'00'                                         P2782000
                                   5008 &TEMP    SETA  &TEMP+1                                                  P2784000
                                   5009          AGO   .JOT1                                                    P2786000
                                   5010 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001444 0700                        5011          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001446 0000000000000000            5012          DC    (JOESIZE-2)X'00'                                         P2782000
                                   5013 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   5014          AGO   .JOT1                                                    P2786000

                                   5015 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
001460 071C                        5016          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
001462 0000000000000000            5017          DC    (JOESIZE-2)X'00'                                         P2782000
                                   5018 &TEMP    SETA  &TEMP+1                                                  P2784000

                                   5019          AGO   .JOT1                                                    P2786000
                                   5020 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
00147C 0738                        5021          DC    AL2(*-$JOT+JOESIZE)                                      P2780000
00147E 0000000000000000            5022          DC    (JOESIZE-2)X'00'                                         P2782000
                                   5023 &TEMP    SETA  &TEMP+1                                                  P2784000
PRPU     HASP OUTPUT PROCESSOR EXECUTIVE  --  RESIDENT JOB OUTPUT TABLE                                        PAGE  106


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5024          AGO   .JOT1                                                    P2786000
                                   5025 .JOT1    AIF   (&TEMP EQ &NUMJOES).JOT2                                 P2778000
                                   5026 .JOT2    ANOP                                                           P2788000
001498 0000000000000000            5027          DC    (JOESIZE)X'00'      LAST JOB OUTPUT ELEMENT              P2790000

0014B8                             5028 JOTEND   DS    0D                  END OF JOB OUTPUT TABLE              P2792000
PRPU     HASP PRINT/PUNCH SERVICE PROCESSOR                                                                    PAGE  107


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5030 *                                                                       P2796000

                                   5031 *              PRINT/PUNCH REGISTER DEFINITIONS                         P2798000
                                   5032 *                                                                       P2800000



                            00002  5034 PW       EQU   WA                  WORK REGISTER                        P2804000
                            00003  5035 PBUF     EQU   WB                  BUFFER POINTER                       P2806000
                            00004  5036 PC1      EQU   WC                  CCW REGISTAR 1                       P2808000
                            00005  5037 PC2      EQU   WD                  CCW REGISTER 2                       P2810000
                            00006  5038 BASE2A   EQU   WE                  SECOND LOCAL BASE REGISTER           P2812000
                            00007  5039 PL       EQU   WF                  INTERNAL LINKAGE REGISTER            P2814000
                            00008  5040 PLC      EQU   WG                  PRINT LINE COUNT                     P2816000






                                   5042 *                                                                       P2820000
                                   5043 *                             PPFLAG SWITCH DEFINITIONS                 P2822000
                                   5044 *                                                                       P2824000




                            00080  5046 PPWSW    EQU   X'80'               PRINT/PUNCH WRITE SWITCH             P2828000
                            00040  5047 PPDELSW  EQU   X'40'               PRINT/PUNCH SUSPEND SWITCH           P2830000
                            00020  5048 PPFLG20  EQU   X'20'               RESERVED                             P2832000
                            00010  5049 PRDELSW  EQU   X'10'               PRINT/PUNCH ABORT SWITCH             P2834000
                            00008  5050 PPNOJOE  EQU   X'08'               PRINT/PUNCH WORK JOE RELEASED        P2836000
                            00004  5051 PPRDERR  EQU   X'04'               PRINT/PUNCH DATA READ ERROR          P2838000
                            00002  5052 PPJCTIOT EQU   X'02'               PRINT/PUNCH JCT/IOT READ ERROR       P2840000





PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIAZATION                                                 PAGE  108


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


0014B8                             5055 HASPPRPU CSECT                     HASP PRINT/PUNCH PROCESSOR           P2846000

                            014B8  5056          USING *,BASE2             ACTIVATE LOCAL ADDRESSABILITY        P2848000
                            00000  5057          USING BUFDSECT,PBUF       ACTIVATE BUFFER ADDRESSABILITY       P2850000

                            00000  5058          USING JCTDSECT,JCT        ACTIVATE JCT ADDRESSABILITY          P2852000
                            024B8  5059          USING *+4096,BASE2A       SECOND LOCAL BASE REGISTER           P2854000
                                   5060          ENTRY HASPPR,HASPPU       PRINT/PUNCH ENTRY POINTS             P2856000





0014B8                             5062 HASPPR   DS    0H                                                       P2860000
0014B8                             5063 HASPPU   DS    0H                                                       P2862000
0014B8                             5064 PRPUENT  DS    0H                                                       P2864000
0014B8 4160 C800      00800        5065          LA    BASE2A,2048(,BASE2) SETUP SECOND LOCAL                   P2866000
0014BC 4160 6800      00800        5066          LA    BASE2A,2048(,BASE2A) BASE REGISTER                       P2868000
                                   5067         $LINK  HASPPPI1            INITIALIZATION MODULE 1              P2870000
000000                             5068+HA$QPPI1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000

0014C0                             5069+HASPPRPU CSECT                                                          OL014000
0014C0 41E00000                    5070+         DC    Y(X'4100'+LINK*16),QL2(HA$QPPI1) LOAD OCON INTO LINK     OL016000

0014C4 45F0 B08C      0008C        5071+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000

0014C8 0574                        5072          BALR  PL,PC1              UPON RETURN PC1 SPECIFIES EXIT       P2872000





                                   5074 PLINKI2 $LINK  HASPPPI2            INITIALIZATION MODULE 2              P2876000
000000                             5075+HA$QPPI2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
0014CA                             5076+HASPPRPU CSECT                                                          OL014000
0014CA 41E00000                    5077+PLINKI2  DC    Y(X'4100'+LINK*16),QL2(HA$QPPI2) LOAD OCON INTO LINK     OL016000
0014CE 45F0 B08C      0008C        5078+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000
0014D2 07F4                        5079          BR    PC1                 UPON RETURN PC1 SPECIFIES EXIT       P2878000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIAZATION                                                 PAGE  109


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5081 HASPPPI1 $OVERLAY &MED,&HIGH       DEFINE FIRST OVERLAY                 P2882000

002B88                             5082+HA$OPPI1 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            02B90  5083+HA$IPPI1 EQU   HA$OPPI1+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   5084+         ENTRY HA$IPPI1                                                 OV036000

002B88 D7D7C9F1                    5085+         DC    CL4'PPI1'           IDENTIFY MODULE ON CORE DUMP         OV038000
002B8C 00002B88                    5086+         DC    A(HA$OPPI1)         ASSEMBLY ORIGIN                      OV040000
002B90                             5087+HASPPPI1 DS    0F                  ENTRY POINT                          OV042000
                            02B30  5088+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
002B90 9200 D0D0      000D0        5089          MVI   PLSAVE3,X'00'       RESET TERMINATION FLAG       OY07290 P2883000
002B94 9140 D04A      0004A        5090          TM    PCEID,PCEPUSID      IS THIS A PUNCH PROCESSOR            P2884000
002B98 4710 8082      02BB2        5091          BO    PUNCHI1             BRANCH IF YES                        P2886000
002B9C 0540                        5092 PRINTI1  BALR  PC1,0               ESTABLISH N/P EXIT RETURN            P2888000
                                   5093          AIF   (&NUMLNES EQ 0).PNRJE01                                  P2890000
                                   5094 .PNRJE01 ANOP                      *                                    P2904000
                                   5095 PGETPRT $GETUNIT PRT,PNOUNIT,OLAY=YES   GET LOCAL PRINTER               P2906000
002B9E 4110 0020      00020        5096+PGETPRT  LA    R1,DCTPRT                                                DG012000

002BA2 45E0 B040      00040        5097+         BAL   LINK,$GETUNIT       LINK TO CONTROL SERVICE PROGRAM      GU010000
002BA6 4780 8208      02D38        5098+         BC    8,PNOUNIT                                                NP008000
002BAA 9202 D0C4      000C4        5099          MVI   PBUFOPT,$PRTBOPT    SET LOCAL PRINT BUFFERING OPTION     P2908000
002BAE 47F0 8094      02BC4        5100          B     PGOTUNIT            CONTINUE INITIALIZATION              P2910000




002BB2 0540                        5102 PUNCHI1  BALR  PC1,0               ESTABLISH N/P EXIT RETURN            P2914000
                                   5103          AIF   (&NUMLNES EQ 0 OR &NUMTPPU EQ 0).PNRJE02                 P2916000
                                   5104 .PNRJE02 ANOP                      *                                    P2930000
                                   5105 PGETPUN $GETUNIT PUN,PNOUNIT,OLAY=YES   GET LOCAL PUNCH                 P2932000
002BB4 4110 0030      00030        5106+PGETPUN  LA    R1,DCTPUN                                                DG012000

002BB8 45E0 B040      00040        5107+         BAL   LINK,$GETUNIT       LINK TO CONTROL SERVICE PROGRAM      GU010000
002BBC 4780 8208      02D38        5108+         BC    8,PNOUNIT                                                NP008000
002BC0 9201 D0C4      000C4        5109          MVI   PBUFOPT,$PUNBOPT    SET LOCAL PUNCH BUFFERING OPTION     P2934000



002BC4 5010 D058      00058        5111 PGOTUNIT ST    R1,PDCT             SAVE ADDRESS OF PRINT/PUNCH DCT      P2938000
                            00000  5112          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         P2940000
002BC8 4100 D049      00049        5113          LA    R0,PCEEWF+$EWBIO    SET ADDRESS OF                       P2942000
002BCC 5000 100C      0000C        5114          ST    R0,DCTEWF            EVENT WAIT FIELD                    P2944000

002BD0 9200 1014      00014        5115          MVI   DCTFLAGS,0          RESET OPERATOR COMMANDS              P2946000



                                   5117         $ACTIVE R=PW               INDICATE PROCESSOR ACTIVE            P2950000
002BD4 4320 B0C7      000C7        5118+         IC    PW,$ACTIVE          INDICATE                             AC006000
002BD8 4120 2001      00001        5119+         LA    PW,1(,PW)            PROCESSOR                           AC008000
002BDC 4220 B0C7      000C7        5120+         STC   PW,$ACTIVE            ACTIVE                             AC010000
                                   5121          AIF   (&NUMLNES EQ 0 OR &SPOLMSG EQ 0).PNRJE03                 P2952000
                                   5122 .PNRJE03 ANOP                                                           P2990000



                                   5124          DROP  R1                  SUSPEND DCT ADDRESSABILITY           P2994000

002BE0 4100 6528      029E0        5125          LA    R0,=C'HASPPRPU'     HASP WRITER ID                       P2996000
                                   5126         $#GET  WTRID=(R0),DCT=(R1),OLAY=YES IS THERE WORK               P2998000
002BE4 58F0 6538      029F0        5127+         L     R15,=V($#GET)       BASE FOR $#GET SUBROUTINE            GT024000
002BE8 41E0 80C0      02BF0        5128+         LA    R14,*+8             LOAD RETURN REGISTER                 GT028000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIAZATION                                                 PAGE  110



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002BEC 1FE8                        5129+         SLR   R14,BASE3           MAKE RETURN ADDRESS RELATIVE         GT030000
002BEE 07FF                        5130+         BR    R15                 BRANCH TO JOT SUBROUTINE             GT032000

002BF0 4780 8224      02D54        5131          BZ    PNOJOB              BRANCH IF NONE AVAILABLE             P3000000
002BF4 5000 D0DC      000DC        5132          ST    R0,PCHJOE           SAVE CHAR-JOE ADDRESS                P3002000
002BF8 50F0 D0D8      000D8        5133          ST    R15,PWKJOE          SAVE WORK-JOE ADDRESS                P3004000



002BFC 5010 D060      00060        5135 PGOTJOB  ST    R1,PJOB             SAVE ADDRESS OF JOB QUEUE ELEMENT    P3008000
002C00 9280 D060      00060        5136          MVI   PJOB,X'80'          SET SIGN BIT                         P3010000
002C04 58A0 D060      00060        5137          L     JCT,PJOB            SET JCT TO JOB QUEUE ENTRY           P3012000



                                   5139         $TIME  OLAY=YES            GET TIME OF DAY                      P3016000
002C08 4110 0001      00001        5140+         LA    1,1(0,0)                          LOAD 1 TO SPECIFY UNIT 00200000
002C0C 0A0B                        5141+         SVC   11                                ISSUE TIME SVC         00280000
002C0E 9001 D06C      0006C        5142          STM   R0,R1,PTIMEON       PRPU SIGN-ON TIME/DATE               P3018000



                                   5144          AIF   (&NUMLNES EQ 0).PNRJE04                                  P3022000
                                   5145 .PNRJE04 ANOP                      *                                    P3032000



002C12 5820 D058      00058        5147 PLOCAL   L     PW,PDCT             GET ADDRESS OF PRINT/PUNCH DCT       P3036000
                            00000  5148          USING DCTDSECT,PW         ESTABLISH DCT ADDRESSABILITY         P3038000
002C16 94FD 202C      0002C        5149          NI    DCTPPSW,255-DCTPPSWI RESET IDLE SWITCH                   P3040000
002C1A 5810 2008      00008        5150          L     R1,DCTDCB           GET ADDRESS OF DCB                   P3042000
                            00000  5151          USING DCBDSECT,R1         ESTABLISH DCB ADDRESSABILITY         P3044000
002C1E 5810 102C      0002C        5152          L     R1,DCBDEBAD         GET ADDRESS OF DEB                   P3046000

                            00000  5153          USING DEBDSECT,R1         ESTABLISH DEB ADDRESSABILTIY         P3048000
002C22 5810 1020      00020        5154          L     R1,DEBUCBAD         GET ADDRESS OF UCB                   P3050000
                            00000  5155          USING UCBDSECT,R1         ESTABLISH UCB ADDRESSABILITY         P3052000
002C26 D202 D0C5 1011 000C5 00011  5156          MVC   PDEVTYPE+1(3),UCBTYP+1   MOVE DEVICE TYPE TO PCE         P3054000
                                   5157          DROP  R1,PW               DROP ADDRESSABILITY                  P3056000



002C2C 0540                        5159 PREMOTE  BALR  PC1,0               ESTABLISH N/P EXIT RETURN            P3060000
                                   5160         $GETUNIT DA,PNOUNIT,OLAY=YES    GET DIRECT-ACCESS DCT           P3062000
002C2E 4110 0000      00000        5161+         LA    R1,DCTDA                                                 DG012000

002C32 45E0 B040      00040        5162+         BAL   LINK,$GETUNIT       LINK TO CONTROL SERVICE PROGRAM      GU010000
002C36 4780 8208      02D38        5163+         BC    8,PNOUNIT                                                NP008000
002C3A 5010 D05C      0005C        5164          ST    R1,PDADCT           SAVE ADDRESS OF DIRECT-ACCESS DCT    P3064000
                            00000  5165          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         P3066000
002C3E 4100 D049      00049        5166          LA    R0,PCEEWF+$EWBIO    SET ADDRESS OF                       P3068000
002C42 5000 100C      0000C        5167          ST    R0,DCTEWF            EVENT WAIT FIELD                    P3070000

002C46 9280 1013      00013        5168          MVI   DCTIOTYP,DCTREAD    SET TO READ                          P3072000
                                   5169          DROP  R1                  DROP DCT ADDRESSABILITY              P3074000


002C4A 0540                        5171          BALR  PC1,0               ESTABLISH N/P EXIT RETURN            P3078000
                                   5172         $GETBUF PNOBUF,OLAY=YES    ACQUIRE FIRST BUFFER                 P3080000

002C4C 45E0 B034      00034        5173+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
002C50 4780 8216      02D46        5174+         BC    8,PNOBUF                                                 NP008000
002C54 5010 D074      00074        5175          ST    R1,PBUFSAVE         SAVE FIRST BUFFER ADDRESS            P3082000
002C58 9502 D0C4      000C4        5176          CLI   PBUFOPT,2           TEST BUFFER OPTION                   P3084000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIAZATION                                                 PAGE  111



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002C5C 4770 813A      02C6A        5177          BNE   PNOSECBF            BRANCH IF NOT DOUBLE BUFFERING       P3086000
002C60 0540                        5178          BALR  PC1,0               ESTABLISH N/P EXIT RETURN            P3088000
                                   5179         $GETBUF PNOBUF,OLAY=YES    ACQUIRE SECOND BUFFER                P3090000
002C62 45E0 B034      00034        5180+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000

002C66 4780 8216      02D46        5181+         BC    8,PNOBUF                                                 NP008000
002C6A 1831                        5182 PNOSECBF LR    PBUF,R1             ESTABLISH BUFFER ADDRESSABILITY      P3092000


002C6C 12AA                        5184          LTR   JCT,JCT             TEST FOR JOB                         P3096000
002C6E 4780 819C      02CCC        5185          BZ    PNOMSG              DO RMT MSGS IF NO JOB                P3098000

002C72 58F0 A008      00008        5186          L     R15,QUETRAK(,JCT)   GET TRACK ADDRESS OF JCT             P3100000
002C76 4570 CF28      023E0        5187          BAL   PL,PRDBUF           READ JCT                             P3102000
002C7A 4570 CF48      02400        5188          BAL   PL,PRDCHKOL         CHECK READ                   OY07290 P3104000
002C7E 18A3                        5189          LR    JCT,PBUF            JCT = A(JOB CONTROL TABLE)           P3106000
002C80 5810 A058      00058        5190          L     R1,JCTJQE           JOB QUEUE ELEMENT OFFSET             P3108000
002C84 5A10 B13C      0013C        5191          A     R1,$JOBQPTR         ADD JOB QUEUE ORIGIN                 P3110000

                                   5192 *        CLM   R1,7,PJOB+1         IS JOB CONTROL TABLE VALID      RFIT P3112000
002C88 5010 6520      029D8        5193          ST    R1,DARTSCR2                                         RFIT P3112005
002C8C D502 6521 D061 029D9 00061  5194          CLC   DARTSCR2+1(3),PJOB+1                                RFIT P3112010
002C92 4770 81FC      02D2C        5195          BNE   PINULL              BRANCH IF NO - JCT INVALID           P3114000

                                   5196 *                                                                       P3116000
                                   5197 *        ISSUE PRINT/PUNCH JOB SIGN ON MESSAGE TO THE OPERATOR          P3118000
                                   5198 *                                                                       P3120000
002C96 D20B D080 829E 00080 02DCE  5199          MVC   PMESSAGE(L'PONMSG),PONMSG SETUP FOR PRINT SIGN ON        P3122000
002C9C 9180 D04A      0004A        5200          TM    PCEID,PCEPRSID      TEST PROCESSOR TYPE                  P3124000

002CA0 4710 817A      02CAA        5201          BO    *+10                BRANCH IF PRINTER                    P3126000
002CA4 D204 D080 82AA 00080 02DDA  5202          MVC   PMESSAGE(L'PUNCHON),PUNCHON SETUP PUNCH SIGN ON          P3128000
002CAA 5810 D058      00058        5203          L     R1,PDCT             GET ADDRESS OF PRINT/PUNCH DCT       P3130000
                            00000  5204          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         P3132000
002CAE D207 D08C 1018 0008C 00018  5205          MVC   PMESSAGE+L'PONMSG(8),DCTDEVN  SET UP DEVICE NAME         P3134000
                                   5206          DROP  R1                  DROP DCT ADDRESSABILITY              P3136000
002CB4 0540                        5207          BALR  PC1,0               ESTABLISH N/P EXIT RETURN            P3138000

                                   5208         $WTO   PMESSAGE,L'PONMSG+8,JOB=YES,WAIT=PINOWTO, ISSUE         CP3140000
                                                       ROUTE=$LOG+$UR,CLASS=$TRIVIA,PRI=$ST SIGN ON MSG         P3142000
002CB6 4110 D080      00080        5209+         LA    R1,PMESSAGE                                              DG012000

002CBA 0700                        5210+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
002CBC 5800 8194      02CC4        5211+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
002CC0 45E0 B098      00098        5212+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
002CC4 06051414                    5213+         DC    AL1(6,$LOG+$UR,L'PONMSG+8,$TRIVIA+$ST)                   WT044000
002CC8 4780 8290      02DC0        5214+         BC    8,PINOWTO           BRANCH IF $WTO NOT SUCCESSFUL        WT086000




002CCC                             5216 PNOMSG   DS    0H                                                       P3146000
002CCC D71B D0A8 D0A8 000A8 000A8  5217          XC    PDDBSKIP(PRCSIZE),PDDBSKIP CLEAR PCE CKPT AREA           P3148000
002CD2 4120 00D8      000D8        5218          LA    PW,IOTPDDB-IOTDSECT SET INITIAL PDDB OFFSET              P3150000
002CD6 D203 D0C0 A05C 000C0 0005C  5219          MVC   PCEIOTTR,JCTIOTTR   SAVE 1ST IOT TRACK ADDRESS           P3152000
002CDC 4020 D0B0      000B0        5220          STH   PW,PDDBDISP         PDDB DISPLACEMENT INTO IOT           P3154000

002CE0 9102 D04A      0004A        5222          TM    PCEID,PCERJEID      TEST PROCESSOR TYPE                  P3158000

002CE4 4710 81F4      02D24        5223          BO    PRETRNI2            BRANCH IF REMOTE                     P3160000
002CE8 4120 D148      00148        5224          LA    PW,PCCWCHN-8        GET START OF CCW CHAIN               P3162000

002CEC 9180 D04A      0004A        5225          TM    PCEID,PCEPRSID      IS THIS A PRINTER            OY02728 P3162200
002CF0 4710 81C8      02CF8        5226          BO    *+8                 BRANCH IF YES                OY02728 P3162400
002CF4 4120 2008      00008        5227          LA    PW,8(,PW)           STEP OVER PUNCH ERROR CCW    OY02728 P3162600
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIAZATION                                                 PAGE  112


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


002CF8 5020 D078      00078        5228          ST    PW,PCCWPT           INITIALIZE CCW ADDRESS               P3164000
002CFC 5020 D068      00068        5229          ST    PW,PUERRPT          SET PUNCH ERROR CUTOFF               P3166000
002D00 4120 D238      00238        5230          LA    PW,PCEWORK+PRTPCEWS-16 END OF PRT CCWS                   P3168000
002D04 9180 D04A      0004A        5231          TM    PCEID,PCEPRSID      IS THIS A PRINTER                    P3170000
002D08 4710 81E0      02D10        5232          BO    *+8                 BRANCH IF YES                        P3172000
002D0C 4120 D240      00240        5233          LA    PW,PCEWORK+PUNPCEWS-16 END OF PUN CCWS                   P3174000
002D10 5020 D07C      0007C        5234          ST    PW,PCCWEND          SET ADDRESS OF LAST CCW              P3176000
002D14 5820 D058      00058        5235          L     PW,PDCT             ADDRESS PRINT/PUNCH DCT              P3178000
002D18 4120 2038      00038        5236          LA    PW,DCTWORK-DCTDSECT(,PW) STEP TO WORK AREA               P3180000

002D1C 5020 D150      00150        5237          ST    PW,PCCWCHN          PUNCH RECOVERY START ADDR            P3182000

002D20 9260 D154      00154        5238          MVI   PCCWCHN+4,X'60'     SET CHAIN BITS                       P3184000
002D24 4140 C012      014CA        5239 PRETRNI2 LA    PC1,PLINKI2         GO TO SECOND INIT MODULE             P3186000
                                   5240         $RETURN                    RETURN TO RESIDENT MODULE            P3188000
002D28 45E0 B088      00088        5241+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000




002D2C                             5243 PINULL   DS    0H                                                       P3192000
002D2C 4140 C6E2      01B9A        5244          LA    PC1,PPDONE          SETUP TO FLUSH JOB                   P3194000
002D30 9612 D058      00058        5245          OI    PPFLAG,PPJCTIOT+PRDELSW REASON FOR TERMINATION           P3196000
                                   5246         $RETURN                    RETURN TO RESIDENT MODULE            P3198000
002D34 45E0 B088      00088        5247+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
PRPU     HASP PRINT/PUNCH SERVICE -- NON-PROCESS EXIT ROUTINES                                                 PAGE  113


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002D38 1F48                        5249 PNOUNIT  SLR   PC1,BASE3           COMPUTE RELATIVE RETURN              P3202000
                                   5250         $WAIT  UNIT,OLAY=YES       WAIT FOR A UNIT                      P3204000
002D3A 9608 D048      00048        5251+         OI    PCEEWF+$EWBUNIT,$EWFUNIT                                 WA016000

002D3E 45F0 B030      00030        5252+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

002D42 1E48                        5253          ALR   PC1,BASE3           COMPUTE ABSOLUTE RETURN              P3206000
002D44 07F4                        5254          BR    PC1                 GO BACK AND TRY AGAIN                P3208000






002D46 1F48                        5256 PNOBUF   SLR   PC1,BASE3           COMPUTE RELATIVE RETURN              P3212000
                                   5257         $WAIT  BUF,OLAY=YES        WAIT FOR A BUFFER                    P3214000
002D48 9640 D048      00048        5258+         OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000
002D4C 45F0 B030      00030        5259+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
002D50 1E48                        5260          ALR   PC1,BASE3           COMPUTE ABSOLUTE RETURN              P3216000
002D52 07F4                        5261          BR    PC1                 GO BACK AND TRY AGAIN                P3218000





002D54 5820 D058      00058        5263 PNOJOB   L     PW,PDCT             GET ADDRESS OF PRINT/PUNCH DCT       P3222000
                            00000  5264          USING DCTDSECT,PW         ESTABLISH DCT ADDRESSABILITY         P3224000
002D58 9620 2000      00000        5265          OI    DCTSTAT,DCTHOLD     SET DEVICE UNAVAILABLE               P3226000

                                   5266         $FREUNIT (PW),OLAY=YES     FREE DEVICE                          P3228000
002D5C 1812                        5267+         LR    R1,PW                                                    DG018000
002D5E 41E0 8238      02D68        5268+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
002D62 1FE8                        5269+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000

002D64 47F0 B044      00044        5270+         B     $FREUNIT            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   5271         $DORMANT                   INDICATE PROCESSOR INACTIVE          P3230000
002D68 4310 B0C7      000C7        5272+         IC    R1,$ACTIVE          INDICATE                             DO006000
002D6C 0610                        5273+         BCTR  R1,0                 PROCESSOR                           DO008000
002D6E 4210 B0C7      000C7        5274+         STC   R1,$ACTIVE            INACTIVE                           DO010000
002D72 9102 D04A      0004A        5275          TM    PCEID,PCERJEID      TEST PROCESSOR TYPE                  P3232000
002D76 4710 8060      02B90        5276          BO    HASPPPI1            BRANCH IF REMOTE                     P3234000
002D7A 9102 202C      0002C        5277          TM    DCTPPSW,DCTPPSWI    HAS IDLE MESSAGE BEEN ISSUED         P3236000
002D7E 4710 8280      02DB0        5278          BO    PJOTWAIT            BRANCH IF YES                        P3238000
002D82 9602 202C      0002C        5279          OI    DCTPPSW,DCTPPSWI    SET IDLE MESSAGE ISSUED              P3240000
002D86 D207 D080 2018 00080 00018  5280          MVC   PMESSAGE(8),DCTDEVN GET DEVICE NAME                      P3242000
002D8C D20D D088 82AF 00088 02DDF  5281          MVC   PMESSAGE+8(L'PIDLMSG),PIDLMSG GET IDLE                   P3244000

002D92 D207 D096 202D 00096 0002D  5282          MVC   PMESSAGE+8+L'PIDLMSG(L'DCTCLASS),DCTCLASS CLASSES        P3246000
002D98 0540                        5283          BALR  PC1,0               SATABLISH N/P EXIT RETURN            P3248000
                                   5284         $WTO   PMESSAGE,L'PIDLMSG+8+L'DCTCLASS,JOB=NO,                 CP3250000

                                                       WAIT=PINOWTO,ROUTE=$LOG+$UR,CLASS=$TRIVIA,PRI=$ST        P3252000
002D9A 4110 D080      00080        5285+         LA    R1,PMESSAGE                                              DG012000
002D9E 0700                        5286+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
002DA0 5800 8278      02DA8        5287+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
002DA4 45E0 B098      00098        5288+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
002DA8 04051E14                    5289+         DC    AL1(4,$LOG+$UR,L'PIDLMSG+8+L'DCTCLASS,$TRIVIA+$ST)       WT044000
002DAC 4780 8290      02DC0        5290+         BC    8,PINOWTO           BRANCH IF $WTO NOT SUCCESSFUL        WT086000
002DB0                             5291 PJOTWAIT DS    0H                                                       P3254000
                                   5292         $WAIT  JOT,OLAY=YES        WAIT FOR A NEW JOT ENTRY             P3256000
002DB0 9601 D048      00048        5293+         OI    PCEEWF+$EWBJOT,$EWFJOT                                   WA016000
002DB4 45F0 B030      00030        5294+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
PRPU     HASP PRINT/PUNCH SERVICE -- NON-PROCESS EXIT ROUTINES                                                 PAGE  114



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


002DB8 94DF 2000      00000        5295          NI    DCTSTAT,255-DCTHOLD RELEASE DCT                          P3258000
002DBC 47F0 8060      02B90        5296          B     HASPPPI1            GO BACK AND TRY AGAIN                P3260000

                                   5297          DROP  PW                  DROP DCT ADDRESSABILITY              P3262000





002DC0                             5299 PINOWTO  DS    0H                                                       P3266000
002DC0 1F48                        5300          SLR   PC1,BASE3           COMPUTE RELATIVE RETURN              P3268000
                                   5301         $WAIT  CMB,OLAY=YES        FOR A CONSOLE MESSAGE BUFFER         P3270000
002DC2 9602 D048      00048        5302+         OI    PCEEWF+$EWBCMB,$EWFCMB                                   WA016000
002DC6 45F0 B030      00030        5303+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
002DCA 1E48                        5304          ALR   PC1,BASE3           COMPUTE ABSOLUTE RETURN              P3272000
002DCC 07F4                        5305          BR    PC1                 GO BACK AND TRY AGAIN                P3274000
PRPU     HASP PRINT/PUNCH SERVICE -- INITIALIZATION CONSTANTS                                                  PAGE  115


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78








                                   5308 *                                                                       P3280000

                                   5309 *                             INITIALIZATION CONSTANTS AND MESSAGES     P3282000
                                   5310 *                                                                       P3284000



002DCE D7D9C9D5E3C9D5C7            5312 PONMSG   DC    C'PRINTING ON '     SIGN-ON MESSAGE                      P3288000
002DDA D7E4D5C3C8                  5313 PUNCHON  DC    C'PUNCH'            PUNCH SIGN-ON                        P3290000
002DDF 40C9C4D3C5406040            5314 PIDLMSG  DC    C' IDLE - CLASS='   IDLE MESSAGE                         P3292000





                                   5316          DROP  BASE3               DROP OVERLAY ADDRESSABILITY          P3296000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIZATION                                                  PAGE  116


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5318 HASPPPI2 $OVERLAY &MED,&MED        DEFINE SECOND INITIALIZATION OVERLAY P3300000

002DF0                             5319+HA$OPPI2 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            02DF8  5320+HA$IPPI2 EQU   HA$OPPI2+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   5321+         ENTRY HA$IPPI2                                                 OV036000

002DF0 D7D7C9F2                    5322+         DC    CL4'PPI2'           IDENTIFY MODULE ON CORE DUMP         OV038000
002DF4 00002DF0                    5323+         DC    A(HA$OPPI2)         ASSEMBLY ORIGIN                      OV040000
002DF8                             5324+HASPPPI2 DS    0F                  ENTRY POINT                          OV042000
                            02D98  5325+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
002DF8 12AA                        5326          LTR   JCT,JCT             TEST FOR JOB                         P3302000
002DFA 4780 8222      02FBA        5327          BZ    PRMTMSG             PROCESS REMOTE MESSAGES IF NO JOB    P3304000



002DFE 5810 A058      00058        5329          L     R1,JCTJQE           JOB QUEUE ELEMENT OFFSET             P3308000
002E02 5A10 B13C      0013C        5330          A     R1,$JOBQPTR         ADD JOB QUEUE ORIGIN                 P3310000
                                   5331 *        CLM   R1,7,PJOB+1         IS JOB CONTROL TABLE VALID      RFIT P3312000
002E06 5010 6520      029D8        5332          ST    R1,DARTSCR2                                         RFIT P3312005
002E0A D502 6521 D061 029D9 00061  5333          CLC   DARTSCR2+1(3),PJOB+1                                RFIT P3312010

002E10 4780 80A4      02E3C        5334          BE    PRTNOUCS            BRANCH IF VALID                      P3314000
002E14 58A0 D060      00060        5335          L     JCT,PJOB            INVALID, RE-READ                     P3316000
002E18 58F0 A008      00008        5336          L     R15,QUETRAK(,JCT)   GET TRACK ADDRESS OF JCT             P3318000
002E1C 4570 CF28      023E0        5337          BAL   PL,PRDBUF           INITIATE READ OF JCT                 P3320000

002E20 4570 CF48      02400        5338          BAL   PL,PRDCHKOL         CHECK READ                   OY07290 P3322000
002E24 18A3                        5339          LR    JCT,PBUF            JCT = ADDRESS OF JOB CONTROL TABLE   P3324000
002E26 5810 A058      00058        5340          L     R1,JCTJQE           JOB QUEUE ELEMENT OFFSET             P3326000
002E2A 5A10 B13C      0013C        5341          A     R1,$JOBQPTR         ADD JOB QUEUE ORIGIN                 P3328000
                                   5342 *        CLM   R1,7,PJOB+1         IS JOB CONTROL TABLE VALID      RFIT P3330000
002E2E 5010 6520      029D8        5343          ST    R1,DARTSCR2                                         RFIT P3330005

002E32 D502 6521 D061 029D9 00061  5344          CLC   DARTSCR2+1(3),PJOB+1                                RFIT P3330010
002E38 4770 8216      02FAE        5345          BNE   PRBADJCT            BRANCH IF NO - JCT INVALID           P3332000


002E3C 1B22                        5347 PRTNOUCS SR    PW,PW               SET UP                               P3336000
002E3E 4320 A0B7      000B7        5348          IC    PW,JCTLINCT          LINE COUNT                          P3338000
002E42 0620                        5349          BCTR  PW,0                  LIMIT                              P3340000
002E44 5020 D0D4      000D4        5350          ST    PW,PRLINECT            FOR THIS JOB                      P3342000
002E48 D203 D0C0 A05C 000C0 0005C  5351          MVC   PCEIOTTR,JCTIOTTR   1ST IOT TRACK                        P3344000

002E4E D203 D0EC A0B0 000EC 000B0  5352          MVC   PPJOBFRM,JCTFORMS   DEFAULT JOB FORMS                    P3346000
002E54 D200 D131 A08C 00131 0008C  5353          MVC   PPMSGCLS,JCTMCLAS   JOB MESSAGE CLASS                    P3348000

002E5A D203 D10C A06C 0010C 0006C  5354          MVC   PPJJOBEB,JCTJOBEB   GET JOB NUMBER                       P3350000
002E60 D203 D110 A0A0 00110 000A0  5355          MVC   PPJROOMN,JCTROOMN   GET ROOM NUMBER                      P3352000
002E66 D207 D114 A070 00114 00070  5356          MVC   PPJJNAME,JCTJNAME   GET JOB NAME                         P3354000
002E6C D213 D11C A078 0011C 00078  5357          MVC   PPJPNAME,JCTPNAME   GET PROGRAMMER NAME                  P3356000
002E72 D203 D0F4 A0DC 000F4 000DC  5358          MVC   PPJCARDS,JCTCARDS   GET NUMBER OF CARDS READ             P3358000
002E78 D203 D0F8 A0E0 000F8 000E0  5359          MVC   PPJLINES,JCTLINES   GET SYSOUT PRINT COUNT               P3360000
002E7E D203 D0FC A0E4 000FC 000E4  5360          MVC   PPJPUNCH,JCTPUNCH   GET SYSOUT PUNCH COUNT               P3362000
002E84 D203 D100 A0C4 00100 000C4  5361          MVC   PPJXEQOF,JCTXEQOF   GET TIME OFF EXECUTION               P3364000

002E8A D203 D104 A0BC 00104 000BC  5362          MVC   PPJXEQON,JCTXEQON   GET TIME ON EXECUTION                P3366000
002E90 D203 D108 A060 00108 00060  5363          MVC   PPJDSKEY,JCTDSKEY   GET DATA SET BUFFER KEY              P3368000
002E96 D700 D133 D133 00133 00133  5364          XC    PPJNDS,PPJNDS       CLEAR DATA SET COUNTER               P3370000
002E9C 5820 B124      00124        5365          L     PW,$PRCHKPT              FIND AN                         P3372000
002EA0 9180 2004      00004        5366 PRCSRCH1 TM    PRCFLAGS(PW),PRCHKUSE     AVAILABLE                      P3374000

002EA4 4780 8118      02EB0        5367          BZ    PRCSRCH2                   PRINT                         P3376000
002EA8 4120 201C      0001C        5368          LA    PW,PRCSIZE(,PW) CHECKPOINT                               P3378000
002EAC 47F0 8108      02EA0        5369          B     PRCSRCH1                     ELEMENT                     P3380000

PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIZATION                                                  PAGE  117


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002EB0 5020 D064      00064        5370 PRCSRCH2 ST    PW,PRCHKPTE         SET PRINT CHECKPOINT ENTRY ADDRESS   P3382000
002EB4 5810 D060      00060        5371          L     R1,PJOB             ADDRESS JOB QUEUE ELEMENT            P3384000
002EB8 D201 2000 1002 00000 00002  5372          MVC   PRCJOBNO(2,PW),QUEJOBNO(R1) JOB NUMBER TO PRC            P3386000
002EBE 9280 2004      00004        5373          MVI   PRCFLAGS(PW),PRCHKUSE SET IN USE FLAG BIT                P3388000
002EC2 D216 2005 D0AD 00005 000AD  5374          MVC   PRCCPYCT(PRCSIZE-PRCCPYCT,PW),PPRCPYCT INIT CKPT         P3390000

002EC8 5810 D0D8      000D8        5375          L     R1,PWKJOE           ADDRESS WORK-JOE                     P3392000
                            00000  5376          USING JOEDSECT,R1         ACTIVATE JOE ADDRESSABILITY          P3394000
002ECC 41E0 1000      00000        5377          LA    R14,0(,R1)          COPY WORK-JOE ADDRESS                P3396000
002ED0 5BE0 653C      029F4        5378          S     R14,=V($JOT)        CONVERT TO DISPL FORM                P3398000
002ED4 40E0 2002      00002        5379          STH   R14,PRCKJOE(,PW)    SAVE IN PRC FOR WARM START           P3400000

002ED8 9140 1002      00002        5380          TM    JOEFLAG,$JOECKV     IS CHECKPOINT DATA VALID             P3402000
002EDC 4780 8184      02F1C        5381          BZ    PRCSCOLD            BRANCH IF NO                         P3404000
002EE0 9140 D04A      0004A        5382          TM    PCEID,PCEPUSID      IS THIS A PUNCH                      P3406000

002EE4 4710 8184      02F1C        5383          BO    PRCSCOLD            BRANCH IF YES - COLD START           P3408000
002EE8 4810 1006      00006        5384          LH    R1,JOECKPT          ADDRESS CKPT-JOE                     P3410000
002EEC 5A10 653C      029F4        5385          A     R1,=V($JOT)         ADD JOT BASE                         P3412000
002EF0 D217 2004 1000 00004 00000  5386          MVC   PRCFLAGS(PRCSIZE-PRCFLAGS,PW),0(R1) CKPT-JOE DATA        P3414000
                                   5387          DROP  R1                  SUSPEND JOE ADDRESSABILITY           P3416000
002EF6 9110 B0C2      000C2        5388 PRCSCKPT TM    $STATUS,$CKPTACT    TEST SYSTEM STATUS                   P3418000
002EFA 4780 8172      02F0A        5389          BZ    PRCSPOST            BRANCH IF CKPT IDLE                  P3420000

                                   5390         $WAIT  CKPT,OLAY=YES       WAIT FOR CHECKPOINT TO COMPLETE      P3422000
002EFE 9604 D048      00048        5391+         OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
002F02 45F0 B030      00030        5392+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
002F06 47F0 815E      02EF6        5393          B     PRCSCKPT            TRY AGAIN                            P3424000
002F0A 5810 6540      029F8        5394 PRCSPOST L     R1,=V($CKPTPCE)     GET ADDRESS OF CHECKPOINT PCE        P3426000

                                   5395         $POST  PCEEWF+$EWBWORK-PCEDSECT(R1),WORK  FIRE UP CHECKPOINT    P3428000
002F0E 94DF 1049      00049        5396+         NI    PCEEWF+$EWBWORK-PCEDSECT(R1),255-$EWFWORK                PO008000
002F12 947F B0C4      000C4        5397+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
002F16                             5398 PRCSWARM DS    0H                                                       P3430000

002F16 D217 D0AC 2004 000AC 00004  5399          MVC   PPRCFLAG(PRCSIZE-PRCFLAGS),PRCFLAGS(PW) TO PCE CKPT      P3432000


002F1C                             5401 PRCSCOLD DS    0H                                                       P3436000
002F1C 5810 D058      00058        5402          L     R1,PDCT             ADDRESS PRINT/PUNCH DCT              P3438000
002F20 9110 102C      0002C        5403          TM    DCTPPSW-DCTDSECT(R1),DCTPPSWS SUPPRESS SEP PAGE          P3440000
002F24 4710 8198      02F30        5404          BO    PRINTRET            BRANCH IF YES                        P3442000

002F28 9140 D04A      0004A        5405          TM    PCEID,PCEPUSID      TEST PROCESSOR TYPE                  P3444000
002F2C 4710 81A0      02F38        5406          BO    PUNLACE             BRANCH IF PUNCH                      P3446000
002F30                             5407 PRINTRET DS    0H                                                       P3448000
002F30 4140 C01C      014D4        5408          LA    PC1,PRINTSEP        SETUP TO PRINT SEPARATOR             P3450000
                                   5409         $RETURN                    RETURN TO MAIN MODULE                P3452000

002F34 45E0 B088      00088        5410+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000


002F38                             5412 PUNLACE  DS    0H                                                       P3456000
002F38 D203 6518 A0A0 029D0 000A0  5413          MVC   PCCWORK(4),JCTROOMN SET UP ROOM NUMBER                   P3458000
002F3E D203 651C A06C 029D4 0006C  5414          MVC   PCCWORK+4(4),JCTJOBEB AND JOB NUMBER FOR LACE CARD       P3460000

002F44 4110 A168      00168        5415          LA    R1,JCTWORK          ADDRESS JCT WORK AREA                P3462000
002F48 1B22                        5416          SR    PW,PW               PREPARE FOR SCAN                     P3464000


002F4A 926A 1000      00000        5418 PUCHGEN  MVI   0(R1),X'6A'         START EACH FIELD WITH 12-11 PUNCH    P3468000
002F4E 4302 6518      029D0        5419          IC    R0,PCCWORK(PW)      MOVE NEXT CHARACTER                  P3470000

002F52 4200 1001      00001        5420          STC   R0,1(,R1)            TO IMAGE                            P3472000
002F56 9630 1001      00001        5421          OI    1(R1),X'30'         CONVERT                              P3474000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIZATION                                                  PAGE  118


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002F5A 95F0 1001      00001        5422          CLI   1(R1),X'F0'          EACH                                P3476000

002F5E 4720 81D6      02F6E        5423          BH    PUCHARD               CHARACTER                          P3478000
002F62 4780 81D2      02F6A        5424          BE    PUCHAR0                FROM                              P3480000
002F66 92EA 1001      00001        5425          MVI   1(R1),X'EA'             EBCDIC                           P3482000
002F6A 97E0 1001      00001        5426 PUCHAR0  XI    1(R1),X'E0'              TO                              P3484000
002F6E 9760 1001      00001        5427 PUCHARD  XI    1(R1),X'60'               12-11-X PUNCH                  P3486000
002F72 D206 1002 1001 00002 00001  5428          MVC   2(7,R1),1(R1)       PROPAGATE CHARACTER                  P3488000

002F78 926A 1009      00009        5429          MVI   9(R1),X'6A'         TERMINATE FIELD WITH 12-11 PUNCH     P3490000
002F7C 4110 100A      0000A        5430          LA    R1,10(,R1)          STEP TO NEXT FIELD                   P3492000
002F80 4120 2001      00001        5431          LA    PW,1(,PW)           STEP TO NEXT CHARACTER               P3494000
002F84 5520 6544      029FC        5432          CL    PW,=F'8'            TEST                                 P3496000

002F88 4740 81B2      02F4A        5433          BL    PUCHGEN             BRANCH IF NOT LAST CHARACTER         P3498000


                                   5435          AIF   (&NUMLNES EQ 0).PNRJE05                                  P3502000
                                   5436 .PNRJE05 ANOP                      *                                    P3510000
002F8C 5840 D058      00058        5437          L     PC1,PDCT            ADDRESS PUNCH DCT                    P3512000

002F90 4140 4038      00038        5438          LA    PC1,DCTWORK-DCTDSECT(,PC1) STEP TO WORK AREA             P3514000
002F94 D24F 4000 A168 00000 00168  5439          MVC   0(80,PC1),JCTWORK   MOVE IMAGE FROM JCT TO DCT           P3516000
002F9A                             5440 PUNLACER DS    0H                                                       P3518000
002F9A 5E40 64E8      029A0        5441          AL    PC1,PUCCW           ADD LEFT HALF OF CCW                 P3520000
002F9E 5850 64EC      029A4        5442          L     PC2,PUCCW+4         AND RIGHT HALF OF CCW                P3522000
002FA2 4570 CF94      0244C        5443          BAL   PL,PPUTOLAY         ADD CCW TO CHAIN                     P3524000
002FA6 4140 C01C      014D4        5444          LA    PC1,PRINTSEP        SETUP TO PRINT SEPARATOR             P3534000

                                   5445         $RETURN                    RETURN TO MAIN MODULE                P3536000
002FAA 45E0 B088      00088        5446+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000




002FAE                             5448 PRBADJCT DS    0H                                                       P3540000
002FAE 4140 C6E2      01B9A        5449          LA    PC1,PPDONE          SETUP TO FLUSH JOB                   P3542000
002FB2 9612 D058      00058        5450          OI    PPFLAG,PPJCTIOT+PRDELSW REASON FOR TERMINATION           P3544000
                                   5451         $RETURN                    RETURN TO RESIDENT MODULE            P3546000
002FB6 45E0 B088      00088        5452+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000




002FBA                             5454 PRMTMSG  DS    0H                                                       P3550000
                                   5455          AIF   (&NUMLNES EQ 0 OR &SPOLMSG EQ 0).PNRJE06                 P3552000
002FBA 4140 C000      014B8        5456 .PNRJE06 LA    PC1,PRPUENT         SETUP TO GO BACK AND TRY AGAIN       P3664000
                                   5457         $RETURN                    RETURN TO MAIN MODULE                P3666000
002FBE 45E0 B088      00088        5458+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   5459          DROP  BASE3               SUSPEND OVERLAY ADDRESSABILITY       P3668000
0014D4                             5460 HASPPRPU CSECT                     RETURN TO RESIDENT ROUTINES          P3670000

PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIZATION                                                  PAGE  119


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


0014D4                             5462 PRINTSEP DS    0H                                                       P3674000
0014D4 5810 D0DC      000DC        5463          L     R1,PCHJOE           ADDRESS CHAR-JOE                     P3676000
0014D8 4110 1004      00004        5464          LA    R1,4(,R1)           ADDRESS SETUP PORTION                P3678000
0014DC 9281 D130      00130        5465          MVI   PRINDEX,X'81'       SET 3211 INDEX TO 1                  P3680000
0014E0 4570 C9B6      01E6E        5466          BAL   PL,PRPUDSV          CALL DEVICE SETUP VERIFICATION       P3682000

0014E4 9140 D04A      0004A        5467          TM    PCEID,PCEPUSID      IS THIS A PUNCH PROCESSOR            P3684000
0014E8 4710 C05C      01514        5468          BO    PENDINIT            BRANCH IF YES                        P3686000
0014EC 5810 D058      00058        5469          L     R1,PDCT             ADDRESS PRINT/PUNCH DCT              P3688000
0014F0 9110 102C      0002C        5470          TM    DCTPPSW-DCTDSECT(R1),DCTPPSWS SUPPRESS SEP PAGE          P3690000
0014F4 4710 C05C      01514        5471          BO    PENDINIT            BRANCH IF YES                        P3692000
0014F8 4110 63EF      028A7        5472          LA    R1,PRSTRTHD         SET UP 'START' PAGE HEADER           P3694000
0014FC 9140 D0AC      000AC        5473          TM    PPRCFLAG,PRCHKJOB   'START' OR 'CONT' PAGE HEADER        P3696000
001500 4780 C050      01508        5474          BZ    *+8                 BRANCH IF 'START'                    P3698000
001504 4110 63EA      028A2        5475          LA    R1,PRCONTHD         SET UP 'CONT' HEADER                 P3700000

001508 4570 CC7E      02136        5476          BAL   PL,PRINTID          PRODUCE PRINT SEPARATOR PAGE         P3702000

00150C 9110 D058      00058        5477          TM    PPFLAG,PRDELSW      IS JOB ABORTED                       P3704000
001510 4710 C6E2      01B9A        5478          BO    PPDONE              BRANCH IF YES                OY02744 P3706000



001514                             5480 PENDINIT DS    0H                                                       P3710000
                            00000  5481          USING IOTDSECT,JCT        ACTIVATE IOT ADDRESSABILITY          P3712000

001514 58F0 D0C0      000C0        5482          L     R15,PCEIOTTR        GET IOT MTTR                         P3720000
001518                             5483 PPIOTRD  DS    0H                                                       P3722000
001518 4570 CF28      023E0        5484          BAL   PL,PRDBUF           INITIATE READ OF IOT                 P3724000
00151C 4570 CF4E      02406        5485          BAL   PL,PRDCHK           CHECK READ                           P3726000
001520 18A3                        5486          LR    JCT,PBUF            ADDRESS IOT IN BUFFER                P3728000
001522 5810 D060      00060        5487          L     R1,PJOB             ADDRESS JOB QUEUE ELEMENT            P3730000
001526 D503 A064 1008 00064 00008  5488          CLC   IOTJCTTR,QUETRAK(R1) IS IOT VALID                        P3732000
00152C 4780 C084      0153C        5489          BE    PPIOTOK             BRANCH IF YES                        P3734000
                                   5490         $DISTERR                   INDICATE DISASTROUS ERROR            P3736000
001530 45E0 B0BC      000BC        5491+         BAL   LINK,$DISTERR       LINK TO CONTROL SERVICE PROGRAM      BA008000

001534 9612 D058      00058        5492          OI    PPFLAG,PPJCTIOT+PRDELSW REASON FOR TERMINATION           P3738000

001538 47F0 C6E2      01B9A        5493          B     PPDONE              ABORT JOB                            P3740000
00153C                             5494 PPIOTOK  DS    0H                                                       P3742000
00153C 4840 D0B0      000B0        5495          LH    PC1,PDDBDISP        GET NEXT PDDB DISPLACEMENT           P3744000
001540                             5496 PDDBNEXT DS    0H                                                       P3746000

001540 4154 A000      00000        5497          LA    PC2,0(PC1,JCT)      GENERATE ABSOLUTE ADDRESS            P3748000
                            00000  5498          USING PDBDSECT,PC2        ACTIVATE PDDB ADDRESSABILITY         P3750000
                            00000  5499          USING JOEDSECT,PW         ACTIVATE JOE ADDRESSABILITY          P3752000
001544 5940 A0D4      000D4        5500          C     PC1,IOTPDDBP        END OF PDDBS IN THIS IOT             P3754000
001548 4770 C0AE      01566        5501          BNE   PPPDB               BRANCH IF NO                         P3756000
                                   5502 *        ICM   R15,15,IOTIOTTR     LOAD AND TEST NEXT TRACK        RFIT P3758000
00154C 58F0 A060      00060        5503          L     R15,IOTIOTTR                                        RFIT P3758005
001550 12FF                        5504          LTR   R15,R15                                             RFIT P3758010
001552 4780 C6E2      01B9A        5505          BZ    PPDONE              BRANCH IF NO MORE IOTS               P3760000
001556 50F0 D0C0      000C0        5506          ST    R15,PCEIOTTR        SAVE NEW TRACK IN PCE                P3762000
00155A 41E0 00D8      000D8        5507          LA    R14,IOTPDDB-IOTDSECT SET INITIAL PDDB OFFSET             P3764000

00155E 40E0 D0B0      000B0        5508          STH   R14,PDDBDISP        IN CKPT AREA OF PCE                  P3766000
001562 47F0 C060      01518        5509          B     PPIOTRD             READ NEXT IOT                        P3768000
001566                             5510 PPPDB    DS    0H                                                       P3770000
001566 9140 5000      00000        5511          TM    PDBFLAG1,PDB1NULL   IS THIS A NULL PDDB                  P3772000

00156A 4710 C210      016C8        5512          BO    PDDBSRCH            BRANCH IF YES                        P3774000
                                   5513 *                                                                       P3776000
                                   5514 *        CHECK SYSOUT CLASS                                             P3778000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIZATION                                                  PAGE  120


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5515 *                                                                       P3780000
00156E D500 5001 D0D8 00001 000D8  5516          CLC   PDBCLASS,PWKJOE     DOES CLASS MATCH JOE                 P3782000
001574 4770 C210      016C8        5517          BNE   PDDBSRCH            BRANCH IF NO                         P3784000
                                   5518 *                                                                       P3786000
                                   5519 *        SETUP FOR CHARACTERISTICS MATCH TEST                           P3788000
                                   5520 *                                                                       P3790000
001578 1B11                        5521          SR    R1,R1               INDEX TO 1ST OPTIONAL FIELD          P3792000

00157A 1B00                        5522          SR    R0,R0               SELECT NO OPTION FIELD FLAGS         P3794000
00157C 9180 5000      00000        5523          TM    PDBFLAG1,PDB1FLG2   ANY OPTIONAL FIELDS PRESENT          P3796000
001580 4780 C0D4      0158C        5524          BZ    DART01C             BRANCH IF NO                    RFIT P3798000

                                   5525 *        ICM   R0,8,PDBFLAG2       SELECT OPTION FLAGS             RFIT P3800000
001584 4300 5007      00007        5526          IC    R0,PDBFLAG2                                         RFIT P3800005
001588 8900 0018      00018        5527          SLL   R0,24                                               RFIT P3800010
00158C                             5528 DART01C  DS    0H                                                  RFIT P3800015
                                   5529 *                                                                       P3802000
                                   5530 *        CHECK FORMS ID                                                 P3804000
                                   5531 *                                                                       P3806000
00158C 4170 D0EC      000EC        5532          LA    R7,PPJOBFRM         SELECT DEFAULT FORMS ID              P3808000
001590 1E00                        5533          ALR   R0,R0               TEST PDB2FORM FLAG                   P3810000
001592 47C0 C0E6      0159E        5534          BC    12,PPFORM           BRANCH IF ZERO                       P3812000
001596 4171 5008      00008        5535          LA    R7,PDBFORMS(R1)     SELECT SPECIFIED FORMS ID            P3814000
00159A 4110 1004      00004        5536          LA    R1,L'PDBFORMS(,R1)  INCREMENT OPTIONAL FIELD INDEX       P3816000

00159E                             5537 PPFORM   DS    0H                                                       P3818000

00159E 5820 D0DC      000DC        5538          L     PW,PCHJOE           ADDRESS CHAR-JOE                     P3820000
                                   5539          AIF   (NOT &DMNDSET).PPFORM IS DEMAND SETUP ALLOWED            P3822000

0015A2 D500 5001 D131 00001 00131  5540          CLC   PDBCLASS,PPMSGCLS   DOES SYSOUT CLASS = MSGCLASS         P3824000
0015A8 4780 C0FA      015B2        5541          BE    *+10                BRANCH IF YES                        P3826000
                                   5542 .PPFORM  ANOP                                                           P3828000
0015AC D503 2004 7000 00004 00000  5543          CLC   JOEFORM,0(R7)       DOES FORMS ID MATCH                  P3830000
0015B2 4770 C210      016C8        5544          BNE   PDDBSRCH            BRANCH IF NO                         P3832000
0015B6 D203 D0E0 7000 000E0 00000  5545          MVC   PCEFORM,0(R7)       SAVE FORMS ID                        P3834000
                                   5546 *                                                                       P3836000
                                   5547 *        CHECK FCB ID                                                   P3838000
                                   5548 *                                                                       P3840000
                                   5549          LA    R7,=CL4'&PRTFCB'    SELECT DEFAULT FCB ID                P3842000
0015BC 4170 6548      02A00        5550+         LA    R7,=CL4'6'          SELECT DEFAULT FCB ID                P3842000
0015C0 1E00                        5551          ALR   R0,R0               TEST PDB2FCB FLAG                    P3844000

0015C2 47C0 C116      015CE        5552          BC    12,PPFCB            BRANCH IF ZERO                       P3846000
0015C6 4171 5008      00008        5553          LA    R7,PDBFCB(R1)       SELECT SPECIFIED FCB ID              P3848000

0015CA 4110 1004      00004        5554          LA    R1,L'PDBFCB(,R1)    INCREMENT OPTIONAL FIELD INDEX       P3850000

0015CE                             5555 PPFCB    DS    0H                                                       P3852000
                                   5556          AIF   (NOT &DMNDSET).PPFCB  IS DEMAND SETUP ALLOWED            P3854000
0015CE D500 5001 D131 00001 00131  5557          CLC   PDBCLASS,PPMSGCLS   DOES SYSOUT CLASS = MSGCLASS         P3856000
0015D4 4780 C126      015DE        5558          BE    *+10                BRANCH IF YES                        P3858000
                                   5559 .PPFCB   ANOP                                                           P3860000
0015D8 D503 2008 7000 00008 00000  5560          CLC   JOEFCB,0(R7)        DOES FCB ID MATCH                    P3862000
0015DE 4770 C210      016C8        5561          BNE   PDDBSRCH            BRANCH IF NO                         P3864000
0015E2 D203 D0E4 7000 000E4 00000  5562          MVC   PCEFCB,0(R7)        SAVE FCB ID                          P3866000
                                   5563 *                                                                       P3868000
                                   5564 *        CHECK UCSB ID                                                  P3870000
                                   5565 *                                                                       P3872000
0015E8 4170 654C      02A04        5566          LA    R7,=CL4'****'       SELECT STANDARD UCSB ID              P3874000

0015EC 1E00                        5567          ALR   R0,R0               TEST PDB2UCS FLAG                    P3876000
0015EE 47C0 C142      015FA        5568          BC    12,PPUCS            BRANCH IF ZERO                       P3878000
0015F2 4171 5008      00008        5569          LA    R7,PDBUCS(R1)       SELECT SPECIFIED UCSB ID             P3880000

PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIZATION                                                  PAGE  121


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0015F6 4110 1004      00004        5570          LA    R1,L'PDBUCS(,R1)    INCREMENT OPTIONAL FIELD INDEX       P3882000
0015FA                             5571 PPUCS    DS    0H                                                       P3884000
                                   5572          AIF   (NOT &DMNDSET).PPUCSB IS DEMAND SETUP ALLOWED            P3886000
0015FA D500 5001 D131 00001 00131  5573          CLC   PDBCLASS,PPMSGCLS   DOES SYSOUT CLASS = MSGCLASS         P3888000
001600 4780 C152      0160A        5574          BE    *+10                BRANCH IF YES                        P3890000
                                   5575 .PPUCSB  ANOP                                                           P3892000
001604 D503 200C 7000 0000C 00000  5576          CLC   JOEUCS,0(R7)        DOES UCSB ID MATCH                   P3894000
00160A 4770 C210      016C8        5577          BNE   PDDBSRCH            BRANCH IF NO                         P3896000
00160E D203 D0E8 7000 000E8 00000  5578          MVC   PCEUCSB,0(R7)       SAVE UCSB ID                         P3898000
                                   5579 *                                                                       P3900000

                                   5580 *        COPY MAXIMUM SYSOUT RECORD COUNT                               P3902000
                                   5581 *                                                                       P3904000
001614 4170 6550      02A08        5582          LA    R7,=F'1000'         SELECT DEFAULT MAXIMUM COUNT         P3906000
001618 1E00                        5583          ALR   R0,R0               TEST PDB2RECC FLAG                   P3908000

00161A 47C0 C16E      01626        5584          BC    12,PPRECC           BRANCH IF ZERO                       P3910000
00161E 4171 5008      00008        5585          LA    R7,PDBRECCT(R1)     SELECT SPECIFIED MAXIMUM COUNT       P3912000
001622 4110 1004      00004        5586          LA    R1,L'PDBRECCT(,R1)  INCREMENT OPTIONAL FIELD INDEX       P3914000
001626                             5587 PPRECC   DS    0H                                                       P3916000
001626 D203 D0F0 7000 000F0 00000  5588          MVC   PPRECCT,0(R7)       SAVE MAXIMUM RECORD COUNT            P3918000
                                   5589 *                                                                       P3920000

                                   5590 *        CHECK SECURITY LEVEL                                           P3922000
                                   5591 *                                                                       P3924000
00162C 4170 6590      02A48        5592          LA    R7,=X'00'           SELECT DEFAULT SECURITY LEVEL        P3926000
001630 1200                        5593          LTR   R0,R0               TEST PDB2MSC1 FLAG                   P3928000
001632 47B0 C182      0163A        5594          BNM   PPSEC               BRANCH IF ZERO/PLUS                  P3930000
001636 4171 5008      00008        5595          LA    R7,PDBSEC(R1)       SELECT SPECIFIED SECURITY            P3932000
00163A                             5596 PPSEC    DS    0H                                                       P3934000
00163A 5820 D0D8      000D8        5597          L     PW,PWKJOE           ADDRESS WORK-JOE                     P3936000

00163E D500 2008 7000 00008 00000  5598          CLC   JOESEC,0(R7)        DOES SECURITY LEVEL MATCH            P3938000
001644 4770 C210      016C8        5599          BNE   PDDBSRCH            BRANCH IF NO                         P3940000
                                   5600 *                                                                       P3942000
                                   5601 *        COPY 3211 INDEX VALUE                                          P3944000
                                   5602 *                                                                       P3946000
001648 4170 6590      02A48        5603          LA    R7,=X'00'           SELECT DEFAULT INDEX VALUE           P3948000
00164C 1200                        5604          LTR   R0,R0               TEST PDB2MSC1 FLAG                   P3950000
00164E 47B0 C19E      01656        5605          BNM   PPINDEX             BRANCH IF ZERO/PLUS                  P3952000
001652 4171 5009      00009        5606          LA    R7,PDBINDEX(R1)     SELECT SPECIFIED INDEX VALUE         P3954000
001656                             5607 PPINDEX  DS    0H                                                       P3956000
001656 D200 D130 7000 00130 00000  5608          MVC   PRINDEX,0(R7)       SAVE 3211 INDEX VALUE                P3958000
00165C 9680 D130      00130        5609          OI    PRINDEX,X'80'       INDEX VALUE TO INDEX CHAR            P3960000

                                   5610 *                                                                       P3962000
                                   5611 *        CHECK ROUTING                                                  P3964000
                                   5612 *                                                                       P3966000

001660 4170 6584      02A3C        5613          LA    R7,=X'8000'         SELECT DEFAULT ROUTING               P3968000
001664 1E00                        5614          ALR   R0,R0               TEST PDB2MSC1 FLAG                   P3970000

001666 47C0 C1BA      01672        5615          BC    12,PPROUT           BRANCH IF ZERO                       P3972000
00166A 4171 500A      0000A        5616          LA    R7,PDBDEST(R1)      SELECT SPECIFIED ROUTING             P3974000
00166E 4110 1004      00004        5617          LA    R1,L'PDBMISC1(,R1)  INCREMENT OPTIONAL FIELD INDEX       P3976000
001672                             5618 PPROUT   DS    0H                                                       P3978000
001672 D501 2014 7000 00014 00000  5619          CLC   JOEDEST,0(R7)       DOES DESTINATION MATCH               P3980000
001678 4770 C210      016C8        5620          BNE   PDDBSRCH            BRANCH IF NO                         P3982000
                                   5621 *                                                                       P3984000
                                   5622 *        COPY DATA SET COPY COUNT                                       P3986000

                                   5623 *                                                                       P3988000
00167C 4170 6591      02A49        5624          LA    R7,=X'01'           SELECT DEFAULT COPY COUNT            P3990000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIZATION                                                  PAGE  122


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001680 1200                        5625          LTR   R0,R0               TEST PDB2MSC2 FLAG                   P3992000

001682 47B0 C1D2      0168A        5626          BNM   PPCOPY              BRANCH IF ZERO/PLUS                  P3994000
001686 4171 5008      00008        5627          LA    R7,PDBCOPYS(R1)     SELECT SPECIFIED COPY COUNT          P3996000
00168A                             5628 PPCOPY   DS    0H                                                       P3998000

00168A D200 D132 7000 00132 00000  5629          MVC   PPDSCPY,0(R7)       SAVE DATA SET COPY COUNT             P4000000
                                   5630 *                                                                       P4002000
                                   5631 *        CHECK CPU ID                                                   P4004000
                                   5632 *                                                                       P4006000
001690 4170 6590      02A48        5633          LA    R7,=X'00'           SELECT DEFAULT CPU ID                P4008000
001694 1E00                        5634          ALR   R0,R0               TEST PDB2MSC2 FLAG                   P4010000
001696 47C0 C1EA      016A2        5635          BC    12,PPCPU            BRANCH IF ZERO                       P4012000

00169A 4171 5009      00009        5636          LA    R7,PDBCPU(R1)       SELECT SPECIFIED CPU ID              P4014000
00169E 4110 1004      00004        5637          LA    R1,L'PDBMISC2(,R1)  INCREMENT OPTIONAL FIELD INDEX       P4016000
0016A2                             5638 PPCPU    DS    0H                                                       P4018000
0016A2 D500 2009 7000 00009 00000  5639          CLC   JOECPU,0(R7)        DOES CPU ID MATCH                    P4020000
0016A8 4770 C210      016C8        5640          BNE   PDDBSRCH            BRANCH IF NO                         P4022000

                                   5641 *                                                                       P4024000
                                   5642 *        CHECK SPECIAL SYSOUT WRITER ID                                 P4026000
                                   5643 *                                                                       P4028000
0016AC 4170 6528      029E0        5644          LA    R7,=C'HASPPRPU'     SELECT DEFAULT WRITER ID             P4030000

0016B0 1E00                        5645          ALR   R0,R0               TEST PDB2WTRI FLAG                   P4032000
0016B2 47C0 C202      016BA        5646          BC    12,PPWTRI           BRANCH IF ZERO                       P4034000
0016B6 4171 5008      00008        5647          LA    R7,PDBWTRID(R1)     SELECT SPECIFIED WRITER ID           P4036000
0016BA                             5648 PPWTRI   DS    0H                                                       P4038000
0016BA 5820 D0DC      000DC        5649          L     PW,PCHJOE           ADDRESS CHAR-JOE                     P4040000
0016BE D507 2010 7000 00010 00000  5650          CLC   JOEWTRID,0(R7)      DOES WRITER ID MATCH                 P4042000

0016C4 4780 C21C      016D4        5651          BE    PDDBFCHK            BRANCH IF YES - WORK SELECTED        P4044000
                                   5652          DROP  PW                  SUSPEND JOE ADDRESSABILITY           P4046000
0016C8                             5653 PDDBSRCH DS    0H                                                       P4048000
0016C8 1BFF                        5654          SR    R15,R15             GET ZERO REGISTER                    P4050000
0016CA 43F0 5002      00002        5655          IC    R15,PDBLENG         GET PDDB LENGTH                      P4052000

0016CE 1A4F                        5656          AR    PC1,R15             STEP PDDB BASE TO NEXT PDDB          P4054000
0016D0 47F0 C088      01540        5657          B     PDDBNEXT            TEST NEXT PDDB                       P4056000
0016D4                             5658 PDDBFCHK DS    0H                                                       P4058000
0016D4 9140 D0AC      000AC        5659          TM    PPRCFLAG,PRCHKJOB   IS THIS A DATASET WARM START         P4060000
0016D8 4710 C248      01700        5660          BO    PFASTRT             BRANCH IF YES                        P4062000

0016DC D203 D0BC 5003 000BC 00003  5661          MVC   PCEJMTTR,PDBMTTR    1ST TRACK OF DATA SET                P4064000
0016E2 D201 D0AE 64F2 000AE 029AA  5662          MVC   PCEEJRCB,PCCW+2     1ST RCB DISPLACEMENT                 P4066000
0016E8 4040 D0B0      000B0        5663          STH   PC1,PDDBDISP        PDDB DISPLACEMENT                    P4068000
0016EC D701 D0B2 D0B2 000B2 000B2  5664          XC    PDDBPGCT,PDDBPGCT   CLEAR DATASET PAGE COUNT             P4070000
0016F2 5870 D064      00064        5665          L     PL,PRCHKPTE         CHECKPOINT ELEMENT ADDRESS           P4072000

0016F6 D216 7005 D0AD 00005 000AD  5666          MVC   PRCCPYCT(PRCSIZE-PRCCPYCT,PL),PPRCPYCT CKPT STATUS       P4074000
0016FC 9640 7004      00004        5667          OI    PRCFLAGS(PL),PRCHKJOB SET CHECKPOINT VALID BIT           P4076000
                                   5668          DROP  PC2                 SUSPEND PDDB ADDRESSABILITY          P4078000
001700                             5669 PFASTRT  DS    0H                                                       P4080000
001700 4370 D133      00133        5670          IC    PL,PPJNDS           GET DATA SET COUNTER                 P4082000

001704 4170 7001      00001        5671          LA    PL,1(,PL)           INCREMENT BY ONE                     P4084000
001708 4270 D133      00133        5672          STC   PL,PPJNDS           SAVE IN PCE                          P4086000
00170C 94BF D0AC      000AC        5673          NI    PPRCFLAG,255-PRCHKJOB CLEAR WARM START DATASET BIT       P4088000
001710 4110 D0E0      000E0        5674          LA    R1,PCEFORM          ADDRESS NEW SETUP SPECIFICATION      P4090000
001714 4570 C9B6      01E6E        5675          BAL   PL,PRPUDSV          CALL DEVICS SETUP VERIFICATION       P4092000
                                   5676          AIF   (&BSPNTE EQ 0).NOBSP3                                    P4094000

001718 D201 D134 D0B2 00134 000B2  5677          MVC   PBSPGCT,PDDBPGCT    SET FIRST BSP FRAME                  P4096000
00171E D705 D148 D148 00148 00148  5678          XC    PBSPTBL+L'PBSPTBL-6(6),PBSPTBL+L'PBSPTBL-6 RESET         P4098000
                                   5679 .NOBSP3  ANOP                                                           P4100000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR INITIALIZATION                                                  PAGE  123



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001724                             5680 PBSFSGO  DS    0H                  $F/$B RESTART POINT                  P4102000
001724 58F0 D0BC      000BC        5681          L     R15,PCEJMTTR        1ST TRACK OF DATASET                 P4104000
001728 4570 CF28      023E0        5682          BAL   PL,PRDBUF           READ FIRST DATA BLOCK                P4106000
00172C 58A0 D060      00060        5683          L     JCT,PJOB            SET NO IOT INDICATION                P4108000

001730 4570 CF4E      02406        5684          BAL   PL,PRDCHK           CHECK READ OF FIRST BLOCK            P4110000
001734 4120 D150      00150        5685          LA    PW,PCCWCHN          GET START OF CCW CHAIN               P4112000
001738 9180 D04A      0004A        5686          TM    PCEID,PCEPRSID      IS THIS A PRINT PROCESSOR            P4114000
00173C 4710 C28C      01744        5687          BO    *+8                 BRANCH IF YES                        P4116000
001740 4120 2008      00008        5688          LA    PW,8(,PW)           SAVE ROOM FOR PUNCH ERROR CCW        P4118000
001744 5020 3010      00010        5689          ST    PW,IOBSTART         STORE ADDRESS IN IOB                 P4120000
001748 1B88                        5690          SR    PLC,PLC             CLEAR PAGE LINE COUNTER              P4122000

00174A 5820 D0B8      000B8        5691          L     PW,PRPAGECT         SET                          OY07280 P4123000
00174E 4120 2001      00001        5692          LA    PW,1(,PW)           FIRST                        OY07280 P4123100
001752 5020 D0B8      000B8        5693          ST    PW,PRPAGECT         SYSOUT PAGE COUNT            OY07280 P4123200

001756 47F0 C2C0      01778        5694          B     PSTNXTDS            PROCESS DATA SET                     P4124000
PRPU     HASP PRINT/PUNCH PROCESSOR -- MAIN PROCESSOR                                                          PAGE  124


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00175A                             5696 PNXTBLK  DS    0H                                                       P4128000
00175A 50F0 D0BC      000BC        5697          ST    R15,PCEJMTTR        MTTR OF LAST EJECT BUFFER            P4130000

00175E 9502 D0C4      000C4        5698          CLI   PBUFOPT,2           TEST BUFFER OPTION                   P4132000
001762 4780 C2B2      0176A        5699          BE    *+8                 BRANCH IF DOUBLE BUFFERING           P4134000
001766 4570 CF28      023E0        5700          BAL   PL,PRDBUF           READ NEXT BLOCK                      P4136000
00176A 4570 CF4E      02406        5701          BAL   PL,PRDCHK           CHECK READ                           P4138000
00176E 5020 3010      00010        5702          ST    PW,IOBSTART         SET CCW START ADDRESS IN IOB         P4140000
001772 D201 D0AE 64F2 000AE 029AA  5703          MVC   PCEEJRCB,PCCW+2     SET 1ST RCB DISPLACEMENT             P4142000
001778                             5704 PSTNXTDS DS    0H                                                       P4144000
001778 9502 D0C4      000C4        5705          CLI   PBUFOPT,2           TEST BUFFER OPTION                   P4146000

00177C 4770 C2CC      01784        5706          BNE   PSTMSBLK            BRANCH IF NOT DOUBLE BUFFERING       P4148000
001780 4570 CF1A      023D2        5707          BAL   PL,PRDNXTB          READ NEXT BUFFER                     P4150000

001784                             5708 PSTMSBLK DS    0H                                                       P4152000
001784 D503 D108 305C 00108 0005C  5709          CLC   PPJDSKEY,HDBDSKEY   DOES THIS BUFFER BELONG TO DS        P4154000
00178A 4780 C2E4      0179C        5710          BE    PBUFROK             BRANCH IF YES                        P4156000
00178E D703 3058 3058 00058 00058  5711          XC    HDBNXTRK,HDBNXTRK   CLEAR CHAIN TRACK                    P4158000
001794 9604 D058      00058        5712          OI    PPFLAG,PPRDERR      SET DATA BUFFER READ ERROR           P4160000

001798 47F0 C484      0193C        5713          B     PCPEND              CONTINUE PROCESSING                  P4162000
00179C                             5714 PBUFROK  DS    0H                                                       P4164000
00179C 9845 64F0      029A8        5715          LM    PC1,PC2,PCCW        SETUP CCW IN PC1 AND PC2             P4166000
                                   5716 *        ICM   PC1,3,PCEEJRCB      GET RCB DISPLACEMENT            RFIT P4168000
0017A0 8840 0010      00010        5717          SRL   PC1,16                                              RFIT P4168005
0017A4 8940 0010      00010        5718          SLL   PC1,16                                              RFIT P4168010
0017A8 4810 D0AE      000AE        5719          LH    R1,PCEEJRCB                                         RFIT P4168015
0017AC 1641                        5720          OR    PC1,R1                                              RFIT P4168020
0017AE 1E43                        5721          ALR   PC1,PBUF            ADJUST FOR THIS BUFFER               P4170000

                                   5722 *        LH    R1,PCEEJRCB         GET CURRENT RCB DISPL           RFIT P4172000



0017B0                             5724 PNXTCCW  DS    0H                                                       P4176000
0017B0 4010 D0AE      000AE        5725          STH   R1,PCEEJRCB         SAVE EJECT RCB DISPL                 P4178000
0017B4 91FF 4000      00000        5726          TM    0(PC1),X'FF'        TEST RECORD CONTROL BYTE             P4180000
0017B8 4710 C484      0193C        5727          BO    PCPEND              BRANCH IF END OF BLOCK               P4182000

0017BC 9102 4001      00001        5728          TM    1(PC1),X'02'        TEST COMMAND TYPE                    P4184000
0017C0 4770 C322      017DA        5729          BNZ   PNOCOUNT            BRANCH IF IMMEDIATE COMMAND          P4186000
0017C4 D501 D0A8 D0B2 000A8 000B2  5730          CLC   PDDBSKIP,PDDBPGCT   COMPARE SKIP COUNT WITH PAGE COUNT   P4188000
0017CA 4720 C322      017DA        5731          BH    PNOCOUNT            DON'T COUNT IF HIGH                  P4190000
0017CE 5820 D0B4      000B4        5732          L     PW,PPLNCDCT         UPDATE                               P4192000
0017D2 4122 0001      00001        5733          LA    PW,1(PW)             LINE OR CARD                        P4194000
0017D6 5020 D0B4      000B4        5734          ST    PW,PPLNCDCT           COUNT                              P4196000
0017DA 4354 0000      00000        5735 PNOCOUNT IC    PC2,0(PC1)          SET LENGTH OF RECORD                 P4198000
0017DE 1B77                        5736          SR    PL,PL               ZERO REGISTER                        P4200000
0017E0 4374 0001      00001        5737          IC    PL,1(PC1)           PL = COMMAND                         P4202000

0017E4 5E40 6554      02A0C        5738          AL    PC1,=F'2'           ADJUST CCW TO ACTUAL START OF RECORD P4204000

0017E8 9045 6518      029D0        5739          STM   PC1,PC2,PCCWORK     STORE CCW FOR TEST AND MODIFICATION  P4206000
0017EC 4270 6518      029D0        5740          STC   PL,PCCWORK          SET COMMAND IN CCW                   P4208000
0017F0 9140 D04A      0004A        5741          TM    PCEID,PCEPUSID      TEST PROCESSOR TYPE                  P4210000
0017F4 4710 C44C      01904        5742          BO    PUNCH               BRANCH IF PUNCH                      P4212000


0017F8 9104 D05C      0005C        5744          TM    PDCTFLAG,DCTSPACE   TEST FOR FORCE SINGLE SPACE          P4216000
0017FC 4780 C354      0180C        5745          BZ    PRNSPACE            BRANCH IF NOT SINGLE SPACING         P4218000
001800 9102 6518      029D0        5746          TM    PCCWORK,X'02'       TEST FOR IMMEDIATE COMMAND           P4220000
001804 4780 C37C      01834        5747          BZ    PRBADCC             BRANCH IF NOT IMMEDIATE COMMAND      P4222000
001808 47F0 C470      01928        5748          B     PRNOPRNT            IGNORE IMMEDIATE COMMANDS            P4224000
00180C 9101 6518      029D0        5749 PRNSPACE TM    PCCWORK,X'01'       TEST LOW ORDER BIT OF COMMAND        P4226000
PRPU     HASP PRINT/PUNCH PROCESSOR -- MAIN PROCESSOR                                                          PAGE  125


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001810 4780 C37C      01834        5750          BZ    PRBADCC             BIT MUST BE ONE OR COMMAND IS BAD    P4228000
001814 9184 6518      029D0        5751          TM    PCCWORK,X'84'       TEST BITS 0 AND 5                    P4230000

001818 4740 C39E      01856        5752          BM    PRSKIP              BRANCH IF EJECT OR INVALID           P4232000
00181C 9164 6518      029D0        5753          TM    PCCWORK,X'64'       NO, TEST BITS 1, 2, AND 5            P4234000
001820 4780 C388      01840        5754          BZ    PRGOODCC            BITS MUST BE ZERO OR COMMAND IS BAD  P4236000
001824 9573 6518      029D0        5755          CLI   PCCWORK,X'73'       TEST FOR BLOCK DATA CHECK COMMAND    P4238000

001828 4780 C470      01928        5756          BE    PRNOPRNT            IGNORE IF BLOCK DATA CHECK           P4240000
00182C 9543 6518      029D0        5757          CLI   PCCWORK,X'43'       REST FOR OCR                         P4242000
001830 4780 C470      01928        5758          BE    PRNOPRNT            IGNORE IF OCR                        P4244000
001834 9402 6518      029D0        5759 PRBADCC  NI    PCCWORK,X'02'       BAD COMMAND                          P4246000
001838 9609 6518      029D0        5760          OI    PCCWORK,X'09'       CONVERT TO SINGLE SPACE              P4248000
00183C 4370 6518      029D0        5761          IC    PL,PCCWORK          PICK UP NEW COMMAND                  P4250000
001840 8870 0003      00003        5762 PRGOODCC SRL   PL,3                SHIFT OUT LOW ORDER BITS             P4252000
001844 1E87                        5763          ALR   PLC,PL              INCREMENT LINE COUNT BY SPACE VALUE  P4254000
001846 5580 D0D4      000D4        5764          CL    PLC,PRLINECT        COMPARE LINE COUNT WITH MAXIMUM      P4256000
00184A 47D0 C43E      018F6        5765          BNH   PRNOVFL             BRANCH IF LESS                       P4258000
00184E 9402 6518      029D0        5766          NI    PCCWORK,X'02'       CONVERT COMMAND                      P4260000
001852 9689 6518      029D0        5767          OI    PCCWORK,X'89'       TO EJECT                             P4262000

001856 9140 D058      00058        5768 PRSKIP   TM    PPFLAG,PPDELSW      TEST DELETE SWITCH                   P4264000
00185A 4710 C484      0193C        5769          BO    PCPEND              BRANCH IF PRINT IS DELETED           P4266000
00185E 9589 6518      029D0        5770          CLI   PCCWORK,X'89'       TEST COMMAND VALIDITY                P4268000

001862 4740 C37C      01834        5771          BL    PRBADCC             BRANCH IF INVALID (LOW)              P4270000
001866 4720 C3C6      0187E        5772          BH    PRN8940             BRANCH IF NOT EJECT                  P4272000
00186A 4820 D0AE      000AE        5773          LH    PW,PCEEJRCB         GET RCB OFFSET                       P4274000
00186E 1A23                        5774          AR    PW,PBUF             ADD BUFFER ORIGIN                    P4276000
001870 D502 2000 6592 00000 02A4A  5775          CLC   0(3,PW),=X'018940'  PRINT AND SKIP CH1                   P4278000
001876 4770 C3C6      0187E        5776          BNE   PRN8940             BRANCH IF NO                         P4280000
00187A 9602 6518      029D0        5777          OI    PCCWORK,X'02'       CONVERT TO 8B                        P4282000
00187E                             5778 PRN8940  DS    0H                                                       P4284000
00187E 95E3 6518      029D0        5779          CLI   PCCWORK,X'E3'       TEST COMMAND VALIDITY                P4286000
001882 4720 C37C      01834        5780          BH    PRBADCC             BRANCH IF INVALID (HIGH)             P4288000
001886 1B88                        5781          SR    PLC,PLC             ZERO LINE COUNT                      P4290000
                                   5782          AIF   (&BSPNTE EQ 0).NOBSP4                                    P4292000

001888 D501 D0B2 D134 000B2 00134  5783          CLC   PDDBPGCT,PBSPGCT    IS THIS A FRAME PAGE                 P4294000

00188E 4770 C3F8      018B0        5784          BNE   PSKPBSP             BRANCH IF NO                         P4296000
001892 4820 D134      00134        5785          LH    PW,PBSPGCT          GET CURRENT FRAME PAGE NUMBER        P4298000

                                   5786          AH    PW,=H'&BSPGCT'      STEP TO NEXT FRAME PAGE              P4300000
001896 4A20 6586      02A3E        5787+         AH    PW,=H'32'           STEP TO NEXT FRAME PAGE              P4300000
00189A 4020 D134      00134        5788          STH   PW,PBSPGCT          SAVE FOR LATER                       P4302000
                                   5789          AIF   (&BSPNTE EQ 1).BSP1                                      P4304000
00189E D211 D136 D13C 00136 0013C  5790          MVC   PBSPTBL(L'PBSPTBL-6),PBSPTBL+6 PUSH DOWN TABLE           P4306000
                                   5791 .BSP1    ANOP                                                           P4308000
0018A4 D203 D148 D0BC 00148 000BC  5792          MVC   PBSPTBL+L'PBSPTBL-6(4),PCEJMTTR SAVE BUFFER MTTR         P4310000
0018AA D201 D14C D0AE 0014C 000AE  5793          MVC   PBSPTBL+L'PBSPTBL-2(2),PCEEJRCB SAVE LINE RCB            P4312000
0018B0                             5794 PSKPBSP  DS    0H                  NOT A FRAME PAGE                     P4314000
                                   5795 .NOBSP4  ANOP                                                           P4316000
0018B0 4820 D0B2      000B2        5796          LH    PW,PDDBPGCT         UPDATE                               P4318000
0018B4 4120 2001      00001        5797          LA    PW,1(,PW)            DATA SET                            P4320000

0018B8 4020 D0B2      000B2        5798          STH   PW,PDDBPGCT           PAGE COUNT                         P4322000
0018BC D501 D0A8 D0B2 000A8 000B2  5799          CLC   PDDBSKIP,PDDBPGCT   COMPARE SKIP COUNT WITH PAGE COUNT   P4324000

0018C2 4720 C470      01928        5800          BH    PRNOPRNT            DON'T UPDATE IF HIGH                 P4326000

0018C6 D701 D0A8 D0A8 000A8 000A8  5801          XC    PDDBSKIP,PDDBSKIP   CLEAR SKIP COUNT             OY02728 P4327000
0018CC 5820 D058      00058        5802          L     PW,PDCT             GET DCT ADRESS FROM PCE      OY07280 P4327100
0018D0 958B 6518      029D0        5803          CLI   PCCWORK,X'8B'       IS IT SKIP TO 1 IMMED        OY07280 P4327200
0018D4 4770 C428      018E0        5804          BNE   *+12                NO UPDATE TOTAL PAGE COUNT   OY07280 P4327300
PRPU     HASP PRINT/PUNCH PROCESSOR -- MAIN PROCESSOR                                                          PAGE  126


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0018D8 9110 2000      00000        5805          TM    DCTSTAT-DCTDSECT(PW),DCTEJECT IS IT TOP OF PAGE  OY07280 P4327400
0018DC 4710 C434      018EC        5806          BO    PRCKPTCT            YES DO NOT BUMP PAGE COUNT   OY07280 P4327450
0018E0 5820 D0B8      000B8        5807          L     PW,PRPAGECT         UPDATE                               P4328000
0018E4 4120 2001      00001        5808          LA    PW,1(,PW)            TOTAL                               P4330000
0018E8 5020 D0B8      000B8        5809          ST    PW,PRPAGECT           PAGE COUNT                         P4332000
0018EC                             5810 PRCKPTCT DS    0H                  LABEL FOR BRANCH AROUND      OY07280 P4332100

0018EC 5810 D064      00064        5811          L     R1,PRCHKPTE              UPDATE                          P4334000
0018F0 D216 1005 D0AD 00005 000AD  5812          MVC   PRCCPYCT(PRCSIZE-PRCCPYCT,R1),PPRCPYCT CKPT DATA         P4336000
0018F6 D501 D0A8 D0B2 000A8 000B2  5813 PRNOVFL  CLC   PDDBSKIP,PDDBPGCT   COMPARE SKIP COUNT WITH PAGE COUNT   P4338000

0018FC 4720 C470      01928        5814          BH    PRNOPRNT            DON'T PRINT IF HIGH                  P4340000
                                   5815          AIF   (NOT &PRTRANS).PNTRAN1                                   P4342000
001900 47F0 C468      01920        5816 .PNTRAN1 B     PRZCL               BRANCH TO OUTPUT                     P4366000

001904 9503 6518      029D0        5818 PUNCH    CLI   PCCWORK,X'03'       TEST COMMAND CODE                    P4370000
001908 4780 C470      01928        5819          BE    PRNOPRNT            IGNORE IF NOP                        P4372000
00190C 9500 651F      029D7        5820          CLI   PCCWORK+7,X'00'     IS RECORD LENGTH ZERO                P4374000
001910 4780 C470      01928        5821          BE    PRNOPRNT            BRANCH IF YES                        P4376000
001914 9581 6518      029D0        5822          CLI   PCCWORK,X'81'       TEST COMMAND CODE                    P4378000
001918 4780 C468      01920        5823          BE    *+8                 BRANCH IF STACKER 3 COMMAND          P4380000
00191C 9241 6518      029D0        5824          MVI   PCCWORK,X'41'       SET STACKER 2 COMMAND                P4382000


001920 5840 6518      029D0        5826 PRZCL    L     PC1,PCCWORK         PICK UP MODIFIED COMMAND             P4386000
001924 4570 CF9A      02452        5827          BAL   PL,PPPUT            ADD CCW TO CHAIN                     P4388000
001928 4115 0000      00000        5828 PRNOPRNT LA    R1,0(PC2)           R1 = RECORD LENGTH                   P4390000

00192C 1E41                        5829          ALR   PC1,R1              STEP PC1 TO NEXT RCB                 P4392000
00192E 4114 0000      00000        5830          LA    R1,0(PC1)           R1 = ADDRESS OF NEXT RCB             P4394000
001932 1B13                        5831          SR    R1,PBUF             GENERATE DISPLACEMENT OF RCB         P4396000
                                   5832          CL    R1,=A(BUFSTART-BUFDSECT+&BUFSIZE) COMPARE WITH BUF SIZE  P4398000
001934 5510 6558      02A10        5833+         CL    R1,=A(BUFSTART-BUFDSECT+1960)     COMPARE WITH BUF SIZE  P4398000
001938 4740 C2F8      017B0        5834          BL    PNXTCCW             BRANCH IF RCB IS IN BUFFER           P4400000


00193C 4570 6044      024FC        5836 PCPEND   BAL   PL,PPWRITE          INITIATE WRITE                       P4404000
001940 4570 60B4      0256C        5837          BAL   PL,PPCHECK          CHECK LAST WRITE                     P4406000
001944 9108 D058      00058        5838          TM    PPFLAG,PPNOJOE      HAS WORK JOE BEEN RELEASED   OY07290 P4406100
001948 4710 C6E2      01B9A        5839          BO    PPDONE              IF YES BRANCH                OY07290 P4406200
                                   5840 *        ICM   R15,15,HDBNXTRK     LOAD AND TEST CHAIN TRACK       RFIT P4408000

00194C 58F0 3058      00058        5841          L     R15,HDBNXTRK                                        RFIT P4408005
001950 12FF                        5842          LTR   R15,R15                                             RFIT P4408010
001952 4770 C2A2      0175A        5843          BNZ   PNXTBLK             BRANCH IF NOT END OF OUTPUT          P4410000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR TERMINATION                                                     PAGE  127



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001956 12AA                        5845          LTR   JCT,JCT             TEST FOR JOB                         P4414000
001958 4780 C012      014CA        5846          BZ    PLINKI2             GO BACK TO INITIALIZATION IF NO JOB  P4416000
00195C 9104 D058      00058        5847          TM    PPFLAG,PPRDERR      DATA BUFFER READ ERROR               P4418000
001960 47E0 C4D4      0198C        5848          BNO   PPIOTCK             BRANCH IF NO                         P4420000
001964 94FB D058      00058        5849          NI    PPFLAG,255-PPRDERR  CLEAR READ ERROR FLAG                P4422000

001968 9140 D04A      0004A        5850          TM    PCEID,PCEPUSID      IS THIS A PUNCH PROCESSOR            P4424000
00196C 4710 C4D4      0198C        5851          BO    PPIOTCK             BRANCH IF YES                        P4426000
001970 D727 D080 D080 00080 00080  5852          XC    PMESSAGE,PMESSAGE   CLEAR MESSAGE WORK AREA              P4428000
001976 D21B D080 6340 00080 027F8  5853          MVC   PMESSAGE(PRLENCOM),PRCOM SETUP BASIC MESSAGE             P4430000
00197C D20A D085 6393 00085 0284B  5854          MVC   PMESSAGE+5(L'PRTRMMSG),PRTRMMSG TERMINATED MESSAGE       P4432000
001982 D207 D094 639E 00094 02856  5855          MVC   PMESSAGE+20(L'PRIOEMSG),PRIOEMSG IO ERROR                P4434000
001988 4570 CEDA      02392        5856          BAL   PL,PRCOMENT         WRITE TERMINATED MESSAGE             P4436000
00198C                             5857 PPIOTCK  DS    0H                                                       P4440000

00198C 9502 D0C4      000C4        5858          CLI   PBUFOPT,2           TEST BUFFER OPTION                   P4442000
001990 4780 C4E0      01998        5859          BE    *+8                 BRANCH IF DOUBLE BUFFERING           P4444000

001994                             5860 PPPIOTRD DS    0H                                                       P4446000
001994 4570 CF1A      023D2        5861          BAL   PL,PRDNXTB          INITIATE READ OF JCT                 P4448000
001998 4570 CF4E      02406        5862          BAL   PL,PRDCHK           CHECK READ                           P4450000
00199C 18A3                        5863          LR    JCT,PBUF            SET JCT REGISTER                     P4452000
00199E 5810 D060      00060        5864          L     R1,PJOB             ADDRESS JOB QUEUE ELEMENT            P4454000
0019A2 D503 A064 1008 00064 00008  5865          CLC   IOTJCTTR,QUETRAK(R1) IS IOT VALID                        P4456000
0019A8 4780 C51C      019D4        5866          BE    PRSUSTST            BRANCH IF YES                        P4458000
0019AC 58F0 D0C0      000C0        5867          L     R15,PCEIOTTR        GET IOT TRACK ADDRESS                P4460000

0019B0 4570 CF28      023E0        5868          BAL   PL,PRDBUF           INITIATE READ OF IOT                 P4462000
0019B4 4570 CF4E      02406        5869          BAL   PL,PRDCHK           CHECK READ                           P4464000
0019B8 18A3                        5870          LR    JCT,PBUF            ADDRESS IOT IN BUFFER                P4466000
0019BA 5810 D060      00060        5871          L     R1,PJOB             ADDRESS JOB QUEUE ELEMENT            P4468000
0019BE D503 A064 1008 00064 00008  5872          CLC   IOTJCTTR,QUETRAK(R1) IS IOT VALID                        P4470000

0019C4 4780 C51C      019D4        5873          BE    PRSUSTST            BRANCH IF YES                        P4472000
                                   5874         $DISTERR                   INDICATE DISASTROUT ERROR            P4474000
0019C8 45E0 B0BC      000BC        5875+         BAL   LINK,$DISTERR       LINK TO CONTROL SERVICE PROGRAM      BA008000

0019CC 9612 D058      00058        5876          OI    PPFLAG,PPJCTIOT+PRDELSW REASON FOR TERMINATION           P4476000
0019D0 47F0 C6E2      01B9A        5877          B     PPDONE              ABORT JOB                            P4478000
0019D4                             5878 PRSUSTST DS    0H                                                       P4480000
0019D4 9110 D058      00058        5879          TM    PPFLAG,PRDELSW      TEST FOR FORCED TERMINATION          P4482000
0019D8 4710 C6E2      01B9A        5880          BO    PPDONE              BRANCH IF YES                        P4484000
0019DC 9140 D058      00058        5881          TM    PPFLAG,PPDELSW      TEST FOR SUSPENSION                  P4486000
0019E0 4780 C5D8      01A90        5882          BZ    PNEXTDDB            BRANCH IF NO                         P4488000

0019E4 94BF D058      00058        5883          NI    PPFLAG,255-PPDELSW  RESET SUSPEND FLAG                   P4490000
0019E8 D727 D080 D080 00080 00080  5884          XC    PMESSAGE,PMESSAGE   CLEAR MESSAGE AREA                   P4492000
0019EE D21B D080 6340 00080 027F8  5885          MVC   PMESSAGE(PRLENCOM),PRCOM COMMENT TO MESSAGE AREA         P4494000
0019F4 4110 6367      0281F        5886          LA    R1,PRFSPMSG         SELECT FORWARD-SPACE MESSAGE         P4496000
0019F8 D501 D0A8 D0B2 000A8 000B2  5887          CLC   PDDBSKIP,PDDBPGCT   IS THIS A FORWARD-SPACE              P4498000

0019FE 4720 C54E      01A06        5888          BH    *+8                 BRANCH IF YES                        P4500000
001A02 4110 6372      0282A        5889          LA    R1,PRBSPMSG         SELECT BACKSPACE MESSAGE             P4502000
001A06 D209 D086 1001 00086 00001  5890          MVC   PMESSAGE+6(10),1(R1) MESSAGE REASON                      P4504000
001A0C 9610 D058      00058        5891          OI    PPFLAG,PRDELSW      BLOCK OPERATOR COMMANDS      OY08667 P4505000

001A10 4570 CEDA      02392        5892          BAL   PL,PRCOMENT         WRITE FWD/BACKSPAC MESSAGE           P4506000
001A14 94EF D058      00058        5893          NI    PPFLAG,255-PRDELSW  ENABLE OPERATOR COMMANDS     OY08667 P4507000
001A18 D501 D0A8 63D6 000A8 0288E  5894          CLC   PDDBSKIP,PHALFMSK+2 TEST SKIP COUNT                      P4508000
001A1E 4780 C5D8      01A90        5895          BE    PNEXTDDB            $F DEVICE,DS                         P4510000
001A22 4120 D150      00150        5896          LA    PW,PCCWCHN          GET START OF CCW CHAIN               P4512000
001A26 5020 3010      00010        5897          ST    PW,IOBSTART         SET START ADDRESS INTO IOB           P4514000

001A2A 9845 64D8      02990        5898          LM    PC1,PC2,PRCCWEJ     SELECT SKIP CH 1 CCW                 P4516000
001A2E 4570 CF9A      02452        5899          BAL   PL,PPPUT            ADD CCW TO CHAIN                     P4518000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR TERMINATION                                                     PAGE  128


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001A32 4570 6044      024FC        5900          BAL   PL,PPWRITE           INITIATE WRITE                      P4520000

001A36 4570 60B4      0256C        5901          BAL   PL,PPCHECK            AND CHECK                          P4522000
001A3A D501 D0A8 D0B2 000A8 000B2  5902          CLC   PDDBSKIP,PDDBPGCT   FWD/BSP PAGE COUNT                   P4524000
001A40 4720 C26C      01724        5903          BH    PBSFSGO             $F DEVICE,N                          P4526000
                                   5904          AIF   (&BSPNTE EQ 0).NOBSP2                                    P4528000
001A44                             5905 PBSPSRCH DS    0H                  BSP TABLE SEARCH                     P4530000

001A44 4870 D134      00134        5906          LH    PL,PBSPGCT          GET CURRENT NEXT TABLE ENTRY         P4532000
                                   5907          SH    PL,=H'&BSPGCT'      PAGE FOR LAST ENTRY                  P4534000
001A48 4B70 6586      02A3E        5908+         SH    PL,=H'32'           PAGE FOR LAST ENTRY                  P4534000
001A4C 47D0 C05C      01514        5909          BNP   PENDINIT            BRANCH IF START OF DS        OY02728 P4536000
001A50 D601 D14C D14C 0014C 0014C  5910          OC    PBSPTBL+L'PBSPTBL-2(2),PBSPTBL+L'PBSPTBL-2 VALID         P4538000

001A56 4780 C05C      01514        5911          BZ    PENDINIT            BRANCH IF NO                         P4540000
001A5A 4070 D134      00134        5912          STH   PL,PBSPGCT          SAVE FOR LATER                       P4542000
001A5E D203 D0BC D148 000BC 00148  5913          MVC   PCEJMTTR,PBSPTBL+L'PBSPTBL-6 HOLD BUFFER MTTR            P4544000
001A64 D201 D0AE D14C 000AE 0014C  5914          MVC   PCEEJRCB,PBSPTBL+L'PBSPTBL-2 HOLD LINE RCB               P4546000
                                   5915          AIF   (&BSPNTE EQ 1).BSP2                                      P4548000

001A6A D211 3058 D136 00058 00136  5916          MVC   BUFSTART(L'PBSPTBL-6),PBSPTBL PUSH UP BSP TABLE          P4550000
001A70 D211 D13C 3058 0013C 00058  5917          MVC   PBSPTBL+6(L'PBSPTBL-6),BUFSTART TO LAST POSITION         P4552000
                                   5918 .BSP2    ANOP                                                           P4554000
001A76 D705 D136 D136 00136 00136  5919          XC    PBSPTBL(6),PBSPTBL  INVALIDATE UNUSED ENTRY              P4556000
001A7C 4970 D0A8      000A8        5920          CH    PL,PDDBSKIP         IS PAGE BEFORE BSP                   P4558000
001A80 4720 C58C      01A44        5921          BH    PBSPSRCH            BRANCH IF NO                         P4560000

001A84 4070 D0B2      000B2        5922          STH   PL,PDDBPGCT         SET AS NEW PAGE COUNTER              P4562000
001A88 47F0 C26C      01724        5923          B     PBSFSGO             GO TO RESTART PROCESS                P4564000
                                   5924 .NOBSP2  ANOP                                                           P4566000
001A8C 47F0 C05C      01514        5925          B     PENDINIT            $B DEVICE,N OR $B DEVICE,DS          P4568000

001A90                             5926 PNEXTDDB DS    0H                                                       P4570000
001A90 D701 D0A8 D0A8 000A8 000A8  5927          XC    PDDBSKIP,PDDBSKIP   CLEAR SKIP COUNT                     P4572000
001A96 5810 D058      00058        5928          L     R1,PDCT             RESET ALL DATA SET SWITCHES          P4574000
001A9A 94FB 1014      00014        5929          NI    DCTFLAGS-DCTDSECT(R1),255-DCTSPACE RESET SINGLE SP       P4576000
001A9E 94FB D05C      0005C        5930          NI    PDCTFLAG,255-DCTSPACE SWITCHES                           P4578000

001AA2 4840 D0B0      000B0        5931          LH    PC1,PDDBDISP        GET PDDB OFFSET IN IOT               P4580000
001AA6 4154 A000      00000        5932          LA    PC2,0(PC1,JCT)      GENERATE ABSOLUTE ADDRESS            P4582000
001AAA 9140 D04A      0004A        5933          TM    PCEID,PCEPUSID      IS THIS A PUNCH PROCESSOR    OY02728 P4583000
001AAE 4710 C6B8      01B70        5934          BO    PRCPYTST            BRANCH IF YES                OY02728 P4583500
001AB2 9120 5000      00000        5935          TM    PDBFLAG1-PDBDSECT(PC2),PDB1LOG IS THIS THE LOG PDDB      P4584000
001AB6 47E0 C6B8      01B70        5936          BNO   PRCPYTST            BRANCH IF NO - CHECK DS COPIES       P4586000
001ABA 9240 D080      00080        5937          MVI   PMESSAGE,X'40'      INIT MESSAGE FIELD           OY04708 P4588000

001ABE D226 D081 D080 00081 00080  5938          MVC   PMESSAGE+1(L'PMESSAGE-1),PMESSAGE TO BLANKS      OY04708 P4588100
001AC4 D21F D080 6448 00080 02900  5939          MVC   PMESSAGE(L'PJOBSTAT),PJOBSTAT SETUP STAT HEADER          P4590000
001ACA 4570 CEDA      02392        5940          BAL   PL,PRCOMENT         WRITE STATISTICS HEADER              P4592000

001ACE 9240 D080      00080        5941          MVI   PMESSAGE,X'40'      INIT MESSAGE FIELD           OY04708 P4594000
001AD2 D226 D081 D080 00081 00080  5942          MVC   PMESSAGE+1(L'PMESSAGE-1),PMESSAGE TO BLANKS      OY04708 P4594100
001AD8 D213 D080 6468 00080 02920  5943          MVC   PMESSAGE(L'PRDRSTAT),PRDRSTAT SETUP CARDS READ           P4596000
001ADE 5810 D0F4      000F4        5944          L     R1,PPJCARDS         GET INPUT CARD COUNT                 P4598000
001AE2 4E10 6518      029D0        5945          CVD   R1,PCCWORK          CONVERT TO DECIMAL                   P4600000

001AE6 DE08 D080 651C 00080 029D4  5946          ED    PMESSAGE(9),PCCWORK+4 EDIT INPUT CARD COUNT              P4602000
001AEC 4570 CEDA      02392        5947          BAL   PL,PRCOMENT         WRITE CARDS READ                     P4604000
001AF0 9240 D080      00080        5948          MVI   PMESSAGE,X'40'      INIT MESSAGE FIELD           OY04708 P4606000
001AF4 D226 D081 D080 00081 00080  5949          MVC   PMESSAGE+1(L'PMESSAGE-1),PMESSAGE TO BLANKS      OY04708 P4606100
001AFA D21D D080 647C 00080 02934  5950          MVC   PMESSAGE(L'PPRTSTAT),PPRTSTAT SETUP SYSOUT PRINT         P4608000
001B00 5810 D0F8      000F8        5951          L     R1,PPJLINES         GET SYSOUT PRINT COUNT               P4610000
001B04 4E10 6518      029D0        5952          CVD   R1,PCCWORK          CONVERT TO DECIMAL                   P4612000
001B08 DE08 D080 651C 00080 029D4  5953          ED    PMESSAGE(9),PCCWORK+4 EDIT SYSOUT RECORD COUNT           P4614000

001B0E 4570 CEDA      02392        5954          BAL   PL,PRCOMENT         WRITE SYSOUT RECORD COUNT            P4616000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR TERMINATION                                                     PAGE  129



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001B12 9240 D080      00080        5955          MVI   PMESSAGE,X'40'      INIT MESSAGE FIELD           OY04708 P4618000
001B16 D226 D081 D080 00081 00080  5956          MVC   PMESSAGE+1(L'PMESSAGE-1),PMESSAGE TO BLANKS      OY04708 P4618100
001B1C D21D D080 649A 00080 02952  5957          MVC   PMESSAGE(L'PPUNSTAT),PPUNSTAT SETUP SYSOUT PUNCH         P4620000
001B22 5810 D0FC      000FC        5958          L     R1,PPJPUNCH         GET SYSOUT PUNCH COUNT               P4622000

001B26 4E10 6518      029D0        5959          CVD   R1,PCCWORK          CONVERT TO DECIMAL                   P4624000
001B2A DE08 D080 651C 00080 029D4  5960          ED    PMESSAGE(9),PCCWORK+4 EDIT SYSOUT RECORD COUNT           P4626000
001B30 4570 CEDA      02392        5961          BAL   PL,PRCOMENT         WRITE SYSOUT RECORD COUNT            P4628000
001B34 9240 D080      00080        5962          MVI   PMESSAGE,X'40'      INIT MESSAGE FIELD           OY04708 P4630000
001B38 D226 D081 D080 00081 00080  5963          MVC   PMESSAGE+1(L'PMESSAGE-1),PMESSAGE TO BLANKS      OY04708 P4630100
001B3E D21F D080 64B8 00080 02970  5964          MVC   PMESSAGE(L'PXEQSTAT),PXEQSTAT SETUP EXECUTION TIME       P4632000
001B44 5810 D100      00100        5965          L     R1,PPJXEQOF         COMPUTE ELAPSED                      P4634000
001B48 5B10 D104      00104        5966          S     R1,PPJXEQON         EXECUTION TIME                       P4636000
001B4C 47B0 C69C      01B54        5967          BNM   *+8                 TEST FOR MIDNIGHT SPAN               P4638000

001B50 5A10 655C      02A14        5968          A     R1,=A(24*60*60*100) YES, ADD 24 HOURS                    P4640000

001B54 1B00                        5969          SR    R0,R0               CONVERT TO                           P4642000
001B56 5D00 6560      02A18        5970          D     R0,=F'60'           HUNDREDTHS OF MINUTES                P4644000
001B5A 4E10 6518      029D0        5971          CVD   R1,PCCWORK          CONVERT TO DECIMAL                   P4646000
001B5E DE08 D080 651C 00080 029D4  5972          ED    PMESSAGE(9),PCCWORK+4 EDIT EXECUTION TIME                P4648000
001B64 4570 CEDA      02392        5973          BAL   PL,PRCOMENT         WRITE EXECUTION TIME                 P4650000

001B68 9140 D058      00058        5974          TM    PPFLAG,PPDELSW      $C (CANCEL) OR $E (RESTART)          P4652000
001B6C 4710 C51C      019D4        5975          BO    PRSUSTST             OR $I (SUSPEND) OR $F/$B            P4654000
001B70                             5976 PRCPYTST DS    0H                                                       P4656000
001B70 4840 D0B0      000B0        5977          LH    PC1,PDDBDISP        PDDB OFFSET IN IOT                   P4658000
001B74 4154 A000      00000        5978          LA    PC2,0(PC1,JCT)      GENERATE ABSOLUTE ADDRESS            P4660000
001B78 5810 D064      00064        5979          L     R1,PRCHKPTE         ADDRESS OF CHECKPOINT ELEMENT        P4662000
001B7C 4320 D0AD      000AD        5980          IC    PW,PPRCPYCT         INCREMENT                            P4664000
001B80 4120 2001      00001        5981          LA    PW,1(,PW)           COPY                                 P4666000
001B84 4220 D0AD      000AD        5982          STC   PW,PPRCPYCT         COUNT                                P4668000
001B88 D500 D132 D0AD 00132 000AD  5983          CLC   PPDSCPY,PPRCPYCT    ENOUGH COPIES OF DATA SET            P4670000

001B8E 4720 C088      01540        5984          BH    PDDBNEXT            BRANCH IF ANOTHER COPY NEEDED        P4672000

001B92 9200 D0AD      000AD        5985          MVI   PPRCPYCT,X'00'      SET COPY COUNT TO ZERO               P4674000
001B96 47F0 C210      016C8        5986          B     PDDBSRCH            FIND NEXT MATCHING PDDB              P4676000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR TERMINATION                                                     PAGE  130


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


001B9A                             5988 PPDONE   DS    0H                                                       P4680000
001B9A 92FF D0D0      000D0        5989          MVI   PLSAVE3,X'FF'       SET TERMINATION FLAG         OY07290 P4680050
001B9E 9108 D058      00058        5990          TM    PPFLAG,PPNOJOE      HAS WORK JOE BEEN RELEASED   OY07290 P4680100
001BA2 4710 C73A      01BF2        5991          BO    PPEND01             IF YES WRITE MESSAGE         OY07290 P4680200
001BA6                             5992 PPDONE1  DS    0H                                               OY07290 P4680300
                            00000  5993          USING JCTDSECT,JCT        ACTIVATE JCT ADDRESSABILITY          P4682000
001BA6 58A0 D060      00060        5994          L     JCT,PJOB            ADDRESS JOB QUEUE ELEMENT            P4684000
001BAA 9102 A004      00004        5995          TM    QUEFLAGS(JCT),QUEJCTSW IS JCT AVAILABLE                  P4686000
001BAE 47E0 C702      01BBA        5996          BNO   PPEND00             BRANCH IF YES                        P4688000
                                   5997         $WAIT  ABIT                STALL FOR A LOOP                     P4690000
001BB2 45F0 B030      00030        5998+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

001BB6 47F0 C6EE      01BA6        5999          B     PPDONE1             TRY AGAIN FOR JCT            OY07290 P4692000
001BBA                             6000 PPEND00  DS    0H                                                       P4694000
001BBA 94BF D058      00058        6001          NI    PPFLAG,255-PPDELSW  RESET SUSPEND FLAG                   P4696000
001BBE 9602 A004      00004        6002          OI    QUEFLAGS(JCT),QUEJCTSW SET JCT BUSY BIT                  P4698000

001BC2 58F0 A008      00008        6003          L     R15,QUETRAK(,JCT)   GET TRACK ADDRESS OF JCT             P4700000
001BC6 4570 CF28      023E0        6004          BAL   PL,PRDBUF           INITIATE READ OF JCT                 P4702000
001BCA 4570 CF4E      02406        6005          BAL   PL,PRDCHK           CHECK JCT READ                       P4704000
001BCE 18A3                        6006          LR    JCT,PBUF            JCT = ADDRESS OF JCT                 P4706000
001BD0 5810 A058      00058        6007          L     R1,JCTJQE           JOB QUEUE ELEMENT OFFSET             P4708000
001BD4 5A10 B13C      0013C        6008          A     R1,$JOBQPTR         ADD JOB QUEUE ORIGIN                 P4710000
                                   6009 *        CLM   R1,7,PJOB+1         IS JOB CONTROL TABLE VALID      RFIT P4712000
001BD8 5010 6520      029D8        6010          ST    R1,DARTSCR2                                         RFIT P4712005
001BDC D502 6521 D061 029D9 00061  6011          CLC   DARTSCR2+1(3),PJOB+1                                RFIT P4712010
001BE2 4780 C732      01BEA        6012          BE    *+8                 BRANCH IF YES                OY07290 P4714000
001BE6 9612 D058      00058        6013          OI    PPFLAG,PPJCTIOT+PRDELSW REASON FOR TERMINATION           P4716000
001BEA 9108 D058      00058        6014          TM    PPFLAG,PPNOJOE      HAS WORK JOE BEEN RELEASED   OY07290 P4716100

001BEE 4710 C7A8      01C60        6015          BO    PTIMEOFF            IF YES UPDATE JCT            OY07290 P4716200
001BF2                             6016 PPEND01  DS    0H                                                       P4718000
001BF2 94BF D058      00058        6017          NI    PPFLAG,255-PPDELSW  RESET SUSPEND FLAG           OY07290 P4719000

001BF6 9140 D04A      0004A        6018          TM    PCEID,PCEPUSID      IS THIS A PUNCH PROCESSOR            P4720000
001BFA 4710 C7A0      01C58        6019          BO    PRDELCM1            BRANCH IF YES                OY07290 P4722000
001BFE 9110 D058      00058        6020          TM    PPFLAG,PRDELSW      IS THIS A NORMAL TERMINATION         P4724000
001C02 4780 C7A8      01C60        6021          BZ    PTIMEOFF            BRANCH IF YES                        P4726000
001C06 D727 D080 D080 00080 00080  6022          XC    PMESSAGE,PMESSAGE   CLEAR MESSAGE WORK AREA              P4728000
001C0C D21B D080 6340 00080 027F8  6023          MVC   PMESSAGE(PRLENCOM),PRCOM BASIC MESSAGE TO AREA           P4730000
001C12 9128 D05C      0005C        6024          TM    PDCTFLAG,DCTRSTRT+DCTBKSP $I - (INTERRUPT)               P4732000
001C16 47E0 C76C      01C24        6025          BNO   PPEND02             BRANCH IF NO                         P4734000
001C1A D20A D085 637D 00085 02835  6026          MVC   PMESSAGE+5(L'PRSUSMSG),PRSUSMSG INTERRUPT MESSAGE        P4736000
001C20 47F0 C79C      01C54        6027          B     PRDELCOM            GO PRINT MESSAGE                     P4738000
001C24                             6028 PPEND02  DS    0H                                                       P4740000
001C24 9120 D05C      0005C        6029          TM    PDCTFLAG,DCTRSTRT   $E - (RESTART)                       P4742000

001C28 47E0 C77E      01C36        6030          BNO   PPEND03             BRANCH IF NO                         P4744000

001C2C D20A D085 6388 00085 02840  6031          MVC   PMESSAGE+5(L'PPRESMSG),PPRESMSG RESTART MESSAGE          P4746000
001C32 47F0 C79C      01C54        6032          B     PRDELCOM            GO PRINT MESSAGE                     P4748000

001C36                             6033 PPEND03  DS    0H                                                       P4750000
001C36 9140 D05C      0005C        6034          TM    PDCTFLAG,DCTDELET   $C - (CANCEL)                        P4752000
001C3A 47E0 C790      01C48        6035          BNO   PPEND04             BRANCH IF NO                         P4754000
001C3E D20A D085 635C 00085 02814  6036          MVC   PMESSAGE+5(L'PPDELMSG),PPDELMSG DELETED MESSAGE          P4756000
001C44 47F0 C79C      01C54        6037          B     PRDELCOM            GO PRINT MESSAGE                     P4758000
001C48                             6038 PPEND04  DS    0H                                                       P4760000
001C48 D20A D085 6393 00085 0284B  6039          MVC   PMESSAGE+5(L'PRTRMMSG),PRTRMMSG TERMINATED MESSAGE       P4762000
001C4E D207 D094 639E 00094 02856  6040          MVC   PMESSAGE+20(L'PRIOEMSG),PRIOEMSG IO ERROR MSG            P4764000
001C54                             6041 PRDELCOM DS    0H                                                       P4766000
001C54 4570 CEDA      02392        6042          BAL   PL,PRCOMENT         WRITE TERMINATION REASON             P4768000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR TERMINATION                                                     PAGE  131


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


001C58                             6043 PRDELCM1 DS    0H                                               OY07290 P4768100
001C58 9108 D058      00058        6044          TM    PPFLAG,PPNOJOE      HAS WORK JOE BEEN RELEASED   OY07290 P4768200

001C5C 4710 C8D4      01D8C        6045          BO    PUNSEPCD            IF YES PRINT TRAILER         OY07290 P4768300

001C60                             6046 PTIMEOFF DS    0H                                                       P4770000
001C60 5810 A058      00058        6047          L     R1,JCTJQE           JOB QUEUE ELEMENT OFFSET     OY02728 P4770200
001C64 5A10 B13C      0013C        6048          A     R1,$JOBQPTR         ADD JOB QUEUE ORIGIN         OY02728 P4770400
                                   6049 *        CLM   R1,7,PJOB+1         IS JCT VALID                    RFIT P4770600
001C68 5010 6520      029D8        6050          ST    R1,DARTSCR2                                         RFIT P4770605
001C6C D502 6521 D061 029D9 00061  6051          CLC   DARTSCR2+1(3),PJOB+1                                RFIT P4770610
001C72 4770 C83E      01CF6        6052          BNE   PJCTWOK             BRANCH IF NO                 OY02728 P4770800
                                   6053         $TIME                      SIGN-OFF TIME/DATE           OY02728 P4771000
001C76 4110 0001      00001        6054+         LA    1,1(0,0)                          LOAD 1 TO SPECIFY UNIT 00200000
001C7A 0A0B                        6055+         SVC   11                                ISSUE TIME SVC         00280000
001C7C 9001 A0D4      000D4        6056          STM   R0,R1,JCTOUTOF      PRPU SIGN-OFF TIME/DATE      OY02728 P4771500
001C80 5810 A0EC      000EC        6057          L     R1,JCTPRTCT         GET CURRENT PRINT LINE COUNT         P4772000

001C84 9180 D04A      0004A        6058          TM    PCEID,PCEPRSID      IS THIS A PRINT PROCESSOR            P4774000
001C88 47E0 C7D8      01C90        6059          BNO   *+8                 BRANCH IF NO                         P4776000
001C8C 5A10 D0B4      000B4        6060          A     R1,PPLNCDCT         ADD LINES PRINTED                    P4778000

001C90 5010 A0EC      000EC        6061          ST    R1,JCTPRTCT         STORE INTO JCT                       P4780000
001C94 5810 A0F0      000F0        6062          L     R1,JCTPAGCT         GET CURRENT PAGE COUNT               P4782000
001C98 9180 D04A      0004A        6063          TM    PCEID,PCEPRSID      IS THIS A PRINT PROCESSOR            P4784000
001C9C 47E0 C7EC      01CA4        6064          BNO   *+8                 BRANCH IF NO                         P4786000
001CA0 5A10 D0B8      000B8        6065          A     R1,PRPAGECT         ADD PAGES PRINTED                    P4788000
001CA4 5010 A0F0      000F0        6066          ST    R1,JCTPAGCT         STORE INTO JCT                       P4790000
001CA8 5810 A0F4      000F4        6067          L     R1,JCTPUNCT         GET CURRENT CARDS PUNCHED            P4792000
001CAC 9140 D04A      0004A        6068          TM    PCEID,PCEPUSID      IS THIS A PUNCH PROCESSOR            P4794000
001CB0 47E0 C800      01CB8        6069          BNO   *+8                 BRANCH IF NO                         P4796000
001CB4 5A10 D0B4      000B4        6070          A     R1,PPLNCDCT         ADD CARDS PUNCHED                    P4798000
001CB8 5010 A0F4      000F4        6071          ST    R1,JCTPUNCT         STORE INTO JCT                       P4800000
001CBC 9140 D05C      0005C        6072          TM    PDCTFLAG,DCTDELET   $C - (CANCEL)                OY02728 P4801000

001CC0 4710 C83E      01CF6        6073          BO    PJCTWOK             BRANCH IF YES                OY02728 P4801500
001CC4 4110 3038      00038        6074          LA    R1,IOBCCW1          RESET CCW CHAIN ADDRESS              P4802000
001CC8 5010 3010      00010        6075          ST    R1,IOBSTART         IN IOB                               P4804000

001CCC 5810 D05C      0005C        6076          L     R1,PDADCT           ADDRESS DA DCT                       P4806000
001CD0 9240 1013      00013        6077          MVI   DCTIOTYP-DCTDSECT(R1),DCTWRITE INDICATE WRITE            P4808000
                                   6078         $EXCP  (R1)                WRITE JCT TO SPOOL                   P4810000
001CD4 45E0 B06C      0006C        6079+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
001CD8                             6080 PJCTWTR  DS    0H                                                       P4812000
001CD8 917F 3028      00028        6081          TM    BUFECBCC,X'7F'      TEST FOR I/O COMPLETE                P4814000
001CDC 4710 C83E      01CF6        6082          BO    PJCTWOK             BRANCH IF WRITE GOOD                 P4816000
001CE0 4770 C838      01CF0        6083          BNZ   PJCTWER             BRANCH IF WRITE BAD                  P4818000
                                   6084         $WAIT  IO                  WAIT FOR WRITE TO FINISH             P4820000
001CE4 9640 D049      00049        6085+         OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
001CE8 45F0 B030      00030        6086+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
001CEC 47F0 C820      01CD8        6087          B     PJCTWTR             CHECK I/O COMPLETION                 P4822000

001CF0                             6088 PJCTWER  DS    0H                                                       P4824000
                                   6089         $IOERROR (PBUF)            INDICATE IO ERROR                    P4826000
001CF0 1813                        6090+         LR    R1,PBUF                                                  DG018000
001CF2 45E0 B0B4      000B4        6091+         BAL   LINK,$IOERROR       LINK TO CONTROL SERVICE PROGRAM      BA008000

001CF6                             6092 PJCTWOK  DS    0H                                                       P4828000
001CF6 5810 D060      00060        6093          L     R1,PJOB             ADDRESS JOB QUEUE ELEMENT            P4830000
001CFA 94FD 1004      00004        6094          NI    QUEFLAGS(R1),255-QUEJCTSW RELEASE JCT                    P4832000
                                   6095          AIF   (&NUMSMFB LT 2).NOSMF SKIP IF SMF NOT USED               P4834000
                                   6096         $GETSMFB WAIT=YES          GET AN SMF BUFFER                    P4836000
001CFE 4110 0001      00001        6097+         LA    R1,1                WAIT FOR SMF IF NECESSARY            GM008000

PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR TERMINATION                                                     PAGE  132


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001D02 45E0 B0A8      000A8        6098+         BAL   LINK,$GETSMFB       LINK TO CONTROL SERVICE PROGRAM      BA008000
                            00000  6099          USING SMFDSECT,R1         ACTIVATE SMF ADDRESSABILITY          P4838000
001D06 D201 1008 6588 00008 02A40  6100          MVC   SMFRDW(2),=AL2(SMF6END-SMFRDW) SET LENGTH OF RECORD      P4840000
001D0C D75B 100A 100A 0000A 0000A  6101          XC    SMFRDW+2(SMF6END-SMFRDW-2),SMFRDW+2 CLEAR RECORD OY04676 P4844000
001D12 9206 100D      0000D        6102          MVI   SMFHDRTY,SMFOUTTP   SET RECORD TYPE TO 6                 P4846000
001D16 D20F 101A A1F8 0001A 001F8  6103          MVC   SMF6JBN(16),JCTJMRJN JOB NAME FROM JMR                   P4848000

001D1C D207 102A A20C 0002A 0020C  6104          MVC   SMF6UIF,JCTUSEID    USER ID FROM JCT                     P4850000
001D22 D200 1032 D0D8 00032 000D8  6105          MVC   SMF6OWC,PWKJOE      SYSOUT CLASS                         P4852000

001D28 D207 1033 D06C 00033 0006C  6106          MVC   SMF6WST(8),PTIMEON  PRPU SIGN-ON TIME/DATE               P4854000
001D2E D203 103B D0B4 0003B 000B4  6107          MVC   SMF6NLR,PPLNCDCT    JOE LINE COUNT                       P4856000
001D34 9104 D058      00058        6108          TM    PPFLAG,PPRDERR      DATA BUFFER READ ERROR               P4858000
001D38 47E0 C888      01D40        6109          BNO   *+8                 BRANCH IF NO                         P4860000
001D3C 9604 103F      0003F        6110          OI    SMF6IOE,SMFDSER     SET DATA BUFFER READ ERROR           P4862000
001D40 9102 D058      00058        6111          TM    PPFLAG,PPJCTIOT     JCT/IOT READ ERROR                   P4864000
001D44 47E0 C894      01D4C        6112          BNO   *+8                 BRANCH IF NO                         P4866000
001D48 9601 103F      0003F        6113          OI    SMF6IOE,SMFCBER     SET CONTROL BUFFER READ ERROR        P4868000

001D4C D200 1040 D133 00040 00133  6114          MVC   SMF6NDS,PPJNDS      NUMBER OF DATASETS PROCESSED         P4870000
001D52 5820 D058      00058        6115          L     PW,PDCT             ADDRESS PRINT/PUNCH DCT              P4872000
                            00000  6116          USING DCTDSECT,PW         ACTIVATE DCT ADDRESSABILITY          P4874000
001D56 D203 1041 2020 00041 00020  6117          MVC   SMF6FMN,DCTFORMS    FORMS ID USED                        P4876000
001D5C D203 104C A06C 0004C 0006C  6118          MVC   SMF6JNM,JCTJOBEB    JOB NUMBER                           P4878000

001D62 D207 1050 2018 00050 00018  6119          MVC   SMF6OUT,DCTDEVN     OUTPUT DEVICE NAME                   P4880000
001D68 D203 1058 2024 00058 00024  6120          MVC   SMF6FCB,DCTFCB      FCB ID USED                          P4882000
001D6E D203 105C 2028 0005C 00028  6121          MVC   SMF6UCS,DCTUCS      UCSB ID USED                         P4884000

001D74 D203 1060 D0B8 00060 000B8  6122          MVC   SMF6PGE,PRPAGECT    CURRENT PAGE COUNTER                 P4886000
001D7A D200 1065 2011 00065 00011  6123          MVC   SMF6RTE+1(1),DCTNO  ROUTE CODE                           P4888000
                                   6124         $QUESMFB                   QUEUE SMF BUFFER FOR WRITE           P4890000
001D80 45E0 B0A4      000A4        6125+         BAL   LINK,$QUESMFB                                            QM006000
                                   6126          DROP  R1                  SUSPEND SMF ADDRESSABILITY           P4892000
                                   6127          DROP  PW                  SUSPEND DCT ADDRESSABILITY           P4894000
                                   6128 .NOSMF   ANOP                                                           P4896000

001D84 9108 D058      00058        6129          TM    PPFLAG,PPNOJOE      HAS WORK JOE BEEN RELEASED   OY07290 P4896100
001D88 4710 6240      026F8        6130          BO    PPIOTST             IF YES CHECK IO              OY07290 P4896200
001D8C                             6131 PUNSEPCD DS    0H                                               OY07290 P4897800
001D8C 18A3                        6132          LR    JCT,PBUF            SET JCT TO CURRENT BUFFER    OY07290 P4897900
001D8E 9180 D04A      0004A        6133          TM    PCEID,PCEPRSID      IS THIS A PRINT PROCESSOR            P4898000

001D92 4710 C8F6      01DAE        6134          BO    PRTRAILR            BRANCH IF YES                        P4900000
001D96 4120 D158      00158        6135          LA    PW,PCCWCHN+8        GET START OF PUNCH CCW CHAIN         P4902000
001D9A 5020 3010      00010        6136          ST    PW,IOBSTART         SET START ADDRESS INTO IOB           P4904000
001D9E 9845 64F8      029B0        6137          LM    PC1,PC2,PUCCWBL     LOAD BLANK CARD CCW                  P4906000

001DA2 4570 CF9A      02452        6138          BAL   PL,PPPUT            ADD CCW TO CHAIN                     P4908000
001DA6 4570 6044      024FC        6139          BAL   PL,PPWRITE          INITIATE WRITE                       P4910000
001DAA 4570 60B4      0256C        6140          BAL   PL,PPCHECK          CHECK WRITE                          P4912000
001DAE                             6141 PRTRAILR DS    0H                                                       P4914000
001DAE 5810 D0DC      000DC        6142          L     R1,PCHJOE           ADDRESS CHAR-JOE                     P4916000
001DB2 4110 1004      00004        6143          LA    R1,4(,R1)           ADDRESS SETUP PORTION                P4918000

001DB6 9108 D058      00058        6144          TM    PPFLAG,PPNOJOE      HAS WORK-JOE BEEN RELEASED           P4920000
001DBA 4780 C90A      01DC2        6145          BZ    *+8                 BRANCH IF NO                         P4922000
001DBE 4110 D0E0      000E0        6146          LA    R1,PCEFORM          JOE RELEASED - USE PCE SETUP         P4924000
001DC2 9281 D130      00130        6147          MVI   PRINDEX,X'81'       RESET 3211 INDEX TO 1                P4926000
001DC6 4570 C9B6      01E6E        6148          BAL   PL,PRPUDSV          CALL DEVICE SETUP VERIFICATION       P4928000

001DCA 9140 D04A      0004A        6149          TM    PCEID,PCEPUSID      IS THIS A PUNCH PROCESSOR            P4930000
001DCE 4710 C92E      01DE6        6150          BO    PRPUEXIT            BRANCH TO CLEANUP IF YES             P4932000
001DD2 5810 D058      00058        6151          L     R1,PDCT             ADDRESS PRINT DCT                    P4934000
001DD6 9110 102C      0002C        6152          TM    DCTPPSW-DCTDSECT(R1),DCTPPSWS SUPPRESS SEP PAGE          P4936000
PRPU     HASP PRINT/PUNCH SERVICE -- PROCESSOR TERMINATION                                                     PAGE  133



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001DDA 4710 C92E      01DE6        6153          BO    PRPUEXIT            BRANCH TO CLEANUP IF YES             P4938000
001DDE 4110 63F4      028AC        6154          LA    R1,PRENDHD          SETUP FOR END SEP PAGE               P4940000
001DE2 4570 CC7E      02136        6155          BAL   PL,PRINTID          PRINT TRAILER PAGE                   P4942000
001DE6                             6156 PRPUEXIT DS    0H                                                       P4944000

001DE6 9502 D0C4      000C4        6157          CLI   PBUFOPT,2           ARE WE DOUBLE BUFFERING              P4946000
001DEA 4770 C93E      01DF6        6158          BNE   PNDBUF              BRANCH IF NO                         P4948000
                                   6159         $FREEBUF PBUFSAVE          FREE SECOND BUFFER                   P4950000
001DEE 5810 D074      00074        6160+         L     R1,PBUFSAVE                                              DG012000
001DF2 45E0 B03C      0003C        6161+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000

001DF6                             6162 PNDBUF   DS    0H                                                       P4952000
001DF6 9108 D058      00058        6163          TM    PPFLAG,PPNOJOE      HAS WORK-JOE BEEN RELEASED           P4954000
001DFA 4710 C98A      01E42        6164          BO    PNOJOE              BRANCH IF YES                OY07290 P4956000
001DFE 9110 D05C      0005C        6165          TM    PDCTFLAG,DCTRPT     $N - (REPEAT)                        P4958000
001E02 4780 C980      01E38        6166          BZ    PJOEREM             BRANCH IF NO                         P4960000
001E06 5810 D058      00058        6167          L     R1,PDCT             ADDRESS PRINT/PUNCH DCT              P4962000

001E0A D207 D080 1018 00080 00018  6168          MVC   PMESSAGE(8),DCTDEVN-DCTDSECT(R1) GET DEVICE NAME         P4964000
001E10 D20A D088 6345 00088 027FD  6169          MVC   PMESSAGE+8(L'PPREPMSG),PPREPMSG SET REPEAT MESSAGE       P4966000
                                   6170         $WTO   PMESSAGE,L'PPREPMSG+8, INFORM THE OPERATOR              CP4968000
                                                       ROUTE=$LOG+$UR,CLASS=$NORMAL,PRI=$ST,JOB=NO              P4970000

001E16 4110 D080      00080        6171+         LA    R1,PMESSAGE                                              DG012000
001E1A 0700                        6172+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
001E1C 5800 C96C      01E24        6173+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
001E20 45E0 B098      00098        6174+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
001E24 00051334                    6175+         DC    AL1(0,$LOG+$UR,L'PPREPMSG+8,$NORMAL+$ST)                 WT044000

                                   6176         $#PUT  WORK=PWKJOE         RETURN WORK-JOE TO JOT               P4972000
001E28 1B00                        6177+         SR    R0,R0               R0=0 (NO PRC GIVEN)                  PT018000
001E2A 5810 D0D8      000D8        6178+         L     R1,PWKJOE                                                DG012000
001E2E 58F0 6564      02A1C        6179+         L     R15,=V($#PUT)       BASE FOR $#PUT SUBROUTINE            PT026000
001E32 05EF                        6180+         BALR  R14,R15             GIVE IT A TRY                        PT040000
001E34 47F0 C98A      01E42        6181          B     PNOJOE              BRANCH TO FINISH TERMINATION         P4974000
001E38                             6182 PJOEREM  DS    0H                                                       P4976000

                                   6183         $#REM  WORK=PWKJOE         REMOVE WORK-JOE FROM JOT             P4978000
001E38 5810 D0D8      000D8        6184+         L     R1,PWKJOE                                                DG012000
001E3C 58F0 6568      02A20        6185+         L     R15,=V($#REM)       BASE FOR $#REM SUBROUTINE            RM014000

001E40 05EF                        6186+         BALR  R14,R15             GIVE IT A TRY                        RM028000
001E42                             6187 PNOJOE   DS    0H                                                       P4980000
001E42 5810 D064      00064        6188          L     R1,PRCHKPTE         ADDRESS CHECKPOINT ELEMENT           P4982000
001E46 9200 1004      00004        6189          MVI   PRCFLAGS(R1),0      FREE CHECKPOINT ELEMENT              P4984000
                                   6190         $FREEBUF (JCT)             FREE FIRST BUFFER - JCT              P4986000

001E4A 181A                        6191+         LR    R1,JCT                                                   DG018000
001E4C 45E0 B03C      0003C        6192+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
                                   6193 PFREUNI $FREUNIT PDADCT            FREE DIRECT ACCESS DCT               P4988000
001E50 5810 D05C      0005C        6194+PFREUNI  L     R1,PDADCT                                                DG012000
001E54 45E0 B044      00044        6195+         BAL   LINK,$FREUNIT       LINK TO CONTROL SERVICE PROGRAM      BA008000
                                   6196          AIF   (&NUMLNES EQ 0).PNRJE07                                  P4990000
                                   6197 .PNRJE07 ANOP                      *                                    P5008000
                                   6198         $FREUNIT PDCT              FREE PRINT/PUNCH/REMOTE DCT          P5010000

001E58 5810 D058      00058        6199+         L     R1,PDCT                                                  DG012000
001E5C 45E0 B044      00044        6200+         BAL   LINK,$FREUNIT       LINK TO CONTROL SERVICE PROGRAM      BA008000

                                   6201         $DORMANT                   INDICATE PROCESSOR INACTIVE          P5012000
001E60 4310 B0C7      000C7        6202+         IC    R1,$ACTIVE          INDICATE                             DO006000
001E64 0610                        6203+         BCTR  R1,0                 PROCESSOR                           DO008000
001E66 4210 B0C7      000C7        6204+         STC   R1,$ACTIVE            INACTIVE                           DO010000
001E6A 47F0 C000      014B8        6205          B     PRPUENT             BRANCH TO INITIALIZATION             P5014000

PRPU     HASP PRINT/PUNCH SERVICE -- DEVICE SETUP VERIFICATION                                                 PAGE  134


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6207 *                                                                       P5018000
                                   6208 *        DETERMINE IF A OPERATOR MESSAGE IS NECESSARY                   P5020000
                                   6209 *                                                                       P5022000
001E6E                             6210 PRPUDSV  DS    0H                                                       P5024000
001E6E 5070 D000      00000        6211          ST    PL,PCESAVEA         SAVE RETURN REGISTER                 P5026000
001E72 1871                        6212          LR    PL,R1               COPY PARAMETER REGISTER              P5028000
001E74 5840 D058      00058        6213          L     PC1,PDCT            ADDRESS PRINT/PUNCH DCT              P5030000

                            00000  6214          USING DCTDSECT,PC1        ACTIVATE DCT ADDRESSABILITY          P5032000

001E78 94FE 402C      0002C        6215          NI    DCTPPSW,255-DCTPPSWO RESET OPERATOR $T ALLOWED           P5034000
001E7C D20B D080 4020 00080 00020  6216          MVC   PMESSAGE(12),DCTFORMS SAVE CURRENT SETUP         OY02728 P5035000
001E82                             6217 DSVFORM  DS    0H                                                       P5036000
001E82 D503 7000 4020 00000 00020  6218          CLC   0(4,PL),DCTFORMS    FORMS CHANGE                         P5038000
001E88 4780 C9DE      01E96        6219          BE    DSVFCB              BRANCH IF NO                         P5040000

001E8C 9601 402C      0002C        6220          OI    DCTPPSW,DCTPPSWO    SET OPERATOR $T ALLOWED              P5042000
001E90 D203 4020 7000 00020 00000  6221          MVC   DCTFORMS,0(PL)      NEW FORMS ID TO DCT          OY02728 P5043000
001E96                             6222 DSVFCB   DS    0H                                                       P5044000
001E96 D503 7004 656C 00004 02A24  6223          CLC   4(4,PL),=C'V   '    IS THE VARIABLE FCB REQUESTED        P5046000
001E9C 4770 C9EC      01EA4        6224          BNE   *+8                 BRANCH IF NO                         P5048000
001EA0 9681 402C      0002C        6225          OI    DCTPPSW,DCTPPSWC+DCTPPSWO SET LOAD AND MSG REQD          P5050000
001EA4 9580 D130      00130        6226          CLI   PRINDEX,X'80'       WAS AN INDEX VALUE SUPPLIED          P5052000
001EA8 4780 C9F8      01EB0        6227          BE    *+8                 BRANCH IF NO - AVOID RELOAD          P5054000
001EAC 9680 402C      0002C        6228          OI    DCTPPSW,DCTPPSWC    SET FCB LOAD REQUIRED SW             P5056000
001EB0 D503 7004 4024 00004 00024  6229          CLC   4(4,PL),DCTFCB      FCB CHANGE                           P5058000

001EB6 4780 CA18      01ED0        6230          BE    DSVUCSB             BRANCH IF NO                         P5060000

001EBA D203 4024 7004 00024 00004  6231          MVC   DCTFCB,4(PL)        NEW FCB ID TO DCT            OY02728 P5061000
001EC0 9680 402C      0002C        6232          OI    DCTPPSW,DCTPPSWC    SET FCB LOAD REQUIRED SW             P5062000
001EC4 9509 D0C7      000C7        6233          CLI   PDEVTYPE+3,X'09'    IS DEVICE 3211                       P5064000
001EC8 4780 CA18      01ED0        6234          BE    DSVUCSB             BRANCH IF YES                        P5066000

001ECC 9601 402C      0002C        6235          OI    DCTPPSW,DCTPPSWO    SET OPERATOR $T ALLOWED              P5068000
001ED0                             6236 DSVUCSB  DS    0H                                                       P5070000
001ED0 D503 7008 4028 00008 00028  6237          CLC   8(4,PL),DCTUCS      UCSB CHANGE                          P5072000
001ED6 4780 CA42      01EFA        6238          BE    DSVMSG              BRANCH IF NO                         P5074000
001EDA D503 7008 654C 00008 02A04  6239          CLC   8(4,PL),=CL4'****'  IS STANDARD UCS REQUESTED            P5076000
001EE0 4780 CA30      01EE8        6240          BE    *+8                 BRANCH IF YES                        P5078000
001EE4 9604 402C      0002C        6241          OI    DCTPPSW,DCTPPSWU    SET NON-STANDARD REQUEST             P5080000
001EE8 9104 402C      0002C        6242          TM    DCTPPSW,DCTPPSWU    IS DEVICE UCS STANDARD               P5082000
001EEC 4780 CA42      01EFA        6243          BZ    DSVMSG              BRANCH IF YES                OY02728 P5084000
001EF0 9609 402C      0002C        6244          OI    DCTPPSW,DCTPPSWO+DCTPPSWT $T ALLOWED, UCSB LOAD          P5086000
001EF4 D203 4028 7008 00028 00008  6245          MVC   DCTUCS,8(PL)        NEW UCSB ID TO DCT           OY02728 P5087000

                                   6246 *                                                                       P5088000
                                   6247 *        ISSUE OPERATOR SETUP MESSAGE                                   P5090000
                                   6248 *                                                                       P5092000
001EFA                             6249 DSVMSG   DS    0H                                                       P5094000

001EFA 9101 402C      0002C        6250          TM    DCTPPSW,DCTPPSWO    SETUP MESSAGE REQUIRED               P5096000
001EFE 4780 CAC2      01F7A        6251          BZ    DSVLUCSB            BRANCH IF NO                         P5098000
001F02 9680 4014      00014        6252          OI    DCTFLAGS,DCTSTOP    TURN ON STOP DEVICE BIT              P5100000
001F06 9497 4014      00014        6253          NI    DCTFLAGS,255-DCTDELET-DCTRSTRT-DCTBKSP RESET     OY04719 P5101000
001F0A D23D 3058 6302 00058 027BA  6254          MVC   BUFSTART(L'PPSETMSG),PPSETMSG DEVICE SETUP MESSAGE       P5102000
001F10 D203 305C D10C 0005C 0010C  6255          MVC   BUFSTART+4(4),PPJJOBEB JOB NUMBER                        P5104000
001F16 D207 306A 4018 0006A 00018  6256          MVC   BUFSTART+18(8),DCTDEVN DEVICE NAME                       P5106000
001F1C D203 307A 4020 0007A 00020  6257          MVC   BUFSTART+34(4),DCTFORMS FORMS ID                 OY02728 P5108000
001F22 D203 3086 4024 00086 00024  6258          MVC   BUFSTART+46(4),DCTFCB FCB ID                     OY02728 P5110000
001F28 D203 3092 4028 00092 00028  6259          MVC   BUFSTART+58(4),DCTUCS UCSB ID                    OY02728 P5112000
                                   6260          AIF   (&NUMLNES EQ 0).PNRJE09                                  P5114000
                                   6261 .PNRJE09 ANOP                                                           P5178000

PRPU     HASP PRINT/PUNCH SERVICE -- DEVICE SETUP VERIFICATION                                                 PAGE  135


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001F2E 4100 003E      0003E        6262          LA    R0,L'PPSETMSG       ASSUME PRINTER MSG LENGTH            P5180000

001F32 9180 D04A      0004A        6263          TM    PCEID,PCEPRSID      IS THIS A PRINTER                    P5182000
001F36 4710 CA86      01F3E        6264          BO    *+8                 BRANCH IF YES                        P5184000
001F3A 4100 0026      00026        6265          LA    R0,L'PPSETMSG-24    SET PUNCH MSG LENGTH                 P5186000
                                   6266         $WTO   BUFSTART,(R0),JOB=NO, ISSUE SETUP MESSAGE               CP5188000
                                                       ROUTE=$LOG+$UR,CLASS=$DOMACT,PRI=$ST                     P5190000
001F3E 4110 3058      00058        6267+         LA    R1,BUFSTART                                              DG012000
001F42 8900 0008      00008        6268+         SLL   R0,8                SET UP MESSAGE LENGTH                WT050000
001F46 0700                        6269+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT052000
001F48 5600 CA98      01F50        6270+         O     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT054000
001F4C 45E0 B098      00098        6271+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT056000
001F50 00050084                    6272+         DC    AL1(0,$LOG+$UR,0,$DOMACT+$ST)                            WT058000
001F54                             6273 DSVWAIT  DS    0H                                                       P5196000

001F54 9180 4014      00014        6274          TM    DCTFLAGS,DCTSTOP    TEST FOR $S DEVICE                   P5198000

001F58 4780 CAB0      01F68        6275          BZ    DSVSTART            BRANCH IF TRUE START                 P5200000
                                   6276         $WAIT  IO                  WAIT FOR A POST FROM COMM            P5202000

001F5C 9640 D049      00049        6277+         OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
001F60 45F0 B030      00030        6278+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
001F64 47F0 CA9C      01F54        6279          B     DSVWAIT             TEST FOR $S DEVICE                   P5204000
001F68                             6280 DSVSTART DS    0H                                                       P5206000
                                   6281         $DOM   CMB=(R1)            DELETE THE MESSAGE                   P5208000
001F68 45E0 B0A0      000A0        6282+         BAL   LINK,$DOM           DELETE THE MESSAGE                   DM008000
001F6C 9160 4014      00014        6283          TM    DCTFLAGS,DCTDELET+DCTRSTRT $C OR $E OR $I                P5210000
001F70 4780 CAC2      01F7A        6284          BZ    DSVLUCSB            BRANCH IF NO                         P5212000
001F74 D20B 4020 D080 00020 00080  6285          MVC   DCTFORMS(12),PMESSAGE REVERT TO PREVIOUS SETUP           P5214000
                                   6286 *                                                                       P5216000
                                   6287 *        LOAD UCSB IF SUPPORTED BY DEVICE                               P5218000
                                   6288 *                                                                       P5220000

001F7A                             6289 DSVLUCSB DS    0H                                                       P5222000

001F7A 94FE 402C      0002C        6290          NI    DCTPPSW,255-DCTPPSWO $T NOT ALLOWED                      P5224000
001F7E 9140 D04A      0004A        6291          TM    PCEID,PCEPUSID      TEST PROCESSOR ID                    P5226000

001F82 4710 CBCC      02084        6292          BO    DSVEXIT             BRANCH IF PUNCH                      P5228000
001F86 4120 D150      00150        6293          LA    PW,PCCWCHN          GET START OF CCW CHAIN               P5230000
001F8A 5020 3010      00010        6294          ST    PW,IOBSTART         SET START ADDRESS INTO IOB           P5232000
001F8E 9845 64D8      02990        6295          LM    PC1,PC2,PRCCWEJ     GET EJECT CCW                        P5234000
001F92 4570 CF9A      02452        6296          BAL   PL,PPPUT            ADD TO CHAIN                         P5236000
001F96 4570 6044      024FC        6297          BAL   PL,PPWRITE          STAGE WRITE                          P5238000
001F9A 4570 60B4      0256C        6298          BAL   PL,PPCHECK          CHECK WRITE                          P5240000
001F9E 5840 D058      00058        6299          L     PC1,PDCT            ADDRESS PRINT/PUNCH DCT              P5242000
001FA2 9102 D04A      0004A        6300          TM    PCEID,PCERJEID      TEST PROCESSOR ID                    P5244000
001FA6 4710 CBCC      02084        6301          BO    DSVEXIT             BRANCH IF REMOTE                     P5246000
001FAA 9180 D0C5      000C5        6302          TM    PDEVTYPE+1,X'80'    TEST UCSB OPTION FIELD               P5248000
001FAE 4780 CB6C      02024        6303          BZ    DSVLFCB             BRANCH IF NOT SUPPORTED              P5250000

001FB2 9108 402C      0002C        6304          TM    DCTPPSW,DCTPPSWT    UCSB LOAD REQUIRED                   P5252000
001FB6 4780 CB6C      02024        6305          BZ    DSVLFCB             BRANCH IF NO                         P5254000

001FBA 94F7 402C      0002C        6306          NI    DCTPPSW,255-DCTPPSWT RESET TRAIN LOAD BIT                P5256000

001FBE D503 4028 6570 00028 02A28  6307          CLC   DCTUCS,=C'0   '     IS UCS = 0 REQUESTED                 P5268000
001FC4 4780 CB6C      02024        6308          BE    DSVLFCB             BRANCH IF YES - SKIP UCS LOAD        P5270000
001FC8 D203 D08C 6574 0008C 02A2C  6309          MVC   PMESSAGE+12(4),=C'UCS8' BUFFER PREFIX FOR 1403 UCS       P5272000
001FCE D203 D090 4028 00090 00028  6310          MVC   PMESSAGE+16(4),DCTUCS USER UCS IMAGE ID                  P5274000
001FD4 9508 D0C7      000C7        6311          CLI   PDEVTYPE+3,X'08'    IS THIS A 1403                       P5276000
001FD8 4780 CB28      01FE0        6312          BE    *+8                 BRANCH IF YES                        P5278000
001FDC 92F9 D08F      0008F        6313          MVI   PMESSAGE+15,C'9'    BUFFER PREFIX FOR 3211 UCSB          P5280000
001FE0 4570 CBD2      0208A        6314          BAL   PL,DSVBLS           USE BUFFER LOAD SUBROUTINE           P5282000
001FE4 5840 D058      00058        6315          L     PC1,PDCT            ADDRESS PRINT/PUNCH DCT              P5284000
PRPU     HASP PRINT/PUNCH SERVICE -- DEVICE SETUP VERIFICATION                                                 PAGE  136


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001FE8 9500 D0CC      000CC        6316          CLI   PLSAVE2,X'00'       UCSB IMAGE LOADED?           OY04719 P5286000

001FEC 4780 CB6C      02024        6317          BE    DSVLFCB             BRANCH IF YES                        P5288000
001FF0 D22A 3058 63A6 00058 0285E  6318          MVC   BUFSTART(L'PBUFLMSG),PBUFLMSG BUFFER LOAD FAIL           P5290000
001FF6 D203 305C D10C 0005C 0010C  6319          MVC   BUFSTART+4(L'PPJJOBEB),PPJJOBEB SETUP JOB NUMBER         P5292000

001FFC D207 3061 4018 00061 00018  6320          MVC   BUFSTART+9(8),DCTDEVN SETUP DEVICE NAME                  P5294000
002002 D203 306A 6578 0006A 02A30  6321          MVC   BUFSTART+18(4),=C'UCSB' SETUP TYPE OF LOAD               P5296000
002008 D203 3075 4028 00075 00028  6322          MVC   BUFSTART+29(4),DCTUCS BAD IMAGE NAME                     P5298000
                                   6323         $WTO   BUFSTART,L'PBUFLMSG,JOB=NO, BUFFER LOAD FAIL            CP5300000
                                                       ROUTE=$LOG+$UR,CLASS=$ACTION,PRI=$ST                     P5302000
00200E 4110 3058      00058        6324+         LA    R1,BUFSTART                                              DG012000
002012 0700                        6325+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
002014 5800 CB64      0201C        6326+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
002018 45E0 B098      00098        6327+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
00201C 00052B54                    6328+         DC    AL1(0,$LOG+$UR,L'PBUFLMSG,$ACTION+$ST)                   WT044000
002020 9608 402C      0002C        6329          OI    DCTPPSW,DCTPPSWT    SET TRAIN LOAD REQUESTED BIT         P5306000
                                   6330 *                                                                       P5308000

                                   6331 *        LOAD FCB IF SUPPORTED BY DEVICE                                P5310000
                                   6332 *                                                                       P5312000
002024                             6333 DSVLFCB  DS    0H                                                       P5314000
002024 9508 D0C7      000C7        6334          CLI   PDEVTYPE+3,X'08'    TEST DEVICE TYPE                     P5316000

002028 4780 CBCC      02084        6335          BE    DSVEXIT             BRANCH IF 1403                       P5318000
00202C 9180 402C      0002C        6336          TM    DCTPPSW,DCTPPSWC    FCB LOAD REQUIRED                    P5320000
002030 4780 CBCC      02084        6337          BZ    DSVEXIT             BRANCH IF NO                         P5322000
002034 947F 402C      0002C        6338          NI    DCTPPSW,255-DCTPPSWC RESET CARRIAGE LOAD BIT             P5324000
002038 D203 D08C 657C 0008C 02A34  6339          MVC   PMESSAGE+12(4),=C'FCB9' BUFFER PREFIX FOR 3211 FCB       P5326000
00203E D203 D090 4024 00090 00024  6340          MVC   PMESSAGE+16(4),DCTFCB USER FCB IMAGE ID                  P5328000

002044 4570 CBD2      0208A        6341          BAL   PL,DSVBLS           USE BUFFER LOAD SUBROUTINE           P5330000
002048 5840 D058      00058        6342          L     PC1,PDCT            ADDRESS PRINT/PUNCH DCT              P5332000
00204C 9500 D0CC      000CC        6343          CLI   PLSAVE2,X'00'       FCB IMAGE LOADED?            OY04719 P5334000
002050 4780 CBCC      02084        6344          BE    DSVEXIT             BRANCH IF YES                        P5336000
002054 D22A 3058 63A6 00058 0285E  6345          MVC   BUFSTART(L'PBUFLMSG),PBUFLMSG BUFFER LOAD FAIL           P5338000
00205A D203 305C D10C 0005C 0010C  6346          MVC   BUFSTART+4(L'PPJJOBEB),PPJJOBEB SETUP JOB NUMBER         P5340000
002060 D207 3061 4018 00061 00018  6347          MVC   BUFSTART+9(8),DCTDEVN SETUP DEVICE NAME                  P5342000
002066 D203 3075 4024 00075 00024  6348          MVC   BUFSTART+29(4),DCTFCB BAD IMAGE NAME                     P5344000

                                   6349         $WTO   BUFSTART,L'PBUFLMSG,JOB=NO, BUFFER LOAD FAIL            CP5346000
                                                       ROUTE=$LOG+$UR,CLASS=$ACTION,PRI=$ST                     P5348000

00206C 4110 3058      00058        6350+         LA    R1,BUFSTART                                              DG012000
002070                             6351+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
002070 5800 CBC0      02078        6352+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
002074 45E0 B098      00098        6353+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
002078 00052B54                    6354+         DC    AL1(0,$LOG+$UR,L'PBUFLMSG,$ACTION+$ST)                   WT044000
00207C 9681 402C      0002C        6355          OI    DCTPPSW,DCTPPSWC+DCTPPSWO SET LOAD AND MSG REQD          P5352000
002080 47F0 CA42      01EFA        6356          B     DSVMSG              GO PRINT SETUP MESSAGE               P5354000
002084                             6357 DSVEXIT  DS    0H                                                       P5356000

002084 5870 D000      00000        6358          L     PL,PCESAVEA         RESTORE RETURN ADDRESS               P5358000
002088 07F7                        6359          BR    PL                  RETURN TO CALLER                     P5360000
                                   6360 *                                                                       P5362000
                                   6361 *        BUFFER LOAD SUBROUTINE                                         P5364000
                                   6362 *                                                                       P5366000

00208A                             6363 DSVBLS   DS    0H                                                       P5368000
00208A 5070 D0CC      000CC        6364          ST    PL,PLSAVE2          SAVE RETURN ADDRESS          OY04719 P5370000
00208E                             6365 PUCSRCH  DS    0H                                                       P5372000

00208E 4100 001F      0001F        6366          LA    R0,(PUCSTABE-PUCSTAB)/(PUCSTAB1-PUCSTAB) SIZE            P5374000
002092 4120 659A      02A52        6367          LA    PW,PUCSTAB          ADDRESS UCSB/FCB TABLE               P5376000

PRPU     HASP PRINT/PUNCH SERVICE -- DEVICE SETUP VERIFICATION                                                 PAGE  137


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002096 D507 2002 D08C 00002 0008C  6369 DSVCLC   CLC   PUCSTYPE-PUCSTAB(8,PW),PMESSAGE+12 IMAGE = REQUEST       P5380000
00209C 4780 CBFA      020B2        6370          BE    PUCSFND             BRANCH IF ENTRY MATCHES              P5382000

0020A0 4120 200A      0000A        6371          LA    PW,PUCSTAB1-PUCSTAB(,PW) NO, STEP TO NEXT ENTRY          P5384000
0020A4 4600 CBDE      02096        6372          BCT   R0,DSVCLC           TRY AGAIN                            P5386000
0020A8 5870 D0CC      000CC        6373          L     PL,PLSAVE2          GET RETURN ADDRESS           OY04719 P5388000
0020AC 92FF D0CC      000CC        6374          MVI   PLSAVE2,X'FF'       SET IMAGE NOT FOUND          OY04719 P5390000
0020B0 07F7                        6375          BR    PL                  RETURN TO CALLER                     P5392000



0020B2                             6377 PUCSFND  DS    0H                                                       P5396000
                                   6378         $LOAD  (PW)                LOAD UCSB/FCB IMAGE                  P5398000
0020B2 48E0 2000      00000        6379+         LH    LINK,0(,PW)            LOAD OCON INTO LINK               OL022000

0020B6 45F0 B094      00094        6380+         BAL   R15,$OLOAD          LINK TO OVERLAY SUPERVISOR           LO008000
0020BA D28B 3058 8060 00058 00060  6381          MVC   BUFSTART(140),OACEPROG-BUFDSECT(BASE3)                   P5400000
0020C0 D503 D08C 657C 0008C 02A34  6382          CLC   PMESSAGE+12(4),=C'FCB9' IS THIS A 3211 FCB LOAD          P5402000
0020C6 4770 CC2E      020E6        6383          BNE   DSVBLSI             BRANCH IF NO                         P5404000
0020CA 9580 D130      00130        6384          CLI   PRINDEX,X'80'       SPECIFIC INDEX GIVEN                 P5406000
0020CE 4780 CC2E      020E6        6385          BE    DSVBLSI             BRANCH IF NO - USE FCB IMAGE         P5408000

0020D2 D500 D130 3070 00130 00070  6386          CLC   PRINDEX,BUFSTART+24 IS INDEX BEING CHANGED               P5410000
0020D8 4780 CC28      020E0        6387          BE    *+8                 BRANCH IF NO - AVOID RELOAD          P5412000
0020DC 9680 402C      0002C        6388          OI    DCTPPSW,DCTPPSWC    SET LOAD CARRIAGE BIT                P5414000
0020E0 D200 3070 D130 00070 00130  6389          MVC   BUFSTART+24(1),PRINDEX SET 3211 INDEX VALUE              P5416000
0020E6                             6390 DSVBLSI  DS    0H                                                       P5418000

0020E6 D28B 30E4 80EC 000E4 000EC  6391          MVC   BUFSTART+140(140),OACEPROG+140-BUFDSECT(BASE3)           P5420000
0020EC 9508 D0C7      000C7        6392          CLI   PDEVTYPE+3,X'08'    IS THIS A 1403                       P5422000
0020F0 4780 CC42      020FA        6393          BE    *+10                BRANCH IF YES                        P5424000
0020F4 D2FF 3170 8178 00170 00178  6394          MVC   BUFSTART+280(256),OACEPROG+280-BUFDSECT(BASE3)           P5426000
                                   6395         $DELETE                    DELETE UCSB/FCB IMAGE                P5428000

0020FA 45E0 B084      00084        6396+         BAL   LINK,$ODEL          LINK TO OVERLAY SUPERVISOR           DL006000


0020FE 4120 D150      00150        6398          LA    PW,PCCWCHN          GET START OF CCW CHAIN               P5432000
002102 5020 3010      00010        6399          ST    PW,IOBSTART         SET START ADDRESS INTO IOB           P5434000
002106 9845 3058      00058        6400          LM    PC1,PC2,BUFSTART    LOAD 1ST CCW ADDRESS                 P5436000

00210A 1E43                        6401          ALR   PC1,PBUF            ADJUST ADDRESS                       P5438000
00210C 4570 CFD6      0248E        6402          BAL   PL,PPUTUCS          ADD CCW TO CHAIN                     P5440000
002110 9845 3060      00060        6403          LM    PC1,PC2,BUFSTART+8  LOAD 2ND CCW                         P5442000
002114 1E43                        6404          ALR   PC1,PBUF            ADJUST ADDRESS                       P5444000
002116 4570 CFD6      0248E        6405          BAL   PL,PPUTUCS          ADD CCW TO CHAIN                     P5446000

00211A 9845 3068      00068        6406          LM    PC1,PC2,BUFSTART+16 LOAD 3RD CCW                         P5448000
00211E 1E43                        6407          ALR   PC1,PBUF            ADJUST ADDRESS                       P5450000
002120 4570 CFD6      0248E        6408          BAL   PL,PPUTUCS          ADD CCW TO CHAIN                     P5452000
002124 4570 6044      024FC        6409          BAL   PL,PPWRITE          INITIATE WRITE                       P5454000
002128 4570 60B4      0256C        6410          BAL   PL,PPCHECK           AND CHECK                           P5456000
00212C 5870 D0CC      000CC        6411          L     PL,PLSAVE2          GET RETURN ADDRESS           OY04719 P5458000

002130 9200 D0CC      000CC        6412          MVI   PLSAVE2,X'00'       SET IMAGE FOUND INDICATION   OY04719 P5460000
002134 07F7                        6413          BR    PL                  RETURN TO CALLER                     P5462000
                                   6414          DROP  PC1                 SUSPEND DCT ADDRESSABILITY           P5464000
PRPU     HASP PRINT/PUNCH SERVICE -- SEPARATOR PAGE ROUTINE                                                    PAGE  138



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002136                             6416 PRINTID  DS    0H                                                       P5468000
002136 5070 D000      00000        6417          ST    PL,PCESAVEA         SAVE RETURN REGISTER                 P5470000
00213A 4120 D150      00150        6418          LA    PW,PCCWCHN          GET START OF CCW CHAIN               P5472000
00213E 5020 3010      00010        6419          ST    PW,IOBSTART         STORE INTO IOB                       P5474000



002142 5010 D090      00090        6421          ST    R1,PMESSAGE+16      SAVE ADDRESS OF ID TYPE              P5478000
                                   6422          AIF   (&NUMLNES EQ 0).PNRJE14                                  P5480000
                                   6423 .PNRJE14 ANOP                                                           P5488000
002146 4170 003D      0003D        6424          LA    PL,$PRIDCT          LOCAL SEPARATOR LINE COUNT           P5490000
00214A                             6425 BLKRMT   DS    0H                                                       P5492000
00214A 1277                        6426          LTR   PL,PL               IS LINE COUNT ZERO                   P5494000

00214C 4780 CE16      022CE        6427          BZ    PRNOID              BRANCH IF YES                        P5496000
                                   6428 *        CLM   PL,1,=AL1(30)       IS AT LEAST 30 LINES REQUESTED  RFIT P5498000
002150 5070 6520      029D8        6429          ST    PL,DARTSCR2                                         RFIT P5498005

002154 D500 6523 6595 029DB 02A4D  6430          CLC   DARTSCR2+3(1),=AL1(30)                              RFIT P5498010
00215A 4740 CCF4      021AC        6431          BL    BLKSKIP             BRANCH IF NO                         P5500000
                                   6432         $LOAD  HASPBLOK            LOAD BLOCK LETTER TABLES             P5502000
000000                             6433+HA$QBLOK DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
00215E                             6434+HASPPRPU CSECT                                                          OL014000

00215E 41E00000                    6435+         DC    Y(X'4100'+LINK*16),QL2(HA$QBLOK) LOAD OCON INTO LINK     OL016000
002162 45F0 B094      00094        6436+         BAL   R15,$OLOAD          LINK TO OVERLAY SUPERVISOR           LO008000
002166 D207 D080 D114 00080 00114  6437          MVC   PMESSAGE(8),PPJJNAME JOBNAME TO MESSAGE                  P5504000
00216C 4570 CE24      022DC        6438          BAL   PL,BLKPRT           WRITE 12 LINES OF JOBNAME            P5506000
002170 9845 6500      029B8        6439          LM    PC1,PC2,PRCCWSP     LOAD SPACE CCW                       P5508000
002174 4570 CF9A      02452        6440          BAL   PL,PPPUT            ADD CCW TO CHAIN                     P5510000
002178 D707 D080 D080 00080 00080  6441          XC    PMESSAGE(8),PMESSAGE CLEAR MESSAGE AREA                  P5512000
00217E D203 D080 D10C 00080 0010C  6442          MVC   PMESSAGE(4),PPJJOBEB JOB NUMBER TO MESSAGE               P5514000

002184 D200 D087 D0D8 00087 000D8  6443          MVC   PMESSAGE+7(1),PWKJOE GET SYSOUT CLASS                    P5516000
00218A 4570 CE24      022DC        6444          BAL   PL,BLKPRT           WRITE 12 LINES OF JOB#, CLASS        P5518000

                                   6445         $DELETE                    DELETE BLOCK LETTER TABLES           P5520000
00218E 45E0 B084      00084        6446+         BAL   LINK,$ODEL          LINK TO OVERLAY SUPERVISOR           DL006000
002192 9845 6500      029B8        6447          LM    PC1,PC2,PRCCWSP     LOAD SPACE CCW                       P5522000
                                   6448 *        ICM   PC1,8,=X'13'        SET CCW TO DOUBLE SPACE         RFIT P5524000
002196 8940 0008      00008        6449          SLL   PC1,8                                               RFIT P5524005

00219A 8840 0008      00008        6450          SRL   PC1,8                                               RFIT P5524010
00219E 4370 6596      02A4E        6451          IC    PL,=X'13'                                           RFIT P5524015
0021A2 8970 0018      00018        6452          SLL   PL,24                                               RFIT P5524020
0021A6 1647                        6453          OR    PC1,PL                                              RFIT P5524025
0021A8 4570 CF9A      02452        6454          BAL   PL,PPPUT            ADD CCW TO CHAIN                     P5526000
0021AC                             6455 BLKSKIP  DS    0H                                                       P5528000
0021AC 5810 D090      00090        6456          L     R1,PMESSAGE+16      ID PAGE TYPE                         P5530000
0021B0 D209 3058 63E0 00058 02898  6457          MVC   BUFSTART(10),PRHASPID    PP1-10 'HASP-II***'             P5532000
0021B6 D200 3060 D0D8 00060 000D8  6458          MVC   BUFSTART+8(1),PWKJOE     PP9    SYSOUT CLASS             P5534000

0021BC 5870 D058      00058        6459          L     PL,PDCT             ADDRESS PRINT DCT                    P5536000

0021C0 D207 3062 7018 00062 00018  6460          MVC   BUFSTART+10(8),DCTDEVN-DCTDSECT(PL) P11 DEVN             P5538000
0021C6 924B 306A      0006A        6461          MVI   BUFSTART+18,C'.'    PP19 PERIOD (.)                      P5540000
0021CA D25F 306B 306A 0006B 0006A  6462          MVC   BUFSTART+19(96),BUFSTART+18 P20-115 PERIOD (.)           P5542000
0021D0 D207 30CA 3062 000CA 00062  6463          MVC   BUFSTART+114(8),BUFSTART+10 P115-122 DEVN                P5544000
0021D6 D202 30D2 305F 000D2 0005F  6464          MVC   BUFSTART+122(3),BUFSTART+7 P123-125 * CLASS*             P5546000

0021DC D206 30D5 3058 000D5 00058  6465          MVC   BUFSTART+125(7),BUFSTART P126-132 HASP-II                P5548000
0021E2 D204 306E 1000 0006E 00000  6466          MVC   BUFSTART+22(5),0(R1)    PP23-27 START, END, CONT         P5550000
0021E8 D204 3073 63F9 00073 028B1  6467          MVC   BUFSTART+27(5),PRJOB     PP28-32 'JOB'                   P5552000
0021EE D203 3078 D10C 00078 0010C  6468          MVC   BUFSTART+32(4),PPJJOBEB  PP33-36 JOB NUMBER              P5554000
PRPU     HASP PRINT/PUNCH SERVICE -- SEPARATOR PAGE ROUTINE                                                    PAGE  139


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6470          TIME  DEC                 GET TIME AND DATE                    P5558000
0021F4 4110 0002      00002        6471+         LA    1,2(0,0)                          LOAD 1 TO SPECIFY UNIT 00200000
0021F8 0A0B                        6472+         SVC   11                                ISSUE TIME SVC         00280000
0021FA D214 3080 6403 00080 028BB  6473          MVC   BUFSTART+40(21),PTIMASK SET UP EDIT MASK                 P5560000

002200 5500 63D8      02890        6474          CL    R0,PNOON            TEST TIME                            P5562000

002204 4740 CD58      02210        6475          BL    PMORNING            BRANCH IF AM                         P5564000
002208 92D7 3089      00089        6476          MVI   BUFSTART+49,C'P'    NO, CHANGE TO 'PM'                   P5566000
00220C 5F00 63D8      02890        6477          SL    R0,PNOON            SUBTRACT TWELVE HOURS                P5568000
002210 5000 6518      029D0        6478 PMORNING ST    R0,PCCWORK          STORE ADJUSTED TIME                  P5570000

002214 9500 6518      029D0        6479          CLI   PCCWORK,X'00'       TEST FOR ZERO HOURS                  P5572000
002218 4770 CD68      02220        6480          BNE   *+8                 BRANCH IF NOT                        P5574000
00221C 9212 6518      029D0        6481          MVI   PCCWORK,X'12'       CONVERT ZERO TO TWELVE               P5576000
002220 9108 6518      029D0        6482          TM    PCCWORK,X'08'       TEST FOR ADJUSTMENT ERROR            P5578000
002224 4780 CD74      0222C        6483          BZ    *+8                 BRANCH IF NO ERROR                   P5580000
002228 9409 6518      029D0        6484          NI    PCCWORK,X'09'       CORRECT FOR BINARY SUBTRACT ERROR    P5582000
00222C DE08 307F 6518 0007F 029D0  6485          ED    BUFSTART+39(9),PCCWORK   PP41-48 TIME                    P5584000


002232 5010 651C      029D4        6487          ST    R1,PCCWORK+4        STORE DATE                           P5588000
002236 921C 641C      028D4        6488          MVI   PYEARTAB+4,28       ASSUME NON-LEAP YEAR                 P5590000
00223A 9101 651D      029D5        6489          TM    PCCWORK+5,X'01'     TEST                                 P5592000

00223E 4710 CD96      0224E        6490          BO    *+16                 FOR                                 P5594000
002242 9112 651D      029D5        6491          TM    PCCWORK+5,X'12'       LEAP                               P5596000
002246 4740 CD96      0224E        6492          BM    *+8                    YEAR                              P5598000
00224A 921D 641C      028D4        6493          MVI   PYEARTAB+4,29       SET UP TABLE FOR LEAP YEAR           P5600000

00224E DE02 3092 651D 00092 029D5  6494          ED    BUFSTART+58(3),PCCWORK+5 PP60-61 YEAR                    P5602000
002254 D705 6518 6518 029D0 029D0  6495          XC    PCCWORK(6),PCCWORK  CLEAR ALL BUT JULIAN DATE            P5604000
00225A 1B00                        6496          SR    R0,R0               CLEAR                                P5606000
00225C 4F10 6518      029D0        6497          CVB   R1,PCCWORK          CONVERT JULIAN DATE TO BINARY        P5608000
002260 4120 6414      028CC        6498          LA    PW,PYEARTAB-4       PREPARE TO SCAN CONVERSION TABLE     P5610000
002264 1B10                        6499 PRIDATE  SR    R1,R0               CONVERT                              P5612000
002266 4120 2004      00004        6500          LA    PW,4(,PW)            FROM JULIAN                         P5614000
00226A 4300 2000      00000        6501          IC    R0,0(,PW)             DATE TO                            P5616000
00226E 1901                        6502          CR    R0,R1                  MONTH                             P5618000
002270 4740 CDAC      02264        6503          BL    PRIDATE                 AND DAY                          P5620000
002274 4E10 6518      029D0        6504          CVD   R1,PCCWORK          CONVERT TO DECIMAL                   P5622000
002278 F111 6518 651E 029D0 029D6  6505          MVO   PCCWORK(2),PCCWORK+6(2)  SHIFT FOR EDIT                  P5624000

00227E DE02 308B 6518 0008B 029D0  6506          ED    BUFSTART+51(3),PCCWORK   PP53-54 DAY                     P5626000
002284 D202 308F 2001 0008F 00001  6507          MVC   BUFSTART+55(3),1(PW)     PP56-58 MONTH                   P5628000
00228A D204 3099 63FE 00099 028B6  6508          MVC   BUFSTART+65(5),PRROOM    PP66-70 'ROOM '                 P5630000

002290 D203 309E D110 0009E 00110  6509          MVC   BUFSTART+70(4),PPJROOMN PP71-74 ROOM NUMBER              P5632000
002296 D207 30A6 D114 000A6 00114  6510          MVC   BUFSTART+78(8),PPJJNAME  PP79-86 JOBNAME                 P5634000
00229C D213 30B2 D11C 000B2 0011C  6511          MVC   BUFSTART+90(20),PPJPNAME  PP91-110 PROGRAMMER NAME       P5636000
0022A2                             6512 PRIDOUT  DS    0H                  END OF SETUP                         P5638000


                                   6514          AIF   (NOT &PRTRANS).PNTRAN2                                   P5642000
                                   6515 .PNTRAN2 AIF   (&NUMLNES EQ 0).PNRJE08                                  P5652000
                                   6516 .PNRJE08 ANOP                      *                                    P5660000


0022A2 4180 003D      0003D        6518          LA    PLC,$PRIDCT         LOCAL  SEPARATOR LINE COUNT          P5664000
0022A6                             6519 PRIEJECT DS    0H                                                       P5666000
                                   6520 *        CLM   PLC,1,=AL1(30)      WAS BLOCK LETTER SEGMENT USED   RFIT P5668000

0022A6 5080 6520      029D8        6521          ST    PLC,DARTSCR2                                        RFIT P5668005
PRPU     HASP PRINT/PUNCH SERVICE -- SEPARATOR PAGE ROUTINE                                                    PAGE  140


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


0022AA D500 6523 6595 029DB 02A4D  6522          CLC   DARTSCR2+3(1),=AL1(30)                              RFIT P5668010
0022B0 4740 CE00      022B8        6523          BL    *+8                 BRANCH IF NO                         P5670000
0022B4 4B80 658A      02A42        6524          SH    PLC,=H'29'          ACCOUNT FOR BLOCK LETTER LINES       P5672000


0022B8 9845 64E0      02998        6526          LM    PC1,PC2,PRCCWID     LOAD PRINT CCW                       P5676000
0022BC 1E4A                        6527          ALR   PC1,JCT             SET UP FOR CURRENT JCT               P5678000
0022BE 4570 CF9A      02452        6528          BAL   PL,PPPUT            ADD CCW TO CHAIN                     P5680000
0022C2 4680 CF9A      02452        6529          BCT   PLC,PPPUT           GENERATE ID PAGE                     P5682000
0022C6 9845 64D8      02990        6530          LM    PC1,PC2,PRCCWEJ     LOAD EJECT CCW                       P5684000
0022CA 4570 CF9A      02452        6531          BAL   PL,PPPUT            ADD CCW TO CHAIN                     P5686000
0022CE 4570 6044      024FC        6532 PRNOID   BAL   PL,PPWRITE          INITIATE WRITE                       P5688000
0022D2 4570 60B4      0256C        6533          BAL   PL,PPCHECK           AND CHECK                           P5690000




0022D6 5870 D000      00000        6535          L     PL,PCESAVEA         RESTORE LINK REGISTER                P5694000
0022DA 07F7                        6536          BR    PL                   AND EXIT                            P5696000

PRPU     HASP PRINT/PUNCH SERVICE -- BLOCK LETTER ROUTINE                                                      PAGE  141


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0022DC                             6538 BLKPRT   DS    0H                                                       P5700000
0022DC 5070 D088      00088        6539          ST    PL,PMESSAGE+8       SAVE RETURN REGISTER                 P5702000
0022E0 D607 D080 6530 00080 029E8  6540          OC    PMESSAGE(8),=8X'C0' SHIFT ALL TO 4TH QUADRANT            P5704000
0022E6 DC07 D080 8348 00080 00348  6541          TR    PMESSAGE(8),OACEPROG-BUFDSECT+BLOCKTR-BLOCKA-192(BASE3)  P5706000
0022EC 1B44                        6542          SR    R4,R4               LINE 0 OF 12                         P5708000
0022EE                             6543 BLKBLD   DS    0H                                                       P5710000
0022EE 4040 D08C      0008C        6544          STH   R4,PMESSAGE+12      SAVE FOR LATER                       P5712000
0022F2 9240 3058      00058        6545          MVI   BUFSTART,C' '       INITIAL BLANK                        P5714000
0022F6 D282 3059 3058 00059 00058  6546          MVC   BUFSTART+1(131),BUFSTART BLANK BALANCE OF LINE           P5716000
0022FC 1B44                        6547          SR    R4,R4               SET FOR LETER INDEX OF 0             P5718000

0022FE 4150 3062      00062        6548          LA    R5,BUFSTART+10      1ST BLOCK LETTER IN PP11             P5720000
002302                             6549 BLKLUP   DS    0H                                                       P5722000

002302 4174 D080      00080        6550          LA    R7,PMESSAGE(R4)     CURRENT LETTER INDEX                 P5724000

002306 1BFF                        6551          SR    R15,R15             CLEAR REGISTER                       P5726000
                                   6552 *        ICM   R15,1,0(R7)         GET TRANSLATED LETTER INDEX     RFIT P5728000
002308 43F7 0000      00000        6553          IC    R15,0(R7)                                           RFIT P5728005
00230C 12FF                        6554          LTR   R15,R15                                             RFIT P5728010
00230E 4780 CE80      02338        6555          BZ    BLKSTOR             BRANCH IF INDEX ZERO                 P5730000
002312 06F0                        6556          BCTR  R15,0               DECREMENT BY ONE                     P5732000
002314 4CF0 658C      02A44        6557          MH    R15,=H'24'          CONVERT TO DISPLACEMENT              P5734000
002318 4AF0 D08C      0008C        6558          AH    R15,PMESSAGE+12     SELECT FOR LINE WITHIN LETTER        P5736000
00231C 41FF 8060      00060        6559          LA    R15,OACEPROG-BUFDSECT(R15,BASE3) LETTER MASK ADDR        P5738000
                                   6560 *        ICM   R15,12,0(R15)       LETTER MASK BITS                RFIT P5740000
002320 D703 6520 6520 029D8 029D8  6561          XC    DARTSCR2,DARTSCR2                                   RFIT P5740005
002326 D201 6520 F000 029D8 00000  6562          MVC   DARTSCR2(2),0(R15)                                  RFIT P5740010

00232C 89F0 0010      00010        6563          SLL   R15,16                                              RFIT P5740015
002330 88F0 0010      00010        6564          SRL   R15,16                                              RFIT P5740020
002334 56F0 6520      029D8        6565          O     R15,DARTSCR2                                        RFIT P5740025

002338                             6566 BLKSTOR  DS    0H                                                       P5742000
002338 4170 000C      0000C        6567          LA    R7,12               BLOCK WIDTH OF 12                    P5744000
00233C                             6568 BLKLOOP  DS    0H                                                       P5746000
00233C 1EFF                        6569          ALR   R15,R15             SHIFT LEFT AND TEST HI BIT           P5748000
00233E 47C0 CE8E      02346        6570          BC    12,*+8              BRANCH IF OFF                        P5750000
002342 92E7 5000      00000        6571          MVI   0(R5),C'X'          OVERSTORE BLANK WITH X               P5752000
002346 4150 5001      00001        6572          LA    R5,1(,R5)           INCREMENT COL NUMBER                 P5754000
00234A 4670 CE84      0233C        6573          BCT   R7,BLKLOOP          BRANCH TO FILL 12 COL'S              P5756000
00234E 4150 5002      00002        6574          LA    R5,2(,R5)           2 BLANKS BETWEEN BLOCKS              P5758000
002352 4140 4001      00001        6575          LA    R4,1(,R4)           STEP TO NEXT LETTER INDEX            P5760000
002356 4940 658E      02A46        6576          CH    R4,=H'8'            HAVE WE DONE 8 BLOCKS                P5762000
00235A 4740 CE4A      02302        6577          BL    BLKLUP              BRANCH IF NO                         P5764000

00235E 9845 64E0      02998        6578          LM    PC1,PC2,PRCCWID     GET PRINT CCW                        P5766000
002362 1E4A                        6579          ALR   PC1,JCT             RELOCATE FOR THIS JCT                P5768000
002364 4570 CF9A      02452        6580          BAL   PL,PPPUT            ADD CCW TO CHAIN                     P5770000
002368 9845 6510      029C8        6581          LM    PC1,PC2,PCCWNOP     GET NOP CCW                          P5772000

00236C 4570 CF9A      02452        6582          BAL   PL,PPPUT            ADD NOP TO CHAIN                     P5774000
002370 4570 6044      024FC        6583          BAL   PL,PPWRITE          FORCE WRITE                          P5776000
002374 4570 60B4      0256C        6584          BAL   PL,PPCHECK          CHECK WRITE                          P5778000
002378 5020 3010      00010        6585          ST    PW,IOBSTART         RESET SIO COMP CODE                  P5780000
00237C 4840 D08C      0008C        6586          LH    R4,PMESSAGE+12      GET LINE COUNTER                     P5782000
002380 4140 4002      00002        6587          LA    R4,2(,R4)           STEP TO NEXT LINE                    P5784000

002384 4940 658C      02A44        6588          CH    R4,=H'24'           LAST LINE FINISHED                   P5786000
002388 4740 CE36      022EE        6589          BL    BLKBLD              BRANCH IF NO                         P5788000
00238C 5870 D088      00088        6590          L     PL,PMESSAGE+8       LOAD RETURN REGISTER                 P5790000
002390 07F7                        6591          BR    PL                  RETURN TO CALLER                     P5792000
PRPU     HASP PRINT/PUNCH SERVICE -- COMMENT SUBROUTINE                                                        PAGE  142


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002392 5070 D000      00000        6593 PRCOMENT ST    PL,PCESAVEA         SAVE LINK REGISTER                   P5796000
002396 4120 D150      00150        6594          LA    PW,PCCWCHN          GET START OF CCW CHAIN               P5798000

00239A 5020 3010      00010        6595          ST    PW,IOBSTART         SET START ADDRESS IN IOB             P5800000
00239E 9845 6500      029B8        6596          LM    PC1,PC2,PRCCWSP     LOAD SPACE CCW                       P5802000

0023A2 4180 8004      00004        6597          LA    PLC,4(,PLC)         INCREMENT LINE COUNT                 P5804000
0023A6 5580 D0D4      000D4        6598          CL    PLC,PRLINECT        COMPARE WITH MAXIMUM                 P5806000
0023AA 47D0 CEFE      023B6        6599          BNH   PRCOMSP             BRANCH IF NOE HIGH                   P5808000
0023AE 4180 0001      00001        6600          LA    PLC,1               RESET LINE COUNTER                   P5810000
0023B2 9845 64D8      02990        6601          LM    PC1,PC2,PRCCWEJ     LOAD EJECT CCW                       P5812000
0023B6                             6602 PRCOMSP  DS    0H                                                       P5814000
0023B6 4570 CF9A      02452        6603          BAL   PL,PPPUT            ADD CCW TO CHAIN                     P5816000
0023BA 9845 6508      029C0        6604          LM    PC1,PC2,PRCCWCOM    LOAD PRINT CCW                       P5818000

0023BE 1E4D                        6605          ALR   PC1,SAVE            ADJUST CCW FOR PCE ADDRESS           P5820000
0023C0 4570 CF9A      02452        6606          BAL   PL,PPPUT            ADD CCW TO CHAIN                     P5822000
0023C4 4570 6044      024FC        6607          BAL   PL,PPWRITE          INITIATE WRITE                       P5824000
0023C8 4570 60B4      0256C        6608          BAL   PL,PPCHECK           AND CHECK                           P5826000




0023CC 5870 D000      00000        6610          L     PL,PCESAVEA         RESTORE LINK REGISTER                P5830000
0023D0 07F7                        6611          BR    PL                  AND RETURN                           P5832000
PRPU     HASP PRINT/PUNCH SERVICE -- READ SUBROUTINES                                                          PAGE  143



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6613 *PRDNXTB ICM   R15,15,HDBNXTRK     IS CHAIN TRACK ZERO             RFIT P5836000
0023D2 58F0 3058      00058        6614 PRDNXTB  L     R15,HDBNXTRK                                        RFIT P5836005
0023D6 12FF                        6615          LTR   R15,R15                                             RFIT P5836010
0023D8 4770 CF28      023E0        6616          BNZ   PRDBUF              BRANCH IF NOT LAST BLOCK             P5838000
0023DC 58F0 D0C0      000C0        6617          L     R15,PCEIOTTR        GET IOT TRACK ADDRESS                P5840000
                                   6618          DROP  PBUF                KILL BUFFER ADDRESSABILITY           P5842000



0023E0 5810 D074      00074        6620 PRDBUF   L     R1,PBUFSAVE         R1 = BUFFER ADDRESS                  P5846000
                            00000  6621          USING BUFDSECT,R1         ESTABLISH BUFFER ADDRESSABILITY      P5848000
0023E4 4100 1038      00038        6622          LA    R0,IOBCCW1          RESET IOBSTART                       P5850000
0023E8 5000 1010      00010        6623          ST    R0,IOBSTART         FOR READ                             P5852000

                                   6624          DROP  R1                  KILL BUFFER ADDRESSABILITY           P5854000
0023EC 5810 D05C      0005C        6625          L     R1,PDADCT           GET ADDRESS OF DIRECT-ACCESS DCT     P5856000
                            00000  6626          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         P5858000
0023F0 D203 1004 D074 00004 00074  6627          MVC   DCTBUFAD,PBUFSAVE   MOVE BUFFER ADDRESS INTO DCT         P5860000

0023F6 50F0 1008      00008        6628          ST    R15,DCTSEEK         STORE TRACK ADDRESS IN DCT           P5862000
                                   6629          DROP  R1                  KILL DCT ADDRESSABILITY              P5864000
                                   6630         $EXCP  (R1)                INITIATE READ                        P5866000
0023FA 45E0 B06C      0006C        6631+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
0023FE 07F7                        6632          BR    PL                  RETURN                               P5868000




                            00000  6634          USING BUFDSECT,PBUF       ESTABLISH BUFFER ADDRESSABILITY      P5872000
002400 4170 7000      00000        6635 PRDCHKOL LA    PL,0(,PL)           CLEAR HIGH ORDER BYTE        OY07290 P5873000
002404 1F78                        6636          SLR   PL,BASE3            COMPUTE RELATIVE RETURN      OY07290 P5874000
002406                             6637 PRDCHK   DS    0H                                               OY07290 P5875000
002406 1813                        6638          LR    R1,PBUF             SWITCH PRIMARY AND SECONDARY BUFFERS P5876000

002408 5830 D074      00074        6639          L     PBUF,PBUFSAVE       SET PBUF TO NEXT INPUT BUFFER        P5878000
00240C 5010 D074      00074        6640          ST    R1,PBUFSAVE         SAVE SECOND BUFFER                   P5880000


002410 917F 3028      00028        6642 PRDRECHK TM    BUFECBCC,X'7F'      TEST FOR I/O COMPLETE                P5884000
002414 4710 CF7A      02432        6643          BO    PRDCOMP             BRANCH IF READ SUCCESSFUL            P5886000

002418 4770 CF70      02428        6644          BNZ   PRDERROR            BRANCH IF ERROR DETECTED             P5888000
                                   6645         $WAIT  IO                  WAIT FOR I/O POST                    P5890000
00241C 9640 D049      00049        6646+         OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
002420 45F0 B030      00030        6647+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
002424 47F0 CF58      02410        6648          B     PRDRECHK            GO BACK AND TRY AGAIN                P5892000

002428 9604 D058      00058        6649 PRDERROR OI    PPFLAG,PPRDERR      READ ERROR, SET FLAG                 P5894000
                                   6650         $IOERROR (PBUF)            *                                    P5896000
00242C 1813                        6651+         LR    R1,PBUF                                                  DG018000
00242E 45E0 B0B4      000B4        6652+         BAL   LINK,$IOERROR       LINK TO CONTROL SERVICE PROGRAM      BA008000
002432                             6653 PRDCOMP  DS    0H                                               OY07290 P5898000

002432 957F 3028      00028        6654          CLI   BUFECBCC,X'7F'      TEST COMPLETION CODE                 P5900000
002436 4770 CF8A      02442        6655          BNE   PRDERRXC            BRANCH IF READ ERROR                 P5902000
00243A 9140 D058      00058        6656          TM    PPFLAG,PPDELSW      TEST DELETE FLAG                     P5904000
00243E 4780 603A      024F2        6657          BZ    PRDCHKRT            RETURN IF NO DELETE          OY07290 P5906000
002442 D703 3058 3058 00058 00058  6658 PRDERRXC XC    HDBNXTRK,HDBNXTRK   ZERO CHAIN TRACK                     P5908000
002448 47F0 603A      024F2        6659          B     PRDCHKRT            RETURN                       OY07290 P5910000

PRPU     HASP PRINT/PUNCH SERVICE -- WRITE SUBROUTINES                                                         PAGE  144


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00244C 4170 7000      00000        6661 PPUTOLAY LA    PL,0(,PL)           CLEAR HIGH-ORDER BYTE                P5914000
002450 1F78                        6662          SLR   PL,BASE3            COMPUTE RELATIVE RETURN              P5916000




002452 5070 D0C8      000C8        6664 PPPUT    ST    PL,PLSAVE           SAVE LINK REGISTER                   P5920000
002456 9140 D058      00058        6665          TM    PPFLAG,PPDELSW      TEST FOR SUSPENSION          OY02728 P5922000
00245A 4770 6036      024EE        6666          BNZ   PPUTRET             RETURN IF PRINT/PUNCH DELETE         P5924000
00245E 5810 D058      00058        6667          L     R1,PDCT             GET DCT ADDRESS FROM PCE             P5926000

002462 5040 6518      029D0        6668          ST    PC1,PCCWORK         STORE 1ST HALF OF CCW                P5928000
002466 9589 6518      029D0        6669          CLI   PCCWORK,X'89'       TEST CHANNEL COMMAND CODE            P5930000
00246A 4740 CFD2      0248A        6670          BL    PPPUT1              BR IF NOT POSSIBLE EJECT             P5932000
00246E 4780 CFCA      02482        6671          BE    PCHAN1              BRANCH IF PRT & SKP CHN 1            P5934000
002472 958B 6518      029D0        6672          CLI   PCCWORK,X'8B'       TEST CHANNEL COMMAND CODE            P5936000
002476 4770 CFD2      0248A        6673          BNE   PPPUT1              BRANCH IF NOT IMED SKP CHNL 1        P5938000
00247A 9110 1000      00000        6674          TM    DCTSTAT-DCTDSECT(R1),DCTEJECT  TEST DEVICE STATUS        P5940000

00247E 4710 6036      024EE        6675          BO    PPUTRET             RETURN IF PRINTER AT CHANNEL 1       P5942000
002482 9610 1000      00000        6676 PCHAN1   OI    DCTSTAT-DCTDSECT(R1),DCTEJECT  SHOW PRINTER EJECTED      P5944000
002486 47F0 CFDA      02492        6677          B     PPPUT2                AND CONTINUE                       P5946000



00248A 94EF 1000      00000        6679 PPPUT1   NI    DCTSTAT-DCTDSECT(R1),255-DCTEJECT  RESET CH 1 SW         P5950000
00248E 5070 D0C8      000C8        6680 PPUTUCS  ST    PL,PLSAVE           STORE RETURN ADDRESS                 P5952000
002492                             6681 PPPUT2   DS    0H                                                       P5954000
                                   6682          AIF   (&NUMLNES EQ 0).PNRJE10                                  P5956000

                                   6683 .PNRJE10 ANOP                      *                                    P5972000
002492 5820 D078      00078        6684          L     PW,PCCWPT           PICK UP CCW POINTER                  P5974000
002496 4122 0008      00008        6685          LA    PW,8(PW)            BUMP POINTER                         P5976000
00249A 9180 D058      00058        6686          TM    PPFLAG,PPWSW        TEST FOR WRITE STAGED                P5978000
00249E 4780 CFF2      024AA        6687          BZ    PPCHAIN             BRANCH IF WRITE NOT OUTSTANDING      P5980000
0024A2 4570 60B4      0256C        6688          BAL   PL,PPCHECK          CHECK OUTSTANDING WRITE              P5982000
0024A6 5020 3010      00010        6689          ST    PW,IOBSTART         RESET IOBSTART                       P5984000
0024AA 9045 2000      00000        6690 PPCHAIN  STM   PC1,PC2,0(PW)       ADD CCW TO CHAIN                     P5986000

0024AE D601 2006 2006 00006 00006  6691          OC    6(2,PW),6(PW)       TEST BYTE COUNT                      P5988000
0024B4 4770 6018      024D0        6692          BNZ   PPENDCHK            BRANCH IF NOT ZERO                   P5990000

0024B8 5520 3010      00010        6693          CL    PW,IOBSTART         CHECK FOR FIRST CCW                  P5992000
0024BC 47D0 6014      024CC        6694          BNH   PPNOMERG            BRANCH IF FIRST CCW                  P5994000
0024C0 5810 D078      00078        6695          L     R1,PCCWPT           R1 = ADDRESS OF LAST CCW             P5996000
0024C4 9501 1000      00000        6696          CLI   0(R1),X'01'         TEST LAST COMMAND                    P5998000
0024C8 4780 602C      024E4        6697          BE    PPCCWMG             BRANCH IF PRINT, NO SPACE            P6000000

0024CC 9201 2007      00007        6698 PPNOMERG MVI   7(PW),X'01'         FORCE BYTE COUNT NON-ZERO            P6002000
0024D0 5020 D078      00078        6699 PPENDCHK ST    PW,PCCWPT           SAVE CCW POINTER                     P6004000
0024D4 5520 D07C      0007C        6700          CL    PW,PCCWEND          CHECK FOR END OF CCW CHAIN           P6006000
0024D8 4740 6036      024EE        6701          BL    PPUTRET             RETURN IF NOT                        P6008000
0024DC 4570 6044      024FC        6702          BAL   PL,PPWRITE          YES, INITIATE WRITE ON BUFFER        P6010000
0024E0 47F0 6036      024EE        6703          B     PPUTRET              AND RETURN                          P6012000
0024E4 94FD 2000      00000        6704 PPCCWMG  NI    0(PW),X'FD'         REMOVE IMMEDIATE BIT                 P6014000
0024E8 D200 1000 2000 00000 00000  6705          MVC   0(1,R1),0(PW)       MOVE COMMAND TO PREVIOUS CCW         P6016000




0024EE 5870 D0C8      000C8        6707 PPUTRET  L     PL,PLSAVE           RESTORE RETURN REGISTER              P6020000

0024F2                             6708 PRDCHKRT DS    0H                                               OY07290 P6021000
0024F2 5570 63DC      02894        6709          CL    PL,POLAYCON         TEST                                 P6022000
0024F6 0727                        6710          BCR   H,PL                RETURN TO RESIDENT ROUTINE           P6024000
PRPU     HASP PRINT/PUNCH SERVICE -- WRITE SUBROUTINES                                                         PAGE  145


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


0024F8 1E78                        6711          ALR   PL,BASE3            COMPUTE ABSOLUTE RETURN              P6026000
0024FA 07F7                        6712          BR    PL                  RETURN TO OVERLAY ROUTINE            P6028000
PRPU     HASP PRINT/PUNCH SERVICE -- WRITE SUBROUTINES                                                         PAGE  146


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0024FC 9180 D058      00058        6714 PPWRITE  TM    PPFLAG,PPWSW        IS A WRITE STAGED            OY02728 P6032000
002500 0777                        6715          BCR   NZ,PL               RETURN IF DELETE OR WRITE STAGED     P6034000
                                   6716          AIF   (&NUMLNES EQ 0).PNRJE11                                  P6036000
                                   6717 .PNRJE11 ANOP                      *                                    P6042000
002502 5820 D078      00078        6718          L     PW,PCCWPT           PICK UP CCW POINTER                  P6044000
002506 5520 3010      00010        6719          CL    PW,IOBSTART         COMPARE WITH ORIGINAL POINTER        P6046000

00250A 0747                        6720          BCR   L,PL                RETURN IF NO CCW'S                   P6048000

00250C D207 2008 6510 00008 029C8  6721          MVC   8(8,PW),PCCWNOP     ADD NOP TO TERMINATE CHAIN           P6050000
002512 5810 D058      00058        6722          L     R1,PDCT             R1 = DCT ADDRESS                     P6052000
                            00000  6723          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         P6054000
002516 5030 1004      00004        6724          ST    PBUF,DCTBUFAD       SET BUFFER ADDRESS IN DCT            P6056000

                                   6725          DROP  R1                  KILL DCT ADDRESSABILITY              P6058000
                                   6726         $EXCP  (R1)                INITIATE WRITE                       P6060000
00251A 45E0 B06C      0006C        6727+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
00251E 9680 D058      00058        6728          OI    PPFLAG,PPWSW        INDICATE WRITE INITIATED             P6062000
002522 07F7                        6729          BR    PL                  RETURN                               P6064000
PRPU     HASP PRINT/PUNCH ERROR DETECTION & CORRECTION ROUTINE                                                 PAGE  147


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002524 5F20 6544      029FC        6731 PUNCHERR SL    PW,=F'8'            PUNCH ERROR -- BACK UP CCW CHAIN     P6068000
002528 9502 D0C7      000C7        6732          CLI   PDEVTYPE+3,X'02'    TEST DEVICE TYPE                     P6070000
00252C 4770 607C      02534        6733          BNE   *+8                 BRANCH IF NOT 2540 PUNCH             P6072000
002530 5F20 6544      029FC        6734          SL    PW,=F'8'            BACK UP TWO CCW'S IF 2540            P6074000
002534 5920 D068      00068        6735          C     PW,PUERRPT          COMPARE WITH LAST ERROR              P6076000

002538 47D0 608C      02544        6736          BNH   PURETRY             NEVER BACK UP BEFORE LAST ERROR      P6078000
00253C 5020 D068      00068        6737          ST    PW,PUERRPT          NEW ERROR -- SAVE CCW FOR TEST       P6080000
002540 5020 3010      00010        6738 PRESTRT  ST    PW,IOBSTART         RESTART CCW LIST                     P6082000

002544                             6739 PURETRY  DS    0H                                                       P6084000
002544 5810 D058      00058        6740          L     R1,PDCT             ADDRESS PRINT/PUNCH DCT              P6086000
002548 950C D0C7      000C7        6741          CLI   PDEVTYPE+3,X'0C'    TEST DEVICE TYPE             OY02728 P6086200
00254C 4770 60A8      02560        6742          BNE   PUREXCP             BRANCH IF NOT 3525 PUNCH     OY02728 P6086400
002550 58F0 1008      00008        6743          L     R15,DCTDCB-DCTDSECT(,R1)  R15 = DCB ADDRESS      OY02728 P6086600
002554 58F0 F02C      0002C        6744          L     R15,DCBDEBAD-DCBDSECT(,R15)  R15 = DEB ADDRESS   OY02728 P6086800
002558 58F0 F020      00020        6745          L     R15,DEBUCBAD-DEBDSECT(,R15)  R15 = UCB ADDRESS   OY02728 P6087000
00255C 9640 F006      00006        6746          OI    UCBFL1-UCBDSECT(R15),UCBNOTRD  SET NOT READY     OY02728 P6087200
002560                             6747 PUREXCP  DS    0H                                               OY02728 P6087400
                                   6748         $EXCP  (R1)                RESTART IO                           P6088000
002560 45E0 B06C      0006C        6749+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000

002564                             6750 PPPWAIT  DS    0H                                                       P6090000
                                   6751         $WAIT  IO                  WAIT FOR IO POST                     P6092000
002564 9640 D049      00049        6752+         OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
002568 45F0 B030      00030        6753+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000




00256C                             6755 PPCHECK  DS    0H                                                       P6096000
                                   6756          AIF   (&NUMLNES EQ 0).PNRJE12                                  P6098000
00256C 9180 D058      00058        6757 .PNRJE12 TM    PPFLAG,PPWSW        TEST FOR WRITE INITIATED             P6104000
002570 4780 62AC      02764        6758          BZ    PPPINIT1            BYPASS CHECK IF NO                   P6106000



002574 12AA                        6760 PCOMTEST LTR   JCT,JCT             TEST FOR JOB                         P6110000
002576 0787                        6761          BCR   Z,PL                RETURN IF PROCESSING MESSAGES        P6112000
002578 9158 D058      00058        6762          TM    PPFLAG,PPDELSW+PRDELSW+PPNOJOE IS OPERATOR BLOCKED       P6114000
00257C 4770 626A      02722        6763          BNZ   PPIOTEST            BRANCH IF YES                        P6116000
002580 5820 D058      00058        6764          L     PW,PDCT             GET ADDRESS OF PRINT/PUNCH DCT       P6118000
                            00000  6765          USING DCTDSECT,PW         ESTABLISH DCT ADDRESSABILITY         P6120000

002584 94FB D05C      0005C        6766          NI    PDCTFLAG,255-DCTSPACE  OPER MAY RESET C=1 FLAG   OY02728 P6120500
002588 D600 D05C 2014 0005C 00014  6767          OC    PDCTFLAG,DCTFLAGS   ADD DCT FLAGS TO PCE         OY02728 P6121000
00258E 9178 2014      00014        6768          TM    DCTFLAGS,DCTDELET+DCTRSTRT+DCTRPT+DCTBKSP ANY ON         P6122000

002592 4780 626A      02722        6769          BZ    PPIOTEST            BRANCH IF NO                         P6124000
002596 9487 2014      00014        6770          NI    DCTFLAGS,255-DCTDELET-DCTRSTRT-DCTRPT-DCTBKSP RESET      P6128000
00259A D207 D094 2018 00094 00018  6771          MVC   PMESSAGE+20(8),DCTDEVN MOVE DEVICE NAME TO MESSAGE       P6130000
                                   6772 *                                                                       P6132000
                                   6773 *        $N DEVICE  --  REPEAT DEVICE                                   P6134000
                                   6774 *                                                                       P6136000
0025A0                             6775 PREPEAT  DS    0H                                                       P6138000
0025A0 9110 D05C      0005C        6776          TM    PDCTFLAG,DCTRPT     TEST FOR REPEAT                      P6140000
0025A4 4780 6130      025E8        6777          BZ    PDELET              BRANCH IF NO                         P6142000
0025A8 D20A D09C 6345 0009C 027FD  6778          MVC   PMESSAGE+28(L'PPREPMSG),PPREPMSG REPEAT MESSAGE          P6144000
                                   6779         $#ADD  WORK=PWKJOE,CHAR=PCHJOE,CLAS=PWKJOE ADD JOE TO JOT       P6146000
0025AE 5800 D0D8      000D8        6780+         L     R0,PWKJOE                                                DG012000

0025B2 5810 D0DC      000DC        6781+         L     R1,PCHJOE                                                DG012000

PRPU     HASP PRINT/PUNCH ERROR DETECTION & CORRECTION ROUTINE                                                 PAGE  148


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   6782+*        ICM   R0,8,&CLAS          CLASS QUEUE ID TO BYTE 0        RFIT AD020000
0025B6 8900 0008      00008        6783+         SLL   R0,8                                                RFIT AD020005
0025BA 8800 0008      00008        6784+         SRL   R0,8                                                RFIT AD020010
0025BE 43F0 D0D8      000D8        6785+         IC    R15,PWKJOE                                          RFIT AD020015
0025C2 89F0 0018      00018        6786+         SLL   R15,24                                              RFIT AD020020
0025C6 160F                        6787+         OR    R0,R15                                              RFIT AD020025
0025C8 58F0 6580      02A38        6788+         L     R15,=V($#ADD)       BASE FOR $#ADD SUBROUTINE            AD030000
0025CC 05EF                        6789+         BALR  R14,R15             GIVE IT A TRY                        AD044000
0025CE 12FF                        6790          LTR   R15,R15             WAS QUEUE ADD SUCCESSFUL             P6148000
0025D0 4770 6130      025E8        6791          BNZ   PDELET              BRANCH IF NO                         P6150000
0025D4 94EF D05C      0005C        6792          NI    PDCTFLAG,255-DCTRPT TURN OFF REPEAT REQUEST              P6152000
                                   6793         $WTO   PMESSAGE+20,L'PPREPMSG+8, INFORM THE OPERATOR           CP6154000

                                                       ROUTE=$LOG+$UR,CLASS=$NORMAL,PRI=$ST,JOB=NO              P6156000
0025D8 4110 D094      00094        6794+         LA    R1,PMESSAGE+20                                           DG012000

0025DC                             6795+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000

0025DC 5800 612C      025E4        6796+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
0025E0 45E0 B098      00098        6797+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
0025E4 00051334                    6798+         DC    AL1(0,$LOG+$UR,L'PPREPMSG+8,$NORMAL+$ST)                 WT044000
                                   6799 *                                                                       P6158000
                                   6800 *        $C DEVICE  --  CANCEL DEVICE                                   P6160000
                                   6801 *                                                                       P6162000
0025E8                             6802 PDELET   DS    0H                                                       P6164000
0025E8 9140 D05C      0005C        6803          TM    PDCTFLAG,DCTDELET   TEST FOR DELETE                      P6166000
0025EC 4780 6164      0261C        6804          BZ    PINTRPT             BRANCH IF NO                         P6168000
0025F0 9110 D05C      0005C        6805          TM    PDCTFLAG,DCTRPT     $N - (REPEAT)                        P6170000
0025F4 4780 615A      02612        6806          BZ    PDELETA             BRANCH IF NO                         P6172000
                                   6807         $WTO   PMESSAGE+20,L'PPREPMSG+8, INFORM THE OPERATOR           CP6174000

                                                       ROUTE=$LOG+$UR,CLASS=$NORMAL,PRI=$ST,JOB=NO              P6176000
0025F8 4110 D094      00094        6808+         LA    R1,PMESSAGE+20                                           DG012000
0025FC                             6809+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000

0025FC 5800 614C      02604        6810+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
002600 45E0 B098      00098        6811+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
002604 00051334                    6812+         DC    AL1(0,$LOG+$UR,L'PPREPMSG+8,$NORMAL+$ST)                 WT044000
002608 D20A D09C 635C 0009C 02814  6813          MVC   PMESSAGE+28(L'PPDELMSG),PPDELMSG DELET MESSAGE           P6178000
00260E 47F0 61D2      0268A        6814          B     PPDFRPT             GO DO DEFERRED REPEAT                P6180000
002612                             6815 PDELETA  DS    0H                                                       P6182000
002612 D20A D09C 635C 0009C 02814  6816          MVC   PMESSAGE+28(L'PPDELMSG),PPDELMSG DLELTE MESSAGE          P6184000
002618 47F0 61E2      0269A        6817          B     PRDEL               GO WRITE OPERATOR MESSAGE            P6188000
                                   6818 *                                                                       P6190000
                                   6819 *        $I DEVICE  --  INTERRUPT DEVICE                                P6192000
                                   6820 *                                                                       P6194000
00261C                             6821 PINTRPT  DS    0H                                                       P6196000

00261C 9128 D05C      0005C        6822          TM    PDCTFLAG,DCTRSTRT+DCTBKSP TEST FOR INTERRUPT             P6198000
002620 47E0 6196      0264E        6823          BNO   PSPACE              BRANCH IF NO                         P6200000
002624 9140 D04A      0004A        6824          TM    PCEID,PCEPUSID      TEST PROCESSOR TYPE                  P6202000
002628 4710 61C4      0267C        6825          BO    PRSTART             BRANCH IF PUNCH                      P6204000

00262C D20A D09C 637D 0009C 02835  6826          MVC   PMESSAGE+28(L'PRSUSMSG),PRSUSMSG INTERRUPT MESSAGE       P6206000
002632 58F0 D064      00064        6827          L     R15,PRCHKPTE        ADDRESS PRINT CHECKPOINT ELEMENT     P6208000
002636 D707 F00C F00C 0000C 0000C  6828          XC    PRCLINCT(8,R15),PRCLINCT(R15) CLEAR LINE/PAGE COUNTS     P6210000
                                   6829         $#PUT  WORK=PWKJOE,PRC=PRCHKPTE FREE WORK-JOE+CKPT-JOE          P6212000
00263C 5800 D064      00064        6830+         L     R0,PRCHKPTE                                              DG012000
002640 5810 D0D8      000D8        6831+         L     R1,PWKJOE                                                DG012000

002644 58F0 6564      02A1C        6832+         L     R15,=V($#PUT)       BASE FOR $#PUT SUBROUTINE            PT026000
002648 05EF                        6833+         BALR  R14,R15             GIVE IT A TRY                        PT040000
00264A 47F0 61DE      02696        6834          B     PRNOJOE             GO WRITE AN OPERATOR MESSAGE OY03498 P6214000
PRPU     HASP PRINT/PUNCH ERROR DETECTION & CORRECTION ROUTINE                                                 PAGE  149


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6835 *                                                                       P6216000
                                   6836 *        $B DEVICE,PAGES OR ,D  --  BACKSPACE DEVICE                    P6218000
                                   6837 *        $F DEVICE,PAGES OR ,D  --  FORWARD-SPACE DEVICE                P6220000

                                   6838 *                                                                       P6222000
00264E                             6839 PSPACE   DS    0H                                                       P6224000

00264E 9108 D05C      0005C        6840          TM    PDCTFLAG,DCTBKSP    TEST FOR BSP/FSP                     P6226000
002652 4780 61C4      0267C        6841          BZ    PRSTART             BRANCH IF NO                         P6228000
002656 9140 D04A      0004A        6842          TM    PCEID,PCEPUSID      TEST PROCESSOR TYPE                  P6230000
00265A 4710 61C4      0267C        6843          BO    PRSTART             BRANCH IF PUNCH                      P6232000
00265E 94F7 D05C      0005C        6844          NI    PDCTFLAG,255-DCTBKSP TURN OFF FLAG                       P6234000
002662 D20A D09C 6367 0009C 0281F  6845          MVC   PMESSAGE+28(L'PRFSPMSG),PRFSPMSG FSP MESSAGE             P6236000
002668 D501 D0A8 D0B2 000A8 000B2  6846          CLC   PDDBSKIP,PDDBPGCT   TEST DIRECTION                       P6238000
00266E 4720 61F8      026B0        6847          BH    PPDEL               GO WRITE OPERATOR MESSAGE            P6240000

002672 D20A D09C 6372 0009C 0282A  6848          MVC   PMESSAGE+28(L'PRBSPMSG),PRBSPMSG BSP MESSAGE             P6242000
002678 47F0 61F8      026B0        6849          B     PPDEL               GO WRITE OPERATOR MESSAGE            P6244000
                                   6850 *                                                                       P6246000
                                   6851 *        $E DEVICE  --  RESTART DEVICE                                  P6248000
                                   6852 *                                                                       P6250000

00267C                             6853 PRSTART  DS    0H                                                       P6252000
00267C 9120 D05C      0005C        6854          TM    PDCTFLAG,DCTRSTRT   $E - (RESTART)                       P6254000
002680 4780 626A      02722        6855          BZ    PPIOTEST            BRANCH IF NO                         P6256000

002684 D20A D09C 6388 0009C 02840  6856          MVC   PMESSAGE+28(L'PPRESMSG),PPRESMSG RESTART MESSAGE         P6258000
00268A                             6857 PPDFRPT  DS    0H                                                       P6260000
                                   6858         $#PUT  WORK=PWKJOE         RELEASE WORK ELEMENT                 P6262000
00268A 1B00                        6859+         SR    R0,R0               R0=0 (NO PRC GIVEN)                  PT018000
00268C 5810 D0D8      000D8        6860+         L     R1,PWKJOE                                                DG012000
002690 58F0 6564      02A1C        6861+         L     R15,=V($#PUT)       BASE FOR $#PUT SUBROUTINE            PT026000
002694 05EF                        6862+         BALR  R14,R15             GIVE IT A TRY                        PT040000

002696 9608 D058      00058        6863 PRNOJOE  OI    PPFLAG,PPNOJOE      $E OR $I                     OY03498 P6263000
00269A 9610 D058      00058        6864 PRDEL    OI    PPFLAG,PRDELSW      $C                           OY03498 P6264000
00269E 5810 D064      00064        6865          L     R1,PRCHKPTE         ADDRESS CHECKPOINT ELEMENT           P6266000
0026A2 94BF 1004      00004        6866          NI    PRCFLAGS(R1),255-PRCHKJOB RESET VALIDITY BIT             P6268000
0026A6 5810 D0DC      000DC        6867          L     R1,PCHJOE           ADDRESS CHAR-JOE                     P6270000

0026AA D20B D0E0 1004 000E0 00004  6868          MVC   PCEFORM(12),JOEFORM-JOEDSECT(R1) SAVE SETUP DATA         P6272000
0026B0 9640 D058      00058        6869 PPDEL    OI    PPFLAG,PPDELSW      SUSPEND - $E, $C, $I, $B, $F         P6274000
0026B4                             6870 POPMSG   DS    0H                                                       P6276000
                                   6871         $WTO   PMESSAGE+20,L'PPDELMSG+8, NOTIFY OPERATOR OF ACTION     CP6278000

                                                       ROUTE=$LOG+$UR,CLASS=$NORMAL,PRI=$ST,JOB=NO              P6280000
0026B4 4110 D094      00094        6872+         LA    R1,PMESSAGE+20                                           DG012000
0026B8                             6873+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
0026B8 5800 6208      026C0        6874+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
0026BC 45E0 B098      00098        6875+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
0026C0 00051334                    6876+         DC    AL1(0,$LOG+$UR,L'PPDELMSG+8,$NORMAL+$ST)                 WT044000

0026C4 9108 D058      00058        6877          TM    PPFLAG,PPNOJOE      HAS WORK JOE BEEN RELEASED   OY07290 P6280100
0026C8 4780 626A      02722        6878          BZ    PPIOTEST            NO,CHECK IO                  OY07290 P6280200
0026CC 95FF D0D0      000D0        6879          CLI   PLSAVE3,X'FF'       TERMINATION ENTERED          OY07290 P6280230
0026D0 4780 626A      02722        6880          BE    PPIOTEST            YES CHECK IO                 OY07290 P6280260
0026D4 5070 D0D0      000D0        6881          ST    PL,PLSAVE3          SAVE RETURN                  OY07290 P6280300

0026D8 9502 D0C4      000C4        6882          CLI   PBUFOPT,2           CHECK DOUBLE BUFFER OPTION   OY07290 P6280400
0026DC 4780 C6EE      01BA6        6883          BE    PPDONE1             YES,UPDATE JCT               OY07290 P6280500
0026E0                             6884 PPIOTSTA DS    0H                                               OY07290 P6280550
                                   6885         $GETBUF  ,                 GET BUFFER FOR JCT           OY07290 P6280600
0026E0 45E0 B034      00034        6886+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000

0026E4 5010 D074      00074        6887          ST    R1,PBUFSAVE         STORE BUFFER ADDRESS         OY07290 P6280700
0026E8 4770 C6EE      01BA6        6888          BC    7,PPDONE1           UPDATE JCT IF BUFFER         OY07290 P6280730
PRPU     HASP PRINT/PUNCH ERROR DETECTION & CORRECTION ROUTINE                                                 PAGE  150


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6889         $WAIT  BUF                 ELSE WAIT FOR BUFFER         OY07290 P6280760

0026EC 9640 D048      00048        6890+         OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000
0026F0 45F0 B030      00030        6891+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
0026F4 47F0 6228      026E0        6892          B     PPIOTSTA            TRY AGAIN                    OY07290 P6280800
0026F8                             6893 PPIOTST  DS    0H                                               OY07290 P6280900
0026F8 9640 D058      00058        6894          OI    PPFLAG,PPDELSW      SET SUSPEND FLAG             OY07290 P6281000

0026FC 5830 D074      00074        6895          L     R3,PBUFSAVE         RESTORE BUFFER ADDRESS       OY07290 P6281100
002700 50A0 D074      00074        6896          ST    JCT,PBUFSAVE        SWAP BUFFER ADDRESS          OY07290 P6281150
002704 5870 D0D0      000D0        6897          L     PL,PLSAVE3          RESTORE RETURN ADDRESS       OY07290 P6281200
002708 5810 D05C      0005C        6898          L     R1,PDADCT           ADDRESS DA DCT               OY07290 P6281230
00270C 9280 1013      00013        6899          MVI   DCTIOTYP-DCTDSECT(R1),DCTREAD INDICATE READ      OY07290 P6281260
002710 9502 D0C4      000C4        6900          CLI   PBUFOPT,2           CHECK DOUBLE BUFFER OPTION   OY07290 P6281300

002714 4780 626A      02722        6901          BE    PPIOTEST            YES,CHECK IO                 OY07290 P6281400
                                   6902         $FREEBUF (JCT)             FREE JCT BUFFER              OY07290 P6281500
002718 181A                        6903+         LR    R1,JCT                                                   DG018000
00271A 45E0 B03C      0003C        6904+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000

00271E 5030 D074      00074        6905          ST    R3,PBUFSAVE         SAVE SINGLE BUFFER ADDRESS   OY07290 P6281600
PRPU     HASP PRINT/PUNCH ERROR DETECTION & CORRECTION ROUTINE                                                 PAGE  151


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002722                             6907 PPIOTEST DS    0H                                                       P6284000
                                   6908          AIF   (&NUMLNES EQ 0).PNRJE13                                  P6286000

002722 917F 3028      00028        6909 .PNRJE13 TM    BUFECBCC,X'7F'      TEST I/O COMPLETION CODE             P6292000
002726 4780 60AC      02564        6910          BZ    PPPWAIT             BRANCH IF I/O IS NOT COMPLETE        P6294000
00272A 4710 62A0      02758        6911          BO    PPPINIT             BRANCH IF NO ERRORS                  P6296000
00272E 9140 D058      00058        6912          TM    PPFLAG,PPDELSW      TEST FOR OPERATOR ACTION             P6298000
002732 4710 62A0      02758        6913          BO    PPPINIT             BYPASS ERROR REOVERY IF ABORTING     P6300000
002736 5820 3008      00008        6914          L     PW,IOBCSW-1         PICK UP COMMAND ADDRESS FROM CSW     P6302000
00273A 4120 2000      00000        6915          LA    PW,0(,PW)           CLEAR HIGH-ORDER BYTE                P6304000

00273E 9140 D04A      0004A        6916          TM    PCEID,PCEPUSID      TEST PROCESSOR TYPE                  P6306000
002742 4710 606C      02524        6917          BO    PUNCHERR            BRANCH IF PUNCH                      P6308000
002746 D502 3009 3011 00009 00011  6918          CLC   IOBCSW(3),IOBSTART+1  COMPARE CSW WITH 1ST CCW           P6310000

00274C 47D0 608C      02544        6919          BNH   PURETRY             BRANCH IF INVALID CSW                P6312000
002750 5520 D078      00078        6920          CL    PW,PCCWPT           COMPARE RESTART CCW WITH END OF LIST P6314000
002754 47D0 6088      02540        6921          BNH   PRESTRT             BRANCH IF ERROR IS NOT ON LAST CCW   P6316000





002758 5820 D058      00058        6923 PPPINIT  L     PW,PDCT             GET ADDRESS OF PRINT/PUNCH DCT       P6320000
00275C 9180 2014      00014        6924          TM    DCTFLAGS,DCTSTOP    TEST FOR STOP COMMAND                P6322000
002760 4710 60AC      02564        6925          BO    PPPWAIT             BRANCH IF DEVICE IS STOPPED          P6324000
                                   6926          DROP  PW                  DROP DCT ADDRESSABILITY              P6326000
002764 4120 D148      00148        6927 PPPINIT1 LA    PW,PCCWCHN-8        GET START OF CCW CHAIN               P6328000
002768 9182 D04A      0004A        6928          TM    PCEID,PCERJEID+PCEPRSID  TEST PROCESSOR TYPE             P6330000
00276C 4770 62F4      027AC        6929          BNZ   PRINIT                   BRANCH IF NOT LOCAL PUNCH       P6332000
002770 5020 D068      00068        6930          ST    PW,PUERRPT          PRESET PUNCH ERROR POINTER           P6334000

002774 4122 0008      00008        6931          LA    PW,8(PW)            BUMP CCW POINTER                     P6336000
002778 5810 D078      00078        6932          L     R1,PCCWPT           GET POINTER TO LAST CCW              P6338000

00277C D200 2000 1000 00000 00000  6933          MVC   0(1,PW),0(R1)       MOVE COMMAND TO RESTART CCW          P6340000
002782 D200 2007 1007 00007 00007  6934          MVC   7(1,PW),7(R1)       MOVE BYTE COUNT TO RESTART CCW       P6342000
002788 41F0 0050      00050        6935          LA    R15,80              ASSUME 80-COLUMN CARD                P6344000
00278C 9550 1007      00007        6936          CLI   7(R1),80            TEST                                 P6346000
002790 47B0 62E0      02798        6937          BNL   *+8                 BRANCH IF 80 COLUMNS OR MORE         P6348000

002794 43F0 1007      00007        6938          IC    R15,7(,R1)          GET BYTE COUNT                       P6350000
002798 06F0                        6939          BCTR  R15,0               DECREMENT                            P6352000
00279A 42F0 62EF      027A7        6940          STC   R15,PPPINMVC+1      SET MOVE LENGTH                      P6354000
00279E 5811 0000      00000        6941          L     R1,0(R1)            R1 = DATA ADDRESS                    P6356000
0027A2 58F2 0000      00000        6942          L     R15,0(PW)           R15 = SAVE AREA ADDRESS              P6358000
0027A6 D200 F000 1000 00000 00000  6943 PPPINMVC MVC   0(*-*,R15),0(R1)    SAVE LAST CARD PUNCHED               P6360000
0027AC 5020 D078      00078        6944 PRINIT   ST    PW,PCCWPT           PRESET CCW POINTER FOR NEXT CHAIN    P6362000
0027B0 4120 2008      00008        6945          LA    PW,8(,PW)           SET CCW POINTER TO NEW IOBSTART      P6364000
0027B4 947F D058      00058        6946          NI    PPFLAG,255-PPWSW    INDICATE WRITE COMPLETED             P6366000

0027B8 07F7                        6947          BR    PL                  RETURN                               P6368000

                                   6948          DROP  PBUF                KILL BUFFER ADDRESSABILITY           P6370000
PRPU     HASP PRINT/PUNCH SERVICE -- VARIABLE STORAGE                                                          PAGE  152


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6950 *                                                                       P6374000
                                   6951 *                             PRINT/PUNCH OPERATOR MESSAGES             P6376000

                                   6952 *                                                                       P6378000



0027BA D1D6C240F9F9F9F9            6954 PPSETMSG DC    C'JOB 9999 SETUP -- PRINTER1 -- F = XXXX -- C = XXXX -- CP6382000
0027C2 40E2C5E3E4D74060                                T = XXXX'           DEVICE SETUP MESSAGE                 P6384000
0027F8 D7D9C9D5E3                  6955 PRCOM    DC    C'PRINT'            OPERATOR ACTION COMMENT              P6386000
0027FD 40D9C5D7C5C1E3C5            6956 PPREPMSG DC    C' REPEATED  '      REPEAT MESSAGE                       P6388000
002808 40C2E840D6D7C5D9            6957          DC    C' BY OPERATOR'     OPERATOR ACTION COMMENT              P6390000
                            0001C  6958 PRLENCOM EQU   *-PRCOM             LENGTH OF COMMENT                    P6392000
002814 40C4C5D3C5E3C5C4            6959 PPDELMSG DC    C' DELETED   '      DELETE MESSAGE                       P6394000

00281F 40C6E6C460E2D7C1            6960 PRFSPMSG DC    C' FWD-SPACED'      FORWARD-SPACE MESSAGE                P6396000

00282A 40C2C1C3D2E2D7C1            6961 PRBSPMSG DC    C' BACKSPACED'      BACKSPACE MESSAGE                    P6398000
002835 40E2E4E2D7C5D5C4            6962 PRSUSMSG DC    C' SUSPENDED '      SUSPEND MESSAGE                      P6400000
002840 40D9C5E2E3C1D9E3            6963 PPRESMSG DC    C' RESTARTED '      RESTART MESSAGE                      P6402000
00284B 40E3C5D9D4C9D5C1            6964 PRTRMMSG DC    C' TERMINATED'      TERMINATION MESSAGE                  P6404000
002856 C9D640C5D9D9D6D9            6965 PRIOEMSG DC    C'IO ERROR'         IO ERROR MESSAGE                     P6406000

00285E D1D6C240D5D5D5D5            6966 PBUFLMSG DC    C'JOB NNNN PRINTER1 FCB  IMAGE XXXX NOT FOUND'           P6408000




                                   6968 *                                                                       P6412000
                                   6969 *                             MISCELLANEOUS CONSTANTS                   P6414000
                                   6970 *                                                                       P6416000



002889 000000
00288C 0000FFFF                    6972 PHALFMSK DC    A(X'FFFF')          HALF-WORD MASK                       P6420000
002890 12000000                    6973 PNOON    DC    0F'0',X'12000000'   TIME CONVERSION CONSTANT             P6424000

002894 00000FFF                    6974 POLAYCON DC    F'4095'             OVERLAY TEST CONSTANT                P6426000

002898 C8C1E2D760C9C95C            6975 PRHASPID DC    C'HASP-II***'       HASP IDENTIFICATION                  P6428000
0028A2 4BC3D6D5E3                  6976 PRCONTHD DC    C'.CONT'            HEADER CONSTANT                      P6430000
0028A7 E2E3C1D9E3                  6977 PRSTRTHD DC    C'START'            HEADER CONSTANT                      P6432000
0028AC 4B4BC5D5C4                  6978 PRENDHD  DC    C'..END'            TRAILER CONSTANT                     P6434000

0028B1 40D1D6C240                  6979 PRJOB    DC    C' JOB '            HEADER AND TRAILER CONSTANT          P6436000
0028B6 D9D6D6D440                  6980 PRROOM   DC    C'ROOM '            HEADER AND TRAILER CONSTANT          P6438000
0028BB 21204B20204B2020            6981 PTIMASK  DC    X'21204B20204B202040C1D440212040404040402120' TIME MASK  P6440000



0028D0 1FD1C1D5                    6983 PYEARTAB DC    AL1(31),C'JAN'      JULIAN                               P6444000
0028D4 1CC6C5C2                    6984          DC    AL1(28),C'FEB'       DATE                                P6446000
0028D8 1FD4C1D9                    6985          DC    AL1(31),C'MAR'        TO                                 P6448000
0028DC 1EC1D7D9                    6986          DC    AL1(30),C'APR'         DAY                               P6450000
0028E0 1FD4C1E8                    6987          DC    AL1(31),C'MAY'          AND                              P6452000
0028E4 1ED1E4D5                    6988          DC    AL1(30),C'JUN'           MONTH                           P6454000
0028E8 1FD1E4D3                    6989          DC    AL1(31),C'JUL'            CONVERSION                     P6456000

0028EC 1FC1E4C7                    6990          DC    AL1(31),C'AUG'             TABLE                         P6458000
0028F0 1EE2C5D7                    6991          DC    AL1(30),C'SEP'              *                            P6460000
0028F4 1FD6C3E3                    6992          DC    AL1(31),C'OCT'               *                           P6462000
0028F8 1ED5D6E5                    6993          DC    AL1(30),C'NOV'                *                          P6464000

PRPU     HASP PRINT/PUNCH SERVICE -- VARIABLE STORAGE                                                          PAGE  153


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0028FC FFC4C5C3                    6994          DC    AL1(255),C'DEC'                *                         P6466000





                                   6996 *                                                                       P6470000
                                   6997 *                             JOB STATISTICS MESSAGE                    P6472000
                                   6998 *                                                                       P6474000



002900 6060606040C8C1E2            7000 PJOBSTAT DC    C'---- HASP-II JOB STATISTICS ----'                      P6478000
002920 40202020206B2021            7001 PJSTAT02 DC    X'40202020206B202120',C' CARDS READ'                     P6480000
002934 40202020206B2021            7002 PJSTAT03 DC    X'40202020206B202120',C' SYSOUT PRINT RECORDS'           P6482000

002952 40202020206B2021            7003 PJSTAT04 DC    X'40202020206B202120',C' SYSOUT PUNCH RECORDS'           P6484000
002970 4020202021204B20            7004 PJSTAT05 DC    X'4020202021204B2020',C' MINUTES EXECUTION TIME'         P6486000
                            02990  7005 PENDSTAT EQU   *                                                        P6488000

                            02920  7006 PRDRSTAT EQU   PJSTAT02,PJSTAT03-PJSTAT02 STAT LINE TWO                 P6490000
                            02934  7007 PPRTSTAT EQU   PJSTAT03,PJSTAT04-PJSTAT03 STAT LINE THREE               P6492000
                            02952  7008 PPUNSTAT EQU   PJSTAT04,PJSTAT05-PJSTAT04 STAT LINE FOUR                P6494000
                            02970  7009 PXEQSTAT EQU   PJSTAT05,PENDSTAT-PJSTAT05 STAT LINE FIVE                P6496000





                                   7011 *                                                                       P6500000
                                   7012 *                             CCW SKELETONS AND STORAGE                 P6502000
                                   7013 *                                                                       P6504000



002990 8B00000060000001            7015 PRCCWEJ  CCW   X'8B',0,X'60',1                                          P6508000
002998 0900005860000084            7016 PRCCWID  CCW   X'09',BUFSTART-BUFDSECT,X'60',132                        P6510000

0029A0 4100000060000050            7017 PUCCW    CCW   X'41',*-*,X'60',80                                       P6512000

0029A8 0000006060000000            7018 PCCW     CCW   *-*,HDBSTART-BUFDSECT,X'60',*-*                          P6514000
0029B0 010028B160000001            7019 PUCCWBL  CCW   X'01',PRJOB,X'60',1                                      P6516000

0029B8 1B00000060000001            7020 PRCCWSP  CCW   X'1B',0,X'60',1                                          P6518000
0029C0 0900008060000028            7021 PRCCWCOM CCW   X'09',PMESSAGE-PCEDSECT,X'60',L'PMESSAGE                 P6520000
0029C8 0300000020000001            7022 PCCWNOP  CCW   X'03',0,X'20',1                                          P6522000
0029D0                             7023 PCCWORK  DS    D                   CCW WORK AREA                        P6524000



0029D8                             7025 DARTSCR2 DS    F                                                   RFIT P6524100
PRPU     HASP PRINT/PUNCH SERVICE -- VARIABLE STORAGE                                                          PAGE  154


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7027 *                                                                       P6528000
                                   7028 *                             PRINT/PUNCH SERVICE LITERAL POOL          P6530000
                                   7029 *                                                                       P6532000




0029E0                             7031          DS    0D                                                       P6536000
0029E0                             7032          LTORG                                                          P6538000

0029E0 C8C1E2D7D7D9D7E4            7033                =C'HASPPRPU'

0029E8 C0C0C0C0C0C0C0C0            7034                =8X'C0'
0029F0 00000000                    7035                =V($#GET)
0029F4 00000000                    7036                =V($JOT)
0029F8 00000000                    7037                =V($CKPTPCE)
0029FC 00000008                    7038                =F'8'
002A00 F6404040                    7039                =CL4'6'
002A04 5C5C5C5C                    7040                =CL4'****'
002A08 000003E8                    7041                =F'1000'
002A0C 00000002                    7042                =F'2'
002A10 00000800                    7043                =A(BUFSTART-BUFDSECT+1960)
002A14 0083D600                    7044                =A(24*60*60*100)
002A18 0000003C                    7045                =F'60'

002A1C 00000000                    7046                =V($#PUT)
002A20 00000000                    7047                =V($#REM)
002A24 E5404040                    7048                =C'V   '

002A28 F0404040                    7049                =C'0   '
002A2C E4C3E2F8                    7050                =C'UCS8'
002A30 E4C3E2C2                    7051                =C'UCSB'
002A34 C6C3C2F9                    7052                =C'FCB9'
002A38 00000000                    7053                =V($#ADD)
002A3C 8000                        7054                =X'8000'
002A3E 0020                        7055                =H'32'
002A40 005E                        7056                =AL2(SMF6END-SMFRDW)
002A42 001D                        7057                =H'29'
002A44 0018                        7058                =H'24'
002A46 0008                        7059                =H'8'
002A48 00                          7060                =X'00'

002A49 01                          7061                =X'01'
002A4A 018940                      7062                =X'018940'
002A4D 1E                          7063                =AL1(30)
002A4E 13                          7064                =X'13'




                                   7066          AIF   (NOT &PRTRANS).PNTRAN3                                   P6542000
                                   7067 .PNTRAN3 ANOP                      *                                    P6578000
PRPU     HASP PRINT/PUNCH SERVICE -- BLOCK LETTER TABLES                                                       PAGE  155


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002A50                             7069 BLOKLETR DS    0F                                                       P6582000

                                   7070         $OCON  HASPBLOK            BLOCK LETTER TABLES                  P6584000
000000                             7071+HA$QBLOK DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002A50                             7072+HASPPRPU CSECT                                                          OC012000
002A50 0000                        7073+         DC    0H'0',QL2(HA$QBLOK) GENERATE OCON                        OC014000
                                   7074 HASPBLOK $OVERLAY &MED,&LOW,NOUSING                                     P6586000
002FC8                             7075+HA$OBLOK CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            02FD0  7076+HA$IBLOK EQU   HA$OBLOK+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7077+         ENTRY HA$IBLOK                                                 OV036000

002FC8 C2D3D6D2                    7078+         DC    CL4'BLOK'           IDENTIFY MODULE ON CORE DUMP         OV038000
002FCC 00002FC8                    7079+         DC    A(HA$OBLOK)         ASSEMBLY ORIGIN                      OV040000

002FD0                             7080+HASPBLOK DS    0F                  ENTRY POINT                          OV042000
002FD0 7FE0FFF0C030C030            7081 BLOCKA   DC    X'7FE0FFF0C030C030C030FFF0FFF0C030C030C030C030C030'      P6588000
002FE8 FFE0FFF0C030C030            7082 BLOCKB   DC    X'FFE0FFF0C030C030C060FFC0FFC0C060C030C030FFF0FFE0'      P6590000
003000 7FE0FFF0C030C000            7083 BLOCKC   DC    X'7FE0FFF0C030C000C000C000C000C000C000C030FFF07FE0'      P6592000
003018 FF80FFC0C060C030            7084 BLOCKD   DC    X'FF80FFC0C060C030C030C030C030C030C030C060FFC0FF80'      P6594000
003030 FFF0FFF0C000C000            7085 BLOCKE   DC    X'FFF0FFF0C000C000C000FF00FF00C000C000C000FFF0FFF0'      P6596000
003048 FFF0FFF0C000C000            7086 BLOCKF   DC    X'FFF0FFF0C000C000C000FF00FF00C000C000C000C000C000'      P6598000
003060 7FE0FFF0C030C000            7087 BLOCKG   DC    X'7FE0FFF0C030C000C000C000C1F0C1F0C030C030FFF07FE0'      P6600000

003078 C030C030C030C030            7088 BLOCKH   DC    X'C030C030C030C030C030FFF0FFF0C030C030C030C030C030'      P6602000
003090 7FE07FE006000600            7089 BKOCKI   DC    X'7FE07FE0060006000600060006000600060006007FE07FE0'      P6604000
0030A8 3FF03FF003000300            7090 BLOCKJ   DC    X'3FF03FF0030003000300030003000300C300C300FF007E00'      P6606000
0030C0 C030C060C0C0C180            7091 BLOCKK   DC    X'C030C060C0C0C180C300FE00FE00C300C180C0C0C060C030'      P6608000
0030D8 C000C000C000C000            7092 BLOCKL   DC    X'C000C000C000C000C000C000C000C000C000C000FFF0FFF0'      P6610000

0030F0 C030E070F0F0D9B0            7093 BLOCKM   DC    X'C030E070F0F0D9B0CF30C630C030C030C030C030C030C030'      P6612000
003108 C030E030F030D830            7094 BLOCKN   DC    X'C030E030F030D830CC30C630C330C1B0C0F0C070C030C010'      P6614000
003120 FFF0FFF0C030C030            7095 BLOCKO   DC    X'FFF0FFF0C030C030C030C030C030C030C030C030FFF0FFF0'      P6616000

003138 FFE0FFF0C030C030            7096 BLOCKP   DC    X'FFE0FFF0C030C030C030FFF0FFE0C000C000C000C000C000'      P6618000
003150 7FE0FFF0C030C030            7097 BLOCKQ   DC    X'7FE0FFF0C030C030C030C030C030C330C1B0C0F0FFE07FB0'      P6620000
003168 FFE0FFF0C030C030            7098 BLOCKR   DC    X'FFE0FFF0C030C030C030FFF0FFE0C300C180C0C0C060C030'      P6622000
003180 06007FE0FFF0C630            7099 BLOCK$   DC    X'06007FE0FFF0C630E6007FC03FE00670C630FFF07FE00600'      P6624000
003198 7FE0FFF0C030C000            7100 BLOCKS   DC    X'7FE0FFF0C030C000E0007FC03FE000700030C030FFF07FE0'      P6626000
0031B0 FFF0FFF006000600            7101 BLOCKT   DC    X'FFF0FFF00600060006000600060006000600060006000600'      P6628000
0031C8 C030C030C030C030            7102 BLOCKU   DC    X'C030C030C030C030C030C030C030C030C030C030FFF07FE0'      P6630000

0031E0 C030C030C030C030            7103 BLOCKV   DC    X'C030C030C030C030C030C030C030606030C019800F000600'      P6632000
0031F8 C030C030C030C030            7104 BLOCKW   DC    X'C030C030C030C030C030C030C630CF30D9B0F0F0E070C030'      P6634000
003210 C030C030606030C0            7105 BLOCKX   DC    X'C030C030606030C019800F000F00198030C06060C030C030'      P6636000
003228 C030C030606030C0            7106 BLOCKY   DC    X'C030C030606030C019800F00060006000600060006000600'      P6638000
003240 FFF0FFF0006000C0            7107 BLOCKZ   DC    X'FFF0FFF0006000C00180030006000C00180030007FF0FFF0'      P6640000

003258 3FC07FE0C030C030            7108 BLOCK0   DC    X'3FC07FE0C030C030C030C030C030C030C030C0307FE03FC0'      P6642000
003270 06000E001E000600            7109 BLOCK1   DC    X'06000E001E0006000600060006000600060006007FE07FE0'      P6644000
003288 7FE0FFF0C0300030            7110 BLOCK2   DC    X'7FE0FFF0C0300030003000600180060018006000FFF0FFF0'      P6646000
0032A0 7FE0FFF0C0300030            7111 BLOCK3   DC    X'7FE0FFF0C0300030003001E001E000300030C030FFF07FE0'      P6648000

0032B8 038007800D801980            7112 BLOCK4   DC    X'038007800D80198031807FF0FFF001800180018001800180'      P6650000
0032D0 FFF0FFF0C000C000            7113 BLOCK5   DC    X'FFF0FFF0C000C000C000FF80FFC0006000300030FFF0FFE0'      P6652000
0032E8 7FE0FFF0C030C000            7114 BLOCK6   DC    X'7FE0FFF0C030C000C000FFE0FFF0C030C030C030FFF07FE0'      P6654000
003300 FFF0FFE0C0C00180            7115 BLOCK7   DC    X'FFF0FFE0C0C0018003000600060006000600060006000600'      P6656000
003318 7FE0FFF0C030C030            7116 BLOCK8   DC    X'7FE0FFF0C030C03060603FC03FC06060C030C030FFF07FE0'      P6658000
003330 7FE0FFF0C030C030            7117 BLOCK9   DC    X'7FE0FFF0C030C030C030FFF0FFF000300030C030FFF07FE0'      P6660000

003348 30C030C0FFF0FFF0            7118 BLOCK#   DC    X'30C030C0FFF0FFF030C030C030C030C0FFF0FFF030C030C0'      P6662000
003360 3FC07FE0C0300030            7119 BLOCK@   DC    X'3FC07FE0C030003000301E303F306330C330C3307FE03FC0'      P6664000
003378 0001020304050607            7120 BLOCKTR  DC    X'00010203040506070809'                                  P6666000
003382 00000000000000              7121          DC    7X'00'                                                   P6668000
003389 0A0B0C0D0E0F1011            7122          DC    X'0A0B0C0D0E0F1011120013'                                P6670000

003394 000000000000                7123          DC    6X'00'                                                   P6672000
PRPU     HASP PRINT/PUNCH SERVICE -- BLOCK LETTER TABLES                                                       PAGE  156


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00339A 1415161718191A1B            7124          DC    X'1415161718191A1B'                                      P6674000
0033A2 000000000000                7125          DC    6X'00'                                                   P6676000

0033A8 1C1D1E1F20212223            7126          DC    X'1C1D1E1F202122232425002627'                            P6678000
002A52                             7127 HASPPRPU CSECT                                                          P6680000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  157


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7129 *                                                                       P6684000

                                   7130 *                             1403 UNIVERSAL CHARACTER SET IMAGES       P6686000
                                   7131 *                                                                       P6688000





002A52                             7133 PUCSTAB  DS    0H                  START OF UCSB/FCB OCON TABLE         P6692000

                                   7134         $OCON  HASPPRAN            1403 'AN' UCS IMAGE                  P6694000
000000                             7135+HA$QPRAN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002A52                             7136+HASPPRPU CSECT                                                          OC012000
002A52 0000                        7137+         DC    0H'0',QL2(HA$QPRAN) GENERATE OCON                        OC014000
002A54 E4C3E2F8C1D54040            7138 PUCSTYPE DC    CL8'UCS8AN'         USER ID 'AN' FOR 1403                P6696000
002A5C                             7139 PUCSTAB1 DS    0H                  END OF 1ST ENTRY                     P6698000

                                   7140         $OCON  HASPPRAN            1403 'AN' UCS IMAGE                  P6700000
000000                             7141+HA$QPRAN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002A5C                             7142+HASPPRPU CSECT                                                          OC012000
002A5C 0000                        7143+         DC    0H'0',QL2(HA$QPRAN) GENERATE OCON                        OC014000

002A5E E4C3E2F8C1404040            7144          DC    CL8'UCS8A'          USER ID 'A' FOR 1403                 P6702000
                                   7145         $OCON  HASPPRAN            1403 'AN' UCS IMAGE                  P6704000
000000                             7146+HA$QPRAN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002A66                             7147+HASPPRPU CSECT                                                          OC012000
002A66 0000                        7148+         DC    0H'0',QL2(HA$QPRAN) GENERATE OCON                        OC014000

002A68 E4C3E2F8C1F1F140            7149          DC    CL8'UCS8A11'        USER ID 'A11' FOR 1403               P6706000
                                   7150 HASPPRAN $OVERLAY &MED,&LOW,NOUSING     1403 'AN' UCS IMAGE             P6708000
0033B8                             7151+HA$OPRAN CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            033C0  7152+HA$IPRAN EQU   HA$OPRAN+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7153+         ENTRY HA$IPRAN                                                 OV036000
0033B8 D7D9C1D5                    7154+         DC    CL4'PRAN'           IDENTIFY MODULE ON CORE DUMP         OV038000
0033BC 000033B8                    7155+         DC    A(HA$OPRAN)         ASSEMBLY ORIGIN                      OV040000

0033C0                             7156+HASPPRAN DS    0F                  ENTRY POINT                          OV042000
0033C0 EB00000060000001            7157          CCW   X'EB',0,X'60',1     CONTROL CCW                          P6710000
0033C8 7300000060000001            7158          CCW   X'73',0,X'60',1     BLOCK DATA CHECK CCW                 P6712000

0033D0 F3000070600000F0            7159          CCW   X'F3',BUFSTART+24-BUFDSECT,X'60',240    LOAD UCS CCW     P6714000
0033D8 F1F2F3F4F5F6F7F8            7160          DC    5C'1234567890#@/STUVWXYZ&&,%JKLMNOPQR-$*ABCDEFGHI+.<'    P6716000
002A70                             7161 HASPPRPU CSECT                                                          P6718000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  158


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   7163         $OCON  HASPPRHN            1403 'HN' UCS IMAGE                  P6722000
000000                             7164+HA$QPRHN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002A70                             7165+HASPPRPU CSECT                                                          OC012000
002A70 0000                        7166+         DC    0H'0',QL2(HA$QPRHN) GENERATE OCON                        OC014000
002A72 E4C3E2F8C8D54040            7167          DC    CL8'UCS8HN'         USER ID 'HN' FOR 1403                P6724000
                                   7168         $OCON  HASPPRHN            1403 'HN' UCS IMAGE                  P6726000
000000                             7169+HA$QPRHN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002A7A                             7170+HASPPRPU CSECT                                                          OC012000

002A7A 0000                        7171+         DC    0H'0',QL2(HA$QPRHN) GENERATE OCON                        OC014000
002A7C E4C3E2F8C8404040            7172          DC    CL8'UCS8H'          USER ID 'H' FOR 1403                 P6728000

                                   7173         $OCON  HASPPRHN            1403 'HN' UCS IMAGE                  P6730000
000000                             7174+HA$QPRHN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002A84                             7175+HASPPRPU CSECT                                                          OC012000
002A84 0000                        7176+         DC    0H'0',QL2(HA$QPRHN) GENERATE OCON                        OC014000
002A86 E4C3E2F8C8F1F140            7177          DC    CL8'UCS8H11'        USER ID 'H11' FOR 1403               P6732000

                                   7178 HASPPRHN $OVERLAY &MED,&LOW,NOUSING     1403 'HN' UCS IMAGE             P6734000
0034C8                             7179+HA$OPRHN CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            034D0  7180+HA$IPRHN EQU   HA$OPRHN+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7181+         ENTRY HA$IPRHN                                                 OV036000
0034C8 D7D9C8D5                    7182+         DC    CL4'PRHN'           IDENTIFY MODULE ON CORE DUMP         OV038000
0034CC 000034C8                    7183+         DC    A(HA$OPRHN)         ASSEMBLY ORIGIN                      OV040000
0034D0                             7184+HASPPRHN DS    0F                  ENTRY POINT                          OV042000
0034D0 EB00000060000001            7185          CCW   X'EB',0,X'60',1     CONTROL CCW                          P6736000

0034D8 7300000060000001            7186          CCW   X'73',0,X'60',1     BLOCK DATA CHECK CCW                 P6738000
0034E0 F3000070600000F0            7187          CCW   X'F3',BUFSTART+24-BUFDSECT,X'60',240    LOAD UCS CCW     P6740000

0034E8 F1F2F3F4F5F6F7F8            7188          DC    5C'1234567890=''/STUVWXYZ&&,(JKLMNOPQR-$*ABCDEFGHI+.)'   P6742000
002A8E                             7189 HASPPRPU CSECT                                                          P6744000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  159


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7191         $OCON  HASPPRPN            1403 'PN' UCS IMAGE                  P6748000

000000                             7192+HA$QPRPN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002A8E                             7193+HASPPRPU CSECT                                                          OC012000
002A8E 0000                        7194+         DC    0H'0',QL2(HA$QPRPN) GENERATE OCON                        OC014000
002A90 E4C3E2F8D7D54040            7195          DC    CL8'UCS8PN'         USER ID 'PN' FOR 1403                P6750000
                                   7196         $OCON  HASPPRPN            1403 'PN' UCS IMAGE                  P6752000
000000                             7197+HA$QPRPN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002A98                             7198+HASPPRPU CSECT                                                          OC012000
002A98 0000                        7199+         DC    0H'0',QL2(HA$QPRPN) GENERATE OCON                        OC014000
002A9A E4C3E2F8D7404040            7200          DC    CL8'UCS8P'          USER ID 'P' FOR 1403                 P6754000

                                   7201         $OCON  HASPPRPN            1403 'PN' UCS IMAGE                  P6756000

000000                             7202+HA$QPRPN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002AA2                             7203+HASPPRPU CSECT                                                          OC012000
002AA2 0000                        7204+         DC    0H'0',QL2(HA$QPRPN) GENERATE OCON                        OC014000
002AA4 E4C3E2F8D7F1F140            7205          DC    CL8'UCS8P11'        USER ID 'P11' FOR 1403               P6758000
                                   7206 HASPPRPN $OVERLAY &MED,&LOW,NOUSING     1403 'PN' UCS IMAGE             P6760000

0035D8                             7207+HA$OPRPN CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            035E0  7208+HA$IPRPN EQU   HA$OPRPN+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7209+         ENTRY HA$IPRPN                                                 OV036000
0035D8 D7D9D7D5                    7210+         DC    CL4'PRPN'           IDENTIFY MODULE ON CORE DUMP         OV038000
0035DC 000035D8                    7211+         DC    A(HA$OPRPN)         ASSEMBLY ORIGIN                      OV040000
0035E0                             7212+HASPPRPN DS    0F                  ENTRY POINT                          OV042000
0035E0 EB00000060000001            7213          CCW   X'EB',0,X'60',1     CONTROL CCW                          P6762000
0035E8 7300000060000001            7214          CCW   X'73',0,X'60',1     BLOCK DATA CHECK CCW                 P6764000
0035F0 F3000070600000F0            7215          CCW   X'F3',BUFSTART+24-BUFDSECT,X'60',240    LOAD UCS CCW     P6766000
0035F8 F1F2F3F4F5F6F7F8            7216          DC    4C'1234567890XY/STUVW:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&CP6768000

003600 F9F0E7E861E2E3E4                                &@<;^''?>'                                               P6770000

002AAC                             7217 HASPPRPU CSECT                                                          P6772000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  160


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7219         $OCON  HASPPRQN            1403 'QN' UCS IMAGE                  P6776000

000000                             7220+HA$QPRQN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002AAC                             7221+HASPPRPU CSECT                                                          OC012000
002AAC 0000                        7222+         DC    0H'0',QL2(HA$QPRQN) GENERATE OCON                        OC014000
002AAE E4C3E2F8D8D54040            7223          DC    CL8'UCS8QN'         USER ID 'QN' FOR 1403                P6778000
                                   7224         $OCON  HASPPRQN            1403 'QN' UCS IMAGE                  P6780000
000000                             7225+HA$QPRQN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002AB6                             7226+HASPPRPU CSECT                                                          OC012000
002AB6 0000                        7227+         DC    0H'0',QL2(HA$QPRQN) GENERATE OCON                        OC014000
002AB8 E4C3E2F8D8404040            7228          DC    CL8'UCS8Q'          USER ID 'Q' FOR 1403                 P6782000
                                   7229 HASPPRQN $OVERLAY &MED,&LOW,NOUSING     1403 'QN' UCS IMAGE             P6784000
0036E8                             7230+HA$OPRQN CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            036F0  7231+HA$IPRQN EQU   HA$OPRQN+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7232+         ENTRY HA$IPRQN                                                 OV036000
0036E8 D7D9D8D5                    7233+         DC    CL4'PRQN'           IDENTIFY MODULE ON CORE DUMP         OV038000
0036EC 000036E8                    7234+         DC    A(HA$OPRQN)         ASSEMBLY ORIGIN                      OV040000

0036F0                             7235+HASPPRQN DS    0F                  ENTRY POINT                          OV042000
0036F0 EB00000060000001            7236          CCW   X'EB',0,X'60',1     CONTROL CCW                          P6786000
0036F8 7300000060000001            7237          CCW   X'73',0,X'60',1     BLOCK DATA CHECK CCW                 P6788000
003700 F3000070600000F0            7238          CCW   X'F3',BUFSTART+24-BUFDSECT,X'60',240    LOAD UCS CCW     P6790000
003708 F1F2F3F4F5F6F7F8            7239          DC    C'1234567890XY/STUVW_"$*,=JKLMNOPQR-Z(ABCDEFGHI+.)'      P6792000
003738 F1F2F3F4F5F6F7F8            7240          DC    C'1234567890XY/STUVW<;#*,=JKLMNOPQR-Z(ABCDEFGHI+.)'      P6794000
003768 F1F2F3F4F5F6F7F8            7241          DC    C'1234567890XY/STUVW?>@*,=JKLMNOPQR-Z(ABCDEFGHI+.)'      P6796000
003798 F1F2F3F4F5F6F7F8            7242          DC    C'1234567890XY/STUVW^''&&*,=JKLMNOPQR-Z(ABCDEFGHI+.)'    P6798000
0037C8 F1F2F3F4F5F6F7F8            7243          DC    C'1234567890XY/STUVW:%*,=JKLMNOPQR-Z(ABCDEFGHI+.)'      P6800000
002AC0                             7244 HASPPRPU CSECT                                                          P6802000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  161


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   7246         $OCON  HASPPRRN            1403 'RN' UCS IMAGE                  P6806000
000000                             7247+HA$QPRRN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002AC0                             7248+HASPPRPU CSECT                                                          OC012000

002AC0 0000                        7249+         DC    0H'0',QL2(HA$QPRRN) GENERATE OCON                        OC014000
002AC2 E4C3E2F8D9D54040            7250          DC    CL8'UCS8RN'         USER ID 'RN' FOR 1403                P6808000
                                   7251         $OCON  HASPPRRN            1403 'RN' UCS IMAGE                  P6810000
000000                             7252+HA$QPRRN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002ACA                             7253+HASPPRPU CSECT                                                          OC012000
002ACA 0000                        7254+         DC    0H'0',QL2(HA$QPRRN) GENERATE OCON                        OC014000
002ACC E4C3E2F8D9404040            7255          DC    CL8'UCS8R'          USER ID 'R' FOR 1403                 P6812000
                                   7256 HASPPRRN $OVERLAY &MED,&LOW,NOUSING     1403 'RN' UCS IMAGE             P6814000
0037F8                             7257+HA$OPRRN CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            03800  7258+HA$IPRRN EQU   HA$OPRRN+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7259+         ENTRY HA$IPRRN                                                 OV036000
0037F8 D7D9D9D5                    7260+         DC    CL4'PRRN'           IDENTIFY MODULE ON CORE DUMP         OV038000

0037FC 000037F8                    7261+         DC    A(HA$OPRRN)         ASSEMBLY ORIGIN                      OV040000

003800                             7262+HASPPRRN DS    0F                  ENTRY POINT                          OV042000
003800 EB00000060000001            7263          CCW   X'EB',0,X'60',1     CONTROL CCW                          P6816000

003808 7300000060000001            7264          CCW   X'73',0,X'60',1     BLOCK DATA CHECK CCW                 P6818000
003810 F3000070600000F0            7265          CCW   X'F3',BUFSTART+24-BUFDSECT,X'60',240    LOAD UCS CCW     P6820000
003818 F1F2F3F4F5F6F7F8            7266          DC    C'1234567890XY/STUVW''@$*,=JKLMNOPQR-Z(ABCDEFGHI+.)'     P6822000
003848 F1F2F3F4F5F6F7F8            7267          DC    C'1234567890XY/STUVW%@$*,=JKLMNOPQR-Z(ABCDEFGHI+.)'      P6824000
003878 F1F2F3F4F5F6F7F8            7268          DC    C'1234567890XY/STUVW#@$*,=JKLMNOPQR-Z(ABCDEFGHI+.)'      P6826000
0038A8 F1F2F3F4F5F6F7F8            7269          DC    C'1234567890XY/STUVW<@$*,=JKLMNOPQR-Z(ABCDEFGHI+.)'      P6828000
0038D8 F1F2F3F4F5F6F7F8            7270          DC    C'1234567890XY/STUVW&&@$*,=JKLMNOPQR-Z(ABCDEFGHI+.)'     P6830000
002AD4                             7271 HASPPRPU CSECT                                                          P6832000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  162


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7273         $OCON  HASPPRUN            1403 USER UCS IMAGE                  P6836000
000000                             7274+HA$QPRUN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000

002AD4                             7275+HASPPRPU CSECT                                                          OC012000
002AD4 0000                        7276+         DC    0H'0',QL2(HA$QPRUN) GENERATE OCON                        OC014000

002AD6 E4C3E2F8E4D54040            7277          DC    CL8'UCS8UN'         USER ID 'UN' FOR 1403                P6838000

                                   7278         $OCON  HASPPRUN            1403 USER UCS IMAGE                  P6840000
000000                             7279+HA$QPRUN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002ADE                             7280+HASPPRPU CSECT                                                          OC012000
002ADE 0000                        7281+         DC    0H'0',QL2(HA$QPRUN) GENERATE OCON                        OC014000
002AE0 E4C3E2F8E4404040            7282          DC    CL8'UCS8U'          USER ID 'U' FOR 1403                 P6842000
                                   7283         $OCON  HASPPRUN            1403 USER UCS IMAGE                  P6844000
000000                             7284+HA$QPRUN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002AE8                             7285+HASPPRPU CSECT                                                          OC012000
002AE8 0000                        7286+         DC    0H'0',QL2(HA$QPRUN) GENERATE OCON                        OC014000
002AEA E4C3E2F8E4F1F140            7287          DC    CL8'UCS8U11'        USER ID 'U11' FOR 1403               P6846000
                                   7288 HASPPRUN $OVERLAY &MED,&LOW,NOUSING     1403 USER UCS IMAGE             P6848000
003908                             7289+HA$OPRUN CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            03910  7290+HA$IPRUN EQU   HA$OPRUN+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7291+         ENTRY HA$IPRUN                                                 OV036000
003908 D7D9E4D5                    7292+         DC    CL4'PRUN'           IDENTIFY MODULE ON CORE DUMP         OV038000

00390C 00003908                    7293+         DC    A(HA$OPRUN)         ASSEMBLY ORIGIN                      OV040000
003910                             7294+HASPPRUN DS    0F                  ENTRY POINT                          OV042000
003910 0300000060000001            7295          CCW   X'03',0,X'60',1     NOP CCW                              P6850000
003918 0300000060000001            7296          CCW   X'03',0,X'60',1     NOP CCW                              P6852000
003920 0300000060000001            7297          CCW   X'03',0,X'60',1     NOP CCW                              P6854000
002AF2                             7298 HASPPRPU CSECT                                                          P6856000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  163


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7300 *                                                                       P6860000
                                   7301 *                             3211 UNIVERSAL CHARACTER SET IMAGES       P6862000
                                   7302 *                                                                       P6864000




                                   7304         $OCON  HASPPRA1            3211 'A11' UCS IMAGE                 P6868000
000000                             7305+HA$QPRA1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002AF2                             7306+HASPPRPU CSECT                                                          OC012000
002AF2 0000                        7307+         DC    0H'0',QL2(HA$QPRA1) GENERATE OCON                        OC014000

002AF4 E4C3E2F9C1F1F140            7308          DC    CL8'UCS9A11'        USER ID 'A11' FOR 3211               P6870000
                                   7309         $OCON  HASPPRA1            3211 'A11' UCSB IMAGE                P6872000
000000                             7310+HA$QPRA1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002AFC                             7311+HASPPRPU CSECT                                                          OC012000
002AFC 0000                        7312+         DC    0H'0',QL2(HA$QPRA1) GENERATE OCON                        OC014000
002AFE E4C3E2F9C1404040            7313          DC    CL8'UCS9A'          USER ID 'A' FOR 3211                 P6874000

                                   7314         $OCON  HASPPRA1            3211 'A11' UCSB IMAGE                P6876000
000000                             7315+HA$QPRA1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002B06                             7316+HASPPRPU CSECT                                                          OC012000
002B06 0000                        7317+         DC    0H'0',QL2(HA$QPRA1) GENERATE OCON                        OC014000
002B08 E4C3E2F9C1D54040            7318          DC    CL8'UCS9AN'         USER ID 'AN' FOR 3211                P6878000
                                   7319 HASPPRA1 $OVERLAY &MED,&LOW,NOUSING     3211 'A11' UCS IMAGE            P6880000
003928                             7320+HA$OPRA1 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            03930  7321+HA$IPRA1 EQU   HA$OPRA1+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   7322+         ENTRY HA$IPRA1                                                 OV036000
003928 D7D9C1F1                    7323+         DC    CL4'PRA1'           IDENTIFY MODULE ON CORE DUMP         OV038000

00392C 00003928                    7324+         DC    A(HA$OPRA1)         ASSEMBLY ORIGIN                      OV040000
003930                             7325+HASPPRA1 DS    0F                  ENTRY POINT                          OV042000
003930 FB00007040000200            7326          CCW   X'FB',BUFSTART+24-BUFDSECT,X'40',512    LOAD UCSB CCW    P6882000
003938 4300000060000001            7327          CCW   X'43',0,X'60',1     FOLD CCW                             P6884000
003940 7300000060000001            7328          CCW   X'73',0,X'60',1     BLOCK DATA CHECK CCW                 P6886000
003948 F14C4B4EC9C8C7C6            7329          DC    9C'1<.+IHGFEDCBA*$-RQPONMLKJ%,&&ZYXWVUTS/@#098765432'    P6888000
003AF8 C1F1F10000000000            7330          DC    C'A11',12X'00'                         LEGAL CHARACTERS  P6890000
003B07 C010101010101010            7331          DC    X'C0101010101010101010004040424000'      ABCDEFGHI.<(+   P6892000

003B17 4010101010101010            7332          DC    X'40101010101010101010004040410000'     &JKLMNOPQR$*)    P6894000
003B27 4040101010101010            7333          DC    X'40401010101010101010004040000000'     -/STUVWXYZ,%     P6896000
003B37 1010101010101010            7334          DC    X'1010101010101010101000404044480000'   0123456789#@'=   P6898000
002B10                             7335 HASPPRPU CSECT                                                          P6900000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  164



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7337         $OCON  HASPPRH1            3211 'H11' UCS IMAGE                 P6904000
000000                             7338+HA$QPRH1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000

002B10                             7339+HASPPRPU CSECT                                                          OC012000
002B10 0000                        7340+         DC    0H'0',QL2(HA$QPRH1) GENERATE OCON                        OC014000
002B12 E4C3E2F9C8F1F140            7341          DC    CL8'UCS9H11'        USER ID 'H11' FOR 3211               P6906000
                                   7342         $OCON  HASPPRH1            3211 'H11' UCSB IMAGE                P6908000
000000                             7343+HA$QPRH1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002B1A                             7344+HASPPRPU CSECT                                                          OC012000
002B1A 0000                        7345+         DC    0H'0',QL2(HA$QPRH1) GENERATE OCON                        OC014000

002B1C E4C3E2F9C8404040            7346          DC    CL8'UCS9H'          USER ID 'H' FOR 3211                 P6910000
                                   7347         $OCON  HASPPRH1            3211 'H11' UCSB IMAGE                P6912000
000000                             7348+HA$QPRH1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002B24                             7349+HASPPRPU CSECT                                                          OC012000
002B24 0000                        7350+         DC    0H'0',QL2(HA$QPRH1) GENERATE OCON                        OC014000

002B26 E4C3E2F9C8D54040            7351          DC    CL8'UCS9HN'         USER ID 'HN' FOR 3211                P6914000
                                   7352 HASPPRH1 $OVERLAY &MED,&LOW,NOUSING     3211 'H11' UCS IMAGE            P6916000
003B48                             7353+HA$OPRH1 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            03B50  7354+HA$IPRH1 EQU   HA$OPRH1+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   7355+         ENTRY HA$IPRH1                                                 OV036000
003B48 D7D9C8F1                    7356+         DC    CL4'PRH1'           IDENTIFY MODULE ON CORE DUMP         OV038000
003B4C 00003B48                    7357+         DC    A(HA$OPRH1)         ASSEMBLY ORIGIN                      OV040000
003B50                             7358+HASPPRH1 DS    0F                  ENTRY POINT                          OV042000
003B50 FB00007040000200            7359          CCW   X'FB',BUFSTART+24-BUFDSECT,X'40',512    LOAD UCSB CCW    P6918000
003B58 4300000060000001            7360          CCW   X'43',0,X'60',1     FOLD CCW                             P6920000

003B60 7300000060000001            7361          CCW   X'73',0,X'60',1     BLOCK DATA CHECK CCW                 P6922000
003B68 F1C8C7C6C54C4B4E            7362          DC    9C'1HGFE<.+IDCBA*$-RQPONMLKJ%,&&ZYXWV8765@#09UTS/432'    P6924000
003D18 C8F1F10000000000            7363          DC    C'H11',12X'00'                         LEGAL CHARACTERS  P6926000
003D27 C010101010101010            7364          DC    X'C0101010101010101010004040424000'      ABCDEFGHI.<(+   P6928000
003D37 4010101010101010            7365          DC    X'40101010101010101010004040410000'     &JKLMNOPQR$*)    P6930000

003D47 4040101010101010            7366          DC    X'40401010101010101010004040000000'     -/STUVWXYZ,%     P6932000
003D57 1010101010101010            7367          DC    X'1010101010101010101000404044480000'   0123456789#@'=   P6934000
002B2E                             7368 HASPPRPU CSECT                                                          P6936000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  165


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   7370         $OCON  HASPPRP1            3211 'P11' UCS IMAGE                 P6940000
000000                             7371+HA$QPRP1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002B2E                             7372+HASPPRPU CSECT                                                          OC012000
002B2E 0000                        7373+         DC    0H'0',QL2(HA$QPRP1) GENERATE OCON                        OC014000
002B30 E4C3E2F9D7F1F140            7374          DC    CL8'UCS9P11'        USER ID 'P11' FOR 3211               P6942000

                                   7375         $OCON  HASPPRP1            3211 'P11' UCSB IMAGE                P6944000
000000                             7376+HA$QPRP1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002B38                             7377+HASPPRPU CSECT                                                          OC012000
002B38 0000                        7378+         DC    0H'0',QL2(HA$QPRP1) GENERATE OCON                        OC014000
002B3A E4C3E2F9D7404040            7379          DC    CL8'UCS9P'          USER ID 'P' FOR 3211                 P6946000

                                   7380         $OCON  HASPPRP1            3211 'P11' UCSB IMAGE                P6948000
000000                             7381+HA$QPRP1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002B42                             7382+HASPPRPU CSECT                                                          OC012000
002B42 0000                        7383+         DC    0H'0',QL2(HA$QPRP1) GENERATE OCON                        OC014000
002B44 E4C3E2F9D7D54040            7384          DC    CL8'UCS9PN'         USER ID 'PN' FOR 3211                P6950000
                                   7385 HASPPRP1 $OVERLAY &MED,&LOW,NOUSING     3211 'P11' UCS IMAGE            P6952000

003D68                             7386+HA$OPRP1 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            03D70  7387+HA$IPRP1 EQU   HA$OPRP1+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7388+         ENTRY HA$IPRP1                                                 OV036000
003D68 D7D9D7F1                    7389+         DC    CL4'PRP1'           IDENTIFY MODULE ON CORE DUMP         OV038000

003D6C 00003D68                    7390+         DC    A(HA$OPRP1)         ASSEMBLY ORIGIN                      OV040000
003D70                             7391+HASPPRP1 DS    0F                  ENTRY POINT                          OV042000
003D70 FB00007040000200            7392          CCW   X'FB',BUFSTART+24-BUFDSECT,X'40',512    LOAD UCSB CCW    P6954000
003D78 4300000060000001            7393          CCW   X'43',0,X'60',1     FOLD CCW                             P6956000
003D80 7300000060000001            7394          CCW   X'73',0,X'60',1     BLOCK DATA CHECK CCW                 P6958000

003D88 F17DC2C4D1D360F5            7395          DC    4C'1''BDJL-5K*C(NA@=E0?)S^#R>V92"68<XYTGF%H._UO7/P3WMIQCP6960000
003D90 D25CC34DD5C17C7E                                ,41''BDJL-5K*C(N0$=E:#)SA&&RZV9+G682;YT<XF%H._UO7/P3WMIQCP6962000
003D98 C5F06F5DE25F7BD9                                ,4'                                                      P6964000
003F38 D7F1F10000000000            7396          DC    C'P11',12X'00'                         LEGAL CHARACTERS  P6966000
003F47 C010101010101010            7397          DC    X'C0101010101010101010004040404040'      ABCDEFGHI.<(+  P6968000
003F57 4010101010101010            7398          DC    X'40101010101010101010004040404040'     &JKLMNOPQR$*);^  P6970000

003F67 4040101010101010            7399          DC    X'40401010101010101010004040404040'     -/STUVWXYZ,%_>?  P6972000
003F77 1010101010101010            7400          DC    X'1010101010101010101040404040404000'   0123456789:#@'=" P6974000
002B4C                             7401 HASPPRPU CSECT                                                          P6976000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  166



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7403         $OCON  HASPPRU1            3211 USER UCS IMAGE                  P6980000
000000                             7404+HA$QPRU1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002B4C                             7405+HASPPRPU CSECT                                                          OC012000
002B4C 0000                        7406+         DC    0H'0',QL2(HA$QPRU1) GENERATE OCON                        OC014000

002B4E E4C3E2F9E4F1F140            7407          DC    CL8'UCS9U11'        USER ID 'U11' FOR 3211               P6982000
                                   7408         $OCON  HASPPRU1            3211 USER UCSB IMAGE                 P6984000
000000                             7409+HA$QPRU1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002B56                             7410+HASPPRPU CSECT                                                          OC012000
002B56 0000                        7411+         DC    0H'0',QL2(HA$QPRU1) GENERATE OCON                        OC014000
002B58 E4C3E2F9E4404040            7412          DC    CL8'UCS9U'          USER ID 'U' FOR 3211                 P6986000
                                   7413         $OCON  HASPPRU1            3211 USER UCSB IMAGE                 P6988000

000000                             7414+HA$QPRU1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002B60                             7415+HASPPRPU CSECT                                                          OC012000
002B60 0000                        7416+         DC    0H'0',QL2(HA$QPRU1) GENERATE OCON                        OC014000

002B62 E4C3E2F9E4D54040            7417          DC    CL8'UCS9UN'         USER ID 'UN' FOR 3211                P6990000
                                   7418 HASPPRU1 $OVERLAY &MED,&LOW,NOUSING     3211 USER UCS IMAGE             P6992000
003F88                             7419+HA$OPRU1 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            03F90  7420+HA$IPRU1 EQU   HA$OPRU1+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7421+         ENTRY HA$IPRU1                                                 OV036000

003F88 D7D9E4F1                    7422+         DC    CL4'PRU1'           IDENTIFY MODULE ON CORE DUMP         OV038000
003F8C 00003F88                    7423+         DC    A(HA$OPRU1)         ASSEMBLY ORIGIN                      OV040000
003F90                             7424+HASPPRU1 DS    0F                  ENTRY POINT                          OV042000
003F90 0300000060000001            7425          CCW   X'03',0,X'60',1     NOP CCW                              P6994000
003F98 0300000060000001            7426          CCW   X'03',0,X'60',1     NOP CCW                              P6996000
003FA0 0300000060000001            7427          CCW   X'03',0,X'60',1     NOP CCW                              P6998000
002B6A                             7428 HASPPRPU CSECT                                                          P7000000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  167



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7430 *                                                                       P7004000

                                   7431 *                             3211 FORMS CONTROL IMAGES                 P7006000
                                   7432 *                                                                       P7008000



                                   7434 *                                                                       P7012000
                                   7435 *              NOTE TO SYSTEM PROGRAMMERS ---                           P7014000

                                   7436 *                                                                       P7016000
                                   7437 *        CARD SEQUENCE NUMBERS P7028001 THRU P7031999                   P7018000
                                   7438 *        HAVE BEEN RESERVED FOR THE INSERTION OF                        P7020000
                                   7439 *        USER DEFINED 3211 FCB IMAGES.                                  P7022000
                                   7440 *                                                                       P7024000
                                   7441 *        IMAGE ID'S U, V, 1, 6, AND 8 ARE RESERVED - DO NOT USE.        P7026000
                                   7442 *                                                                       P7028000


                                   7444 FCB6    $FCB   6,66,1-1,2-7,3-13,4-19,5-25,6-31,7-37,8-43,10-49,       CP7032000

                                                       11-55,12-61,9-63                                         P7034000

PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  168


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7446+******************************************************************      FC288000
                                   7447+*                                                                *      FC290000
                                   7448+*,3211 FORMS CONTROL BUFFER LOAD FOR $T PRTN,C=6

                                   7449+*                                                                *      FC294000
                                   7450+******************************************************************      FC296000
                                   7451+*                                                                *      FC298000

000000                             7453+HA$QC461 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002B6A                             7454+HASPPRPU CSECT                                                          OC012000
002B6A 0000                        7455+         DC    0H'0',QL2(HA$QC461) GENERATE OCON                        OC014000
002B6C C6C3C2F9F6404040            7456+         DC    CL8'FCB96'          FCB ID FOR 3211                      FC308000

                                   7458+*                             ESTABLISH OVERLAY CSECT                   FC314000

003FA8                             7459+HA$OC461 CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            03FB0  7460+HA$IC461 EQU   HA$OC461+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7461+         ENTRY HA$IC461                                                 OV036000
003FA8 C3F4F6F1                    7462+         DC    CL4'C461'           IDENTIFY MODULE ON CORE DUMP         OV038000
003FAC 00003FA8                    7463+         DC    A(HA$OC461)         ASSEMBLY ORIGIN                      OV040000

003FB0                             7464+HASPC461 DS    0F                  ENTRY POINT                          OV042000
                                   7465+*                             GENERATE CCWS                             FC318000
003FB0 6300007060000043            7466+         CCW   X'63',BUFSTART+24-BUFDSECT,X'60',67                      FC320000
003FB8 0300000060000001            7467+         CCW   X'03',0,X'60',1                                          FC322000
003FC0 0300000060000001            7468+         CCW   X'03',0,X'60',1                                          FC324000
                                   7469+*                             GENERATE FORMS CONTROL BUFFER             FC326000
003FC8 81                          7470+         DC    AL1(129),0C'         PRINTING STARTS AT POSITION 1'      FC337000
003FC9 01                          7471+         DC    AL1(1),0C'          CHAN  1 IS AT LINE 1'                FC380000
003FCA 0000000000                  7472+         DC    5AL1(0)                                                  FC348000
003FCF 02                          7473+         DC    AL1(2),0C'          CHAN  2 IS AT LINE 7'                FC380000
003FD0 0000000000                  7474+         DC    5AL1(0)                                                  FC348000

003FD5 03                          7475+         DC    AL1(3),0C'          CHAN  3 IS AT LINE 13'               FC380000
003FD6 0000000000                  7476+         DC    5AL1(0)                                                  FC348000
003FDB 04                          7477+         DC    AL1(4),0C'          CHAN  4 IS AT LINE 19'               FC380000
003FDC 0000000000                  7478+         DC    5AL1(0)                                                  FC348000

003FE1 05                          7479+         DC    AL1(5),0C'          CHAN  5 IS AT LINE 25'               FC380000
003FE2 0000000000                  7480+         DC    5AL1(0)                                                  FC348000
003FE7 06                          7481+         DC    AL1(6),0C'          CHAN  6 IS AT LINE 31'               FC380000
003FE8 0000000000                  7482+         DC    5AL1(0)                                                  FC348000
003FED 07                          7483+         DC    AL1(7),0C'          CHAN  7 IS AT LINE 37'               FC380000
003FEE 0000000000                  7484+         DC    5AL1(0)                                                  FC348000
003FF3 08                          7485+         DC    AL1(8),0C'          CHAN  8 IS AT LINE 43'               FC380000
003FF4 0000000000                  7486+         DC    5AL1(0)                                                  FC348000
003FF9 0A                          7487+         DC    AL1(10),0C'         CHAN 10 IS AT LINE 49'               FC380000
003FFA 0000000000                  7488+         DC    5AL1(0)                                                  FC348000
003FFF 0B                          7489+         DC    AL1(11),0C'         CHAN 11 IS AT LINE 55'               FC380000
004000 0000000000                  7490+         DC    5AL1(0)                                                  FC348000

004005 0C                          7491+         DC    AL1(12),0C'         CHAN 12 IS AT LINE 61'               FC380000
004006 00                          7492+         DC    1AL1(0)                                                  FC348000
004007 09                          7493+         DC    AL1(9),0C'          CHAN  9 IS AT LINE 63'               FC380000

004008 0000                        7494+         DC    2AL1(0)                                                  FC348000
00400A 10                          7495+         DC    AL1(16)                                                  FC386000
002B74                             7496+HASPPRPU CSECT                                                          FC582000


                                   7498 FCB8    $FCB   8,68,1-1,2-7,3-13,4-19,5-25,6-31,7-37,8-43,10-49,       CP7036000
                                                       11-55,12-61,9-64                                         P7038000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  169


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7500+******************************************************************      FC288000
                                   7501+*                                                                *      FC290000
                                   7502+*,3211 FORMS CONTROL BUFFER LOAD FOR $T PRTN,C=8
                                   7503+*                                                                *      FC294000

                                   7504+******************************************************************      FC296000

                                   7505+*                                                                *      FC298000


000000                             7507+HA$QC464 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
002B74                             7508+HASPPRPU CSECT                                                          OC012000
002B74 0000                        7509+         DC    0H'0',QL2(HA$QC464) GENERATE OCON                        OC014000
002B76 C6C3C2F9F8404040            7510+         DC    CL8'FCB98'          FCB ID FOR 3211                      FC308000

                                   7512+*                             ESTABLISH OVERLAY CSECT                   FC314000
004010                             7513+HA$OC464 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            04018  7514+HA$IC464 EQU   HA$OC464+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7515+         ENTRY HA$IC464                                                 OV036000
004010 C3F4F6F4                    7516+         DC    CL4'C464'           IDENTIFY MODULE ON CORE DUMP         OV038000
004014 00004010                    7517+         DC    A(HA$OC464)         ASSEMBLY ORIGIN                      OV040000
004018                             7518+HASPC464 DS    0F                  ENTRY POINT                          OV042000

                                   7519+*                             GENERATE CCWS                             FC318000
004018 6300007060000045            7520+         CCW   X'63',BUFSTART+24-BUFDSECT,X'60',69                      FC320000

004020 0300000060000001            7521+         CCW   X'03',0,X'60',1                                          FC322000

004028 0300000060000001            7522+         CCW   X'03',0,X'60',1                                          FC324000
                                   7523+*                             GENERATE FORMS CONTROL BUFFER             FC326000
004030 81                          7524+         DC    AL1(129),0C'         PRINTING STARTS AT POSITION 1'      FC337000
004031 11                          7525+         DC    AL1(17),0C'         CHAN  1 IS AT LINE 1'                FC380000
004032 0000000000                  7526+         DC    5AL1(0)                                                  FC348000
004037 02                          7527+         DC    AL1(2),0C'          CHAN  2 IS AT LINE 7'                FC380000
004038 0000000000                  7528+         DC    5AL1(0)                                                  FC348000
00403D 03                          7529+         DC    AL1(3),0C'          CHAN  3 IS AT LINE 13'               FC380000
00403E 0000000000                  7530+         DC    5AL1(0)                                                  FC348000
004043 04                          7531+         DC    AL1(4),0C'          CHAN  4 IS AT LINE 19'               FC380000
004044 0000000000                  7532+         DC    5AL1(0)                                                  FC348000
004049 05                          7533+         DC    AL1(5),0C'          CHAN  5 IS AT LINE 25'               FC380000

00404A 0000000000                  7534+         DC    5AL1(0)                                                  FC348000
00404F 06                          7535+         DC    AL1(6),0C'          CHAN  6 IS AT LINE 31'               FC380000
004050 0000000000                  7536+         DC    5AL1(0)                                                  FC348000

004055 07                          7537+         DC    AL1(7),0C'          CHAN  7 IS AT LINE 37'               FC380000
004056 0000000000                  7538+         DC    5AL1(0)                                                  FC348000
00405B 08                          7539+         DC    AL1(8),0C'          CHAN  8 IS AT LINE 43'               FC380000
00405C 0000000000                  7540+         DC    5AL1(0)                                                  FC348000
004061 0A                          7541+         DC    AL1(10),0C'         CHAN 10 IS AT LINE 49'               FC380000
004062 0000000000                  7542+         DC    5AL1(0)                                                  FC348000
004067 0B                          7543+         DC    AL1(11),0C'         CHAN 11 IS AT LINE 55'               FC380000
004068 0000000000                  7544+         DC    5AL1(0)                                                  FC348000
00406D 0C                          7545+         DC    AL1(12),0C'         CHAN 12 IS AT LINE 61'               FC380000
00406E 0000                        7546+         DC    2AL1(0)                                                  FC348000
004070 09                          7547+         DC    AL1(9),0C'          CHAN  9 IS AT LINE 64'               FC380000
004071 000000                      7548+         DC    3AL1(0)                                                  FC348000

004074 10                          7549+         DC    AL1(16)                                                  FC386000
002B7E                             7550+HASPPRPU CSECT                                                          FC582000


                                   7552 FCBU    $FCB   6,66,1-1                                                 P7040000

PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  170


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   7555+*,THE FOLLOWING ASSIGNMENTS OF UNSPECIFIED
                                   7556+*,CARRIAGE CHANNELS PREVENT RUN-AWAY FORMS ---
                                   7557+*,   CARRIAGE CHANNEL  2 IN LINE 2

                                   7558+*,   CARRIAGE CHANNEL  3 IN LINE 3
                                   7559+*,   CARRIAGE CHANNEL  4 IN LINE 4
                                   7560+*,   CARRIAGE CHANNEL  5 IN LINE 5
                                   7561+*,   CARRIAGE CHANNEL  6 IN LINE 6
                                   7562+*,   CARRIAGE CHANNEL  7 IN LINE 7
                                   7563+*,   CARRIAGE CHANNEL  8 IN LINE 8
                                   7564+*,   CARRIAGE CHANNEL  9 IN LINE 66
                                   7565+*,   CARRIAGE CHANNEL 10 IN LINE 9

                                   7566+*,   CARRIAGE CHANNEL 11 IN LINE 10
                                   7567+*,   CARRIAGE CHANNEL 12 IN LINE 65

                                   7568+******************************************************************      FC288000
                                   7569+*                                                                *      FC290000
                                   7570+*,3211 FORMS CONTROL BUFFER LOAD FOR $T PRTN,C=U
                                   7571+*                                                                *      FC294000
                                   7572+******************************************************************      FC296000
                                   7573+*                                                                *      FC298000

000000                             7575+HA$QC467 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000

002B7E                             7576+HASPPRPU CSECT                                                          OC012000
002B7E 0000                        7577+         DC    0H'0',QL2(HA$QC467) GENERATE OCON                        OC014000
002B80 C6C3C2F9E4404040            7578+         DC    CL8'FCB9U'          FCB ID FOR 3211                      FC308000

                                   7580+*                             ESTABLISH OVERLAY CSECT                   FC314000

004078                             7581+HA$OC467 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            04080  7582+HA$IC467 EQU   HA$OC467+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   7583+         ENTRY HA$IC467                                                 OV036000

004078 C3F4F6F7                    7584+         DC    CL4'C467'           IDENTIFY MODULE ON CORE DUMP         OV038000
00407C 00004078                    7585+         DC    A(HA$OC467)         ASSEMBLY ORIGIN                      OV040000
004080                             7586+HASPC467 DS    0F                  ENTRY POINT                          OV042000
                                   7587+*                             GENERATE CCWS                             FC318000
004080 6300007060000043            7588+         CCW   X'63',BUFSTART+24-BUFDSECT,X'60',67                      FC320000
004088 0300000060000001            7589+         CCW   X'03',0,X'60',1                                          FC322000
004090 0300000060000001            7590+         CCW   X'03',0,X'60',1                                          FC324000

                                   7591+*                             GENERATE FORMS CONTROL BUFFER             FC326000
004098 81                          7592+         DC    AL1(129),0C'         PRINTING STARTS AT POSITION 1'      FC337000
004099 01                          7593+         DC    AL1(1),0C'          CHAN  1 IS AT LINE 1'                FC380000
00409A 02                          7594+         DC    AL1(2),0C'          CHAN  2 IS AT LINE 2'                FC380000
00409B 03                          7595+         DC    AL1(3),0C'          CHAN  3 IS AT LINE 3'                FC380000

00409C 04                          7596+         DC    AL1(4),0C'          CHAN  4 IS AT LINE 4'                FC380000
00409D 05                          7597+         DC    AL1(5),0C'          CHAN  5 IS AT LINE 5'                FC380000
00409E 06                          7598+         DC    AL1(6),0C'          CHAN  6 IS AT LINE 6'                FC380000
00409F 07                          7599+         DC    AL1(7),0C'          CHAN  7 IS AT LINE 7'                FC380000

0040A0 08                          7600+         DC    AL1(8),0C'          CHAN  8 IS AT LINE 8'                FC380000
0040A1 0A                          7601+         DC    AL1(10),0C'         CHAN 10 IS AT LINE 9'                FC380000
0040A2 0B                          7602+         DC    AL1(11),0C'         CHAN 11 IS AT LINE 10'               FC380000
0040A3 0000000000000000            7603+         DC    54AL1(0)                                                 FC348000
0040D9 0C                          7604+         DC    AL1(12),0C'         CHAN 12 IS AT LINE 65'               FC380000
0040DA 19                          7605+         DC    AL1(25),0C'         CHAN  9 IS AT LINE 66'               FC380000

002B88                             7606+HASPPRPU CSECT                                                          FC582000
PRPU     HASP PRINT/PUNCH SERVICE -- UCS/FCB IMAGES                                                            PAGE  171


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7608          AIF   (NOT &FCBV).PNOVFCB                                      P7042000
                                   7609 .PNOVFCB ANOP                      *                                    P7070000

002B88                             7610 PUCSTABE DS    0H                  END OF UCSB/FCB OCON TABLE           P7072000





                                   7612 $DLENGTH $DLENGTH                  COMPUTE CONTROL SECTION LENGTH       P7076000
PRPU     HASPPRPU CONTROL SECTION LENGTH                                                                       PAGE  172



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












002B88                             7615+         DS    0D                  FILL OUT CONTROL SECTION             DN016000
                            02B88  7616+$L       EQU   *-HASPPRPU                                               DN018000
                            00000  7617+$L1      EQU   $L/100000*100000              COMPUTE                    DN020000
                            02710  7618+$L2      EQU   ($L-$L1)/10000*10000            INTERMEDIATE             DN022000
                            003E8  7619+$L3      EQU   ($L-$L1-$L2)/1000*1000            LENGTH                 DN024000

                            00064  7620+$L4      EQU   ($L-$L1-$L2-$L3)/100*100            VALUES               DN026000
                            00028  7621+$L5      EQU   ($L-$L1-$L2-$L3-$L4)/10*10                               DN028000
                            00004  7622+$L6      EQU   $L-$L1-$L2-$L3-$L4-$L5                                   DN030000






                                   7624+*                                                                       DN034000
                                   7625+*                                  DECIMAL LENGTH                       DN036000
                                   7626+*                                                                       DN038000



                            11144  7628+$DLENGTH EQU   $L1/100000*1048576+$L2/10000*65536+$L3/1000*4096+$L4/100CDN042000

                                       +               *256+$L5/10*16+$L6                                       DN044000





                                   7630          END                                                            P7078000
PRPU                                              RELOCATION DICTIONARY                                        PAGE  173



POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78

 0001     0001      0C     000D24
 0001     0001      0C     000D2C
 0001     0001      0C     000D30
 0001     0001      0C     000D38
 0001     0001      0C     000D3C

 0001     0001      0C     000D40
 0001     0001      08     0029B1
 0001     0002      1C     000D10
 0001     0002      1C     0029F8

 0001     0003      1C     000D20
 0001     0003      1C     002A38
 0001     0004      24     0014C2
 0001     0005      24     0014CC
 0001     0008      24     002160

 0001     0008      24     002A50
 0001     0009      1C     0029F0
 0001     000A      1C     0029F4
 0001     000B      1C     002A1C
 0001     000C      1C     002A20
 0001     000E      24     002A52
 0001     000E      24     002A5C

 0001     000E      24     002A66
 0001     0010      24     002A70
 0001     0010      24     002A7A

 0001     0010      24     002A84
 0001     0012      24     002A8E
 0001     0012      24     002A98
 0001     0012      24     002AA2
 0001     0014      24     002AAC

 0001     0014      24     002AB6
 0001     0016      24     002AC0
 0001     0016      24     002ACA
 0001     0018      24     002AD4
 0001     0018      24     002ADE
 0001     0018      24     002AE8
 0001     001A      24     002AF2
 0001     001A      24     002AFC

 0001     001A      24     002B06
 0001     001C      24     002B10

 0001     001C      24     002B1A
 0001     001C      24     002B24
 0001     001E      24     002B2E
 0001     001E      24     002B38
 0001     001E      24     002B42

 0001     0020      24     002B4C
 0001     0020      24     002B56
 0001     0020      24     002B60
 0001     0022      24     002B6A
 0001     0024      24     002B74
 0001     0026      24     002B7E
 0006     0006      0C     002B8C
 0007     0007      0C     002DF4
 000D     000D      0C     002FCC

 000F     000F      0C     0033BC

 0011     0011      0C     0034CC
PRPU                                              RELOCATION DICTIONARY                                        PAGE  174


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78

 0013     0013      0C     0035DC
 0015     0015      0C     0036EC

 0017     0017      0C     0037FC
 0019     0019      0C     00390C
 001B     001B      0C     00392C
 001D     001D      0C     003B4C
 001F     001F      0C     003D6C
 0021     0021      0C     003F8C
 0023     0023      0C     003FAC
 0025     0025      0C     004014
 0027     0027      0C     00407C


PRPU                                              CROSS-REFERENCE                                              PAGE  175



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$#ADD    00002 00000656 03886  03885
$#CAN    00002 00000B54 04469  04468
$#GET    00002 00000884 04160  04159

$#LOC    00002 00000B24 04438  04437
$#PUT    00002 00000A8E 04365  04364
$#REM    00002 00000778 04031  04030
$ACTION  00001 00000050 00426  06328 06354
$ACTIVE  00001 000000C7 00637  03252 03254 03310 03312 03799 03801 05118 05120 05272 05274 06202 06204
$CKPTACT 00001 00000010 00463  03887 04032 04161 04366 04439 04470 05388
$DISTERR 00004 000000BC 00628  03226 03298 03356 05491 05875
$DOM     00004 000000A0 00612  06282
$DOMACT  00001 00000080 00428  06272
$DRAINED 00001 00000020 00462  04177
$EWBBUF  00001 00000000 00386  03820 05258 06890

$EWBCKPT 00001 00000000 00390  03882 04027 04156 04361 04434 04465 05391
$EWBCMB  00001 00000000 00391  05302
$EWBIO   00001 00000001 00396  03831 03858 05113 05166 06085 06277 06646 06752
$EWBJOB  00001 00000000 00388  03240

$EWBJOT  00001 00000000 00393  03549 05293
$EWBUNIT 00001 00000000 00389  03812 05251
$EWBWORK 00001 00000001 00397  03206 04009 04139 04340 04417 04574 05396
$EWFBUF  00001 00000040 00363  03820 05258 06890
$EWFCKPT 00001 00000004 00367  03882 04027 04156 04361 04434 04465 05391
$EWFCMB  00001 00000002 00368  05302
$EWFIO   00001 00000040 00373  03858 06085 06277 06646 06752
$EWFJOB  00001 00000010 00365  03240 04145 04580
$EWFJOT  00001 00000001 00370  03212 03549 04015 04145 04423 04580 05293
$EWFPOST 00001 00000080 00362  03207 04010 04140 04341 04418 04575 05397
$EWFUNIT 00001 00000008 00366  03812 05251
$EWFWORK 00001 00000020 00374  03206 04009 04139 04340 04417 04574 05396

$EXCP    00004 0000006C 00593  03844 06079 06631 06727 06749
$EXITNOP 00002 0000002C 00558  00553 00554
$FREEBUF 00004 0000003C 00569  03304 03359 03792 06161 06192 06904

$FREUNIT 00004 00000044 00574  03301 03783 05270 06195 06200
$GETBUF  00004 00000034 00567  03273 03372 05173 05180 06886
$GETSMFB 00004 000000A8 00617  06098
$GETUNIT 00004 00000040 00573  03265 05097 05107 05162
$HARDCPY 00001 00000002 01027  03777 04129 04566
$HASPECF 00001 000000C4 00634  03207 03212 04010 04015 04140 04145 04341 04418 04423 04575 04580 05397
$IOERROR 00004 000000B4 00626  03866 06091 06652
$IOTTEST 00001 00000722 03062  03063
$JCTTEST 00001 000005D0 01150  01151
$JOBQPTR 00004 0000013C 00686  03288 03412 03747 03999 04120 04236 04323 04483 04502 04562 05191 05330 05341 06008 06048
$JOEBUSY 00001 00000080 03072  04058 04233 04326 04398 04494
$JOECKV  00001 00000040 03073  04398 04406 05380

$JOEIRTE 00001 00000080 03079  03489 04247

$JOT     00008 00000D60 04698  03198 03199 03899 04044 04173 04378 04451 04482 04697 04705 04711 04716 04721 04726 04731
                               04736 04741 04746 04751 04756 04761 04766 04771 04776 04781 04786 04791 04796 04801 04806

                               04811 04816 04821 04826 04831 04836 04841 04846 04851 04856 04861 04866 04871 04876 04881
                               04886 04891 04896 04901 04906 04911 04916 04921 04926 04931 04936 04941 04946 04951 04956
                               04961 04966 04971 04976 04981 04986 04991 04996 05001 05006 05011 05016 05021
$JOTCKPT 00001 00000002 00466  03204 04007 04137 04338 04415 04572
$L       00001 00002B88 07616  07617 07618 07619 07620 07621 07622
$LOG     00001 00000001 00409  05213 05289 06175 06272 06328 06354 06798 06812 06876
$L1      00001 00000000 07617  07618 07619 07620 07621 07622 07628
PRPU                                              CROSS-REFERENCE                                              PAGE  176


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$L2      00001 00002710 07618  07619 07620 07621 07622 07628
$L3      00001 000003E8 07619  07620 07621 07622 07628
$L4      00001 00000064 07620  07621 07622 07628

$L5      00001 00000028 07621  07622 07628
$L6      00001 00000004 07622  07628

$NORMAL  00001 00000030 00425  06175 06798 06812 06876

$NUCTABL 00004 0000012C 00672  00677
$NUCTBLE 00004 0000015C 00701  00705
$ODEL    00004 00000084 00602  06396 06446
$OLINK   00004 0000008C 00604  05071 05078
$OLOAD   00004 00000094 00606  06380 06436
$ORET    00004 00000088 00603  05241 05247 05410 05446 05452 05458
$OUTPUT  00001 00000004 01026  03233
$PRCHKPT 00004 00000124 00667  05365
$PRIDCT  00001 0000003D 00162  06424 06518
$PRTBOPT 00001 00000002 00164  05099
$PUNBOPT 00001 00000001 00165  05109
$PURGE   00001 00000000 01029  03307 03774 04131 04563

$QGET    00004 0000004C 00579  03234
$QLOC    00004 0000005C 00583  03217
$QPUT    00004 00000050 00580  03308 03779

$QUESMFB 00004 000000A4 00616  06125
$SAVEBEG 00004 0000013C 00685  00694
$SAVEEND 00001 0000015C 00693  00694
$ST      00001 00000004 00435  05213 05289 06175 06272 06328 06354 06798 06812 06876
$STATUS  00001 000000C2 00632  03204 03887 04007 04032 04137 04161 04177 04338 04366 04415 04439 04470 04572 05388
$TRIVIA  00001 00000010 00424  05213 05289
$UR      00001 00000004 00411  05213 05289 06175 06272 06328 06354 06798 06812 06876
$WAIT    00004 00000030 00563  03241 03550 03728 03813 03821 03859 03883 04028 04157 04362 04435 04466 05252 05259 05294
                               05303 05392 05998 06086 06278 06647 06753 06891
$WTO     00004 00000098 00610  05212 05288 06174 06271 06327 06353 06797 06811 06875
ADBLDC   00002 000006B0 03934  03924
ADCHEHIT 00002 000006FC 03963  03928

ADCHINS  00002 000006EC 03954  03948 03951
ADCHK    00002 0000064E 03880  04673
ADCHQSCN 00002 00000694 03922  03930
ADCHSCN  00002 000006CE 03945  03953

ADCKPT   00002 00000664 03894  03888
ADDOK    00002 00000690 03917  03907
BASE1    00001 0000000B 00336  00541
BASE2    00001 0000000C 00337  03195 03875 05056 05065
BASE2A   00001 00000006 05038  05059 05065 05066 05066
BASE3    00001 00000008 00334  03897 04042 04171 04376 04449 04480 05088 05129 05249 05253 05256 05260 05269 05300 05304

                               05316 05325 05459 06381 06391 06394 06541 06559 06636 06662 06711
BLKBLD   00002 000022EE 06543  06589
BLKLOOP  00002 0000233C 06568  06573
BLKLUP   00002 00002302 06549  06577
BLKPRT   00002 000022DC 06538  06438 06444
BLKSKIP  00002 000021AC 06455  06431
BLKSTOR  00002 00002338 06566  06555
BLOCKA   00024 00002FD0 07081  06541

BLOCKTR  00010 00003378 07120  06541
BUFDSECT 00001 00000000 00791  01043 03033 03828 03852 05057 05088 05325 06381 06391 06394 06541 06559 06621 06634 07016

                               07018 07043 07159 07187 07215 07238 07265 07326 07359 07392 07466 07520 07588
BUFECBCC 00001 00000028 00814  03854 06081 06642 06654 06909
PRPU                                              CROSS-REFERENCE                                              PAGE  177


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

BUFSTART 00008 00000058 00830  00837 00843 01043 03033 05916 05917 06254 06255 06256 06257 06258 06259 06267 06318 06319
                               06320 06321 06322 06324 06345 06346 06347 06348 06350 06381 06386 06389 06391 06394 06400
                               06403 06406 06457 06458 06460 06461 06462 06462 06463 06463 06464 06464 06465 06465 06466
                               06467 06468 06473 06476 06485 06494 06506 06507 06508 06509 06510 06511 06545 06546 06546

                               06548 07016 07043 07159 07187 07215 07238 07265 07326 07359 07392 07466 07520 07588
CNCHEL   00002 00000BF0 04534  04530
CNCHK    00002 00000B4C 04463  04680
CNCKPT   00002 00000B62 04477  04471
CNCLASS  00002 00000B7C 04485  04558

CNCLSX   00002 00000C18 04556  04492
CNCQSCN  00002 00000BE0 04528  04533
CNJOES   00002 00000B80 04487  04495 04497 04552

CNVCLASS 00002 00000C4E 04589  03987 04101 04210
CNVCLSX  00002 00000C78 04602  04594 04597 04600
CNWORK   00002 00000BFC 04541  04521
DARTSCR1 00004 00000D04 04661  03290 03291 03749 03750 03834 03835 04638 04639 04646 04646 04649 04650 04656 04657
DARTSCR2 00004 000029D8 07025  05193 05194 05332 05333 05343 05344 06010 06011 06050 06051 06429 06430 06521 06522 06561
                               06561 06562 06565
DART01A  00001 00000220 03423  03419

DART01B  00001 000003CC 03595  03591
DART01C  00002 0000158C 05528  05524
DCBBIT0  00001 00000080 01187  01308 01324 01363 01381 01426 01436 01452 01493 01503 01515 01538 01569 01572 01574 01576
                               01599 01602 01622 01627 01646 01683 01736 01759 01791 01795 01808 01903 01906 01916
DCBBIT1  00001 00000040 01188  01309 01325 01382 01390 01426 01436 01454 01494 01504 01517 01539 01541 01551 01569 01572

                               01575 01576 01604 01622 01625 01627 01649 01650 01651 01686 01687 01736 01761 01797 01799
                               01811 01855 01903 01908 01917
DCBBIT2  00001 00000020 01189  01310 01326 01383 01392 01436 01455 01495 01505 01518 01520 01521 01539 01541 01546 01552
                               01569 01571 01578 01606 01629 01631 01654 01655 01656 01690 01691 01738 01764 01800 01816
                               01858 01862 01903 01918
DCBBIT3  00001 00000010 01190  01274 01311 01327 01397 01439 01456 01496 01518 01521 01523 01539 01554 01579 01609 01629
                               01633 01658 01659 01660 01694 01695 01738 01766 01768 01770 01802 01817 01858 01863 01903
DCBBIT4  00001 00000008 01191  01275 01328 01398 01442 01457 01497 01506 01555 01580 01610 01635 01641 01642 01663 01664
                               01698 01699 01701 01702 01740 01773 01818 01858 01864
DCBBIT5  00001 00000004 01192  01277 01329 01400 01443 01457 01498 01507 01556 01583 01585 01612 01635 01638 01639 01642
                               01667 01669 01670 01671 01705 01706 01707 01708 01740 01775 01778 01804 01820 01853
DCBBIT6  00001 00000002 01193  01279 01312 01330 01402 01444 01461 01499 01557 01559 01562 01583 01586 01613 01674 01675

                               01676 01677 01711 01712 01713 01714 01781 01822
DCBBIT7  00001 00000001 01194  01281 01313 01406 01446 01462 01500 01557 01560 01562 01588 01617 01679 01680 01717 01718
                               01720 01721 01806 01823 01865

DCBDEBAD 00004 0000002C 01734  05152 06744
DCBDSECT 00001 00000000 01926  05151 06744
DCBFDAD  00008 00000005 01208  01211
DCBSSID  00008 00000000 01415  01418

DCBWTOID 00004 00000000 01335  01350 01359
DCTBKSP  00001 00000008 00985  06024 06253 06768 06770 06822 06840 06844
DCTBUFAD 00004 00000004 00858  03839 03850 06627 06724
DCTCLASS 00008 0000002D 00885  04199 05282 05282 05289
DCTDA    00001 00000000 00928  03264 05161
DCTDCB   00004 00000008 00860  05150 06743

DCTDELET 00001 00000040 00982  06034 06072 06253 06283 06768 06770 06803
DCTDEVN  00008 00000018 00873  05205 05280 06119 06168 06256 06320 06347 06460 06771
DCTDEVTP 00001 00000012 00868  04244 04277 04280 04311 04314
DCTDSECT 00001 00000000 00855  03830 03849 04198 05112 05148 05165 05204 05236 05264 05403 05438 05470 05805 05929 06077
                               06116 06152 06168 06214 06460 06626 06674 06676 06679 06723 06743 06765 06899

DCTEJECT 00001 00000010 00912  05805 06674 06676 06679
PRPU                                              CROSS-REFERENCE                                              PAGE  178


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

DCTEWF   00004 0000000C 00864  03832 05114 05167
DCTFCB   00004 00000024 00882  06120 06229 06231 06258 06340 06348

DCTFLAGS 00001 00000014 00871  05115 05929 06252 06253 06274 06283 06767 06768 06770 06924
DCTFORMS 00004 00000020 00877  04263 06117 06216 06218 06221 06257 06285
DCTHOLD  00001 00000020 00911  05265 05295
DCTIOTYP 00001 00000013 00869  03835 05168 06077 06899
DCTLNE   00001 00000002 00930  04277 04311

DCTNO    00001 00000011 00867  04250 06123
DCTPPSW  00001 0000002C 00884  04269 04275 05149 05277 05279 05403 05470 06152 06215 06220 06225 06228 06232 06235 06241
                               06242 06244 06250 06290 06304 06306 06329 06336 06338 06355 06388
DCTPPSWC 00001 00000080 00991  06225 06228 06232 06336 06338 06355 06388
DCTPPSWF 00001 00000040 00992  04275

DCTPPSWI 00001 00000002 00997  05149 05277 05279
DCTPPSWO 00001 00000001 00998  06215 06220 06225 06235 06244 06250 06290 06355
DCTPPSWS 00001 00000010 00994  05403 05470 06152
DCTPPSWT 00001 00000008 00995  06244 06304 06306 06329
DCTPPSWU 00001 00000004 00996  04269 06241 06242
DCTPRT   00001 00000020 00934  05096

DCTPUN   00001 00000030 00936  05106
DCTREAD  00001 00000080 00943  04689 05168 06899
DCTRPT   00001 00000010 00984  06165 06768 06770 06776 06792 06805
DCTRSTRT 00001 00000020 00983  06024 06029 06253 06283 06768 06770 06822 06854

DCTSEEK  00004 00000008 00861  03840 06628
DCTSPACE 00001 00000004 00987  05744 05929 05930 06766
DCTSTAT  00001 00000000 00856  05265 05295 05805 06674 06676 06679
DCTSTOP  00001 00000080 00981  06252 06274 06924
DCTUCS   00004 00000028 00883  04265 06121 06237 06245 06259 06307 06310 06322

DCTWORK  00004 00000038 00887  05236 05438
DCTWRITE 00001 00000040 00944  04692 06077
DDBEND   00002 000004DA 03709  03571
DDBIOT   00002 00000382 03565  03576
DDBNEXT  00002 0000037A 03561  03579 03696 03702 03705
DDBPDB   00002 000003A6 03577  03567
DDBSTEP  00002 000004C4 03700  03584 03611 03627 03642 03660 03671 03682 03693

DEBDSECT 00001 00000000 01931  05153 06745
DEBUCBAD 00004 00000020 01946  05154 06745
DSVBLS   00002 0000208A 06363  06314 06341

DSVBLSI  00002 000020E6 06390  06383 06385
DSVCLC   00006 00002096 06369  06372
DSVEXIT  00002 00002084 06357  06292 06301 06335 06337 06344
DSVFCB   00002 00001E96 06222  06219
DSVLFCB  00002 00002024 06333  06303 06305 06308 06317

DSVLUCSB 00002 00001F7A 06289  06251 06284
DSVMSG   00002 00001EFA 06249  06238 06243 06356
DSVSTART 00002 00001F68 06280  06275
DSVUCSB  00002 00001ED0 06236  06230 06234
DSVWAIT  00002 00001F54 06273  06279
FREEJOE  00002 00000C9E 04627  04052 04094 04115 04402 04512 04537 04550
FREHIT   00002 00000CD2 04644  04636 04640
FRESCN   00002 00000CB0 04634  04643

GETJOE   00002 00000C82 04611  03935 03972 04329
GETOK    00002 000008C0 04196  04185

GTCHK    00002 0000087C 04154  04676
GTCKPT   00002 00000892 04168  04162
GTCLASS  00002 000008D0 04202  04226
PRPU                                              CROSS-REFERENCE                                              PAGE  179


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


GTCMEND  00002 000009EE 04304  04204
GTEST    00002 00000A6C 04342  04325
GTHOT    00002 00000A5C 04333  04328
GTJOEA   00002 00000906 04230  04220
GTMATCH  00002 0000098C 04271  04266
GTNOMCH  00002 00000994 04274  04264 04268 04270
GTNOT    00002 000008B8 04189  04178 04306
GTPRIO   00002 000009D2 04294  04273 04278 04288
GTRMT    00002 00000A2E 04321  04312

GTWKJOE  00002 000008E4 04215  04234 04238 04251 04259 04276 04290 04296 04300

H        00001 00000002 00344  06710
HA$IBLOK 00001 00002FD0 07076  07077
HA$IC461 00001 00003FB0 07460  07461
HA$IC464 00001 00004018 07514  07515
HA$IC467 00001 00004080 07582  07583

HA$IPPI1 00001 00002B90 05083  05084
HA$IPPI2 00001 00002DF8 05320  05321
HA$IPRAN 00001 000033C0 07152  07153
HA$IPRA1 00001 00003930 07321  07322
HA$IPRHN 00001 000034D0 07180  07181
HA$IPRH1 00001 00003B50 07354  07355
HA$IPRPN 00001 000035E0 07208  07209
HA$IPRP1 00001 00003D70 07387  07388
HA$IPRQN 00001 000036F0 07231  07232
HA$IPRRN 00001 00003800 07258  07259

HA$IPRUN 00001 00003910 07290  07291

HA$IPRU1 00001 00003F90 07420  07421
HA$OBLOK 00001 00002FC8 07075  07076 07079
HA$OC461 00001 00003FA8 07459  07460 07463
HA$OC464 00001 00004010 07513  07514 07517

HA$OC467 00001 00004078 07581  07582 07585
HA$OPPI1 00001 00002B88 05082  05083 05086
HA$OPPI2 00001 00002DF0 05319  05320 05323
HA$OPRAN 00001 000033B8 07151  07152 07155
HA$OPRA1 00001 00003928 07320  07321 07324
HA$OPRHN 00001 000034C8 07179  07180 07183
HA$OPRH1 00001 00003B48 07353  07354 07357
HA$OPRPN 00001 000035D8 07207  07208 07211
HA$OPRP1 00001 00003D68 07386  07387 07390
HA$OPRQN 00001 000036E8 07230  07231 07234
HA$OPRRN 00001 000037F8 07257  07258 07261

HA$OPRUN 00001 00003908 07289  07290 07293
HA$OPRU1 00001 00003F88 07419  07420 07423
HA$QBLOK 00001 00000000 06433  06435 07071 07073
HA$QC461 00001 00000000 07453  07455

HA$QC464 00001 00000000 07507  07509
HA$QC467 00001 00000000 07575  07577
HA$QPPI1 00001 00000000 05068  05070
HA$QPPI2 00001 00000000 05075  05077
HA$QPRAN 00001 00000000 07135  07137 07141 07143 07146 07148
HA$QPRA1 00001 00000000 07305  07307 07310 07312 07315 07317
HA$QPRHN 00001 00000000 07164  07166 07169 07171 07174 07176
HA$QPRH1 00001 00000000 07338  07340 07343 07345 07348 07350
HA$QPRPN 00001 00000000 07192  07194 07197 07199 07202 07204
HA$QPRP1 00001 00000000 07371  07373 07376 07378 07381 07383
PRPU                                              CROSS-REFERENCE                                              PAGE  180


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


HA$QPRQN 00001 00000000 07220  07222 07225 07227
HA$QPRRN 00001 00000000 07247  07249 07252 07254
HA$QPRUN 00001 00000000 07274  07276 07279 07281 07284 07286

HA$QPRU1 00001 00000000 07404  07406 07409 07411 07414 07416
HASPHOPE 00002 00000000 03197  03196
HASPPPI1 00004 00002B90 05087  05276 05296
HASPPR   00002 000014B8 05062  05060
HASPPRPU 00001 00000000 00156  00721 00755 00845 00904 01152 01928 01954 02789 02853 03029 03064 03111 03162 03182 05055
                               05069 05076 05460 06434 07072 07127 07136 07142 07147 07161 07165 07170 07175 07189 07193
                               07198 07203 07217 07221 07226 07244 07248 07253 07271 07275 07280 07285 07298 07306 07311
                               07316 07335 07339 07344 07349 07368 07372 07377 07382 07401 07405 07410 07415 07428 07454
                               07496 07508 07550 07576 07606 07616
HASPPU   00002 000014B8 05063  05060
HCTDSECT 00001 00000000 00539  00541
HDBDSKEY 00004 0000005C 00834  05709

HDBNXTRK 00004 00000058 00832  05711 05711 05841 06614 06658 06658

HDBSTART 00004 00000060 00836  07018
IHADCB   00001 00000000 01185  01233 01257 01285 01304 01334 01414 01475 01526 01595 01727 01744 01748 01754 01843 01849

                               01873 01894 01926
IOBCCW1  00008 00000038 00824  03836 06074 06622
IOBCSW   00007 00000009 00799  06914 06918
IOBSTART 00004 00000010 00801  03837 05689 05702 05897 06075 06136 06294 06399 06419 06585 06595 06623 06689 06693 06719
                               06738 06918
IOTDSECT 00001 00000000 03032  03340 03766 05218 05481 05507
IOTIOT   00004 00000058 03035  03374 03381 03381 03395 03569 03734 03768 03789
IOTIOTTR 00004 00000060 03037  03367 05503
IOTJCTTR 00004 00000064 03038  03062 03348 05488 05865 05872
IOTOK    00002 0000017A 03365  03349
IOTPDDB  00004 000000D8 03043  03062 03385 03572 05218 05507
IOTPDDBP 00004 000000D4 03042  03387 03573 03715 05500

JCT      00001 0000000A 00335  01042 03276 03339 03340 03358 03360 03375 03383 03388 03395 03396 03396 03569 03570 03570
                               03574 03704 03714 03716 03733 03735 03757 03766 03769 03786 03787 03787 03791 05058 05137

                               05184 05184 05186 05189 05326 05326 05335 05336 05339 05481 05486 05497 05683 05845 05845

                               05863 05870 05932 05978 05993 05994 05995 06002 06003 06006 06132 06191 06527 06579 06760
                               06760 06896 06903
JCTCARDS 00004 000000DC 01083  05358
JCTCPYCT 00001 000000B5 01070  03321
JCTDSECT 00001 00000000 01041  01042 03735 05058 05993
JCTDSKEY 00004 00000060 01046  05363
JCTEND   00001 00000230 01115  01150
JCTFORMS 00004 000000B0 01068  03331 05352
JCTIOTTR 00004 0000005C 01045  03336 05219 05351
JCTJMR   00056 000001F8 01096  01097
JCTJMRJN 00008 000001F8 01098  06103
JCTJNAME 00008 00000070 01053  02838 05356

JCTJOBEB 00004 0000006C 01052  02836 05354 05414 06118
JCTJQE   00004 00000058 01044  01150 03287 03746 05190 05329 05340 06007 06047
JCTLINCT 00001 000000B7 01072  05348

JCTLINES 00004 000000E0 01084  05359
JCTLOST  00002 000000D6 03296  03286 03354
JCTMCLAS 00001 0000008C 01055  03330 05353
JCTOK    00002 0000010E 03320  03292
JCTOUTOF 00004 000000D4 01081  03756 06056
JCTOUTON 00004 000000CC 01079  03752
JCTPAGCT 00004 000000F0 01088  06062 06066
PRPU                                              CROSS-REFERENCE                                              PAGE  181


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

JCTPNAME 00020 00000078 01054  02839 05357
JCTPRTCT 00004 000000EC 01087  06057 06061
JCTPUNCH 00004 000000E4 01085  05360

JCTPUNCT 00004 000000F4 01089  06067 06071
JCTROOMN 00004 000000A0 01064  02837 05355 05413
JCTUSEID 00008 0000020C 01102  06104
JCTWORK  00144 00000168 01094  05415 05439

JCTXEQOF 00004 000000C4 01077  05361
JCTXEQON 00004 000000BC 01075  05362
JOE      00001 00000006 03188  03408 03409 03414 03473 03521 03605 03658 03691 03804 03918 03923 03923 03925 03925 03926
                               03929 03936 03957 03967 03973 03993 03994 04020 04211 04216 04218 04219 04219 04231 04232
                               04232 04307 04308 04308 04343 04352 04486 04488 04489 04490 04491 04491 04493 04493 04548
                               04551 04583

JOEACTPR 00001 00000018 03093  03943 03943 04062 04279 04313 04386
JOEACTPU 00001 00000019 03094  04065 04282 04316 04389
JOECHAR  00002 00000004 03074  03979 04057 04252 04309 04383 04516
JOECKPT  00002 00000006 03075  03982 04049 04327 04327 04330 04401 04403 04403 04407 04509 05384
JOECPU   00001 00000009 03077  03512 03681 05639
JOEDEST  00002 00000014 03082  03485 03670 05619
JOEDSECT 00001 00000000 03066  03086 03099 03110 03408 03926 03950 03955 03959 03994 04048 04062 04065 04074 04076 04089
                               04092 04093 04110 04113 04114 04216 04258 04263 04265 04267 04279 04282 04287 04313 04316

                               04379 04386 04389 04488 04517 04519 04532 04535 04536 04544 05376 05499 06868
JOEFCB   00004 00000008 03090  03444 03626 05560

JOEFLAG  00002 00000002 03071  03981 04058 04233 04326 04398 04406 04494 05380
JOEFORM  00004 00000004 03089  03433 03610 03927 03942 03950 03950 04263 04287 05543 06868
JOEJQE   00004 00000010 03081  03413 03998 04119 04235 04322 04496 04501
JOENEXT  00002 00000000 03070  03410 03410 03415 03415 03929 03955 03956 03959 03978 03992 03994 04089 04092 04093 04110
                               04113 04114 04218 04490 04532 04535 04536 04542 04544
JOERECCT 00004 0000000C 03080  03501 03502
JOEROUT  00002 0000000A 03078  03484 03489 04247 04249
JOESEC   00001 00000008 03076  03474 03659 05598

JOESIZE  00001 0000001C 03110  03171 03172 03410 03415 03978 04711 04712 04716 04717 04721 04722 04726 04727 04731 04732
                               04736 04737 04741 04742 04746 04747 04751 04752 04756 04757 04761 04762 04766 04767 04771
                               04772 04776 04777 04781 04782 04786 04787 04791 04792 04796 04797 04801 04802 04806 04807
                               04811 04812 04816 04817 04821 04822 04826 04827 04831 04832 04836 04837 04841 04842 04846
                               04847 04851 04852 04856 04857 04861 04862 04866 04867 04871 04872 04876 04877 04881 04882

                               04886 04887 04891 04892 04896 04897 04901 04902 04906 04907 04911 04912 04916 04917 04921
                               04922 04926 04927 04931 04932 04936 04937 04941 04942 04946 04947 04951 04952 04956 04957

                               04961 04962 04966 04967 04971 04972 04976 04977 04981 04982 04986 04987 04991 04992 04996
                               04997 05001 05002 05006 05007 05011 05012 05016 05017 05021 05022 05027
JOEUCS   00004 0000000C 03091  03454 03641 04265 04267 05576
JOEUSE   00002 00000002 03088  03941 03964 03966 04074 04076 04517 04519
JOEWTRID 00008 00000010 03092  03522 03692 04258 05650
JOT      00001 00000008 03190  03198 03199 03805 03899 03925 03936 03949 03958 03968 03973 03993 03998 04044 04062 04065
                               04074 04076 04083 04089 04092 04093 04103 04104 04105 04110 04113 04114 04173 04232 04253
                               04308 04310 04313 04316 04331 04378 04386 04389 04408 04451 04482 04493 04517 04519 04526

                               04532 04535 04536 04549 04618 04620 04642 04654
JOTCHRQ  00002 00000D6A 04706  03918 03944 04082 04084 04525 04527
JOTCKPT  00002 00000D62 04700  03249 03315 03529 03553 03797
JOTCLSQ  00002 00000D6C 04707  04486 04604
JOTFREC  00002 00000D64 04702  03903 04182 04614 04616 04630 04632

JOTFREL  00002 00000D66 04704  03906
JOTFREQ  00002 00000D68 04705  04617 04619 04633
JOTJOBNO 00002 00000D60 04699  03213 03213 03216 03256 03314 03796

JOTJOES  00004 00000DB4 04708  04705
PRPU                                              CROSS-REFERENCE                                              PAGE  182


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

JQELOST  00002 00000036 03224  03218
L        00001 00000004 00346  06720
LCCHK    00002 00000B1C 04432  04679
LCCKPT   00002 00000B32 04446  04440

LINK     00001 0000000E 00339  03217 03226 03234 03265 03273 03298 03301 03304 03308 03356 03359 03372 03779 03783 03792
                               03844 03866 05070 05077 05097 05107 05162 05173 05180 05212 05241 05247 05268 05269 05288
                               05410 05446 05452 05458 05491 05875 06079 06091 06098 06125 06161 06174 06192 06195 06200
                               06271 06282 06327 06353 06379 06396 06435 06446 06631 06652 06727 06749 06797 06811 06875
                               06886 06904

NZ       00001 00000007 00349  06715
OACEPROG 00004 00000060 00835  05088 05325 06381 06391 06394 06541 06559
OPADOK   00002 0000036A 03552  03547
OPBUFR   00002 000005EE 03818  03274 03373

OPBUFREE 00002 000005B2 03784  03793
OPCHAR   00001 0000008C 03172  03414 03521 03536 03605 03691
OPCKPT   00002 000000BA 03179  03382 03382 03527 03555
OPCLASS  00001 000000BC 03180  03407 03541 03583
OPDADCT  00004 0000005C 03167  03267 03300 03782 03829 03848
OPDBEND  00004 000000A8 03173  03389 03392 03566 03575 03717

OPDDB    00004 00000064 03169  03391 03391 03701 03701 03703 03711
OPIDLE   00002 0000003A 03231  03214 03242 03316 03802
OPIOCK   00002 000005F8 03827  03284 03347 03743 03765
OPIOT    00004 000000AC 03174  03704 03714
OPIOTRD  00002 00000142 03338  03376

OPJCOPY  00002 0000031C 03526  03556
OPJCTBUF 00004 00000060 03168  03275 03303 03337 03383 03732 03734 03768 03769 03786 03789
OPJCTGET 00002 000004FA 03724  03729
OPJCTHAV 00002 0000050A 03730  03726
OPJOB    00002 0000005C 03250  03220

OPJOBCPY 00001 000000B8 03177  03321 03322 03324 03326 03329 03525
OPJOBFRM 00004 000000B4 03176  03331 03427 03599
OPJOTADD 00002 0000032C 03531  03551
OPJQE    00004 00000058 03166  03255 03291 03305 03411 03486 03532 03723 03750
OPMSGCLS 00001 000000B9 03178  03330 03607 03623 03638

OPNOJCT  00002 0000057C 03767  03745 03751
OPPURGE  00002 000005CC 03794  03788
OPQPUT   00002 000004F6 03722  03397 03534 03713
OPRDCK2  00002 0000062C 03853  03860
OPRDER   00002 00000644 03864  03856

OPRDOK   00002 0000064A 03871  03855
OPRECCT  00004 000000B0 03175  03464 03500
OPSETUP  00002 00000052 03246  03235
OPSKIP   00002 0000036E 03554  03530
OPTERM   00002 000005AA 03780  03772
OPTIMEON 00004 00000068 03170  03261 03752

OPUNIT   00002 000005E4 03810  03266
OPWORK   00001 00000070 03171  03409 03473 03535 03658
OP1COPYS 00002 000002D4 03497  03495
OP1CPU   00002 000002F8 03511  03508

OP1FCB   00002 0000024A 03443  03440
OP1FORM  00002 00000232 03432  03429
OP1RECC  00002 0000027A 03463  03460
OP1ROUT  00002 000002AA 03483  03480
OP1SEC   00002 0000028E 03472  03470

OP1UCS   00002 00000262 03453  03450
PRPU                                              CROSS-REFERENCE                                              PAGE  183


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

OP1WTRI  00002 0000030C 03520  03518
OP2CPU   00002 00000496 03680  03677
OP2FCB   00002 00000408 03621  03618
OP2FORM  00002 000003DE 03604  03601

OP2RECC  00002 0000044C 03649  03647
OP2ROUT  00002 0000047A 03669  03666
OP2SEC   00002 0000045A 03657  03655

OP2UCS   00002 0000042E 03636  03633
OP2WTRI  00002 000004AE 03690  03688
PBSFSGO  00002 00001724 05680  05903 05923
PBSPGCT  00002 00000134 02844  05677 05783 05785 05788 05906 05912
PBSPSRCH 00002 00001A44 05905  05921

PBSPTBL  00024 00000136 02845  05678 05678 05678 05678 05790 05790 05790 05792 05792 05793 05793 05910 05910 05910 05910
                               05913 05913 05914 05914 05916 05916 05917 05917 05919 05919
PBUF     00001 00000003 05035  05057 05182 05189 05339 05486 05721 05774 05831 05863 05870 06006 06090 06132 06401 06404
                               06407 06618 06634 06638 06639 06651 06724 06948
PBUFLMSG 00043 0000285E 06966  06318 06318 06328 06345 06345 06354
PBUFOPT  00001 000000C4 02817  05099 05109 05176 05698 05705 05858 06157 06882 06900
PBUFROK  00002 0000179C 05714  05710
PBUFSAVE 00004 00000074 02802  05175 06160 06620 06627 06639 06640 06887 06895 06896 06905

PCCW     00008 000029A8 07018  05662 05703 05715
PCCWCHN  00008 00000150 02848  02850 05224 05237 05238 05685 05896 06135 06293 06398 06418 06594 06927

PCCWEND  00004 0000007C 02804  05234 06700
PCCWNOP  00008 000029C8 07022  06581 06721
PCCWORK  00008 000029D0 07023  05413 05414 05419 05739 05740 05746 05749 05751 05753 05755 05757 05759 05760 05761 05766
                               05767 05770 05777 05779 05803 05818 05820 05822 05824 05826 05945 05946 05952 05953 05959
                               05960 05971 05972 06478 06479 06481 06482 06484 06485 06487 06489 06491 06494 06495 06495

                               06497 06504 06505 06505 06506 06668 06669 06672
PCCWPT   00004 00000078 02803  05228 06684 06695 06699 06718 06920 06932 06944
PCEDSECT 00001 00000000 00724  00726 02792 03164 03206 04009 04139 04340 04417 04574 05396 07021
PCEEJRCB 00002 000000AE 02810  05662 05703 05719 05725 05773 05793 05914
PCEEWF   00002 00000048 00747  03206 03240 03549 03812 03820 03831 03858 03882 04009 04027 04139 04156 04340 04361 04417
                               04434 04465 04574 05113 05166 05251 05258 05293 05302 05391 05396 06085 06277 06646 06752
                               06890
PCEFCB   00004 000000E4 02826  05562
PCEFORM  00004 000000E0 02825  05545 05674 06146 06868

PCEID    00002 0000004A 00748  04060 04063 04384 04387 05090 05200 05222 05225 05231 05275 05382 05405 05467 05686 05741

                               05850 05933 06018 06058 06063 06068 06133 06149 06263 06291 06300 06824 06842 06916 06928
PCEIOTTR 00004 000000C0 02816  05219 05351 05482 05506 05867 06617
PCEJMTTR 00004 000000BC 02815  05661 05681 05697 05792 05913
PCELCLID 00001 00000001 00765  04060 04384
PCELINK  00004 0000000C 00731  04297 04347

PCEPRSID 00001 00000080 00768  04063 04387 05200 05225 05231 05686 06058 06063 06133 06263 06928
PCEPUSID 00001 00000040 00769  05090 05382 05405 05467 05741 05850 05933 06018 06068 06149 06291 06824 06842 06916
PCERJEID 00001 00000002 00766  05222 05275 06300 06928
PCER0    00004 00000014 00733  04201 04217 04223 04225 04231 04239 04272 04285 04289 04295 04298
PCER1    00004 00000018 00734  04200 04200 04295 04299 04305 04305 04307
PCER15   00004 00000010 00732  04489 04543 04551
PCESAVEA 00004 00000000 00728  06211 06358 06417 06535 06593 06610
PCEUCSB  00004 000000E8 02827  05578
PCEWA    00004 0000001C 00735  03898 03912 04018 04043 04146 04172 04191 04350 04377 04425 04450 04456 04481 04581
PCEWORK  00008 00000058 00754  02793 02846 02847 02849 02852 03165 03181 05230 05233

PCHAN1   00004 00002482 06676  06671

PCHJOE   00004 000000DC 02824  05132 05463 05538 05649 06142 06781 06867
PCPEND   00004 0000193C 05836  05713 05727 05769
PRPU                                              CROSS-REFERENCE                                              PAGE  184


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


PC1      00001 00000004 05036  05072 05079 05092 05102 05159 05171 05178 05207 05239 05244 05249 05253 05254 05256 05260
                               05261 05283 05300 05304 05305 05408 05437 05438 05438 05439 05441 05444 05449 05456 05495
                               05497 05500 05656 05663 05715 05717 05718 05720 05721 05726 05728 05735 05737 05738 05739
                               05826 05829 05830 05898 05931 05932 05977 05978 06137 06213 06214 06295 06299 06315 06342
                               06400 06401 06403 06404 06406 06407 06414 06439 06447 06449 06450 06453 06526 06527 06530
                               06578 06579 06581 06596 06601 06604 06605 06668 06690
PC2      00001 00000005 05037  05442 05497 05498 05668 05715 05735 05739 05828 05898 05932 05935 05978 06137 06295 06400
                               06403 06406 06439 06447 06526 06530 06578 06581 06596 06601 06604 06690
PDADCT   00004 0000005C 02797  05164 06076 06194 06625 06898
PDBCLASS 00001 00000001 03124  03407 03583 03607 03623 03638 05516 05540 05557 05573
PDBCOPYS 00001 00000008 03157  03496 05627

PDBCPU   00001 00000009 03158  03509 03678 05636
PDBDEST  00002 0000000A 03154  03481 03667 05616
PDBDSECT 00001 00000000 03113  03129 03141 03386 05498 05935
PDBFCB   00004 00000008 03148  03441 03442 03619 03620 05553 05554

PDBFLAG1 00001 00000000 03114  03400 03418 03557 03578 03590 03695 05511 05523 05935
PDBFLAG2 00001 00000007 03133  03421 03593 05526
PDBFORMS 00004 00000008 03147  03430 03431 03602 03603 05535 05536
PDBINDEX 00001 00000009 03153  05606
PDBIOT   00002 000001A8 03384  03398
PDBJOE   00002 000001E6 03406  03401
PDBLENG  00001 00000002 03125  03403 03563 05655
PDBMISC1 00004 00000008 03151  03155 03482 03668 05617
PDBMISC2 00004 00000008 03156  03160 03510 03679 05637
PDBMTTR  00004 00000003 03126  05661
PDBNEXT  00002 000001B6 03390  03405 03718
PDBPDB   00002 000001D2 03399  03393

PDBRECCT 00004 00000008 03150  03461 03462 03648 05585 05586
PDBSCAN  00002 00000198 03380  03361 03369
PDBSEC   00001 00000008 03152  03471 03656 05595

PDBUCS   00004 00000008 03149  03451 03452 03634 03635 05569 05570
PDBWTRID 00008 00000008 03161  03519 03689 05647
PDB1FLG2 00001 00000080 03115  03418 03590 05523
PDB1LOG  00001 00000020 03117  05935
PDB1NULL 00001 00000040 03116  03400 03557 03578 03695 05511
PDCT     00004 00000058 02795  05111 05147 05203 05235 05263 05402 05437 05469 05802 05928 06115 06151 06167 06199 06213
                               06299 06315 06342 06459 06667 06722 06740 06764 06923
PDCTFLAG 00001 0000005C 02796  05744 05930 06024 06029 06034 06072 06165 06766 06767 06776 06792 06803 06805 06822 06840
                               06844 06854
PDDBDISP 00002 000000B0 02811  05220 05495 05508 05663 05931 05977
PDDBFCHK 00002 000016D4 05658  05651
PDDBNEXT 00002 00001540 05496  05657 05984

PDDBPGCT 00002 000000B2 02812  05664 05664 05677 05730 05783 05796 05798 05799 05813 05887 05902 05922 06846

PDDBSKIP 00002 000000A8 02806  05217 05217 05730 05799 05801 05801 05813 05887 05894 05902 05920 05927 05927 06846
PDDBSRCH 00002 000016C8 05653  05512 05517 05544 05561 05577 05599 05620 05640 05986

PDELET   00002 000025E8 06802  06777 06791
PDELETA  00002 00002612 06815  06806
PDEVTYPE 00004 000000C4 02818  05156 06233 06302 06311 06334 06392 06732 06741
PENDINIT 00002 00001514 05480  05468 05471 05909 05911 05925
PENDSTAT 00001 00002990 07005  07009
PFASTRT  00002 00001700 05669  05660
PGOTUNIT 00004 00002BC4 05111  05100
PHALFMSK 00004 0000288C 06972  05894
PIDLMSG  00014 00002DDF 05314  05281 05281 05282 05289
PINOWTO  00002 00002DC0 05299  05214 05290
PRPU                                              CROSS-REFERENCE                                              PAGE  185


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


PINTRPT  00002 0000261C 06821  06804
PINULL   00002 00002D2C 05243  05195

PJCTWER  00002 00001CF0 06088  06083

PJCTWOK  00002 00001CF6 06092  06052 06073 06082
PJCTWTR  00002 00001CD8 06080  06087
PJOB     00004 00000060 02798  05135 05136 05137 05194 05333 05335 05344 05371 05487 05683 05864 05871 05994 06011 06051
                               06093
PJOBSTAT 00032 00002900 07000  05939 05939
PJOEREM  00002 00001E38 06182  06166
PJOTWAIT 00002 00002DB0 05291  05278
PJSTAT02 00009 00002920 07001  07006 07006
PJSTAT03 00009 00002934 07002  07006 07007 07007
PJSTAT04 00009 00002952 07003  07007 07008 07008
PJSTAT05 00009 00002970 07004  07008 07009 07009
PL       00001 00000007 05039  05072 05187 05188 05337 05338 05443 05466 05476 05484 05485 05665 05666 05667 05670 05671

                               05671 05672 05675 05682 05684 05700 05701 05707 05736 05736 05737 05740 05761 05762 05763
                               05827 05836 05837 05856 05861 05862 05868 05869 05892 05899 05900 05901 05906 05908 05912
                               05920 05922 05940 05947 05954 05961 05973 06004 06005 06042 06138 06139 06140 06148 06155

                               06211 06212 06218 06221 06223 06229 06231 06237 06239 06245 06296 06297 06298 06314 06341
                               06358 06359 06364 06373 06375 06402 06405 06408 06409 06410 06411 06413 06417 06424 06426
                               06426 06429 06438 06440 06444 06451 06452 06453 06454 06459 06460 06528 06531 06532 06533
                               06535 06536 06539 06580 06582 06583 06584 06590 06591 06593 06603 06606 06607 06608 06610
                               06611 06632 06635 06635 06636 06661 06661 06662 06664 06680 06688 06702 06707 06709 06710
                               06711 06712 06715 06720 06729 06761 06881 06897 06947
PLC      00001 00000008 05040  05690 05690 05763 05764 05781 05781 06518 06521 06524 06529 06597 06597 06598 06600
PLINKI2  00002 000014CA 05077  05239 05846
PLSAVE   00004 000000C8 02819  06664 06680 06707
PLSAVE2  00004 000000CC 02820  06316 06343 06364 06373 06374 06411 06412
PLSAVE3  00004 000000D0 02821  05089 05989 06879 06881 06897
PMESSAGE 00040 00000080 02805  05199 05202 05205 05209 05280 05281 05282 05285 05852 05852 05853 05854 05855 05884 05884

                               05885 05890 05937 05938 05938 05938 05939 05941 05942 05942 05942 05943 05946 05948 05949
                               05949 05949 05950 05953 05955 05956 05956 05956 05957 05960 05962 05963 05963 05963 05964
                               05972 06022 06022 06023 06026 06031 06036 06039 06040 06168 06169 06171 06216 06285 06309
                               06310 06313 06339 06340 06369 06382 06421 06437 06441 06441 06442 06443 06456 06539 06540

                               06541 06544 06550 06558 06586 06590 06771 06778 06794 06808 06813 06816 06826 06845 06848
                               06856 06872 07021 07021
PMORNING 00004 00002210 06478  06475
PNDBUF   00002 00001DF6 06162  06158
PNEXTDDB 00002 00001A90 05926  05882 05895
PNOBUF   00002 00002D46 05256  05174 05181

PNOCOUNT 00004 000017DA 05735  05729 05731
PNOJOB   00004 00002D54 05263  05131
PNOJOE   00002 00001E42 06187  06164 06181
PNOMSG   00002 00002CCC 05216  05185
PNOON    00004 00002890 06973  06474 06477
PNOSECBF 00002 00002C6A 05182  05177
PNOUNIT  00002 00002D38 05249  05098 05108 05163
PNXTBLK  00002 0000175A 05696  05843

PNXTCCW  00002 000017B0 05724  05834

POLAYCON 00004 00002894 06974  06709
PONMSG   00012 00002DCE 05312  05199 05199 05205 05213
PPCCWMG  00004 000024E4 06704  06697
PPCHAIN  00004 000024AA 06690  06687
PPCHECK  00002 0000256C 06755  05837 05901 06140 06298 06410 06533 06584 06608 06688
PPCOPY   00002 0000168A 05628  05626
PRPU                                              CROSS-REFERENCE                                              PAGE  186


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

PPCPU    00002 000016A2 05638  05635

PPDEL    00004 000026B0 06869  06847 06849
PPDELMSG 00011 00002814 06959  06036 06036 06813 06813 06816 06816 06876
PPDELSW  00001 00000040 05047  05768 05881 05883 05974 06001 06017 06656 06665 06762 06869 06894 06912
PPDFRPT  00002 0000268A 06857  06814
PPDONE   00002 00001B9A 05988  05244 05449 05478 05493 05505 05839 05877 05880

PPDONE1  00002 00001BA6 05992  05999 06883 06888
PPDSCPY  00001 00000132 02842  05629 05983

PPENDCHK 00004 000024D0 06699  06692
PPEND00  00002 00001BBA 06000  05996
PPEND01  00002 00001BF2 06016  05991
PPEND02  00002 00001C24 06028  06025
PPEND03  00002 00001C36 06033  06030
PPEND04  00002 00001C48 06038  06035
PPFCB    00002 000015CE 05555  05552
PPFLAG   00001 00000058 02794  05245 05450 05477 05492 05712 05768 05838 05847 05849 05876 05879 05881 05883 05891 05893

                               05974 05990 06001 06013 06014 06017 06020 06044 06108 06111 06129 06144 06163 06649 06656
                               06665 06686 06714 06728 06757 06762 06863 06864 06869 06877 06894 06912 06946
PPFORM   00002 0000159E 05537  05534
PPINDEX  00002 00001656 05607  05605
PPIOTCK  00002 0000198C 05857  05848 05851

PPIOTEST 00002 00002722 06907  06763 06769 06855 06878 06880 06901
PPIOTOK  00002 0000153C 05494  05489
PPIOTRD  00002 00001518 05483  05509

PPIOTST  00002 000026F8 06893  06130
PPIOTSTA 00002 000026E0 06884  06892
PPJCARDS 00004 000000F4 02830  05358 05944
PPJCTIOT 00001 00000002 05052  05245 05450 05492 05876 06013 06111
PPJDSKEY 00004 00000108 02835  05363 05709
PPJJNAME 00008 00000114 02838  05356 06437 06510
PPJJOBEB 00004 0000010C 02836  05354 06255 06319 06319 06346 06346 06442 06468

PPJLINES 00004 000000F8 02831  05359 05951
PPJNDS   00001 00000133 02843  05364 05364 05670 05672 06114
PPJOBFRM 00004 000000EC 02828  05352 05532
PPJPNAME 00020 0000011C 02839  05357 06511
PPJPUNCH 00004 000000FC 02832  05360 05958

PPJROOMN 00004 00000110 02837  05355 06509
PPJXEQOF 00004 00000100 02833  05361 05965
PPJXEQON 00004 00000104 02834  05362 05966
PPLNCDCT 00004 000000B4 02813  05732 05734 06060 06070 06107

PPMSGCLS 00001 00000131 02841  05353 05540 05557 05573
PPNOJOE  00001 00000008 05050  05838 05990 06014 06044 06129 06144 06163 06762 06863 06877
PPNOMERG 00004 000024CC 06698  06694
PPPDB    00002 00001566 05510  05501
PPPINIT  00004 00002758 06923  06911 06913
PPPINIT1 00004 00002764 06927  06758

PPPINMVC 00006 000027A6 06943  06940
PPPUT    00004 00002452 06664  05827 05899 06138 06296 06440 06454 06528 06529 06531 06580 06582 06603 06606
PPPUT1   00004 0000248A 06679  06670 06673
PPPUT2   00002 00002492 06681  06677
PPPWAIT  00002 00002564 06750  06910 06925

PPRCFLAG 00001 000000AC 02808  05399 05473 05659 05673
PPRCPYCT 00001 000000AD 02809  05374 05666 05812 05980 05982 05983 05985
PPRDERR  00001 00000004 05051  05712 05847 05849 06108 06649
PPRECC   00002 00001626 05587  05584
PRPU                                              CROSS-REFERENCE                                              PAGE  187



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

PPRECCT  00004 000000F0 02829  05588
PPREPMSG 00011 000027FD 06956  06169 06169 06175 06778 06778 06798 06812
PPRESMSG 00011 00002840 06963  06031 06031 06856 06856
PPROUT   00002 00001672 05618  05615

PPRTSTAT 00030 00002934 07007  05950 05950
PPSEC    00002 0000163A 05596  05594
PPSETMSG 00062 000027BA 06954  06254 06254 06262 06265
PPUCS    00002 000015FA 05571  05568
PPUNSTAT 00030 00002952 07008  05957 05957

PPUTOLAY 00004 0000244C 06661  05443
PPUTRET  00004 000024EE 06707  06666 06675 06701 06703
PPUTUCS  00004 0000248E 06680  06402 06405 06408
PPWRITE  00004 000024FC 06714  05836 05900 06139 06297 06409 06532 06583 06607 06702
PPWSW    00001 00000080 05046  06686 06714 06728 06757 06946
PPWTRI   00002 000016BA 05648  05646

PRBADCC  00004 00001834 05759  05747 05750 05771 05780
PRBADJCT 00002 00002FAE 05448  05345
PRBSPMSG 00011 0000282A 06961  05889 06848 06848
PRCCPYCT 00001 00000005 01160  05374 05374 05666 05666 05812 05812

PRCCWCOM 00008 000029C0 07021  06604
PRCCWEJ  00008 00002990 07015  05898 06295 06530 06601
PRCCWID  00008 00002998 07016  06526 06578
PRCCWSP  00008 000029B8 07020  06439 06447 06596
PRCFLAGS 00001 00000004 01159  04409 05366 05373 05386 05386 05399 05399 05667 06189 06866

PRCHKJOB 00001 00000040 01173  05473 05659 05667 05673 06866
PRCHKPTE 00004 00000064 02799  05370 05665 05811 05979 06188 06827 06830 06865
PRCHKUSE 00001 00000080 01172  05366 05373
PRCJOBNO 00001 00000000 01157  05372
PRCKJOE  00001 00000002 01158  05379
PRCKPTCT 00002 000018EC 05810  05806
PRCLINCT 00001 0000000C 01164  06828 06828

PRCOM    00005 000027F8 06955  05853 05885 06023 06958
PRCOMENT 00004 00002392 06593  05856 05892 05940 05947 05954 05961 05973 06042
PRCOMSP  00002 000023B6 06602  06599

PRCONTHD 00005 000028A2 06976  05475
PRCPYTST 00002 00001B70 05976  05934 05936
PRCSCKPT 00004 00002EF6 05388  05393
PRCSCOLD 00002 00002F1C 05401  05381 05383
PRCSIZE  00028 0000001C 01168  04409 05217 05368 05374 05386 05399 05666 05812

PRCSPOST 00004 00002F0A 05394  05389
PRCSRCH1 00004 00002EA0 05366  05369
PRCSRCH2 00004 00002EB0 05370  05367
PRDBUF   00004 000023E0 06620  05187 05337 05484 05682 05700 05868 06004 06616
PRDCHK   00002 00002406 06637  05485 05684 05701 05862 05869 06005
PRDCHKOL 00004 00002400 06635  05188 05338
PRDCHKRT 00002 000024F2 06708  06657 06659
PRDCOMP  00002 00002432 06653  06643

PRDEL    00004 0000269A 06864  06817
PRDELCM1 00002 00001C58 06043  06019

PRDELCOM 00002 00001C54 06041  06027 06032 06037
PRDELSW  00001 00000010 05049  05245 05450 05477 05492 05876 05879 05891 05893 06013 06020 06762 06864
PRDERROR 00004 00002428 06649  06644
PRDERRXC 00006 00002442 06658  06655
PRDNXTB  00004 000023D2 06614  05707 05861

PRDRECHK 00004 00002410 06642  06648
PRPU                                              CROSS-REFERENCE                                              PAGE  188


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

PRDRSTAT 00020 00002920 07006  05943 05943
PRENDHD  00005 000028AC 06978  06154
PRESTRT  00004 00002540 06738  06921
PRETRNI2 00004 00002D24 05239  05223
PRFSPMSG 00011 0000281F 06960  05886 06845 06845
PRGOODCC 00004 00001840 05762  05754

PRHASPID 00010 00002898 06975  06457

PRIDATE  00002 00002264 06499  06503
PRINDEX  00001 00000130 02840  05465 05608 05609 06147 06226 06384 06386 06389
PRINIT   00004 000027AC 06944  06929
PRINTID  00002 00002136 06416  05476 06155
PRINTRET 00002 00002F30 05407  05404

PRINTSEP 00002 000014D4 05462  05408 05444
PRIOEMSG 00008 00002856 06965  05855 05855 06040 06040
PRJOB    00005 000028B1 06979  06467 07019
PRLENCOM 00001 0000001C 06958  05853 05885 06023
PRLINECT 00004 000000D4 02822  05350 05764 06598
PRMTMSG  00002 00002FBA 05454  05327
PRNOID   00004 000022CE 06532  06427
PRNOJOE  00004 00002696 06863  06834
PRNOPRNT 00004 00001928 05828  05748 05756 05758 05800 05814 05819 05821
PRNOVFL  00006 000018F6 05813  05765

PRNSPACE 00004 0000180C 05749  05745

PRN8940  00002 0000187E 05778  05772 05776
PRPAGECT 00004 000000B8 02814  05691 05693 05807 05809 06065 06122
PRPUDSV  00002 00001E6E 06210  05466 05675 06148
PRPUENT  00002 000014B8 05064  05456 06205

PRPUEXIT 00002 00001DE6 06156  06150 06153
PRROOM   00005 000028B6 06980  06508
PRSKIP   00004 00001856 05768  05752
PRSTART  00002 0000267C 06853  06825 06841 06843
PRSTRTHD 00005 000028A7 06977  05472
PRSUSMSG 00011 00002835 06962  06026 06026 06826 06826
PRSUSTST 00002 000019D4 05878  05866 05873 05975
PRTNOUCS 00002 00002E3C 05347  05334
PRTPCEWS 00001 000001F0 02849  05230
PRTRAILR 00002 00001DAE 06141  06134
PRTRMMSG 00011 0000284B 06964  05854 05854 06039 06039

PRZCL    00004 00001920 05826  05816
PSKPBSP  00002 000018B0 05794  05784
PSPACE   00002 0000264E 06839  06823
PSTMSBLK 00002 00001784 05708  05706

PSTNXTDS 00002 00001778 05704  05694
PTCHK    00002 00000A86 04359  04678
PTCKPT   00002 00000A9C 04373  04367
PTEXIT   00002 00000B02 04410  04404
PTIMASK  00021 000028BB 06981  06473
PTIMEOFF 00002 00001C60 06046  06015 06021
PTIMEON  00004 0000006C 02801  05142 06106
PTPRC    00002 00000AF2 04405  04400
PTRMT    00002 00000AD6 04397  04385
PUCCW    00008 000029A0 07017  05441 05442
PUCCWBL  00008 000029B0 07019  06137
PUCHARD  00004 00002F6E 05427  05423

PUCHAR0  00004 00002F6A 05426  05424
PRPU                                              CROSS-REFERENCE                                              PAGE  189


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


PUCHGEN  00004 00002F4A 05418  05433
PUCSFND  00002 000020B2 06377  06370
PUCSTAB  00002 00002A52 07133  06366 06366 06367 06369 06371
PUCSTABE 00002 00002B88 07610  06366
PUCSTAB1 00002 00002A5C 07139  06366 06371
PUCSTYPE 00008 00002A54 07138  06369
PUERRPT  00004 00000068 02800  05229 06735 06737 06930
PUNCH    00004 00001904 05818  05742
PUNCHERR 00004 00002524 06731  06917
PUNCHI1  00002 00002BB2 05102  05091
PUNCHON  00005 00002DDA 05313  05202 05202
PUNLACE  00002 00002F38 05412  05406

PUNPCEWS 00001 000001F8 02852  05233

PUNSEPCD 00002 00001D8C 06131  06045
PURETRY  00002 00002544 06739  06736 06919

PUREXCP  00002 00002560 06747  06742
PW       00001 00000002 05034  05118 05119 05119 05120 05147 05148 05157 05218 05220 05224 05227 05227 05228 05229 05230
                               05233 05234 05235 05236 05236 05237 05263 05264 05267 05297 05347 05347 05348 05349 05350
                               05365 05366 05368 05368 05370 05372 05373 05374 05379 05386 05399 05416 05416 05419 05431
                               05431 05432 05499 05538 05597 05649 05652 05685 05688 05688 05689 05691 05692 05692 05693
                               05702 05732 05733 05733 05734 05773 05774 05775 05785 05787 05788 05796 05797 05797 05798
                               05802 05805 05807 05808 05808 05809 05896 05897 05980 05981 05981 05982 06115 06116 06127
                               06135 06136 06293 06294 06367 06369 06371 06371 06379 06398 06399 06418 06419 06498 06500
                               06500 06501 06507 06585 06594 06595 06684 06685 06685 06689 06690 06691 06691 06693 06698
                               06699 06700 06704 06705 06718 06719 06721 06731 06734 06735 06737 06738 06764 06765 06914
                               06915 06915 06920 06923 06926 06927 06930 06931 06931 06933 06934 06942 06944 06945 06945
PWKJOE   00004 000000D8 02823  05133 05375 05516 05597 06105 06178 06184 06443 06458 06780 06785 06831 06860

PXEQSTAT 00032 00002970 07009  05964 05964
PYEARTAB 00001 000028D0 06983  06488 06493 06498

QENTBY   00001 00000080 01021  03219

QUEFLAGS 00001 00000004 01010  03487 03533 03725 03731 03770 03771 04237 05995 06002 06094
QUEHOLDA 00001 00000080 01033  04237
QUEHOLD1 00001 00000040 01034  04237
QUEJCTSW 00001 00000002 01039  03725 03731 03770 05995 06002 06094
QUEJOBNO 00001 00000002 01009  03256 05372
QUEJOECT 00001 0000000E 01015  03248 03775 03775 04000 04002 04121 04123 04503 04505 04564 04564
QUEOPRTE 00001 00000004 01038  03487
QUEPRIO  00001 00000000 01007  04239
QUEPRTRT 00001 0000000C 01013  04243
QUEPUNRT 00001 0000000D 01014  04246
QUEPURGE 00001 00000010 01036  03533 03771
QUETRAK  00001 00000008 01012  03277 03348 03742 03758 05186 05336 05488 05865 05872 06003

QUETYPE  00001 00000001 01008  03219 04129 04131 04563 04566
RMCHAR   00002 000007A6 04056  04051
RMCHEL   00002 00000800 04091  04087

RMCHK    00002 00000770 04025  04675
RMCKPT   00002 00000786 04039  04033
RMCQSCN  00002 000007F0 04085  04090
RMEXIT   00002 00000862 04135  04128
RMRMT    00002 000007D6 04073  04059 04061
RMWKEL   00002 00000832 04112  04108
RMWORK   00002 0000080C 04098  04078
RMWQSCN  00002 00000822 04106  04111
RNP      00001 00000007 03189  03262 03271 03281 03282 03283 03284 03344 03345 03346 03347 03370 03417 03417 03421 03422
                               03428 03428 03439 03439 03449 03449 03459 03459 03469 03469 03479 03479 03494 03494 03507
PRPU                                              CROSS-REFERENCE                                              PAGE  190


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


                               03507 03517 03517 03524 03524 03525 03556 03589 03589 03593 03594 03600 03600 03617 03617
                               03632 03632 03646 03646 03654 03654 03665 03665 03676 03676 03687 03687 03743 03762 03763
                               03764 03765 03814 03822 03867 03873 03935 03972 03987 04052 04094 04101 04115 04210 04329

                               04402 04512 04537 04550 04605 04621 04658
R0       00001 00000000 00306  03247 03247 03248 03249 03261 03262 03271 03277 03307 03313 03313 03314 03315 03336 03367
                               03368 03368 03370 03535 03539 03540 03543 03739 03740 03741 03742 03756 03758 03774 03777
                               03795 03795 03796 03797 03840 03904 03905 03977 04068 04075 04122 04183 04224 04257 04310
                               04392 04399 04504 04518 04557 04590 04612 04615 04628 05113 05114 05125 05132 05142 05166
                               05167 05211 05287 05419 05420 05522 05522 05526 05527 05533 05533 05551 05551 05567 05567
                               05583 05583 05593 05593 05604 05604 05614 05614 05625 05625 05634 05634 05645 05645 05969
                               05969 05970 06056 06173 06177 06177 06262 06265 06268 06270 06326 06352 06366 06372 06474
                               06477 06478 06496 06496 06499 06501 06502 06622 06623 06780 06783 06784 06787 06796 06810
                               06830 06859 06859 06874
R1       00001 00000001 00307  03203 03206 03216 03219 03233 03248 03255 03256 03257 03261 03264 03267 03275 03276 03279
                               03280 03283 03287 03288 03290 03300 03303 03305 03310 03311 03312 03337 03339 03342 03343

                               03346 03358 03374 03532 03533 03536 03732 03733 03737 03738 03741 03756 03757 03760 03761
                               03764 03773 03775 03775 03782 03791 03799 03800 03801 03828 03834 03838 03839 03841 03848
                               03849 03850 03851 03852 03874 03927 03942 04048 04099 04102 04149 04197 04199 04203 04209
                               04221 04221 04297 04322 04323 04379 04427 04483 04496 04562 04563 04564 04564 04566 05096

                               05106 05111 05112 05124 05135 05142 05150 05151 05152 05153 05154 05155 05157 05161 05164
                               05165 05169 05175 05182 05190 05191 05193 05203 05204 05206 05209 05267 05272 05273 05274
                               05285 05329 05330 05332 05340 05341 05343 05371 05372 05375 05376 05377 05384 05385 05386
                               05387 05394 05396 05402 05403 05415 05418 05420 05421 05422 05425 05426 05427 05428 05428
                               05429 05430 05430 05463 05464 05464 05469 05470 05472 05475 05487 05488 05521 05521 05535
                               05536 05536 05553 05554 05554 05569 05570 05570 05585 05586 05586 05595 05606 05616 05617

                               05617 05627 05636 05637 05637 05647 05674 05719 05720 05725 05811 05812 05828 05829 05830
                               05831 05833 05864 05865 05871 05872 05886 05889 05890 05928 05929 05944 05945 05951 05952
                               05958 05959 05965 05966 05968 05971 05979 06007 06008 06010 06047 06048 06050 06056 06057
                               06060 06061 06062 06065 06066 06067 06070 06071 06074 06075 06076 06077 06090 06093 06094
                               06097 06099 06126 06142 06143 06143 06146 06151 06152 06154 06160 06167 06168 06171 06178
                               06184 06188 06189 06191 06194 06199 06202 06203 06204 06212 06267 06324 06350 06421 06456
                               06466 06487 06497 06499 06502 06504 06620 06621 06624 06625 06626 06629 06638 06640 06651
                               06667 06674 06676 06679 06695 06696 06705 06722 06723 06725 06740 06743 06781 06794 06808

                               06831 06860 06865 06866 06867 06868 06872 06887 06898 06899 06903 06932 06933 06934 06936
                               06938 06941 06941 06943

R10      00001 0000000A 00316  00335
R11      00001 0000000B 00317  00336
R12      00001 0000000C 00318  00337 03898 03912 04018 04043 04146 04172 04191 04350 04377 04425 04450 04456 04481 04581
                               04590 04591 04606 04612 04613 04622 04628 04629 04659
R13      00001 0000000D 00319  00338
R14      00001 0000000E 00320  00339 00559 03252 03253 03253 03254 03500 03545 03829 03830 03841 03842 03895 03897 03913
                               04019 04040 04042 04147 04169 04171 04192 04351 04374 04376 04426 04447 04449 04457 04478
                               04480 04582 05128 05129 05377 05378 05379 05507 05508 06180 06186 06789 06833 06862

R15      00001 0000000F 00321  00558 00558 03241 03285 03285 03486 03487 03498 03498 03499 03501 03502 03541 03542 03543
                               03544 03545 03546 03546 03550 03728 03744 03744 03813 03821 03831 03832 03836 03837 03859
                               03867 03872 03872 03883 03884 03889 03890 03911 04016 04016 04017 04028 04029 04034 04035
                               04148 04157 04158 04163 04164 04190 04190 04343 04345 04346 04349 04354 04362 04363 04368
                               04369 04424 04435 04436 04441 04442 04455 04455 04458 04466 04467 04472 04473 04584 05071

                               05078 05127 05130 05133 05186 05252 05259 05294 05303 05336 05392 05482 05503 05504 05504
                               05506 05654 05654 05655 05656 05681 05697 05841 05842 05842 05867 05998 06003 06086 06179
                               06180 06185 06186 06278 06380 06436 06551 06551 06553 06554 06554 06556 06557 06558 06559

                               06559 06562 06563 06564 06565 06569 06569 06614 06615 06615 06617 06628 06647 06743 06744
                               06744 06745 06745 06746 06753 06785 06786 06787 06788 06789 06790 06790 06827 06828 06828
                               06832 06833 06861 06862 06891 06935 06938 06939 06940 06942 06943
R2       00001 00000002 00308  00327 03257 03277 03348 03385 03386 03392 03404 03564 03566 03572 03703 03711 03712 03712
PRPU                                              CROSS-REFERENCE                                              PAGE  191


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

                               03723 03725 03731 03742 03758 03770 03771 03773 03803 03898 03903 03904 03905 03906 03912

                               03944 03946 03952 03955 03959 03964 03965 03965 03966 03991 03992 03998 03999 04000 04002
                               04006 04009 04018 04043 04049 04050 04050 04057 04062 04065 04074 04076 04086 04092 04102
                               04103 04107 04113 04119 04120 04121 04123 04129 04131 04146 04172 04182 04183 04184 04184
                               04191 04222 04222 04223 04224 04225 04235 04236 04237 04239 04243 04246 04252 04253 04253
                               04258 04263 04265 04267 04279 04282 04287 04309 04310 04313 04316 04331 04332 04332 04337

                               04340 04347 04348 04349 04350 04377 04390 04390 04391 04392 04393 04399 04401 04409 04414
                               04417 04425 04450 04456 04481 04501 04502 04503 04505 04509 04510 04510 04516 04517 04519
                               04529 04535 04548 04549 04571 04574 04581 04635 04638 04647 04648 04650 04651 04652 04656
R3       00001 00000003 00309  00328 03335 03335 03353 03353 03360 03375 03387 03388 03389 03402 03402 03403 03404 03411

                               03412 03413 03427 03430 03433 03438 03441 03444 03448 03451 03454 03458 03461 03464 03468
                               03471 03474 03478 03481 03484 03485 03493 03496 03499 03506 03509 03512 03516 03519 03522
                               03573 03574 03575 03599 03602 03610 03616 03619 03626 03631 03634 03641 03653 03656 03659
                               03664 03667 03670 03675 03678 03681 03686 03689 03692 03715 03716 03717 03746 03747 03749
                               03936 03940 03940 03941 03946 03947 03947 03949 03949 03950 03952 03973 03977 03978 03986
                               03991 03994 04000 04001 04001 04002 04062 04065 04067 04069 04074 04075 04076 04077 04077

                               04082 04083 04088 04093 04099 04100 04104 04105 04109 04114 04121 04122 04123 04127 04127
                               04208 04208 04209 04211 04243 04246 04249 04250 04257 04258 04279 04282 04283 04298 04299
                               04317 04317 04318 04319 04319 04320 04330 04331 04383 04386 04389 04407 04408 04409 04503
                               04504 04505 04517 04518 04519 04520 04520 04525 04526 04531 04536 04543 04544 04592 04593
                               04595 04596 04598 04599 04601 04603 04604 04604 04614 04615 04616 04617 04618 04619 04620

                               04630 04631 04631 04632 04633 04635 04639 04641 04641 04642 04642 04649 04651 04652 04653
                               04654 04654 04657 06895 06905
R4       00001 00000004 00310  00329 03955 03956 03957 03958 03959 03967 03968 03979 03980 03980 03981 03982 04066 04066
                               04067 04068 04069 04084 04086 04088 04089 04089 04092 04093 04105 04107 04109 04110 04110
                               04113 04114 04136 04139 04313 04316 04318 04320 04386 04389 04391 04393 04527 04529 04531

                               04532 04532 04535 04536 04542 04544 06542 06542 06544 06547 06547 06550 06575 06575 06576
                               06586 06587 06587 06588
R5       00001 00000005 00311  00330 03416 03416 03430 03431 03431 03441 03442 03442 03451 03452 03452 03461 03462 03462
                               03471 03481 03482 03482 03496 03509 03510 03510 03519 03527 03528 03528 03529 03553 03555
                               03562 03562 03563 03564 03588 03588 03602 03603 03603 03619 03620 03620 03634 03635 03635

                               03648 03648 03656 03667 03668 03668 03678 03679 03679 03689 04197 04198 04324 04324 04353
                               04484 04486 04557 04558 06548 06571 06572 06572 06574 06574
R6       00001 00000006 00312  00331
R7       00001 00000007 00313  00332 05532 05535 05543 05545 05550 05553 05560 05562 05566 05569 05576 05578 05582 05585
                               05588 05592 05595 05598 05603 05606 05608 05613 05616 05619 05624 05627 05629 05633 05636

                               05639 05644 05647 05650 06550 06553 06567 06573
R8       00001 00000008 00314  00333 00334
SAVE     00001 0000000D 00338  00726 06605
SMFCBER  00001 00000001 03012  06113
SMFDSECT 00001 00000000 02856  06099
SMFDSER  00001 00000004 03011  06110

SMFHDRTY 00001 0000000D 02867  06102
SMFOUTTP 00001 00000006 03002  06102
SMFRDW   00004 00000008 02861  06100 06101 06101 06101 07056
SMFRSTRT 00001 0000001A 02873  02899 02955

SMFSSTRT 00001 00000020 02960  02969 02974 02986
SMF6END  00001 00000066 02895  06101 07056
SMF6FCB  00004 00000058 02891  06120
SMF6FMN  00004 00000041 02887  06117
SMF6IOE  00001 0000003F 02885  06110 06113

SMF6JBN  00008 0000001A 02877  06103
SMF6JNM  00004 0000004C 02889  06118
SMF6NDS  00001 00000040 02886  06114
SMF6NLR  00004 0000003B 02884  06107
PRPU                                              CROSS-REFERENCE                                              PAGE  192


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

SMF6OUT  00008 00000050 02890  06119

SMF6OWC  00001 00000032 02881  06105
SMF6PGE  00004 00000060 02893  06122
SMF6RTE  00002 00000064 02894  06123

SMF6UCS  00004 0000005C 02892  06121
SMF6UIF  00008 0000002A 02880  06104
SMF6WST  00004 00000033 02882  06106
SRTEASCI 00001 00000004 02349  02350
SRTEBSTR 00001 00000004 02348  02351

UCBALOC  00001 00000008 02100  02218
UCBBALB  00001 00000020 02255  02345
UCBBJLB  00001 00000002 02263  02352
UCBBNUL  00001 00000001 02264  02353
UCBBPRV  00001 00000010 02259  02346
UCBBPUB  00001 00000008 02260  02347
UCBBSTR  00001 00000004 02261  02348 02349
UCBBSVL  00001 00000080 02249  02344

UCBCHGS  00001 00000040 02097  02215
UCBDADI  00001 00000001 02105  02221

UCBDBBNR 00002 00000038 02538  02574
UCBDCELL 00016 00000038 02536  02573
UCBDDMCT 00001 00000043 02564  02579
UCBDEV   00001 00000018 02228  02237 02364 02398 02414 02434 02516
UCBDJBNR 00001 00000042 02563  02578

UCBDMCT  00001 00000023 02267  02354
UCBDSECT 00001 00000000 01956  05155 06746
UCBDSTAB 00001 0000003A 02539  02575
UCBDSTAT 00001 0000003B 02551  02576
UCBDUSER 00001 00000047 02571  02581
UCBDVOLI 00006 0000003C 02562  02577
UCBDVTOC 00003 00000044 02570  02580
UCBFL1   00001 00000006 02113  02222 06746
UCBFSCT  00002 00000024 02272  02355

UCBFSEQ  00002 00000026 02273  02356

UCBJBNR  00001 00000000 02062  02211
UCBMONT  00001 00000001 02072  02212
UCBNOTRD 00001 00000040 02115  06746
UCBONLI  00001 00000080 02096  02214
UCBPRES  00001 00000004 02101  02219

UCBRESV  00001 00000020 02098  02216
UCBSTAB  00001 00000022 02248  02343
UCBSTAT  00001 00000003 02095  02213
UCBSYSR  00001 00000002 02102  02220
UCBTYP   00004 00000010 02161  05156
UCBUNLD  00001 00000010 02099  02217
UCBUSER  00001 00000038 02324  02357 02530
UCBVOLI  00006 0000001C 02247  02342
WA       00001 00000002 00327  05034
WB       00001 00000003 00328  05035

WC       00001 00000004 00329  05036

WD       00001 00000005 00330  05037
WE       00001 00000006 00331  05038
WF       00001 00000007 00332  05039
WG       00001 00000008 00333  05040

Z        00001 00000008 00351  06761
PRPU                                              LITERAL CROSS-REFERENCE                                      PAGE  193


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

=C'HASPPRPU'
         00001 00000D08 04667  03516 03686
=V($CKPTPCE)
         00004 00000D10 04668  03203 04006 04136 04337 04414 04571
=CL4'6'  00004 00000D14 04669  03438 03616
=CL4'****'
         00004 00000D18 04670  03448 03631 04267
=F'1000' 00004 00000D1C 04671  03458

=V($#ADD)
         00004 00000D20 04672  03544
=A(ADCHK)
         00004 00000D24 04673  03889

=F'4096' 00004 00000D28 04674  03895 04040 04169 04374 04447 04478
=A(RMCHK)
         00004 00000D2C 04675  04034
=A(GTCHK)
         00004 00000D30 04676  04163
=CL4'STD.'
         00004 00000D34 04677  04287
=A(PTCHK)
         00004 00000D38 04678  04368
=A(LCCHK)
         00004 00000D3C 04679  04441
=A(CNCHK)

         00004 00000D40 04680  04472
=F'65535'
         00004 00000D44 04681  04653

=X'8000' 00001 00000D48 04682  03478 03664
=H'193'  00002 00000D4A 04683  04592
=H'8'    00002 00000D4C 04684  04593 04598
=H'7'    00002 00000D4E 04685  04595
=H'17'   00002 00000D50 04686  04596
=H'25'   00002 00000D52 04687  04599
=H'6'    00002 00000D54 04688  04601
=AL1(DCTREAD)
         00001 00000D56 04689  03281 03344 03739
=X'00'   00001 00000D57 04690  03468 03506 03653 03675
=X'01'   00001 00000D58 04691  03493
=AL1(DCTWRITE)

         00001 00000D59 04692  03762

=C'HASPPRPU'
         00001 000029E0 07033  05125 05644

=8X'C0'  00001 000029E8 07034  06540
=V($#GET)
         00004 000029F0 07035  05127
=V($JOT) 00004 000029F4 07036  05378 05385
=V($CKPTPCE)
         00004 000029F8 07037  05394
=F'8'    00004 000029FC 07038  05432 06731 06734
=CL4'6'  00004 00002A00 07039  05550
=CL4'****'
         00004 00002A04 07040  05566 06239
=F'1000' 00004 00002A08 07041  05582
=F'2'    00004 00002A0C 07042  05738

=A(BUFSTART-BUFDSECT+1960)
PRPU                                              LITERAL CROSS-REFERENCE                                      PAGE  194


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


         00004 00002A10 07043  05833
=A(24*60*60*100)
         00004 00002A14 07044  05968
=F'60'   00004 00002A18 07045  05970
=V($#PUT)
         00004 00002A1C 07046  06179 06832 06861
=V($#REM)
         00004 00002A20 07047  06185
=C'V   ' 00001 00002A24 07048  06223
=C'0   ' 00001 00002A28 07049  06307
=C'UCS8' 00001 00002A2C 07050  06309
=C'UCSB' 00001 00002A30 07051  06321

=C'FCB9' 00001 00002A34 07052  06339 06382
=V($#ADD)

         00004 00002A38 07053  06788

=X'8000' 00001 00002A3C 07054  05613
=H'32'   00002 00002A3E 07055  05787 05908
=AL2(SMF6END-SMFRDW)
         00002 00002A40 07056  06100
=H'29'   00002 00002A42 07057  06524
=H'24'   00002 00002A44 07058  06557 06588
=H'8'    00002 00002A46 07059  06576
=X'00'   00001 00002A48 07060  05592 05603 05633
=X'01'   00001 00002A49 07061  05624
=X'018940'
         00001 00002A4A 07062  05775
=AL1(30) 00001 00002A4D 07063  06430 06522

=X'13'   00001 00002A4E 07064  06451
PRPU                                              ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE  195


                                                                                                 ASM 0201 20.02 08/28/78


NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT       3735
TOTAL RECORDS READ FROM SYSTEM LIBRARY     9823
TOTAL RECORDS PUNCHED                       341
TOTAL RECORDS PRINTED                      8501

RDR                                            EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.02 08/28/78

HASPRDR   SD  0001 000000 000D10
HA$QRDRI  XD  0002 000007 000000
HA$ORDRI  SD  0003 000D10 0000FC

HA$IRDRI  LD       000D18        0003
HA$QRJCS  XD  0004 000007 000000
HA$QRDRT  XD  0005 000007 000000
HA$ORDRT  SD  0006 000E10 000054
HA$IRDRT  LD       000E18        0006

HA$ORCC1  SD  0007 000E68 0003B2
HA$IRCC1  LD       000E70        0007
HA$ORCC2  SD  0008 001220 000377
HA$IRCC2  LD       001228        0008
HA$ORJCS  SD  0009 001598 00039A

HA$IRJCS  LD       0015A0        0009
HA$QRSCN  XD  000A 000007 000000
HA$ORSCN  SD  000B 001938 0003E2
HA$IRSCN  LD       001940        000B
HA$QRCC1  XD  000C 000007 000000
HA$QRCC2  XD  000D 000007 000000

$COMMPCE  ER  000E
XWARM     ER  000F
RDR                                                                                                            PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                      1 *                                                                  RFIT R0000000
                                      2 *                            KILL ALL 370 INSTRUCTIONS             RFIT R0000010
                                      3 *                                                                  RFIT R0000020
                                      4 MVCL     OPSYN ,                                                   RFIT R0000030
                                      5 CLCL     OPSYN ,                                                   RFIT R0000040

                                      6 SIOF     OPSYN ,                                                   RFIT R0000050
                                      7 HDV      OPSYN ,                                                   RFIT R0000070
                                      8 STNSM    OPSYN ,                                                   RFIT R0000080
                                      9 STOSM    OPSYN ,                                                   RFIT R0000090
                                     10 MC       OPSYN ,                                                   RFIT R0000110
                                     11 LRA      OPSYN ,                                                   RFIT R0000120
                                     12 STCTL    OPSYN ,                                                   RFIT R0000130

                                     13 LCTL     OPSYN ,                                                   RFIT R0000140
                                     14 CLM      OPSYN ,                                                   RFIT R0000180
                                     15 STCM     OPSYN ,                                                   RFIT R0000190

                                     16 ICM      OPSYN ,                                                   RFIT R0000200
                                     17 STIDP    OPSYN ,                                                   RFIT R0000210
                                     18 STIDC    OPSYN ,                                                   RFIT R0000220
                                     19 SCK      OPSYN ,                                                   RFIT R0000230
                                     20 STCK     OPSYN ,                                                   RFIT R0000240

                                     21 SCKC     OPSYN ,                                                   RFIT R0000250
                                     22 STCKC    OPSYN ,                                                   RFIT R0000260
                                     23 SPT      OPSYN ,                                                   RFIT R0000270
                                     24 STPT     OPSYN ,                                                   RFIT R0000280
                                     25 PTLB     OPSYN ,                                                   RFIT R0000310
                                     26 RRB      OPSYN ,                                                   RFIT R0000350
                                     27 SRP      OPSYN ,                                                   RFIT R0000360
RDR      HASP GLOBAL DEFINITIONS                                                                               PAGE    3



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                     29          COPY  $GLOBAL                                                  R0004000

                                     30 *                                                                       GL002000
                                     31 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                     32 *                                                                       GL006000



                                     34          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000

                                     35          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000
                                     36          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                     37          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000
                                     38          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000





                                     40 *                                                                       GL032000
                                     41 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000
                                     42 *                                                                       GL036000





                                     44          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000
                                     45          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                     46          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000
                                     47          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                     48          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000

                                     49          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000
                                     50          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                     51          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000
                                     52          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000
                                     53          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000
                                     54          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000
                                     55          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                     56          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000
                                     57          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000
                                     58          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000

                                     59          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000

                                     60          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                     61          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200
                                     62          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300
                                     63          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000

                                     64          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000
                                     65          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                     66          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000
                                     67          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                     68          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                     69          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000
                                     70          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000
                                     71          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                     72          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000
                                     73          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000

                                     74          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000

RDR      HASP GLOBAL DEFINITIONS                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                     76 *                                                                       GL116000
                                     77 *                             O/S INTERFACE PARAMETERS                  GL118000

                                     78 *                                                                       GL120000



                                     80          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000
                                     81          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                     82          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000
                                     83          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000
                                     84          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000
                                     85          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000
                                     86          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                     87          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000
                                     88          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000

                                     89          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000
                                     90          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                     91          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200
                                     92          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300

                                     93          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400





                                     95 *                                                                       GL150000
                                     96 *                             HASP OPTION PARAMETERS                    GL152000
                                     97 *                                                                       GL154000



                                     99          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000
                                    100          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000
                                    101          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000
                                    102          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000
                                    103          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000

                                    104          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000
                                    105          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000
                                    106          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000

                                    107          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000
                                    108          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000
                                    109          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100
                                    110          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500
                                    111          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                    112          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                    113          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000
                                    114          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                    115          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000
                                    116          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000
                                    117          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000
                                    118          GBLB  &DEBUG              DEBUG MODE                           GL186000

                                    119          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000

                                    120          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000
RDR      HASP GLOBAL DEFINITIONS                                                                               PAGE    5



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    122 *                                                                       GL226000
                                    123 *                             REMOTE JOB ENTRY PARAMETERS               GL228000
                                    124 *                                                                       GL230000



                                    126          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                    127          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000
                                    128          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000
                                    129          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    130          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000
                                    131          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000
                                    132          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000

                                    133          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000
                                    134          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000







                                    136 *                                                                       GL260000
                                    137 *                             INTERNAL GENERATION PARAMETERS            GL262000
                                    138 *                                                                       GL264000



                                    140          GBLC  &VERSION            HASP VERSION                         GL270000
                                    141          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000
                                    142          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                    143          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000
                                    144          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500
                                    145          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000
                                    146          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500

                                    147          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                    148          GBLA  &LOW                OVERLAY PRIORITY                     GL280000
                                    149          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000

                                    150          GBLA  &HIGH                 PARAMETER VALUES                   GL284000
                                    151          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000
                                    152          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000
                                    153          LCLC  &DOC                DOCUMENTATION OPTION                 R0006000
                                    154          LCLC  &MSGCLAS            DEFAULT MESSAGE CLASS                R0008000
RDR      HASP INPUT SERVICE PROCESSOR                                                                          PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                              157 HASPRDR  START 0                   HASP INPUT SERVICE PROCESSOR         R0014000






                                    159 *                                                                       R0018000
                                    160 *                             DEFAULT JOB CARD PARAMETERS               R0020000
                                    161 *                                                                       R0022000




                            00002   163 $ESTIME  EQU   2                   ESTIMATED MINUTES OF EXECUTION TIME  R0026000
                            00002   164 $ESTLNCT EQU   2                   ESTIMATED THOUSANDS OF LINES         R0028000
                            00064   165 $ESTPUN  EQU   100                 ESTIMATED CARDS TO BE PUNCHED        R0030000
                            0003D   166 $LINECT  EQU   61                  NUMBER OF LINES PER PAGE             R0032000






                                    168          COPY  $HASPGEN            COPY HASPGEN PARAMETERS              R0036000
RDR      HASPGEN PARAMETER VALUES                                                                              PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    170 *                                                                       HA004000
                                    171 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000
                                    172 *                                                                       HA008000



                                    174 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000

                                    175 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                    176 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000

                                    177 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000
                                    178 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000




                                    180 *                                                                       HA028000
                                    181 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000
                                    182 *                                                                       HA032000




                                    184 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000
                                    185 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000
                                    186 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000
                                    187 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000
                                    188 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000

                                    189 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                    190 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000
                                    191 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000

                                    192 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000
                                    193 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000
                                    194 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    195 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000
                                    196 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000
                                    197 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000
                                    198 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000

                                    199 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000
                                    200 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000
                                    201 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                    202 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200
                                    203 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300

                                    204 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                    205 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000
                                    206 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                    207 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000

                                    208 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000
                                    209 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                    210 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000
                                    211 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000
                            0003C   212 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000
RDR      HASPGEN PARAMETER VALUES                                                                              PAGE    8



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    215 *                                                                       HA100000
                                    216 *                             O/S INTERFACE PARAMETERS                  HA102000

                                    217 *                                                                       HA104000



                                    219 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                    220 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000
                                    221 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000

                                    222 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000
                                    223 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000
                                    224 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000
                                    225 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                    226 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000

                                    227 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000
                                    228 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100
                                    229 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200
                                    230 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300
                                    231 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400




                                    233 *                                                                  RFIT HA125600
                                    234 *                             HASP SVC NUMBER                      RFIT HA125700
                                    235 *                                                                  RFIT HA125800
                                    236          COPY  $INITSVC                                            RFIT HA125900
                                    237 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT






                                    239 *                                                                       HA130000
                                    240 *                             HASP OPTION PARAMETERS                    HA132000

                                    241 *                                                                       HA134000



                                    243 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000
                                    244 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000
                                    245 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000

                                    246 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000
                                    247 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                    248 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000
                                    249 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    250 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000
                                    251 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000
                                    252 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000

                                    253 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100
                                    254 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500
                                    255 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000

RDR      HASPGEN PARAMETER VALUES                                                                              PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    256 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500
                                    257 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                    258 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000

                                    259 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                    260 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000
                                    261 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                    262 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000
                                    263 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                    264 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000
RDR      HASPGEN PARAMETER VALUES                                                                              PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    267 *                                                                       HA174000
                                    268 *                             REMOTE JOB ENTRY PARAMETERS               HA176000
                                    269 *                                                                       HA178000



                                    271 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000

                                    272 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000
                                    273 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000
                                    274 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000
                                    275 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                    276 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000
                                    277 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000
                                    278 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000
                                    279 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000







                                    281 *                                                                       HA202000
                                    282 *                             INTERNAL GENERATION PARAMETERS            HA204000
                                    283 *                                                                       HA206000



                                    285 &VERSION SETC  '4.0'               HASP VERSION                         HA210000

                                    286 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000
                                    287 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000
                                    288 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                    289 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000
                                    290 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                    291 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000
                                    292 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500
                                    293 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                    294 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000

                                    295 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000

                                    296 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000
                                    297 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000
                                    298 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
RDR      HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    301 *                                                                       HA234000
                                    302 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000
                                    303 *                                                                       HA238000



                            00000   305 R0       EQU   0                                                        HA242000
                            00001   306 R1       EQU   1                                                        HA244000
                            00002   307 R2       EQU   2                                                        HA246000
                            00003   308 R3       EQU   3                                                        HA248000

                            00004   309 R4       EQU   4                                                        HA250000

                            00005   310 R5       EQU   5                                                        HA252000
                            00006   311 R6       EQU   6                                                        HA254000
                            00007   312 R7       EQU   7                                                        HA256000
                            00008   313 R8       EQU   8                                                        HA258000

                            00009   314 R9       EQU   9                                                        HA260000
                            0000A   315 R10      EQU   10                                                       HA262000
                            0000B   316 R11      EQU   11                                                       HA264000
                            0000C   317 R12      EQU   12                                                       HA266000
                            0000D   318 R13      EQU   13                                                       HA268000
                            0000E   319 R14      EQU   14                                                       HA270000
                            0000F   320 R15      EQU   15                                                       HA272000





                                    322 *                                                                       HA276000
                                    323 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000

                                    324 *                                                                       HA280000



                            00002   326 WA       EQU   R2                  WORK REGISTER A                      HA284000
                            00003   327 WB       EQU   R3                  WORK REGISTER B                      HA286000

                            00004   328 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   329 WD       EQU   R5                  WORK REGISTER D                      HA290000
                            00006   330 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007   331 WF       EQU   R7                  WORK REGISTER F                      HA294000
                            00008   332 WG       EQU   R8                  WORK REGISTER G                      HA296000
                            00008   333 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000
                            0000A   334 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000
                            0000B   335 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000
                            0000C   336 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000
                            0000D   337 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000
                            0000E   338 LINK     EQU   R14                 LINK REGISTER                        HA308000
RDR      HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   12



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












                            00000   341 NOP      EQU   0                   NO-OP                                HA314000
                            00001   342 O        EQU   1                   ONES OR OVERFLOW                     HA316000
                            00002   343 H        EQU   2                   HIGH                                 HA318000
                            00002   344 P        EQU   2                   PLUS                                 HA320000
                            00004   345 L        EQU   4                   LOW                                  HA322000
                            00004   346 M        EQU   4                   MINUS OR MIXED                       HA324000
                            00007   347 NE       EQU   7                   NOT EQUAL                            HA326000
                            00007   348 NZ       EQU   7                   NOT ZERO                             HA328000
                            00008   349 E        EQU   8                   EQUAL                                HA330000
                            00008   350 Z        EQU   8                   ZERO                                 HA332000

                            0000B   351 NL       EQU   11                  NOT LOW                              HA334000

                            0000B   352 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000
                            0000D   353 NH       EQU   13                  NOT HIGH                             HA338000

                            0000D   354 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   355 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
RDR      HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    357 *                                                                       HA346000
                                    358 *                             BIT DEFINITIONS                           HA348000
                                    359 *                                                                       HA350000



                            00080   361 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000
                            00040   362 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000
                            00020   363 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000
                            00010   364 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000

                            00008   365 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000
                            00004   366 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000

                            00002   367 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000

                            00002   368 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001   369 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000
                                    370 *                                                                       HA370000
                            00080   371 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000
                            00040   372 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020   373 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   374 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000
                            00008   375 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000
                            00004   376 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000
                            00002   377 $EWF15   EQU   X'02'               SPARE                                HA384000
                            00001   378 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000






                                    380 *                                                                       HA390000
                                    381 *                             BYTE DEFINITIONS                          HA392000

                                    382 *                                                                       HA394000



                            00000   384 $EWBPOST EQU   0                   BYTE 0                               HA398000
                            00000   385 $EWBBUF  EQU   0                   BYTE 0                               HA400000
                            00000   386 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   387 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000   388 $EWBUNIT EQU   0                   BYTE 0                               HA406000
                            00000   389 $EWBCKPT EQU   0                   BYTE 0                               HA408000
                            00000   390 $EWBCMB  EQU   0                   BYTE 0                               HA410000
                            00000   391 $EWBSMF  EQU   0                   BYTE 0                               HA411000
                            00000   392 $EWBJOT  EQU   0                   BYTE 0                               HA412000
                                    393 *                                                                       HA414000

                            00001   394 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001   395 $EWBIO   EQU   1                   BYTE 1                               HA418000
                            00001   396 $EWBWORK EQU   1                   BYTE 1                               HA420000
                            00001   397 $EWBHOLD EQU   1                   BYTE 1                               HA422000

                            00001   398 $EWBDDB  EQU   1                   BYTE 1                               HA424000
                            00001   399 $EWBOLAY EQU   1                   BYTE 1                               HA426000
                            00001   400 $EWB15   EQU   1                   BYTE 1                               HA428000
                            00001   401 $EWBOROL EQU   1                   BYTE 1                               HA430000
RDR      HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    404 *                                                                       HA436000
                                    405 *                             LOGICAL CONSOLE DEFINITIONS               HA438000
                                    406 *                                                                       HA440000



                            00001   408 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002   409 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000

                            00004   410 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008   411 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000

                            00010   412 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000
                            00020   413 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000
                            00040   414 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   415 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   416 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000
                            00000   417 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000






                                    419 *                                                                       HA466000
                                    420 *                             MESSAGE CLASS DEFINITIONS                 HA468000
                                    421 *                                                                       HA470000



                            00010   423 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000

                            00030   424 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050   425 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000
                            00070   426 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000

                            00080   427 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000




                                    429 *                                                                       HA484000
                                    430 *                             MESSAGE PRIORITY DEFINITIONS              HA486000
                                    431 *                                                                       HA488000




                            00001   433 $LO      EQU   1                   LOW PRIORITY                         HA492000
                            00004   434 $ST      EQU   4                   STANDARD PRIORITY                    HA494000
                            00007   435 $HI      EQU   7                   HIGH PRIORITY                        HA496000
RDR      HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    438 *                                                                       HA502000
                                    439 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000

                                    440 *                                                                       HA506000



                            00080   442 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000
                            00000   443 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000
                            00040   444 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000
                            00000   445 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000

                            00020   446 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000
                            00000   447 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000
                            00010   448 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000
                            00000   449 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000
                            00008   450 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000

                            00000   451 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000
                            00004   452 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000   453 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000






                                    455 *                                                                       HA536000
                                    456 *                             HASP STATUS BIT DEFINITIONS               HA538000
                                    457 *                                                                       HA540000



                            00080   459 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000

                            00040   460 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000
                            00020   461 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000
                            00010   462 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000
                            00008   463 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000
                            00004   464 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000

                            00002   465 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000
RDR      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    468 *                                                                       HA560000

                                    469 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000
                                    470 *                                                                       HA564000



                                    472 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000

                                    473 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000
                                    474 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000
                                    475 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000
                                    476 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000
                                    477 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000

                                    478 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000
                                    479 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                    480 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000





                                    482 *                                                                       HA588000
                                    483 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000

                                    484 *                                                                       HA592000



                                    486 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000

                                    487 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000
                                    488 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000
                                    489 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                    490 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                    491 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000

                                    492 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                    493 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000
                                    494 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
RDR      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    497 *                                                                       HA618000
                                    498 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000
                                    499 *                                                                       HA622000




                                    501 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000
                                    502 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000
                                    503 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000
                                    504 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000

                                    505 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000
                                    506 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000
                                    507 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000
                                    508 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                    509 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000





                                    511 *                                                                       HA646000

                                    512 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000
                                    513 *                                                                       HA650000




                                    515 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000
                                    516 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                    517 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000
                                    518 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000

                                    519 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000
                                    520 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000
                                    521 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                    522 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000
                                    523 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
RDR      HASP CONTROL BLOCKS                                                                                   PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    526 *                                                                       R0042000

                                    527 *                             DOCUMENTATION OPTION                      R0044000
                                    528 *                                                                       R0046000



                                    530 &DOC     SETC  'NO'                TURN OFF DOCUMENTATION               R0050000






                                    532 *                                                                       R0054000
                                    533 *                             GENERATE HASP CONTROL BLOCKS              R0056000
                                    534 *                                                                       R0058000



                                    536         $HASPCB HCT,PCE,BUFFER,CMB,DCT,JQE,JIT,JCT,IOT,OCR,PDDB,       CR0062000
                                                       CVT,DCB,DEB,UCB,RDRWORK,DOC=&DOC                         R0064000
RDR      HASP COMMUNICATION TABLE DSECT                                                                        PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              538+HCTDSECT DSECT                     HASP COMMUNICATION TABLE DSECT       HC437000




                            00000   540+         USING HCTDSECT,BASE1      ESTABLISH HCT ADDRESSABILITY         HC439000


000000 40E540F44BF0F0F9             542+$VERSION DC    CL8' V 4.009762'         HASP VERSION                    HC441000



                                    544+*                             VS2 - HASP VECTOR TABLE                   HC451050

000008                              546+$HVT     DS    0F                                                       HC451150
000008 00000000                     547+$HVTEXCP DC    V($EXCPSVC)         IOS PSEUDO DEVICE EXIT ADDRESS       HC451200
00000C 00000000                     548+         DC    V(XJCLSCAN)         INTERPRETTER EXIT ADDRESS            HC451250
000010 00000000                     549+         DC    V($MGCRSVC)         MGCR EXIT ADDRESS                    HC451300
000014 00000000                     550+         DC    V($WTOSVC)          WTO(R)/WTL EXIT 1 ADDRESS            HC451350
000018 00000000                     551+         DC    V($WTOSVC2)         WTO(R) EXIT 2 ADDRESS                HC451400
00001C 0000002C                     552+         DC    A($EXITNOP)         JOB INITIATION EXIT ADDRESS          HC451450
000020 0000002C                     553+         DC    A($EXITNOP)         STEP INITIATION EXIT ADDRESS         HC451500
000024 00000000                     554+         DC    V(XTERMSMF)         TERMINATION EXIT ADDRESS             HC451550

000028 00000000                     555+         DC    V($TSOCOMM)         TSO STATUS/CANCEL EXIT ADDRESS       HC451600

00002C 1BFF                         557+$EXITNOP SR    R15,R15             R15 = RC = 0                         HC451750
00002E 07FE                         558+         BR    R14                 RETURN                               HC451800



                                    560+*                             ENTRY TO HASP DISPATCHER                  HC452000

000030 47F0 B030      00030         562+$WAIT    B     *                                                        HN016000


                                    564+*                             ENTRIES TO HASP BUFFER SERVICES           HC456000

000034 47F0 B034      00034         566+$GETBUF  B     *                                                        HN016000
000038 47F0 B038      00038         567+$GETPBUF B     *                                                        HN016000
00003C 47F0 B03C      0003C         568+$FREEBUF B     *                                                        HN016000


                                    570+*                             ENTRIES TO HASP UNIT SERVICES             HC462000


000040 47F0 B040      00040         572+$GETUNIT B     *                                                        HN016000
000044 47F0 B044      00044         573+$FREUNIT B     *                                                        HN016000



                                    575+*                             ENTRIES TO HASP JOB QUEUE SERVICES        HC467000

000048 47F0 B048      00048         577+$QADD    B     *                                                        HN016000
00004C 47F0 B04C      0004C         578+$QGET    B     *                                                        HN016000
000050 47F0 B050      00050         579+$QPUT    B     *                                                        HN016000
000054 47F0 B054      00054         580+$QREM    B     *                                                        HN016000
000058 47F0 B058      00058         581+$QSIZ    B     *                                                        HN016000
00005C 47F0 B05C      0005C         582+$QLOC    B     *                                                        HN016000
000060 47F0 B060      00060         583+$QJITLOC B     *                                                        HN016000
RDR      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    585+*                             ENTRIES TO DIRECT ACCESS SPACE SERVICES   HC477000


000064 47F0 B064      00064         587+$TRACK   B     *                                                        HN016000

000068 47F0 B068      00068         588+$PURGER  B     *                                                        HN016000


                                    590+*                             ENTRIES TO HASP INPUT/OUTPUT SERVICES     HC482000

00006C 47F0 B06C      0006C         592+$EXCP    B     *                                                        HN016000
000070 47F0 B070      00070         593+$EXTPOPE B     *                                                        HN016000
000074 47F0 B074      00074         594+$EXTPGET B     *                                                        HN016000
000078 47F0 B078      00078         595+$EXTPPUT B     *                                                        HN016000
00007C 47F0 B07C      0007C         596+$EXTPCLO B     *                                                        HN016000
000080 47F0 B080      00080         597+$RESTORE B     *                                                        HN016000


                                    599+*                             ENTRIES TO HASP OVERLAY SERVICES          HC491000


000084 47F0 B084      00084         601+$ODEL    B     *                                                        HN016000

000088 47F0 B088      00088         602+$ORET    B     *                                                        HN016000

00008C 47F0 B08C      0008C         603+$OLINK   B     *                                                        HN016000
000090 47F0 B090      00090         604+$OXCTL   B     *                                                        HN016000
000094 47F0 B094      00094         605+$OLOAD   B     *                                                        HN016000


                                    607+*                             ENTRIES TO HASP CONSOLE SERVICES          HC499000

000098 47F0 B098      00098         609+$WTO     B     *                                                        HN016000
00009C 47F0 B09C      0009C         610+$FREEMSG B     *                                                        HN016000
0000A0 47F0 B0A0      000A0         611+$DOM     B     *                                                        HN016000


                                    613+*                             ENTRIES TO HASP SMF BUFFER SERVICES       HC503200


0000A4 47F0 B0A4      000A4         615+$QUESMFB B     *                                                        HN016000
0000A8 47F0 B0A8      000A8         616+$GETSMFB B     *                                                        HN016000



                                    618+*                             ENTRIES TO HASP INTERVAL TIMER SERVICES   HC504000

0000AC 47F0 B0AC      000AC         620+$STIMER  B     *                                                        HN016000
0000B0 47F0 B0B0      000B0         621+$TTIMER  B     *                                                        HN016000


                                    623+*                             ENTRIES TO HASP ERROR SERVICES            HC509000

0000B4 47F0 B0B4      000B4         625+$IOERROR B     *                                                        HN016000
0000B8 47F0 B0B8      000B8         626+$ERROR   B     *                                                        HN016000
0000BC 47F0 B0BC      000BC         627+$DISTERR B     *                                                        HN016000
RDR      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


0000C0 00                           629+         DC    AL1(0)              RESERVED                             HC515000
0000C1 00                           630+$OPTSTAT DC    AL1(*-*)            HASP INITIALIZATION OPTIONS          HC516000
0000C2 00                           631+$STATUS  DC    AL1(*-*)            HASP SYSTEM STATUS                   HC517000
0000C3 00                           632+$CURPCE  DC    AL1(*-*)            CURRENT PCE ID                       HC518000

0000C4 00                           633+$HASPECF DC    AL1(*-*)            MASTER EVENT CONTROL FIELD           HC519000
0000C5 00                           634+MHASPECF DC    AL1(*-*)            LINE MANAGER EVENT CONTROL FIELD     HC520000
0000C6 00                           635+$XEQACT  DC    AL1(*-*)            COUNT OF JOBS IN O/S EXECUTION       HC521000
0000C7 00                           636+$ACTIVE  DC    AL1(*-*)            COUNT OF ACTIVE FUNCTIONS            HC522000
0000C8 FF                           637+$ENBALL  DC    X'FF'               ENABLE ALL MASK                      HC523000
0000C9 00                           638+$DISALL  DC    X'00'               DISABLE ALL MASK                     HC524000

0000CA FE                           639+$DISINT  DC    X'FE'               DISABLE INTERVAL TIMER MASK          HC525000
0000CB 00                           640+         DC    X'00'               RESERVED                             HC526000
0000CC 0000                         641+$EXCPCT  DC    Y(*-*)              ACTIVE HASP I/O COUNT                HC531000
0000CE 0040                         642+$COMMCT  DC    Y(64)                     ACTIVE HASP COMMAND COUNT      HC532000
0000D0 0000                         643+$CKPTRAK DC    Y(*-*)              HASP CHECKPOINT TRACK ADDRESS        HC533000
0000D2 0000                         644+         DC    Y(0)                RESERVED                             HC534000
0000D4 00000000                     645+$HASPTCB DC    A(*-*)              ADDRESS OF HASP TASK CONTROL BLOCK   HC535000
0000D8 00000000                     646+$HASPECB DC    F'0'                COMMON HASP ECB                      HC535200

0000DC 00000000                     647+$ASYNCQ  DC    A(0)                ASYNC I/O COMPLETION QUEUE           HC535400
0000E0 00000000                     648+$RJECHEQ DC    A(0)                RJE I/O COMPLETION QUEUE             HC535600

                                    649+*                                  ADDRESS OF FIRST HASP PCE            HC536000
0000E4 00000000                     650+$PCEORG  DC    A(*-*)                                                   HN010000
0000E8 00000000                     651+$BUFPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE HASP BUFFER HC538000
0000EC 00000000                     652+$TPBPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE RJE BUFFER  HC539000
0000F0 00000000                     653+$DCTPOOL DC    A(*-*)              ADDRESS OF FIRST HASP DCT            HC540000
0000F4 00000000                     654+$JITABLE DC    A(*-*)              ADDRESS OF HASP JOB INFO TABLE       HC541000
0000F8 00000000                     655+$JOTABLE DC    V($JOT)             ADDRESS OF JOB OUTPUT TABLE          HC541500
0000FC 00000000                     656+$CYLMAP  DC    A(*-*)              ADDRESS OF FIRST CYLINDER MODULE MAP HC542000

000100 00000000                     657+$TEDADDR DC    A(*-*)              ADDRESS OF FIRST EXTENT DATA TABLE   HC543000
000104 00000000                     658+$DCBLIST DC    A(*-*)              ADDRESS OF DIRECT ACCESS DCB         HC544000
000108 00000000                     659+$FREEQUE DC    A(*-*)              ADDR OF 1ST FREE CONSOLE MSG BUFFER  HC545000
00010C 00000000                     660+$BUSYQUE DC    A(*-*)              CONSOLE MSG BUFFERS QUEUED FOR I/O   HC546000
000110 00000000                     661+$LOGQUE  DC    A(*-*)              CMB'S QUEUED FOR LOG PROCESSOR       HC547000

000114 00000000                     662+$COMMQUE DC    A(*-*)              COMMANDS QUEUED FOR COMMAND PROC     HC548000
000118 00000000                     663+$DOMQUE  DC    A(*-*)              CMB'S AWAITING ACTION                HC548200
00011C 00000000                     664+$SMFFREE DC    A(*-*)              ADDR OF 1ST FREE SMF BUFFER          HC548400

000120 00000000                     665+$SMFBUSY DC    A(*-*)              SMF BUFFERS QUEUED FOR I/O           HC548600
000124 00000000                     666+$PRCHKPT DC    A(*-*)              ADDRESS OF PRINT CHECKPOINT TABLE    HC549000
000128 00000002                     667+$TIMEARG DC    F'2'                FAKE SVRB+36 FOR IGC011              HC549500
RDR      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    669+*                             NUCLEUS ADDRESS TABLE                     HC551000


00012C                              671+$NUCTABL DS    0F                  START OF NUCLEUS ADDRESS TABLE       HC553000
00012C 00000000                     672+$STATENT DC    A(*-*)              ENTRY TO STATUS ROUTINE              HC554000
000130 00000000                     673+$TIMENT  DC    A(*-*)              ENTRY TO TIME ROUTINE                HC555000
000134 00000000                     674+$XSMFENT DC    A(*-*)              ENTRY TO SMF EXCP COUNTING ROUTINE   HC559000
000138 00000000                     675+$SVCRSET DC    A(*-*)              ENTRY TO HASP SVC RESET ROUTINE      HC560000

                            00010   676+$NUCLEN  EQU   *-$NUCTABL          LENGTH OF NUCLEUS ADDRESS TABLE      HC561000


                                    678+*********************************************************************** HC576000
                                    679+*  ALL VARIABLES LOCATED IN THIS AREA WILL BE REGULARLY CHECKPOINTED  * HC577000

                                    680+*  BY HASP AND WILL BE RESTORED ON ANY WARM START.....                * HC578000
                                    681+*                                                                     * HC579000
                                    682+*                                                                     * HC580000
                                    683+*                                                                     * HC581000
00013C                              684+$SAVEBEG DS    0F                  BEGINNING OF SAVE AREA             * HC582000
00013C 00000000                     685+$JOBQPTR DC    A(*-*)              ADDRESS OF HASP JOB QUEUE          * HC583000

000140 00000000                     686+$JQFREE  DC    A(*-*)              BEGINNING OF FREE QUEUE CHAIN      * HC584000
000144 00000000                     687+$JQENT   DC    A(*-*)              BEGINNING OF ACTIVE QUEUE CHAIN    * HC585000
000148 00000000                     688+$DATAKEY DC    F'0'                MASTER PERIPHERAL DATA SET KEY     * HC588000
00014C 0000                         689+$JOBNO   DC    H'0'                HASP JOB NUMBER                    * HC589000
00014E 0000                         690+$MSGRPNO DC    H'0'                LAST CONSOLE MESSAGE TRACK GROUP   * HC590000

000150 0000000000000000             691+$DACKPT  DC    2XL6'0'             DA CHECKPOINT FOR WARM START       * HC591000
                            0015C   692+$SAVEEND EQU   *                   END OF SAVE AREA                   * HC592000
                            00020   693+$SAVELEN EQU   $SAVEEND-$SAVEBEG   LENGTH OF SAVE AREA                * HC593000
                                    694+*                                                                     * HC594000
                                    695+*                                                                     * HC595000

                                    696+*                                                                     * HC596000
                                    697+*********************************************************************** HC597000
                                    698+*                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000

00015C                              700+$NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000

00015C 00000000                     701+$ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000
000160 00000000                     702+$SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000
000164 00000000                     703+$SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000
                            0000C   704+$NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000



                                    706+*                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000

000168 00000000                     708+$IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000
00016C 00000000                     709+$WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000
000170 00000000                     710+$LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000
000174 00000000                     711+$XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000
000178 00000000                     712+$SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000
00017C 00000000                     713+$SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000
000180 00000000                     714+$SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000
000184 00000000                     715+$SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000
000188 00000000                     716+$SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000
00018C                              717+$ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000




RDR      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000000                              720+HASPRDR  CSECT ,                   END OF HCT DSECT                RFIT HC998000
RDR      HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                              723+PCEDSECT DSECT                     PROCESSOR CONTROL ELEMENT DSECT      PC260000




                            00000   725+         USING PCEDSECT,SAVE       ESTABLISH PCE ADDRESSABILITY         PC264000



000000                              727+PCESAVEA DS    F                   RESERVED                             PC268000

000004                              728+PCEPREV  DS    F                   ADDRESS OF PREVIOUS PCE              PC270000
000008                              729+PCENEXT  DS    F                   ADDRESS OF NEXT PCE                  PC272000
00000C                              730+PCELINK  DS    F                   REGISTER 14 (LINK) STORAGE           PC274000
000010                              731+PCER15   DS    F                   REGISTER 15 STORAGE                  PC276000
000014                              732+PCER0    DS    F                   REGISTER 0 STORAGE                   PC278000

000018                              733+PCER1    DS    F                   REGISTER 1 STORAGE                   PC280000
00001C                              734+PCEWA    DS    F                   REGISTER 2 (WA) STORAGE              PC282000
000020                              735+PCEWB    DS    F                   REGISTER 3 (WB) STORAGE              PC284000
000024                              736+PCEWC    DS    F                   REGISTER 4 (WC) STORAGE              PC286000
000028                              737+PCEWD    DS    F                   REGISTER 5 (WD) STORAGE              PC288000
00002C                              738+PCEWE    DS    F                   REGISTER 6 (WE) STORAGE              PC290000
000030                              739+PCEWF    DS    F                   REGISTER 7 (WF) STORAGE              PC292000

000034                              740+PCEWG    DS    0F                  REGISTER 8 (WG) STORAGE              PC294000
000034                              741+PCEBASE3 DS    F                   REGISTER 8 (BASE3) STORAGE           PC296000
000038                              742+PCER9    DS    F                   REGISTER 9 STORAGE                   PC298000

00003C                              743+PCEJCT   DS    F                   REGISTER 10 (JCT) STORAGE            PC300000
000040                              744+PCEBASE1 DS    F                   REGISTER 11 (BASE1) STORAGE          PC302000
000044                              745+PCEBASE2 DS    F                   REGISTER 12 (BASE2) STORAGE          PC304000
000048                              746+PCEEWF   DS    H                   PROCESSOR EVENT WAIT FIELD           PC306000
00004A                              747+PCEID    DS    H                   PROCESSOR TYPE                       PC308000

00004C                              748+         DS    C                   RESERVED                             PC310000
00004D                              749+PCEOPRIO DS    C                   REQUESTED OVERLAY ROUTINE PRIORITY   PC312000
00004E                              750+PCEOCON  DS    H                   REQUESTED OVERLAY ROUTINE OCON       PC314000
000050                              751+PCEORTRN DS    F                   $RETURN PAST $LINK STORAGE           PC316000
000054                              752+PCEOPCE  DS    F                   CHAIN OF PCE'S USING SAME OVERLAY    PC318000
000058                              753+PCEWORK  DS    0D                  VARIABLE LENGTH PROCESSOR WORK AREA  PC320000
000000                              754+HASPRDR  CSECT                     END OF PCE DSECT                     PC322000
RDR      HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   25



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    756+*                                                                       PC326000

                                    757+*                             PROCESSOR CONTROL ELEMENT IDENTIFICATION  PC328000
                                    758+*                                                                       PC330000





                                    760+*                                                                       PC334000

                                    761+*                             BYTE 1                                    PC336000
                                    762+*                                                                       PC338000



                            00001   764+PCELCLID EQU   X'01'               LOCAL SPECIAL PCE ID                 PC342000
                            00002   765+PCERJEID EQU   X'02'               REMOTE SPECIAL PCE ID                PC344000
                            00004   766+PCEINRID EQU   X'04'               INTERNAL SPECIAL PCE ID              PC346000
                            00080   767+PCEPRSID EQU   X'80'               PRINT SPECIAL PCE ID                 PC348000
                            00040   768+PCEPUSID EQU   X'40'               PUNCH SPECIAL PCE ID                 PC350000







                                    770+*                                                                       PC354000
                                    771+*                             BYTE 2                                    PC356000
                                    772+*                                                                       PC358000



                            00000   774+PCEASYID EQU   0                   ASYNCH PCE ID                        PC362000

                            00001   775+PCERDRID EQU   1                   INPUT PCE ID                         PC364000
                            00002   776+PCESETID EQU   2                   SETUP PCE ID                         PC366000
                            00003   777+PCEXEQID EQU   3                   EXECUTION PCE ID                     PC368000
                            00004   778+PCETHWID EQU   4                   EXECUTION THAW PCE ID                PC370000
                            00005   779+PCEXZMID EQU   5                   EXECUTION TASK MONITOR PCE ID        PC372000
                            00006   780+PCEOUTID EQU   6                   OUTPUT PROCESSOR PCE ID              PC374000
                            00007   781+PCEPRTID EQU   7                   PRINT PCE ID                         PC376000
                            00008   782+PCEPUNID EQU   8                   PUNCH PCE ID                         PC378000
                            00009   783+PCEPRGID EQU   9                   PURGE PCE ID                         PC380000
                            0000A   784+PCECONID EQU   10                  CONSOLE PCE ID                       PC382000

                            0000B   785+PCEMLMID EQU   11                  LINE MANAGER PCE ID                  PC384000

                            0000C   786+PCETIMID EQU   12                  TIMER PCE ID                         PC386000
                            0000D   787+PCECKPID EQU   13                  CHECKPOINT PCE ID                    PC388000
                            0000E   788+PCEGPRID EQU   14                  PRIORITY AGING PCE ID                PC390000
RDR      HASP BUFFER DSECT                                                                                     PAGE   26



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              790+BUFDSECT DSECT                     BUFFER DSECT                         BU444000
000000                              791+IOBFLAG1 DS    C                   I/O FLAGS                            BU446000
000001                              792+IOBFLAG2 DS    C                   I/O FLAGS                            BU448000
000002                              793+IOBSENS0 DS    C                   FIRST SENSE BYTE                     BU450000
000003                              794+IOBSENS1 DS    C                   SECOND SENSE BYTE                    BU452000
000004                              795+IOBECBCC DS    0C                  I/O COMPLETION CODE                  BU454000
000004                              796+IOBECBPT DS    F                   ADDRESS OF HASP EVENT CONTROL BLOCK  BU456000
000008                              797+IOBFLAG3 DS    C                   I/O FLAGS                            BU458000
000009                              798+IOBCSW   DS    CL7                 CHANNEL STATUS WORD                  BU460000
000010                              799+IOBSIOCC DS    0C                  SIO CONDITION CODE                   BU462000

000010                              800+IOBSTART DS    F                   ADDRESS OF CHANNEL PROGRAM           BU464000
000014                              801+IOBDCBPT DS    F                   ADDRESS OF DATA CONTROL BLOCK        BU466000
000018                              802+IOBREPM  DS    0C                  REPOSITION MODIFIER                  BU468000
000018                              803+IOBRESTR DS    F                   RESTART ADDRESS OF CHANNEL PROGRAM   BU470000

00001C                              804+TPBMXREC DS    0C                  MAXIMUM RJE OUTPUT RECORD COUNT      BU472000
00001C                              805+IOBINCAM DS    H                   BLOCK COUNT INCREMENT                BU474000
00001E                              806+IOBERRCT DS    H                   ERROR COUNT                          BU476000
000020                              807+TPBLCCC  DS    0C                  LAST REMOTE OUTPUT COMMAND OP.       BU478000
000020                              808+TPBLCCAD DS    0F                  ADDR OF LAST REMOTE CARRIAGE CONTROL BU480000
000020                              809+IOBXTENT DS    C                   DEB EXTENT                           BU482000
000021                              810+IOBSEEK  DS    0CL7,3C             DIRECT ACCESS SEEK ADDRESS           BU484000
000024                              811+TPBRECNT DS    0C                  CURRENT REMOTE OUTPUT RECORD COUNT   BU486000
000024                              812+TPBFDATA DS    F                   REMOTE DATA POINTER                  BU488000
000028                              813+BUFECBCC DS    0C                  I/O COMPLETION CODE                  BU490000
000028                              814+BUFCHAIN DS    F                   BUFFER CHAIN FIELD                   BU492000
00002C                              815+BUFTYPE  DS    0C                  BUFFER TYPE                          BU494000

00002C                              816+BUFDCT   DS    F                   ADDRESS OF DEVICE CONTROL TABLE      BU496000
000030                              817+BUFEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     BU498000
000034                              818+OACECHN  DS    0F                  OVERLAY AREA CHAIN WORD              BU500000

000034                              819+BUFDDB   DS    0F                  DDB ADDRESS                          BU501000
000034                              820+LCBMCB   DS    C                   REMOTE MODE BYTE                     BU502000
000035                              821+LCBACK   DS    C                   REMOTE NEXT ACKNOWLEDGEMENT          BU504000
000036                              822+LCBRCB   DS    H                   REMOTE RESPONSE CONTROL BLOCK        BU506000
000038                              823+IOBCCW1  DS    D                   CHANNEL COMMAND WORD 1               BU508000
000040                              824+IOBCCW2  DS    D                   CHANNEL COMMAND WORD 2               BU510000
000048                              825+IOBCCW3  DS    0D,5C               CHANNEL COMMAND WORD 3               BU511000
00004D                              826+OACEPRIO DS    C                   PRIO OF OLAY ROUTINE IN THIS AREA    BU512000
00004E                              827+OACEOCON DS    H                   OVERLAY CALL CONSTANT                BU514000
000050                              828+IOBCCW4  DS    D                   CHANNEL COMMAND WORD 4               BU516000
000058                              829+BUFSTART DS    0D                  START OF BUFFER WORK SPACE           BU518000
000058                              830+OACENAME DS    0F                  NAME OF OVERLAY ROUTINE              BU520000

000058                              831+HDBNXTRK DS    F                   HASP DATA BLOCK CHAIN TRACK          BU522000

00005C                              832+OACEASMO DS    0F                  ASSEMBLY ORIGIN OF OVERLAY ROUTINE   BU524000
00005C                              833+HDBDSKEY DS    F                   HASP DATA BLOCK DATA SET KEY         BU526000

000060                              834+OACEPROG DS    0F                  ENTRY POINT OF OVERLAY ROUTINE       BU528000
000060                              835+HDBSTART DS    F                   HASP DATA BLOCK START                BU529000
000064                      00058   836+         ORG   BUFSTART                                                 BU530000
000058                              837+IOBCCW5  DS    D                   CHANNEL COMMAND WORD 5               BU534000
000060                              838+IOBCCW6  DS    D                   CHANNEL COMMAND WORD 6               BU536000
000068                              839+IOBCCW7  DS    D                   CHANNEL COMMAND WORD 7               BU538000
000070                              840+IOBCCW8  DS    D                   CHANNEL COMMAND WORD 8               BU540000
000078                              841+TPBUFST  DS    0F                  START OF REMOTE BUFFER WORK SPACE    BU542000
000078                      00558   842+         ORG   BUFSTART+1280           SPACE OVER OVERLAY AREA          BU544000
000558                              843+OACEPCE  DS    F                   CHAIN OF PCE'S USING OVERLAY AREA    BU546000
000000                              844+HASPRDR  CSECT                     END OF BUFFER DSECT                  BU548000
RDR      HASP BUFFER STATUS BIT DEFINITIONS                                                                    PAGE   27



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78








                                    847+*                             BUFFER TYPE BIT DEFINITIONS               BU554000



                            00080   849+TPBUF    EQU   X'80'               REMOTE BUFFER TYPE                   BU558000
                            00040   850+OLAYBUF  EQU   X'40'               OVERLAY AREA TYPE                    BU560000
                            00000   851+HASPBUF  EQU   X'00'               HASP BUFFER TYPE                     BU562000
RDR      HASP CONSOLE MESSAGE BUFFER DSECT                                                                     PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                              854+CMBDSECT DSECT                     CONSOLE MESSAGE BUFFER DSECT         CM098000
000000                              855+CMBCHAIN DS    F                   ADDR OF NEXT CONSOLE MESSAGE BUFFER  CM100000
000004                              856+CMBFLAGS DS    C                   FLAG BYTE                            CM102000

000005                              857+CMBCONS  DS    C                   CONSOLES SPECIFIED                   CM104000
000006                              858+CMBMSGL  DS    C                   MESSAGE LENGTH                       CM106000
000007                              859+CMBPRIO  DS    0C                  MESSAGE PRIORITY                     CM108000

000007                              860+CMBCLASS DS    C                   MESSAGE CLASS OR DISPLAY AREA        CM110000
000008                              861+CMBMSG   DS    0CL132              CONSOLE MESSAGE                      CM112000
000008                              862+CMBDOMID DS    0F                  DOM ID FOR CMB                       CM113000
000008                              863+CMBMARK  DS    C                   ATTENTION INDICATOR                  CM114000
000009                              864+CMBTIME  DS    CL9                 TIME OF DAY                          CM116000
000012                              865+CMBJOBNO DS    CL9                 JOB NUMBER                           CM118000
00001B                              866+CMBTEXT  DS    CL113               MESSAGE TEXT                         CM120000
                            0008C   867+CMBEND   EQU   *                   END OF CMB                   OY05859 CM121000
000000                              868+HASPRDR  CSECT                     END OF CMB DSECT                     CM122000


                                    870+*                                  SYMBOLIC DISPLACEMENTS               CM126000



                            00004   872+CMBFLD   EQU   CMBFLAGS-CMBDSECT   FLAG BYTE                            CM130000
                            00006   873+CMBMLD   EQU   CMBMSGL-CMBDSECT    MESSAGE LENGTH                       CM132000
                            00008   874+CMBMSD   EQU   CMBMSG-CMBDSECT     MESSAGE                              CM134000



                                    876+*                                  FLAG BYTE BITS                       CM138000


                            00080   878+WCMBFD   EQU   X'80'               END OF OUT OF LINE WTO (MLWTO)       CM142000
                            00040   879+WCMBFH   EQU   X'40'               OPERATION TYPE                       CM144000
                            00020   880+WCMBFE   EQU   X'20'               MESSAGE FOR HASP LOG ONLY            CM146000
                            00010   881+WCMBFF   EQU   X'10'               CMBCONS CONTAINS UCMID               CM148000

                            00008   882+WCMBFG   EQU   X'08'               CMBCONS CONTAINS REMOTE NUMBER       CM150000
                            00004   883+WCMBFA   EQU   X'04'               RESERVED FOR COMMAND PROCESSOR       CM152000
                            00002   884+WCMBFB   EQU   X'02'               RESERVED FOR COMMAND PROCESSOR       CM154000
                            00001   885+WCMBFC   EQU   X'01'               RESERVED FOR COMMAND PROCESSOR       CM156000


                                    887+*                         NOTE (1) LOGICAL CONSOLES (CMBCONS) ARE       CM160000
                                    888+*                                  SPECIFIED BY NULL WCMBFD, WCMBFF     CM162000
                                    889+*                                  AND WCMBFG SETTINGS.                 CM164000

                                    890+*                                                                       CM166000
                                    891+*                              (2) FOR WCMBFH...READ=1, WRITE=0         CM168000

                                    892+*                                                                       CM170000
RDR      HASP DEVICE CONTROL TABLE DSECT                                                                       PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




000000                              895+DCTDSECT DSECT                     DEVICE CONTROL TABLE DSECT           DC308000
000000                              896+DCTSTAT  DS    0C                  DCT STATUS                           DC310000
000000                              897+DCTPCE   DS    F                   ADDRESS OF PROCESSOR CONTROL ELEMENT DC312000

000004                              898+DCTBUFAD DS    F                   CURRENT BUFFER ADDRESS               DC314000
000008                              899+DCTPSTAT DS    0C                  REMOTE JOB ENTRY FLAGS               DC316000
000008                              900+DCTDCB   DS    0F                  ADDRESS OF DATA CONTROL BLOCK        DC318000
000008                              901+DCTSEEK  DS    F                   CURRENT TRACK ADDRESS                DC320000
00000C                              902+MDCTOPCT DS    0C                  COUNT OF OPEN RJE PROCESSORS         DC322000

00000C                              903+MDCTOBUF DS    0F                  RJE OUTPUT BUFFER CHAIN              DC324000
00000C                              904+DCTEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     DC326000
000010                              905+DCTBUFCT DS    C                   ACTIVE BUFFER COUNT                  DC328000

000011                              906+MDCTATTN DS    0C                  RJE LINE ACTION PENDING FLAGS        DC330000
000011                              907+DCTNO    DS    C                   DCT NUMBER                           DC332000
000012                              908+DCTDEVTP DS    C                   DEVICE TYPE                          DC334000
000013                              909+DCTIOTYP DS    0C                  I/O REQUEST TYPE                     DC336000
000013                              910+DCTPCODE DS    C                   LINE/REMOTE CODE                     DC338000
000014                              911+DCTFLAGS DS    0C                  OPERATOR COMMAND FLAGS               DC340000
000014                              912+DCTCHAIN DS    F                   ADDRESS OF NEXT DCT                  DC342000

000018                              913+DCTDEVN  DS    0CL8,CL4            EBCDIC DEVICE NAME                   DC344000
00001C                              914+DCTOTC   DS    H                   OVERLAY DEVICE TRACKS/CYLINDER       DC346000
00001E                              915+DCTOTT   DS    H                   OVERLAY EXTENT BEGINNING TT          DC348000
000020                              916+MDCTCODE DS    0F                  ADDRESS OF RJE CODE TABLE            DC350000
000020                              917+DCTFORMS DS    0F                  PRINT/PUNCH FORMS ID                 DC352000

000020                              918+DCTPRINT DS    C                   DEFAULT PRINT ROUTING                DC354000
000021                              919+DCTPUNCH DS    C                   DEFAULT PUNCH ROUTING                DC356000
000022                              920+DCTPRINC DS    C                   PRIORITY INCREMENT                   DC358000
000023                              921+DCTPRLIM DS    C                   PRIORITY LIMIT                       DC360000

000024                              922+DCTFCB   DS    F                   PRINT FCB ID                         DC360300
000028                              923+DCTUCS   DS    F                   PRINT UCS ID                         DC360600
00002C                              924+DCTPPSW  DS    X                   PRINT/PUNCH SWITCHES                 DC360900
00002D                              925+DCTCLASS DS    CL8                 PRINT/PUNCH CLASS MASK               DC361200
000035                              926+         DS    C                   CLASS MASK TERMINATOR                DC361500
000038                              927+DCTWORK  DS    0F                  START OF DEVICE WORK AREA            DC362000

000038                              928+RIDUCB   DS    0F                  INTERNAL READER UCB ADDRESS          DC364000
000038                              929+MDCTFCS  DS    H                   REMOTE TERMINAL FUNCTION CONTROL SEQ DC366000
00003A                              930+MDCTERCT DS    0C                  REMOTE TERMINAL ERROR COUNT          DC368000
00003A                              931+DCTPRLEN DS    C                   REMOTE TERMINAL DATA WIDTH           DC370000
00003B                              932+DCTPLINE DS    C                   REMOTE TERMINAL LINE CHARACTERISTICS DC372000

00003C                              933+MDCTRCB  DS    0C                  REMOTE TERMINAL RECORD CONTROL BYTE  DC374000
00003C                              934+MDCTDCT  DS    0F                  REMOTE TERMINAL DCT CHAIN FIELD      DC376000
00003C                              935+RIDFLAGS DS    H                   INTERNAL READER SYNCH FLAGS          DC378000
00003E                              936+RIDTJID  DS    H                   RESERVED                             DC380000

000040                              937+RIDECB   DS    0F                  INTERNAL READER ECB ADDRESS          DC382000
000040                              938+MDCTRSEQ DS    C                   REMOTE TERMINAL TRANSMIT SEQUENCE    DC384000
000041                              939+MDCTTSEQ DS    C,H                 REMOTE TERMINAL RECEIVE SEQUENCE     DC386000
000044                              940+MDCTPSWD DS    0CL8                REMOTE TERMINAL PASSWORD             DC388000
000044                              941+RIDTCB   DS    F                   INTERNAL READER TCB ADDRESS          DC390000
000048                              942+RIDDATA  DS    CL80                INTERNAL READER DATA AREA            DC394000

                            00098   943+DCTEND   EQU   *                   SYMBOL FOR END OF DCT                DC395000
000000                              944+HASPRDR  CSECT                     END OF DEVICE CONTROL TABLE DSECT    DC396000
RDR      HASP DCT STATUS BIT DEFINITIONS                                                                       PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    947+*                             DCTSTAT                                   DC402000



                            00080   949+DCTINUSE EQU   X'80'               DCT IS IN USE                        DC406000
                            00040   950+DCTDRAIN EQU   X'40'               DCT IS DRAINED                       DC408000

                            00020   951+DCTHOLD  EQU   X'20'               DCT IS HELD                          DC410000
                            00010   952+DCTEJECT EQU   X'10'               DEVICE IS AT CHNL 1 POSITION         DC411000





                                    954+*                             DCTPSTAT                                  DC414000




                            00080   956+DCTLOGAL EQU   X'80'               LOG EVERY CHANNEL END                DC418000
                            00040   957+DCTLEASE EQU   X'40'               LEASED LINE                          DC420000
                            00020   958+DCTETX   EQU   X'20'               AN ETX HAS BEEN RECEIVED             DC422000
                            00010   959+DCTSOFF  EQU   X'10'               A /*SIGNOFF CARD HAS BEEN RECEIVED   DC424000

                            00010   960+DCTEOF   EQU   X'10'               AN EOF HAS BEEN DETECTED             DC425000
                            00008   961+DCTSINON EQU   X'08'               REMOTE DCT IS ATTACHED TO LINE DCT   DC426000
                            00004   962+DCTPOST  EQU   X'04'               I/O COMPLETE FLAG                    DC428000
                            00002   963+DCTABORT EQU   X'02'               TRANSMISSION WAS ABORTED             DC430000
                            00001   964+DCTPBUF  EQU   X'01'               REMOTE OUTPUT BUFFER INDICATION      DC432000






                                    966+*                             DCTDEVTP                                  DC436000



                            00000   968+DCTDA    EQU   X'00'               DIRECT ACCESS DEVICE                 DC440000

                            00001   969+DCTOLAY  EQU   X'01'               OVERLAY DEVICE                       DC442000
                            00002   970+DCTLNE   EQU   X'02'               REMOTE JOB ENTRY LINE                DC444000
                            00010   971+DCTRDR   EQU   X'10'               LOCAL CARD READER                    DC446000
                            00012   972+DCTRJR   EQU   X'12'               REMOTE CARD READER                   DC450000
                            00014   973+DCTINR   EQU   X'14'               INTERNAL READER                      DC452000

                            00020   974+DCTPRT   EQU   X'20'               LOCAL PRINTER                        DC454000
                            00022   975+DCTRPR   EQU   X'22'               REMOTE PRINTER                       DC456000
                            00030   976+DCTPUN   EQU   X'30'               LOCAL PUNCH                          DC458000
                            00032   977+DCTRPU   EQU   X'32'               REMOTE PUNCH                         DC460000
                            00042   978+DCTRCON  EQU   X'42'               REMOTE CONSOLE                       DC464000
RDR      HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    981+*                             DCTIOTYP                                  DC470000




                            00080   983+DCTREAD  EQU   X'80'               READ REQUEST                         DC474000
                            00040   984+DCTWRITE EQU   X'40'               WRITE REQUEST                        DC476000
                            00008   985+DCTREJRM EQU   X'08'               REMOTE RESTRICTION ALWAYS 0          DC482000
                            00004   986+DCTREJJB EQU   X'04'               RESTRICTED FROM JOB COMMANDS         DC484000

                            00002   987+DCTREJDV EQU   X'02'               RESTRICTED FROM DEVICE COMMANDS      DC486000
                            00001   988+DCTREJSY EQU   X'01'               RESTRICTED FROM SYSTEM COMMANDS      DC488000





                                    990+*                             DCTPCODE                                  DC492000



                            00000   992+DCTPHALF EQU   X'00'               HALF-DUPLEX LINE                     DC496000
                            00001   993+DCTPFULL EQU   X'01'               FULL-DUPLEX LINE                     DC498000

                            00002   994+DCTPWIDE EQU   X'02'               WIDE-BAND LINE                       DC500000
                            00020   995+DCTPPRES EQU   X'20'               HARDWARE COMPRESS FEATURE            DC501000

                            00010   996+DCTPCON  EQU   X'10'               REMOTE TERMINAL CONSOLE              DC502000
                            00010   997+DCTPMRF  EQU   X'10'               MULTIPLE-RECORD FEATURE              DC504000
                            00008   998+DCTPTAB  EQU   X'08'               HORIZONTAL FORMAT CONTROL            DC506000
                            00004   999+DCTPROG  EQU   X'04'               PROGRAMMABLE INTERFACE               DC508000
                            00002  1000+DCTPVAR  EQU   X'02'               VARIABLE LENGTH RECORDS              DC510000

                            00001  1001+DCTPBLK  EQU   X'01'               BLOCKED RECORDS                      DC512000





                                   1003+*                             DCTPLINE                                  DC516000



                            00000  1005+DCTP2770 EQU   X'00'               1009, 2770, 3780                     DC520000
                            00001  1006+DCTPHARD EQU   X'01'               1978, 2780                           DC522000
                            00002  1007+DCTP20   EQU   X'02'               360/20 SUB-MODEL 5 OR 6              DC524000
                            00004  1008+DCTP360  EQU   X'04'               360/22, 25, 30, 40, ETC.             DC526000

                            00006  1009+DCTP20S2 EQU   X'06'               360/20 SUB-MODEL 2 OR 4              DC528000

                            00008  1010+DCTP1130 EQU   X'08'               1130                                 DC530000
                            0000A  1011+DCTPSYS3 EQU   X'0A'               SYSTEM/3                             DC532000
                            0000E  1012+DCTPCPU  EQU   X'0E'               CPU TERMINAL                         DC534000
                            00010  1013+DCTPHASP EQU   X'10'               HASP                                 DC536000
                            00020  1014+DCTPASCI EQU   X'20'               USASCII CODE                         DC538000

                            00040  1015+DCTPTRSP EQU   X'40'               TRANSPARENCY                         DC540000
                            00080  1016+DCTPBSC  EQU   X'80'               BINARY SYNCHRONOUS LINE              DC542000
RDR      HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                   1019+*                             DCTFLAGS                                  DC548000



                            00080  1021+DCTSTOP  EQU   X'80'               $Z ($STOP) COMMAND                   DC552000
                            00040  1022+DCTDELET EQU   X'40'               $C ($DELETE) COMMAND                 DC554000

                            00020  1023+DCTRSTRT EQU   X'20'               $E ($RESTART) COMMAND                DC556000

                            00010  1024+DCTRPT   EQU   X'10'               $N ($REPEAT) COMMAND                 DC558000
                            00008  1025+DCTBKSP  EQU   X'08'               $B ($BACKSPACE) COMMAND              DC560000
                            00004  1026+DCTHOLDJ EQU   X'04'               $T...,H COMMAND                      DC562000
                            00004  1027+DCTSPACE EQU   X'04'               $T...,C=1 COMMAND                    DC564000






                                   1029+*                                  DCTPPSW                              DC568000



                            00080  1031+DCTPPSWC EQU   X'80'               FCB CARRAGE ALTERED                  DC571000
                            00040  1032+DCTPPSWF EQU   X'40'               FORMS CONTROLLED BY OPERATOR         DC572000
                            00020  1033+DCTPPSWQ EQU   X'20'               QUEUE CLASSES ARE ALTERED            DC573000
                            00010  1034+DCTPPSWS EQU   X'10'               SUPPRESS SEPARATOR PAGES             DC574000
                            00008  1035+DCTPPSWT EQU   X'08'               UCS TRAIN ALTERED                    DC575000
                            00004  1036+DCTPPSWU EQU   X'04'               UCS NOT STANDARD                     DC575500
                            00002  1037+DCTPPSWI EQU   X'02'               DEVICE IDLE MESSAGE ISSUED           DC576000

                            00001  1038+DCTPPSWO EQU   X'01'               OPERATOR ACTION ALLOWED              DC577000





                                   1040+*                             RIDFLAGS                                  DC580000




                            00080  1042+RIDPOST  EQU   X'80'               USER WAITING FOR POST                DC584000
                            00040  1043+RIDBUSY  EQU   X'40'               I/O SIMULATION IN PROCESS            DC585000
RDR      HASP JOB QUEUE ENTRY FIELD DEFINITIONS                                                                PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1045+*                             HASP JOB QUEUE ENTRY DISPLACEMENTS        JQ056000


                            00000  1047+QUEPRIO  EQU   0                   JOB PRIORITY                         JQ060000
                            00001  1048+QUETYPE  EQU   1                   LOGICAL QUEUE TYPE                   JQ062000
                            00002  1049+QUEJOBNO EQU   2                   HASP JOB NUMBER                      JQ064000
                            00004  1050+QUEFLAGS EQU   4                   JOB QUEUE FLAGS                      JQ066000
                            00004  1051+QUECHAIN EQU   4                   ADDRESS OF NEXT JOB QUEUE ELEMENT    JQ068000

                            00008  1052+QUETRAK  EQU   8                   TRACK ADDRESS OF JOB CONTROL TABLE   JQ070000
                            0000C  1053+QUEPRTRT EQU   12                  PRINT ROUTE                          JQ072000
                            0000D  1054+QUEPUNRT EQU   13                  PUNCH ROUTE                          JQ074000

                            0000E  1055+QUEJOECT EQU   14                  JOB OUTPUT ELEMENT COUNT             JQ076000








                                   1057+*                             HASP JOB QUEUE ENTRY BIT DEFINITIONS      JQ084000




                                   1059+*                             QUETYPE                                   JQ088000


                            00080  1061+QENTBY   EQU   X'80'               QUEUE ENTRY BUSY BIT                 JQ092000
                            00040  1062+$XEQ     EQU   X'40'               OS EXECUTION QUEUE                   JQ094000
                            00020  1063+$INPUT   EQU   X'20'               INPUT QUEUE                          JQ096000

                            00010  1064+$SETUP   EQU   X'10'               SETUP QUEUE                          JQ098000

                            00008  1065+$BRKDOWN EQU   X'08'               BREAKDOWN QUEUE                      JQ100000
                            00004  1066+$OUTPUT  EQU   X'04'               OUTPUT QUEUE                         JQ102000

                            00002  1067+$HARDCPY EQU   X'02'               OUTPUT IN-PROGRESS QUEUE             JQ104000
                            00001  1068+$PLOT    EQU   X'01'               PLOT QUEUE                           JQ106000
                            00000  1069+$PURGE   EQU   X'00'               PURGE QUEUE                          JQ108000




                                   1071+*                             QUEFLAGS                                  JQ112000


                            00080  1073+QUEHOLDA EQU   X'80'               HOLD ALL JOBS                        JQ116000
                            00040  1074+QUEHOLD1 EQU   X'40'               HOLD SINGLE JOB                      JQ118000
                            00020  1075+QUEHOLD2 EQU   X'20'               HOLD FOR DUPLICATE JOB NAME          JQ120000
                            00010  1076+QUEPURGE EQU   X'10'               JOB IS TO BE PURGED                  JQ122000
                            00008  1077+QUEOPCAN EQU   X'08'               OPERATOR ISSUED $C OR $P JOB         JQ124000

                            00004  1078+QUEOPRTE EQU   X'04'               OPERATOR HAS ISSUED $R ALL           JQ125000
                            00002  1079+QUEJCTSW EQU   X'02'               JCT INTERLOCK FOR UPDATE             JQ125100

RDR      HASP JOB INFORMATION TABLE ELEMENT FIELD DEFINITIONS                                                  PAGE   34



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1081+*                   HASP JOB INFORMATION TABLE ELEMENT DISPLACEMENTS    JI040000





                            00000  1083+JITJNAME EQU   0                   JOB NAME                             JI044000
                                   1084+*                                                                       JI046000
                                   1085+*                                                                       JI048000
                                   1086+*        THE FOLLOWING ENTRIES ARE NOT IMPLEMENTED BUT REPRESENT        JI050000
                                   1087+*        SUGGESTIONS AS TO POSSIBLE INSTALLATION MODIFICATIONS...       JI052000
                                   1088+*                                                                       JI054000
                                   1089+*                                                                       JI056000
                                   1090+*                                                                       JI058000

                                   1091+*JITLINE EQU   8                   ESTIMATED THEN ACTUAL PRINT LINES    JI060000
                                   1092+*JITCARD EQU   12                  ESTIMATED THEN ACTUAL PUNCHED CARDS  JI062000
                                   1093+*JITETIM EQU   16                  ESTIMATED EXECUTION TIME             JI064000

                                   1094+*JITSAFE EQU   20                  JOB SECURITY CONTROL PASSWORD        JI066000
                                   1095+*JITSTAT EQU   28                  ADDITIONAL JOB STATUS BITS           JI068000
                                   1096+*JITETC  EQU   29                  ANYTHING ELSE                        JI070000
RDR      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                             1098+JCTDSECT DSECT                     JOB CONTROL TABLE DSECT              JC650000
                            00000  1099+         USING JCTDSECT,JCT        ESTABLISH JCT ADDRESSABILITY         JC652000
000000                             1100+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      JC654000
000058                             1101+JCTJQE   DS    F                   OFFSET OF HASP JOB QUEUE ELEMENT     JC656000
00005C                             1102+JCTIOTTR DS    F                   TRACK ADDRESS OF FIRST IOT           JC658000
000060                             1103+JCTDSKEY DS    F                   PERIPHERAL DATA SET KEY              JC660000
000064                             1104+JCTINJCT DS    F                   TRACK ADDRESS OF INPUT JCT           JC662000

000068                             1105+         DS    X                   RESERVED                             JC664000
000069                             1106+JCTSMFLG DS    BL1                 SMF FLAGS                            JC666000
00006A                             1107+JCTPURGE DS    X                   START OF SMF PURGE RECORD            JC668000
00006B                             1108+JCTJBOPT DS    BL1                 HASP JOB OPTIONS                     JC670000

00006C                             1109+JCTJOBEB DS    CL4                 HASP ASSIGNED JOB NUMBER (EBCDIC)    JC672000
000070                             1110+JCTJNAME DS    CL8                 JOB NAME FROM JOB CARD               JC674000
000078                             1111+JCTPNAME DS    CL20                PROGRAMMER'S NAME FROM JOB CARD      JC676000
00008C                             1112+JCTMCLAS DS    C                   MSGCLASS FROM JOB CARD               JC678000
00008D                             1113+JCTJCLAS DS    C                   JOB CLASS FROM JOB CARD              JC680000
00008E                             1114+         DS    X                   RESERVED                             JC682000

00008F                             1115+JCTPRIO  DS    X                   HASP EXECUTION SELECTION PRIORITY    JC684000
000090                             1116+         DS    X                   RESERVED                             JC686000
000091                             1117+JCTOPRIO DS    X                   HASP OUTPUT SELECTION PRIORITY       JC688000
000092                             1118+JCTROUTE DS    XL2                 INPUT ROUTE CODE                     JC690000
000094                             1119+JCTINDEV DS    CL8                 HASP INPUT DEVICE NAME               JC692000
00009C                             1120+JCTACCTN DS    CL4                 JOB ACCOUNTING NUMBER FROM JOB CARD  JC694000
0000A0                             1121+JCTROOMN DS    CL4                 PROGRAMMER'S ROOM NUMBER             JC696000
0000A4                             1122+JCTETIME DS    F                   ESTIMATED EXECUTION TIME             JC698000

0000A8                             1123+JCTESTLN DS    F                   ESTIMATED OUTPUT LINES               JC700000
0000AC                             1124+JCTESTPU DS    F                   ESTIMATED PUNCHED OUTPUT             JC702000

0000B0                             1125+JCTFORMS DS    CL4                 JOB OUTPUT FORMS                     JC704000
0000B4                             1126+         DS    X                   RESERVED                             JC706000
0000B5                             1127+JCTCPYCT DS    X                   JOB PRINT COPY COUNT                 JC708000
0000B6                             1128+         DS    X                   RESERVED                             JC710000
0000B7                             1129+JCTLINCT DS    X                   LINES PER PAGE                       JC712000
0000B8                             1130+JCTPROUT DS    XL2                 JOB PRINT ROUTE CODE                 JC714000
0000BA                             1131+JCTPUOUT DS    XL2                 JOB PUNCH ROUTE CODE                 JC716000
0000BC                             1132+JCTXEQON DS    F                   TIME ON EXECUTION PROCESSOR          JC718000

0000C0                             1133+JCTXDTON DS    F                   DATE ON EXECUTION PROCESSOR          JC720000
0000C4                             1134+JCTXEQOF DS    F                   TIME OFF EXECUTION PROCESSOR         JC722000
0000C8                             1135+JCTXDTOF DS    F                   DATE OFF EXECUTION PROCESSOR         JC724000
0000CC                             1136+JCTOUTON DS    F                   TIME ON OUTPUT PROCESSOR             JC726000
0000D0                             1137+JCTODTON DS    F                   DATE ON OUTPUT PROCESSOR             JC728000

0000D4                             1138+JCTOUTOF DS    F                   TIME OFF OUTPUT PROCESSOR            JC730000
0000D8                             1139+JCTODTOF DS    F                   DATE OFF OUTPUT PROCESSOR            JC732000
0000DC                             1140+JCTCARDS DS    F                   TOTAL NUMBER OF INPUT CARDS          JC734000

0000E0                             1141+JCTLINES DS    F                   GENERATED OUTPUT LINES               JC736000
0000E4                             1142+JCTPUNCH DS    F                   GENERATED PUNCHED OUTPUT             JC738000
0000E8                             1143+         DS    F                   RESERVED                             JC740000
0000EC                             1144+JCTPRTCT DS    F                   CURRENT NUMBER OF LINES PRINTED      JC742000
0000F0                             1145+JCTPAGCT DS    F                   CURRENT NUMBER OF PAGES PRINTED      JC744000
0000F4                             1146+JCTPUNCT DS    F                   CURRENT NUMBER OF CARDS PUNCHED      JC746000
0000F8                             1147+JCTESOUT DS    F                   ESTIMATED OUTPUT (LINES+CARDS)       JC748000

0000FC                             1148+JCTXOUT  DS    F                   GENERATED OUTPUT RECORDS             JC750000
000100                             1149+         DS    F                   RESERVED                             JC752000
000104                             1150+JCTCYSAV DS    XL100               INPUT ALLOCATION BIT MAP             JC754000
000168                             1151+JCTWORK  DS    XL144               144-BYTE WORK AREA                   JC756000
0001F8                             1152+         DS    0F                                                       JC758000

RDR      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0001F8                             1153+JCTJMR   DS    XL56                JMR AREA                             JC760000

000230                      001F8  1154+         ORG   JCTJMR                                                   JC762000
0001F8                             1155+JCTJMRJN DS    CL8                 JMR JOB NAME                         JC764000
000200                             1156+JCTRDRON DS    F                   TIME ON INPUT PROCESSOR              JC766000
000204                             1157+JCTRDTON DS    F                   DATE ON INPUT PROCESSOR              JC768000
000208                             1158+JCTCPUID DS    XL4                 JMR CPU IDENTIFICATION               JC770000
00020C                             1159+JCTUSEID DS    CL8                 JMR USER IDENTIFICATION              JC772000
000214                             1160+JCTSTEP  DS    X                   CURRENT STEP NUMBER                  JC774000

000215                             1161+JCTINDC  DS    BL1                 JMR SMF OPTIONS                      JC776000
000216                             1162+         DS    XL2                 RESERVED                             JC778000
000218                             1163+JCTUCOM  DS    F                   JMR USER COMMUNICATION AREA          JC780000
00021C                             1164+JCTUJVP  DS    F                   JMR ADDRESS OF USER EXIT ROUTINE     JC782000
000220                             1165+JCTRDROF DS    F                   TIME OFF INPUT PROCESSOR             JC784000

000224                             1166+JCTRDTOF DS    F                   DATE OFF INPUT PROCESSOR             JC786000
000228                             1167+JCTJOBIN DS    F                   JMR JOB SYSIN COUNT                  JC788000
00022C                             1168+JCTRDR   DS    XL2                 READER DEVICE TYPE AND CLASS         JC790000
00022E                             1169+JCTJMOPT DS    BL1                 JMR SMF OPTIONS                      JC792000

00022F                             1170+         DS    X                   RESERVED                             JC794000
000230                      00230  1171+         ORG                                                            JC796000
                            00230  1172+JCTEND   EQU   *                   END OF JOB CONTROL TABLE             JC798000





                                   1174+*                             JCTSMFLG                                  JC802000




                            00080  1176+JCTSMFL0 EQU   B'10000000'         RESERVED                             JC806000
                            00040  1177+JCTSMFL1 EQU   B'01000000'         RESERVED                             JC808000
                            00020  1178+JCTSMFL2 EQU   B'00100000'         RESERVED                             JC810000
                            00010  1179+JCTSMFL3 EQU   B'00010000'         RESERVED                             JC812000

                            00008  1180+JCTSMFL4 EQU   B'00001000'         RESERVED                             JC814000
                            00004  1181+JCTSMFL5 EQU   B'00000100'         RESERVED                             JC816000
                            00002  1182+JCTSMFL6 EQU   B'00000010'         RESERVED                             JC818000
                            00001  1183+JCTSMFL7 EQU   B'00000001'         RESERVED                             JC820000






                                   1185+*                             JCTJBOPT                                  JC824000



                            00080  1187+JCTPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              JC828000
                            00040  1188+JCTSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              JC830000

                            00020  1189+JCTTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           JC832000
                            00010  1190+JCTNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    JC834000
                            00008  1191+JCTXBACH EQU   B'00001000'         EXECUTION BATCHING JOB               JC836000
                            00004  1192+JCTJBOP5 EQU   B'00000100'         RESERVED                             JC838000
                            00002  1193+JCTJBOP6 EQU   B'00000010'         RESERVED                             JC840000

                            00001  1194+JCTJBOP7 EQU   B'00000001'         RESERVED                             JC842000
RDR      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                   1197+*                             JCTJMOPT                                  JC848000




                            00020  1199+JCTJMRUX EQU   B'00100000'         IF ON, TAKE USER EXITS FOR SMF       JC852000






                                   1201+*                                                                       JC856000
                                   1202+*        IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT      JC858000
                                   1203+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  JC860000
                                   1204+*        THE JCT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    JC862000
                                   1205+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    JC864000

                                   1206+*                                                                       JC866000
                            005D0  1207+$JCTTEST EQU   1960-JCTEND+JCTJQE                                       JC868000
000230 05D0                        1208+         DC    Y($JCTTEST)         TEST INSTRUCTION                     JC870000
000000                             1209+HASPRDR  CSECT                     END OF JOB CONTROL TABLE DSECT       JC872000
RDR      HASP INPUT/OUTPUT TABLE DSECT                                                                         PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             1212+IOTDSECT DSECT                     HASP INPUT/OUTPUT TABLE DSECT        IT116000
000000                             1213+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      IT118000

000058                             1214+IOTFLAGS DS    0BL1                MISCELLANEOUS FLAGS                  IT120000
000058                             1215+IOTIOT   DS    F                   ADDRESS OF NEXT INPUT/OUTPUT TABLE   IT122000
00005C                             1216+IOTTRACK DS    F                   TRACK ADDRESS OF CURRENT IOT         IT124000
000060                             1217+IOTIOTTR DS    F                   TRACK ADDRESS OF NEXT IOT            IT126000
000064                             1218+IOTJCTTR DS    F                   TRACK ADDRESS OF JOB CONTROL TABLE   IT128000

000068                             1219+IOTCYMXM DS    F                   MAXIMUM MTTR FOR CURRENT TRACK GROUP IT130000
00006C                             1220+IOTMTTR  DS    F                   LAST MTTR ALLOCATED                  IT132000
000070                             1221+IOTCYMAP DS    XL100               OUTPUT ALLOCATION BIT MAP            IT134000
0000D4                             1222+IOTPDDBP DS    F                   OFFSET OF NEXT AVAILABLE PDDB SPACE  IT136000
0000D8                             1223+IOTPDDB  DS    0F                  PERIPHERAL DATA DEFINITION BLOCKS    IT138000





                                   1225+*                            IOTFLAGS                                   IT142000




                            00080  1227+IOTWRITE EQU   B'10000000'         CHECKPOINT IOT                       IT146000

                            00040  1228+IOTFLAG1 EQU   B'01000000'         RESERVED                             IT148000
                            00020  1229+IOTFLAG2 EQU   B'00100000'         RESERVED                             IT150000
                            00010  1230+IOTFLAG3 EQU   B'00010000'         RESERVED                             IT152000
                            00008  1231+IOTFLAG4 EQU   B'00001000'         RESERVED                             IT154000
                            00004  1232+IOTFLAG5 EQU   B'00000100'         RESERVED                             IT156000

                            00002  1233+IOTFLAG6 EQU   B'00000010'         RESERVED                             IT158000
                            00001  1234+IOTFLAG7 EQU   B'00000001'         RESERVED                             IT160000





                                   1236+*                                                                       IT164000
                                   1237+*           IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT   IT166000
                                   1238+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  IT168000
                                   1239+*        THE IOT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    IT170000
                                   1240+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    IT172000

                                   1241+*                                                                       IT174000

                            00722  1242+$IOTTEST EQU   1960-IOTPDDB+IOTJCTTR-18                                 IT176000
0000D8 0722                        1243+         DC    Y($IOTTEST)         TEST INSTRUCTION                     IT178000
000000                             1244+HASPRDR  CSECT                     END OF HASP INPUT/OUTPUT TABLE DSECT IT180000
RDR      HASP OUTPUT CONTROL RECORD DSECT                                                                      PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             1247+OCRDSECT DSECT                     OUTPUT CONTROL RECORD DSECT          OR098000
000000                             1248+OCRCODE  DS    CL4                 FORMS CODE                           OR100000
000004                             1249+OCRFLAGS DS    BL1                 OUTPUT FLAGS                         OR102000
000005                             1250+         DS    X                   RESERVED                             OR104000
000006                             1251+OCRCOPY  DS    X                   COPY COUNT                           OR106000
000007                             1252+OCRINDEX DS    X                   PRINT INDEX                          OR108000
000008                             1253+OCRFORMS DS    CL4                 FORMS SPECIFICATION                  OR110000
00000C                             1254+OCRFCB   DS    CL4                 FCB SPECIFICATION                    OR112000

000010                             1255+OCRUCS   DS    CL4                 UCS SPECIFICATION                    OR114000

000014                             1256+OCRRECNT DS    F                   RECORD COUNT LIMIT                   OR116000
000018                             1257+OCRDEST1 DS    H                   DESTINATION 1                        OR118000
00001A                             1258+OCRDEST2 DS    H                   DESTINATION 2                        OR120000
00001C                             1259+OCRDEST3 DS    H                   DESTINATION 3                        OR122000

00001E                             1260+OCRDEST4 DS    H                   DESTINATION 4                        OR124000
                            00020  1261+OCREND   EQU   *                   END OF HASP OUTPUT CONRTOL RECO      OR126000
000000                             1262+HASPRDR  CSECT                     END OF OUTPUT CONTROL RECORD DSECT   OR128000





                                   1264+*                             OCRFLAGS                                  OR132000



                            00080  1266+OCRFLAG0 EQU   B'10000000'         RESERVED                             OR136000
                            00040  1267+OCRFLAG1 EQU   B'01000000'         RESERVED                             OR138000
                            00020  1268+OCRFLAG2 EQU   B'00100000'         RESERVED                             OR140000
                            00010  1269+OCRFLAG3 EQU   B'00010000'         RESERVED                             OR142000

                            00008  1270+OCRFLAG4 EQU   B'00001000'         RESERVED                             OR144000
                            00004  1271+OCRFLAG5 EQU   B'00000100'         RESERVED                             OR146000
                            00002  1272+OCRFLAG6 EQU   B'00000010'         RESERVED                             OR148000
                            00001  1273+OCRFLAG7 EQU   B'00000001'         RESERVED                             OR150000

RDR      HASP PERIPHERAL DATA DEFINITION BLOCK DSECT                                                           PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                             1275+PDBDSECT DSECT                     HASP PDDB DSECT                      PD122000
000000                             1276+PDBFLAG1 DS    BL1                 FIRST FLAG BYTE ---                  PD124000
                            00080  1277+PDB1FLG2 EQU   B'10000000'         FLAG 2 (OPTIONS FLAG) EXISTS         PD126000
                            00040  1278+PDB1NULL EQU   B'01000000'         THIS IS A NULL PDDB                  PD128000
                            00020  1279+PDB1LOG  EQU   B'00100000'         THIS PDDB IS FOR THE HASP JOB LOG    PD130000
                            00010  1280+PDB1MDES EQU   B'00010000'         THIS PDDB IS FOLLOWED BY OTHERS      PD132000
                                   1281+*                                   INDICATING MULTIPLE DESTINATIONS    PD134000
                            00008  1282+PDB1RSV4 EQU   B'00001000'         RESERVED                             PD136000
                            00004  1283+PDB1RSV5 EQU   B'00000100'         RESERVED                             PD138000
                            00002  1284+PDB1RSV6 EQU   B'00000010'         RESERVED                             PD140000

                            00001  1285+PDB1RSV7 EQU   B'00000001'         RESERVED                             PD142000
000001                             1286+PDBCLASS DS    C                   OUTPUT CLASS OF THIS DATA SET        PD144000
000002                             1287+PDBLENG  DS    X                   LENGTH OF THIS PDDB                  PD146000

000003                             1288+PDBMTTR  DS    0FL4                STARTING TRACK OF THIS DATA SET      PD148000
000003                             1289+PDBSTNR  DS    HL2                 STEP NUMBER OF THIS DATA SET         PD150000
000005                             1290+PDBDDNR  DS    HL2                 DD NUMBER OF THIS DATA SET           PD152000
                            00007  1291+PDBBASLN EQU   *-PDBDSECT          BASIC PDDB LENGTH                    PD154000
                                   1292+*                                                                       PD156000
                                   1293+*              FOLLOWING FIELDS ARE PRESENT ONLY IF PDB1FLG2 IS ONE     PD158000
                                   1294+*                                                                       PD160000
000007                             1295+PDBFLAG2 DS    BL1                 OPTIONAL FIELDS FLAG BYTE ---        PD162000
                            00080  1296+PDB2FORM EQU   B'10000000'         PDBFORMS                             PD164000
                            00040  1297+PDB2FCB  EQU   B'01000000'         PDBFCB                               PD166000
                            00020  1298+PDB2UCS  EQU   B'00100000'         PDBUCS                               PD168000
                            00010  1299+PDB2RECC EQU   B'00010000'         PDBRECCT                             PD170000

                            00008  1300+PDB2MSC1 EQU   B'00001000'         PDBMISC1                             PD172000

                            00004  1301+PDB2MSC2 EQU   B'00000100'         PDBMISC2                             PD174000
                            00003  1302+PDB2WTRI EQU   B'00000011'         PDBWTRID                             PD176000

                            00008  1303+PDBFL2LN EQU   *-PDBDSECT          MINIMUM NON-BASIC LENGTH             PD178000
                                   1304+*                                                                       PD180000
                                   1305+*              EACH OF THE FOLLOWING FOUR-BYTE OPTIONAL FIELDS          PD182000
                                   1306+*              IS PRESENT ONLY IF THE ASSOCIATED BIT IN PDBFLAG2        PD184000
                                   1307+*              IS ONE.                                                  PD186000
                                   1308+*                                                                       PD188000
000008                             1309+PDBFORMS DS    0FL4                FOUR-BYTE FORMS NUMBER               PD190000
000008                             1310+PDBFCB   DS    0FL4                FOUR-BYTE 3211 FCB ID                PD192000
000008                             1311+PDBUCS   DS    0FL4                FOUR-BYTE 1403 OR 3211 UCS ID        PD194000
000008                             1312+PDBRECCT DS    0FL4                FOUR-BYTE OUTPUT RECORD MAXIMUM      PD196000
000008                             1313+PDBMISC1 DS    0FL4                MISCELLANEOUS ---                    PD198000
000008                             1314+PDBSEC   DS    X                   - DATA SET SECURITY ID               PD200000

000009                             1315+PDBINDEX DS    X                   - 3211 FCB INDEX VALUE               PD202000
00000A                             1316+PDBDEST  DS    HL2                 - DATA SET OUTPUT DESTINATION        PD204000

00000C                      00008  1317+         ORG   PDBMISC1                                                 PD206000

000008                             1318+PDBMISC2 DS    0FL4                MISCELLANEOUS ---                    PD208000
000008                             1319+PDBCOPYS DS    X                   - COPIES OF THIS DATA SET            PD210000
000009                             1320+PDBCPU   DS    X                   - CPU ID                             PD212000
00000A                             1321+         DS    2X                  - RESERVED                           PD214000
00000C                      00008  1322+         ORG   PDBMISC2                                                 PD216000
000008                             1323+PDBWTRID DS    0CL8                EIGHT-BYTE OUTPUT WRITER ID          PD218000
000000                             1324+HASPRDR  CSECT                     END OF PDDB DSECT                    PD220000
RDR      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00010  1326+$CVTPTR  EQU   16                  ADDRESS OF CVT POINTER               CT008000
000000                             1327+CVTDSECT DSECT                     COMMUNICATION VECTOR TABLE DSECT     CT012000



                                   1329+*                                                                       00510000
                                   1330+*              OS/360                                                   00560000
                                   1331+*        COMMUNICATION VECTOR TABLE                                     00800000

                                   1332+*                                                                       00810000
                                   1333+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5                    01050021
                                   1334+*                                                                       01200000
                            00010  1335+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT         01400000
                                   1336+*                                                                       01600000
                                   1337+*              BEGINNING OF CVT PROPER                                  01601000
                                   1338+*                                                                       01610000
000000                             1339+         DS    0F                                                       01611000
                            00000  1340+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE                 01840000
                                   1341+*                                                                       02000000
000000 00000000                    1342+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST  02200000
000004 00000000                    1343+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE                02610000

                                   1344+*                              ASYNCHRONOUS EXITS                       02620000
000008 00000000                    1345+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB                   02800000
00000C 00000000                    1346+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB                     03000000
000010 00000000                    1347+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT                03200000

                                   1348+*                              CONSOLE INTERRUPTION ROUTINE             03400000
000014 00000000                    1349+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE         03600000
000018 00000000                    1350+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING 03800000
                                   1351+*                              ROUTINE FOR SUPERVISOR                   04000000
00001C 00000000                    1352+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04200000
                                   1353+*                              RELATIVE TRACK ADDR TO ABSOLUTE          04400000

000020 00000000                    1354+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04600000
                                   1355+*                              ABSOLUTE TRACK ADDR TO RELATIVE          04800000
000024 00000000                    1356+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION   05000000
                                   1357+*                              IN UCB LOOKUP TABLE                      05200000
000028 00000000                    1358+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION     05400000
                                   1359+*                              IN UCB LOOKUP TABLE                      05600000
00002C 00000000                    1360+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE           05800000
                                   1361+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES 06000000

000030 00000000                    1362+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY      06200000
                                   1363+*                              IN UCB LOOKUP TABLE                      06400000
000034 00000000                    1364+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE         06600000
000038 00000000                    1365+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL             06800000
00003C 00000000                    1366+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)       07210000
                                   1367+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS    07220000
                                   1368+*                              MASTER SCHEDULER RESIDENT DATA AREA      07221000
000040 00000000                    1369+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE    07400000
000044 00000000                    1370+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE          07600000
000048 00000000                    1371+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS       08000000
                                   1372+*                              FOR DAMAGE ASSESSMENT ROUTINES           08200000
00004C 00000000                    1373+CVT0FN00 DC    A(0) -        RESERVED (MVT)                             08610000

000050 0A03                        1374+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER                         08800000
000052 07FE                        1375+CVTBRET  BR    14 -          RETURN TO CALLER                           09000000
000054 00000000                    1376+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB                    09200000

000058 00000000                    1377+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER     09411000
                                   1378+*                              ROUTINE (SHPC FIRST)                     09412000

00005C 00000000                    1379+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL              09430000
RDR      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000060 00000000                    1380+CVTSJQ   DC    A(0) -        RESERVED (MVT)                             09810000
000064 00000000                    1381+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR  10000000
000068 00000000                    1382+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE              10410000
                                   1383+*                              FOR INTERVAL TIMER                       10411000
00006C 00000000                    1384+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE              10420000

                                   1385+*                              FOR INTERVAL TIMER                       10421000
000070 00000000                    1386+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE         10600000
000074 10                          1387+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM                           11600000
                            00040  1388+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11600100
                            00020  1389+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11600200

                            00010  1390+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11600300
                            00004  1391+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11600400
000075 000000                      1392+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11601000

000078 00000000                    1393+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE            11820000
00007C 00000000                    1394+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER    12400000
000080 00000000                    1395+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS               12600000
000084 00000000                    1396+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE              12800000
000088 00000000                    1397+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER             13000000
00008C 00000000                    1398+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE         13200000
000090 00000000                    1399+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE            13400000

000094 00000000                    1400+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT          13810000
                                   1401+*                              DATA AREA (MVT/MFT)                      13820000
000098 00000000                    1402+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE    14000000
00009C 00000000                    1403+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE                14200000
0000A0 00000000                    1404+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE           14400000

0000A4 00000000                    1405+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS                    14600000
0000A8 00000000                    1406+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)      14601000
0000AC 00000000                    1407+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD         16638521
                                   1408+*                              (0 IF GFX INACTIVE) MVT                  16640821

0000B0 00000000                    1409+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA       16647721
                                   1410+*                              (MVT/MFT)                                16650000
0000B4 0000                        1411+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    16660000
0000B6 00                          1412+CVTOPTA  DC    AL1(00)    -     MISCELLANEOUS FLAGS                     16670021
                            00080  1413+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)               16680000
                            00040  1414+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --                    16681000

                                   1415+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16681100
                            00020  1416+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --          16683000
                                   1417+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16683200
                            00010  1418+CVTNIP   EQU   X'10' -       NIP RUNNING                                16690000
                            00008  1419+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)                     16691000

                            00004  1420+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16692000
                            00002  1421+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16693000
                            00001  1422+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16695000
0000B7 00                          1423+CVTOPTB  DC    AL1(00)     - MISCELLANEOUS FLAGS                        16700021
                            00080  1424+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)            16702000

                            00020  1425+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)        16704000
                                   1426+*                                                                       16800000
                                   1427+*              PCP OVERLAY                                              17000000
                                   1428+*                                                                       17200000
0000B8                             1429+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART            17400000

0000BB                             1430+CVTSTUSA DS    B -           STATUS BYTE A                              17600000
                            00008  1431+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART     17800000
                                   1432+*                              WAS INITIATED INTRASTEP                  18000000
                            00004  1433+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART           18200000
                                   1434+*                              WAS INITIATED INTERSTEP                  18400000

RDR      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00002  1435+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM          18600000
                                   1436+*                              AND DATA HAS NOT BEEN READ               18800000
0000BC                             1437+         DS    CL2 -         RESERVED                                   19000000
0000BE                             1438+         DS    CL2 -         RESERVED                                   19200000

                                   1439+*                                                                       19400000
                                   1440+*              MVT/MFT OVERLAY                                          19600000
                                   1441+*                                                                       19800000
0000C0                      000B8  1442+         ORG   CVTCRTTR                                                 20000000

                                   1443+*                                                                       20200000
0000B8 00000000                    1444+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR           20400000
0000BC 00000000                    1445+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21000000
                                   1446+*                                                                       21670000
                                   1447+*              END OF OVERLAYS                                          21800000

                                   1448+*                                                                       22000000
0000C0 00000000                    1449+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)                       22421000
0000C4 00000000                    1450+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA            22600000
0000C8 00000000                    1451+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT     22610000
                                   1452+*                              (MVT/MPS)                                22610100
0000CC 00000000                    1453+CVTUSER  DC    A(0) -        A WORD TO THE USER                         22620000
0000D0                      000CC  1454+         ORG   CVTUSER -     REMAP CVTUSER AS CVTHJES              RFIT 22620100

0000CC                             1455+CVTHJES  DS    0A -          SAME AS CVTHJESA BELOW                RFIT 22620300
0000CC 00                          1456+         DC    XL1'00' -     RESERVED - FIRST BYTE OF CVTHJES      RFIT 22620500
0000CD 000000                      1457+CVTHJESA DC    AL3(0) -      ADDRESS OF HASP COMMUNICATION TABLE   RFIT 22620700

0000D0                      000D0  1458+         ORG   , -           RESTORE LOCATION COUNTER              RFIT 22620900
                                   1459+*                                                                       23000000
                                   1460+*              MFT/MVT CVT EXTENSION                                    24000000
                                   1461+*                                                                       24200000
0000D0 00000000                    1462+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT       24400021

0000D4 0A0D                        1463+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)                 24600000
0000D6 0A06                        1464+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)   25000000
0000D8 00000000                    1465+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25421000
0000DC 00000000                    1466+CVTPATCH DC    V(IEAPATCH) - ADDR OF FE PATCH AREA                      25540000
0000E0 00000000                    1467+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA  25800000
                                   1468+*                              (MVT/MFT)                                25810000
0000E4                             1469+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)             26000000
0000E4 00                          1470+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)                   26050000

                            00080  1471+CVTTSRDY EQU   X'80' -       TIME SHARING READY                         26100000
0000E5 000000                      1472+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)             26150000

0000E8 00000000                    1473+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     27393221
0000EC                             1474+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)   27394021
0000EC 00                          1475+CVTGTFST DC    B'0' -        STATUS FLAGS                               27396021
                            000C0  1476+CVTGTFS  EQU   X'C0' -       STATE                                      27398021
                                   1477+*/       00    CVTGTFIN      INACTIVE                                   27398421

                                   1478+*/       01    CVTGTFSR      STARTING                                   27398821
                                   1479+*/       10    CVTGTFSP      STOPPING                                   27399221
                                   1480+*/       11    CVTGTFAC      ACTIVE                                     27399621
                            00020  1481+CVTSTATE EQU   X'20' -       IN CONTROL                                 27399721
                            00010  1482+CVTMODE  EQU   X'10' -       EXT MODE                                   27399821
                            00008  1483+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA                27399921
                            00004  1484+CVTUSR   EQU   X'04' -       USR TRACE                                  27449921
                            00002  1485+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID                       27459921
0000ED 000000                      1486+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE                27469921

0000F0                             1487+CVTTCMFG DS    0B -          TCAM FLAGS                                 27499921

                            00080  1488+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)                         27600000
0000F0 00000000                    1489+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF             27610000
RDR      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1490+*                            TCAM ADDRESS VECTOR TABLE                  27620021

                                   1491+*                                                                       29401221
                                   1492+*              MVT CVT EXTENSION                                        29401321
                                   1493+*                                                                       29401421
0000F4                             1494+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE 29401521
                                   1495+*                            (PWF)                               S21167 29401621
0000F4 80                          1496+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY   29404021
                                   1497+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167 29404221
                            00080  1498+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167 29404421
0000F5 000000                      1499+CVTVOLT2 DC    AL3(0)     -  PWF RECHECK TIME DELAY.  THIS VALUE IS     29404621
                                   1500+*                            OVERLAID BY CVTVOLM2 AFTER PWF             29404821

                                   1501+*                            INITIALIZATION                      S21167 29405021

0000F8 00000000                    1502+         DC    A(0) -        RESERVED                                   29405221
                                   1503+*                                                                       29407021
                                   1504+*              MVT/MFT CVT EXTENSION                                    29408021
                                   1505+*                                                                       29408821

0000FC 00000114                    1506+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1              29410821
                                   1507+*                            (ICB421)                APAR'S 47331,47332 29413221
000100                             1508+         DS    F -           RESERVED                                   29414221
000104                             1509+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE         29415221
000104                             1510+         DS    X -           RESERVED                                   29416421
000105 000000                      1511+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE         29417421
000108                             1512+         DS    F -           RESERVED                                   29418421
00010C                             1513+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307 29419421
00010C                             1514+         DS    X -           RESERVED                            ICB307 29420421
00010D 000000                      1515+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND              29421421
                                   1516+*                            COMMUNICATION AREA                  ICB307 29422421

000110                             1517+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308 29423421
000110                             1518+         DS    X -           RESERVED                            ICB308 29424421
000111 000000                      1519+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY      29425421
                                   1520+*                            ROUTINE                             ICB308 29426421

                                   1521+*                                                                       29427421
                                   1522+*              COMMON EXTENSION 1                                       29435721
                                   1523+*              ADDRESS OF EXTENSION IS IN CVTEXT1                       29445721
                                   1524+*                                                                       29455721
                                   1525+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,               29456121
                                   1526+*              YOU SHOULD CODE -                                        29462521
                                   1527+*                                                                       29464521
                                   1528+*              L     REG,CVTEXT1                                        29466521
                                   1529+*              USING CVTXTNT1,REG                                       29468521
                                   1530+*                                                                       29468621
                                   1531+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.               29468721
                                   1532+*                                                                       29468821

                            00114  1533+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1                29475221
                                   1534+*                            (ICB421)                APAR'S 47331,47332 29475721
000114 00000000                    1535+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS        29477221

                                   1536+*                            (ISAM) (ICB421)         APAR'S 47331,47332 29479221
                                   1537+*                                                                       29494421
                                   1538+*              END OF CVT PROPER                                        29513521
                                   1539+*                                                                       29532621
                                   1540+*                                                                       29870000
                                   1541+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT           29880000
                                   1542+*                                                                       29890000
000000                             1543+HASPRDR  CSECT                     END OF CVT DSECT                     CT020000
RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1545+*,***  IHB069  DEVD NOT SPECIFIED-ALL ASSUMED



                                   1547+*                       DCB SYMBOLIC DEFINITION FOR                     07700000

                                   1548+*                       PHYSICAL SEQUENTIAL                             07900000


                                   1550+*********************************************************************** 09960021
                                   1551+*  OS     RELEASE 21.8, 03/22/74                                      * 10000021
                                   1552+*  OS/VS1 RELEASE 03.1, 03/22/74                                      * 10010021
                                   1553+*********************************************************************** 10020021

000000                             1555+IHADCB   DSECT , -            DCBPTR                                    10150000

                            00080  1557+DCBBIT0  EQU   128                                                      10210021
                            00040  1558+DCBBIT1  EQU   64                                                       10220021
                            00020  1559+DCBBIT2  EQU   32                                                       10230021
                            00010  1560+DCBBIT3  EQU   16                                                       10240021
                            00008  1561+DCBBIT4  EQU   8                                                        10242021

                            00004  1562+DCBBIT5  EQU   4                                                        10244021
                            00002  1563+DCBBIT6  EQU   2                                                        10246021

                            00001  1564+DCBBIT7  EQU   1                                                        10248021


                                   1566+*                       DEVICE INTERFACES                               10350000

                                   1568+*                       DIRECT ACCESS DEVICES                           10500000

000000                             1570+DCBRELAD DS    CL4 -          PARTITIONED ORGANIZATION DATA SET -       10600000
                                   1571+*                             ADDRESS (IN THE FORM TTRN) OF MEMBER      10650000
                                   1572+*                             CURRENTLY USED.  ---                      10700000
                                   1573+*                             SYS1.LOGREC DATA SET - IF CCH OPTION HAS  10750000
                                   1574+*                             BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS 10800000
                                   1575+*                             OF A 12-BYTE PARAMETER IN THE EXPANSION   10850000
                                   1576+*                             OF MACRO INSTRUCTION IGFCATAP             10900000

000004                             1577+DCBKEYCN DS    FL1 -          KEYED BLOCK OVERHEAD CONSTANT             10950000
000005                             1578+DCBFDAD  DS    CL8 -          FULL DISK ADDRESS IN THE FORM OF MBBCCHHR 11000000
                                   1579+*                             OF RECORD THAT WAS JUST READ OR WRITTEN   11050000


00000D                      0000C  1581+         ORG   DCBFDAD+7                                                11150000
00000C                             1582+DCBDVTBL DS    0A -           SAME AS DCBDVTBA BELOW                    11200000
00000C                             1583+         DS    X -            LAST BYTE OF DCBFDAD                      11250000
00000D                             1584+DCBDVTBA DS    AL3 -          ADDRESS OF ENTRY IN I/O DEVICE            11300000
                                   1585+*                             CHARACTERISTICS TABLE FOR DEVICE BEING    11350000
                                   1586+*                             USED                                      11400000
000010                             1587+         DS    FL1 -          DCBKEYLE - KEY LENGTH OF DATA SET         11450000
000011                             1588+         DS    C -            DCBDEVT - DEVICE TYPE                     11500000
                                   1589+*   FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION      11550000
                            00021  1590+DCBDV311 EQU   X'21' -        2311 DISK DRIVE                           11600000
                            00022  1591+DCBDV301 EQU   X'22' -        2301 PARALLEL DRUM                        11650000

                            00023  1592+DCBDV303 EQU   X'23' -        2303 SERIAL DRUM                          11700000
                            00024  1593+DCBDV302 EQU   X'24' -        2302 DISK STORAGE                         11750000
                            00025  1594+DCBDV321 EQU   X'25' -        2321 DATA CELL DRIVE                      11800000

                            00028  1595+DCBDV314 EQU   X'28' -        2314 DISK STORAGE FACILITY                11850000
000012                             1596+DCBTRBAL DS    H -            TRACK BALANCE.  NUMBER OF BYTES REMAINING 11900000
                                   1597+*                             ON CURRENT TRACK AFTER A WRITE OPERATION  11950000
                                   1598+*                             (THIS QUANTITY MAY BE NEGATIVE IF THERE   12000000
RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   46


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1599+*                             ARE NO BYTES REMAINING ON TRACK).         12050000

                                   1601+*                       MAGNETIC TAPE                                   12200000

000014                      00000  1603+         ORG   IHADCB                                                   12300000
000000                             1604+         DS    CL12 -         RESERVED FOR I/O SUPERVISOR               12350000

00000C                             1605+DCBBLKCT DS    F -            BLOCK COUNT FOR EACH VOLUME               12400000
000010                             1606+DCBTRTCH DS    C -            TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 12450000
                            00023  1607+DCBMTE   EQU   X'23' -        E  - EVEN PARITY                          12500000
                            0003B  1608+DCBMTT   EQU   X'3B' -        T  - BCD/EBCDIC TRANSLATION               12550000

                            00013  1609+DCBMTC   EQU   X'13' -        C  - DATA CONVERSION                      12600000
                            0002B  1610+DCBMTET  EQU   X'2B' -        ET - EVEN PARITY AND TRANSLATION          12650000
000011                             1611+         DS    C -            DCBDEVT - DEVICE TYPE                     12700000
                            00081  1612+DCBDVMT  EQU   X'81' -        2400 SERIES MAGNETIC TAPE UNIT (7-TRACK   12750000
                                   1613+*                             OR 9-TRACK)                               12800000
                            00083  1614+DCBDVMT3 EQU   X'83' -        3400 SERIES MAGNETIC TAPE UNIT     ICB277 12850000

000012                             1615+DCBDEN   DS    C -            TAPE DENSITY - 2400 SERIES MAGNETIC TAPE  12900000
                                   1616+*                             UNITS                                     12950000
                                   1617+*                             CODE    7-TRACK     9-TRACK               13000000
                            00003  1618+DCBMTDN0 EQU   X'03' -         0       200 BPI       -                  13050000
                            00043  1619+DCBMTDN1 EQU   X'43' -         1       556 BPI       -                  13100000
                            00083  1620+DCBMTDN2 EQU   X'83' -         2       800 BPI     800 BPI              13150000
                            000C3  1621+DCBMTDN3 EQU   X'C3' -         3         -        1600 BPI              13200000
                            000D3  1622+DCBMTDN4 EQU   X'D3' -         4         -        6250 BPI        99223 13210003

000013                             1623+         DS    X -            RESERVED                                  13250000


                                   1625+*                       PAPER TAPE                                      13400000

000014                      00008  1627+         ORG   IHADCB+8                                                 13500000
000008                             1628+DCBLCTBL DS    A -            ADDRESS OF TRANSLATE TABLE                13550000
00000C                             1629+         DS    XL4 -          RESERVED                                  13600000
000010                             1630+DCBCODE  DS    C -            PAPER TAPE CODE BEING USED.  THE          13650000
                                   1631+*                             APPROPRIATE TRANSLATE TABLE IS MADE       13700000
                                   1632+*                             AVAILABLE                                 13750000

                            00080  1633+DCBPTCDN EQU   X'80' -        N - NO CONVERSION                         13800000
                            00040  1634+DCBPTCDI EQU   X'40' -        I - IBM BCD                               13850000
                            00020  1635+DCBPTCDF EQU   X'20' -        F - FRIDEN                                13900000
                            00010  1636+DCBPTCDB EQU   X'10' -        B - BURROUGHS                             13950000
                            00008  1637+DCBPTCDC EQU   X'08' -        C - NATIONAL CASH REGISTER                14000000

                            00004  1638+DCBPTCDA EQU   X'04' -        A - ASCII (8-TRACK)                       14050000
                            00002  1639+DCBPTCDT EQU   X'02' -        T - TELETYPE                              14100000
000011                             1640+         DS    C -            DCBDEVT - DEVICE TYPE                     14150000

                            00050  1641+DCBDVPTP EQU   X'50' -        2671 PAPER TAPE READER                    14200000
000012                             1642+         DS    X -            RESERVED                                  14250000
000013                             1643+DCBPTFLG DS    BL1 -          PAPER TAPE FLAGS                          14300000
                            00010  1644+DCBPTIC  EQU   DCBBIT3 -      INVALID CHARACTER IN LAST RECORD READ     14350003
                            00008  1645+DCBPTECT EQU   DCBBIT4 -      END OF RECORD CHARACTER REACHED IN        14400003
                                   1646+*                             TRANSLATION                               14450000
                            00004  1647+DCBPTECR EQU   DCBBIT5 -      END OF RECORD CHARACTER DETECTED DURING   14500003

                                   1648+*                             READ                                      14550000
                            00002  1649+DCBPTUCT EQU   DCBBIT6 -      IF ONE, UPPER CASE TRANSLATE.             14600003
                                   1650+*                             IF ZERO, LOWER CASE TRANSLATE             14650000
                            00001  1651+DCBPTERR EQU   DCBBIT7 -      ERROR DETECTED ON READ                    14700003


                                   1653+*                       PRINTER                                         14850000
RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000014                      00010  1655+         ORG   IHADCB+16                                                14950000

000010                             1656+DCBPRTSP DS    C -            NUMBER INDICATING NORMAL PRINTER SPACING  15000000
                            00001  1657+DCBPRSP0 EQU   X'01' -        0 - NO SPACING                            15050000
                            00009  1658+DCBPRSP1 EQU   X'09' -        1 - SPACE ONE LINE                        15100000
                            00011  1659+DCBPRSP2 EQU   X'11' -        2 - SPACE TWO LINES                       15150000
                            00019  1660+DCBPRSP3 EQU   X'19' -        3 - SPACE THREE LINES                     15200003
000011                             1661+         DS    C -            DCBDEVT - DEVICE TYPE                     15250000

                            00048  1662+DCBDVPR1 EQU   X'48' -        1403 PRINTER AND 1404 PRINTER (CONTINUOUS 15300000
                                   1663+*                             FORM SUPPORT ONLY)                        15350000
                            0004A  1664+DCBDVPR2 EQU   X'4A' -        1443 PRINTER                              15400000
                            00049  1665+DCBDVPR3 EQU   X'49' -        3211 PRINTER                              15450000
000012                             1666+DCBPRTOV DS    C -            TEST-FOR-PRINTER-OVERFLOW MASK            15500000

                                   1667+*                             (PRTOV MASK)                              15550000
                            00020  1668+DCBPRC9  EQU   X'20' -        9  - TEST FOR CHANNEL 9 OVERFLOW          15600000
                            00010  1669+DCBPRC12 EQU   X'10' -        12 - TEST FOR CHANNEL 12 OVERFLOW         15650000
000013                             1670+         DS    X -            RESERVED                                  15700000


                                   1672+*                       CARD READER, CARD PUNCH                         15850000

000014                      00010  1674+         ORG   IHADCB+16                                                15950000
000010                             1675+DCBMODE  DS    0B -           MODE OF OPERATION FOR 1442 CARD READ      16000000
                                   1676+*                             PUNCH (BITS 0-3)                          16050000

000010                             1677+DCBSTACK DS    B -            STACKER SELECTION (BITS 4-7)              16100000
                            00080  1678+DCBMODEC EQU   DCBBIT0 -      COLUMN BINARY MODE                        16150003
                            00040  1679+DCBMODEE EQU   DCBBIT1 -      EBCDIC MODE                               16200003
                            00020  1680+DCBMODEO EQU   DCBBIT2 -      OPTICAL MARK READ MODE                    16250003
                            00010  1681+DCBMODER EQU   DCBBIT3 -      READ COLUMN ELIMINATE MODE                16300003

                            00002  1682+DCBSTCK2 EQU   DCBBIT6 -      STACKER 2                                 16350003
                            00001  1683+DCBSTCK1 EQU   DCBBIT7 -      STACKER 1                                 16400003
000011                             1684+         DS    C -            DCBDEVT - DEVICE TYPE                     16450000
                            00041  1685+DCBDVCR0 EQU   X'41' -        2540 CARD READER                          16500000
                            00042  1686+DCBDVCP0 EQU   X'42' -        2540 CARD PUNCH                           16550000
                            00043  1687+DCBDVCRP EQU   X'43' -        1442 CARD READ PUNCH                      16600000

                            00044  1688+DCBDVCR1 EQU   X'44' -        2501 CARD READER                          16650000
                            00045  1689+DCBDVCPR EQU   X'45' -        2520 CARD READ PUNCH                      16700000
                            00046  1690+DCBDVCR2 EQU   X'46'          3505 CARD READER                   XM0629 16710002
                            0004C  1691+DCBDVCP1 EQU   X'4C'          3525 CARD PUNCH                    XM0629 16720002

000012                             1692+         DS    X -            RESERVED                                  16750000
000013                             1693+DCBFUNC  DS    B -            FUNCTION INDICATOR FOR THE 3525           16800000
                            00080  1694+DCBFNCBI EQU   DCBBIT0 -      INTERPRET (PUNCH AND PRINT TWO LINES)     16850003
                            00040  1695+DCBFNCBR EQU   DCBBIT1 -      READ                                      16900003
                            00020  1696+DCBFNCBP EQU   DCBBIT2 -      PUNCH                                     16950003

                            00010  1697+DCBFNCBW EQU   DCBBIT3 -      PRINT                                     17000003
                            00008  1698+DCBFNCBD EQU   DCBBIT4 -      DATA PROTECTION                           17050003
                            00004  1699+DCBFNCBX EQU   DCBBIT5 -      THIS DATA SET IS TO BE PRINTED            17100003
                            00002  1700+DCBFNCBT EQU   DCBBIT6 -      TWO-LINE PRINT SUPPORT REQUEST            17150003

                                   1702+*                       OPTICAL READER AND MAGNETIC CHAR READER         18100000


000014                      00000  1704+         ORG   IHADCB                                                   18200000
000000                             1705+DCBWTOID DS    0A -           SAME AS DCBWTOIA BELOW                    18250000
000000                             1706+         DS    X -            RESERVED                                  18300000

000001                             1707+DCBWTOIA DS    AL3 -          A BINARY IDENTIFICATION NUMBER ASSIGNED   18350000
                                   1708+*                             BY COMMUNICATIONS TASK TO MESSAGE ISSUED  18400000
                                   1709+*                             BY WTO MACRO.  THIS NUMBER IS USED BY THE 18450000
RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   1710+*                             DOM MACRO WHEN MESSAGE IS NO LONGER       18500000
                                   1711+*                             REQUIRED (MCS SUPPORT).  ---              18550000
                                   1712+*                             FOR MAGNETIC CHAR READER - AFTER FIRST    18600000
                                   1713+*                             READ HAS BEEN ISSUED, CONTAINS ADDRESS OF 18650000
                                   1714+*                             MAGNETIC INTERRUPT CONTROL BLOCK (MICB)   18700000
                                   1715+*                             BEING USED BY THE APPENDAGES.             18750000

                                   1717+*                       OPTICAL READER DEVICES                          18900000

                                   1718+*                       1285, 1287, 1288, 3886                          18950003


000004                      00004  1720+         ORG   DCBWTOID+4                                               19050000
000004                             1721+DCBERRCN DS    0A -           SAME AS DCBERRCA BELOW                    19100000
000004                             1722+DCBERRCA DS    AL3 -          ADDRESS OF 32 BYTES OF DECLARED STORAGE   19200000
                                   1723+*                             SPECIFIED BY THE USER IN HIS PROGRAM.     19250000
                                   1724+*                             THIS STORAGE WILL BE USED BY THE          19300000

                                   1725+*                             PROGRAMMING SUPPORT AS EIGHT 4-BYTE       19350000
                                   1726+*                             COUNTERS IN WHICH TOTALS OF CERTAIN 1285, 19400000
                                   1727+*                             1287 AND 1288 ERROR CONDITIONS ARE        19450000
                                   1728+*                             ACCUMULATED.                              19500000
000007                      00004  1729+         ORG   DCBWTOID+4                                               19510003
000004                             1730+DCBLNNUM DS    X              3886  DOCUMENT LINE NUMBER                19520003
000005                             1731+DCBLFMAT DS    X              3886  LINE FORMAT NUMBER                  19530003
000006                             1732+DCBORFLG DS    X              3886  FLAGS                               19540003
                            00080  1733+DCBEOPFG EQU   DCBBIT0        END OF PAGE                               19540403

000007                             1734+         DS    X              RESERVED                                  19542003

000008                             1735+DCBDSPLY DS    0A -           SAME AS DCBDSPLA BELOW                    19550000
000008                             1736+DCBFRID  DS    0CL4           3886  FORMAT RECORD ID                    19560003
000008                             1737+         DS    X -            RESERVED                                  19600000
000009                             1738+DCBDSPLA DS    AL3 -          ADDRESS OF DSPLY (BSAM) ROUTINE USED FOR  19650000
                                   1739+*                             KEYBOARD ENTRY OF A COMPLETE FIELD        19700000

00000C                             1740+DCBRESCN DS    0A -           SAME AS DCBRESCA BELOW                    19750000
00000C                             1741+DCBRDLNE DS    0A -           SAME AS DCBRDLNA BELOW                    19800000
00000C                             1742+DCBFRTBA DS    0A             3886  FORMAT RECORD TABLE                 19810003
00000C                             1743+         DS    X -            RESERVED                                  19850000
00000D                             1744+DCBRESCA DS    0AL3 -         ADDRESS OF RESCN (BSAM) ROUTINE USED TO   19900000
                                   1745+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    19950000
                                   1746+*                             CHARACTERS                                20000000
00000D                             1747+DCBRDLNA DS    AL3 -          ADDRESS OF RDLNE (QSAM) ROUTINE USED TO   20050000
                                   1748+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    20100000
                                   1749+*                             CHARACTERS                                20150000

000010                             1750+DCBORBYT DS    BL1 -          OPTICAL READER BYTE USED BY BSAM/QSAM     20200000

                            00080  1751+DCBORSYN EQU   DCBBIT0 -      SYNAD IN CONTROL                          20250003
                            00040  1752+DCBOREOF EQU   DCBBIT1 -      END OF FILE (EOF)                         20300003
                            00020  1753+DCBORBFP EQU   DCBBIT2 -      BUFFERS PRIMED (QSAM)                     20350003
000011                             1754+         DS    C -            DCBDEVT - DEVICE TYPE                     20400000

                            0005A  1755+DCBDVOR5 EQU   X'5A' -        1285 OPTICAL READER                       20450000
                            0005B  1756+DCBDVOR7 EQU   X'5B' -        1287 OPTICAL READER                       20500000
                            0005C  1757+DCBDVOR8 EQU   X'5C' -        1288 OPTICAL READER                       20550000
                            00057  1758+DCBDVOR9 EQU   X'57'          3886 OPTICAL READER                       20560003
000012                             1759+DCBEIB   DS    BL1 -          ERROR INDICATOR BYTE                      20600000
                            00040  1760+DCBORNRM EQU   DCBBIT1 -      THE 1287 OR 1288 SCANNER WAS UNABLE TO    20650003
                                   1761+*                             LOCATE THE REFERENCE MARK                 20700000
                            00020  1762+DCBORREJ EQU   DCBBIT2 -      FOR 1287, A STACKER SELECT COMMAND WAS    20750003
                                   1763+*                             GIVEN AFTER ALLOTTED TIME HAD ELAPSED AND 20800000
                                   1764+*                             THE DOCUMENT HAS BEEN PUT IN REJECT       20850000
RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   49



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1765+*                             POCKET.  FOR 1288 UNFORMATTED ONLY,       20900000
                                   1766+*                             END-OF-PAGE HAS OCCURRED.                 20950000
                            00010  1767+DCBORERR EQU   DCBBIT3 -      A NONRECOVERABLE ERROR HAS OCCURRED.      21000003

                            00008  1768+DCBORECK EQU   DCBBIT4 -      AN EQUIPMENT CHECK RESULTED IN AN         21050003
                                   1769+*                             INCOMPLETE READ                           21100000
                            00004  1770+DCBORWLR EQU   DCBBIT5 -      A WRONG-LENGTH RECORD CONDITION HAS       21150003
                                   1771+*                             OCCURRED                                  21200000
                            00002  1772+DCBORHPR EQU   DCBBIT6 -      FOR QSAM - OPERATOR ENTERED ONE OR MORE   21250003
                                   1773+*                             CHARACTERS FROM THE KEYBOARD.             21300000
                                   1774+*                             FOR BSAM - A HOPPER EMPTY CONDITION HAS   21350000
                                   1775+*                             OCCURRED                                  21400000
                            00001  1776+DCBORDCK EQU   DCBBIT7 -      A DATA CHECK HAS OCCURRED                 21450003
000013                             1777+         DS    X -            RESERVED                                  21500000

                                   1779+*                       MAGNETIC CHARACTER READER DEVICES               21650000

                                   1780+*                       1419 MAGNETIC CHARACTER READER                  21700000
                                   1781+*                       1275 OPTICAL READER SORTER                      21750000
                                   1782+*                       3890 MAGNETIC CHARACTER READER                  21760003


000014                      00000  1784+         ORG   IHADCB                                                   21850000
000000                             1785+DCBSSID  DS    CL8 -          BEFORE DCB IS OPENED - NAME OF USER'S     21900000
                                   1786+*                             STACKER SELECT ROUTINE.                   21950000

000008                      00000  1788+         ORG   DCBSSID                                                  22050000
000000                             1789+         DS    A -            AFTER DCB IS OPENED - DCBWTOID            22100000
000004                             1790+DCBSSAD  DS    0A -           ADDRESS OF USER'S STACKER SELECT ROUTINE  22150000
000004                             1791+DCBIMG   DS    0A             3890  ADDR OF USER'S IMAGE PROC RTN       22160003
000004                             1792+         DS    X -            RESERVED                                  22200000
000005                             1793+DCBSSADA DS    AL3 -          ADDRESS OF USER'S STACKER SELECT ROUTINE  22250000
000008                             1794+DCBIMAGE DS    0A -           SAME AS DCBIMAGA BELOW                    22300000

000008                             1795+DCBMRFG  DS    BL1 -          BUFFER INDICATOR                          22350000

                            000C0  1796+DCBMRBCT EQU   DCBBIT0+DCBBIT1 -                                        22400003
                                   1797+*                             TWO-BIT BINARY COUNTER WHICH INDICATES    22410003

                                   1798+*                             INTO WHICH BUFFER STATUS INFORMATION IS   22450000
                                   1799+*                             TO BE POSTED                              22500000
000009                             1800+DCBIMAGA DS    AL3 -          ADDRESS OF PARAMETER LIST USED TO         22550000
                                   1801+*                             COMMUNICATE BETWEEN USER'S PROCESSING     22600000
                                   1802+*                             ROUTINES AND HIS STACKER SELECT ROUTINES  22650000
00000C                             1803+DCBECBLT DS    0A -           SAME AS DCBECBLA BELOW                    22700000
00000C                             1804+DCBHDR   DS    0A             3890  ADDR OF USER'S HEADER DATA AREA     22702003
00000C                             1805+DCBMRIND DS    BL1 -          INDICATOR AND COUNTER BYTE                22750000
                            000E0  1806+DCBMRDCT EQU   DCBBIT0+DCBBIT1+DCBBIT2                                  22800003
                                   1807+*                             THREE-BIT BINARY COUNTER OF NUMBER OF     22810003
                                   1808+*                             DOCUMENTS READ AFTER DISENGAGE            22850000
                            00010  1809+DCBMRSCU EQU   DCBBIT3 -      DCB WAS ALTERED WHEN SYNAD ROUTINE WAS    22900003

                                   1810+*                             ENTERED DUE TO SECONDARY CONTROL UNIT     22950000
                                   1811+*                             (SCU) ERROR                               23000000

                            00008  1812+DCBMRPLO EQU   DCBBIT4 -      POCKET LIGHT HAS BEEN TURNED ON           23050003

                            00004  1813+DCBMRPLS EQU   DCBBIT5 -      POCKET LIGHT 0-6 IS BEING SET ON          23100003
                            00002  1814+DCBMRERP EQU   DCBBIT6 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23150003
                                   1815+*                             PRIMARY CONTROL UNIT (PCU)                23200000
                            00001  1816+DCBMRERS EQU   DCBBIT7 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23250003
                                   1817+*                             SECONDARY CONTROL UNIT (SCU)              23300000
00000D                             1818+DCBECBLA DS    AL3 -          ADDRESS OF ECB LIST PASSED TO WAIT MACRO  23350000
                                   1819+*                             BY CHECK MACRO WHEN NO 1419/1275 IS       23400000
RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1820+*                             AVAILABLE FOR PROCESSING                  23450000
000010                             1821+DCBMRFLG DS    BL1 -          FLAG BYTE                                 23500000
                            00080  1822+DCBMRSCC EQU   DCBBIT0 -      FIRST OR SECOND SECONDARY CONTROL UNIT    23550003

                                   1823+*                             COMMAND CHAIN IS BEING USED               23600000
                            00040  1824+DCBMRDBG EQU   DCBBIT1 -      DEBUGGING MODE IN USE                     23650003
                            00020  1825+DCBMRDRU EQU   DCBBIT2 -      DISENGAGE REQUESTED BY USER               23700003

                            00010  1826+DCBMRDR  EQU   DCBBIT3 -      DISENGAGE REQUESTED                       23750003
                            0000C  1827+DCBMRPCC EQU   DCBBIT4+DCBBIT5 -                                        23800003
                                   1828+*                             TWO-BIT BINARY COUNTER INDICATING FIRST,  23802003
                                   1829+*                             SECOND OR THIRD PRIMARY CONTROL UNIT      23850000
                                   1830+*                             COMMAND CHAIN IS BEING USED               23900000
                            00002  1831+DCBMRDWT EQU   DCBBIT6 -      WTO MESSAGE MUST BE DELETED               23950003
                            00001  1832+DCBMRUE  EQU   DCBBIT7 -      UNIT EXCEPTION                            24000003
000011                             1833+         DS    C -            DCBDEVT - DEVICE TYPE                     24050000
                            0005D  1834+DCBDVMR  EQU   X'5D' -        1419 MAGNETIC CHARACTER READER            24100000
                            0005F  1835+DCBDVORS EQU   X'5F' -        1275 OPTICAL READER SORTER                24150000
                            00056  1836+DCBDVMRS EQU   X'56'          3890 MAGNETIC CHARACTER READER SORTER     24160003
000012                             1837+DCBAPPIN DS    C -            AN INDICATOR USED BY THE APPENDAGES TO    24200000

                                   1838+*                             PASS INFORMATION ABOUT ONE CHANNEL CHAIN  24250000
                                   1839+*                             TO AN APPENDAGE ASSOCIATED WITH ANOTHER   24300000
                                   1840+*                             CHANNEL CHAIN                             24350000

000013                             1841+         DS    X -            RESERVED                                  24400000

                                   1843+*                       ACCESS METHOD COMMON INTERFACE                  24600000

000014                      00010  1845+         ORG   IHADCB+16                                                24700000
000010                             1846+DCBRELB  DS    0F -           SAME AS DCBREL BELOW                      24750000
000010                             1847+DCBKEYLE DS    FL1 -          KEY LENGTH OF DATA SET                    24800000
000011                             1848+DCBDEVT  DS    0C -           DEVICE TYPE                               24850000
                            0004F  1849+DCBDVTRM EQU   X'4F' -        TERMINAL.  (DD CONTAINS TERM=TS)          24900000
000011                             1850+DCBREL   DS    FL3 -          NUMBER OF RELATIVE TRACKS OR BLOCKS IN    24950000
                                   1851+*                             THIS DATA SET (BDAM)                      25000000
000014                             1852+DCBBUFCB DS    0A -           ADDRESS OF BUFFER POOL CONTROL BLOCK      25050000

000014                             1853+DCBBUFNO DS    FL1 -          NUMBER OF BUFFERS REQUIRED FOR THIS DATA  25100000
                                   1854+*                             SET.  MAY RANGE FROM 0 TO 255.  IF        25150000
                                   1855+*                             UNBLOCKED SPANNED RECORDS ARE USED,       25200000
                                   1856+*                             NUMBER OF SEGMENT WORK AREAS REQUIRED     25250000

                                   1857+*                             FOR THIS DATA SET.                        25300000
000015                             1858+DCBBUFCA DS    AL3 -          ADDRESS OF BUFFER POOL CONTROL BLOCK      25350000
000018                             1859+DCBBUFL  DS    H -            LENGTH OF BUFFER.  MAY RANGE FROM 0 TO    25400000
                                   1860+*                             32,767.                                   25450000
00001A                             1861+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED          25500000
00001A                             1862+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG                    25550000

                            00080  1863+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION      25600003
                            00040  1864+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION     25650003
                            00020  1865+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION                  25700003
                            00010  1866+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP              25750003
                            00008  1867+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE     25800003
                            00004  1868+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE   25850003
                            00002  1869+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION             25900003
                            00001  1870+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS         25950003

                                   1871+*                                  LOCATION DEPENDENT INFORMATION       26000000
00001B                             1872+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG                   26050000

                            00080  1873+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION                26100003
                            00040  1874+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP                      26150003
RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00020  1875+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE                   26200003
                            00008  1876+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1 26250003
                            00004  1877+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024 26260003
00001C                             1878+DCBIOBAD DS    0A -           ADDRESS OF IOB WHEN CHAINED SCHEDULING IS 26300000

                                   1879+*                             USED OR FOR 1419/1275                     26350000
00001C                             1880+DCBODEB  DS    0A -           ADDRESS OF OLD DEB                        26400000
00001C                             1881+DCBLNP   DS    0FL1 -         3525 PRINTER LINE POSITION COUNTER        26450000
00001C                             1882+DCBQSLM  DS    BL1 -          QSAM LOCATE MODE LOGICAL RECORD INTERFACE 26500000
                                   1883+*                             INDICATOR BYTE FOR UPDAT PROCESSING OF    26550000

                                   1884+*                             SPANNED RECORDS                           26600000
                            00080  1885+DCB1DVDS EQU   DCBBIT0 -      ONLY ONE DEVICE IS ALLOCATED TO THIS      26650003
                                   1886+*                             DATA SET                                  26700000

                            00040  1887+DCBUPDCM EQU   DCBBIT1 -      UPDATE COMPLETE, FREE OLD DEB             26750003
                            00030  1888+DCBUPDBT EQU   DCBBIT2+DCBBIT3 -                                        26800003
                                   1889+*                             UPDATE BITS                               26810003
                            00020  1890+DCBUPDT  EQU   DCBBIT2 -      UPDATE TO TAKE PLACE                      26850003
                            00030  1891+DCBNUPD  EQU   DCBBIT2+DCBBIT3 -                                        26900003
                                   1892+*                             NO UPDATE TO TAKE PLACE                   26910003
                            00010  1893+DCBSVDEB EQU   DCBBIT3 -      OLD DEB ADDRESS MUST BE SAVED             26950003

00001D                             1894+DCBIOBAA DS    0AL3 -         SAME AS DCBIOBAD ABOVE                    27000000
00001D                             1895+DCBODEBA DS    AL3 -          ADDRESS OF OLD DEB                        27050000
000020                      0001C  1896+         ORG   IHADCB+28                                     ICBI DCB-4 27100000
00001C                             1897+DCBSVCXL DS    0A -           SAME AS DCBSVCXA BELOW         ICBI DCB-4 27150000
00001C                             1898+         DS    X -            RESERVED                       ICBI DCB-4 27200000

00001D                             1899+DCBSVCXA DS    AL3 -          POINTER TO EXIT LIST OF JES    ICBI DCB-4 27250000
                                   1900+*                             C.I. INTERFACE CONTROL SVC     ICBI DCB-4 27300000

                                   1902+*                       FOUNDATION EXTENSION                            27400000


000020                             1904+DCBEODAD DS    0A -           SAME AS DCBEODA BELOW                     27500000
000020                             1905+DCBHIARC DS    0BL1 -         HIERARCHY BITS                            27550000
000020                             1906+DCBBFTEK DS    0BL1 -         BUFFERING TECHNIQUE BITS                  27600000
000020                             1907+DCBBFALN DS    BL1 -          BUFFER ALIGNMENT BITS                     27650000
                            00080  1908+DCBH1    EQU   DCBBIT0 -      HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO  27700003

                            00070  1909+DCBBFT   EQU   DCBBIT1+DCBBIT2+DCBBIT3                                  27750003
                                   1910+*                             BUFFERING TECHNIQUE                       27760003
                            00060  1911+DCBBFTA  EQU   DCBBIT1+DCBBIT2 -                                        27800003
                                   1912+*                             QSAM LOCATE MODE PROCESSING OF SPANNED    27810003
                                   1913+*                             RECORDS - OPEN IS TO CONSTRUCT A RECORD   27850000

                                   1914+*                             AREA IF IT AUTOMATICALLY CONSTRUCTS       27900000
                                   1915+*                             BUFFERS                                   27950000
                            00020  1916+DCBBFTR  EQU   DCBBIT2 -      FOR BSAM CREATE BDAM PROCESSING OF        28000003
                                   1917+*                             UNBLOCKED SPANNED RECORDS - SOFTWARE      28050000
                                   1918+*                             TRACK OVERFLOW.  FOR BSAM INPUT           28100000

                                   1919+*                             PROCESSING OF UNBLOCKED SPANNED RECORDS   28150000
                                   1920+*                             WITH KEYS - RECORD OFFSET PROCESSING.     28200000
                            00040  1921+DCBBFTS  EQU   DCBBIT1 -      SIMPLE BUFFERING - BIT 3 IS ZERO          28250003
                            00020  1922+DCBBFTKR EQU   DCBBIT2 -      UNBLOCKED SPANNED RECORDS - SOFTWARE      28300003
                                   1923+*                             TRACK OVERFLOW (BDAM)                     28350000

                            00010  1924+DCBBFTE  EQU   DCBBIT3 -      EXCHANGE BUFFERING - BIT 1 IS ZERO        28400003
                            00008  1925+DCBBFTKD EQU   DCBBIT4 -      DYNAMIC BUFFERING (BTAM)                  28450003
                            00004  1926+DCBH0    EQU   DCBBIT5 -      HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO  28500003
                            00003  1927+DCBBFA   EQU   DCBBIT6+DCBBIT7 -                                        28550003
                                   1928+*                             BUFFER ALIGNMENT                          28560003

                            00002  1929+DCBBFAD  EQU   DCBBIT6 -      DOUBLEWORD BOUNDARY                       28600003
RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00001  1930+DCBBFAF1 EQU   DCBBIT7 -      FULLWORD NOT A DOUBLEWORD BOUNDARY,       28650003
                                   1931+*                             CODED IN DCB MACRO INSTRUCTION            28700000
                            00003  1932+DCBBFAF2 EQU   DCBBIT6+DCBBIT7 -                                        28750003

                                   1933+*                             FULLWORD NOT A DOUBLEWORD BOUNDARY,       28760003
                                   1934+*                             CODED IN DCB MACRO INSTRUCTION            28800000
000021                             1935+DCBEODA  DS    AL3 -          ADDRESS OF A USER-PROVIDED ROUTINE TO     28850000
                                   1936+*                             HANDLE END-OF-DATA CONDITIONS             28900000

000024                             1937+DCBEXLST DS    0A -           ADDRESS OF USER-PROVIDED LIST OF EXITS    28950000
000024                             1938+DCBRECFM DS    BL1 -          RECORD FORMAT                             29000000
                            000E0  1939+DCBRECLA EQU   DCBBIT0+DCBBIT1+DCBBIT2  -                               29050003
                                   1940+*                             RECORD LENGTH INDICATOR - ASCII           29060003
                            00020  1941+DCBRECD  EQU   DCBBIT2 -      ASCII VARIABLE RECORD LENGTH              29100003

                            000C0  1942+DCBRECL  EQU   DCBBIT0+DCBBIT1 -                                        29150003
                                   1943+*                             RECORD LENGTH INDICATOR                   29160003
                            00080  1944+DCBRECF  EQU   DCBBIT0 -      FIXED RECORD LENGTH                       29200003
                            00040  1945+DCBRECV  EQU   DCBBIT1 -      VARIABLE RECORD LENGTH                    29250003
                            000C0  1946+DCBRECU  EQU   DCBBIT0+DCBBIT1 -                                        29300003
                                   1947+*                             UNDEFINED RECORD LENGTH                   29310003
                            00020  1948+DCBRECTO EQU   DCBBIT2 -      TRACK OVERFLOW                            29350003

                            00010  1949+DCBRECBR EQU   DCBBIT3 -      BLOCKED RECORDS                           29400003
                            00008  1950+DCBRECSB EQU   DCBBIT4 -      FOR FIXED LENGTH RECORD FORMAT - STANDARD 29450003
                                   1951+*                             BLOCKS.  FOR VARIABLE LENGTH RECORD       29500000

                                   1952+*                             FORMAT - SPANNED RECORDS                  29550000
                            00006  1953+DCBRECCC EQU   DCBBIT5+DCBBIT6 -                                        29600003
                                   1954+*                             CONTROL CHARACTER INDICATOR               29610003
                            00004  1955+DCBRECCA EQU   DCBBIT5 -      ASA CONTROL CHARACTER                     29650003
                            00002  1956+DCBRECCM EQU   DCBBIT6 -      MACHINE CONTROL CHARACTER                 29700003

                            00000  1957+DCBRECC  EQU   X'00' -        NO CONTROL CHARACTER                      29750000
                            00001  1958+DCBRECKL EQU   DCBBIT7 -      KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB  29800003
                                   1959+*                             MACRO INSTRUCTION                         29850000
000025                             1960+DCBEXLSA DS    AL3 -          ADDRESS OF USER-PROVIDED LIST OF EXITS    29900000


                                   1963+*                       FOUNDATION BEFORE OPEN                          47150000


000028                      00028  1965+         ORG   IHADCB+40                                                47250000
000028                             1966+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES    47300000

                                   1967+*                             THE DATA SET ASSOCIATED WITH THIS DCB     47350000
000030                             1968+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE                47400000
                            00080  1969+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR   47450003
                                   1970+*                             POINT.  IF ONE, LAST I/O OPERATION WAS    47500000
                                   1971+*                             WRITE.                                    47550000

                            00080  1972+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR     47600003
                                   1973+*                             OUTPUT (BDAM)                             47650000
                            00040  1974+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD   47700003
                                   1975+*                             MODE                                      47750000
                            00020  1976+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE       47800003
                                   1977+*                             ROUTINE FOR CONCATENATION OF DATA SETS    47850000
                                   1978+*                             WITH UNLIKE ATTRIBUTES                    47900000
                            00010  1979+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED   47950003
                            00008  1980+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 48000003

                                   1981+*                             CONCATENATION OF UNLIKE ATTRIBUTES        48050000

                            00004  1982+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ                   48100003
                            00002  1983+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN  48150003
                                   1984+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1 48200000
RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   1985+*                             ON RETURN FROM USER EXIT TO THE I/O       48250000
                                   1986+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.     48300000
                            00001  1987+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF    48350003
                                   1988+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION   48400000
000031                             1989+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR  48450000
                                   1990+*                             CONDITIONS AND IN DETERMINING CORRECTIVE  48500000
                                   1991+*                             PROCEDURES                                48550000
                            000C0  1992+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -                                        48600003
                                   1993+*                             ERROR CORRECTION INDICATOR                48610003
                            00000  1994+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE                    48650000

                            00040  1995+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN       48700003

                                   1996+*                             PROCESS                                   48750000
                            000C0  1997+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -                                        48800003
                                   1998+*                             PERMANENT ERROR CORRECTION                48810003
                            00030  1999+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -                                        48850003

                                   2000+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     48860003
                            00020  2001+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH     48900003
                                   2002+*                             SENSED                                    48950000
                            00010  2003+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH    49000003
                                   2004+*                             SENSED                                    49050000
                            0000C  2005+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -                                        49100003
                                   2006+*                             IOS ERROR ROUTINE USE INDICATOR           49110003
                            00000  2007+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE   49150000
                            00004  2008+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49200003
                            00004  2009+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE  49250003
                                   2010+*                             (BTAM)                                    49300000

                            00008  2011+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49350003
                            0000C  2012+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -                                        49400003
                                   2013+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE    49410003
000032                             2014+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE               49450000

000032                             2015+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR                     49500000
                            00080  2016+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---        49550003
                                   2017+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,     49600000
                                   2018+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)    49650000
                            00040  2019+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)    49700003
                            00040  2020+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)                   49750003
                            00040  2021+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---          49800003
                                   2022+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 49850000
                                   2023+*                             RESERVED (BTAM)                           49900000
                            00020  2024+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)            49950003
                            00020  2025+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)      50000003
                            00020  2026+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---           50050003

                                   2027+*                             ALWAYS ZERO (QSAM, QISAM)                 50100000
                            00010  2028+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)                   50150003
                            00010  2029+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)            50200003

                            00010  2030+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---          50250003
                                   2031+*                             ALWAYS ZERO (BISAM) ---                   50300000
                                   2032+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)         50350000
                            00008  2033+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)          50400003
                            00008  2034+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---          50450003
                                   2035+*                             ALWAYS ZERO (BISAM) ---                   50500000
                                   2036+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   50550000
                            00004  2037+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK   50600003
                                   2038+*                             COUNT (EXCP)                              50650000
                            00004  2039+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   50700003
RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                            00004  2040+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)             50750003

                            00004  2041+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---       50800003
                                   2042+*                             ALWAYS ZERO (QISAM) ---                   50850000

                                   2043+*                             RESERVED (QTAM, BTAM)                     50900000
                            00002  2044+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)    50950003
                            00002  2045+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        51000003
                            00002  2046+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)                             51050003
                            00002  2047+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---                 51100003
                                   2048+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)        51150000
                            00001  2049+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)                   51200003
                            00001  2050+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,    51250003
                                   2051+*                             BPAM, BISAM, QISAM, QTAM, BTAM)           51300000
000033                             2052+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR                    51350000
                            00080  2053+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM, 51400003
                                   2054+*                             BPAM, BISAM, BDAM) ---                    51450000

                                   2055+*                             RESERVED (EXCP, QTAM, BTAM)               51500000

                            00040  2056+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)    51550003
                            00040  2057+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---          51600003

                                   2058+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 51650000
                                   2059+*                             RESERVED (EXCP, BTAM)                     51700000
                            00020  2060+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)     51750003
                            00020  2061+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---            51800003
                                   2062+*                             ALWAYS ZERO (QSAM, QISAM) ---             51850000
                                   2063+*                             RESERVED (EXCP)                           51900000
                            00010  2064+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)            51950003
                            00010  2065+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---         52000003
                                   2066+*                             ALWAYS ZERO (BISAM) ---                   52050000
                                   2067+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   52100000
                            00008  2068+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)         52150003
                            00008  2069+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)     52200003

                                   2070+*                             (BSAM)                                    52250000
                            00008  2071+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)          52300003

                            00008  2072+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---         52350003

                                   2073+*                             ALWAYS ZERO (BISAM) ---                   52400000
                                   2074+*                             RESERVED (BPAM, QTAM, BTAM)               52450000
                            00004  2075+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)         52500003
                            00004  2076+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   52550003
                            00004  2077+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)                    52600003
                            00004  2078+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---        52650003
                                   2079+*                             ALWAYS ZERO (BISAM) ---                   52700000
                                   2080+*                             RESERVED (BDAM, QTAM, BTAM)               52750000
                            00002  2081+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)        52800003
                            00002  2082+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        52850003
                            00002  2083+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)                       52900003
                            00002  2084+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---              52950003

                                   2085+*                             ALWAYS ZERO (BISAM) ---                   53000000
                                   2086+*                             RESERVED (BPAM, QTAM, BTAM)               53050000
                            00001  2087+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)          53100003

                            00001  2088+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT     53150003
                                   2089+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)   53200000
                            00001  2090+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)                          53250003
                            00001  2091+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---                    53300003
                                   2092+*                             ALWAYS ZERO (BISAM) ---                   53350000
                                   2093+*                             RESERVED (BPAM, QTAM, BTAM)               53400000

RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2095+*                       FOUNDATION AFTER OPEN                           53500000

000034                      00028  2097+         ORG   IHADCB+40                                                53600000

000028                             2098+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD 53650000
                                   2099+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED 53700000
                                   2100+*                             WITH THIS DCB                             53750000
00002A                             2101+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN               53800000

00002A                             2102+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF                    53850000
00002B                             2103+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF                   53900000
00002C                             2104+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB                 53950000
00002C                             2105+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN               54000000
                            000C0  2106+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -                                        54050003
                                   2107+*                             ERROR CORRECTION INDICATOR                54060003

                            00030  2108+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -                                        54100003
                                   2109+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     54110003
                            0000C  2110+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -                                        54150003
                                   2111+*                             IOS ERROR ROUTINE USE INDICATOR           54160003
00002D                             2112+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB                 54200000

000030                      00030  2114+         ORG   IHADCB+48                                                54350000
000030                             2115+DCBREAD  DS    0A -           ADDRESS OF READ MODULE                    54400000

000030                             2116+DCBWRITE DS    A -            ADDRESS OF WRITE MODULE                   54450000


000034                      00030  2118+         ORG   IHADCB+48                                                54600000
000030                             2119+DCBGET   DS    0A -           ADDRESS OF GET MODULE                     54650000
000030                             2120+DCBPUT   DS    A -            ADDRESS OF PUT MODULE                     54700000

                                   2122+*                       QSAM-BSAM-BPAM COMMON INTERFACE                 77750000

000034                      00034  2124+         ORG   IHADCB+52                                                77850000
000034                             2125+DCBGERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  77950000

000034                             2126+DCBPERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  78000000
000034                             2127+DCBCHECK DS    0A -           ADDRESS OF CHECK MODULE                   78050000
000034                             2128+DCBOPTCD DS    BL1 -          OPTION CODES                              78150000
                            00080  2129+DCBOPTW  EQU   DCBBIT0 -      WRITE VALIDITY CHECK (DASD)               78500003
                                   2130+*                             (BSAM, BPAM, QSAM, ISAM, BDAM)            78550000

                            00040  2131+DCBOPTU  EQU   DCBBIT1 -      ALLOW DATA CHECK CAUSED BY INVALID        78600003
                                   2132+*                             CHARACTER (1403 PRINTER WITH UCS FEATURE) 78650000
                                   2133+*                             (BSAM, BPAM, QSAM)                        78700000

                            00020  2134+DCBOPTC  EQU   DCBBIT2 -      CHAINED SCHEDULING USING PCI              78750003
                                   2135+*                             (BSAM, BPAM, QSAM)                        78800000
                            00010  2136+DCBOPTH  EQU   DCBBIT3 -      1287/1288 OPTICAL READER - HOPPER EMPTY   78850003
                                   2137+*                             EXIT (BSAM, BPAM)                         78900000
                            00010  2138+DCBOPTO  EQU   DCBBIT3 -      1285/1287 OPTICAL READER - ON-LINE        78950003
                                   2139+*                             CORRECTION (QSAM)                         79000000
                            00010  2140+DCBBCKPT EQU   DCBBIT3 -      CHANNEL-END APPENDAGE IS TO BYPASS DOS    79050003

                                   2141+*                             EMBEDDED CHECKPOINT RECORDS ON TAPE       79100000
                                   2142+*                             (BSAM, QSAM)                       ICB226 79150000
                            00008  2143+DCBOPTQ  EQU   DCBBIT4 -      TRANSLATION TO OR FROM ASCII              79200003
                                   2144+*                             (BSAM, BPAM, QSAM)                        79250000
                            00004  2145+DCBOPTZ  EQU   DCBBIT5 -      MAGNETIC TAPE DEVICES - USE REDUCED ERROR 79300003

                                   2146+*                             RECOVERY PROCEDURE (EXCP, BSAM, BPAM,     79350000
                                   2147+*                             QSAM)                                     79400000
                            00004  2148+DCBSRCHD EQU   DCBBIT5 -      USE SEARCH DIRECT, INSTEAD OF SEARCH      79450003
                                   2149+*                             PREVIOUS, ON RECORD POSITION SENSING      79500000

RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2150+*                             DEVICE  (EXCP, BSAM, BPAM, QSAM)   ICB217 79550000
                            00002  2151+DCBOPTT  EQU   DCBBIT6 -      USER TOTALING (BSAM, QSAM)                79600003
000035                             2152+DCBGERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  79700000
000035                             2153+DCBPERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  79750000

000035                             2154+DCBCHCKA DS    AL3 -          ADDRESS OF CHECK MODULE                   79800000
000038                             2155+DCBSYNAD DS    0A -           ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80050000
000038                             2156+DCBIOBL  DS    FL1 -          IOB LENGTH IN DOUBLE WORDS                80100000
000039                             2157+DCBSYNA  DS    AL3 -          ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80150000
00003C                             2158+DCBFLAG1 DS    0BL1           TCAM APPLICATION PROGRAM FLAGS ICBI DCB-3 80460000

                                   2159+*                             (BSAM, BPAM, QSAM)                        80470000
00003C                             2160+DCBCIND1 DS    BL1 -          CONDITION INDICATORS                      80500000
                            00080  2161+DCBCNTOV EQU   DCBBIT0 -      DIRECT ACCESS - TRACK OVERFLOW IN USE     80550003
                                   2162+*                             (BSAM, BPAM, QSAM)                        80600000
                                   2163+*                             2540 CARD PUNCH - DATA SET WAS OPENED BUT 80650000

                                   2164+*                             NO DATA WAS WRITTEN (QSAM)                80700000
                            00080  2165+DCBSTQCK EQU   DCBBIT0 -      STOP EQUAL QUICK WAS SPECIFIED FOR        80710003
                                   2166+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80720000
                            00040  2167+DCBSTFLS EQU   DCBBIT1 -      STOP EQUAL FLUSH WAS SPECIFIED FOR        80730003
                                   2168+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80740000

                            00040  2169+DCBCNSRD EQU   DCBBIT1 -      SEARCH DIRECT (BSAM, BPAM, QSAM)          80750003
                            00020  2170+DCBCNEVB EQU   DCBBIT2 -      END OF VOLUME - USED BY EOB ROUTINES      80800003
                                   2171+*                             (BSAM, BPAM, QSAM)                        80850000
                            00010  2172+DCBCNEVA EQU   DCBBIT3 -      END OF VOLUME - USED BY CHANNEL-END       80900003
                                   2173+*                             APPENDAGE ROUTINES (BSAM, BPAM, QSAM)     80950000

                            00004  2174+DCBCNBRM EQU   DCBBIT5 -      BLOCKED RECORD BIT MODIFIED (BSAM,BPAM,   81000003
                                   2175+*                             QSAM)                          ICBI DCB-2 81050000
                            00001  2176+DCBCNEXB EQU   DCBBIT7 -      EXCHANGE BUFFERING SUPPORTED (QSAM)       81100003
00003D                             2177+DCBCIND2 DS    BL1 -          CONDITION INDICATORS                      81150000
                            00080  2178+DCBCNSTO EQU   DCBBIT0 -      PARTITIONED DATA SET - STOW HAS BEEN      81200003
                                   2179+*                             PERFORMED (BSAM, BPAM, QSAM)              81250000

                                   2180+*                             SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM) 81300000
                            00040  2181+DCBCNWR0 EQU   DCBBIT1 -      DIRECT ORGANIZATION DATA SET - LAST I/O   81350003
                                   2182+*                             WAS A WRITE RECORD ZERO                   81400000
                                   2183+*                             (BSAM, BPAM, QSAM)                        81450000

                                   2184+*                             SEQUENTIAL DATA SET - UPDATE EOF IS       81500000
                                   2185+*                             INDICATED (BSAM, BPAM)                    81550000
                            00020  2186+DCBCNCLO EQU   DCBBIT2 -      CLOSE IN PROCESS (QSAM)                   81600003
                            00010  2187+DCBCNIOE EQU   DCBBIT3 -      PERMANENT I/O ERROR (BSAM, BPAM, QSAM)    81650003
                            00008  2188+DCBCNBFP EQU   DCBBIT4 -      OPEN ACQUIRED BUFFER POOL                 81700003

                                   2189+*                             (BSAM, BPAM, QSAM)                        81750000
                            00004  2190+DCBCNCHS EQU   DCBBIT5 -      CHAINED SCHEDULING BEING SUPPORTED        81800003
                                   2191+*                             (BSAM, BPAM, QSAM)                        81850000
                            00002  2192+DCBCNFEO EQU   DCBBIT6 -      FEOV BIT (BSAM, BPAM, QSAM)               81900003
                            00001  2193+DCBCNQSM EQU   DCBBIT7 -      ALWAYS ZERO (BSAM, BPAM)                  81950003
                                   2194+*                             THIS IS A QSAM DCB (QSAM)                 82000000
00003E                             2195+DCBBLKSI DS    H -            MAXIMUM BLOCK SIZE                        82100000

000040                             2196+DCBWCPO  DS    AL1 -          OFFSET OF WRITE CHANNEL PROGRAM FROM THE  82350000
                                   2197+*                             START OF IOB                              82400000
000041                             2198+DCBWCPL  DS    FL1 -          LENGTH OF WRITE CHANNEL PROGRAM           82450000

000042                             2199+DCBOFFSR DS    AL1 -          OFFSET OF READ CCW FROM BSAM/BPAM PREFIX  82500000
                                   2200+*                             OF IOB                                    82550000
000043                             2201+DCBOFFSW DS    AL1 -          OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX 82600000
                                   2202+*                             OF IOB                                    82650000
000044                             2203+DCBIOBA  DS    A -            FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR 82700000

                                   2204+*                             BSAM/BPAM PREFIX OF IOB.  FOR CHAINED     82750000
RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2205+*                             SCHEDULING, ADDRESS OF ICB.  FOR          82800000
                                   2206+*                             1419/1275, ADDRESS OF MAGNETIC INTERRUPT  82850000
                                   2207+*                             CONTROL BLOCK (MICB) CURRENTLY BEING      82900000
                                   2208+*                             PROCESSED BY READ ROUTINE.  FOR TSO       82950000
                                   2209+*                             TERMINAL DATA SET OPENED FOR INPUT AND    83000000

                                   2210+*                             FORMAT U, SIMULATED LOW-ORDER FOUR BYTES  83050000
                                   2211+*                             OF IOBCSW                                 83100000


000048                      00044  2213+         ORG   IHADCB+68                                         ICB354 83160000
000044                             2214+DCBCICB  DS    0A -           SAME AS DCBCICBA BELOW             ICB354 83200000
000044                             2215+         DS    X -            DCBNCP  (BSAM,BPAM)                ICB354 83250000
000045                             2216+DCBCICBA DS    AL3 -          POINTER TO JES C.I.                ICB354 83300000

                                   2217+*                             CONTROL BLOCK (CICB)               ICB354 83350000

000048                      00050  2219+         ORG   IHADCB+80                                     ICBI DCB-4 83450000
000050                             2220+DCBDIRCT DS    0H -           NUMBER OF BYTES USED IN LAST DIRECTORY    83500000
                                   2221+*                             BLOCK (RANGE 0-254)  (BSAM, BPAM)  ICB295 83550000
000050                             2222+DCBQSWS  DS    0BL1 -         FLAG BYTE                          ICB295 83600000
                            00004  2223+DCBPOPEN EQU   DCBBIT5 -      QSAM PARALLEL INPUT PROCESSING            83610003
000050                             2224+DCBUSASI DS    B -            FLAG BYTE FOR ASCII TAPES                 83650000
                            00040  2225+DCBBLBP  EQU   DCBBIT1 -      BLOCK PREFIX IS FOUR BYTE FIELD           83700003

                                   2226+*                             CONTAINING BLOCK LENGTH IN UNPACKED       83750000

                                   2227+*                             DECIMAL (SPECIFIED BY BUFFER=L).          83800000
                            00038  2228+DCBQADFS EQU   DCBBIT2+DCBBIT3+DCBBIT4                                  83850003
                                   2229+*                             USED TO PERFORM SEQUENCE CHECKING WITH    83860003
                                   2230+*                             MULTIPLE FUNCTION SUPPORT FOR 3525        83900000
                                   2231+*                             (BSAM, QSAM)                              83950000

                            00020  2232+DCBQADF1 EQU   DCBBIT2 -      FIRST BIT OF DCBQADFS                     84000003
                            00010  2233+DCBQADF2 EQU   DCBBIT3 -      SECOND BIT OF DCBQADFS                    84050003
                            00008  2234+DCBQADF3 EQU   DCBBIT4 -      THIRD BIT OF DCBQADFS                     84100003
                            00001  2235+DCBQSTRU EQU   DCBBIT7 -      TRUNC ENTRY POINT ENTERED (QSAM)          84150003
000051                             2236+DCBBUFOF DS    0FL1 -         BLOCK PREFIX LENGTH (0-99), SPECIFIED BY  84200000
                                   2237+*                             BUFOFF=N OR BUFOFF=L                      84250000
000051                             2238+DCBDIRCQ DS    FL1 -          NUMBER OF BYTES USED IN LAST DIRECTORY    84300000
                                   2239+*                             BLOCK (RANGE 0-254)  (QSAM)        ICB295 84350000

                                   2241+*                       BSAM-BPAM INTERFACE                             84500000



000052                      00048  2243+         ORG   IHADCB+72                                                84600000
000048                             2244+DCBEOBR  DS    0A -           ADDRESS OF END-OF-BLOCK MODULE FOR READ   84650000
000048                             2245+DCBNCP   DS    FL1 -          NUMBER OF CHANNEL PROGRAMS.               84750000
                                   2246+*                             NUMBER OF READ OR WRITE REQUESTS WHICH    85000000

                                   2247+*                             MAY BE ISSUED PRIOR TO A CHECK, NUMBER    85050000
                                   2248+*                             OF IOB'S GENERATED.  (99 MAXIMUM)         85100000
000049                             2249+DCBEOBRA DS    AL3 -          ADDRESS OF END-OF-BLOCK MODULE FOR READ   85150000
00004C                             2250+DCBEOBW  DS    A -            ADDRESS OF END-OF-BLOCK MODULE FOR WRITE. 85200000
                                   2251+*                             FOR BSAM CREATE BDAM PROCESSING OF        85250000
                                   2252+*                             UNBLOCKED SPANNED RECORDS WITH BKTEK=R    85300000
                                   2253+*                             SPECIFIED, ADDRESS OF SEGMENT WORK AREA   85350000
                                   2254+*                             CONTROL BLOCK                             85400000
000050                             2255+         DS    H -            DCBDIRCT - NUMBER OF BYTES USED IN LAST   85450000
                                   2256+*                             DIRECTORY BLOCK  (RANGE 0-254)     ICB295 85500000
000052                             2257+DCBLRECL DS    H -            LOGICAL RECORD LENGTH                     85600000

000054                             2258+DCBCNTRL DS    0A -           ADDRESS OF CNTRL MODULE                   85850000
000054                             2259+DCBNOTE  DS    0A -           ADDRESS OF NOTE/POINT MODULE              85900000
RDR      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000054                             2260+DCBPOINT DS    A -            ADDRESS OF NOTE/POINT MODULE              85950000

                                   2262+*                       QSAM INTERFACE                                  86100000

000058                      00048  2264+         ORG   IHADCB+72                                                86650021
000048                             2265+DCBLCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF LAST   86700000
                                   2266+*                             CCW IN LIST                               86750000
000048                             2267+DCBEOBAD DS    A -            FOR SIMPLE BUFFERING, ADDRESS OF LAST     86800000
                                   2268+*                             BYTE OF CURRENT BUFFER                    86850000
00004C                             2269+DCBCCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF        86900000
                                   2270+*                             CURRENT OR NEXT CCW                       86950000
00004C                             2271+DCBRECAD DS    0A -           ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87000000

00004C                             2272+DCBRECBT DS    BL1 -          FLAG BYTE                                 87050000
                            000F0  2273+DCBRCREL EQU   DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3  -                       87100003
                                   2274+*                             RELSE MACRO HAS BEEN ISSUED               87110003

                                   2275+*                             (QSAM WITH SIMPLE BUFFERING)              87150000
                            00080  2276+DCBRCTRU EQU   DCBBIT0 -      TRUNC MACRO HAS BEEN ISSUED (QSAM LOCATE  87200003
                                   2277+*                             MODE)                                     87250000
                            00040  2278+DCBRCFGT EQU   DCBBIT1 -      FIRST GET AFTER OPEN (QSAM LOCATE MODE)   87300003
00004D                             2279+DCBRECA  DS    AL3 -          ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87350000
000050                             2280+         DS    B -            DCBQSWS - FLAG BYTE                ICB295 87400000
000051                             2281+         DS    FL1 -          DCBDIRCQ - NUMBER OF BYTES USED IN LAST   87450000
                                   2282+*                             DIRECTORY BLOCK (RANGE 0-254)      ICB295 87500000
000052                             2283+         DS    H -            DCBLRECL - LOGICAL RECORD LENGTH          87750021
000054                             2284+         DS    0A -           DCBCNTRL - ADDRESS OF CNTRL MODULE        88000021
000054                             2285+DCBEROPT DS    BL1 -          ERROR OPTION                              88100000
                            00080  2286+DCBERACC EQU   DCBBIT0 -         ACCEPT PERMANENT ERROR                 88150003

                            00040  2287+DCBERSKP EQU   DCBBIT1 -         SKIP PERMANENT ERROR                   88200003
                            00020  2288+DCBERABE EQU   DCBBIT2 -         ABNORMAL END OF TASK                   88250003
000055                             2289+         DS    AL3 -          DCBCNTRA - ADDRESS OF CNTRL MODULE        88500021

000058                             2290+         DS    XL2 -          RESERVED                                  88600021
00005A                             2291+DCBPRECL DS    H -            BLOCK LENGTH, MAXIMUM BLOCK LENGTH OR     88650000
                                   2292+*                             DATA LENGTH                               88700000
00005C                             2293+DCBEOB   DS    A -            ADDRESS OF END OF BLOCK MODULE            88750000



                            00000  2296+DCBDSECT EQU   IHADCB   DEFINE ALTERNATE DSECT NAME                     DB012000

000000                             2298+HASPRDR  CSECT          END OF DATA CONTROL BLOCK DSECT                 DB016000
RDR      OS DATA EXTENT BLOCK DSECT                                                                            PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78








000000                             2301+DEBDSECT DSECT                     DATA EXTENT BLOCK DSECT              DE010000
000000                             2302+DEBTCBAD DS    F                   ADDRESS OF TCB                       DE012000

000004                             2303+DEBDEBAD DS    F                   ADDRESS OF NEXT DEB                  DE014000
000008                             2304+DEBIRBAD DS    F                   ADDRESS OF IRB                       DE016000
00000C                             2305+         DS    F                   RESERVED                             DE018000
000010                             2306+DEBNMEXT DS    0C                  NUMBER OF EXTENTS                    DE019000
000010                             2307+DEBUSRPG DS    F                   ADDR OF 1ST IOB IN USER PURGE CHAIN  DE020000
000014                             2308+DEBPRIOR DS    0C                  PRIORITY OF THE TASK                 DE022000
000014                             2309+DEBECBAD DS    F                   ADDRESS OF PURGE ECB PARAMETER LIST  DE024000
000018                             2310+DEBPROTG DS    0C                  PROTECTION KEY OF TASK               DE026000
000018                             2311+DEBDEBID DS    0C                  DEB IDENTIFICATION (X'0F')           DE028000
000018                             2312+DEBDCBAD DS    F                   ADDRESS OF DCB                       DE030000
00001C                             2313+DEBEXSCL DS    0C                  EXTENT SCALE                         DE031000
00001C                             2314+DEBAPPAD DS    F                   ADDR OF I/O APPENDAGE VECTOR TABLE   DE032000

000020                             2315+DEBDVMOD DS    0C                  DEVICE MODIFIER / FILE MASK          DE034000
000020                             2316+DEBUCBAD DS    F                   ADDRESS OF UCB                       DE036000

000024                             2317+DEBEXTNT DS    0CL12               DATA SET EXTENT                      DE038000

000024                             2318+DEBBINUM DS    H                   BIN NUMBER                           DE040000
000026                             2319+DEBSTRCC DS    H                   CYLINDER START ADDRESS               DE042000
000028                             2320+DEBSTRHH DS    H                   READ OR WRITE TRACK START ADDRESS    DE044000
00002A                             2321+DEBENDCC DS    H                   CYLINDER END ADDRESS                 DE046000
00002C                             2322+DEBENDHH DS    H                   READ OR WRITE TRACK END ADDRESS      DE048000
00002E                             2323+DEBNUMTR DS    H                   NUMBER OF TRACKS IN THIS EXTENT      DE050000
000000                             2324+HASPRDR  CSECT                     END OF DATA EXTENT BLOCK DSECT       DE052000
RDR      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                             2326+UCBDSECT DSECT                     UNIT CONTROL BLOCK DSECT             UC008000


                                   2328+*%UCBL1 : ;                                                             IE005000

                                   2329+*/* **************************************************************** */ IE006000
                                   2330+*/*                                                                  */ IE007000
                                   2331+*/*            U N I T   C O N T R O L   B L O C K                   */ IE008000

                                   2332+*/*                                                                  */ IE009000
                                   2333+*/* **************************************************************** */ IE010000
                                   2334+*/*                                                                  */ IE011000
                                   2335+*/*  STATUS                                                          */ IE012000
                                   2336+*/*                                                                  */ IE013000
                                   2337+*/*      OS/VS2 RELEASE 1, OS/VS1 RELEASE 2, 08/14/72, LEVEL=14      */ IE014000
                                   2338+*/*                                                                  */ IE015000
                                   2339+*/*  METHOD OF ACCESS                                                */ IE016000
                                   2340+*/*                                                                  */ IE017000
                                   2341+*/*      PL/S - DCL (UCBPTR,UCBDCPTR) PTR                            */ IE018000
                                   2342+*/*      BAL  - DSECT CARD SHOULD PRECEDE MACRO CALL.  SYMBOLS IN    */ IE019000
                                   2343+*/*             COMMON SECTION AND DEVICE DEPENDENT SECTIONS ARE     */ IE020000

                                   2344+*/*             ADDRESSABLE BY A USING ON UCBOB.  ADDITIONAL USINGS  */ IE021000
                                   2345+*/*             ARE NECESSARY TO OBTAIN ADDRESSABILITY FOR EACH      */ IE022000
                                   2346+*/*             EXTENSION OR PREFIX.  THESE ARE AS FOLLOWS -         */ IE023000
                                   2347+*/*                                                                  */ IE024000

                                   2348+*/*             DIRECT ACCESS EXTENSION           UCBDA              */ IE025000
                                   2349+*/*             DIRECT ACCESS EXTENSION 2         UCBDA2             */ IE026000
                                   2350+*/*             PREFIX TO MAGNETIC TAPE EXTENSION UCBMTPRF           */ IE027000
                                   2351+*/*             MAGNETIC TAPE EXTENSION           UCBMT              */ IE028000
                                   2352+*/*             TAPE CARTRIDGE READER EXTENSION   UCBTCR             */ IE029000
                                   2353+*/*             OPTICAL READER EXTENSION          UCBOR              */ IE030000

                                   2354+*/*             UNIT RECORD WITH UCS EXTENSION    UCBUCS             */ IE031000
                                   2355+*/*             3211 SENSE INFORMATION EXTENSION  UCBSNINF           */ IE032000
                                   2356+*/*             M65 MULTIPROCESSING PREFIX        UCBM65MP           */ IE033000
                                   2357+*/*                                                                  */ IE034000
                                   2358+*/*             WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH  */ IE035000
                                   2359+*/*             DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER   */ IE036000
                                   2360+*/*             IN THE DEFN COLUMN IN THE CORSS REFERENCE LISTING.   */ IE037000
                                   2361+*/*             FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE          */ IE038000

                                   2362+*/*             STATEMENT NUMBERS FOR UCBDA AND UCBDA2 IS IN THE     */ IE039000
                                   2363+*/*             UCBDA DSECT.                                         */ IE040000

                                   2364+*/*                                                                  */ IE041000
                                   2365+*/*  F.E.'S                                                          */ IE042000
                                   2366+*/*                                                                  */ IE043000
                                   2367+*/*      MICROFICHE LISTING - IEFUCBOB                               */ IE044000
                                   2368+*/*                                                                  */ IE045000
                                   2369+*/*  DEVELOPERS                                                      */ IE046000
                                   2370+*/*                                                                  */ IE047000
                                   2371+*/*      BAL LISTING  - SPECIFY LIST=YES ON MACRO CALL               */ IE048000

                                   2372+*/*      PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE        */ IE049000
                                   2373+*/*                                                                  */ IE050000
                                   2374+*/*      FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS     */ IE051000
                                   2375+*/*      YOUR MODULE CREATES THE CSECT.                              */ IE052000
                                   2376+*/*                                                                  */ IE053000

                                   2377+*/*  FUNCTION                                                        */ IE054000
                                   2378+*/*                                                                  */ IE055000
                                   2379+*/*      A UNIT CONTROL BLOCK                                        */ IE056000

RDR      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2380+*/*      INCORPORATING A SYSTEM RESOURCE TABLE                       */ IE057000
                                   2381+*/*      RECORDS THE STATUS OF                                       */ IE058000
                                   2382+*/*        A PHYSICAL INPUT OUTPUT DEVICE ADDRESS                    */ IE059000
                                   2383+*/*      IS CREATED AND INITIALIZED DURING SYSTEM GENERATION         */ IE060000
                                   2384+*/*      RESIDES IN THE NUCLEUS BELOW 32 K                           */ IE061000

                                   2385+*/*      POINTS TO A DEVICE TYPE DEPENDENT EXTENSION                 */ IE062000
                                   2386+*/*        RESIDING HIGHER IN THE NUCLEUS                            */ IE063000
                                   2387+*/*      IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY            */ IE064000
                                   2388+*/*        A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS     */ IE065000
                                   2389+*/*      MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES               */ IE066000

                                   2390+*/*        AND DATA EXTENT BLOCKS                                    */ IE067000
                                   2391+*/*      CONTAINS INDICES INTO TABLES FOR                            */ IE068000
                                   2392+*/*        DEVICE STATISTICS ATTENTION LOGICAL CHANNEL               */ IE069000
                                   2393+*/*      MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS    */ IE070000

                                   2394+*/*                                                                  */ IE071000
                                   2395+*/*  OUTPUT                                                          */ IE072000
                                   2396+*/*                                                                  */ IE073000
                                   2397+*/*      SYSGEN INDEPENDENT COMMON SECTION                           */ IE074000
                                   2398+*/*        INCLUDING UCBTYP WORD                                     */ IE075000
                                   2399+*/*      DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)             */ IE076000

                                   2400+*/*        DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE         */ IE077000
                                   2401+*/*        DATACELL (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)*/ IE078000
                                   2402+*/*        UNIT RECORD WITH UNIVERSAL CHARACTER SET                  */ IE079000
                                   2403+*/*        GRAPHICS                                                  */ IE080000
                                   2404+*/*        TAPE CARTRIDGE READER AND OPTICAL READER                  */ IE081000

                                   2405+*/*      CELL DESCRIPTION FOR ONE OF THE TEN CELLS                   */ IE082000
                                   2406+*/*        IN THE DATACELL DEVICE SEGMENT ABOVE                      */ IE083000
                                   2407+*/*      UCB EXTENSION (ONE OF THE FOLLOWING)                        */ IE084000
                                   2408+*/*        DIRECT ACCESS                                             */ IE085000
                                   2409+*/*        DIRECT ACCESS 2                                           */ IE086000

                                   2410+*/*        MAGNETIC TAPE AND ITS PREFIX                              */ IE087000
                                   2411+*/*        TAPE CARTRIDGE READER                                     */ IE088000
                                   2412+*/*        OPTICAL READER                                            */ IE089000
                                   2413+*/*        UNIVERSAL CHARACTER SET                                   */ IE090000
                                   2414+*/*        3211 SENSE INFORMATION                                    */ IE091000

                                   2415+*/*      M65 MULTIPROCESSING PREFIX                                  */ IE092000
                                   2416+*/*        (CONTIGUOUSLY PRECEDING COMMON SECTION)                   */ IE093000
                                   2417+*/*                                                                  */ IE094000
                                   2418+*/* **************************************************************** */ IE095000
                                   2419+*%GOTO UCBL2;   /*                                                      IE096000

                                   2420+         PUSH  PRINT                                                    IE097000
                                   2421+         PRINT OFF                                                      IE099000
                                   3157+         POP   PRINT                                                    IE836000


000000                             3159+HASPRDR  CSECT                     END UNIT CONTROL BLOCK DSECT         UC016000
RDR      HASP INPUT PROCESSOR PCE WORK AREA DSECT                                                              PAGE   62



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000058                             3161+PCEDSECT DSECT                     HASP INPUT PROCESSOR                 RW574000
000058                      00058  3162+         ORG   PCEWORK              PCE WORK AREA DSECT                 RW576000
000058                             3163+RCARDID  DS    0C                  CARD IDENTIFICATION BYTE             RW578000

000058                             3164+RDRDCT   DS    F                   ADDRESS OF INPUT DCT                 RW580000
00005C                             3165+RDRSW    DS    0C                  READER SWITCHES                      RW582000
00005C                             3166+RDADCT   DS    F                   ADDRESS OF DIRECT-ACCESS DCT         RW584000
000060                             3167+RBIEND   DS    F                   ADDRESS OF LAST CARD IN INPUT BUFFER RW586000
000064                             3168+RBONEXT  DS    F                   ADDR OF NEXT CARD IN OUTPUT BUFFER   RW588000

000068                             3169+RBOEND   DS    F                   ADDRESS OF END OF OUTPUT BUFFER      RW590000
00006C                             3170+RLSAVE1  DS    F                   LINK REGISTER SAVE WORD 1            RW592000
000070                             3171+RLSAVE2  DS    F                   LINK REGISTER SAVE WORD 2            RW594000
000074                             3172+RLSAVE3  DS    F                   LINK REGISTER SAVE WORD 3            RW596000
000078                             3173+RSAVE1   DS    F                   GENERAL PURPOSE SAVE WORD 1          RW598000
00007C                             3174+RSAVE2   DS    F                   GENERAL PURPOSE SAVE WORD 2          RW600000
000080                             3175+RJCLTRAK DS    F                   TRACK ADDRESS OF NEXT JCL BLOCK      RW602000

000084                             3176+RMESSAGE DS    CL52                READER MESSAGE AREA                  RW604000
0000B8                             3177+RJOB     DS    F                   ADDRESS OF JOB QUEUE ENTRY           RW606000
0000BC                             3178+RPRIORTY DS    C                   CHARACTER FROM /*PRIORITY CARD       RW628000

0000BD                             3179+RMSGCLAS DS    C                   MSGCLASS FROM JOB CARD               RW630000
0000BE                             3180+RDRDLM   DS    CL2                 INPUT DATA SET DELIMITER             RW632000
                            00068  3181+RDRPCEWS EQU   *-PCEWORK           LENGTH OF NORMAL INPUT PCE WORK AREA RW676000
0000C0                             3182+RTPCARD  DS    CL80                RJE INPUT CARD IMAGE                 RW678000
                            000B8  3183+RJEPCEWS EQU   *-PCEWORK           LENGTH OF RJE INPUT PCE WORK AREA    RW680000

000000                             3184+HASPRDR  CSECT                     END OF INPUT PCE WORK AREA DSECT     RW682000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN TABLE DSECT                                                   PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             3187 RSCANTBL DSECT                     CONTROL CARD SCAN TABLE DSECT        R0070000
000000                             3188 RSCANAME DS    CL7                 KEYWORD NAME (7 CHARACTERS MAX)      R0072000
000007                             3189 RSCANABR DS    C                   KEYWORD ABREVIATION (1 CHARACTER)    R0074000

000008                             3190 RSCANFLG DS    X                   KEYWORD VALUE FLAGS                  R0076000
                            00080  3191 RSCFLCOM EQU   B'10000000'              MASK IS COMPLEMENTED            R0078000

                            00080  3192 RSCFLNUM EQU   B'10000000'              VALUE MUST BE NUMERIC           R0080000
                            00040  3193 RSCFLBIN EQU   B'01000000'              CONVERT VALUE TO BINARY         R0082000
                            00020  3194 RSCFLEFT EQU   B'00100000'              LEFT ADJUST VALUE               R0084000
                            00010  3195 RSCFLBLK EQU   B'00010000'              BLANK-FILL VALUE                R0086000
                            0000F  3196 RSCFLPCT EQU   B'00001111'              MAXIMUM NUMBER OF VALUES        R0088000

000009                             3197 RSCANMSK DS    0X                  KEYWORD MASK                         R0090000
000009                             3198 RSCANLEN DS    AL1                 KEYWORD VALUE LENGTH                 R0092000
00000A                             3199 RSCANDSP DS    AL2                 KEYWORD VALUE DISPLACEMENT           R0094000
00000C                             3200 RSCANEXT DS    0F                  ADDRESS OF NEXT TABLE ENTRY          R0096000
000000                             3201 HASPRDR  CSECT                     END OF CONTROL CARD SCAN DSECT       R0098000
RDR      HASP INPUT SERVICE PROCESSOR                                                                          PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3203 *                                                                       R0102000
                                   3204 *                             READER REGISTER DEFINITIONS               R0104000

                                   3205 *                                                                       R0106000




                            00002  3207 RW       EQU   WA                  WORK REGISTER                        R0110000
                            00003  3208 RBI      EQU   WB                  INPUT BUFFER                         R0112000
                            00004  3209 RBO      EQU   WC                  OUTPUT BUFFER                        R0114000
                            00005  3210 RPI      EQU   WD                  INPUT POINTER                        R0116000

                            00006  3211 RL1      EQU   WE                  INTERNAL LINK REGISTER 1             R0118000
                            00007  3212 RL2      EQU   WF                  INTERNAL LINK REGISTER 2             R0120000




                                   3214 *                                                                       R0124000
                                   3215 *                             READER BUFFER DEFINITIONS                 R0126000
                                   3216 *                                                                       R0128000



                            00058  3218 RBUFTRK  EQU   HDBNXTRK-BUFDSECT   BUFFER CHAIN TRACK DISPLACEMENT      R0132000
                                   3219 *                                  INPUT BUFFER START DISPLACEMENT      R0134000

                                   3220 RIBUFST  EQU   BUFSTART-BUFDSECT+(&BUFSIZE/88)*8                        R0136000

                            00108  3221+RIBUFST  EQU   BUFSTART-BUFDSECT+(1960/88)*8                            R0136000
                            00060  3222 ROBUFST  EQU   HDBSTART-BUFDSECT   OUTPUT BUFFER START DISPLACEMENT     R0138000
                                   3223 RTOTBUFL EQU   BUFSTART-BUFDSECT+&BUFSIZE TOTAL LENGTH OF IOB + BUFFER  R0140000
                            00800  3224+RTOTBUFL EQU   BUFSTART-BUFDSECT+1960     TOTAL LENGTH OF IOB + BUFFER  R0140000





                                   3226 *                                                                       R0144000
                                   3227 *                             MISCELLANEOUS DEFINITIONS                 R0146000
                                   3228 *                                                                       R0148000



                            00001  3230 RJFLUSH  EQU   X'01'               JOB FLUSH SWITCH                     R0152000
                            00002  3231 RNOSCAN  EQU   X'02'               NO CARD SCAN SWITCH                  R0154000
                            00004  3232 RDREOFSW EQU   X'04'               END-OF-FILE SWITCH                   R0156000
                            00008  3233 RJCLSW   EQU   X'08'               JOB CONTROL LANGUAGE SWITCH          R0158000
                            00010  3234 ROSINSW  EQU   X'10'               O/S INPUT DATA SET SPOOLING SWITCH   R0160000
                            00020  3235 RXBJOBSW EQU   X'20'               XEQ BATCH CLASS JOB SWITCH           R0162000

                            00040  3236 RSYSINSW EQU   X'40'               GENERATED DD * PROCESSING SWITCH     R0164000
                            00001  3237 RUNIEXCP EQU   X'01'               UNIT EXCEPTION BIT                   R0166000
                            00010  3238 RSIOCSWS EQU   X'10'               SIO CSW STORED BIT                   R0168000

                            00030  3239 RSIOCC   EQU   X'30'               SIO COMPLETION CODE BITS             R0170000
                            000FC  3240 RJCTCYMX EQU   JCTCYSAV-(IOTCYMAP-IOTCYMXM)  INPUT TRACK GROUP MAP      R0172000
                                   3241 &MSGCLAS SETC  '&WTRCLAS'(1,1)     DEFINE DEFAULT MESSAGE CLASS         R0174000
RDR      HASP INPUT SERVICE -- PROCESSOR INITIALIZATION                                                        PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                            00000  3244          USING *,BASE2             ESTABLISH PROCESSOR ADDRESSABILITY   R0180000
                                   3245 $READ    NULL                      INPUT PROCESSOR ENTRY POINT          R0182000
000000                             3246+$READ    DS    0H                                                       NU006000
                            00000  3247          USING BUFDSECT,RBI        ESTABLISH IOB ADDRESSABILITY         R0184000

                            00000  3248          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         R0186000
                                   3249         $LINK  HASPRDRI            $LINK TO INITIALIZATION MODULE       R0188000
000000                             3250+HA$QRDRI DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
000000                             3251+HASPRDR  CSECT                                                          OL014000

000000 41E00000                    3252+         DC    Y(X'4100'+LINK*16),QL2(HA$QRDRI) LOAD OCON INTO LINK     OL016000
000004 45F0 B08C      0008C        3253+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000
RDR      HASP INPUT SERVICE -- PROCESSOR INITIALIZATION                                                        PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3255 HASPRDRI $OVERLAY &MED,&HIGH       DEFINE INITIALIZATION OVERLAY        R0192000
000D10                             3256+HA$ORDRI CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            00D18  3257+HA$IRDRI EQU   HA$ORDRI+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   3258+         ENTRY HA$IRDRI                                                 OV036000
000D10 D9C4D9C9                    3259+         DC    CL4'RDRI'           IDENTIFY MODULE ON CORE DUMP         OV038000
000D14 00000D10                    3260+         DC    A(HA$ORDRI)         ASSEMBLY ORIGIN                      OV040000
000D18                             3261+HASPRDRI DS    0F                  ENTRY POINT                          OV042000
                            00CB8  3262+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000

                                   3263          AIF   (&NUMINRS EQ 0).RINR1                                    R0194000
000D18 9104 D04A      0004A        3264          TM    PCEID,PCEINRID      IS THIS INTERNAL READER              R0196000
000D1C 4780 807A      00D32        3265          BZ    RNINT               IF OFF NOT INTERNAL                  R0198000

000D20 0570                        3266          BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R0200000
                                   3267         $GETUNIT INR,RNOUNIT,OLAY=YES   GET INTERNAL READER DCT         R0202000
000D22 4110 0014      00014        3268+         LA    R1,DCTINR                                                DG012000
000D26 45E0 B040      00040        3269+         BAL   LINK,$GETUNIT       LINK TO CONTROL SERVICE PROGRAM      GU010000
000D2A 4780 8136      00DEE        3270+         BC    8,RNOUNIT                                                NP008000
000D2E 47F0 8088      00D40        3271          B     RSTART              RETURN TO COMMON CODE                R0204000
000D32                             3272 RNINT    DS    0H                  NOT INTERNAL                         R0206000
                                   3273 .RINR1   ANOP                                                           R0208000
                                   3274          AIF   (&NUMLNES EQ 0).RRJE02                                   R0210000
                                   3275 .RRJE02  ANOP                                                           R0226000
000D32 0570                        3276 READER   BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R0228000
                                   3277         $GETUNIT RDR,RNOUNIT,OLAY=YES   GET READER DCT                  R0230000

000D34 4110 0010      00010        3278+         LA    R1,DCTRDR                                                DG012000

000D38 45E0 B040      00040        3279+         BAL   LINK,$GETUNIT       LINK TO CONTROL SERVICE PROGRAM      GU010000
000D3C 4780 8136      00DEE        3280+         BC    8,RNOUNIT                                                NP008000

000D40 5010 D058      00058        3281 RSTART   ST    R1,RDRDCT           SAVE DCT POINTER IN PCE              R0232000
000D44 4120 D049      00049        3282          LA    RW,PCEEWF+$EWBIO    INSERT READER IO EWF ADDRESS         R0234000
000D48 5020 100C      0000C        3283          ST    RW,DCTEWF           IN DCT EWF POINTER                   R0236000
000D4C 9404 1014      00014        3284          NI    DCTFLAGS,DCTHOLDJ   RESET OPERATOR COMMANDS              R0238000
000D50 1861                        3285          LR    RL1,R1              SAVE READER DCT POINTER              R0240000
                                   3286         $ACTIVE                    INDICATE PROCESSOR ACTIVE            R0242000
000D52 4310 B0C7      000C7        3287+         IC    R1,$ACTIVE          INDICATE                             AC006000
000D56 4110 1001      00001        3288+         LA    R1,1(,R1)            PROCESSOR                           AC008000
000D5A 4210 B0C7      000C7        3289+         STC   R1,$ACTIVE            ACTIVE                             AC010000
000D5E 0570                        3290          BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R0244000
                                   3291         $GETUNIT DA,RNOUNIT,OLAY=YES    GET DIRECT ACCESS DCT           R0246000
000D60 4110 0000      00000        3292+         LA    R1,DCTDA                                                 DG012000

000D64 45E0 B040      00040        3293+         BAL   LINK,$GETUNIT       LINK TO CONTROL SERVICE PROGRAM      GU010000
000D68 4780 8136      00DEE        3294+         BC    8,RNOUNIT                                                NP008000

000D6C 5010 D05C      0005C        3295          ST    R1,RDADCT           SAVE DCT POINTER IN PCE              R0248000

000D70 9240 1013      00013        3296          MVI   DCTIOTYP,DCTWRITE   SET DCT TYPE TO WRITE                R0250000
                                   3297          DROP  R1                  KILL DCT ADDRESSABILITY              R0252000
                                   3298          AIF   (&NUMINRS EQ 0).RINR3                                    R0254000
000D74 9104 D04A      0004A        3299          TM    PCEID,PCEINRID      IS THIS INTERNAL READER              R0256000
000D78 4710 8124      00DDC        3300          BO    RINTRSK             IF SO SKIP OVER BUFFER SETUP         R0258000
                                   3301 .RINR3   ANOP                                                           R0260000
                                   3302          AIF   (&NUMLNES EQ 0).RRJE04                                   R0262000
                                   3303 .RRJE04  ANOP                      *                                    R0274000
                                   3304 RINBGET $GETBUF OLAY=YES           GET INPUT BUFFER                     R0276000
000D7C 45E0 B034      00034        3305+RINBGET  BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
000D80 4770 80D8      00D90        3306          BNZ   RINBGOT             BRANCH IF SUCCESSFUL                 R0278000
                                   3307         $WAIT  BUF,OLAY=YES        WAIT FOR A BUFFER                    R0280000

000D84 9640 D048      00048        3308+         OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000
000D88 45F0 B030      00030        3309+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
RDR      HASP INPUT SERVICE -- PROCESSOR INITIALIZATION                                                        PAGE   67



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000D8C 47F0 80C4      00D7C        3310          B     RINBGET             TRY AGAIN                            R0282000
000D90 1831                        3311 RINBGOT  LR    RBI,R1              RBI = ADDRESS OF INPUT BUFFER        R0284000
000D92 4120 3058      00058        3312          LA    RW,BUFSTART         RW = START OF CCW CHAIN              R0286000
000D96 5020 3010      00010        3313          ST    RW,IOBSTART         SET IOBSTART IN INPUT BUFFER         R0288000
                            00000  3314          USING DCTDSECT,RL1        ESTABLISH DCT ADDRESSABILITY         R0290000
000D9A 5030 6004      00004        3315          ST    RBI,DCTBUFAD        SET INPUT BUFFER                     R0292000
                                   3316          LA    RL2,&BUFSIZE/88-1   RL2 = NUMBER OF CCW'S - 1            R0294000
000D9E 4170 0015      00015        3317+         LA    RL2,1960/88-1       RL2 = NUMBER OF CCW'S - 1            R0294000
000DA2 9801 8148      00E00        3318          LM    R0,R1,RDRCCW        SET UP READER CCW IN R0 AND R1       R0296000
000DA6 58F0 6008      00008        3319          L     R15,DCTDCB          R15 = DCB ADDRESS                    R0298000
000DAA 58F0 F02C      0002C        3320          L     R15,DCBDEBAD-DCBDSECT(,R15)   R15 = DEB ADDRESS          R0300000

000DAE 58F0 F020      00020        3321          L     R15,DEBUCBAD-DEBDSECT(,R15)   R15 = UCB ADDRESS          R0302000
000DB2 9501 F013      00013        3322          CLI   UCBTYP+3-UCBDSECT(R15),X'01'  TEST DEVICE TYPE           R0304000
000DB6 4780 8106      00DBE        3323          BE    *+8                 BRANCH IF 2540 CARD READER           R0306000
000DBA 5800 8150      00E08        3324          L     R0,RDRCCW1          SET STACKER 1 IF NOT 2540 READER     R0308000

000DBE 1E03                        3325          ALR   R0,RBI              SET BUFFER ADDRESS IN CCW            R0310000
                                   3326          DROP  RL1                 DROP DCT ADDRESSABILITY              R0312000
000DC0 9001 2000      00000        3327 RCCWBLD  STM   R0,R1,0(RW)         STORE CCW                            R0314000
000DC4 4120 2008      00008        3328          LA    RW,8(,RW)           UPDATE CCW LIST ADDRESS              R0316000
000DC8 5E00 CBB8      00BB8        3329          AL    R0,RDCF80           UPDATE CCW DATA ADDRESS              R0318000
000DCC 4670 8108      00DC0        3330          BCT   RL2,RCCWBLD         GENERATE CCW CHAIN                   R0320000

000DD0 4110 1000      00000        3331          LA    R1,0(,R1)           CLEAR COMMAND CHAIN BIT              R0322000
000DD4 9001 2000      00000        3332          STM   R0,R1,0(RW)         STORE LAST CCW                       R0324000
000DD8 50A0 D060      00060        3333 RRETURN  ST    JCT,RBIEND          INITIALIZE BUFFER END                R0326000
000DDC 9201 D05C      0005C        3334 RINTRSK  MVI   RDRSW,RJFLUSH       SET FOR JOB FLUSH                    R0328000
000DE0 925C D0BC      000BC        3335          MVI   RPRIORTY,C'*'       SET STANDARD PRIORITY                R0330000
000DE4 D201 D0BE CCFC 000BE 00CFC  3336          MVC   RDRDLM,=C'/*'       SET INPUT DATA SET DELIMITER         R0332000
                                   3337         $RETURN                    RETURN TO MAIN PROCESSOR             R0334000
000DEA 45E0 B088      00088        3338+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000

RDR      HASP INPUT SERVICE -- PROCESSOR INITIALIZATION                                                        PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000DEE 1F78                        3340 RNOUNIT  SLR   RL2,BASE3           COMPUTE RELATIVE RETURN              R0338000
                                   3341         $WAIT  UNIT,OLAY=YES       WAIT FOR A UNIT                      R0340000
000DF0 9608 D048      00048        3342+         OI    PCEEWF+$EWBUNIT,$EWFUNIT                                 WA016000
000DF4 45F0 B030      00030        3343+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000DF8 1E78                        3344          ALR   RL2,BASE3           COMPUTE ABSOLUTE RETURN              R0342000
000DFA 07F7                        3345          BR    RL2                 GO BACK AND TRY AGAIN                R0344000






                                   3347 *                                                                       R0348000
                                   3348 *                             INITIALIZATION CONSTANTS                  R0350000
                                   3349 *                                                                       R0352000



000DFC 00000000

000E00 4200010840000050            3351 RDRCCW   CCW   X'42',RIBUFST,X'40',80   2540 READ CCW SKELETON          R0356000
000E08 02000108                    3352 RDRCCW1  DC    0F'0',X'02',AL3(RIBUFST) NON-2540 READ CCW OPERATION     R0358000






                                   3354          DROP  BASE3               DROP OVERLAY ADDRESSABILITY          R0362000
RDR      HASP INPUT SERVICE -- MAIN PROCESSOR                                                                  PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000008                             3356 HASPRDR  CSECT                     DEFINE MAIN PROCESSOR RESIDENT       R0366000
000008 4560 C698      00698        3357 RCRDOUT  BAL   RL1,RPUT            PUT CARD IN OUTPUT BUFFER            R0368000
00000C 4560 C4EC      004EC        3358 RNXTCRD  BAL   RL1,RGET            GET NEXT CARD                        R0370000

000010 47F0 C2B4      002B4        3359          B     RDREND              BRANCH IF EOF                        R0372000
000014 9128 D05C      0005C        3360          TM    RDRSW,RJCLSW+RXBJOBSW    TEST CURRENT MODE               R0374000
000018 4780 C022      00022        3361          BZ    *+10                BRANCH IF DATA CARD                  R0376000
00001C D201 D0BE CCFC 000BE 00CFC  3362          MVC   RDRDLM,=C'/*'       SET INPUT DATA SET DELIMITER         R0378000
000022 D501 5000 D0BE 00000 000BE  3363          CLC   0(2,RPI),RDRDLM     TEST FOR DELIMITER CARD              R0380000

000028 4770 C08A      0008A        3364          BNE   RSCANCHK            BRANCH IF NOT DELIMITER CARD         R0382000
00002C 94FD D05C      0005C        3365          NI    RDRSW,255-RNOSCAN   TURN ON CARD SCAN                    R0384000
000030 D501 5000 CCFC 00000 00CFC  3366          CLC   0(2,RPI),=C'/*'     TEST FOR HASP CONTROL CARD           R0386000
000036 4770 C05E      0005E        3367          BNE   RNOTCCRD            BR IF NOT HASP CONTROL CARD          R0388000

00003A 9540 5002      00002        3368          CLI   2(RPI),C' '         TEST FOR HASP CONTROL CARD           R0390000
00003E 4780 C05E      0005E        3369          BE    RNOTCCRD            BRANCH IF NOT HASP CONTROL CARD      R0392000
000042 4120 CAFC      00AFC        3370          LA    RW,RCCTAB           GET ADDR OF CONTROL CARD CODE TABLE  R0394000
000046 41E0 000C      0000C        3371          LA    R14,RCCTBNXT-RCCTAB GET LENGTH OF EACH ENTRY             R0396000
00004A 41F0 CB4F      00B4F        3372          LA    R15,RCCTBEND-1      GET END OF CODE TABLE                R0398000
00004E 4310 2003      00003        3373 RCCSERCH IC    R1,RCCTBLEN-RCCTAB(,RW)  GET LENGTH OF CODE WORD         R0400000

000052 4410 CAF4      00AF4        3374          EX    R1,RCCTBCLC         COMPARE CODE WORD                    R0402000
000056 4780 C2C0      002C0        3375          BE    RCNTLCRD            BRANCH IF TABLE ENTRY FOUND          R0404000
00005A 872E C04E      0004E        3376          BXLE  RW,R14,RCCSERCH     TRY AGAIN                            R0406000
00005E 9130 D05C      0005C        3377 RNOTCCRD TM    RDRSW,ROSINSW+RXBJOBSW   TEST STATUS                     R0408000
000062 4770 C06A      0006A        3378          BNZ   *+8                 BR IF O/S DATA SET OR BATCH          R0410000

000066 9204 D058      00058        3379          MVI   RCARDID,X'04'       NO, INDICATE SUPERFLUOUS CARD        R0412000
00006A 4560 C698      00698        3380          BAL   RL1,RPUT            ADD CARD TO OUTPUT FILE              R0414000
00006E 9108 D05C      0005C        3381          TM    RDRSW,RJCLSW        TEST JCL SWITCH                      R0416000
000072 4710 C00C      0000C        3382          BO    RNXTCRD             BYPASS FURTHER PROCESSING IF SET     R0418000
000076 9608 D05C      0005C        3383          OI    RDRSW,RJCLSW        SET JCL SWITCH                       R0420000

00007A 9110 D05C      0005C        3384          TM    RDRSW,ROSINSW       TEST FOR O/S INPUT DATA SET          R0422000
00007E 4780 C274      00274        3385          BZ    RFLTEST             BRANCH IF NOT                        R0424000
000082 94EF D05C      0005C        3386          NI    RDRSW,255-ROSINSW   RESET O/S INPUT DATA SET SWITCH      R0426000
000086 47F0 C00C      0000C        3387          B     RNXTCRD             BYPASS FURTHER PROCESSING            R0428000
00008A 9102 D05C      0005C        3388 RSCANCHK TM    RDRSW,RNOSCAN       TEST FOR CARD SCAN                   R0430000

00008E 4710 C274      00274        3389          BO    RFLTEST             BRANCH IF NO SCAN                    R0432000
000092 D501 5000 CC88 00000 00C88  3390          CLC   0(2,RPI),=CL80'//'  TEST COLUMNS 1 AND 2                 R0434000
000098 4780 C0B0      000B0        3391          BE    RJCLCARD            BRANCH IF '//' CARD                  R0436000
00009C 9128 D05C      0005C        3392          TM    RDRSW,RJCLSW+RXBJOBSW    TEST CURRENT MODE               R0438000
0000A0 47B0 C274      00274        3393          BNM   RFLTEST             PROCESS CARD IF DATA OR BATCH        R0440000

0000A4 9640 D05C      0005C        3394          OI    RDRSW,RSYSINSW      INDICATE GENERATED DD *              R0442000
0000A8 5050 D078      00078        3395          ST    RPI,RSAVE1          SAVE CURRENT CARD POINTER            R0444000
0000AC 4150 CBCF      00BCF        3396          LA    RPI,RSYSINCD        GET ADDRESS OF HASP SUPPLIED DD *    R0446000
0000B0 9108 D05C      0005C        3397 RJCLCARD TM    RDRSW,RJCLSW        TEST JCL SWITCH                      R0448000
0000B4 4710 C0DE      000DE        3398          BO    RJCLSCAN            START SCAN IF SET                    R0450000
0000B8 9110 D05C      0005C        3399          TM    RDRSW,ROSINSW       TEST FOR O/S INPUT DATA SET          R0452000

0000BC 4710 C0D6      000D6        3400          BO    RJCLRSET            BRANCH IF YES                        R0454000
0000C0 5050 D078      00078        3401          ST    RPI,RSAVE1          SAVE INPUT POINTER                   R0456000
0000C4 4150 D0BE      000BE        3402          LA    RPI,RDRDLM          ADD DELIMITER CARD                   R0458000
0000C8 4560 C698      00698        3403          BAL   RL1,RPUT             TO OUTPUT FILE                      R0460000

0000CC 5850 D078      00078        3404          L     RPI,RSAVE1          RESTORE INPUT POINTER                R0462000
0000D0 D201 D0BE CCFC 000BE 00CFC  3405          MVC   RDRDLM,=C'/*'       SET INPUT DATA SET DELIMITER         R0464000
0000D6 94EF D05C      0005C        3406 RJCLRSET NI    RDRSW,255-ROSINSW   RESET O/S INPUT DATA SET SWITCH      R0466000
0000DA 9608 D05C      0005C        3407          OI    RDRSW,RJCLSW        SET JCL SWITCH                       R0468000
0000DE 955C 5002      00002        3408 RJCLSCAN CLI   2(RPI),C'*'         TEST COLUMN 3                        R0470000

0000E2 4780 C274      00274        3409          BE    RFLTEST             BRANCH IF JCL COMMENT                R0472000
0000E6 1825                        3410          LR    RW,RPI              SET 'RW' FOR CARD SCAN               R0474000
RDR      HASP INPUT SERVICE -- MAIN PROCESSOR                                                                  PAGE   70


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0000E8 41E0 0001      00001        3411          LA    R14,1               SET INCREMENT FOR SCAN               R0476000
0000EC 41F5 0042      00042        3412          LA    R15,66(RPI)         AND LIMIT FOR END OF CARD            R0478000
0000F0 9540 2002      00002        3413 RJBTEST  CLI   2(RW),C' '          SEARCH FOR END OF NAME FIELD         R0480000

0000F4 4780 C0FE      000FE        3414          BE    RJBLANK             BRANCH IF BLANK                      R0482000
0000F8 872E C0F0      000F0        3415          BXLE  RW,R14,RJBTEST      ADVANCE TO NEXT COLUMN               R0484000
0000FC 0620                        3416          BCTR  RW,0                END OF CARD - BACK UP ONE COLUMN     R0486000

0000FE 9540 2003      00003        3417 RJBLANK  CLI   3(RW),C' '          SEARCH FOR START OF OPERATION        R0488000
000102 4770 C10A      0010A        3418          BNE   RDDTEST             BRANCH IF FOUND                      R0490000
000106 872E C0FE      000FE        3419          BXLE  RW,R14,RJBLANK      ADVANCE TO NEXT COLUMN               R0492000
00010A D502 2003 CCFE 00003 00CFE  3420 RDDTEST  CLC   3(3,RW),=C'DD '     CHECK FOR DD CARD                    R0494000
000110 4770 C25A      0025A        3421          BNE   RJJTEST             BRANCH IF NOT A DD CARD              R0496000

                                   3422          AIF   ('&XBATCHC' EQ '').RNOXB1                                R0498000
                                   3423 .RNOXB1  ANOP                      *                                    R0504000
000114 862E C274      00274        3424 RDDBLANK BXH   RW,R14,RFLTEST      ADVANCE TO NEXT COLUMN               R0506000
000118 9540 2004      00004        3425          CLI   4(RW),C' '          SEARCH DATA FIELD START              R0508000
00011C 4780 C114      00114        3426          BE    RDDBLANK            BRANCH IF NOT FOUND                  R0510000
000120 955B 2004      00004        3427          CLI   4(RW),C'$'          CHECK FOR DD $                       R0512000
000124 4770 C12C      0012C        3428          BNE   *+8                 BRANCH IF NOT                        R0514000
000128 925C 2004      00004        3429          MVI   4(RW),C'*'          YES, CHANGE TO DD *                  R0516000

00012C 955C 2004      00004        3430          CLI   4(RW),C'*'          CHECK FOR DD *                       R0518000
000130 4770 C140      00140        3431          BNE   RNDDSTAR            BRANCH IF NOT DD *                   R0520000

000134 9540 2005      00005        3432          CLI   5(RW),C' '          TEST FOR ADDITIONAL PARAMETERS       R0522000
000138 4780 C1E8      001E8        3433          BE    RDDSTAR             IF NO, PROCESS DD *                  R0524000
00013C 47F0 C164      00164        3434          B     RDDSCAN             YES, CONTINUE SCAN                   R0526000
000140 D503 2004 CCD8 00004 00CD8  3435 RNDDSTAR CLC   4(4,RW),=C'CATA'    CHECK FOR DD CATA                    R0528000
000146 4770 C14E      0014E        3436          BNE   *+8                 BRANCH IF NOT                        R0530000

00014A 92C4 2004      00004        3437          MVI   4(RW),C'D'          CHANGE CATA TO DATA                  R0532000
00014E D503 2004 CCDC 00004 00CDC  3438          CLC   4(4,RW),=C'DATA'    CHECK FOR DD DATA                    R0534000
000154 4770 C274      00274        3439          BNE   RFLTEST             BRANCH IF NOT DD DATA                R0536000
000158 9602 D05C      0005C        3440          OI    RDRSW,RNOSCAN       TURN OFF CARD SCAN                   R0538000
00015C 9540 2008      00008        3441          CLI   8(RW),C' '          TEST FOR ADDITIONAL PARAMETERS       R0540000
000160 4780 C1F0      001F0        3442          BE    RDDDATA             IF NO, PROCESS DD DATA               R0542000
000164 4110 2004      00004        3443 RDDSCAN  LA    R1,4(,RW)           SCAN REST OF DD CARD                 R0544000
000168 861E C1E8      001E8        3444 RDDSCAN1 BXH   R1,R14,RDDSCEND     ADVANCE TO NEXT COLUMN               R0546000
00016C D503 1001 CCE0 00001 00CE0  3445          CLC   1(4,R1),=C'DLM='    CHECK FOR DLM KEYWORD                R0548000

000172 4770 C1E0      001E0        3446          BNE   RNOTDLM             BRANCH IF NOT DLM KEYWORD            R0550000

000176 9110 D05C      0005C        3447          TM    RDRSW,ROSINSW       TEST FOR O/S INPUT DATA SET          R0552000
00017A 4710 C182      00182        3448          BO    *+8                 BRANCH IF YES                        R0554000
00017E 9240 1000      00000        3449          MVI   0(R1),C' '          ISOLATE DLM KEYWORD FOR OS           R0556000
                                   3450 *        ICM   R0,3,5(R1)          GET DELIMITER                   RFIT R0558000
000182 4300 1005      00005        3451          IC    R0,5(,R1)                                           RFIT R0558005

000186 8900 0008      00008        3452          SLL   R0,8                                                RFIT R0558010
00018A 4300 1006      00006        3453          IC    R0,6(,R1)                                           RFIT R0558015
00018E 957D 1005      00005        3454          CLI   5(R1),C''''         TEST FOR APOSTROPHE                  R0560000
000192 4770 C1D8      001D8        3455          BNE   RDDSCAN4            BRANCH IF NO APOSTROPHE              R0562000
                                   3456 *        LH    R0,6(,R1)           GET DELIMITER                   RFIT R0564000
000196 1B00                        3457          SR    R0,R0                                               RFIT R0564005
000198 4300 1006      00006        3458          IC    R0,6(,R1)                                           RFIT R0564010
00019C 8900 0008      00008        3459          SLL   R0,8                                                RFIT R0564015
0001A0 4300 1007      00007        3460          IC    R0,7(,R1)                                           RFIT R0564020

0001A4 9550 1006      00006        3461          CLI   6(R1),C'&&'         TEST FIRST CHARACTER                 R0566000

0001A8 4770 C1BC      001BC        3462          BNE   RDDSCAN2            BRANCH IF NOT AMPERSAND              R0568000
0001AC 9550 1007      00007        3463          CLI   7(R1),C'&&'         TEST NEXT CHARACTER                  R0570000
0001B0 4770 C1BC      001BC        3464          BNE   RDDSCAN2            BRANCH IF NOT SECOND AMPERSAND       R0572000
0001B4 4110 1001      00001        3465          LA    R1,1(,R1)           SKIP OVER REDUNDANT AMPERSAND        R0574000
RDR      HASP INPUT SERVICE -- MAIN PROCESSOR                                                                  PAGE   71



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0001B8 4300 1007      00007        3466          IC    R0,7(,R1)           REPLACE 2ND CHARACTER OF DELIMITER   R0576000
0001BC 9550 1007      00007        3467 RDDSCAN2 CLI   7(R1),C'&&'         TEST SECOND CHARACTER                R0578000
0001C0 4770 C1D0      001D0        3468          BNE   RDDSCAN3            BRANCH IF NOT AMPERSAND              R0580000
0001C4 9550 1008      00008        3469          CLI   8(R1),C'&&'         TEST NEXT CHARACTER                  R0582000
0001C8 4770 C1D0      001D0        3470          BNE   RDDSCAN3            BRANCH IF NOT SECOND AMPERSAND       R0584000
0001CC 4110 1001      00001        3471          LA    R1,1(,R1)           SKIP OVER REDUNDANT AMPERSAND        R0586000
0001D0 957D 1008      00008        3472 RDDSCAN3 CLI   8(R1),C''''         TEST FOR MATCHING APOSTROPHE         R0588000
0001D4 4770 C1E0      001E0        3473          BNE   RNOTDLM             IGNORE IF INVALID SYNTAX             R0590000
0001D8 4000 D0BE      000BE        3474 RDDSCAN4 STH   R0,RDRDLM           SET DELIMITER SPECIFIED              R0592000

0001DC 47F0 C1E8      001E8        3475          B     RDDSCEND            PROCESS DD STATEMENT                 R0594000

                                   3476 RNOTDLM  NULL                      *                                    R0596000
0001E0                             3477+RNOTDLM  DS    0H                                                       NU006000
                                   3478          AIF   (NOT &OSINOPT).ROSP1                                     R0598000
0001E0 9540 1001      00001        3479 .ROSP1   CLI   1(R1),C' '          SEARCH FOR END OF CARD               R0606000

0001E4 4770 C168      00168        3480          BNE   RDDSCAN1            BRANCH IF NOT END                    R0608000
                                   3481 RDDSCEND NULL                      END OF DD CARD                       R0610000
0001E8                             3482+RDDSCEND DS    0H                                                       NU006000
                                   3483          AIF   (NOT &OSINOPT).ROSP2                                     R0612000
                                   3484 .ROSP2   ANOP                      *                                    R0618000
0001E8 9140 D05C      0005C        3485 RDDSTAR  TM    RDRSW,RSYSINSW      TEST FOR GENERATED DD *              R0620000
0001EC 4710 C200      00200        3486          BO    RGENNEDD            BRANCH IF INTERNALLY GENERATED       R0622000
0001F0 5020 D078      00078        3487 RDDDATA  ST    RW,RSAVE1           SAVE SCAN POINTER                    R0624000
0001F4 9204 D058      00058        3488          MVI   RCARDID,X'04'       INDICATE SUPERFLUOUS CARD            R0626000
0001F8 4560 C698      00698        3489          BAL   RL1,RPUT            ADD CARD TO OUTPUT FILE              R0628000
0001FC 5820 D078      00078        3490          L     RW,RSAVE1           RESTORE SCAN POINTER                 R0630000

000200 9707 2004      00004        3491 RGENNEDD XI    4(RW),X'07'         CONVERT * TO $ OR 'DATA' TO 'CATA'   R0632000
000204 1244                        3492          LTR   RBO,RBO             TEST FOR OUTPUT BUFFER               R0634000
000206 4780 C270      00270        3493          BZ    RFLRESET            BRANCH IF FLUSHING                   R0636000
                                   3494         $TRACK RJCTCYMX            GET TRACK FOR DATA BUFFER            R0638000

00020A 4110 A0FC      000FC        3495+         LA    R1,RJCTCYMX                                              DG012000
00020E 45E0 B064      00064        3496+         BAL   LINK,$TRACK         LINK TO CONTROL SERVICE PROGRAM      BA008000
000212 5010 D080      00080        3497          ST    R1,RJCLTRAK         KEEP FOR FUTURE REFERENCE            R0640000
000216 5050 D07C      0007C        3498          ST    RPI,RSAVE2          SAVE INPUT POINTER                   R0642000
00021A 4150 D080      00080        3499          LA    RPI,RJCLTRAK        ADD DUMMY CARD CONTAINING TRACK      R0644000
00021E 9273 D058      00058        3500          MVI   RCARDID,X'73'       INDICATE TRACK ADDRESS               R0646000
000222 4560 C698      00698        3501          BAL   RL1,RPUT            ADD CARD TO OUTPUT FILE              R0648000
000226 5850 D07C      0007C        3502          L     RPI,RSAVE2          RESTORE INPUT POINTER                R0650000
00022A 9203 D058      00058        3503          MVI   RCARDID,X'03'       INDICATE INTERNALLY GENERATED CARD   R0652000
00022E 4560 C698      00698        3504          BAL   RL1,RPUT            ADD DD CARD TO OUTPUT FILE           R0654000
000232 D203 D068 D064 00068 00064  3505          MVC   RBOEND,RBONEXT      FORCE END-OF-BUFFER                  R0656000
000238 4560 C698      00698        3506          BAL   RL1,RPUT            TERMINATE BUFFER                     R0658000

00023C 4110 4060      00060        3507          LA    R1,ROBUFST(,RBO)    RESET                                R0660000
000240 5010 D064      00064        3508          ST    R1,RBONEXT           OUTPUT POINTER                      R0662000
000244 5820 D080      00080        3509          L     RW,RJCLTRAK          INTERCHANGE                         R0664000

000248 D203 D080 4058 00080 00058  3510          MVC   RJCLTRAK,RBUFTRK(RBO) TRACK                              R0666000
00024E 5024 0058      00058        3511          ST    RW,RBUFTRK(RBO)        ADDRESSES                         R0668000
000252 94F7 D05C      0005C        3512          NI    RDRSW,255-RJCLSW    RESET JCL SWITCH                     R0670000
000256 47F0 C00C      0000C        3513          B     RNXTCRD             GET NEXT CARD                        R0672000
00025A D503 2003 CCE4 00003 00CE4  3514 RJJTEST  CLC   3(4,RW),=C'JOB '    CHECK FOR JOB CARD                   R0674000
000260 4770 C274      00274        3515          BNE   RFLTEST             BRANCH IF NOT A JOB CARD             R0676000
                                   3516         $LINK  HASPRJCS            INITIALIZE JOB CONTROL INFORMATION   R0678000
000000                             3517+HA$QRJCS DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
000264                             3518+HASPRDR  CSECT                                                          OL014000
000264 41E00000                    3519+         DC    Y(X'4100'+LINK*16),QL2(HA$QRJCS) LOAD OCON INTO LINK     OL016000
000268 45F0 B08C      0008C        3520+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000
RDR      HASP INPUT SERVICE -- MAIN PROCESSOR                                                                  PAGE   72



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


00026C 47F0 C274      00274        3521          B     RFLTEST             ADD CARD TO OUTPUT FILE              R0680000
000270 94F7 D05C      0005C        3522 RFLRESET NI    RDRSW,255-RJCLSW    RESET JCL SWITCH                     R0682000

000274 9101 D05C      0005C        3523 RFLTEST  TM    RDRSW,RJFLUSH       TEST FLUSH SWITCH                    R0684000
000278 4780 C008      00008        3524          BZ    RCRDOUT             BRANCH IF NOT START OF FLUSH         R0686000
00027C D506 5002 CBC4 00002 00BC4  3525          CLC   2(7,RPI),RSONCODE   TEST FOR /*SIGNON CARD               R0688000
000282 4780 C008      00008        3526          BE    RCRDOUT             BRANCH IF /*SIGNON CARD              R0690000
000286 5810 D058      00058        3527          L     R1,RDRDCT           R1 = READER DCT ADDRESS              R0692000
                            00000  3528          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         R0694000
00028A D207 D084 1018 00084 00018  3529          MVC   RMESSAGE(8),DCTDEVN MOVE DEVICE NAME TO MESSAGE AREA     R0696000
                                   3530          DROP  R1                  KILL DCT ADDRESSABILITY              R0698000
000290 D215 D08C CC6F 0008C 00C6F  3531          MVC   RMESSAGE+8(L'RFLMSG),RFLMSG SET UP REST OF MESSAGE       R0700000
                                   3532          AIF   (&NUMLNES EQ 0).RRJE05A                                  R0702000
                                   3533 .RRJE05A ANOP                      *                                    R0722000
                                   3534         $WTO   RMESSAGE,L'RFLMSG+8,JOB=NO,   ISSUE FLUSHING MESSAGE    CR0724000

                                                       ROUTE=$LOG+$UR,CLASS=$NORMAL,PRI=$ST                     R0726000
000296 4110 D084      00084        3535+         LA    R1,RMESSAGE                                              DG012000

00029A 0700                        3536+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000

00029C 5800 C2A4      002A4        3537+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
0002A0 45E0 B098      00098        3538+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
0002A4 00051E34                    3539+         DC    AL1(0,$LOG+$UR,L'RFLMSG+8,$NORMAL+$ST)                   WT044000
0002A8 925C D0BC      000BC        3540          MVI   RPRIORTY,C'*'       RESET PRIORITY                       R0728000
0002AC 94FE D05C      0005C        3541          NI    RDRSW,255-RJFLUSH   TURN OFF FLUSH SWITCH                R0730000
0002B0 47F0 C00C      0000C        3542          B     RNXTCRD             GET NEXT CARD                        R0732000





                                   3544 RDREND  $LINK  HASPRDRT            LINK TO TERMINATION MODULE           R0736000
000000                             3545+HA$QRDRT DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
0002B4                             3546+HASPRDR  CSECT                                                          OL014000
0002B4 41E00000                    3547+RDREND   DC    Y(X'4100'+LINK*16),QL2(HA$QRDRT) LOAD OCON INTO LINK     OL016000

0002B8 45F0 B08C      0008C        3548+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000
0002BC 47F0 C000      00000        3549          B     $READ               RETURN TO INITIALIZATION             R0738000






                                   3551 RCNTLCRD NULL                      PROCESS HASP CONTROL CARD            R0742000
0002C0                             3552+RCNTLCRD DS    0H                                                       NU006000
                                   3553         $LINK  (RW)                LINK TO OVERLAY ROUTINE              R0744000
0002C0 48E0 2000      00000        3554+         LH    LINK,0(,RW)            LOAD OCON INTO LINK               OL022000
0002C4 45F0 B08C      0008C        3555+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000
0002C8 07F7                        3556          BR    RL2                 UPON RETURN RL2 SPECIFIES EXIT       R0746000
RDR      HASP INPUT SERVICE -- PROCESSOR TERMINATION                                                           PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3558 HASPRDRT $OVERLAY &MED,&MED        DEFINE TERMINATION OVERLAY           R0750000
000E10                             3559+HA$ORDRT CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            00E18  3560+HA$IRDRT EQU   HA$ORDRT+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   3561+         ENTRY HA$IRDRT                                                 OV036000
000E10 D9C4D9E3                    3562+         DC    CL4'RDRT'           IDENTIFY MODULE ON CORE DUMP         OV038000
000E14 00000E10                    3563+         DC    A(HA$ORDRT)         ASSEMBLY ORIGIN                      OV040000
000E18                             3564+HASPRDRT DS    0F                  ENTRY POINT                          OV042000

                            00DB8  3565+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
000E18 4560 C434      00434        3566          BAL   RL1,RJOBEND         TERMINATE LAST JOB                   R0752000
                                   3567          AIF   (&NUMLNES EQ 0).RRJE06                                   R0754000
000E1C 5810 D058      00058        3568 .RRJE06  L     R1,RDRDCT           R1 = ADDRESS OF INPUT DCT            R0768000
                                   3569          AIF   (&NUMINRS EQ 0).RINR4                                    R0770000
000E20 9104 D04A      0004A        3570          TM    PCEID,PCEINRID      IS THIS INTERNAL READER              R0772000

000E24 4710 807E      00E36        3571          BO    RINRFREE            FREE THE UNITS                       R0774000
                                   3572 .RINR4  $FREEBUF (RBI),OLAY=YES    RETURN INPUT BUFFER                  R0776000
000E28 1813                        3573+         LR    R1,RBI                                                   DG018000
000E2A 45E0 B03C      0003C        3574+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
000E2E 5810 D058      00058        3575          L     R1,RDRDCT           R1 = ADDRESS OF READER DCT           R0778000
                            00000  3576          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         R0780000
000E32 9620 1000      00000        3577          OI    DCTSTAT,DCTHOLD     SET READER UNAVAILABLE               R0782000
                                   3578          DROP  R1                  KILL DCT ADDRESSABILITY              R0784000

                                   3579 RINRFREE $FREUNIT (R1),OLAY=YES    RETURN INPUT DEVICE                  R0786000
000E36                             3580+RINRFREE DS    0H                                                       NU006000

000E36 41E0 8088      00E40        3581+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
000E3A 1FE8                        3582+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
000E3C 47F0 B044      00044        3583+         B     $FREUNIT            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   3584         $FREUNIT RDADCT,OLAY=YES   RETURN DIRECT ACCESS DCT             R0788000
000E40 5810 D05C      0005C        3585+         L     R1,RDADCT                                                DG012000
000E44 41E0 8096      00E4E        3586+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
000E48 1FE8                        3587+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
000E4A 47F0 B044      00044        3588+         B     $FREUNIT            BRANCH TO CONTROL SERVICE PROGRAM    BA018000

                                   3589         $DORMANT                   INDICATE PROCESSOR INACTIVE          R0790000
000E4E 4310 B0C7      000C7        3590+         IC    R1,$ACTIVE          INDICATE                             DO006000
000E52 0610                        3591+         BCTR  R1,0                 PROCESSOR                           DO008000
000E54 4210 B0C7      000C7        3592+         STC   R1,$ACTIVE            INACTIVE                           DO010000
                                   3593         $WAIT  UNIT,OLAY=YES       CYCLE THROUGH DISPATCHER             R0792000

000E58 9608 D048      00048        3594+         OI    PCEEWF+$EWBUNIT,$EWFUNIT                                 WA016000
000E5C 45F0 B030      00030        3595+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                                   3596         $RETURN                    RETURN TO MAIN PROCESSOR             R0794000

000E60 45E0 B088      00088        3597+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000


                                   3599          DROP  BASE3               DROP OVERLAY ADDRESSABILITY          R0798000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3601 HASPRCC1 $OVERLAY &MED,&MED        DEFINE FIRST CONTROL CARD SCAN       R0802000
000E68                             3602+HA$ORCC1 CSECT                     ESTABLISH OVERLAY CSECT              OV030000

                            00E70  3603+HA$IRCC1 EQU   HA$ORCC1+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   3604+         ENTRY HA$IRCC1                                                 OV036000
000E68 D9C3C3F1                    3605+         DC    CL4'RCC1'           IDENTIFY MODULE ON CORE DUMP         OV038000
000E6C 00000E68                    3606+         DC    A(HA$ORCC1)         ASSEMBLY ORIGIN                      OV040000
000E70                             3607+HASPRCC1 DS    0F                  ENTRY POINT                          OV042000

                            00E10  3608+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000





                                   3610 *                                                                       R0806000

                                   3611 *                             DETERMINE TYPE OF CONTROL CARD            R0808000
                                   3612 *                                                                       R0810000



000E70 1B11                        3614          SR    R1,R1               GET CONTROL CARD                     R0814000
000E72 4310 2002      00002        3615          IC    R1,RCCTBNDX-RCCTAB(,RW)  INDEX                           R0816000
000E76 47F1 806A      00E7A        3616          B     *+4(R1)             SELECT CONTROL CARD TYPE             R0818000




000E7A 47F0 814C      00F5C        3618          B     RPRICARD            HASP PRIORITY CARD                   R0822000
000E7E 47F0 8188      00F98        3619          B     ROUTCARD            HASP ROUTE CARD                      R0824000
000E82 47F0 82AE      010BE        3620          B     RSETCARD            HASP SETUP CARD                      R0826000
000E86 47F0 82EC      010FC        3621          B     RMSGCARD            HASP MESSAGE CARD                    R0828000

                                   3622 *                                  HASP COMMAND CARD                    R0830000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   75


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3624 *                                                                       R0834000
                                   3625 *                             HASP COMMAND CARD PROCESSING ROUTINE      R0836000

                                   3626 *                                                                       R0838000



000E8A 1244                        3628          LTR   RBO,RBO             TEST FOR JOB                         R0842000
000E8C 4770 839A      011AA        3629          BNZ   RILLCCRD            IGNORE COMMAND IF IN A JOB           R0844000
                                   3630 RGETQUE $DISABLE ALL               DISABLE WHILE GETTING CONSOLE QUEUE  R0846000

000E90 8000 B0C9      000C9        3631+RGETQUE  SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
000E94 5820 B108      00108        3632          L     RW,$FREEQUE         GET CONSOLE MESSAGE BUFFER           R0848000
000E98 1222                        3633          LTR   RW,RW               TEST                                 R0850000
000E9A 4780 8096      00EA6        3634          BZ    RCOMWAT             BRANCH IF BUFFER IS NOT AVAILABLE    R0852000
000E9E 4810 B0CE      000CE        3635          LH    R1,$COMMCT          GET ACTIVE HASP COMMAND COUNT        R0854000

000EA2 4610 80A6      00EB6        3636          BCT   R1,RCOMBUF          DECREMENT IF NOT ONE                 R0856000
                                   3637 RCOMWAT $WAIT  CMB,ENABLE,OLAY=YES WAIT FOR A CONSOLE MESSAGE BUFFER    R0858000
000EA6 9602 D048      00048        3638+RCOMWAT  OI    PCEEWF+$EWBCMB,$EWFCMB                                   WA016000
000EAA 8000 B0C8      000C8        3639+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
000EAE 45F0 B030      00030        3640+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000EB2 47F0 8080      00E90        3641          B     RGETQUE             TRY AGAIN                            R0860000

                            00000  3642          USING CMBDSECT,RW         ESTABLISH CMB ADDRESSABILITY         R0862000
000EB6 4010 B0CE      000CE        3643 RCOMBUF  STH   R1,$COMMCT          UPDATE ACTIVE COMMAND COUNT          R0864000
000EBA D203 B108 2000 00108 00000  3644          MVC   $FREEQUE,CMBCHAIN   REMOVE BUFFER FROM FREE QUEUE        R0866000
                                   3645         $ENABLE ALL                RE-ENABLE                            R0868000

000EC0 8000 B0C8      000C8        3646+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
000EC4 5860 D058      00058        3647          L     RL1,RDRDCT          RL1 = ADDRESS OF INPUT DCT           R0870000
000EC8 95D5 5047      00047        3648          CLI   71(RPI),C'N'        TEST COLUMN 72                       R0872000
000ECC 4780 80E4      00EF4        3649          BE    RCOMQUE             BYPASS WTO IF COLUMN 72 IS 'N'       R0874000
000ED0 D207 2000 6018 00000 00018  3650          MVC   0(8,RW),DCTDEVN-DCTDSECT(RL1) SET UP                     R0876000

000ED6 9240 2008      00008        3651          MVI   8(RW),C' '                     DEVICE NAME               R0878000
000EDA D244 2009 5002 00009 00002  3652          MVC   9(69,RW),2(RPI)                 AND COMMAND              R0880000
000EE0 0570                        3653          BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R0882000
                                   3654         $WTO   (RW),78,JOB=NO,WAIT=RNOCMB,   LOG COMMAND               CR0884000
                                                       ROUTE=$LOG+$UR+$TP,CLASS=$NORMAL,PRI=$HI                 R0886000
000EE2 1812                        3655+         LR    R1,RW                                                    DG018000
000EE4                             3656+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000

000EE4 5800 80DC      00EEC        3657+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
000EE8 45E0 B098      00098        3658+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
000EEC 040D4E37                    3659+         DC    AL1(4,$LOG+$UR+$TP,78,$NORMAL+$HI)                       WT044000

000EF0 4780 CADC      00ADC        3660+         BC    8,RNOCMB            BRANCH IF $WTO NOT SUCCESSFUL        WT086000
000EF4 D707 2000 2000 00000 00000  3661 RCOMQUE  XC    CMBCHAIN(CMBMSG-CMBCHAIN),CMBCHAIN CLEAR CONTROL FIELDS  R0888000
000EFA 9221 2005      00005        3662          MVI   CMBCONS,$LOG+$MAIN  SET UP CONSOLES                      R0890000
000EFE D100 2004 6013 00004 00013  3663          MVN   CMBFLAGS,DCTIOTYP-DCTDSECT(RL1) RESTRICTION FLAGS        R0892000
000F04 9102 D04A      0004A        3664          TM    PCEID,PCERJEID      TEST PROCESSOR TYPE                  R0894000

000F08 4780 8106      00F16        3665          BZ    RCONRMT             BRANCH IF NOT REMOTE TERMINAL        R0896000
000F0C 9208 2004      00004        3666          MVI   CMBFLAGS,WCMBFG     INDICATE REMOTE ROUTING              R0898000
000F10 D200 2005 6011 00005 00011  3667          MVC   CMBCONS,DCTNO-DCTDSECT(RL1)   SET REMOTE NUMBER          R0900000
000F16 D244 2008 5002 00008 00002  3668 RCONRMT  MVC   CMBMSG(69),2(RPI)   SET UP COMMAND                       R0902000
000F1C 9240 204D      0004D        3669          MVI   CMBMSG+69,C' '           BLANK OUT                       R0904000
000F20 D23D 204E 204D 0004E 0004D  3670          MVC   CMBMSG+70(62),CMBMSG+69   REST OF BUFFER                 R0906000
                                   3671         $DISABLE ALL               DISABLE WHILE QUEUEING COMMAND       R0908000
000F26 8000 B0C9      000C9        3672+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000

000F2A 4110 B114      00114        3673          LA    R1,$COMMQUE         FIND                                 R0910000
000F2E 47F0 8126      00F36        3674          B     *+8                  END OF                              R0912000

000F32 5810 1000      00000        3675          L     R1,0(,R1)             COMMAND                            R0914000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   76


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000F36 D603 1000 1000 00000 00000  3676          OC    0(4,R1),0(R1)          BUFFER                            R0916000
000F3C 4770 8122      00F32        3677          BNZ   *-10                    QUEUE                            R0918000

000F40 5020 1000      00000        3678          ST    RW,0(,R1)           ADD COMMAND TO QUEUE                 R0920000
                                   3679         $ENABLE ALL                RE-ENABLE                            R0922000
000F44 8000 B0C8      000C8        3680+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
000F48 5810 CCE8      00CE8        3681          L     R1,=V($COMMPCE)     $POST COMMAND SERVICE                R0924000
                                   3682         $POST  PCEEWF+$EWBWORK-PCEDSECT(R1),WORK  PROCESSOR             R0926000
000F4C 94DF 1049      00049        3683+         NI    PCEEWF+$EWBWORK-PCEDSECT(R1),255-$EWFWORK                PO008000
000F50 947F B0C4      000C4        3684+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
000F54 4170 C00C      0000C        3685          LA    RL2,RNXTCRD         LOAD ADDRESS OF EXIT                 R0928000

                                   3686         $RETURN                     AND RETURN                          R0930000
000F58 45E0 B088      00088        3687+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000

                                   3688          DROP  RW                  DROP CMB ADDRESSABILITY              R0932000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3690 *                                                                       R0936000
                                   3691 *                             HASP PRIORITY CARD PROCESSING ROUTINE     R0938000

                                   3692 *                                                                       R0940000



                                   3694 RPRICARD NULL                                                           R0944000
000F5C                             3695+RPRICARD DS    0H                                                       NU006000
000F5C 4560 C434      00434        3696          BAL   RL1,RJOBEND         TERMINATE PREVIOUS JOB               R0946000
000F60 4320 500F      0000F        3697          IC    RW,15(,RPI)         PICK UP COLUMN 16                    R0948000
000F64 9540 5010      00010        3698          CLI   16(RPI),C' '        TEST COLUMN 17 FOR BLANK             R0950000
000F68 4780 8164      00F74        3699          BE    RPRIBL              BRANCH IF COLUMN 17 IS BLANK         R0952000
000F6C 4320 5010      00010        3700          IC    RW,16(,RPI)         NO, PICK UP COLUMN 17                R0954000

000F70 4120 200A      0000A        3701          LA    RW,10(,RW)          ADD 10 TO CHARACTER                  R0956000

000F74 4220 D0BC      000BC        3702 RPRIBL   STC   RW,RPRIORTY         SAVE PRIORITY CHARACTER              R0958000
000F78 94EF D05C      0005C        3703          NI    RDRSW,255-ROSINSW   RESET O/S INPUT DATA SET SWITCH      R0960000
000F7C 9609 D05C      0005C        3704          OI    RDRSW,RJFLUSH+RJCLSW     SET FLUSH AND JCL SWITCHES      R0962000
000F80 4560 C4EC      004EC        3705          BAL   RL1,RGET            GET NEXT CARD                        R0964000
000F84 47F0 8180      00F90        3706          B     RPRIEOF             BRANCH IF END OF FILE                R0966000

000F88 4170 C08A      0008A        3707          LA    RL2,RSCANCHK        LOAD ADDRESS OF EXIT                 R0968000
                                   3708         $RETURN                     AND RETURN                          R0970000
000F8C 45E0 B088      00088        3709+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000


000F90 4170 C2B4      002B4        3711 RPRIEOF  LA    RL2,RDREND          LOAD ADDRESS OF EOF EXIT             R0974000
                                   3712         $RETURN                     AND RETURN                          R0976000
000F94 45E0 B088      00088        3713+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3715 *                                                                       R0980000

                                   3716 *                             HASP ROUTE CARD PROCESSING ROUTINE        R0982000

                                   3717 *                                                                       R0984000



                                   3719 ROUTCARD NULL                                                           R0988000
000F98                             3720+ROUTCARD DS    0H                                                       NU006000

000F98 1244                        3721          LTR   RBO,RBO             TEST FOR JOB                         R0990000
000F9A 4780 839A      011AA        3722          BZ    RILLCCRD            IGNORE ROUTE CARD IF NOT IN JOB      R0992000
000F9E 9110 D05C      0005C        3723          TM    RDRSW,ROSINSW       TEST FOR O/S INPUT DATA SET          R0994000
000FA2 4710 819A      00FAA        3724          BO    *+8                 BRANCH IF YES                        R0996000
000FA6 9204 D058      00058        3725          MVI   RCARDID,X'04'       NO, INDICATE SUPERFLUOUS CARD        R0998000
000FAA 4560 C692      00692        3726          BAL   RL1,RPUTOLAY        ADD ROUTE CARD TO OUTPUT FILE        R1000000
000FAE 9118 D05C      0005C        3727          TM    RDRSW,RJCLSW+ROSINSW     TEST FOR JCL OR O/S DATA SET    R1002000
000FB2 4770 81AA      00FBA        3728          BNZ   *+8                      BRANCH IF EITHER                R1004000
000FB6 4560 C692      00692        3729          BAL   RL1,RPUTOLAY        TERMINATE DATA SET                   R1006000
000FBA 94EF D05C      0005C        3730          NI    RDRSW,255-ROSINSW   RESET O/S INPUT DATA SET SWITCH      R1008000
000FBE 9608 D05C      0005C        3731          OI    RDRSW,RJCLSW        SET JCL SWITCH                       R1010000

000FC2 D206 5001 83D1 00001 011E1  3732          MVC   1(7,RPI),ROUTCODE   CHANGE /*ROUTE TO //*ROUTE           R1012000
000FC8 5810 D0B8      000B8        3733          L     R1,RJOB             GET ADDRESS OF JOB QUEUE ELEMENT     R1014000
000FCC 4170 100C      0000C        3734          LA    RL2,QUEPRTRT(,R1)   ASSUME PRINT ROUTING                 R1016000
000FD0 D505 83A2 5009 011B2 00009  3735          CLC   RRPRINT,9(RPI)      TEST                                 R1018000

000FD6 4780 81D8      00FE8        3736          BE    RPROUTE             BRANCH IF PRINT ROUTING              R1020000
000FDA D505 83A8 5009 011B8 00009  3737          CLC   RRPUNCH,9(RPI)      TEST AGAIN                           R1022000
000FE0 4770 8260      01070        3738          BNE   RILLROUT            ILLEGAL IF NOT PUNCH ROUTING         R1024000
000FE4 4170 100D      0000D        3739          LA    RL2,QUEPUNRT(,R1)   SET FOR PUNCH ROUTING                R1026000
000FE8 1B11                        3740 RPROUTE  SR    R1,R1               ASSUME LOCAL ROUTING                 R1028000
000FEA D505 83AE 500F 011BE 0000F  3741          CLC   RRLOCAL,15(RPI)     TEST                                 R1030000
000FF0 4780 8250      01060        3742          BE    RSETROUT            BRANCH IF LOCAL ROUTING              R1032000
000FF4 4110 5003      00003        3743          LA    R1,3(,RPI)          ASSUME REMOTE ROUTING                R1034000
000FF8 D505 83B4 500F 011C4 0000F  3744          CLC   RRREMOTE,15(RPI)    TEST AGAIN                           R1036000
000FFE 4780 8212      01022        3745          BE    RRMTSRCH            BRANCH IF REMOTE ROUTING             R1038000
001002 1815                        3746          LR    R1,RPI              ASSUME RMT ROUTING                   R1040000
001004 D502 83BA 500F 011CA 0000F  3747          CLC   RRRMT,15(RPI)       ONE MORE TIME                        R1042000

00100A 4780 8212      01022        3748          BE    RRMTSRCH            BRANCH IF RMT ROUTING                R1044000
00100E D504 500F 5009 0000F 00009  3749          CLC   15(5,RPI),9(RPI)    MUST BE PRINT OR PUNCH ROUTING       R1046000
001014 4770 8260      01070        3750          BNE   RILLROUT            ILLEGAL IF NOT                       R1048000

001018 D207 D084 500F 00084 0000F  3751          MVC   RMESSAGE(8),15(RPI) SET UP DEVICE NAME                   R1050000
00101E 47F0 822C      0103C        3752          B     RDCTSRCH            SEARCH DCT'S                         R1052000
001022 D207 D084 83BD 00084 011CD  3753 RRMTSRCH MVC   RMESSAGE(8),RRRMRD1 SET UP FOR REMOTE SEARCH             R1054000
001028 D201 D086 1012 00086 00012  3754          MVC   RMESSAGE+2(2),18(R1)     ADD REMOTE NUMBER               R1056000
00102E 9540 D087      00087        3755          CLI   RMESSAGE+3,C' '     TEST REMOTE NUMBER                   R1058000
001032 4770 822C      0103C        3756          BNE   RDCTSRCH            BRANCH IF TWO DIGITS                 R1060000
001036 D204 D087 83C1 00087 011D1  3757          MVC   RMESSAGE+3(5),RRRMRD1+4  SET UP ONE-DIGIT NAME           R1062000
00103C 4110 B0DC      000DC        3758 RDCTSRCH LA    R1,$DCTPOOL-(DCTCHAIN-DCTDSECT)  SET UP FOR DCT SEARCH   R1064000
                            00000  3759          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         R1066000
001040 5810 1014      00014        3760 RDCTNEXT L     R1,DCTCHAIN         GET NEXT DCT                         R1068000
001044 1211                        3761          LTR   R1,R1               TEST DCT ADDRESS                     R1070000
001046 4780 8260      01070        3762          BZ    RILLROUT            ILLEGAL IF END OF CHAIN              R1072000

00104A 9500 1012      00012        3763          CLI   DCTDEVTP,DCTDA      TEST DEVICE TYPE                     R1074000

00104E 4780 8260      01070        3764          BE    RILLROUT            ILLEGAL IF DIRECT ACCESS             R1076000
001052 D507 1018 D084 00018 00084  3765          CLC   DCTDEVN,RMESSAGE    COMPARE DEVICE NAMES                 R1078000

001058 4770 8230      01040        3766          BNE   RDCTNEXT            BRANCH IF NO MATCH                   R1080000
00105C 4310 1011      00011        3767          IC    R1,DCTNO            R1 = DEVICE ROUTE CODE               R1082000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3768          DROP  R1                  DROP DCT ADDRESSABILITY              R1084000
001060 4210 7000      00000        3769 RSETROUT STC   R1,0(,RL2)          SET ROUTE CODE                       R1086000
001064 9203 D058      00058        3770          MVI   RCARDID,X'03'       INDICATE INTERNALLY GENERATED CARD   R1088000
001068 4170 C08A      0008A        3771          LA    RL2,RSCANCHK        LOAD ADDRESS OF EXIT                 R1090000
                                   3772         $RETURN                     AND RETURN                          R1092000
00106C 45E0 B088      00088        3773+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000






001070 925C 5000      00000        3775 RILLROUT MVI   0(RPI),C'*'         FILL OUT CARD IMAGE                  R1096000
001074 D24E 5001 5000 00001 00000  3776          MVC   1(79,RPI),0(RPI)     WITH ASTERISKS                      R1098000

00107A D215 501D 83C8 0001D 011D8  3777          MVC   (80-22)/2(22,RPI),RRILEGAL+2  MOVE IN ERROR MESSAGE      R1100000

001080 9213 D058      00058        3778          MVI   RCARDID,X'13'       FORCE                                R1102000
001084 4560 C692      00692        3779          BAL   RL1,RPUTOLAY         DOUBLE SPACE                        R1104000
001088 9219 D058      00058        3780          MVI   RCARDID,X'19'       FORCE SPACES AFTER WRITE             R1106000
00108C 4560 C692      00692        3781          BAL   RL1,RPUTOLAY        ADD ERROR MESSAGE TO OUTPUT FILE     R1108000
001090 D217 D084 83C6 00084 011D6  3782          MVC   RMESSAGE(L'RRILEGAL),RRILEGAL   SET UP ERROR MESSAGE     R1110000
001096 0570                        3783          BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R1112000
                                   3784         $WTO   RMESSAGE,L'RRILEGAL,JOB=YES,WAIT=RNOCMB,   ISSUE ERROR  CR1114000
                                                       ROUTE=$LOG+$UR,CLASS=$TRIVIA,PRI=$ST         MESSAGE     R1116000
001098 4110 D084      00084        3785+         LA    R1,RMESSAGE                                              DG012000
00109C                             3786+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
00109C 5800 8294      010A4        3787+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
0010A0 45E0 B098      00098        3788+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000

0010A4 06051814                    3789+         DC    AL1(6,$LOG+$UR,L'RRILEGAL,$TRIVIA+$ST)                   WT044000
0010A8 4780 CADC      00ADC        3790+         BC    8,RNOCMB            BRANCH IF $WTO NOT SUCCESSFUL        WT086000
0010AC 4160 82A6      010B6        3791          LA    RL1,*+10            SET RETURN ADDRESS                   R1118000

0010B0 1F68                        3792          SLR   RL1,BASE3            RELATIVE TO OVERLAY AREA            R1120000
0010B2 47F0 C916      00916        3793          B     RJOBKILL            KILL JOB                             R1122000
0010B6 4170 C274      00274        3794          LA    RL2,RFLTEST         LOAD ADDRESS OF EXIT                 R1124000
                                   3795         $RETURN                     AND RETURN                          R1126000
0010BA 45E0 B088      00088        3796+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3798 *                                                                       R1130000
                                   3799 *                             HASP SETUP CARD PROCESSING ROUTINE        R1132000
                                   3800 *                                                                       R1134000



                                   3802 RSETCARD NULL                                                           R1138000

0010BE                             3803+RSETCARD DS    0H                                                       NU006000
0010BE 1244                        3804          LTR   RBO,RBO             TEST FOR JOB                         R1140000
0010C0 4780 839A      011AA        3805          BZ    RILLCCRD            IGNORE SETUP CARD IF NOT IN A JOB    R1142000
0010C4 9140 A06B      0006B        3806          TM    JCTJBOPT,JCTSETUP   TEST FOR PREVIOUS SETUP CARD         R1144000

0010C8 4710 82EC      010FC        3807          BO    RMSGCARD            TREAT AS MESSAGE CARD IF NOT FIRST   R1146000
0010CC D22B D084 83DE 00084 011EE  3808          MVC   RMESSAGE(L'RSETMSG),RSETMSG        SET UP MESSAGE        R1148000
0010D2 D203 D088 A06C 00088 0006C  3809          MVC   RMESSAGE+4(L'JCTJOBEB),JCTJOBEB    ADD JOB NUMBER        R1150000
0010D8 0570                        3810          BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R1152000
                                   3811         $WTO   RMESSAGE,L'RSETMSG,JOB=NO,WAIT=RNOCMB, ISSUE SETUP      CR1154000
                                                       ROUTE=$LOG+$TAPE+$MAIN,CLASS=$ACTION,PRI=$ST MESSAGE     R1156000

0010DA 4110 D084      00084        3812+         LA    R1,RMESSAGE                                              DG012000
0010DE 0700                        3813+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
0010E0 5800 82D8      010E8        3814+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
0010E4 45E0 B098      00098        3815+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
0010E8 04312C54                    3816+         DC    AL1(4,$LOG+$TAPE+$MAIN,L'RSETMSG,$ACTION+$ST)            WT044000
0010EC 4780 CADC      00ADC        3817+         BC    8,RNOCMB            BRANCH IF $WTO NOT SUCCESSFUL        WT086000
0010F0 5810 D0B8      000B8        3818          L     R1,RJOB             GET ADDRESS OF JOB QUEUE ELEMENT     R1158000
0010F4 9640 1004      00004        3819          OI    QUEFLAGS(R1),QUEHOLD1    PLACE JOB IN HOLD STATUS        R1160000

0010F8 9640 A06B      0006B        3820          OI    JCTJBOPT,JCTSETUP   INDICATE SETUP CARD(S) PRESENT       R1162000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   81



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3822 *                                                                       R1166000
                                   3823 *                             HASP MESSAGE CARD PROCESSING ROUTINE      R1168000
                                   3824 *                                                                       R1170000



                                   3826 RMSGCARD NULL                                                           R1174000
0010FC                             3827+RMSGCARD DS    0H                                                       NU006000
0010FC 1244                        3828          LTR   RBO,RBO             TEST FOR JOB                         R1176000

0010FE 4780 831C      0112C        3829          BZ    RMSGSCAN            BRANCH IF NO JOB                     R1178000
001102 9110 D05C      0005C        3830          TM    RDRSW,ROSINSW       TEST FOR O/S INPUT DATA SET          R1180000
001106 4710 82FE      0110E        3831          BO    *+8                 BRANCH IF YES                        R1182000
00110A 9204 D058      00058        3832          MVI   RCARDID,X'04'       NO, INDICATE SUPERFLUOUS CARD        R1184000
00110E 4560 C692      00692        3833          BAL   RL1,RPUTOLAY        ADD CARD TO OUTPUT FILE              R1186000

001112 9118 D05C      0005C        3834          TM    RDRSW,RJCLSW+ROSINSW     TEST FOR JCL OR O/S DATA SET    R1188000
001116 4770 830E      0111E        3835          BNZ   *+8                      BRANCH IF EITHER                R1190000
00111A 4560 C692      00692        3836          BAL   RL1,RPUTOLAY        TERMINATE DATA SET                   R1192000

00111E 94EF D05C      0005C        3837          NI    RDRSW,255-ROSINSW   RESET O/S INPUT DATA SET SWITCH      R1194000
001122 9608 D05C      0005C        3838          OI    RDRSW,RJCLSW        SET JCL SWITCH                       R1196000
001126 D24C A168 5002 00168 00002  3839          MVC   JCTWORK(77),2(RPI)  SAVE CARD IMAGE                      R1198000
00112C 4100 003C      0003C        3840 RMSGSCAN LA    R0,60               SET MAXIMUM SCAN LENGTH              R1200000
001130 4120 5002      00002        3841          LA    RW,2(,RPI)          SET SCAN START                       R1202000
001134 9540 2009      00009        3842 RMSGSTST CLI   9(RW),C' '          SCAN                                 R1204000
001138 4770 8338      01148        3843          BNE   RMSGSTRT             FOR                                 R1206000

00113C 4120 2001      00001        3844          LA    RW,1(,RW)             FIRST                              R1208000
001140 4600 8324      01134        3845          BCT   R0,RMSGSTST            NON-BLANK                         R1210000
001144 47F0 8378      01188        3846          B     RMSGCNVT            IGNORE IF ALL BLANK                  R1212000
001148 D203 2000 CBCB 00000 00BCB  3847 RMSGSTRT MVC   0(4,RW),RJOBCON     SET UP                               R1214000
00114E D203 2004 A06C 00004 0006C  3848          MVC   4(4,RW),JCTJOBEB     JOB NUMBER                          R1216000

001154 9240 2008      00008        3849          MVI   8(RW),C' '          ADD TRAILING BLANK                   R1218000
001158 1244                        3850          LTR   RBO,RBO             TEST FOR JOB                         R1220000
00115A 4770 8358      01168        3851          BNZ   RMSGWTO             BRANCH IF PROCESSING JOB             R1222000
00115E 5810 D058      00058        3852          L     R1,RDRDCT                     REPLACE JOB NUMBER         R1224000

001162 D207 2000 1018 00000 00018  3853          MVC   0(8,RW),DCTDEVN-DCTDSECT(R1)   WITH DEVICE NAME          R1226000
001168 0570                        3854 RMSGWTO  BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R1228000
00116A 4100 5047      00047        3855          LA    R0,71(,RPI)         GENERATE                             R1230000
00116E 1B02                        3856          SR    R0,RW                MESSAGE LENGTH                      R1232000
                                   3857         $WTO   (RW),(R0),JOB=NO,WAIT=RNOCMB,               ISSUE       CR1234000
                                                       ROUTE=$LOG+$TAPE+$MAIN,CLASS=$ACTION,PRI=$ST MESSAGE     R1236000

001170 1812                        3858+         LR    R1,RW                                                    DG018000
001172 8900 0008      00008        3859+         SLL   R0,8                SET UP MESSAGE LENGTH                WT050000
001176 0700                        3860+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT052000
001178 5600 8370      01180        3861+         O     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT054000
00117C 45E0 B098      00098        3862+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT056000

001180 04310054                    3863+         DC    AL1(4,$LOG+$TAPE+$MAIN,0,$ACTION+$ST)                    WT058000
001184 4780 CADC      00ADC        3864+         BC    8,RNOCMB            BRANCH IF $WTO NOT SUCCESSFUL        WT086000
001188 4170 C00C      0000C        3865 RMSGCNVT LA    RL2,RNXTCRD         LOAD ADDRESS OF EXIT                 R1238000
00118C 1244                        3866          LTR   RBO,RBO             TEST FOR JOB                         R1240000
00118E 4780 8396      011A6        3867          BZ    RMSGRET             IGNORE CARD IF NO JOB                R1242000

001192 D201 5001 CCFC 00001 00CFC  3868          MVC   1(2,RPI),=C'/*'     CONVERT /* CARD                      R1244000
001198 D24C 5003 A168 00003 00168  3869          MVC   3(77,RPI),JCTWORK    TO //* CARD                         R1246000
00119E 9203 D058      00058        3870          MVI   RCARDID,X'03'       INDICATE INTERNALLY GENERATED CARD   R1248000
0011A2 4170 C08A      0008A        3871          LA    RL2,RSCANCHK        LOAD ADDRESS OF EXIT                 R1250000
                                   3872 RMSGRET $RETURN                     AND RETURN                          R1252000

0011A6 45E0 B088      00088        3873+RMSGRET  BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0011AA 4170 C05E      0005E        3875 RILLCCRD LA    RL2,RNOTCCRD        LOAD ADDRESS OF EXIT                 R1256000
                                   3876         $RETURN                     AND RETURN                          R1258000

0011AE 45E0 B088      00088        3877+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000





                                   3879 *                                                                       R1262000
                                   3880 *                             HASP CONTROL CARD SCAN CONSTANTS          R1264000
                                   3881 *                                                                       R1266000




0011B2 D7D9C9D5E340                3883 RRPRINT  DC    CL6'PRINT'          HASP                                 R1270000
0011B8 D7E4D5C3C840                3884 RRPUNCH  DC    CL6'PUNCH'           ROUTE                               R1272000
0011BE D3D6C3C1D340                3885 RRLOCAL  DC    CL6'LOCAL'            CARD                               R1274000

0011C4 D9C5D4D6E3C5                3886 RRREMOTE DC    CL6'REMOTE'            SCAN                              R1276000
0011CA D9D4E3                      3887 RRRMT    DC    CL3'RMT'                CONSTANTS                        R1278000
0011CD D9D4D5D54BD9C4F1            3888 RRRMRD1  DC    CL9'RMNN.RD1'            *                               R1280000






                                   3890 *                                                                       R1284000
                                   3891 *                             OPERATOR AND ERROR MESSAGES               R1286000
                                   3892 *                                                                       R1288000



0011D6 606040C9D3D3C5C7            3894 RRILEGAL DC    C'-- ILLEGAL /*ROUTE CARD '                              R1292000
                            011E1  3895 ROUTCODE EQU   RRILEGAL+11         /*ROUTE EBCDIC CONSTANT              R1294000

0011EE D1D6C240D5D5D5D5            3896 RSETMSG  DC    C'JOB NNNN HELD FOR THE FOLLOWING VOLUME(S) --'          R1296000





                                   3898          DROP  BASE3               DROP OVERLAY ADDRESSABILITY          R1300000

RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3900 HASPRCC2 $OVERLAY &MED,&MED        DEFINE SECOND CONTROL CARD SCAN      R1304000
001220                             3901+HA$ORCC2 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            01228  3902+HA$IRCC2 EQU   HA$ORCC2+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   3903+         ENTRY HA$IRCC2                                                 OV036000
001220 D9C3C3F2                    3904+         DC    CL4'RCC2'           IDENTIFY MODULE ON CORE DUMP         OV038000
001224 00001220                    3905+         DC    A(HA$ORCC2)         ASSEMBLY ORIGIN                      OV040000
001228                             3906+HASPRCC2 DS    0F                  ENTRY POINT                          OV042000
                            011C8  3907+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000






                                   3909 *                                                                       R1308000
                                   3910 *                             DETERMINE TYPE OF CONTROL CARD            R1310000
                                   3911 *                                                                       R1312000




001228 9500 2002      00002        3913          CLI   RCCTBNDX-RCCTAB(RW),0    TEST CONTROL CARD INDEX         R1316000
00122C 4780 8162      0132A        3914          BE    ROTPCARD            BRANCH IF HASP OUTPUT CARD           R1318000
                                   3915 *                                  MUST BE HASP JOBPARM CARD            R1320000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   84



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3917 *                                                                       R1324000
                                   3918 *                             HASP JOBPARM CARD PROCESSING ROUTINE      R1326000
                                   3919 *                                                                       R1328000



001230 1244                        3921          LTR   RBO,RBO             TEST FOR JOB                         R1332000
001232 4780 836A      01532        3922          BZ    RINVCCRD            IGNORE JOBPARM CARD IF NOT IN JOB    R1334000
001236 9110 D05C      0005C        3923          TM    RDRSW,ROSINSW       TEST FOR O/S INPUT DATA SET          R1336000

00123A 4710 807A      01242        3924          BO    *+8                 BRANCH IF YES                        R1338000
00123E 9204 D058      00058        3925          MVI   RCARDID,X'04'       NO, INDICATE SUPERFLUOUS CARD        R1340000

001242 4560 C692      00692        3926          BAL   RL1,RPUTOLAY        ADD JOBPARM CARD TO OUTPUT FILE      R1342000
001246 9118 D05C      0005C        3927          TM    RDRSW,RJCLSW+ROSINSW     TEST FOR JCL OR O/S DATA SET    R1344000
00124A 4770 808A      01252        3928          BNZ   *+8                      BRANCH IF EITHER                R1346000
00124E 4560 C692      00692        3929          BAL   RL1,RPUTOLAY        TERMINATE DATA SET                   R1348000
001252 94EF D05C      0005C        3930          NI    RDRSW,255-ROSINSW   RESET O/S INPUT DATA SET SWITCH      R1350000

001256 9608 D05C      0005C        3931          OI    RDRSW,RJCLSW        SET JCL SWITCH                       R1352000
00125A 4110 8100      012C8        3932          LA    R1,RJPTABLE         GET ADDRESS OF JOBPARM SCAN TABLE    R1354000
00125E 4120 5008      00008        3933          LA    RW,8(,RPI)          SET UP                               R1356000
001262 41E0 0001      00001        3934          LA    R14,1                REGISTERS                           R1358000
001266 41F0 5046      00046        3935          LA    R15,70(,RPI)          FOR SCAN SUBROUTINE                R1360000
00126A 4560 C74C      0074C        3936          BAL   RL1,RKEYSCAN        SCAN PARAMETERS                      R1362000
00126E 47F0 80AE      01276        3937          B     RILLJOBP            ILLEGAL JOBPARM CARD                 R1364000
001272 47F0 82AA      01472        3938          B     ROPSHIFT            CONVERT CARD TO //* CARD AND EXIT    R1366000







001276 925C 5000      00000        3940 RILLJOBP MVI   0(RPI),C'*'         FILL OUT CARD IMAGE                  R1370000
00127A D24E 5001 5000 00001 00000  3941          MVC   1(79,RPI),0(RPI)     WITH ASTERISKS                      R1372000
001280 D217 501C 839E 0001C 01566  3942          MVC   (80-24)/2(24,RPI),RJINVLID+2  MOVE IN ERROR MESSAGE      R1374000
001286 9213 D058      00058        3943          MVI   RCARDID,X'13'       FORCE                                R1376000
00128A 4560 C692      00692        3944          BAL   RL1,RPUTOLAY         DOUBLE SPACES                       R1378000

00128E 9219 D058      00058        3945          MVI   RCARDID,X'19'       FORCE SPACES AFTER WRITE             R1380000
001292 4560 C692      00692        3946          BAL   RL1,RPUTOLAY        ADD ERROR MESSAGE TO OUTPUT FILE     R1382000
001296 D219 D084 839C 00084 01564  3947          MVC   RMESSAGE(L'RJINVLID),RJINVLID  SET UP ERROR MESSAGE      R1384000
00129C 0570                        3948          BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R1386000
                                   3949         $WTO   RMESSAGE,L'RJINVLID,JOB=YES,WAIT=RNOCMB,   ISSUE ERROR  CR1388000
                                                       ROUTE=$LOG+$UR,CLASS=$TRIVIA,PRI=$ST         MESSAGE     R1390000
00129E 4110 D084      00084        3950+         LA    R1,RMESSAGE                                              DG012000
0012A2 0700                        3951+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
0012A4 5800 80E4      012AC        3952+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
0012A8 45E0 B098      00098        3953+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000

0012AC 06051A14                    3954+         DC    AL1(6,$LOG+$UR,L'RJINVLID,$TRIVIA+$ST)                   WT044000

0012B0 4780 CADC      00ADC        3955+         BC    8,RNOCMB            BRANCH IF $WTO NOT SUCCESSFUL        WT086000
0012B4 4160 80F6      012BE        3956          LA    RL1,*+10            SET RETURN ADDRESS                   R1392000
0012B8 1F68                        3957          SLR   RL1,BASE3            RELATIVE TO OVERLAY AREA            R1394000
0012BA 47F0 C916      00916        3958          B     RJOBKILL            KILL JOB                             R1396000

0012BE 4170 C274      00274        3959          LA    RL2,RFLTEST         LOAD ADDRESS OF EXIT                 R1398000
                                   3960         $RETURN                     AND RETURN                          R1400000
0012C2 45E0 B088      00088        3961+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3963 *                                                                       R1404000
                                   3964 *                             HASP JOBPARM SCAN TABLE                   R1406000
                                   3965 *                                                                       R1408000



0012C8                             3967 RJPTABLE DS    0F                                                       R1412000
0012C8 4040C3C1D9C4E2C3            3968          DC    CL7'  CARDS',C'C'   ESTIMATED CARD COUNT                 R1414000

0012D0 410400AC                    3969          DC    AL1(RSCFLBIN+1,4),AL2(JCTESTPU-JCTDSECT)                 R1416000
0012D4                             3970          DS    0F                                                       R1418000
0012D4 40C3D6D7C9C5E2D5            3971          DC    CL7' COPIES',C'N'   JOB COPY COUNT                       R1420000
0012DC 410100B5                    3972          DC    AL1(RSCFLBIN+1,1),AL2(JCTCPYCT-JCTDSECT)                 R1422000

0012E0                             3973          DS    0F                                                       R1424000
0012E0 4040C6D6D9D4E2C6            3974          DC    CL7'  FORMS',C'F'   JOB OUTPUT FORMS                     R1426000
0012E8 310400B0                    3975          DC    AL1(RSCFLEFT+RSCFLBLK+1,4),AL2(JCTFORMS-JCTDSECT)        R1428000
0012EC                             3976          DS    0F                                                       R1430000
0012EC 40D3C9D5C5C3E3D2            3977          DC    CL7' LINECT',C'K'   LINES PER PAGE SPECIFICATION         R1432000
0012F4 410100B7                    3978          DC    AL1(RSCFLBIN+1,1),AL2(JCTLINCT-JCTDSECT)                 R1434000
0012F8                             3979          DS    0F                                                       R1436000
0012F8 4040D3C9D5C5E2D3            3980          DC    CL7'  LINES',C'L'   ESTIMATED LINE COUNT (THOUSANDS)     R1438000
001300 410400A8                    3981          DC    AL1(RSCFLBIN+1,4),AL2(JCTESTLN-JCTDSECT)                 R1440000
001304                             3982          DS    0F                                                       R1442000
001304 4040D5D6D3D6C7D1            3983          DC    CL7'  NOLOG',C'J'   NO HASP JOB LOG OPTION               R1444000
00130C 0010006B                    3984          DC    AL1(0,JCTNOLOG),AL2(JCTJBOPT-JCTDSECT)                   R1446000

001310                             3985          DS    0F                                                       R1448000
001310 404040D9D6D6D4D9            3986          DC    CL7'   ROOM',C'R'   ROOM NUMBER                          R1450000
001318 310400A0                    3987          DC    AL1(RSCFLEFT+RSCFLBLK+1,4),AL2(JCTROOMN-JCTDSECT)        R1452000

00131C                             3988          DS    0F                                                       R1454000
00131C 404040E3C9D4C5E3            3989          DC    CL7'   TIME',C'T'   ESTIMATED TIME (MINUTES)             R1456000
001324 410400A4                    3990          DC    AL1(RSCFLBIN+1,4),AL2(JCTETIME-JCTDSECT)                 R1458000
001328                             3991          DS    0F                                                       R1460000
001328 FF                          3992          DC    X'FF'               END OF JOBPARM SCAN TABLE            R1462000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3994 *                                                                       R1466000
                                   3995 *                             HASP OUTPUT CARD PROCESSING ROUTINE       R1468000
                                   3996 *                                                                       R1470000



                                   3998 ROTPCARD NULL                                                           R1474000

00132A                             3999+ROTPCARD DS    0H                                                       NU006000

00132A 1244                        4000          LTR   RBO,RBO             TEST FOR JOB                         R1476000
00132C 4780 836A      01532        4001          BZ    RINVCCRD            IGNORE OUTPUT CARD IF NOT IN JOB     R1478000

001330 9110 D05C      0005C        4002          TM    RDRSW,ROSINSW       TEST FOR O/S INPUT DATA SET          R1480000
001334 4710 8174      0133C        4003          BO    *+8                 BRANCH IF YES                        R1482000
001338 9204 D058      00058        4004          MVI   RCARDID,X'04'       NO, INDICATE SUPERFLUOUS CARD        R1484000
00133C 4560 C692      00692        4005          BAL   RL1,RPUTOLAY        ADD OUTPUT CARD TO OUTPUT FILE       R1486000
001340 9118 D05C      0005C        4006          TM    RDRSW,RJCLSW+ROSINSW     TEST FOR JCL OR O/S DATA SET    R1488000
001344 4770 8184      0134C        4007          BNZ   *+8                      BRANCH IF EITHER                R1490000
001348 4560 C692      00692        4008          BAL   RL1,RPUTOLAY        TERMINATE DATA SET                   R1492000
00134C 94EF D05C      0005C        4009          NI    RDRSW,255-ROSINSW   RESET O/S INPUT DATA SET SWITCH      R1494000
001350 9608 D05C      0005C        4010          OI    RDRSW,RJCLSW        SET JCL SWITCH                       R1496000
001354 4120 5007      00007        4011          LA    RW,7(,RPI)          SET UP                               R1498000
001358 41E0 0001      00001        4012          LA    R14,1                REGISTERS                           R1500000
00135C 41F0 5046      00046        4013          LA    R15,70(,RPI)          FOR CARD SCAN                      R1502000

001360 862E 82C2      0148A        4014          BXH   RW,R14,RILLOUPT     SEARCH FOR                           R1504000
001364 9540 2001      00001        4015          CLI   1(RW),C' '           START OF                            R1506000

001368 4780 8198      01360        4016          BE    *-8                   FORMS CODE                         R1508000

00136C D204 A168 2001 00168 00001  4017          MVC   JCTWORK(5),1(RW)    SET UP FORMS CODE                    R1510000
001372 92BF A16D      0016D        4018          MVI   JCTWORK+5,X'BF'     ADD TERMINATOR                       R1512000
001376 4110 A168      00168        4019          LA    R1,JCTWORK          SEARCH                               R1514000
00137A 862E 82C2      0148A        4020 ROPSCAN  BXH   RW,R14,RILLOUPT      FOR                                 R1516000
00137E 4110 1001      00001        4021          LA    R1,1(,R1)             FIRST                              R1518000
001382 91BF 1000      00000        4022          TM    0(R1),X'BF'            BLANK                             R1520000
001386 4740 81B2      0137A        4023          BM    ROPSCAN             BRANCH IF NOT BLANK                  R1522000
00138A 4710 82C2      0148A        4024          BO    RILLOUPT            BRANCH IF MORE THAN FOUR CHARACTERS  R1524000
00138E D201 1001 1000 00001 00000  4025          MVC   1(2,R1),0(R1)       BLANK FILL                           R1526000
001394 9200 A16C      0016C        4026          MVI   JCTWORK+4,0         CLEAR REST                           R1528000
001398 D232 A16D A16C 0016D 0016C  4027          MVC   JCTWORK+5(51),JCTWORK+4  OF WORK AREA                    R1530000
00139E 4110 8314      014DC        4028          LA    R1,ROPTABLE         GET ADDRESS OF OUTPUT SCAN TABLE     R1532000

0013A2 4560 C74C      0074C        4029          BAL   RL1,RKEYSCAN        SCAN PARAMETERS                      R1534000
0013A6 47F0 82C2      0148A        4030          B     RILLOUPT            ILLEGAL OUTPUT CARD                  R1536000




0013AA 4100 0004      00004        4032          LA    R0,4                CONVERT DESTINATIONS TO ROUTE CODES  R1540000
0013AE 4110 A180      00180        4033          LA    R1,JCTWORK+OCRDEST1-OCRDSECT  GET ADDRESS OF FIRST DEST  R1542000
0013B2 1821                        4034          LR    RW,R1               GET ADDRESS OF FIRST ROUTE CODE      R1544000



0013B4 9500 1000      00000        4036 ROPDEST1 CLI   0(R1),0             TEST NEXT FIELD                      R1548000
0013B8 4780 8286      0144E        4037          BE    ROPDEST7            BRANCH IF NO DESTINATION             R1550000
0013BC 1BEE                        4038          SR    R14,R14             ASSUME LOCAL ROUTING                 R1552000
0013BE D505 8372 1000 0153A 00000  4039          CLC   ROPLOCAL,0(R1)      TEST                                 R1554000
0013C4 4780 8276      0143E        4040          BE    ROPDEST6            BRANCH IF LOCAL ROUTING              R1556000
0013C8 41F0 1003      00003        4041          LA    R15,3(,R1)          ASSUME REMOTE ROUTING                R1558000
0013CC D505 8378 1000 01540 00000  4042          CLC   ROPREMOT,0(R1)      TEST AGAIN                           R1560000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   87



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0013D2 4780 8238      01400        4043          BE    ROPDEST3            BRANCH IF REMOTE ROUTING             R1562000
0013D6 18F1                        4044          LR    R15,R1              ASSUME RMT ROUTING                   R1564000
0013D8 D502 837E 1000 01546 00000  4045          CLC   ROPRMT,0(R1)        TEST AGAIN                           R1566000

0013DE 4780 8238      01400        4046          BE    ROPDEST3            BRANCH IF RMT ROUTING                R1568000
0013E2 D504 8381 1000 01549 00000  4047          CLC   ROPRINT,0(R1)       TEST AGAIN                           R1570000
0013E8 4780 822E      013F6        4048          BE    ROPDEST2            BRANCH IF LOCAL PRINTER              R1572000
0013EC D504 8386 1000 0154E 00000  4049          CLC   ROPUNCH,0(R1)       ONE MORE TIME                        R1574000
0013F2 4770 82C2      0148A        4050          BNE   RILLOUPT            ILLEGAL IF NOT LOCAL PUNCH           R1576000
0013F6 D207 D084 1000 00084 00000  4051 ROPDEST2 MVC   RMESSAGE(8),0(R1)   SET UP DEVICE NAME                   R1578000

0013FC 47F0 8252      0141A        4052          B     ROPDEST4            SEARCH DCT'S                         R1580000


001400 D207 D084 838B 00084 01553  4054 ROPDEST3 MVC   RMESSAGE(8),ROPRMRD1     SET UP FOR REMOTE SEARCH        R1584000
001406 D201 D086 F003 00086 00003  4055          MVC   RMESSAGE+2(2),3(R15)     ADD REMOTE NUMBER               R1586000
00140C 9540 D087      00087        4056          CLI   RMESSAGE+3,C' '     TEST REMOTE NUMBER                   R1588000
001410 4770 8252      0141A        4057          BNE   ROPDEST4            BRANCH IF TWO DIGITS                 R1590000
001414 D204 D087 838F 00087 01557  4058          MVC   RMESSAGE+3(5),ROPRMRD1+4 SET UP ONE-DIGIT NAME           R1592000



00141A 41F0 B0DC      000DC        4060 ROPDEST4 LA    R15,$DCTPOOL-(DCTCHAIN-DCTDSECT)   SET UP FOR DCT SEARCH R1596000
                            00000  4061          USING DCTDSECT,R15        ESTABLISH DCT ADDRESSABILITY         R1598000



00141E 58F0 F014      00014        4063 ROPDEST5 L     R15,DCTCHAIN        GET NEXT DCT                         R1602000
001422 12FF                        4064          LTR   R15,R15             TEST DCT ADDRESS                     R1604000
001424 4780 82C2      0148A        4065          BZ    RILLOUPT            ILLEGAL IF END OF CHAIN              R1606000
001428 9500 F012      00012        4066          CLI   DCTDEVTP,DCTDA      TEST DEVICE TYPE                     R1608000
00142C 4780 82C2      0148A        4067          BE    RILLOUPT            ILLEGAL IF DIRECT ACCESS             R1610000
001430 D507 F018 D084 00018 00084  4068          CLC   DCTDEVN,RMESSAGE    COMPARE DEVICE NAMES                 R1612000
001436 4770 8256      0141E        4069          BNE   ROPDEST5            BRANCH IF NO MATCH                   R1614000

00143A 43E0 F011      00011        4070          IC    R14,DCTNO           GET DEVICE ROUTE CODE                R1616000
                                   4071          DROP  R15                 DROP DCT ADDRESSABILITY              R1618000


00143E 40E0 2000      00000        4073 ROPDEST6 STH   R14,0(,RW)          SET ROUTE CODE                       R1622000
001442 4110 1008      00008        4074          LA    R1,8(,R1)           GET ADDRESS OF NEXT DESTINATION      R1624000

001446 4120 2002      00002        4075          LA    RW,2(,RW)           GET ADDRESS OF NEXT ROUTE CODE       R1626000
00144A 4600 81EC      013B4        4076          BCT   R0,ROPDEST1         PROCESS NEXT DESTINATION             R1628000




00144E D207 2000 8394 00000 0155C  4078 ROPDEST7 MVC   0(8,RW),ROPNULL     SET REMAINING ROUTE CODES TO NULL    R1632000
001454 9200 A188      00188        4079          MVI   JCTWORK+32,0        CLEAR REST OF                        R1634000
001458 D22E A189 A188 00189 00188  4080          MVC   JCTWORK+33(47),JCTWORK+32     OUTPUT CONTROL RECORD      R1636000



00145E 5050 D078      00078        4082          ST    RPI,RSAVE1          SAVE CURRENT INPUT POINTER           R1640000
001462 4150 A168      00168        4083          LA    RPI,JCTWORK         GET ADDRESS OF OUTPUT CONTROL RECORD R1642000
001466 9243 D058      00058        4084          MVI   RCARDID,X'43'       INDICATE OUTPUT CONTROL RECORD       R1644000

00146A 4560 C692      00692        4085          BAL   RL1,RPUTOLAY        ADD CARD TO OUTPUT FILE              R1646000
00146E 5850 D078      00078        4086          L     RPI,RSAVE1          RESTORE INPUT POINTER                R1648000



RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


001472 D24E A168 5000 00168 00000  4088 ROPSHIFT MVC   JCTWORK(79),0(RPI)  CONVERT /* CARD                      R1652000
001478 D24E 5001 A168 00001 00168  4089          MVC   1(79,RPI),JCTWORK    TO //* CARD                         R1654000
00147E 9203 D058      00058        4090          MVI   RCARDID,X'03'       INDICATE INTERNALLY GENERATED CARD   R1656000
001482 4170 C08A      0008A        4091          LA    RL2,RSCANCHK        LOAD ADDRESS OF EXIT                 R1658000

                                   4092         $RETURN                     AND RETURN                          R1660000
001486 45E0 B088      00088        4093+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000





00148A 925C 5000      00000        4095 RILLOUPT MVI   0(RPI),C'*'         FILL OUT CARD IMAGE                  R1664000
00148E D24E 5001 5000 00001 00000  4096          MVC   1(79,RPI),0(RPI)     WITH ASTERISKS                      R1666000

001494 D216 501C 83B8 0001C 01580  4097          MVC   (80-23)/2(23,RPI),ROINVLID+2  MOVE IN ERROR MESSAGE      R1668000
00149A 9213 D058      00058        4098          MVI   RCARDID,X'13'       FORCE                                R1670000
00149E 4560 C692      00692        4099          BAL   RL1,RPUTOLAY         DOUBLE SPACES                       R1672000
0014A2 9219 D058      00058        4100          MVI   RCARDID,X'19'       FORCE SPACES AFTER WRITE             R1674000
0014A6 4560 C692      00692        4101          BAL   RL1,RPUTOLAY        ADD ERROR MESSAGE TO OUTPUT FILE     R1676000

0014AA D218 D084 83B6 00084 0157E  4102          MVC   RMESSAGE(L'ROINVLID),ROINVLID  SET UP ERROR MESSAGE      R1678000
0014B0 0570                        4103          BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R1680000
                                   4104         $WTO   RMESSAGE,L'ROINVLID,JOB=YES,WAIT=RNOCMB,   ISSUE ERROR  CR1682000
                                                       ROUTE=$LOG+$UR,CLASS=$TRIVIA,PRI=$ST         MESSAGE     R1684000
0014B2 4110 D084      00084        4105+         LA    R1,RMESSAGE                                              DG012000

0014B6 0700                        4106+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
0014B8 5800 82F8      014C0        4107+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
0014BC 45E0 B098      00098        4108+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
0014C0 06051914                    4109+         DC    AL1(6,$LOG+$UR,L'ROINVLID,$TRIVIA+$ST)                   WT044000
0014C4 4780 CADC      00ADC        4110+         BC    8,RNOCMB            BRANCH IF $WTO NOT SUCCESSFUL        WT086000

0014C8 4160 830A      014D2        4111          LA    RL1,*+10            SET RETURN ADDRESS                   R1686000
0014CC 1F68                        4112          SLR   RL1,BASE3            RELATIVE TO OVERLAY AREA            R1688000
0014CE 47F0 C916      00916        4113          B     RJOBKILL            KILL JOB                             R1690000
0014D2 4170 C274      00274        4114          LA    RL2,RFLTEST         LOAD ADDRESS OF EXIT                 R1692000
                                   4115         $RETURN                     AND RETURN                          R1694000

0014D6 45E0 B088      00088        4116+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4118 *                                                                       R1698000
                                   4119 *                             HASP OUTPUT SCAN TABLE                    R1700000

                                   4120 *                                                                       R1702000



0014DC                             4122 ROPTABLE DS    0F                                                       R1706000
0014DC 40C3D6D7C9C5E2D5            4123          DC    CL7' COPIES',C'N'   DATA SET COPY COUNT                  R1708000
0014E4 4101                        4124          DC    AL1(RSCFLBIN+1,1)                                        R1710000

0014E6 016E                        4125          DC    AL2(OCRCOPY-OCRDSECT+JCTWORK-JCTDSECT)                   R1712000
0014E8                             4126          DS    0F                                                       R1714000
0014E8 404040C4C5E2E3C4            4127          DC    CL7'   DEST',C'D'   DATA SET DESTINATION(S)              R1716000
0014F0 3408                        4128          DC    AL1(RSCFLEFT+RSCFLBLK+4,8)                               R1718000
0014F2 0180                        4129          DC    AL2(OCRDEST1-OCRDSECT+JCTWORK-JCTDSECT)                  R1720000

0014F4                             4130          DS    0F                                                       R1722000
0014F4 40404040C6C3C2C3            4131          DC    CL7'    FCB',C'C'   DATA SET FCB SPECIFICATION           R1724000
0014FC 3104                        4132          DC    AL1(RSCFLEFT+RSCFLBLK+1,4)                               R1726000
0014FE 0174                        4133          DC    AL2(OCRFCB-OCRDSECT+JCTWORK-JCTDSECT)                    R1728000
001500                             4134          DS    0F                                                       R1730000
001500 4040C6D6D9D4E2C6            4135          DC    CL7'  FORMS',C'F'   DATA SET FORMS SPECIFICATION         R1732000

001508 3104                        4136          DC    AL1(RSCFLEFT+RSCFLBLK+1,4)                               R1734000
00150A 0170                        4137          DC    AL2(OCRFORMS-OCRDSECT+JCTWORK-JCTDSECT)                  R1736000
00150C                             4138          DS    0F                                                       R1738000
00150C 4040C9D5C4C5E7C9            4139          DC    CL7'  INDEX',C'I'   DATA SET INDEX SPECIFICATION         R1740000

001514 4101                        4140          DC    AL1(RSCFLBIN+1,1)                                        R1742000
001516 016F                        4141          DC    AL2(OCRINDEX-OCRDSECT+JCTWORK-JCTDSECT)                  R1744000
001518                             4142          DS    0F                                                       R1746000
001518 4040D9C5C3D5E3D9            4143          DC    CL7'  RECNT',C'R'   DATA SET ESTIMATED RECORD COUNT      R1748000
001520 4104                        4144          DC    AL1(RSCFLBIN+1,4)                                        R1750000

001522 017C                        4145          DC    AL2(OCRRECNT-OCRDSECT+JCTWORK-JCTDSECT)                  R1752000
001524                             4146          DS    0F                                                       R1754000
001524 40404040E4C3E2E3            4147          DC    CL7'    UCS',C'T'   DATA SET UCS SPECIFICATION           R1756000
00152C 3104                        4148          DC    AL1(RSCFLEFT+RSCFLBLK+1,4)                               R1758000
00152E 0178                        4149          DC    AL2(OCRUCS-OCRDSECT+JCTWORK-JCTDSECT)                    R1760000
001530                             4150          DS    0F                                                       R1762000
001530 FF                          4151          DC    X'FF'               END OF OUTPUT SCAN TABLE             R1764000

RDR      HASP INPUT SERVICE -- CONTROL CARD SCAN ROUTINES                                                      PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001531 00

001532 4170 C05E      0005E        4153 RINVCCRD LA    RL2,RNOTCCRD        LOAD ADDRESS OF EXIT                 R1768000
                                   4154         $RETURN                     AND RETURN                          R1770000
001536 45E0 B088      00088        4155+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000






                                   4157 *                                                                       R1774000
                                   4158 *                             HASP OUTPUT CARD SCAN CONSTANTS           R1776000
                                   4159 *                                                                       R1778000



00153A D3D6C3C1D340                4161 ROPLOCAL DC    CL6'LOCAL'          HASP                                 R1782000
001540 D9C5D4D6E3C5                4162 ROPREMOT DC    CL6'REMOTE'          OUTPUT                              R1784000
001546 D9D4E3                      4163 ROPRMT   DC    CL3'RMT'              CARD                               R1786000
001549 D7D9C9D5E3                  4164 ROPRINT  DC    CL5'PRINT'             DESTINATION                       R1788000

00154E D7E4D5C3C8                  4165 ROPUNCH  DC    CL5'PUNCH'              SCAN                             R1790000
001553 D9D4D5D54BD9C4F1            4166 ROPRMRD1 DC    CL9'RMNN.RD1'            CONSTANTS                       R1792000

00155C 8000800080008000            4167 ROPNULL  DC    4XL2'8000'                *                              R1794000





                                   4169 *                                                                       R1798000
                                   4170 *                             OPERATOR AND ERROR MESSAGES               R1800000

                                   4171 *                                                                       R1802000



001564 606040C9D5E5C1D3            4173 RJINVLID DC    C'-- INVALID /*JOBPARM CARD '                            R1806000
00157E 606040C9D5E5C1D3            4174 ROINVLID DC    C'-- INVALID /*OUTPUT CARD '                             R1808000





                                   4176          DROP  BASE3               DROP OVERLAY ADDRESSABILITY          R1812000
RDR      HASP INPUT SERVICE -- JOB CARD SCAN ROUTINE                                                           PAGE   91


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4178 HASPRJCS $OVERLAY &MED,&MED        DEFINE JOB CARD SCAN OVERLAY         R1816000

001598                             4179+HA$ORJCS CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            015A0  4180+HA$IRJCS EQU   HA$ORJCS+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   4181+         ENTRY HA$IRJCS                                                 OV036000
001598 D9D1C3E2                    4182+         DC    CL4'RJCS'           IDENTIFY MODULE ON CORE DUMP         OV038000
00159C 00001598                    4183+         DC    A(HA$ORJCS)         ASSEMBLY ORIGIN                      OV040000

0015A0                             4184+HASPRJCS DS    0F                  ENTRY POINT                          OV042000
                            01540  4185+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
0015A0 5020 D078      00078        4186          ST    RW,RSAVE1           SAVE POINTER FOR JOB CARD SCAN       R1818000
0015A4 4560 C434      00434        4187          BAL   RL1,RJOBEND         TERMINATE PREVIOUS JOB               R1820000
0015A8 1B22                        4188          SR    RW,RW               PREPARE TO INITIALIZE JCT            R1822000
                                   4189          AIF   (&RJOBOPT LE 2).RFLUSWI                          OY08664 R1822500
                                   4190 .RFLUSWI ANOP                      *                            OY08664 R1823500
0015AA 4570 CA96      00A96        4191          BAL   RL2,RGETBUFO        GET A BUFFER FOR THE JCT             R1824000
0015AE 18A4                        4192          LR    JCT,RBO             SET UP JCT ADDRESSABILITY            R1826000
0015B0 D2A7 A05C A058 0005C 00058  4193          MVC   JCTIOTTR(JCTCYSAV-JCTIOTTR),JCTJQE CLEAR JCT             R1828000

                                   4194         $XXC   MVC,JCTCYSAV,JCTJQE,&CYLMAPL  CLEAR TRACK GROUP MAP      R1830000

0015B6 D263 A104 A058 00104 00058  4195+         MVC   JCTCYSAV+0(100),JCTJQE+0                                 XX050000
                                   4196         $XXC   MVC,JCTJMR,JCTJQE,&JMRSIZE    CLEAR JMR AREA             R1832000
0015BC D237 A1F8 A058 001F8 00058  4197+         MVC   JCTJMR+0(56),JCTJQE+0                                    XX050000



                                   4199         $TIME  OLAY=YES            GET CURRENT TIME                     R1836000
0015C2 4110 0001      00001        4200+         LA    1,1(0,0)                          LOAD 1 TO SPECIFY UNIT 00200000
0015C6 0A0B                        4201+         SVC   11                                ISSUE TIME SVC         00280000
0015C8 9001 A200      00200        4202          STM   R0,R1,JCTRDRON      SET JOB ENTRY TIME AND DATE          R1838000


0015CC D207 A070 5002 00070 00002  4204          MVC   JCTJNAME,2(RPI)     MOVE JOB NAME TO JCT                 R1842000
0015D2 9240 A078      00078        4205          MVI   JCTJNAME+8,C' '     ADD BLANK TO TERMINATE SCAN          R1844000
0015D6 4120 A06F      0006F        4206          LA    RW,JCTJNAME-1       SET UP FOR SCAN                      R1846000
0015DA 4120 2001      00001        4207 RJSETJN  LA    RW,1(,RW)           SCAN JOB NAME                        R1848000
0015DE 9540 2000      00000        4208          CLI   0(RW),C' '           FOR FIRST BLANK                     R1850000
0015E2 4770 809A      015DA        4209          BNE   RJSETJN             BRANCH IF NOT BLANK                  R1852000

0015E6 D206 2001 2000 00001 00000  4210          MVC   1(7,RW),0(RW)       BLANK OUT REST OF JOB NAME           R1854000
0015EC D707 A078 A078 00078 00078  4211          XC    JCTJNAME+8(8),JCTJNAME+8 CLEAR SUPERFLUOUS BLANKS        R1856000
0015F2 D602 B141 B141 00141 00141  4212 CHKFREQ  OC    $JQFREE+1(3),$JQFREE+1  ARE ANY FREE QUEUES LEFT OY10158 R1856200
0015F8 4770 80C8      01608        4213          BNZ   GETJOBNO            BIF YES - GO ASSIGN IT       OY10158 R1856400

                                   4214          $WAIT JOB,OLAY=YES        ELSE, WAIT FOR JQE           OY10158 R1856600
0015FC 9610 D048      00048        4215+         OI    PCEEWF+$EWBJOB,$EWFJOB                                   WA016000
001600 45F0 B030      00030        4216+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
001604 47F0 80B2      015F2        4217          B     CHKFREQ             HI-PRI RDR MAY HAVE JOB #    OY10158 R1856800


                                   4219 GETJOBNO NULL                                                   OY10158 R1858500
001608                             4220+GETJOBNO DS    0H                                                       NU006000
001608 4820 B14C      0014C        4221          LH    RW,$JOBNO           INCREMENT                            R1860000
00160C 4120 2001      00001        4222 RINCJOBN LA    RW,1(,RW)            JOB NUMBER                          R1862000
001610 5520 C3D4      003D4        4223          CL    RW,RDR10000         COMPARE WITH MAXIMUM                 R1864000
001614 4740 80DC      0161C        4224          BL    RSETJOBN            BRANCH IF LESS                       R1866000
001618 4120 0001      00001        4225          LA    RW,1                OVERFLOW, RESET TO 1                 R1868000

                                   4226 RSETJOBN $QLOC (RW),OLAY=YES       TEST FOR DUPLICATE JOB NUMBER        R1870000
00161C 1812                        4227+RSETJOBN LR    R1,RW                                                    DG018000
00161E 45E0 B05C      0005C        4228+         BAL   LINK,$QLOC          LINK TO CONTROL SERVICE PROGRAM      QL010000

001622 4770 80CC      0160C        4229          BNZ   RINCJOBN            INCREMENT AGAIN IF DUPLICATE         R1872000
RDR      HASP INPUT SERVICE -- JOB CARD SCAN ROUTINE                                                           PAGE   92


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001626 4020 B14C      0014C        4230          STH   RW,$JOBNO           UPDATE MASTER JOB NUMBER             R1874000


00162A 4E20 CBA8      00BA8        4232          CVD   RW,RTEMP            CONVERT JOB NUMBER TO DECIMAL        R1878000
00162E D203 A06C CBAC 0006C 00BAC  4233          MVC   JCTJOBEB,RTEMP+4     AND SAVE                            R1880000
001634 D207 CBA8 C3E4 00BA8 003E4  4234          MVC   RTEMP,REDITMSK      SET EDIT MASK                        R1882000
00163A DE07 CBA8 A06C 00BA8 0006C  4235          ED    RTEMP,JCTJOBEB      CONVERT JOB NUMBER TO EBCDIC         R1884000
001640 D203 A06C CBAC 0006C 00BAC  4236          MVC   JCTJOBEB,RTEMP+8-L'JCTJOBEB   SET JCT JOB NUMBER         R1886000


                                   4238          XC    RMESSAGE(&QENTSIZ),RMESSAGE   CLEAR JOB QUEUE ELEMENT    R1890000

001646 D70F D084 D084 00084 00084  4239+         XC    RMESSAGE(16),RMESSAGE         CLEAR JOB QUEUE ELEMENT    R1890000

00164C 92FF D084      00084        4240          MVI   RMESSAGE+QUEPRIO,X'FF'   SET FLUSH PRIORITY              R1892000
001650 4020 D086      00086        4241          STH   RW,RMESSAGE+QUEJOBNO     SET JOB NUMBER                  R1894000

                                   4242         $TRACK RJCTCYMX,OLAY=YES   GET TRACK ADDRESS FOR JCT            R1896000
001654 4110 A0FC      000FC        4243+         LA    R1,RJCTCYMX                                              DG012000
001658 41E0 8122      01662        4244+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
00165C 1FE8                        4245+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
00165E 47F0 B064      00064        4246+         B     $TRACK              BRANCH TO CONTROL SERVICE PROGRAM    BA018000
001662 5010 D08C      0008C        4247          ST    R1,RMESSAGE+QUETRAK      SET JCT TRACK ADDRESS           R1898000
001666 5810 D058      00058        4248          L     R1,RDRDCT           R1 = ADDRESS OF INPUT DCT            R1900000
                            00000  4249          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         R1902000
00166A D201 D090 1020 00090 00020  4250          MVC   RMESSAGE+QUEPRTRT(2),DCTPRINT SET DEFAULT ROUTE CODES    R1904000
                                   4251          DROP  R1                  DROP DCT ADDRESSABILITY              R1906000


                                   4253 RJOBQUE $QADD  RMESSAGE,$INPUT+QENTBY,OLAY=YES    ADD JOB QUEUE ELEMENT R1910000

001670 4110 D084      00084        4254+RJOBQUE  LA    R1,RMESSAGE                                              DG012000
001674 4100 00A0      000A0        4255+         LA    R0,$INPUT+QENTBY                                         DG012000

001678 41E0 8142      01682        4256+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000

00167C 1FE8                        4257+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
00167E 47F0 B048      00048        4258+         B     $QADD               BRANCH TO CONTROL SERVICE PROGRAM    BA018000
001682 4770 8152      01692        4259          BNZ   RJCTINIT            BRANCH IF QUEUE IS NOT FULL          R1912000
                                   4260         $WAIT  JOB,OLAY=YES        WAIT FOR A JOB QUEUE ELEMENT         R1914000
001686 9610 D048      00048        4261+         OI    PCEEWF+$EWBJOB,$EWFJOB                                   WA016000
00168A 45F0 B030      00030        4262+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
00168E 47F0 8130      01670        4263          B     RJOBQUE             TRY AGAIN                            R1916000


001692 5010 D0B8      000B8        4265 RJCTINIT ST    R1,RJOB             SAVE ADDRESS OF JOB QUEUE ELEMENT    R1920000
001696 5F10 B13C      0013C        4266          SL    R1,$JOBQPTR         GENERATE RELATIVE ADDRESS            R1922000
00169A 5010 A058      00058        4267          ST    R1,JCTJQE           SET JOB QUEUE ENTRY DISPLACEMENT     R1924000
00169E 1810                        4268          LR    R1,R0               R1 = ADDRESS OF JIT ELEMENT          R1926000

0016A0 D207 1000 A070 00000 00070  4269          MVC   JITJNAME(8,R1),JCTJNAME  TO HASP JOB INFORMATION TABLE   R1928000
0016A6 9608 B0C2      000C2        4270          OI    $STATUS,$JITCKPT    REQUEST JIT CHECKPOINT               R1930000



                                   4272         $TRACK RJCTCYMX,OLAY=YES   GET A TRACK FOR THE IOT              R1934000
0016AA 4110 A0FC      000FC        4273+         LA    R1,RJCTCYMX                                              DG012000
0016AE 41E0 8178      016B8        4274+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
0016B2 1FE8                        4275+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
0016B4 47F0 B064      00064        4276+         B     $TRACK              BRANCH TO CONTROL SERVICE PROGRAM    BA018000
0016B8 5010 A05C      0005C        4277          ST    R1,JCTIOTTR         SET IOT TRACK ADDRESS                R1936000


RDR      HASP INPUT SERVICE -- JOB CARD SCAN ROUTINE                                                           PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0016BC 5810 B148      00148        4279          L     R1,$DATAKEY         GET MASTER PERIPHERAL DATA SET KEY   R1940000
0016C0 5E10 C3D0      003D0        4280          AL    R1,RDR1             INCREMENT                            R1942000
                                   4281 *        STCK  RTEMP               STORE CLOCK                     RFIT R1944000

0016C4 47F0 8198      016D8        4282          B     RSETKEY             FORCE CLOCK NOT VALID           RFIT R1944005
0016C8 4770 8198      016D8        4283          BC    7,RSETKEY           BRANCH IF CLOCK IS NOT VALID         R1946000
0016CC 5510 CBA8      00BA8        4284          CL    R1,RTEMP            COMPARE CLOCK WITH KEY               R1948000
0016D0 47B0 8198      016D8        4285          BNL   RSETKEY             BRANCH IF CLOCK IS NOT GREATER       R1950000

0016D4 5810 CBA8      00BA8        4286          L     R1,RTEMP            USE CLOCK AS DATA SET KEY            R1952000
0016D8 5010 B148      00148        4287 RSETKEY  ST    R1,$DATAKEY         UPDATE MASTER DATA SET KEY           R1954000
0016DC 5010 A060      00060        4288          ST    R1,JCTDSKEY         SET DATA SET KEY IN JCT              R1956000


                                   4290         $TRACK RJCTCYMX,OLAY=YES   GET TRACK ADDRESS FOR 1ST JCL BLOCK  R1960000
0016E0 4110 A0FC      000FC        4291+         LA    R1,RJCTCYMX                                              DG012000

0016E4 41E0 81AE      016EE        4292+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
0016E8 1FE8                        4293+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
0016EA 47F0 B064      00064        4294+         B     $TRACK              BRANCH TO CONTROL SERVICE PROGRAM    BA018000
0016EE 5010 A064      00064        4295          ST    R1,JCTINJCT         SAVE FIRST JCL TRACK                 R1962000
0016F2 1821                        4296          LR    RW,R1               RW = FIRST TRACK ADDRESS             R1964000
0016F4 4570 CA96      00A96        4297          BAL   RL2,RGETBUFO        GET FIRST OUTPUT BUFFER              R1966000


0016F8 955C D0BC      000BC        4299          CLI   RPRIORTY,C'*'       TEST FOR PRIORITY CARD               R1970000

0016FC 4780 81C4      01704        4300          BE    *+8                 BRANCH IF NOT                        R1972000
001700 9680 A06B      0006B        4301          OI    JCTJBOPT,JCTPRICD   INDICATE PRIORITY CARD               R1974000

001704 92C1 A08D      0008D        4302          MVI   JCTJCLAS,C'A'       SET DEFAULT JOB CLASS                R1976000
                                   4303          MVI   RMSGCLAS,C'&MSGCLAS' AND DEFAULT MESSAGE CLASS           R1978000
001708 92C1 D0BD      000BD        4304+         MVI   RMSGCLAS,C'A'        AND DEFAULT MESSAGE CLASS           R1978000


00170C 5810 D058      00058        4306          L     R1,RDRDCT           R1 = ADDRESS OF INPUT DCT            R1982000
                            00000  4307          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         R1984000
001710 9240 A078      00078        4308          MVI   JCTPNAME,C' '       SETUP TO PAD PROG NAME       OY07780 R1985000
001714 D212 A079 A078 00079 00078  4309          MVC   JCTPNAME+1(L'JCTPNAME-1),JCTPNAME  WITH BLANKS   OY07780 R1985200

00171A D200 A093 1011 00093 00011  4310          MVC   JCTROUTE+1(1),DCTNO SET INPUT ROUTE CODE                 R1986000
001720 D207 A094 1018 00094 00018  4311          MVC   JCTINDEV,DCTDEVN    SET INPUT DEVICE NAME                R1988000
                                   4312          DROP  R1                  DROP DCT ADDRESSABILITY              R1990000
001726 D203 A0A4 C3D8 000A4 003D8  4313          MVC   JCTETIME,RESTIME    SET DEFAULT ESTIMATED TIME           R1992000
00172C D207 A0A8 C3DC 000A8 003DC  4314          MVC   JCTESTLN(8),RESTLNPN SET DEFAULT LINE AND CARD ESTIMATES R1994000

001732 D203 A0B0 C3EC 000B0 003EC  4315          MVC   JCTFORMS,RSTDFORM   SET STANDARD FORMS                   R1996000
001738 9201 A0B5      000B5        4316          MVI   JCTCPYCT,1          SET DEFAULT COPY COUNT               R1998000
00173C 923D A0B7      000B7        4317          MVI   JCTLINCT,$LINECT    SET DEFAULT LINE COUNT               R2000000



001740 D207 A1F8 A070 001F8 00070  4319          MVC   JCTJMRJN,JCTJNAME   SET JMR JOB NAME                     R2004000
001746 58F0 0010      00010        4320          L     R15,$CVTPTR         GET ADDRESS OF CVT                   R2006000
00174A 58F0 F0C4      000C4        4321          L     R15,CVTSMCA-CVTDSECT(,R15)    GET ADDRESS OF SMCA        R2008000
00174E D203 A208 F010 00208 00010  4322          MVC   JCTCPUID,16(R15)    SET JMR CPU IDENTIFICATION FROM SMCA R2010000
001754 D203 A20C CBCB 0020C 00BCB  4323          MVC   JCTUSEID(4),RJOBCON   Set HASP job number       @THAS814 R2012000
00175A D203 A210 A06C 00210 0006C  4324          MVC   JCTUSEID+4(4),JCTJOBEB   in JMR user ID         @THAS814 R2012050

001760 D200 A215 F000 00215 00000  4325          MVC   JCTINDC,0(R15)      SET JMR SMF OPTIONS FROM SMCA        R2014000
001766 58F0 D058      00058        4326          L     R15,RDRDCT          GET ADDRESS OF INPUT DCT             R2016000
00176A 9102 D04A      0004A        4327          TM    PCEID,PCERJEID      TEST PROCESSOR TYPE                  R2018000
00176E 4780 8236      01776        4328          BZ    *+8                 BRANCH IF NOT REMOTE TERMINAL        R2020000
001772 58F0 F008      00008        4329          L     R15,DCTDCB-DCTDSECT(,R15)  GET ADDRESS OF LINE DCT       R2022000

RDR      HASP INPUT SERVICE -- JOB CARD SCAN ROUTINE                                                           PAGE   94


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001776 58F0 F008      00008        4330          L     R15,DCTDCB-DCTDSECT(,R15)     GET ADDRESS OF DCB         R2024000
00177A 58F0 F02C      0002C        4331          L     R15,DCBDEBAD-DCBDSECT(,R15)   GET ADDRESS OF DEB         R2026000
00177E 58F0 F020      00020        4332          L     R15,DEBUCBAD-DEBDSECT(,R15)   GET ADDRESS OF UCB         R2028000
001782 D201 A22C F012 0022C 00012  4333          MVC   JCTRDR,UCBTYP+2-UCBDSECT(R15) SET READER DEVICE TYPE     R2030000


001788 D203 5048 CBCB 00048 00BCB  4335          MVC   72(4,RPI),RJOBCON   SET HASP JOB NUMBER                  R2034000
00178E D203 504C A06C 0004C 0006C  4336          MVC   76(4,RPI),JCTJOBEB   IN COLUMNS 73-80 OF FIRST JOB CARD  R2036000


001794 5820 D078      00078        4338          L     RW,RSAVE1           RESTORE POINTER FOR JOB CARD SCAN    R2040000
001798 41E0 0001      00001        4339          LA    R14,1               SET INCREMENT                        R2042000

00179C 41F0 5041      00041        4340          LA    R15,65(,RPI)         AND LIMIT FOR SCAN                  R2044000
0017A0 4110 A167      00167        4341          LA    R1,JCTWORK-1        ASSUME                       OY02728 R2045000
0017A4 5010 D078      00078        4342          ST    R1,RSAVE1            NO ACCOUNTING FIELD         OY02728 R2046000

0017A8 862E 832A      0186A        4343          BXH   RW,R14,RJOBCEND     FIND                         OY02728 R2047000
0017AC 9540 2006      00006        4344          CLI   6(RW),C' '           START OF                            R2048000
0017B0 4780 8268      017A8        4345          BE    *-8                   ACCOUNTING FIELD                   R2050000



0017B4 4100 0090      00090        4347          LA    R0,L'JCTWORK        GET LENGTH OF ACCOUNTING FIELD AREA  R2054000
0017B8 4110 A168      00168        4348          LA    R1,JCTWORK          GET ADDRESS OF ACCOUNTING FIELD AREA R2056000
0017BC 4560 C2CA      002CA        4349          BAL   RL1,RJSCAN          SCAN ACCOUNTING FIELD                R2058000
0017C0 4610 8288      017C8        4350          BCT   R1,RJOBACCT         LEGITIMATE ACCOUNTING FIELD          R2060000
0017C4 4620 82AA      017EA        4351          BCT   RW,RJOBSRCH         SCAN KEYWORDS                        R2066000



0017C8 5010 D078      00078        4353 RJOBACCT ST    R1,RSAVE1           SAVE END ADDRESS FOR LATER SCAN      R2070000
0017CC 4100 0014      00014        4354          LA    R0,L'JCTPNAME       GET LENGTH OF PROGRAMMER NAME AREA   R2072000
0017D0 4110 A078      00078        4355          LA    R1,JCTPNAME         GET ADDRESS OF PROGRAMMER NAME AREA  R2074000
0017D4 4160 C2CA      002CA        4356          LA    RL1,RJSCAN          SCAN PROGRAMMER NAME                 R2076000
0017D8 0566                        4357          BALR  RL1,RL1              INDICATING APOSTROPHE COMPRESSION   R2078000

0017DA 47F0 82AA      017EA        4358          B     RJOBSRCH            LEGITIMATE PROGRAMMER NAME FIELD     R2080000
0017DE 9240 A078      00078        4359          MVI   JCTPNAME,C' '       SETUP TO PAD PROG NAME       OY07780 R2082000
0017E2 D212 A079 A078 00079 00078  4360          MVC   JCTPNAME+1(L'JCTPNAME-1),JCTPNAME  WITH BLANKS   OY07780 R2082200
0017E8 0620                        4361          BCTR  RW,0                BACK UP ONE CHARACTER                R2084000



0017EA 0620                        4363 RJOBSRCH BCTR  RW,0                BACK UP                              R2088000
0017EC 0620                        4364          BCTR  RW,0                 TWO CHARACTERS                      R2090000
0017EE 41F0 503E      0003E        4365          LA    R15,62(,RPI)        SET NEW END-OF-CARD LIMIT            R2092000
0017F2 9540 2008      00008        4366 RJOBKEY  CLI   8(RW),C' '          TEST CURRENT CHARACTER               R2094000
0017F6 4780 8318      01858        4367          BE    RJOBLANK            BRANCH IF BLANK                      R2096000

0017FA 957E 2008      00008        4368          CLI   8(RW),C'='          TEST CURRENT CHARACTER               R2098000
0017FE 4770 830C      0184C        4369          BNE   RJOBINCR            BRANCH IF NOT EQUAL                  R2100000
001802 95C1 2009      00009        4370          CLI   9(RW),C'A'          TEST NEXT CHARACTER                  R2102000
001806 4740 830C      0184C        4371          BL    RJOBINCR            IGNORE IF NOT LEGAL CLASS            R2104000



00180A D504 2003 C3F0 00003 003F0  4373          CLC   3(5,RW),RCLASS      TEST KEYWORD                         R2108000
001810 4770 82F6      01836        4374          BNE   RJOBTYPR            BRANCH IF NOT 'CLASS'                R2110000
001814 D502 2000 C3F5 00000 003F5  4375          CLC   0(3,RW),RMSG        TEST KEYWORD                         R2112000
00181A 4780 82E8      01828        4376          BE    RJOBMSGC            BRANCH IF 'MSGCLASS'                 R2114000
00181E D200 A08D 2009 0008D 00009  4377          MVC   JCTJCLAS,9(RW)      SET JOB CLASS IN JCT                 R2116000
001824 47F0 830C      0184C        4378          B     RJOBINCR            FIND NEXT KEYWORD                    R2118000

RDR      HASP INPUT SERVICE -- JOB CARD SCAN ROUTINE                                                           PAGE   95


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001828 95C1 2009      00009        4380 RJOBMSGC CLI   9(RW),C'A'          IS MSGCLASS VALID            OY05831 R2121000
00182C 4740 82F6      01836        4381          BL    *+10                IF NOT LEAVE DEFAULT         OY05831 R2121500

001830 D200 D0BD 2009 000BD 00009  4382          MVC   RMSGCLAS,9(RW)      SET MSGCLASS SPECIFIED       OY05831 R2122000
001836 D50A 2002 C3F8 00002 003F8  4383 RJOBTYPR CLC   2(11,RW),RTYPRUN    TEST KEYWORD                         R2124000
00183C 4770 830C      0184C        4384          BNE   RJOBINCR            BRANCH IF NOT 'TYPRUN=HOLD'          R2126000
001840 5810 D0B8      000B8        4385          L     R1,RJOB             GET ADDRESS OF JOB QUEUE ELEMENT     R2128000
001844 9640 1004      00004        4386          OI    QUEFLAGS(R1),QUEHOLD1    HOLD JOB                        R2130000

001848 9620 A06B      0006B        4387          OI    JCTJBOPT,JCTTHOLD   INDICATE TYPRUN=HOLD IN JCT          R2132000


00184C 872E 82B2      017F2        4389 RJOBINCR BXLE  RW,R14,RJOBKEY      ADVANCE TO NEXT COLUMN               R2136000
001850 956B 2006      00006        4390          CLI   6(RW),C','          CONT. COMMA IN CC71?         OY11591 R2136400
001854 4780 8320      01860        4391          BE    RJOBCONT            BIF YES - GET NEXT           OY11591 R2137000
001858 956B 2007      00007        4392 RJOBLANK CLI   7(RW),C','          TEST LAST COLUMN                     R2138000
00185C 4770 832A      0186A        4393          BNE   RJOBCEND            DONE IF NO CONTINUATION INDICATED    R2140000

001860 4160 82AA      017EA        4394 RJOBCONT LA    RL1,RJOBSRCH        SET RETURN ADDRESS           OY11591 R2142000
001864 1F68                        4395          SLR   RL1,BASE3            RELATIVE TO OVERLAY AREA            R2144000
001866 47F0 C38C      0038C        4396          B     RCONTNUE            GET CONTINUATION CARD                R2146000



00186A 5820 D058      00058        4398 RJOBCEND L     RW,RDRDCT           RW = ADDRESS OF INPUT DCT            R2150000
                            00000  4399          USING DCTDSECT,RW         ESTABLISH DCT ADDRESSABILITY         R2152000
00186E D218 D084 C403 00084 00403  4400          MVC   RMESSAGE(L'RONMSG),RONMSG     SET UP SIGN-ON MESSAGE     R2154000
001874 D207 D087 2018 00087 00018  4401          MVC   RMESSAGE+3(8),DCTDEVN         ADD DEVICE NAME            R2156000

00187A D207 D093 A070 00093 00070  4402          MVC   RMESSAGE+15(8),JCTJNAME       ADD JOB NAME               R2158000
001880 D213 D09D A078 0009D 00078  4403          MVC   RMESSAGE+25(20),JCTPNAME      ADD PROGRAMMER NAME        R2160000
                                   4404          AIF   (&NUMLNES EQ 0).RRJE06A                                  R2162000
                                   4405 .RRJE06A ANOP                      *                                    R2184000
001886 0570                        4406          BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R2186000
                                   4407         $WTO   RMESSAGE,L'RONMSG+20,JOB=YES,WAIT=RNOCMB,    ISSUE      CR2188000
                                                       ROUTE=$LOG+$UR,CLASS=$ACTION,PRI=$ST          MESSAGE    R2190000
001888 4110 D084      00084        4408+         LA    R1,RMESSAGE                                              DG012000

00188C                             4409+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
00188C 5800 8354      01894        4410+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000

001890 45E0 B098      00098        4411+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
001894 06052D54                    4412+         DC    AL1(6,$LOG+$UR,L'RONMSG+20,$ACTION+$ST)                  WT044000
001898 4780 CADC      00ADC        4413+         BC    8,RNOCMB            BRANCH IF $WTO NOT SUCCESSFUL        WT086000


00189C 5810 D0B8      000B8        4415          L     R1,RJOB             GET ADDRESS OF JOB QUEUE ELEMENT     R2194000

0018A0 9104 2014      00014        4416          TM    DCTFLAGS,DCTHOLDJ   TEST FOR HELD INPUT DEVICE           R2196000
0018A4 4780 836C      018AC        4417          BZ    *+8                 BRANCH IF NOT HELD                   R2198000
0018A8 9640 1004      00004        4418          OI    QUEFLAGS(R1),QUEHOLD1    HOLD JOB                        R2200000


0018AC 9140 1004      00004        4420          TM    QUEFLAGS(R1),QUEHOLD1    TEST FOR HELD JOB               R2204000
0018B0 4780 8390      018D0        4421          BZ    RNOTHELD            BRANCH IF JOB NOT HELD               R2206000
0018B4 D203 D084 C41C 00084 0041C  4422          MVC   RMESSAGE(L'RJOBHELD),RJOBHELD SET UP MESSAGE             R2208000
0018BA 0570                        4423          BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R2210000
                                   4424         $WTO   RMESSAGE,L'RJOBHELD,JOB=YES,WAIT=RNOCMB,     ISSUE      CR2212000

                                                       ROUTE=$LOG+$UR+$MAIN,CLASS=$NORMAL,PRI=$ST    MESSAGE    R2214000

0018BC 4110 D084      00084        4425+         LA    R1,RMESSAGE                                              DG012000
0018C0                             4426+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
0018C0 5800 8388      018C8        4427+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
0018C4 45E0 B098      00098        4428+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
RDR      HASP INPUT SERVICE -- JOB CARD SCAN ROUTINE                                                           PAGE   96



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0018C8 06250434                    4429+         DC    AL1(6,$LOG+$UR+$MAIN,L'RJOBHELD,$NORMAL+$ST)             WT044000
0018CC 4780 CADC      00ADC        4430+         BC    8,RNOCMB            BRANCH IF $WTO NOT SUCCESSFUL        WT086000
                                   4431 RNOTHELD NULL                      *                                    R2216000
0018D0                             4432+RNOTHELD DS    0H                                                       NU006000
                                   4433          DROP  RW                  DROP DCT ADDRESSABILITY              R2218000


                                   4435          AIF   ('&XBATCHC' EQ '').RNOXB2                                R2222000
                                   4436 .RNOXB2  ANOP                      *                                    R2274000
0018D0 94FE D05C      0005C        4437          NI    RDRSW,255-RJFLUSH   TURN OFF FLUSH SWITCH                R2276000

                                   4438          AIF   (&RJOBOPT GE 4).RNOSCN1                                  R2278000

                                   4439         $XCTL  HASPRSCN            SCAN ACCOUNTING PARAMETERS           R2280000
000000                             4440+HA$QRSCN DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
0018D4                             4441+HA$ORJCS CSECT                                                          OL014000
0018D4 41E00000                    4442+         DC    Y(X'4100'+LINK*16),QL2(HA$QRSCN) LOAD OCON INTO LINK     OL016000

0018D8 45F0 B090      00090        4443+         BAL   R15,$OXCTL          LINK TO OVERLAY SUPERVISOR           XC008000
                                   4444          AGO   .RNOSCN2            *                                    R2282000
                                   4445 .RNOSCN2 ANOP                      *                                    R2288000
RDR      HASP INPUT SERVICE -- JOB CARD SCAN ROUTINE                                                           PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4447 RILLJOBC NULL                      ILLEGAL JOB CARD                     R2292000
0018DC                             4448+RILLJOBC DS    0H                                                       NU006000
                                   4449          AIF   ((&RJOBOPT+1)/2 NE &RJOBOPT/2).RNOSCN3                   R2294000
0018DC 9219 D058      00058        4450          MVI   RCARDID,X'19'       FORCE SPACES AFTER WRITE             R2296000
0018E0 4560 C692      00692        4451          BAL   RL1,RPUTOLAY        ADD CARD TO OUTPUT FILE              R2298000
0018E4 925C 5000      00000        4452          MVI   0(RPI),C'*'         FILL OUT CARD IMAGE                  R2300000

0018E8 D24E 5001 5000 00001 00000  4453          MVC   1(79,RPI),0(RPI)     WITH ASTERISKS                      R2302000
0018EE D211 501F C422 0001F 00422  4454          MVC   (80-18)/2(18,RPI),RJERRMSG+2       MOVE IN MESSAGE       R2304000
0018F4 9219 D058      00058        4455          MVI   RCARDID,X'19'       FORCE SPACES AFTER WRITE             R2306000
0018F8 4560 C692      00692        4456          BAL   RL1,RPUTOLAY        ADD ERROR MESSAGE TO OUTPUT FILE     R2308000

0018FC 12AA                        4457          LTR   JCT,JCT             CK FOR 0 JCT                 OY04717 R2308010
0018FE 4780 83E2      01922        4458          BZ    RJOBRET             BRANCH AROUND WTO            OY04717 R2308020


001902 0570                        4460          BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R2312000
                                   4461         $WTO   RJERRMSG,L'RJERRMSG,JOB=YES,WAIT=RNOCMB,  NOTIFY        CR2314000
                                                       ROUTE=$LOG+$UR,CLASS=$TRIVIA,PRI=$ST       OPERATOR      R2316000
001904 4110 C420      00420        4462+         LA    R1,RJERRMSG                                              DG012000
001908                             4463+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
001908 5800 83D0      01910        4464+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
00190C 45E0 B098      00098        4465+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
001910 06051414                    4466+         DC    AL1(6,$LOG+$UR,L'RJERRMSG,$TRIVIA+$ST)                   WT044000
001914 4780 CADC      00ADC        4467+         BC    8,RNOCMB            BRANCH IF $WTO NOT SUCCESSFUL        WT086000

001918 4160 83E2      01922        4468          LA    RL1,*+10            SET RETURN ADDRESS                   R2318000
00191C 1F68                        4469          SLR   RL1,BASE3            RELATIVE TO OVERLAY AREA            R2320000
00191E 47F0 C916      00916        4470          B     RJOBKILL            KILL JOB                             R2322000

                                   4471 .RNOSCN3 ANOP                      *                                    R2324000
                                   4472 RJOBRET $RETURN                    RETURN TO MAIN PROCESSOR             R2326000
001922 45E0 B088      00088        4473+RJOBRET  BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000





0002CA                             4475 HASPRDR  CSECT                     DEFINE SUBROUTINES RESIDENT          R2330000
RDR      HASP INPUT SERVICE -- JOB CARD SCAN ROUTINE                                                           PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4477 *********************************************************************** R2334000
                                   4478 *                                                                     * R2336000
                                   4479 *        RJSCAN -- SUBROUTINE TO EXTRACT FIELDS FROM JOB STATEMENT    * R2338000
                                   4480 *                                                                     * R2340000

                                   4481 *              FUNCTION -- EXTRACT NEXT FIELD FROM JOB STATEMENT      * R2342000

                                   4482 *                                                                     * R2344000
                                   4483 *              INPUTS -- R0  = LENGTH OF OUTPUT AREA                  * R2346000

                                   4484 *                        R1  = ADDRESS OF OUTPUT AREA                 * R2348000
                                   4485 *                        RL1 = POSITIVE FOR APOSTROPHE COMPRESSION    * R2350000
                                   4486 *                                                                     * R2352000
                                   4487 *              OUTPUT -- EXTRACTED FIELD IN OUTPUT AREA               * R2354000
                                   4488 *                                                                     * R2356000
                                   4489 *              LINK REGISTER -- RL1                                   * R2358000
                                   4490 *                                                                     * R2360000
                                   4491 *              RETURNS -- RL1+0 - NORMAL RETURN                       * R2362000
                                   4492 *                         RL1+4 - KEYWORD PARAMETER ENCOUNTERED       * R2364000
                                   4493 *                                                                     * R2366000
                                   4494 *              EXTERNAL ROUTINE -- RCONTNUE                           * R2368000
                                   4495 *                                                                     * R2370000

                                   4496 *********************************************************************** R2372000







0002CA 940F C2F9      002F9        4498 RJSCAN   NI    RJOBPRSW+1,X'0F'    INITIALIZE APOSTROPHE                R2376000
0002CE 940F C309      00309        4499          NI    RJOBPASW+1,X'0F'     AND PARENTHESIS SWITCHES            R2378000


0002D2 862E C340      00340        4501 RJOBNEXT BXH   RW,R14,RJOBCON1     ADVANCE TO NEXT CHARACTER            R2382000
0002D6 957D 2005      00005        4502          CLI   5(RW),C''''         TEST CURRENT CHARACTER               R2384000
0002DA 4770 C2F8      002F8        4503          BNE   RJOBPRSW            BRANCH IF NOT APOSTROPHE             R2386000
0002DE 97F0 C2F9      002F9        4504          XI    RJOBPRSW+1,X'F0'    INVERT APOSTROPHE SWITCH             R2388000
0002E2 1266                        4505          LTR   RL1,RL1             TEST COMPRESSION OPTION              R2390000
0002E4 4740 C32A      0032A        4506          BM    RJOBMOVE            BRANCH IF NO COMPRESSION             R2392000
0002E8 957D 2004      00004        4507          CLI   4(RW),C''''         TEST LAST CHARACTER                  R2394000
0002EC 4770 C2D2      002D2        4508          BNE   RJOBNEXT            BRANCH IF NOT APOSTROPHE             R2396000
0002F0 4400 C2F8      002F8        4509          EX    0,RJOBPRSW          MOVE ODD APOSTROPHES ONLY            R2398000

0002F4 47F0 C2D2      002D2        4510          B     RJOBNEXT            IGNORE EVEN APOSTROPHES              R2400000


0002F8 4700 C32A      0032A        4512 RJOBPRSW NOP   RJOBMOVE            BRANCH IF IN LITERAL FIELD           R2404000

0002FC 9540 2005      00005        4513          CLI   5(RW),C' '          TEST CURRENT CHARACTER               R2406000
000300 4780 C348      00348        4514          BE    RJOBCON2            BRANCH IF BLANK                      R2408000
000304 955D 2005      00005        4515          CLI   5(RW),C')'          TEST CURRENT CHARACTER               R2410000
000308 4700 C32A      0032A        4516 RJOBPASW NOP   RJOBMOVE            BRANCH IF NOT MATCHING RIGHT PAREN   R2412000
00030C 940F C309      00309        4517          NI    RJOBPASW+1,X'0F'    RESET PARENTHESIS SWITCH             R2414000
000310 956B 2005      00005        4518          CLI   5(RW),C','          TEST CURRENT CHARACTER               R2416000
000314 0786                        4519          BCR   E,RL1               RETURN IF COMMA                      R2418000
000316 957E 2005      00005        4520          CLI   5(RW),C'='          TEST CURRENT CHARACTER               R2420000
00031A 4780 6004      00004        4521          BE    4(,RL1)             INDICATE KEYWORD PARAMETER IF '='    R2422000
00031E 954D 2005      00005        4522          CLI   5(RW),C'('          TEST CURRENT CHARACTER               R2424000
000322 4770 C32A      0032A        4523          BNE   RJOBMOVE            BRANCH IF NOT LEFT PARENTHESIS       R2426000
000326 9670 C309      00309        4524          OI    RJOBPASW+1,16*NE    SET PARENTHESIS SWITCH               R2428000

RDR      HASP INPUT SERVICE -- JOB CARD SCAN ROUTINE                                                           PAGE   99


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00032A 1200                        4526 RJOBMOVE LTR   R0,R0               TEST REMAINING OUTPUT AREA LENGTH    R2432000
00032C 4780 839C      018DC        4527          BZ    RILLJOBC            BRANCH IF FIELD IS TOO LONG          R2434000

000330 D200 1000 2005 00000 00005  4528          MVC   0(1,R1),5(RW)       MOVE CHARACTER TO OUTPUT AREA        R2436000
000336 0600                        4529          BCTR  R0,0                REDUCE OUTPUT AREA LENGTH            R2438000
000338 4110 1001      00001        4530          LA    R1,1(,R1)           ADVANCE OUTPUT AREA ADDRESS          R2440000
00033C 47F0 C2D2      002D2        4531          B     RJOBNEXT            GET NEXT CHARACTER                   R2442000


000340 91F0 C2F9      002F9        4533 RJOBCON1 TM    RJOBPRSW+1,X'F0'    TEST APOSTROPHE SWITCH               R2446000

000344 4770 839C      018DC        4534          BNZ   RILLJOBC            ILLEGAL IF LITERAL FIELD             R2448000
000348 0620                        4535 RJOBCON2 BCTR  RW,0                BACK UP ONE CHARACTER                R2450000
00034A 956B 2005      00005        4536          CLI   5(RW),C','          TEST LAST CHARACTER                  R2452000
00034E 4780 C35C      0035C        4537          BE    RJOBCON3            GET CONTINUATION IF COMMA            R2454000
000352 91F0 C309      00309        4538          TM    RJOBPASW+1,X'F0'    TEST PARENTHESIS SWITCH              R2456000
000356 4770 839C      018DC        4539          BNZ   RILLJOBC            ILLEGAL IF PARENTHESIS FIELD         R2458000
00035A 07F6                        4540          BR    RL1                 RETURN IF NOT PARENTHESIS FIELD      R2460000



00035C 1F68                        4542 RJOBCON3 SLR   RL1,BASE3           COMPUTE RELATIVE RETURN ADDRESS      R2464000
00035E 9001 D06C      0006C        4543          STM   R0,R1,RLSAVE1       SAVE                                 R2466000

000362 5060 D074      00074        4544          ST    RL1,RLSAVE3          REGISTERS                           R2468000
000366 D200 D070 C309 00070 00309  4545          MVC   RLSAVE2(1),RJOBPASW+1 AND PARENTHESIS SWITCH             R2470000
00036C 4560 C38C      0038C        4546          BAL   RL1,RCONTNUE        GET NEXT CARD                        R2472000
000370 9801 D06C      0006C        4547          LM    R0,R1,RLSAVE1       RESTORE                              R2474000
000374 5860 D074      00074        4548          L     RL1,RLSAVE3          REGISTERS                           R2476000
000378 1E68                        4549          ALR   RL1,BASE3           COMPUTE ABSOLUTE RETURN ADDRESS      R2478000
00037A 41F0 5041      00041        4550          LA    R15,65(,RPI)        SET LIMIT FOR END OF CARD            R2480000
00037E 940F C2F9      002F9        4551          NI    RJOBPRSW+1,X'0F'    RESET                                R2482000

000382 D200 C309 D070 00309 00070  4552          MVC   RJOBPASW+1(1),RLSAVE2 SWITCHES                           R2484000
000388 47F0 C2D2      002D2        4553          B     RJOBNEXT            GET NEXT CHARACTER                   R2486000
RDR      HASP INPUT SERVICE -- JOB CARD SCAN ROUTINE                                                           PAGE  100


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4555 *********************************************************************** R2490000

                                   4556 *                                                                     * R2492000
                                   4557 *        RCONTNUE -- SUBROUTINE TO READ CONTINUATION CARDS            * R2494000

                                   4558 *                                                                     * R2496000
                                   4559 *              FUNCTIONS -- 1) ADD PREVIOUS CARD TO JCL FILE          * R2498000
                                   4560 *                           2) GET NEXT CARD                          * R2500000
                                   4561 *                           3) VALIDATE COLUMNS 1-3 OF NEXT CARD      * R2502000
                                   4562 *                           4) LOCATE START OF VARIABLE FIELD         * R2504000
                                   4563 *                                                                     * R2506000
                                   4564 *              OUTPUT -- RW = POINTER TO VARIABLE FIELD               * R2508000
                                   4565 *                                                                     * R2510000

                                   4566 *              LINK REGISTER -- RL1                                   * R2512000
                                   4567 *                                                                     * R2514000
                                   4568 *              EXTERNAL ROUTINES -- 1) RPUT                           * R2516000
                                   4569 *                                   2) RGET                           * R2518000
                                   4570 *                                                                     * R2520000

                                   4571 *********************************************************************** R2522000






00038C 5060 D07C      0007C        4573 RCONTNUE ST    RL1,RSAVE2          SAVE LINK REGISTER                   R2526000
000390 4560 C698      00698        4574          BAL   RL1,RPUT            ADD PREVIOUS CARD TO JCL FILE        R2528000
000394 47F0 83E6      01926        4575          B     RCONTNU1            BRANCH TO OVERLAY AREA               R2530000
                                   4576 &OSECT   CSECT                     NEXT INSTRUCTIONS MUST BE OVERLAY    R2532000
001926                             4577+HA$ORJCS CSECT                     NEXT INSTRUCTIONS MUST BE OVERLAY    R2532000
001926 4560 C4EC      004EC        4578 RCONTNU1 BAL   RL1,RGET            GET NEXT CARD                        R2534000
00192A 47F0 839C      018DC        4579          B     RILLJOBC            ILLEGAL IF END OF FILE               R2536000

00192E 47F0 C398      00398        4580          B     RCONTNU2            CONTINUE PROCESSING                  R2538000
000398                             4581 HASPRDR  CSECT                     REVERT TO RESIDENT CSECT             R2540000
000398 12AA                        4582 RCONTNU2 LTR   JCT,JCT             TEST ADDRESS OF JCT                  R2542000
00039A 4780 83E2      01922        4583          BZ    RJOBRET             BRANCH IF JOB HAS BEEN DELETED       R2544000
00039E 5860 D07C      0007C        4584          L     RL1,RSAVE2          RESTORE LINK REGISTER                R2546000



0003A2 D502 5000 CC88 00000 00C88  4586          CLC   0(3,RPI),=CL80'//'  CHECK COLUMNS 1-3                    R2550000
0003A8 4770 839C      018DC        4587          BNE   RILLJOBC            ILLEGAL IF NOT '// '                 R2552000



0003AC 4110 000C      0000C        4589          LA    R1,12               GET LENGTH OF VARIABLE START         R2556000
0003B0 4120 5009      00009        4590          LA    RW,9(,RPI)          SET UP POINTER                       R2558000
0003B4 1B21                        4591          SR    RW,R1                TO COLUMN 4                         R2560000
0003B6 41E0 0001      00001        4592          LA    R14,1               SET INCREMENT FOR SCAN               R2562000


0003BA 9540 2006      00006        4594 RCONTNU3 CLI   6(RW),C' '          SCAN COLUMNS 4-15                    R2566000

0003BE 4770 C952      00952        4595          BNE   RL1RETRN             TO DETERMINE                        R2568000
0003C2 4120 2001      00001        4596          LA    RW,1(,RW)             START OF                           R2570000
0003C6 4610 C3BA      003BA        4597          BCT   R1,RCONTNU3            VARIABLE FIELD                    R2572000
0003CA 47F0 C952      00952        4598          B     RL1RETRN            NOT FOUND, ASSUME COLUMN 16          R2574000
RDR      HASP INPUT SERVICE -- JOB CARD SCAN ROUTINE                                                           PAGE  101



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4600 *                                                                       R2578000
                                   4601 *                             JOB CARD SCAN CONSTANTS AND VARIABLES     R2580000
                                   4602 *                                                                       R2582000




0003CE 0000
0003D0 00000001                    4604 RDR1     DC    F'1'                BINARY ONE                           R2586000
0003D4 00002710                    4605 RDR10000 DC    F'10000'            UPPER LIMIT ON HASP JOB NUMBER       R2588000
0003D8 00000002                    4606 RESTIME  DC    AL4($ESTIME)        DEFAULT ESTIMATED TIME               R2590000
0003DC 0000000200000064            4607 RESTLNPN DC    AL4($ESTLNCT,$ESTPUN)    ESTIMATED LINES AND PUNCH       R2592000

0003E4 4020202020202120            4608 REDITMSK DC    X'4020202020202120' JOB NUMBER EDIT MASK                 R2594000
                                   4609 RSTDFORM DC    CL4'&STDFORM'       STANDARD FORMS DEFINITION            R2596000
0003EC E2E3C44B                    4610+RSTDFORM DC    CL4'STD.'           STANDARD FORMS DEFINITION            R2596000
0003F0 C3D3C1E2E2                  4611 RCLASS   DC    C'CLASS'            JOB                                  R2598000
0003F5 D4E2C7                      4612 RMSG     DC    C'MSG'               CARD                                R2600000

0003F8 E3E8D7D9E4D57EC8            4613 RTYPRUN  DC    C'TYPRUN=HOLD'        KEYWORDS                           R2602000
000403 D6D540C4C5E540D5            4614 RONMSG   DC    C'ON DEV NAME -- JOB NAME  '  JOB SIGN-ON MESSAGE        R2604000
00041C C8C5D3C4                    4615 RJOBHELD DC    C'HELD'             JOB HELD MESSAGE                     R2606000
000420 606040C9D3D3C5C7            4616 RJERRMSG DC    C'-- ILLEGAL JOB CARD '                                  R2608000
                                   4617          AIF   ('&XBATCHC' EQ '').RNOXB3                                R2610000
                                   4618 .RNOXB3  ANOP                      *                                    R2618000






                                   4620          DROP  BASE3               DROP OVERLAY ADDRESSABILITY          R2622000
                                   4621          AIF   (&RJOBOPT GE 4).RNOSCN4                                  R2624000

RDR      HASP INPUT SERVICE -- ACCOUNTING FIELD SCAN ROUTINE                                                   PAGE  102


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4623 HASPRSCN $OVERLAY &MED,&MED        DEFINE ACCOUNTING FIELD SCAN OVERLAY R2628000
001938                             4624+HA$ORSCN CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            01940  4625+HA$IRSCN EQU   HA$ORSCN+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   4626+         ENTRY HA$IRSCN                                                 OV036000
001938 D9E2C3D5                    4627+         DC    CL4'RSCN'           IDENTIFY MODULE ON CORE DUMP         OV038000
00193C 00001938                    4628+         DC    A(HA$ORSCN)         ASSEMBLY ORIGIN                      OV040000
001940                             4629+HASPRSCN DS    0F                  ENTRY POINT                          OV042000
                            018E0  4630+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000


                                   4632          LCLC  &SCNTGT1,&SCNTGT2,&SCNTGT3                               R2632000

                                   4633 &SCNTGT1 SETC  'RBADACCT'                                               R2634000
                                   4634 &SCNTGT2 SETC  'RBADACCT'                                               R2636000
                                   4635 &SCNTGT3 SETC  'RBADACCT'                                               R2638000

                                   4636          AIF   (&RJOBOPT LE 2).RSCN1                                    R2640000
                                   4637 .RSCN1   ANOP                                                           R2644000
                                   4638          AIF   (&RJOBOPT LE 1).RSCN2                                    R2646000
                                   4639 &SCNTGT1 SETC  '*+4'                                                    R2648000
                                   4640 &SCNTGT2 SETC  '4(,RL1)'                                                R2650000

                                   4641 .RSCN2   ANOP                                                           R2652000
                                   4642          AIF   (&RJOBOPT GT 1).RSCN3                                    R2654000
                                   4643 .RSCN3   ANOP                                                           R2658000


001940 1B22                        4645          SR    R2,R2               INITIALIZE WORK REG TO ZERO          R2662000
001942 4110 A169      00169        4646          LA    R1,JCTWORK+1        ASSUME ACCT FIELD STARTS WITH '('    R2664000
001946 58F0 D078      00078        4647          L     R15,RSAVE1          LOAD ADDR OF LAST CHAR OF ACCT FLD   R2666000
00194A 19F1                        4648          CR    R15,R1              TEST ACCOUNTING FIELD                R2668000

00194C 4740 8078      01958        4649          BL    *+12                BR IF NULL OR ONE CHAR UNBOUNDED     R2670000
001950 954D A168      00168        4650          CLI   JCTWORK,C'('        TEST FIRST CHAR OF ACCT FIELD        R2672000

001954 4780 807E      0195E        4651          BE    *+10                BR IF ACCT FLD ENCLOSED IN PARENDS   R2674000
001958 0610                        4652          BCTR  R1,0                 ELSE ADJUST START OF SCAN           R2676000
00195A 41F0 F001      00001        4653          LA    R15,1(,R15)          AND END OF SCAN                     R2678000
00195E 92FF F000      00000        4654          MVI   0(R15),255          SET SCAN DELIMITER                   R2680000
001962 4170 A09C      0009C        4655          LA    RL2,JCTACCTN        EXTRACT PROGRAMMER'S                 R2682000

001966 4560 811A      019FA        4656          BAL   RL1,RSCNFLD1         ACCOUNTING NUMBER (IF ANY)          R2684000
00196A 47F0 8092      01972        4657          B     *+8                 FIELD PRESENT IF RETURNED HERE       R2686000
                                   4658          B     &SCNTGT1            BR IF FIELD NOT PRESENT              R2688000
00196E 47F0 8092      01972        4659+         B     *+4                 BR IF FIELD NOT PRESENT              R2688000
001972 4170 A0A0      000A0        4660          LA    RL2,JCTROOMN        EXTRACT PROGRAMMER'S                 R2690000
001976 4560 8126      01A06        4661          BAL   RL1,RSCNFLD3         ROOM NUMBER (IF ANY)                R2692000
00197A 47F0 80A2      01982        4662          B     *+8                 FIELD PRESENT IF RETURNED HERE       R2694000
                                   4663          B     &SCNTGT1            BR IF FIELD NOT PRESENT              R2696000
00197E 47F0 80A2      01982        4664+         B     *+4                 BR IF FIELD NOT PRESENT              R2696000

                                   4665          AIF   (&RJOBOPT GT 1).RSCN4                                    R2698000

                                   4666 .RSCN4   ANOP                                                           R2702000
001982 4560 8122      01A02        4667          BAL   RL1,RSCNFLD2        EXTRACT ESTIMATED EXECUTION TIME     R2704000
001986 5000 A0A4      000A4        4668          ST    R0,JCTETIME          STORE IF PROVIDED                   R2706000
00198A 4560 8126      01A06        4669          BAL   RL1,RSCNFLD3        EXTRACT ESTIMATED LINE COUNT         R2708000
00198E 5000 A0A8      000A8        4670          ST    R0,JCTESTLN          STORE IF PROVIDED                   R2710000

001992 4560 8126      01A06        4671          BAL   RL1,RSCNFLD3        EXTRACT ESTIMATED PUNCHED CARD COUNT R2712000
001996 5000 A0AC      000AC        4672          ST    R0,JCTESTPU          STORE IF PROVIDED                   R2714000
00199A 4170 A0B0      000B0        4673          LA    RL2,JCTFORMS        EXTRACT SPECIAL                      R2716000
00199E 4560 811A      019FA        4674          BAL   RL1,RSCNFLD1         FORMS NUMBER (IF ANY)               R2718000
0019A2 4700 80C2      019A2        4675          NOP   *                   FIELD PRESENT IF RETURNED HERE       R2720000
RDR      HASP INPUT SERVICE -- ACCOUNTING FIELD SCAN ROUTINE                                                   PAGE  103


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0019A6 4560 8122      01A02        4676          BAL   RL1,RSCNFLD2        EXTRACT JOB OUTPUT COPY COUNT        R2722000
0019AA 47F0 80EE      019CE        4677          B     RSCNCPY             BR IF FIELD PRESENT                  R2724000
0019AE 4170 CBA8      00BA8        4678          LA    RL2,RTEMP           EXTRACT NOLOG                        R2726000

0019B2 4560 811A      019FA        4679          BAL   RL1,RSCNFLD1         OPTION (IF ANY)                     R2728000

0019B6 47F0 8104      019E4        4680          B     RSCNLOG             BR IF FIELD PRESENT                  R2730000
0019BA 4560 8122      01A02        4681          BAL   RL1,RSCNFLD2        EXTRACT OUTPUT LIMIT                 R2732000
0019BE 47F0 80E6      019C6        4682          B     RSCNLIM             BR IF FIELD PRESENT                  R2734000
0019C2 47F0 8216      01AF6        4683          B     RSCNRET              AND TERMINATE ACCT FIELD SCAN       R2736000



0019C6 4170 A0B7      000B7        4685 RSCNLIM  LA    RL2,JCTLINCT        INITIALIZE STORE ADDRESS             R2740000
0019CA 47F0 80F2      019D2        4686          B     RSCNCKDG             AND GO TO CHECK FIELD LENGTH        R2742000
0019CE 4170 A0B5      000B5        4687 RSCNCPY  LA    RL2,JCTCPYCT        INITIALIZE STORE ADDRESS             R2744000
0019D2 1820                        4688 RSCNCKDG LR    RW,R0               SAVE VALUE PROVIDED                  R2746000
0019D4 8A20 0008      00008        4689          SRA   RW,8                TEST VALUE                           R2748000
                                   4690          BNZ   &SCNTGT2            BR IF VALUE GREATER THAN 255         R2750000
0019D8 4770 6004      00004        4691+         BNZ   4(,RL1)             BR IF VALUE GREATER THAN 255         R2750000
0019DC 4200 7000      00000        4692          STC   R0,0(,RL2)          STORE VALUE PROVIDED                 R2752000
0019E0 47F0 6004      00004        4693          B     4(,RL1)              AND RESUME ACCT FIELD SCAN          R2754000



0019E4 1200                        4695 RSCNLOG  LTR   R0,R0               TEST FIELD LENGTH                    R2758000
                                   4696          BNZ   &SCNTGT2            BR IF MORE THAN ONE CHARACTER        R2760000
0019E6 4770 6004      00004        4697+         BNZ   4(,RL1)             BR IF MORE THAN ONE CHARACTER        R2760000
0019EA 95D5 CBA8      00BA8        4698          CLI   RTEMP,C'N'          TEST FOR NOLOG OPTION                R2762000

0019EE 4770 6004      00004        4699          BNE   4(,RL1)             RESUME ACCT FIELD SCAN IF NO OY02728 R2764000
0019F2 9610 A06B      0006B        4700          OI    JCTJBOPT,JCTNOLOG   INDICATE NOLOG OPTION SPECIFIED      R2766000
0019F6 47F0 6004      00004        4701          B     4(,RL1)              AND RESUME ACCT FIELD SCAN          R2768000


0019FA 940F 8161      01A41        4703 RSCNFLD1 NI    RSCNSW2,X'0F'       SET BR SWITCH FOR CHARACTER FIELDS   R2772000
0019FE 47F0 8126      01A06        4704          B     RSCNFLD3             AND BEGIN SCAN                      R2774000
001A02 96F0 8161      01A41        4705 RSCNFLD2 OI    RSCNSW2,X'F0'       SET BR SWITCH FOR NUMERIC FIELD      R2776000
001A06 95FF 1000      00000        4706 RSCNFLD3 CLI   0(R1),255           TEST FOR END OF ACCOUNTING FIELD     R2778000
001A0A 4780 8216      01AF6        4707 RSCNSW1  BE    RSCNRET             IF SO, TERMINATE SCAN                R2780000
001A0E 957D 1000      00000        4708          CLI   0(R1),C''''         TEST FIRST CHAR OF FIELD             R2782000
001A12 4780 8190      01A70        4709          BE    RSCNSPEC            BR IF FIELD ENCLOSED IN QUOTES       R2784000
001A16 18E1                        4710          LR    R14,R1              SAVE POINTER TO START OF FIELD       R2786000

001A18 DD8F 1000 821A 00000 01AFA  4711          TRT   0(144,R1),RALFATBL  SCAN TO FIRST NON-ALPHAMERIC CHAR    R2788000
001A1E 1801                        4712          LR    R0,R1               SAVE ADDRESS OF DELIMETER            R2790000
001A20 47F2 8140      01A20        4713          B     *(R2)               USE FUNCTION BYTE AS INDEX VALUE     R2792000

                                   4714          B     &SCNTGT3            BR IF INVALID CHARACTER IN FIELD     R2794000
001A24 47F0 81D6      01AB6        4715+         B     RBADACCT            BR IF INVALID CHARACTER IN FIELD     R2794000
001A28 47F0 8150      01A30        4716          B     RSCNSIZE            DON'T INCREMENT IF AT END OF ACCT    R2796000

001A2C 4110 1001      00001        4718 RSCNNEXT LA    R1,1(,R1)           STEP PAST FIELD DELIMITER            R2800000
001A30 1B0E                        4719 RSCNSIZE SR    R0,R14              DETERMINE SIZE OF FIELD              R2802000
001A32 4780 6004      00004        4720          BZ    4(,RL1)             RETURN IF NULL FIELD                 R2804000
001A36 0600                        4721          BCTR  R0,0                DECREMENT FOR MACHINE SIZE           R2806000
001A38 5900 8420      01D00        4722          C     R0,RSCNF4           TEST FIELD SIZE                      R2808000
                                   4723          BNL   &SCNTGT2            BR IF FIELD EXCEEDS HASP MAXIMUM     R2810000
001A3C 47B0 6004      00004        4724+         BNL   4(,RL1)             BR IF FIELD EXCEEDS HASP MAXIMUM     R2810000
                            01A41  4725 RSCNSW2  EQU   *+1                 NUMERIC/ALPHAMERIC BRANCH SWITCH     R2812000

001A40 4700 8176      01A56        4726          NOP   RSCNDIG             BR IF FIELD SHOULD BE NUMERIC        R2814000

001A44 D202 7001 CBA0 00001 00BA0  4727          MVC   1(3,RL2),RKBLANKS   INSURE FIELD PADDED TO RIGHT         R2816000
RDR      HASP INPUT SERVICE -- ACCOUNTING FIELD SCAN ROUTINE                                                   PAGE  104



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001A4A 4200 816F      01A4F        4728          STC   R0,*+5              SET LENGTH FOR MOVE                  R2818000
001A4E D200 7000 E000 00000 00000  4729          MVC   0(*-*,RL2),0(R14)   MOVE CHARACTERS FROM ACCT SUB-FIELD  R2820000
001A54 07F6                        4730          BR    RL1                  AND RETURN                          R2822000

001A56 1820                        4732 RSCNDIG  LR    RW,R0               USE RW FOR EXECUTES                  R2826000
001A58 D303 841C E000 01CFC 00000  4733          MVZ   RSCNTEMP,0(R14)     MOVE ZONES FROM ACCT FIELD           R2828000
001A5E 4420 8428      01D08        4734          EX    RW,RTSTZNS          TEST FOR VALID DIGITS                R2830000
                                   4735          BNE   &SCNTGT2            BR IF NON-DIGIT CHARACTER(S) IN FLD  R2832000
001A62 4770 6004      00004        4736+         BNE   4(,RL1)             BR IF NON-DIGIT CHARACTER(S) IN FLD  R2832000
001A66 4420 8434      01D14        4737          EX    RW,RPACKNUM         CONVERT NUMBER TO PACKED DECIMAL     R2834000
001A6A 4F00 CBA8      00BA8        4738          CVB   R0,RTEMP             AND THEN TO BINARY                  R2836000

001A6E 07F6                        4739          BR    RL1                 THEN RETURN TO CALLER                R2838000



001A70 41E0 1001      00001        4741 RSCNSPEC LA    R14,1(,R1)          SAVE ADDR OF FIRST CHAR AFTER QUOTE  R2842000

001A74 4110 1001      00001        4742          LA    R1,1(,R1)           POINT TO FIRST CHAR AFTER QUOTE      R2844000
001A78 DD8F 1000 831A 00000 01BFA  4743          TRT   0(144,R1),RSPECTBL  SCAN TO NEXT QUOTE OR DELIMITER      R2846000
001A7E 47F2 819E      01A7E        4744          B     *(R2)               USE FUNCTION BYTE AS INDEX VALUE     R2848000
                                   4745          B     &SCNTGT3            BR IF ILLEGAL CHARACTER              R2850000
001A82 47F0 81D6      01AB6        4746+         B     RBADACCT            BR IF ILLEGAL CHARACTER              R2850000
001A86 957D 1001      00001        4747          CLI   1(R1),C''''         TEST FOR DOUBLE QUOTES               R2852000
001A8A 4770 81BC      01A9C        4748          BNE   RSPECFLD            BR IF NO TO EXTRACT DATA             R2854000
001A8E 06F0                        4749          BCTR  R15,0               SHIFT                                R2856000
001A90 182F                        4750          LR    RW,R15               REMAINING                           R2858000
001A92 1B21                        4751          SR    RW,R1                 CHARACTERS                         R2860000
001A94 4420 842E      01D0E        4752          EX    RW,RSCNSHFT            LEFT                              R2862000
001A98 47F0 8194      01A74        4753          B     RSCNSPEC+4          RESUME SCAN                          R2864000


001A9C 1801                        4755 RSPECFLD LR    R0,R1               SAVE END-OF-FIELD ADDRESS            R2868000
001A9E 4110 1001      00001        4756          LA    R1,1(,R1)           STEP PAST CLOSING QUOTE              R2870000

001AA2 956B 1000      00000        4757          CLI   0(R1),C','          TEST DELIMITER                       R2872000
001AA6 4780 814C      01A2C        4758          BE    RSCNNEXT            BR IF COMMA                          R2874000
001AAA 95FF 1000      00000        4759          CLI   0(R1),255           TEST DELIMITER                       R2876000
001AAE 4780 8150      01A30        4760          BE    RSCNSIZE            BR IF END OF ACCOUNTING FIELD        R2878000
                                   4761          B     &SCNTGT3            TERMINATE SCAN IF INVALID DELIMITER  R2880000
001AB2 47F0 81D6      01AB6        4762+         B     RBADACCT            TERMINATE SCAN IF INVALID DELIMITER  R2880000


                                   4764          AIF   (&RJOBOPT GT 2).RSCN5                                    R2884000
001AB6 9219 D058      00058        4765 RBADACCT MVI   RCARDID,X'19'       FORCE SPACES AFTER WRITE             R2886000
001ABA 4560 C692      00692        4766          BAL   RL1,RPUTOLAY        ADD CARD TO OUTPUT FILE              R2888000
001ABE 925C 5000      00000        4767          MVI   0(RPI),C'*'         FILL OUT CARD IMAGE                  R2890000
001AC2 D24E 5001 5000 00001 00000  4768          MVC   1(79,RPI),0(RPI)     WITH ASTERISKS                      R2892000

001AC8 D211 501F C422 0001F 00422  4769          MVC   (80-18)/2(18,RPI),RJERRMSG+2  MOVE IN MESSAGE            R2894000
001ACE 9219 D058      00058        4770          MVI   RCARDID,X'19'       FORCE SPACES AFTER WRITE             R2896000
001AD2 4560 C692      00692        4771          BAL   RL1,RPUTOLAY        ADD ERROR MESSAGE TO OUTPUT FILE     R2898000
001AD6 0570                        4772          BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R2900000

                                   4773         $WTO   RJERRMSG,L'RJERRMSG,JOB=YES,WAIT=RNOCMB,  NOTIFY        CR2902000
                                                       ROUTE=$LOG+$UR,CLASS=$TRIVIA,PRI=$ST       OPERATOR      R2904000
001AD8 4110 C420      00420        4774+         LA    R1,RJERRMSG                                              DG012000
001ADC                             4775+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
001ADC 5800 8204      01AE4        4776+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
001AE0 45E0 B098      00098        4777+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000

001AE4 06051414                    4778+         DC    AL1(6,$LOG+$UR,L'RJERRMSG,$TRIVIA+$ST)                   WT044000
001AE8 4780 CADC      00ADC        4779+         BC    8,RNOCMB            BRANCH IF $WTO NOT SUCCESSFUL        WT086000
RDR      HASP INPUT SERVICE -- ACCOUNTING FIELD SCAN ROUTINE                                                   PAGE  105


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001AEC 4160 8216      01AF6        4780          LA    RL1,*+10            SET RETURN ADDRESS                   R2906000
001AF0 1F68                        4781          SLR   RL1,BASE3            RELATIVE TO OVERLAY AREA            R2908000
001AF2 47F0 C916      00916        4782          B     RJOBKILL            KILL JOB                             R2910000



                                   4784 .RSCN5   ANOP                                                           R2914000

                                   4785 RSCNRET $RETURN                    RETURN TO MAIN PROCESSOR             R2916000
001AF6 45E0 B088      00088        4786+RSCNRET  BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000


001AFA 0404040404040404            4788 RALFATBL DC    91AL1(4),AL1(0,4,4,4,4,0),10AL1(4),AL1(12)               R2920000
001B66 0404040404040404            4789          DC    15AL1(4),AL1(0,0),68AL1(4),9AL1(0),7AL1(4),9AL1(0)       R2922000
001BD4 0404040404040404            4790          DC    8AL1(4),8AL1(0),6AL1(4),10AL1(0),5AL1(4),AL1(8)          R2924000

001BFA 0404040404040404            4792 RSPECTBL DC    64AL1(4),AL1(0),10AL1(4),AL1(0,4,0,0,4,0),10AL1(4)       R2928000
001C55 0000000404000004            4793          DC    AL1(0,0,0,4,4,0,0),9AL1(4),AL1(0),15AL1(4)               R2930000

001C75 0000080004040404            4794          DC    AL1(0,0,8,0),66AL1(4),9AL1(0),7AL1(4),9AL1(0)            R2932000
001CD4 0404040404040404            4795          DC    8AL1(4),8AL1(0),6AL1(4),10AL1(0),6AL1(4)                 R2934000

001CFA 0000
001CFC 00000000                    4797 RSCNTEMP DC    F'0'                                                     R2938000

001D00 00000004                    4798 RSCNF4   DC    F'4'                                                     R2940000
001D04 F0F0F0F0                    4799 RSCNZERO DC    0F'0',C'0000'                                            R2942000

                                   4800          AIF   (&RJOBOPT GT 1).RSCN6                                    R2944000
                                   4801 .RSCN6   ANOP                                                           R2950000

001D08 D500 841C 8424 01CFC 01D04  4803 RTSTZNS  CLC   RSCNTEMP(*-*),RSCNZERO  *** EXECUTE ONLY ***             R2954000
001D0E D200 1000 1001 00000 00001  4804 RSCNSHFT MVC   0(*-*,R1),1(R1)         *** EXECUTE ONLY ***             R2956000
001D14 F270 CBA8 E000 00BA8 00000  4805 RPACKNUM PACK  RTEMP,0(*-*,R14)        *** EXECUTE ONLY ***             R2958000
                                   4806 .RNOSCN4 ANOP                      *                                    R2960000
000434                             4807 HASPRDR  CSECT                     DEFINE SUBROUTINES RESIDENT          R2962000

RDR      HASP INPUT SERVICE -- FIRST LEVEL SUBROUTINES                                                         PAGE  106


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4809 *********************************************************************** R2966000
                                   4810 *                                                                     * R2968000
                                   4811 *        RJOBEND -- SUBROUTINE TO COMPLETE JOB INPUT PROCESSING       * R2970000

                                   4812 *                                                                     * R2972000
                                   4813 *              FUNCTIONS -- 1) TEST FOR ACTIVE JOB                    * R2974000
                                   4814 *                           2) TERMINATE JOB                          * R2976000

                                   4815 *                           3) PLACE JOB IN EXECUTION QUEUE           * R2978000
                                   4816 *                                                                     * R2980000
                                   4817 *              LINK REGISTER -- RL1                                   * R2982000
                                   4818 *                                                                     * R2984000
                                   4819 *              EXTERNAL ROUTINE -- RJOBTERM                           * R2986000
                                   4820 *                                                                     * R2988000
                                   4821 *********************************************************************** R2990000






000434 12AA                        4823 RJOBEND  LTR   JCT,JCT             TEST FOR ACTIVE JOB                  R2994000
000436 0786                        4824          BCR   Z,RL1               RETURN IF NO JCT                     R2996000
000438 1F68                        4825          SLR   RL1,BASE3           COMPUTE RELATIVE RETURN              R2998000

00043A 4570 C95C      0095C        4826          BAL   RL2,RJCTTERM        PERFORM FINAL UPDATE OF JCT          R3000000


00043E 4320 D0BC      000BC        4828          IC    RW,RPRIORTY         PICK UP PRIORITY CHARACTER           R3004000
000442 9180 A06B      0006B        4829          TM    JCTJBOPT,JCTPRICD   TEST FOR PRIORITY CARD               R3006000

000446 4710 C480      00480        4830          BO    RPRISET             BRANCH IF PRIORITY CARD              R3008000


00044A 4110 CB4C      00B4C        4832          LA    R1,RTIMTAB-4        PREPARE TO SEARCH TIME TABLE         R3012000
00044E 4110 1004      00004        4833 RPRISCH1 LA    R1,4(,R1)           ADVANCE TO NEXT ENTRY                R3014000
000452 D502 A0A5 1001 000A5 00001  4834          CLC   JCTETIME+1(3),1(R1) COMPARE ESTIMATED EXECUTION TIME     R3016000
000458 4720 C44E      0044E        4835          BH    RPRISCH1            BRANCH IF GREATER THAN TABLE ENTRY   R3018000

00045C 1B00                        4836          SR    R0,R0               NO                                   R3020000
00045E 4300 1000      00000        4837          IC    R0,0(,R1)           USE ASSOCIATED PRIORITY              R3022000


000462 4110 CB74      00B74        4839          LA    R1,ROUTTAB-4        PREPARE TO SEARCH OUTPUT TABLE       R3026000
000466 4110 1004      00004        4840 RPRISCH2 LA    R1,4(,R1)           ADVANCE TO NEXT ENTRY                R3028000

00046A D502 A0F9 1001 000F9 00001  4841          CLC   JCTESOUT+1(3),1(R1) COMPARE ESTIMATED OUTPUT             R3030000
000470 4720 C466      00466        4842          BH    RPRISCH2            BRANCH IF GREATER THAN TABLE ENTRY   R3032000
000474 1B22                        4843          SR    RW,RW               NO                                   R3034000
000476 4320 1000      00000        4844          IC    RW,0(,R1)           USE ASSOCIATED PRIORITY              R3036000
00047A 1E20                        4845          ALR   RW,R0               COMPUTE AVERAGE OF                   R3038000

00047C 8820 0001      00001        4846          SRL   RW,1                 THE TWO PRIORITIES                  R3040000


000480 5420 CBB0      00BB0        4848 RPRISET  N     RW,RDCF15           CLEAR EXTRANEOUS BITS                R3044000
000484 5810 D058      00058        4849          L     R1,RDRDCT           R1 = ADDRESS OF INPUT DCT            R3046000
                            00000  4850          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         R3048000

000488 4300 1022      00022        4851          IC    R0,DCTPRINC         R0 = INPUT DEVICE PRIORITY INCREMENT R3050000
00048C 1E20                        4852          ALR   RW,R0               INCREMENT PRIORITY                   R3052000
00048E 4220 C493      00493        4853          STC   RW,*+5              SET UP COMPARE                       R3054000
000492 9500 1023      00023        4854          CLI   DCTPRLIM,*-*        COMPARE PRIORITY WITH LIMIT          R3056000
000496 47B0 C49E      0049E        4855          BNL   *+8                 BRANCH IF PRIORITY IS LESS           R3058000

RDR      HASP INPUT SERVICE -- FIRST LEVEL SUBROUTINES                                                         PAGE  107


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00049A 4320 1023      00023        4856          IC    RW,DCTPRLIM         SET PRIORITY TO LIMIT                R3060000
                                   4857          DROP  R1                  DROP DCT ADDRESSABILITY              R3062000


00049E 8920 0004      00004        4859          SLL   RW,4                USE FOUR LOW-ORDER BITS              R3066000

0004A2 4220 A08F      0008F        4860          STC   RW,JCTPRIO          SAVE EXECUTION PRIORITY              R3068000
0004A6 4220 D084      00084        4861          STC   RW,RMESSAGE+QUEPRIO SET JOB QUEUE PRIORITY               R3070000
0004AA D200 D085 A08D 00085 0008D  4862          MVC   RMESSAGE+QUETYPE(1),JCTJCLAS SAVE JOB CLASS              R3072000
0004B0 947F D085      00085        4863          NI    RMESSAGE+QUETYPE,255-QENTBY   TURN OFF BUSY BIT          R3074000

0004B4 9640 D085      00085        4864          OI    RMESSAGE+QUETYPE,$XEQ    TURN ON EXECUTION CODE BIT      R3076000
0004B8 4570 C97E      0097E        4865          BAL   RL2,RJOBTERM        TERMINATE JOB                        R3078000
0004BC 5810 D0B8      000B8        4866          L     R1,RJOB             GET ADDRESS OF JOB QUEUE ELEMENT     R3080000
                                   4867          MVC   RMESSAGE+2(&QENTSIZ-2),2(R1)  SAVE JOB QUEUE ELEMENT     R3082000
0004C0 D20D D086 1002 00086 00002  4868+         MVC   RMESSAGE+2(16-2),2(R1)        SAVE JOB QUEUE ELEMENT     R3082000



                                   4870         $QREM  RMESSAGE            REMOVE JOB QUEUE ELEMENT             R3086000
0004C6 4110 D084      00084        4871+         LA    R1,RMESSAGE                                              DG012000
0004CA 45E0 B054      00054        4872+         BAL   LINK,$QREM          LINK TO CONTROL SERVICE PROGRAM      BA008000
0004CE 0570                        4873          BALR  RL2,0               ESTABLISH N/P EXIT RETURN            R3088000
0004D0 1B00                        4874          SR    R0,R0               CLEAR REGISTER                       R3090000
0004D2 4300 D085      00085        4875          IC    R0,RMESSAGE+QUETYPE      GET EXECUTION CLASS CODE        R3092000

                                   4876         $QADD  RMESSAGE,(R0),RNOJOB     QUEUE JOB FOR EXECUTION         R3094000
0004D6 4110 D084      00084        4877+         LA    R1,RMESSAGE                                              DG012000
0004DA 45E0 B048      00048        4878+         BAL   LINK,$QADD          LINK TO CONTROL SERVICE PROGRAM      BA008000

0004DE 4780 CAEA      00AEA        4879+         BC    8,RNOJOB                                                 NP008000
0004E2 1B00                        4880          SR    R0,R0               CLEAR ADDRESS                        R3096000
0004E4 5000 D0B8      000B8        4881          ST    R0,RJOB              OF JOB QEUEUE ELEMENT               R3098000
0004E8 47F6 8000      00000        4882          B     0(RL1,BASE3)        RETURN                               R3100000
RDR      HASP INPUT SERVICE -- FIRST LEVEL SUBROUTINES                                                         PAGE  108



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4884 *********************************************************************** R3104000
                                   4885 *                                                                     * R3106000
                                   4886 *        RGET -- SUBROUTINE TO GET NEXT CARD FROM INPUT BUFFER        * R3108000
                                   4887 *                                                                     * R3110000
                                   4888 *              FUNCTION -- SET INPUT POINTER TO NEXT CARD             * R3112000
                                   4889 *                                                                     * R3114000
                                   4890 *              OUTPUT -- RPI = ADDRESS OF NEXT CARD IMAGE             * R3116000

                                   4891 *                                                                     * R3118000
                                   4892 *              LINK REGISTER -- RL1                                   * R3120000

                                   4893 *                                                                     * R3122000
                                   4894 *              RETURNS -- RL1+0 - END OF FILE RETURN                  * R3124000
                                   4895 *                         RL1+4 - NORMAL RETURN                       * R3126000
                                   4896 *                                                                     * R3128000
                                   4897 *              EXTERNAL ROUTINE -- RJOBKILL                           * R3130000

                                   4898 *                                                                     * R3132000
                                   4899 *********************************************************************** R3134000





0004EC 9140 D05C      0005C        4901 RGET     TM    RDRSW,RSYSINSW      TEST FOR GENERATED DD *              R3138000
0004F0 4780 C500      00500        4902          BZ    RGET1               BRANCH IF NOT                        R3140000
0004F4 5850 D078      00078        4903          L     RPI,RSAVE1          YES, RESTORE ORIGINAL POINTER        R3142000
0004F8 94BF D05C      0005C        4904          NI    RDRSW,255-RSYSINSW  RESET INDICATION                     R3144000
0004FC 47F0 6004      00004        4905          B     4(,RL1)              AND RETURN                          R3146000

000500 1F68                        4906 RGET1    SLR   RL1,BASE3           COMPUTE RELATIVE RETURN ADDRESS      R3148000

000502 12AA                        4907          LTR   JCT,JCT             TEST FOR ACTIVE JOB                  R3150000
000504 4780 C514      00514        4908          BZ    RGETNOCT            DO NOT COUNT IF NO JCT               R3152000
000508 5820 A0DC      000DC        4909          L     RW,JCTCARDS         INCREMENT                            R3154000
00050C 4120 2001      00001        4910          LA    RW,1(,RW)            CARD                                R3156000
000510 5020 A0DC      000DC        4911          ST    RW,JCTCARDS           COUNT                              R3158000

                                   4912 RGETNOCT NULL                      *                                    R3160000
000514                             4913+RGETNOCT DS    0H                                                       NU006000
                                   4914          AIF   (&NUMINRS EQ 0).RINR2                                    R3162000
000514 9104 D04A      0004A        4915          TM    PCEID,PCEINRID      IS THIS INTERNAL READER              R3164000
000518 4780 C5DC      005DC        4916          BZ    RNOTINR             IF NOT SKIP OVER FAKE READ           R3166000
00051C 5810 D058      00058        4917          L     R1,RDRDCT           PICK UP READER DCT                   R3168000
                            00000  4918          USING DCTDSECT,R1                                              R3170000
000520 4150 1048      00048        4919          LA    RPI,RIDDATA         POINT TO CARD AREA                   R3172000
000524 9104 D05C      0005C        4920          TM    RDRSW,RDREOFSW      ARE WE TRYING TO CLOSE OUT           R3174000
000528 4776 8000      00000        4921          BNZ   0(RL1,BASE3)        RETURN EOF                           R3176000

                                   4922         $DISABLE ALL               DISABLE I/O INTERRUPTS               R3178000

00052C 8000 B0C9      000C9        4923+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
000530 9160 1014      00014        4924 RINRLOOP TM    DCTFLAGS,DCTDELET+DCTRSTRT OPERATOR TRYING TO KILL       R3180000
000534 4780 C558      00558        4925          BZ    RINRTPST            TEST FOR POST REQUIRED               R3182000
000538 94BF 103C      0003C        4926          NI    RIDFLAGS,255-RIDBUSY MAKE SURE BUSY OFF                  R3184000

                                   4927          $ENABLE ALL                                                    R3186000
00053C 8000 B0C8      000C8        4928+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
000540 949F 1014      00014        4929          NI    DCTFLAGS,255-DCTDELET-DCTRSTRT NEGATE DELETE FLAGS       R3188000
000544 9604 D05C      0005C        4930          OI    RDRSW,RDREOFSW      SET EOF SWITCH                       R3190000
000548 5060 D06C      0006C        4931 RINRKILL ST    RL1,RLSAVE1         SAVE RETURN                          R3192000
00054C 4560 C916      00916        4932          BAL   RL1,RJOBKILL        DELETE JOB                           R3194000
000550 5860 D06C      0006C        4933          L     RL1,RLSAVE1         RESTORE LINK                         R3196000
000554 47F6 8000      00000        4934          B     0(RL1,BASE3)        RETURN EOF OR NORMAL                 R3198000
RDR      HASP INPUT SERVICE -- FIRST LEVEL SUBROUTINES                                                         PAGE  109


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000558 9180 103C      0003C        4935 RINRTPST TM    RIDFLAGS,RIDPOST    TEST FOR POST REQUIRED               R3200000

00055C 927F 103C      0003C        4936          MVI   RIDFLAGS,255-RIDPOST+RIDBUSY-RIDBUSY SET X'7F'           R3202000
000560 4780 C576      00576        4937          BZ    RINRWAIT            IF NOT WAIT                          R3204000
000564 58F0 CCEC      00CEC        4938          L     R15,=V(XWARM)       POINT TO THAW SUBROUTINE             R3206000
000568 9014 C5CC      005CC        4939          STM   R1,R4,RINRSAVE      SAVE R1 - R4                         R3208000

00056C 5840 1044      00044        4940          L     R4,RIDTCB           POINT R4 TO TCB                      R3210000
000570 05EF                        4941          BALR  LINK,R15            AND THAW THE JOBSTEP                 R3212000
000572 9814 C5CC      005CC        4942          LM    R1,R4,RINRSAVE      RESTORE R1 - R4                      R3214000
                                   4943 RINRWAIT $WAIT IO,ENABLE           WAIT FOR $POST                       R3216000
000576 9640 D049      00049        4944+RINRWAIT OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
00057A 8000 B0C8      000C8        4945+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
00057E 45F0 B030      00030        4946+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                                   4947          $DISABLE ALL                                                   R3218000
000582 8000 B0C9      000C9        4948+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
000586 9180 103C      0003C        4949          TM    RIDFLAGS,RIDPOST    IS USER WAITING                      R3220000
00058A 4710 C592      00592        4950          BO    *+8                 IF YES, DON'T HOLD DCT               R3222000
00058E 9620 1000      00000        4951          OI    DCTSTAT,DCTHOLD     ASSUME EOF CARD                      R3224000

000592 9140 103C      0003C        4952          TM    RIDFLAGS,RIDBUSY    I/O COMPLETED                        R3226000
000596 4710 C530      00530        4953          BO    RINRLOOP            TEST OPERATOR ACTION IF NOT          R3228000
                                   4954          $ENABLE ALL                                                    R3230000

00059A 8000 B0C8      000C8        4955+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
00059E 9604 D05C      0005C        4956          OI    RDRSW,RDREOFSW      SET EOF SWITCH                       R3232000
0005A2 D504 1048 CD01 00048 00D01  4957          CLC   RIDDATA(5),=C'/*EOF' END OF FILE                         R3234000
0005A8 4786 8000      00000        4958          BE    0(RL1,BASE3)        RETURN EOF                           R3236000
0005AC 94FB D05C      0005C        4959          NI    RDRSW,255-RDREOFSW  RESET EOF SWITCH                     R3238000
0005B0 D504 1048 CD06 00048 00D06  4960          CLC   RIDDATA(5),=C'/*DEL' DELETE CARD                         R3240000
0005B6 4776 8004      00004        4961          BNE   4(RL1,BASE3)        RETURN NORMALLY                      R3242000
0005BA 4160 6004      00004        4962          LA    RL1,4(0,RL1)        SET NORMAL RETURN FOR KILL JOB       R3244000
0005BE 9240 1048      00048        4963          MVI   RIDDATA,C' '        BLANK                                R3246000
0005C2 D24E 1049 1048 00049 00048  4964          MVC   RIDDATA+1(79),RIDDATA CARD                               R3248000
0005C8 47F0 C548      00548        4965          B     RINRKILL            KILL JOB                             R3250000
0005CC                             4966 RINRSAVE DS    4F                  SAVEAREA FOR XWARM CALL              R3252000

0005DC                             4967 RNOTINR  DS    0H                                                       R3254000

                                   4968 .RINR2   ANOP                                                           R3256000
                                   4969          AIF   (&NUMLNES EQ 0).RRJE06B                                  R3258000

                                   4970 .RRJE06B ANOP                                                           R3272000
0005DC 4155 0050      00050        4971          LA    RPI,80(RPI)         ADVANCE INPUT POINTER TO NEXT CARD   R3274000
0005E0 5550 D060      00060        4972 RGETEST  CL    RPI,RBIEND          TEST FOR END OF BUFFER               R3276000
0005E4 47D6 8004      00004        4973          BNH   4(RL1,BASE3)        BRANCH IF NOT END OF BUFFER          R3278000
0005E8 9104 D05C      0005C        4974          TM    RDRSW,RDREOFSW      TEST FOR READER EOF                  R3280000
0005EC 4776 8000      00000        4975          BNZ   0(RL1,BASE3)        RETURN IF READER EOF                 R3282000
0005F0 917F 3028      00028        4976          TM    BUFECBCC,X'7F'      TEST FOR CARD READER ERROR           R3284000
0005F4 4710 C604      00604        4977          BO    READ                BRANCH IF NO ERROR                   R3286000
0005F8 5060 D06C      0006C        4978          ST    RL1,RLSAVE1         SAVE LINK REGISTER                   R3288000
0005FC 4560 C916      00916        4979          BAL   RL1,RJOBKILL        KILL JOB IN ERROR                    R3290000
000600 5860 D06C      0006C        4980          L     RL1,RLSAVE1         RESTORE LINK REGISTER                R3292000
                                   4981 READ    $EXCP  RDRDCT              INITIATE CARD READ PROGRAM           R3294000

000604 5810 D058      00058        4982+READ     L     R1,RDRDCT                                                DG012000
000608 45E0 B06C      0006C        4983+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000

                                   4984 RWAIT   $WAIT  IO                  WAIT FOR COMPLETION OF READ          R3296000

00060C 9640 D049      00049        4985+RWAIT    OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
000610 45F0 B030      00030        4986+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                                   4987 RDCKCOM  NULL                                                           R3298000
000614                             4988+RDCKCOM  DS    0H                                                       NU006000
000614 5810 D058      00058        4989          L     R1,RDRDCT           R1 = READER DCT ADDRESS              R3300000
RDR      HASP INPUT SERVICE -- FIRST LEVEL SUBROUTINES                                                         PAGE  110


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00000  4990          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         R3302000
000618 9180 1014      00014        4991          TM    DCTFLAGS,DCTSTOP    TEST FOR STOP COMMAND                R3304000
00061C 4710 C60C      0060C        4992          BO    RWAIT               BRANCH IF STOP COMMAND               R3306000
000620 9160 1014      00014        4993          TM    DCTFLAGS,DCTDELET+DCTRSTRT    TEST FOR DELETE            R3308000
000624 4780 C638      00638        4994          BZ    RDNOCOM             BRANCH IF NO DELETE                  R3310000

000628 949F 1014      00014        4995          NI    DCTFLAGS,255-DCTDELET-DCTRSTRT  RESET DELETE BITS        R3312000
                                   4996          DROP  R1                  KILL DCT ADDRESSABILITY              R3314000
00062C 5060 D06C      0006C        4997          ST    RL1,RLSAVE1         SAVE LINK REGISTER                   R3316000

000630 4560 C916      00916        4998          BAL   RL1,RJOBKILL        DELETE JOB                           R3318000
000634 5860 D06C      0006C        4999          L     RL1,RLSAVE1         RESTORE LINK REGISTER                R3320000



                                   5001 RDNOCOM  NULL                                                           R3324000
000638                             5002+RDNOCOM  DS    0H                                                       NU006000
                                   5003          AIF   (&NUMLNES EQ 0).RRJE07                                   R3326000
                                   5004 .RRJE07  ANOP                                                           R3342000
000638 917F 3028      00028        5005          TM    BUFECBCC,X'7F'      TEST FOR READ COMPLETE               R3344000
00063C 4780 C60C      0060C        5006          BZ    RWAIT               BRANCH IF READ NOT COMPLETE          R3346000
000640 9710 3010      00010        5007          XI    IOBSIOCC,RSIOCSWS   TEST FOR                             R3348000
000644 9130 3010      00010        5008          TM    IOBSIOCC,RSIOCC     SUCCESSFUL SIO                       R3350000
000648 4770 C656      00656        5009          BNZ   RDTEST              BRANCH IF NO CSW STORED              R3352000

00064C D201 300E CBBA 0000E 00BBA  5010          MVC   IOBCSW+5(2),RDCF80+2    FORCE RESIDUAL TO 80     OY08682 R3354000
000652 9241 3028      00028        5011          MVI   BUFECBCC,X'41'      INSURE UNSUCCESSFUL READ COMPLETION  R3356000
000656 917F 3028      00028        5012 RDTEST   TM    BUFECBCC,X'7F'      TEST COMPLETION CODE                 R3358000

00065A 4710 C66A      0066A        5013          BO    RCOMP               BRANCH IF SUCCESSFUL READ COMPLETION R3360000
00065E 9101 300C      0000C        5014          TM    IOBCSW+3,RUNIEXCP   TEST CSW IN IOB FOR UNIT EXCEPTION   R3362000
000662 4780 C66A      0066A        5015          BZ    RCOMP               BRANCH IF CARD READER ERROR          R3364000
000666 9604 D05C      0005C        5016          OI    RDRSW,RDREOFSW      SET READER END-OF-FILE SWITCH        R3366000


00066A 5820 3008      00008        5018 RCOMP    L     RW,IOBCSW-1         GET CSW CMD ADDR FROM IOB CSW        R3370000
00066E 5F20 CCF0      00CF0        5019          SL    RW,=A(8)            ADJUST TO POINT TO LAST COMMAND      R3378000
000672 5812 0000      00000        5020          L     R1,0(RW)            GET COMMAND DATA ADDRESS             R3380000
000676 4A12 0006      00006        5021          AH    R1,6(RW)            ADD COMMAND BYTE COUNT               R3382000
00067A 4B10 300E      0000E        5022          SH    R1,IOBCSW+5         SUBTRACT BYTE COUNT RESIDUE          R3384000
00067E 5F10 CBB8      00BB8        5023          SL    R1,RDCF80           COMPUTE ADDRESS OF LAST CARD         R3386000
000682 4121 0000      00000        5024          LA    RW,0(R1)            CLEAR HIGH-ORDER BYTE                R3388000

000686 5020 D060      00060        5025 RCOMPZ   ST    RW,RBIEND           SAVE FOR COMPARE                     R3390000
00068A 4153 0108      00108        5026          LA    RPI,RIBUFST(RBI)    SET INPUT POINTER TO FIRST CARD      R3392000
00068E 47F0 C5E0      005E0        5027          B     RGETEST             GO BACK AND TEST                     R3394000
RDR      HASP INPUT SERVICE -- FIRST LEVEL SUBROUTINES                                                         PAGE  111



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5029 *********************************************************************** R3398000
                                   5030 *                                                                     * R3400000
                                   5031 *        RPUT -- SUBROUTINE TO ADD CARD TO OUTPUT BUFFER              * R3402000
                                   5032 *                                                                     * R3404000
                                   5033 *              FUNCTIONS -- 1) IF OUTPUT BUFFER IS FULL, TERMINATE    * R3406000

                                   5034 *                              WRITE, AND START NEXT OUTPUT BUFFER    * R3408000
                                   5035 *                           2) ADD CARD TO OUTPUT BUFFER              * R3410000
                                   5036 *                                                                     * R3412000
                                   5037 *              LINK REGISTER -- RL1                                   * R3414000
                                   5038 *                                                                     * R3416000
                                   5039 *              EXTERNAL ROUTINE -- RGETBUF                            * R3418000
                                   5040 *                                                                     * R3420000
                                   5041 *********************************************************************** R3422000







000692 4160 6000      00000        5043 RPUTOLAY LA    RL1,0(,RL1)         ENTRY FOR OVERLAY ROUTINES           R3426000
000696 1F68                        5044          SLR   RL1,BASE3           COMPUTE RELATIVE RETURN ADDRESS      R3428000
000698 1244                        5045 RPUT     LTR   RBO,RBO             TEST FOR OUTPUT BUFFER               R3430000
00069A 4780 C71C      0071C        5046          BZ    RESETYPE            BRANCH IF FLUSHING                   R3432000
00069E 5810 D064      00064        5047          L     R1,RBONEXT          GET OUTPUT POINTER                   R3434000
0006A2 D501 5000 D0BE 00000 000BE  5048          CLC   0(2,RPI),RDRDLM     TEST FOR DELIMITER CARD              R3436000
0006A8 4770 C6BC      006BC        5049          BNE   RPUTEST             BRANCH IF NOT                        R3438000
0006AC 9500 D058      00058        5050          CLI   RCARDID,X'00'       TEST CARD TYPE                       R3440000

0006B0 4770 C6BC      006BC        5051          BNE   RPUTEST             BRANCH IF NOT NORMAL CARD            R3442000
0006B4 9130 D05C      0005C        5052          TM    RDRSW,ROSINSW+RXBJOBSW  TEST FOR O/S DS OR BATCH         R3444000
0006B8 4780 C724      00724        5053          BZ    RPUTERM             BRANCH IF NOT                        R3446000



0006BC 9118 D05C      0005C        5055 RPUTEST  TM    RDRSW,RJCLSW+ROSINSW  TEST FOR JCL OR O/S DATA SET       R3450000

0006C0 4770 C6D0      006D0        5056          BNZ   RPUTNOCT            BRANCH IF EITHER                     R3452000
0006C4 5820 A228      00228        5057          L     RW,JCTJOBIN         INCREMENT                            R3454000
0006C8 4120 2001      00001        5058          LA    RW,1(,RW)            SYSIN                               R3456000

0006CC 5020 A228      00228        5059          ST    RW,JCTJOBIN           COUNT                              R3458000
0006D0 5910 D068      00068        5060 RPUTNOCT C     R1,RBOEND           TEST FOR END OF OUTPUT BUFFER        R3460000
0006D4 4740 C704      00704        5061          BL    RCOPY               BRANCH IF NOT END OF BUFFER          R3462000
0006D8 92FF 1000      00000        5062          MVI   0(R1),X'FF'         SET LAST RCB                         R3464000
                            00000  5063          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         R3466000
0006DC 5810 D05C      0005C        5064          L     R1,RDADCT           R1 = DA DCT ADDRESS                  R3468000
0006E0 5040 1004      00004        5065          ST    RBO,DCTBUFAD        SET OUTPUT BUFFER IN DCT             R3470000

0006E4 D203 1008 4058 00008 00058  5066          MVC   DCTSEEK,RBUFTRK(RBO) SET TRACK IN DCT                    R3472000
                                   5067          DROP  R1                  KILL DCT ADDRESSABILITY              R3474000
                                   5068         $TRACK RJCTCYMX            GET NEXT TRACK                       R3476000
0006EA 4110 A0FC      000FC        5069+         LA    R1,RJCTCYMX                                              DG012000
0006EE 45E0 B064      00064        5070+         BAL   LINK,$TRACK         LINK TO CONTROL SERVICE PROGRAM      BA008000

0006F2 5014 0058      00058        5071          ST    R1,RBUFTRK(RBO)     SET CHAIN TRACK                      R3478000
0006F6 1821                        5072          LR    RW,R1               SAVE NEXT TRACK                      R3480000
                                   5073         $EXCP  RDADCT              INITIATE WRITE                       R3482000
0006F8 5810 D05C      0005C        5074+         L     R1,RDADCT                                                DG012000

0006FC 45E0 B06C      0006C        5075+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
000700 4570 CA9C      00A9C        5076          BAL   RL2,RGETBUF         GET NEXT BUFFER                      R3484000
RDR      HASP INPUT SERVICE -- FIRST LEVEL SUBROUTINES                                                         PAGE  112


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000704 9250 1000      00000        5078 RCOPY    MVI   0(R1),80            SET RECORD LENGTH                    R3488000
000708 D200 1001 D058 00001 00058  5079          MVC   1(1,R1),RCARDID     SET CARD TYPE                        R3490000

00070E D24F 1002 5000 00002 00000  5080          MVC   2(80,R1),0(RPI)     MOVE TEXT                            R3492000
000714 4110 1052      00052        5081          LA    R1,82(,R1)          ADVANCE                              R3494000
000718 5010 D064      00064        5082          ST    R1,RBONEXT           OUTPUT POINTER                      R3496000
00071C 9200 D058      00058        5083 RESETYPE MVI   RCARDID,X'00'       RESET CARD TYPE                      R3498000
000720 47F0 C952      00952        5084          B     RL1RETRN            RETURN                               R3500000






000724 92FF 1000      00000        5086 RPUTERM  MVI   0(R1),X'FF'         SET LAST RCB                         R3504000
                            00000  5087          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         R3506000
000728 5810 D05C      0005C        5088          L     R1,RDADCT           R1 = DA DCT ADDRESS                  R3508000

00072C 5040 1004      00004        5089          ST    RBO,DCTBUFAD        SET OUTPUT BUFFER IN DCT             R3510000
000730 D203 1008 4058 00008 00058  5090          MVC   DCTSEEK,RBUFTRK(RBO) SET TRACK IN DCT                    R3512000
000736 1B22                        5091          SR    RW,RW               TERMINATE                            R3514000
000738 5024 0058      00058        5092          ST    RW,RBUFTRK(RBO)      TRACK CHAIN                         R3516000
                                   5093          DROP  R1                  KILL DCT ADDRESSABILITY              R3518000

                                   5094         $EXCP  (R1)                INITIATE WRITE                       R3520000
00073C 45E0 B06C      0006C        5095+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
000740 5820 D080      00080        5096          L     RW,RJCLTRAK         RW = NEXT JCL TRACK                  R3522000
000744 4570 CA9C      00A9C        5097          BAL   RL2,RGETBUF         GET NEXT JCL BUFFER                  R3524000
000748 47F0 C952      00952        5098          B     RL1RETRN                                                 R3526000

RDR      HASP INPUT SERVICE -- FIRST LEVEL SUBROUTINES                                                         PAGE  113


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5100 *********************************************************************** R3530000
                                   5101 *                                                                     * R3532000
                                   5102 *        RKEYSCAN -- SUBROUTINE TO SCAN AND PROCESS KEYWORD VALUES    * R3534000
                                   5103 *                                                                     * R3536000

                                   5104 *              FUNCTIONS -- 1) SCAN AND IDENTIFY KEYWORD FROM CALLER  * R3538000
                                   5105 *                              PROVIDED CONTROL CARD SCAN TABLE       * R3540000
                                   5106 *                           2) SCAN KEYWORD VALUE AND CONVERT         * R3542000
                                   5107 *                              ACCORDING TO CONTROL CARD SCAN ENTRY   * R3544000

                                   5108 *                           3) STORE CONVERTED VALUE IN CALLER        * R3546000
                                   5109 *                              PROVIDED OUTPUT TABLE                  * R3548000
                                   5110 *                                                                     * R3550000
                                   5111 *              INPUTS -- R1  = ADDRESS OF CONTROL CARD SCAN TABLE     * R3552000
                                   5112 *                        RW  = POINTER TO PARAMETER FIELD             * R3554000

                                   5113 *                        R14 = BINARY 1                               * R3556000
                                   5114 *                        R15 = ADDRESS OF END OF INPUT FIELD          * R3558000
                                   5115 *                                                                     * R3560000
                                   5116 *              LINK REGISTER -- RL1                                   * R3562000
                                   5117 *                                                                     * R3564000
                                   5118 *              RETURNS -- RL1+0 - ERROR RETURN                        * R3566000
                                   5119 *                         RL1+4 - NORMAL RETURN                       * R3568000

                                   5120 *                                                                     * R3570000
                                   5121 *********************************************************************** R3572000






                                   5123 RKEYSCAN NULL                      TABLE DIRECTED KEYWORD SCAN ROUTINE  R3576000
00074C                             5124+RKEYSCAN DS    0H                                                       NU006000
00074C 5010 D018      00018        5125          ST    R1,PCER1            SAVE INPUT REGISTER                  R3578000
000750 5060 D01C      0001C        5126          ST    RL1,PCEWA           SAVE LINK REGISTER                   R3580000

000754 862E 6000      00000        5127          BXH   RW,R14,0(RL1)       SEARCH FOR                           R3582000
000758 9540 2001      00001        5128          CLI   1(RW),C' '           START OF                            R3584000
00075C 4780 C754      00754        5129          BE    *-8                   PARAMETERS                         R3586000



000760 9801 CBA0      00BA0        5131 RKEYNEXT LM    R0,R1,RKBLANKS      INITIALIZE SCAN REGISTERS            R3590000
000764 924A C8EB      008EB        5132          MVI   RKSCANSW+1,X'4A'    SET FOR ALPHAMERIC SCAN              R3592000
000768 4560 C8C0      008C0        5133          BAL   RL1,RKSCAN          SCAN KEYWORD                         R3594000
00076C 47F0 C8B8      008B8        5134          B     RKEYEXIT            EXIT IF END OF CARD                  R3596000

000770 9001 CBA8      00BA8        5135          STM   R0,R1,RTEMP         SAVE KEYWORD                         R3598000
000774 9540 CBAF      00BAF        5136          CLI   RTEMP+7,C' '        TEST FOR NULL KEYWORD                R3600000

000778 4780 C760      00760        5137          BE    RKEYNEXT            IGNORE NULL KEYWORDS                 R3602000
00077C 9540 CBA8      00BA8        5138          CLI   RTEMP,C' '          TEST FOR OVERFLOW                    R3604000
000780 4770 C8B2      008B2        5139          BNE   RKERROR             BRANCH IF MORE THAN 7 CHARACTERS     R3606000
000784 5870 D018      00018        5140          L     RL2,PCER1           RL2 = ADDRESS OF SCAN TABLE          R3608000
                            00000  5141          USING RSCANTBL,RL2        ESTABLISH SCAN TABLE ADDRESSABILITY  R3610000



000788 95FF 7000      00000        5143 RKSERCH1 CLI   RSCANAME,X'FF'      TEST FOR END OF SCAN TABLE           R3614000
00078C 4780 C8B2      008B2        5144          BE    RKERROR             BRANCH IF KEYWORD NOT FOUND          R3616000
000790 D506 7000 CBA9 00000 00BA9  5145          CLC   RSCANAME,RTEMP+1    COMPARE TABLE KEYWORD                R3618000
000796 4780 C7B4      007B4        5146          BE    RKFOUND             BRANCH IF KEYWORD MATCHES            R3620000
00079A 9540 CBAE      00BAE        5147          CLI   RTEMP+6,C' '        TEST KEYWORD LENGTH                  R3622000
RDR      HASP INPUT SERVICE -- FIRST LEVEL SUBROUTINES                                                         PAGE  114


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00079E 4770 C7AC      007AC        5148          BNE   RKSERCH2            BRANCH IF NOT SINGLE CHARACTER       R3624000

0007A2 D500 7007 CBAF 00007 00BAF  5149          CLC   RSCANABR,RTEMP+7    COMPARE TABLE ABBREVIATION           R3626000

0007A8 4780 C7B4      007B4        5150          BE    RKFOUND             BRANCH IF ABBREVIATION MATCHES       R3628000

0007AC 4170 700C      0000C        5152 RKSERCH2 LA    RL2,RSCANEXT        GET ADDRESS OF NEXT ENTRY            R3632000
0007B0 47F0 C788      00788        5153          B     RKSERCH1             AND CONTINUE SEARCHING              R3634000



0007B4 4810 700A      0000A        5155 RKFOUND  LH    R1,RSCANDSP         GET DISPLACEMENT FROM SCAN TABLE     R3638000
0007B8 1E1A                        5156          ALR   R1,JCT              ADD ADDRESS OF OUTPUT TABLE          R3640000
0007BA 4360 7008      00008        5157          IC    RL1,RSCANFLG        ISOLATE                              R3642000
0007BE 5460 CCF4      00CF4        5158          N     RL1,=A(RSCFLPCT)     MAXIMUM NUMBER OF VALUES            R3644000
0007C2 4770 C7E4      007E4        5159          BNZ   RKVALUE             BRANCH IF VALUES EXPECTED            R3646000
0007C6 9296 C7DC      007DC        5160          MVI   RKEYMASK,X'96'      PRESET OPERATION CODE TO 'OI'        R3648000
0007CA 9180 7008      00008        5161          TM    RSCANFLG,RSCFLCOM   TEST OPTION BYTE                     R3650000
0007CE 4780 C7D6      007D6        5162          BZ    *+8                 BRANCH IF NO COMPLEMENTATION         R3652000
0007D2 9294 C7DC      007DC        5163          MVI   RKEYMASK,X'94'      SET OPERATION CODE TO 'NI'           R3654000
0007D6 D200 C7DD 7009 007DD 00009  5164          MVC   RKEYMASK+1(1),RSCANMSK   SET MASK                        R3656000

0007DC 9600 1000      00000        5165 RKEYMASK OI    0(R1),*-*           SET KEYWORD INDICATION               R3658000

0007E0 47F0 C760      00760        5166          B     RKEYNEXT            PROCESS NEXT KEYWORD                 R3660000


0007E4 957E 2000      00000        5168 RKVALUE  CLI   0(RW),C'='          TEST CURRENT CHARACTER               R3664000
0007E8 4770 C8B2      008B2        5169          BNE   RKERROR             ILLEGAL IF NOT EQUAL SIGN            R3666000

0007EC 954D 2001      00001        5170          CLI   1(RW),C'('          TEST NEXT CHARACTER                  R3668000
0007F0 4770 C7F8      007F8        5171          BNE   *+8                 BRANCH IF NOT LEFT PAREN             R3670000
0007F4 1E2E                        5172          ALR   RW,R14              ADVANCE TO NEXT COLUMN               R3672000
0007F6 1366                        5173          LCR   RL1,RL1             NEGATE FOLLOWING INSTRUCTION         R3674000
0007F8 1366                        5174          LCR   RL1,RL1             SET COUNT NEGATIVE IF NO PAREN       R3676000



0007FA 5010 D020      00020        5176 RKNXTVAL ST    R1,PCEWB            SAVE ADDRESS OF OUTPUT VALUE         R3680000
0007FE 5060 D024      00024        5177          ST    RL1,PCEWC           SAVE VALUE COUNT                     R3682000
000802 1B00                        5178          SR    R0,R0               CLEAR                                R3684000
000804 1810                        5179          LR    R1,R0                REGISTERS                           R3686000
000806 9110 7008      00008        5180          TM    RSCANFLG,RSCFLBLK   TEST OPTION BYTE                     R3688000

00080A 4780 C812      00812        5181          BZ    *+8                 BRANCH IF NO BLANK FILL              R3690000
00080E 9801 CBA0      00BA0        5182          LM    R0,R1,RKBLANKS      INITIALIZE SCAN REGISTERS            R3692000
000812 91C0 7008      00008        5183          TM    RSCANFLG,RSCFLNUM+RSCFLBIN    TEST OPTION BYTE           R3694000
000816 4780 C81E      0081E        5184          BZ    *+8                 BRANCH IF ALPHAMERIC SCAN            R3696000

00081A 92F0 C8EB      008EB        5185          MVI   RKSCANSW+1,C'0'     SET FOR NUMERIC SCAN                 R3698000
00081E 4560 C8C0      008C0        5186          BAL   RL1,RKSCAN          SCAN NEXT VALUE                      R3700000
000822 47F0 C8B2      008B2        5187          B     RKERROR             BRANCH IF END OF CARD                R3702000
000826 9140 7008      00008        5188          TM    RSCANFLG,RSCFLBIN   TEST OPTION BYTE                     R3704000
00082A 4780 C842      00842        5189          BZ    RKEBCDIC            BRANCH IF NO BINARY CONVERSION       R3706000
00082E 9001 CBA8      00BA8        5190          STM   R0,R1,RTEMP         CONVERT                              R3708000
000832 96F0 CBAF      00BAF        5191          OI    RTEMP+7,X'F0'       EBCDIC                       OY02744 R3709000
000836 F277 CBA8 CBA8 00BA8 00BA8  5192          PACK  RTEMP,RTEMP          VALUE                               R3710000
00083C 1B00                        5193          SR    R0,R0                 TO                                 R3712000
00083E 4F10 CBA8      00BA8        5194          CVB   R1,RTEMP               BINARY                            R3714000
000842 9001 CBA8      00BA8        5195 RKEBCDIC STM   R0,R1,RTEMP         SAVE VALUE                           R3716000
000846 1B00                        5196          SR    R0,R0               GET                                  R3718000

000848 4300 7009      00009        5197          IC    R0,RSCANLEN          VALUE LENGTH                        R3720000
00084C 0600                        5198          BCTR  R0,0                DECREMENT LENGTH                     R3722000
RDR      HASP INPUT SERVICE -- FIRST LEVEL SUBROUTINES                                                         PAGE  115



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00084E 4200 C893      00893        5199          STC   R0,RKSETMVC+1       SET MOVE LENGTH                      R3724000
000852 4160 CBAE      00BAE        5200          LA    RL1,RTEMP+6         COMPUTE ADDRESS OF                   R3726000
000856 1F60                        5201          SLR   RL1,R0               FIRST BYTE OF VALUE - 1             R3728000
000858 91BF 6000      00000        5202          TM    0(RL1),X'BF'        TEST FOR OVERFLOW                    R3730000
00085C 4770 C8B2      008B2        5203          BNZ   RKERROR             BRANCH IF VALUE IS TOO LARGE         R3732000
000860 9120 7008      00008        5204          TM    RSCANFLG,RSCFLEFT   TEST OPTION BYTE                     R3734000
000864 4780 C88E      0088E        5205          BZ    RKSETVAL            BRANCH IF NO LEFT JUSTIFICATION      R3736000
000868 91BF CBAF      00BAF        5206          TM    RTEMP+7,X'BF'       TEST LOW-ORDER BYTE                  R3738000
00086C 4780 C88E      0088E        5207          BZ    RKSETVAL            BRANCH IF NULL VALUE                 R3740000
000870 4200 C881      00881        5208          STC   R0,RKLFSHFT+1       SET SHIFT LENGTH                     R3742000
000874 4310 CBA8      00BA8        5209          IC    R1,RTEMP            GET FILL CHARACTER                   R3744000



000878 91BF 6001      00001        5211 RKLFTADJ TM    1(RL1),X'BF'        TEST FIRST CHARACTER                 R3748000
00087C 4770 C88E      0088E        5212          BNZ   RKSETVAL            BRANCH IF NOT NULL VALUE             R3750000

000880 D200 6001 6002 00001 00002  5213 RKLFSHFT MVC   1(*-*,RL1),2(RL1)   SHIFT LEFT ONE CHARACTER             R3752000
000886 4210 CBAF      00BAF        5214          STC   R1,RTEMP+7          ADD FILL CHARACTER                   R3754000
00088A 47F0 C878      00878        5215          B     RKLFTADJ            TRY AGAIN                            R3756000


00088E 5810 D020      00020        5217 RKSETVAL L     R1,PCEWB            GET ADDRESS OF OUTPUT VALUE          R3760000
000892 D200 1000 6001 00000 00001  5218 RKSETMVC MVC   0(*-*,R1),1(RL1)    SET OUTPUT VALUE                     R3762000
000898 5860 D024      00024        5219          L     RL1,PCEWC           GET VALUE COUNT                      R3764000
00089C 1266                        5220          LTR   RL1,RL1             TEST                                 R3766000
00089E 47D0 C760      00760        5221          BNP   RKEYNEXT            BRANCH IF SINGLE VALUE               R3768000
0008A2 955D 2000      00000        5222          CLI   0(RW),C')'          TEST NEXT CHARACTER                  R3770000
0008A6 4780 C760      00760        5223          BE    RKEYNEXT            BRANCH IF LAST VALUE                 R3772000
0008AA 1E10                        5224          ALR   R1,R0               ADVANCE                              R3774000

0008AC 1E1E                        5225          ALR   R1,R14               VALUE ADDRESS                       R3776000
0008AE 4660 C7FA      007FA        5226          BCT   RL1,RKNXTVAL        DECREMENT VALUE COUNT AND CONTINUE   R3778000




0008B2 5860 D01C      0001C        5228 RKERROR  L     RL1,PCEWA           RESTORE LINK REGISTER                R3782000
0008B6 07F6                        5229          BR    RL1                 INDICATE SCAN ERROR                  R3784000



0008B8 5860 D01C      0001C        5231 RKEYEXIT L     RL1,PCEWA           RESTORE LINK REGISTER                R3788000
0008BC 47F0 6004      00004        5232          B     4(,RL1)             INDICATE NORMAL END OF CONTROL CARD  R3790000
                                   5233          DROP  RL2                 DROP SCAN TABLE ADDRESSABILITY       R3792000
RDR      HASP INPUT SERVICE -- FIRST LEVEL SUBROUTINES                                                         PAGE  116


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5235 RKSCAN   NULL                      CONTROL CARD FIELD SCAN SUBROUTINE   R3796000
0008C0                             5236+RKSCAN   DS    0H                                                       NU006000
0008C0 862E 6000      00000        5237          BXH   RW,R14,0(RL1)       GET NEXT CHARACTER                   R3798000




0008C4 956B 2000      00000        5239 RKSCAN1  CLI   0(RW),C','          TEST NEXT CHARACTER                  R3802000
0008C8 4780 6004      00004        5240          BE    4(,RL1)             BRANCH IF COMMA                      R3804000

0008CC 957E 2000      00000        5241          CLI   0(RW),C'='          *                                    R3806000

0008D0 4780 6004      00004        5242          BE    4(,RL1)             BRANCH IF EQUAL SIGN                 R3808000
0008D4 955D 2000      00000        5243          CLI   0(RW),C')'          *                                    R3810000
0008D8 4780 6004      00004        5244          BE    4(,RL1)             BRANCH IF RIGHT PAREN                R3812000
0008DC 9540 2000      00000        5245          CLI   0(RW),C' '          *                                    R3814000
0008E0 4770 C8EA      008EA        5246          BNE   RKSCANSW            BRANCH IF NOT BLANK                  R3816000
0008E4 18F2                        5247          LR    R15,RW              RE-DEFINE END OF CARD                R3818000
0008E6 47F0 6004      00004        5248          B     4(,RL1)             INDICATE END OF FIELD                R3820000
0008EA 9500 2000      00000        5249 RKSCANSW CLI   0(RW),*-*           COMPARE WITH LOWER LIMIT             R3822000
0008EE 4740 C8B2      008B2        5250          BL    RKERROR             ILLEGAL IF LESS                      R3824000
0008F2 95F9 2000      00000        5251          CLI   0(RW),C'9'          COMPARE WITH UPPER LIMIT             R3826000
0008F6 4720 C8B2      008B2        5252          BH    RKERROR             ILLEGAL IF GREATER                   R3828000
0008FA 5000 CBA8      00BA8        5253          ST    R0,RTEMP            TEST                                 R3830000

0008FE 91BF CBA8      00BA8        5254          TM    RTEMP,X'BF'          HIGH-ORDER CHARACTER                R3832000
000902 4770 C8B2      008B2        5255          BNZ   RKERROR             BRANCH IF OVERFLOW                   R3834000
000906 8D00 0008      00008        5256          SLDL  R0,8                SHIFT PARAMETER                      R3836000

00090A 4310 2000      00000        5257          IC    R1,0(,RW)           ADD CURRENT CHARACTER                R3838000
00090E 872E C8C4      008C4        5258          BXLE  RW,R14,RKSCAN1      GET NEXT CHARACTER                   R3840000
000912 47F0 6004      00004        5259          B     4(,RL1)             END OF CONTROL CARD                  R3842000
RDR      HASP INPUT SERVICE -- FIRST LEVEL SUBROUTINES                                                         PAGE  117


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5261 *********************************************************************** R3846000
                                   5262 *                                                                     * R3848000
                                   5263 *        RJOBKILL -- SUBROUTINE TO DELETE CURRENT JOB                 * R3850000
                                   5264 *                                                                     * R3852000
                                   5265 *              FUNCTIONS -- 1) TEST FOR ACTIVE JOB                    * R3854000
                                   5266 *                           2) NOTIFY OPERATOR OF DELETION            * R3856000
                                   5267 *                           3) TERMINATE JOB                          * R3858000

                                   5268 *                           4) PLACE JOB IN PRINT QUEUE               * R3860000
                                   5269 *                                                                     * R3862000
                                   5270 *              LINK REGISTER -- RL1                                   * R3864000
                                   5271 *                                                                     * R3866000

                                   5272 *              EXTERNAL ROUTINE -- RJOBTERM                           * R3868000
                                   5273 *                                                                     * R3870000
                                   5274 *********************************************************************** R3872000



000916 12AA                        5276 RJOBKILL LTR   JCT,JCT             KILL JOB NOW BEING READ              R3876000
000918 4780 C952      00952        5277          BZ    RL1RETRN            RETURN IF NO JCT                     R3878000

                                   5278         $WTO   RDELMSG,L'RDELMSG,JOB=YES,WAIT=YES,  NOTIFY OPERATOR    CR3880000
                                                       ROUTE=$LOG+$UR,CLASS=$TRIVIA,PRI=$ST     OF JOB KILL     R3882000
00091C 4110 CC2C      00C2C        5279+         LA    R1,RDELMSG                                               DG012000
000920                             5280+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
000920 5800 C928      00928        5281+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
000924 45E0 B098      00098        5282+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
000928 02050714                    5283+         DC    AL1(2,$LOG+$UR,L'RDELMSG,$TRIVIA+$ST)                    WT044000
00092C 92FF A091      00091        5284          MVI   JCTOPRIO,X'FF'      SET OUTPUT PRIORITY IN JCT           R3884000

000930 4570 C95C      0095C        5285          BAL   RL2,RJCTTERM        PERFORM FINAL UPDATE OF JCT          R3886000
000934 4570 C97E      0097E        5286          BAL   RL2,RJOBTERM        TERMINATE JOB                        R3888000

000938 9601 D05C      0005C        5287          OI    RDRSW,RJFLUSH       TURN ON FLUSH SWITCH                 R3890000
00093C 5810 D0B8      000B8        5288          L     R1,RJOB             GET ADDRESS OF JOB QUEUE ELEMENT     R3892000
000940 94BF 1004      00004        5289          NI    QUEFLAGS(R1),255-QUEHOLD1     RESET JOB HOLD STATUS      R3894000
                                   5290         $QPUT  (R1),$OUTPUT        PLACE JOB IN PRINT QUEUE             R3896000
000944 4100 0004      00004        5291+         LA    R0,$OUTPUT                                               DG012000
000948 45E0 B050      00050        5292+         BAL   LINK,$QPUT          LINK TO CONTROL SERVICE PROGRAM      BA008000
00094C D703 D0B8 D0B8 000B8 000B8  5293          XC    RJOB,RJOB           CLEAR ADDRESS OF JOB QUEUE ELEMENT   R3898000



000952 5560 CBC0      00BC0        5295 RL1RETRN CL    RL1,ROLAYCON        TEST                                 R3902000
000956 0726                        5296          BCR   H,RL1               RETURN TO RESIDENT ROUTINE           R3904000
000958 47F6 8000      00000        5297          B     0(RL1,BASE3)        RETURN TO OVERLAY ROUTINE            R3906000
RDR      HASP INPUT SERVICE -- SECOND LEVEL SUBROUTINES                                                        PAGE  118


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   5299 *********************************************************************** R3910000
                                   5300 *                                                                     * R3912000
                                   5301 *        RJCTTERM -- SUBROUTINE TO PERFORM FINAL UPDATE OF JCT        * R3914000

                                   5302 *                                                                     * R3916000
                                   5303 *              FUNCTIONS -- 1) CONVERT TIME ESTIMATE TO SECONDS       * R3918000
                                   5304 *                           2) COMPUTE OUTPUT ESTIMATE FROM LINE      * R3920000
                                   5305 *                              AND CARD ESTIMATES                     * R3922000
                                   5306 *                                                                     * R3924000
                                   5307 *              LINK REGISTER -- RL2                                     R3926000
                                   5308 *                                                                     * R3928000

                                   5309 *********************************************************************** R3930000





00095C 5810 A0A4      000A4        5311 RJCTTERM L     R1,JCTETIME         CONVERT TIME ESTIMATE                R3934000
000960 5C00 CBB4      00BB4        5312          M     R0,RDCF60            FROM MINUTES                        R3936000

000964 5010 A0A4      000A4        5313          ST    R1,JCTETIME           TO SECONDS                         R3938000


000968 5810 A0A8      000A8        5315          L     R1,JCTESTLN         MULTIPLY                             R3942000
00096C 5C00 CBBC      00BBC        5316          M     R0,RDCF1000          ESTIMATED LINE COUNT                R3944000

000970 5010 A0A8      000A8        5317          ST    R1,JCTESTLN           BY 1000                            R3946000
000974 5E10 A0AC      000AC        5318          AL    R1,JCTESTPU            AND ADD ESTIMATED CARD COUNT      R3948000
000978 5010 A0F8      000F8        5319          ST    R1,JCTESOUT             FOR ESTIMATED OUTPUT             R3950000
00097C 07F7                        5320          BR    RL2                 RETURN                               R3952000
RDR      HASP INPUT SERVICE -- SECOND LEVEL SUBROUTINES                                                        PAGE  119


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   5322 *********************************************************************** R3956000
                                   5323 *                                                                     * R3958000
                                   5324 *        RJOBTERM -- SUBROUTINE TO TERMINATE JOB                      * R3960000
                                   5325 *                                                                     * R3962000
                                   5326 *              FUNCTIONS -- 1) TERMINATE LAST OUTPUT BUFFER           * R3964000

                                   5327 *                           2) INITIATE WRITE OF LAST OUTPUT BUFFER   * R3966000
                                   5328 *                           3) CONSTRUCT INPUT/OUTPUT TABLE           * R3968000
                                   5329 *                           4) COMPLETE JOB CONTROL TABLE             * R3970000
                                   5330 *                           5) WRITE JCT AND IOT                      * R3972000
                                   5331 *                                                                     * R3974000

                                   5332 *              LINK REGISTER -- RL2                                   * R3976000
                                   5333 *                                                                     * R3978000
                                   5334 *              EXTERNAL ROUTINES -- 1) RPUT                           * R3980000
                                   5335 *                                   2) RGETBUF                        * R3982000
                                   5336 *                                                                     * R3984000

                                   5337 *********************************************************************** R3986000





00097E 5060 D070      00070        5339 RJOBTERM ST    RL1,RLSAVE2         SAVE                                 R3990000
000982 5070 D074      00074        5340          ST    RL2,RLSAVE3          RETURN REGISTERS                    R3992000

000986 5050 D07C      0007C        5341          ST    RPI,RSAVE2          SAVE INPUT POINTER                   R3994000
00098A 4150 D0BE      000BE        5342          LA    RPI,RDRDLM          GET ADDR OF DELIMITER CARD           R3996000
00098E 9108 D05C      0005C        5343          TM    RDRSW,RJCLSW        TEST JCL SWITCH                      R3998000
000992 4710 C99A      0099A        5344          BO    *+8                 BRANCH IF PROCESSING JCL             R4000000
000996 4560 C698      00698        5345          BAL   RL1,RPUT            ADD DELIMITER CARD TO OUTPUT FILE    R4002000
00099A 4150 CC88      00C88        5346          LA    RPI,=CL80'//'       ADD TWO NULL CARDS                   R4004000

00099E 9203 D058      00058        5347          MVI   RCARDID,X'03'        TO OUTPUT FILE                      R4006000
0009A2 4560 C698      00698        5348          BAL   RL1,RPUT              TO FORCE                           R4008000
0009A6 9219 D058      00058        5349          MVI   RCARDID,X'19'          THE O/S READER/INTERPRETER        R4010000
0009AA 4560 C698      00698        5350          BAL   RL1,RPUT                TO QUEUE THE JOB                 R4012000

0009AE 4150 CC1F      00C1F        5351          LA    RPI,RJOBDOC         ADD JOB DELETED                      R4014000
0009B2 9219 D058      00058        5352          MVI   RCARDID,X'19'        OR CANCELLED                        R4016000
0009B6 4560 C698      00698        5353          BAL   RL1,RPUT              MESSAGE                            R4018000


0009BA 5810 D064      00064        5355          L     R1,RBONEXT          SET                                  R4022000

0009BE 92FF 1000      00000        5356          MVI   0(R1),X'FF'          LAST RCB                            R4024000
                            00000  5357          USING DCTDSECT,R1         ESTABLISH DCT ADDRESSABILITY         R4026000
0009C2 5810 D05C      0005C        5358          L     R1,RDADCT           SET POINTER TO DA DCT                R4028000
0009C6 5040 1004      00004        5359          ST    RBO,DCTBUFAD        SET OUTPUT BUFFER IN DCT             R4030000
0009CA D203 1008 4058 00008 00058  5360          MVC   DCTSEEK,RBUFTRK(RBO) SET TRACK IN DCT                    R4032000
0009D0 D703 4058 4058 00058 00058  5361          XC    RBUFTRK(4,RBO),RBUFTRK(RBO) ZERO CHAIN TRACK             R4034000
                                   5362         $EXCP  (R1)                INITIATE WRITE                       R4036000

0009D6 45E0 B06C      0006C        5363+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000


0009DA D200 A08C D0BD 0008C 000BD  5365          MVC   JCTMCLAS,RMSGCLAS   SET MSGCLASS IN JCT                  R4040000

0009E0 5810 D0B8      000B8        5366          L     R1,RJOB             GET ADDRESS OF JOB QUEUE ELEMENT     R4042000
0009E4 D200 A0B9 100C 000B9 0000C  5367          MVC   JCTPROUT+1(1),QUEPRTRT(R1)    SET PRINT AND              R4044000
0009EA D200 A0BB 100D 000BB 0000D  5368          MVC   JCTPUOUT+1(1),QUEPUNRT(R1)     PUNCH ROUTE CODES         R4046000
0009F0 D707 A0FC A0FC 000FC 000FC  5369          XC    RJCTCYMX(JCTCYSAV-RJCTCYMX),RJCTCYMX    CLEAR HEADER     R4048000
RDR      HASP INPUT SERVICE -- SECOND LEVEL SUBROUTINES                                                        PAGE  120



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0009F6 1B22                        5371          SR    RW,RW               PREPARE TO INITIALIZE IOT            R4052000
0009F8 4570 CA9C      00A9C        5372          BAL   RL2,RGETBUF         GET A BUFFER FOR THE IOT             R4054000
                            00000  5373          USING IOTDSECT,RBO        ESTABLISH IOT ADDRESSABILITY         R4056000
0009FC D203 405C A05C 0005C 0005C  5374          MVC   IOTTRACK,JCTIOTTR   SET IOT TRACK ADDRESS IN IOT         R4058000
000A02 D70F 4060 4060 00060 00060  5375          XC    IOTIOTTR(IOTCYMAP-IOTIOTTR),IOTIOTTR    CLEAR FIELDS     R4060000
000A08 5810 D0B8      000B8        5376          L     R1,RJOB             GET ADDRESS OF JOB QUEUE ELEMENT     R4062000
000A0C D203 4064 1008 00064 00008  5377          MVC   IOTJCTTR,QUETRAK(R1)     SET JCT TRACK ADDRESS IN IOT    R4064000

                                   5378         $XXC   XC,IOTCYMAP,IOTCYMAP,&CYLMAPL CLEAR ALLOCATION BIT MAP   R4066000
000A12 D763 4070 4070 00070 00070  5379+         XC    IOTCYMAP+0(100),IOTCYMAP+0                               XX050000

000A18 4110 00DF      000DF        5380          LA    R1,IOTPDDB+PDBBASLN-IOTDSECT  INITIALIZE DISPLACEMENT    R4068000
000A1C 5010 40D4      000D4        5381          ST    R1,IOTPDDBP                    OF FIRST AVAILABLE PDDB   R4070000
000A20 9220 40D8      000D8        5382          MVI   PDBFLAG1-PDBDSECT+IOTPDDB,PDB1LOG       SET              R4072000
000A24 D200 40D9 D0BD 000D9 000BD  5383          MVC   PDBCLASS-PDBDSECT+IOTPDDB,RMSGCLAS       UP              R4074000
000A2A 9207 40DA      000DA        5384          MVI   PDBLENG-PDBDSECT+IOTPDDB,PDBBASLN         LOG            R4076000

000A2E D203 40DB A064 000DB 00064  5385          MVC   PDBMTTR-PDBDSECT+IOTPDDB,JCTINJCT          PDDB          R4078000


000A34 D203 A064 4064 00064 00064  5387          MVC   JCTINJCT,IOTJCTTR   SET JCT TRACK ADDRESS IN JCT         R4082000
                                   5388         $TIME                      GET CURRENT TIME                     R4084000
000A3A 4110 0001      00001        5389+         LA    1,1(0,0)                          LOAD 1 TO SPECIFY UNIT 00200000
000A3E 0A0B                        5390+         SVC   11                                ISSUE TIME SVC         00280000
000A40 9001 A220      00220        5391          STM   R0,R1,JCTRDROF      SET READER END TIME AND DATE         R4086000


000A44 5810 D05C      0005C        5393          L     R1,RDADCT           GET ADDRESS OF DIRECT-ACCESS DCT     R4090000

000A48 50A0 1004      00004        5394          ST    JCT,DCTBUFAD        SET OUTPUT BUFFER IN DCT             R4092000

000A4C D203 1008 A064 00008 00064  5395          MVC   DCTSEEK,JCTINJCT    SET TRACK IN DCT                     R4094000
                                   5396         $EXCP  (R1)                INITIATE WRITE OF JCT                R4096000
000A52 45E0 B06C      0006C        5397+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
000A56 1BAA                        5398          SR    JCT,JCT             INDICATE NO JCT                      R4098000



000A58 5810 D05C      0005C        5400          L     R1,RDADCT           GET ADDRESS OF DIRECT-ACCESS DCT     R4102000
000A5C 5040 1004      00004        5401          ST    RBO,DCTBUFAD        SET OUTPUT BUFFER IN DCT             R4104000
000A60 D203 1008 405C 00008 0005C  5402          MVC   DCTSEEK,IOTTRACK    SET TRACK IN DCT                     R4106000
                                   5403         $EXCP  (R1)                INITIATE WRITE OF IOT                R4108000
000A66 45E0 B06C      0006C        5404+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
000A6A 1B44                        5405          SR    RBO,RBO             INDICATE NO OUTPUT BUFFER            R4110000
                                   5406          DROP  RBO                 DROP IOT ADDRESSABILITY              R4112000


000A6C 5810 D05C      0005C        5408          L     R1,RDADCT           GET ADDRESS OF DIRECT-ACCESS DCT     R4116000
000A70 9500 1010      00010        5409 RSYNCH   CLI   DCTBUFCT,0          TEST ACTIVE BUFFER COUNT             R4118000

000A74 4780 CA84      00A84        5410          BE    RTERMJOB            BRANCH IF ZERO                       R4120000

                                   5411         $WAIT  BUF                 WAIT FOR COMPLETION OF ALL I/O       R4122000
000A78 9640 D048      00048        5412+         OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000
000A7C 45F0 B030      00030        5413+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000A80 47F0 CA70      00A70        5414          B     RSYNCH              TRY AGAIN                            R4124000



000A84 925C D0BC      000BC        5416 RTERMJOB MVI   RPRIORTY,C'*'       RESET PRIORITY                       R4128000
                                   5417          AIF   ('&XBATCHC' EQ '').RNOXB4                                R4130000
000A88 5850 D07C      0007C        5418 .RNOXB4  L     RPI,RSAVE2          RESTORE INPUT POINTER                R4134000
000A8C 5860 D070      00070        5419          L     RL1,RLSAVE2         RESTORE                              R4136000
000A90 5870 D074      00074        5420          L     RL2,RLSAVE3          RETURN REGISTERS                    R4138000
RDR      HASP INPUT SERVICE -- SECOND LEVEL SUBROUTINES                                                        PAGE  121


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000A94 07F7                        5421          BR    RL2                   AND RETURN                         R4140000
                                   5422          DROP  R1                  KILL DCT ADDRESSABILITY              R4142000
                                   5423          DROP  RBI                 KILL IOB ADDRESSABILITY              R4144000

RDR      HASP INPUT SERVICE -- SECOND LEVEL SUBROUTINES                                                        PAGE  122


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5425 *********************************************************************** R4148000
                                   5426 *                                                                     * R4150000

                                   5427 *        RGETBUF -- SUBROUTINE TO INITIALIZE OUTPUT BUFFERS           * R4152000
                                   5428 *                                                                     * R4154000
                                   5429 *              FUNCTION -- ACQUIRE AND INITIALIZE OUTPUT BUFFER       * R4156000
                                   5430 *                                                                     * R4158000
                                   5431 *              INPUT -- RW = TRACK ADDRESS                            * R4160000
                                   5432 *                                                                     * R4162000
                                   5433 *              OUTPUT -- RBO = ADDRESS OF OUTPUT BUFFER               * R4164000
                                   5434 *                                                                     * R4166000
                                   5435 *              LINK REGISTER -- RL2                                   * R4168000
                                   5436 *                                                                     * R4170000
                                   5437 *********************************************************************** R4172000






000A96 4170 7000      00000        5439 RGETBUFO LA    RL2,0(,RL2)         ENTRY FROM OVERLAY ROUTINES          R4176000
000A9A 1F78                        5440          SLR   RL2,BASE3           COMPUTE RELATIVE RETURN ADDRESS      R4178000

                                   5441 RGETBUF $GETBUF RNOBUF             GET A BUFFER FOR OUTPUT              R4180000
000A9C 45E0 B034      00034        5442+RGETBUF  BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
000AA0 4780 CAD0      00AD0        5443+         BC    8,RNOBUF                                                 NP008000
000AA4 1841                        5444          LR    RBO,R1              RBO = BUFFER ADDRESS                 R4182000
000AA6 5020 4058      00058        5445          ST    RW,RBUFTRK(,RBO)    STORE TRACK IN BUFFER                R4184000
000AAA 12AA                        5446          LTR   JCT,JCT             TEST FOR JCT                         R4186000
000AAC 4780 CAB6      00AB6        5447          BZ    *+10                BRANCH IF NO JCT                     R4188000
000AB0 D203 405C A060 0005C 00060  5448          MVC   HDBDSKEY-BUFDSECT(,RBO),JCTDSKEY   SET DATA SET KEY      R4190000
000AB6 5A10 CCF8      00CF8        5449          A     R1,=A(RTOTBUFL-82)  COMPUTE END OF BUFFER                R4192000
000ABA 5010 D068      00068        5450          ST    R1,RBOEND           SAVE FOR TEST                        R4194000
000ABE 4110 4060      00060        5451          LA    R1,ROBUFST(,RBO)    SET UP                               R4196000
000AC2 5010 D064      00064        5452          ST    R1,RBONEXT           OUTPUT POINTER                      R4198000

000AC6 5570 CBC0      00BC0        5453          CL    RL2,ROLAYCON        TEST                                 R4200000
000ACA 0727                        5454          BCR   H,RL2               RETURN TO RESIDENT ROUTINE           R4202000
000ACC 47F7 8000      00000        5455          B     0(RL2,BASE3)        RETURN TO OVERLAY ROUTINE            R4204000






                                   5457 RNOBUF  $WAIT  BUF                 WAIT FOR A BUFFER                    R4208000
000AD0 9640 D048      00048        5458+RNOBUF   OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000
000AD4 45F0 B030      00030        5459+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000AD8 47F0 CA9C      00A9C        5460          B     RGETBUF             GO BACK AND TRY AGAIN                R4210000
RDR      HASP INPUT SERVICE -- NON-PROCESS EXIT ROUTINES                                                       PAGE  123


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5462 *********************************************************************** R4214000
                                   5463 *                                                                     * R4216000
                                   5464 *        THE FOLLOWING ROUTINES ARE USED TO PUT THE CARD READER       * R4218000
                                   5465 *        PROCESSOR IN A HASP $WAIT CONDITION IF A HASP RESOURCE       * R4220000

                                   5466 *        IS NOT AVAILABLE.  BEFORE EXITING, REGISTER 'RL2' IS SET     * R4222000

                                   5467 *        SUCH THAT A BRANCH THROUGH 'RL2' WILL CAUSE A RETRY.         * R4224000
                                   5468 *                                                                     * R4226000

                                   5469 *********************************************************************** R4228000





000ADC 1F78                        5471 RNOCMB   SLR   RL2,BASE3           COMPUTE RELATIVE RETURN              R4232000
                                   5472         $WAIT  CMB                 WAIT FOR A CONSOLE MESSAGE BUFFER    R4234000
000ADE 9602 D048      00048        5473+         OI    PCEEWF+$EWBCMB,$EWFCMB                                   WA016000
000AE2 45F0 B030      00030        5474+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000AE6 1E78                        5475          ALR   RL2,BASE3           COMPUTE ABSOLUTE RETURN              R4236000
000AE8 07F7                        5476          BR    RL2                 GO BACK AND TRY AGAIN                R4238000



                                   5478 RNOJOB  $WAIT  JOB                 WAIT FOR ROOM IN JOB QUEUE           R4242000
000AEA 9610 D048      00048        5479+RNOJOB   OI    PCEEWF+$EWBJOB,$EWFJOB                                   WA016000

000AEE 45F0 B030      00030        5480+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000AF2 07F7                        5481          BR    RL2                 GO BACK AND TRY AGAIN                R4244000

RDR      HASP INPUT SERVICE -- CONTROL CARD ROUTING TABLE                                                      PAGE  124



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5483 *                                                                       R4248000
                                   5484 *                             TABLE COMPARE                             R4250000
                                   5485 *                                                                       R4252000


000AF4 D500 2004 5002 00004 00002  5487 RCCTBCLC CLC   RCCTBCDE-RCCTAB(*-*,RW),2(RPI)                           R4256000



                                   5489 *                                                                       R4260000
                                   5490 *                             CONTROL CARD ROUTING TABLE                R4262000
                                   5491 *                                                                       R4264000


000AFC                             5493 RCCTAB   DS    0F                  HASP CONTROL CARD CODE TABLE         R4268000

                                   5494         $OCON  HASPRCC1            HASP COMMAND CARD                    R4270000
000000                             5495+HA$QRCC1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000AFC                             5496+HASPRDR  CSECT                                                          OC012000

000AFC 0000                        5497+         DC    0H'0',QL2(HA$QRCC1) GENERATE OCON                        OC014000
000AFE 10                          5498 RCCTBNDX DC    AL1(16)                  INDEX                           R4272000
000AFF 00                          5499 RCCTBLEN DC    AL1(0)                   LENGTH                          R4274000
000B00 5B40404040404040            5500 RCCTBCDE DC    CL8'$'                   CODE                            R4276000
000B08                             5501 RCCTBNXT DS    0F                                                       R4278000
                                   5502         $OCON  HASPRCC2            HASP JOBPARM CARD                    R4280000
000000                             5503+HA$QRCC2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000B08                             5504+HASPRDR  CSECT                                                          OC012000
000B08 0000                        5505+         DC    0H'0',QL2(HA$QRCC2) GENERATE OCON                        OC014000
000B0A 0407D1D6C2D7C1D9            5506          DC    AL1(4,7),CL8'JOBPARM'                                    R4282000
                                   5507         $OCON  HASPRCC1            HASP MESSAGE CARD                    R4284000
000000                             5508+HA$QRCC1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000

000B14                             5509+HASPRDR  CSECT                                                          OC012000
000B14 0000                        5510+         DC    0H'0',QL2(HA$QRCC1) GENERATE OCON                        OC014000
000B16 0C07D4C5E2E2C1C7            5511          DC    AL1(12,7),CL8'MESSAGE'                                   R4286000
                                   5512         $OCON  HASPRCC2            HASP OUTPUT CARD                     R4288000

000000                             5513+HA$QRCC2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000B20                             5514+HASPRDR  CSECT                                                          OC012000
000B20 0000                        5515+         DC    0H'0',QL2(HA$QRCC2) GENERATE OCON                        OC014000
000B22 0006D6E4E3D7E4E3            5516          DC    AL1(0,6),CL8'OUTPUT'                                     R4290000
                                   5517         $OCON  HASPRCC1            HASP PRIORITY CARD                   R4292000
000000                             5518+HA$QRCC1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000

000B2C                             5519+HASPRDR  CSECT                                                          OC012000
000B2C 0000                        5520+         DC    0H'0',QL2(HA$QRCC1) GENERATE OCON                        OC014000
000B2E 0007D7D9C9D6D9C9            5521          DC    AL1(0,7),CL8'PRIORITY'                                   R4294000
                                   5522         $OCON  HASPRCC1            HASP ROUTE CARD                      R4296000
000000                             5523+HA$QRCC1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000
000B38                             5524+HASPRDR  CSECT                                                          OC012000
000B38 0000                        5525+         DC    0H'0',QL2(HA$QRCC1) GENERATE OCON                        OC014000
000B3A 0405D9D6E4E3C540            5526          DC    AL1(4,5),CL8'ROUTE'                                      R4298000

                                   5527         $OCON  HASPRCC1            HASP SETUP CARD                      R4300000
000000                             5528+HA$QRCC1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OC010000

000B44                             5529+HASPRDR  CSECT                                                          OC012000
000B44 0000                        5530+         DC    0H'0',QL2(HA$QRCC1) GENERATE OCON                        OC014000
000B46 0805E2C5E3E4D740            5531          DC    AL1(8,5),CL8'SETUP'                                      R4302000
000B50                             5532 RCCTBEND DS    0F                  END OF CONTROL CARD CODE TABLE       R4304000
RDR      HASP INPUT SERVICE -- READER PRIORITY TABLES                                                          PAGE  125


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                            00B50  5535 RTIMTAB  EQU   *                   ESTIMATED TIME PRIORITY TABLE        R4310000
                                   5536          DC    AL1(&RPRI(1)),AL3(60*&RPRT(1))                           R4312000
000B50 09000078                    5537+         DC    AL1(9),AL3(60*2)                                         R4312000
                                   5538          DC    AL1(&RPRI(2)),AL3(60*&RPRT(2))                           R4314000
000B54 0800012C                    5539+         DC    AL1(8),AL3(60*5)                                         R4314000

                                   5540          DC    AL1(&RPRI(3)),AL3(60*&RPRT(3))                           R4316000
000B58 07000384                    5541+         DC    AL1(7),AL3(60*15)                                        R4316000
                                   5542          DC    AL1(&RPRI(4)),AL3(60*&RPRT(4))                           R4318000

000B5C 06FFFFF0                    5543+         DC    AL1(6),AL3(60*279620)                                    R4318000
                                   5544          DC    AL1(&RPRI(5)),AL3(60*&RPRT(5))                           R4320000
000B60 05FFFFF0                    5545+         DC    AL1(5),AL3(60*279620)                                    R4320000
                                   5546          DC    AL1(&RPRI(6)),AL3(60*&RPRT(6))                           R4322000
000B64 04FFFFF0                    5547+         DC    AL1(4),AL3(60*279620)                                    R4322000
                                   5548          DC    AL1(&RPRI(7)),AL3(60*&RPRT(7))                           R4324000
000B68 03FFFFF0                    5549+         DC    AL1(3),AL3(60*279620)                                    R4324000

                                   5550          DC    AL1(&RPRI(8)),AL3(60*&RPRT(8))                           R4326000
000B6C 02FFFFF0                    5551+         DC    AL1(2),AL3(60*279620)                                    R4326000
                                   5552          DC    AL1(&RPRI(9)),AL3(60*&RPRT(9))                           R4328000
000B70 01FFFFF0                    5553+         DC    AL1(1),AL3(60*279620)                                    R4328000
000B74 00FFFFFF                    5554          DC    AL4(X'FFFFFF')                                           R4330000






                            00B78  5556 ROUTTAB  EQU   *                   ESTIMATED OUTPUT PRIORITY TABLE      R4334000
                                   5557          DC    AL1(&XPRI(1)),AL3(&XLIN(1))                              R4336000

000B78 090007D0                    5558+         DC    AL1(9),AL3(2000)                                         R4336000
                                   5559          DC    AL1(&XPRI(2)),AL3(&XLIN(2))                              R4338000
000B7C 08001388                    5560+         DC    AL1(8),AL3(5000)                                         R4338000
                                   5561          DC    AL1(&XPRI(3)),AL3(&XLIN(3))                              R4340000
000B80 07003A98                    5562+         DC    AL1(7),AL3(15000)                                        R4340000
                                   5563          DC    AL1(&XPRI(4)),AL3(&XLIN(4))                              R4342000

000B84 06FFFFFF                    5564+         DC    AL1(6),AL3(16777215)                                     R4342000
                                   5565          DC    AL1(&XPRI(5)),AL3(&XLIN(5))                              R4344000
000B88 05FFFFFF                    5566+         DC    AL1(5),AL3(16777215)                                     R4344000
                                   5567          DC    AL1(&XPRI(6)),AL3(&XLIN(6))                              R4346000
000B8C 04FFFFFF                    5568+         DC    AL1(4),AL3(16777215)                                     R4346000

                                   5569          DC    AL1(&XPRI(7)),AL3(&XLIN(7))                              R4348000
000B90 03FFFFFF                    5570+         DC    AL1(3),AL3(16777215)                                     R4348000
                                   5571          DC    AL1(&XPRI(8)),AL3(&XLIN(8))                              R4350000
000B94 02FFFFFF                    5572+         DC    AL1(2),AL3(16777215)                                     R4350000
                                   5573          DC    AL1(&XPRI(9)),AL3(&XLIN(9))                              R4352000

000B98 01FFFFFF                    5574+         DC    AL1(1),AL3(16777215)                                     R4352000
000B9C 00FFFFFF                    5575          DC    AL4(X'FFFFFF')                                           R4354000
RDR      HASP INPUT SERVICE -- CONSTANTS AND OPERATOR MESSAGES                                                 PAGE  126


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5577 *                                                                       R4358000

                                   5578 *                             READER CONSTANTS AND OPERATOR MESSAGES    R4360000
                                   5579 *                                                                       R4362000



000BA0                             5581          DS    0D                                                       R4366000
000BA0 4040404040404040            5582 RKBLANKS DC    CL8' '              BLANK CONSTANT (MUST PRECEDE RTEMP)  R4368000

000BA8                             5583 RTEMP    DS    D                   DOUBLE WORD WORK AREA                R4370000
000BB0 0000000F                    5584 RDCF15   DC    F'15'               CONSTANT                             R4372000
000BB4 0000003C                    5585 RDCF60   DC    F'60'               CONSTANT                             R4374000
000BB8 00000050                    5586 RDCF80   DC    F'80'               CONSTANT                             R4376000
000BBC 000003E8                    5587 RDCF1000 DC    F'1000'             CONSTANT                             R4378000
000BC0 00000FFF                    5588 ROLAYCON DC    F'4095'             OVERLAY TEST CONSTANT                R4380000

000BC4 E2C9C7D5D6D540              5589 RSONCODE DC    CL7'SIGNON'         SIGN-ON CODE WORD                    R4382000
000BCB D1D6C240                    5590 RJOBCON  DC    CL4'JOB'            JOB CONSTANT                         R4384000
000BCF 6161E2E8E2C9D540            5591 RSYSINCD DC    CL80'//SYSIN     DD *               GENERATED STATEMENT' R4386000
000C1F 5C5C5C5C5C5C5C5C            5592 RJOBDOC  DC    C'******** JOB '                                         R4388000

000C2C C4C5D3C5E3C5C4              5593 RDELMSG  DC    C'DELETED'                                               R4390000
000C33 40C2E840C8C1E2D7            5594          DC    C' BY HASP OR CANCELLED BY OPERATOR BEFORE EXECUTION '   R4392000
000C66 5C5C5C5C5C5C5C5C            5595          DC    C'*********'                                             R4394000
000C6F 40E2D2C9D7D7C9D5            5596 RFLMSG   DC    C' SKIPPING FOR JOB CARD'                                R4396000




000C88                             5598          DS    0D                  INPUT PROCESSOR LITERAL POOL         R4400000
000C88                             5599          LTORG                                                          R4402000
000C88 6161404040404040            5600                =CL80'//'
000CD8 C3C1E3C1                    5601                =C'CATA'
000CDC C4C1E3C1                    5602                =C'DATA'
000CE0 C4D3D47E                    5603                =C'DLM='
000CE4 D1D6C240                    5604                =C'JOB '

000CE8 00000000                    5605                =V($COMMPCE)
000CEC 00000000                    5606                =V(XWARM)
000CF0 00000008                    5607                =A(8)

000CF4 0000000F                    5608                =A(RSCFLPCT)
000CF8 000007AE                    5609                =A(RTOTBUFL-82)
000CFC 615C                        5610                =C'/*'
000CFE C4C440                      5611                =C'DD '
000D01 615CC5D6C6                  5612                =C'/*EOF'

000D06 615CC4C5D3                  5613                =C'/*DEL'



                                   5615 $DLENGTH $DLENGTH                  COMPUTE CONTROL SECTION LENGTH       R4406000
RDR      HASPRDR CONTROL SECTION LENGTH                                                                        PAGE  127


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












000D10                             5618+         DS    0D                  FILL OUT CONTROL SECTION             DN016000

                            00D10  5619+$L       EQU   *-HASPRDR                                                DN018000
                            00000  5620+$L1      EQU   $L/100000*100000              COMPUTE                    DN020000
                            00000  5621+$L2      EQU   ($L-$L1)/10000*10000            INTERMEDIATE             DN022000
                            00BB8  5622+$L3      EQU   ($L-$L1-$L2)/1000*1000            LENGTH                 DN024000
                            0012C  5623+$L4      EQU   ($L-$L1-$L2-$L3)/100*100            VALUES               DN026000

                            00028  5624+$L5      EQU   ($L-$L1-$L2-$L3-$L4)/10*10                               DN028000
                            00004  5625+$L6      EQU   $L-$L1-$L2-$L3-$L4-$L5                                   DN030000





                                   5627+*                                                                       DN034000
                                   5628+*                                  DECIMAL LENGTH                       DN036000
                                   5629+*                                                                       DN038000



                            03344  5631+$DLENGTH EQU   $L1/100000*1048576+$L2/10000*65536+$L3/1000*4096+$L4/100CDN042000

                                       +               *256+$L5/10*16+$L6                                       DN044000






                                   5633          END                                                            R4408000
RDR                                               RELOCATION DICTIONARY                                        PAGE  128


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78


 0001     0002      24     000002
 0001     0004      24     000266
 0001     0005      24     0002B6
 0001     000C      24     000AFC
 0001     000C      24     000B14
 0001     000C      24     000B2C
 0001     000C      24     000B38
 0001     000C      24     000B44
 0001     000D      24     000B08
 0001     000D      24     000B20

 0001     000E      1C     000CE8

 0001     000F      1C     000CEC
 0003     0003      0C     000D14
 0006     0006      0C     000E14
 0007     0007      0C     000E6C

 0008     0008      0C     001224
 0009     0009      0C     00159C
 0009     000A      24     0018D6
 000B     000B      0C     00193C

RDR                                               CROSS-REFERENCE                                              PAGE  129


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$ACTION  00001 00000050 00425  03816 03863 04412
$ACTIVE  00001 000000C7 00636  03287 03289 03590 03592
$COMMCT  00002 000000CE 00642  03635 03643
$COMMQUE 00004 00000114 00662  03673

$CVTPTR  00001 00000010 01326  04320
$DATAKEY 00004 00000148 00688  04279 04287
$DCTPOOL 00004 000000F0 00653  03758 04060
$DISALL  00001 000000C9 00638  03631 03672 04923 04948

$ENBALL  00001 000000C8 00637  03639 03646 03680 04928 04945 04955
$ESTIME  00001 00000002 00163  04606
$ESTLNCT 00001 00000002 00164  04607
$ESTPUN  00001 00000064 00165  04607
$EWBBUF  00001 00000000 00385  03308 05412 05458
$EWBCMB  00001 00000000 00390  03638 05473
$EWBIO   00001 00000001 00395  03282 04944 04985
$EWBJOB  00001 00000000 00387  04215 04261 05479
$EWBUNIT 00001 00000000 00388  03342 03594
$EWBWORK 00001 00000001 00396  03683
$EWFBUF  00001 00000040 00362  03308 05412 05458

$EWFCMB  00001 00000002 00367  03638 05473
$EWFIO   00001 00000040 00372  04944 04985
$EWFJOB  00001 00000010 00364  04215 04261 05479
$EWFPOST 00001 00000080 00361  03684

$EWFUNIT 00001 00000008 00365  03342 03594
$EWFWORK 00001 00000020 00373  03683
$EXCP    00004 0000006C 00592  04983 05075 05095 05363 05397 05404
$EXITNOP 00002 0000002C 00557  00552 00553
$FREEBUF 00004 0000003C 00568  03574
$FREEQUE 00004 00000108 00659  03632 03644
$FREUNIT 00004 00000044 00573  03583 03588
$GETBUF  00004 00000034 00566  03305 05442
$GETUNIT 00004 00000040 00572  03269 03279 03293
$HASPECF 00001 000000C4 00633  03684
$HI      00001 00000007 00435  03659
$INPUT   00001 00000020 01063  04255

$IOTTEST 00001 00000722 01242  01243
$JCTTEST 00001 000005D0 01207  01208
$JITCKPT 00001 00000008 00463  04270

$JOBNO   00002 0000014C 00689  04221 04230
$JOBQPTR 00004 0000013C 00685  04266
$JQFREE  00004 00000140 00686  04212 04212
$L       00001 00000D10 05619  05620 05621 05622 05623 05624 05625
$LINECT  00001 0000003D 00166  04317
$LOG     00001 00000001 00408  03539 03659 03662 03789 03816 03863 03954 04109 04412 04429 04466 04778 05283
$L1      00001 00000000 05620  05621 05622 05623 05624 05625 05631
$L2      00001 00000000 05621  05622 05623 05624 05625 05631
$L3      00001 00000BB8 05622  05623 05624 05625 05631
$L4      00001 0000012C 05623  05624 05625 05631
$L5      00001 00000028 05624  05625 05631
$L6      00001 00000004 05625  05631

$MAIN    00001 00000020 00413  03662 03816 03863 04429

$NORMAL  00001 00000030 00424  03539 03659 04429
$NUCTABL 00004 0000012C 00671  00676

$NUCTBLE 00004 0000015C 00700  00704
$OLINK   00004 0000008C 00603  03253 03520 03548 03555
RDR                                               CROSS-REFERENCE                                              PAGE  130


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$ORET    00004 00000088 00602  03338 03597 03687 03709 03713 03773 03796 03873 03877 03961 04093 04116 04155 04473 04786
$OUTPUT  00001 00000004 01066  05291
$OXCTL   00004 00000090 00604  04443
$QADD    00004 00000048 00577  04258 04878
$QLOC    00004 0000005C 00582  04228
$QPUT    00004 00000050 00579  05292
$QREM    00004 00000054 00580  04872
$READ    00002 00000000 03246  03549

$SAVEBEG 00004 0000013C 00684  00693
$SAVEEND 00001 0000015C 00692  00693

$ST      00001 00000004 00434  03539 03789 03816 03863 03954 04109 04412 04429 04466 04778 05283

$STATUS  00001 000000C2 00631  04270
$TAPE    00001 00000010 00412  03816 03863
$TP      00001 00000008 00411  03659
$TRACK   00004 00000064 00587  03496 04246 04276 04294 05070
$TRIVIA  00001 00000010 00423  03789 03954 04109 04466 04778 05283
$UR      00001 00000004 00410  03539 03659 03789 03954 04109 04412 04429 04466 04778 05283
$WAIT    00004 00000030 00562  03309 03343 03595 03640 04216 04262 04946 04986 05413 05459 05474 05480
$WTO     00004 00000098 00609  03538 03658 03788 03815 03862 03953 04108 04411 04428 04465 04777 05282
$XEQ     00001 00000040 01062  04864
BASE1    00001 0000000B 00335  00540
BASE2    00001 0000000C 00336  03244
BASE3    00001 00000008 00333  03262 03340 03344 03354 03565 03582 03587 03599 03608 03792 03898 03907 03957 04112 04176

                               04185 04245 04257 04275 04293 04395 04469 04542 04549 04620 04630 04781 04825 04882 04906
                               04921 04934 04958 04961 04973 04975 05044 05297 05440 05455 05471 05475
BUFDSECT 00001 00000000 00790  01100 01213 03218 03221 03222 03224 03247 03262 03565 03608 03907 04185 04630 05448

BUFECBCC 00001 00000028 00813  04976 05005 05011 05012
BUFSTART 00008 00000058 00829  00836 00842 01100 01213 03221 03224 03312
CHKFREQ  00006 000015F2 04212  04217
CMBCHAIN 00004 00000000 00855  03644 03661 03661 03661
CMBCONS  00001 00000005 00857  03662 03667
CMBDSECT 00001 00000000 00854  00872 00873 00874 03642
CMBFLAGS 00001 00000004 00856  00872 03663 03666
CMBMSG   00132 00000008 00861  00874 03661 03668 03669 03670 03670
CMBMSGL  00001 00000006 00858  00873
CVTCRTTR 00003 000000B8 01429  01442
CVTDSECT 00001 00000000 01327  04321
CVTSMCA  00004 000000C4 01450  04321

CVTUSER  00004 000000CC 01453  01454
CVTXTNT1 00001 00000114 01533  01506
DCBBIT0  00001 00000080 01557  01678 01694 01733 01751 01796 01806 01822 01863 01873 01885 01908 01939 01942 01944 01946
                               01969 01972 01992 01997 02016 02053 02106 02129 02161 02165 02178 02273 02276 02286

DCBBIT1  00001 00000040 01558  01679 01695 01752 01760 01796 01806 01824 01864 01874 01887 01909 01911 01921 01939 01942
                               01945 01946 01974 01992 01995 01997 02019 02020 02021 02056 02057 02106 02131 02167 02169
                               02181 02225 02273 02278 02287
DCBBIT2  00001 00000020 01559  01680 01696 01753 01762 01806 01825 01865 01875 01888 01890 01891 01909 01911 01916 01922
                               01939 01941 01948 01976 01999 02001 02024 02025 02026 02060 02061 02108 02134 02170 02186
                               02228 02232 02273 02288

DCBBIT3  00001 00000010 01560  01644 01681 01697 01767 01809 01826 01866 01888 01891 01893 01909 01924 01949 01979 01999
                               02003 02028 02029 02030 02064 02065 02108 02136 02138 02140 02172 02187 02228 02233 02273
DCBBIT4  00001 00000008 01561  01645 01698 01768 01812 01827 01867 01876 01925 01950 01980 02005 02011 02012 02033 02034
                               02068 02069 02071 02072 02110 02143 02188 02228 02234
DCBBIT5  00001 00000004 01562  01647 01699 01770 01813 01827 01868 01877 01926 01953 01955 01982 02005 02008 02009 02012
                               02037 02039 02040 02041 02075 02076 02077 02078 02110 02145 02148 02174 02190 02223
DCBBIT6  00001 00000002 01563  01649 01682 01700 01772 01814 01831 01869 01927 01929 01932 01953 01956 01983 02044 02045
RDR                                               CROSS-REFERENCE                                              PAGE  131



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

                               02046 02047 02081 02082 02083 02084 02151 02192

DCBBIT7  00001 00000001 01564  01651 01683 01776 01816 01832 01870 01927 01930 01932 01958 01987 02049 02050 02087 02088
                               02090 02091 02176 02193 02235
DCBDEBAD 00004 0000002C 02104  03320 04331
DCBDSECT 00001 00000000 02296  03320 04331
DCBFDAD  00008 00000005 01578  01581
DCBSSID  00008 00000000 01785  01788
DCBWTOID 00004 00000000 01705  01720 01729
DCTBUFAD 00004 00000004 00898  03315 05065 05089 05359 05394 05401

DCTBUFCT 00001 00000010 00905  05409
DCTCHAIN 00004 00000014 00912  03758 03760 04060 04063
DCTDA    00001 00000000 00968  03292 03763 04066
DCTDCB   00004 00000008 00900  03319 04329 04330
DCTDELET 00001 00000040 01022  04924 04929 04993 04995

DCTDEVN  00008 00000018 00913  03529 03650 03765 03853 04068 04311 04401
DCTDEVTP 00001 00000012 00908  03763 04066
DCTDSECT 00001 00000000 00895  03248 03314 03528 03576 03650 03663 03667 03758 03759 03853 04060 04061 04249 04307 04329

                               04330 04399 04850 04918 04990 05063 05087 05357
DCTEWF   00004 0000000C 00904  03283
DCTFLAGS 00001 00000014 00911  03284 04416 04924 04929 04991 04993 04995
DCTHOLD  00001 00000020 00951  03577 04951
DCTHOLDJ 00001 00000004 01026  03284 04416
DCTINR   00001 00000014 00973  03268
DCTIOTYP 00001 00000013 00909  03296 03663

DCTNO    00001 00000011 00907  03667 03767 04070 04310
DCTPRINC 00001 00000022 00920  04851
DCTPRINT 00001 00000020 00918  04250
DCTPRLIM 00001 00000023 00921  04854 04856
DCTRDR   00001 00000010 00971  03278

DCTRSTRT 00001 00000020 01023  04924 04929 04993 04995
DCTSEEK  00004 00000008 00901  05066 05090 05360 05395 05402
DCTSTAT  00001 00000000 00896  03577 04951
DCTSTOP  00001 00000080 01021  04991

DCTWRITE 00001 00000040 00984  03296
DEBDSECT 00001 00000000 02301  03321 04332
DEBUCBAD 00004 00000020 02316  03321 04332
E        00001 00000008 00349  04519
GETJOBNO 00002 00001608 04220  04213
H        00001 00000002 00343  05296 05454

HA$IRCC1 00001 00000E70 03603  03604
HA$IRCC2 00001 00001228 03902  03903
HA$IRDRI 00001 00000D18 03257  03258
HA$IRDRT 00001 00000E18 03560  03561
HA$IRJCS 00001 000015A0 04180  04181

HA$IRSCN 00001 00001940 04625  04626
HA$ORCC1 00001 00000E68 03602  03603 03606
HA$ORCC2 00001 00001220 03901  03902 03905
HA$ORDRI 00001 00000D10 03256  03257 03260
HA$ORDRT 00001 00000E10 03559  03560 03563

HA$ORJCS 00001 00001598 04179  04180 04183 04441 04577
HA$ORSCN 00001 00001938 04624  04625 04628
HA$QRCC1 00001 00000000 05495  05497 05508 05510 05518 05520 05523 05525 05528 05530
HA$QRCC2 00001 00000000 05503  05505 05513 05515
HA$QRDRI 00001 00000000 03250  03252

HA$QRDRT 00001 00000000 03545  03547
RDR                                               CROSS-REFERENCE                                              PAGE  132


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

HA$QRJCS 00001 00000000 03517  03519
HA$QRSCN 00001 00000000 04440  04442

HASPRDR  00001 00000000 00157  00720 00754 00844 00868 00944 01209 01244 01262 01324 01543 02298 02324 03159 03184 03201
                               03251 03356 03518 03546 04475 04581 04807 05496 05504 05509 05514 05519 05524 05529 05619
HCTDSECT 00001 00000000 00538  00540
HDBDSKEY 00004 0000005C 00833  05448
HDBNXTRK 00004 00000058 00831  03218
HDBSTART 00004 00000060 00835  03222

IHADCB   00001 00000000 01555  01603 01627 01655 01674 01704 01784 01845 01896 01965 02097 02114 02118 02124 02213 02219
                               02243 02264 02296
IOBCSW   00007 00000009 00798  05010 05014 05018 05022
IOBSIOCC 00001 00000010 00799  05007 05008

IOBSTART 00004 00000010 00800  03313
IOTCYMAP 00100 00000070 01221  03240 05375 05379 05379
IOTCYMXM 00004 00000068 01219  03240
IOTDSECT 00001 00000000 01212  05373 05380
IOTIOTTR 00004 00000060 01217  05375 05375 05375

IOTJCTTR 00004 00000064 01218  01242 05377 05387
IOTPDDB  00004 000000D8 01223  01242 05380 05382 05383 05384 05385
IOTPDDBP 00004 000000D4 01222  05381
IOTTRACK 00004 0000005C 01216  05374 05402
JCT      00001 0000000A 00334  01099 03333 04192 04457 04457 04582 04582 04823 04823 04907 04907 05156 05276 05276 05394
                               05398 05398 05446 05446
JCTACCTN 00004 0000009C 01120  04655

JCTCARDS 00004 000000DC 01140  04909 04911
JCTCPUID 00004 00000208 01158  04322
JCTCPYCT 00001 000000B5 01127  03972 04316 04687

JCTCYSAV 00100 00000104 01150  03240 04193 04195 05369
JCTDSECT 00001 00000000 01098  01099 03969 03972 03975 03978 03981 03984 03987 03990 04125 04129 04133 04137 04141 04145
                               04149
JCTDSKEY 00004 00000060 01103  04288 05448
JCTEND   00001 00000230 01172  01207

JCTESOUT 00004 000000F8 01147  04841 05319
JCTESTLN 00004 000000A8 01123  03981 04314 04670 05315 05317
JCTESTPU 00004 000000AC 01124  03969 04672 05318
JCTETIME 00004 000000A4 01122  03990 04313 04668 04834 05311 05313
JCTFORMS 00004 000000B0 01125  03975 04315 04673
JCTINDC  00001 00000215 01161  04325
JCTINDEV 00008 00000094 01119  04311
JCTINJCT 00004 00000064 01104  04295 05385 05387 05395

JCTIOTTR 00004 0000005C 01102  04193 04193 04277 05374
JCTJBOPT 00001 0000006B 01108  03806 03820 03984 04301 04387 04700 04829

JCTJCLAS 00001 0000008D 01113  04302 04377 04862
JCTJMR   00056 000001F8 01153  01154 04197
JCTJMRJN 00008 000001F8 01155  04319
JCTJNAME 00008 00000070 01110  04204 04205 04206 04211 04211 04269 04319 04402
JCTJOBEB 00004 0000006C 01109  03809 03809 03848 04233 04235 04236 04236 04324 04336

JCTJOBIN 00004 00000228 01167  05057 05059
JCTJQE   00004 00000058 01101  01207 04193 04195 04197 04267
JCTLINCT 00001 000000B7 01129  03978 04317 04685
JCTMCLAS 00001 0000008C 01112  05365
JCTNOLOG 00001 00000010 01190  03984 04700
JCTOPRIO 00001 00000091 01117  05284
JCTPNAME 00020 00000078 01111  04308 04309 04309 04309 04354 04355 04359 04360 04360 04360 04403
JCTPRICD 00001 00000080 01187  04301 04829
RDR                                               CROSS-REFERENCE                                              PAGE  133



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


JCTPRIO  00001 0000008F 01115  04860
JCTPROUT 00002 000000B8 01130  05367
JCTPUOUT 00002 000000BA 01131  05368
JCTRDR   00002 0000022C 01168  04333
JCTRDROF 00004 00000220 01165  05391

JCTRDRON 00004 00000200 01156  04202
JCTROOMN 00004 000000A0 01121  03987 04660
JCTROUTE 00002 00000092 01118  04310
JCTSETUP 00001 00000040 01188  03806 03820
JCTTHOLD 00001 00000020 01189  04387
JCTUSEID 00008 0000020C 01159  04323 04324
JCTWORK  00144 00000168 01151  03839 03869 04017 04018 04019 04026 04027 04027 04033 04079 04080 04080 04083 04088 04089
                               04125 04129 04133 04137 04141 04145 04149 04341 04347 04348 04646 04650
JITJNAME 00001 00000000 01083  04269
LINK     00001 0000000E 00338  03252 03269 03279 03293 03305 03338 03496 03519 03538 03547 03554 03574 03581 03582 03586
                               03587 03597 03658 03687 03709 03713 03773 03788 03796 03815 03862 03873 03877 03953 03961
                               04093 04108 04116 04155 04228 04244 04245 04256 04257 04274 04275 04292 04293 04411 04428

                               04442 04465 04473 04777 04786 04872 04878 04941 04983 05070 05075 05095 05282 05292 05363
                               05397 05404 05442
NE       00001 00000007 00347  04524

OACEPROG 00004 00000060 00834  03262 03565 03608 03907 04185 04630
OCRCOPY  00001 00000006 01251  04125
OCRDEST1 00002 00000018 01257  04033 04129
OCRDSECT 00001 00000000 01247  04033 04125 04129 04133 04137 04141 04145 04149
OCRFCB   00004 0000000C 01254  04133
OCRFORMS 00004 00000008 01253  04137
OCRINDEX 00001 00000007 01252  04141
OCRRECNT 00004 00000014 01256  04145
OCRUCS   00004 00000010 01255  04149
PCEDSECT 00001 00000000 00723  00725 03161 03683

PCEEWF   00002 00000048 00746  03282 03308 03342 03594 03638 03683 04215 04261 04944 04985 05412 05458 05473 05479

PCEID    00002 0000004A 00747  03264 03299 03570 03664 04327 04915
PCEINRID 00001 00000004 00766  03264 03299 03570 04915
PCERJEID 00001 00000002 00765  03664 04327
PCER1    00004 00000018 00733  05125 05140

PCEWA    00004 0000001C 00734  05126 05228 05231
PCEWB    00004 00000020 00735  05176 05217
PCEWC    00004 00000024 00736  05177 05219
PCEWORK  00008 00000058 00753  03162 03181 03183
PDBBASLN 00001 00000007 01291  05380 05384
PDBCLASS 00001 00000001 01286  05383
PDBDSECT 00001 00000000 01275  01291 01303 05382 05383 05384 05385
PDBFLAG1 00001 00000000 01276  05382
PDBLENG  00001 00000002 01287  05384
PDBMISC1 00004 00000008 01313  01317
PDBMISC2 00004 00000008 01318  01322

PDBMTTR  00004 00000003 01288  05385
PDB1LOG  00001 00000020 01279  05382
QENTBY   00001 00000080 01061  04255 04863
QUEFLAGS 00001 00000004 01050  03819 04386 04418 04420 05289

QUEHOLD1 00001 00000040 01074  03819 04386 04418 04420 05289
QUEJOBNO 00001 00000002 01049  04241
QUEPRIO  00001 00000000 01047  04240 04861
QUEPRTRT 00001 0000000C 01053  03734 04250 05367
QUEPUNRT 00001 0000000D 01054  03739 05368
RDR                                               CROSS-REFERENCE                                              PAGE  134


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

QUETRAK  00001 00000008 01052  04247 05377
QUETYPE  00001 00000001 01048  04862 04863 04864 04875
RALFATBL 00001 00001AFA 04788  04711
RBADACCT 00004 00001AB6 04765  04715 04746 04762
RBI      00001 00000003 03208  03247 03311 03315 03325 03573 05026 05423

RBIEND   00004 00000060 03167  03333 04972 05025
RBO      00001 00000004 03209  03492 03492 03507 03510 03511 03628 03628 03721 03721 03804 03804 03828 03828 03850 03850
                               03866 03866 03921 03921 04000 04000 04192 05045 05045 05065 05066 05071 05089 05090 05092

                               05359 05360 05361 05361 05373 05401 05405 05405 05406 05444 05445 05448 05451
RBOEND   00004 00000068 03169  03505 05060 05450
RBONEXT  00004 00000064 03168  03505 03508 05047 05082 05355 05452
RBUFTRK  00004 00000058 03218  03510 03511 05066 05071 05090 05092 05360 05361 05361 05445
RCARDID  00001 00000058 03163  03379 03488 03500 03503 03725 03770 03778 03780 03832 03870 03925 03943 03945 04004 04084
                               04090 04098 04100 04450 04455 04765 04770 05050 05079 05083 05347 05349 05352
RCCSERCH 00004 0000004E 03373  03376
RCCTAB   00004 00000AFC 05493  03370 03371 03373 03615 03913 05487
RCCTBCDE 00008 00000B00 05500  05487
RCCTBCLC 00006 00000AF4 05487  03374
RCCTBEND 00004 00000B50 05532  03372
RCCTBLEN 00001 00000AFF 05499  03373

RCCTBNDX 00001 00000AFE 05498  03615 03913

RCCTBNXT 00004 00000B08 05501  03371
RCCWBLD  00004 00000DC0 03327  03330

RCLASS   00005 000003F0 04611  04373
RCNTLCRD 00002 000002C0 03552  03375
RCOMBUF  00004 00000EB6 03643  03636
RCOMP    00004 0000066A 05018  05013 05015
RCOMQUE  00006 00000EF4 03661  03649
RCOMWAT  00004 00000EA6 03638  03634
RCONRMT  00006 00000F16 03668  03665
RCONTNUE 00004 0000038C 04573  04396 04546
RCONTNU1 00004 00001926 04578  04575
RCONTNU2 00002 00000398 04582  04580
RCONTNU3 00004 000003BA 04594  04597
RCOPY    00004 00000704 05078  05061

RCRDOUT  00004 00000008 03357  03524 03526
RDADCT   00004 0000005C 03166  03295 03585 05064 05074 05088 05358 05393 05400 05408

RDCF1000 00004 00000BBC 05587  05316

RDCF15   00004 00000BB0 05584  04848
RDCF60   00004 00000BB4 05585  05312
RDCF80   00004 00000BB8 05586  03329 05010 05023
RDCTNEXT 00004 00001040 03760  03766
RDCTSRCH 00004 0000103C 03758  03752 03756
RDDBLANK 00004 00000114 03424  03426
RDDDATA  00004 000001F0 03487  03442
RDDSCAN  00004 00000164 03443  03434
RDDSCAN1 00004 00000168 03444  03480
RDDSCAN2 00004 000001BC 03467  03462 03464
RDDSCAN3 00004 000001D0 03472  03468 03470
RDDSCAN4 00004 000001D8 03474  03455

RDDSCEND 00002 000001E8 03482  03444 03475
RDDSTAR  00004 000001E8 03485  03433
RDDTEST  00006 0000010A 03420  03418

RDELMSG  00007 00000C2C 05593  05279 05283
RDNOCOM  00002 00000638 05002  04994
RDR                                               CROSS-REFERENCE                                              PAGE  135


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

RDRCCW   00008 00000E00 03351  03318
RDRCCW1  00004 00000E08 03352  03324
RDRDCT   00004 00000058 03164  03281 03527 03568 03575 03647 03852 04248 04306 04326 04398 04849 04917 04982 04989
RDRDLM   00002 000000BE 03180  03336 03362 03363 03402 03405 03474 05048 05342
RDREND   00002 000002B4 03547  03359 03711
RDREOFSW 00001 00000004 03232  04920 04930 04956 04959 04974 05016
RDRSW    00001 0000005C 03165  03334 03360 03365 03377 03381 03383 03384 03386 03388 03392 03394 03397 03399 03406 03407
                               03440 03447 03485 03512 03522 03523 03541 03703 03704 03723 03727 03730 03731 03830 03834

                               03837 03838 03923 03927 03930 03931 04002 04006 04009 04010 04437 04901 04904 04920 04930
                               04956 04959 04974 05016 05052 05055 05287 05343
RDR1     00004 000003D0 04604  04280
RDR10000 00004 000003D4 04605  04223

RDTEST   00004 00000656 05012  05009
READ     00004 00000604 04982  04977
REDITMSK 00008 000003E4 04608  04234
RESETYPE 00004 0000071C 05083  05046
RESTIME  00004 000003D8 04606  04313
RESTLNPN 00004 000003DC 04607  04314

RFLMSG   00022 00000C6F 05596  03531 03531 03539
RFLRESET 00004 00000270 03522  03493
RFLTEST  00004 00000274 03523  03385 03389 03393 03409 03424 03439 03515 03521 03794 03959 04114
RGENNEDD 00004 00000200 03491  03486
RGET     00004 000004EC 04901  03358 03705 04578
RGETBUF  00004 00000A9C 05442  05076 05097 05372 05460
RGETBUFO 00004 00000A96 05439  04191 04297
RGETEST  00004 000005E0 04972  05027

RGETNOCT 00002 00000514 04913  04908
RGETQUE  00004 00000E90 03631  03641

RGET1    00002 00000500 04906  04902
RIBUFST  00008 00000108 03221  03351 03352 05026
RIDBUSY  00001 00000040 01043  04926 04936 04936 04952
RIDDATA  00080 00000048 00942  04919 04957 04960 04963 04964 04964
RIDFLAGS 00002 0000003C 00935  04926 04935 04936 04949 04952
RIDPOST  00001 00000080 01042  04935 04936 04949
RIDTCB   00004 00000044 00941  04940
RILLCCRD 00004 000011AA 03875  03629 03722 03805

RILLJOBC 00002 000018DC 04448  04527 04534 04539 04579 04587
RILLJOBP 00004 00001276 03940  03937
RILLOUPT 00004 0000148A 04095  04014 04020 04024 04030 04050 04065 04067
RILLROUT 00004 00001070 03775  03738 03750 03762 03764
RINBGET  00004 00000D7C 03305  03310

RINBGOT  00002 00000D90 03311  03306
RINCJOBN 00004 0000160C 04222  04229
RINRFREE 00002 00000E36 03580  03571

RINRKILL 00004 00000548 04931  04965
RINRLOOP 00004 00000530 04924  04953
RINRSAVE 00004 000005CC 04966  04939 04942
RINRTPST 00004 00000558 04935  04925
RINRWAIT 00004 00000576 04944  04937
RINTRSK  00004 00000DDC 03334  03300
RINVCCRD 00004 00001532 04153  03922 04001

RJBLANK  00004 000000FE 03417  03414 03419
RJBTEST  00004 000000F0 03413  03415
RJCLCARD 00004 000000B0 03397  03391
RJCLRSET 00004 000000D6 03406  03400
RDR                                               CROSS-REFERENCE                                              PAGE  136



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

RJCLSCAN 00004 000000DE 03408  03398
RJCLSW   00001 00000008 03233  03360 03381 03383 03392 03397 03407 03512 03522 03704 03727 03731 03834 03838 03927 03931
                               04006 04010 05055 05343

RJCLTRAK 00004 00000080 03175  03497 03499 03509 03510 05096
RJCTCYMX 00100 000000FC 03240  03495 04243 04273 04291 05069 05369 05369 05369
RJCTINIT 00004 00001692 04265  04259
RJCTTERM 00004 0000095C 05311  04826 05285
RJERRMSG 00020 00000420 04616  04454 04462 04466 04769 04774 04778
RJFLUSH  00001 00000001 03230  03334 03523 03541 03704 04437 05287

RJINVLID 00026 00001564 04173  03942 03947 03947 03954
RJJTEST  00006 0000025A 03514  03421
RJOB     00004 000000B8 03177  03733 03818 04265 04385 04415 04866 04881 05288 05293 05293 05366 05376
RJOBACCT 00004 000017C8 04353  04350
RJOBCEND 00004 0000186A 04398  04343 04393

RJOBCON  00004 00000BCB 05590  03847 04323 04335
RJOBCONT 00004 00001860 04394  04391
RJOBCON1 00004 00000340 04533  04501
RJOBCON2 00002 00000348 04535  04514
RJOBCON3 00002 0000035C 04542  04537

RJOBDOC  00013 00000C1F 05592  05351
RJOBEND  00002 00000434 04823  03566 03696 04187
RJOBHELD 00004 0000041C 04615  04422 04422 04429
RJOBINCR 00004 0000184C 04389  04369 04371 04378 04384
RJOBKEY  00004 000017F2 04366  04389

RJOBKILL 00002 00000916 05276  03793 03958 04113 04470 04782 04932 04979 04998
RJOBLANK 00004 00001858 04392  04367
RJOBMOVE 00002 0000032A 04526  04506 04512 04516 04523
RJOBMSGC 00004 00001828 04380  04376
RJOBNEXT 00004 000002D2 04501  04508 04510 04531 04553

RJOBPASW 00004 00000308 04516  04499 04517 04524 04538 04545 04552
RJOBPRSW 00004 000002F8 04512  04498 04503 04504 04509 04533 04551
RJOBQUE  00004 00001670 04254  04263
RJOBRET  00004 00001922 04473  04458 04583
RJOBSRCH 00002 000017EA 04363  04351 04358 04394
RJOBTERM 00004 0000097E 05339  04865 05286

RJOBTYPR 00006 00001836 04383  04374
RJPTABLE 00004 000012C8 03967  03932
RJSCAN   00004 000002CA 04498  04349 04356
RJSETJN  00004 000015DA 04207  04209

RKBLANKS 00008 00000BA0 05582  04727 05131 05182
RKEBCDIC 00004 00000842 05195  05189
RKERROR  00004 000008B2 05228  05139 05144 05169 05187 05203 05250 05252 05255
RKEYEXIT 00004 000008B8 05231  05134
RKEYMASK 00004 000007DC 05165  05160 05163 05164

RKEYNEXT 00004 00000760 05131  05137 05166 05221 05223
RKEYSCAN 00002 0000074C 05124  03936 04029
RKFOUND  00004 000007B4 05155  05146 05150
RKLFSHFT 00006 00000880 05213  05208
RKLFTADJ 00004 00000878 05211  05215
RKNXTVAL 00004 000007FA 05176  05226
RKSCAN   00002 000008C0 05236  05133 05186

RKSCANSW 00004 000008EA 05249  05132 05185 05246
RKSCAN1  00004 000008C4 05239  05258
RKSERCH1 00004 00000788 05143  05153

RKSERCH2 00004 000007AC 05152  05148
RDR                                               CROSS-REFERENCE                                              PAGE  137


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

RKSETMVC 00006 00000892 05218  05199
RKSETVAL 00004 0000088E 05217  05205 05207 05212

RKVALUE  00004 000007E4 05168  05159
RLSAVE1  00004 0000006C 03170  04543 04547 04931 04933 04978 04980 04997 04999
RLSAVE2  00004 00000070 03171  04545 04552 05339 05419
RLSAVE3  00004 00000074 03172  04544 04548 05340 05420
RL1      00001 00000006 03211  03285 03314 03326 03357 03358 03380 03403 03489 03501 03504 03506 03566 03647 03650 03663
                               03667 03696 03705 03726 03729 03779 03781 03791 03792 03833 03836 03926 03929 03936 03944
                               03946 03956 03957 04005 04008 04029 04085 04099 04101 04111 04112 04187 04349 04356 04357
                               04357 04394 04395 04451 04456 04468 04469 04505 04505 04519 04521 04540 04542 04544 04546

                               04548 04549 04573 04574 04578 04584 04656 04661 04667 04669 04671 04674 04676 04679 04681
                               04691 04693 04697 04699 04701 04720 04724 04730 04736 04739 04766 04771 04780 04781 04824

                               04825 04882 04905 04906 04921 04931 04932 04933 04934 04958 04961 04962 04962 04973 04975
                               04978 04979 04980 04997 04998 04999 05043 05043 05044 05126 05127 05133 05157 05158 05173
                               05173 05174 05174 05177 05186 05200 05201 05202 05211 05213 05213 05218 05219 05220 05220
                               05226 05228 05229 05231 05232 05237 05240 05242 05244 05248 05259 05295 05296 05297 05339
                               05345 05348 05350 05353 05419

RL1RETRN 00004 00000952 05295  04595 04598 05084 05098 05277
RL2      00001 00000007 03212  03266 03276 03290 03317 03330 03340 03344 03345 03556 03653 03685 03707 03711 03734 03739
                               03769 03771 03783 03794 03810 03854 03865 03871 03875 03948 03959 04091 04103 04114 04153
                               04191 04297 04406 04423 04460 04655 04660 04673 04678 04685 04687 04692 04727 04729 04772
                               04826 04865 04873 05076 05097 05140 05141 05152 05233 05285 05286 05320 05340 05372 05420
                               05421 05439 05439 05440 05453 05454 05455 05471 05475 05476 05481
RMESSAGE 00052 00000084 03176  03529 03531 03535 03751 03753 03754 03755 03757 03765 03782 03785 03808 03809 03812 03947
                               03950 04051 04054 04055 04056 04058 04068 04102 04105 04239 04239 04240 04241 04247 04250

                               04254 04400 04401 04402 04403 04408 04422 04425 04861 04862 04863 04864 04868 04871 04875
                               04877

RMSG     00003 000003F5 04612  04375
RMSGCARD 00002 000010FC 03827  03621 03807
RMSGCLAS 00001 000000BD 03179  04304 04382 05365 05383
RMSGCNVT 00004 00001188 03865  03846
RMSGRET  00004 000011A6 03873  03867

RMSGSCAN 00004 0000112C 03840  03829
RMSGSTRT 00006 00001148 03847  03843
RMSGSTST 00004 00001134 03842  03845
RMSGWTO  00002 00001168 03854  03851
RNDDSTAR 00006 00000140 03435  03431
RNINT    00002 00000D32 03272  03265
RNOBUF   00004 00000AD0 05458  05443
RNOCMB   00002 00000ADC 05471  03660 03790 03817 03864 03955 04110 04413 04430 04467 04779
RNOJOB   00004 00000AEA 05479  04879

RNOSCAN  00001 00000002 03231  03365 03388 03440

RNOTCCRD 00004 0000005E 03377  03367 03369 03875 04153
RNOTDLM  00002 000001E0 03477  03446 03473
RNOTHELD 00002 000018D0 04432  04421
RNOTINR  00002 000005DC 04967  04916
RNOUNIT  00002 00000DEE 03340  03270 03280 03294

RNXTCRD  00004 0000000C 03358  03382 03387 03513 03542 03685 03865
ROBUFST  00004 00000060 03222  03507 05451
ROINVLID 00025 0000157E 04174  04097 04102 04102 04109
ROLAYCON 00004 00000BC0 05588  05295 05453
RONMSG   00025 00000403 04614  04400 04400 04412
ROPDEST1 00004 000013B4 04036  04076
ROPDEST2 00006 000013F6 04051  04048
ROPDEST3 00006 00001400 04054  04043 04046
RDR                                               CROSS-REFERENCE                                              PAGE  138


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


ROPDEST4 00004 0000141A 04060  04052 04057

ROPDEST5 00004 0000141E 04063  04069
ROPDEST6 00004 0000143E 04073  04040
ROPDEST7 00006 0000144E 04078  04037
ROPLOCAL 00006 0000153A 04161  04039

ROPNULL  00002 0000155C 04167  04078
ROPREMOT 00006 00001540 04162  04042
ROPRINT  00005 00001549 04164  04047
ROPRMRD1 00009 00001553 04166  04054 04058
ROPRMT   00003 00001546 04163  04045
ROPSCAN  00004 0000137A 04020  04023
ROPSHIFT 00006 00001472 04088  03938
ROPTABLE 00004 000014DC 04122  04028
ROPUNCH  00005 0000154E 04165  04049
ROSINSW  00001 00000010 03234  03377 03384 03386 03399 03406 03447 03703 03723 03727 03730 03830 03834 03837 03923 03927
                               03930 04002 04006 04009 05052 05055

ROTPCARD 00002 0000132A 03999  03914
ROUTCARD 00002 00000F98 03720  03619
ROUTCODE 00024 000011E1 03895  03732
ROUTTAB  00001 00000B78 05556  04839

RPACKNUM 00006 00001D14 04805  04737
RPI      00001 00000005 03210  03363 03366 03368 03390 03395 03396 03401 03402 03404 03408 03410 03412 03498 03499 03502
                               03525 03648 03652 03668 03697 03698 03700 03732 03735 03737 03741 03743 03744 03746 03747
                               03749 03749 03751 03775 03776 03776 03777 03839 03841 03855 03868 03869 03933 03935 03940
                               03941 03941 03942 04011 04013 04082 04083 04086 04088 04089 04095 04096 04096 04097 04204
                               04335 04336 04340 04365 04452 04453 04453 04454 04550 04586 04590 04767 04768 04768 04769
                               04903 04919 04971 04971 04972 05026 05048 05080 05341 05342 05346 05351 05418 05487
RPRIBL   00004 00000F74 03702  03699
RPRICARD 00002 00000F5C 03695  03618
RPRIEOF  00004 00000F90 03711  03706
RPRIORTY 00001 000000BC 03178  03335 03540 03702 04299 04828 05416
RPRISCH1 00004 0000044E 04833  04835

RPRISCH2 00004 00000466 04840  04842
RPRISET  00004 00000480 04848  04830
RPROUTE  00002 00000FE8 03740  03736

RPUT     00002 00000698 05045  03357 03380 03403 03489 03501 03504 03506 04574 05345 05348 05350 05353
RPUTERM  00004 00000724 05086  05053
RPUTEST  00004 000006BC 05055  05049 05051
RPUTNOCT 00004 000006D0 05060  05056
RPUTOLAY 00004 00000692 05043  03726 03729 03779 03781 03833 03836 03926 03929 03944 03946 04005 04008 04085 04099 04101
                               04451 04456 04766 04771
RRILEGAL 00024 000011D6 03894  03777 03782 03782 03789 03895
RRLOCAL  00006 000011BE 03885  03741
RRMTSRCH 00006 00001022 03753  03745 03748
RRPRINT  00006 000011B2 03883  03735
RRPUNCH  00006 000011B8 03884  03737
RRREMOTE 00006 000011C4 03886  03744

RRRMRD1  00009 000011CD 03888  03753 03757

RRRMT    00003 000011CA 03887  03747
RSAVE1   00004 00000078 03173  03395 03401 03404 03487 03490 04082 04086 04186 04338 04342 04353 04647 04903

RSAVE2   00004 0000007C 03174  03498 03502 04573 04584 05341 05418
RSCANABR 00001 00000007 03189  05149
RSCANAME 00007 00000000 03188  05143 05145
RSCANCHK 00004 0000008A 03388  03364 03707 03771 03871 04091
RSCANDSP 00002 0000000A 03199  05155
RDR                                               CROSS-REFERENCE                                              PAGE  139


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

RSCANEXT 00004 0000000C 03200  05152
RSCANFLG 00001 00000008 03190  05157 05161 05180 05183 05188 05204
RSCANLEN 00001 00000009 03198  05197
RSCANMSK 00001 00000009 03197  05164
RSCANTBL 00001 00000000 03187  05141

RSCFLBIN 00001 00000040 03193  03969 03972 03978 03981 03990 04124 04140 04144 05183 05188
RSCFLBLK 00001 00000010 03195  03975 03987 04128 04132 04136 04148 05180

RSCFLCOM 00001 00000080 03191  05161

RSCFLEFT 00001 00000020 03194  03975 03987 04128 04132 04136 04148 05204
RSCFLNUM 00001 00000080 03192  05183
RSCFLPCT 00001 0000000F 03196  05608
RSCNCKDG 00002 000019D2 04688  04686
RSCNCPY  00004 000019CE 04687  04677
RSCNDIG  00002 00001A56 04732  04726
RSCNFLD1 00004 000019FA 04703  04656 04674 04679
RSCNFLD2 00004 00001A02 04705  04667 04676 04681
RSCNFLD3 00004 00001A06 04706  04661 04669 04671 04704
RSCNF4   00004 00001D00 04798  04722
RSCNLIM  00004 000019C6 04685  04682
RSCNLOG  00002 000019E4 04695  04680

RSCNNEXT 00004 00001A2C 04718  04758
RSCNRET  00004 00001AF6 04786  04683 04707
RSCNSHFT 00006 00001D0E 04804  04752

RSCNSIZE 00002 00001A30 04719  04716 04760
RSCNSPEC 00004 00001A70 04741  04709 04753
RSCNSW2  00001 00001A41 04725  04703 04705
RSCNTEMP 00004 00001CFC 04797  04733 04803
RSCNZERO 00004 00001D04 04799  04803
RSETCARD 00002 000010BE 03803  03620
RSETJOBN 00002 0000161C 04227  04224
RSETKEY  00004 000016D8 04287  04282 04283 04285
RSETMSG  00044 000011EE 03896  03808 03808 03816
RSETROUT 00004 00001060 03769  03742
RSIOCC   00001 00000030 03239  05008
RSIOCSWS 00001 00000010 03238  05007

RSONCODE 00007 00000BC4 05589  03525
RSPECFLD 00002 00001A9C 04755  04748
RSPECTBL 00001 00001BFA 04792  04743
RSTART   00004 00000D40 03281  03271

RSTDFORM 00004 000003EC 04610  04315
RSYNCH   00004 00000A70 05409  05414
RSYSINCD 00080 00000BCF 05591  03396
RSYSINSW 00001 00000040 03236  03394 03485 04901 04904
RTEMP    00008 00000BA8 05583  04232 04233 04234 04235 04236 04284 04286 04678 04698 04738 04805 05135 05136 05138 05145
                               05147 05149 05190 05191 05192 05192 05194 05195 05200 05206 05209 05214 05253 05254

RTERMJOB 00004 00000A84 05416  05410
RTIMTAB  00001 00000B50 05535  04832
RTOTBUFL 00008 00000800 03224  05609
RTSTZNS  00006 00001D08 04803  04734
RTYPRUN  00011 000003F8 04613  04383
RUNIEXCP 00001 00000001 03237  05014
RW       00001 00000002 03207  03282 03283 03312 03313 03327 03328 03328 03332 03370 03373 03376 03410 03413 03415 03416
                               03417 03419 03420 03424 03425 03427 03429 03430 03432 03435 03437 03438 03441 03443 03487

                               03490 03491 03509 03511 03514 03554 03615 03632 03633 03633 03642 03650 03651 03652 03655
                               03678 03688 03697 03700 03701 03701 03702 03841 03842 03844 03844 03847 03848 03849 03853

RDR                                               CROSS-REFERENCE                                              PAGE  140


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

                               03856 03858 03913 03933 04011 04014 04015 04017 04020 04034 04073 04075 04075 04078 04186
                               04188 04188 04206 04207 04207 04208 04210 04210 04221 04222 04222 04223 04225 04227 04230
                               04232 04241 04296 04338 04343 04344 04351 04361 04363 04364 04366 04368 04370 04373 04375
                               04377 04380 04382 04383 04389 04390 04392 04398 04399 04433 04501 04502 04507 04513 04515
                               04518 04520 04522 04528 04535 04536 04590 04591 04594 04596 04596 04688 04689 04732 04734
                               04737 04750 04751 04752 04828 04843 04843 04844 04845 04846 04848 04852 04853 04856 04859

                               04860 04861 04909 04910 04910 04911 05018 05019 05020 05021 05024 05025 05057 05058 05058
                               05059 05072 05091 05091 05092 05096 05127 05128 05168 05170 05172 05222 05237 05239 05241
                               05243 05245 05247 05249 05251 05257 05258 05371 05371 05445 05487
RWAIT    00004 0000060C 04985  04992 05006
RXBJOBSW 00001 00000020 03235  03360 03377 03392 05052

R0       00001 00000000 00305  03318 03324 03325 03327 03329 03332 03451 03452 03453 03457 03457 03458 03459 03460 03466
                               03474 03537 03657 03787 03814 03840 03845 03855 03856 03859 03861 03952 04032 04076 04107
                               04202 04255 04268 04347 04354 04410 04427 04464 04526 04526 04529 04543 04547 04668 04670

                               04672 04688 04692 04695 04695 04712 04719 04721 04722 04728 04732 04738 04755 04776 04836
                               04836 04837 04845 04851 04852 04874 04874 04875 04880 04880 04881 05131 05135 05178 05178
                               05179 05182 05190 05193 05193 05195 05196 05196 05197 05198 05199 05201 05208 05224 05253
                               05256 05281 05291 05312 05316 05391
R1       00001 00000001 00306  03248 03268 03278 03281 03285 03287 03288 03288 03289 03292 03295 03297 03311 03318 03327
                               03331 03331 03332 03373 03374 03443 03444 03445 03449 03451 03453 03454 03458 03460 03461
                               03463 03465 03465 03466 03467 03469 03471 03471 03472 03479 03495 03497 03507 03508 03527

                               03528 03530 03535 03568 03573 03575 03576 03578 03585 03590 03591 03592 03614 03614 03615
                               03616 03635 03636 03643 03655 03673 03675 03675 03676 03676 03678 03681 03683 03733 03734
                               03739 03740 03740 03743 03746 03754 03758 03759 03760 03761 03761 03767 03768 03769 03785
                               03812 03818 03819 03852 03853 03858 03932 03950 04019 04021 04021 04022 04025 04025 04028
                               04033 04034 04036 04039 04041 04042 04044 04045 04047 04049 04051 04074 04074 04105 04202

                               04227 04243 04247 04248 04249 04251 04254 04265 04266 04267 04268 04269 04273 04277 04279
                               04280 04284 04286 04287 04288 04291 04295 04296 04306 04307 04312 04341 04342 04348 04350
                               04353 04355 04385 04386 04408 04415 04418 04420 04425 04462 04528 04530 04530 04543 04547
                               04589 04591 04597 04646 04648 04652 04706 04708 04710 04711 04712 04718 04718 04741 04742

                               04742 04743 04747 04751 04755 04756 04756 04757 04759 04774 04804 04804 04832 04833 04833
                               04834 04837 04839 04840 04840 04841 04844 04849 04850 04857 04866 04868 04871 04877 04917
                               04918 04939 04942 04982 04989 04990 04996 05020 05021 05022 05023 05024 05047 05060 05062
                               05063 05064 05067 05069 05071 05072 05074 05078 05079 05080 05081 05081 05082 05086 05087
                               05088 05093 05125 05131 05135 05155 05156 05165 05176 05179 05182 05190 05194 05195 05209
                               05214 05217 05218 05224 05225 05257 05279 05288 05289 05311 05313 05315 05317 05318 05319

                               05355 05356 05357 05358 05366 05367 05368 05376 05377 05380 05381 05391 05393 05400 05408
                               05422 05444 05449 05450 05451 05452
R10      00001 0000000A 00315  00334
R11      00001 0000000B 00316  00335
R12      00001 0000000C 00317  00336

R13      00001 0000000D 00318  00337
R14      00001 0000000E 00319  00338 00558 03371 03376 03411 03415 03419 03424 03444 03934 04012 04014 04020 04038 04038
                               04070 04073 04339 04343 04389 04501 04592 04710 04719 04729 04733 04741 04805 05127 05172
                               05225 05237 05258
R15      00001 0000000F 00320  00557 00557 03253 03309 03319 03320 03320 03321 03321 03322 03343 03372 03412 03520 03548

                               03555 03595 03640 03935 04013 04041 04044 04055 04060 04061 04063 04064 04064 04071 04216
                               04262 04320 04321 04321 04322 04325 04326 04329 04329 04330 04330 04331 04331 04332 04332
                               04333 04340 04365 04443 04550 04647 04648 04653 04653 04654 04749 04750 04938 04941 04946
                               04986 05247 05413 05459 05474 05480
R2       00001 00000002 00307  00326 04645 04645 04713 04744

R3       00001 00000003 00308  00327
R4       00001 00000004 00309  00328 04939 04940 04942
R5       00001 00000005 00310  00329
R6       00001 00000006 00311  00330
RDR                                               CROSS-REFERENCE                                              PAGE  141



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

R7       00001 00000007 00312  00331
R8       00001 00000008 00313  00332 00333
SAVE     00001 0000000D 00337  00725
SRTEASCI 00001 00000004 02719  02720
SRTEBSTR 00001 00000004 02718  02721

UCBALOC  00001 00000008 02470  02588
UCBBALB  00001 00000020 02625  02715
UCBBJLB  00001 00000002 02633  02722
UCBBNUL  00001 00000001 02634  02723

UCBBPRV  00001 00000010 02629  02716
UCBBPUB  00001 00000008 02630  02717
UCBBSTR  00001 00000004 02631  02718 02719
UCBBSVL  00001 00000080 02619  02714
UCBCHGS  00001 00000040 02467  02585

UCBDADI  00001 00000001 02475  02591
UCBDBBNR 00002 00000038 02908  02944
UCBDCELL 00016 00000038 02906  02943
UCBDDMCT 00001 00000043 02934  02949
UCBDEV   00001 00000018 02598  02607 02734 02768 02784 02804 02886
UCBDJBNR 00001 00000042 02933  02948
UCBDMCT  00001 00000023 02637  02724

UCBDSECT 00001 00000000 02326  03322 04333
UCBDSTAB 00001 0000003A 02909  02945
UCBDSTAT 00001 0000003B 02921  02946

UCBDUSER 00001 00000047 02941  02951
UCBDVOLI 00006 0000003C 02932  02947
UCBDVTOC 00003 00000044 02940  02950
UCBFL1   00001 00000006 02483  02592
UCBFSCT  00002 00000024 02642  02725

UCBFSEQ  00002 00000026 02643  02726
UCBJBNR  00001 00000000 02432  02581
UCBMONT  00001 00000001 02442  02582
UCBONLI  00001 00000080 02466  02584
UCBPRES  00001 00000004 02471  02589
UCBRESV  00001 00000020 02468  02586
UCBSTAB  00001 00000022 02618  02713

UCBSTAT  00001 00000003 02465  02583
UCBSYSR  00001 00000002 02472  02590
UCBTYP   00004 00000010 02531  03322 04333

UCBUNLD  00001 00000010 02469  02587
UCBUSER  00001 00000038 02694  02727 02900
UCBVOLI  00006 0000001C 02617  02712
WA       00001 00000002 00326  03207
WB       00001 00000003 00327  03208

WC       00001 00000004 00328  03209
WCMBFG   00001 00000008 00882  03666
WD       00001 00000005 00329  03210
WE       00001 00000006 00330  03211
WF       00001 00000007 00331  03212
Z        00001 00000008 00350  04824
RDR                                               LITERAL CROSS-REFERENCE                                      PAGE  142


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


=CL80'//'
         00080 00000C88 05600  03390 04586 05346

=C'CATA' 00001 00000CD8 05601  03435
=C'DATA' 00001 00000CDC 05602  03438
=C'DLM=' 00001 00000CE0 05603  03445
=C'JOB ' 00001 00000CE4 05604  03514
=V($COMMPCE)

         00004 00000CE8 05605  03681
=V(XWARM)
         00004 00000CEC 05606  04938
=A(8)    00004 00000CF0 05607  05019
=A(RSCFLPCT)
         00004 00000CF4 05608  05158
=A(RTOTBUFL-82)
         00004 00000CF8 05609  05449
=C'/*'   00001 00000CFC 05610  03336 03362 03366 03405 03868

=C'DD '  00001 00000CFE 05611  03420

=C'/*EOF'
         00001 00000D01 05612  04957
=C'/*DEL'
         00001 00000D06 05613  04960
RDR                                               ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE  143



                                                                                                 ASM 0201 20.02 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT       2255
TOTAL RECORDS READ FROM SYSTEM LIBRARY     9426

TOTAL RECORDS PUNCHED                       152

TOTAL RECORDS PRINTED                      5997

RTAM                                           EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.02 08/28/78

HASPRTAM  SD  0001 000000 000000
RTAM                                                                                                           PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                      1 *                                                                  RFIT M0000000
                                      2 *                            KILL ALL 370 INSTRUCTIONS             RFIT M0000010
                                      3 *                                                                  RFIT M0000020
                                      4 MVCL     OPSYN ,                                                   RFIT M0000030
                                      5 CLCL     OPSYN ,                                                   RFIT M0000040
                                      6 SIOF     OPSYN ,                                                   RFIT M0000050
                                      7 HDV      OPSYN ,                                                   RFIT M0000070

                                      8 STNSM    OPSYN ,                                                   RFIT M0000080
                                      9 STOSM    OPSYN ,                                                   RFIT M0000090

                                     10 MC       OPSYN ,                                                   RFIT M0000110

                                     11 LRA      OPSYN ,                                                   RFIT M0000120
                                     12 STCTL    OPSYN ,                                                   RFIT M0000130
                                     13 LCTL     OPSYN ,                                                   RFIT M0000140
                                     14 CLM      OPSYN ,                                                   RFIT M0000180
                                     15 STCM     OPSYN ,                                                   RFIT M0000190
                                     16 ICM      OPSYN ,                                                   RFIT M0000200
                                     17 STIDP    OPSYN ,                                                   RFIT M0000210
                                     18 STIDC    OPSYN ,                                                   RFIT M0000220
                                     19 SCK      OPSYN ,                                                   RFIT M0000230
                                     20 STCK     OPSYN ,                                                   RFIT M0000240
                                     21 SCKC     OPSYN ,                                                   RFIT M0000250
                                     22 STCKC    OPSYN ,                                                   RFIT M0000260

                                     23 SPT      OPSYN ,                                                   RFIT M0000270
                                     24 STPT     OPSYN ,                                                   RFIT M0000280
                                     25 PTLB     OPSYN ,                                                   RFIT M0000310

                                     26 RRB      OPSYN ,                                                   RFIT M0000350
                                     27 SRP      OPSYN ,                                                   RFIT M0000360
RTAM     HASP RJE CHANNEL COMMAND WORD GENERATION MACRO                                                        PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                     30 *                                                                       M0006000
                                     31 ***** $CCW     *****               GENERATE RJE CCW SKELETON            M0008000
                                     32 *                                                                       M0010000
                                     33 *                                                                       M0012000
                                     34          MACRO                                                          M0014000
                                     35 &NAME    $CCW  &OP,&AD,&FL,&LN,&CD                                      M0016000

                                     36 &NAME    DC    AL1(&OP),AL3(&AD),AL1(&FL,&CD),AL2(&LN)                  M0018000
                                     37          MEND                                                           M0020000
RTAM     HASP GLOBAL DEFINITIONS                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                     39          COPY  $GLOBAL                                                  M0024000
                                     40 *                                                                       GL002000
                                     41 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                     42 *                                                                       GL006000



                                     44          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000

                                     45          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000
                                     46          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                     47          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000
                                     48          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000





                                     50 *                                                                       GL032000
                                     51 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000

                                     52 *                                                                       GL036000




                                     54          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000
                                     55          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                     56          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000
                                     57          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                     58          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000
                                     59          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000
                                     60          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                     61          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000

                                     62          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000
                                     63          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000
                                     64          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000
                                     65          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                     66          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000

                                     67          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000
                                     68          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000

                                     69          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000
                                     70          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                     71          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200
                                     72          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300
                                     73          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000
                                     74          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000
                                     75          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                     76          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000

                                     77          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                     78          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                     79          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000
                                     80          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000
                                     81          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000

                                     82          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000
                                     83          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000
                                     84          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000

RTAM     HASP GLOBAL DEFINITIONS                                                                               PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                     86 *                                                                       GL116000
                                     87 *                             O/S INTERFACE PARAMETERS                  GL118000
                                     88 *                                                                       GL120000



                                     90          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000

                                     91          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                     92          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000
                                     93          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000
                                     94          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000
                                     95          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000

                                     96          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                     97          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000
                                     98          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000
                                     99          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000

                                    100          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                    101          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200
                                    102          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300
                                    103          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400






                                    105 *                                                                       GL150000
                                    106 *                             HASP OPTION PARAMETERS                    GL152000
                                    107 *                                                                       GL154000



                                    109          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000

                                    110          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000
                                    111          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000
                                    112          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000
                                    113          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000
                                    114          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000

                                    115          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000
                                    116          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000
                                    117          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000
                                    118          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000
                                    119          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100

                                    120          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500
                                    121          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                    122          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                    123          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000
                                    124          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000

                                    125          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000
                                    126          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000
                                    127          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000
                                    128          GBLB  &DEBUG              DEBUG MODE                           GL186000
                                    129          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000
                                    130          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000

RTAM     HASP GLOBAL DEFINITIONS                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    132 *                                                                       GL226000
                                    133 *                             REMOTE JOB ENTRY PARAMETERS               GL228000

                                    134 *                                                                       GL230000



                                    136          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                    137          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000
                                    138          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000

                                    139          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    140          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000
                                    141          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000
                                    142          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000
                                    143          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000
                                    144          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000






                                    146 *                                                                       GL260000
                                    147 *                             INTERNAL GENERATION PARAMETERS            GL262000

                                    148 *                                                                       GL264000



                                    150          GBLC  &VERSION            HASP VERSION                         GL270000
                                    151          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000
                                    152          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000

                                    153          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000
                                    154          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500
                                    155          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000
                                    156          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500
                                    157          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                    158          GBLA  &LOW                OVERLAY PRIORITY                     GL280000
                                    159          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000
                                    160          GBLA  &HIGH                 PARAMETER VALUES                   GL284000

                                    161          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000
                                    162          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000

                                    163          LCLA  &HTDIST             2770/2780 HORIZONTAL TAB SPACING     M0026000
                                    164          LCLA  &MLBFSIZ            MULTI-LEAVING BUFFER SIZE            M0028000
                                    165          LCLB  &S,&NS              STR RJE OPTIONS                      M0030000
                                    166          LCLB  &STR1978,&SH,&NSH   STR BASIC TERMINAL OPTIONS           M0032000
                                    167          LCLB  &STRCPU,&SC,&NSC    STR CPU TERMINAL OPTIONS             M0034000

                                    168          LCLB  &B,&NB              BSC RJE OPTIONS                      M0036000
                                    169          LCLB  &BSC2770,&BSC2780   BSC BASIC                            M0038000
                                    170          LCLB  &BSC3780,&BH,&NBH    TERMINAL OPTIONS                    M0040000
                                    171          LCLB  &BC,&NBC            BSC CPU TERMINAL OPTIONS             M0042000
                                    172          LCLB  &BSHPRSU            BSC HARDWARE PRINTER SUSPEND OPTION  M0044000
                                    173          LCLB  &BSHTAB             BSC HDW PRT HORIZ FORM CTL OPT       M0045000
                                    174          LCLB  &BSVBOPT            2780 VARIABLE BLOCKING OPTION        M0046000
                                    175          LCLB  &BSHPRES            BSC HARDWARE COMPRESS OPTION         M0047000
                                    176          LCLB  &USASCII            USASCII OPTION                       M0048000

                                    177          LCLB  &ADDSYNS            ADDITIONAL SYNCHRONOUS IDLE OPTION   M0050000

                                    178          LCLC  &SYNOP              SYNCHRONOUS IDLE OPERATION CODE      M0052000
RTAM     HASP GLOBAL DEFINITIONS                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    179          LCLC  &SYNCH              SYNCHRONOUS IDLE CHAINING CODE       M0054000
                                    180          LCLC  &DOC                DOCUMENTATION OPTION                 M0056000

RTAM     HASP REMOTE TERMINAL ACCESS METHOD                                                                    PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                              183 HASPRTAM START 0                   HASP REMOTE TERMINAL ACCESS METHOD   M0062000





                                    185          COPY  $HASPGEN            COPY HASPGEN PARAMETERS              M0066000
RTAM     HASPGEN PARAMETER VALUES                                                                              PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    187 *                                                                       HA004000

                                    188 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000
                                    189 *                                                                       HA008000



                                    191 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000

                                    192 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                    193 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000
                                    194 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000
                                    195 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000




                                    197 *                                                                       HA028000
                                    198 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000
                                    199 *                                                                       HA032000



                                    201 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000

                                    202 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000
                                    203 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000
                                    204 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000
                                    205 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000

                                    206 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                    207 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000
                                    208 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000
                                    209 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000
                                    210 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000
                                    211 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    212 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000
                                    213 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000
                                    214 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000
                                    215 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000
                                    216 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000
                                    217 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000

                                    218 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                    219 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200
                                    220 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300

                                    221 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                    222 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000
                                    223 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                    224 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000
                                    225 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000
                                    226 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                    227 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000
                                    228 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000
                            0003C   229 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000
RTAM     HASPGEN PARAMETER VALUES                                                                              PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    232 *                                                                       HA100000
                                    233 *                             O/S INTERFACE PARAMETERS                  HA102000

                                    234 *                                                                       HA104000



                                    236 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                    237 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000
                                    238 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000
                                    239 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000
                                    240 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000
                                    241 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000
                                    242 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                    243 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                    244 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000
                                    245 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100

                                    246 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200
                                    247 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300

                                    248 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400




                                    250 *                                                                  RFIT HA125600
                                    251 *                             HASP SVC NUMBER                      RFIT HA125700
                                    252 *                                                                  RFIT HA125800
                                    253          COPY  $INITSVC                                            RFIT HA125900
                                    254 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT





                                    256 *                                                                       HA130000
                                    257 *                             HASP OPTION PARAMETERS                    HA132000
                                    258 *                                                                       HA134000




                                    260 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000
                                    261 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000
                                    262 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000

                                    263 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000
                                    264 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                    265 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000
                                    266 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    267 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000
                                    268 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000
                                    269 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000
                                    270 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100
                                    271 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500
                                    272 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
RTAM     HASPGEN PARAMETER VALUES                                                                              PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    273 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500
                                    274 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                    275 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000

                                    276 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                    277 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000
                                    278 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                    279 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000
                                    280 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                    281 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000
RTAM     HASPGEN PARAMETER VALUES                                                                              PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    284 *                                                                       HA174000
                                    285 *                             REMOTE JOB ENTRY PARAMETERS               HA176000

                                    286 *                                                                       HA178000



                                    288 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000
                                    289 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000

                                    290 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000
                                    291 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000
                                    292 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                    293 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000
                                    294 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000
                                    295 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000

                                    296 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000





                                    298 *                                                                       HA202000
                                    299 *                             INTERNAL GENERATION PARAMETERS            HA204000
                                    300 *                                                                       HA206000



                                    302 &VERSION SETC  '4.0'               HASP VERSION                         HA210000

                                    303 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000
                                    304 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000

                                    305 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                    306 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000
                                    307 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                    308 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000
                                    309 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500
                                    310 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                    311 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000
                                    312 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000

                                    313 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000
                                    314 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000
                                    315 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
RTAM     HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    318 *                                                                       HA234000

                                    319 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000
                                    320 *                                                                       HA238000



                            00000   322 R0       EQU   0                                                        HA242000
                            00001   323 R1       EQU   1                                                        HA244000
                            00002   324 R2       EQU   2                                                        HA246000
                            00003   325 R3       EQU   3                                                        HA248000

                            00004   326 R4       EQU   4                                                        HA250000
                            00005   327 R5       EQU   5                                                        HA252000
                            00006   328 R6       EQU   6                                                        HA254000
                            00007   329 R7       EQU   7                                                        HA256000
                            00008   330 R8       EQU   8                                                        HA258000

                            00009   331 R9       EQU   9                                                        HA260000
                            0000A   332 R10      EQU   10                                                       HA262000
                            0000B   333 R11      EQU   11                                                       HA264000
                            0000C   334 R12      EQU   12                                                       HA266000

                            0000D   335 R13      EQU   13                                                       HA268000
                            0000E   336 R14      EQU   14                                                       HA270000
                            0000F   337 R15      EQU   15                                                       HA272000





                                    339 *                                                                       HA276000

                                    340 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000
                                    341 *                                                                       HA280000



                            00002   343 WA       EQU   R2                  WORK REGISTER A                      HA284000
                            00003   344 WB       EQU   R3                  WORK REGISTER B                      HA286000

                            00004   345 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   346 WD       EQU   R5                  WORK REGISTER D                      HA290000
                            00006   347 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007   348 WF       EQU   R7                  WORK REGISTER F                      HA294000
                            00008   349 WG       EQU   R8                  WORK REGISTER G                      HA296000

                            00008   350 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000
                            0000A   351 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000
                            0000B   352 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000
                            0000C   353 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000
                            0000D   354 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000

                            0000E   355 LINK     EQU   R14                 LINK REGISTER                        HA308000
RTAM     HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












                            00000   358 NOP      EQU   0                   NO-OP                                HA314000
                            00001   359 O        EQU   1                   ONES OR OVERFLOW                     HA316000
                            00002   360 H        EQU   2                   HIGH                                 HA318000
                            00002   361 P        EQU   2                   PLUS                                 HA320000

                            00004   362 L        EQU   4                   LOW                                  HA322000
                            00004   363 M        EQU   4                   MINUS OR MIXED                       HA324000
                            00007   364 NE       EQU   7                   NOT EQUAL                            HA326000
                            00007   365 NZ       EQU   7                   NOT ZERO                             HA328000

                            00008   366 E        EQU   8                   EQUAL                                HA330000
                            00008   367 Z        EQU   8                   ZERO                                 HA332000
                            0000B   368 NL       EQU   11                  NOT LOW                              HA334000
                            0000B   369 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000
                            0000D   370 NH       EQU   13                  NOT HIGH                             HA338000

                            0000D   371 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   372 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
RTAM     HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    374 *                                                                       HA346000
                                    375 *                             BIT DEFINITIONS                           HA348000
                                    376 *                                                                       HA350000




                            00080   378 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000
                            00040   379 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000

                            00020   380 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000
                            00010   381 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000
                            00008   382 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000
                            00004   383 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000
                            00002   384 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000

                            00002   385 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001   386 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000
                                    387 *                                                                       HA370000
                            00080   388 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000
                            00040   389 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020   390 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   391 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000
                            00008   392 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000

                            00004   393 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000
                            00002   394 $EWF15   EQU   X'02'               SPARE                                HA384000

                            00001   395 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000





                                    397 *                                                                       HA390000
                                    398 *                             BYTE DEFINITIONS                          HA392000

                                    399 *                                                                       HA394000



                            00000   401 $EWBPOST EQU   0                   BYTE 0                               HA398000
                            00000   402 $EWBBUF  EQU   0                   BYTE 0                               HA400000
                            00000   403 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   404 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000   405 $EWBUNIT EQU   0                   BYTE 0                               HA406000
                            00000   406 $EWBCKPT EQU   0                   BYTE 0                               HA408000
                            00000   407 $EWBCMB  EQU   0                   BYTE 0                               HA410000

                            00000   408 $EWBSMF  EQU   0                   BYTE 0                               HA411000

                            00000   409 $EWBJOT  EQU   0                   BYTE 0                               HA412000
                                    410 *                                                                       HA414000
                            00001   411 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001   412 $EWBIO   EQU   1                   BYTE 1                               HA418000
                            00001   413 $EWBWORK EQU   1                   BYTE 1                               HA420000

                            00001   414 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001   415 $EWBDDB  EQU   1                   BYTE 1                               HA424000
                            00001   416 $EWBOLAY EQU   1                   BYTE 1                               HA426000
                            00001   417 $EWB15   EQU   1                   BYTE 1                               HA428000
                            00001   418 $EWBOROL EQU   1                   BYTE 1                               HA430000
RTAM     HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    421 *                                                                       HA436000

                                    422 *                             LOGICAL CONSOLE DEFINITIONS               HA438000

                                    423 *                                                                       HA440000



                            00001   425 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002   426 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000

                            00004   427 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008   428 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000
                            00010   429 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000
                            00020   430 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000
                            00040   431 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   432 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   433 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000
                            00000   434 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000





                                    436 *                                                                       HA466000

                                    437 *                             MESSAGE CLASS DEFINITIONS                 HA468000
                                    438 *                                                                       HA470000



                            00010   440 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000

                            00030   441 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050   442 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000
                            00070   443 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000
                            00080   444 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000




                                    446 *                                                                       HA484000
                                    447 *                             MESSAGE PRIORITY DEFINITIONS              HA486000
                                    448 *                                                                       HA488000



                            00001   450 $LO      EQU   1                   LOW PRIORITY                         HA492000
                            00004   451 $ST      EQU   4                   STANDARD PRIORITY                    HA494000

                            00007   452 $HI      EQU   7                   HIGH PRIORITY                        HA496000
RTAM     HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    455 *                                                                       HA502000
                                    456 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000
                                    457 *                                                                       HA506000



                            00080   459 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000
                            00000   460 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000
                            00040   461 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000
                            00000   462 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000
                            00020   463 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000
                            00000   464 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000

                            00010   465 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000

                            00000   466 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000
                            00008   467 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000

                            00000   468 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000
                            00004   469 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000   470 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000





                                    472 *                                                                       HA536000
                                    473 *                             HASP STATUS BIT DEFINITIONS               HA538000
                                    474 *                                                                       HA540000



                            00080   476 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040   477 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000
                            00020   478 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000

                            00010   479 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000
                            00008   480 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000

                            00004   481 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000

                            00002   482 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000
RTAM     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    485 *                                                                       HA560000
                                    486 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000
                                    487 *                                                                       HA564000



                                    489 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                    490 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000
                                    491 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000

                                    492 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000
                                    493 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000
                                    494 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000

                                    495 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000
                                    496 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                    497 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000





                                    499 *                                                                       HA588000
                                    500 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000
                                    501 *                                                                       HA592000



                                    503 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                    504 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000
                                    505 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000

                                    506 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                    507 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                    508 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000

                                    509 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                    510 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000
                                    511 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
RTAM     HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    514 *                                                                       HA618000
                                    515 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000
                                    516 *                                                                       HA622000



                                    518 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000

                                    519 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000
                                    520 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000
                                    521 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000
                                    522 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000

                                    523 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000
                                    524 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000
                                    525 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                    526 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000






                                    528 *                                                                       HA646000
                                    529 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000
                                    530 *                                                                       HA650000



                                    532 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000
                                    533 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                    534 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000
                                    535 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000

                                    536 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000
                                    537 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000

                                    538 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                    539 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000
                                    540 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
                                    541          AIF   (&NUMLNES EQ 0).NORJE                                    M0068000
                                    542 .NORJE   ANOP                      *                                    M7776000





                                    544 $DLENGTH $DLENGTH                  COMPUTE CONTROL SECTION LENGTH.      M7780000

RTAM     HASPRTAM CONTROL SECTION LENGTH                                                                       PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












000000                              547+         DS    0D                  FILL OUT CONTROL SECTION             DN016000
                            00000   548+$L       EQU   *-HASPRTAM                                               DN018000

                            00000   549+$L1      EQU   $L/100000*100000              COMPUTE                    DN020000
                            00000   550+$L2      EQU   ($L-$L1)/10000*10000            INTERMEDIATE             DN022000
                            00000   551+$L3      EQU   ($L-$L1-$L2)/1000*1000            LENGTH                 DN024000
                            00000   552+$L4      EQU   ($L-$L1-$L2-$L3)/100*100            VALUES               DN026000
                            00000   553+$L5      EQU   ($L-$L1-$L2-$L3-$L4)/10*10                               DN028000
                            00000   554+$L6      EQU   $L-$L1-$L2-$L3-$L4-$L5                                   DN030000






                                    556+*                                                                       DN034000
                                    557+*                                  DECIMAL LENGTH                       DN036000
                                    558+*                                                                       DN038000




                            00000   560+$DLENGTH EQU   $L1/100000*1048576+$L2/10000*65536+$L3/1000*4096+$L4/100CDN042000
                                       +               *256+$L5/10*16+$L6                                       DN044000






                                    562          END                                                            M7782000
RTAM                                              CROSS-REFERENCE                                              PAGE   21


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$L       00001 00000000 00548  00549 00550 00551 00552 00553 00554
$L1      00001 00000000 00549  00550 00551 00552 00553 00554 00560
$L2      00001 00000000 00550  00551 00552 00553 00554 00560

$L3      00001 00000000 00551  00552 00553 00554 00560
$L4      00001 00000000 00552  00553 00554 00560
$L5      00001 00000000 00553  00554 00560
$L6      00001 00000000 00554  00560
HASPRTAM 00001 00000000 00183  00548

R10      00001 0000000A 00332  00351
R11      00001 0000000B 00333  00352
R12      00001 0000000C 00334  00353
R13      00001 0000000D 00335  00354
R14      00001 0000000E 00336  00355

R2       00001 00000002 00324  00343
R3       00001 00000003 00325  00344
R4       00001 00000004 00326  00345
R5       00001 00000005 00327  00346
R6       00001 00000006 00328  00347

R7       00001 00000007 00329  00348
R8       00001 00000008 00330  00349 00350
RTAM                                              ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE   22


                                                                                                 ASM 0201 20.02 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY

HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1

TOTAL RECORDS READ FROM SYSTEM INPUT       4181
TOTAL RECORDS READ FROM SYSTEM LIBRARY     9536
TOTAL RECORDS PUNCHED                         2
TOTAL RECORDS PRINTED                       655

SVC                                            EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.02 08/28/78

HASP4SVC  SD  0001 000000 000088
IGC220    LD       000000        0001
IEA0AB00  ER  0002
IGC07902  ER  0003
IGC011    ER  0004
IEASMFEX  ER  0005
IEEBA1    ER  0006
IBMORG    ER  0007
IECHASPE  SD  0008 000088 000048
IECHASPA  LD       0000A0        0008

SVC      HASP GLOBAL DEFINITIONS                                                                               PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                      2          COPY  $GLOBAL                                                  S0004000

                                      3 *                                                                       GL002000
                                      4 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                      5 *                                                                       GL006000



                                      7          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000
                                      8          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000
                                      9          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                     10          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000
                                     11          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000





                                     13 *                                                                       GL032000

                                     14 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000
                                     15 *                                                                       GL036000




                                     17          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000
                                     18          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                     19          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000
                                     20          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                     21          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000
                                     22          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000
                                     23          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                     24          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000
                                     25          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000
                                     26          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000
                                     27          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000
                                     28          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000

                                     29          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000

                                     30          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000
                                     31          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000

                                     32          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000
                                     33          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                     34          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200
                                     35          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300
                                     36          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000
                                     37          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000
                                     38          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                     39          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000
                                     40          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                     41          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                     42          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000
                                     43          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000

                                     44          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                     45          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000

                                     46          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000

                                     47          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000
SVC      HASP GLOBAL DEFINITIONS                                                                               PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                     49 *                                                                       GL116000
                                     50 *                             O/S INTERFACE PARAMETERS                  GL118000
                                     51 *                                                                       GL120000



                                     53          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000
                                     54          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                     55          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000
                                     56          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000
                                     57          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000

                                     58          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000
                                     59          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                     60          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000

                                     61          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000
                                     62          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000
                                     63          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                     64          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200
                                     65          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300
                                     66          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400





                                     68 *                                                                       GL150000
                                     69 *                             HASP OPTION PARAMETERS                    GL152000
                                     70 *                                                                       GL154000




                                     72          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000
                                     73          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000
                                     74          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000
                                     75          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000

                                     76          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000
                                     77          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000
                                     78          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000
                                     79          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000
                                     80          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000
                                     81          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000

                                     82          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100
                                     83          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500
                                     84          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                     85          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                     86          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000
                                     87          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                     88          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000
                                     89          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000

                                     90          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000
                                     91          GBLB  &DEBUG              DEBUG MODE                           GL186000

                                     92          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000
                                     93          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000
SVC      HASP GLOBAL DEFINITIONS                                                                               PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                     95 *                                                                       GL226000
                                     96 *                             REMOTE JOB ENTRY PARAMETERS               GL228000
                                     97 *                                                                       GL230000




                                     99          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                    100          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000
                                    101          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000
                                    102          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    103          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000

                                    104          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000
                                    105          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000
                                    106          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000

                                    107          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000





                                    109 *                                                                       GL260000
                                    110 *                             INTERNAL GENERATION PARAMETERS            GL262000
                                    111 *                                                                       GL264000




                                    113          GBLC  &VERSION            HASP VERSION                         GL270000
                                    114          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000
                                    115          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                    116          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000
                                    117          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500

                                    118          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000
                                    119          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500
                                    120          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                    121          GBLA  &LOW                OVERLAY PRIORITY                     GL280000

                                    122          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000
                                    123          GBLA  &HIGH                 PARAMETER VALUES                   GL284000
                                    124          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000
                                    125          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000
SVC      HASP SVC ROUTINE                                                                                      PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                              128 HASP4SVC START 0                   HASP V4.0 SVC ROUTINE           RFIT S0010000






                                    130          COPY  $HASPGEN            COPY HASPGEN PARAMETERS              S0014000
SVC      HASPGEN PARAMETER VALUES                                                                              PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    132 *                                                                       HA004000
                                    133 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000

                                    134 *                                                                       HA008000



                                    136 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000
                                    137 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                    138 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000

                                    139 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000
                                    140 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000




                                    142 *                                                                       HA028000

                                    143 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000
                                    144 *                                                                       HA032000



                                    146 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000
                                    147 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000
                                    148 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000

                                    149 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000
                                    150 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000
                                    151 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                    152 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000

                                    153 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000
                                    154 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000
                                    155 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000
                                    156 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    157 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000

                                    158 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000
                                    159 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000
                                    160 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000
                                    161 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000
                                    162 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000
                                    163 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                    164 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200

                                    165 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300
                                    166 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                    167 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000

                                    168 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                    169 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000
                                    170 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000
                                    171 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                    172 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000

                                    173 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000
                            0003C   174 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000
SVC      HASPGEN PARAMETER VALUES                                                                              PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    177 *                                                                       HA100000
                                    178 *                             O/S INTERFACE PARAMETERS                  HA102000

                                    179 *                                                                       HA104000




                                    181 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                    182 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000
                                    183 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000
                                    184 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000
                                    185 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000

                                    186 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000
                                    187 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                    188 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                    189 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000
                                    190 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100
                                    191 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200
                                    192 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300
                                    193 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400




                                    195 *                                                                  RFIT HA125600

                                    196 *                             HASP SVC NUMBER                      RFIT HA125700
                                    197 *                                                                  RFIT HA125800
                                    198          COPY  $INITSVC                                            RFIT HA125900
                                    199 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT






                                    201 *                                                                       HA130000
                                    202 *                             HASP OPTION PARAMETERS                    HA132000
                                    203 *                                                                       HA134000



                                    205 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000
                                    206 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000
                                    207 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000
                                    208 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000
                                    209 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000

                                    210 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000

                                    211 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    212 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000
                                    213 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000
                                    214 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000

                                    215 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100
                                    216 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500
                                    217 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
SVC      HASPGEN PARAMETER VALUES                                                                              PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    218 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500
                                    219 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                    220 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000
                                    221 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                    222 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000

                                    223 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000

                                    224 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000
                                    225 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                    226 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000
SVC      HASPGEN PARAMETER VALUES                                                                              PAGE    9



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    229 *                                                                       HA174000
                                    230 *                             REMOTE JOB ENTRY PARAMETERS               HA176000
                                    231 *                                                                       HA178000



                                    233 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000
                                    234 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000
                                    235 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000
                                    236 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000

                                    237 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                    238 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000
                                    239 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000
                                    240 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000

                                    241 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000





                                    243 *                                                                       HA202000
                                    244 *                             INTERNAL GENERATION PARAMETERS            HA204000
                                    245 *                                                                       HA206000



                                    247 &VERSION SETC  '4.0'               HASP VERSION                         HA210000
                                    248 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000
                                    249 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000
                                    250 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                    251 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000

                                    252 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                    253 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000
                                    254 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500

                                    255 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                    256 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000
                                    257 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000
                                    258 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000
                                    259 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000
                                    260 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
SVC      HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    263 *                                                                       HA234000
                                    264 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000

                                    265 *                                                                       HA238000




                            00000   267 R0       EQU   0                                                        HA242000

                            00001   268 R1       EQU   1                                                        HA244000
                            00002   269 R2       EQU   2                                                        HA246000
                            00003   270 R3       EQU   3                                                        HA248000
                            00004   271 R4       EQU   4                                                        HA250000
                            00005   272 R5       EQU   5                                                        HA252000
                            00006   273 R6       EQU   6                                                        HA254000
                            00007   274 R7       EQU   7                                                        HA256000
                            00008   275 R8       EQU   8                                                        HA258000
                            00009   276 R9       EQU   9                                                        HA260000
                            0000A   277 R10      EQU   10                                                       HA262000
                            0000B   278 R11      EQU   11                                                       HA264000
                            0000C   279 R12      EQU   12                                                       HA266000

                            0000D   280 R13      EQU   13                                                       HA268000
                            0000E   281 R14      EQU   14                                                       HA270000

                            0000F   282 R15      EQU   15                                                       HA272000






                                    284 *                                                                       HA276000
                                    285 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000
                                    286 *                                                                       HA280000



                            00002   288 WA       EQU   R2                  WORK REGISTER A                      HA284000
                            00003   289 WB       EQU   R3                  WORK REGISTER B                      HA286000
                            00004   290 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   291 WD       EQU   R5                  WORK REGISTER D                      HA290000
                            00006   292 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007   293 WF       EQU   R7                  WORK REGISTER F                      HA294000

                            00008   294 WG       EQU   R8                  WORK REGISTER G                      HA296000
                            00008   295 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000
                            0000A   296 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000

                            0000B   297 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000
                            0000C   298 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000
                            0000D   299 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000
                            0000E   300 LINK     EQU   R14                 LINK REGISTER                        HA308000
SVC      HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78











                            00000   303 NOP      EQU   0                   NO-OP                                HA314000
                            00001   304 O        EQU   1                   ONES OR OVERFLOW                     HA316000

                            00002   305 H        EQU   2                   HIGH                                 HA318000
                            00002   306 P        EQU   2                   PLUS                                 HA320000
                            00004   307 L        EQU   4                   LOW                                  HA322000
                            00004   308 M        EQU   4                   MINUS OR MIXED                       HA324000

                            00007   309 NE       EQU   7                   NOT EQUAL                            HA326000
                            00007   310 NZ       EQU   7                   NOT ZERO                             HA328000
                            00008   311 E        EQU   8                   EQUAL                                HA330000
                            00008   312 Z        EQU   8                   ZERO                                 HA332000
                            0000B   313 NL       EQU   11                  NOT LOW                              HA334000
                            0000B   314 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000

                            0000D   315 NH       EQU   13                  NOT HIGH                             HA338000
                            0000D   316 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   317 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
SVC      HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    319 *                                                                       HA346000
                                    320 *                             BIT DEFINITIONS                           HA348000
                                    321 *                                                                       HA350000




                            00080   323 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000

                            00040   324 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000
                            00020   325 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000
                            00010   326 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000
                            00008   327 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000
                            00004   328 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000
                            00002   329 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000
                            00002   330 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001   331 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000

                                    332 *                                                                       HA370000
                            00080   333 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000
                            00040   334 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020   335 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   336 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000

                            00008   337 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000
                            00004   338 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000
                            00002   339 $EWF15   EQU   X'02'               SPARE                                HA384000

                            00001   340 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000





                                    342 *                                                                       HA390000
                                    343 *                             BYTE DEFINITIONS                          HA392000
                                    344 *                                                                       HA394000




                            00000   346 $EWBPOST EQU   0                   BYTE 0                               HA398000
                            00000   347 $EWBBUF  EQU   0                   BYTE 0                               HA400000
                            00000   348 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   349 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000   350 $EWBUNIT EQU   0                   BYTE 0                               HA406000

                            00000   351 $EWBCKPT EQU   0                   BYTE 0                               HA408000
                            00000   352 $EWBCMB  EQU   0                   BYTE 0                               HA410000
                            00000   353 $EWBSMF  EQU   0                   BYTE 0                               HA411000
                            00000   354 $EWBJOT  EQU   0                   BYTE 0                               HA412000

                                    355 *                                                                       HA414000
                            00001   356 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001   357 $EWBIO   EQU   1                   BYTE 1                               HA418000
                            00001   358 $EWBWORK EQU   1                   BYTE 1                               HA420000
                            00001   359 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001   360 $EWBDDB  EQU   1                   BYTE 1                               HA424000

                            00001   361 $EWBOLAY EQU   1                   BYTE 1                               HA426000
                            00001   362 $EWB15   EQU   1                   BYTE 1                               HA428000
                            00001   363 $EWBOROL EQU   1                   BYTE 1                               HA430000
SVC      HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    366 *                                                                       HA436000
                                    367 *                             LOGICAL CONSOLE DEFINITIONS               HA438000
                                    368 *                                                                       HA440000




                            00001   370 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002   371 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000
                            00004   372 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008   373 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000

                            00010   374 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000
                            00020   375 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000
                            00040   376 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   377 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   378 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000

                            00000   379 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000





                                    381 *                                                                       HA466000
                                    382 *                             MESSAGE CLASS DEFINITIONS                 HA468000
                                    383 *                                                                       HA470000




                            00010   385 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000
                            00030   386 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050   387 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000

                            00070   388 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000
                            00080   389 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000




                                    391 *                                                                       HA484000

                                    392 *                             MESSAGE PRIORITY DEFINITIONS              HA486000
                                    393 *                                                                       HA488000



                            00001   395 $LO      EQU   1                   LOW PRIORITY                         HA492000
                            00004   396 $ST      EQU   4                   STANDARD PRIORITY                    HA494000
                            00007   397 $HI      EQU   7                   HIGH PRIORITY                        HA496000
SVC      HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   14



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    400 *                                                                       HA502000
                                    401 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000
                                    402 *                                                                       HA506000



                            00080   404 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000

                            00000   405 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000
                            00040   406 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000
                            00000   407 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000
                            00020   408 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000
                            00000   409 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000
                            00010   410 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000
                            00000   411 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000
                            00008   412 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000

                            00000   413 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000
                            00004   414 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000

                            00000   415 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000





                                    417 *                                                                       HA536000
                                    418 *                             HASP STATUS BIT DEFINITIONS               HA538000

                                    419 *                                                                       HA540000



                            00080   421 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040   422 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000
                            00020   423 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000
                            00010   424 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000
                            00008   425 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000
                            00004   426 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000
                            00002   427 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000

SVC      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   15



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    430 *                                                                       HA560000
                                    431 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000

                                    432 *                                                                       HA564000



                                    434 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                    435 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000
                                    436 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000
                                    437 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000
                                    438 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000
                                    439 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000
                                    440 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000

                                    441 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000

                                    442 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000





                                    444 *                                                                       HA588000
                                    445 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000

                                    446 *                                                                       HA592000



                                    448 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                    449 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000
                                    450 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000
                                    451 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                    452 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                    453 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000
                                    454 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                    455 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000

                                    456 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000

SVC      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    459 *                                                                       HA618000
                                    460 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000
                                    461 *                                                                       HA622000



                                    463 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000
                                    464 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000
                                    465 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000
                                    466 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000
                                    467 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000
                                    468 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000
                                    469 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000

                                    470 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                    471 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000






                                    473 *                                                                       HA646000
                                    474 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000
                                    475 *                                                                       HA650000



                                    477 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000
                                    478 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                    479 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000
                                    480 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000
                                    481 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000
                                    482 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000
                                    483 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                    484 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000

                                    485 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
SVC      HASP CONTROL BLOCKS                                                                                   PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    487          $HASPCB HCT,PCE,CVT,UCB,DOC=NO                                 S0016000
SVC      HASP COMMUNICATION TABLE DSECT                                                                        PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              489+HCTDSECT DSECT                     HASP COMMUNICATION TABLE DSECT       HC437000


                            00000   491+         USING HCTDSECT,BASE1      ESTABLISH HCT ADDRESSABILITY         HC439000


000000 40E540F44BF0F0F9             493+$VERSION DC    CL8' V 4.009762'         HASP VERSION                    HC441000


                                    495+*                             VS2 - HASP VECTOR TABLE                   HC451050

000008                              497+$HVT     DS    0F                                                       HC451150

000008 00000000                     498+$HVTEXCP DC    V($EXCPSVC)         IOS PSEUDO DEVICE EXIT ADDRESS       HC451200

00000C 00000000                     499+         DC    V(XJCLSCAN)         INTERPRETTER EXIT ADDRESS            HC451250
000010 00000000                     500+         DC    V($MGCRSVC)         MGCR EXIT ADDRESS                    HC451300

000014 00000000                     501+         DC    V($WTOSVC)          WTO(R)/WTL EXIT 1 ADDRESS            HC451350
000018 00000000                     502+         DC    V($WTOSVC2)         WTO(R) EXIT 2 ADDRESS                HC451400
00001C 0000002C                     503+         DC    A($EXITNOP)         JOB INITIATION EXIT ADDRESS          HC451450
000020 0000002C                     504+         DC    A($EXITNOP)         STEP INITIATION EXIT ADDRESS         HC451500
000024 00000000                     505+         DC    V(XTERMSMF)         TERMINATION EXIT ADDRESS             HC451550
000028 00000000                     506+         DC    V($TSOCOMM)         TSO STATUS/CANCEL EXIT ADDRESS       HC451600

00002C 1BFF                         508+$EXITNOP SR    R15,R15             R15 = RC = 0                         HC451750
00002E 07FE                         509+         BR    R14                 RETURN                               HC451800


                                    511+*                             ENTRY TO HASP DISPATCHER                  HC452000


000030 47F0 B030      00030         513+$WAIT    B     *                                                        HN016000



                                    515+*                             ENTRIES TO HASP BUFFER SERVICES           HC456000


000034 47F0 B034      00034         517+$GETBUF  B     *                                                        HN016000
000038 47F0 B038      00038         518+$GETPBUF B     *                                                        HN016000
00003C 47F0 B03C      0003C         519+$FREEBUF B     *                                                        HN016000


                                    521+*                             ENTRIES TO HASP UNIT SERVICES             HC462000

000040 47F0 B040      00040         523+$GETUNIT B     *                                                        HN016000
000044 47F0 B044      00044         524+$FREUNIT B     *                                                        HN016000


                                    526+*                             ENTRIES TO HASP JOB QUEUE SERVICES        HC467000


000048 47F0 B048      00048         528+$QADD    B     *                                                        HN016000
00004C 47F0 B04C      0004C         529+$QGET    B     *                                                        HN016000
000050 47F0 B050      00050         530+$QPUT    B     *                                                        HN016000

000054 47F0 B054      00054         531+$QREM    B     *                                                        HN016000
000058 47F0 B058      00058         532+$QSIZ    B     *                                                        HN016000
00005C 47F0 B05C      0005C         533+$QLOC    B     *                                                        HN016000
000060 47F0 B060      00060         534+$QJITLOC B     *                                                        HN016000
SVC      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    536+*                             ENTRIES TO DIRECT ACCESS SPACE SERVICES   HC477000

000064 47F0 B064      00064         538+$TRACK   B     *                                                        HN016000
000068 47F0 B068      00068         539+$PURGER  B     *                                                        HN016000


                                    541+*                             ENTRIES TO HASP INPUT/OUTPUT SERVICES     HC482000


00006C 47F0 B06C      0006C         543+$EXCP    B     *                                                        HN016000
000070 47F0 B070      00070         544+$EXTPOPE B     *                                                        HN016000
000074 47F0 B074      00074         545+$EXTPGET B     *                                                        HN016000

000078 47F0 B078      00078         546+$EXTPPUT B     *                                                        HN016000
00007C 47F0 B07C      0007C         547+$EXTPCLO B     *                                                        HN016000
000080 47F0 B080      00080         548+$RESTORE B     *                                                        HN016000


                                    550+*                             ENTRIES TO HASP OVERLAY SERVICES          HC491000


000084 47F0 B084      00084         552+$ODEL    B     *                                                        HN016000
000088 47F0 B088      00088         553+$ORET    B     *                                                        HN016000
00008C 47F0 B08C      0008C         554+$OLINK   B     *                                                        HN016000
000090 47F0 B090      00090         555+$OXCTL   B     *                                                        HN016000
000094 47F0 B094      00094         556+$OLOAD   B     *                                                        HN016000


                                    558+*                             ENTRIES TO HASP CONSOLE SERVICES          HC499000


000098 47F0 B098      00098         560+$WTO     B     *                                                        HN016000
00009C 47F0 B09C      0009C         561+$FREEMSG B     *                                                        HN016000

0000A0 47F0 B0A0      000A0         562+$DOM     B     *                                                        HN016000


                                    564+*                             ENTRIES TO HASP SMF BUFFER SERVICES       HC503200

0000A4 47F0 B0A4      000A4         566+$QUESMFB B     *                                                        HN016000
0000A8 47F0 B0A8      000A8         567+$GETSMFB B     *                                                        HN016000


                                    569+*                             ENTRIES TO HASP INTERVAL TIMER SERVICES   HC504000


0000AC 47F0 B0AC      000AC         571+$STIMER  B     *                                                        HN016000
0000B0 47F0 B0B0      000B0         572+$TTIMER  B     *                                                        HN016000


                                    574+*                             ENTRIES TO HASP ERROR SERVICES            HC509000


0000B4 47F0 B0B4      000B4         576+$IOERROR B     *                                                        HN016000
0000B8 47F0 B0B8      000B8         577+$ERROR   B     *                                                        HN016000

0000BC 47F0 B0BC      000BC         578+$DISTERR B     *                                                        HN016000
SVC      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0000C0 00                           580+         DC    AL1(0)              RESERVED                             HC515000
0000C1 00                           581+$OPTSTAT DC    AL1(*-*)            HASP INITIALIZATION OPTIONS          HC516000
0000C2 00                           582+$STATUS  DC    AL1(*-*)            HASP SYSTEM STATUS                   HC517000
0000C3 00                           583+$CURPCE  DC    AL1(*-*)            CURRENT PCE ID                       HC518000

0000C4 00                           584+$HASPECF DC    AL1(*-*)            MASTER EVENT CONTROL FIELD           HC519000
0000C5 00                           585+MHASPECF DC    AL1(*-*)            LINE MANAGER EVENT CONTROL FIELD     HC520000
0000C6 00                           586+$XEQACT  DC    AL1(*-*)            COUNT OF JOBS IN O/S EXECUTION       HC521000
0000C7 00                           587+$ACTIVE  DC    AL1(*-*)            COUNT OF ACTIVE FUNCTIONS            HC522000
0000C8 FF                           588+$ENBALL  DC    X'FF'               ENABLE ALL MASK                      HC523000

0000C9 00                           589+$DISALL  DC    X'00'               DISABLE ALL MASK                     HC524000
0000CA FE                           590+$DISINT  DC    X'FE'               DISABLE INTERVAL TIMER MASK          HC525000
0000CB 00                           591+         DC    X'00'               RESERVED                             HC526000
0000CC 0000                         592+$EXCPCT  DC    Y(*-*)              ACTIVE HASP I/O COUNT                HC531000

0000CE 0040                         593+$COMMCT  DC    Y(64)                     ACTIVE HASP COMMAND COUNT      HC532000
0000D0 0000                         594+$CKPTRAK DC    Y(*-*)              HASP CHECKPOINT TRACK ADDRESS        HC533000
0000D2 0000                         595+         DC    Y(0)                RESERVED                             HC534000
0000D4 00000000                     596+$HASPTCB DC    A(*-*)              ADDRESS OF HASP TASK CONTROL BLOCK   HC535000
0000D8 00000000                     597+$HASPECB DC    F'0'                COMMON HASP ECB                      HC535200
0000DC 00000000                     598+$ASYNCQ  DC    A(0)                ASYNC I/O COMPLETION QUEUE           HC535400

0000E0 00000000                     599+$RJECHEQ DC    A(0)                RJE I/O COMPLETION QUEUE             HC535600
                                    600+*                                  ADDRESS OF FIRST HASP PCE            HC536000
0000E4 00000000                     601+$PCEORG  DC    A(*-*)                                                   HN010000
0000E8 00000000                     602+$BUFPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE HASP BUFFER HC538000
0000EC 00000000                     603+$TPBPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE RJE BUFFER  HC539000

0000F0 00000000                     604+$DCTPOOL DC    A(*-*)              ADDRESS OF FIRST HASP DCT            HC540000
0000F4 00000000                     605+$JITABLE DC    A(*-*)              ADDRESS OF HASP JOB INFO TABLE       HC541000
0000F8 00000000                     606+$JOTABLE DC    V($JOT)             ADDRESS OF JOB OUTPUT TABLE          HC541500
0000FC 00000000                     607+$CYLMAP  DC    A(*-*)              ADDRESS OF FIRST CYLINDER MODULE MAP HC542000
000100 00000000                     608+$TEDADDR DC    A(*-*)              ADDRESS OF FIRST EXTENT DATA TABLE   HC543000

000104 00000000                     609+$DCBLIST DC    A(*-*)              ADDRESS OF DIRECT ACCESS DCB         HC544000
000108 00000000                     610+$FREEQUE DC    A(*-*)              ADDR OF 1ST FREE CONSOLE MSG BUFFER  HC545000
00010C 00000000                     611+$BUSYQUE DC    A(*-*)              CONSOLE MSG BUFFERS QUEUED FOR I/O   HC546000
000110 00000000                     612+$LOGQUE  DC    A(*-*)              CMB'S QUEUED FOR LOG PROCESSOR       HC547000
000114 00000000                     613+$COMMQUE DC    A(*-*)              COMMANDS QUEUED FOR COMMAND PROC     HC548000

000118 00000000                     614+$DOMQUE  DC    A(*-*)              CMB'S AWAITING ACTION                HC548200
00011C 00000000                     615+$SMFFREE DC    A(*-*)              ADDR OF 1ST FREE SMF BUFFER          HC548400
000120 00000000                     616+$SMFBUSY DC    A(*-*)              SMF BUFFERS QUEUED FOR I/O           HC548600
000124 00000000                     617+$PRCHKPT DC    A(*-*)              ADDRESS OF PRINT CHECKPOINT TABLE    HC549000
000128 00000002                     618+$TIMEARG DC    F'2'                FAKE SVRB+36 FOR IGC011              HC549500

SVC      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    620+*                             NUCLEUS ADDRESS TABLE                     HC551000

00012C                              622+$NUCTABL DS    0F                  START OF NUCLEUS ADDRESS TABLE       HC553000
00012C 00000000                     623+$STATENT DC    A(*-*)              ENTRY TO STATUS ROUTINE              HC554000

000130 00000000                     624+$TIMENT  DC    A(*-*)              ENTRY TO TIME ROUTINE                HC555000
000134 00000000                     625+$XSMFENT DC    A(*-*)              ENTRY TO SMF EXCP COUNTING ROUTINE   HC559000
000138 00000000                     626+$SVCRSET DC    A(*-*)              ENTRY TO HASP SVC RESET ROUTINE      HC560000
                            00010   627+$NUCLEN  EQU   *-$NUCTABL          LENGTH OF NUCLEUS ADDRESS TABLE      HC561000



                                    629+*********************************************************************** HC576000
                                    630+*  ALL VARIABLES LOCATED IN THIS AREA WILL BE REGULARLY CHECKPOINTED  * HC577000
                                    631+*  BY HASP AND WILL BE RESTORED ON ANY WARM START.....                * HC578000
                                    632+*                                                                     * HC579000

                                    633+*                                                                     * HC580000
                                    634+*                                                                     * HC581000
00013C                              635+$SAVEBEG DS    0F                  BEGINNING OF SAVE AREA             * HC582000
00013C 00000000                     636+$JOBQPTR DC    A(*-*)              ADDRESS OF HASP JOB QUEUE          * HC583000
000140 00000000                     637+$JQFREE  DC    A(*-*)              BEGINNING OF FREE QUEUE CHAIN      * HC584000
000144 00000000                     638+$JQENT   DC    A(*-*)              BEGINNING OF ACTIVE QUEUE CHAIN    * HC585000
000148 00000000                     639+$DATAKEY DC    F'0'                MASTER PERIPHERAL DATA SET KEY     * HC588000

00014C 0000                         640+$JOBNO   DC    H'0'                HASP JOB NUMBER                    * HC589000
00014E 0000                         641+$MSGRPNO DC    H'0'                LAST CONSOLE MESSAGE TRACK GROUP   * HC590000
000150 0000000000000000             642+$DACKPT  DC    2XL6'0'             DA CHECKPOINT FOR WARM START       * HC591000

                            0015C   643+$SAVEEND EQU   *                   END OF SAVE AREA                   * HC592000
                            00020   644+$SAVELEN EQU   $SAVEEND-$SAVEBEG   LENGTH OF SAVE AREA                * HC593000
                                    645+*                                                                     * HC594000
                                    646+*                                                                     * HC595000
                                    647+*                                                                     * HC596000

                                    648+*********************************************************************** HC597000
                                    649+*                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000

00015C                              651+$NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000
00015C 00000000                     652+$ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000
000160 00000000                     653+$SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000
000164 00000000                     654+$SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000
                            0000C   655+$NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000


                                    657+*                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000

000168 00000000                     659+$IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000

00016C 00000000                     660+$WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000
000170 00000000                     661+$LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000
000174 00000000                     662+$XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000

000178 00000000                     663+$SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000
00017C 00000000                     664+$SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000
000180 00000000                     665+$SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000
000184 00000000                     666+$SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000
000188 00000000                     667+$SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000
00018C                              668+$ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000



SVC      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   22



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              671+HASP4SVC CSECT ,                   END OF HCT DSECT                RFIT HC998000

SVC      HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                              674+PCEDSECT DSECT                     PROCESSOR CONTROL ELEMENT DSECT      PC260000




                            00000   676+         USING PCEDSECT,SAVE       ESTABLISH PCE ADDRESSABILITY         PC264000



000000                              678+PCESAVEA DS    F                   RESERVED                             PC268000
000004                              679+PCEPREV  DS    F                   ADDRESS OF PREVIOUS PCE              PC270000
000008                              680+PCENEXT  DS    F                   ADDRESS OF NEXT PCE                  PC272000
00000C                              681+PCELINK  DS    F                   REGISTER 14 (LINK) STORAGE           PC274000
000010                              682+PCER15   DS    F                   REGISTER 15 STORAGE                  PC276000
000014                              683+PCER0    DS    F                   REGISTER 0 STORAGE                   PC278000

000018                              684+PCER1    DS    F                   REGISTER 1 STORAGE                   PC280000

00001C                              685+PCEWA    DS    F                   REGISTER 2 (WA) STORAGE              PC282000
000020                              686+PCEWB    DS    F                   REGISTER 3 (WB) STORAGE              PC284000
000024                              687+PCEWC    DS    F                   REGISTER 4 (WC) STORAGE              PC286000
000028                              688+PCEWD    DS    F                   REGISTER 5 (WD) STORAGE              PC288000
00002C                              689+PCEWE    DS    F                   REGISTER 6 (WE) STORAGE              PC290000

000030                              690+PCEWF    DS    F                   REGISTER 7 (WF) STORAGE              PC292000
000034                              691+PCEWG    DS    0F                  REGISTER 8 (WG) STORAGE              PC294000
000034                              692+PCEBASE3 DS    F                   REGISTER 8 (BASE3) STORAGE           PC296000
000038                              693+PCER9    DS    F                   REGISTER 9 STORAGE                   PC298000
00003C                              694+PCEJCT   DS    F                   REGISTER 10 (JCT) STORAGE            PC300000
000040                              695+PCEBASE1 DS    F                   REGISTER 11 (BASE1) STORAGE          PC302000
000044                              696+PCEBASE2 DS    F                   REGISTER 12 (BASE2) STORAGE          PC304000
000048                              697+PCEEWF   DS    H                   PROCESSOR EVENT WAIT FIELD           PC306000
00004A                              698+PCEID    DS    H                   PROCESSOR TYPE                       PC308000
00004C                              699+         DS    C                   RESERVED                             PC310000

00004D                              700+PCEOPRIO DS    C                   REQUESTED OVERLAY ROUTINE PRIORITY   PC312000

00004E                              701+PCEOCON  DS    H                   REQUESTED OVERLAY ROUTINE OCON       PC314000
000050                              702+PCEORTRN DS    F                   $RETURN PAST $LINK STORAGE           PC316000
000054                              703+PCEOPCE  DS    F                   CHAIN OF PCE'S USING SAME OVERLAY    PC318000
000058                              704+PCEWORK  DS    0D                  VARIABLE LENGTH PROCESSOR WORK AREA  PC320000

000000                              705+HASP4SVC CSECT                     END OF PCE DSECT                     PC322000
SVC      HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    707+*                                                                       PC326000
                                    708+*                             PROCESSOR CONTROL ELEMENT IDENTIFICATION  PC328000
                                    709+*                                                                       PC330000





                                    711+*                                                                       PC334000
                                    712+*                             BYTE 1                                    PC336000
                                    713+*                                                                       PC338000




                            00001   715+PCELCLID EQU   X'01'               LOCAL SPECIAL PCE ID                 PC342000
                            00002   716+PCERJEID EQU   X'02'               REMOTE SPECIAL PCE ID                PC344000
                            00004   717+PCEINRID EQU   X'04'               INTERNAL SPECIAL PCE ID              PC346000

                            00080   718+PCEPRSID EQU   X'80'               PRINT SPECIAL PCE ID                 PC348000
                            00040   719+PCEPUSID EQU   X'40'               PUNCH SPECIAL PCE ID                 PC350000





                                    721+*                                                                       PC354000
                                    722+*                             BYTE 2                                    PC356000
                                    723+*                                                                       PC358000



                            00000   725+PCEASYID EQU   0                   ASYNCH PCE ID                        PC362000
                            00001   726+PCERDRID EQU   1                   INPUT PCE ID                         PC364000
                            00002   727+PCESETID EQU   2                   SETUP PCE ID                         PC366000
                            00003   728+PCEXEQID EQU   3                   EXECUTION PCE ID                     PC368000

                            00004   729+PCETHWID EQU   4                   EXECUTION THAW PCE ID                PC370000
                            00005   730+PCEXZMID EQU   5                   EXECUTION TASK MONITOR PCE ID        PC372000
                            00006   731+PCEOUTID EQU   6                   OUTPUT PROCESSOR PCE ID              PC374000

                            00007   732+PCEPRTID EQU   7                   PRINT PCE ID                         PC376000
                            00008   733+PCEPUNID EQU   8                   PUNCH PCE ID                         PC378000
                            00009   734+PCEPRGID EQU   9                   PURGE PCE ID                         PC380000
                            0000A   735+PCECONID EQU   10                  CONSOLE PCE ID                       PC382000
                            0000B   736+PCEMLMID EQU   11                  LINE MANAGER PCE ID                  PC384000
                            0000C   737+PCETIMID EQU   12                  TIMER PCE ID                         PC386000
                            0000D   738+PCECKPID EQU   13                  CHECKPOINT PCE ID                    PC388000
                            0000E   739+PCEGPRID EQU   14                  PRIORITY AGING PCE ID                PC390000
SVC      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00010   741+$CVTPTR  EQU   16                  ADDRESS OF CVT POINTER               CT008000
000000                              742+CVTDSECT DSECT                     COMMUNICATION VECTOR TABLE DSECT     CT012000




                                    744+*                                                                       00510000
                                    745+*              OS/360                                                   00560000

                                    746+*        COMMUNICATION VECTOR TABLE                                     00800000
                                    747+*                                                                       00810000
                                    748+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5                    01050021
                                    749+*                                                                       01200000
                            00010   750+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT         01400000
                                    751+*                                                                       01600000
                                    752+*              BEGINNING OF CVT PROPER                                  01601000
                                    753+*                                                                       01610000
000000                              754+         DS    0F                                                       01611000
                            00000   755+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE                 01840000
                                    756+*                                                                       02000000
000000 00000000                     757+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST  02200000

000004 00000000                     758+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE                02610000
                                    759+*                              ASYNCHRONOUS EXITS                       02620000

000008 00000000                     760+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB                   02800000

00000C 00000000                     761+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB                     03000000
000010 00000000                     762+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT                03200000
                                    763+*                              CONSOLE INTERRUPTION ROUTINE             03400000
000014 00000000                     764+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE         03600000
000018 00000000                     765+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING 03800000
                                    766+*                              ROUTINE FOR SUPERVISOR                   04000000
00001C 00000000                     767+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04200000
                                    768+*                              RELATIVE TRACK ADDR TO ABSOLUTE          04400000
000020 00000000                     769+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04600000
                                    770+*                              ABSOLUTE TRACK ADDR TO RELATIVE          04800000
000024 00000000                     771+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION   05000000
                                    772+*                              IN UCB LOOKUP TABLE                      05200000

000028 00000000                     773+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION     05400000
                                    774+*                              IN UCB LOOKUP TABLE                      05600000
00002C 00000000                     775+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE           05800000

                                    776+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES 06000000
000030 00000000                     777+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY      06200000
                                    778+*                              IN UCB LOOKUP TABLE                      06400000
000034 00000000                     779+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE         06600000
000038 00000000                     780+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL             06800000
00003C 00000000                     781+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)       07210000
                                    782+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS    07220000
                                    783+*                              MASTER SCHEDULER RESIDENT DATA AREA      07221000
000040 00000000                     784+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE    07400000
000044 00000000                     785+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE          07600000
000048 00000000                     786+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS       08000000
                                    787+*                              FOR DAMAGE ASSESSMENT ROUTINES           08200000

00004C 00000000                     788+CVT0FN00 DC    A(0) -        RESERVED (MVT)                             08610000
000050 0A03                         789+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER                         08800000
000052 07FE                         790+CVTBRET  BR    14 -          RETURN TO CALLER                           09000000
000054 00000000                     791+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB                    09200000

000058 00000000                     792+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER     09411000
                                    793+*                              ROUTINE (SHPC FIRST)                     09412000
00005C 00000000                     794+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL              09430000
SVC      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000060 00000000                     795+CVTSJQ   DC    A(0) -        RESERVED (MVT)                             09810000

000064 00000000                     796+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR  10000000
000068 00000000                     797+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE              10410000
                                    798+*                              FOR INTERVAL TIMER                       10411000
00006C 00000000                     799+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE              10420000
                                    800+*                              FOR INTERVAL TIMER                       10421000
000070 00000000                     801+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE         10600000
000074 10                           802+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM                           11600000
                            00040   803+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11600100

                            00020   804+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11600200
                            00010   805+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11600300

                            00004   806+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11600400
000075 000000                       807+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11601000
000078 00000000                     808+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE            11820000
00007C 00000000                     809+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER    12400000
000080 00000000                     810+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS               12600000
000084 00000000                     811+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE              12800000
000088 00000000                     812+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER             13000000
00008C 00000000                     813+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE         13200000

000090 00000000                     814+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE            13400000
000094 00000000                     815+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT          13810000
                                    816+*                              DATA AREA (MVT/MFT)                      13820000
000098 00000000                     817+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE    14000000
00009C 00000000                     818+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE                14200000

0000A0 00000000                     819+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE           14400000
0000A4 00000000                     820+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS                    14600000
0000A8 00000000                     821+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)      14601000

0000AC 00000000                     822+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD         16638521
                                    823+*                              (0 IF GFX INACTIVE) MVT                  16640821
0000B0 00000000                     824+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA       16647721
                                    825+*                              (MVT/MFT)                                16650000
0000B4 0000                         826+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    16660000
0000B6 00                           827+CVTOPTA  DC    AL1(00)    -     MISCELLANEOUS FLAGS                     16670021
                            00080   828+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)               16680000

                            00040   829+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --                    16681000
                                    830+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16681100
                            00020   831+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --          16683000
                                    832+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16683200
                            00010   833+CVTNIP   EQU   X'10' -       NIP RUNNING                                16690000

                            00008   834+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)                     16691000
                            00004   835+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16692000
                            00002   836+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16693000
                            00001   837+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16695000

0000B7 00                           838+CVTOPTB  DC    AL1(00)     - MISCELLANEOUS FLAGS                        16700021
                            00080   839+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)            16702000
                            00020   840+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)        16704000
                                    841+*                                                                       16800000
                                    842+*              PCP OVERLAY                                              17000000
                                    843+*                                                                       17200000

0000B8                              844+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART            17400000
0000BB                              845+CVTSTUSA DS    B -           STATUS BYTE A                              17600000
                            00008   846+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART     17800000
                                    847+*                              WAS INITIATED INTRASTEP                  18000000
                            00004   848+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART           18200000

                                    849+*                              WAS INITIATED INTERSTEP                  18400000
SVC      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00002   850+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM          18600000
                                    851+*                              AND DATA HAS NOT BEEN READ               18800000

0000BC                              852+         DS    CL2 -         RESERVED                                   19000000
0000BE                              853+         DS    CL2 -         RESERVED                                   19200000
                                    854+*                                                                       19400000
                                    855+*              MVT/MFT OVERLAY                                          19600000
                                    856+*                                                                       19800000

0000C0                      000B8   857+         ORG   CVTCRTTR                                                 20000000
                                    858+*                                                                       20200000
0000B8 00000000                     859+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR           20400000
0000BC 00000000                     860+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21000000
                                    861+*                                                                       21670000

                                    862+*              END OF OVERLAYS                                          21800000
                                    863+*                                                                       22000000
0000C0 00000000                     864+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)                       22421000
0000C4 00000000                     865+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA            22600000
0000C8 00000000                     866+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT     22610000
                                    867+*                              (MVT/MPS)                                22610100

0000CC 00000000                     868+CVTUSER  DC    A(0) -        A WORD TO THE USER                         22620000
0000D0                      000CC   869+         ORG   CVTUSER -     REMAP CVTUSER AS CVTHJES              RFIT 22620100
0000CC                              870+CVTHJES  DS    0A -          SAME AS CVTHJESA BELOW                RFIT 22620300
0000CC 00                           871+         DC    XL1'00' -     RESERVED - FIRST BYTE OF CVTHJES      RFIT 22620500

0000CD 000000                       872+CVTHJESA DC    AL3(0) -      ADDRESS OF HASP COMMUNICATION TABLE   RFIT 22620700
0000D0                      000D0   873+         ORG   , -           RESTORE LOCATION COUNTER              RFIT 22620900
                                    874+*                                                                       23000000
                                    875+*              MFT/MVT CVT EXTENSION                                    24000000
                                    876+*                                                                       24200000

0000D0 00000000                     877+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT       24400021
0000D4 0A0D                         878+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)                 24600000
0000D6 0A06                         879+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)   25000000
0000D8 00000000                     880+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25421000
0000DC 00000000                     881+CVTPATCH DC    V(IEAPATCH) - ADDR OF FE PATCH AREA                      25540000
0000E0 00000000                     882+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA  25800000

                                    883+*                              (MVT/MFT)                                25810000
0000E4                              884+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)             26000000
0000E4 00                           885+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)                   26050000
                            00080   886+CVTTSRDY EQU   X'80' -       TIME SHARING READY                         26100000

0000E5 000000                       887+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)             26150000
0000E8 00000000                     888+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     27393221
0000EC                              889+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)   27394021
0000EC 00                           890+CVTGTFST DC    B'0' -        STATUS FLAGS                               27396021
                            000C0   891+CVTGTFS  EQU   X'C0' -       STATE                                      27398021

                                    892+*/       00    CVTGTFIN      INACTIVE                                   27398421
                                    893+*/       01    CVTGTFSR      STARTING                                   27398821
                                    894+*/       10    CVTGTFSP      STOPPING                                   27399221
                                    895+*/       11    CVTGTFAC      ACTIVE                                     27399621
                            00020   896+CVTSTATE EQU   X'20' -       IN CONTROL                                 27399721
                            00010   897+CVTMODE  EQU   X'10' -       EXT MODE                                   27399821
                            00008   898+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA                27399921

                            00004   899+CVTUSR   EQU   X'04' -       USR TRACE                                  27449921
                            00002   900+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID                       27459921
0000ED 000000                       901+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE                27469921

0000F0                              902+CVTTCMFG DS    0B -          TCAM FLAGS                                 27499921
                            00080   903+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)                         27600000
0000F0 00000000                     904+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF             27610000
SVC      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    905+*                            TCAM ADDRESS VECTOR TABLE                  27620021
                                    906+*                                                                       29401221
                                    907+*              MVT CVT EXTENSION                                        29401321
                                    908+*                                                                       29401421
0000F4                              909+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE 29401521
                                    910+*                            (PWF)                               S21167 29401621
0000F4 80                           911+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY   29404021
                                    912+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167 29404221

                            00080   913+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167 29404421
0000F5 000000                       914+CVTVOLT2 DC    AL3(0)     -  PWF RECHECK TIME DELAY.  THIS VALUE IS     29404621

                                    915+*                            OVERLAID BY CVTVOLM2 AFTER PWF             29404821
                                    916+*                            INITIALIZATION                      S21167 29405021
0000F8 00000000                     917+         DC    A(0) -        RESERVED                                   29405221
                                    918+*                                                                       29407021
                                    919+*              MVT/MFT CVT EXTENSION                                    29408021

                                    920+*                                                                       29408821
0000FC 00000114                     921+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1              29410821
                                    922+*                            (ICB421)                APAR'S 47331,47332 29413221
000100                              923+         DS    F -           RESERVED                                   29414221
000104                              924+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE         29415221
000104                              925+         DS    X -           RESERVED                                   29416421
000105 000000                       926+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE         29417421
000108                              927+         DS    F -           RESERVED                                   29418421
00010C                              928+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307 29419421

00010C                              929+         DS    X -           RESERVED                            ICB307 29420421

00010D 000000                       930+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND              29421421
                                    931+*                            COMMUNICATION AREA                  ICB307 29422421
000110                              932+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308 29423421
000110                              933+         DS    X -           RESERVED                            ICB308 29424421
000111 000000                       934+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY      29425421

                                    935+*                            ROUTINE                             ICB308 29426421
                                    936+*                                                                       29427421
                                    937+*              COMMON EXTENSION 1                                       29435721
                                    938+*              ADDRESS OF EXTENSION IS IN CVTEXT1                       29445721
                                    939+*                                                                       29455721
                                    940+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,               29456121
                                    941+*              YOU SHOULD CODE -                                        29462521
                                    942+*                                                                       29464521
                                    943+*              L     REG,CVTEXT1                                        29466521
                                    944+*              USING CVTXTNT1,REG                                       29468521

                                    945+*                                                                       29468621

                                    946+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.               29468721
                                    947+*                                                                       29468821
                            00114   948+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1                29475221
                                    949+*                            (ICB421)                APAR'S 47331,47332 29475721

000114 00000000                     950+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS        29477221
                                    951+*                            (ISAM) (ICB421)         APAR'S 47331,47332 29479221
                                    952+*                                                                       29494421
                                    953+*              END OF CVT PROPER                                        29513521
                                    954+*                                                                       29532621
                                    955+*                                                                       29870000
                                    956+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT           29880000
                                    957+*                                                                       29890000
000000                              958+HASP4SVC CSECT                     END OF CVT DSECT                     CT020000
SVC      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000000                              960+UCBDSECT DSECT                     UNIT CONTROL BLOCK DSECT             UC008000


                                    962+*%UCBL1 : ;                                                             IE005000
                                    963+*/* **************************************************************** */ IE006000

                                    964+*/*                                                                  */ IE007000
                                    965+*/*            U N I T   C O N T R O L   B L O C K                   */ IE008000
                                    966+*/*                                                                  */ IE009000
                                    967+*/* **************************************************************** */ IE010000
                                    968+*/*                                                                  */ IE011000
                                    969+*/*  STATUS                                                          */ IE012000
                                    970+*/*                                                                  */ IE013000
                                    971+*/*      OS/VS2 RELEASE 1, OS/VS1 RELEASE 2, 08/14/72, LEVEL=14      */ IE014000
                                    972+*/*                                                                  */ IE015000
                                    973+*/*  METHOD OF ACCESS                                                */ IE016000
                                    974+*/*                                                                  */ IE017000
                                    975+*/*      PL/S - DCL (UCBPTR,UCBDCPTR) PTR                            */ IE018000

                                    976+*/*      BAL  - DSECT CARD SHOULD PRECEDE MACRO CALL.  SYMBOLS IN    */ IE019000
                                    977+*/*             COMMON SECTION AND DEVICE DEPENDENT SECTIONS ARE     */ IE020000
                                    978+*/*             ADDRESSABLE BY A USING ON UCBOB.  ADDITIONAL USINGS  */ IE021000

                                    979+*/*             ARE NECESSARY TO OBTAIN ADDRESSABILITY FOR EACH      */ IE022000
                                    980+*/*             EXTENSION OR PREFIX.  THESE ARE AS FOLLOWS -         */ IE023000
                                    981+*/*                                                                  */ IE024000
                                    982+*/*             DIRECT ACCESS EXTENSION           UCBDA              */ IE025000
                                    983+*/*             DIRECT ACCESS EXTENSION 2         UCBDA2             */ IE026000
                                    984+*/*             PREFIX TO MAGNETIC TAPE EXTENSION UCBMTPRF           */ IE027000
                                    985+*/*             MAGNETIC TAPE EXTENSION           UCBMT              */ IE028000
                                    986+*/*             TAPE CARTRIDGE READER EXTENSION   UCBTCR             */ IE029000
                                    987+*/*             OPTICAL READER EXTENSION          UCBOR              */ IE030000
                                    988+*/*             UNIT RECORD WITH UCS EXTENSION    UCBUCS             */ IE031000
                                    989+*/*             3211 SENSE INFORMATION EXTENSION  UCBSNINF           */ IE032000
                                    990+*/*             M65 MULTIPROCESSING PREFIX        UCBM65MP           */ IE033000

                                    991+*/*                                                                  */ IE034000

                                    992+*/*             WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH  */ IE035000
                                    993+*/*             DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER   */ IE036000

                                    994+*/*             IN THE DEFN COLUMN IN THE CORSS REFERENCE LISTING.   */ IE037000
                                    995+*/*             FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE          */ IE038000
                                    996+*/*             STATEMENT NUMBERS FOR UCBDA AND UCBDA2 IS IN THE     */ IE039000
                                    997+*/*             UCBDA DSECT.                                         */ IE040000
                                    998+*/*                                                                  */ IE041000
                                    999+*/*  F.E.'S                                                          */ IE042000
                                   1000+*/*                                                                  */ IE043000
                                   1001+*/*      MICROFICHE LISTING - IEFUCBOB                               */ IE044000
                                   1002+*/*                                                                  */ IE045000
                                   1003+*/*  DEVELOPERS                                                      */ IE046000
                                   1004+*/*                                                                  */ IE047000
                                   1005+*/*      BAL LISTING  - SPECIFY LIST=YES ON MACRO CALL               */ IE048000

                                   1006+*/*      PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE        */ IE049000
                                   1007+*/*                                                                  */ IE050000

                                   1008+*/*      FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS     */ IE051000

                                   1009+*/*      YOUR MODULE CREATES THE CSECT.                              */ IE052000
                                   1010+*/*                                                                  */ IE053000
                                   1011+*/*  FUNCTION                                                        */ IE054000
                                   1012+*/*                                                                  */ IE055000
                                   1013+*/*      A UNIT CONTROL BLOCK                                        */ IE056000
SVC      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1014+*/*      INCORPORATING A SYSTEM RESOURCE TABLE                       */ IE057000
                                   1015+*/*      RECORDS THE STATUS OF                                       */ IE058000
                                   1016+*/*        A PHYSICAL INPUT OUTPUT DEVICE ADDRESS                    */ IE059000
                                   1017+*/*      IS CREATED AND INITIALIZED DURING SYSTEM GENERATION         */ IE060000
                                   1018+*/*      RESIDES IN THE NUCLEUS BELOW 32 K                           */ IE061000

                                   1019+*/*      POINTS TO A DEVICE TYPE DEPENDENT EXTENSION                 */ IE062000
                                   1020+*/*        RESIDING HIGHER IN THE NUCLEUS                            */ IE063000
                                   1021+*/*      IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY            */ IE064000

                                   1022+*/*        A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS     */ IE065000
                                   1023+*/*      MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES               */ IE066000
                                   1024+*/*        AND DATA EXTENT BLOCKS                                    */ IE067000
                                   1025+*/*      CONTAINS INDICES INTO TABLES FOR                            */ IE068000
                                   1026+*/*        DEVICE STATISTICS ATTENTION LOGICAL CHANNEL               */ IE069000
                                   1027+*/*      MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS    */ IE070000
                                   1028+*/*                                                                  */ IE071000
                                   1029+*/*  OUTPUT                                                          */ IE072000
                                   1030+*/*                                                                  */ IE073000
                                   1031+*/*      SYSGEN INDEPENDENT COMMON SECTION                           */ IE074000
                                   1032+*/*        INCLUDING UCBTYP WORD                                     */ IE075000
                                   1033+*/*      DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)             */ IE076000

                                   1034+*/*        DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE         */ IE077000
                                   1035+*/*        DATACELL (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)*/ IE078000
                                   1036+*/*        UNIT RECORD WITH UNIVERSAL CHARACTER SET                  */ IE079000
                                   1037+*/*        GRAPHICS                                                  */ IE080000

                                   1038+*/*        TAPE CARTRIDGE READER AND OPTICAL READER                  */ IE081000
                                   1039+*/*      CELL DESCRIPTION FOR ONE OF THE TEN CELLS                   */ IE082000
                                   1040+*/*        IN THE DATACELL DEVICE SEGMENT ABOVE                      */ IE083000
                                   1041+*/*      UCB EXTENSION (ONE OF THE FOLLOWING)                        */ IE084000
                                   1042+*/*        DIRECT ACCESS                                             */ IE085000
                                   1043+*/*        DIRECT ACCESS 2                                           */ IE086000

                                   1044+*/*        MAGNETIC TAPE AND ITS PREFIX                              */ IE087000
                                   1045+*/*        TAPE CARTRIDGE READER                                     */ IE088000
                                   1046+*/*        OPTICAL READER                                            */ IE089000
                                   1047+*/*        UNIVERSAL CHARACTER SET                                   */ IE090000
                                   1048+*/*        3211 SENSE INFORMATION                                    */ IE091000
                                   1049+*/*      M65 MULTIPROCESSING PREFIX                                  */ IE092000
                                   1050+*/*        (CONTIGUOUSLY PRECEDING COMMON SECTION)                   */ IE093000
                                   1051+*/*                                                                  */ IE094000

                                   1052+*/* **************************************************************** */ IE095000
                                   1053+*%GOTO UCBL2;   /*                                                      IE096000

                                   1054+         PUSH  PRINT                                                    IE097000
                                   1055+         PRINT OFF                                                      IE099000
                                   1791+         POP   PRINT                                                    IE836000


000000                             1793+HASP4SVC CSECT                     END UNIT CONTROL BLOCK DSECT         UC016000
SVC      HASP SVC ROUTINE                                                                                      PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1795 *                                                                       S0018000

                                   1796 *                             HASP SVC ROUTINE                          S0020000
                                   1797 *                                                                       S0022000



                                   1799          AIF   (NOT &SYSVS2).SVC1                                  RFIT S0025900
                                   1800 .SVC1    ENTRY IGC&INITSVC                                         RFIT S0026200

                                   1801+.SVC1    ENTRY IGC220                                              RFIT S0026200
                                   1802 IGC&INITSVC DS 0D                                                  RFIT S0026300
000000                             1803+IGC220      DS 0D                                                  RFIT S0026300

                                   1804 .SVC2    ANOP                                                      RFIT S0026400


000000 0560                        1806          BALR  R6,0                ESTABLISH                            S0030000
                            00002  1807          USING SVCBASE,R6           ADDRESSABILITY                      S0032000


000002                             1809 SVCBASE  DS    0H                                                       S0036000
                            00000  1810          USING CVTDSECT,R3                                              S0038000

000002 58F0 30CC      000CC        1811          L     R15,CVTUSER         R15=$HVT ADDRESS                RFIT S0040000
000006 41F0 F000      00000        1812          LA    R15,0(,R15)         R15 IS RETURN CODE                   S0042000
00000A 5510 605E      00060        1813          CL    R1,CODEWORD         CHECK R1 FOR CODE WORD               S0044000
00000E 077E                        1814          BCR   NE,R14              RETURN IF NOT CODE WORD              S0046000
000010 12FF                        1815          LTR   R15,R15             IS HASP ACTIVE                       S0048000

000012 4770 6030      00032        1816          BNZ   ABORT               ABTERM IF YES                        S0050000
000016 91F0 0021      00021        1817          TM    33,X'F0'            TEST PROTECT KEY OF CALLER           S0052000
                                   1818          BC    &SYSVS2*7,ABORT     ABTERM IF NOT ZERO AND          RFIT S0054000
00001A 4700 6030      00032        1819+         BC    0*7,ABORT           ABTERM IF NOT ZERO AND          RFIT S0054000

                                   1820 *                                   VS2 SYSTEM                     RFIT S0054100




00001E 5000 30CC      000CC        1823          ST    R0,CVTUSER          STORE $HVT ADDRESS IN CVT       RFIT S0060000
                                   1824          DROP  R3                                                       S0062000
000022 D203 6056 0020 00058 00020  1825          MVC   PSW(4),32           SAVE OLD PSW                         S0064000

000028 940E 0021      00021        1826          NI    33,X'0E'            SET SUPERVISOR STATE                 S0066000
00002C 4110 606E      00070        1827          LA    R1,TABLE            RETURN ADDRESS OF TABLE IN REG R1    S0068000
000030 07FE                        1828          BR    R14                 RETURN TO CALLER                     S0070000






                                   1830 *                                                                       S0074000
                                   1831 *                             ABNORMALLY TERMINATE FOR ILLEGAL ENTRY    S0076000
                                   1832 *                                                                       S0078000



000032 1804                        1834 ABORT    LR    R0,R4               R0 = ADDRESS OF TCB                  S0082000

000034 5810 6062      00064        1835          L     R1,ABCODE           R1 = ABEND CODE                      S0084000
000038 58F0 6066      00068        1836          L     R15,ABADD           R15 = ADDRESS OF ENTRY TO ABTERM     S0086000
00003C 07FF                        1837          BR    R15                 ABNORMALLY TERMINATE CALLER          S0088000
SVC      HASP SVC ROUTINE                                                                                      PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   1839 *                                                                       S0092000
                                   1840 *                             RESET USER TO ORIGINAL STATE              S0094000
                                   1841 *                                                                       S0096000



                            0003E  1843          USING *,R15               ESTABLISH                            S0100000

00003E 5860 F02E      0006C        1844 RESET    L     R6,RESETAD           TEMPORARY ADDRESSABILITY            S0102000
000042 58F0 0010      00010        1845          L     R15,$CVTPTR         R15 = CVT ADDRESS                    S0104000
                            00000  1846          USING CVTDSECT,R15                                             S0106000
000046 D703 F0CC F0CC 000CC 000CC  1847          XC    CVTUSER,CVTUSER     CLEAR $HVT ADDRESS FROM CVT     RFIT S0108000
00004C 50E0 605A      0005C        1848          ST    R14,PSW+4           SET RETURN ADDRESS                   S0110000

000050 8200 6056      00058        1849          LPSW  PSW                 RETURN TO CALLER IN ORIGINAL STATE   S0112000





                                   1851 *                                                                       S0116000
                                   1852 *                             CONSTANTS                                 S0118000

                                   1853 *                                                                       S0120000



000058                             1855 PSW      DS    D                   PSW SAVE FIELD                       S0124000
000060 C8C1E2D7                    1856 CODEWORD DC    0F'0',C'HASP'       CODE WORD REQUIRED IN REGISTER R1    S0126000
000064 C016D000                    1857 ABCODE   DC    0F'0',X'C016D000'   ABEND CODE                           S0128000

000068 00000000                    1858 ABADD    DC    V(IEA0AB00)         ADDRESS OF ENTRY TO ABTERM           S0130000
00006C 00000002                    1859 RESETAD  DC    A(SVCBASE)          ADDRESSABILITY CONSTANT              S0132000



000070                             1861 TABLE    DS    0F                  NUCLEUS ADDRESS TABLE                S0136000
000070 00000000                    1862          DC    V(IGC07902)         ENTRY TO STATUS ROUTINE              S0138000
000074 00000000                    1863          DC    V(IGC011)           ENTRY TO TIME ROUTINE                S0140000

000078 00000000                    1864          DC    V(IEASMFEX)         ENTRY TO SMF EXCP COUNTING ROUTINE   S0148000
00007C 0000003E                    1865          DC    A(RESET)            ENTRY TO HASP SVC RESET ROUTINE      S0150000
000080 00000000                    1866          DC    V(IEEBA1)           ENTRY OF IOS CONSOLE ATTEN APPNDRFIT S0150100
                                   1867          AIF   (NOT &SYSMFT).SVC9                                  RFIT S0150200

                                   1868 .SVC9    AIF   (NOT &SYSMVT).SVC10                                 RFIT S0150600
000084 00000000                    1869          DC    V(IBMORG)           ADDRESS OF MVT SVC TABLE        RFIT S0150700
                                   1870          AGO   .SVC11                                              RFIT S0150800
                                   1871 .SVC11   ANOP                                                      RFIT S0151000
SVC      HASP IOS EXIT LINKAGES                                                                                PAGE   33



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1873 *                                                                       S0154000
                                   1874 *                             LINKAGE TO HASP PSEUDO DEVICE EXIT        S0156000
                                   1875 *                                                                       S0158000



000088                             1877 IECHASPE CSECT                                                          S0162000
000088 58F0 0010      00010        1878          L     R15,$CVTPTR         R15 = CVT ADDRESS                    S0164000

                            00000  1879          USING CVTDSECT,R15                                             S0166000
                                   1880 *        ICM   R15,7,CVTHJES+1     R15 = $HVT ADDRESS              RFIT S0168000
00008C 58F0 F0CC      000CC        1881          L     R15,CVTUSER                                         RFIT S0168005

000090 12FF                        1882          LTR   R15,R15                                             RFIT S0168010
000092 4780 E004      00004        1883          BZ    4(,R14)             RETURN +4 IF HASP NOT ACTIVE         S0170000
                            00008  1884          USING $HVT,R15                                                 S0172000
000096 58F0 F000      00008        1885          L     R15,$HVTEXCP        R15 = PSEUDO DEVICE EXIT ADDR        S0174000
                                   1886          DROP  R15                                                      S0176000

00009A 07FF                        1887          BR    R15                 GO TO EXIT                           S0178000





                                   1889 *                                                                       S0182000
                                   1890 *                             HASP ATTENTION EXIT ROUTINE               S0184000
                                   1891 *                                                                       S0186000



                                   1893          ENTRY IECHASPA                                                 S0190000

0000A0                             1894 IECHASPA DS    0D                                                       S0192000
0000A0 58F0 0010      00010        1895          L     R15,$CVTPTR         R15 = CVT ADDRESS                    S0194000

                            00000  1896          USING CVTDSECT,R15                                             S0196000
                                   1897 *        ICM   R10,7,CVTHJES+1     R10 = $HVT ADDRESS              RFIT S0198000
0000A4 58A0 F0CC      000CC        1898          L     R10,CVTUSER                                         RFIT S0198005
0000A8 12AA                        1899          LTR   R10,R10                                             RFIT S0198010
0000AA 078E                        1900          BCR   Z,R14               RETURN IF HASP IS NOT ACTIVE         S0200000

                            00008  1901          USING $HVT,R10                                                 S0202000
                            00000  1902          USING UCBDSECT,R7         R7 = UCB ADDRESS                     S0204000
0000AC 9602 700B      0000B        1903          OI    UCBATI,X'02'        FLAG ATTN AS UCB PSEUDO ALLOC        S0206000
0000B0 9680 A0D4      000DC        1904          OI    $ASYNCQ,X'80'       TELL $ASYNC THAT ATTN OCCURRED       S0208000
0000B4 58D0 A0DC      000E4        1905          L     R13,$PCEORG         R13 = ADDRESS OF $ASYNC PCE          S0210000
                            00000  1906          USING PCEDSECT,R13                                             S0212000
                                   1907          $POST PCEEWF+$EWBWORK,WORK  $POST $ASYNC                       S0214000
0000B8 94DF D049      00049        1908+         NI    PCEEWF+$EWBWORK,255-$EWFWORK                             PO008000
0000BC 947F A0BC      000C4        1909+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000

0000C0 58C0 A0CC      000D4        1910          L     R12,$HASPTCB        R12 = HASP TCB ADDRESS               S0216000

0000C4 41B0 A0D0      000D8        1911          LA    R11,$HASPECB        R11 = HASP ECB ADDRESS               S0218000
0000C8 1BAA                        1912          SR    R10,R10             R10 = ZERO COMPLETION CODE           S0220000
0000CA 58F0 F098      00098        1913          L     R15,CVT0PT01        R15 = ADDRESS OF POST ROUTINE        S0222000
                                   1914          DROP  R15,R13,R10,R7                                           S0224000
0000CE 07FF                        1915          BR    R15                 POST HASP AND EXIT                   S0226000

SVC      HASP IOS EXIT LINKAGES                                                                                PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1917          END                                                            S0230000
SVC                                               RELOCATION DICTIONARY                                        PAGE   35


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78

 0001     0001      0C     00006C
 0001     0001      0C     00007C
 0001     0002      1C     000068
 0001     0003      1C     000070
 0001     0004      1C     000074

 0001     0005      1C     000078

 0001     0006      1C     000080
 0001     0007      1C     000084

SVC                                               CROSS-REFERENCE                                              PAGE   36



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$ASYNCQ  00004 000000DC 00598  01904
$CVTPTR  00001 00000010 00741  01845 01878 01895
$EWBWORK 00001 00000001 00358  01908
$EWFPOST 00001 00000080 00323  01909
$EWFWORK 00001 00000020 00335  01908
$EXITNOP 00002 0000002C 00508  00503 00504
$HASPECB 00004 000000D8 00597  01911
$HASPECF 00001 000000C4 00584  01909
$HASPTCB 00004 000000D4 00596  01910
$HVT     00004 00000008 00497  01884 01901

$HVTEXCP 00004 00000008 00498  01885
$NUCTABL 00004 0000012C 00622  00627
$NUCTBLE 00004 0000015C 00651  00655
$PCEORG  00004 000000E4 00601  01905

$SAVEBEG 00004 0000013C 00635  00644
$SAVEEND 00001 0000015C 00643  00644
ABADD    00004 00000068 01858  01836
ABCODE   00004 00000064 01857  01835
ABORT    00002 00000032 01834  01816 01819
BASE1    00001 0000000B 00297  00491
CODEWORD 00004 00000060 01856  01813
CVTCRTTR 00003 000000B8 00844  00857
CVTDSECT 00001 00000000 00742  01810 01846 01879 01896
CVTUSER  00004 000000CC 00868  00869 01811 01823 01847 01847 01881 01898
CVTXTNT1 00001 00000114 00948  00921
CVT0PT01 00004 00000098 00817  01913

HASP4SVC 00001 00000000 00128  00671 00705 00958 01793
HCTDSECT 00001 00000000 00489  00491
IECHASPA 00008 000000A0 01894  01893

IGC220   00008 00000000 01803  01801
NE       00001 00000007 00309  01814
PCEDSECT 00001 00000000 00674  00676 01906
PCEEWF   00002 00000048 00697  01908
PSW      00008 00000058 01855  01825 01848 01849
RESET    00004 0000003E 01844  01865
RESETAD  00004 0000006C 01859  01844
R0       00001 00000000 00267  01823 01834
R1       00001 00000001 00268  01813 01827 01835
R10      00001 0000000A 00277  00296 01898 01899 01899 01901 01912 01912 01914
R11      00001 0000000B 00278  00297 01911
R12      00001 0000000C 00279  00298 01910

R13      00001 0000000D 00280  00299 01905 01906 01914

R14      00001 0000000E 00281  00300 00509 01814 01828 01848 01883 01900
R15      00001 0000000F 00282  00508 00508 01811 01812 01812 01815 01815 01836 01837 01843 01845 01846 01878 01879 01881

                               01882 01882 01884 01885 01886 01887 01895 01896 01913 01914 01915
R2       00001 00000002 00269  00288
R3       00001 00000003 00270  00289 01810 01824
R4       00001 00000004 00271  00290 01834
R5       00001 00000005 00272  00291
R6       00001 00000006 00273  00292 01806 01807 01844
R7       00001 00000007 00274  00293 01902 01914
R8       00001 00000008 00275  00294 00295
SAVE     00001 0000000D 00299  00676
SRTEASCI 00001 00000004 01353  01354
SRTEBSTR 00001 00000004 01352  01355
SVC                                               CROSS-REFERENCE                                              PAGE   37



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

SVCBASE  00002 00000002 01809  01807 01859

TABLE    00004 00000070 01861  01827

UCBALOC  00001 00000008 01104  01222
UCBATI   00001 0000000B 01142  01903
UCBBALB  00001 00000020 01259  01349
UCBBJLB  00001 00000002 01267  01356
UCBBNUL  00001 00000001 01268  01357
UCBBPRV  00001 00000010 01263  01350
UCBBPUB  00001 00000008 01264  01351
UCBBSTR  00001 00000004 01265  01352 01353
UCBBSVL  00001 00000080 01253  01348
UCBCHGS  00001 00000040 01101  01219
UCBDADI  00001 00000001 01109  01225
UCBDBBNR 00002 00000038 01542  01578

UCBDCELL 00016 00000038 01540  01577
UCBDDMCT 00001 00000043 01568  01583
UCBDEV   00001 00000018 01232  01241 01368 01402 01418 01438 01520

UCBDJBNR 00001 00000042 01567  01582
UCBDMCT  00001 00000023 01271  01358
UCBDSECT 00001 00000000 00960  01902
UCBDSTAB 00001 0000003A 01543  01579
UCBDSTAT 00001 0000003B 01555  01580
UCBDUSER 00001 00000047 01575  01585
UCBDVOLI 00006 0000003C 01566  01581
UCBDVTOC 00003 00000044 01574  01584
UCBFL1   00001 00000006 01117  01226
UCBFSCT  00002 00000024 01276  01359
UCBFSEQ  00002 00000026 01277  01360
UCBJBNR  00001 00000000 01066  01215

UCBMONT  00001 00000001 01076  01216
UCBONLI  00001 00000080 01100  01218
UCBPRES  00001 00000004 01105  01223
UCBRESV  00001 00000020 01102  01220

UCBSTAB  00001 00000022 01252  01347
UCBSTAT  00001 00000003 01099  01217
UCBSYSR  00001 00000002 01106  01224
UCBUNLD  00001 00000010 01103  01221
UCBUSER  00001 00000038 01328  01361 01534
UCBVOLI  00006 0000001C 01251  01346

Z        00001 00000008 00312  01900
SVC                                               ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE   38


                                                                                                 ASM 0201 20.02 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)

  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1

TOTAL RECORDS READ FROM SYSTEM INPUT        134
TOTAL RECORDS READ FROM SYSTEM LIBRARY     9078
TOTAL RECORDS PUNCHED                        12
TOTAL RECORDS PRINTED                      1386

WTR                                            EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.02 08/28/78

HASPWTR   SD  0001 000000 000649
WTR      HASP WRITER FOR OS SYSTEM MESSAGE BLOCKS                                                              PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78











                                      3 *        THE PURPOSE OF THIS PROGRAM IS TO REPLACE THE OS WTR FUNCTION, T0006000
                                      4 *              BUT ONLY THAT FUNCTION NEEDED IN A SYSTEM USING HASP.    T0008000

                                      5 *        THE PROGRAM IS DESIGNED TO RUN AS AN ATTACHED TASK IN THE      T0010000
                                      6 *              HASP REGION OR PARTITION.                                T0012000
                                      7 *        BASIC FUNCTION IS AS FOLLOWS.  WHEN A JOB IS PLACED IN THE     T0014000
                                      8 *              OS OUTPUT QUE FOR ANY MSGCLASS LISTED IN THE HASPGEN     T0016000

                                      9 *              PARAMETER &WTRCLAS, THE PROGRAM REMOVES THE JOB FROM     T0018000
                                     10 *              THAT QUEUE.                                              T0020000
                                     11 *        FOR ALL JOBS PROCESSED, THE PROGRAM READS THE JOB'S OUTPUT     T0022000
                                     12 *              (WHICH WILL BE OS SYSTEM MESSAGE BLOCKS ONLY), PRINTS    T0024000
                                     13 *              TO HASP VIA A PSEUDO 1403 UCB, AND SIGNALS HASP THAT     T0026000
                                     14 *              THE JOB HAS COMPLETED OS EXECUTION.                      T0028000
                                     15 *        IF THE CLASS IS ONE DESIGNATED FOR RE-QUEING (FOR USE BY       T0030000
                                     16 *              TERMINAL PROGRAMS SUCH AS CRBE, CPS, CRJE, TSO, ETC.),   T0032000
                                     17 *              THE PROGRAM RE-QUES THE JOB AT HIGHEST PRIORITY IN       T0034000
                                     18 *              THE CLASS GIVEN IN THE HASPGEN PARAMETER &WCLSREQ IN     T0036000
                                     19 *              THE POSITION CORRESPONDING TO THE POSITION OF THE        T0038000
                                     20 *              ORIGINAL CLASS IN &WTRCLAS, AND POSTS ANY OTHER TASKS    T0040000

                                     21 *              WAITING FOR WORK IN THE NEW QUE.  IF THE POSITION IN     T0042000
                                     22 *              &WCLSREQ IS AN '*', THE JOB IS NOT RE-QUED, ITS TRACKS   T0044000
                                     23 *              ARE RETURNED AS FREE SPACE, AND THE SPACE ECB IS POSTED. T0046000

                                     24 *        THE PROGRAM DEPENDS ON OS JOB QUE STRUCTURES (QCR, LTH, SMB)   T0048000
                                     25 *              AS DOCUMENTED IN MVT JOB MANAGEMENT PLM AND MICROFICHE   T0050000
                                     26 *              IEFQMDELQ, IEFQMDQQ, AND IEFSD086.                       T0052000
                                     27 *        THE FOLLOWING LIMITATIONS ARE KNOWN TO EXIST.  THE OS HOLD     T0054000
                                     28 *              COMMAND WILL NOT PREVENT PROCESSING OF A QUE BY THIS     T0056000
                                     29 *              WRITER.  IF OS DATA SET BLOCKS ARE MIXED WITH A JOB'S    T0058000
                                     30 *              SYSTEM MESSAGES (SHOULD NEVER HAPPEN WITH A PROPERLY     T0060000
                                     31 *              GENERATED HASP AND OS RDR PROCS), THE DATA SETS WILL     T0062000
                                     32 *              NOT BE PRINTED OR SCRATCHED.  RE-QUEING OF A JOB IS DONE T0064000
                                     33 *              ONLY AT HIGHEST PRIORITY FOR THAT QUE.                   T0066000
WTR      HASP WRITER FOR OS SYSTEM MESSAGE BLOCKS                                                              PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                     36 *                                                                       T0072000

                                     37 ***** $TESTREQ *****          TEST A PARAMETER FOR ALL ASTEROIDS        T0074000
                                     38 *                                                                       T0076000
                                     39 *                                                                       T0078000
                                     40          MACRO                                                          T0080000
                                     41          $TESTREQ &REQ                                                  T0082000
                                     42          GBLA  &TEMP                                                    T0084000
                                     43          LCLC  &C                                                       T0086000
                                     44          LCLA  &A                                                       T0088000
                                     45 &A       SETA  K'&REQ                                                   T0090000
                                     46 &C       SETC  '********'(1,&A)                                         T0092000
                                     47 &TEMP    SETA  0                                                        T0094000
                                     48          AIF   ('&REQ' EQ '&C').P1                                      T0096000

                                     49 &TEMP    SETA  1                                                        T0098000
                                     50 .P1      MEND                                                           T0100000





                                     52 *                                                                       T0104000
                                     53 ***** $QCRNN *****            COMPUTE QCR NN FROM MSGCLASS              T0106000
                                     54 *                                                                       T0108000
                                     55 *                                                                       T0110000
                                     56          MACRO                                                          T0112000
                                     57          $QCRNN &C                                                      T0114000
                                     58          GBLA  &QCRNN                                                   T0116000
                                     59          LCLC  &D                                                       T0118000
                                     60 &QCRNN   SETA  0                                                        T0120000
                                     61          AIF   ('&C' EQ '*').P2                                         T0122000
                                     62 &QCRNN   SETA 3                                                         T0124000
                                     63 .P1      ANOP                                                           T0126000

                                     64 &D       SETC  '  ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'(&QCRNN,1)       T0128000
                                     65          AIF   ('&D' EQ '&C').P2                                        T0130000
                                     66 &QCRNN   SETA  &QCRNN+1                                                 T0132000

                                     67          AIF   (&QCRNN LE 38).P1                                        T0134000
                                     68          MNOTE *,'INVALID MSGCLASS SPECIFIED - &C'                      T0136000
                                     69 .P2      MEND                                                           T0138000
WTR      HASP WRITER FOR OS SYSTEM MESSAGE BLOCKS                                                              PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                     72 *                                                                       T0144000
                                     73 ***** $GENWCTB *****          GENERATE WRITE ECB/CLASS/NO-WORK TABLE    T0146000
                                     74 *                                                                       T0148000
                                     75 *                                                                       T0150000
                                     76          MACRO                                                          T0152000

                                     77 &N       $GENWCTB &CLS,&REQ                                             T0154000
                                     78          GBLA  &QCRNN                                                   T0156000
                                     79          LCLC  &C                                                       T0158000
                                     80          LCLA  &A,&B                                                    T0160000

                                     81 &A       SETA  1                                                        T0162000
                                     82 &B       SETA  K'&CLS                                                   T0164000
                                     83 &N       DS    0F                                                       T0166000
                                     84 .P1      ANOP                                                           T0168000
                                     85 &C       SETC  '&REQ'(&A,1)                                             T0170000
                                     86          $QCRNN &C                                                      T0172000

                                     87          AIF   (&A EQ &B).P2                                            T0174000
                                     88          DC    AL1(&QCRNN),AL3(&N+4*&B+8*(&A-1))                        T0176000
                                     89 &A       SETA  &A+1                                                     T0178000
                                     90          AGO   .P1                                                      T0180000
                                     91 .P2      DC    AL1(&QCRNN+X'80'),AL3(&N+4*&B+8*(&A-1))                  T0182000
                                     92 &A       SETA  1                                                        T0184000
                                     93 .P3      ANOP                                                           T0186000
                                     94 &C       SETC  '&CLS'(&A,1)                                             T0188000

                                     95          $QCRNN &C                                                      T0190000
                                     96          AIF   (&QCRNN GE 3).P4                                         T0192000

                                     97          MNOTE *,'INVALID MSGCLASS SPECIFIED - &CLS'                    T0194000
                                     98 .P4      DC    X'40000000',AL1(&QCRNN,0,0,0)                            T0196000
                                     99 &A       SETA  &A+1                                                     T0198000
                                    100          AIF   (&A LE &B).P3                                            T0200000
                                    101          MEND                                                           T0202000
WTR      HASP WRITER FOR OS SYSTEM MESSAGE BLOCKS                                                              PAGE    5


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    103          COPY  $GLOBAL                                                  T0206000

                                    104 *                                                                       GL002000
                                    105 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                    106 *                                                                       GL006000



                                    108          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000

                                    109          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000
                                    110          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                    111          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000

                                    112          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000





                                    114 *                                                                       GL032000
                                    115 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000
                                    116 *                                                                       GL036000




                                    118          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000
                                    119          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                    120          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000
                                    121          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                    122          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000

                                    123          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000
                                    124          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                    125          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000
                                    126          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000

                                    127          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000
                                    128          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000
                                    129          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                    130          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000
                                    131          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000
                                    132          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000

                                    133          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000
                                    134          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                    135          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200
                                    136          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300
                                    137          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000

                                    138          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000
                                    139          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                    140          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000
                                    141          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                    142          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                    143          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000
                                    144          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000
                                    145          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                    146          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000
                                    147          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000
                                    148          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000
WTR      HASP WRITER FOR OS SYSTEM MESSAGE BLOCKS                                                              PAGE    6



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    150 *                                                                       GL116000
                                    151 *                             O/S INTERFACE PARAMETERS                  GL118000

                                    152 *                                                                       GL120000



                                    154          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000
                                    155          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                    156          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000

                                    157          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000
                                    158          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000
                                    159          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000
                                    160          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                    161          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000

                                    162          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000
                                    163          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000
                                    164          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                    165          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200
                                    166          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300

                                    167          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400





                                    169 *                                                                       GL150000
                                    170 *                             HASP OPTION PARAMETERS                    GL152000
                                    171 *                                                                       GL154000




                                    173          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000
                                    174          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000
                                    175          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000

                                    176          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000
                                    177          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000
                                    178          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000
                                    179          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000
                                    180          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000

                                    181          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000
                                    182          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000
                                    183          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100
                                    184          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500
                                    185          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                    186          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                    187          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000

                                    188          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                    189          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000
                                    190          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000

                                    191          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000
                                    192          GBLB  &DEBUG              DEBUG MODE                           GL186000
                                    193          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000
                                    194          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000
WTR      HASP WRITER FOR OS SYSTEM MESSAGE BLOCKS                                                              PAGE    7



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    196 *                                                                       GL226000
                                    197 *                             REMOTE JOB ENTRY PARAMETERS               GL228000
                                    198 *                                                                       GL230000



                                    200          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                    201          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000
                                    202          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000

                                    203          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    204          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000

                                    205          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000
                                    206          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000
                                    207          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000
                                    208          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000






                                    210 *                                                                       GL260000
                                    211 *                             INTERNAL GENERATION PARAMETERS            GL262000
                                    212 *                                                                       GL264000



                                    214          GBLC  &VERSION            HASP VERSION                         GL270000
                                    215          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000
                                    216          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                    217          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000

                                    218          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500

                                    219          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000
                                    220          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500
                                    221          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                    222          GBLA  &LOW                OVERLAY PRIORITY                     GL280000
                                    223          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000

                                    224          GBLA  &HIGH                 PARAMETER VALUES                   GL284000
                                    225          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000
                                    226          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000
                                    227          GBLA  &QCRLGTH            LENGTH OF A QUE CONTROL RECORD       T0208000
                                    228          GBLA  &LTHLGTH            LENGTH OF A LOGICAL TRACK HEADER     T0210000
                                    229          GBLA  &SMBLGTH            LENGTH OF A SYSTEM MESSAGE BLOCK     T0212000
                                    230          GBLA  &MAXLINE            MAXIMUM MESSAGE ALLOWED IN AN SMB    T0214000
WTR      HASP WRITER FOR OS SYSTEM MESSAGE BLOCKS                                                              PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78













000000                              233 HASPWTR  START 0                                                        T0220000











                                    235          COPY  $HASPGEN                                                 T0224000
WTR      HASPGEN PARAMETER VALUES                                                                              PAGE    9


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    237 *                                                                       HA004000
                                    238 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000
                                    239 *                                                                       HA008000



                                    241 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000

                                    242 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000
                                    243 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000
                                    244 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000
                                    245 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000





                                    247 *                                                                       HA028000
                                    248 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000
                                    249 *                                                                       HA032000



                                    251 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000
                                    252 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000
                                    253 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000
                                    254 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000
                                    255 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000
                                    256 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000

                                    257 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000
                                    258 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000
                                    259 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000

                                    260 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000
                                    261 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    262 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000
                                    263 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000
                                    264 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000
                                    265 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000
                                    266 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000
                                    267 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000
                                    268 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                    269 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200
                                    270 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300
                                    271 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000

                                    272 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000

                                    273 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000
                                    274 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000

                                    275 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000
                                    276 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                    277 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000
                                    278 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000
                            0003C   279 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000
WTR      HASPGEN PARAMETER VALUES                                                                              PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    282 *                                                                       HA100000
                                    283 *                             O/S INTERFACE PARAMETERS                  HA102000
                                    284 *                                                                       HA104000




                                    286 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000

                                    287 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000

                                    288 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000
                                    289 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000
                                    290 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000
                                    291 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000
                                    292 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                    293 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                    294 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000
                                    295 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100
                                    296 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200
                                    297 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300
                                    298 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400




                                    300 *                                                                  RFIT HA125600
                                    301 *                             HASP SVC NUMBER                      RFIT HA125700
                                    302 *                                                                  RFIT HA125800

                                    303          COPY  $INITSVC                                            RFIT HA125900
                                    304 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT





                                    306 *                                                                       HA130000
                                    307 *                             HASP OPTION PARAMETERS                    HA132000
                                    308 *                                                                       HA134000



                                    310 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000
                                    311 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000
                                    312 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000
                                    313 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000

                                    314 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                    315 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000
                                    316 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    317 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000

                                    318 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000
                                    319 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000
                                    320 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100
                                    321 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500
                                    322 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
WTR      HASPGEN PARAMETER VALUES                                                                              PAGE   11



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    323 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500
                                    324 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                    325 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000
                                    326 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                    327 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000
                                    328 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                    329 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000

                                    330 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000
                                    331 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000

WTR      HASPGEN PARAMETER VALUES                                                                              PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    334 *                                                                       HA174000
                                    335 *                             REMOTE JOB ENTRY PARAMETERS               HA176000
                                    336 *                                                                       HA178000




                                    338 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000
                                    339 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000
                                    340 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000
                                    341 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000
                                    342 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000

                                    343 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000
                                    344 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000
                                    345 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000

                                    346 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000





                                    348 *                                                                       HA202000
                                    349 *                             INTERNAL GENERATION PARAMETERS            HA204000
                                    350 *                                                                       HA206000




                                    352 &VERSION SETC  '4.0'               HASP VERSION                         HA210000
                                    353 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000
                                    354 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000
                                    355 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                    356 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000

                                    357 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500
                                    358 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000
                                    359 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500

                                    360 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                    361 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000
                                    362 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000
                                    363 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000
                                    364 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000
                                    365 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
WTR      HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   13



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    368 *                                                                       HA234000
                                    369 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000

                                    370 *                                                                       HA238000



                            00000   372 R0       EQU   0                                                        HA242000
                            00001   373 R1       EQU   1                                                        HA244000

                            00002   374 R2       EQU   2                                                        HA246000
                            00003   375 R3       EQU   3                                                        HA248000
                            00004   376 R4       EQU   4                                                        HA250000
                            00005   377 R5       EQU   5                                                        HA252000
                            00006   378 R6       EQU   6                                                        HA254000
                            00007   379 R7       EQU   7                                                        HA256000

                            00008   380 R8       EQU   8                                                        HA258000
                            00009   381 R9       EQU   9                                                        HA260000
                            0000A   382 R10      EQU   10                                                       HA262000
                            0000B   383 R11      EQU   11                                                       HA264000
                            0000C   384 R12      EQU   12                                                       HA266000

                            0000D   385 R13      EQU   13                                                       HA268000
                            0000E   386 R14      EQU   14                                                       HA270000
                            0000F   387 R15      EQU   15                                                       HA272000






                                    389 *                                                                       HA276000
                                    390 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000
                                    391 *                                                                       HA280000



                            00002   393 WA       EQU   R2                  WORK REGISTER A                      HA284000

                            00003   394 WB       EQU   R3                  WORK REGISTER B                      HA286000
                            00004   395 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   396 WD       EQU   R5                  WORK REGISTER D                      HA290000
                            00006   397 WE       EQU   R6                  WORK REGISTER E                      HA292000
                            00007   398 WF       EQU   R7                  WORK REGISTER F                      HA294000

                            00008   399 WG       EQU   R8                  WORK REGISTER G                      HA296000
                            00008   400 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000
                            0000A   401 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000
                            0000B   402 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000
                            0000C   403 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000
                            0000D   404 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000

                            0000E   405 LINK     EQU   R14                 LINK REGISTER                        HA308000
WTR      HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   14


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












                            00000   408 NOP      EQU   0                   NO-OP                                HA314000
                            00001   409 O        EQU   1                   ONES OR OVERFLOW                     HA316000

                            00002   410 H        EQU   2                   HIGH                                 HA318000
                            00002   411 P        EQU   2                   PLUS                                 HA320000
                            00004   412 L        EQU   4                   LOW                                  HA322000
                            00004   413 M        EQU   4                   MINUS OR MIXED                       HA324000
                            00007   414 NE       EQU   7                   NOT EQUAL                            HA326000
                            00007   415 NZ       EQU   7                   NOT ZERO                             HA328000
                            00008   416 E        EQU   8                   EQUAL                                HA330000

                            00008   417 Z        EQU   8                   ZERO                                 HA332000
                            0000B   418 NL       EQU   11                  NOT LOW                              HA334000
                            0000B   419 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000

                            0000D   420 NH       EQU   13                  NOT HIGH                             HA338000
                            0000D   421 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   422 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
WTR      HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    424 *                                                                       HA346000
                                    425 *                             BIT DEFINITIONS                           HA348000
                                    426 *                                                                       HA350000



                            00080   428 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000
                            00040   429 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000
                            00020   430 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000
                            00010   431 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000

                            00008   432 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000
                            00004   433 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000

                            00002   434 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000
                            00002   435 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001   436 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000
                                    437 *                                                                       HA370000
                            00080   438 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000

                            00040   439 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020   440 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   441 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000
                            00008   442 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000
                            00004   443 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000
                            00002   444 $EWF15   EQU   X'02'               SPARE                                HA384000
                            00001   445 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000






                                    447 *                                                                       HA390000

                                    448 *                             BYTE DEFINITIONS                          HA392000
                                    449 *                                                                       HA394000



                            00000   451 $EWBPOST EQU   0                   BYTE 0                               HA398000
                            00000   452 $EWBBUF  EQU   0                   BYTE 0                               HA400000

                            00000   453 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   454 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000   455 $EWBUNIT EQU   0                   BYTE 0                               HA406000
                            00000   456 $EWBCKPT EQU   0                   BYTE 0                               HA408000
                            00000   457 $EWBCMB  EQU   0                   BYTE 0                               HA410000
                            00000   458 $EWBSMF  EQU   0                   BYTE 0                               HA411000
                            00000   459 $EWBJOT  EQU   0                   BYTE 0                               HA412000
                                    460 *                                                                       HA414000
                            00001   461 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001   462 $EWBIO   EQU   1                   BYTE 1                               HA418000

                            00001   463 $EWBWORK EQU   1                   BYTE 1                               HA420000

                            00001   464 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001   465 $EWBDDB  EQU   1                   BYTE 1                               HA424000
                            00001   466 $EWBOLAY EQU   1                   BYTE 1                               HA426000
                            00001   467 $EWB15   EQU   1                   BYTE 1                               HA428000

                            00001   468 $EWBOROL EQU   1                   BYTE 1                               HA430000
WTR      HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   16


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    471 *                                                                       HA436000
                                    472 *                             LOGICAL CONSOLE DEFINITIONS               HA438000
                                    473 *                                                                       HA440000



                            00001   475 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002   476 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000

                            00004   477 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000
                            00008   478 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000
                            00010   479 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000
                            00020   480 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000

                            00040   481 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   482 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   483 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000
                            00000   484 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000





                                    486 *                                                                       HA466000
                                    487 *                             MESSAGE CLASS DEFINITIONS                 HA468000
                                    488 *                                                                       HA470000



                            00010   490 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000
                            00030   491 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000

                            00050   492 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000
                            00070   493 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000
                            00080   494 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000





                                    496 *                                                                       HA484000
                                    497 *                             MESSAGE PRIORITY DEFINITIONS              HA486000
                                    498 *                                                                       HA488000



                            00001   500 $LO      EQU   1                   LOW PRIORITY                         HA492000
                            00004   501 $ST      EQU   4                   STANDARD PRIORITY                    HA494000
                            00007   502 $HI      EQU   7                   HIGH PRIORITY                        HA496000
WTR      HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   17


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78








                                    505 *                                                                       HA502000
                                    506 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000

                                    507 *                                                                       HA506000



                            00080   509 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000
                            00000   510 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000
                            00040   511 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000
                            00000   512 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000
                            00020   513 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000
                            00000   514 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000
                            00010   515 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000
                            00000   516 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000
                            00008   517 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000
                            00000   518 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000

                            00004   519 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000   520 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000







                                    522 *                                                                       HA536000
                                    523 *                             HASP STATUS BIT DEFINITIONS               HA538000
                                    524 *                                                                       HA540000



                            00080   526 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040   527 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000
                            00020   528 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000
                            00010   529 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000
                            00008   530 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000
                            00004   531 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000
                            00002   532 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000

WTR      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    535 *                                                                       HA560000
                                    536 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000
                                    537 *                                                                       HA564000



                                    539 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                    540 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000
                                    541 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000
                                    542 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000
                                    543 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000
                                    544 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000
                                    545 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000

                                    546 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                    547 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000






                                    549 *                                                                       HA588000
                                    550 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000
                                    551 *                                                                       HA592000



                                    553 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                    554 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000

                                    555 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000
                                    556 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                    557 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                    558 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000
                                    559 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                    560 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000
                                    561 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
WTR      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   19



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    564 *                                                                       HA618000
                                    565 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000
                                    566 *                                                                       HA622000



                                    568 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000
                                    569 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000
                                    570 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000

                                    571 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000
                                    572 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000
                                    573 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000
                                    574 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000
                                    575 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000

                                    576 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000






                                    578 *                                                                       HA646000
                                    579 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000
                                    580 *                                                                       HA650000



                                    582 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000
                                    583 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                    584 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000

                                    585 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000
                                    586 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000
                                    587 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000
                                    588 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                    589 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000

                                    590 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000
WTR      HASP WRITER INTERNAL GENERATION PARAMETERS                                                            PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    592 &QCRLGTH SETA  36                  LENGTH OF A QUE CONTROL RECORD       T0228000
                                    593 &LTHLGTH SETA  20                  LENGTH OF A LOGICAL TRACK HEADER     T0230000
                                    594 &SMBLGTH SETA  176                 LENGTH OF A SYSTEM MESSAGE BLOCK     T0232000
                                    595 &MAXLINE SETA  132                 MAX MESSAGE ALLOWED IN AN SMB        T0234000











                                    597          $HASPCB CVT,DOC=NO                                             T0238000
WTR      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00010   599+$CVTPTR  EQU   16                  ADDRESS OF CVT POINTER               CT008000

000000                              600+CVTDSECT DSECT                     COMMUNICATION VECTOR TABLE DSECT     CT012000


                                    602+*                                                                       00510000
                                    603+*              OS/360                                                   00560000

                                    604+*        COMMUNICATION VECTOR TABLE                                     00800000
                                    605+*                                                                       00810000
                                    606+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5                    01050021
                                    607+*                                                                       01200000
                            00010   608+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT         01400000
                                    609+*                                                                       01600000

                                    610+*              BEGINNING OF CVT PROPER                                  01601000
                                    611+*                                                                       01610000
000000                              612+         DS    0F                                                       01611000
                            00000   613+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE                 01840000
                                    614+*                                                                       02000000

000000 00000000                     615+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST  02200000
000004 00000000                     616+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE                02610000
                                    617+*                              ASYNCHRONOUS EXITS                       02620000
000008 00000000                     618+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB                   02800000
00000C 00000000                     619+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB                     03000000

000010 00000000                     620+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT                03200000
                                    621+*                              CONSOLE INTERRUPTION ROUTINE             03400000
000014 00000000                     622+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE         03600000
000018 00000000                     623+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING 03800000
                                    624+*                              ROUTINE FOR SUPERVISOR                   04000000

00001C 00000000                     625+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04200000
                                    626+*                              RELATIVE TRACK ADDR TO ABSOLUTE          04400000
000020 00000000                     627+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04600000
                                    628+*                              ABSOLUTE TRACK ADDR TO RELATIVE          04800000
000024 00000000                     629+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION   05000000

                                    630+*                              IN UCB LOOKUP TABLE                      05200000
000028 00000000                     631+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION     05400000
                                    632+*                              IN UCB LOOKUP TABLE                      05600000
00002C 00000000                     633+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE           05800000
                                    634+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES 06000000
000030 00000000                     635+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY      06200000

                                    636+*                              IN UCB LOOKUP TABLE                      06400000
000034 00000000                     637+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE         06600000
000038 00000000                     638+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL             06800000
00003C 00000000                     639+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)       07210000

                                    640+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS    07220000
                                    641+*                              MASTER SCHEDULER RESIDENT DATA AREA      07221000
000040 00000000                     642+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE    07400000
000044 00000000                     643+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE          07600000
000048 00000000                     644+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS       08000000

                                    645+*                              FOR DAMAGE ASSESSMENT ROUTINES           08200000
00004C 00000000                     646+CVT0FN00 DC    A(0) -        RESERVED (MVT)                             08610000
000050 0A03                         647+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER                         08800000
000052 07FE                         648+CVTBRET  BR    14 -          RETURN TO CALLER                           09000000
000054 00000000                     649+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB                    09200000
000058 00000000                     650+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER     09411000
                                    651+*                              ROUTINE (SHPC FIRST)                     09412000

00005C 00000000                     652+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL              09430000
WTR      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000060 00000000                     653+CVTSJQ   DC    A(0) -        RESERVED (MVT)                             09810000
000064 00000000                     654+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR  10000000
000068 00000000                     655+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE              10410000
                                    656+*                              FOR INTERVAL TIMER                       10411000
00006C 00000000                     657+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE              10420000

                                    658+*                              FOR INTERVAL TIMER                       10421000
000070 00000000                     659+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE         10600000
000074 10                           660+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM                           11600000
                            00040   661+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11600100
                            00020   662+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11600200
                            00010   663+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11600300
                            00004   664+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11600400
000075 000000                       665+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11601000

000078 00000000                     666+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE            11820000
00007C 00000000                     667+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER    12400000

000080 00000000                     668+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS               12600000
000084 00000000                     669+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE              12800000
000088 00000000                     670+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER             13000000
00008C 00000000                     671+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE         13200000
000090 00000000                     672+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE            13400000

000094 00000000                     673+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT          13810000
                                    674+*                              DATA AREA (MVT/MFT)                      13820000
000098 00000000                     675+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE    14000000
00009C 00000000                     676+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE                14200000
0000A0 00000000                     677+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE           14400000
0000A4 00000000                     678+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS                    14600000
0000A8 00000000                     679+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)      14601000
0000AC 00000000                     680+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD         16638521
                                    681+*                              (0 IF GFX INACTIVE) MVT                  16640821

0000B0 00000000                     682+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA       16647721

                                    683+*                              (MVT/MFT)                                16650000
0000B4 0000                         684+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    16660000
0000B6 00                           685+CVTOPTA  DC    AL1(00)    -     MISCELLANEOUS FLAGS                     16670021
                            00080   686+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)               16680000
                            00040   687+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --                    16681000

                                    688+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16681100
                            00020   689+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --          16683000
                                    690+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16683200
                            00010   691+CVTNIP   EQU   X'10' -       NIP RUNNING                                16690000
                            00008   692+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)                     16691000
                            00004   693+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16692000
                            00002   694+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16693000
                            00001   695+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16695000
0000B7 00                           696+CVTOPTB  DC    AL1(00)     - MISCELLANEOUS FLAGS                        16700021
                            00080   697+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)            16702000

                            00020   698+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)        16704000

                                    699+*                                                                       16800000
                                    700+*              PCP OVERLAY                                              17000000
                                    701+*                                                                       17200000
0000B8                              702+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART            17400000

0000BB                              703+CVTSTUSA DS    B -           STATUS BYTE A                              17600000
                            00008   704+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART     17800000
                                    705+*                              WAS INITIATED INTRASTEP                  18000000
                            00004   706+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART           18200000
                                    707+*                              WAS INITIATED INTERSTEP                  18400000
WTR      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   23


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00002   708+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM          18600000
                                    709+*                              AND DATA HAS NOT BEEN READ               18800000
0000BC                              710+         DS    CL2 -         RESERVED                                   19000000
0000BE                              711+         DS    CL2 -         RESERVED                                   19200000

                                    712+*                                                                       19400000
                                    713+*              MVT/MFT OVERLAY                                          19600000
                                    714+*                                                                       19800000
0000C0                      000B8   715+         ORG   CVTCRTTR                                                 20000000

                                    716+*                                                                       20200000
0000B8 00000000                     717+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR           20400000
0000BC 00000000                     718+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21000000
                                    719+*                                                                       21670000
                                    720+*              END OF OVERLAYS                                          21800000
                                    721+*                                                                       22000000
0000C0 00000000                     722+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)                       22421000
0000C4 00000000                     723+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA            22600000
0000C8 00000000                     724+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT     22610000
                                    725+*                              (MVT/MPS)                                22610100
0000CC 00000000                     726+CVTUSER  DC    A(0) -        A WORD TO THE USER                         22620000
0000D0                      000CC   727+         ORG   CVTUSER -     REMAP CVTUSER AS CVTHJES              RFIT 22620100

0000CC                              728+CVTHJES  DS    0A -          SAME AS CVTHJESA BELOW                RFIT 22620300
0000CC 00                           729+         DC    XL1'00' -     RESERVED - FIRST BYTE OF CVTHJES      RFIT 22620500
0000CD 000000                       730+CVTHJESA DC    AL3(0) -      ADDRESS OF HASP COMMUNICATION TABLE   RFIT 22620700

0000D0                      000D0   731+         ORG   , -           RESTORE LOCATION COUNTER              RFIT 22620900
                                    732+*                                                                       23000000
                                    733+*              MFT/MVT CVT EXTENSION                                    24000000
                                    734+*                                                                       24200000
0000D0 00000000                     735+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT       24400021
0000D4 0A0D                         736+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)                 24600000
0000D6 0A06                         737+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)   25000000
0000D8 00000000                     738+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25421000
0000DC 00000000                     739+CVTPATCH DC    V(IEAPATCH) - ADDR OF FE PATCH AREA                      25540000
0000E0 00000000                     740+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA  25800000
                                    741+*                              (MVT/MFT)                                25810000
0000E4                              742+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)             26000000

0000E4 00                           743+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)                   26050000

                            00080   744+CVTTSRDY EQU   X'80' -       TIME SHARING READY                         26100000
0000E5 000000                       745+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)             26150000

0000E8 00000000                     746+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     27393221
0000EC                              747+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)   27394021
0000EC 00                           748+CVTGTFST DC    B'0' -        STATUS FLAGS                               27396021
                            000C0   749+CVTGTFS  EQU   X'C0' -       STATE                                      27398021
                                    750+*/       00    CVTGTFIN      INACTIVE                                   27398421
                                    751+*/       01    CVTGTFSR      STARTING                                   27398821
                                    752+*/       10    CVTGTFSP      STOPPING                                   27399221
                                    753+*/       11    CVTGTFAC      ACTIVE                                     27399621
                            00020   754+CVTSTATE EQU   X'20' -       IN CONTROL                                 27399721
                            00010   755+CVTMODE  EQU   X'10' -       EXT MODE                                   27399821
                            00008   756+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA                27399921
                            00004   757+CVTUSR   EQU   X'04' -       USR TRACE                                  27449921

                            00002   758+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID                       27459921
0000ED 000000                       759+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE                27469921

0000F0                              760+CVTTCMFG DS    0B -          TCAM FLAGS                                 27499921

                            00080   761+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)                         27600000
0000F0 00000000                     762+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF             27610000
WTR      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    763+*                            TCAM ADDRESS VECTOR TABLE                  27620021
                                    764+*                                                                       29401221
                                    765+*              MVT CVT EXTENSION                                        29401321
                                    766+*                                                                       29401421
0000F4                              767+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE 29401521
                                    768+*                            (PWF)                               S21167 29401621
0000F4 80                           769+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY   29404021
                                    770+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167 29404221

                            00080   771+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167 29404421
0000F5 000000                       772+CVTVOLT2 DC    AL3(0)     -  PWF RECHECK TIME DELAY.  THIS VALUE IS     29404621
                                    773+*                            OVERLAID BY CVTVOLM2 AFTER PWF             29404821

                                    774+*                            INITIALIZATION                      S21167 29405021
0000F8 00000000                     775+         DC    A(0) -        RESERVED                                   29405221
                                    776+*                                                                       29407021
                                    777+*              MVT/MFT CVT EXTENSION                                    29408021
                                    778+*                                                                       29408821
0000FC 00000114                     779+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1              29410821
                                    780+*                            (ICB421)                APAR'S 47331,47332 29413221
000100                              781+         DS    F -           RESERVED                                   29414221
000104                              782+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE         29415221
000104                              783+         DS    X -           RESERVED                                   29416421
000105 000000                       784+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE         29417421
000108                              785+         DS    F -           RESERVED                                   29418421

00010C                              786+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307 29419421
00010C                              787+         DS    X -           RESERVED                            ICB307 29420421
00010D 000000                       788+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND              29421421

                                    789+*                            COMMUNICATION AREA                  ICB307 29422421
000110                              790+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308 29423421
000110                              791+         DS    X -           RESERVED                            ICB308 29424421
000111 000000                       792+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY      29425421
                                    793+*                            ROUTINE                             ICB308 29426421
                                    794+*                                                                       29427421
                                    795+*              COMMON EXTENSION 1                                       29435721
                                    796+*              ADDRESS OF EXTENSION IS IN CVTEXT1                       29445721
                                    797+*                                                                       29455721
                                    798+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,               29456121
                                    799+*              YOU SHOULD CODE -                                        29462521
                                    800+*                                                                       29464521

                                    801+*              L     REG,CVTEXT1                                        29466521
                                    802+*              USING CVTXTNT1,REG                                       29468521
                                    803+*                                                                       29468621
                                    804+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.               29468721

                                    805+*                                                                       29468821
                            00114   806+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1                29475221
                                    807+*                            (ICB421)                APAR'S 47331,47332 29475721
000114 00000000                     808+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS        29477221
                                    809+*                            (ISAM) (ICB421)         APAR'S 47331,47332 29479221
                                    810+*                                                                       29494421

                                    811+*              END OF CVT PROPER                                        29513521
                                    812+*                                                                       29532621
                                    813+*                                                                       29870000
                                    814+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT           29880000
                                    815+*                                                                       29890000
000000                              816+HASPWTR  CSECT                     END OF CVT DSECT                     CT020000
WTR      OS QUE MANAGER RESIDENT CORE AREA DSECT                                                               PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78








                                    819 *                             QUE MANAGER RESIDENT CORE AREA            T0244000
                                    820 *                                                                       T0246000
000000                              821 QMRDSECT DSECT                                                          T0248000
000000                              822 QMRDCB   DS    0C                  DCB FOR OS QUE                       T0250000
000000                              823          DS    13F                                                      T0252000
000034                              824 QMRDEB   DS    0C                  DEB FOR OS QUE                       T0254000
000034                              825          DS    12F                                                      T0256000



                                    827 *                             MASTER QUE CONTROL RECORD,                T0260000
                                    828 *                              ALSO CALLED 'MASTER HANDLE'              T0262000
                                    829 *                                                                       T0264000
000064                              830 QMHDA    DS    CL8                 MBBCCHHR OF MASTER QCR               T0266000
00006C                              831          DS    C                   SECTOR OF MASTER QCR                 T0268000

00006D                              832 QMFLTM   DS    CL2                 NN OF 1ST LTH IN FREE QUE            T0270000
00006F                              833          DS    C                                                        T0272000
000070                              834          DS    H                                                        T0274000

000072                              835 QMNOTM   DS    H                   NUM OF LTHS IN FREE QUE              T0276000
000074                              836          DS    F                                                        T0278000
000078                              837 QMTIDM   DS    H                   NN OF LAST LTH IN FREE QUE           T0280000
00007A                              838 QMKTT    DS    H                   TT OF TRK AFTER MIXED TRK            T0282000
00007C                              839 QMHPT    DS    H                   QCRS PER TRK                         T0284000
00007E                              840 QMRPT    DS    H                   RECS PER TRK                         T0286000
000080                              841          DS    F                                                        T0288000

000084                              842 QMNHM    DS    H                   NUM OF QCRS ON MIXED TRK             T0290000
000086                              843 QMFQR    DS    H                   NN OF 1ST REC AFTER MIXED TRK        T0292000
000088                              844 QMECBA   DS    F                   ECB FOR NO SYSJOBQE SPACE            T0294000
00008C                              845          DS    4H                                                       T0294500
000094                              846 QMRPS    DS    F                   RPS INDICATOR AND DEVICE TYPE        T0295000






000000                              848 HASPWTR  CSECT                                                          T0298000
WTR      HASP WRITER - REGISTER USAGE                                                                          PAGE   26



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78











                                    851 *                                  REGS R0,R1,R2,R14,R15 ARE USED FOR   T0304000

                                    852 *                                   VOLATILE WORK, SUBROUTINE PARAMS,   T0306000
                                    853 *                                   EXTERNAL (HASP, OS) LINKING         T0308000
                                    854 *                                  REG R13 IS USED FOR SAVE AREA ADDR   T0310000
                                    855 *                                  REGS R9-R12 ARE NOT USED FOR ANY     T0312000
                                    856 *                                   GLOBAL PURPOSE BECAUSE THE OS TTR   T0314000

                                    857 *                                   CONVERSION ROUTINE CLOBBERS R9-R13  T0316000
                                    858 *                                  R8 HOLDS ADDR OF Q MGR RESIDENT AREA T0318000
                                    859 *                                  R7 HOLDS CVT ADDRESS                 T0320000
                                    860 *                                  R4,R5,R6 ARE USED FOR LINKING TO     T0322000
                                    861 *                                   SUBROUTINES IN THIS PROGRAM         T0324000

                                    862 *                                  R3 IS USED FOR A NON-VOLATILE WORK   T0326000
                                    863 *                                   REGISTER DURING PROCESSING          T0328000
WTR      HASP WRITER - INITIALIZATION                                                                          PAGE   27


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              865 SAVEAREA DS    2F                                                       T0332000

                                    866 LINE     DS    CL&MAXLINE          LINE BUFFER FOR PRINTING             T0334000
000008                              867+LINE     DS    CL132               LINE BUFFER FOR PRINTING             T0334000
00008C                      00000   868          ORG   SAVEAREA                                                 T0336000
                            00000   869          USING *,R15                                                    T0338000
000000                              870 NITIALIZ DS    0H                                                       T0340000

000000 50E0 D00C      0000C         871          ST    R14,12(,R13)        SAVE CALLER'S RETURN REGISTER        T0342000
000004 50D0 F004      00004         872          ST    R13,SAVEAREA+4      BACK CHAIN SAVE AREAS                T0344000
000008 18CD                         873          LR    R12,R13                                                  T0346000
00000A 18DF                         874          LR    R13,R15             ESTABLISH OWN ADDRESSABILITY         T0348000
                                    875          DROP  R15                                                      T0350000
                            00000   876          USING SAVEAREA,R13                                             T0352000

00000C 50D0 D48C      0048C         877          ST    R13,SAVER13         SAVE A COPY OF THE BASE REGISTER     T0354000
000010 50D0 C008      00008         878          ST    R13,8(,R12)         FORWARD CHAIN SAVE AREAS             T0356000
000014 5000 D50C      0050C         879          ST    R0,PRDEBUCB         PUT &WTR UCB ADDR IN PR DEB          T0358000
000018 5010 D490      00490         880          ST    R1,XWTRENDA         SAVE ADDR HASP RTN TO END JOB        T0360000

00001C 5020 D494      00494         881          ST    R2,PWTRECBA         SAVE ADDR ECB SIGNALING $PHASP       T0362000
                                    882          POST  (R3)                POST HASP THAT HASPWTR IS IN         T0364000
000020 1B00                         883+         SR    0,0                    . SET POST CODE REG ZERO          00640021
000022 4110 3000      00000         884+         LA    1,0(0,R3)              . LOAD ECB REG 1, CLEAR HI BYTE   02250021
000026 0A02                         885+         SVC   2                      . ISSUE THE POST SVC              08250021

000028 5870 0010      00010         886          L     R7,$CVTPTR          R7 = ADDRESS OF CVT                  T0366000
                            00000   887          USING CVTDSECT,R7                                              T0368000
00002C 5810 7000      00000         888          L     R1,CVTTCBP          R1 = ADDRESS OF TCB POINTERS         T0370000
000030 D203 D4EC 1004 004EC 00004   889          MVC   PRDEBTCB,4(R1)      MOVE OUR TCB ADDRESS TO PR DEB       T0372000
000036 5880 700C      0000C         890          L     R8,CVTJOB           R8 = ADDR OF Q MGR RES AREA          T0374000
                            00000   891          USING QMRDSECT,R8                                              T0376000
00003A 47F0 D08C      0008C         892          B     REMOVJOB            GO TO TEST SYSOUT QUES               T0378000

00003E                      0008C   893          ORG                                                            T0380000
WTR      HASP WRITER - JOB DE-QUEING ROUTINES                                                                  PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


00008C                              895 REMOVJOB DS    0H                                                       T0384000
00008C 4130 D494      00494         896          LA    R3,PWTRECBA         R3 = ADDR OF ECB ADDR LIST           T0386000
000090 5810 3000      00000         897 REMLOOK  L     R1,0(,R3)           R1 = ADDR OF A CLASS/NO-WORK ELEMENT T0388000
000094 9140 1000      00000         898          TM    0(R1),X'40'         HAS ECB FOR THIS CLASS BEEN POSTED   T0390000
000098 4780 D0C4      000C4         899          BZ    REMNEXT             BRANCH IF NOT                        T0392000

00009C 5930 D638      00638         900          C     R3,=A(PWTRECBA)     IS THIS THE $PHASP ECB               T0394000
0000A0 4780 D31C      0031C         901          BE    TERMIN8             BRANCH IF YES TO TERMINATE           T0396000
0000A4 1B22                         902          SR    R2,R2                                                    T0398000
0000A6 4320 1004      00004         903          IC    R2,4(,R1)           R2 = NN OF QCR FOR THIS CLASS        T0400000
0000AA 4540 D334      00334         904          BAL   R4,READQCR          READ QUE CONTROL RECORD FOR CLASS    T0402000
0000AE 4770 D0F2      000F2         905          BNE   REM6                GO ABORT QUE IF I/O ERR              T0404000
0000B2 4810 D588      00588         906          LH    R1,REC              LOOK AT                              T0406000
0000B6 1211                         907          LTR   R1,R1                TOP OF QUE                          T0408000

0000B8 4770 D0E0      000E0         908          BNZ   REM1                BRANCH IF QUE CONTAINS A JOB         T0410000
0000BC 5810 3000      00000         909          L     R1,0(,R3)           R1 = ADDRESS OF NO-WORK ELEMENT      T0412000

0000C0 4540 D34E      0034E         910          BAL   R4,WAITQCR          RE-WRITE QCR WITH OUR ECB ON CHAIN   T0414000
0000C4 9180 3000      00000         911 REMNEXT  TM    0(R3),X'80'         ARE THERE MORE CLASS ELEMENTS        T0416000
0000C8 4130 3004      00004         912          LA    R3,4(,R3)           INCR TO ADDRESS OF NEXT ELEMENT      T0418000
0000CC 4780 D090      00090         913          BZ    REMLOOK             BRANCH IF YES                        T0420000
                                    914          WAIT  1,ECBLIST=PWTRECBA  WAIT FOR SYSOUT JOB OR $PHASP        T0422000

0000D0 4110 D494      00494         915+         LA    1,PWTRECBA                        LOAD PARAMETER REG 1   00100000
0000D4 4100 0001      00001         916+         LA    0,1(0,0)                          LOAD PARAMETER REG 0   00280000
0000D8 1311                         917+         LCR   1,1                               INDICATE ECBLIST USED  00260000
0000DA 0A01                         918+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
0000DC 47F0 D08C      0008C         919          B     REMOVJOB            GO TO TEST SYSOUT QUES               T0424000
0000E0 4010 D584      00584         920 REM1     STH   R1,LTH+20           SAVE NN OF LAST LTH IN JOB           T0426000
0000E4 4550 D398      00398         921          BAL   R5,LTHIO            READ LAST LTH OF JOB                 T0428000
0000E8 4780 D0FE      000FE         922          BE    REM7                BRANCH IF READ OK                    T0430000
                                    923          DEQ   MF=(E,QCRQ)         RELEASE QCR RESOURCE                 T0432000

0000EC 4110 D4B0      004B0         924+         LA    1,QCRQ                            LOAD PARAMETER REG 1   00100000

0000F0 0A30                         925+         SVC   48                                                  SDS1 72000016
0000F2 5810 3000      00000         926 REM6     L     R1,0(,R3)           R1 = ADDR OF NO-WORK ECB             T0434000
0000F6 9200 1000      00000         927          MVI   0(R1),0             ABORT QUE ON QCR OR LTH I/O ERR      T0436000
0000FA 47F0 D0C4      000C4         928          B     REMNEXT             GO TRY MORE CLASSES                  T0438000
0000FE 4800 D582      00582         929 REM7     LH    R0,LTH+18           GET NN OF NEXT LOWER JOB             T0440000

000102 4000 D588      00588         930          STH   R0,REC              POINT TOP OF QUE TO THAT JOB         T0442000
000106 1200                         931          LTR   R0,R0               IS THERE A NEXT LOWER JOB            T0444000
000108 4770 D11E      0011E         932          BNZ   REM2                BRANCH IF YES                        T0446000
                                    933          MVC   REC+2(&QCRLGTH-5),REC+1 IF NOT, CLEAR QCR                T0448000
00010C D21E D58A D589 0058A 00589   934+         MVC   REC+2(36-5),REC+1       IF NOT, CLEAR QCR                T0448000
000112 5810 3000      00000         935          L     R1,0(,R3)           R1 = ADDRESS OF NO-WORK ELEMENT      T0450000
000116 4540 D34E      0034E         936          BAL   R4,WAITQCR          RE-WRITE QCR WITH OUR ECB ON CHAIN   T0452000
00011A 47F0 D15A      0015A         937          B     REM5                GO TO SAVE RE-QUE STATUS             T0454000
00011E 4310 D5A8      005A8         938 REM2     IC    R1,REC+32           GET THE CURRENT HI PRIO IN QCR       T0456000
000122 5410 D63C      0063C         939          N     R1,=A(X'F')         COMPARE NN OF THIS JOB'S LAST LTH    T0458000

000126 8910 0001      00001         940          SLL   R1,1                 WITH BOTTOM POINTER IN QCR FOR THIS T0460000

00012A 1311                         941          LCR   R1,R1                PRIO TO DETERMINE IF THIS JOB IS    T0462000
00012C 4800 D584      00584         942          LH    R0,LTH+20            LOWEST ONE QUED AT THIS PRIORITY    T0464000
000130 4901 D5A6      005A6         943          CH    R0,REC+30(R1)                                            T0466000
000134 4770 D156      00156         944          BNE   REM4                BRANCH IF NO                         T0468000

000138 1B00                         945          SR    R0,R0               IF YES, ZERO BOTTOM POINTER          T0470000
00013A 4001 D5A6      005A6         946          STH   R0,REC+30(R1)        FOR THIS JOB'S PRIORITY             T0472000
00013E 4110 1002      00002         947 REM3     LA    R1,2(,R1)           SEARCH UNTIL NEXT LOWER NON-ZERO     T0474000
000142 4801 D5A6      005A6         948          LH    R0,REC+30(R1)        BOTTOM POINTER IS FOUND             T0476000
000146 1200                         949          LTR   R0,R0                                                    T0478000
WTR      HASP WRITER - JOB DE-QUEING ROUTINES                                                                  PAGE   29


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000148 4780 D13E      0013E         950          BZ    REM3                                                     T0480000
00014C 1311                         951          LCR   R1,R1                                                    T0482000
00014E 8810 0001      00001         952          SRL   R1,1                STORE CORRESPONDING PRIORITY IN      T0484000
000152 4210 D5A8      005A8         953          STC   R1,REC+32            HI PRIO FIELD OF QCR                T0486000

000156 4540 D35E      0035E         954 REM4     BAL   R4,UPDTQCR          RE-WRITE UPDATED SYSOUT QCR          T0488000
00015A D200 D373 3000 00373 00000   955 REM5     MVC   SAVQCRNN+1(1),0(R3) SAVE POSSIBLE RE-QUE QCR NN          T0490000
WTR      HASP WRITER - SYSTEM MESSAGE PRINTING                                                                 PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000160                              957 SMBRTN   DS    0H                                                       T0494000
000160 5810 D578      00578         958          L     R1,LTH+8            NN OF 1ST SMB IS                     T0496000
000164 4110 1100      00100         959          LA    R1,X'100'(,R1)       NN OF 1ST LTH + 1                   T0498000
000168 8810 0008      00008         960          SRL   R1,8                                                     T0500000
00016C 4560 D42A      0042A         961          BAL   R6,CNVNNLTA         CONVERT NN TO TTR0                   T0502000
000170 920E D568      00568         962          MVI   JQCCW3,X'E'         SET CCW OP CODE TO READ              T0504000
000174 47F0 D182      00182         963          B     SMB1                                                     T0506000
000178 5800 D58C      0058C         964 SMB0     L     R0,REC+4            R0 = TTR0 OF NEXT SMB                T0508000
00017C 1200                         965          LTR   R0,R0               IS THERE A NEXT SMB                  T0510000
00017E 4780 D210      00210         966          BZ    REQUEUE             BR IF NO TO END JOB                  T0512000
000182 4550 D390      00390         967 SMB1     BAL   R5,SMBIO            READ SYSTEM MESSAGE BLOCK            T0514000
000186 4770 D210      00210         968          BNE   REQUEUE             ABORT JOB IF I/O ERROR               T0516000

00018A 1B22                         969          SR    R2,R2               ZERO R2 FOR LATER INSERT CHAR        T0518000
00018C 4130 D596      00596         970          LA    R3,REC+14           R3 = ADDR OF FIRST MESSAGE           T0520000
000190 9500 3000      00000         971 SMB2     CLI   0(R3),0             IS REST OF SMB EMPTY                 T0522000

000194 4780 D178      00178         972          BE    SMB0                BR IF YES TO READ NEXT SMB           T0524000
000198 1B00                         973          SR    R0,R0               ZERO R0 FOR LATER INSERT CHAR        T0526000
00019A 4110 D008      00008         974          LA    R1,LINE             R1 = ADDR OF BEGINNING OF PRINT LINE T0528000
00019E 9240 1000      00000         975          MVI   0(R1),C' '          BLANK                                T0530000
                                    976          MVC   1(&MAXLINE-1,R1),0(R1)   ENTIRE PRINT LINE               T0532000
0001A2 D282 1001 1000 00001 00000   977+         MVC   1(132-1,R1),0(R1)        ENTIRE PRINT LINE               T0532000
0001A8 95FE 3000      00000         978          CLI   0(R3),X'FE'         TEST MESSAGE CODE                    T0534000
0001AC 4720 D178      00178         979          BH    SMB0                BR TO IGNORE NON - SMB               T0536000
0001B0 4740 D1BE      001BE         980          BL    SMB3                BR IF ORDINARY MESSAGE               T0538000
0001B4 4300 3001      00001         981          IC    R0,1(,R3)           R0 = LENGTH OF WHOLE COMPRESSED MSG  T0540000
0001B8 1A03                         982          AR    R0,R3               R0 = ADDR OF NEXT MESSAGE            T0542000
0001BA 4130 3002      00002         983          LA    R3,2(,R3)           R3 = ADDR OF FIRST FIELD             T0544000

0001BE 4320 3000      00000         984 SMB3     IC    R2,0(,R3)           R2 = MSG OR FIELD LENGTH             T0546000

0001C2 1222                         985          LTR   R2,R2               IS LENGTH ZERO                       T0546300
0001C4 4770 D1CE      001CE         986          BNZ   SMB5                BRANCH IF NO                         T0546600

0001C8 0630                         987          BCTR  R3,0                REDUCE MSG OR FIELD ADDRESS          T0546900
0001CA 47F0 D1E2      001E2         988          B     SMB6                GO TO BLANK COUNT OR NEXT MSG        T0547200
0001CE                              989 SMB5     DS    0H                                                       T0547500
0001CE 0620                         990          BCTR  R2,0                REDUCE FOR MOVE                      T0548000
0001D0 41F2 1001      00001         991          LA    R15,1(R2,R1)        R15 = ADDR OF LAST BYTE IN LINE +1   T0550000
                                    992          CL    R15,=A(LINE+&MAXLINE) IS MESSAGE LONGER THAN &MAXLINE    T0552000
0001D4 55F0 D640      00640         993+         CL    R15,=A(LINE+132)      IS MESSAGE LONGER THAN &MAXLINE    T0552000
0001D8 4720 D178      00178         994          BH    SMB0                IF YES IS ERROR, BR TO READ NEXT SMB T0554000
0001DC 4420 D20A      0020A         995          EX    R2,SMBMVC           MOVE TO PRINT LINE                   T0556000
0001E0 181F                         996          LR    R1,R15              R1 = ADDR OF NEXT BYTE IN PRINT LINE T0558000
0001E2                              997 SMB6     DS    0H                                                       T0559000
0001E2 4132 3002      00002         998          LA    R3,2(R2,R3)         R3 = ADDR OF BLANK COUNT OR NXT MSG  T0560000

0001E6 1930                         999          CR    R3,R0               DONE WITH THIS MESSAGE               T0562000
0001E8 47B0 D1FA      001FA        1000          BNL   SMB4                BRANCH IF YES                        T0564000

0001EC 4320 3000      00000        1001          IC    R2,0(,R3)           R2 = BLANK COUNT                     T0566000

0001F0 1A12                        1002          AR    R1,R2               SKIP NUM OF BLANKS IN PRINT LINE     T0568000
0001F2 4130 3001      00001        1003          LA    R3,1(,R3)           R3 = ADDR OF NEXT FIELD              T0570000
0001F6 47F0 D1BE      001BE        1004          B     SMB3                GO TO PROCESS NEXT FIELD             T0572000
0001FA 4550 D374      00374        1005 SMB4     BAL   R5,PR               PRINT LINE TO HASP                   T0574000
                                   1006          C     R3,=A(REC+&SMBLGTH) HAVE WE PROCESSED ENTIRE SMB         T0576000
0001FE 5930 D644      00644        1007+         C     R3,=A(REC+176)      HAVE WE PROCESSED ENTIRE SMB         T0576000
000202 47B0 D178      00178        1008          BNL   SMB0                BR IF YES TO READ NEXT SMB           T0578000
000206 47F0 D190      00190        1009          B     SMB2                GO TO PROCESS NEXT MESSAGE           T0580000
00020A D200 1000 3001 00000 00001  1010 SMBMVC   MVC   0(*-*,R1),1(R3)     MOVE MSG OR FIELD TO PRINT LINE      T0582000
WTR      HASP WRITER - JOB RE-QUEING ROUTINES                                                                  PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000210                             1012 REQUEUE  DS    0H                                                       T0586000

000210 4560 D46C      0046C        1013          BAL   R6,SIGEND           SIGNAL END OF JOB TO HASP            T0588000
                                   1014          $TESTREQ &WCLSREQ         TEST IF ANY CLASSES TO BE RE-QUED    T0590000
                                   1015          AIF   (&TEMP EQ 0).NOREQUE                                     T0592000

000214 947F D373      00373        1016          NI    SAVQCRNN+1,X'7F'    IS THIS CLASS TO BE RE-QUED          T0594000
000218 4780 D27C      0027C        1017          BZ    FRESPACE            BRANCH IF NO TO FREE ALL QUE SPACE   T0596000
00021C 4820 D372      00372        1018          LH    R2,SAVQCRNN         R2 = NN OF RE-QUE CLASS              T0598000
000220 4540 D334      00334        1019          BAL   R4,READQCR          READ RE-QUE QCR                      T0600000
000224 4770 D27C      0027C        1020          BNE   FRESPACE            NO RE-QUE IF I/O ERR                 T0602000
000228 D201 D582 D588 00582 00588  1021          MVC   LTH+18(2),REC       POINT JOB'S LTH TO PREV HI JOB       T0604000
00022E 4810 D584      00584        1022          LH    R1,LTH+20           POINT QCR TO THIS                    T0606000
000232 4010 D588      00588        1023          STH   R1,REC               NEW HIGHEST PRIO JOB                T0608000
000236 D601 D58A D58A 0058A 0058A  1024          OC    REC+2(2),REC+2      SET BOTTOM POINTER                   T0610000
00023C 4770 D244      00244        1025          BNZ   *+8                  FOR PRIO 14                         T0612000
000240 4010 D58A      0058A        1026          STH   R1,REC+2             IF NOT PREVIOUSLY SET               T0614000
000244 920E D5A8      005A8        1027          MVI   REC+32,14           SET HI PRIO TO 14                    T0616000

000248 920D D568      00568        1028          MVI   JQCCW3,X'D'         SET CCW OP CODE TO WRITE             T0618000
00024C 4550 D398      00398        1029          BAL   R5,LTHIO            RE-WRITE LAST LTH OF RE-QUED JOB     T0620000
000250 5820 D5A8      005A8        1030          L     R2,REC+32           R2 = ADDR OF 1ST ECB ON NO-WORK CHN  T0622000

000254 47F0 D264      00264        1031          B     REQ2                GO TO TEST FOR END OF CHAIN          T0624000
                                   1032 REQ1     POST  (R2)                POST ECB ON NO-WORK CHAIN            T0626000
000258 1B00                        1033+REQ1     SR    0,0                    . SET POST CODE REG ZERO          00640021
00025A 4110 2000      00000        1034+         LA    1,0(0,R2)              . LOAD ECB REG 1, CLEAR HI BYTE   02250021
00025E 0A02                        1035+         SVC   2                      . ISSUE THE POST SVC              08250021
000260 5820 2004      00004        1036          L     R2,4(,R2)           R2 = ADDR OF NEXT ECB ON NO-WORK CHN T0628000
000264 4120 2000      00000        1037 REQ2     LA    R2,0(,R2)           CLEAR HI BYTE OF R2                  T0630000
000268 1222                        1038          LTR   R2,R2               HAS END OF CHAIN BEEN REACHED        T0632000
00026A 4770 D258      00258        1039          BNZ   REQ1                BRANCH IF NO                         T0634000
00026E D702 D5A9 D5A9 005A9 005A9  1040          XC    REC+33(3),REC+33    ZERO NO-WORK CHAIN                   T0635000
000274 4540 D35E      0035E        1041          BAL   R4,UPDTQCR          RE-WRITE QCR FOR RE-QUED CLASS       T0636000
000278 47F0 D08C      0008C        1042          B     REMOVJOB            GO TO LOOK FOR MORE JOBS             T0638000

                                   1043 .NOREQUE ANOP                                                           T0640000
WTR      HASP WRITER - OS QUE SPACE FREEING ROUTINES                                                           PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00027C                             1045 FRESPACE DS    0H                                                       T0644000

                                   1046          ENQ   MF=(E,SPACEQ)       GET CTRL OF SPACE ALLOC RESOURCE     T0646000
00027C 4110 D4BC      004BC        1047+         LA    1,SPACEQ                          LOAD PARAMETER REG 1   00100000
000280 0A38                        1048+         SVC   56                                                       02480000
000282 920D D568      00568        1049          MVI   JQCCW3,X'D'         SET CCW OP CODE TO WRITE             T0648000
000286 5830 D578      00578        1050          L     R3,LTH+8            R3 = NN OF FIRST LTH                 T0650000
00028A 8830 0008      00008        1051          SRL   R3,8                 ASSIGNED TO THIS JOB                T0652000

00028E D701 D579 D579 00579 00579  1052          XC    LTH+9(2),LTH+9      CLEAR JOB PTR IN NEW LAST FREE LTH   T0654000
000294 D701 D57C D57C 0057C 0057C  1053          XC    LTH+12(2),LTH+12    SHOW NEW LAST FREE LTH AS END CHAIN  T0656000
00029A 9200 D57F      0057F        1054          MVI   LTH+15,0            ZERO JOB TYPE CODE                   T0658000
00029E 4840 D584      00584        1055          LH    R4,LTH+20           R4 = NN OF JOB'S LAST LTH            T0660000
0002A2 1814                        1056          LR    R1,R4               R1 = R4                              T0662000
0002A4 4550 D398      00398        1057          BAL   R5,LTHIO            WRITE NEW LAST LTH IN FREE QUE       T0664000
0002A8 1B00                        1058          SR    R0,R0                                                    T0666000
0002AA 4300 D57E      0057E        1059          IC    R0,LTH+14           R0 = LOGICAL TRKS USED BY THIS JOB   T0668000

0002AE 4A00 8072      00072        1060          AH    R0,QMNOTM           ADD NUM LOG TRKS IN FREE QUE         T0670000
0002B2 4000 8072      00072        1061          STH   R0,QMNOTM           UPDATE NUM LOG TRKS IN FREE QUE      T0672000

                                   1062          XC    LTH(&LTHLGTH),LTH   CLEAR LTH AREA                       T0674000
0002B6 D713 D570 D570 00570 00570  1063+         XC    LTH(20),LTH         CLEAR LTH AREA                       T0674000
0002BC 4810 8078      00078        1064          LH    R1,QMTIDM           R1 = NN OF OLD LAST LTH IN FREE QUE  T0676000
0002C0 4040 8078      00078        1065          STH   R4,QMTIDM           PNT MASTER QCR TO NEW LAST FREE LTH  T0678000
0002C4 1211                        1066          LTR   R1,R1               WERE ANY RECORDS IN FREE QUE         T0680000
0002C6 4770 D2D8      002D8        1067          BNZ   FRE1                BRANCH IF YES                        T0682000
0002CA 4030 D588      00588        1068          STH   R3,REC              PUT THIS JOB'S TRACKS                T0684000
0002CE D201 806D D588 0006D 00588  1069          MVC   QMFLTM,REC           ON THE FREE QUE                     T0686000

0002D4 47F0 D2E0      002E0        1070          B     FRE2                GO TO RE-WRITE MASTER QCR            T0688000
0002D8 4030 D57C      0057C        1071 FRE1     STH   R3,LTH+12           CHAIN OLD FREE TO THIS JOB'S TRKS    T0690000
0002DC 4550 D398      00398        1072          BAL   R5,LTHIO            RE-WRITE FORMER LAST LTH IN FREE QUE T0692000
0002E0 D207 D550 8064 00550 00064  1073 FRE2     MVC   IOBSEEK(8),QMHDA    SET UP MASTER QCR DISK ADDRESS       T0694000
                                   1074          AIF   (NOT &RPS).NORPS1                                        T0694500

                                   1075 .NORPS1  ANOP                                                           T0695500
                                   1076          MVC   REC(&QCRLGTH),QMHDA MOVE MASTER QCR TO REC AREA          T0696000
0002E6 D223 D588 8064 00588 00064  1077+         MVC   REC(36),QMHDA       MOVE MASTER QCR TO REC AREA          T0696000

                                   1078          POST  QMECBA              POST NO-SPACE ECB IN MASTER QCR      T0698000
0002EC 1B00                        1079+         SR    0,0                    . SET POST CODE REG ZERO          00640021
0002EE 4110 8088      00088        1080+         LA    1,QMECBA               . LOAD ECB ADDRESS IN REG 1       02350021
0002F2 0A02                        1081+         SVC   2                      . ISSUE THE POST SVC              08250021
0002F4 1B00                        1082          SR    R0,R0               INDICATE NO TTR0 CONVERSION NEEDED   T0700000
0002F6 4550 D3AC      003AC        1083          BAL   R5,QCRNONN          RE-WRITE MASTER QCR                  T0702000
                                   1084          DEQ   MF=(E,SPACEQ)       RELEASE Q SPACE ALLOC RESOURCE       T0704000

0002FA 4110 D4BC      004BC        1085+         LA    1,SPACEQ                          LOAD PARAMETER REG 1   00100000
0002FE 0A30                        1086+         SVC   48                                                  SDS1 72000016
000300 47F0 D08C      0008C        1087          B     REMOVJOB            GO BACK TO LOOK FOR ANOTHER JOB      T0706000
WTR      HASP WRITER - TERMINATE WRITER IF $PHASP SIGNALED                                                     PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000304 5810 3000      00000        1089 TERMLOOP L     R1,0(,R3)           R1 = ADDR OF CLASS ELEMENT           T0710000
000308 1B22                        1090          SR    R2,R2                                                    T0712000
00030A 4320 1004      00004        1091          IC    R2,4(,R1)           R2 = NN OF QCR FOR THIS CLASS        T0714000
00030E 4540 D334      00334        1092          BAL   R4,READQCR          READ QCR FOR CLASS                   T0716000

000312 4770 D31C      0031C        1093          BNE   TERMIN8             BRANCH IF I/O ERR                    T0718000
000316 1B11                        1094          SR    R1,R1               R1 = ZERO CHAIN ADDRESS              T0720000
000318 4540 D352      00352        1095          BAL   R4,UPCHNQCR         RE-WRITE QCR WITH ZERO NO-WORK CHN   T0722000
00031C 9180 3000      00000        1096 TERMIN8  TM    0(R3),X'80'         ARE THERE MORE CLASS ELEMENTS        T0724000
000320 4130 3004      00004        1097          LA    R3,4(,R3)           INCR TO ADDR OF NEXT ELEMENT         T0726000
000324 4780 D304      00304        1098          BZ    TERMLOOP            LOOP IF YES                          T0728000

000328 58D0 D004      00004        1099          L     R13,SAVEAREA+4      R13 = ADDR CALLER'S SAVE AREA        T0730000
00032C 58E0 D00C      0000C        1100          L     R14,12(,R13)        R14 = CALLER'S RETURN ADDRESS        T0732000
000330 1BFF                        1101          SR    R15,R15             ZERO COMPLETION CODE                 T0734000
000332 07FE                        1102          BR    R14                 RETURN                               T0736000
WTR      HASP WRITER - SYSOUT QCR MANAGEMENT SUBROUTINES                                                       PAGE   34



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1104 *                             NN OF QCR IS IN R2                        T0740000
                                   1105 READQCR  ENQ   MF=(E,QCRQ)         GET CTRL OF JOB/SYSOUT QCR RESOURCE  T0742000
000334 4110 D4B0      004B0        1106+READQCR  LA    1,QCRQ                            LOAD PARAMETER REG 1   00100000
000338 0A38                        1107+         SVC   56                                                       02480000

00033A 1812                        1108          LR    R1,R2               R1 = NN OF QCR TO BE READ            T0744000
00033C 4010 D372      00372        1109          STH   R1,SAVQCRNN         REMEMBER NN OF QCR FOR RE-WRITE      T0746000
000340 920E D568      00568        1110          MVI   JQCCW3,X'E'         SET CCW OP CODE TO READ              T0748000
000344 4550 D3A8      003A8        1111          BAL   R5,QCRIO            GO READ SYSOUT QCR                   T0750000
000348 4770 D36A      0036A        1112          BNE   DEQQCRQ             GO RELEASE QCR RESOURCE IF I/O ERR   T0752000

00034C 07F4                        1113          BR    R4                  EXIT                                 T0754000



                                   1115 *                             ADDRESS OF NO-WORK ELEMENT IS IN R1       T0758000
00034E 9200 1000      00000        1116 WAITQCR  MVI   0(R1),0             ZERO ECB TO BE WAITED                T0760000
000352 4300 D5A8      005A8        1117 UPCHNQCR IC    R0,REC+32           PUT OUR NO-WORK ELEMENT              T0762000

000356 5010 D5A8      005A8        1118          ST    R1,REC+32            ON CHAIN FOR THIS CLASS             T0764000
00035A 4200 D5A8      005A8        1119          STC   R0,REC+32           ALLOW NO OTHERS ON THE CHAIN         T0766000
00035E 920D D568      00568        1120 UPDTQCR  MVI   JQCCW3,X'D'         SET CCW OP CODE TO WRITE             T0768000
000362 4810 D372      00372        1121          LH    R1,SAVQCRNN         R1 = NN OF QCR TO BE RE-WRITTEN      T0770000
000366 4550 D3A8      003A8        1122          BAL   R5,QCRIO            RE-WRITE SYSOUT QCR                  T0772000
                                   1123 DEQQCRQ  DEQ   MF=(E,QCRQ)         RELEASE QCR RESOURCE                 T0774000

00036A 4110 D4B0      004B0        1124+DEQQCRQ  LA    1,QCRQ                            LOAD PARAMETER REG 1   00100000
00036E 0A30                        1125+         SVC   48                                                  SDS1 72000016
000370 07F4                        1126          BR    R4                  EXIT                                 T0776000
000372                             1127 SAVQCRNN DS    H                   SAVE FOR NN OF QCR TO BE RE-WRITTEN  T0778000

WTR      HASP WRITER - PRINTER AND JOB QUEUE I/O SUBROUTINES                                                   PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000374                             1129 PR       DS    0H                                                       T0782000
000374 5F10 D4D8      004D8        1130          SL    R1,PRCCW            R1 = LINE LENGTH                     T0784000
000378 4010 D4DE      004DE        1131          STH   R1,PRCCW+6          PUT LINE LENGTH IN CCW               T0786000

00037C 4110 D4D8      004D8        1132          LA    R1,PRCCW            POINT IOB TO PRINT CCW               T0788000
000380 5010 D540      00540        1133          ST    R1,IOBSTART                                              T0790000
000384 4110 D4B8      004B8        1134          LA    R1,PRDCB            POINT IOB TO PRINT DCB               T0792000
000388 5010 D544      00544        1135          ST    R1,IOBDCBPT                                              T0794000
00038C 47F0 D3E6      003E6        1136          B     EXCP                GO TO DO I/O                         T0796000
000390                             1137 SMBIO    DS    0H                                                       T0798000
                                   1138          LA    R1,&SMBLGTH         SET FOR SMB LENGTH I/O               T0800000

000390 4110 00B0      000B0        1139+         LA    R1,176              SET FOR SMB LENGTH I/O               T0800000
000394 47F0 D3B0      003B0        1140          B     QCR1                GO TO SET AREA ADDRESS               T0802000
000398                             1141 LTHIO    DS    0H                                                       T0804000

000398 4560 D42A      0042A        1142          BAL   R6,CNVNNLTA         CONVERT NN TO TTR0                   T0806000
                                   1143          LA    R1,&LTHLGTH         SET FOR LTH LENGTH I/O               T0808000
00039C 4110 0014      00014        1144+         LA    R1,20               SET FOR LTH LENGTH I/O               T0808000
0003A0 4120 D570      00570        1145          LA    R2,LTH              SET TO USE LTH AREA FOR I/O          T0810000
0003A4 47F0 D3B4      003B4        1146          B     TTR0IO              GO TO STORE ADDRESS AND LENGTH       T0812000

0003A8                             1147 QCRIO    DS    0H                                                       T0814000
0003A8 4560 D450      00450        1148          BAL   R6,CNVNNCRA         CONVERT NN TO TTR0                   T0816000
0003AC                             1149 QCRNONN  DS    0H                                                       T0818000
                                   1150          LA    R1,&QCRLGTH         SET FOR QCR LENGTH I/O               T0820000
0003AC 4110 0024      00024        1151+         LA    R1,36               SET FOR QCR LENGTH I/O               T0820000
0003B0 4120 D588      00588        1152 QCR1     LA    R2,REC              SET TO USE REC AREA FOR I/O          T0822000
0003B4                             1153 TTR0IO   DS    0H                                                       T0824000
0003B4 5020 D540      00540        1154          ST    R2,IOBSTART         PUT I/O AREA ADDRESS                 T0826000

0003B8 D202 D569 D541 00569 00541  1155          MVC   JQCCW3+1(3),IOBSTART+1 INTO THIRD CCW                    T0828000
0003BE 4010 D56E      0056E        1156          STH   R1,JQCCW3+6         PUT REC LENGTH IN CCW                T0830000

0003C2 1200                        1157          LTR   R0,R0               IS THERE A TTR0 TO BE CONVERTED      T0832000
0003C4 4780 D3DA      003DA        1158          BZ    RDWR                BRANCH IF NO                         T0834000
                                   1159          AIF   (NOT &RPS).NORPS2                                        T0834050
                                   1160 .NORPS2  ANOP                                                           T0835500
0003C8 4110 8034      00034        1161          LA    R1,QMRDEB           R1 = JOB QUE DEB ADDRESS             T0836000

0003CC 4120 D550      00550        1162          LA    R2,IOBSEEK          R2 = IOBSEEK ADDRESS                 T0838000
0003D0 58F0 701C      0001C        1163          L     R15,CVTPCNVT        GO TO OS TTR0 TO MBBCCHHR            T0840000
0003D4 05EF                        1164          BALR  R14,R15              CONVERSION ROUTINE                  T0842000
                            003D6  1165          USING *,R14               TEMPORARY ADDRESSABILITY             T0844000
0003D6 58D0 E0B6      0048C        1166          L     R13,SAVER13         RELOAD R13                           T0846000
                                   1167          DROP  R14                                                      T0848000
0003DA                             1168 RDWR     DS    0H                                                       T0850000
0003DA 4110 D558      00558        1169          LA    R1,JQCCW1           POINT IOB TO JOB QUE CCWS            T0852000
                                   1170          AIF   (NOT &RPS).NORPS3                                        T0852300

                                   1171 .NORPS3  ANOP                                                           T0853500

0003DE 5010 D540      00540        1172          ST    R1,IOBSTART                                              T0854000
0003E2 5080 D544      00544        1173          ST    R8,IOBDCBPT         POINT IOB TO JOB QUE DCB             T0856000
0003E6                             1174 EXCP     DS    0H                                                       T0858000
0003E6 9200 D52C      0052C        1175          MVI   IOECB,0             CLEAR COMPLETION CODE                T0860000
                                   1176          EXCP  IOB                 CALL I/O SUPERVISOR                  T0862000

0003EA 4110 D530      00530        1177+         LA    1,IOB                             LOAD PARAMETER REG 1   00100000
0003EE 0A00                        1178+         SVC   0                                 ISSUE SVC FOR EXCP     00100000
                                   1179          WAIT  ECB=IOECB           WAIT FOR COMPLETION                  T0864000
0003F0 4110 D52C      0052C        1180+         LA    1,IOECB                           LOAD PARAMETER REG 1   00100000
0003F4 4100 0001      00001        1181+         LA    0,1(0,0)                      COUNT OMITTED,1 USED       00160017
0003F8 0A01                        1182+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
0003FA 957F D52C      0052C        1183          CLI   IOECB,X'7F'         TEST COMPLETION CODE                 T0866000
WTR      HASP WRITER - PRINTER AND JOB QUEUE I/O SUBROUTINES                                                   PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0003FE 0785                        1184          BCR   E,R5                EXIT IF SUCCESSFUL I/O               T0868000

                                   1185          WTO   'HASPWTR - PERM I/O ERR OS JOBQ' NOTIFY OPERATOR         T0870000

000400                             1186+         CNOP  0,4                                                      08550021
000400 4510 D426      00426        1187+         BAL   1,IHB0027A                        BRANCH AROUND MESSAGE  08600021
000404 0022                        1188+         DC    AL2(34)             TEXT LENGTH                          11950021
000406 0000                        1189+         DC    B'0000000000000000' MCS FLAGS                            12000021

000408 C8C1E2D7E6E3D940            1190+         DC    C'HASPWTR - PERM I/O ERR OS JOBQ'                        12100021
000426                             1191+IHB0027A DS    0H                                                       13900021
000426 0A23                        1192+         SVC   35                                                       14000021
000428 07F5                        1193          BR    R5                  EXIT                                 T0872000
WTR      HASP WRITER - MISCELLANEOUS SUBROUTINES                                                               PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1195 *                                  CONVERT NN IN R1 TO TTR0 IN R0,      T0876000
                                   1196 *                                   FOR NN RELATIVE TO THE OS QUE       T0878000
                                   1197 *                                   LOGICAL TRACK AREA                  T0880000
00042A                             1198 CNVNNLTA DS    0H                                                       T0882000
00042A 48E0 807A      0007A        1199          LH    R14,QMKTT           R14 = TT OF TRK AFTER MIXED TRK      T0884000

00042E 48F0 807E      0007E        1200          LH    R15,QMRPT           R15 = RECS PER TRK                   T0886000
000432 4B10 8086      00086        1201          SH    R1,QMFQR            IS INPUT NN ON MIXED TRK             T0888000
000436 47B0 D456      00456        1202          BNM   CNV1                BR IF NOT                            T0890000
00043A 4A10 8086      00086        1203          AH    R1,QMFQR            RESTORE INPUT NN IN R1               T0892000

00043E 4A10 8084      00084        1204          AH    R1,QMNHM            R1 = R = NN + QCRS ON MIXED TRK      T0894000
000442 06E0                        1205          BCTR  R14,0               R14 = TT OF MIXED TRK                T0896000
000444 89E0 0008      00008        1206          SLL   R14,8               SHIFT TO MAKE ROOM FOR R             T0898000
000448 410E 1000      00000        1207          LA    R0,0(R14,R1)        R0 = 0TTR                            T0900000
00044C 47F0 D466      00466        1208          B     CNV2                BR TO POSITION OUTPUT                T0902000



                                   1210 *                                  CONVERT NN IN R1 TO TTR0 IN R0,      T0906000
                                   1211 *                                   FOR NN RELATIVE TO THE OS QUE       T0908000
                                   1212 *                                   CONTROL RECORD AREA                 T0910000
000450                             1213 CNVNNCRA DS    0H                                                       T0912000
000450 1BEE                        1214          SR    R14,R14             R14 = 0 = TT OF 1ST QCR TRK          T0914000
000452 48F0 807C      0007C        1215          LH    R15,QMHPT           R15 = QCRS PER TRK                   T0916000

000456 1B00                        1216 CNV1     SR    R0,R0               ZERO R0 FOR DIVIDE                   T0918000
000458 1D0F                        1217          DR    R0,R15              DIVIDE NN BY RECS OR QCRS PER TRK    T0920000
00045A 1A1E                        1218          AR    R1,R14              ADD TT OF REC OR QCR AREA            T0922000

00045C 8910 0008      00008        1219          SLL   R1,8                SHIFT TO MAKE ROOM FOR R             T0924000
000460 4110 1001      00001        1220          LA    R1,1(,R1)           R = REMAINDER + 1                    T0926000
000464 1A01                        1221          AR    R0,R1               R0 = 0TTR                            T0928000
000466 8900 0008      00008        1222 CNV2     SLL   R0,8                R0 = TTR0                            T0930000
00046A 07F6                        1223          BR    R6                  EXIT                                 T0932000



                                   1225 *                                  INVOKE CODE IN HASP TO SIGNAL        T0936000
                                   1226 *                                   END OF ALL SYSTEM MESSAGE OUTPUT    T0938000
                                   1227 *                                   FOR JOB JUST PROCESSED              T0940000
00046C                             1228 SIGEND   DS    0H                                                       T0942000
00046C 9068 D588      00588        1229          STM   R6,R8,REC           SAVE GLOBAL REGISTERS                T0944000
000470 58F0 D490      00490        1230          L     R15,XWTRENDA        R15 = ADDR WTR END ACTIONS IN HASP   T0946000

000474 5840 D4EC      004EC        1231          L     R4,PRDEBTCB         R4 = TCB ADDRESS                     T0948000

000478 8000 D479      00479        1232          SSM   *+1                 DISABLE TO USE HASP CODE             T0949000
00047C 05EF                        1233          BALR  R14,R15             SIGNAL END OF WTR OUTPUT FOR JOB     T0950000

                            0047E  1234          USING *,R14               TEMPORARY ADDRESSABILITY             T0952000
00047E 8000 E1CA      00648        1235          SSM   =X'FF'              ENABLE                               T0953000
000482 9868 E10A      00588        1236          LM    R6,R8,REC           RESTORE GLOBAL REGISTERS             T0954000
000486 58D0 E00E      0048C        1237          L     R13,SAVER13         RELOAD R13                           T0956000
                                   1238          DROP  R14                                                      T0958000
00048A 07F6                        1239          BR    R6                  EXIT                                 T0960000
WTR      HASP WRITER - CLASS TABLES AND ENQ/DEQ LISTS                                                          PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00048C                             1241 SAVER13  DS    F                   COPY OF MAIN BASE REGISTER           T0964000
000490                             1242 XWTRENDA DS    F                   ADDR OF HASP RTN CALLED TO END JOB   T0966000






000494                             1244 PWTRECBA DS    F                   ADDR OF ECB SIGNALING $PHASP         T0970000

                                   1245 CLSECBAD $GENWCTB &WTRCLAS,&WCLSREQ                                     T0972000
000498                             1246+CLSECBAD DS    0F                                                       T0166000

000498 000004A0                    1247+         DC    AL1(0),AL3(CLSECBAD+4*2+8*(1-1))                         T0176000
00049C 9A0004A8                    1248+         DC    AL1(26+X'80'),AL3(CLSECBAD+4*2+8*(2-1))                  T0182000
0004A0 4000000003000000            1249+         DC    X'40000000',AL1(3,0,0,0)                                 T0196000
0004A8 400000000A000000            1250+         DC    X'40000000',AL1(10,0,0,0)                                T0196000





                                   1252 QCRQ     ENQ   (QN,RN1,E,2,SYSTEM),MF=L                                 T0976000
0004B0                             1253+QCRQ     DS    0F                                                       00720000
0004B0 FF                          1254+         DC    AL1(255)                      LAST ENTRY INDICATION      01160000
0004B1 02                          1255+         DC    AL1(2)                             LENGTH                01280000
0004B2 40                          1256+         DC    BL1'01000000'                                       SDS1 01440016
0004B3 00                          1257+         DC    AL1(0)                             RETURN CODE FIELD     01460000

0004B4 000004C8                    1258+         DC    A(QN)                              QNAME ADDRESS         01540000
0004B8 000004D0                    1259+         DC    A(RN1)                             RNAME ADDRESS         01680000

                                   1260 SPACEQ   ENQ   (QN,RN2,E,2,SYSTEM),MF=L                                 T0978000

0004BC                             1261+SPACEQ   DS    0F                                                       00720000
0004BC FF                          1262+         DC    AL1(255)                      LAST ENTRY INDICATION      01160000
0004BD 02                          1263+         DC    AL1(2)                             LENGTH                01280000
0004BE 40                          1264+         DC    BL1'01000000'                                       SDS1 01440016
0004BF 00                          1265+         DC    AL1(0)                             RETURN CODE FIELD     01460000
0004C0 000004C8                    1266+         DC    A(QN)                              QNAME ADDRESS         01540000
0004C4 000004D2                    1267+         DC    A(RN2)                             RNAME ADDRESS         01680000
0004C8 E2E8E2C9C5C6E2C4            1268 QN       DC    C'SYSIEFSD'                                              T0980000
0004D0 D8F1                        1269 RN1      DC    C'Q1'                                                    T0982000
0004D2 D8F2                        1270 RN2      DC    C'Q2'                                                    T0984000
WTR      HASP WRITER - I/O CONTROL BLOCKS AND BUFFERS                                                          PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


0004D4 00000000
0004D8 0900000800000000            1272 PRCCW    CCW   9,LINE,0,0          PRINTER CCW                          T0988000




0004E0                      004B8  1274          ORG   *-40                                                     T0992000
0004B8                             1275 PRDCB    DS    0F                  PRINTER DCB                          T0994000
0004B8                      004E0  1276          ORG   *+40                                                     T0996000
0004E0 0000                        1277          DC    AL2(0)                                                   T0998000
0004E2 A000                        1278          DC    B'1010000000000000'                                      T1000000
0004E4 00                          1279          DC    X'00'                                                    T1002000
0004E5 0004EC                      1280          DC    AL3(PRDEB)                                               T1004000
0004E8 10                          1281          DC    B'00010000'                                              T1006000
0004E9 000000                      1282          DC    AL3(0)                                                   T1008000



0004EC                             1284 PRDEB    DS    0F                  PRINTER DEB                          T1012000
0004EC                             1285 PRDEBTCB DS    F                   DEB TCB ADDRESS                      T1014000

0004F0 04000000                    1286          DC    X'04000000'                                              T1016000
0004F4 88000000                    1287          DC    X'88000000'                                              T1018000
0004F8 03000000                    1288          DC    X'03000000'                                              T1020000
0004FC 01000000                    1289          DC    X'01000000'                                              T1022000

000500 00000000                    1290          DC    X'00000000'                                              T1024000
000504 0F                          1291          DC    X'0F'                                                    T1026000
000505 0004B8                      1292          DC    AL3(PRDCB)                                               T1028000
000508 02                          1293          DC    X'02'                                                    T1030000
000509 000514                      1294          DC    AL3(PRAPPEN)                                             T1032000
00050C                             1295 PRDEBUCB DS    F                   DEB UCB ADDRESS                      T1034000

000510 00010000                    1296          DC    X'00010000'                                              T1036000
000514 0000052800000528            1297 PRAPPEN  DC    5A(BR14)            NULL APPENDAGES                      T1038000
000528 07FE                        1298 BR14     BR    R14                                                      T1040000
WTR      HASP WRITER - I/O CONTROL BLOCKS AND BUFFERS                                                          PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1300          AIF   (&RPS).RPS1                                              T1043000
                                   1301          XDAP  IOECB,RI,,REC,MF=L  GENERAL PURPOSE I/O ECB AND IOB      T1044000
00052A 0700                        1302+         CNOP  4,8                                                      00300000

00052C 00000000                    1303+IOECB    DC    1F'0'                             EVENT CONTROL BLOCK    00380000
000530 43                          1304+         DC    X'43'                             IOB START FLAG XA05475 00400031

000531 00000000                    1305+         DC    X'00000000'                                              00420000
000535 00052C                      1306+         DC    AL3(IOECB)                         ECB ADDRESS           00440000
000538 0000000000000000            1307+         DC    2F'0'                              3RD WORD              00460000
000540 00                          1308+         DC    X'00'                              4TH WORD START        00480000
000541 000558                      1309+         DC    AL3(IOECB+44)                     CCW1 ADDRESS           00500000
000544 00                          1310+         DC    X'00'                                                    00520000
000545 000000                      1311+         DC    X'000000'                          NO DCB SPECIFIED      00620000
000548 0000000000000000            1312+         DC    2F'0'                              FIFTH DOUBLE WORD     00640000

000550 0000000000000000            1313+IHB0035  DC    2F'0'                              BLKREF FIELD          00660000
000558 31                          1314+IHB0035A DC    X'31'                              SET OPCODE IN CCW-1   00740000
000559 000553                      1315+         DC    AL3(IHB0035+3)                     SET UP IOBSEEK+3      00760000
00055C 40                          1316+         DC    X'40'                              FLAG BYTE             00780000
00055D 00                          1317+         DC    X'00'                                                    00800000

00055E 0005                        1318+         DC    H'05'                              SET UP COUNT FIELD    00820000
000560 08                          1319+         DC    X'08'                              CCW2                  01240000
000561 000558                      1320+         DC    AL3(IHB0035A)                                            01260000

000564 00000000                    1321+         DC    X'00000000'                        2ND WD IN CCW2        01280000
000568 0E                          1322+         DC    AL1(14)                           CCW3 OPCODE            01460000
000569 000588                      1323+         DC    AL3(REC)                           SET AREA ADDR IN CCW3 01620000
00056C 00                          1324+         DC    X'00'                              FLAG BYTE IN CCW3     01660000
00056D 00                          1325+         DC    X'00'                                                    01720000
00056E 0000                        1326+         DC    X'0000'                           NO LENGTH SPECIFIED    01820000
                                   1327          AGO   .NORPS4                                                  T1044500

                                   1328 .NORPS4  ANOP                                                           T1045500
                            00530  1329 IOB      EQU   IOECB+4             IOB                                  T1046000
                            00540  1330 IOBSTART EQU   IOECB+20            CCW ADDRESS                          T1048000
                            00544  1331 IOBDCBPT EQU   IOECB+24            DCB ADDRESS                          T1050000
                            00550  1332 IOBSEEK  EQU   IOECB+36            M B B C C H H R   FOR DIRECT ACCESS  T1052000

                                   1333          AIF   (&RPS).RPS2                                              T1053000
                            00558  1334 JQCCW1   EQU   IOECB+44            1ST DIRECT ACCESS CCW                T1054000
                            00568  1335 JQCCW3   EQU   IOECB+60            THIRD DIRECT ACCESS CCW              T1056000
                                   1336          AGO   .NORPS5                                                  T1056300

                                   1337 .NORPS5  ANOP                                                           T1057800
WTR      HASP WRITER - I/O CONTROL BLOCKS AND BUFFERS                                                          PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












                                   1340 LTH      DS    (&LTHLGTH/4+1)F     BUFFER TO HOLD A LOGICAL TRACK HDR   T1062000
000570                             1341+LTH      DS    (20/4+1)F           BUFFER TO HOLD A LOGICAL TRACK HDR   T1062000



                                   1343 REC      DS    CL&SMBLGTH          BUFFER TO HOLD ONE SYSTEM MESSAGE    T1066000

000588                             1344+REC      DS    CL176               BUFFER TO HOLD ONE SYSTEM MESSAGE    T1066000
                                   1345 *                                   BLOCK OR QUE CONTROL RECORD         T1068000
000000                             1346          END   NITIALIZ                                                 T1070000
000638 00000494                    1347                =A(PWTRECBA)
00063C 0000000F                    1348                =A(X'F')

000640 0000008C                    1349                =A(LINE+132)
000644 00000638                    1350                =A(REC+176)
000648 FF                          1351                =X'FF'
WTR                                               RELOCATION DICTIONARY                                        PAGE   42


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78


 0001     0001      08     000499
 0001     0001      08     00049D
 0001     0001      0C     0004B4
 0001     0001      0C     0004B8
 0001     0001      0C     0004C0

 0001     0001      0C     0004C4
 0001     0001      08     0004D9
 0001     0001      08     0004E5
 0001     0001      08     000505
 0001     0001      08     000509
 0001     0001      0C     000514

 0001     0001      0C     000518
 0001     0001      0C     00051C
 0001     0001      0C     000520
 0001     0001      0C     000524

 0001     0001      08     000535
 0001     0001      08     000541
 0001     0001      08     000559
 0001     0001      08     000561
 0001     0001      08     000569

 0001     0001      0C     000638
 0001     0001      0C     000640
 0001     0001      0C     000644

WTR                                               CROSS-REFERENCE                                              PAGE   43


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$CVTPTR  00001 00000010 00599  00886

BR14     00002 00000528 01298  01297
CLSECBAD 00004 00000498 01246  01247 01248
CNVNNCRA 00002 00000450 01213  01148

CNVNNLTA 00002 0000042A 01198  00961 01142
CNV1     00002 00000456 01216  01202
CNV2     00004 00000466 01222  01208
CVTCRTTR 00003 000000B8 00702  00715
CVTDSECT 00001 00000000 00600  00887

CVTJOB   00004 0000000C 00619  00890
CVTPCNVT 00004 0000001C 00625  01163
CVTTCBP  00004 00000000 00615  00888
CVTUSER  00004 000000CC 00726  00727
CVTXTNT1 00001 00000114 00806  00779
DEQQCRQ  00004 0000036A 01124  01112
E        00001 00000008 00416  01184
EXCP     00002 000003E6 01174  01136

FRESPACE 00002 0000027C 01045  01017 01020
FRE1     00004 000002D8 01071  01067

FRE2     00006 000002E0 01073  01070
HASPWTR  00001 00000000 00233  00816 00848
IHB0027A 00002 00000426 01191  01187
IHB0035  00004 00000550 01313  01315
IHB0035A 00001 00000558 01314  01320

IOB      00004 00000530 01329  01177
IOBDCBPT 00004 00000544 01331  01135 01173
IOBSEEK  00004 00000550 01332  01073 01162
IOBSTART 00004 00000540 01330  01133 01154 01155 01172
IOECB    00004 0000052C 01303  01175 01180 01183 01306 01309 01329 01330 01331 01332 01334 01335
JQCCW1   00004 00000558 01334  01169
JQCCW3   00004 00000568 01335  00962 01028 01049 01110 01120 01155 01156
LINE     00132 00000008 00867  00974 01272 01349
LTH      00004 00000570 01341  00920 00929 00942 00958 01021 01022 01050 01052 01052 01053 01053 01054 01055 01059 01063

                               01063 01071 01145

LTHIO    00002 00000398 01141  00921 01029 01057 01072
NITIALIZ 00002 00000000 00870  01346
PR       00002 00000374 01129  01005
PRAPPEN  00004 00000514 01297  01294
PRCCW    00008 000004D8 01272  01130 01131 01132

PRDCB    00004 000004B8 01275  01134 01292
PRDEB    00004 000004EC 01284  01280
PRDEBTCB 00004 000004EC 01285  00889 01231
PRDEBUCB 00004 0000050C 01295  00879
PWTRECBA 00004 00000494 01244  00881 00896 00915 01347
QCRIO    00002 000003A8 01147  01111 01122
QCRNONN  00002 000003AC 01149  01083
QCRQ     00004 000004B0 01253  00924 01106 01124
QCR1     00004 000003B0 01152  01140
QMECBA   00004 00000088 00844  01080

QMFLTM   00002 0000006D 00832  01069

QMFQR    00002 00000086 00843  01201 01203
QMHDA    00008 00000064 00830  01073 01077
QMHPT    00002 0000007C 00839  01215
QMKTT    00002 0000007A 00838  01199

QMNHM    00002 00000084 00842  01204
WTR                                               CROSS-REFERENCE                                              PAGE   44


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

QMNOTM   00002 00000072 00835  01060 01061
QMRDEB   00001 00000034 00824  01161
QMRDSECT 00001 00000000 00821  00891
QMRPT    00002 0000007E 00840  01200
QMTIDM   00002 00000078 00837  01064 01065
QN       00008 000004C8 01268  01258 01266
RDWR     00002 000003DA 01168  01158
READQCR  00004 00000334 01106  00904 01019 01092

REC      00176 00000588 01344  00906 00930 00934 00934 00938 00943 00946 00948 00953 00964 00970 01021 01023 01024 01024
                               01026 01027 01030 01040 01040 01068 01069 01077 01117 01118 01119 01152 01229 01236 01323
                               01350
REMLOOK  00004 00000090 00897  00913

REMNEXT  00004 000000C4 00911  00899 00928
REMOVJOB 00002 0000008C 00895  00892 00919 01042 01087
REM1     00004 000000E0 00920  00908
REM2     00004 0000011E 00938  00932
REM3     00004 0000013E 00947  00950
REM4     00004 00000156 00954  00944
REM5     00006 0000015A 00955  00937
REM6     00004 000000F2 00926  00905
REM7     00004 000000FE 00929  00922
REQUEUE  00002 00000210 01012  00966 00968
REQ1     00002 00000258 01033  01039
REQ2     00004 00000264 01037  01031

RN1      00002 000004D0 01269  01259
RN2      00002 000004D2 01270  01267
R0       00001 00000000 00372  00879 00929 00930 00931 00931 00942 00943 00945 00945 00946 00948 00949 00949 00964 00965

                               00965 00973 00973 00981 00982 00999 01058 01058 01059 01060 01061 01082 01082 01117 01119
                               01157 01157 01207 01216 01216 01217 01221 01222
R1       00001 00000001 00373  00880 00888 00889 00897 00898 00903 00906 00907 00907 00909 00920 00926 00927 00935 00938
                               00939 00940 00941 00941 00943 00946 00947 00947 00948 00951 00951 00952 00953 00958 00959
                               00959 00960 00974 00975 00977 00977 00991 00996 01002 01010 01022 01023 01026 01056 01064
                               01066 01066 01089 01091 01094 01094 01108 01109 01116 01118 01121 01130 01131 01132 01133
                               01134 01135 01139 01144 01151 01156 01161 01169 01172 01201 01203 01204 01207 01218 01219
                               01220 01220 01221
R10      00001 0000000A 00382  00401
R11      00001 0000000B 00383  00402
R12      00001 0000000C 00384  00403 00873 00878
R13      00001 0000000D 00385  00404 00871 00872 00873 00874 00876 00877 00878 01099 01100 01166 01237

R14      00001 0000000E 00386  00405 00871 01100 01102 01164 01165 01167 01199 01205 01206 01207 01214 01214 01218 01233
                               01234 01238 01298
R15      00001 0000000F 00387  00869 00874 00875 00991 00993 00996 01101 01101 01163 01164 01200 01215 01217 01230 01233

R2       00001 00000002 00374  00393 00881 00902 00902 00903 00969 00969 00984 00985 00985 00990 00991 00995 00998 01001
                               01002 01018 01030 01034 01036 01036 01037 01037 01038 01038 01090 01090 01091 01108 01145
                               01152 01154 01162
R3       00001 00000003 00375  00394 00884 00896 00897 00900 00909 00911 00912 00912 00926 00935 00955 00970 00971 00978
                               00981 00982 00983 00983 00984 00987 00998 00998 00999 01001 01003 01003 01007 01010 01050
                               01051 01068 01071 01089 01096 01097 01097
R4       00001 00000004 00376  00395 00904 00910 00936 00954 01019 01041 01055 01056 01065 01092 01095 01113 01126 01231
R5       00001 00000005 00377  00396 00921 00967 01005 01029 01057 01072 01083 01111 01122 01184 01193
R6       00001 00000006 00378  00397 00961 01013 01142 01148 01223 01229 01236 01239
R7       00001 00000007 00379  00398 00886 00887
R8       00001 00000008 00380  00399 00400 00890 00891 01173 01229 01236
SAVEAREA 00004 00000000 00865  00868 00872 00876 01099

SAVER13  00004 0000048C 01241  00877 01166 01237

WTR                                               CROSS-REFERENCE                                              PAGE   45


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


SAVQCRNN 00002 00000372 01127  00955 01016 01018 01109 01121
SIGEND   00002 0000046C 01228  01013
SMBIO    00002 00000390 01137  00967
SMBMVC   00006 0000020A 01010  00995
SMB0     00004 00000178 00964  00972 00979 00994 01008
SMB1     00004 00000182 00967  00963
SMB2     00004 00000190 00971  01009
SMB3     00004 000001BE 00984  00980 01004
SMB4     00004 000001FA 01005  01000
SMB5     00002 000001CE 00989  00986
SMB6     00002 000001E2 00997  00988
SPACEQ   00004 000004BC 01261  01047 01085

TERMIN8  00004 0000031C 01096  00901 01093
TERMLOOP 00004 00000304 01089  01098

TTR0IO   00002 000003B4 01153  01146

UPCHNQCR 00004 00000352 01117  01095
UPDTQCR  00004 0000035E 01120  00954 01041
WAITQCR  00004 0000034E 01116  00910 00936
XWTRENDA 00004 00000490 01242  00880 01230
WTR                                               LITERAL CROSS-REFERENCE                                      PAGE   46


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

=A(PWTRECBA)
         00004 00000638 01347  00900
=A(X'F') 00004 0000063C 01348  00939
=A(LINE+132)
         00004 00000640 01349  00993
=A(REC+176)

         00004 00000644 01350  01007
=X'FF'   00001 00000648 01351  01235
WTR                                               ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE   47



                                                                                                 ASM 0201 20.02 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT        595
TOTAL RECORDS READ FROM SYSTEM LIBRARY    10434
TOTAL RECORDS PUNCHED                        31
TOTAL RECORDS PRINTED                      1632

XEQ                                            EXTERNAL SYMBOL DICTIONARY                                      PAGE    1


SYMBOL   TYPE  ID   ADDR  LENGTH LDID                                                            ASM 0201 20.02 08/28/78

HASPXEQ   SD  0001 000000 0032C0
$EXCPSVC  LD       0009C0        0001

XJCLSCAN  LD       0017A4        0001
XTERMSMF  LD       0023C0        0001
$XWTREND  LD       0015EC        0001
HASPXTHW  LD       002408        0001
HASPLOG   LD       00247C        0001
$PITABLE  LD       003284        0001

HA$QXJI1  XD  0002 000007 000000
HA$QXEOJ  XD  0003 000007 000000
HA$OXJI1  SD  0004 0032C0 00014B
HA$IXJI1  LD       0032CC        0004
HA$QXJI2  XD  0005 000007 000000

HA$OXJI2  SD  0006 003410 00021A
HA$IXJI2  LD       00341C        0006
HA$QXJI3  XD  0007 000007 000000
HA$OXJI3  SD  0008 003630 0001D8
HA$IXJI3  LD       00363C        0008

HA$OXEOJ  SD  0009 003808 0001C4
HA$IXEOJ  LD       003814        0009
$LOGPCE   ER  000A
$CKPTPCE  ER  000B
$XTHPCE   ER  000C

$EXECPCE  ER  000D
XGETDDB   ER  000E
$INRDCT   ER  000F
$RDRPCE   LD       000B68        0001
HASP      ER  0010

XGETDDB   LD       001520        0001
XJOBSRCH  LD       00159C        0001
XJOBSRC2  LD       001594        0001
XCOOL     LD       0016A4        0001
XWARM     LD       0016DC        0001
XJOBSRCH  ER  0011

$COMMPCE  ER  0012
XJOBSRC2  ER  0013
XCOOL     ER  0014
HA$QXLOG  XD  0015 000007 000000

HA$OXLOG  SD  0016 0039D0 0001D8
HA$IXLOG  LD       0039D8        0016
XWARM     ER  0017
$WQUEBUF  ER  0018
HASPCON   ER  0019

XEQ                                                                                                            PAGE    2


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                      1 *                            KILL ALL 370 INSTRUCTIONS             RFIT X0000010
                                      2 *                                                                  RFIT X0000020
                                      3 MVCL     OPSYN ,                                                   RFIT X0000030
                                      4 CLCL     OPSYN ,                                                   RFIT X0000040
                                      5 SIOF     OPSYN ,                                                   RFIT X0000050

                                      6 HDV      OPSYN ,                                                   RFIT X0000070
                                      7 STNSM    OPSYN ,                                                   RFIT X0000080
                                      8 STOSM    OPSYN ,                                                   RFIT X0000090

                                      9 MC       OPSYN ,                                                   RFIT X0000110
                                     10 LRA      OPSYN ,                                                   RFIT X0000120
                                     11 STCTL    OPSYN ,                                                   RFIT X0000130
                                     12 LCTL     OPSYN ,                                                   RFIT X0000140
                                     13 CLM      OPSYN ,                                                   RFIT X0000180

                                     14 STCM     OPSYN ,                                                   RFIT X0000190
                                     15 ICM      OPSYN ,                                                   RFIT X0000200
                                     16 STIDP    OPSYN ,                                                   RFIT X0000210
                                     17 STIDC    OPSYN ,                                                   RFIT X0000220
                                     18 SCK      OPSYN ,                                                   RFIT X0000230
                                     19 STCK     OPSYN ,                                                   RFIT X0000240
                                     20 SCKC     OPSYN ,                                                   RFIT X0000250

                                     21 STCKC    OPSYN ,                                                   RFIT X0000260
                                     22 SPT      OPSYN ,                                                   RFIT X0000270
                                     23 STPT     OPSYN ,                                                   RFIT X0000280

                                     24 PTLB     OPSYN ,                                                   RFIT X0000310
                                     25 RRB      OPSYN ,                                                   RFIT X0000350
                                     26 SRP      OPSYN ,                                                   RFIT X0000360
XEQ      HASP DATA DEFINITION TABLE MACRO DEFINITIONS                                                          PAGE    3


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                     28 *                                                                       X0004000
                                     29 ***** $GENDDFT *****          GENERATE DATA DEFINITON FREQUENCY TABLE   X0006000
                                     30 *                                                                       X0008000
                                     31 *                                                                       X0010000
                                     32          MACRO                                                          X0012000
                                     33          $GENDDFT                                                       X0014000
                                     34          GBLA  &TEMP,&NUMDDT                                            X0016000
                                     35 &TEMP    SETA  &NUMDDT-1                                                X0018000

                                     36 $DDTTABB DS    0C                  START OF TABLE AREA                  X0020000
                                     37 .A       DC    AL1(&TEMP)              INDEX TO CORRESPONDING DDT       X0022000

                                     38 &TEMP    SETA  &TEMP-1                                                  X0024000
                                     39          AIF   (&TEMP GT 0).A                                           X0026000
                                     40 $DDTTABE DC    AL1(0)              END OF TABLE                         X0028000
                                     41          MEND                                                           X0030000






                                     43 *                                                                       X0034000
                                     44 ***** $GENDDTS *****          GENERATE DATA DEFINITION TABLES           X0036000
                                     45 *                                                                       X0038000
                                     46 *                                                                       X0040000
                                     47          MACRO                                                          X0042000
                                     48          $GENDDTS                                                       X0044000
                                     49          GBLA  &TEMP,&NUMDDT                                            X0046000
                                     50 &TEMP    SETA  1                                                        X0048000

                                     51 $DDTONE  DS    0F                                                       X0050000

                                     52 .A       ANOP                                                           X0052000
                                     53 DDT&TEMP DS    0F                                                       X0054000
                                     54 &TEMP    SETA  &TEMP+1                                                  X0056000
                                     55          DC    A(DDT&TEMP)             CHAIN WORD                       X0058000
                                     56          DC    (DDBLNG-4)X'0'                                           X0060000

                                     57          AIF   (&TEMP LE &NUMDDT).A                                     X0062000
                                     58 DDT&TEMP EQU   0                                                        X0064000
                                     59          MEND                                                           X0066000
XEQ      HASP PARTITION INFORMATION TABLE MACRO DEFINITION                                                     PAGE    4


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                     61 *                                                                       X0070000
                                     62 ***** $GENPIT  *****          GENERATE PARTITION INFORMATION TABLES     X0072000
                                     63 *                                                                       X0074000
                                     64 *                                                                       X0076000
                                     65          MACRO                                                          X0078000

                                     66          $GENPIT                                                        X0080000

                                     67          GBLA  &TEMP,&MAXPART,&MAXCLAS,&PRI(63),&SIZ(63)                X0082000
                                     68          GBLC  &XBATCHC,&PID(63),&OSC(63),&CLS(63)                      X0084000
                                     69 $PITABLE DS    0F             START OF PARTITION INFORMATION TABLES     X0086000
                                     70 &TEMP    SETA  1                                                        X0088000

                                     71 .A       SPACE 3                                                        X0090000
                                     72          DS    0F                                                       X0092000
                                     73          DC    AL1(&TEMP/&MAXPART*PITLAST)                              X0094000
                                     74          DC    CL1'&OSC(&TEMP)'                                         X0096000
                                     75          DC    CL2'&PID(&TEMP)'                                         X0098000
                                     76          DC    AL2(&SIZ(&TEMP))                                         X0100000
                                     77          DC    CL2'&PRI(&TEMP)'                                         X0102000
                                     78          AIF   ('&XBATCHC' EQ '').B                                     X0104000
                                     79          DC    XL14'00'                                                 X0106000
                                     80 .B       ANOP                                                           X0108000
                                     81          DC    CL&MAXCLAS'&CLS(&TEMP)',C' '                             X0110000

                                     82 &TEMP    SETA  &TEMP+1                                                  X0112000
                                     83          AIF   (&TEMP LE &MAXPART).A                                    X0114000
                                     84          MEND                                                           X0116000
XEQ      HASP OUTPUT PRIORITY TABLE DEFINITION MACRO                                                           PAGE    5



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                     86 *                                                                       X0120000
                                     87 ***** $XPRITAB *****               GENERATE OUTPUT PRIORITY TABLE       X0122000
                                     88 *                                                                       X0124000
                                     89 *                                                                       X0126000
                                     90          MACRO                                                          X0128000
                                     91 &L       $XPRITAB                                                       X0130000
                                     92          GBLA  &XPRI(10),&XLIN(10)                                      X0132000
                                     93          LCLA  &N,&A,&B                                                 X0134000
                                     94          AIF   ('&L' EQ '').AGAIN                                       X0136000
                                     95 &L       DS    0H                                                       X0138000
                                     96 .AGAIN   ANOP                                                           X0140000

                                     97 &N       SETA  &N+1                                                     X0142000
                                     98          AIF   (&N GT 10).END                                           X0144000
                                     99 &A       SETA  &XPRI(&N)*16                                             X0146000

                                    100 &B       SETA  &XLIN(&N)                                                X0148000
                                    101          MNOTE *,'PRIORITY &XPRI(&N) IF &B OR FEWER OUTPUT RECORDS' 4.0 X0150000
                                    102          DC    AL1(&A),AL3(&B)                                          X0152000
                                    103          AIF   (&XLIN(&N+1) GT &B).AGAIN                                X0154000
                                    104          DC    AL4(16777215)       END OF TABLE                 OY10206 X0155000
                                    105 .END     MEND                                                           X0156000
XEQ      HASP GLOBAL DEFINITIONS                                                                               PAGE    6


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    107          COPY  $GLOBAL                                                  X0160000
                                    108 *                                                                       GL002000
                                    109 *                             EXTERNAL CONFIGURATION PARAMETERS         GL004000
                                    110 *                                                                       GL006000





                                    112          GBLA  &NUMRDRS            NUMBER OF READERS                    GL012000
                                    113          GBLA  &NUMINRS            NUMBER OF INTERNAL READERS           GL016000

                                    114          GBLA  &NUMPRTS            NUMBER OF PRINTERS                   GL018000
                                    115          GBLA  &NUMPUNS            NUMBER OF PUNCHES                    GL020000
                                    116          GBLA  &NUMDA              NUMBER OF DIRECT ACCESS MODULES      GL024000





                                    118 *                                                                       GL032000
                                    119 *                             INTERNAL CONFIGURATION PARAMETERS         GL034000
                                    120 *                                                                       GL036000



                                    122          GBLA  &BUFSIZE            HASP BUFFER SIZE                     GL042000
                                    123          GBLA  &NUMBUF             NUMBER OF ASSEMBLED BUFFERS          GL044000
                                    124          GBLA  &RESCORE            RESERVED DYNAMIC CORE, K BYTES       GL046000

                                    125          GBLA  &OLAYSIZ            SIZE OF OVERLAY AREAS                GL050000
                                    126          GBLA  &NUMOACE            NUMBER OF OVERLAY AREAS              GL052000

                                    127          GBLA  &OLAYLEV            DEGREE OF OVERLAY                    GL054000

                                    128          GBLA  &NUMWTOQ            NUMBER OF WTO QUEUES                 GL056000
                                    129          GBLA  &NUMSMFB            NUMBER OF HASP SMF BUFFERS           GL057000
                                    130          GBLA  &SMFRSIZ            MAXIMUM SIZE OF HASP SMF RECORD      GL058000
                                    131          GBLA  &MAXJOBS            MAXIMUM NUMBER OF JOBS IN SYSTEM     GL060000
                                    132          GBLA  &JITSIZE            JOB INFORMATION TABLE ENTRY SIZE     GL062000
                                    133          GBLA  &NUMTGV             NUMBER OF TRACK GROUPS PER VOLUME    GL064000
                                    134          GBLA  &MAXXEQS            MAXIMUM JOBS FOR O/S MULTI-JOBBING   GL066000
                                    135          GBLA  &MAXPART            MAXIMUM ACTIVE PARTITIONS/INITIATORS GL068000
                                    136          GBLA  &MAXCLAS            MAXIMUM CLASSES/PIT                  GL070000
                                    137          GBLA  &NUMDDT             NUMBER OF DATA DEFINITION TABLES     GL072000
                                    138          GBLA  &MONINTV            TASK MONITOR TIME INTERVAL      RFIT GL072100
                                    139          GBLA  &XZMFTL             LOW DYNAMIC PRTY FOR MFT/VS1    RFIT GL072200

                                    140          GBLA  &XZMFTH             HI  DYNAMIC PRTY FOR MFT/VS1    RFIT GL072300
                                    141          GBLA  &NUMCLAS            MAX CLASSES PER PRT/PUN              GL074000
                                    142          GBLA  &BSPGCT             PAGES BETWEEN BSP TABLE ENTRIES      GL076000

                                    143          GBLA  &BSPNTE             BSP TABLE ENTRIES                    GL078000
                                    144          GBLA  &PRIRATE            PRIORITY AGING RATE                  GL082000
                                    145          GBLA  &PRIHIGH            PRIORITY AGING UPPER LIMIT           GL084000
                                    146          GBLA  &PRILOW             PRIORITY AGING LOWER LIMIT           GL086000
                                    147          GBLA  &RPRT(10)           READER TIME ESTIMATES                GL088000
                                    148          GBLA  &RPRI(10)           READER PRIORITIES                    GL090000
                                    149          GBLA  &XLIN(10)           LINES OUTPUT CLASS DEFINITION        GL092000
                                    150          GBLA  &XPRI(10)           PRIORITIES FOR ABOVE CLASSES         GL094000
                                    151          GBLA  &NOPRCCW            MAXIMUM NUMBER OF CCW'S USED BY PRT  GL096000
                                    152          GBLA  &NOPUCCW            MAXIMUM NUMBER OF CCW'S USED BY PUN  GL098000
XEQ      HASP GLOBAL DEFINITIONS                                                                               PAGE    7


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    154 *                                                                       GL116000
                                    155 *                             O/S INTERFACE PARAMETERS                  GL118000
                                    156 *                                                                       GL120000




                                    158          GBLA  &APGPRTY            AUTOMATIC PRIORITY GROUP - VS2       GL126000
                                    159          GBLC  &INITSVC            HASP INITIALIZATION SVC VALUE   RFIT GL126100
                                    160          GBLC  &RDR                EBCDIC NAME OF SYSTEM READER         GL128000
                                    161          GBLC  &WTR                EBCDIC NAME OF SYSTEM WRITER         GL130000
                                    162          GBLA  &JMRSIZE            JOB MANAGEMENT RECORD SIZE           GL132000
                                    163          GBLC  &WTRCLAS            CLASSES PROCESSED BY HASP WRITER     GL136000

                                    164          GBLC  &WCLSREQ            RE-QUEUE CLASSES FOR HASP WRITER     GL138000
                                    165          GBLC  &XBATCHC            XEQ BATCHING CLASSES                 GL140000
                                    166          GBLC  &XBATCHN            XEQ BATCHING JOBNAMES PREFIX         GL142000
                                    167          GBLC  &SPOOL              SPOOL VOLUME PREFIX                  GL143000
                                    168          GBLB  &SYSMFT             MFT SYSTEM SWITCH               RFIT GL143100
                                    169          GBLB  &SYSMVT             MVT SYSTEM SWITCH               RFIT GL143200
                                    170          GBLB  &SYSVS1             VS1 SYSTEM SWITCH               RFIT GL143300
                                    171          GBLB  &SYSVS2             VS2 SYSTEM SWITCH               RFIT GL143400







                                    173 *                                                                       GL150000
                                    174 *                             HASP OPTION PARAMETERS                    GL152000
                                    175 *                                                                       GL154000



                                    177          GBLB  &NO                 BINARY 'NO' CONSTANT                 GL160000
                                    178          GBLB  &YES                BINARY 'YES' CONSTANT                GL162000
                                    179          GBLB  &TIMER              INTERVAL TIMER OPTION                GL164000
                                    180          GBLB  &AUTORDR            AUTOMATIC STARTING READER OPTION     GL166000

                                    181          GBLA  &RJOBOPT            JOB CARD SCAN OPTION                 GL168000
                                    182          GBLB  &OSINOPT            O/S INPUT SPOOLING OPTION            GL170000
                                    183          GBLB  &TSOSTCN            STATUS/CANCEL SUPPORT OPTION         GL171000
                                    184          GBLB  &LOGOPT             HASP LOG OPTION                      GL172000
                                    185          GBLA  &TIMEOPT            TIME EXCESSION OPTION                GL176000

                                    186          GBLA  &OUTPOPT            OUTPUT EXCESSION OPTION              GL178000
                                    187          GBLB  &XZMULT             MULTI-TASKING MONITOR OPTION    RFIT GL178100
                                    188          GBLA  &JCOPYLM            OUTPUT JOB COPY LIMIT                GL178500

                                    189          GBLC  &STDFORM            STANDARD FORMS ID                    GL179000
                                    190          GBLC  &PRTFCB             STANDARD FCB ID                      GL179500
                                    191          GBLB  &PRTRANS            PRINT TRANSLATE OPTION               GL180000
                                    192          GBLB  &DMNDSET            DEMAND SETUP OPTION                  GL181000
                                    193          GBLC  &PRTUCS             PRINTER UNIV CHAR SET OPTION         GL182000
                                    194          GBLB  &FCBV               VARIABLE 3211 FCB OPTION             GL183000
                                    195          GBLB  &RPS                ROTATIONAL POSITION SENSING          GL185000

                                    196          GBLB  &DEBUG              DEBUG MODE                           GL186000
                                    197          GBLA  &TRACE              NUMBER ENTRIES IN HASP TRACE TABLE   GL188000
                                    198          GBLA  &OREPSIZ            SIZE OF OVERLAY REP STORAGE AREA     GL190000
XEQ      HASP GLOBAL DEFINITIONS                                                                               PAGE    8


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    200 *                                                                       GL226000
                                    201 *                             REMOTE JOB ENTRY PARAMETERS               GL228000
                                    202 *                                                                       GL230000




                                    204          GBLA  &NUMLNES            NUMBER OF REMOTE LINE ADAPTERS       GL236000
                                    205          GBLA  &NUMRJE             NUMBER OF REMOTE TERMINALS           GL238000
                                    206          GBLA  &TPBFSIZ            LENGTH OF RJE BUFFER WORK AREA       GL240000
                                    207          GBLA  &NUMTPBF            NUMBER OF RJE BUFFERS                GL242000
                                    208          GBLA  &SPOLMSG            REMOTE CONSOLE MESSAGE SPOOL SPACE   GL244000
                                    209          GBLB  &BSCCPU             BSC CPU TERMINAL RJE OPTION          GL246000

                                    210          GBLA  &NUMTPRD            NUMBER OF REMOTE INPUT PROCESSORS    GL248000
                                    211          GBLA  &NUMTPPR            NUMBER OF REMOTE PRINT PROCESSORS    GL250000
                                    212          GBLA  &NUMTPPU            NUMBER OF REMOTE PUNCH PROCESSORS    GL252000






                                    214 *                                                                       GL260000
                                    215 *                             INTERNAL GENERATION PARAMETERS            GL262000
                                    216 *                                                                       GL264000



                                    218          GBLC  &VERSION            HASP VERSION                         GL270000

                                    219          GBLA  &QENTSIZ            HASP JOB QUEUE ENTRY SIZE            GL272000
                                    220          GBLA  &RECINCR            RECORD ALTERNATION PARAMETER         GL274000
                                    221          GBLA  &CYLMAPL            DA ALLOCATION MAP LENGTH             GL276000
                                    222          GBLA  &NUMPRC             NUMBER OF OUTPUT CKPT ELEMENTS       GL276500
                                    223          GBLA  &NUMJOES            NUMBER OF JOB OUTPUT ELEMENTS        GL277000

                                    224          GBLA  &MINJOES            MINIMUM NUMBER OF FREE JOES          GL277500
                                    225          GBLA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     GL278000
                                    226          GBLA  &LOW                OVERLAY PRIORITY                     GL280000
                                    227          GBLA  &MED                 AND RESIDENCE SUSCEPTIBILITY        GL282000
                                    228          GBLA  &HIGH                 PARAMETER VALUES                   GL284000

                                    229          GBLC  &OSECT              CSECT GENERATED BY $OVERLAY          GL286000
                                    230          GBLA  &TEMP               TEMPORARY VARIABLE                   GL288000
                                    231          GBLC  &PID(63)            PARTITION/INITIATOR IDENT            X0162000
                                    232          GBLA  &SIZ(63)            PARTITION/REGION SIZE                X0164000
                                    233          GBLA  &PRI(63)            INITIATOR PRIORITY                   X0166000
                                    234          GBLC  &OSC(63)            PARTITION/INITIATOR (OS) CLASS       X0168000
                                    235          GBLC  &CLS(63)            PART/INIT (HASP) CLASSES             X0170000
                                    236          LCLC  &IBLKSZE            DEFAULT/MAXIMUM SYSIN BLOCKSIZE      X0172000
                                    237          LCLC  &OBLKSZE            DEFAULT/MAXIMUM SYSOUT BLOCKSIZE     X0174000
                                    238          LCLC  &DOC                DOCUMENTATION OPTION                 X0176000
                                    239          LCLC  &XI1SECT            XEQ INITIALIZATION-1 CSECT NAME      X0178000
                                    240          LCLC  &XI2SECT            XEQ INITIALIZATION-2 CSECT NAME      X0180000

                                    241          LCLC  &XI3SECT            XEQ INITIALIZATION-3 CSECT NAME      X0182000
                                    242          LCLC  &TEMPC              TEMPORARY SETC VARIABLE              X0184000
XEQ      HASP EXECUTION PROCESSORS                                                                             PAGE    9



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                              245 HASPXEQ  START 0                   HASP EXECUTION PROCESSORS            X0190000






                                    247 *                                                                       X0194000
                                    248 *                             EXTERNAL REFERENCES                       X0196000
                                    249 *                                                                       X0198000




                                    251          ENTRY $EXCPSVC            ENTRY TO PSEUDO DEVICE EXIT          X0202000
                                    252          ENTRY XJCLSCAN            ENTRY TO INTERPRETTER EXIT           X0204000
                                    253          ENTRY XTERMSMF            ENTRY TO TERMINATION EXIT            X0206000
                                    254          ENTRY $XWTREND            ENTRY TO NOTIFY XEQ OF JOB END       X0208000
                                    255          ENTRY HASPXTHW            HASP EXECUTION THAW PROCESSOR        X0210000

                                    256          ENTRY HASPLOG             HASP SYSTEM LOG PROCESSOR            X0212000
                                    257          ENTRY $PITABLE            HASP PARTITION INFORMATION TABLES    X0214000
XEQ      HASP EXECUTION PROCESSOR HASPGEN VALUES                                                               PAGE   10


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                            00001   260 $TIMEXS  EQU   1                   TIME EXCESSION MESSAGE INCREMENT     X0220000

                            007D0   261 $OUTXS   EQU   2000                OUTPUT EXCESSION MESSAGE INCREMENT   X0222000






                                    263 &IBLKSZE SETC  '080'               DEFAULT/MAXIMUM SYSIN BLOCKSIZE      X0226000
                                    264 &OBLKSZE SETC  '145'               DEFAULT/MAXIMUM SYSOUT BLOCKSIZE     X0228000





                                    266          COPY  $HASPGEN            COPY HASPGEN PARAMETERS              X0232000

XEQ      HASPGEN PARAMETER VALUES                                                                              PAGE   11


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    268 *                                                                       HA004000
                                    269 *                             EXTERNAL CONFIGURATION PARAMETERS         HA006000
                                    270 *                                                                       HA008000



                                    272 &NUMRDRS SETA  1 ******************NUMBER OF READERS                    HA012000
                                    273 &NUMINRS SETA  6 ******************NUMBER OF INTERNAL READERS           HA016000

                                    274 &NUMPRTS SETA  2 ******************NUMBER OF PRINTERS                   HA018000
                                    275 &NUMPUNS SETA  1 ******************NUMBER OF PUNCHES                    HA020000

                                    276 &NUMDA   SETA  2                   NUMBER OF DIRECT ACCESS MODULES      HA024000




                                    278 *                                                                       HA028000
                                    279 *                             INTERNAL CONFIGURATION PARAMETERS         HA030000

                                    280 *                                                                       HA032000



                                    282 &BUFSIZE SETA  1960                HASP BUFFER SIZE                     HA036000
                                    283 &BUFSIZE SETA  (&BUFSIZE+7)/8*8    ROUND BUFFER SIZE UP TO DOUBLE WORDS HA038000
                                    284 &NUMBUF  SETA  15                  NUMBER OF ASSEMBLED BUFFERS          HA040000
                                    285 &RESCORE SETA  0                   RESERVED DYNAMIC CORE, K BYTES       HA042000
                                    286 &OLAYSIZ SETA  1280                SIZE OF OVERLAY AREAS                HA046000
                                    287 &NUMOACE SETA  2                   NUMBER OF OVERLAY AREAS              HA048000
                                    288 &OLAYLEV SETA  15                  DEGREE OF OVERLAY                    HA050000

                                    289 &NUMWTOQ SETA  64 *****************NUMBER OF WTO QUEUES                 HA052000

                                    290 &NUMSMFB SETA  5                   NUMBER OF HASP SMF BUFFERS           HA053000
                                    291 &SMFRSIZ SETA  228                 MAXIMUM SIZE OF HASP SMF RECORD      HA054000
                                    292 &MAXJOBS SETA  100 ****************MAXIMUM NUMBER OF JOBS IN SYSTEM     HA056000
                                    293 &JITSIZE SETA  8                   JOB INFORMATION TABLE ENTRY SIZE     HA058000
                                    294 &NUMTGV  SETA  400                 NUMBER OF TRACK GROUPS PER VOLUME    HA060000

                                    295 &MAXXEQS SETA  3 ******************MAXIMUM JOBS FOR O/S MULTI-JOBBING   HA062000
                                    296 &MAXPART SETA  &MAXXEQS            MAXIMUM ACTIVE PARTITIONS/INITIATORS HA064000
                                    297 &MAXCLAS SETA  8                   MAXIMUM CLASSES/PIT                  HA066000
                                    298 &NUMDDT  SETA  96 *****************NUMBER OF DATA DEFINITION TABLES     HA068000
                                    299 &MONINTV SETA  0                   TASK MONITOR TIME INTERVAL      RFIT HA068100
                                    300 &XZMFTL  SETA X'00'                LOW DYNAMIC PRTY FOR MFT/VS1    RFIT HA068200
                                    301 &XZMFTH  SETA X'FF'                HI  DYNAMIC PRTY FOR MFT/VS1    RFIT HA068300
                                    302 &NUMCLAS SETA  8                   MAX CLASSES PER PRT/PUN              HA070000
                                    303 &BSPGCT  SETA  32                  PAGES BETWEEN BSP TABLE ENTRIES      HA072000
                                    304 &BSPNTE  SETA  4                   BSP TABLE ENTRIES                    HA074000

                                    305 &PRIRATE SETA  0                   PRIORITY AGING RATE                  HA078000

                                    306 &PRIHIGH SETA  10                  PRIORITY AGING UPPER LIMIT           HA080000
                                    307 &PRILOW  SETA  5                   PRIORITY AGING LOWER LIMIT           HA082000
                                    308 &NOPRCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PRT  HA084000
                                    309 &NOPUCCW SETA  30                  MAXIMUM NUMBER OF CCW'S USED BY PUN  HA086000

                            0003C   310 $CKPTIME EQU   60                  SYSTEM CHECKPOINT INTERVAL           HA094000
XEQ      HASPGEN PARAMETER VALUES                                                                              PAGE   12


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




                                    313 *                                                                       HA100000
                                    314 *                             O/S INTERFACE PARAMETERS                  HA102000
                                    315 *                                                                       HA104000



                                    317 &APGPRTY SETA  7                   AUTOMATIC PRIORITY GROUP - VS2       HA108000
                                    318 &RDR     SETC  '700' **************EBCDIC NAME OF SYSTEM READER         HA110000

                                    319 &WTR     SETC  '720' **************EBCDIC NAME OF SYSTEM WRITER         HA112000
                                    320 &JMRSIZE SETA  56                  JOB MANAGEMENT RECORD SIZE           HA114000
                                    321 &WTRCLAS SETC  'AH' ***************CLASSES PROCESSED BY HASP WRITER     HA118000
                                    322 &WCLSREQ SETC  '*X' ***************RE-QUEUE CLASSES FOR HASP WRITER     HA120000

                                    323 &XBATCHC SETC  ''                  XEQ BATCHING CLASSES                 HA122000
                                    324 &XBATCHN SETC  '$$$$$'             XEQ BATCHING JOBNAMES PREFIX         HA124000
                                    325 &SPOOL   SETC  'SPOOL'             SPOOL VOLUME PREFIX                  HA125000
                                    326 &SYSMFT  SETB  0                   MFT SYSTEM OPTION               RFIT HA125100
                                    327 &SYSMVT  SETB  1 ******************MVT SYSTEM OPTION               RFIT HA125200
                                    328 &SYSVS1  SETB  0                   VS1 SYSTEM OPTION               RFIT HA125300
                                    329 &SYSVS2  SETB  0 ******************VS2 SYSTEM OPTION               RFIT HA125400



                                    331 *                                                                  RFIT HA125600
                                    332 *                             HASP SVC NUMBER                      RFIT HA125700
                                    333 *                                                                  RFIT HA125800
                                    334          COPY  $INITSVC                                            RFIT HA125900

                                    335 &INITSVC SETC  '220' **************HASP INITIALIZATION SVC VALUE   RFIT






                                    337 *                                                                       HA130000
                                    338 *                             HASP OPTION PARAMETERS                    HA132000
                                    339 *                                                                       HA134000



                                    341 &YES     SETB  1                   ASSIGN BINARY 'YES' CONSTANT         HA138000
                                    342 &NO      SETB  0                   ASSIGN BINARY 'NO' CONSTANT          HA140000
                                    343 &TIMER   SETB  (&YES)              INTERVAL TIMER OPTION                HA142000
                                    344 &AUTORDR SETB  (&YES)              AUTOMATIC STARTING READER OPTION     HA144000
                                    345 &RJOBOPT SETA  2                   JOB CARD SCAN OPTION                 HA146000
                                    346 &OSINOPT SETB  (&NO)               O/S INPUT SPOOLING OPTION            HA148000
                                    347 &TSOSTCN SETB  (&YES) *************STATUS/CANCEL SUPPORT OPTION         HA149000
                                    348 &LOGOPT  SETB  (&YES)              HASP LOG OPTION                      HA150000

                                    349 &TIMEOPT SETA  4                   TIME EXCESSION OPTION                HA154000

                                    350 &OUTPOPT SETA  0                   OUTPUT EXCESSION OPTION              HA156000
                                    351 &XZMULT  SETB  (&YES)              MULTI-TASKING MONITOR OPTION    RFIT HA156100

                                    352 &JCOPYLM SETA  20 *****************OUTPUT JOB COPY LIMIT                HA156500
                                    353 &STDFORM SETC  'STD.'              STANDARD FORMS ID                    HA157000
XEQ      HASPGEN PARAMETER VALUES                                                                              PAGE   13


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    354 &PRTFCB  SETC  '6'                 STANDARD FCB ID                      HA157500
                                    355 &PRTRANS SETB  (&NO) **************PRINT TRANSLATE OPTION               HA158000
                                    356 &DMNDSET SETB  (&YES)              ALLOW DEMAND SETUP IN MSGCLASS       HA159000
                                    357 &PRTUCS  SETC  '0'                 PRINTER UNIV CHAR SET OPTION         HA160000
                                    358 &FCBV    SETB  (&NO)               VARIABLE 3211 FCB OPTION             HA161000
                                    359 &RPS     SETB  (&NO)               ROTATIONAL POSITION SENSING          HA163000
                                    360 &DEBUG   SETB  (&NO)               DEBUG MODE                           HA164000
                                    361 &TRACE   SETA  0                   NUMBER ENTRIES IN HASP TRACE TABLE   HA166000

                                    362 &OREPSIZ SETA  50                  SIZE OF OVERLAY REP STORAGE AREA     HA168000
XEQ      HASPGEN PARAMETER VALUES                                                                              PAGE   14



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    365 *                                                                       HA174000
                                    366 *                             REMOTE JOB ENTRY PARAMETERS               HA176000
                                    367 *                                                                       HA178000



                                    369 &NUMLNES SETA  0                   NUMBER OF REMOTE LINE ADAPTERS       HA182000
                                    370 &NUMRJE  SETA  &NUMLNES            NUMBER OF REMOTE TERMINALS           HA184000
                                    371 &TPBFSIZ SETA  400                 LENGTH OF RJE BUFFER WORK AREA       HA186000
                                    372 &NUMTPBF SETA  &NUMLNES            NUMBER OF RJE BUFFERS                HA188000
                                    373 &SPOLMSG SETA  10*&NUMRJE          REMOTE CONSOLE MESSAGE SPOOL SPACE   HA190000
                                    374 &BSCCPU  SETB  (&NO)               BSC CPU TERMINAL RJE OPTION          HA192000

                                    375 &NUMTPRD SETA  &NUMLNES            NUMBER OF REMOTE INPUT PROCESSORS    HA194000
                                    376 &NUMTPPR SETA  &NUMLNES            NUMBER OF REMOTE PRINT PROCESSORS    HA196000
                                    377 &NUMTPPU SETA  &NUMLNES            NUMBER OF REMOTE PUNCH PROCESSORS    HA198000






                                    379 *                                                                       HA202000
                                    380 *                             INTERNAL GENERATION PARAMETERS            HA204000
                                    381 *                                                                       HA206000



                                    383 &VERSION SETC  '4.0'               HASP VERSION                         HA210000
                                    384 &VERSION SETC  '4.009762'          PTF LEVEL  370H-09762                HA211000
                                    385 &QENTSIZ SETA  16                  HASP JOB QUEUE ENTRY SIZE            HA212000
                                    386 &RECINCR SETA  2                   RECORD ALTERNATION PARAMETER         HA214000
                                    387 &CYLMAPL SETA  ((&NUMTGV+7)/8)*&NUMDA   DA ALLOCATION MAP LENGTH        HA216000
                                    388 &NUMPRC  SETA  &NUMPRTS+&NUMPUNS+&NUMTPPR+&NUMTPPU OUT CKPT ELEMS       HA216500

                                    389 &NUMJOES SETA  64 *****************NUMBER OF JOB OUTPUT ELEMENTS        HA217000
                                    390 &MINJOES SETA  &NUMJOES/5          MINIMUM NUMBER OF FREE JOES          HA217500
                                    391 &MINBUF  SETA  3*&NUMRDRS+2*&NUMINRS+2*&NUMPRTS+&NUMPUNS                HA218000
                                    392 &MINBUF  SETA  &MINBUF+4*&MAXXEQS+2*&NUMTPBF                            HA220000

                                    393 &MINBUF  SETA  &MINBUF             MINIMUM BUFFER WARNING THRESHOLD     HA222000
                                    394 &LOW     SETA  4                   OVERLAY PRIORITY                     HA224000
                                    395 &MED     SETA  8                    AND RESIDENCE SUSCEPTIBILITY        HA226000
                                    396 &HIGH    SETA  12                    PARAMETER VALUES                   HA228000
XEQ      HASP GENERAL REGISTER DEFINITIONS                                                                     PAGE   15


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                    399 *                                                                       HA234000
                                    400 *                             ABSOLUTE REGISTER DEFINITIONS             HA236000
                                    401 *                                                                       HA238000



                            00000   403 R0       EQU   0                                                        HA242000
                            00001   404 R1       EQU   1                                                        HA244000

                            00002   405 R2       EQU   2                                                        HA246000
                            00003   406 R3       EQU   3                                                        HA248000

                            00004   407 R4       EQU   4                                                        HA250000
                            00005   408 R5       EQU   5                                                        HA252000
                            00006   409 R6       EQU   6                                                        HA254000
                            00007   410 R7       EQU   7                                                        HA256000
                            00008   411 R8       EQU   8                                                        HA258000
                            00009   412 R9       EQU   9                                                        HA260000
                            0000A   413 R10      EQU   10                                                       HA262000
                            0000B   414 R11      EQU   11                                                       HA264000

                            0000C   415 R12      EQU   12                                                       HA266000
                            0000D   416 R13      EQU   13                                                       HA268000
                            0000E   417 R14      EQU   14                                                       HA270000
                            0000F   418 R15      EQU   15                                                       HA272000






                                    420 *                                                                       HA276000
                                    421 *                             SYMBOLIC REGISTER DEFINITIONS             HA278000

                                    422 *                                                                       HA280000



                            00002   424 WA       EQU   R2                  WORK REGISTER A                      HA284000
                            00003   425 WB       EQU   R3                  WORK REGISTER B                      HA286000
                            00004   426 WC       EQU   R4                  WORK REGISTER C                      HA288000
                            00005   427 WD       EQU   R5                  WORK REGISTER D                      HA290000
                            00006   428 WE       EQU   R6                  WORK REGISTER E                      HA292000

                            00007   429 WF       EQU   R7                  WORK REGISTER F                      HA294000
                            00008   430 WG       EQU   R8                  WORK REGISTER G                      HA296000
                            00008   431 BASE3    EQU   R8                  OVERLAY ADDRABILITY REGISTER         HA298000
                            0000A   432 JCT      EQU   R10                 JCT ADDRESSABILITY REGISTER          HA300000
                            0000B   433 BASE1    EQU   R11                 HCT ADDRESSABILITY REGISTER          HA302000

                            0000C   434 BASE2    EQU   R12                 PROCESSOR ADDRESSABILITY REGISTER    HA304000
                            0000D   435 SAVE     EQU   R13                 PCE ADDRESSABILITY REGISTER          HA306000
                            0000E   436 LINK     EQU   R14                 LINK REGISTER                        HA308000
XEQ      HASP CONDITIONAL BRANCH MASKS                                                                         PAGE   16



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78











                            00000   439 NOP      EQU   0                   NO-OP                                HA314000

                            00001   440 O        EQU   1                   ONES OR OVERFLOW                     HA316000
                            00002   441 H        EQU   2                   HIGH                                 HA318000
                            00002   442 P        EQU   2                   PLUS                                 HA320000
                            00004   443 L        EQU   4                   LOW                                  HA322000
                            00004   444 M        EQU   4                   MINUS OR MIXED                       HA324000

                            00007   445 NE       EQU   7                   NOT EQUAL                            HA326000
                            00007   446 NZ       EQU   7                   NOT ZERO                             HA328000
                            00008   447 E        EQU   8                   EQUAL                                HA330000
                            00008   448 Z        EQU   8                   ZERO                                 HA332000

                            0000B   449 NL       EQU   11                  NOT LOW                              HA334000
                            0000B   450 NM       EQU   11                  NOT MINUS OR NOT MIXED               HA336000
                            0000D   451 NH       EQU   13                  NOT HIGH                             HA338000
                            0000D   452 NP       EQU   13                  NOT PLUS                             HA340000
                            0000E   453 NO       EQU   14                  NOT ONES OR NOT OVERFLOW             HA342000
XEQ      HASP EVENT WAIT FIELD DEFINITIONS                                                                     PAGE   17



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    455 *                                                                       HA346000
                                    456 *                             BIT DEFINITIONS                           HA348000
                                    457 *                                                                       HA350000




                            00080   459 $EWFPOST EQU   X'80'               PCE $POSTED FLAG                     HA354000
                            00040   460 $EWFBUF  EQU   X'40'               WAITING FOR A BUFFER                 HA356000
                            00020   461 $EWFTRAK EQU   X'20'               WAITING FOR A TRACK                  HA358000
                            00010   462 $EWFJOB  EQU   X'10'               WAITING FOR A JOB                    HA360000
                            00008   463 $EWFUNIT EQU   X'08'               WAITING FOR A UNIT                   HA362000

                            00004   464 $EWFCKPT EQU   X'04'               WAITING FOR A CHECKPOINT             HA364000
                            00002   465 $EWFCMB  EQU   X'02'               WAITING FOR A CONSOLE MESSAGE BUFFER HA366000
                            00002   466 $EWFSMF  EQU   X'02'               WAITING FOR SMF BUFFER               HA367000
                            00001   467 $EWFJOT  EQU   X'01'               WAITING FOR JOT SERVICE              HA368000
                                    468 *                                                                       HA370000

                            00080   469 $EWFOPER EQU   X'80'               WAITING FOR AN OPERATOR RESPONSE     HA372000
                            00040   470 $EWFIO   EQU   X'40'               WAITING FOR I/O                      HA374000
                            00020   471 $EWFWORK EQU   X'20'               WAITING TO BE RE-DIRECTED            HA376000
                            00010   472 $EWFHOLD EQU   X'10'               WAITING FOR A $S COMMAND             HA378000
                            00008   473 $EWFDDB  EQU   X'08'               WAITING FOR A DDT OR UCB             HA380000

                            00004   474 $EWFOLAY EQU   X'04'               WAITING FOR OVERLAY AREA             HA382000
                            00002   475 $EWF15   EQU   X'02'               SPARE                                HA384000
                            00001   476 $EWFOROL EQU   X'01'               GAVE UP OVERLAY AREA                 HA386000





                                    478 *                                                                       HA390000

                                    479 *                             BYTE DEFINITIONS                          HA392000
                                    480 *                                                                       HA394000



                            00000   482 $EWBPOST EQU   0                   BYTE 0                               HA398000

                            00000   483 $EWBBUF  EQU   0                   BYTE 0                               HA400000
                            00000   484 $EWBTRAK EQU   0                   BYTE 0                               HA402000
                            00000   485 $EWBJOB  EQU   0                   BYTE 0                               HA404000
                            00000   486 $EWBUNIT EQU   0                   BYTE 0                               HA406000
                            00000   487 $EWBCKPT EQU   0                   BYTE 0                               HA408000

                            00000   488 $EWBCMB  EQU   0                   BYTE 0                               HA410000
                            00000   489 $EWBSMF  EQU   0                   BYTE 0                               HA411000
                            00000   490 $EWBJOT  EQU   0                   BYTE 0                               HA412000
                                    491 *                                                                       HA414000
                            00001   492 $EWBOPER EQU   1                   BYTE 1                               HA416000
                            00001   493 $EWBIO   EQU   1                   BYTE 1                               HA418000
                            00001   494 $EWBWORK EQU   1                   BYTE 1                               HA420000

                            00001   495 $EWBHOLD EQU   1                   BYTE 1                               HA422000
                            00001   496 $EWBDDB  EQU   1                   BYTE 1                               HA424000
                            00001   497 $EWBOLAY EQU   1                   BYTE 1                               HA426000

                            00001   498 $EWB15   EQU   1                   BYTE 1                               HA428000
                            00001   499 $EWBOROL EQU   1                   BYTE 1                               HA430000
XEQ      HASP $WTO MACRO PARAMETER DEFINITIONS                                                                 PAGE   18


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    502 *                                                                       HA436000
                                    503 *                             LOGICAL CONSOLE DEFINITIONS               HA438000
                                    504 *                                                                       HA440000



                            00001   506 $LOG     EQU   X'01'               SYSTEM LOG CONSOLE                   HA444000
                            00002   507 $ERR     EQU   X'02'               ERROR CONSOLE                        HA446000
                            00004   508 $UR      EQU   X'04'               UNIT RECORD OPERATIONS AREA          HA448000

                            00008   509 $TP      EQU   X'08'               TELE-PROCESSING OPERATIONS AREA      HA450000
                            00010   510 $TAPE    EQU   X'10'               TAPE HANDLING OPERATIONS AREA        HA452000

                            00020   511 $MAIN    EQU   X'20'               CHIEF OPERATORS AREA                 HA454000
                            00040   512 $OS      EQU   X'40'               CONSOLE FOR O/S MESSAGES             HA456000
                            00080   513 $SPARE   EQU   X'80'               SPARE                                HA458000
                            000FF   514 $ALL     EQU   X'FF'               ALL DEFINED LOCAL CONSOLES           HA460000
                            00000   515 $REMOTE  EQU   X'00'               CONSOLE ON REMOTE TERMINAL           HA462000






                                    517 *                                                                       HA466000
                                    518 *                             MESSAGE CLASS DEFINITIONS                 HA468000
                                    519 *                                                                       HA470000



                            00010   521 $TRIVIA  EQU   X'10'               NON-ESSENTIAL MESSAGES               HA474000
                            00030   522 $NORMAL  EQU   X'30'               NORMAL MESSAGES                      HA476000
                            00050   523 $ACTION  EQU   X'50'               MESSAGES REQUIRING OPERATOR ACTION   HA478000

                            00070   524 $ALWAYS  EQU   X'70'               MESSAGES WHICH SHOULD ALWAYS BE SENT HA480000

                            00080   525 $DOMACT  EQU   X'80'               ACTION REQUIRING A $DOM FLAG         HA481000




                                    527 *                                                                       HA484000
                                    528 *                             MESSAGE PRIORITY DEFINITIONS              HA486000

                                    529 *                                                                       HA488000



                            00001   531 $LO      EQU   1                   LOW PRIORITY                         HA492000
                            00004   532 $ST      EQU   4                   STANDARD PRIORITY                    HA494000
                            00007   533 $HI      EQU   7                   HIGH PRIORITY                        HA496000
XEQ      HASP INITIALIZATION AND STATUS BIT DEFINITIONS                                                        PAGE   19


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                    536 *                                                                       HA502000

                                    537 *                             INITIALIZATION PARAMETER BIT DEFINITIONS  HA504000

                                    538 *                                                                       HA506000



                            00080   540 $OPTFMT  EQU   X'80'               FORMAT-- FORCE FORMAT OPTION         HA510000
                            00000   541 $OPTNFMT EQU   X'00'               NOFMT -- NO-FORCE FORMAT OPTION      HA512000

                            00040   542 $OPTCOLD EQU   X'40'               COLD  -- COLD START OPTION           HA514000
                            00000   543 $OPTWARM EQU   X'00'               WARM  -- WARM START OPTION           HA516000
                            00020   544 $OPTREQ  EQU   X'20'               REQ   -- REQUEST OPTION              HA518000
                            00000   545 $OPTNREQ EQU   X'00'               NOREQ -- NO-REQUEST OPTION           HA520000
                            00010   546 $OPTREP  EQU   X'10'               REP   -- REP OPTION                  HA522000
                            00000   547 $OPTNREP EQU   X'00'               NOREP -- NO-REP OPTION               HA524000
                            00008   548 $OPTLIST EQU   X'08'               LIST  -- REP LIST OPTION             HA526000
                            00000   549 $OPTNLST EQU   X'00'               NOLIST-- REP NOLIST OPTION           HA528000
                            00004   550 $OPTRACE EQU   X'04'               TRACE -- TRACE OPTION                HA530000
                            00000   551 $OPTNTRC EQU   X'00'               NOTRACE- NO-TRACE OPTION             HA532000






                                    553 *                                                                       HA536000
                                    554 *                             HASP STATUS BIT DEFINITIONS               HA538000
                                    555 *                                                                       HA540000




                            00080   557 $RDRPEND EQU   X'80'               O/S READER IS PENDING                HA544000
                            00040   558 $ALMSGSW EQU   X'40'               ALL AVAILABLE FUNCTIONS MSG ISSUED   HA546000
                            00020   559 $DRAINED EQU   X'20'               SYSTEM HAS BEEN $DRAINED             HA548000
                            00010   560 $CKPTACT EQU   X'10'               CHECKPOINT IS IN PROGRESS            HA550000
                            00008   561 $JITCKPT EQU   X'08'               CHECKPOINT JOB INFORMATION TABLE     HA552000
                            00004   562 $SYSEXIT EQU   X'04'               HASP SYSTEM IN TERMINATION PROCESS   HA554000
                            00002   563 $JOTCKPT EQU   X'02'               CHECKPOINT JOB OUTPUT TABLE          HA555000
XEQ      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   20


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    566 *                                                                       HA560000
                                    567 *                             ESTIMATED EXECUTION TIME UPPER LIMITS     HA562000
                                    568 *                                                                       HA564000




                                    570 &RPRT(1) SETA  2                   FIRST INTERVAL                       HA568000
                                    571 &RPRT(2) SETA  5                   SECOND INTERVAL                      HA570000
                                    572 &RPRT(3) SETA  15                  THIRD INTERVAL                       HA572000
                                    573 &RPRT(4) SETA  X'FFFFFF'/60        FOURTH INTERVAL                      HA574000
                                    574 &RPRT(5) SETA  X'FFFFFF'/60        FIFTH INTERVAL                       HA576000
                                    575 &RPRT(6) SETA  X'FFFFFF'/60        SIXTH INTERVAL                       HA578000
                                    576 &RPRT(7) SETA  X'FFFFFF'/60        SEVENTH INTERVAL                     HA580000
                                    577 &RPRT(8) SETA  X'FFFFFF'/60        EIGHTH INTERVAL                      HA582000
                                    578 &RPRT(9) SETA  X'FFFFFF'/60        NINTH INTERVAL                       HA584000






                                    580 *                                                                       HA588000

                                    581 *                             PRIORITIES ASSOCIATED WITH ABOVE TIMES    HA590000
                                    582 *                                                                       HA592000




                                    584 &RPRI(1) SETA  9                   FIRST INTERVAL                       HA596000
                                    585 &RPRI(2) SETA  8                   SECOND INTERVAL                      HA598000
                                    586 &RPRI(3) SETA  7                   THIRD INTERVAL                       HA600000
                                    587 &RPRI(4) SETA  6                   FOURTH INTERVAL                      HA602000
                                    588 &RPRI(5) SETA  5                   FIFTH INTERVAL                       HA604000
                                    589 &RPRI(6) SETA  4                   SIXTH INTERVAL                       HA606000
                                    590 &RPRI(7) SETA  3                   SEVENTH INTERVAL                     HA608000
                                    591 &RPRI(8) SETA  2                   EIGHTH INTERVAL                      HA610000
                                    592 &RPRI(9) SETA  1                   NINTH INTERVAL                       HA612000
XEQ      HASP AUTOMATIC PRIORITY ASSIGNEMENT VALUES                                                            PAGE   21


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78








                                    595 *                                                                       HA618000

                                    596 *                             GROUP DEFINITIONS FOR LINES OF OUTPUT     HA620000
                                    597 *                                                                       HA622000



                                    599 &XLIN(1) SETA  2000                FIRST INTERVAL                       HA626000
                                    600 &XLIN(2) SETA  5000                SECOND INTERVAL                      HA628000
                                    601 &XLIN(3) SETA  15000               THIRD INTERVAL                       HA630000
                                    602 &XLIN(4) SETA  X'FFFFFF'           FOURTH INTERVAL                      HA632000
                                    603 &XLIN(5) SETA  X'FFFFFF'           FIFTH INTERVAL                       HA634000
                                    604 &XLIN(6) SETA  X'FFFFFF'           SIXTH INTERVAL                       HA636000
                                    605 &XLIN(7) SETA  X'FFFFFF'           SEVENTH INTERVAL                     HA638000
                                    606 &XLIN(8) SETA  X'FFFFFF'           EIGHTH INTERVAL                      HA640000
                                    607 &XLIN(9) SETA  X'FFFFFF'           NINTH INTERVAL                       HA642000






                                    609 *                                                                       HA646000

                                    610 *                             PRIORITIES ASSOCIATED WITH ABOVE GROUPS   HA648000
                                    611 *                                                                       HA650000



                                    613 &XPRI(1) SETA  9                   FIRST INTERVAL                       HA654000
                                    614 &XPRI(2) SETA  8                   SECOND INTERVAL                      HA656000
                                    615 &XPRI(3) SETA  7                   THIRD INTERVAL                       HA658000
                                    616 &XPRI(4) SETA  6                   FOURTH INTERVAL                      HA660000
                                    617 &XPRI(5) SETA  5                   FIFTH INTERVAL                       HA662000
                                    618 &XPRI(6) SETA  4                   SIXTH INTERVAL                       HA664000
                                    619 &XPRI(7) SETA  3                   SEVENTH INTERVAL                     HA666000
                                    620 &XPRI(8) SETA  2                   EIGHTH INTERVAL                      HA668000
                                    621 &XPRI(9) SETA  1                   NINTH INTERVAL                       HA670000

XEQ      HASP PARTITION/INITIATOR PARAMETER ASSIGNMENT VALUES                                                  PAGE   22


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    623 *                                                                       X0236000
                                    624 *                             PARTITION/INITIATOR IDENTIFICATION        X0238000

                                    625 *                                                                       X0240000



                                    627 &PID(1)  SETC  '1'                 ID FOR LOGICAL PARTITION 1           X0244000
                                    628 &PID(2)  SETC  '2'                 ID FOR LOGICAL PARTITION 2           X0246000
                                    629 &PID(3)  SETC  '3'                 ID FOR LOGICAL PARTITION 3           X0248000
                                    630 &PID(4)  SETC  '4'                 ID FOR LOGICAL PARTITION 4           X0250000

                                    631 &PID(5)  SETC  '5'                 ID FOR LOGICAL PARTITION 5           X0252000
                                    632 &PID(6)  SETC  '6'                 ID FOR LOGICAL PARTITION 6           X0254000
                                    633 &PID(7)  SETC  '7'                 ID FOR LOGICAL PARTITION 7           X0256000
                                    634 &PID(8)  SETC  '8'                 ID FOR LOGICAL PARTITION 8           X0258000
                                    635 &PID(9)  SETC  '9'                 ID FOR LOGICAL PARTITION 9           X0260000
                                    636 &PID(10) SETC  '10'                ID FOR LOGICAL PARTITION 10          X0262000
                                    637 &PID(11) SETC  '11'                ID FOR LOGICAL PARTITION 11          X0264000
                                    638 &PID(12) SETC  '12'                ID FOR LOGICAL PARTITION 12          X0266000

                                    639 &PID(13) SETC  '13'                ID FOR LOGICAL PARTITION 13          X0268000
                                    640 &PID(14) SETC  '14'                ID FOR LOGICAL PARTITION 14          X0270000

                                    641 &PID(15) SETC  '15'                ID FOR LOGICAL PARTITION 15          X0272000





                                    643 *                                                                       X0276000
                                    644 *                             INITIATOR PRIORITY                        X0278000
                                    645 *                                                                       X0280000



                                    647 &PRI(1)  SETA  7                   PRIORITY (PRTY) OF INITIATOR 1       X0284000

                                    648 &PRI(2)  SETA  7                   PRIORITY (PRTY) OF INITIATOR 2       X0286000
                                    649 &PRI(3)  SETA  7                   PRIORITY (PRTY) OF INITIATOR 3       X0288000
                                    650 &PRI(4)  SETA  7                   PRIORITY (PRTY) OF INITIATOR 4       X0290000
                                    651 &PRI(5)  SETA  7                   PRIORITY (PRTY) OF INITIATOR 5       X0292000
                                    652 &PRI(6)  SETA  7                   PRIORITY (PRTY) OF INITIATOR 6       X0294000

                                    653 &PRI(7)  SETA  7                   PRIORITY (PRTY) OF INITIATOR 7       X0296000
                                    654 &PRI(8)  SETA  7                   PRIORITY (PRTY) OF INITIATOR 8       X0298000
                                    655 &PRI(9)  SETA  7                   PRIORITY (PRTY) OF INITIATOR 9       X0300000

                                    656 &PRI(10) SETA  7                   PRIORITY (PRTY) OF INITIATOR 10      X0302000
                                    657 &PRI(11) SETA  7                   PRIORITY (PRTY) OF INITIATOR 11      X0304000
                                    658 &PRI(12) SETA  7                   PRIORITY (PRTY) OF INITIATOR 12      X0306000
                                    659 &PRI(13) SETA  7                   PRIORITY (PRTY) OF INITIATOR 13      X0308000
                                    660 &PRI(14) SETA  7                   PRIORITY (PRTY) OF INITIATOR 14      X0310000
                                    661 &PRI(15) SETA  7                   PRIORITY (PRTY) OF INITIATOR 15      X0312000
XEQ      HASP PARTITION/INITIATOR PARAMETER ASSIGNMENT VALUES                                                  PAGE   23



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    663 *                                                                       X0316000
                                    664 *                             PARTITION/INITIATOR (OS) CLASS            X0318000
                                    665 *                                                                       X0320000




                                    667 &OSC(1)  SETC  'A'                 O/S CLASS FOR PART/INIT 1            X0324000
                                    668 &OSC(2)  SETC  'B'                 O/S CLASS FOR PART/INIT 2            X0326000
                                    669 &OSC(3)  SETC  'C'                 O/S CLASS FOR PART/INIT 3            X0328000

                                    670 &OSC(4)  SETC  'D'                 O/S CLASS FOR PART/INIT 4            X0330000
                                    671 &OSC(5)  SETC  'E'                 O/S CLASS FOR PART/INIT 5            X0332000
                                    672 &OSC(6)  SETC  'F'                 O/S CLASS FOR PART/INIT 6            X0334000
                                    673 &OSC(7)  SETC  'G'                 O/S CLASS FOR PART/INIT 7            X0336000
                                    674 &OSC(8)  SETC  'H'                 O/S CLASS FOR PART/INIT 8            X0338000
                                    675 &OSC(9)  SETC  'I'                 O/S CLASS FOR PART/INIT 9            X0340000
                                    676 &OSC(10) SETC  'J'                 O/S CLASS FOR PART/INIT 10           X0342000

                                    677 &OSC(11) SETC  'K'                 O/S CLASS FOR PART/INIT 11           X0344000
                                    678 &OSC(12) SETC  'L'                 O/S CLASS FOR PART/INIT 12           X0346000
                                    679 &OSC(13) SETC  'M'                 O/S CLASS FOR PART/INIT 13           X0348000
                                    680 &OSC(14) SETC  'N'                 O/S CLASS FOR PART/INIT 14           X0350000
                                    681 &OSC(15) SETC  'O'                 O/S CLASS FOR PART/INIT 15           X0352000






                                    683 *                                                                       X0356000
                                    684 *                             PARTITION/INITIATOR (HASP) CLASSES        X0358000

                                    685 *                                                                       X0360000



                                    687 &CLS(1)  SETC  'RA9' **************HASP CLASSES FOR PART/INIT 1         X0364000
                                    688 &CLS(2)  SETC  'RA9' **************HASP CLASSES FOR PART/INIT 2         X0366000
                                    689 &CLS(3)  SETC  'RA9' **************HASP CLASSES FOR PART/INIT 3         X0368000
                                    690 &CLS(4)  SETC  'DCBA'              HASP CLASSES FOR PART/INIT 4         X0370000

                                    691 &CLS(5)  SETC  'EDCBA'             HASP CLASSES FOR PART/INIT 5         X0372000
                                    692 &CLS(6)  SETC  'FEDCBA'            HASP CLASSES FOR PART/INIT 6         X0374000
                                    693 &CLS(7)  SETC  'GFEDCBA'           HASP CLASSES FOR PART/INIT 7         X0376000
                                    694 &CLS(8)  SETC  'HGFEDCBA'          HASP CLASSES FOR PART/INIT 8         X0378000
                                    695 &CLS(9)  SETC  'IHGFEDCB'          HASP CLASSES FOR PART/INIT 9         X0380000

                                    696 &CLS(10) SETC  'JIHGFEDC'          HASP CLASSES FOR PART/INIT 10        X0382000
                                    697 &CLS(11) SETC  'KJIHGFED'          HASP CLASSES FOR PART/INIT 11        X0384000
                                    698 &CLS(12) SETC  'LKJIHGFE'          HASP CLASSES FOR PART/INIT 12        X0386000
                                    699 &CLS(13) SETC  'MLKJIHGF'          HASP CLASSES FOR PART/INIT 13        X0388000
                                    700 &CLS(14) SETC  'NMLKJIHG'          HASP CLASSES FOR PART/INIT 14        X0390000

                                    701 &CLS(15) SETC  'ONMLKJIH'          HASP CLASSES FOR PART/INIT 15        X0392000
XEQ      HASP CONTROL BLOCKS                                                                                   PAGE   24


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                    704 *                                                                       X0398000
                                    705 *                             DOCUMENTATION OPTION                      X0400000
                                    706 *                                                                       X0402000



                                    708 &DOC     SETC  'NO'                TURN OFF DOCUMENTATION               X0406000






                                    710 *                                                                       X0410000
                                    711 *                             GENERATE HASP CONTROL BLOCKS              X0412000
                                    712 *                                                                       X0414000




                                    714         $HASPCB HCT,PCE,BUFFER,CMB,DCT,JQE,JIT,JCT,TQE,DDT,PIT,CVT,TCB,CX0418000
                                                       JSCB,DCB,DEB,UCB,PDDB,OCR,IOT,XEQWORK,DOC=&DOC           X0420000
XEQ      HASP COMMUNICATION TABLE DSECT                                                                        PAGE   25


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000000                              716+HCTDSECT DSECT                     HASP COMMUNICATION TABLE DSECT       HC437000


                            00000   718+         USING HCTDSECT,BASE1      ESTABLISH HCT ADDRESSABILITY         HC439000


000000 40E540F44BF0F0F9             720+$VERSION DC    CL8' V 4.009762'         HASP VERSION                    HC441000



                                    722+*                             VS2 - HASP VECTOR TABLE                   HC451050

000008                              724+$HVT     DS    0F                                                       HC451150
000008 00000000                     725+$HVTEXCP DC    V($EXCPSVC)         IOS PSEUDO DEVICE EXIT ADDRESS       HC451200
00000C 00000000                     726+         DC    V(XJCLSCAN)         INTERPRETTER EXIT ADDRESS            HC451250
000010 00000000                     727+         DC    V($MGCRSVC)         MGCR EXIT ADDRESS                    HC451300

000014 00000000                     728+         DC    V($WTOSVC)          WTO(R)/WTL EXIT 1 ADDRESS            HC451350
000018 00000000                     729+         DC    V($WTOSVC2)         WTO(R) EXIT 2 ADDRESS                HC451400
00001C 0000002C                     730+         DC    A($EXITNOP)         JOB INITIATION EXIT ADDRESS          HC451450

000020 0000002C                     731+         DC    A($EXITNOP)         STEP INITIATION EXIT ADDRESS         HC451500
000024 00000000                     732+         DC    V(XTERMSMF)         TERMINATION EXIT ADDRESS             HC451550
000028 00000000                     733+         DC    V($TSOCOMM)         TSO STATUS/CANCEL EXIT ADDRESS       HC451600

00002C 1BFF                         735+$EXITNOP SR    R15,R15             R15 = RC = 0                         HC451750

00002E 07FE                         736+         BR    R14                 RETURN                               HC451800


                                    738+*                             ENTRY TO HASP DISPATCHER                  HC452000

000030 47F0 B030      00030         740+$WAIT    B     *                                                        HN016000


                                    742+*                             ENTRIES TO HASP BUFFER SERVICES           HC456000


000034 47F0 B034      00034         744+$GETBUF  B     *                                                        HN016000
000038 47F0 B038      00038         745+$GETPBUF B     *                                                        HN016000

00003C 47F0 B03C      0003C         746+$FREEBUF B     *                                                        HN016000


                                    748+*                             ENTRIES TO HASP UNIT SERVICES             HC462000

000040 47F0 B040      00040         750+$GETUNIT B     *                                                        HN016000

000044 47F0 B044      00044         751+$FREUNIT B     *                                                        HN016000


                                    753+*                             ENTRIES TO HASP JOB QUEUE SERVICES        HC467000

000048 47F0 B048      00048         755+$QADD    B     *                                                        HN016000
00004C 47F0 B04C      0004C         756+$QGET    B     *                                                        HN016000
000050 47F0 B050      00050         757+$QPUT    B     *                                                        HN016000
000054 47F0 B054      00054         758+$QREM    B     *                                                        HN016000
000058 47F0 B058      00058         759+$QSIZ    B     *                                                        HN016000

00005C 47F0 B05C      0005C         760+$QLOC    B     *                                                        HN016000

000060 47F0 B060      00060         761+$QJITLOC B     *                                                        HN016000
XEQ      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   26


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    763+*                             ENTRIES TO DIRECT ACCESS SPACE SERVICES   HC477000


000064 47F0 B064      00064         765+$TRACK   B     *                                                        HN016000
000068 47F0 B068      00068         766+$PURGER  B     *                                                        HN016000


                                    768+*                             ENTRIES TO HASP INPUT/OUTPUT SERVICES     HC482000

00006C 47F0 B06C      0006C         770+$EXCP    B     *                                                        HN016000
000070 47F0 B070      00070         771+$EXTPOPE B     *                                                        HN016000
000074 47F0 B074      00074         772+$EXTPGET B     *                                                        HN016000
000078 47F0 B078      00078         773+$EXTPPUT B     *                                                        HN016000
00007C 47F0 B07C      0007C         774+$EXTPCLO B     *                                                        HN016000

000080 47F0 B080      00080         775+$RESTORE B     *                                                        HN016000



                                    777+*                             ENTRIES TO HASP OVERLAY SERVICES          HC491000

000084 47F0 B084      00084         779+$ODEL    B     *                                                        HN016000

000088 47F0 B088      00088         780+$ORET    B     *                                                        HN016000
00008C 47F0 B08C      0008C         781+$OLINK   B     *                                                        HN016000
000090 47F0 B090      00090         782+$OXCTL   B     *                                                        HN016000
000094 47F0 B094      00094         783+$OLOAD   B     *                                                        HN016000


                                    785+*                             ENTRIES TO HASP CONSOLE SERVICES          HC499000

000098 47F0 B098      00098         787+$WTO     B     *                                                        HN016000
00009C 47F0 B09C      0009C         788+$FREEMSG B     *                                                        HN016000
0000A0 47F0 B0A0      000A0         789+$DOM     B     *                                                        HN016000



                                    791+*                             ENTRIES TO HASP SMF BUFFER SERVICES       HC503200

0000A4 47F0 B0A4      000A4         793+$QUESMFB B     *                                                        HN016000
0000A8 47F0 B0A8      000A8         794+$GETSMFB B     *                                                        HN016000



                                    796+*                             ENTRIES TO HASP INTERVAL TIMER SERVICES   HC504000

0000AC 47F0 B0AC      000AC         798+$STIMER  B     *                                                        HN016000
0000B0 47F0 B0B0      000B0         799+$TTIMER  B     *                                                        HN016000


                                    801+*                             ENTRIES TO HASP ERROR SERVICES            HC509000

0000B4 47F0 B0B4      000B4         803+$IOERROR B     *                                                        HN016000
0000B8 47F0 B0B8      000B8         804+$ERROR   B     *                                                        HN016000
0000BC 47F0 B0BC      000BC         805+$DISTERR B     *                                                        HN016000
XEQ      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   27



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0000C0 00                           807+         DC    AL1(0)              RESERVED                             HC515000
0000C1 00                           808+$OPTSTAT DC    AL1(*-*)            HASP INITIALIZATION OPTIONS          HC516000

0000C2 00                           809+$STATUS  DC    AL1(*-*)            HASP SYSTEM STATUS                   HC517000
0000C3 00                           810+$CURPCE  DC    AL1(*-*)            CURRENT PCE ID                       HC518000
0000C4 00                           811+$HASPECF DC    AL1(*-*)            MASTER EVENT CONTROL FIELD           HC519000
0000C5 00                           812+MHASPECF DC    AL1(*-*)            LINE MANAGER EVENT CONTROL FIELD     HC520000
0000C6 00                           813+$XEQACT  DC    AL1(*-*)            COUNT OF JOBS IN O/S EXECUTION       HC521000
0000C7 00                           814+$ACTIVE  DC    AL1(*-*)            COUNT OF ACTIVE FUNCTIONS            HC522000
0000C8 FF                           815+$ENBALL  DC    X'FF'               ENABLE ALL MASK                      HC523000
0000C9 00                           816+$DISALL  DC    X'00'               DISABLE ALL MASK                     HC524000
0000CA FE                           817+$DISINT  DC    X'FE'               DISABLE INTERVAL TIMER MASK          HC525000
0000CB 00                           818+         DC    X'00'               RESERVED                             HC526000
0000CC 0000                         819+$EXCPCT  DC    Y(*-*)              ACTIVE HASP I/O COUNT                HC531000
0000CE 0040                         820+$COMMCT  DC    Y(64)                     ACTIVE HASP COMMAND COUNT      HC532000

0000D0 0000                         821+$CKPTRAK DC    Y(*-*)              HASP CHECKPOINT TRACK ADDRESS        HC533000

0000D2 0000                         822+         DC    Y(0)                RESERVED                             HC534000
0000D4 00000000                     823+$HASPTCB DC    A(*-*)              ADDRESS OF HASP TASK CONTROL BLOCK   HC535000

0000D8 00000000                     824+$HASPECB DC    F'0'                COMMON HASP ECB                      HC535200
0000DC 00000000                     825+$ASYNCQ  DC    A(0)                ASYNC I/O COMPLETION QUEUE           HC535400
0000E0 00000000                     826+$RJECHEQ DC    A(0)                RJE I/O COMPLETION QUEUE             HC535600
                                    827+*                                  ADDRESS OF FIRST HASP PCE            HC536000
0000E4 00000000                     828+$PCEORG  DC    A(*-*)                                                   HN010000
0000E8 00000000                     829+$BUFPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE HASP BUFFER HC538000
0000EC 00000000                     830+$TPBPOOL DC    A(*-*)              ADDRESS OF 1ST AVAILABLE RJE BUFFER  HC539000
0000F0 00000000                     831+$DCTPOOL DC    A(*-*)              ADDRESS OF FIRST HASP DCT            HC540000
0000F4 00000000                     832+$JITABLE DC    A(*-*)              ADDRESS OF HASP JOB INFO TABLE       HC541000
0000F8 00000000                     833+$JOTABLE DC    V($JOT)             ADDRESS OF JOB OUTPUT TABLE          HC541500
0000FC 00000000                     834+$CYLMAP  DC    A(*-*)              ADDRESS OF FIRST CYLINDER MODULE MAP HC542000
000100 00000000                     835+$TEDADDR DC    A(*-*)              ADDRESS OF FIRST EXTENT DATA TABLE   HC543000

000104 00000000                     836+$DCBLIST DC    A(*-*)              ADDRESS OF DIRECT ACCESS DCB         HC544000
000108 00000000                     837+$FREEQUE DC    A(*-*)              ADDR OF 1ST FREE CONSOLE MSG BUFFER  HC545000

00010C 00000000                     838+$BUSYQUE DC    A(*-*)              CONSOLE MSG BUFFERS QUEUED FOR I/O   HC546000

000110 00000000                     839+$LOGQUE  DC    A(*-*)              CMB'S QUEUED FOR LOG PROCESSOR       HC547000
000114 00000000                     840+$COMMQUE DC    A(*-*)              COMMANDS QUEUED FOR COMMAND PROC     HC548000
000118 00000000                     841+$DOMQUE  DC    A(*-*)              CMB'S AWAITING ACTION                HC548200
00011C 00000000                     842+$SMFFREE DC    A(*-*)              ADDR OF 1ST FREE SMF BUFFER          HC548400
000120 00000000                     843+$SMFBUSY DC    A(*-*)              SMF BUFFERS QUEUED FOR I/O           HC548600
000124 00000000                     844+$PRCHKPT DC    A(*-*)              ADDRESS OF PRINT CHECKPOINT TABLE    HC549000
000128 00000002                     845+$TIMEARG DC    F'2'                FAKE SVRB+36 FOR IGC011              HC549500
XEQ      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   28


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                    847+*                             NUCLEUS ADDRESS TABLE                     HC551000

00012C                              849+$NUCTABL DS    0F                  START OF NUCLEUS ADDRESS TABLE       HC553000

00012C 00000000                     850+$STATENT DC    A(*-*)              ENTRY TO STATUS ROUTINE              HC554000
000130 00000000                     851+$TIMENT  DC    A(*-*)              ENTRY TO TIME ROUTINE                HC555000
000134 00000000                     852+$XSMFENT DC    A(*-*)              ENTRY TO SMF EXCP COUNTING ROUTINE   HC559000

000138 00000000                     853+$SVCRSET DC    A(*-*)              ENTRY TO HASP SVC RESET ROUTINE      HC560000
                            00010   854+$NUCLEN  EQU   *-$NUCTABL          LENGTH OF NUCLEUS ADDRESS TABLE      HC561000


                                    856+*********************************************************************** HC576000
                                    857+*  ALL VARIABLES LOCATED IN THIS AREA WILL BE REGULARLY CHECKPOINTED  * HC577000
                                    858+*  BY HASP AND WILL BE RESTORED ON ANY WARM START.....                * HC578000
                                    859+*                                                                     * HC579000
                                    860+*                                                                     * HC580000
                                    861+*                                                                     * HC581000
00013C                              862+$SAVEBEG DS    0F                  BEGINNING OF SAVE AREA             * HC582000
00013C 00000000                     863+$JOBQPTR DC    A(*-*)              ADDRESS OF HASP JOB QUEUE          * HC583000
000140 00000000                     864+$JQFREE  DC    A(*-*)              BEGINNING OF FREE QUEUE CHAIN      * HC584000

000144 00000000                     865+$JQENT   DC    A(*-*)              BEGINNING OF ACTIVE QUEUE CHAIN    * HC585000
000148 00000000                     866+$DATAKEY DC    F'0'                MASTER PERIPHERAL DATA SET KEY     * HC588000
00014C 0000                         867+$JOBNO   DC    H'0'                HASP JOB NUMBER                    * HC589000
00014E 0000                         868+$MSGRPNO DC    H'0'                LAST CONSOLE MESSAGE TRACK GROUP   * HC590000

000150 0000000000000000             869+$DACKPT  DC    2XL6'0'             DA CHECKPOINT FOR WARM START       * HC591000
                            0015C   870+$SAVEEND EQU   *                   END OF SAVE AREA                   * HC592000
                            00020   871+$SAVELEN EQU   $SAVEEND-$SAVEBEG   LENGTH OF SAVE AREA                * HC593000
                                    872+*                                                                     * HC594000
                                    873+*                                                                     * HC595000
                                    874+*                                                                     * HC596000

                                    875+*********************************************************************** HC597000
                                    876+*                            NUCLEUS ADDRESS TABLE (CONTINUED)     RFIT HC599000

00015C                              878+$NUCTBLE DS    0F .                START OF CONTINUATION           RFIT HC601000
00015C 00000000                     879+$ATTNENT DC    A(*-*) .            ENTRY TO IOS ATTENTION APPENDAGERFIT HC602000
000160 00000000                     880+$SVCTABV DC    A(*-*) .            ADDRESS OF SVC TABLE ADCONS     RFIT HC603000
000164 00000000                     881+$SVCTABR DC    A(*-*) .            ADDRESS OF RELOCATION TABLE     RFIT HC604000
                            0000C   882+$NUCLENE EQU   *-$NUCTBLE .        LENGTH OF CONTINUATION          RFIT HC605000



                                    884+*                            EXTENDED NUCLEUS ADDRESS TABLE        RFIT HC607000

000168 00000000                     886+$IOSENT  DC    A(*-*) .            ENTRY TO OS I/O SUPERVISOR      RFIT HC609000
00016C 00000000                     887+$WAITENT DC    A(*-*) .            ENTRY TO IGC001 (WAIT)          RFIT HC610000
000170 00000000                     888+$LINKENT DC    A(*-*) .            ENTRY TO IGC006 (LINK)          RFIT HC611000
000174 00000000                     889+$XCTLENT DC    A(*-*) .            ENTRY TO IGC007 (XCTL)          RFIT HC612000
000178 00000000                     890+$SVCIOS  DC    A(*-*) .            ADDRESS OF EXCP SVC TABLE ENTRY RFIT HC613000
00017C 00000000                     891+$SVCLINK DC    A(*-*) .            ADDRESS OF LINK SVC TABLE ENTRY RFIT HC614000
000180 00000000                     892+$SVCXCTL DC    A(*-*) .            ADDRESS OF XCTL SVC TABLE ENTRY RFIT HC615000
000184 00000000                     893+$SVCWTO  DC    A(*-*) .            WTO/WTOR SVC TABLE ENTRY        RFIT HC616000
000188 00000000                     894+$SVCWTL  DC    A(*-*) .            WTL SVC TABLE ENTRY             RFIT HC617000

00018C                              895+$ATTNSAV DS    3F .                ATTENTION APPENDAGE SAVE AREA   RFIT HC618000



XEQ      HASP COMMUNICATION TABLE DSECT (CONTINUED)                                                            PAGE   29



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              898+HASPXEQ  CSECT ,                   END OF HCT DSECT                RFIT HC998000

XEQ      HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   30


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                              901+PCEDSECT DSECT                     PROCESSOR CONTROL ELEMENT DSECT      PC260000



                            00000   903+         USING PCEDSECT,SAVE       ESTABLISH PCE ADDRESSABILITY         PC264000




000000                              905+PCESAVEA DS    F                   RESERVED                             PC268000
000004                              906+PCEPREV  DS    F                   ADDRESS OF PREVIOUS PCE              PC270000
000008                              907+PCENEXT  DS    F                   ADDRESS OF NEXT PCE                  PC272000
00000C                              908+PCELINK  DS    F                   REGISTER 14 (LINK) STORAGE           PC274000
000010                              909+PCER15   DS    F                   REGISTER 15 STORAGE                  PC276000

000014                              910+PCER0    DS    F                   REGISTER 0 STORAGE                   PC278000
000018                              911+PCER1    DS    F                   REGISTER 1 STORAGE                   PC280000
00001C                              912+PCEWA    DS    F                   REGISTER 2 (WA) STORAGE              PC282000

000020                              913+PCEWB    DS    F                   REGISTER 3 (WB) STORAGE              PC284000
000024                              914+PCEWC    DS    F                   REGISTER 4 (WC) STORAGE              PC286000
000028                              915+PCEWD    DS    F                   REGISTER 5 (WD) STORAGE              PC288000
00002C                              916+PCEWE    DS    F                   REGISTER 6 (WE) STORAGE              PC290000
000030                              917+PCEWF    DS    F                   REGISTER 7 (WF) STORAGE              PC292000
000034                              918+PCEWG    DS    0F                  REGISTER 8 (WG) STORAGE              PC294000
000034                              919+PCEBASE3 DS    F                   REGISTER 8 (BASE3) STORAGE           PC296000

000038                              920+PCER9    DS    F                   REGISTER 9 STORAGE                   PC298000
00003C                              921+PCEJCT   DS    F                   REGISTER 10 (JCT) STORAGE            PC300000
000040                              922+PCEBASE1 DS    F                   REGISTER 11 (BASE1) STORAGE          PC302000
000044                              923+PCEBASE2 DS    F                   REGISTER 12 (BASE2) STORAGE          PC304000
000048                              924+PCEEWF   DS    H                   PROCESSOR EVENT WAIT FIELD           PC306000

00004A                              925+PCEID    DS    H                   PROCESSOR TYPE                       PC308000
00004C                              926+         DS    C                   RESERVED                             PC310000
00004D                              927+PCEOPRIO DS    C                   REQUESTED OVERLAY ROUTINE PRIORITY   PC312000
00004E                              928+PCEOCON  DS    H                   REQUESTED OVERLAY ROUTINE OCON       PC314000

000050                              929+PCEORTRN DS    F                   $RETURN PAST $LINK STORAGE           PC316000
000054                              930+PCEOPCE  DS    F                   CHAIN OF PCE'S USING SAME OVERLAY    PC318000
000058                              931+PCEWORK  DS    0D                  VARIABLE LENGTH PROCESSOR WORK AREA  PC320000
000000                              932+HASPXEQ  CSECT                     END OF PCE DSECT                     PC322000
XEQ      HASP PROCESSOR CONTROL ELEMENT DSECT                                                                  PAGE   31


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                    934+*                                                                       PC326000
                                    935+*                             PROCESSOR CONTROL ELEMENT IDENTIFICATION  PC328000
                                    936+*                                                                       PC330000






                                    938+*                                                                       PC334000
                                    939+*                             BYTE 1                                    PC336000
                                    940+*                                                                       PC338000



                            00001   942+PCELCLID EQU   X'01'               LOCAL SPECIAL PCE ID                 PC342000

                            00002   943+PCERJEID EQU   X'02'               REMOTE SPECIAL PCE ID                PC344000
                            00004   944+PCEINRID EQU   X'04'               INTERNAL SPECIAL PCE ID              PC346000
                            00080   945+PCEPRSID EQU   X'80'               PRINT SPECIAL PCE ID                 PC348000
                            00040   946+PCEPUSID EQU   X'40'               PUNCH SPECIAL PCE ID                 PC350000






                                    948+*                                                                       PC354000
                                    949+*                             BYTE 2                                    PC356000
                                    950+*                                                                       PC358000




                            00000   952+PCEASYID EQU   0                   ASYNCH PCE ID                        PC362000
                            00001   953+PCERDRID EQU   1                   INPUT PCE ID                         PC364000
                            00002   954+PCESETID EQU   2                   SETUP PCE ID                         PC366000
                            00003   955+PCEXEQID EQU   3                   EXECUTION PCE ID                     PC368000
                            00004   956+PCETHWID EQU   4                   EXECUTION THAW PCE ID                PC370000
                            00005   957+PCEXZMID EQU   5                   EXECUTION TASK MONITOR PCE ID        PC372000

                            00006   958+PCEOUTID EQU   6                   OUTPUT PROCESSOR PCE ID              PC374000
                            00007   959+PCEPRTID EQU   7                   PRINT PCE ID                         PC376000
                            00008   960+PCEPUNID EQU   8                   PUNCH PCE ID                         PC378000
                            00009   961+PCEPRGID EQU   9                   PURGE PCE ID                         PC380000

                            0000A   962+PCECONID EQU   10                  CONSOLE PCE ID                       PC382000
                            0000B   963+PCEMLMID EQU   11                  LINE MANAGER PCE ID                  PC384000
                            0000C   964+PCETIMID EQU   12                  TIMER PCE ID                         PC386000
                            0000D   965+PCECKPID EQU   13                  CHECKPOINT PCE ID                    PC388000
                            0000E   966+PCEGPRID EQU   14                  PRIORITY AGING PCE ID                PC390000

XEQ      HASP BUFFER DSECT                                                                                     PAGE   32


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                              968+BUFDSECT DSECT                     BUFFER DSECT                         BU444000
000000                              969+IOBFLAG1 DS    C                   I/O FLAGS                            BU446000
000001                              970+IOBFLAG2 DS    C                   I/O FLAGS                            BU448000
000002                              971+IOBSENS0 DS    C                   FIRST SENSE BYTE                     BU450000
000003                              972+IOBSENS1 DS    C                   SECOND SENSE BYTE                    BU452000

000004                              973+IOBECBCC DS    0C                  I/O COMPLETION CODE                  BU454000
000004                              974+IOBECBPT DS    F                   ADDRESS OF HASP EVENT CONTROL BLOCK  BU456000
000008                              975+IOBFLAG3 DS    C                   I/O FLAGS                            BU458000

000009                              976+IOBCSW   DS    CL7                 CHANNEL STATUS WORD                  BU460000
000010                              977+IOBSIOCC DS    0C                  SIO CONDITION CODE                   BU462000
000010                              978+IOBSTART DS    F                   ADDRESS OF CHANNEL PROGRAM           BU464000
000014                              979+IOBDCBPT DS    F                   ADDRESS OF DATA CONTROL BLOCK        BU466000
000018                              980+IOBREPM  DS    0C                  REPOSITION MODIFIER                  BU468000

000018                              981+IOBRESTR DS    F                   RESTART ADDRESS OF CHANNEL PROGRAM   BU470000
00001C                              982+TPBMXREC DS    0C                  MAXIMUM RJE OUTPUT RECORD COUNT      BU472000
00001C                              983+IOBINCAM DS    H                   BLOCK COUNT INCREMENT                BU474000
00001E                              984+IOBERRCT DS    H                   ERROR COUNT                          BU476000
000020                              985+TPBLCCC  DS    0C                  LAST REMOTE OUTPUT COMMAND OP.       BU478000
000020                              986+TPBLCCAD DS    0F                  ADDR OF LAST REMOTE CARRIAGE CONTROL BU480000
000020                              987+IOBXTENT DS    C                   DEB EXTENT                           BU482000
000021                              988+IOBSEEK  DS    0CL7,3C             DIRECT ACCESS SEEK ADDRESS           BU484000

000024                              989+TPBRECNT DS    0C                  CURRENT REMOTE OUTPUT RECORD COUNT   BU486000
000024                              990+TPBFDATA DS    F                   REMOTE DATA POINTER                  BU488000

000028                              991+BUFECBCC DS    0C                  I/O COMPLETION CODE                  BU490000
000028                              992+BUFCHAIN DS    F                   BUFFER CHAIN FIELD                   BU492000
00002C                              993+BUFTYPE  DS    0C                  BUFFER TYPE                          BU494000
00002C                              994+BUFDCT   DS    F                   ADDRESS OF DEVICE CONTROL TABLE      BU496000
000030                              995+BUFEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     BU498000

000034                              996+OACECHN  DS    0F                  OVERLAY AREA CHAIN WORD              BU500000
000034                              997+BUFDDB   DS    0F                  DDB ADDRESS                          BU501000
000034                              998+LCBMCB   DS    C                   REMOTE MODE BYTE                     BU502000
000035                              999+LCBACK   DS    C                   REMOTE NEXT ACKNOWLEDGEMENT          BU504000
000036                             1000+LCBRCB   DS    H                   REMOTE RESPONSE CONTROL BLOCK        BU506000
000038                             1001+IOBCCW1  DS    D                   CHANNEL COMMAND WORD 1               BU508000
000040                             1002+IOBCCW2  DS    D                   CHANNEL COMMAND WORD 2               BU510000
000048                             1003+IOBCCW3  DS    0D,5C               CHANNEL COMMAND WORD 3               BU511000
00004D                             1004+OACEPRIO DS    C                   PRIO OF OLAY ROUTINE IN THIS AREA    BU512000

00004E                             1005+OACEOCON DS    H                   OVERLAY CALL CONSTANT                BU514000

000050                             1006+IOBCCW4  DS    D                   CHANNEL COMMAND WORD 4               BU516000
000058                             1007+BUFSTART DS    0D                  START OF BUFFER WORK SPACE           BU518000
000058                             1008+OACENAME DS    0F                  NAME OF OVERLAY ROUTINE              BU520000
000058                             1009+HDBNXTRK DS    F                   HASP DATA BLOCK CHAIN TRACK          BU522000
00005C                             1010+OACEASMO DS    0F                  ASSEMBLY ORIGIN OF OVERLAY ROUTINE   BU524000

00005C                             1011+HDBDSKEY DS    F                   HASP DATA BLOCK DATA SET KEY         BU526000
000060                             1012+OACEPROG DS    0F                  ENTRY POINT OF OVERLAY ROUTINE       BU528000
000060                             1013+HDBSTART DS    F                   HASP DATA BLOCK START                BU529000
000064                      00058  1014+         ORG   BUFSTART                                                 BU530000
000058                             1015+IOBCCW5  DS    D                   CHANNEL COMMAND WORD 5               BU534000
000060                             1016+IOBCCW6  DS    D                   CHANNEL COMMAND WORD 6               BU536000
000068                             1017+IOBCCW7  DS    D                   CHANNEL COMMAND WORD 7               BU538000
000070                             1018+IOBCCW8  DS    D                   CHANNEL COMMAND WORD 8               BU540000
000078                             1019+TPBUFST  DS    0F                  START OF REMOTE BUFFER WORK SPACE    BU542000
000078                      00558  1020+         ORG   BUFSTART+1280           SPACE OVER OVERLAY AREA          BU544000

000558                             1021+OACEPCE  DS    F                   CHAIN OF PCE'S USING OVERLAY AREA    BU546000

000000                             1022+HASPXEQ  CSECT                     END OF BUFFER DSECT                  BU548000
XEQ      HASP BUFFER STATUS BIT DEFINITIONS                                                                    PAGE   33


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







                                   1025+*                             BUFFER TYPE BIT DEFINITIONS               BU554000



                            00080  1027+TPBUF    EQU   X'80'               REMOTE BUFFER TYPE                   BU558000
                            00040  1028+OLAYBUF  EQU   X'40'               OVERLAY AREA TYPE                    BU560000
                            00000  1029+HASPBUF  EQU   X'00'               HASP BUFFER TYPE                     BU562000
XEQ      HASP CONSOLE MESSAGE BUFFER DSECT                                                                     PAGE   34


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             1032+CMBDSECT DSECT                     CONSOLE MESSAGE BUFFER DSECT         CM098000

000000                             1033+CMBCHAIN DS    F                   ADDR OF NEXT CONSOLE MESSAGE BUFFER  CM100000
000004                             1034+CMBFLAGS DS    C                   FLAG BYTE                            CM102000
000005                             1035+CMBCONS  DS    C                   CONSOLES SPECIFIED                   CM104000
000006                             1036+CMBMSGL  DS    C                   MESSAGE LENGTH                       CM106000

000007                             1037+CMBPRIO  DS    0C                  MESSAGE PRIORITY                     CM108000
000007                             1038+CMBCLASS DS    C                   MESSAGE CLASS OR DISPLAY AREA        CM110000
000008                             1039+CMBMSG   DS    0CL132              CONSOLE MESSAGE                      CM112000
000008                             1040+CMBDOMID DS    0F                  DOM ID FOR CMB                       CM113000
000008                             1041+CMBMARK  DS    C                   ATTENTION INDICATOR                  CM114000
000009                             1042+CMBTIME  DS    CL9                 TIME OF DAY                          CM116000
000012                             1043+CMBJOBNO DS    CL9                 JOB NUMBER                           CM118000
00001B                             1044+CMBTEXT  DS    CL113               MESSAGE TEXT                         CM120000
                            0008C  1045+CMBEND   EQU   *                   END OF CMB                   OY05859 CM121000
000000                             1046+HASPXEQ  CSECT                     END OF CMB DSECT                     CM122000


                                   1048+*                                  SYMBOLIC DISPLACEMENTS               CM126000



                            00004  1050+CMBFLD   EQU   CMBFLAGS-CMBDSECT   FLAG BYTE                            CM130000
                            00006  1051+CMBMLD   EQU   CMBMSGL-CMBDSECT    MESSAGE LENGTH                       CM132000

                            00008  1052+CMBMSD   EQU   CMBMSG-CMBDSECT     MESSAGE                              CM134000


                                   1054+*                                  FLAG BYTE BITS                       CM138000


                            00080  1056+WCMBFD   EQU   X'80'               END OF OUT OF LINE WTO (MLWTO)       CM142000
                            00040  1057+WCMBFH   EQU   X'40'               OPERATION TYPE                       CM144000
                            00020  1058+WCMBFE   EQU   X'20'               MESSAGE FOR HASP LOG ONLY            CM146000
                            00010  1059+WCMBFF   EQU   X'10'               CMBCONS CONTAINS UCMID               CM148000
                            00008  1060+WCMBFG   EQU   X'08'               CMBCONS CONTAINS REMOTE NUMBER       CM150000
                            00004  1061+WCMBFA   EQU   X'04'               RESERVED FOR COMMAND PROCESSOR       CM152000
                            00002  1062+WCMBFB   EQU   X'02'               RESERVED FOR COMMAND PROCESSOR       CM154000
                            00001  1063+WCMBFC   EQU   X'01'               RESERVED FOR COMMAND PROCESSOR       CM156000




                                   1065+*                         NOTE (1) LOGICAL CONSOLES (CMBCONS) ARE       CM160000
                                   1066+*                                  SPECIFIED BY NULL WCMBFD, WCMBFF     CM162000

                                   1067+*                                  AND WCMBFG SETTINGS.                 CM164000
                                   1068+*                                                                       CM166000
                                   1069+*                              (2) FOR WCMBFH...READ=1, WRITE=0         CM168000
                                   1070+*                                                                       CM170000
XEQ      HASP DEVICE CONTROL TABLE DSECT                                                                       PAGE   35


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78




000000                             1073+DCTDSECT DSECT                     DEVICE CONTROL TABLE DSECT           DC308000
000000                             1074+DCTSTAT  DS    0C                  DCT STATUS                           DC310000
000000                             1075+DCTPCE   DS    F                   ADDRESS OF PROCESSOR CONTROL ELEMENT DC312000
000004                             1076+DCTBUFAD DS    F                   CURRENT BUFFER ADDRESS               DC314000

000008                             1077+DCTPSTAT DS    0C                  REMOTE JOB ENTRY FLAGS               DC316000
000008                             1078+DCTDCB   DS    0F                  ADDRESS OF DATA CONTROL BLOCK        DC318000

000008                             1079+DCTSEEK  DS    F                   CURRENT TRACK ADDRESS                DC320000

00000C                             1080+MDCTOPCT DS    0C                  COUNT OF OPEN RJE PROCESSORS         DC322000
00000C                             1081+MDCTOBUF DS    0F                  RJE OUTPUT BUFFER CHAIN              DC324000
00000C                             1082+DCTEWF   DS    F                   EVENT WAIT FIELD OR POST ADDRESS     DC326000
000010                             1083+DCTBUFCT DS    C                   ACTIVE BUFFER COUNT                  DC328000
000011                             1084+MDCTATTN DS    0C                  RJE LINE ACTION PENDING FLAGS        DC330000
000011                             1085+DCTNO    DS    C                   DCT NUMBER                           DC332000
000012                             1086+DCTDEVTP DS    C                   DEVICE TYPE                          DC334000
000013                             1087+DCTIOTYP DS    0C                  I/O REQUEST TYPE                     DC336000
000013                             1088+DCTPCODE DS    C                   LINE/REMOTE CODE                     DC338000
000014                             1089+DCTFLAGS DS    0C                  OPERATOR COMMAND FLAGS               DC340000
000014                             1090+DCTCHAIN DS    F                   ADDRESS OF NEXT DCT                  DC342000
000018                             1091+DCTDEVN  DS    0CL8,CL4            EBCDIC DEVICE NAME                   DC344000

00001C                             1092+DCTOTC   DS    H                   OVERLAY DEVICE TRACKS/CYLINDER       DC346000
00001E                             1093+DCTOTT   DS    H                   OVERLAY EXTENT BEGINNING TT          DC348000
000020                             1094+MDCTCODE DS    0F                  ADDRESS OF RJE CODE TABLE            DC350000

000020                             1095+DCTFORMS DS    0F                  PRINT/PUNCH FORMS ID                 DC352000
000020                             1096+DCTPRINT DS    C                   DEFAULT PRINT ROUTING                DC354000
000021                             1097+DCTPUNCH DS    C                   DEFAULT PUNCH ROUTING                DC356000
000022                             1098+DCTPRINC DS    C                   PRIORITY INCREMENT                   DC358000
000023                             1099+DCTPRLIM DS    C                   PRIORITY LIMIT                       DC360000
000024                             1100+DCTFCB   DS    F                   PRINT FCB ID                         DC360300
000028                             1101+DCTUCS   DS    F                   PRINT UCS ID                         DC360600
00002C                             1102+DCTPPSW  DS    X                   PRINT/PUNCH SWITCHES                 DC360900
00002D                             1103+DCTCLASS DS    CL8                 PRINT/PUNCH CLASS MASK               DC361200
000035                             1104+         DS    C                   CLASS MASK TERMINATOR                DC361500
000038                             1105+DCTWORK  DS    0F                  START OF DEVICE WORK AREA            DC362000
000038                             1106+RIDUCB   DS    0F                  INTERNAL READER UCB ADDRESS          DC364000

000038                             1107+MDCTFCS  DS    H                   REMOTE TERMINAL FUNCTION CONTROL SEQ DC366000
00003A                             1108+MDCTERCT DS    0C                  REMOTE TERMINAL ERROR COUNT          DC368000
00003A                             1109+DCTPRLEN DS    C                   REMOTE TERMINAL DATA WIDTH           DC370000

00003B                             1110+DCTPLINE DS    C                   REMOTE TERMINAL LINE CHARACTERISTICS DC372000
00003C                             1111+MDCTRCB  DS    0C                  REMOTE TERMINAL RECORD CONTROL BYTE  DC374000
00003C                             1112+MDCTDCT  DS    0F                  REMOTE TERMINAL DCT CHAIN FIELD      DC376000
00003C                             1113+RIDFLAGS DS    H                   INTERNAL READER SYNCH FLAGS          DC378000
00003E                             1114+RIDTJID  DS    H                   RESERVED                             DC380000
000040                             1115+RIDECB   DS    0F                  INTERNAL READER ECB ADDRESS          DC382000
000040                             1116+MDCTRSEQ DS    C                   REMOTE TERMINAL TRANSMIT SEQUENCE    DC384000
000041                             1117+MDCTTSEQ DS    C,H                 REMOTE TERMINAL RECEIVE SEQUENCE     DC386000
000044                             1118+MDCTPSWD DS    0CL8                REMOTE TERMINAL PASSWORD             DC388000
000044                             1119+RIDTCB   DS    F                   INTERNAL READER TCB ADDRESS          DC390000
000048                             1120+RIDDATA  DS    CL80                INTERNAL READER DATA AREA            DC394000
                            00098  1121+DCTEND   EQU   *                   SYMBOL FOR END OF DCT                DC395000

000000                             1122+HASPXEQ  CSECT                     END OF DEVICE CONTROL TABLE DSECT    DC396000
XEQ      HASP DCT STATUS BIT DEFINITIONS                                                                       PAGE   36


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                   1125+*                             DCTSTAT                                   DC402000



                            00080  1127+DCTINUSE EQU   X'80'               DCT IS IN USE                        DC406000
                            00040  1128+DCTDRAIN EQU   X'40'               DCT IS DRAINED                       DC408000
                            00020  1129+DCTHOLD  EQU   X'20'               DCT IS HELD                          DC410000

                            00010  1130+DCTEJECT EQU   X'10'               DEVICE IS AT CHNL 1 POSITION         DC411000





                                   1132+*                             DCTPSTAT                                  DC414000



                            00080  1134+DCTLOGAL EQU   X'80'               LOG EVERY CHANNEL END                DC418000
                            00040  1135+DCTLEASE EQU   X'40'               LEASED LINE                          DC420000
                            00020  1136+DCTETX   EQU   X'20'               AN ETX HAS BEEN RECEIVED             DC422000

                            00010  1137+DCTSOFF  EQU   X'10'               A /*SIGNOFF CARD HAS BEEN RECEIVED   DC424000
                            00010  1138+DCTEOF   EQU   X'10'               AN EOF HAS BEEN DETECTED             DC425000

                            00008  1139+DCTSINON EQU   X'08'               REMOTE DCT IS ATTACHED TO LINE DCT   DC426000
                            00004  1140+DCTPOST  EQU   X'04'               I/O COMPLETE FLAG                    DC428000
                            00002  1141+DCTABORT EQU   X'02'               TRANSMISSION WAS ABORTED             DC430000
                            00001  1142+DCTPBUF  EQU   X'01'               REMOTE OUTPUT BUFFER INDICATION      DC432000





                                   1144+*                             DCTDEVTP                                  DC436000




                            00000  1146+DCTDA    EQU   X'00'               DIRECT ACCESS DEVICE                 DC440000
                            00001  1147+DCTOLAY  EQU   X'01'               OVERLAY DEVICE                       DC442000
                            00002  1148+DCTLNE   EQU   X'02'               REMOTE JOB ENTRY LINE                DC444000
                            00010  1149+DCTRDR   EQU   X'10'               LOCAL CARD READER                    DC446000
                            00012  1150+DCTRJR   EQU   X'12'               REMOTE CARD READER                   DC450000

                            00014  1151+DCTINR   EQU   X'14'               INTERNAL READER                      DC452000
                            00020  1152+DCTPRT   EQU   X'20'               LOCAL PRINTER                        DC454000
                            00022  1153+DCTRPR   EQU   X'22'               REMOTE PRINTER                       DC456000

                            00030  1154+DCTPUN   EQU   X'30'               LOCAL PUNCH                          DC458000
                            00032  1155+DCTRPU   EQU   X'32'               REMOTE PUNCH                         DC460000
                            00042  1156+DCTRCON  EQU   X'42'               REMOTE CONSOLE                       DC464000
XEQ      HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   37


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                   1159+*                             DCTIOTYP                                  DC470000



                            00080  1161+DCTREAD  EQU   X'80'               READ REQUEST                         DC474000
                            00040  1162+DCTWRITE EQU   X'40'               WRITE REQUEST                        DC476000
                            00008  1163+DCTREJRM EQU   X'08'               REMOTE RESTRICTION ALWAYS 0          DC482000

                            00004  1164+DCTREJJB EQU   X'04'               RESTRICTED FROM JOB COMMANDS         DC484000
                            00002  1165+DCTREJDV EQU   X'02'               RESTRICTED FROM DEVICE COMMANDS      DC486000
                            00001  1166+DCTREJSY EQU   X'01'               RESTRICTED FROM SYSTEM COMMANDS      DC488000






                                   1168+*                             DCTPCODE                                  DC492000



                            00000  1170+DCTPHALF EQU   X'00'               HALF-DUPLEX LINE                     DC496000
                            00001  1171+DCTPFULL EQU   X'01'               FULL-DUPLEX LINE                     DC498000
                            00002  1172+DCTPWIDE EQU   X'02'               WIDE-BAND LINE                       DC500000

                            00020  1173+DCTPPRES EQU   X'20'               HARDWARE COMPRESS FEATURE            DC501000
                            00010  1174+DCTPCON  EQU   X'10'               REMOTE TERMINAL CONSOLE              DC502000
                            00010  1175+DCTPMRF  EQU   X'10'               MULTIPLE-RECORD FEATURE              DC504000
                            00008  1176+DCTPTAB  EQU   X'08'               HORIZONTAL FORMAT CONTROL            DC506000
                            00004  1177+DCTPROG  EQU   X'04'               PROGRAMMABLE INTERFACE               DC508000

                            00002  1178+DCTPVAR  EQU   X'02'               VARIABLE LENGTH RECORDS              DC510000
                            00001  1179+DCTPBLK  EQU   X'01'               BLOCKED RECORDS                      DC512000





                                   1181+*                             DCTPLINE                                  DC516000




                            00000  1183+DCTP2770 EQU   X'00'               1009, 2770, 3780                     DC520000
                            00001  1184+DCTPHARD EQU   X'01'               1978, 2780                           DC522000
                            00002  1185+DCTP20   EQU   X'02'               360/20 SUB-MODEL 5 OR 6              DC524000
                            00004  1186+DCTP360  EQU   X'04'               360/22, 25, 30, 40, ETC.             DC526000

                            00006  1187+DCTP20S2 EQU   X'06'               360/20 SUB-MODEL 2 OR 4              DC528000
                            00008  1188+DCTP1130 EQU   X'08'               1130                                 DC530000
                            0000A  1189+DCTPSYS3 EQU   X'0A'               SYSTEM/3                             DC532000
                            0000E  1190+DCTPCPU  EQU   X'0E'               CPU TERMINAL                         DC534000
                            00010  1191+DCTPHASP EQU   X'10'               HASP                                 DC536000

                            00020  1192+DCTPASCI EQU   X'20'               USASCII CODE                         DC538000
                            00040  1193+DCTPTRSP EQU   X'40'               TRANSPARENCY                         DC540000
                            00080  1194+DCTPBSC  EQU   X'80'               BINARY SYNCHRONOUS LINE              DC542000
XEQ      HASP DCT STATUS BIT DEFINITIONS (CONTINUED)                                                           PAGE   38


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78





                                   1197+*                             DCTFLAGS                                  DC548000



                            00080  1199+DCTSTOP  EQU   X'80'               $Z ($STOP) COMMAND                   DC552000

                            00040  1200+DCTDELET EQU   X'40'               $C ($DELETE) COMMAND                 DC554000
                            00020  1201+DCTRSTRT EQU   X'20'               $E ($RESTART) COMMAND                DC556000
                            00010  1202+DCTRPT   EQU   X'10'               $N ($REPEAT) COMMAND                 DC558000
                            00008  1203+DCTBKSP  EQU   X'08'               $B ($BACKSPACE) COMMAND              DC560000
                            00004  1204+DCTHOLDJ EQU   X'04'               $T...,H COMMAND                      DC562000

                            00004  1205+DCTSPACE EQU   X'04'               $T...,C=1 COMMAND                    DC564000





                                   1207+*                                  DCTPPSW                              DC568000



                            00080  1209+DCTPPSWC EQU   X'80'               FCB CARRAGE ALTERED                  DC571000
                            00040  1210+DCTPPSWF EQU   X'40'               FORMS CONTROLLED BY OPERATOR         DC572000

                            00020  1211+DCTPPSWQ EQU   X'20'               QUEUE CLASSES ARE ALTERED            DC573000
                            00010  1212+DCTPPSWS EQU   X'10'               SUPPRESS SEPARATOR PAGES             DC574000
                            00008  1213+DCTPPSWT EQU   X'08'               UCS TRAIN ALTERED                    DC575000

                            00004  1214+DCTPPSWU EQU   X'04'               UCS NOT STANDARD                     DC575500
                            00002  1215+DCTPPSWI EQU   X'02'               DEVICE IDLE MESSAGE ISSUED           DC576000
                            00001  1216+DCTPPSWO EQU   X'01'               OPERATOR ACTION ALLOWED              DC577000






                                   1218+*                             RIDFLAGS                                  DC580000



                            00080  1220+RIDPOST  EQU   X'80'               USER WAITING FOR POST                DC584000
                            00040  1221+RIDBUSY  EQU   X'40'               I/O SIMULATION IN PROCESS            DC585000
XEQ      HASP JOB QUEUE ENTRY FIELD DEFINITIONS                                                                PAGE   39


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1223+*                             HASP JOB QUEUE ENTRY DISPLACEMENTS        JQ056000



                            00000  1225+QUEPRIO  EQU   0                   JOB PRIORITY                         JQ060000
                            00001  1226+QUETYPE  EQU   1                   LOGICAL QUEUE TYPE                   JQ062000

                            00002  1227+QUEJOBNO EQU   2                   HASP JOB NUMBER                      JQ064000
                            00004  1228+QUEFLAGS EQU   4                   JOB QUEUE FLAGS                      JQ066000
                            00004  1229+QUECHAIN EQU   4                   ADDRESS OF NEXT JOB QUEUE ELEMENT    JQ068000
                            00008  1230+QUETRAK  EQU   8                   TRACK ADDRESS OF JOB CONTROL TABLE   JQ070000
                            0000C  1231+QUEPRTRT EQU   12                  PRINT ROUTE                          JQ072000

                            0000D  1232+QUEPUNRT EQU   13                  PUNCH ROUTE                          JQ074000
                            0000E  1233+QUEJOECT EQU   14                  JOB OUTPUT ELEMENT COUNT             JQ076000








                                   1235+*                             HASP JOB QUEUE ENTRY BIT DEFINITIONS      JQ084000




                                   1237+*                             QUETYPE                                   JQ088000




                            00080  1239+QENTBY   EQU   X'80'               QUEUE ENTRY BUSY BIT                 JQ092000
                            00040  1240+$XEQ     EQU   X'40'               OS EXECUTION QUEUE                   JQ094000
                            00020  1241+$INPUT   EQU   X'20'               INPUT QUEUE                          JQ096000
                            00010  1242+$SETUP   EQU   X'10'               SETUP QUEUE                          JQ098000
                            00008  1243+$BRKDOWN EQU   X'08'               BREAKDOWN QUEUE                      JQ100000

                            00004  1244+$OUTPUT  EQU   X'04'               OUTPUT QUEUE                         JQ102000
                            00002  1245+$HARDCPY EQU   X'02'               OUTPUT IN-PROGRESS QUEUE             JQ104000
                            00001  1246+$PLOT    EQU   X'01'               PLOT QUEUE                           JQ106000
                            00000  1247+$PURGE   EQU   X'00'               PURGE QUEUE                          JQ108000




                                   1249+*                             QUEFLAGS                                  JQ112000


                            00080  1251+QUEHOLDA EQU   X'80'               HOLD ALL JOBS                        JQ116000
                            00040  1252+QUEHOLD1 EQU   X'40'               HOLD SINGLE JOB                      JQ118000

                            00020  1253+QUEHOLD2 EQU   X'20'               HOLD FOR DUPLICATE JOB NAME          JQ120000

                            00010  1254+QUEPURGE EQU   X'10'               JOB IS TO BE PURGED                  JQ122000
                            00008  1255+QUEOPCAN EQU   X'08'               OPERATOR ISSUED $C OR $P JOB         JQ124000
                            00004  1256+QUEOPRTE EQU   X'04'               OPERATOR HAS ISSUED $R ALL           JQ125000
                            00002  1257+QUEJCTSW EQU   X'02'               JCT INTERLOCK FOR UPDATE             JQ125100

XEQ      HASP JOB INFORMATION TABLE ELEMENT FIELD DEFINITIONS                                                  PAGE   40


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1259+*                   HASP JOB INFORMATION TABLE ELEMENT DISPLACEMENTS    JI040000





                            00000  1261+JITJNAME EQU   0                   JOB NAME                             JI044000
                                   1262+*                                                                       JI046000
                                   1263+*                                                                       JI048000
                                   1264+*        THE FOLLOWING ENTRIES ARE NOT IMPLEMENTED BUT REPRESENT        JI050000
                                   1265+*        SUGGESTIONS AS TO POSSIBLE INSTALLATION MODIFICATIONS...       JI052000
                                   1266+*                                                                       JI054000

                                   1267+*                                                                       JI056000
                                   1268+*                                                                       JI058000
                                   1269+*JITLINE EQU   8                   ESTIMATED THEN ACTUAL PRINT LINES    JI060000
                                   1270+*JITCARD EQU   12                  ESTIMATED THEN ACTUAL PUNCHED CARDS  JI062000

                                   1271+*JITETIM EQU   16                  ESTIMATED EXECUTION TIME             JI064000
                                   1272+*JITSAFE EQU   20                  JOB SECURITY CONTROL PASSWORD        JI066000
                                   1273+*JITSTAT EQU   28                  ADDITIONAL JOB STATUS BITS           JI068000
                                   1274+*JITETC  EQU   29                  ANYTHING ELSE                        JI070000
XEQ      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   41


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                             1276+JCTDSECT DSECT                     JOB CONTROL TABLE DSECT              JC650000
                            00000  1277+         USING JCTDSECT,JCT        ESTABLISH JCT ADDRESSABILITY         JC652000
000000                             1278+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      JC654000
000058                             1279+JCTJQE   DS    F                   OFFSET OF HASP JOB QUEUE ELEMENT     JC656000
00005C                             1280+JCTIOTTR DS    F                   TRACK ADDRESS OF FIRST IOT           JC658000
000060                             1281+JCTDSKEY DS    F                   PERIPHERAL DATA SET KEY              JC660000

000064                             1282+JCTINJCT DS    F                   TRACK ADDRESS OF INPUT JCT           JC662000
000068                             1283+         DS    X                   RESERVED                             JC664000
000069                             1284+JCTSMFLG DS    BL1                 SMF FLAGS                            JC666000

00006A                             1285+JCTPURGE DS    X                   START OF SMF PURGE RECORD            JC668000
00006B                             1286+JCTJBOPT DS    BL1                 HASP JOB OPTIONS                     JC670000
00006C                             1287+JCTJOBEB DS    CL4                 HASP ASSIGNED JOB NUMBER (EBCDIC)    JC672000
000070                             1288+JCTJNAME DS    CL8                 JOB NAME FROM JOB CARD               JC674000
000078                             1289+JCTPNAME DS    CL20                PROGRAMMER'S NAME FROM JOB CARD      JC676000
00008C                             1290+JCTMCLAS DS    C                   MSGCLASS FROM JOB CARD               JC678000
00008D                             1291+JCTJCLAS DS    C                   JOB CLASS FROM JOB CARD              JC680000
00008E                             1292+         DS    X                   RESERVED                             JC682000
00008F                             1293+JCTPRIO  DS    X                   HASP EXECUTION SELECTION PRIORITY    JC684000
000090                             1294+         DS    X                   RESERVED                             JC686000
000091                             1295+JCTOPRIO DS    X                   HASP OUTPUT SELECTION PRIORITY       JC688000
000092                             1296+JCTROUTE DS    XL2                 INPUT ROUTE CODE                     JC690000

000094                             1297+JCTINDEV DS    CL8                 HASP INPUT DEVICE NAME               JC692000

00009C                             1298+JCTACCTN DS    CL4                 JOB ACCOUNTING NUMBER FROM JOB CARD  JC694000
0000A0                             1299+JCTROOMN DS    CL4                 PROGRAMMER'S ROOM NUMBER             JC696000

0000A4                             1300+JCTETIME DS    F                   ESTIMATED EXECUTION TIME             JC698000
0000A8                             1301+JCTESTLN DS    F                   ESTIMATED OUTPUT LINES               JC700000
0000AC                             1302+JCTESTPU DS    F                   ESTIMATED PUNCHED OUTPUT             JC702000
0000B0                             1303+JCTFORMS DS    CL4                 JOB OUTPUT FORMS                     JC704000
0000B4                             1304+         DS    X                   RESERVED                             JC706000
0000B5                             1305+JCTCPYCT DS    X                   JOB PRINT COPY COUNT                 JC708000
0000B6                             1306+         DS    X                   RESERVED                             JC710000
0000B7                             1307+JCTLINCT DS    X                   LINES PER PAGE                       JC712000
0000B8                             1308+JCTPROUT DS    XL2                 JOB PRINT ROUTE CODE                 JC714000
0000BA                             1309+JCTPUOUT DS    XL2                 JOB PUNCH ROUTE CODE                 JC716000
0000BC                             1310+JCTXEQON DS    F                   TIME ON EXECUTION PROCESSOR          JC718000
0000C0                             1311+JCTXDTON DS    F                   DATE ON EXECUTION PROCESSOR          JC720000

0000C4                             1312+JCTXEQOF DS    F                   TIME OFF EXECUTION PROCESSOR         JC722000
0000C8                             1313+JCTXDTOF DS    F                   DATE OFF EXECUTION PROCESSOR         JC724000

0000CC                             1314+JCTOUTON DS    F                   TIME ON OUTPUT PROCESSOR             JC726000

0000D0                             1315+JCTODTON DS    F                   DATE ON OUTPUT PROCESSOR             JC728000
0000D4                             1316+JCTOUTOF DS    F                   TIME OFF OUTPUT PROCESSOR            JC730000
0000D8                             1317+JCTODTOF DS    F                   DATE OFF OUTPUT PROCESSOR            JC732000
0000DC                             1318+JCTCARDS DS    F                   TOTAL NUMBER OF INPUT CARDS          JC734000
0000E0                             1319+JCTLINES DS    F                   GENERATED OUTPUT LINES               JC736000
0000E4                             1320+JCTPUNCH DS    F                   GENERATED PUNCHED OUTPUT             JC738000
0000E8                             1321+         DS    F                   RESERVED                             JC740000
0000EC                             1322+JCTPRTCT DS    F                   CURRENT NUMBER OF LINES PRINTED      JC742000
0000F0                             1323+JCTPAGCT DS    F                   CURRENT NUMBER OF PAGES PRINTED      JC744000
0000F4                             1324+JCTPUNCT DS    F                   CURRENT NUMBER OF CARDS PUNCHED      JC746000
0000F8                             1325+JCTESOUT DS    F                   ESTIMATED OUTPUT (LINES+CARDS)       JC748000
0000FC                             1326+JCTXOUT  DS    F                   GENERATED OUTPUT RECORDS             JC750000

000100                             1327+         DS    F                   RESERVED                             JC752000
000104                             1328+JCTCYSAV DS    XL100               INPUT ALLOCATION BIT MAP             JC754000
000168                             1329+JCTWORK  DS    XL144               144-BYTE WORK AREA                   JC756000

0001F8                             1330+         DS    0F                                                       JC758000
XEQ      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   42


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0001F8                             1331+JCTJMR   DS    XL56                JMR AREA                             JC760000
000230                      001F8  1332+         ORG   JCTJMR                                                   JC762000
0001F8                             1333+JCTJMRJN DS    CL8                 JMR JOB NAME                         JC764000
000200                             1334+JCTRDRON DS    F                   TIME ON INPUT PROCESSOR              JC766000
000204                             1335+JCTRDTON DS    F                   DATE ON INPUT PROCESSOR              JC768000
000208                             1336+JCTCPUID DS    XL4                 JMR CPU IDENTIFICATION               JC770000
00020C                             1337+JCTUSEID DS    CL8                 JMR USER IDENTIFICATION              JC772000
000214                             1338+JCTSTEP  DS    X                   CURRENT STEP NUMBER                  JC774000
000215                             1339+JCTINDC  DS    BL1                 JMR SMF OPTIONS                      JC776000

000216                             1340+         DS    XL2                 RESERVED                             JC778000
000218                             1341+JCTUCOM  DS    F                   JMR USER COMMUNICATION AREA          JC780000
00021C                             1342+JCTUJVP  DS    F                   JMR ADDRESS OF USER EXIT ROUTINE     JC782000

000220                             1343+JCTRDROF DS    F                   TIME OFF INPUT PROCESSOR             JC784000
000224                             1344+JCTRDTOF DS    F                   DATE OFF INPUT PROCESSOR             JC786000
000228                             1345+JCTJOBIN DS    F                   JMR JOB SYSIN COUNT                  JC788000
00022C                             1346+JCTRDR   DS    XL2                 READER DEVICE TYPE AND CLASS         JC790000
00022E                             1347+JCTJMOPT DS    BL1                 JMR SMF OPTIONS                      JC792000
00022F                             1348+         DS    X                   RESERVED                             JC794000
000230                      00230  1349+         ORG                                                            JC796000
                            00230  1350+JCTEND   EQU   *                   END OF JOB CONTROL TABLE             JC798000





                                   1352+*                             JCTSMFLG                                  JC802000




                            00080  1354+JCTSMFL0 EQU   B'10000000'         RESERVED                             JC806000
                            00040  1355+JCTSMFL1 EQU   B'01000000'         RESERVED                             JC808000
                            00020  1356+JCTSMFL2 EQU   B'00100000'         RESERVED                             JC810000
                            00010  1357+JCTSMFL3 EQU   B'00010000'         RESERVED                             JC812000

                            00008  1358+JCTSMFL4 EQU   B'00001000'         RESERVED                             JC814000
                            00004  1359+JCTSMFL5 EQU   B'00000100'         RESERVED                             JC816000
                            00002  1360+JCTSMFL6 EQU   B'00000010'         RESERVED                             JC818000
                            00001  1361+JCTSMFL7 EQU   B'00000001'         RESERVED                             JC820000






                                   1363+*                             JCTJBOPT                                  JC824000



                            00080  1365+JCTPRICD EQU   B'10000000'         /*PRIORITY CARD PRESENT              JC828000
                            00040  1366+JCTSETUP EQU   B'01000000'         /*SETUP CARD(S) PRESENT              JC830000
                            00020  1367+JCTTHOLD EQU   B'00100000'         TYPERUN=HOLD WAS SPECIFIED           JC832000
                            00010  1368+JCTNOLOG EQU   B'00010000'         NO JOB LOG OPTION                    JC834000
                            00008  1369+JCTXBACH EQU   B'00001000'         EXECUTION BATCHING JOB               JC836000
                            00004  1370+JCTJBOP5 EQU   B'00000100'         RESERVED                             JC838000

                            00002  1371+JCTJBOP6 EQU   B'00000010'         RESERVED                             JC840000
                            00001  1372+JCTJBOP7 EQU   B'00000001'         RESERVED                             JC842000

XEQ      HASP JOB CONTROL TABLE DSECT                                                                          PAGE   43


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






                                   1375+*                             JCTJMOPT                                  JC848000



                            00020  1377+JCTJMRUX EQU   B'00100000'         IF ON, TAKE USER EXITS FOR SMF       JC852000






                                   1379+*                                                                       JC856000
                                   1380+*        IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT      JC858000
                                   1381+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  JC860000
                                   1382+*        THE JCT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    JC862000

                                   1383+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    JC864000
                                   1384+*                                                                       JC866000
                            005D0  1385+$JCTTEST EQU   1960-JCTEND+JCTJQE                                       JC868000

000230 05D0                        1386+         DC    Y($JCTTEST)         TEST INSTRUCTION                     JC870000
000000                             1387+HASPXEQ  CSECT                     END OF JOB CONTROL TABLE DSECT       JC872000
XEQ      HASP TIMER QUEUE ELEMENT FIELD DEFINITIONS                                                            PAGE   44


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












                                   1390+*                             HASP TIMER QUEUE ELEMENT DISPLACEMENTS    TQ048000





                            00000  1392+ICHAIN   EQU   0                   ADDRESS OF NEXT TIMER QUEUE ELEMENT  TQ052000

                            00004  1393+ITIME    EQU   4                   SPECIFIED INTERVAL (IN TIMER UNITS)  TQ054000
                            00008  1394+IPOST    EQU   8                   FLAG BYTE AND ADDRESS OF EWF         TQ056000
XEQ      HASP DATA DEFINITION TABLE DSECT                                                                      PAGE   45


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             1397+DDBDSECT DSECT                     DATA DEFINITION TABLE DSECT          DD114000
000000                             1398+DDBCHAIN DS    F                   NEXT DATA DEFINITION TABLE ADDRESS   DD116000
000004                             1399+DDBTYPE  DS    C                   DATA SET TYPE                        DD118000
000005                             1400+DDBUNIT  DS    CL3                 UNIT ADDRESS (EBCDIC)                DD120000

000008                             1401+DDBSTAT1 DS    C                   STATUS BYTE ONE                      DD122000
                            00008  1402+XS       EQU   DDBSTAT1            FOR SHORTHAND                        DD124000
000009                             1403+DDBSTAT2 DS    C                   STATUS BYTE TWO                      DD126000
00000A                             1404+DDBUFPTR DS    H                   CURRENT BUFFER POINTER               DD128000
00000C                             1405+DDBPBUF  DS    F                   ADDRESS OF PRIMARY BUFFER            DD130000

000010                             1406+DDBSBUF  DS    F                   ADR OF SECONDARY BUF (INPUT)         DD132000
000014                             1407+DDBDDNR  DS    F                   STEP AND DD NUMBER                   DD135000
000018                             1408+DDBTTR   DS    F                   NEXT/FIRST TRACK ADDRESS             DD136000
00001C                             1409+DDBCOUNT DS    H                   OUTPUT RECORD COUNT                  DD138000
00001E                             1410+         DS    H                   UNUSED                               DD140000

000020                             1411+DDBPCE   DS    F                   ADDRESS OF PROCESSOR CONTROL ELEMENT DD142000
000024                             1412+DDBEND   DS    0C                  END OF DDT                           DD144000
                            00024  1413+DDBLNG   EQU   DDBEND-DDBCHAIN     LENGTH OF DDT                        DD146000
000000                             1414+HASPXEQ  CSECT                     END OF DATA DEFINITION TABLE DSECT   DD148000
XEQ      HASP PARTITION INFORMATION TABLE FIELD DEFINITIONS                                                    PAGE   46



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1416+*                        HASP PARTITION INFORMATION TABLE DISPLACEMENTS PI098000





                            00000  1418+PITSTAT  EQU   0                   LOGICAL PARTITION STATUS BYTE        PI102000

                            00001  1419+PITICLAS EQU   1                   LOGICAL PARTITION INITIATOR CLASS    PI104000
                            00002  1420+PITPATID EQU   2                   LOGICAL PARTITION IDENTIFICATION     PI106000
                            00004  1421+PITSIZE  EQU   4                   LOGICAL PARTITION SIZE               PI108000
                            00006  1422+PITPRIO  EQU   6                   LOGICAL PARTITION PRTY               PI110000
                            00008  1423+PITCLASS EQU   8                   LOGICAL PARTITION CLASSES            PI128000
                            00014  1424+PITLNGTH EQU   (PITCLASS+8+4)/4*4         LENGTH OF PIT                 PI132000












                                   1426+*                        HASP PARTITION INFORMATION TABLE               PI136000
                                   1427+*                             STATUS BIT DEFINITIONS                    PI138000





                            00080  1429+PITHOLDA EQU   X'80'               PIT IS DRAINED ($P I)                PI142000

                            00040  1430+PITHOLD1 EQU   X'40'               PIT IS DRAINED ($P IN)               PI144000
                            00020  1431+PITBUSY  EQU   X'20'               PARTITION BUSY INDICATOR             PI146000
                            00010  1432+PITIDLE  EQU   X'10'               PIT IDLE MESSAGE SWITCH              PI148000
                            00001  1433+PITLAST  EQU   X'01'               LAST PIT INDICATOR                   PI150000
XEQ      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   47


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00010  1435+$CVTPTR  EQU   16                  ADDRESS OF CVT POINTER               CT008000

000000                             1436+CVTDSECT DSECT                     COMMUNICATION VECTOR TABLE DSECT     CT012000


                                   1438+*                                                                       00510000

                                   1439+*              OS/360                                                   00560000
                                   1440+*        COMMUNICATION VECTOR TABLE                                     00800000
                                   1441+*                                                                       00810000
                                   1442+*    RELEASES 21.6, 21.7 AND 21.8, 10/10/73, LEVEL=5                    01050021
                                   1443+*                                                                       01200000

                            00010  1444+CVTPTR   EQU   16 -          ABSOLUTE ADDRESS OF POINTER TO CVT         01400000
                                   1445+*                                                                       01600000
                                   1446+*              BEGINNING OF CVT PROPER                                  01601000
                                   1447+*                                                                       01610000
000000                             1448+         DS    0F                                                       01611000
                            00000  1449+CVTMAP   EQU   * -           CVTPTR CONTENT POINTS HERE                 01840000
                                   1450+*                                                                       02000000
000000 00000000                    1451+CVTTCBP  DC    V(IEATCBP) -  ADDR OF NEXT AND CURRENT TCB POINTER LIST  02200000

000004 00000000                    1452+CVT0EF00 DC    V(IEA0EF00) - ADDR OF ROUTINE TO SCHEDULE                02610000
                                   1453+*                              ASYNCHRONOUS EXITS                       02620000

000008 00000000                    1454+CVTLINK  DC    V(IEFLINK) -  ADDR OF SYS1.LINKLIB DCB                   02800000
00000C 00000000                    1455+CVTJOB   DC    V(IEFJOB) -   ADDR OF SYS1.JOBQE DCB                     03000000
000010 00000000                    1456+CVTBUF   DC    A(0) -        ADDR OF BUFFER FOR RESIDENT                03200000
                                   1457+*                              CONSOLE INTERRUPTION ROUTINE             03400000
000014 00000000                    1458+CVTXAPG  DC    V(IECXAPG) -  ADDR OF IOS APPENDAGE VECTOR TABLE         03600000

000018 00000000                    1459+CVT0VL00 DC    V(IEA0VL00) - ENTRY POINT ADDR OF ADDR VALIDITY CHECKING 03800000
                                   1460+*                              ROUTINE FOR SUPERVISOR                   04000000
00001C 00000000                    1461+CVTPCNVT DC    V(IECPCNVT) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04200000
                                   1462+*                              RELATIVE TRACK ADDR TO ABSOLUTE          04400000
000020 00000000                    1463+CVTPRLTV DC    V(IECPRLTV) - ENTRY POINT ADDR OF ROUTINE FOR CONVERTING 04600000
                                   1464+*                              ABSOLUTE TRACK ADDR TO RELATIVE          04800000
000024 00000000                    1465+CVTILK1  DC    V(IECILK1) -  ADDR OF CHANNEL AND CONTROL UNIT SECTION   05000000
                                   1466+*                              IN UCB LOOKUP TABLE                      05200000
000028 00000000                    1467+CVTILK2  DC    V(IECILK2) -  ADDR OF UCB HALFWORD ADDR LIST SECTION     05400000

                                   1468+*                              IN UCB LOOKUP TABLE                      05600000

00002C 00000000                    1469+CVTXTLER DC    V(IECXTLER) - ENTRY POINT ADDR TO XCTL ROUTINE           05800000
                                   1470+*                              FOR SYSTEM ERROR TRANSIENT AREA ROUTINES 06000000
000030 00000000                    1471+CVTSYSAD DC    A(0) -        ADDR OF SYSTEM RESIDENCE VOLUME ENTRY      06200000
                                   1472+*                              IN UCB LOOKUP TABLE                      06400000
000034 00000000                    1473+CVTBTERM DC    V(IEA0AB00) - ENTRY POINT ADDR OF ABTERM ROUTINE         06600000

000038 00000000                    1474+CVTDATE  DC    F'0' -        CURRENT DATE IN PACKED DECIMAL             06800000
00003C 00000000                    1475+CVTMSLT  DC    V(IEEMSER) -  ADDR OF MASTER COMMON AREA (MVT/MFT)       07210000
                                   1476+*                              PLEASE USE CVTMSER INSTEAD TO ADDRESS    07220000
                                   1477+*                              MASTER SCHEDULER RESIDENT DATA AREA      07221000
000040 00000000                    1478+CVTZDTAB DC    V(IECZDTAB) - ADDR OF I/O DEVICE CHARACTERISTIC TABLE    07400000
000044 00000000                    1479+CVTXITP  DC    V(IECXITP) -  ADDR OF ERROR INTERPRETER ROUTINE          07600000
000048 00000000                    1480+CVTDAR   DC    A(0) -        ADDR OF SYS1.DUMP I/O CONTROL BLOCKS       08000000
                                   1481+*                              FOR DAMAGE ASSESSMENT ROUTINES           08200000
00004C 00000000                    1482+CVT0FN00 DC    A(0) -        RESERVED (MVT)                             08610000
000050 0A03                        1483+CVTEXIT  SVC   3 -           EXIT TO DISPATCHER                         08800000

000052 07FE                        1484+CVTBRET  BR    14 -          RETURN TO CALLER                           09000000

000054 00000000                    1485+CVTSVDCB DC    V(IEASVDCB) - ADDR OF SYS1.SVCLIB DCB                    09200000
000058 00000000                    1486+CVTTPC   DC    V(IEATPC) -   ADDR OF PSEUDOCLOCK FOR INTERVAL TIMER     09411000
                                   1487+*                              ROUTINE (SHPC FIRST)                     09412000
00005C 00000000                    1488+CVTPBLDL DC    V(IECPBLDL) - BALR ENTRY POINT ADDR OF BLDL              09430000

XEQ      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   48


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000060 00000000                    1489+CVTSJQ   DC    A(0) -        RESERVED (MVT)                             09810000
000064 00000000                    1490+CVTCUCB  DC    V(IEECUCB) -  ADDR OF TABLE CONTAINING CONSOLE UCB ADDR  10000000
000068 00000000                    1491+CVTQTE00 DC    V(IEAQTE00) - ADDR OF TIMER ENQUEUE ROUTINE              10410000
                                   1492+*                              FOR INTERVAL TIMER                       10411000
00006C 00000000                    1493+CVTQTD00 DC    V(IEAQTD00) - ADDR OF TIMER DEQUEUE ROUTINE              10420000
                                   1494+*                              FOR INTERVAL TIMER                       10421000
000070 00000000                    1495+CVTSTB   DC    V(IECSTB) -   ADDR OF I/O DEVICE STATISTIC TABLE         10600000
000074 10                          1496+CVTDCB   DC    XL1'10' -     OPERATING SYSTEM                           11600000
                            00040  1497+CVT1SSS  EQU   X'40' -       OPTION 1 (PCP) SSS                         11600100

                            00020  1498+CVT2SPS  EQU   X'20' -       OPTION 2 (MFT) SPS                         11600200
                            00010  1499+CVT4MS1  EQU   X'10' -       OPTION 4 (MVT) MS1                         11600300
                            00004  1500+CVT4MPS  EQU   X'04' -       MODEL 65 MULTIPROCESSING                   11600400
000075 000000                      1501+CVTDCBA  DC    VL3(IFBDCB) - ADDR OF DCB FOR SER SYS1.LOGREC            11601000

000078 00000000                    1502+CVTIOQET DC    V(IECIOQET) - ADDR OF I/O QUEUE ELEMENT TABLE            11820000
00007C 00000000                    1503+CVTIXAVL DC    V(IECIXAVL) - ADDR OF I/O SUPERVISOR FREELIST POINTER    12400000
000080 00000000                    1504+CVTNUCB  DC    A(0) -        LEAST UPPER BOUND OF NUCLEUS               12600000
000084 00000000                    1505+CVTFBOSV DC    V(IEWFBOSV) - ADDR OF PROGRAM FETCH ROUTINE              12800000
000088 00000000                    1506+CVT0DS   DC    V(IEA0DS) -   ENTRY POINT ADDR OF DISPATCHER             13000000
00008C 00000000                    1507+CVTILCH  DC    V(IECILCH) -  ADDR OF LOGICAL CHANNEL WORD TABLE         13200000
000090 00000000                    1508+CVTIERLC DC    V(IECIERLC) - ADDR OF ASYNCHRONOUS EXIT QUEUE            13400000
000094 00000000                    1509+CVTMSER  DC    V(IEEMSER) -  ADDR OF MASTER SCHEDULER RESIDENT          13810000
                                   1510+*                              DATA AREA (MVT/MFT)                      13820000
000098 00000000                    1511+CVT0PT01 DC    V(IEA0PT01) - BRANCH ENTRY POINT ADDR OF POST ROUTINE    14000000
00009C 00000000                    1512+CVTTRMTB DC    A(0) -        ADDR OF QTAM TERMINAL TABLE                14200000
0000A0 00000000                    1513+CVTHEAD  DC    V(IEAHEAD) -  ADDR OF FIRST TCB ON READY QUEUE           14400000

0000A4 00000000                    1514+CVTMZ00  DC    A(0) -        HIGHEST STORAGE ADDRESS                    14600000
0000A8 00000000                    1515+CVT1EF00 DC    A(0) -        RESERVED (FORMERLY CIRB ROUTINE ADDR)      14601000
0000AC 00000000                    1516+CVTQOCR  DC    A(0) -        ADDR OF SEVENTH GFX PARM LIST WORD         16638521

                                   1517+*                              (0 IF GFX INACTIVE) MVT                  16640821
0000B0 00000000                    1518+CVTQMWR  DC    V(IEFQMWR) -  ADDR OF QMGR COMMUNICATION DATA AREA       16647721
                                   1519+*                              (MVT/MFT)                                16650000
0000B4 0000                        1520+CVTSNCTR DC    H'0' -        SERIAL DATA SET SEQUENCE NUMBER COUNTER    16660000
0000B6 00                          1521+CVTOPTA  DC    AL1(00)    -     MISCELLANEOUS FLAGS                     16670021
                            00080  1522+CVTCCH   EQU   X'80' -       CCH OPTION PRESENT (MVT/MFT)               16680000
                            00040  1523+CVTAPR   EQU   X'40' -       AUTOMATIC PATH RETRY --                    16681000
                                   1524+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16681100
                            00020  1525+CVTDDR   EQU   X'20' -       DYNAMIC DEVICE RECONFIGURATION --          16683000
                                   1526+*                              I/O RECOVERY MANAGEMENT (MVT/MFT)        16683200
                            00010  1527+CVTNIP   EQU   X'10' -       NIP RUNNING                                16690000
                            00008  1528+CVTATTCH EQU   X'08' -       ATTACH OPERATIVE (MFT)                     16691000

                            00004  1529+CVTHIAR  EQU   X'04' -       MAIN STORAGE HIERARCHY SUPPORT OPERATIVE   16692000

                            00002  1530+CVTASCII EQU   X'02' -       USAS(CI)I OPTION PRESENT                   16693000
                            00001  1531+CVTXPFP  EQU   X'01' -       CPU HAS EXTENDED PRECISION FLOATING POINT  16695000

0000B7 00                          1532+CVTOPTB  DC    AL1(00)     - MISCELLANEOUS FLAGS                        16700021
                            00080  1533+CVTPROT  EQU   X'80' -       STORE PROTECTION SYSGENED (MFT)            16702000
                            00020  1534+CVTTOD   EQU   X'20' -       CPU HAS TIME OF DAY CLOCK (MVT/MFT)        16704000
                                   1535+*                                                                       16800000
                                   1536+*              PCP OVERLAY                                              17000000
                                   1537+*                                                                       17200000
0000B8                             1538+CVTCRTTR DS    CL3 -         TTR OF MODIFIED JCT FOR RESTART            17400000
0000BB                             1539+CVTSTUSA DS    B -           STATUS BYTE A                              17600000
                            00008  1540+CVTCHPTR EQU   X'08' -       REQUESTED AUTOMATIC CHECKPOINT RESTART     17800000
                                   1541+*                              WAS INITIATED INTRASTEP                  18000000
                            00004  1542+CVTSTEPR EQU   X'04' -       REQUESTED AUTOMATIC STEP RESTART           18200000
                                   1543+*                              WAS INITIATED INTERSTEP                  18400000

XEQ      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   49



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00002  1544+CVTDATA  EQU   X'02' -       DD DATA STATEMENT IN INPUT STREAM          18600000

                                   1545+*                              AND DATA HAS NOT BEEN READ               18800000
0000BC                             1546+         DS    CL2 -         RESERVED                                   19000000
0000BE                             1547+         DS    CL2 -         RESERVED                                   19200000
                                   1548+*                                                                       19400000
                                   1549+*              MVT/MFT OVERLAY                                          19600000
                                   1550+*                                                                       19800000
0000C0                      000B8  1551+         ORG   CVTCRTTR                                                 20000000
                                   1552+*                                                                       20200000
0000B8 00000000                    1553+CVTQCDSR DC    V(IEAQCDSR) - MVT/MFT: CDE SEARCH ROUTINE ADDR           20400000
0000BC 00000000                    1554+CVTQLPAQ DC    V(IEAQLPAQ) - MVT/MFT: ADDR OF TOP CDE IN LPA QUEUE      21000000
                                   1555+*                                                                       21670000
                                   1556+*              END OF OVERLAYS                                          21800000

                                   1557+*                                                                       22000000
0000C0 00000000                    1558+CVTMPCVT DC    A(0) -        RESERVED (NOT M65MP)                       22421000

0000C4 00000000                    1559+CVTSMCA  DC    A(0) -        ADDR OF SYSTEM MGT CONTROL AREA            22600000

0000C8 00000000                    1560+CVTABEND DC    V(IEABEND) -  ADDR OF SECONDARY CVT FOR ABEND IN EOT     22610000
                                   1561+*                              (MVT/MPS)                                22610100
0000CC 00000000                    1562+CVTUSER  DC    A(0) -        A WORD TO THE USER                         22620000
0000D0                      000CC  1563+         ORG   CVTUSER -     REMAP CVTUSER AS CVTHJES              RFIT 22620100
0000CC                             1564+CVTHJES  DS    0A -          SAME AS CVTHJESA BELOW                RFIT 22620300
0000CC 00                          1565+         DC    XL1'00' -     RESERVED - FIRST BYTE OF CVTHJES      RFIT 22620500
0000CD 000000                      1566+CVTHJESA DC    AL3(0) -      ADDRESS OF HASP COMMUNICATION TABLE   RFIT 22620700
0000D0                      000D0  1567+         ORG   , -           RESTORE LOCATION COUNTER              RFIT 22620900
                                   1568+*                                                                       23000000
                                   1569+*              MFT/MVT CVT EXTENSION                                    24000000
                                   1570+*                                                                       24200000
0000D0 00000000                    1571+CVTMDLDS DC    A(0) -        RESERVED FOR MODEL-DEPENDENT SUPPORT       24400021

0000D4 0A0D                        1572+CVTQABST SVC   13 -          AN ABEND INSTRUCTION (MVT)                 24600000
0000D6 0A06                        1573+CVTLNKSC SVC   6 -           A LINK INSTRUCTION (MFT WITH SUBTASKING)   25000000
0000D8 00000000                    1574+CVTTSCE  DC    A(0) -        ADDR OF FIRST TIME SLICE CONTROL ELEMENT   25421000

0000DC 00000000                    1575+CVTPATCH DC    V(IEAPATCH) - ADDR OF FE PATCH AREA                      25540000
0000E0 00000000                    1576+CVTRMS   DC    A(0) -        ADDR OF RESIDENT RECOVERY MANAGEMENT AREA  25800000
                                   1577+*                              (MVT/MFT)                                25810000
0000E4                             1578+CVTTSCVT DS    0A -          ADDR OF TIME SHARING CVT (TSO)             26000000
0000E4 00                          1579+CVTTSFLG DC    B'0' -        TIME SHARING FLAGS (TSO)                   26050000
                            00080  1580+CVTTSRDY EQU   X'80' -       TIME SHARING READY                         26100000
0000E5 000000                      1581+CVTTSCVB DC    AL3(0) -      ADDR OF TIME SHARING CVT (TSO)             26150000
0000E8 00000000                    1582+CVT0SCR1 DC    A(0) -        ADDR OF RPS SECTOR CONVERTER (MVT/MFT)     27393221
0000EC                             1583+CVTGTF   DS    0A -          GENERALIZED TRACE FACILITY (MPS/MVT/MFT)   27394021
0000EC 00                          1584+CVTGTFST DC    B'0' -        STATUS FLAGS                               27396021
                            000C0  1585+CVTGTFS  EQU   X'C0' -       STATE                                      27398021
                                   1586+*/       00    CVTGTFIN      INACTIVE                                   27398421

                                   1587+*/       01    CVTGTFSR      STARTING                                   27398821
                                   1588+*/       10    CVTGTFSP      STOPPING                                   27399221
                                   1589+*/       11    CVTGTFAC      ACTIVE                                     27399621
                            00020  1590+CVTSTATE EQU   X'20' -       IN CONTROL                                 27399721

                            00010  1591+CVTMODE  EQU   X'10' -       EXT MODE                                   27399821
                            00008  1592+CVTFORM  EQU   X'08' -       ABDUMP TO FORMAT TRACE DATA                27399921
                            00004  1593+CVTUSR   EQU   X'04' -       USR TRACE                                  27449921
                            00002  1594+CVTMCTYP EQU   X'02' -       MC INSTRUCTION VALID                       27459921
0000ED 000000                      1595+CVTCMT   DC    VL3(IHLCMT) - ADDRESS OF CLASS MASK TABLE                27469921
0000F0                             1596+CVTTCMFG DS    0B -          TCAM FLAGS                                 27499921

                            00080  1597+CVTTCRDY EQU   X'80' -       TCAM RUNNING (MVT)                         27600000
0000F0 00000000                    1598+CVTAQAVT DC    A(0) -        PTR TO WORD CONTAINING ADDR OF             27610000
XEQ      OS COMMUNICATION VECTOR TABLE DSECT                                                                   PAGE   50


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1599+*                            TCAM ADDRESS VECTOR TABLE                  27620021
                                   1600+*                                                                       29401221
                                   1601+*              MVT CVT EXTENSION                                        29401321
                                   1602+*                                                                       29401421

0000F4                             1603+CVTVOLM2 DS    0A -          ADDRESS OF TABLE FOR POWER WARNING FEATURE 29401521
                                   1604+*                            (PWF)                               S21167 29401621

0000F4 80                          1605+CVTVOLF2 DC    X'80' -       PWF FLAG BYTE.  THIS BYTE IS OVERLAID BY   29404021
                                   1606+*                            CVTVOLM2 AFTER PWF INITIALIZATION.  S21167 29404221
                            00080  1607+CVTVOLI2 EQU   X'80' -       PWF INITIALIZATION HAS NOT OCCURRED S21167 29404421
0000F5 000000                      1608+CVTVOLT2 DC    AL3(0)     -  PWF RECHECK TIME DELAY.  THIS VALUE IS     29404621
                                   1609+*                            OVERLAID BY CVTVOLM2 AFTER PWF             29404821
                                   1610+*                            INITIALIZATION                      S21167 29405021
0000F8 00000000                    1611+         DC    A(0) -        RESERVED                                   29405221
                                   1612+*                                                                       29407021

                                   1613+*              MVT/MFT CVT EXTENSION                                    29408021
                                   1614+*                                                                       29408821
0000FC 00000114                    1615+CVTEXT1  DC    A(CVTXTNT1) - ADDRESS OF COMMON EXTENSION 1              29410821
                                   1616+*                            (ICB421)                APAR'S 47331,47332 29413221
000100                             1617+         DS    F -           RESERVED                                   29414221

000104                             1618+CVTPURG  DS    0A -          ADDRESS OF SUBSYSTEM PURGE ROUTINE         29415221
000104                             1619+         DS    X -           RESERVED                                   29416421
000105 000000                      1620+CVTPURGA DC    VL3(IEAASPRG) ADDRESS OF SUBSYSTEM PURGE ROUTINE         29417421

000108                             1621+         DS    F -           RESERVED                                   29418421
00010C                             1622+CVTQMSG  DS    0A -          SAME AS CVTQMSGA BELOW              ICB307 29419421
00010C                             1623+         DS    X -           RESERVED                            ICB307 29420421
00010D 000000                      1624+CVTQMSGA DC    VL3(IEAQMSGS) ADDRESS OF TYPE 1 SVC - ABEND              29421421
                                   1625+*                            COMMUNICATION AREA                  ICB307 29422421
000110                             1626+CVTDMSR  DS    0A -          SAME AS CVTDMSRA BELOW              ICB308 29423421
000110                             1627+         DS    X -           RESERVED                            ICB308 29424421

000111 000000                      1628+CVTDMSRA DC    VL3(IFG019RA) ADDRESS OF OPEN/CLOSE/EOV SUPERVISORY      29425421
                                   1629+*                            ROUTINE                             ICB308 29426421
                                   1630+*                                                                       29427421
                                   1631+*              COMMON EXTENSION 1                                       29435721
                                   1632+*              ADDRESS OF EXTENSION IS IN CVTEXT1                       29445721

                                   1633+*                                                                       29455721
                                   1634+*              TO REFERENCE ANY FIELDS IN THIS EXTENSION,               29456121
                                   1635+*              YOU SHOULD CODE -                                        29462521
                                   1636+*                                                                       29464521

                                   1637+*              L     REG,CVTEXT1                                        29466521
                                   1638+*              USING CVTXTNT1,REG                                       29468521
                                   1639+*                                                                       29468621
                                   1640+*              WHERE REG IS ANY REGISTER OTHER THAN ZERO.               29468721
                                   1641+*                                                                       29468821
                            00114  1642+CVTXTNT1 EQU   * -           START OF COMMON EXTENSION 1                29475221

                                   1643+*                            (ICB421)                APAR'S 47331,47332 29475721
000114 00000000                    1644+CVTFACHN DC    A(0) -        ADDRESS OF CHAIN OF DCB FIELD AREAS        29477221
                                   1645+*                            (ISAM) (ICB421)         APAR'S 47331,47332 29479221
                                   1646+*                                                                       29494421
                                   1647+*              END OF CVT PROPER                                        29513521

                                   1648+*                                                                       29532621
                                   1649+*                                                                       29870000
                                   1650+*              CODE CVT PREFIX=YES TO OBTAIN CVT PREFIX DSECT           29880000
                                   1651+*                                                                       29890000
000000                             1652+HASPXEQ  CSECT                     END OF CVT DSECT                     CT020000

XEQ      OS TASK CONTROL BLOCK DSECT                                                                           PAGE   51


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             1655+TCBDSECT DSECT                     TASK CONTROL BLOCK DSECT             TC010000

000000                             1656+TCBRBP   DS    F                   ADDRESS OF TOP RB                    TC012000
000004                             1657+TCBPIE   DS    F                   ADDRESS OF PROGRAM INTERRUPT ELEMENT TC014000
000008                             1658+TCBDEB   DS    F                   ADDRESS OF DEB QUEUE                 TC016000
00000C                             1659+TCBTIO   DS    F                   ADDRESS OF TASK I/O TABLE            TC018000
000010                             1660+TCBCMP   DS    F                   TASK COMPLETION CODE                 TC020000

000014                             1661+TCBTRN   DS    F                   ADDRESS OF TESTRAN CONTROL TABLE     TC022000
000018                             1662+TCBMSS   DS    F                   MAIN STORAGE SUPERVISOR POINTER      TC026000
00001C                             1663+TCBPKF   DS    C                   PROTECTION KEY                       TC028000
00001D                             1664+TCBFLGS  DS    3C                  MISCELLANEOUS FLAGS                  TC028800
000020                             1665+TCBFLGS4 DS    C                   NONDISPATCHABILITY FLAGS             TC029600
                            00010  1666+TCBHNDSP EQU   X'10'               HASP FREEZE BIT                      TC030400

000021                             1667+TCBFLGS5 DS    C                   NONDISPATCHABILITY FLAGS             TC031200
000022                             1668+TCBLMP   DS    C                   ENQUEUE COUNT / LIMIT PRIORITY       TC032000
000023                             1669+TCBDSP   DS    C                   DISPATCHING PRIORITY                 TC034000
000024                             1670+TCBLLS   DS    F                   LOAD LIST                            TC036000

000028                             1671+TCBJLB   DS    F                   ADDRESS OF JOBLIB DCB                TC038000
00002C                             1672+TCBJPQ   DS    F                   ADDRESS OF CDE FOR JPA               TC040000
000030                             1673+TCBGRS   DS    16F                 GENERAL REGISTER SAVE AREA           TC042000
000070                             1674+TCBQEL   DS    0C                  ENQUEUE COUNT (MVT)                  TC046000
000070                             1675+TCBFSA   DS    F                   ADDRESS OF FIRST PROGRAM SAVE AREA   TC048000

000074                             1676+TCBTCB   DS    F                   ADDRESS OF NEXT LOWER PRIORITY TCB   TC050000
000078                             1677+TCBTME   DS    F                   ADDRESS OF TIMER ELEMENT             TC052000
00007C                             1678+TCBJSTCB DS    F                   ADDRESS OF FIRST TCB FOR JOB STEP    TC056000
000080                             1679+TCBNTC   DS    F                   ADDRESS OF PREVIOUS TCB              TC058000
000084                             1680+TCBOTC   DS    F                   ADDRESS OF ORIGINATING TCB           TC060000
000088                             1681+TCBLTC   DS    F                   ADDRESS OF LAST TCB ON SUBTASK QUEUE TC062000
00008C                             1682+TCBIQE   DS    F                   ADDRESS OF IQE FOR ETXR ROUTINE      TC064000

000090                             1683+TCBECB   DS    F                   ADDRESS OF ECB POSTED ON COMPLETION  TC066000
000094                             1684+TCBTSFLG DS    C                   TIME SHARING FLAGS                   TC066800
000095                             1685+TCBSTPCT DS    C                   STATUS STOP COUNT                    TC067600

000096                             1686+TCBTSLP  DS    C                   TS TASK LIMIT PRIORITY               TC068400
000097                             1687+TCBTSDP  DS    C                   TS TASK DISPATCHING PRIORITY         TC069200
000098                             1688+TCBPQE   DS    F                   ADDRESS OF REGION DUMMY PQE - 8      TC070000
00009C                             1689+TCBAQE   DS    F                   ADDRESS OF ALLOCATED QUEUE ELEMENT   TC072000
0000A0                             1690+TCBNSTAE DS    F                   ADDR OF CURRENT STAE CONTROL BLOCK   TC074000

0000A4                             1691+TCBTCT   DS    F                   ADDRESS OF THE TCT                   TC076000
0000A8                             1692+TCBUSER  DS    F                   USER FIELD                           TC078000
0000AC                             1693+TCBNDSP  DS    F                   SECONDARY NONDISPATCHABILITY         TC080000
0000B0                             1694+TCBPCE   DS    0F .                ADDRESS OF HASP PCE         FJP/RFIT TC081700
                            00001  1695+TCBPCEND EQU   X'01' .             HASP NON-DISPATCH. FLAG     FJP/RFIT TC081800
0000B0                             1696+         DS    F                   RESERVED                             TC082000
0000B4                             1697+TCBJSCB  DS    F                   ADDRESS OF JSCB                      TC083000
000000                             1698+HASPXEQ  CSECT                     END OF TASK CONTROL BLOCK DSECT      TC084000

XEQ      OS JOB STEP CONTROL BLOCK DSECT                                                                       PAGE   52


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             1701+JSCDSECT DSECT                     OS JSCB DSECT                        JS010000
                            000C0  1702+JSCHPCE  EQU   JSCDSECT+X'C0',4    OPTIONAL JES PCE ADDRESS.            JS012000
                            000E4  1703+JSCBSTEP EQU   JSCDSECT+X'E4',1    CURRENT STEP NUMBER.                 JS014000

                            0010C  1704+JSCBTJID EQU   JSCDSECT+X'10C',2   TSO TERMINAL JOB IDENTIFIER.         JS016000
000000                             1705+HASPXEQ  CSECT                     END OF OS JSCB DSECT                 JS018000
XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   53


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1707+*,***  IHB069  DEVD NOT SPECIFIED-ALL ASSUMED


                                   1709+*                       DCB SYMBOLIC DEFINITION FOR                     07700000
                                   1710+*                       PHYSICAL SEQUENTIAL                             07900000


                                   1712+*********************************************************************** 09960021

                                   1713+*  OS     RELEASE 21.8, 03/22/74                                      * 10000021
                                   1714+*  OS/VS1 RELEASE 03.1, 03/22/74                                      * 10010021
                                   1715+*********************************************************************** 10020021

000000                             1717+IHADCB   DSECT , -            DCBPTR                                    10150000


                            00080  1719+DCBBIT0  EQU   128                                                      10210021
                            00040  1720+DCBBIT1  EQU   64                                                       10220021
                            00020  1721+DCBBIT2  EQU   32                                                       10230021
                            00010  1722+DCBBIT3  EQU   16                                                       10240021
                            00008  1723+DCBBIT4  EQU   8                                                        10242021
                            00004  1724+DCBBIT5  EQU   4                                                        10244021
                            00002  1725+DCBBIT6  EQU   2                                                        10246021
                            00001  1726+DCBBIT7  EQU   1                                                        10248021


                                   1728+*                       DEVICE INTERFACES                               10350000


                                   1730+*                       DIRECT ACCESS DEVICES                           10500000

000000                             1732+DCBRELAD DS    CL4 -          PARTITIONED ORGANIZATION DATA SET -       10600000

                                   1733+*                             ADDRESS (IN THE FORM TTRN) OF MEMBER      10650000
                                   1734+*                             CURRENTLY USED.  ---                      10700000
                                   1735+*                             SYS1.LOGREC DATA SET - IF CCH OPTION HAS  10750000
                                   1736+*                             BEEN SPECIFIED IN SYSGEN PROCESS, ADDRESS 10800000
                                   1737+*                             OF A 12-BYTE PARAMETER IN THE EXPANSION   10850000
                                   1738+*                             OF MACRO INSTRUCTION IGFCATAP             10900000
000004                             1739+DCBKEYCN DS    FL1 -          KEYED BLOCK OVERHEAD CONSTANT             10950000
000005                             1740+DCBFDAD  DS    CL8 -          FULL DISK ADDRESS IN THE FORM OF MBBCCHHR 11000000
                                   1741+*                             OF RECORD THAT WAS JUST READ OR WRITTEN   11050000

00000D                      0000C  1743+         ORG   DCBFDAD+7                                                11150000

00000C                             1744+DCBDVTBL DS    0A -           SAME AS DCBDVTBA BELOW                    11200000
00000C                             1745+         DS    X -            LAST BYTE OF DCBFDAD                      11250000
00000D                             1746+DCBDVTBA DS    AL3 -          ADDRESS OF ENTRY IN I/O DEVICE            11300000
                                   1747+*                             CHARACTERISTICS TABLE FOR DEVICE BEING    11350000

                                   1748+*                             USED                                      11400000
000010                             1749+         DS    FL1 -          DCBKEYLE - KEY LENGTH OF DATA SET         11450000
000011                             1750+         DS    C -            DCBDEVT - DEVICE TYPE                     11500000
                                   1751+*   FOR MASKS FOR ISAM DIRECT ACCESS, SEE DCBOVDEV IN ISAM SECTION      11550000
                            00021  1752+DCBDV311 EQU   X'21' -        2311 DISK DRIVE                           11600000
                            00022  1753+DCBDV301 EQU   X'22' -        2301 PARALLEL DRUM                        11650000
                            00023  1754+DCBDV303 EQU   X'23' -        2303 SERIAL DRUM                          11700000
                            00024  1755+DCBDV302 EQU   X'24' -        2302 DISK STORAGE                         11750000
                            00025  1756+DCBDV321 EQU   X'25' -        2321 DATA CELL DRIVE                      11800000
                            00028  1757+DCBDV314 EQU   X'28' -        2314 DISK STORAGE FACILITY                11850000
000012                             1758+DCBTRBAL DS    H -            TRACK BALANCE.  NUMBER OF BYTES REMAINING 11900000
                                   1759+*                             ON CURRENT TRACK AFTER A WRITE OPERATION  11950000

                                   1760+*                             (THIS QUANTITY MAY BE NEGATIVE IF THERE   12000000
XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   54


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   1761+*                             ARE NO BYTES REMAINING ON TRACK).         12050000

                                   1763+*                       MAGNETIC TAPE                                   12200000

000014                      00000  1765+         ORG   IHADCB                                                   12300000
000000                             1766+         DS    CL12 -         RESERVED FOR I/O SUPERVISOR               12350000
00000C                             1767+DCBBLKCT DS    F -            BLOCK COUNT FOR EACH VOLUME               12400000
000010                             1768+DCBTRTCH DS    C -            TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 12450000
                            00023  1769+DCBMTE   EQU   X'23' -        E  - EVEN PARITY                          12500000
                            0003B  1770+DCBMTT   EQU   X'3B' -        T  - BCD/EBCDIC TRANSLATION               12550000
                            00013  1771+DCBMTC   EQU   X'13' -        C  - DATA CONVERSION                      12600000
                            0002B  1772+DCBMTET  EQU   X'2B' -        ET - EVEN PARITY AND TRANSLATION          12650000

000011                             1773+         DS    C -            DCBDEVT - DEVICE TYPE                     12700000
                            00081  1774+DCBDVMT  EQU   X'81' -        2400 SERIES MAGNETIC TAPE UNIT (7-TRACK   12750000
                                   1775+*                             OR 9-TRACK)                               12800000

                            00083  1776+DCBDVMT3 EQU   X'83' -        3400 SERIES MAGNETIC TAPE UNIT     ICB277 12850000
000012                             1777+DCBDEN   DS    C -            TAPE DENSITY - 2400 SERIES MAGNETIC TAPE  12900000
                                   1778+*                             UNITS                                     12950000
                                   1779+*                             CODE    7-TRACK     9-TRACK               13000000
                            00003  1780+DCBMTDN0 EQU   X'03' -         0       200 BPI       -                  13050000
                            00043  1781+DCBMTDN1 EQU   X'43' -         1       556 BPI       -                  13100000
                            00083  1782+DCBMTDN2 EQU   X'83' -         2       800 BPI     800 BPI              13150000
                            000C3  1783+DCBMTDN3 EQU   X'C3' -         3         -        1600 BPI              13200000
                            000D3  1784+DCBMTDN4 EQU   X'D3' -         4         -        6250 BPI        99223 13210003
000013                             1785+         DS    X -            RESERVED                                  13250000

                                   1787+*                       PAPER TAPE                                      13400000



000014                      00008  1789+         ORG   IHADCB+8                                                 13500000
000008                             1790+DCBLCTBL DS    A -            ADDRESS OF TRANSLATE TABLE                13550000

00000C                             1791+         DS    XL4 -          RESERVED                                  13600000
000010                             1792+DCBCODE  DS    C -            PAPER TAPE CODE BEING USED.  THE          13650000
                                   1793+*                             APPROPRIATE TRANSLATE TABLE IS MADE       13700000
                                   1794+*                             AVAILABLE                                 13750000
                            00080  1795+DCBPTCDN EQU   X'80' -        N - NO CONVERSION                         13800000
                            00040  1796+DCBPTCDI EQU   X'40' -        I - IBM BCD                               13850000
                            00020  1797+DCBPTCDF EQU   X'20' -        F - FRIDEN                                13900000
                            00010  1798+DCBPTCDB EQU   X'10' -        B - BURROUGHS                             13950000
                            00008  1799+DCBPTCDC EQU   X'08' -        C - NATIONAL CASH REGISTER                14000000
                            00004  1800+DCBPTCDA EQU   X'04' -        A - ASCII (8-TRACK)                       14050000
                            00002  1801+DCBPTCDT EQU   X'02' -        T - TELETYPE                              14100000
000011                             1802+         DS    C -            DCBDEVT - DEVICE TYPE                     14150000

                            00050  1803+DCBDVPTP EQU   X'50' -        2671 PAPER TAPE READER                    14200000
000012                             1804+         DS    X -            RESERVED                                  14250000

000013                             1805+DCBPTFLG DS    BL1 -          PAPER TAPE FLAGS                          14300000

                            00010  1806+DCBPTIC  EQU   DCBBIT3 -      INVALID CHARACTER IN LAST RECORD READ     14350003
                            00008  1807+DCBPTECT EQU   DCBBIT4 -      END OF RECORD CHARACTER REACHED IN        14400003
                                   1808+*                             TRANSLATION                               14450000
                            00004  1809+DCBPTECR EQU   DCBBIT5 -      END OF RECORD CHARACTER DETECTED DURING   14500003
                                   1810+*                             READ                                      14550000
                            00002  1811+DCBPTUCT EQU   DCBBIT6 -      IF ONE, UPPER CASE TRANSLATE.             14600003
                                   1812+*                             IF ZERO, LOWER CASE TRANSLATE             14650000
                            00001  1813+DCBPTERR EQU   DCBBIT7 -      ERROR DETECTED ON READ                    14700003

                                   1815+*                       PRINTER                                         14850000
XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   55


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000014                      00010  1817+         ORG   IHADCB+16                                                14950000
000010                             1818+DCBPRTSP DS    C -            NUMBER INDICATING NORMAL PRINTER SPACING  15000000
                            00001  1819+DCBPRSP0 EQU   X'01' -        0 - NO SPACING                            15050000

                            00009  1820+DCBPRSP1 EQU   X'09' -        1 - SPACE ONE LINE                        15100000
                            00011  1821+DCBPRSP2 EQU   X'11' -        2 - SPACE TWO LINES                       15150000
                            00019  1822+DCBPRSP3 EQU   X'19' -        3 - SPACE THREE LINES                     15200003
000011                             1823+         DS    C -            DCBDEVT - DEVICE TYPE                     15250000
                            00048  1824+DCBDVPR1 EQU   X'48' -        1403 PRINTER AND 1404 PRINTER (CONTINUOUS 15300000
                                   1825+*                             FORM SUPPORT ONLY)                        15350000
                            0004A  1826+DCBDVPR2 EQU   X'4A' -        1443 PRINTER                              15400000
                            00049  1827+DCBDVPR3 EQU   X'49' -        3211 PRINTER                              15450000
000012                             1828+DCBPRTOV DS    C -            TEST-FOR-PRINTER-OVERFLOW MASK            15500000
                                   1829+*                             (PRTOV MASK)                              15550000
                            00020  1830+DCBPRC9  EQU   X'20' -        9  - TEST FOR CHANNEL 9 OVERFLOW          15600000
                            00010  1831+DCBPRC12 EQU   X'10' -        12 - TEST FOR CHANNEL 12 OVERFLOW         15650000

000013                             1832+         DS    X -            RESERVED                                  15700000

                                   1834+*                       CARD READER, CARD PUNCH                         15850000


000014                      00010  1836+         ORG   IHADCB+16                                                15950000
000010                             1837+DCBMODE  DS    0B -           MODE OF OPERATION FOR 1442 CARD READ      16000000
                                   1838+*                             PUNCH (BITS 0-3)                          16050000
000010                             1839+DCBSTACK DS    B -            STACKER SELECTION (BITS 4-7)              16100000
                            00080  1840+DCBMODEC EQU   DCBBIT0 -      COLUMN BINARY MODE                        16150003
                            00040  1841+DCBMODEE EQU   DCBBIT1 -      EBCDIC MODE                               16200003

                            00020  1842+DCBMODEO EQU   DCBBIT2 -      OPTICAL MARK READ MODE                    16250003
                            00010  1843+DCBMODER EQU   DCBBIT3 -      READ COLUMN ELIMINATE MODE                16300003
                            00002  1844+DCBSTCK2 EQU   DCBBIT6 -      STACKER 2                                 16350003
                            00001  1845+DCBSTCK1 EQU   DCBBIT7 -      STACKER 1                                 16400003
000011                             1846+         DS    C -            DCBDEVT - DEVICE TYPE                     16450000
                            00041  1847+DCBDVCR0 EQU   X'41' -        2540 CARD READER                          16500000
                            00042  1848+DCBDVCP0 EQU   X'42' -        2540 CARD PUNCH                           16550000
                            00043  1849+DCBDVCRP EQU   X'43' -        1442 CARD READ PUNCH                      16600000

                            00044  1850+DCBDVCR1 EQU   X'44' -        2501 CARD READER                          16650000
                            00045  1851+DCBDVCPR EQU   X'45' -        2520 CARD READ PUNCH                      16700000

                            00046  1852+DCBDVCR2 EQU   X'46'          3505 CARD READER                   XM0629 16710002
                            0004C  1853+DCBDVCP1 EQU   X'4C'          3525 CARD PUNCH                    XM0629 16720002
000012                             1854+         DS    X -            RESERVED                                  16750000
000013                             1855+DCBFUNC  DS    B -            FUNCTION INDICATOR FOR THE 3525           16800000
                            00080  1856+DCBFNCBI EQU   DCBBIT0 -      INTERPRET (PUNCH AND PRINT TWO LINES)     16850003
                            00040  1857+DCBFNCBR EQU   DCBBIT1 -      READ                                      16900003
                            00020  1858+DCBFNCBP EQU   DCBBIT2 -      PUNCH                                     16950003
                            00010  1859+DCBFNCBW EQU   DCBBIT3 -      PRINT                                     17000003

                            00008  1860+DCBFNCBD EQU   DCBBIT4 -      DATA PROTECTION                           17050003
                            00004  1861+DCBFNCBX EQU   DCBBIT5 -      THIS DATA SET IS TO BE PRINTED            17100003
                            00002  1862+DCBFNCBT EQU   DCBBIT6 -      TWO-LINE PRINT SUPPORT REQUEST            17150003

                                   1864+*                       OPTICAL READER AND MAGNETIC CHAR READER         18100000


000014                      00000  1866+         ORG   IHADCB                                                   18200000
000000                             1867+DCBWTOID DS    0A -           SAME AS DCBWTOIA BELOW                    18250000

000000                             1868+         DS    X -            RESERVED                                  18300000
000001                             1869+DCBWTOIA DS    AL3 -          A BINARY IDENTIFICATION NUMBER ASSIGNED   18350000
                                   1870+*                             BY COMMUNICATIONS TASK TO MESSAGE ISSUED  18400000
                                   1871+*                             BY WTO MACRO.  THIS NUMBER IS USED BY THE 18450000
XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   56


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1872+*                             DOM MACRO WHEN MESSAGE IS NO LONGER       18500000

                                   1873+*                             REQUIRED (MCS SUPPORT).  ---              18550000
                                   1874+*                             FOR MAGNETIC CHAR READER - AFTER FIRST    18600000
                                   1875+*                             READ HAS BEEN ISSUED, CONTAINS ADDRESS OF 18650000
                                   1876+*                             MAGNETIC INTERRUPT CONTROL BLOCK (MICB)   18700000
                                   1877+*                             BEING USED BY THE APPENDAGES.             18750000


                                   1879+*                       OPTICAL READER DEVICES                          18900000
                                   1880+*                       1285, 1287, 1288, 3886                          18950003


000004                      00004  1882+         ORG   DCBWTOID+4                                               19050000
000004                             1883+DCBERRCN DS    0A -           SAME AS DCBERRCA BELOW                    19100000
000004                             1884+DCBERRCA DS    AL3 -          ADDRESS OF 32 BYTES OF DECLARED STORAGE   19200000
                                   1885+*                             SPECIFIED BY THE USER IN HIS PROGRAM.     19250000
                                   1886+*                             THIS STORAGE WILL BE USED BY THE          19300000
                                   1887+*                             PROGRAMMING SUPPORT AS EIGHT 4-BYTE       19350000

                                   1888+*                             COUNTERS IN WHICH TOTALS OF CERTAIN 1285, 19400000
                                   1889+*                             1287 AND 1288 ERROR CONDITIONS ARE        19450000
                                   1890+*                             ACCUMULATED.                              19500000
000007                      00004  1891+         ORG   DCBWTOID+4                                               19510003
000004                             1892+DCBLNNUM DS    X              3886  DOCUMENT LINE NUMBER                19520003

000005                             1893+DCBLFMAT DS    X              3886  LINE FORMAT NUMBER                  19530003
000006                             1894+DCBORFLG DS    X              3886  FLAGS                               19540003
                            00080  1895+DCBEOPFG EQU   DCBBIT0        END OF PAGE                               19540403
000007                             1896+         DS    X              RESERVED                                  19542003
000008                             1897+DCBDSPLY DS    0A -           SAME AS DCBDSPLA BELOW                    19550000

000008                             1898+DCBFRID  DS    0CL4           3886  FORMAT RECORD ID                    19560003
000008                             1899+         DS    X -            RESERVED                                  19600000
000009                             1900+DCBDSPLA DS    AL3 -          ADDRESS OF DSPLY (BSAM) ROUTINE USED FOR  19650000
                                   1901+*                             KEYBOARD ENTRY OF A COMPLETE FIELD        19700000
00000C                             1902+DCBRESCN DS    0A -           SAME AS DCBRESCA BELOW                    19750000

00000C                             1903+DCBRDLNE DS    0A -           SAME AS DCBRDLNA BELOW                    19800000
00000C                             1904+DCBFRTBA DS    0A             3886  FORMAT RECORD TABLE                 19810003
00000C                             1905+         DS    X -            RESERVED                                  19850000
00000D                             1906+DCBRESCA DS    0AL3 -         ADDRESS OF RESCN (BSAM) ROUTINE USED TO   19900000
                                   1907+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    19950000

                                   1908+*                             CHARACTERS                                20000000
00000D                             1909+DCBRDLNA DS    AL3 -          ADDRESS OF RDLNE (QSAM) ROUTINE USED TO   20050000
                                   1910+*                             FORCE ON-LINE CORRECTION OF UNREADABLE    20100000
                                   1911+*                             CHARACTERS                                20150000
000010                             1912+DCBORBYT DS    BL1 -          OPTICAL READER BYTE USED BY BSAM/QSAM     20200000
                            00080  1913+DCBORSYN EQU   DCBBIT0 -      SYNAD IN CONTROL                          20250003

                            00040  1914+DCBOREOF EQU   DCBBIT1 -      END OF FILE (EOF)                         20300003
                            00020  1915+DCBORBFP EQU   DCBBIT2 -      BUFFERS PRIMED (QSAM)                     20350003
000011                             1916+         DS    C -            DCBDEVT - DEVICE TYPE                     20400000
                            0005A  1917+DCBDVOR5 EQU   X'5A' -        1285 OPTICAL READER                       20450000

                            0005B  1918+DCBDVOR7 EQU   X'5B' -        1287 OPTICAL READER                       20500000
                            0005C  1919+DCBDVOR8 EQU   X'5C' -        1288 OPTICAL READER                       20550000
                            00057  1920+DCBDVOR9 EQU   X'57'          3886 OPTICAL READER                       20560003
000012                             1921+DCBEIB   DS    BL1 -          ERROR INDICATOR BYTE                      20600000
                            00040  1922+DCBORNRM EQU   DCBBIT1 -      THE 1287 OR 1288 SCANNER WAS UNABLE TO    20650003

                                   1923+*                             LOCATE THE REFERENCE MARK                 20700000
                            00020  1924+DCBORREJ EQU   DCBBIT2 -      FOR 1287, A STACKER SELECT COMMAND WAS    20750003
                                   1925+*                             GIVEN AFTER ALLOTTED TIME HAD ELAPSED AND 20800000
                                   1926+*                             THE DOCUMENT HAS BEEN PUT IN REJECT       20850000
XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   57


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1927+*                             POCKET.  FOR 1288 UNFORMATTED ONLY,       20900000

                                   1928+*                             END-OF-PAGE HAS OCCURRED.                 20950000
                            00010  1929+DCBORERR EQU   DCBBIT3 -      A NONRECOVERABLE ERROR HAS OCCURRED.      21000003
                            00008  1930+DCBORECK EQU   DCBBIT4 -      AN EQUIPMENT CHECK RESULTED IN AN         21050003

                                   1931+*                             INCOMPLETE READ                           21100000
                            00004  1932+DCBORWLR EQU   DCBBIT5 -      A WRONG-LENGTH RECORD CONDITION HAS       21150003
                                   1933+*                             OCCURRED                                  21200000
                            00002  1934+DCBORHPR EQU   DCBBIT6 -      FOR QSAM - OPERATOR ENTERED ONE OR MORE   21250003
                                   1935+*                             CHARACTERS FROM THE KEYBOARD.             21300000

                                   1936+*                             FOR BSAM - A HOPPER EMPTY CONDITION HAS   21350000
                                   1937+*                             OCCURRED                                  21400000
                            00001  1938+DCBORDCK EQU   DCBBIT7 -      A DATA CHECK HAS OCCURRED                 21450003
000013                             1939+         DS    X -            RESERVED                                  21500000

                                   1941+*                       MAGNETIC CHARACTER READER DEVICES               21650000
                                   1942+*                       1419 MAGNETIC CHARACTER READER                  21700000
                                   1943+*                       1275 OPTICAL READER SORTER                      21750000

                                   1944+*                       3890 MAGNETIC CHARACTER READER                  21760003


000014                      00000  1946+         ORG   IHADCB                                                   21850000
000000                             1947+DCBSSID  DS    CL8 -          BEFORE DCB IS OPENED - NAME OF USER'S     21900000
                                   1948+*                             STACKER SELECT ROUTINE.                   21950000

000008                      00000  1950+         ORG   DCBSSID                                                  22050000

000000                             1951+         DS    A -            AFTER DCB IS OPENED - DCBWTOID            22100000
000004                             1952+DCBSSAD  DS    0A -           ADDRESS OF USER'S STACKER SELECT ROUTINE  22150000
000004                             1953+DCBIMG   DS    0A             3890  ADDR OF USER'S IMAGE PROC RTN       22160003
000004                             1954+         DS    X -            RESERVED                                  22200000
000005                             1955+DCBSSADA DS    AL3 -          ADDRESS OF USER'S STACKER SELECT ROUTINE  22250000
000008                             1956+DCBIMAGE DS    0A -           SAME AS DCBIMAGA BELOW                    22300000
000008                             1957+DCBMRFG  DS    BL1 -          BUFFER INDICATOR                          22350000
                            000C0  1958+DCBMRBCT EQU   DCBBIT0+DCBBIT1 -                                        22400003
                                   1959+*                             TWO-BIT BINARY COUNTER WHICH INDICATES    22410003

                                   1960+*                             INTO WHICH BUFFER STATUS INFORMATION IS   22450000

                                   1961+*                             TO BE POSTED                              22500000
000009                             1962+DCBIMAGA DS    AL3 -          ADDRESS OF PARAMETER LIST USED TO         22550000
                                   1963+*                             COMMUNICATE BETWEEN USER'S PROCESSING     22600000
                                   1964+*                             ROUTINES AND HIS STACKER SELECT ROUTINES  22650000
00000C                             1965+DCBECBLT DS    0A -           SAME AS DCBECBLA BELOW                    22700000

00000C                             1966+DCBHDR   DS    0A             3890  ADDR OF USER'S HEADER DATA AREA     22702003
00000C                             1967+DCBMRIND DS    BL1 -          INDICATOR AND COUNTER BYTE                22750000
                            000E0  1968+DCBMRDCT EQU   DCBBIT0+DCBBIT1+DCBBIT2                                  22800003
                                   1969+*                             THREE-BIT BINARY COUNTER OF NUMBER OF     22810003
                                   1970+*                             DOCUMENTS READ AFTER DISENGAGE            22850000
                            00010  1971+DCBMRSCU EQU   DCBBIT3 -      DCB WAS ALTERED WHEN SYNAD ROUTINE WAS    22900003
                                   1972+*                             ENTERED DUE TO SECONDARY CONTROL UNIT     22950000
                                   1973+*                             (SCU) ERROR                               23000000
                            00008  1974+DCBMRPLO EQU   DCBBIT4 -      POCKET LIGHT HAS BEEN TURNED ON           23050003
                            00004  1975+DCBMRPLS EQU   DCBBIT5 -      POCKET LIGHT 0-6 IS BEING SET ON          23100003

                            00002  1976+DCBMRERP EQU   DCBBIT6 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23150003

                                   1977+*                             PRIMARY CONTROL UNIT (PCU)                23200000
                            00001  1978+DCBMRERS EQU   DCBBIT7 -      ERROR RECOVERY PROCEDURE IS EXECUTING FOR 23250003
                                   1979+*                             SECONDARY CONTROL UNIT (SCU)              23300000
00000D                             1980+DCBECBLA DS    AL3 -          ADDRESS OF ECB LIST PASSED TO WAIT MACRO  23350000

                                   1981+*                             BY CHECK MACRO WHEN NO 1419/1275 IS       23400000
XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   58


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   1982+*                             AVAILABLE FOR PROCESSING                  23450000
000010                             1983+DCBMRFLG DS    BL1 -          FLAG BYTE                                 23500000
                            00080  1984+DCBMRSCC EQU   DCBBIT0 -      FIRST OR SECOND SECONDARY CONTROL UNIT    23550003
                                   1985+*                             COMMAND CHAIN IS BEING USED               23600000
                            00040  1986+DCBMRDBG EQU   DCBBIT1 -      DEBUGGING MODE IN USE                     23650003
                            00020  1987+DCBMRDRU EQU   DCBBIT2 -      DISENGAGE REQUESTED BY USER               23700003
                            00010  1988+DCBMRDR  EQU   DCBBIT3 -      DISENGAGE REQUESTED                       23750003
                            0000C  1989+DCBMRPCC EQU   DCBBIT4+DCBBIT5 -                                        23800003
                                   1990+*                             TWO-BIT BINARY COUNTER INDICATING FIRST,  23802003

                                   1991+*                             SECOND OR THIRD PRIMARY CONTROL UNIT      23850000
                                   1992+*                             COMMAND CHAIN IS BEING USED               23900000
                            00002  1993+DCBMRDWT EQU   DCBBIT6 -      WTO MESSAGE MUST BE DELETED               23950003

                            00001  1994+DCBMRUE  EQU   DCBBIT7 -      UNIT EXCEPTION                            24000003
000011                             1995+         DS    C -            DCBDEVT - DEVICE TYPE                     24050000
                            0005D  1996+DCBDVMR  EQU   X'5D' -        1419 MAGNETIC CHARACTER READER            24100000
                            0005F  1997+DCBDVORS EQU   X'5F' -        1275 OPTICAL READER SORTER                24150000
                            00056  1998+DCBDVMRS EQU   X'56'          3890 MAGNETIC CHARACTER READER SORTER     24160003
000012                             1999+DCBAPPIN DS    C -            AN INDICATOR USED BY THE APPENDAGES TO    24200000
                                   2000+*                             PASS INFORMATION ABOUT ONE CHANNEL CHAIN  24250000
                                   2001+*                             TO AN APPENDAGE ASSOCIATED WITH ANOTHER   24300000
                                   2002+*                             CHANNEL CHAIN                             24350000
000013                             2003+         DS    X -            RESERVED                                  24400000


                                   2005+*                       ACCESS METHOD COMMON INTERFACE                  24600000

000014                      00010  2007+         ORG   IHADCB+16                                                24700000
000010                             2008+DCBRELB  DS    0F -           SAME AS DCBREL BELOW                      24750000

000010                             2009+DCBKEYLE DS    FL1 -          KEY LENGTH OF DATA SET                    24800000
000011                             2010+DCBDEVT  DS    0C -           DEVICE TYPE                               24850000
                            0004F  2011+DCBDVTRM EQU   X'4F' -        TERMINAL.  (DD CONTAINS TERM=TS)          24900000
000011                             2012+DCBREL   DS    FL3 -          NUMBER OF RELATIVE TRACKS OR BLOCKS IN    24950000
                                   2013+*                             THIS DATA SET (BDAM)                      25000000
000014                             2014+DCBBUFCB DS    0A -           ADDRESS OF BUFFER POOL CONTROL BLOCK      25050000
000014                             2015+DCBBUFNO DS    FL1 -          NUMBER OF BUFFERS REQUIRED FOR THIS DATA  25100000
                                   2016+*                             SET.  MAY RANGE FROM 0 TO 255.  IF        25150000
                                   2017+*                             UNBLOCKED SPANNED RECORDS ARE USED,       25200000
                                   2018+*                             NUMBER OF SEGMENT WORK AREAS REQUIRED     25250000
                                   2019+*                             FOR THIS DATA SET.                        25300000
000015                             2020+DCBBUFCA DS    AL3 -          ADDRESS OF BUFFER POOL CONTROL BLOCK      25350000

000018                             2021+DCBBUFL  DS    H -            LENGTH OF BUFFER.  MAY RANGE FROM 0 TO    25400000
                                   2022+*                             32,767.                                   25450000
00001A                             2023+DCBDSORG DS    0BL2 -         DATA SET ORGANIZATION BEING USED          25500000

00001A                             2024+DCBDSRG1 DS    BL1 -          FIRST BYTE OF DCBDSORG                    25550000
                            00080  2025+DCBDSGIS EQU   DCBBIT0 -      IS - INDEXED SEQUENTIAL ORGANIZATION      25600003
                            00040  2026+DCBDSGPS EQU   DCBBIT1 -      PS - PHYSICAL SEQUENTIAL ORGANIZATION     25650003
                            00020  2027+DCBDSGDA EQU   DCBBIT2 -      DA - DIRECT ORGANIZATION                  25700003
                            00010  2028+DCBDSGCX EQU   DCBBIT3 -      CX - BTAM OR QTAM LINE GROUP              25750003
                            00008  2029+DCBDSGCQ EQU   DCBBIT4 -      CQ - QTAM DIRECT ACCESS MESSAGE QUEUE     25800003
                            00004  2030+DCBDSGMQ EQU   DCBBIT5 -      MQ - QTAM PROBLEM PROGRAM MESSAGE QUEUE   25850003
                            00002  2031+DCBDSGPO EQU   DCBBIT6 -      PO - PARTITIONED ORGANIZATION             25900003
                            00001  2032+DCBDSGU  EQU   DCBBIT7 -      U  - UNMOVABLE, THE DATA CONTAINS         25950003
                                   2033+*                                  LOCATION DEPENDENT INFORMATION       26000000
00001B                             2034+DCBDSRG2 DS    BL1 -          SECOND BYTE OF DCBDSORG                   26050000
                            00080  2035+DCBDSGGS EQU   DCBBIT0 -      GS - GRAPHICS ORGANIZATION                26100003

                            00040  2036+DCBDSGTX EQU   DCBBIT1 -      TX - TCAM LINE GROUP                      26150003

XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   59


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                            00020  2037+DCBDSGTQ EQU   DCBBIT2 -      TQ - TCAM MESSAGE QUEUE                   26200003
                            00008  2038+DCBACBM  EQU   DCBBIT4 -      ACCESS METHOD CONTROL BLOCK    ICBI DCB-1 26250003
                            00004  2039+DCBDSGTR EQU   DCBBIT5 -      TR - TCAM 3705                     S22024 26260003
00001C                             2040+DCBIOBAD DS    0A -           ADDRESS OF IOB WHEN CHAINED SCHEDULING IS 26300000
                                   2041+*                             USED OR FOR 1419/1275                     26350000
00001C                             2042+DCBODEB  DS    0A -           ADDRESS OF OLD DEB                        26400000
00001C                             2043+DCBLNP   DS    0FL1 -         3525 PRINTER LINE POSITION COUNTER        26450000
00001C                             2044+DCBQSLM  DS    BL1 -          QSAM LOCATE MODE LOGICAL RECORD INTERFACE 26500000
                                   2045+*                             INDICATOR BYTE FOR UPDAT PROCESSING OF    26550000
                                   2046+*                             SPANNED RECORDS                           26600000
                            00080  2047+DCB1DVDS EQU   DCBBIT0 -      ONLY ONE DEVICE IS ALLOCATED TO THIS      26650003
                                   2048+*                             DATA SET                                  26700000

                            00040  2049+DCBUPDCM EQU   DCBBIT1 -      UPDATE COMPLETE, FREE OLD DEB             26750003
                            00030  2050+DCBUPDBT EQU   DCBBIT2+DCBBIT3 -                                        26800003

                                   2051+*                             UPDATE BITS                               26810003

                            00020  2052+DCBUPDT  EQU   DCBBIT2 -      UPDATE TO TAKE PLACE                      26850003
                            00030  2053+DCBNUPD  EQU   DCBBIT2+DCBBIT3 -                                        26900003
                                   2054+*                             NO UPDATE TO TAKE PLACE                   26910003
                            00010  2055+DCBSVDEB EQU   DCBBIT3 -      OLD DEB ADDRESS MUST BE SAVED             26950003
00001D                             2056+DCBIOBAA DS    0AL3 -         SAME AS DCBIOBAD ABOVE                    27000000
00001D                             2057+DCBODEBA DS    AL3 -          ADDRESS OF OLD DEB                        27050000
000020                      0001C  2058+         ORG   IHADCB+28                                     ICBI DCB-4 27100000
00001C                             2059+DCBSVCXL DS    0A -           SAME AS DCBSVCXA BELOW         ICBI DCB-4 27150000
00001C                             2060+         DS    X -            RESERVED                       ICBI DCB-4 27200000
00001D                             2061+DCBSVCXA DS    AL3 -          POINTER TO EXIT LIST OF JES    ICBI DCB-4 27250000
                                   2062+*                             C.I. INTERFACE CONTROL SVC     ICBI DCB-4 27300000


                                   2064+*                       FOUNDATION EXTENSION                            27400000

000020                             2066+DCBEODAD DS    0A -           SAME AS DCBEODA BELOW                     27500000

000020                             2067+DCBHIARC DS    0BL1 -         HIERARCHY BITS                            27550000
000020                             2068+DCBBFTEK DS    0BL1 -         BUFFERING TECHNIQUE BITS                  27600000
000020                             2069+DCBBFALN DS    BL1 -          BUFFER ALIGNMENT BITS                     27650000
                            00080  2070+DCBH1    EQU   DCBBIT0 -      HIERARCHY 1 MAIN STORAGE - BIT 5 IS ZERO  27700003
                            00070  2071+DCBBFT   EQU   DCBBIT1+DCBBIT2+DCBBIT3                                  27750003
                                   2072+*                             BUFFERING TECHNIQUE                       27760003
                            00060  2073+DCBBFTA  EQU   DCBBIT1+DCBBIT2 -                                        27800003
                                   2074+*                             QSAM LOCATE MODE PROCESSING OF SPANNED    27810003
                                   2075+*                             RECORDS - OPEN IS TO CONSTRUCT A RECORD   27850000
                                   2076+*                             AREA IF IT AUTOMATICALLY CONSTRUCTS       27900000
                                   2077+*                             BUFFERS                                   27950000
                            00020  2078+DCBBFTR  EQU   DCBBIT2 -      FOR BSAM CREATE BDAM PROCESSING OF        28000003

                                   2079+*                             UNBLOCKED SPANNED RECORDS - SOFTWARE      28050000
                                   2080+*                             TRACK OVERFLOW.  FOR BSAM INPUT           28100000
                                   2081+*                             PROCESSING OF UNBLOCKED SPANNED RECORDS   28150000
                                   2082+*                             WITH KEYS - RECORD OFFSET PROCESSING.     28200000

                            00040  2083+DCBBFTS  EQU   DCBBIT1 -      SIMPLE BUFFERING - BIT 3 IS ZERO          28250003
                            00020  2084+DCBBFTKR EQU   DCBBIT2 -      UNBLOCKED SPANNED RECORDS - SOFTWARE      28300003
                                   2085+*                             TRACK OVERFLOW (BDAM)                     28350000
                            00010  2086+DCBBFTE  EQU   DCBBIT3 -      EXCHANGE BUFFERING - BIT 1 IS ZERO        28400003
                            00008  2087+DCBBFTKD EQU   DCBBIT4 -      DYNAMIC BUFFERING (BTAM)                  28450003
                            00004  2088+DCBH0    EQU   DCBBIT5 -      HIERARCHY 0 MAIN STORAGE - BIT 0 IS ZERO  28500003

                            00003  2089+DCBBFA   EQU   DCBBIT6+DCBBIT7 -                                        28550003
                                   2090+*                             BUFFER ALIGNMENT                          28560003
                            00002  2091+DCBBFAD  EQU   DCBBIT6 -      DOUBLEWORD BOUNDARY                       28600003
XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   60


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00001  2092+DCBBFAF1 EQU   DCBBIT7 -      FULLWORD NOT A DOUBLEWORD BOUNDARY,       28650003
                                   2093+*                             CODED IN DCB MACRO INSTRUCTION            28700000
                            00003  2094+DCBBFAF2 EQU   DCBBIT6+DCBBIT7 -                                        28750003

                                   2095+*                             FULLWORD NOT A DOUBLEWORD BOUNDARY,       28760003
                                   2096+*                             CODED IN DCB MACRO INSTRUCTION            28800000

000021                             2097+DCBEODA  DS    AL3 -          ADDRESS OF A USER-PROVIDED ROUTINE TO     28850000
                                   2098+*                             HANDLE END-OF-DATA CONDITIONS             28900000
000024                             2099+DCBEXLST DS    0A -           ADDRESS OF USER-PROVIDED LIST OF EXITS    28950000
000024                             2100+DCBRECFM DS    BL1 -          RECORD FORMAT                             29000000
                            000E0  2101+DCBRECLA EQU   DCBBIT0+DCBBIT1+DCBBIT2  -                               29050003
                                   2102+*                             RECORD LENGTH INDICATOR - ASCII           29060003
                            00020  2103+DCBRECD  EQU   DCBBIT2 -      ASCII VARIABLE RECORD LENGTH              29100003
                            000C0  2104+DCBRECL  EQU   DCBBIT0+DCBBIT1 -                                        29150003

                                   2105+*                             RECORD LENGTH INDICATOR                   29160003
                            00080  2106+DCBRECF  EQU   DCBBIT0 -      FIXED RECORD LENGTH                       29200003
                            00040  2107+DCBRECV  EQU   DCBBIT1 -      VARIABLE RECORD LENGTH                    29250003
                            000C0  2108+DCBRECU  EQU   DCBBIT0+DCBBIT1 -                                        29300003
                                   2109+*                             UNDEFINED RECORD LENGTH                   29310003

                            00020  2110+DCBRECTO EQU   DCBBIT2 -      TRACK OVERFLOW                            29350003
                            00010  2111+DCBRECBR EQU   DCBBIT3 -      BLOCKED RECORDS                           29400003
                            00008  2112+DCBRECSB EQU   DCBBIT4 -      FOR FIXED LENGTH RECORD FORMAT - STANDARD 29450003

                                   2113+*                             BLOCKS.  FOR VARIABLE LENGTH RECORD       29500000
                                   2114+*                             FORMAT - SPANNED RECORDS                  29550000
                            00006  2115+DCBRECCC EQU   DCBBIT5+DCBBIT6 -                                        29600003
                                   2116+*                             CONTROL CHARACTER INDICATOR               29610003
                            00004  2117+DCBRECCA EQU   DCBBIT5 -      ASA CONTROL CHARACTER                     29650003
                            00002  2118+DCBRECCM EQU   DCBBIT6 -      MACHINE CONTROL CHARACTER                 29700003
                            00000  2119+DCBRECC  EQU   X'00' -        NO CONTROL CHARACTER                      29750000

                            00001  2120+DCBRECKL EQU   DCBBIT7 -      KEY LENGTH (KEYLEN) WAS SPECIFIED IN DCB  29800003
                                   2121+*                             MACRO INSTRUCTION                         29850000
000025                             2122+DCBEXLSA DS    AL3 -          ADDRESS OF USER-PROVIDED LIST OF EXITS    29900000



                                   2125+*                       FOUNDATION BEFORE OPEN                          47150000

000028                      00028  2127+         ORG   IHADCB+40                                                47250000
000028                             2128+DCBDDNAM DS    CL8 -          NAME ON THE DD STATEMENT WHICH DEFINES    47300000

                                   2129+*                             THE DATA SET ASSOCIATED WITH THIS DCB     47350000
000030                             2130+DCBOFLGS DS    BL1 -          FLAGS USED BY OPEN ROUTINE                47400000
                            00080  2131+DCBOFLWR EQU   DCBBIT0 -      IF ZERO, LAST I/O OPERATION WAS READ OR   47450003
                                   2132+*                             POINT.  IF ONE, LAST I/O OPERATION WAS    47500000
                                   2133+*                             WRITE.                                    47550000
                            00080  2134+DCBOFIOD EQU   DCBBIT0 -      DATA SET IS BEING OPENED FOR INPUT OR     47600003

                                   2135+*                             OUTPUT (BDAM)                             47650000
                            00040  2136+DCBOFLRB EQU   DCBBIT1 -      LAST I/O OPERATION WAS IN READ BACKWARD   47700003
                                   2137+*                             MODE                                      47750000
                            00020  2138+DCBOFEOV EQU   DCBBIT2 -      SET TO 1 BY EOV WHEN IT CALLS CLOSE       47800003
                                   2139+*                             ROUTINE FOR CONCATENATION OF DATA SETS    47850000

                                   2140+*                             WITH UNLIKE ATTRIBUTES                    47900000
                            00010  2141+DCBOFOPN EQU   DCBBIT3 -      AN OPEN HAS BEEN SUCCESSFULLY COMPLETED   47950003
                            00008  2142+DCBOFPPC EQU   DCBBIT4 -      SET TO 1 BY PROBLEM PROGRAM TO INDICATE A 48000003
                                   2143+*                             CONCATENATION OF UNLIKE ATTRIBUTES        48050000
                            00004  2144+DCBOFTM  EQU   DCBBIT5 -      TAPE MARK HAS BEEN READ                   48100003

                            00002  2145+DCBOFUEX EQU   DCBBIT6 -      SET TO 0 BY AN I/O SUPPORT FUNCTION WHEN  48150003
                                   2146+*                             THAT FUNCTION TAKES A USER EXIT. SET TO 1 48200000
XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   61


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2147+*                             ON RETURN FROM USER EXIT TO THE I/O       48250000

                                   2148+*                             SUPPORT FUNCTION WHICH TOOK THE EXIT.     48300000
                            00001  2149+DCBOFIOF EQU   DCBBIT7 -      SET TO 1 BY AN I/O SUPPORT FUNCTION IF    48350003
                                   2150+*                             DCB IS TO BE PROCESSED BY THAT FUNCTION   48400000
000031                             2151+DCBIFLG  DS    BL1 -          FLAGS USED BY IOS IN COMMUNICATING ERROR  48450000
                                   2152+*                             CONDITIONS AND IN DETERMINING CORRECTIVE  48500000

                                   2153+*                             PROCEDURES                                48550000
                            000C0  2154+DCBIBEC  EQU   DCBBIT0+DCBBIT1 -                                        48600003
                                   2155+*                             ERROR CORRECTION INDICATOR                48610003
                            00000  2156+DCBIFNEP EQU   X'00' -        NOT IN ERROR PROCEDURE                    48650000
                            00040  2157+DCBEX    EQU   DCBBIT1 -      ERROR CORRECTION OR IOS PAGE FIX IN       48700003
                                   2158+*                             PROCESS                                   48750000

                            000C0  2159+DCBIFPEC EQU   DCBBIT0+DCBBIT1 -                                        48800003
                                   2160+*                             PERMANENT ERROR CORRECTION                48810003
                            00030  2161+DCBIBPCT EQU   DCBBIT2+DCBBIT3 -                                        48850003
                                   2162+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     48860003

                            00020  2163+DCBIFC9  EQU   DCBBIT2 -      CHANNEL 9 PRINTER CARRIAGE TAPE PUNCH     48900003
                                   2164+*                             SENSED                                    48950000
                            00010  2165+DCBIFC12 EQU   DCBBIT3 -      CHANNEL 12 PRINTER CARRIAGE TAPE PUNCH    49000003
                                   2166+*                             SENSED                                    49050000
                            0000C  2167+DCBIBIOE EQU   DCBBIT4+DCBBIT5 -                                        49100003

                                   2168+*                             IOS ERROR ROUTINE USE INDICATOR           49110003
                            00000  2169+DCBIFER  EQU   X'00' -        ALWAYS USE I/O SUPERVISOR ERROR ROUTINE   49150000
                            00004  2170+DCBIFNE1 EQU   DCBBIT5 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49200003
                            00004  2171+DCBIFTIM EQU   DCBBIT5 -      TEST IOS MASK (IMSK) FOR ERROR PROCEDURE  49250003
                                   2172+*                             (BTAM)                                    49300000
                            00008  2173+DCBIFNE2 EQU   DCBBIT4 -      NEVER USE I/O SUPERVISOR ERROR ROUTINE    49350003
                            0000C  2174+DCBIFNE3 EQU   DCBBIT4+DCBBIT5 -                                        49400003

                                   2175+*                             NEVER USE I/O SUPERVISOR ERROR ROUTINE    49410003
000032                             2176+DCBMACR  DS    0BL2 -         MACRO INSTRUCTION REFERENCE               49450000
000032                             2177+DCBMACR1 DS    BL1 -          FIRST BYTE OF DCBMACR                     49500000

                            00080  2178+DCBMRECP EQU   DCBBIT0 -      EXECUTE CHANNEL PROGRAM (EXCP) ---        49550003
                                   2179+*                             ALWAYS ZERO (BSAM, QSAM, BPAM, BISAM,     49600000
                                   2180+*                             QISAM, BDAM) --- RESERVED (QTAM, BTAM)    49650000
                            00040  2181+DCBMRFE  EQU   DCBBIT1 -      FOUNDATION EXTENSION IS PRESENT (EXCP)    49700003
                            00040  2182+DCBMRGET EQU   DCBBIT1 -      GET (QSAM, QISAM, TCAM)                   49750003

                            00040  2183+DCBMRPTQ EQU   DCBBIT1 -      PUT FOR MESSAGE GROUP (QTAM) ---          49800003
                                   2184+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 49850000
                                   2185+*                             RESERVED (BTAM)                           49900000
                            00020  2186+DCBMRAPG EQU   DCBBIT2 -      APPENDAGES ARE REQUIRED (EXCP)            49950003
                            00020  2187+DCBMRRD  EQU   DCBBIT2 -      READ (BSAM, BPAM, BISAM, BDAM, BTAM)      50000003
                            00020  2188+DCBMRWRQ EQU   DCBBIT2 -      WRITE FOR LINE GROUP (QTAM) ---           50050003
                                   2189+*                             ALWAYS ZERO (QSAM, QISAM)                 50100000
                            00010  2190+DCBMRCI  EQU   DCBBIT3 -      COMMON INTERFACE (EXCP)                   50150003

                            00010  2191+DCBMRMVG EQU   DCBBIT3 -      MOVE MODE OF GET (QSAM, QISAM)            50200003
                            00010  2192+DCBMRRDK EQU   DCBBIT3 -      KEY SEGMENT WITH READ (BDAM) ---          50250003

                                   2193+*                             ALWAYS ZERO (BISAM) ---                   50300000
                                   2194+*                             RESERVED (BSAM, BPAM, QTAM, BTAM)         50350000
                            00008  2195+DCBMRLCG EQU   DCBBIT4 -      LOCATE MODE OF GET (QSAM, QISAM)          50400003
                            00008  2196+DCBMRRDI EQU   DCBBIT4 -      ID ARGUMENT WITH READ (BDAM) ---          50450003
                                   2197+*                             ALWAYS ZERO (BISAM) ---                   50500000

                                   2198+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   50550000
                            00004  2199+DCBMRABC EQU   DCBBIT5 -      USER'S PROGRAM MAINTAINS ACCURATE BLOCK   50600003
                                   2200+*                             COUNT (EXCP)                              50650000
                            00004  2201+DCBMRPT1 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   50700003
XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   62


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00004  2202+DCBMRSBG EQU   DCBBIT5 -      SUBSTITUTE MODE OF GET (QSAM)             50750003
                            00004  2203+DCBMRDBF EQU   DCBBIT5 -      DYNAMIC BUFFERING (BISAM, BDAM) ---       50800003
                                   2204+*                             ALWAYS ZERO (QISAM) ---                   50850000

                                   2205+*                             RESERVED (QTAM, BTAM)                     50900000

                            00002  2206+DCBPGFXA EQU   DCBBIT6 -      PAGE FIX APPENDAGE IS SPECIFIED (EXCP)    50950003
                            00002  2207+DCBMRCRL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        51000003
                            00002  2208+DCBMRCHK EQU   DCBBIT6 -      CHECK (BISAM)                             51050003
                            00002  2209+DCBMRRDX EQU   DCBBIT6 -      READ EXCLUSIVE (BDAM) ---                 51100003
                                   2210+*                             RESERVED (BPAM, QISAM, QTAM, BTAM)        51150000

                            00001  2211+DCBMRDMG EQU   DCBBIT7 -      DATA MODE OF GET (QSAM)                   51200003
                            00001  2212+DCBMRCK  EQU   DCBBIT7 -      CHECK (BDAM) --- RESERVED (EXCP, BSAM,    51250003
                                   2213+*                             BPAM, BISAM, QISAM, QTAM, BTAM)           51300000
000033                             2214+DCBMACR2 DS    BL1 -          SECOND BYTE OF DCBMACR                    51350000
                            00080  2215+DCBMRSTL EQU   DCBBIT0 -      SETL (QISAM) --- ALWAYS ZERO (BSAM, QSAM, 51400003
                                   2216+*                             BPAM, BISAM, BDAM) ---                    51450000
                                   2217+*                             RESERVED (EXCP, QTAM, BTAM)               51500000
                            00040  2218+DCBMRPUT EQU   DCBBIT1 -      PUT (QSAM, TCAM) - PUT OR PUTX (QISAM)    51550003
                            00040  2219+DCBMRGTQ EQU   DCBBIT1 -      GET FOR MESSAGE GROUP (QTAM) ---          51600003

                                   2220+*                             ALWAYS ZERO (BSAM, BPAM, BISAM, BDAM) --- 51650000

                                   2221+*                             RESERVED (EXCP, BTAM)                     51700000
                            00020  2222+DCBMRWRT EQU   DCBBIT2 -      WRITE (BSAM, BPAM, BISAM, BDAM, BTAM)     51750003
                            00020  2223+DCBMRRDQ EQU   DCBBIT2 -      READ FOR LINE GROUP (QTAM) ---            51800003
                                   2224+*                             ALWAYS ZERO (QSAM, QISAM) ---             51850000
                                   2225+*                             RESERVED (EXCP)                           51900000

                            00010  2226+DCBMRMVP EQU   DCBBIT3 -      MOVE MODE OF PUT (QSAM, QISAM)            51950003
                            00010  2227+DCBMRWRK EQU   DCBBIT3 -      KEY SEGMENT WITH WRITE (BDAM) ---         52000003
                                   2228+*                             ALWAYS ZERO (BISAM) ---                   52050000
                                   2229+*                             RESERVED (EXCP, BSAM, BPAM, QTAM, BTAM)   52100000
                            00008  2230+DCBMR5WD EQU   DCBBIT4 -      FIVE-WORD DEVICE INTERFACE (EXCP)         52150003
                            00008  2231+DCBMRLDM EQU   DCBBIT4 -      LOAD MODE BSAM (CREATE BDAM DATA SET)     52200003
                                   2232+*                             (BSAM)                                    52250000
                            00008  2233+DCBMRLCP EQU   DCBBIT4 -      LOCATE MODE OF PUT (QSAM, QISAM)          52300003
                            00008  2234+DCBMRIDW EQU   DCBBIT4 -      ID ARGUMENT WITH WRITE (BDAM) ---         52350003
                                   2235+*                             ALWAYS ZERO (BISAM) ---                   52400000

                                   2236+*                             RESERVED (BPAM, QTAM, BTAM)               52450000

                            00004  2237+DCBMR4WD EQU   DCBBIT5 -      FOUR-WORD DEVICE INTERFACE (EXCP)         52500003
                            00004  2238+DCBMRPT2 EQU   DCBBIT5 -      POINT (WHICH IMPLIES NOTE) (BSAM, BPAM)   52550003
                            00004  2239+DCBMRTMD EQU   DCBBIT5 -      SUBSTITUTE MODE (QSAM)                    52600003
                            00004  2240+DCBMRUIP EQU   DCBBIT5 -      UPDATE IN PLACE (PUTX) (QISAM) ---        52650003

                                   2241+*                             ALWAYS ZERO (BISAM) ---                   52700000
                                   2242+*                             RESERVED (BDAM, QTAM, BTAM)               52750000
                            00002  2243+DCBMR3WD EQU   DCBBIT6 -      THREE-WORD DEVICE INTERFACE (EXCP)        52800003
                            00002  2244+DCBMRCTL EQU   DCBBIT6 -      CNTRL (BSAM, QSAM)                        52850003
                            00002  2245+DCBMRSTK EQU   DCBBIT6 -      SETL BY KEY (QISAM)                       52900003
                            00002  2246+DCBMRAWR EQU   DCBBIT6 -      ADD TYPE OF WRITE (BDAM) ---              52950003
                                   2247+*                             ALWAYS ZERO (BISAM) ---                   53000000
                                   2248+*                             RESERVED (BPAM, QTAM, BTAM)               53050000
                            00001  2249+DCBMR1WD EQU   DCBBIT7 -      ONE-WORD DEVICE INTERFACE (EXCP)          53100003
                            00001  2250+DCBMRSWA EQU   DCBBIT7 -      USER'S PROGRAM HAS PROVIDED A SEGMENT     53150003
                                   2251+*                             WORK AREA POOL (BSAM CREATE BDAM, BDAM)   53200000

                            00001  2252+DCBMRDMD EQU   DCBBIT7 -      DATA MODE (QSAM)                          53250003
                            00001  2253+DCBMRSTI EQU   DCBBIT7 -      SETL BY ID (QISAM) ---                    53300003
                                   2254+*                             ALWAYS ZERO (BISAM) ---                   53350000
                                   2255+*                             RESERVED (BPAM, QTAM, BTAM)               53400000


XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   63


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2257+*                       FOUNDATION AFTER OPEN                           53500000

000034                      00028  2259+         ORG   IHADCB+40                                                53600000
000028                             2260+DCBTIOT  DS    H -            OFFSET FROM TIOT ORIGIN TO TIOELNGH FIELD 53650000
                                   2261+*                             IN TIOT ENTRY FOR DD STATEMENT ASSOCIATED 53700000
                                   2262+*                             WITH THIS DCB                             53750000
00002A                             2263+DCBMACRF DS    0BL2 -         SAME AS DCBMACR BEFORE OPEN               53800000
00002A                             2264+DCBMACF1 DS    BL1 -          FIRST BYTE OF DCBMACRF                    53850000
00002B                             2265+DCBMACF2 DS    BL1 -          SECOND BYTE OF DCBMACRF                   53900000

00002C                             2266+DCBDEBAD DS    0A -           ADDRESS OF ASSOCIATED DEB                 53950000
00002C                             2267+DCBIFLGS DS    BL1 -          SAME AS DCBIFLG BEFORE OPEN               54000000
                            000C0  2268+DCBIFEC  EQU   DCBBIT0+DCBBIT1 -                                        54050003

                                   2269+*                             ERROR CORRECTION INDICATOR                54060003
                            00030  2270+DCBIFPCT EQU   DCBBIT2+DCBBIT3 -                                        54100003
                                   2271+*                             PRINTER CARRIAGE TAPE PUNCH INDICATOR     54110003
                            0000C  2272+DCBIFIOE EQU   DCBBIT4+DCBBIT5 -                                        54150003
                                   2273+*                             IOS ERROR ROUTINE USE INDICATOR           54160003
00002D                             2274+DCBDEBA  DS    AL3 -          ADDRESS OF ASSOCIATED DEB                 54200000

000030                      00030  2276+         ORG   IHADCB+48                                                54350000
000030                             2277+DCBREAD  DS    0A -           ADDRESS OF READ MODULE                    54400000
000030                             2278+DCBWRITE DS    A -            ADDRESS OF WRITE MODULE                   54450000

000034                      00030  2280+         ORG   IHADCB+48                                                54600000

000030                             2281+DCBGET   DS    0A -           ADDRESS OF GET MODULE                     54650000

000030                             2282+DCBPUT   DS    A -            ADDRESS OF PUT MODULE                     54700000


                                   2284+*                       QSAM-BSAM-BPAM COMMON INTERFACE                 77750000

000034                      00034  2286+         ORG   IHADCB+52                                                77850000
000034                             2287+DCBGERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  77950000
000034                             2288+DCBPERR  DS    0A -           ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  78000000
000034                             2289+DCBCHECK DS    0A -           ADDRESS OF CHECK MODULE                   78050000
000034                             2290+DCBOPTCD DS    BL1 -          OPTION CODES                              78150000
                            00080  2291+DCBOPTW  EQU   DCBBIT0 -      WRITE VALIDITY CHECK (DASD)               78500003
                                   2292+*                             (BSAM, BPAM, QSAM, ISAM, BDAM)            78550000
                            00040  2293+DCBOPTU  EQU   DCBBIT1 -      ALLOW DATA CHECK CAUSED BY INVALID        78600003
                                   2294+*                             CHARACTER (1403 PRINTER WITH UCS FEATURE) 78650000
                                   2295+*                             (BSAM, BPAM, QSAM)                        78700000

                            00020  2296+DCBOPTC  EQU   DCBBIT2 -      CHAINED SCHEDULING USING PCI              78750003
                                   2297+*                             (BSAM, BPAM, QSAM)                        78800000

                            00010  2298+DCBOPTH  EQU   DCBBIT3 -      1287/1288 OPTICAL READER - HOPPER EMPTY   78850003

                                   2299+*                             EXIT (BSAM, BPAM)                         78900000
                            00010  2300+DCBOPTO  EQU   DCBBIT3 -      1285/1287 OPTICAL READER - ON-LINE        78950003
                                   2301+*                             CORRECTION (QSAM)                         79000000
                            00010  2302+DCBBCKPT EQU   DCBBIT3 -      CHANNEL-END APPENDAGE IS TO BYPASS DOS    79050003
                                   2303+*                             EMBEDDED CHECKPOINT RECORDS ON TAPE       79100000
                                   2304+*                             (BSAM, QSAM)                       ICB226 79150000
                            00008  2305+DCBOPTQ  EQU   DCBBIT4 -      TRANSLATION TO OR FROM ASCII              79200003
                                   2306+*                             (BSAM, BPAM, QSAM)                        79250000
                            00004  2307+DCBOPTZ  EQU   DCBBIT5 -      MAGNETIC TAPE DEVICES - USE REDUCED ERROR 79300003
                                   2308+*                             RECOVERY PROCEDURE (EXCP, BSAM, BPAM,     79350000
                                   2309+*                             QSAM)                                     79400000
                            00004  2310+DCBSRCHD EQU   DCBBIT5 -      USE SEARCH DIRECT, INSTEAD OF SEARCH      79450003

                                   2311+*                             PREVIOUS, ON RECORD POSITION SENSING      79500000
XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   64


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   2312+*                             DEVICE  (EXCP, BSAM, BPAM, QSAM)   ICB217 79550000
                            00002  2313+DCBOPTT  EQU   DCBBIT6 -      USER TOTALING (BSAM, QSAM)                79600003
000035                             2314+DCBGERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR GET  79700000
000035                             2315+DCBPERRA DS    0AL3 -         ADDRESS OF SYNCHRONIZING ROUTINE FOR PUT  79750000
000035                             2316+DCBCHCKA DS    AL3 -          ADDRESS OF CHECK MODULE                   79800000
000038                             2317+DCBSYNAD DS    0A -           ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80050000
000038                             2318+DCBIOBL  DS    FL1 -          IOB LENGTH IN DOUBLE WORDS                80100000
000039                             2319+DCBSYNA  DS    AL3 -          ADDRESS OF USER-PROVIDED SYNAD ROUTINE    80150000
00003C                             2320+DCBFLAG1 DS    0BL1           TCAM APPLICATION PROGRAM FLAGS ICBI DCB-3 80460000
                                   2321+*                             (BSAM, BPAM, QSAM)                        80470000
00003C                             2322+DCBCIND1 DS    BL1 -          CONDITION INDICATORS                      80500000
                            00080  2323+DCBCNTOV EQU   DCBBIT0 -      DIRECT ACCESS - TRACK OVERFLOW IN USE     80550003

                                   2324+*                             (BSAM, BPAM, QSAM)                        80600000
                                   2325+*                             2540 CARD PUNCH - DATA SET WAS OPENED BUT 80650000
                                   2326+*                             NO DATA WAS WRITTEN (QSAM)                80700000
                            00080  2327+DCBSTQCK EQU   DCBBIT0 -      STOP EQUAL QUICK WAS SPECIFIED FOR        80710003

                                   2328+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80720000
                            00040  2329+DCBSTFLS EQU   DCBBIT1 -      STOP EQUAL FLUSH WAS SPECIFIED FOR        80730003
                                   2330+*                             APPLICATION PROG. DCBS (TCAM)  ICBI DCB-3 80740000
                            00040  2331+DCBCNSRD EQU   DCBBIT1 -      SEARCH DIRECT (BSAM, BPAM, QSAM)          80750003
                            00020  2332+DCBCNEVB EQU   DCBBIT2 -      END OF VOLUME - USED BY EOB ROUTINES      80800003
                                   2333+*                             (BSAM, BPAM, QSAM)                        80850000

                            00010  2334+DCBCNEVA EQU   DCBBIT3 -      END OF VOLUME - USED BY CHANNEL-END       80900003
                                   2335+*                             APPENDAGE ROUTINES (BSAM, BPAM, QSAM)     80950000
                            00004  2336+DCBCNBRM EQU   DCBBIT5 -      BLOCKED RECORD BIT MODIFIED (BSAM,BPAM,   81000003
                                   2337+*                             QSAM)                          ICBI DCB-2 81050000
                            00001  2338+DCBCNEXB EQU   DCBBIT7 -      EXCHANGE BUFFERING SUPPORTED (QSAM)       81100003
00003D                             2339+DCBCIND2 DS    BL1 -          CONDITION INDICATORS                      81150000
                            00080  2340+DCBCNSTO EQU   DCBBIT0 -      PARTITIONED DATA SET - STOW HAS BEEN      81200003
                                   2341+*                             PERFORMED (BSAM, BPAM, QSAM)              81250000

                                   2342+*                             SEQUENTIAL DATA SET - UPDATE (BSAM, BPAM) 81300000
                            00040  2343+DCBCNWR0 EQU   DCBBIT1 -      DIRECT ORGANIZATION DATA SET - LAST I/O   81350003

                                   2344+*                             WAS A WRITE RECORD ZERO                   81400000
                                   2345+*                             (BSAM, BPAM, QSAM)                        81450000
                                   2346+*                             SEQUENTIAL DATA SET - UPDATE EOF IS       81500000
                                   2347+*                             INDICATED (BSAM, BPAM)                    81550000
                            00020  2348+DCBCNCLO EQU   DCBBIT2 -      CLOSE IN PROCESS (QSAM)                   81600003
                            00010  2349+DCBCNIOE EQU   DCBBIT3 -      PERMANENT I/O ERROR (BSAM, BPAM, QSAM)    81650003
                            00008  2350+DCBCNBFP EQU   DCBBIT4 -      OPEN ACQUIRED BUFFER POOL                 81700003
                                   2351+*                             (BSAM, BPAM, QSAM)                        81750000

                            00004  2352+DCBCNCHS EQU   DCBBIT5 -      CHAINED SCHEDULING BEING SUPPORTED        81800003
                                   2353+*                             (BSAM, BPAM, QSAM)                        81850000
                            00002  2354+DCBCNFEO EQU   DCBBIT6 -      FEOV BIT (BSAM, BPAM, QSAM)               81900003
                            00001  2355+DCBCNQSM EQU   DCBBIT7 -      ALWAYS ZERO (BSAM, BPAM)                  81950003
                                   2356+*                             THIS IS A QSAM DCB (QSAM)                 82000000

00003E                             2357+DCBBLKSI DS    H -            MAXIMUM BLOCK SIZE                        82100000
000040                             2358+DCBWCPO  DS    AL1 -          OFFSET OF WRITE CHANNEL PROGRAM FROM THE  82350000
                                   2359+*                             START OF IOB                              82400000

000041                             2360+DCBWCPL  DS    FL1 -          LENGTH OF WRITE CHANNEL PROGRAM           82450000
000042                             2361+DCBOFFSR DS    AL1 -          OFFSET OF READ CCW FROM BSAM/BPAM PREFIX  82500000
                                   2362+*                             OF IOB                                    82550000
000043                             2363+DCBOFFSW DS    AL1 -          OFFSET OF WRITE CCW FROM BSAM/BPAM PREFIX 82600000
                                   2364+*                             OF IOB                                    82650000
000044                             2365+DCBIOBA  DS    A -            FOR NORMAL SCHEDULING, ADDRESS OF QSAM OR 82700000
                                   2366+*                             BSAM/BPAM PREFIX OF IOB.  FOR CHAINED     82750000

XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   65


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   2367+*                             SCHEDULING, ADDRESS OF ICB.  FOR          82800000
                                   2368+*                             1419/1275, ADDRESS OF MAGNETIC INTERRUPT  82850000
                                   2369+*                             CONTROL BLOCK (MICB) CURRENTLY BEING      82900000

                                   2370+*                             PROCESSED BY READ ROUTINE.  FOR TSO       82950000
                                   2371+*                             TERMINAL DATA SET OPENED FOR INPUT AND    83000000
                                   2372+*                             FORMAT U, SIMULATED LOW-ORDER FOUR BYTES  83050000
                                   2373+*                             OF IOBCSW                                 83100000


000048                      00044  2375+         ORG   IHADCB+68                                         ICB354 83160000
000044                             2376+DCBCICB  DS    0A -           SAME AS DCBCICBA BELOW             ICB354 83200000
000044                             2377+         DS    X -            DCBNCP  (BSAM,BPAM)                ICB354 83250000
000045                             2378+DCBCICBA DS    AL3 -          POINTER TO JES C.I.                ICB354 83300000
                                   2379+*                             CONTROL BLOCK (CICB)               ICB354 83350000


000048                      00050  2381+         ORG   IHADCB+80                                     ICBI DCB-4 83450000
000050                             2382+DCBDIRCT DS    0H -           NUMBER OF BYTES USED IN LAST DIRECTORY    83500000
                                   2383+*                             BLOCK (RANGE 0-254)  (BSAM, BPAM)  ICB295 83550000
000050                             2384+DCBQSWS  DS    0BL1 -         FLAG BYTE                          ICB295 83600000

                            00004  2385+DCBPOPEN EQU   DCBBIT5 -      QSAM PARALLEL INPUT PROCESSING            83610003
000050                             2386+DCBUSASI DS    B -            FLAG BYTE FOR ASCII TAPES                 83650000
                            00040  2387+DCBBLBP  EQU   DCBBIT1 -      BLOCK PREFIX IS FOUR BYTE FIELD           83700003
                                   2388+*                             CONTAINING BLOCK LENGTH IN UNPACKED       83750000
                                   2389+*                             DECIMAL (SPECIFIED BY BUFFER=L).          83800000

                            00038  2390+DCBQADFS EQU   DCBBIT2+DCBBIT3+DCBBIT4                                  83850003
                                   2391+*                             USED TO PERFORM SEQUENCE CHECKING WITH    83860003
                                   2392+*                             MULTIPLE FUNCTION SUPPORT FOR 3525        83900000
                                   2393+*                             (BSAM, QSAM)                              83950000
                            00020  2394+DCBQADF1 EQU   DCBBIT2 -      FIRST BIT OF DCBQADFS                     84000003

                            00010  2395+DCBQADF2 EQU   DCBBIT3 -      SECOND BIT OF DCBQADFS                    84050003
                            00008  2396+DCBQADF3 EQU   DCBBIT4 -      THIRD BIT OF DCBQADFS                     84100003
                            00001  2397+DCBQSTRU EQU   DCBBIT7 -      TRUNC ENTRY POINT ENTERED (QSAM)          84150003
000051                             2398+DCBBUFOF DS    0FL1 -         BLOCK PREFIX LENGTH (0-99), SPECIFIED BY  84200000
                                   2399+*                             BUFOFF=N OR BUFOFF=L                      84250000

000051                             2400+DCBDIRCQ DS    FL1 -          NUMBER OF BYTES USED IN LAST DIRECTORY    84300000
                                   2401+*                             BLOCK (RANGE 0-254)  (QSAM)        ICB295 84350000

                                   2403+*                       BSAM-BPAM INTERFACE                             84500000

000052                      00048  2405+         ORG   IHADCB+72                                                84600000

000048                             2406+DCBEOBR  DS    0A -           ADDRESS OF END-OF-BLOCK MODULE FOR READ   84650000
000048                             2407+DCBNCP   DS    FL1 -          NUMBER OF CHANNEL PROGRAMS.               84750000
                                   2408+*                             NUMBER OF READ OR WRITE REQUESTS WHICH    85000000
                                   2409+*                             MAY BE ISSUED PRIOR TO A CHECK, NUMBER    85050000

                                   2410+*                             OF IOB'S GENERATED.  (99 MAXIMUM)         85100000
000049                             2411+DCBEOBRA DS    AL3 -          ADDRESS OF END-OF-BLOCK MODULE FOR READ   85150000
00004C                             2412+DCBEOBW  DS    A -            ADDRESS OF END-OF-BLOCK MODULE FOR WRITE. 85200000
                                   2413+*                             FOR BSAM CREATE BDAM PROCESSING OF        85250000
                                   2414+*                             UNBLOCKED SPANNED RECORDS WITH BKTEK=R    85300000

                                   2415+*                             SPECIFIED, ADDRESS OF SEGMENT WORK AREA   85350000
                                   2416+*                             CONTROL BLOCK                             85400000
000050                             2417+         DS    H -            DCBDIRCT - NUMBER OF BYTES USED IN LAST   85450000
                                   2418+*                             DIRECTORY BLOCK  (RANGE 0-254)     ICB295 85500000
000052                             2419+DCBLRECL DS    H -            LOGICAL RECORD LENGTH                     85600000
000054                             2420+DCBCNTRL DS    0A -           ADDRESS OF CNTRL MODULE                   85850000
000054                             2421+DCBNOTE  DS    0A -           ADDRESS OF NOTE/POINT MODULE              85900000

XEQ      OS DATA CONTROL BLOCK DSECT                                                                           PAGE   66


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000054                             2422+DCBPOINT DS    A -            ADDRESS OF NOTE/POINT MODULE              85950000


                                   2424+*                       QSAM INTERFACE                                  86100000

000058                      00048  2426+         ORG   IHADCB+72                                                86650021
000048                             2427+DCBLCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF LAST   86700000

                                   2428+*                             CCW IN LIST                               86750000
000048                             2429+DCBEOBAD DS    A -            FOR SIMPLE BUFFERING, ADDRESS OF LAST     86800000
                                   2430+*                             BYTE OF CURRENT BUFFER                    86850000
00004C                             2431+DCBCCCW  DS    0A -           FOR EXCHANGE BUFFERING, ADDRESS OF        86900000
                                   2432+*                             CURRENT OR NEXT CCW                       86950000
00004C                             2433+DCBRECAD DS    0A -           ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87000000
00004C                             2434+DCBRECBT DS    BL1 -          FLAG BYTE                                 87050000
                            000F0  2435+DCBRCREL EQU   DCBBIT0+DCBBIT1+DCBBIT2+DCBBIT3  -                       87100003

                                   2436+*                             RELSE MACRO HAS BEEN ISSUED               87110003
                                   2437+*                             (QSAM WITH SIMPLE BUFFERING)              87150000

                            00080  2438+DCBRCTRU EQU   DCBBIT0 -      TRUNC MACRO HAS BEEN ISSUED (QSAM LOCATE  87200003
                                   2439+*                             MODE)                                     87250000
                            00040  2440+DCBRCFGT EQU   DCBBIT1 -      FIRST GET AFTER OPEN (QSAM LOCATE MODE)   87300003
00004D                             2441+DCBRECA  DS    AL3 -          ADDRESS OF CURRENT OR NEXT LOGICAL RECORD 87350000
000050                             2442+         DS    B -            DCBQSWS - FLAG BYTE                ICB295 87400000

000051                             2443+         DS    FL1 -          DCBDIRCQ - NUMBER OF BYTES USED IN LAST   87450000
                                   2444+*                             DIRECTORY BLOCK (RANGE 0-254)      ICB295 87500000
000052                             2445+         DS    H -            DCBLRECL - LOGICAL RECORD LENGTH          87750021
000054                             2446+         DS    0A -           DCBCNTRL - ADDRESS OF CNTRL MODULE        88000021
000054                             2447+DCBEROPT DS    BL1 -          ERROR OPTION                              88100000
                            00080  2448+DCBERACC EQU   DCBBIT0 -         ACCEPT PERMANENT ERROR                 88150003
                            00040  2449+DCBERSKP EQU   DCBBIT1 -         SKIP PERMANENT ERROR                   88200003
                            00020  2450+DCBERABE EQU   DCBBIT2 -         ABNORMAL END OF TASK                   88250003

000055                             2451+         DS    AL3 -          DCBCNTRA - ADDRESS OF CNTRL MODULE        88500021
000058                             2452+         DS    XL2 -          RESERVED                                  88600021

00005A                             2453+DCBPRECL DS    H -            BLOCK LENGTH, MAXIMUM BLOCK LENGTH OR     88650000
                                   2454+*                             DATA LENGTH                               88700000
00005C                             2455+DCBEOB   DS    A -            ADDRESS OF END OF BLOCK MODULE            88750000




                            00000  2458+DCBDSECT EQU   IHADCB   DEFINE ALTERNATE DSECT NAME                     DB012000

000000                             2460+HASPXEQ  CSECT          END OF DATA CONTROL BLOCK DSECT                 DB016000
XEQ      OS DATA EXTENT BLOCK DSECT                                                                            PAGE   67


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000000                             2463+DEBDSECT DSECT                     DATA EXTENT BLOCK DSECT              DE010000
000000                             2464+DEBTCBAD DS    F                   ADDRESS OF TCB                       DE012000

000004                             2465+DEBDEBAD DS    F                   ADDRESS OF NEXT DEB                  DE014000

000008                             2466+DEBIRBAD DS    F                   ADDRESS OF IRB                       DE016000
00000C                             2467+         DS    F                   RESERVED                             DE018000
000010                             2468+DEBNMEXT DS    0C                  NUMBER OF EXTENTS                    DE019000
000010                             2469+DEBUSRPG DS    F                   ADDR OF 1ST IOB IN USER PURGE CHAIN  DE020000
000014                             2470+DEBPRIOR DS    0C                  PRIORITY OF THE TASK                 DE022000

000014                             2471+DEBECBAD DS    F                   ADDRESS OF PURGE ECB PARAMETER LIST  DE024000
000018                             2472+DEBPROTG DS    0C                  PROTECTION KEY OF TASK               DE026000
000018                             2473+DEBDEBID DS    0C                  DEB IDENTIFICATION (X'0F')           DE028000
000018                             2474+DEBDCBAD DS    F                   ADDRESS OF DCB                       DE030000
00001C                             2475+DEBEXSCL DS    0C                  EXTENT SCALE                         DE031000
00001C                             2476+DEBAPPAD DS    F                   ADDR OF I/O APPENDAGE VECTOR TABLE   DE032000
000020                             2477+DEBDVMOD DS    0C                  DEVICE MODIFIER / FILE MASK          DE034000
000020                             2478+DEBUCBAD DS    F                   ADDRESS OF UCB                       DE036000
000024                             2479+DEBEXTNT DS    0CL12               DATA SET EXTENT                      DE038000
000024                             2480+DEBBINUM DS    H                   BIN NUMBER                           DE040000

000026                             2481+DEBSTRCC DS    H                   CYLINDER START ADDRESS               DE042000

000028                             2482+DEBSTRHH DS    H                   READ OR WRITE TRACK START ADDRESS    DE044000
00002A                             2483+DEBENDCC DS    H                   CYLINDER END ADDRESS                 DE046000
00002C                             2484+DEBENDHH DS    H                   READ OR WRITE TRACK END ADDRESS      DE048000
00002E                             2485+DEBNUMTR DS    H                   NUMBER OF TRACKS IN THIS EXTENT      DE050000

000000                             2486+HASPXEQ  CSECT                     END OF DATA EXTENT BLOCK DSECT       DE052000
XEQ      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   68


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                             2488+UCBDSECT DSECT                     UNIT CONTROL BLOCK DSECT             UC008000


                                   2490+*%UCBL1 : ;                                                             IE005000
                                   2491+*/* **************************************************************** */ IE006000
                                   2492+*/*                                                                  */ IE007000
                                   2493+*/*            U N I T   C O N T R O L   B L O C K                   */ IE008000
                                   2494+*/*                                                                  */ IE009000
                                   2495+*/* **************************************************************** */ IE010000

                                   2496+*/*                                                                  */ IE011000
                                   2497+*/*  STATUS                                                          */ IE012000
                                   2498+*/*                                                                  */ IE013000
                                   2499+*/*      OS/VS2 RELEASE 1, OS/VS1 RELEASE 2, 08/14/72, LEVEL=14      */ IE014000

                                   2500+*/*                                                                  */ IE015000
                                   2501+*/*  METHOD OF ACCESS                                                */ IE016000
                                   2502+*/*                                                                  */ IE017000
                                   2503+*/*      PL/S - DCL (UCBPTR,UCBDCPTR) PTR                            */ IE018000
                                   2504+*/*      BAL  - DSECT CARD SHOULD PRECEDE MACRO CALL.  SYMBOLS IN    */ IE019000
                                   2505+*/*             COMMON SECTION AND DEVICE DEPENDENT SECTIONS ARE     */ IE020000
                                   2506+*/*             ADDRESSABLE BY A USING ON UCBOB.  ADDITIONAL USINGS  */ IE021000
                                   2507+*/*             ARE NECESSARY TO OBTAIN ADDRESSABILITY FOR EACH      */ IE022000
                                   2508+*/*             EXTENSION OR PREFIX.  THESE ARE AS FOLLOWS -         */ IE023000
                                   2509+*/*                                                                  */ IE024000
                                   2510+*/*             DIRECT ACCESS EXTENSION           UCBDA              */ IE025000
                                   2511+*/*             DIRECT ACCESS EXTENSION 2         UCBDA2             */ IE026000

                                   2512+*/*             PREFIX TO MAGNETIC TAPE EXTENSION UCBMTPRF           */ IE027000
                                   2513+*/*             MAGNETIC TAPE EXTENSION           UCBMT              */ IE028000
                                   2514+*/*             TAPE CARTRIDGE READER EXTENSION   UCBTCR             */ IE029000

                                   2515+*/*             OPTICAL READER EXTENSION          UCBOR              */ IE030000
                                   2516+*/*             UNIT RECORD WITH UCS EXTENSION    UCBUCS             */ IE031000
                                   2517+*/*             3211 SENSE INFORMATION EXTENSION  UCBSNINF           */ IE032000
                                   2518+*/*             M65 MULTIPROCESSING PREFIX        UCBM65MP           */ IE033000
                                   2519+*/*                                                                  */ IE034000
                                   2520+*/*             WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH  */ IE035000
                                   2521+*/*             DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER   */ IE036000
                                   2522+*/*             IN THE DEFN COLUMN IN THE CORSS REFERENCE LISTING.   */ IE037000
                                   2523+*/*             FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE          */ IE038000
                                   2524+*/*             STATEMENT NUMBERS FOR UCBDA AND UCBDA2 IS IN THE     */ IE039000
                                   2525+*/*             UCBDA DSECT.                                         */ IE040000
                                   2526+*/*                                                                  */ IE041000

                                   2527+*/*  F.E.'S                                                          */ IE042000

                                   2528+*/*                                                                  */ IE043000
                                   2529+*/*      MICROFICHE LISTING - IEFUCBOB                               */ IE044000

                                   2530+*/*                                                                  */ IE045000
                                   2531+*/*  DEVELOPERS                                                      */ IE046000
                                   2532+*/*                                                                  */ IE047000
                                   2533+*/*      BAL LISTING  - SPECIFY LIST=YES ON MACRO CALL               */ IE048000
                                   2534+*/*      PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE        */ IE049000
                                   2535+*/*                                                                  */ IE050000
                                   2536+*/*      FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS     */ IE051000
                                   2537+*/*      YOUR MODULE CREATES THE CSECT.                              */ IE052000
                                   2538+*/*                                                                  */ IE053000
                                   2539+*/*  FUNCTION                                                        */ IE054000
                                   2540+*/*                                                                  */ IE055000
                                   2541+*/*      A UNIT CONTROL BLOCK                                        */ IE056000

XEQ      OS UNIT CONTROL BLOCK DSECT                                                                           PAGE   69


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   2542+*/*      INCORPORATING A SYSTEM RESOURCE TABLE                       */ IE057000

                                   2543+*/*      RECORDS THE STATUS OF                                       */ IE058000
                                   2544+*/*        A PHYSICAL INPUT OUTPUT DEVICE ADDRESS                    */ IE059000
                                   2545+*/*      IS CREATED AND INITIALIZED DURING SYSTEM GENERATION         */ IE060000
                                   2546+*/*      RESIDES IN THE NUCLEUS BELOW 32 K                           */ IE061000
                                   2547+*/*      POINTS TO A DEVICE TYPE DEPENDENT EXTENSION                 */ IE062000
                                   2548+*/*        RESIDING HIGHER IN THE NUCLEUS                            */ IE063000
                                   2549+*/*      IS POINTED TO BY THE UCB LOOKUP TABLE INDEXED BY            */ IE064000
                                   2550+*/*        A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS     */ IE065000
                                   2551+*/*      MAY BE POINTED TO BY TASK INPUT OUTPUT TABLES               */ IE066000
                                   2552+*/*        AND DATA EXTENT BLOCKS                                    */ IE067000
                                   2553+*/*      CONTAINS INDICES INTO TABLES FOR                            */ IE068000
                                   2554+*/*        DEVICE STATISTICS ATTENTION LOGICAL CHANNEL               */ IE069000

                                   2555+*/*      MAY POINT TO AND BE POINTED TO BY REQUEST QUEUE ELEMENTS    */ IE070000
                                   2556+*/*                                                                  */ IE071000
                                   2557+*/*  OUTPUT                                                          */ IE072000

                                   2558+*/*                                                                  */ IE073000
                                   2559+*/*      SYSGEN INDEPENDENT COMMON SECTION                           */ IE074000
                                   2560+*/*        INCLUDING UCBTYP WORD                                     */ IE075000
                                   2561+*/*      DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING)             */ IE076000
                                   2562+*/*        DIRECT ACCESS (EXCEPT DATACELL) AND MAGNETIC TAPE         */ IE077000
                                   2563+*/*        DATACELL (INCLUDING TEN CELL DESCRIPTIONS SUBMAPPED BELOW)*/ IE078000
                                   2564+*/*        UNIT RECORD WITH UNIVERSAL CHARACTER SET                  */ IE079000
                                   2565+*/*        GRAPHICS                                                  */ IE080000
                                   2566+*/*        TAPE CARTRIDGE READER AND OPTICAL READER                  */ IE081000
                                   2567+*/*      CELL DESCRIPTION FOR ONE OF THE TEN CELLS                   */ IE082000
                                   2568+*/*        IN THE DATACELL DEVICE SEGMENT ABOVE                      */ IE083000
                                   2569+*/*      UCB EXTENSION (ONE OF THE FOLLOWING)                        */ IE084000

                                   2570+*/*        DIRECT ACCESS                                             */ IE085000
                                   2571+*/*        DIRECT ACCESS 2                                           */ IE086000
                                   2572+*/*        MAGNETIC TAPE AND ITS PREFIX                              */ IE087000
                                   2573+*/*        TAPE CARTRIDGE READER                                     */ IE088000

                                   2574+*/*        OPTICAL READER                                            */ IE089000
                                   2575+*/*        UNIVERSAL CHARACTER SET                                   */ IE090000
                                   2576+*/*        3211 SENSE INFORMATION                                    */ IE091000
                                   2577+*/*      M65 MULTIPROCESSING PREFIX                                  */ IE092000
                                   2578+*/*        (CONTIGUOUSLY PRECEDING COMMON SECTION)                   */ IE093000
                                   2579+*/*                                                                  */ IE094000

                                   2580+*/* **************************************************************** */ IE095000
                                   2581+*%GOTO UCBL2;   /*                                                      IE096000
                                   2582+         PUSH  PRINT                                                    IE097000
                                   2583+         PRINT OFF                                                      IE099000
                                   3319+         POP   PRINT                                                    IE836000


000000                             3321+HASPXEQ  CSECT                     END UNIT CONTROL BLOCK DSECT         UC016000
XEQ      HASP PERIPHERAL DATA DEFINITION BLOCK DSECT                                                           PAGE   70



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000000                             3323+PDBDSECT DSECT                     HASP PDDB DSECT                      PD122000

000000                             3324+PDBFLAG1 DS    BL1                 FIRST FLAG BYTE ---                  PD124000
                            00080  3325+PDB1FLG2 EQU   B'10000000'         FLAG 2 (OPTIONS FLAG) EXISTS         PD126000
                            00040  3326+PDB1NULL EQU   B'01000000'         THIS IS A NULL PDDB                  PD128000
                            00020  3327+PDB1LOG  EQU   B'00100000'         THIS PDDB IS FOR THE HASP JOB LOG    PD130000
                            00010  3328+PDB1MDES EQU   B'00010000'         THIS PDDB IS FOLLOWED BY OTHERS      PD132000
                                   3329+*                                   INDICATING MULTIPLE DESTINATIONS    PD134000
                            00008  3330+PDB1RSV4 EQU   B'00001000'         RESERVED                             PD136000
                            00004  3331+PDB1RSV5 EQU   B'00000100'         RESERVED                             PD138000

                            00002  3332+PDB1RSV6 EQU   B'00000010'         RESERVED                             PD140000
                            00001  3333+PDB1RSV7 EQU   B'00000001'         RESERVED                             PD142000
000001                             3334+PDBCLASS DS    C                   OUTPUT CLASS OF THIS DATA SET        PD144000
000002                             3335+PDBLENG  DS    X                   LENGTH OF THIS PDDB                  PD146000
000003                             3336+PDBMTTR  DS    0FL4                STARTING TRACK OF THIS DATA SET      PD148000

000003                             3337+PDBSTNR  DS    HL2                 STEP NUMBER OF THIS DATA SET         PD150000
000005                             3338+PDBDDNR  DS    HL2                 DD NUMBER OF THIS DATA SET           PD152000
                            00007  3339+PDBBASLN EQU   *-PDBDSECT          BASIC PDDB LENGTH                    PD154000

                                   3340+*                                                                       PD156000
                                   3341+*              FOLLOWING FIELDS ARE PRESENT ONLY IF PDB1FLG2 IS ONE     PD158000
                                   3342+*                                                                       PD160000
000007                             3343+PDBFLAG2 DS    BL1                 OPTIONAL FIELDS FLAG BYTE ---        PD162000
                            00080  3344+PDB2FORM EQU   B'10000000'         PDBFORMS                             PD164000
                            00040  3345+PDB2FCB  EQU   B'01000000'         PDBFCB                               PD166000
                            00020  3346+PDB2UCS  EQU   B'00100000'         PDBUCS                               PD168000

                            00010  3347+PDB2RECC EQU   B'00010000'         PDBRECCT                             PD170000
                            00008  3348+PDB2MSC1 EQU   B'00001000'         PDBMISC1                             PD172000
                            00004  3349+PDB2MSC2 EQU   B'00000100'         PDBMISC2                             PD174000
                            00003  3350+PDB2WTRI EQU   B'00000011'         PDBWTRID                             PD176000
                            00008  3351+PDBFL2LN EQU   *-PDBDSECT          MINIMUM NON-BASIC LENGTH             PD178000

                                   3352+*                                                                       PD180000
                                   3353+*              EACH OF THE FOLLOWING FOUR-BYTE OPTIONAL FIELDS          PD182000
                                   3354+*              IS PRESENT ONLY IF THE ASSOCIATED BIT IN PDBFLAG2        PD184000
                                   3355+*              IS ONE.                                                  PD186000

                                   3356+*                                                                       PD188000
000008                             3357+PDBFORMS DS    0FL4                FOUR-BYTE FORMS NUMBER               PD190000
000008                             3358+PDBFCB   DS    0FL4                FOUR-BYTE 3211 FCB ID                PD192000
000008                             3359+PDBUCS   DS    0FL4                FOUR-BYTE 1403 OR 3211 UCS ID        PD194000
000008                             3360+PDBRECCT DS    0FL4                FOUR-BYTE OUTPUT RECORD MAXIMUM      PD196000
000008                             3361+PDBMISC1 DS    0FL4                MISCELLANEOUS ---                    PD198000

000008                             3362+PDBSEC   DS    X                   - DATA SET SECURITY ID               PD200000
000009                             3363+PDBINDEX DS    X                   - 3211 FCB INDEX VALUE               PD202000
00000A                             3364+PDBDEST  DS    HL2                 - DATA SET OUTPUT DESTINATION        PD204000
00000C                      00008  3365+         ORG   PDBMISC1                                                 PD206000
000008                             3366+PDBMISC2 DS    0FL4                MISCELLANEOUS ---                    PD208000

000008                             3367+PDBCOPYS DS    X                   - COPIES OF THIS DATA SET            PD210000
000009                             3368+PDBCPU   DS    X                   - CPU ID                             PD212000
00000A                             3369+         DS    2X                  - RESERVED                           PD214000
00000C                      00008  3370+         ORG   PDBMISC2                                                 PD216000
000008                             3371+PDBWTRID DS    0CL8                EIGHT-BYTE OUTPUT WRITER ID          PD218000

000000                             3372+HASPXEQ  CSECT                     END OF PDDB DSECT                    PD220000
XEQ      HASP OUTPUT CONTROL RECORD DSECT                                                                      PAGE   71


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             3375+OCRDSECT DSECT                     OUTPUT CONTROL RECORD DSECT          OR098000
000000                             3376+OCRCODE  DS    CL4                 FORMS CODE                           OR100000
000004                             3377+OCRFLAGS DS    BL1                 OUTPUT FLAGS                         OR102000
000005                             3378+         DS    X                   RESERVED                             OR104000
000006                             3379+OCRCOPY  DS    X                   COPY COUNT                           OR106000

000007                             3380+OCRINDEX DS    X                   PRINT INDEX                          OR108000
000008                             3381+OCRFORMS DS    CL4                 FORMS SPECIFICATION                  OR110000
00000C                             3382+OCRFCB   DS    CL4                 FCB SPECIFICATION                    OR112000
000010                             3383+OCRUCS   DS    CL4                 UCS SPECIFICATION                    OR114000
000014                             3384+OCRRECNT DS    F                   RECORD COUNT LIMIT                   OR116000
000018                             3385+OCRDEST1 DS    H                   DESTINATION 1                        OR118000

00001A                             3386+OCRDEST2 DS    H                   DESTINATION 2                        OR120000
00001C                             3387+OCRDEST3 DS    H                   DESTINATION 3                        OR122000
00001E                             3388+OCRDEST4 DS    H                   DESTINATION 4                        OR124000
                            00020  3389+OCREND   EQU   *                   END OF HASP OUTPUT CONRTOL RECO      OR126000

000000                             3390+HASPXEQ  CSECT                     END OF OUTPUT CONTROL RECORD DSECT   OR128000





                                   3392+*                             OCRFLAGS                                  OR132000




                            00080  3394+OCRFLAG0 EQU   B'10000000'         RESERVED                             OR136000
                            00040  3395+OCRFLAG1 EQU   B'01000000'         RESERVED                             OR138000
                            00020  3396+OCRFLAG2 EQU   B'00100000'         RESERVED                             OR140000
                            00010  3397+OCRFLAG3 EQU   B'00010000'         RESERVED                             OR142000
                            00008  3398+OCRFLAG4 EQU   B'00001000'         RESERVED                             OR144000
                            00004  3399+OCRFLAG5 EQU   B'00000100'         RESERVED                             OR146000

                            00002  3400+OCRFLAG6 EQU   B'00000010'         RESERVED                             OR148000
                            00001  3401+OCRFLAG7 EQU   B'00000001'         RESERVED                             OR150000
XEQ      HASP INPUT/OUTPUT TABLE DSECT                                                                         PAGE   72


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78







000000                             3404+IOTDSECT DSECT                     HASP INPUT/OUTPUT TABLE DSECT        IT116000
000000                             3405+         DS    (BUFSTART-BUFDSECT)X     BUFFER CONTROL INFORMATION      IT118000
000058                             3406+IOTFLAGS DS    0BL1                MISCELLANEOUS FLAGS                  IT120000

000058                             3407+IOTIOT   DS    F                   ADDRESS OF NEXT INPUT/OUTPUT TABLE   IT122000
00005C                             3408+IOTTRACK DS    F                   TRACK ADDRESS OF CURRENT IOT         IT124000
000060                             3409+IOTIOTTR DS    F                   TRACK ADDRESS OF NEXT IOT            IT126000
000064                             3410+IOTJCTTR DS    F                   TRACK ADDRESS OF JOB CONTROL TABLE   IT128000
000068                             3411+IOTCYMXM DS    F                   MAXIMUM MTTR FOR CURRENT TRACK GROUP IT130000
00006C                             3412+IOTMTTR  DS    F                   LAST MTTR ALLOCATED                  IT132000
000070                             3413+IOTCYMAP DS    XL100               OUTPUT ALLOCATION BIT MAP            IT134000

0000D4                             3414+IOTPDDBP DS    F                   OFFSET OF NEXT AVAILABLE PDDB SPACE  IT136000
0000D8                             3415+IOTPDDB  DS    0F                  PERIPHERAL DATA DEFINITION BLOCKS    IT138000






                                   3417+*                            IOTFLAGS                                   IT142000



                            00080  3419+IOTWRITE EQU   B'10000000'         CHECKPOINT IOT                       IT146000
                            00040  3420+IOTFLAG1 EQU   B'01000000'         RESERVED                             IT148000

                            00020  3421+IOTFLAG2 EQU   B'00100000'         RESERVED                             IT150000
                            00010  3422+IOTFLAG3 EQU   B'00010000'         RESERVED                             IT152000
                            00008  3423+IOTFLAG4 EQU   B'00001000'         RESERVED                             IT154000
                            00004  3424+IOTFLAG5 EQU   B'00000100'         RESERVED                             IT156000
                            00002  3425+IOTFLAG6 EQU   B'00000010'         RESERVED                             IT158000
                            00001  3426+IOTFLAG7 EQU   B'00000001'         RESERVED                             IT160000






                                   3428+*                                                                       IT164000
                                   3429+*           IF AN ERROR IS INDICATED ON THE FOLLOWING INSTRUCTION, IT   IT166000

                                   3430+*        INDICATES THAT THE BUFFER SIZE IS NOT LARGE ENOUGH TO CONTAIN  IT168000
                                   3431+*        THE IOT.  EITHER THE VALUE OF &BUFSIZE SHOULD BE INCREASED,    IT170000
                                   3432+*        OR THE VALUES OF &NUMDA AND/OR &NUMTGV SHOULD BE DECREASED.    IT172000
                                   3433+*                                                                       IT174000
                            00722  3434+$IOTTEST EQU   1960-IOTPDDB+IOTJCTTR-18                                 IT176000

0000D8 0722                        3435+         DC    Y($IOTTEST)         TEST INSTRUCTION                     IT178000
000000                             3436+HASPXEQ  CSECT                     END OF HASP INPUT/OUTPUT TABLE DSECT IT180000
XEQ      HASP EXECUTION PROCESSOR PCE WORK AREA DSECT                                                          PAGE   73


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78






000058                             3439+PCEDSECT DSECT                     HASP EXECUTION PROCESSOR             XW296000
000058                      00058  3440+         ORG   PCEWORK              PCE WORK AREA DSECT                 XW298000
000058                             3441+XPCESTAT DS    B                   PCE STATUS BYTE                      XW299000

                            00080  3442+XDUPBIT  EQU   X'80'               JOB WITH DUP NAME WAITING            XW299100

                            00040  3443+XEOJMES  EQU   X'40'               END-EXECUTION MESSAGE SENT           XW299200
                            00020  3444+XPOSTBIT EQU   X'20'               XTHAW SHOULD THAW XPCEJST            XW299300
                            00010  3445+XREXREQ  EQU   X'10'               REQUEUE FOR XEQ AT END XEQ           XW299400
                            00008  3446+XSYNCREQ EQU   X'08'               SYNCHRONOUS ACTION REQUIRED          XW299500
                            00004  3447+XOCRMES  EQU   X'04'               OCR-OVERFLOW MESSAGE SENT            XW299600

                            00002  3448+XPCERSV6 EQU   X'02'               RESERVED                             XW299700
                            00001  3449+XPCERSV7 EQU   X'01'               RESERVED                             XW299800
000059                             3450+XSYNCFLG DS    B                   SYNCHRONOUS ACTION FLAGS             XW299900
                            00080  3451+XEOJBIT  EQU   X'80'               TERMINATE JOB EXECUTION              XW300000
                            00040  3452+XALLOCWT EQU   X'40'               WRITE 'AWAITING ALLOCATION'          XW300100
                            00020  3453+XGETIOT  EQU   X'20'               GET ANOTHER IOT FOR RDR/INTRP        XW300200
                            00010  3454+XIOTWREQ EQU   X'10'               IOT CHECKPOINT REQUIRED              XW300300
                            00008  3455+XOUTCDBF EQU   X'08'               GET A /*OUTPUT CARD BUFFER           XW300400
                            00004  3456+XOCRMSG  EQU   X'04'               WRITE OCR OVERFLOW MESSAGE           XW300500
                            00002  3457+XSYNRSV6 EQU   X'02'               RESERVED                             XW300600

                            00001  3458+XSYNRSV7 EQU   X'01'               RESERVED                             XW300700

00005A                             3459+XPCESTEP DS    H                   CURRENT STEP NUMBER                  XW300800
00005C                             3460+XPCEOUTC DS    F                   POINTER TO /*OUTPUT CARD BUFFER      XW300900
000060                             3461+XPCEJST  DS    F                   ADDRESS OF USER TASK CONTROL BLOCK   XW302000
000064                             3462+XPCEJOB  DS    F                   ADDRESS OF JOB QUEUE ENTRY           XW304000

000068                             3463+XPCEIOT  DS    F                   ADDRESS OF FIRST IOT                 XW306000
00006C                             3464+XPCEJOBN DS    CL8                 JOB NAME                             XW308000
000074                             3465+XPCEDCT  DS    F                   ADDRESS OF DIRECT-ACCESS DCT         XW312000
000078                             3466+XPCEDDB  DS    F                   START OF DATA DEFINITION TABLE CHAIN XW314000
                            00000  3467+XOUTTOTL EQU   0                   TOTAL OUTPUT RECORDS                 XW318000
                            00004  3468+XOUTEST  EQU   4                   ESTIMATED OUTPUT RECORDS             XW320000
                            00008  3469+XOUTXCES EQU   8                   ESTIMATED EXCESSION AMOUNT           XW322000
                            0000C  3470+XOUTTYPE EQU   12                  OUTPUT RECORD TYPE (EBCDIC)          XW324000
                            00010  3471+XOUTENT  EQU   16                  OUTPUT INFORMATION TABLE LENGTH      XW326000
00007C                             3472+XPCEPRT  DS    CL(XOUTENT)         PRINT INFORMATION TABLE              XW328000
00008C                             3473+XPCEPUN  DS    CL(XOUTENT)         PUNCH INFORMATION TABLE              XW330000

00009C                             3474+XPCEPIT  DS    F                   ADDR OF PARTITION INFORMATION TABLE  XW332000
0000A0                             3475+XSTQE    DS    3F                  EXECUTION TIMER QUEUE ELEMENT        XW334000
0000AC                             3476+XXSTIME  DS    F                   TIME ESTIMATE EXCESSION AMOUNT       XW336000
                            00058  3477+XEQPCEWS EQU   *-PCEWORK           LENGTH OF EXECUTION PCE WORK AREA    XW340000

000000                             3478+HASPXEQ  CSECT                     END OF EXECUTION PCE WORK AREA DSECT XW342000
XEQ      HASP EXECUTION PROCESSOR                                                                              PAGE   74


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3480 *                                                                       X0424000
                                   3481 *              SYMBOLIC REGISTER DEFINITIONS                            X0426000
                                   3482 *                                                                       X0428000
                            00006  3483 XLK      EQU   WE                  XEQ LINK REGISTER                    X0430000
                            00007  3484 XDDB     EQU   WF                  DDB REG                              X0432000
                            00008  3485 XV       EQU   WG                  VOLITILE WORK REG                    X0434000






                                   3488 *                                                                       X0440000

                                   3489 *              DDB STATUS BIT DEFINITIONS                               X0442000
                                   3490 *                                                                       X0444000
                            00000  3491 XRED     EQU   X'00'               DDBSTAT1 - FILE READY                X0446000

                            00001  3492 XNPB     EQU   X'01'               DDBSTAT1 - NO PRIMARY BUFFER         X0448000
                            00002  3493 XPIO     EQU   X'02'               DDBSTAT1 - PRIMARY I/O REQ           X0450000
                            00004  3494 XPIOA    EQU   X'04'               DDBSTAT1 - PRIMARY I/O ACTIVE        X0452000
                            00008  3495 XPEOD    EQU   X'08'               DDBSTAT1 - PRIMARY END-OF-DATA       X0454000
                            00010  3496 XNSB     EQU   X'10'               DDBSTAT1 - NO SECONDARY BUFFER       X0456000
                            00020  3497 XSIO     EQU   X'20'               DDBSTAT1 - SECONDARY I/O REQ         X0458000
                            00040  3498 XSIOA    EQU   X'40'               DDBSTAT1 - SECONDARY I/O ACTIVE      X0460000
                            00080  3499 XSEOD    EQU   X'80'               DDBSTAT1 - SECONDARY END-OF-DATA     X0462000
                            00080  3500 XINDDB   EQU   X'80'               DDBTYPE  - INPUT FILE                X0464000
                            00002  3501 XPRTDDB  EQU   X'02'               DDBTYPE  - PRINT DDB                 X0466000
                            00004  3502 XPUNDDB  EQU   X'04'               DDBTYPE  - PUNCH DDB                 X0468000
                            00008  3503 XPLOTDDB EQU   X'08'               DDBTYPE  - PLOT DDB                  X0470000

                            00010  3504 XLOGDDB  EQU   X'10'               DDBTYPE  - LOG DDB                   X0472000

                            00040  3505 XNULLDDB EQU   X'40'               DDBTYPE  - DUMMY DDB                 X0474000
                            00080  3506 XACT     EQU   X'80'               DDBSTAT2 - ACTION REQUIRED           X0476000

                            00001  3507 XTERM    EQU   X'01'               DDBSTAT2 - TERMINATE DDB             X0478000
                            00002  3508 XROLL    EQU   X'02'               DDBSTAT2 - ROLL OUTPUT BUFFER        X0480000
                            00004  3509 XIOC     EQU   X'04'               DDBSTAT2 - I/O  ERROR ON READ        X0482000
                            00010  3510 XOPEN    EQU   X'10'               DDBSTAT2 - DDB HAS BEEN USED         X0484000
                            00020  3511 XLOGHEAD EQU   X'20'               DDBSTAT2 - LOG DDB TITLE SWITCH      X0486000



                                   3513 *                                                                       X0490000
                                   3514 *              MISCELLANEOUS DEFINITIONS                                X0492000
                                   3515 *                                                                       X0494000
                            000FF  3516 XDDBMARK EQU   X'FF'               WAITING 'DD *' MARK IN DDB           X0496000
                            000EC  3517 JCTPDDBP EQU   JCTPRTCT            JCT PDDB DISPLACEMENT                X0498000
XEQ      HASP EXECUTION PROCESSOR -- INITIAL ENTRY POINT                                                       PAGE   75



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3519 *                                                                       X0502000

                                   3520 *                        INITIAL ENTRY POINT                            X0504000

                                   3521 *                                                                       X0506000
                                   3522 *                                                                       X0508000
                            00000  3523          USING DDBDSECT,XDDB                                            X0510000
                            00000  3524          USING HASPXEQ,BASE2                                            X0512000



                                   3526          $LINK HASPXJI1            GO TO JOB INITIALIZATION             X0516000
000000                             3527+HA$QXJI1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
000000                             3528+HASPXEQ  CSECT                                                          OL014000
000000 41E00000                    3529+         DC    Y(X'4100'+LINK*16),QL2(HA$QXJI1) LOAD OCON INTO LINK     OL016000
000004 45F0 B08C      0008C        3530+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000
000008 47F0 C01C      0001C        3531          B     XWAITED             AND PROCESS REQUESTS                 X0518000
XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   76



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3533 *                                                                       X0522000
                                   3534 *              A JOB IS ACTIVE... AWAIT DIRECTION                       X0524000

                                   3535 *                                                                       X0526000


                                   3537 XWAIT    NULL                                                           X0530000
00000C                             3538+XWAIT    DS    0H                                                       NU006000
                                   3539          $WAIT WORK                                                     X0532000
00000C 9620 D049      00049        3540+         OI    PCEEWF+$EWBWORK,$EWFWORK                                 WA016000
000010 45F0 B030      00030        3541+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                                   3542 *                                                                       X0534000
                                   3543 *              PROCESSOR HELP REQUIRED                                  X0536000
                                   3544 *                                                                       X0538000
                                   3545 XTIMWAT  NULL  *                   RETURN FOR TIME EXCESSION            X0540000
000014                             3546+XTIMWAT  DS    0H                                                       NU006000

000014 9108 D058      00058        3547          TM    XPCESTAT,XSYNCREQ   TEST FOR SPECIAL REQUESTS            X0542000
000018 4770 C1F4      001F4        3548          BNZ   XJOBSPEC            BR IF YES                            X0544000
                                   3549 XWAITED  NULL                                                           X0546000
00001C                             3550+XWAITED  DS    0H                                                       NU006000

00001C 5870 D078      00078        3551          L     XDDB,XPCEDDB        GET FIRST DDB                        X0548000
                                   3552 XWAITOR  NULL                                                           X0550000
000020                             3553+XWAITOR  DS    0H                                                       NU006000
000020 4177 0000      00000        3554          LA    XDDB,0(XDDB)        CLEAR HIGH BYTE                      X0552000
000024 1277                        3555          LTR   XDDB,XDDB           IS THIS END OF DDBS                  X0554000
000026 4780 C3E4      003E4        3556          BZ    XWAITCON            BR IF YES TO CONTINUE                X0556000

00002A 9181 7009      00009        3557          TM    DDBSTAT2,XACT+XTERM IS ACTION REQUIRED ON THIS DDB       X0558000
00002E 4780 C3D8      003D8        3558          BZ    XNEXTDDB            BR IF NO...                          X0560000
000032 9105 7009      00009        3559          TM    DDBSTAT2,XTERM+XIOC        IS ACTION SPECIAL             X0562000
000036 4770 C1E0      001E0        3560          BNZ   XSPECACT            BR IF YES                            X0564000
                                   3561 XDDBCONT NULL                      *                                    X0566000
00003A                             3562+XDDBCONT DS    0H                                                       NU006000
                                   3563 *                                                                       X0568000
                                   3564 *              PUT ACTION DDB AT HEAD OF FREQUENCY TABLE                X0570000

                                   3565 *                                                                       X0572000
00003A 5840 C85C      0085C        3566          L     WC,XDDBTABE         PHYSICAL END OF TABLE                X0574000

00003E 1884                        3567          LR    XV,WC                EQUAL TO LOGICAL START              X0576000
000040 1B22                        3568          SR    WA,WA               CLEAR WA FOR FIRST TRY               X0578000
000042 4320 4000      00000        3569 XPUSHA   IC    WA,0(,WC)           GET INDEX VALUE FOR THIS ENTRY       X0580000
000046 4130 0024      00024        3570          LA    WB,DDBLNG           LENGTH OF DDB IN BYTES               X0582000
00004A 1C22                        3571          MR    WA,WA               CALCULATE RELATIVE ADDRESS           X0584000
00004C 5A30 C860      00860        3572          A     WB,XDDBCHN           AND ACTUAL ADDRESS OF DDB           X0586000
000050 1937                        3573          CR    WB,XDDB             COMPARE WITH ACTION DDB              X0588000
000052 4780 C062      00062        3574          BE    XPUSHUP             BRANCH IF MATCH                      X0590000

000056 4640 C042      00042        3575          BCT   WC,XPUSHA            OR CONTINUE SEARCH                  X0592000
                                   3576 X04      $ERROR                    IMPOSSIBLE...HOPEFULLY               X0594000
00005A 4500 B0B8      000B8        3577+X04      BAL   R0,$ERROR           TERMINATE PROCESSING                 ER008000
00005E E7F0F440                    3578+         DC    CL4'X04'              HASP SYSTEM ERROR CODE             ER010000
000062 4330 4000      00000        3579 XPUSHUP  IC    WB,0(,WC)           ENTRY FOUND...SAVE INDEX VALUE       X0596000

000066 1B84                        3580          SR    XV,WC               COMPUTE DEPTH IN TABLE               X0598000
000068 4780 C080      00080        3581          BZ    XPUSHEND            BRANCH IF DDB WAS FIRST              X0600000
00006C 0680                        3582          BCTR  XV,0                REDUCE COUNT FOR MVC                 X0602000

00006E 4280 C073      00073        3583          STC   XV,*+5              STORE IN MVC COUNT                   X0604000
000072 D200 4000 4001 00000 00001  3584          MVC   0(*-*,WC),1(WC)     SLIDE TABLE OVER ENTRY               X0606000
000078 5820 C85C      0085C        3585          L     WA,XDDBTABE         ADDRESS OF LOGICAL START             X0608000
00007C 4230 2000      00000        3586          STC   WB,0(,WA)           SET ACTION DDB INDEX FIRST           X0610000
XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   77


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000080                             3587 XPUSHEND DS    0H                  FREQUENCY TABLE IS ADJUSTED          X0612000

000080 9180 7004      00004        3588          TM    DDBTYPE,XINDDB      IS THIS AN INPUT FILE                X0614000
000084 4780 C0E0      000E0        3589          BZ    XOUT                BR IF NO                             X0616000
XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   78


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3591 *                                                                       X0620000

                                   3592 *              PROCESS INPUT DDB REQUIREMENTS                           X0622000
                                   3593 *                                                                       X0624000
000088 9102 7008      00008        3594          TM    XS,XPIO             IS PRIMARY I/O REQUIRED              X0626000
00008C 4780 C0B0      000B0        3595          BZ    XINSEC              BR IF NO                             X0628000

000090 9101 7008      00008        3596          TM    XS,XNPB             IS THERE A PRIMARY BUFFER            X0630000
000094 4780 C0A8      000A8        3597          BZ    XIN10               BR IF YES                            X0632000
000098 4560 C76A      0076A        3598          BAL   XLK,XGETBUF         OTHERWISE GET ONE                    X0634000
00009C 9610 7009      00009        3599          OI    DDBSTAT2,XOPEN      SHOW DDB USED                        X0636000
0000A0 5010 700C      0000C        3600          ST    R1,DDBPBUF          SAVE ADDR                            X0638000
0000A4 94FE 7008      00008        3601          NI    XS,255-XNPB         SHOW BUFFER GOTTEN                   X0640000

                                   3602 XIN10    NULL                      *                                    X0642000
0000A8                             3603+XIN10    DS    0H                                                       NU006000
0000A8 4560 C692      00692        3604          BAL   XLK,XREADBUF        GO DO I/O                            X0644000
0000AC 47F0 C3D8      003D8        3605          B     XNEXTDDB            AND CONTINUE                         X0646000
                                   3606 *                                                                       X0648000

                                   3607 *              SECONDARY BUFFER PROCESSING                              X0650000
                                   3608 *                                                                       X0652000
                                   3609 XINSEC   NULL                                                           X0654000
0000B0                             3610+XINSEC   DS    0H                                                       NU006000
0000B0 9120 7008      00008        3611          TM    XS,XSIO             IS SECONDARY I/O REQUIRED            X0656000

0000B4 4780 C3D8      003D8        3612          BZ    XNEXTDDB            NO... IGNORE CALL                    X0658000
0000B8 9104 7008      00008        3613          TM    XS,XPIOA            IS PRIMARY I/O STILL ACTIVE          X0660000
0000BC 4710 C3D8      003D8        3614          BO    XNEXTDDB            WAIT IF YES                          X0662000
0000C0 9110 7008      00008        3615          TM    XS,XNSB             IS THERE A SECONDARY BUFFER          X0664000
0000C4 4780 C0D8      000D8        3616          BZ    XIN20               BR IF YES                            X0666000

                                   3617          $GETBUF XNEXTDDB          POLITE BUFFER REQUEST                X0668000
0000C8 45E0 B034      00034        3618+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
0000CC 4780 C3D8      003D8        3619+         BC    8,XNEXTDDB                                               NP008000
0000D0 5010 7010      00010        3620          ST    R1,DDBSBUF          SET BUF ADDRESS                      X0670000
0000D4 94EF 7008      00008        3621          NI    XS,255-XNSB         SHOW BUFFER EXISTS                   X0672000

                                   3622 XIN20    NULL                                                           X0674000
0000D8                             3623+XIN20    DS    0H                                                       NU006000
0000D8 4560 C692      00692        3624          BAL   XLK,XREADBUF        GO START READ                        X0676000
0000DC 47F0 C3D8      003D8        3625          B     XNEXTDDB            AND CONTINUE                         X0678000
                                   3626 *                                                                       X0680000

XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   79


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3628 *              SERVICE OUTPUT DDB REQUESTS                              X0684000
                                   3629 *                                                                       X0686000
                                   3630 XOUT     NULL                                                           X0688000

0000E0                             3631+XOUT     DS    0H                                                       NU006000
0000E0 9101 7008      00008        3632          TM    XS,XNPB             IS THERE A BUFFER                    X0690000
0000E4 4780 C18A      0018A        3633          BZ    XOUT10              BR IF YES                            X0692000
0000E8 9110 7009      00009        3634          TM    DDBSTAT2,XOPEN      HAS DDT BEEN OPENED...               X0694000
0000EC 4710 C16A      0016A        3635          BO    XOUTGET             BR IF YES                            X0696000

0000F0 5820 700C      0000C        3636          L     WA,DDBPBUF          POINT TO SUBJECT PDDB.               X0698000
                            00000  3637          USING PDBDSECT,WA         USE THE PDDB DSECT.                  X0700000
0000F4 5830 D068      00068        3638          L     WB,XPCEIOT          POINT TO ALLOCATION IOT.             X0702000
                            00000  3639          USING IOTDSECT,WB         USE THE IOT DSECT.                   X0704000
                                   3640         $TRACK IOTCYMXM            GET TRACK FOR DATASET.               X0706000
0000F8 4110 3068      00068        3641+         LA    R1,IOTCYMXM                                              DG012000

0000FC 45E0 B064      00064        3642+         BAL   LINK,$TRACK         LINK TO CONTROL SERVICE PROGRAM      BA008000
000100 9610 D059      00059        3643          OI    XSYNCFLG,XIOTWREQ   SHOW IOT CHKPT NEEDED.               X0708000
000104 5860 0000      00000        3644          L     XLK,*-*             SAVE STEP                            X0710000
000108                      00106  3645          ORG   *-2                  AND                                 X0712000

000106 2003                        3646          DC    S(PDBMTTR)            DD NUMBER.                         X0714000
000108                      00104  3647          ORG   *-4                                                 RFIT X0714005
000104 D203 C980 2003 00980 00003  3648          MVC   DARTSCR1,PDBMTTR    SAVE STEP AND                   RFIT X0714010
00010A 5860 C980      00980        3649          L     XLK,DARTSCR1        DD NUMBER                       RFIT X0714015
00010E 5010 700C      0000C        3650          ST    R1,DDBPBUF          SET STARTING TRACK IN DDT.           X0716000

000112 41E0 C16A      0016A        3651          LA    LINK,XOUTGET        SET XOUTTRK RETURN.                  X0718000
000116 9110 2000      00000        3652          TM    PDBFLAG1,PDB1MDES   ARE THERE MULTIPLE DESTS...          X0720000
00011A 4780 C1CC      001CC        3653          BZ    XOUTTRK             IF NOT, GO STUFF THE TRACK.          X0722000

00011E 5830 7014      00014        3655          L     WB,DDBDDNR          GET IOT POINTER, SET BY XBD2.        X0726000
                            00000  3656          USING IOTDSECT,WB         USE THE IOT DSECT.                   X0728000
000122 1B00                        3657          SR    R0,R0               ZERO INSERT-CHARACTER REGISTER.      X0730000

000124 5840 30D4      000D4        3658 XOUT3    L     WC,IOTPDDBP         GET MAXIMUM PDDB OFFSET.             X0732000
000128 1E43                        3659          ALR   WC,WB               MAKE IT ABSOLUTE.                    X0734000
00012A 1222                        3660          LTR   WA,WA               IS THIS FIRST TIME THROUGH...        X0736000

00012C 4770 C134      00134        3661          BNZ   XOUT7               YES.  PDDB REG ALREADY SET.          X0738000
000130 4120 30D8      000D8        3662          LA    WA,IOTPDDB          NO.  POINT TO FIRST PDDB.            X0740000
000134 9140 2000      00000        3663 XOUT7    TM    PDBFLAG1,PDB1NULL   DOES THIS PDDB SHOW TRACK YET..      X0742000
000138 4780 C16A      0016A        3664          BZ    XOUTGET             IF NOT, WE'RE ALL DONE.              X0744000
00013C 5560 0000      00000        3665          CL    XLK,*-*             NO.                                  X0746000

000140                      0013E  3666          ORG   *-2                  DO STEP,                            X0748000
00013E 2003                        3667          DC    S(PDBSTNR)            DD NUMBER MATCH...                 X0750000
000140                      0013C  3668          ORG   *-4                                                 RFIT X0750005
00013C 5060 C980      00980        3669          ST    XLK,DARTSCR1        NO.  DO STEP,                   RFIT X0750010
000140 D503 C980 2003 00980 00003  3670          CLC   DARTSCR1,PDBSTNR     DD NUMBER MATCH...             RFIT X0750015
000146 4770 C16A      0016A        3671          BNE   XOUTGET             IF NOT, WE'RE DONE.                  X0752000
00014A 45E0 C1CC      001CC        3672          BAL   LINK,XOUTTRK        GO STUFF TRACK IN THIS PDDB.         X0754000
00014E 4300 2002      00002        3673          IC    R0,PDBLENG          GET THIS PDDB'S LENGTH.              X0756000

000152 1E20                        3674          ALR   WA,R0               POINT TO NEXT PDDB.                  X0758000
000154 1524                        3675          CLR   WA,WC               ARE WE PAST PDDBS THIS IOT...        X0760000

000156 4740 C134      00134        3676          BL    XOUT7               IF NOT, CONTINUE.                    X0762000
00015A 1B22                        3677          SR    WA,WA               SHOW NOT FIRST TIME.                 X0764000
                                   3678 *        ICM   WB,7,IOTIOT+1       POINT TO NEXT IOT               RFIT X0766000
00015C 5830 3058      00058        3679          L     WB,IOTIOT                                           RFIT X0766005
000160 4130 3000      00000        3680          LA    WB,0(,WB)                                           RFIT X0766010

000164 1233                        3681          LTR   WB,WB                                               RFIT X0766015
000166 4770 C124      00124        3682          BNZ   XOUT3               GO PROCESS IT IF IT EXISTS.          X0768000
XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   80


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00016A                             3684 XOUTGET  DS    0H                                                       X0772000
00016A 9610 7009      00009        3685          OI    DDBSTAT2,XOPEN      SHOW DDB OPEN.                       X0774000
00016E 4560 C76A      0076A        3686          BAL   XLK,XGETBUF         *                                    X0776000
000172 D203 1058 700C 00058 0000C  3687          MVC   HDBNXTRK-BUFDSECT(L'HDBNXTRK,R1),DDBPBUF  SET NEXT TTR   X0778000
000178 5010 700C      0000C        3688          ST    R1,DDBPBUF          SHOW BUFFER ADDRESS                  X0780000

00017C 94FE 7008      00008        3689          NI    XS,255-XNPB         AND BUFFER EXISTANCE                 X0782000

000180 D201 700A C9B4 0000A 009B4  3690          MVC   DDBUFPTR,=AL2(HDBSTART-BUFDSECT)   SET INITIAL DISP      X0784000
000186 47F0 C3C4      003C4        3691          B     XENDOUT             EXIT                                 X0786000
                                   3692 XOUT10   NULL                                                           X0788000
00018A                             3693+XOUT10   DS    0H                                                       NU006000
00018A 9102 7008      00008        3694          TM    XS,XPIO             IS I/O REQUIRED...                   X0790000

00018E 4780 C3C4      003C4        3695          BZ    XENDOUT             EXIT IF NO                           X0792000
000192 5820 700C      0000C        3696          L     WA,DDBPBUF          BUFFER ADDR                          X0794000
000196 4810 700A      0000A        3697          LH    R1,DDBUFPTR         CURRENT POINTER                      X0796000
00019A 1A12                        3698          AR    R1,WA               R1=NEXT SLOT                         X0798000
00019C 92FF 1000      00000        3699          MVI   0(R1),255           SET BUFFER TERMINATOR                X0800000
0001A0 58E0 D068      00068        3700          L     R14,XPCEIOT         POINT TO ALLOCATION IOT.             X0802000
                            00000  3701          USING IOTDSECT,R14        USE THE IOT DSECT.                   X0804000
                                   3702         $TRACK IOTCYMXM            GET NEXT TRACK.                      X0806000
0001A4 4110 E068      00068        3703+         LA    R1,IOTCYMXM                                              DG012000
0001A8 45E0 B064      00064        3704+         BAL   LINK,$TRACK         LINK TO CONTROL SERVICE PROGRAM      BA008000

                                   3705          DROP  R14                 DROP IOT DSECT.                      X0808000

0001AC 5010 700C      0000C        3706          ST    R1,DDBPBUF          SAVE CHAIN TRACK                     X0810000
0001B0 4560 C632      00632        3707          BAL   XLK,XWRTBUF         GO WRITE BUFFER                      X0812000
0001B4 9703 7008      00008        3708          XI    XS,XPIO+XNPB        RESET I/O AND BUFFER STATUS          X0814000
0001B8 4560 C866      00866        3709          BAL   XLK,XOUTCHEK        GO TOTAL LINES AND CHECK ESTIMATES   X0816000

0001BC 9102 7009      00009        3710          TM    DDBSTAT2,XROLL      WAS THIS A BUFFER ROLL               X0818000
0001C0 4780 C16A      0016A        3711          BZ    XOUTGET             BR IF NO TO RE-BUFFER                X0820000
0001C4 947D 7009      00009        3712          NI    DDBSTAT2,255-XROLL-XACT RESET STATUS                     X0822000
                                   3713         $TRACE                                                          X0824000
0001C8 47F0 C01C      0001C        3714          B     XWAITED             AND START OVER AT TOP                X0826000



0001CC 5010 0000      00000        3716 XOUTTRK  ST    R1,*-*              SET                                  X0830000
0001D0                      001CE  3717          ORG   *-2                  TRACK ADDRESS                       X0832000
0001CE 2003                        3718          DC    S(PDBMTTR)            IN PDDB.                           X0834000
0001D0                      001CC  3719          ORG   *-4                                                 RFIT X0834005
0001CC 5010 C980      00980        3720          ST    R1,DARTSCR1         SET TRACK ADDRESS               RFIT X0834010

0001D0 D203 2003 C980 00003 00980  3721          MVC   PDBMTTR(4),DARTSCR1  IN PDDB.                       RFIT X0834015
0001D6 94BF 2000      00000        3722          NI    PDBFLAG1,255-PDB1NULL  SHOW TRACK ADDRESS SET.           X0836000
0001DA 9680 3058      00058        3723          OI    IOTFLAGS,IOTWRITE   CAUSE IOT CHECKPOINT.                X0838000
0001DE 07FE                        3724          BR    LINK                RETURN.                              X0840000

                                   3725          DROP  WA,WB               DROP PDDB, IOT BASES.                X0842000
XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   81


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3727 *                                                                       X0846000
                                   3728 *              SPECIAL DDB ACTION REQUIRED                              X0848000
                                   3729 *                                                                       X0850000
                                   3730 XSPECACT NULL                                                           X0852000
0001E0                             3731+XSPECACT DS    0H                                                       NU006000
0001E0 9101 7009      00009        3732          TM    DDBSTAT2,XTERM      IS THIS A TERMINATE REQ              X0854000
0001E4 4710 C522      00522        3733          BO    XTERMIN8            BR IF YES                            X0856000
0001E8 9104 7009      00009        3734          TM    DDBSTAT2,XIOC       WAS THERE A READ I/O ERROR           X0858000
0001EC 4710 C5EA      005EA        3735          BO    XIOERR              BR IF YES                            X0860000

                                   3736 *                                                                       X0862000
                                   3737 *                       ADD ANOTHER ACTION TYPES HERE                   X0864000
                                   3738 *                                                                       X0866000

0001F0 47F0 C03A      0003A        3739          B     XDDBCONT            OTHERWISE IGNORE SPECIAL ACTION      X0868000
                                   3740 XJOBSPEC NULL                                                           X0870000
0001F4                             3741+XJOBSPEC DS    0H                                                       NU006000
0001F4 9140 D059      00059        3742          TM    XSYNCFLG,XALLOCWT   IS ALLOC WAIT REQUESTED...           X0872000
0001F8 4780 C23C      0023C        3743          BZ    XSETEOJ             BRANCH IF NOT.                       X0874000
                                   3744         $WTO   XALLOK8,L'XALLOK8,  SHOW NOT ENOUGH DDTS                CX0876000
                                                       ROUTE=$LOG+$MAIN,CLASS=$NORMAL,PRI=$ST,JOB=YES           X0878000
0001FC 4110 C224      00224        3745+         LA    R1,XALLOK8                                               DG012000
000200                             3746+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
000200 5800 C208      00208        3747+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
000204 45E0 B098      00098        3748+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
000208 02211834                    3749+         DC    AL1(2,$LOG+$MAIN,L'XALLOK8,$NORMAL+$ST)                  WT044000

00020C 9140 D059      00059        3750          TM    XSYNCFLG,XALLOCWT   WAS ALLOC FLAG RESET...              X0880000

000210 4780 C23C      0023C        3751          BZ    XSETEOJ             BRANCH IF SO.                        X0882000
000214 94BF D059      00059        3752          NI    XSYNCFLG,255-XALLOCWT  NO.  RESET IT.                    X0884000

                                   3753         $WAIT  DDB                 WAIT FOR A DDT.                      X0886000
000218 9608 D049      00049        3754+         OI    PCEEWF+$EWBDDB,$EWFDDB                                   WA016000
00021C 45F0 B030      00030        3755+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
000220 47F0 C23C      0023C        3756          B     XSETEOJ             AND CONTINUE.                        X0888000
000224 C1E6C1C9E3C9D5C7            3757 XALLOK8  DC    C'AWAITING HASP ALLOCATION'                              X0890000
                                   3758 *              INSERT OTHER STATUS TESTS HERE AND AT XWAITED            X0892000
                                   3759 XSETEOJ  NULL                      JOB IS DONE...SETUP TERMINATION      X0894000
00023C                             3760+XSETEOJ  DS    0H                                                       NU006000
00023C 9180 D059      00059        3761          TM    XSYNCFLG,XEOJBIT    IS EOJ REQUESTED...                  X0896000
000240 4780 C2B4      002B4        3762          BZ    XIOTGET             BRANCH IF NOT.                       X0898000
000244 9140 D058      00058        3763          TM    XPCESTAT,XEOJMES    HAS END EXECUTION BEEN SENT          X0900000
000248 4710 C260      00260        3764          BO    XEOJOKA             BR IF YES                            X0902000

                                   3765          $WTO  XALMES,L'XALMES,    DISPLAY EOJ                         CX0904000
                                                       ROUTE=$LOG+$MAIN,CLASS=$TRIVIA,PRI=$ST,JOB=YES           X0906000

00024C 4110 C2A6      002A6        3766+         LA    R1,XALMES                                                DG012000

000250                             3767+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
000250 5800 C258      00258        3768+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
000254 45E0 B098      00098        3769+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
000258 02210E14                    3770+         DC    AL1(2,$LOG+$MAIN,L'XALMES,$TRIVIA+$ST)                   WT044000
00025C 9640 D058      00058        3771          OI    XPCESTAT,XEOJMES    SHOW SENT                            X0908000
                                   3772 XEOJOKA  NULL                      *                                    X0910000
000260                             3773+XEOJOKA  DS    0H                                                       NU006000
000260 5870 D078      00078        3774          L     XDDB,XPCEDDB        GET FIRST DDB                        X0912000
000264 4177 0000      00000        3775 XSEOJA   LA    XDDB,0(XDDB)        HI BYTE                              X0914000
000268 1277                        3776          LTR   XDDB,XDDB           IS THIS ALL                          X0916000
00026A 4780 C2B4      002B4        3777          BZ    XIOTGET             BR IF YES                            X0918000
00026E 9110 7004      00004        3778          TM    DDBTYPE,XLOGDDB     IS THIS LOG PROCESSOR                X0920000

000272 4710 C27A      0027A        3779          BO    *+8                 BR IF YES                            X0922000
XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   82


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000276 9681 7009      00009        3780          OI    DDBSTAT2,XTERM+XACT SET TERMINATE FLAG                   X0924000
00027A 5870 7000      00000        3781          L     XDDB,DDBCHAIN       TO NEXT DDB                          X0926000
00027E 47F0 C264      00264        3782          B     XSEOJA              CONTINUE                             X0928000
000282 E4E2C5E240E3D6D6            3783 XOCMSG   DC    C'USES TOO MANY /*OUTPUT CONTROL CARDS'                  X0930000
0002A6 C5D5C440C5E7C5C3            3784 XALMES   DC    C'END EXECUTION.'   TERMINAL MESSAGE                     X0932000



                                   3786 *                                                                       X0936000
                                   3787 *              THE FOLLOWING CODE GETS ANOTHER IOT                      X0938000
                                   3788 *                                                                       X0940000

0002B4 9120 D059      00059        3790 XIOTGET  TM    XSYNCFLG,XGETIOT    IS ANOTHER IOT REQUIRED...           X0944000
0002B8 4780 C366      00366        3791          BZ    XGETOUT             BRANCH IF NOT.                       X0946000

0002BC 94DF D059      00059        3792          NI    XSYNCFLG,255-XGETIOT  YES.  RESET FLAG.                  X0948000
                                   3793 XIOTGB  $GETBUF ,                  GET A BUFFER FOR THE IOT.            X0950000
0002C0 45E0 B034      00034        3794+XIOTGB   BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
0002C4 4770 C2D4      002D4        3795          BNZ   XIOTGT              BRANCH IF BUFFER GOT.                X0952000

                                   3796         $WAIT  BUF                 ELSE WAIT FOR BUFFER.                X0954000
0002C8 9640 D048      00048        3797+         OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000
0002CC 45F0 B030      00030        3798+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
0002D0 47F0 C2C0      002C0        3799          B     XIOTGB              THEN TRY AGAIN.                      X0956000
0002D4 5820 D068      00068        3800 XIOTGT   L     WA,XPCEIOT          POINT TO FIRST IOT.                  X0958000
                            00000  3801          USING IOTDSECT,WA         USE THE IOT DSECT.                   X0960000

0002D8 1832                        3802 XIOTGT1  LR    WB,WA               SAVE PREVIOUS IOT POINTER.           X0962000
                                   3803 *        ICM   WA,7,IOTIOT+1       POINT TO NEXT IOT               RFIT X0964000
0002DA 5820 2058      00058        3804          L     WA,IOTIOT                                           RFIT X0964005
0002DE 4122 0000      00000        3805          LA    WA,0(WA)                                            RFIT X0964010
0002E2 1222                        3806          LTR   WA,WA                                               RFIT X0964015
0002E4 4770 C2D8      002D8        3807          BNZ   XIOTGT1             LOOP TILL LAST IOT FOUND.            X0966000
                            00000  3808          USING IOTDSECT,WB         USE DSECT FOR OLD LAST IOT.          X0968000
                                   3809 *        STCM  R1,7,IOTIOT+1       SET POINTER TO NEW IOT.         RFIT X0970000

0002E8 5010 C980      00980        3810          ST    R1,DARTSCR1                                         RFIT X0970005
0002EC D202 3059 C981 00059 00981  3811          MVC   IOTIOT+1(3),DARTSCR1+1                              RFIT X0970010

0002F2 1821                        3812          LR    WA,R1               SAVE NEW IOT ADR ACROSS $TRACK.      X0972000
0002F4 5840 D068      00068        3813          L     WC,XPCEIOT          POINT TO ALLOCATION IOT.             X0974000
                            00000  3814          USING IOTDSECT,WC         USE DSECT FOR ALLOCATION.            X0976000
                                   3815         $TRACK IOTCYMXM            GET A TRACK FOR NEW IOT.             X0978000
0002F8 4110 4068      00068        3816+         LA    R1,IOTCYMXM                                              DG012000
0002FC 45E0 B064      00064        3817+         BAL   LINK,$TRACK         LINK TO CONTROL SERVICE PROGRAM      BA008000
                                   3818          DROP  WC                  DROP ALLOCATION IOT DSECT.           X0980000
000300 5010 3060      00060        3819          ST    R1,IOTIOTTR         SET NEW TRACK ADR IN PREV IOT.       X0982000

000304 9680 3058      00058        3820          OI    IOTFLAGS,IOTWRITE   CAUSE IT TO CHECKPOINT.              X0984000
000308 9610 D059      00059        3821          OI    XSYNCFLG,XIOTWREQ   SHOW CHECKPOINT REQUEST.             X0986000
00030C 18F2                        3822          LR    R15,WA              SAVE IOT ADR ACROSS MVCL.            X0988000
00030E 4120 2058      00058        3823          LA    WA,IOTIOT-IOTDSECT(,WA)  POINT TO AREA TO CLEAR.         X0990000
                                   3824          LA    WB,&BUFSIZE         GET LENGTH TO CLEAR.                 X0992000

000312 4130 07A8      007A8        3825+         LA    WB,1960             GET LENGTH TO CLEAR.                 X0992000
000316 1B55                        3826          SR    WD,WD               SET COUNT AND PAD CHAR TO ZERO.      X0994000
                                   3827 *        MVCL  WA,WC               CLEAR THE IOT                   RFIT X0996000

                                   3828          $XXC  XC,(0,WA),(0,WA),&BUFSIZE                           RFIT X0996005
000318 D7FF 2000 2000 00000 00000  3829+         XC    0+0(256,WA),0+0(WA)                                      XX036000
00031E D7FF 2100 2100 00100 00100  3830+         XC    0+256(256,WA),0+256(WA)                                  XX036000
000324 D7FF 2200 2200 00200 00200  3831+         XC    0+512(256,WA),0+512(WA)                                  XX036000
00032A D7FF 2300 2300 00300 00300  3832+         XC    0+768(256,WA),0+768(WA)                                  XX036000
XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   83


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000330 D7FF 2400 2400 00400 00400  3833+         XC    0+1024(256,WA),0+1024(WA)                                XX036000
000336 D7FF 2500 2500 00500 00500  3834+         XC    0+1280(256,WA),0+1280(WA)                                XX036000
00033C D7FF 2600 2600 00600 00600  3835+         XC    0+1536(256,WA),0+1536(WA)                                XX036000
000342 D7A7 2700 2700 00700 00700  3836+         XC    0+1792(168,WA),0+1792(WA)                                XX050000
                            00000  3837          USING IOTDSECT,R15        USE NEW IOT DSECT.                   X0998000

000348 5010 F05C      0005C        3838          ST    R1,IOTTRACK         SET TRACK ADDRESS IN NEW IOT.        X1000000
00034C D203 F064 4064 00064 00064  3839          MVC   IOTJCTTR,IOTJCTTR-IOTDSECT(WC)  SET JCT TTR IN NEW IOT.  X1002000
000352 4100 00D8      000D8        3840          LA    R0,IOTPDDB-IOTDSECT SET OFFSET TO                        X1004000
000356 5000 F0D4      000D4        3841          ST    R0,IOTPDDBP         AVAILABLE PDDB SPACE.                X1006000
                                   3842          DROP  WA,WB,R15           DROP VARIOUS IOT BASES.              X1008000
00035A 5810 C988      00988        3843          L     R1,=A(XJCLECB)      POINT TO ECB TO POST.                X1010000
                                   3844          POST  (1)                 POST RDR-INTERPRETER.                X1012000
00035E 1B00                        3845+         SR    0,0                    . SET POST CODE REG ZERO          00640021
000360 4110 1000      00000        3846+         LA    1,0(0,1)               . LOAD ECB REG 1, CLEAR HI BYTE   02250021
000364 0A02                        3847+         SVC   2                      . ISSUE THE POST SVC              08250021
                                   3848 *                                                                       X1014000
                                   3849 *              THE FOLLOWING CODE GETS A BUFFER TO HOLD                 X1016000

                                   3850 *              /*OUTPUT CARDS.                                          X1018000
                                   3851 *                                                                       X1020000


000366                             3853 XGETOUT  DS    0H                                                       X1024000
000366 9108 D059      00059        3854          TM    XSYNCFLG,XOUTCDBF   IS A BUFFER REQUIRED...              X1026000
00036A 4780 C392      00392        3855          BZ    XOCRMSGW            BRANCH IF NOT.                       X1028000
00036E 94F7 D059      00059        3856          NI    XSYNCFLG,255-XOUTCDBF  YES.  RESET FLAG.                 X1030000

                                   3857 XGOUT   $GETBUF ,                  GET A BUFFER.                        X1032000
000372 45E0 B034      00034        3858+XGOUT    BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
000376 4770 C386      00386        3859          BNZ   XGOUT1              BRANCH IF GOT.                       X1034000
                                   3860         $WAIT  BUF                 ELSE WAIT FOR ONE.                   X1036000
00037A 9640 D048      00048        3861+         OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000
00037E 45F0 B030      00030        3862+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

000382 47F0 C372      00372        3863          B     XGOUT               THEN TRY AGAIN.                      X1038000
000386 5010 D05C      0005C        3864 XGOUT1   ST    R1,XPCEOUTC         SAVE /*OUTPUT BUF ADR IN PCE.        X1040000
                            00000  3865          USING BUFDSECT,R1         USE IOB DSECT FOR IT.                X1042000
00038A 4100 005C      0005C        3866          LA    R0,BUFSTART+4-BUFDSECT  POINT TO 1ST AVAIL SLOT.         X1044000
00038E 5000 1058      00058        3867          ST    R0,BUFSTART         SAVE SLOT ADDRESS IN BUFFER.         X1046000




                                   3869 *                                                                       X1050000
                                   3870 *              WRITE OCR OVERFLOW MESSAGE                               X1052000
                                   3871 *                                                                       X1054000


000392                             3873 XOCRMSGW DS    0H                                                       X1058000
000392 9104 D059      00059        3874          TM    XSYNCFLG,XOCRMSG    IS OCR OVERFLOW MSG REQ'D...         X1060000
000396 4780 C3BC      003BC        3875          BZ    XSYNCEND            BRANCH IF NOT.                       X1062000
00039A 94FB D059      00059        3876          NI    XSYNCFLG,255-XOCRMSG  YES.  RESET SWITCH.                X1064000
00039E 9104 D058      00058        3877          TM    XPCESTAT,XOCRMES    HAS MSG ALREADY GONE OUT...          X1066000

0003A2 4710 C3BC      003BC        3878          BO    XSYNCEND            BRANCH IF SO.                        X1068000
                                   3879         $WTO   XOCMSG,L'XOCMSG,    WRITE OCR OVERFLOW MSG.             CX1070000
                                                       ROUTE=$LOG+$MAIN,CLASS=$ALWAYS,PRI=$ST,JOB=YES           X1072000
0003A6 4110 C282      00282        3880+         LA    R1,XOCMSG                                                DG012000
0003AA 0700                        3881+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000

0003AC 5800 C3B4      003B4        3882+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
0003B0 45E0 B098      00098        3883+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
0003B4 02212474                    3884+         DC    AL1(2,$LOG+$MAIN,L'XOCMSG,$ALWAYS+$ST)                   WT044000
XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   84


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0003B8 9604 D058      00058        3885          OI    XPCESTAT,XOCRMES    SHOW MESSAGE WRITTEN.                X1074000




                                   3887 *                                                                       X1078000
                                   3888 *              ALL SYNCHRONOUS REQUESTS EXCEPT XIOTWREQ ARE             X1080000
                                   3889 *              COMPLETE AT THIS POINT.  RESET XSYNCREQ AND              X1082000

                                   3890 *              CONTINUE.                                                X1084000
                                   3891 *                                                                       X1086000
0003BC                             3892 XSYNCEND DS    0H                                                       X1088000
0003BC 94F7 D058      00058        3893          NI    XPCESTAT,255-XSYNCREQ  RESET SYNC FUNCTION FLAG.         X1090000
0003C0 47F0 C01C      0001C        3894          B     XWAITED             GO TO THE TOP.                       X1092000




                                   3896 *                                                                       X1096000
                                   3897 *              THE FOLLOWING SECTION IS ALWAYS ENTERED AFTER            X1098000
                                   3898 *              PROCESSING AN OUTPUT DDB.                                X1100000
                                   3899 *                                                                       X1102000
0003C4                             3900 XENDOUT  DS    0H                                                       X1104000
0003C4 9110 7004      00004        3901          TM    DDBTYPE,XLOGDDB     WAS THIS A LOG ACTION                X1106000

0003C8 4780 C3D8      003D8        3902          BZ    XNEXTDDB            BR IF NO                             X1108000
0003CC 5820 C98C      0098C        3903          L     WA,=V($LOGPCE)      LOG PCE ADDRESS                      X1110000
                                   3904          $POST PCEEWF+$EWBWORK-PCEDSECT(WA),WORK RESTART HIM            X1112000

0003D0 94DF 2049      00049        3905+         NI    PCEEWF+$EWBWORK-PCEDSECT(WA),255-$EWFWORK                PO008000
0003D4 947F B0C4      000C4        3906+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   3907 *                                                                       X1114000



                                   3909 XNEXTDDB NULL                      MOVE TO NEXT DDB                     X1118000

0003D8                             3910+XNEXTDDB DS    0H                                                       NU006000
0003D8 947F 7009      00009        3911          NI    DDBSTAT2,255-XACT   RESET ACTION BIT                     X1120000
0003DC 5870 7000      00000        3912          L     XDDB,DDBCHAIN       TO NEXT                              X1122000
0003E0 47F0 C020      00020        3913          B     XWAITOR             CONTINUE                             X1124000
                                   3914 XWAITCON NULL                      ALL DDBS SERVICED                    X1126000
0003E4                             3915+XWAITCON DS    0H                                                       NU006000
0003E4 9110 D059      00059        3916          TM    XSYNCFLG,XIOTWREQ   IS IOT CKPT REQUIRED...              X1128000
0003E8 4780 C4F0      004F0        3917          BZ    XWAITCN1            BRANCH IF NOT.                       X1130000

XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   85


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   3919 *                                                                       X1134000
                                   3920 *              THE FOLLOWING CHECKPOINTS IOT'S AS REQUIRED              X1136000
                                   3921 *                                                                       X1138000



0003EC 5830 D074      00074        3923          L     WB,XPCEDCT          GET DCT ADDRESS                      X1142000

                            00000  3924          USING DCTDSECT,WB         *                                    X1144000
0003F0 4100 D049      00049        3925          LA    R0,PCEEWF+$EWBIO    PUT ADDRESS OF EWF INTO DCT          X1146000
0003F4 5000 300C      0000C        3926          ST    R0,DCTEWF           FOR POSTING BY $ASYNC.               X1148000
0003F8 9240 3013      00013        3927          MVI   DCTIOTYP,DCTWRITE   SHOW WRITE OPERATION                 X1150000
                                   3928 XIOTSCAN NULL  *                   CHECK ALL IOT'S FOR WRITE REQ        X1152000
0003FC                             3929+XIOTSCAN DS    0H                                                       NU006000
0003FC 4120 D010      00010        3930          LA    WA,XPCEIOT-(IOTIOT-IOTDSECT)  SET UP TO CHAIN            X1154000
                                   3931 XIOTN    NULL  *                   *                                    X1156000
000400                             3932+XIOTN    DS    0H                                                       NU006000

                            00000  3933          USING IOTDSECT,WA         USE THE IOT DSECT                    X1158000

000400 1842                        3934          LR    WC,WA               SAVE PREVIOUS IOT ADDRESS.           X1160000
                                   3935 *        ICM   WA,7,IOTIOT+1       GET IOT                         RFIT X1162000
000402 5820 2058      00058        3936          L     WA,IOTIOT                                           RFIT X1162005
000406 4120 2000      00000        3937          LA    WA,0(,WA)                                           RFIT X1162010
00040A 1222                        3938          LTR   WA,WA                                               RFIT X1162015

00040C 4780 C4EC      004EC        3939          BZ    XIOTSOUT            BR IF END                            X1164000
000410 9180 2058      00058        3940          TM    IOTFLAGS,IOTWRITE   IS A CHECKPOINT REQUIRED             X1166000
000414 4780 C400      00400        3941          BZ    XIOTN               BR IF NO                             X1168000

                                   3943 *                                                                       X1172000
                                   3944 *              CHECKPOINT AN IOT.                                       X1174000
                                   3945 *                                                                       X1176000

000418 947F 2058      00058        3947          NI    IOTFLAGS,255-IOTWRITE  RESET CHECKPOINT FLAG.            X1180000
00041C 1802                        3948          LR    R0,WA               SET BUFFER ADDRESS.                  X1182000

00041E 5810 205C      0005C        3949          L     R1,IOTTRACK         SET TRACK ADDRESS.                   X1184000

000422 4580 C4CA      004CA        3950          BAL   R8,XIOTEXCP         GO WRITE THE IOT.                    X1186000
000426 47F0 C3FC      003FC        3951          B     XIOTSCAN            +0 - WRITE OKAY.  RESCAN.            X1188000
00042A 9680 2058      00058        3952          OI    IOTFLAGS,IOTWRITE   +4 - WRITE BAD.  SET FLAG.           X1190000


                                   3954 *                                                                       X1194000
                                   3955 *              ERROR WRITING IOT.  TRY ANOTHER TRACK.                   X1196000
                                   3956 *                                                                       X1198000

00042E 5850 D068      00068        3958          L     WD,XPCEIOT          POINT TO ALLOCATION IOT.             X1202000
                            00000  3959          USING IOTDSECT,WD         USE DSECT.                           X1204000
                                   3960         $TRACK IOTCYMXM            GET A NEW IOT TRACK.                 X1206000
000432 4110 5068      00068        3961+         LA    R1,IOTCYMXM                                              DG012000
000436 45E0 B064      00064        3962+         BAL   LINK,$TRACK         LINK TO CONTROL SERVICE PROGRAM      BA008000
                                   3963          DROP  WD                  DROP DSECT.                          X1208000
00043A 5010 205C      0005C        3964          ST    R1,IOTTRACK         SET NEW IOT TRACK.                   X1210000

                                   3965 *        CLM   WA,7,XPCEIOT+1      WAS BAD WRITE ON 1ST IOT        RFIT X1212000
00043E 5020 C980      00980        3966          ST    WA,DARTSCR1                                         RFIT X1212005
000442 D502 C981 D069 00981 00069  3967          CLC   DARTSCR1+1(3),XPCEIOT+1                             RFIT X1212010
000448 4780 C45A      0045A        3968          BE    XIOTJCTW            BRANCH IF SO TO REWRITE JCT.         X1214000


                                   3970 *                                                                       X1218000
                                   3971 *              FOR PREVIOUS IOT, SET NEW IOTIOTTR AND WRITE IT.         X1220000
XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   86


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   3972 *                                                                       X1222000

00044C 1824                        3974          LR    WA,WC               POINT TO PREVIOUS IOT.               X1226000
00044E 5010 2060      00060        3975          ST    R1,IOTIOTTR         SET NEXT IOT TRACK IN IT.            X1228000
000452 9680 2058      00058        3976          OI    IOTFLAGS,IOTWRITE   MARK IT FOR CHECKPOINT               X1230000
000456 47F0 C3FC      003FC        3977          B     XIOTSCAN             AND GO RESCAN.                      X1232000


                                   3979 *                                                                       X1236000
                                   3980 *              FOR JCT, SET NEW JCTIOTTR AND WRITE IT.                  X1238000
                                   3981 *                                                                       X1240000


00045A 5010 A05C      0005C        3983 XIOTJCTW ST    R1,JCTIOTTR         SET 1ST IOT TRACK IN JCT.            X1244000
00045E 180A                        3984          LR    R0,JCT              SET BUFFER ADDRESS.                  X1246000
000460 5810 D064      00064        3985          L     R1,XPCEJOB          POINT TO JQE.                        X1248000
000464 5810 1008      00008        3986          L     R1,QUETRAK(,R1)     SET TRACK ADDRESS.                   X1250000
000468 4580 C4CA      004CA        3987          BAL   R8,XIOTEXCP         GO WRITE THE JCT.                    X1252000
00046C 47F0 C3FC      003FC        3988          B     XIOTSCAN            +0 - WRITE OKAY.  GO RESCAN.         X1254000

                                   3990 *                                                                       X1258000
                                   3991 *              ERROR WRITING JCT.  TRY ANOTHER TRACK.                   X1260000
                                   3992 *                                                                       X1262000


000470                             3994 XIOTJCTB DS    0H                  JCT WRITE BAD.  TRY ANOTHER TRK      X1266000

000470 5850 D068      00068        3995          L     WD,XPCEIOT          POINT TO ALLOCATION IOT.             X1268000
                            00000  3996          USING IOTDSECT,WD         USE DSECT.                           X1270000

                                   3997         $TRACK IOTCYMXM            GET A NEW JCT TRACK.                 X1272000
000474 4110 5068      00068        3998+         LA    R1,IOTCYMXM                                              DG012000
000478 45E0 B064      00064        3999+         BAL   LINK,$TRACK         LINK TO CONTROL SERVICE PROGRAM      BA008000
                                   4000          DROP  WD                  DROP DSECT.                          X1274000
00047C 5850 D064      00064        4001          L     WD,XPCEJOB          POINT TO JQE.                        X1276000
000480 5010 5008      00008        4002          ST    R1,QUETRAK(,WD)     SET TRACK ADDRESS IN JQE.            X1278000
000484 180A                        4003          LR    R0,JCT              SET BUFFER ADDRESS.                  X1280000
000486 4580 C4CA      004CA        4004          BAL   R8,XIOTEXCP         GO WRITE THE JCT.                    X1282000
00048A 47F0 C492      00492        4005          B     *+8                 +0 - WRITE OKAY.  FIX IOTS.          X1284000
00048E 47F0 C470      00470        4006          B     XIOTJCTB            +4 - WRITE BAD.  TRY AGAIN.          X1286000

                                   4008 *                                                                       X1290000

                                   4009 *              FOR EACH IOT, SET NEW IOTJCTTR AND CHECKPOINT FLAG.      X1292000
                                   4010 *                                                                       X1294000



000492 4150 D010      00010        4012          LA    WD,XPCEIOT-(IOTIOT-IOTDSECT)  SET UP TO CHAIN IOTS.      X1298000
                            00000  4013          USING IOTDSECT,WD         USE IOT DSECT.                       X1300000
                                   4014 *XIOTCKP1ICM   WD,7,IOTIOT+1       POINT TO NEXT IOT               RFIT X1302000
000496 5850 5058      00058        4015 XIOTCKP1 L     WD,IOTIOT                                           RFIT X1302005
00049A 4150 5000      00000        4016          LA    WD,0(,WD)                                           RFIT X1302010
00049E 1255                        4017          LTR   WD,WD                                               RFIT X1302015
0004A0 4780 C4B2      004B2        4018          BZ    XIOTCKP2            BRANCH IF NONE.                      X1304000
0004A4 D203 5064 3008 00064 00008  4019          MVC   IOTJCTTR,DCTSEEK    SET NEW JCT TRACK IN IT.             X1306000
0004AA 9680 5058      00058        4020          OI    IOTFLAGS,IOTWRITE   SHOW CHECKPOINT REQUIRED.            X1308000
0004AE 47F0 C496      00496        4021          B     XIOTCKP1            BRANCH FOR NEXT IOT.                 X1310000
                                   4022          DROP  WD                  DROP IOT DSECT.                      X1312000


                                   4024 *                                                                       X1316000
                                   4025 *              SINCE QUETRAK HAS CHANGED, TAKE A HASP CHECKPOINT.       X1318000
                                   4026 *                                                                       X1320000

XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   87


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0004B2 5810 C990      00990        4028 XIOTCKP2 L     R1,=V($CKPTPCE)     POINT TO CHECKPOINT PCE.             X1324000
                                   4029         $POST  PCEEWF+$EWBWORK-PCEDSECT(R1),WORK  POST IT.              X1326000
0004B6 94DF 1049      00049        4030+         NI    PCEEWF+$EWBWORK-PCEDSECT(R1),255-$EWFWORK                PO008000
0004BA 947F B0C4      000C4        4031+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   4032         $WAIT  CKPT                WAIT FOR CHECKPOINT TO END.          X1328000
0004BE 9604 D048      00048        4033+         OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
0004C2 45F0 B030      00030        4034+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
0004C6 47F0 C3FC      003FC        4035          B     XIOTSCAN            THEN RESCAN IOTS.                    X1330000

                                   4037 *                                                                       X1334000

                                   4038 *              SUBROUTINE TO WRITE IOT OR JCT ---                       X1336000
                                   4039 *                  R0 POINTS TO BUFFER                                  X1338000
                                   4040 *                  R1 CONTAINS TRACK ADDRESS                            X1340000
                                   4041 *                                                                       X1342000


0004CA                             4043 XIOTEXCP DS    0H                  BAL R8,XIOTEXCP                      X1346000
0004CA 9001 3004      00004        4044          STM   R0,R1,DCTBUFAD      SET BUFFER AND TRACK.                X1348000
0004CE 1850                        4045          LR    WD,R0               SAVE BUFFER ADDRESS IN WD.           X1350000
                                   4046         $EXCP  (WB)                START WRITING.                       X1352000
0004D0 1813                        4047+         LR    R1,WB                                                    DG018000

0004D2 45E0 B06C      0006C        4048+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
0004D6 917F 5028      00028        4049 XIOTWAIT TM    BUFECBCC-BUFDSECT(WD),X'7F'  HOW DID I/O GO...           X1354000
0004DA 0718                        4050          BOR   R8                  RETURN TO +0 IF OKAY.                X1356000
0004DC 4740 8004      00004        4051          BM    4(,R8)              RETURN TO +4 IF BAD.                 X1358000
                                   4052         $WAIT  IO                  WAIT FOR I/O COMPLETION.             X1360000
0004E0 9640 D049      00049        4053+         OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
0004E4 45F0 B030      00030        4054+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
0004E8 47F0 C4D6      004D6        4055          B     XIOTWAIT            TEST I/O COMPLETION.                 X1362000

XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   88


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4057 *                                                                       X1366000
                                   4058 *              DDT SERVICE AND IOT CHECKPOINTING ARE COMPLETE.          X1368000
                                   4059 *                                                                       X1370000

0004EC                             4061 XIOTSOUT DS    0H                                                       X1374000
0004EC 94EF D059      00059        4062          NI    XSYNCFLG,255-XIOTWREQ  SHOW IOT CHECKPOINT DONE.         X1376000
                                   4063          DROP  WA,WB               DROP IOT, DCT DSECTS.                X1378000
                                   4064 XWAITCN1 NULL  *                   CONTINUE                             X1380000

0004F0                             4065+XWAITCN1 DS    0H                                                       NU006000
0004F0 9180 D059      00059        4066          TM    XSYNCFLG,XEOJBIT    WAS THIS EOJ...                      X1382000
0004F4 4710 C50C      0050C        4067          BO    XOSEOJ              BR IF YES                            X1384000
0004F8 5820 C994      00994        4068          L     WA,=V($XTHPCE)      ADDRESS OF EXECUTION THAW PCE        X1386000
                                   4069          $POST PCEEWF+$EWBWORK-PCEDSECT(WA),WORK ACTIVATE THAW          X1388000

0004FC 94DF 2049      00049        4070+         NI    PCEEWF+$EWBWORK-PCEDSECT(WA),255-$EWFWORK                PO008000
000500 947F B0C4      000C4        4071+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000

000504 9620 D058      00058        4072          OI    XPCESTAT,XPOSTBIT                  FOR THIS PCE          X1390000
                                   4073          AIF   (&TIMEOPT EQ 4 OR NOT &TIMER).XNT1                       X1392000
                                   4074 .XNT1    ANOP                                                           X1398000
000508 47F0 C00C      0000C        4075          B     XWAIT               WAIT FOR ACTIVITY                    X1400000
                                   4076 XOSEOJ   NULL                                                           X1402000
00050C                             4077+XOSEOJ   DS    0H                                                       NU006000
00050C D602 D079 D079 00079 00079  4078          OC    XPCEDDB+1(3),XPCEDDB+1 HAVE ALL DDB'S FINISHED           X1404000
000512 4770 C00C      0000C        4079          BNZ   XWAIT               JUST WAIT IF NO                      X1406000

                                   4080          $LINK HASPXEOJ            GO TO JOB TERMINATION                X1408000
000000                             4081+HA$QXEOJ DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
000516                             4082+HASPXEQ  CSECT                                                          OL014000
000516 41E00000                    4083+         DC    Y(X'4100'+LINK*16),QL2(HA$QXEOJ) LOAD OCON INTO LINK     OL016000
00051A 45F0 B08C      0008C        4084+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000

00051E 47F0 C000      00000        4085          B     HASPXEQ             AGAIN                                X1410000
XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   89


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4087 *                                                                       X1414000
                                   4088 *              TERMINATE A DDB                                          X1416000
                                   4089 *                                                                       X1418000
                                   4090 XTERMIN8 NULL                                                           X1420000
000522                             4091+XTERMIN8 DS    0H                                                       NU006000
000522 9180 7004      00004        4092          TM    DDBTYPE,XINDDB      IS THIS AN INPUT FILE                X1422000
000526 4710 C5BE      005BE        4093          BO    XTERMIN             BR IF YES                            X1424000

00052A 5820 700C      0000C        4094          L     WA,DDBPBUF          GET BUFFER ADDR                      X1426000
00052E 9101 7008      00008        4095          TM    XS,XNPB             IS THERE A BUFFER...                 X1428000
000532 4780 C54E      0054E        4096          BZ    XTERM20             BR IF YES                            X1430000
000536 9110 7009      00009        4097          TM    DDBSTAT2,XOPEN      WAS THIS DDB REFERENCED...   OY02728 X1432000
00053A 4780 C562      00562        4098          BZ    XTERMFD             IGNORE IT IF NO                      X1434000

00053E 4560 C76A      0076A        4099          BAL   XLK,XGETBUF         OTHERWISE GET ONE                    X1436000
000542 5020 1058      00058        4100          ST    WA,HDBNXTRK-BUFDSECT(,R1)     SET THIS TTR               X1438000
000546 1821                        4101          LR    WA,R1               BUF TO WA                            X1440000
000548 D201 700A C9B4 0000A 009B4  4102          MVC   DDBUFPTR,=AL2(HDBSTART-BUFDSECT)   SET INITIAL DISP      X1442000

00054E 1B11                        4103 XTERM20  SR    R1,R1               SHOW NO NEXT TRACK                   X1444000
000550 4830 700A      0000A        4104          LH    WB,DDBUFPTR         CURRENT POINTER                      X1446000
000554 1A32                        4105          AR    WB,WA               WB=CURRENT BUFFER  END               X1448000
000556 92FF 3000      00000        4106          MVI   0(WB),255           SET TERMINATOR                       X1450000
00055A 4560 C632      00632        4107          BAL   XLK,XWRTBUF                                              X1452000
00055E 4560 C866      00866        4108          BAL   XLK,XOUTCHEK        GO TOTAL LINES AND CHECK ESTIMATES   X1454000

000562 5820 7000      00000        4109 XTERMFD  L     WA,DDBCHAIN         SAVE FORWARD CHAIN                   X1456000
                                   4110 *                                                                       X1458000
                                   4111 *              DECHAIN AND FREE DDB                                     X1460000
                                   4112 *                                                                       X1462000
000566 4110 D078      00078        4113          LA    R1,XPCEDDB-(DDBCHAIN-DDBDSECT) START SEARCH              X1464000

00056A 5571 0000      00000        4114 XFB      CL    XDDB,DDBCHAIN-DDBDSECT(R1) IS FREED DDB NEXT             X1466000
00056E 4780 C57A      0057A        4115          BE    XFC                 BR IF YES                            X1468000
000572 5811 0000      00000        4116          L     R1,DDBCHAIN-DDBDSECT(R1) NO...GO TO NEXT DDB             X1470000
000576 47F0 C56A      0056A        4117          B     XFB                 AND CONTINUE SEARCH                  X1472000
00057A D203 1000 7000 00000 00000  4118 XFC      MVC   (DDBCHAIN-DDBDSECT)(4,R1),DDBCHAIN REMOVE FROM CHAIN     X1474000

000580 5810 C998      00998        4119          L     R1,=A($DDBPOOL)     GET CHAIN HDR ADR                    X1476000
                                   4120         $DISABLE ALL               DISABLE WHILE CHAINING DDB           X1478000
000584 8000 B0C9      000C9        4121+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
000588 D203 7000 1000 00000 00000  4122          MVC   DDBCHAIN,0(R1)      SAVE CHAIN                           X1480000
00058E 5070 1000      00000        4123          ST    XDDB,0(,R1)         INSERT THIS                          X1482000

000592 D71F 7004 7004 00004 00004  4124          XC    DDBCHAIN+4(DDBEND-DDBCHAIN-4),DDBCHAIN+4 CLEAR DDB       X1484000
                                   4125         $ENABLE ALL                ENABLE AFTER CHAINING DDB            X1486000
000598 8000 B0C8      000C8        4126+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
00059C 5830 C99C      0099C        4127          L     WB,=V($EXECPCE)     FIRST XEQ PCE                        X1488000
                                   4128          LA    XDDB,&MAXXEQS       NUMBER OF PCE'S                      X1490000

0005A0 4170 0003      00003        4129+         LA    XDDB,3              NUMBER OF PCE'S                      X1490000
                                   4130 XFA      $POST PCEEWF-PCEDSECT+$EWBDDB(WB),DDB  SHOW DDB/UCB FREE       X1492000
0005A4 94F7 3049      00049        4131+XFA      NI    PCEEWF-PCEDSECT+$EWBDDB(WB),255-$EWFDDB                  PO008000
0005A8 947F B0C4      000C4        4132+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
0005AC 94BF 3059      00059        4133          NI    XSYNCFLG-PCEDSECT(WB),255-XALLOCWT  SHOW RELEASE.        X1494000
0005B0 5833 0008      00008        4134          L     WB,PCENEXT-PCEDSECT(WB) TO NEXT PCE                      X1496000

0005B4 4670 C5A4      005A4        4135          BCT   XDDB,XFA            AND CONTINUE IF MORE                 X1498000
0005B8 1872                        4136          LR    XDDB,WA             SET TO NEXT DDB                      X1500000
0005BA 47F0 C020      00020        4137          B     XWAITOR             AND FORGE ON                         X1502000
                                   4138 *              TERMINATE INPUT DDB                                      X1504000

                                   4139 XTERMIN  NULL                                                           X1506000
0005BE                             4140+XTERMIN  DS    0H                                                       NU006000
0005BE 9144 7008      00008        4141          TM    XS,XPIOA+XSIOA      IS ANY I/O ACTIVE                    X1508000
XEQ      HASP EXECUTION PROCESSOR -- DDT SERVICE ROUTINES                                                      PAGE   90


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


0005C2 4740 C3D8      003D8        4142          BM    XNEXTDDB                                                 X1510000
0005C6 9190 7008      00008        4143          TM    XS,XNSB+XSEOD       IS THERE A SECONDARY BUFFER          X1512000
0005CA 4770 C5D6      005D6        4144          BNZ   XTERM10             BR IF NO                             X1514000
0005CE 5810 7010      00010        4145          L     R1,DDBSBUF          YES...GET IT                         X1516000
                                   4146          $FREEBUF (R1)             AND FREE IT                          X1518000
0005D2 45E0 B03C      0003C        4147+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
                                   4148 XTERM10  NULL                      *                                    X1520000

0005D6                             4149+XTERM10  DS    0H                                                       NU006000
0005D6 9101 7008      00008        4150          TM    XS,XNPB             IS THERE A PRIMARY                   X1522000
0005DA 4710 C562      00562        4151          BO    XTERMFD             BR IF NO                             X1524000

0005DE 5810 700C      0000C        4152          L     R1,DDBPBUF          GET BUFFER                           X1526000
                                   4153          $FREEBUF  (R1)            AND FREE IT                          X1528000
0005E2 45E0 B03C      0003C        4154+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
0005E6 47F0 C562      00562        4155          B     XTERMFD             GO FREE DDB                          X1530000
                                   4156 *                                                                       X1532000

                                   4157 *                                                                       X1534000
                                   4158 XIOERR   NULL                      LAST DATA READ WAS IN ERROR          X1536000
0005EA                             4159+XIOERR   DS    0H                                                       NU006000
0005EA 94FB 7009      00009        4160          NI    DDBSTAT2,255-XIOC   RESET INDICATOR                      X1538000
0005EE 9170 7008      00008        4161          TM    XS,XNSB+XSIO+XSIOA  WAS THIS SECONDARY READ              X1540000
0005F2 5810 700C      0000C        4162          L     R1,DDBPBUF          ASSUME NO                            X1542000
0005F6 4770 C5FE      005FE        4163          BNZ   *+8                 BR IF NO                             X1544000
0005FA 5810 7010      00010        4164          L     R1,DDBSBUF     YES...GET ADDR                            X1546000

0005FE 917F 1004      00004        4165          TM    IOBECBCC-BUFDSECT(R1),X'7F' IS ERROR READ STILL IN       X1548000
000602 4710 C03A      0003A        4166          BO    XDDBCONT            BR IF NO (BUFFER ROLLED)             X1550000

                                   4167          $IOERROR (R1)             DISPLAY ERROR                        X1552000
000606 45E0 B0B4      000B4        4168+         BAL   LINK,$IOERROR       LINK TO CONTROL SERVICE PROGRAM      BA008000
                                   4169          $WTO  XTERMES,L'XTERMES,    INDICATE JOB TERMINATED           CX1554000
                                                       ROUTE=$LOG+$MAIN,CLASS=$ALWAYS,PRI=$ST,JOB=YES           X1556000
00060A 4110 C628      00628        4170+         LA    R1,XTERMES                                               DG012000

00060E 0700                        4171+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
000610 5800 C618      00618        4172+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
000614 45E0 B098      00098        4173+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
000618 02210A74                    4174+         DC    AL1(2,$LOG+$MAIN,L'XTERMES,$ALWAYS+$ST)                  WT044000
00061C 45E0 C91C      0091C        4175          BAL   LINK,XCANCEL        GO CANCEL                            X1558000
000620 9608 7008      00008        4176          OI    XS,XPEOD            KILL USE OF FILE                     X1560000
000624 47F0 C3D8      003D8        4177          B     XNEXTDDB            CONTINUE                             X1562000
000628 E3C5D9D4C9D5C1E3            4178 XTERMES  DC    C'TERMINATED'                                            X1564000
                                   4179          AIF   (&TIMEOPT EQ 4 OR NOT &TIMER).XNT2                       X1566000

                                   4180 .XNT2    ANOP                                                           X1626000

XEQ      HASP EXECUTION PROCESSOR -- BUFFER WRITE SUBROUTINE                                                   PAGE   91


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4182 *                                                                       X1630000
                                   4183 **X W R T B U F  -   SUBROUTINE TO WRITE A BUFFER                       X1632000
                                   4184 *                          R1= CHAIN TRACK                              X1634000

                                   4185 *                          WA= BUFFER ADDRESS                           X1636000



                                   4187 XWRTBUF  NULL                                                           X1640000
000632                             4188+XWRTBUF  DS    0H                                                       NU006000
000632 5880 D074      00074        4189          L     XV,XPCEDCT          GET DA DCT ADDRESS                   X1642000
                            00000  4190          USING DCTDSECT,XV         *                                    X1644000
                            00000  4191          USING BUFDSECT,WA         *                                    X1646000
000636 D203 800C C668 0000C 00668  4192          MVC   DCTEWF,XWRTPOST     SET UP POST ADDR                     X1648000
00063C D203 8008 2058 00008 00058  4193          MVC   DCTSEEK,HDBNXTRK    TTR                                  X1650000
000642 5020 8004      00004        4194          ST    WA,DCTBUFAD         BUFFER                               X1652000

000646 5010 2058      00058        4195          ST    R1,HDBNXTRK         SET FORWARD CHAIN                    X1654000

00064A D203 205C A060 0005C 00060  4196          MVC   HDBDSKEY,JCTDSKEY   SET PERIPHERAL DATA SET KEY.         X1656000
000650 9240 8013      00013        4197          MVI   DCTIOTYP,DCTWRITE   SHOW WRITE                           X1658000
                                   4198          $EXCP (XV)                START I/O                            X1660000
000654 1818                        4199+         LR    R1,XV                                                    DG018000

000656 45E0 B06C      0006C        4200+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
00065A 4310 C690      00690        4201          IC    R1,$BUFWCNT         INCREMENT                            X1662000
00065E 4111 0001      00001        4202          LA    R1,1(R1)            OUTSTANDING                          X1664000
000662 4210 C690      00690        4203          STC   R1,$BUFWCNT         WRITE COUNT                          X1666000
000666 07F6                        4204          BR    XLK                 RETURN                               X1668000
                                   4205          DROP  XV,WA                                                    X1670000



                                   4207 *                                                                       X1674000
                                   4208 *                                                                       X1676000
                                   4209 *                                                                       X1678000
000668                             4210 XWRTPOST DS    0F                                                       X1680000

000668 80                          4211          DC    X'80'               ASYNC ENTRY BIT                      X1682000
000669 00066C                      4212          DC    AL3(*+3)            ENTRY ADDRESS                        X1684000
00066C 182F                        4213          LR    WA,R15              PROTECT RETURN                       X1686000
00066E 43F0 C690      00690        4214          IC    R15,$BUFWCNT        DECREMENT                            X1688000

000672 06F0                        4215          BCTR  R15,0               ACTIVE                               X1690000
000674 42F0 C690      00690        4216          STC   R15,$BUFWCNT        WRITE COUNT                          X1692000
000678 917F 1004      00004        4217          TM    IOBECBCC-BUFDSECT(R1),X'7F' WAS THIS WRITE OK...         X1694000
00067C 4710 C688      00688        4218          BO    XWRTFREE            BR IF YES                            X1696000
000680 1831                        4219          LR    WB,R1               SAVE BUFFER ADDRESS                  X1698000
                                   4220          $IOERROR (R1)             INDICATE I/O ERROR                   X1700000
000682 45E0 B0B4      000B4        4221+         BAL   LINK,$IOERROR       LINK TO CONTROL SERVICE PROGRAM      BA008000
000686 1813                        4222          LR    R1,WB               RESTORE BUFFER ADDRESS               X1702000
                                   4223 XWRTFREE $FREEBUF (R1)             FREE BUFFER                          X1704000
000688                             4224+XWRTFREE DS    0H                                                       NU006000
000688 45E0 B03C      0003C        4225+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
00068C 18F2                        4226          LR    R15,WA              RESTORE RETURN                       X1706000

00068E 07FF                        4227          BR    R15                 EXIT                                 X1708000
000690 00                          4228 $BUFWCNT DC    AL1(0)              COUNT OF OUTSTANDING WRITES          X1710000
XEQ      HASP EXECUTION PROCESSOR -- BUFFER READ SUBROUTINE                                                    PAGE   92



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4230 *                                                                       X1714000
                                   4231 ** X R E A D B U F  -  SUBROUTINE TO READ A BUFFER                      X1716000
                                   4232 *                           XDDB = DDB ADDR                             X1718000
                                   4233 *                                                                       X1720000
                                   4234 XREADBUF NULL                                                           X1722000
000692                             4235+XREADBUF DS    0H                                                       NU006000
000692 5810 D074      00074        4236          L     R1,XPCEDCT          DCT ADDRESS                          X1724000
                            00000  4237          USING DCTDSECT,R1         *                                    X1726000
000696 5820 7018      00018        4238          L     WA,DDBTTR           GET NEXT TRACK                       X1728000
00069A 1222                        4239          LTR   WA,WA               IS THERE A NEXT                      X1730000
00069C 4780 C6E0      006E0        4240          BZ    XREADEOD            BR IF NO                             X1732000

0006A0 9102 7008      00008        4241          TM    XS,XPIO             IS THIS A PRIMARY REQ                X1734000

0006A4 4780 C6B4      006B4        4242          BZ    XREADSEC            BR IF NO                             X1736000
0006A8 5880 700C      0000C        4243          L     XV,DDBPBUF          GET BUFFER ADDR                      X1738000

0006AC 9706 7008      00008        4244          XI    XS,XPIO+XPIOA       CHANGE FROM REQ TO ACTIVE            X1740000
0006B0 47F0 C6BC      006BC        4245          B     XREADIT             AND GO READ                          X1742000
                                   4246 XREADSEC NULL                                                           X1744000
0006B4                             4247+XREADSEC DS    0H                                                       NU006000
0006B4 5880 7010      00010        4248          L     XV,DDBSBUF          GET BUFFER ADDR                      X1746000
0006B8 9760 7008      00008        4249          XI    XS,XSIO+XSIOA       CHANGE FROM REQ TO ACTIVE            X1748000
                                   4250 XREADIT  NULL                                                           X1750000
0006BC                             4251+XREADIT  DS    0H                                                       NU006000
0006BC 5020 1008      00008        4252          ST    WA,DCTSEEK          SET TTR                              X1752000
0006C0 5078 0034      00034        4253          ST    XDDB,(BUFDDB-BUFDSECT)(XV)    SAVE DDB ADDR              X1754000
0006C4 9280 1013      00013        4254          MVI   DCTIOTYP,DCTREAD    SET MODE                             X1756000
0006C8 D203 100C C704 0000C 00704  4255          MVC   DCTEWF,XSYNCEWF     SET POST ADDR                        X1758000

0006CE 4320 1004      00004        4256          IC    WA,DCTBUFAD         SAVE HIGH BYTE                       X1760000
0006D2 5080 1004      00004        4257          ST    XV,DCTBUFAD         SET BUFFER ADDR                      X1762000

0006D6 4220 1004      00004        4258          STC   WA,DCTBUFAD         RESTORE HIGH BYTE                    X1764000

                                   4259          $EXCP (R1)                DO READ                              X1766000
0006DA 45E0 B06C      0006C        4260+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
0006DE 07F6                        4261          BR    XLK                 AND RETURN                           X1768000
                                   4262 *                                                                       X1770000
                                   4263 *              END OF INPUT DATA ROUTINE                                X1772000
                                   4264 *                                                                       X1774000
                                   4265 XREADEOD NULL                                                           X1776000
0006E0                             4266+XREADEOD DS    0H                                                       NU006000
0006E0 9102 7008      00008        4267          TM    XS,XPIO             WAS THIS PRIMARY READ                X1778000
0006E4 4780 C6F6      006F6        4268          BZ    XEODSEC             BR IF NO                             X1780000
0006E8 5810 700C      0000C        4269          L     R1,DDBPBUF          GET BUFFER ADDR                      X1782000
0006EC 9709 7008      00008        4270          XI    XS,XPEOD+XNPB       SHOW STATUS                          X1784000

                                   4271 XFREEE   NULL                                                           X1786000
0006F0                             4272+XFREEE   DS    0H                                                       NU006000
                                   4273          $FREEBUF (R1)             FREE BUFFER AND RETURN               X1788000

0006F0 45E0 B03C      0003C        4274+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
0006F4 07F6                        4275          BR    XLK                                                      X1790000
                                   4276 XEODSEC  NULL                                                           X1792000
0006F6                             4277+XEODSEC  DS    0H                                                       NU006000
0006F6 5810 7010      00010        4278          L     R1,DDBSBUF                                               X1794000
0006FA 97B0 7008      00008        4279          XI    XS,XSEOD+XSIO+XNSB  SET STATUS                           X1796000
0006FE 47F0 C6F0      006F0        4280          B     XFREEE              AND GO FREE BUFFER                   X1798000



                                   4282 *                                                                       X1802000
XEQ      HASP EXECUTION PROCESSOR -- BUFFER READ SUBROUTINE                                                    PAGE   93


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4283 *              READ POST ROUTINE                                        X1804000

                                   4284 *                                                                       X1806000
000704                             4285 XSYNCEWF DS    0F                                                       X1808000
000704 80                          4286          DC    X'80'               ENTRY BIT                            X1810000
000705 000708                      4287          DC    AL3(*+3)            ENTRY ADDR                           X1812000

000708 5820 102C      0002C        4288          L     WA,BUFDCT-BUFDSECT(,R1)  DCT ADDRESS                     X1814000
00070C 5822 0000      00000        4289          L     WA,(DCTPCE-DCTDSECT)(WA) PCE ADDRESS                     X1816000
000710 5871 0034      00034        4290          L     XDDB,(BUFDDB-BUFDSECT)(R1) DDB.ADDRESS                   X1818000
                                   4291          $POST (PCEEWF-PCEDSECT+$EWBWORK)(WA),WORK     START PCE        X1820000
000714 94DF 2049      00049        4292+         NI    (PCEEWF-PCEDSECT+$EWBWORK)(WA),255-$EWFWORK              PO008000
000718 947F B0C4      000C4        4293+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000

00071C 94BB 7008      00008        4294          NI    XS,255-XPIOA-XSIOA  SHOW NOT ACTIVE                      X1822000
000720 9102 7009      00009        4295          TM    DDBSTAT2,XROLL      IS A ROLL ON                         X1824000
000724 4780 C730      00730        4296          BZ    XSYNOROL            BR IF NO                             X1826000
000728 94FD 7009      00009        4297          NI    DDBSTAT2,255-XROLL  RESET                                X1828000
                                   4298          $POST $HASPECF,BUF        SHOW BUFFER IS NOW ROLLABLE          X1830000
00072C 94BF B0C4      000C4        4299+         NI    $HASPECF,255-$EWFBUF                                     PO008000
                                   4300 XSYNOROL NULL                                                           X1832000
000730                             4301+XSYNOROL DS    0H                                                       NU006000

000730 58A0 203C      0003C        4302          L     JCT,PCEJCT-PCEDSECT(,WA)  POINT TO JCT.                  X1834000

000734 D503 1004 A060 00004 00060  4303          CLC   HDBDSKEY-BUFSTART(4,R1),JCTDSKEY  IS DS KEY OKAY...      X1836000
00073A 4770 C746      00746        4304          BNE   XSYNCDSK            BRANCH IF NOT.                       X1838000
00073E 917F 1004      00004        4305          TM    IOBECBCC-BUFDSECT(R1),X'7F' WAS THIS READ OK...          X1840000
000742 4710 C74A      0074A        4306          BO    *+8                 BR IF YES                            X1842000
000746                             4307 XSYNCDSK DS    0H                  DATA SET KEY ERROR.                  X1844000
000746 9604 7009      00009        4308          OI    DDBSTAT2,XIOC       NO...SET ERROR BIT                   X1846000
00074A 9680 7009      00009        4309          OI    DDBSTAT2,XACT       CALL ATTENTION TO END AND/OR ERROR   X1848000
00074E 5820 7018      00018        4310          L     WA,DDBTTR           GET TTR OF THIS BUFFER               X1850000
000752 D203 7018 1058 00018 00058  4311          MVC   DDBTTR,HDBNXTRK-BUFDSECT(R1)  UPDATE TTR                 X1852000

000758 5020 1058      00058        4312          ST    WA,HDBNXTRK-BUFDSECT(,R1)     SAVE FOR ROLL              X1854000
00075C 07FF                        4313          BR    R15                 AND RETURN                           X1856000
XEQ      HASP EXECUTION PROCESSOR -- BUFFER GET/ROLL SUBROUTINE                                                PAGE   94


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4315 XWAITBUF NULL                      NO BUFFERS ARE AVAILABLE             X1860000

00075E                             4316+XWAITBUF DS    0H                                                       NU006000
00075E 9825 D01C      0001C        4317          LM    WA,WD,PCEWA         RESTORE CALLER'S REGISTERS           X1862000

                                   4318 XWATEBUF NULL                      *                                    X1864000
000762                             4319+XWATEBUF DS    0H                                                       NU006000
                                   4320          $WAIT BUF                 WAIT FOR ONE                         X1866000
000762 9640 D048      00048        4321+         OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000
000766 45F0 B030      00030        4322+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
                                   4323 XGETBUF  NULL                      GET-A-BUFFER ENTRY                   X1868000
00076A                             4324+XGETBUF  DS    0H                                                       NU006000
00076A 9500 D05B      0005B        4325          CLI   XPCESTEP+1,0        IS JOB IN RDR-INTERPRETER...         X1870000

00076E 4780 C784      00784        4326          BE    XGETBUF1            YES.  DON'T CHECK /*OUTPUT BUF.      X1872000
000772 5810 D05C      0005C        4327          L     R1,XPCEOUTC         NO.  WAS THERE A BUFFER              X1874000
000776 1211                        4328          LTR   R1,R1               FOR /*OUTPUT CARDS...                X1876000
000778 4780 C784      00784        4329          BZ    XGETBUF1            IF NOT, DO A $GETBUF.                X1878000
00077C 1B00                        4330          SR    R0,R0               YES.  CLEAR                          X1880000

00077E 5000 D05C      0005C        4331          ST    R0,XPCEOUTC         THE OCR BUFFER POINTER               X1882000
000782 07F6                        4332          BR    XLK                 AND RETURN BUF TO USER.              X1884000
000784                             4333 XGETBUF1 DS    0H                                                       X1886000

                                   4334          $GETBUF XROLLONE          TRY TO GET ONE                       X1888000
000784 45E0 B034      00034        4335+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
000788 4780 C78E      0078E        4336+         BC    8,XROLLONE                                               NP008000
00078C 07F6                        4337          BR    XLK                 RETURN IF SUCCESSFUL                 X1890000
                                   4338 XROLLONE NULL  *                   BUFFER NOT GOTTEN...ROLL ONE         X1892000
00078E                             4339+XROLLONE DS    0H                                                       NU006000
                                   4340         $TRACE                                                          X1894000

00078E 9500 C690      00690        4341          CLI   $BUFWCNT,0          IS THERE A WRITE OUTSTANDING...      X1896000
000792 4720 C762      00762        4342          BH    XWATEBUF            WAIT FOR ITS BUFFER IF YES           X1898000
000796 9025 D01C      0001C        4343          STM   WA,WD,PCEWA         SAVE CALLER'S REGISTERS              X1900000
00079A 9835 C854      00854        4344          LM    WB,WD,XDDBTABB      SETUP FOR FREQUENCY TABLE            X1902000
                                   4345 *                                                                       X1904000

                                   4346 *              FIND A DDB WITH A BUFFER TO ROLL                         X1906000
                                   4347 *                                                                       X1908000
00079E                             4348 XROLA    DS    0H                                                       X1910000
00079E 1B22                        4349          SR    WA,WA               CLEAR WA FOR TABLE INDEX             X1912000

0007A0 4320 3000      00000        4350          IC    WA,0(,WB)           GET TABLE INDEX VALUE                X1914000
0007A4 4C20 C864      00864        4351          MH    WA,XDDBLCN          COMPUTE RELATIVE                     X1916000
0007A8 5A20 C860      00860        4352          A     WA,XDDBCHN           AND ACTUAL ADDRESS                  X1918000
                                   4353          DROP  XDDB                RELINQUISH TEMPORARILY               X1920000
                            00000  4354          USING DDBDSECT,WA         ESTABLISH TEMPORARILY                X1922000
0007AC 9110 2009      00009        4355          TM    DDBSTAT2,XOPEN      IS THIS DDB IN USE...                X1924000

0007B0 4780 C84C      0084C        4356          BZ    XROLN               BR IF NO                             X1926000
0007B4 9101 2008      00008        4357          TM    XS,XNPB             DOES IT OWN A BUFFER                 X1928000
0007B8 4710 C84C      0084C        4358          BO    XROLN               BR IF NO                             X1930000
                                   4359 *              DDB OWNS A BUFFER...ROLL IT                              X1932000
0007BC 9180 2004      00004        4360          TM    DDBTYPE,XINDDB      IS THIS AN INPUT DDB                 X1934000

0007C0 4710 C810      00810        4361          BO    XROLLIN             BR IF YES                            X1936000
                                   4362 *              ROLL AN OUTPUT BUFFER                                    X1938000
                                   4363         $TRACE                                                          X1940000
0007C4 D501 200A C9B4 0000A 009B4  4364          CLC   DDBUFPTR,=AL2(HDBSTART-BUFDSECT)   IS IT USED            X1942000
0007CA 4770 C7E2      007E2        4365          BNE   XNOTNEW             BR IF YES                            X1944000

0007CE 9601 2008      00008        4366          OI    XS,XNPB             SHOW BUFFER GONE                     X1946000
0007D2 5810 200C      0000C        4367          L     R1,DDBPBUF          GET BUFFER ADDR                      X1948000
0007D6 D203 200C 1058 0000C 00058  4368          MVC   DDBPBUF,HDBNXTRK-BUFDSECT(R1)      SAVE TTR              X1950000
0007DC 9825 D01C      0001C        4369          LM    WA,WD,PCEWA         RESTORE CALLER'S REGISTERS           X1952000
XEQ      HASP EXECUTION PROCESSOR -- BUFFER GET/ROLL SUBROUTINE                                                PAGE   95



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0007E0 07F6                        4370          BR    XLK                 RETURN WITH BUFFER                   X1954000
                                   4371 XNOTNEW  NULL  *                   BUFFER HAS BEEN USED                 X1956000
0007E2                             4372+XNOTNEW  DS    0H                                                       NU006000
0007E2 9682 2009      00009        4373          OI    DDBSTAT2,XACT+XROLL SET ROLL STATUS                      X1958000

0007E6 9602 2008      00008        4374          OI    XS,XPIO             SHOW I/O REQUIRED                    X1960000
0007EA 55D0 2020      00020        4375          CL    SAVE,DDBPCE         DOES DDB BELONG TO THIS PCE          X1962000
0007EE 4780 C80A      0080A        4376          BE    XROLLUS             BR IF YES                            X1964000
0007F2 5820 2020      00020        4377          L     WA,DDBPCE           NO...GET OWNING PCE ADDRESS          X1966000
                                   4378          $POST (PCEEWF+$EWBWORK-PCEDSECT)(WA),WORK START OWNING PCE     X1968000
0007F6 94DF 2049      00049        4379+         NI    (PCEEWF+$EWBWORK-PCEDSECT)(WA),255-$EWFWORK              PO008000

0007FA 947F B0C4      000C4        4380+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   4381          $POST (PCEEWF-PCEDSECT+$EWBBUF)(WA),BUF AVOID INTERLOCK        X1970000
0007FE 94BF 2048      00048        4382+         NI    (PCEEWF-PCEDSECT+$EWBBUF)(WA),255-$EWFBUF                PO008000
000802 947F B0C4      000C4        4383+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000

000806 47F0 C75E      0075E        4384          B     XWAITBUF            GO WAIT ON ROLLED BUFFER             X1972000
                                   4385 XROLLUS  NULL                      THIS PCE OWNS BUFFER TO ROLL         X1974000
00080A                             4386+XROLLUS  DS    0H                                                       NU006000
00080A 1872                        4387          LR    XDDB,WA             SET DDB ADDRESS                      X1976000
00080C 47F0 C0E0      000E0        4388          B     XOUT                AND GO PROCESS                       X1978000

                                   4389 XROLLIN  NULL                      ROLL AN INPUT BUFFER                 X1980000
000810                             4390+XROLLIN  DS    0H                                                       NU006000
000810 9144 2008      00008        4391          TM    XS,XPIOA+XSIOA      IS I/O ACTIVE                        X1982000
000814 4770 C844      00844        4392          BNZ   XROLBUSY            BR IF YES                            X1984000
                                   4393         $TRACE                                                          X1986000
000818 9110 2008      00008        4394          TM    XS,XNSB             IS THERE A SECONDARY BUFFER          X1988000
00081C 4710 C834      00834        4395          BO    XROLPRIM            BR IF NO TO ROLL PRIM                X1990000

000820 5810 2010      00010        4396          L     R1,DDBSBUF          YES...GET ADDR                       X1992000
000824 9630 2008      00008        4397          OI    XS,XNSB+XSIO        SET STATUS                           X1994000
                                   4398 XROLLRET NULL                      COMMON ROLL CODE                     X1996000

000828                             4399+XROLLRET DS    0H                                                       NU006000
000828 D203 2018 1058 00018 00058  4400          MVC   DDBTTR,HDBNXTRK-BUFDSECT(R1)  BACK UP TTR                X1998000
00082E 9825 D01C      0001C        4401          LM    WA,WD,PCEWA         RESTORE CALLER'S REGISTERS           X2000000
000832 07F6                        4402          BR    XLK                 AND RETURN WITH BUFFER               X2002000
                                   4403 XROLPRIM NULL  *                   ROLL                                 X2004000

000834                             4404+XROLPRIM DS    0H                                                       NU006000
000834 5810 200C      0000C        4405          L     R1,DDBPBUF          GET BUFFER ADDR                      X2006000
000838 9603 2008      00008        4406          OI    XS,XNPB+XPIO        SET NEW STATUS                       X2008000
00083C 947F 2008      00008        4407          NI    XS,255-XSEOD        RESET                                X2010000
000840 47F0 C828      00828        4408          B     XROLLRET            AND CONTINUE                         X2012000
                                   4409 XROLBUSY       NULL                INPUT I/O ACTIVE                     X2014000
000844                             4410+XROLBUSY DS    0H                                                       NU006000
000844 9602 2009      00009        4411          OI    DDBSTAT2,XROLL      SET SIGNAL FOR READ POST             X2016000

000848 47F0 C75E      0075E        4412          B     XWAITBUF            AND GO WAIT ON BUFFER                X2018000
                                   4413 *                                                                       X2020000

                                   4414 *              MOVE TO NEXT DDB                                         X2022000
                                   4415 *                                                                       X2024000
                                   4416 XROLN    NULL                      *                                    X2026000
00084C                             4417+XROLN    DS    0H                                                       NU006000
00084C 8734 C79E      0079E        4418          BXLE  WB,WC,XROLA         BRANCH IF NOT END OF TABLE           X2028000

                                   4419          AIF   (NOT &DEBUG).XROLSKP     SEND MESSAGE IF DEBUGGING       X2030000
                                   4420 .XROLSKP ANOP                                                           X2042000
000850 47F0 C75E      0075E        4421          B     XWAITBUF            GO WAIT FOR ONE                      X2044000

000854 00003224                    4423 XDDBTABB DC    A($DDTTABB)         TABLE START        KEEP              X2048000
000858 00000001                    4424          DC    A(1)                TABLE INCREMENT     THIS             X2050000
XEQ      HASP EXECUTION PROCESSOR -- BUFFER GET/ROLL SUBROUTINE                                                PAGE   96


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00085C 00003283                    4425 XDDBTABE DC    A($DDTTABE)         TABLE END            ORDER           X2052000

000860 000024A4                    4426 XDDBCHN  DC    A($DDTONE)          ADDRESS OF FIRST DDB                 X2054000

000864 0024                        4427 XDDBLCN  DC    AL2(DDBLNG)         LENGTH OF DDB                        X2056000
                                   4428          DROP  WA                  TEMPORARY DDT ADDRESSING             X2058000
                            00000  4429          USING DDBDSECT,XDDB       RESUME                               X2060000
XEQ      HASP EXECUTION PROCESSOR -- OUTPUT RECORD CONTROL                                                     PAGE   97


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4431 *                                                                       X2064000
                                   4432 *              SUBROUTINE TO TOTAL OUTPUT AND PRINT EXCESSION MESSAGES  X2066000
                                   4433 *                                                                       X2068000
                                   4434 XOUTCHEK NULL                      *                                    X2070000
000866                             4435+XOUTCHEK DS    0H                                                       NU006000
000866 4130 D07C      0007C        4436          LA    WB,XPCEPRT          START WITH PRINT                     X2072000
00086A 9112 7004      00004        4437          TM    DDBTYPE,XPRTDDB+XLOGDDB  IS IT                           X2074000
00086E 4740 C880      00880        4438          BM    XCHEKOK             BR IF YES                            X2076000
000872 4130 D08C      0008C        4439          LA    WB,XPCEPUN          NO...TRY PUNCH                       X2078000
000876 9104 7004      00004        4440          TM    DDBTYPE,XPUNDDB     IS IT                                X2080000

00087A 4710 C880      00880        4441          BO    XCHEKOK             BR IF YES                            X2082000

                                   4442 *              ADD OTHER OUTPUT TYPES HERE......                        X2084000
00087E 07F6                        4443          BR    XLK                 IGNORE CALL                          X2086000
                                   4444 XCHEKOK  NULL  *                                                        X2088000
000880                             4445+XCHEKOK  DS    0H                                                       NU006000

000880 5813 0000      00000        4446          L     R1,XOUTTOTL(WB)     RECORD TOTAL                         X2090000
000884 4A10 701C      0001C        4447          AH    R1,DDBCOUNT         CURRENT BUFFER COUNT                 X2092000
000888 5013 0000      00000        4448          ST    R1,XOUTTOTL(WB)     RESET                                X2094000
00088C D701 701C 701C 0001C 0001C  4449          XC    DDBCOUNT,DDBCOUNT   ZERO BUFFER CT                       X2096000
000892 5B13 0004      00004        4450          S     R1,XOUTEST(WB)      SUBTRACT ESTIMATE                    X2098000
000896 0746                        4451          BCR   4,XLK               BR IF NOT REACHED                    X2100000
000898 5913 0008      00008        4452          C     R1,XOUTXCES(WB)     WAS EXCESSION PLATEAU REACHED...     X2102000
00089C 0746                        4453          BCR   4,XLK               BR IF NO                             X2104000
                                   4454 *                                  ISSUE A WARNING MESSAGE              X2106000
00089E 5843 0008      00008        4455          L     WC,XOUTXCES(WB)     GET EXCESSION LEVEL                  X2108000
0008A2 1244                        4456          LTR   WC,WC               IS THIS FIRST                        X2110000

0008A4 4100 0018      00018        4457          LA    R0,L'XOVERM+L'XOVERM2-3  SET SHORT MESS                  X2112000
0008A8 4780 C8B0      008B0        4458          BZ    *+8                 BR IF FIRST EXCESSION                X2114000
0008AC 4100 0023      00023        4459          LA    R0,L'XOVERM+L'XOVERM2+L'XOVERM1  SET LONG                X2116000
0008B0 4E40 C910      00910        4460          CVD   WC,XDOUBLE          FOR MESSAGE                          X2118000

0008B4 F133 C910 C914 00910 00914  4461          MVO   XDOUBLE(4),XDOUBLE+4(4)  OFFSET THE CVD RESULT           X2120000
0008BA 5A40 C9A0      009A0        4462          A     WC,=A($OUTXS)       FOR NEXT EXCESSION PLATEAU           X2122000
0008BE D206 C907 C9B6 00907 009B6  4463          MVC   XOVERM1(7),=X'40202020202120'  SET EDIT PATTERN          X2124000
0008C4 DE06 C907 C910 00907 00910  4464          ED    XOVERM1(7),XDOUBLE  EDIT INTO MESSAGE                    X2126000
0008CA D203 C8F6 300C 008F6 0000C  4465          MVC   XOVERM2(4),XOUTTYPE(WB)  SET TYPE                        X2128000
                                   4466          $WTO  XOVERM,(R0),ROUTE=$LOG+$MAIN,     TELL OPERATOR         CX2130000
                                                       PRI=$ST,CLASS=$ACTION,JOB=YES,WAIT=NO                    X2132000
0008D0 4110 C8EC      008EC        4467+         LA    R1,XOVERM                                                DG012000
0008D4 8900 0008      00008        4468+         SLL   R0,8                SET UP MESSAGE LENGTH                WT050000
0008D8                             4469+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT052000
0008D8 5600 C8E0      008E0        4470+         O     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT054000
0008DC 45E0 B098      00098        4471+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT056000

0008E0 06210054                    4472+         DC    AL1(6,$LOG+$MAIN,0,$ACTION+$ST)                          WT058000
0008E4 0786                        4473          BCR   8,XLK               RETURN IF NO QUEUES                  X2134000
0008E6 5043 0008      00008        4474          ST    WC,XOUTXCES(WB)     SET NEW EXCESSION                    X2136000

                                   4475          AIF   (&OUTPOPT EQ 0).XOUT9                                    X2138000
                                   4476 .XOUT9   ANOP                                                           X2150000
0008EA 07F6                        4477          BR    XLK                 AND RETURN                           X2152000
0008EC C5E2E3C9D4C1E3C5            4478 XOVERM   DC    C'ESTIMATED '                                            X2154000
0008F6 E7E7E7E7E240C5E7            4479 XOVERM2  DC    C'XXXXS EXCEEDED BY'                                     X2156000
000907 40F9F9F9F9F9F94B            4480 XOVERM1  DC    C' 999999.'         EDIT PATTERN OVERLAYS THIS           X2158000
000910                             4481 XDOUBLE  DS    D                                                        X2160000
                                   4482 XCANCELD NULL  *                   CANCEL JOB W/DUMP ENTRY POINT        X2162000
000918                             4483+XCANCELD DS    0H                                                       NU006000
000918 926B C978      00978        4484          MVI   XCANMSGD,C','       ENABLE DUMP                          X2164000
XEQ      HASP EXECUTION PROCESSOR -- OUTPUT RECORD CONTROL                                                     PAGE   98


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4485 XCANCEL  NULL  *                   CANCEL JOB IN EXECUTION              X2166000

00091C                             4486+XCANCEL  DS    0H                                                       NU006000
00091C D207 C95F D06C 0095F 0006C  4487          MVC   XCANMSG1,XPCEJOBN   JOB NAME TO COMMAND                  X2168000

000922 9240 C967      00967        4488          MVI   XCANMSG1+8,C' '     INSURE TRAILING BLANK                X2170000
000926 4110 C966      00966        4489          LA    R1,XCANMSG1+7       END OF JOB NAME                      X2172000
00092A 9540 1000      00000        4490          CLI   0(R1),C' '          FIND END BLANK                       X2174000
00092E 4770 C936      00936        4491          BNE   *+8                 BR IF NON-BLANK                      X2176000
000932 4610 C92A      0092A        4492          BCT   R1,*-8              OR KEEP SEARCHING                    X2178000
000936 D205 1001 C978 00001 00978  4493          MVC   1(6,R1),XCANMSGD    INSERT DUMP OPTION                   X2180000
00093C 9240 C978      00978        4494          MVI   XCANMSGD,C' '       RESET NO DUMP                        X2182000
000940 5810 D060      00060        4495          L     R1,XPCEJST          TCB ADDRESS                          X2184000
                            00000  4496          USING TCBDSECT,R1         ESTABLISH TCB ADDRESSABILITY         X2186000
000944 91C0 101D      0001D        4497          TM    TCBFLGS,X'C0'       IS JOB TERMINATING...                X2188000
000948 077E                        4498          BCR   NZ,LINK             RETURN IF YES                        X2190000
                                   4499          DROP  R1                  *                                    X2192000

                                   4500 XCANCEL1 NULL                      ENTRY IF MSG ALREADY BUILT           X2194000
00094A                             4501+XCANCEL1 DS    0H                                                       NU006000

00094A 4110 C954      00954        4502          LA    R1,XCANMSG          ADDR OF COMMAND                      X2196000

00094E 1B00                        4503          SR    R0,R0               CLEAR FOR MCS                        X2198000
000950 0A22                        4504          SVC   34                  PASS TO OS                           X2200000
000952 07FE                        4505          BR    LINK                AND RETURN                           X2202000
000954 00190000                    4506 XCANMSG  DC    A(25*X'10000')                                           X2204000
000958 C3C1D5C3C5D340              4507          DC    C'CANCEL '                                               X2206000
00095F 4040404040404040            4508 XCANMSG1 DC    CL8' ',CL17' '                                           X2208000
000978 40C4E4D4D740                4509 XCANMSGD DC    C' DUMP '                                                X2210000
XEQ      HASP EXECUTION PROCESSOR -- JOB INITIATION (PHASE 1)                                                  PAGE   99


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4511 HASPXJI1 $OVERLAY &HIGH,&HIGH      PHASE 1 OF JOB INITIATION            X2214000
0032C0                             4512+HA$OXJI1 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            032CC  4513+HA$IXJI1 EQU   HA$OXJI1+12         PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   4514+         ENTRY HA$IXJI1                                                 OV036000
0032C0 E7D1C9F1                    4515+         DC    CL4'XJI1'           IDENTIFY MODULE ON CORE DUMP         OV038000
0032C4 000032C0                    4516+         DC    A(HA$OXJI1)         ASSEMBLY ORIGIN                      OV040000

0032C8                             4517+HASPXJI1 DS    0F                  ENTRY POINT                          OV042000
                            03268  4518+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                                   4519 &XI1SECT SETC  '&OSECT'            SAVE CSECT NAME                      X2216000
                                   4520 XJOBINIT NULL                                                           X2218000
0032C8                             4521+XJOBINIT DS    0H                                                       NU006000
0032C8 9300 CB70      00B70        4522          TS    XPITSENQ            GET XEQ SCHEDULING RESOURCE          X2220000
0032CC 4780 8074      032DC        4523          BZ    XPITSCAN            BRANCH IF SUCCESSFUL                 X2222000
                                   4524          $WAIT WORK,OLAY=YES       WAIT FOR FREE RESOURCE               X2224000
0032D0 9620 D049      00049        4525+         OI    PCEEWF+$EWBWORK,$EWFWORK                                 WA016000
0032D4 45F0 B030      00030        4526+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
0032D8 47F0 8060      032C8        4527          B     XJOBINIT            LOOP BACK TO GET RESOURCE            X2226000
                                   4528 XPITSCAN NULL  *                   FIND A FREE PIT TO SCHEDULE          X2228000

0032DC                             4529+XPITSCAN DS    0H                                                       NU006000
0032DC 5850 C9A4      009A4        4530          L     WD,=A($PITABLE)     PIT ORIGIN                           X2230000
                                   4531 XPITSRCH NULL  *                   *                                    X2232000

0032E0                             4532+XPITSRCH DS    0H                                                       NU006000
0032E0 91E0 5000      00000        4533          TM    PITSTAT(WD),PITBUSY+PITHOLD1+PITHOLDA   IS IT ACTIVE     X2234000
0032E4 4780 8098      03300        4534          BZ    XPITFND             BR IF NO                             X2236000
                                   4535          AIF   ('&XBATCHC' EQ '').XNOB0                                 X2238000
                                   4536 .XNOB0   ANOP                                                           X2248000
                                   4537 XPITCONT NULL                      *                                    X2250000
0032E8                             4538+XPITCONT DS    0H                                                       NU006000
0032E8 9101 5000      00000        4539          TM    PITSTAT(WD),PITLAST IS THIS THE LAST PIT                 X2252000
0032EC 4155 0014      00014        4540          LA    WD,PITLNGTH(WD)     MOVE TO NEXT PIT                     X2254000
0032F0 4780 8078      032E0        4541          BZ    XPITSRCH            BR IF MORE PITS                      X2256000
                                   4542 *                                                                       X2258000
                                   4543 *              NO PARTITIONS(INITIATORS) NEED A JOB                     X2260000

                                   4544 *                                                                       X2262000
                                   4545          $WAIT JOB,OLAY=YES        WAIT FOR JOB, PIT, OR RDR CALL       X2264000
0032F4 9610 D048      00048        4546+         OI    PCEEWF+$EWBJOB,$EWFJOB                                   WA016000
0032F8 45F0 B030      00030        4547+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

0032FC 47F0 8074      032DC        4548          B     XPITSCAN            AND SEARCH AGAIN                     X2266000
                                   4549 XPITFND  NULL                      A FREE PIT WAS LOCATED               X2268000
003300                             4550+XPITFND  DS    0H                                                       NU006000
003300 5050 D09C      0009C        4551          ST    WD,XPCEPIT          SAVE PIT ADDR                        X2270000
003304 1B44                        4552          SR    WC,WC               FOR PIT COUNT                        X2272000
                                   4553          AIF   ('&XBATCHC' EQ '').XNOB1                                 X2274000

                                   4554 .XNOB1   ANOP                                                           X2286000
                                   4555 XGETJOB  NULL  *                   *                                    X2288000
003306                             4556+XGETJOB  DS    0H                                                       NU006000
003306 4315 4008      00008        4557          IC    R1,PITCLASS(WD,WC)  GET NEXT CLASS                       X2290000
00330A 4144 0001      00001        4558          LA    WC,1(WC)            COUNT CLASSES                        X2292000
00330E 5410 8120      03388        4559          N     R1,XCLASMSK         ISOLATE CLASS                        X2294000
003312 5910 811C      03384        4560          C     R1,XNULCLAS         IS THIS ALL                          X2296000
003316 4780 814A      033B2        4561          BE    XNOJOB              BR IF YES                            X2298000

                                   4562          AIF   ('&XBATCHC' EQ '').XNOB2                                 X2300000
                                   4563 .XNOB2   ANOP                                                           X2322000

00331A 9180 CB68      00B68        4564 XGETJOB1 TM    $RDRPCE,X'80'       IS OS READER WAITING...              X2324000
00331E 4780 8080      032E8        4565          BZ    XPITCONT            IF NOT, TRY FOR A BATCH PIT.         X2326000
XEQ      HASP EXECUTION PROCESSOR -- JOB INITIATION (PHASE 1)                                                  PAGE  100


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4566 XGETJOB2 $QGET (R1),XGETJOB,OLAY=YES TRY TO GET A JOB                   X2328000
003322                             4567+XGETJOB2 DS    0H                                                       NU006000
003322 45E0 B04C      0004C        4568+         BAL   LINK,$QGET          LINK TO CONTROL SERVICE PROGRAM      QG044000
003326 4780 809E      03306        4569+         BC    8,XGETJOB                                                NP008000

00332A 9620 5000      00000        4570          OI    PITSTAT(WD),PITBUSY SHOW PIT ACTIVE                      X2330000
00332E 5010 D064      00064        4571          ST    R1,XPCEJOB          GOTTEN...SAVE IN PCE                 X2332000
003332 5821 0008      00008        4572          L     WA,QUETRAK(R1)      JCT TRACK ADDRESS                    X2334000
                                   4573          $ACTIVE                   SHOW PROCESSOR ACTIVE                X2336000
003336 4310 B0C7      000C7        4574+         IC    R1,$ACTIVE          INDICATE                             AC006000

00333A 4110 1001      00001        4575+         LA    R1,1(,R1)            PROCESSOR                           AC008000
00333E 4210 B0C7      000C7        4576+         STC   R1,$ACTIVE            ACTIVE                             AC010000
                                   4577 XEQ1     $GETUNIT DA,OLAY=YES      FOR DISK I/O                         X2338000

003342 4110 0000      00000        4578+XEQ1     LA    R1,DCTDA                                                 DG012000
003346 45E0 B040      00040        4579+         BAL   LINK,$GETUNIT       LINK TO CONTROL SERVICE PROGRAM      GU010000
00334A 4770 8102      0336A        4580          BNZ   XEQ2                BR IF GOTTEN                         X2340000
                                   4581          $COUNT                    WAIT COUNT                           X2342000
00334E 4810 80F4      0335C        4582+         LH    R1,*+14             GENERATE                             CO006000
003352 4110 1001      00001        4583+         LA    R1,1(,R1)            CUMULATIVE                          CO008000
003356 4010 80F4      0335C        4584+         STH   R1,*+6                OCCURRENCE                         CO010000

00335A 4700 0000      00000        4585+         NOP   *-*                    COUNT                             CO012000
                                   4586          $WAIT UNIT                WAIT ON UNIT                         X2344000
00335E 9608 D048      00048        4587+         OI    PCEEWF+$EWBUNIT,$EWFUNIT                                 WA016000
003362 45F0 B030      00030        4588+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
003366 47F0 80DA      03342        4589          B     XEQ1                AND TRY AGAIN                        X2346000

                                   4590 XEQ2     NULL                      DA UNIT GOTTEN                       X2348000
00336A                             4591+XEQ2     DS    0H                                                       NU006000
00336A 5010 D074      00074        4592          ST    R1,XPCEDCT          DCT ADDR                             X2350000
                                   4593 XEQA1    NULL  *                                                        X2352000

00336E                             4594+XEQA1    DS    0H                                                       NU006000
                                   4595          $GETBUF OLAY=YES          FOR JCT                              X2354000
00336E 45E0 B034      00034        4596+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000
003372 4770 8124      0338C        4597          BNZ   XJCTBOK             BR IF GOTTEN                         X2356000
                                   4598          $WAIT BUF                 WAIT FOR ONE                         X2358000
003376 9640 D048      00048        4599+         OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000

00337A 45F0 B030      00030        4600+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
00337E 47F0 8106      0336E        4601          B     XEQA1               AND TRY AGAIN                        X2360000
003382 0000
003384 00000040                    4602 XNULCLAS DC    A(64)               NULL CLASS (BLANK)                   X2362000
003388 0000007F                    4603 XCLASMSK DC    A(255-QENTBY)       MASK TO ISOLATE CLASS                X2364000

                                   4604 XJCTBOK  NULL                                                           X2366000
00338C                             4605+XJCTBOK  DS    0H                                                       NU006000
00338C 18A1                        4606          LR    JCT,R1              SAVE                                 X2368000
00338E 5810 D074      00074        4607          L     R1,XPCEDCT          DCT                                  X2370000
                            00000  4608          USING DCTDSECT,R1         *                                    X2372000

003392 41E0 D049      00049        4609          LA    LINK,PCEEWF+$EWBIO  I/O EWF FIELD                        X2374000
003396 50E0 100C      0000C        4610          ST    LINK,DCTEWF         TO DCT                               X2376000
00339A 9280 1013      00013        4611          MVI   DCTIOTYP,DCTREAD    SHOW MODE                            X2378000
00339E 50A0 1004      00004        4612          ST    JCT,DCTBUFAD        SET BUF ADDR                         X2380000
0033A2 5020 1008      00008        4613          ST    WA,DCTSEEK          SET TTR                              X2382000

                                   4614          $EXCP (R1),OLAY=YES       READ JCT                             X2384000
0033A6 45E0 B06C      0006C        4615+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
                                   4616          $XCTL HASPXJI2            GO TO PHASE 2                        X2386000
000000                             4617+HA$QXJI2 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
0033AA                             4618+HA$OXJI1 CSECT                                                          OL014000

0033AA 41E00000                    4619+         DC    Y(X'4100'+LINK*16),QL2(HA$QXJI2) LOAD OCON INTO LINK     OL016000
XEQ      HASP EXECUTION PROCESSOR -- JOB INITIATION (PHASE 1)                                                  PAGE  101


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0033AE 45F0 B090      00090        4620+         BAL   R15,$OXCTL          LINK TO OVERLAY SUPERVISOR           XC008000
XEQ      HASP EXECUTION PROCESSOR -- JOB INITIATION (PHASE 2)                                                  PAGE  102


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4622 HASPXJI2 $OVERLAY &HIGH,&MED       PHASE 2 OF JOB INITIATION            X2390000
003410                             4623+HA$OXJI2 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            0341C  4624+HA$IXJI2 EQU   HA$OXJI2+12         PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   4625+         ENTRY HA$IXJI2                                                 OV036000

003410 E7D1C9F2                    4626+         DC    CL4'XJI2'           IDENTIFY MODULE ON CORE DUMP         OV038000
003414 00003410                    4627+         DC    A(HA$OXJI2)         ASSEMBLY ORIGIN                      OV040000
003418                             4628+HASPXJI2 DS    0F                  ENTRY POINT                          OV042000
                            033B8  4629+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                                   4630 &XI2SECT SETC  '&OSECT'            SAVE CSECT NAME                      X2392000

003418 917F A028      00028        4631 XJCTTEST TM    (BUFECBCC-BUFDSECT)(JCT),X'7F' TEST I/O COMPLETION       X2394000
00341C 4710 8078      03430        4632          BO    XJCTROK             BR IF READ COMPLETE AND GOOD         X2396000
003420 4740 8212      035CA        4633          BM    XBADJCT             BR IF READ COMPLETE BUT BAD          X2398000
                                   4634          $WAIT IO                  OTHERWISE, WAIT FOR READ             X2400000
003424 9640 D049      00049        4635+         OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
003428 45F0 B030      00030        4636+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
00342C 47F0 8060      03418        4637          B     XJCTTEST            AND TEST AGAIN                       X2402000

                                   4638 XJCTROK  NULL  *                   JCT READ COMPLETE AND VALID          X2404000
003430                             4639+XJCTROK  DS    0H                                                       NU006000
003430 5800 B13C      0013C        4640          L     R0,$JOBQPTR         GET ADDRESS OF HASP JOBQUEUE.        X2406000

003434 5E00 A058      00058        4641          AL    R0,JCTJQE           ADD OFFSET TO ENTRY FOR JCT.         X2408000
003438 5500 D064      00064        4642          CL    R0,XPCEJOB          IS THE JCT VALID...                  X2410000
00343C 4770 821E      035D6        4643          BNE   XBADJCT1            BRANCH IF NOT.                       X2412000
                                   4644 *                                                                       X2414000
                                   4645 *              CHECK FOR ANOTHER JOB ACTIVE WITH THE SAME NAME          X2416000

                                   4646 *                                                                       X2418000
                                   4647          LA    R0,&MAXXEQS         ETC                                  X2420000
003440 4100 0003      00003        4648+         LA    R0,3                ETC                                  X2420000
003444 5810 C99C      0099C        4649          L     R1,=V($EXECPCE)     FIRST PCE                            X2422000
003448 D507 A070 106C 00070 0006C  4650 XDUP     CLC   JCTJNAME(8),XPCEJOBN-PCEDSECT(R1)  DOES THIS MATCH       X2424000
00344E 4780 81BE      03576        4651          BE    XDUPNAME            BR IF YES TO DELAY THIS JOB          X2426000
003452 5811 0008      00008        4652          L     R1,PCENEXT-PCEDSECT(R1) TO NEXT PCE                      X2428000
003456 4600 8090      03448        4653          BCT   R0,XDUP             BR IF MORE                           X2430000

                                   4654          $TIME OLAY=YES            TOD                                  X2432000
00345A 4110 0001      00001        4655+         LA    1,1(0,0)                          LOAD 1 TO SPECIFY UNIT 00200000

00345E 0A0B                        4656+         SVC   11                                ISSUE TIME SVC         00280000
003460 5000 A0BC      000BC        4657          ST    R0,JCTXEQON         TO JCT ACCT                          X2434000
003464 5010 A0C0      000C0        4658          ST    R1,JCTXDTON         TO JCT                               X2436000
003468 5000 A0C4      000C4        4659          ST    R0,JCTXEQOF         CRASH PRINT TIME OFF                 X2438000
00346C 5010 A0C8      000C8        4660          ST    R1,JCTXDTOF         CRASH PRINT DATE OFF                 X2440000

                                   4661          AIF   (&TIMEOPT EQ 4 OR NOT &TIMER).XNT                        X2442000
                                   4662 .XNT     ANOP                                                           X2460000
003470 D203 D088 C9A8 00088 009A8  4663          MVC   XPCEPRT+XOUTTYPE(4),=C'LINE'    INITIALIZE               X2462000
003476 D203 D098 C9AC 00098 009AC  4664          MVC   XPCEPUN+XOUTTYPE(4),=C'CARD'    INITIALIZE               X2464000
00347C D203 D080 A0A8 00080 000A8  4665          MVC   XPCEPRT+XOUTEST(4),JCTESTLN                              X2466000
003482 D203 D090 A0AC 00090 000AC  4666          MVC   XPCEPUN+XOUTEST(4),JCTESTPU                              X2468000
                                   4667 XGETIOTB NULL                                                           X2470000
003488                             4668+XGETIOTB DS    0H                                                       NU006000
                                   4669         $GETBUF OLAY=YES           GET A BUF TO READ IOT.               X2472000

003488 45E0 B034      00034        4670+         BAL   LINK,$GETBUF        LINK TO CONTROL SERVICE PROGRAM      GB006000

00348C 4770 80E4      0349C        4671          BNZ   XIOTBOK             BR IF SUCCESSFUL.                    X2474000
                                   4672         $WAIT  BUF                 OTHERWISE WAIT.                      X2476000
003490 9640 D048      00048        4673+         OI    PCEEWF+$EWBBUF,$EWFBUF                                   WA016000
003494 45F0 B030      00030        4674+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
003498 47F0 80D0      03488        4675          B     XGETIOTB            TRY AGAIN TO GET A BUF.              X2478000

                                   4676 XIOTBOK  NULL                                                           X2480000
XEQ      HASP EXECUTION PROCESSOR -- JOB INITIATION (PHASE 2)                                                  PAGE  103


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00349C                             4677+XIOTBOK  DS    0H                                                       NU006000
00349C 1821                        4678          LR    WA,R1               IOT BUFFER ADDR TO WA.               X2482000
00349E 5810 D074      00074        4679          L     R1,XPCEDCT          PICK UP DCT ADR FROM PCE.            X2484000
0034A2 41E0 D049      00049        4680          LA    LINK,PCEEWF+$EWBIO  GET I/O EWF FIELD ADDRESS.           X2486000
0034A6 50E0 100C      0000C        4681          ST    LINK,DCTEWF         SAVE IT AS POST ADDRESS.             X2488000
0034AA 9280 1013      00013        4682          MVI   DCTIOTYP,DCTREAD    SHOW READ REQUIRED.                  X2490000
0034AE 5020 1004      00004        4683          ST    WA,DCTBUFAD         SET BUFFER ADDRESS IN DCT.           X2492000

0034B2 D203 1008 A05C 00008 0005C  4684          MVC   DCTSEEK,JCTIOTTR    SET TTR TO READ FOR IOT.             X2494000

0034B8 5020 D068      00068        4685          ST    WA,XPCEIOT          SAVE IOT'S CORE ADR IN PCE.          X2496000
                                   4686         $EXCP  (R1),OLAY=YES       GO READ THE IOT.                     X2498000
0034BC 45E0 B06C      0006C        4687+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
                                   4688 XIOTTEST NULL                                                           X2500000

0034C0                             4689+XIOTTEST DS    0H                                                       NU006000
0034C0 917F 2028      00028        4690          TM    (BUFECBCC-BUFDSECT)(WA),X'7F'  DID I/O GO OKAY...        X2502000
0034C4 4710 8120      034D8        4691          BO    XIOTROK             BR IF SO.                            X2504000
0034C8 4740 8212      035CA        4692          BM    XBADIOT             BR IF READ WAS BAD.                  X2506000
                                   4693         $WAIT  IO                  WAIT FOR I/O COMPLETION.             X2508000
0034CC 9640 D049      00049        4694+         OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
0034D0 45F0 B030      00030        4695+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
0034D4 47F0 8108      034C0        4696          B     XIOTTEST            THEN CHECK COMPLETION.               X2510000
                                   4697 XIOTROK  NULL                      HERE IF IOT READ WAS OKAY.           X2512000
0034D8                             4698+XIOTROK  DS    0H                                                       NU006000
                            00000  4699          USING IOTDSECT,WA         USE THE IOT DSECT.                   X2514000

0034D8 5810 D064      00064        4700          L     R1,XPCEJOB          POINT TO JOB'S JQE.                  X2516000
0034DC D503 2064 1008 00064 00008  4701          CLC   IOTJCTTR,QUETRAK(R1)  VALIDATE IOT BY JCT POINTER.       X2518000
0034E2 4770 821E      035D6        4702          BNE   XBADIOT1            BRANCH IF BAD IOT.           OY02728 X2520000
0034E6 58E0 D068      00068        4703          L     R14,XPCEIOT         POINT TO ALLOCATION IOT.             X2522000

                            00000  4704          USING IOTDSECT,R14        USE THE IOT DSECT.                   X2524000
                                   4705         $TRACK IOTCYMXM,OLAY=YES   GET A NEW IOT TRACK.                 X2526000
0034EA 4110 E068      00068        4706+         LA    R1,IOTCYMXM                                              DG012000
0034EE 41E0 8140      034F8        4707+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
0034F2 1FE8                        4708+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
0034F4 47F0 B064      00064        4709+         B     $TRACK              BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   4710          DROP  R14                 DROP ALLOCATION IOT DSECT.           X2528000
0034F8 5010 A05C      0005C        4711          ST    R1,JCTIOTTR         SAVE NEW TRACK ADDRESS.              X2530000
0034FC 5010 205C      0005C        4712          ST    R1,IOTTRACK         SET NEW TRACK IN IOT.                X2532000
003500 58E0 D068      00068        4713 XJCTRWRT L     R14,XPCEIOT         POINT TO ALLOCATION IOT.             X2534000
                            00000  4714          USING IOTDSECT,R14        USE THE IOT DSECT.                   X2536000
                                   4715         $TRACK IOTCYMXM,OLAY=YES   GET A NEW JCT TRACK.                 X2538000

003504 4110 E068      00068        4716+         LA    R1,IOTCYMXM                                              DG012000
003508 41E0 815A      03512        4717+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
00350C 1FE8                        4718+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000

00350E 47F0 B064      00064        4719+         B     $TRACK              BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   4720          DROP  R14                 DROP ALLOCATION IOT DSECT.           X2540000
003512 1831                        4721          LR    WB,R1               SAVE JCT TRACK IN WB.                X2542000
003514 5810 D074      00074        4722          L     R1,XPCEDCT          POINT TO PCE'S DA DCT.               X2544000
003518 5030 1008      00008        4723          ST    WB,DCTSEEK          SET TRACK ADDRESS FOR I/O.           X2546000
00351C 5030 2064      00064        4724          ST    WB,IOTJCTTR         SET JCT TRACK IN IOT.                X2548000
003520 50A0 1004      00004        4725          ST    JCT,DCTBUFAD        SET JCT BUF ADR FOR I/O.             X2550000
003524 9240 1013      00013        4726          MVI   DCTIOTYP,DCTWRITE   SHOW WRITE IS REQUIRED.              X2552000
                                   4727         $EXCP  (R1)                START UP I/O.                        X2554000
003528 45E0 B06C      0006C        4728+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
00352C 917F A028      00028        4729 XJCTWCK  TM    BUFECBCC-BUFDSECT(JCT),X'7F'  HOW WAS THE I/O...         X2556000
003530 4710 818C      03544        4730          BO    XJCTWOK             BR IF WRITE OKAY.                    X2558000

003534 4740 8148      03500        4731          BM    XJCTRWRT            RETRY IF BAD.                        X2560000

XEQ      HASP EXECUTION PROCESSOR -- JOB INITIATION (PHASE 2)                                                  PAGE  104


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4732         $WAIT  IO                  WAIT IF NOT COMPLETE.                X2562000
003538 9640 D049      00049        4733+         OI    PCEEWF+$EWBIO,$EWFIO                                     WA016000
00353C 45F0 B030      00030        4734+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
003540 47F0 8174      0352C        4735          B     XJCTWCK             THEN GO CHECK AGAIN.                 X2564000
                                   4736 XJCTWOK  NULL                      JCT WAS WRITTEN SUCCESSFULLY.        X2566000
003544                             4737+XJCTWOK  DS    0H                                                       NU006000
003544 5810 D064      00064        4738          L     R1,XPCEJOB          POINT TO JOB'S JQE.                  X2568000
003548 5030 1008      00008        4739          ST    WB,QUETRAK(,R1)     SHOW NEW JCT TRACK ADDRESS.          X2570000
00354C 5810 C990      00990        4740          L     R1,=V($CKPTPCE)     POINT TO THE CHECKPOINT PCE.         X2572000
                                   4741         $POST  PCEEWF+$EWBWORK-PCEDSECT(R1),WORK  POST IT FOR WORK      X2574000
003550 94DF 1049      00049        4742+         NI    PCEEWF+$EWBWORK-PCEDSECT(R1),255-$EWFWORK                PO008000
003554 947F B0C4      000C4        4743+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000

                                   4744         $WAIT  CKPT,OLAY=YES       WAIT TILL CHECKPOINT COMPLETES.      X2576000
003558 9604 D048      00048        4745+         OI    PCEEWF+$EWBCKPT,$EWFCKPT                                 WA016000
00355C 45F0 B030      00030        4746+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

003560 9680 2058      00058        4747          OI    IOTFLAGS,IOTWRITE   SET TO WRITE IOT AND         OY02728 X2577000
003564 9610 D059      00059        4748          OI    XSYNCFLG,XIOTWREQ   SHOW IOT CHECKPOINT REQ'D.           X2578000
003568 D207 D06C A070 0006C 00070  4749          MVC   XPCEJOBN,JCTJNAME   SAVE JOBNAME IN PCE                  X2580000
                                   4750         $XCTL  HASPXJI3            CONTINUE JOB INITIALIZATION.         X2582000
000000                             4751+HA$QXJI3 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
00356E                             4752+HA$OXJI2 CSECT                                                          OL014000
00356E 41E00000                    4753+         DC    Y(X'4100'+LINK*16),QL2(HA$QXJI3) LOAD OCON INTO LINK     OL016000
003572 45F0 B090      00090        4754+         BAL   R15,$OXCTL          LINK TO OVERLAY SUPERVISOR           XC008000
                                   4755          DROP  WA                  DROP IOT ADDRESSABILITY.             X2584000
XEQ      HASP EXECUTION PROCESSOR -- JOB INITIALIZATION (PHASE 3)                                              PAGE  105


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4757 HASPXJI3 $OVERLAY &HIGH,&MED       PHASE 3 OF JOB INITIALIZATION        X2588000

003630                             4758+HA$OXJI3 CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            0363C  4759+HA$IXJI3 EQU   HA$OXJI3+12         PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   4760+         ENTRY HA$IXJI3                                                 OV036000

003630 E7D1C9F3                    4761+         DC    CL4'XJI3'           IDENTIFY MODULE ON CORE DUMP         OV038000
003634 00003630                    4762+         DC    A(HA$OXJI3)         ASSEMBLY ORIGIN                      OV040000
003638                             4763+HASPXJI3 DS    0F                  ENTRY POINT                          OV042000
                            035D8  4764+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
                                   4765 &XI3SECT SETC  '&OSECT'            SAVE CSECT NAME                      X2590000
003638 58F0 C9B0      009B0        4766 XEQ4     L     R15,=V(XGETDDB)     GET A DDB                            X2592000
                                   4767         $DISABLE ALL               DISABLE BEFORE CALLING XGETDDB       X2594000
00363C 8000 B0C9      000C9        4768+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
003640 05EF                        4769          BALR  LINK,R15            FOR &RDR                             X2596000
                                   4770         $ENABLE ALL                ENABLE AFTER XGETDDB                 X2598000
003642 8000 B0C8      000C8        4771+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
003646 1871                        4772          LR    XDDB,R1             MOVE DDB POINTER TO BASE REG.        X2600000

003648 4770 8090      03668        4773          BNZ   XEQ5                                                     X2602000
                                   4774          $COUNT                    WAIT COUNT                           X2604000
00364C 4810 8082      0365A        4775+         LH    R1,*+14             GENERATE                             CO006000

003650 4110 1001      00001        4776+         LA    R1,1(,R1)            CUMULATIVE                          CO008000
003654 4010 8082      0365A        4777+         STH   R1,*+6                OCCURRENCE                         CO010000
003658 4700 0000      00000        4778+         NOP   *-*                    COUNT                             CO012000
                                   4779          $WAIT DDB                                                      X2606000
00365C 9608 D049      00049        4780+         OI    PCEEWF+$EWBDDB,$EWFDDB                                   WA016000
003660 45F0 B030      00030        4781+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
003664 47F0 8060      03638        4782          B     XEQ4                                                     X2608000
                                   4783 XEQ5     NULL                                                           X2610000
003668                             4784+XEQ5     DS    0H                                                       NU006000
003668 9233 7008      00008        4785          MVI   XS,XNPB+XPIO+XNSB+XSIO  SHOW EVERYTHING                  X2612000
00366C 9280 7004      00004        4786          MVI   DDBTYPE,XINDDB      INPUT DDB                            X2614000
003670 5810 D068      00068        4787          L     R1,XPCEIOT          POINT TO IOT.                        X2616000

                            00000  4788          USING IOTDSECT,R1         USE THE IOT DSECT.                   X2618000
003674 4120 10D8      000D8        4789          LA    WA,IOTPDDB          POINT TO FIRST PDDB.                 X2620000
                            00000  4790          USING PDBDSECT,WA         USE PDDB DSECT.                      X2622000
003678 D203 7018 2003 00018 00003  4791          MVC   DDBTTR,PDBMTTR      SET JCL TRACK FROM IT.               X2624000

00367E D20D 2000 8222 00000 037FA  4792          MVC   PDBFLAG1(2*PDBBASLN),XDUMPDB  SET 2 DUMMY PDDBS.         X2626000
003684 4120 00E6      000E6        4793          LA    WA,IOTPDDB-IOTDSECT+2*PDBBASLN  GET NEXT OFFSET.         X2628000
003688 5020 10D4      000D4        4794          ST    WA,IOTPDDBP         SET ITS ADDRESS IN IOT.              X2630000
00368C D202 7005 CB64 00005 00B64  4795          MVC   DDBUNIT,$RDRUNIT    SET-UP READER UCB                    X2632000
003692 D201 700A C9B4 0000A 009B4  4796          MVC   DDBUFPTR,=AL2(HDBSTART-BUFDSECT)   SET INITIAL DISP      X2634000
003698 9280 7009      00009        4797          MVI   DDBSTAT2,XACT       SHOW ACTION                          X2636000

                                   4798          AIF   ('&XBATCHC' EQ '').XNOB3                                 X2638000
                                   4799 .XNOB3   ANOP                                                           X2714000
00369C 5810 CB68      00B68        4800 XNOBATCH L     R1,$RDRPCE          SET R1 TO RDR TCB ADR.               X2716000
0036A0 50D0 CB68      00B68        4801          ST    R13,$RDRPCE         POINT $RDRPCE TO PCE.                X2718000
0036A4 5070 CB6C      00B6C        4802          ST    XDDB,$RDRDDB        POINT $RDRDDB TO READER DDT.         X2720000
0036A8 4110 1000      00000        4803 XEQ79    LA    R1,0(,R1)           ZERO HIGH-ORDER BYTE.                X2722000
0036AC 5010 D060      00060        4804          ST    R1,XPCEJST          PUT TCB ADDRESS IN PCE.              X2724000
                                   4805          LA    WA,&MAXXEQS         WA = NUM OF XEQ PCES                 X2726000

0036B0 4120 0003      00003        4806+         LA    WA,3                WA = NUM OF XEQ PCES                 X2726000
0036B4 5830 C99C      0099C        4807          L     WB,=V($EXECPCE)     WB = ADDR 1ST XEQ PCE                X2728000

                                   4808 XEQ8     $POST PCEEWF-PCEDSECT+$EWBWORK(WB),WORK $POST XEQS             X2730000
0036B8 94DF 3049      00049        4809+XEQ8     NI    PCEEWF-PCEDSECT+$EWBWORK(WB),255-$EWFWORK                PO008000
0036BC 947F B0C4      000C4        4810+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
0036C0 5830 3008      00008        4811          L     WB,PCENEXT-PCEDSECT(,WB) WB = ADDR OF NEXT XEQ PCE       X2732000
XEQ      HASP EXECUTION PROCESSOR -- JOB INITIALIZATION (PHASE 3)                                              PAGE  106


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0036C4 4620 80E0      036B8        4812          BCT   WA,XEQ8             LOOP THRU ALL XEQ PCES               X2734000
0036C8 9200 CB70      00B70        4813          MVI   XPITSENQ,0          DEQ FROM SCHEDULING RESOURCE         X2736000

                                   4814          AIF   (NOT &LOGOPT).XNOLOG                                     X2738000
0036CC 9110 A06B      0006B        4815          TM    JCTJBOPT,JCTNOLOG   IS NO LOG INDICATED                  X2740000
0036D0 4710 813C      03714        4816          BO    XWTOWAIT            BR IF NO LOG                         X2742000
0036D4 58F0 C9B0      009B0        4817 XEQ16    L     R15,=V(XGETDDB)     GET A DDB                            X2744000
                                   4818         $DISABLE ALL               DISABLE BEFORE CALLING XGETDDB       X2746000

0036D8 8000 B0C9      000C9        4819+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
0036DC 05EF                        4820          BALR  LINK,R15            FOR LOG PROCESSOR                    X2748000
                                   4821         $ENABLE ALL                ENABLE AFTER XGETDDB                 X2750000

0036DE 8000 B0C8      000C8        4822+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
0036E2 4770 811A      036F2        4823          BNZ   XEQ17               BR IF GOTTEN                         X2752000
                                   4824          $WAIT DDB                 OTHERWISE WAIT                       X2754000
0036E6 9608 D049      00049        4825+         OI    PCEEWF+$EWBDDB,$EWFDDB                                   WA016000
0036EA 45F0 B030      00030        4826+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
0036EE 47F0 80FC      036D4        4827          B     XEQ16               AND TRY AGAIN                        X2756000
                                   4828 XEQ17    NULL  *                   DDB GOTTEN                           X2758000

0036F2                             4829+XEQ17    DS    0H                                                       NU006000
0036F2 1871                        4830          LR    XDDB,R1             SET DDB ADDRESSABILITY.              X2760000
0036F4 9210 7004      00004        4831          MVI   DDBTYPE,XLOGDDB     SET TYPE                             X2762000
0036F8 D202 7005 C9BD 00005 009BD  4832          MVC   DDBUNIT,=X'FFFFFF'  SET DUMMY UCB                        X2764000
0036FE D201 700A C9B4 0000A 009B4  4833          MVC   DDBUFPTR,=AL2(HDBSTART-BUFDSECT)   SET INITIAL DISP      X2766000

003704 9211 7008      00008        4834          MVI   XS,XNPB+XNSB        SET STATUS                           X2768000
003708 58E0 D068      00068        4835          L     R14,XPCEIOT         POINT TO THE FIRST IOT.              X2770000
                            00000  4836          USING IOTDSECT,R14        USE THE IOT DSECT.                   X2772000
00370C 41E0 E0D8      000D8        4837          LA    R14,IOTPDDB         GET LOG PDDB POINTER.                X2774000

003710 50E0 700C      0000C        4838          ST    R14,DDBPBUF         PUT IN DDB FOR XOUT.                 X2776000
                                   4839          DROP  R14                 DROP IOT DSECT.                      X2778000
                                   4840 .XNOLOG  ANOP                                                           X2780000
                                   4841          DROP  R1                                                       X2782000
                                   4842 XWTOWAIT NULL                                                           X2784000
003714                             4843+XWTOWAIT DS    0H                                                       NU006000

003714 D207 817B A070 03753 00070  4844          MVC   XONMES+3(8),JCTJNAME     SET UP JOB NAME                 X2786000
00371A D201 819D 5002 03775 00002  4845          MVC   XONMES1+5(2),PITPATID(WD) SET PARTITION OR INITIATOR NO. X2788000
003720 5810 D064      00064        4846          L     R1,XPCEJOB               JOB QUEUE ENTRY                 X2790000
003724 D200 81A7 1001 0377F 00001  4847          MVC   XONMES1+15(1),QUETYPE(R1) SET CLASS                      X2792000
00372A 94EF 5000      00000        4848          NI    PITSTAT(WD),255-PITIDLE  TURN OFF MESSAGE BIT            X2794000

                                   4849          $WTO  XONMES,L'XONMES+L'XONMES1,    DISPLAY JOB START         CX2796000
                                                       ROUTE=$LOG+$MAIN,CLASS=$NORMAL,PRI=$ST,JOB=YES,         CX2798000
                                                       WAIT=NO             NO FORCED WAIT                       X2800000
00372E 4110 8178      03750        4850+         LA    R1,XONMES                                                DG012000
003732 0700                        4851+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000

003734 5800 8164      0373C        4852+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
003738 45E0 B098      00098        4853+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
00373C 06213034                    4854+         DC    AL1(6,$LOG+$MAIN,L'XONMES+L'XONMES1,$NORMAL+$ST)         WT044000
003740 4770 81A8      03780        4855          BNZ   XEQI1               BR IF WTO SUCCESSFUL                 X2802000
                                   4856          $WAIT CMB                 OTHERWISE WAIT                       X2804000

003744 9602 D048      00048        4857+         OI    PCEEWF+$EWBCMB,$EWFCMB                                   WA016000
003748 45F0 B030      00030        4858+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
00374C 47F0 813C      03714        4859          B     XWTOWAIT            AND TRY AGAIN                        X2806000
003750 606040D1C3E3D1D5            4860 XONMES   DC    C'-- JCTJNAME -- BEGINNING EXEC - '                      X2808000
003770 C9D5C9E340C94060            4861 XONMES1  DC    C'INIT I - CLASS C'                                      X2810000

                                   4862 XEQI1    NULL                                                           X2812000
003780                             4863+XEQI1    DS    0H                                                       NU006000
003780 4310 B0C6      000C6        4864          IC    R1,$XEQACT          INCREMENT                            X2814000
XEQ      HASP EXECUTION PROCESSOR -- JOB INITIALIZATION (PHASE 3)                                              PAGE  107


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

003784 4110 1001      00001        4865          LA    R1,1(,R1)            O/S EXECUTION                       X2816000

003788 4210 B0C6      000C6        4866          STC   R1,$XEQACT            COUNT                              X2818000
                                   4867  AIF (((&MAXXEQS LT 2) OR (&MONINTV EQ 0)) OR &SYSVS2).XNOXMN      RFIT X2818100
                                   4868 .XNOXMN  ANOP                                                      RFIT X2818400
                                   4869          $RETURN                   RETURN TO BASE SEGMENT               X2820000

00378C 45E0 B088      00088        4870+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   4871 XBATCHCS DC    CL9'&XBATCHC '      XEQ BATCHING CLASSES                 X2822000
003790 4040404040404040            4872+XBATCHCS DC    CL9' '              XEQ BATCHING CLASSES                 X2822000
                                   4873 XBACHJCL DC 0CL33' ',X'5000',C'//&XBATCHN.XXX JOB 1,SYS,MSGLEVEL=1' 3.1 X2824000
003799 500061615B5B5B5B            4874+XBACHJCL DC 0CL33' ',X'5000',C'//$$$$$XXX JOB 1,SYS,MSGLEVEL=1'     3.1 X2824000

                                   4875 XBACHEXE DC    0CL22' ',X'5000',C'//FAKE EXEC &XBATCHN.XXX'             X2826000
0037BA 50006161C6C1D2C5            4876+XBACHEXE DC    0CL22' ',X'5000',C'//FAKE EXEC $$$$$XXX'                 X2826000
0037D0 507300000000                4877 XBACHTRK DC    X'507300000000'                                          X2828000
0037D6 50006161C7D64BE2            4878 XBACHDDD DC    0CL32' ',X'5000',C'//GO.SYSIN DD CATA,DCB=BUFNO=1'       X2830000
0037F6 50196161                    4879 XBACHNUL DC    0CL4' ',X'5019',C'//'                                    X2832000
0037FA 60C1070000000040            4880 XDUMPDB  DC    X'60C107',AL4(0),X'40C10780',AL3(0)  LOG AND SMB PDDBS   X2834000
                            00000  4881          USING DDBDSECT,XDDB       RESUME                               X2836000

XEQ      HASP EXECUTION PROCESSOR -- JOB INITIATION (CONTINUED)                                                PAGE  108


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4883 &XI1SECT CSECT                     BACK TO FIRST OVERLAY                X2840000

0033B2                             4884+HA$OXJI1 CSECT                     BACK TO FIRST OVERLAY                X2840000
                            03268  4885          USING HASPXJI1-OACEPROG+BUFDSECT,BASE3 RE-ESTABLISH            X2842000
                                   4886 XNOJOB   NULL  *                   NO JOBS OF REQ'D CLASS AVAILABLE     X2844000
0033B2                             4887+XNOJOB   DS    0H                                                       NU006000
0033B2 9110 5000      00000        4888          TM    PITSTAT(WD),PITIDLE HAS IDLE MESSAGE BEEN SENT...        X2846000

0033B6 4710 8080      032E8        4889          BO    XPITCONT            CONTINUE IF YES                      X2848000
                                   4890 *                                  INDICATE PARTITION IDLE              X2850000
0033BA D201 818D 5002 033F5 00002  4891          MVC   XIDL1(2),PITPATID(WD) SET PART NUMBER                    X2852000
                                   4892          MVC   XIDL2(&MAXCLAS),PITCLASS(WD)  SET CLASSES IN MSG         X2854000
0033C0 D207 819B 5008 03403 00008  4893+         MVC   XIDL2(8),PITCLASS(WD)         SET CLASSES IN MSG         X2854000
0033C6 9610 5000      00000        4894          OI    PITSTAT(WD),PITIDLE SHOW MESSAGE SENT                    X2856000
                                   4895          $WTO  XIDLEMES,L'XIDLEMES+L'XIDL1+&MAXCLAS,JOB=NO,            CX2858000
                                                       ROUTE=$LOG+$MAIN,CLASS=$ACTION,PRI=$ST,WAIT=NO           X2860000

0033CA 4110 8188      033F0        4896+         LA    R1,XIDLEMES                                              DG012000
0033CE 0700                        4897+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000

0033D0 5800 8170      033D8        4898+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
0033D4 45E0 B098      00098        4899+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
0033D8 04211B54                    4900+         DC    AL1(4,$LOG+$MAIN,L'XIDLEMES+L'XIDL1+8,$ACTION+$ST)       WT044000
0033DC 4770 8080      032E8        4901          BNZ   XPITCONT            BRANCH IF ACCEPTED                   X2862000
                                   4902          $WAIT CMB                 WAIT                                 X2864000

0033E0 9602 D048      00048        4903+         OI    PCEEWF+$EWBCMB,$EWFCMB                                   WA016000
0033E4 45F0 B030      00030        4904+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
0033E8 94EF 5000      00000        4905          NI    PITSTAT(WD),255-PITIDLE  RESET MESSAGE SENT              X2866000
0033EC 47F0 8074      032DC        4906          B     XPITSCAN            AND START OVER                       X2868000
0033F0 C9D5C9E340                  4907 XIDLEMES DC    C'INIT '                                                 X2870000
0033F5 E7E740C9C4D3C560            4908 XIDL1    DC    C'XX IDLE-CLASS='                                        X2872000
                                   4909 XIDL2    DC    (&MAXCLAS)C' '                                           X2874000
003403 4040404040404040            4910+XIDL2    DC    (8)C' '                                                  X2874000
XEQ      HASP EXECUTION PROCESSOR -- JOB INITIATION (CONTINUED)                                                PAGE  109



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   4912 &XI2SECT CSECT                     BACK TO SECOND OVERLAY               X2878000
003576                             4913+HA$OXJI2 CSECT                     BACK TO SECOND OVERLAY               X2878000
                            033B8  4914          USING HASPXJI2-OACEPROG+BUFDSECT,BASE3 RE-ESTABLISH            X2880000
                                   4915 XDUPNAME NULL  *                   AN ACTIVE JOB WITH SAME NAME WAS FND X2882000
003576                             4916+XDUPNAME DS    0H                                                       NU006000

003576 9680 1058      00058        4917          OI    XPCESTAT-PCEDSECT(R1),XDUPBIT SHOW ANOTHER JOB IS WAITIN X2884000
00357A 5810 D064      00064        4918          L     R1,XPCEJOB          JOB QUEUE ENTRY                      X2886000
00357E 947F 1001      00001        4919          NI    QUETYPE(R1),255-QENTBY  CLEAR BUSY BIT                   X2888000
003582 9620 1004      00004        4920          OI    QUEFLAGS(R1),QUEHOLD2  SET SPECIAL HOLD BIT              X2890000
003586 4320 1001      00001        4921          IC    WA,QUETYPE(,R1)     WA = QUEUE TYPE.                     X2892000
                                   4922 XDUPTRY  NULL  *                   RE-ENTRY FOR NO CMB                  X2894000
00358A                             4923+XDUPTRY  DS    0H                                                       NU006000
                                   4924          $WTO  XDUPMES,L'XDUPMES,     WARN OPERATOR OF POSSIBLE DELAY  CX2896000
                                                       WAIT=NO,            FOR OVERLAY                         CX2898000
                                                       ROUTE=$LOG+$MAIN,CLASS=$NORMAL,PRI=$ST,JOB=YES           X2900000

00358A 4110 81F4      035AC        4925+         LA    R1,XDUPMES                                               DG012000

00358E 0700                        4926+         CNOP  0,4                 INSURE BOUNDARY ALIGNMENT            WT038000
003590 5800 81E0      03598        4927+         L     R0,*+8              SET UP SECOND PARAMETER REGISTER     WT040000
003594 45E0 B098      00098        4928+         BAL   LINK,$WTO           LINK TO CONTROL SERVICE PROGRAM      WT042000
003598 06211E34                    4929+         DC    AL1(6,$LOG+$MAIN,L'XDUPMES,$NORMAL+$ST)                  WT044000

                                   4930 *                                                                       X2902000
00359C 4770 822C      035E4        4931          BNZ   XPITOVER            START OVER IF MESSAGE ACCEPTED       X2904000
                                   4932          $WAIT CMB                 WAIT FOR MESS BUFFER                 X2906000
0035A0 9602 D048      00048        4933+         OI    PCEEWF+$EWBCMB,$EWFCMB                                   WA016000
0035A4 45F0 B030      00030        4934+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
0035A8 47F0 81D2      0358A        4935          B     XDUPTRY             AND TRY AGAIN                        X2908000
0035AC C4E4D7D3C9C3C1E3            4936 XDUPMES  DC    C'DUPLICATE JOB NAME-JOB DELAYED'                        X2910000
                                   4937 XBADIOT  NULL                                                           X2912000
0035CA                             4938+XBADIOT  DS    0H                                                       NU006000
                                   4939 XBADJCT NULL                       ERROR ON JCT READ                    X2914000
0035CA                             4940+XBADJCT  DS    0H                                                       NU006000

                                   4941          $IOERROR (JCT),OLAY=YES   DISPLAY ERROR                        X2916000
0035CA 181A                        4942+         LR    R1,JCT                                                   DG018000
0035CC 41E0 821E      035D6        4943+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
0035D0 1FE8                        4944+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000

0035D2 47F0 B0B4      000B4        4945+         B     $IOERROR            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
0035D6                             4946 XBADIOT1 DS    0H                                               OY02728 X2917000
                                   4947 XBADJCT1 $DISTERR OLAY=YES         SHOW DISASTER                        X2918000
0035D6 41E0 8228      035E0        4948+XBADJCT1 LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
0035DA 1FE8                        4949+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
0035DC 47F0 B0BC      000BC        4950+         B     $DISTERR            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
0035E0 4120 0000      00000        4951          LA    WA,$PURGE           WA = QUEUE TYPE.                     X2920000
                                   4952 XPITOVER $FREEBUF (JCT),OLAY=YES   FREE BUFFER                          X2922000
0035E4 181A                        4953+XPITOVER LR    R1,JCT                                                   DG018000
0035E6 45E0 B03C      0003C        4954+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
0035EA 1BAA                        4955          SR    JCT,JCT             SHOW NO JCT                          X2924000
                                   4956          $FREUNIT XPCEDCT,OLAY=YES GIVE UP UNIT                         X2926000

0035EC 5810 D074      00074        4957+         L     R1,XPCEDCT                                               DG012000
0035F0 41E0 8242      035FA        4958+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
0035F4 1FE8                        4959+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000

0035F6 47F0 B044      00044        4960+         B     $FREUNIT            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
0035FA 5810 D064      00064        4961          L     R1,XPCEJOB          POINT TO JOB QUEUE ELEMENT.          X2928000
                                   4962         $QPUT  (R1),(WA),OLAY=YES  QUEUE IT ACCORDING TO WA.            X2930000
0035FE 1802                        4963+         LR    R0,WA                                                    DG018000
003600 41E0 8252      0360A        4964+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
XEQ      HASP EXECUTION PROCESSOR -- JOB INITIATION (CONTINUED)                                                PAGE  110


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

003604 1FE8                        4965+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
003606 47F0 B050      00050        4966+         B     $QPUT               BRANCH TO CONTROL SERVICE PROGRAM    BA018000
00360A D74F D064 D064 00064 00064  4967          XC    XPCEJOB(XEQPCEWS-8),XPCEJOB                              X2932000
                                   4968          $DORMANT                                                       X2934000
003610 4310 B0C7      000C7        4969+         IC    R1,$ACTIVE          INDICATE                             DO006000

003614 0610                        4970+         BCTR  R1,0                 PROCESSOR                           DO008000
003616 4210 B0C7      000C7        4971+         STC   R1,$ACTIVE            INACTIVE                           DO010000
00361A 94DF 5000      00000        4972          NI    PITSTAT(WD),255-PITBUSY  RELEASE PIT                     X2936000

00361E 9200 CB70      00B70        4973          MVI   XPITSENQ,0          DEQ FROM SCHEDULING RESOURCE         X2938000
                                   4974          $XCTL HASPXJI1            START OVER                           X2940000
000000                             4975+HA$QXJI1 DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
003622                             4976+HA$OXJI2 CSECT                                                          OL014000
003622 41E00000                    4977+         DC    Y(X'4100'+LINK*16),QL2(HA$QXJI1) LOAD OCON INTO LINK     OL016000
003626 45F0 B090      00090        4978+         BAL   R15,$OXCTL          LINK TO OVERLAY SUPERVISOR           XC008000
XEQ      HASP EXECUTION PROCESSOR -- JOB TERMINATION SUBROUTINE                                                PAGE  111


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   4980 *                                                                       X2944000
                                   4981 *              EXECUTION END OF JOB ROUTINE                             X2946000
                                   4982 *                                                                       X2948000




                                   4984 HASPXEOJ $OVERLAY &HIGH,&MED       JOB TERMINATION MODULE               X2952000

003808                             4985+HA$OXEOJ CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            03814  4986+HA$IXEOJ EQU   HA$OXEOJ+12         PASS ATTRIBUTE(S) USING ENTRY        OV034000

                                   4987+         ENTRY HA$IXEOJ                                                 OV036000
003808 E7C5D6D1                    4988+         DC    CL4'XEOJ'           IDENTIFY MODULE ON CORE DUMP         OV038000
00380C 00003808                    4989+         DC    A(HA$OXEOJ)         ASSEMBLY ORIGIN                      OV040000
003810                             4990+HASPXEOJ DS    0F                  ENTRY POINT                          OV042000
                            037B0  4991+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000
003810 4310 B0C6      000C6        4992          IC    R1,$XEQACT          DECREMENT                            X2954000
003814 0610                        4993          BCTR  R1,0                 O/S EXECUTION                       X2956000
003816 4210 B0C6      000C6        4994          STC   R1,$XEQACT            COUNT                              X2958000
00381A 5810 D05C      0005C        4995          L     R1,XPCEOUTC         WAS THERE A BUFFER                   X2960000
00381E 1211                        4996          LTR   R1,R1               FOR /*OUTPUT CARDS...                X2962000
003820 4780 8078      03828        4997          BZ    XOCPRG              BRANCH IF NOT.                       X2964000
                                   4998         $FREEBUF (R1),OLAY=YES     YES.  FREE IT.                       X2966000

003824 45E0 B03C      0003C        4999+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
003828                             5000 XOCPRG   DS    0H                                                       X2968000





                                   5002          $TIME OLAY=YES            TOD                                  X2972000
003828 4110 0001      00001        5003+         LA    1,1(0,0)                          LOAD 1 TO SPECIFY UNIT 00200000
00382C 0A0B                        5004+         SVC   11                                ISSUE TIME SVC         00280000
00382E 5000 A0C4      000C4        5005          ST    R0,JCTXEQOF         TO JCT                               X2974000
003832 5010 A0C8      000C8        5006          ST    R1,JCTXDTOF         TO JCT                               X2976000
                                   5007          AIF   (&TIMEOPT EQ 4 OR NOT &TIMER).XNT4                       X2978000
                                   5008 .XNT4    ANOP                                                           X2982000
003836 9110 D058      00058        5009          TM    XPCESTAT,XREXREQ    IS JOB TO BE RESTARTED...            X2984000
00383A 4780 80CC      0387C        5010          BZ    XNORSTRT            BRANCH IF NOT.                       X2986000
                                   5011 *                                                                       X2988000
                                   5012 *              RESTART REQUIRED --- REQUEUE JOB FOR EXECUTION           X2990000
                                   5013 *                                                                       X2992000

00383E 5820 D068      00068        5014          L     WA,XPCEIOT          POINT TO ALLOCATION IOT.             X2994000
                            00000  5015          USING IOTDSECT,WA         USE THE IOT DSECT.                   X2996000
                                   5016         $PURGE IOTCYMAP,OLAY=YES   PURGE OUTPUT TRACK GROUP MAP.        X2998000

003842 4110 2070      00070        5017+         LA    R1,IOTCYMAP                                              DG012000
003846 45E0 B068      00068        5018+         BAL   LINK,$PURGER        LINK TO CONTROL SERVICE PROGRAM      PU010000
00384A 5830 2058      00058        5019 XIOTPRG  L     WB,IOTIOT           SAVE POINTER TO NEXT IOT.            X3000000
                                   5020         $FREEBUF (WA),OLAY=YES     FREE THIS IOT.                       X3002000
00384E 1812                        5021+         LR    R1,WA                                                    DG018000
003850 45E0 B03C      0003C        5022+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
003854 4120 3000      00000        5023          LA    WA,0(,WB)           POINT TO NEXT IOT.                   X3004000
003858 1222                        5024          LTR   WA,WA               IS THERE ANOTHER IOT...              X3006000
00385A 4770 809A      0384A        5025          BNZ   XIOTPRG             IF SO, GO FREE IT.                   X3008000
00385E 5830 D064      00064        5026          L     WB,XPCEJOB          POINT TO THE JQE.                    X3010000
003862 D203 3008 A064 00008 00064  5027          MVC   QUETRAK(4,WB),JCTINJCT  RESTORE INPUT JCT TRACK.         X3012000
                                   5028         $FREEBUF (JCT),OLAY=YES    FREE THE JCT.                        X3014000

003868 181A                        5029+         LR    R1,JCT                                                   DG018000
00386A 45E0 B03C      0003C        5030+         BAL   LINK,$FREEBUF       LINK TO CONTROL SERVICE PROGRAM      FB010000
XEQ      HASP EXECUTION PROCESSOR -- JOB TERMINATION SUBROUTINE                                                PAGE  112


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


00386E 1BAA                        5031          SR    JCT,JCT             SHOW NO JCT.                         X3016000
003870 947F 3001      00001        5032          NI    QUETYPE(WB),255-QENTBY  CLEAR THE BUSY BIT.              X3018000
003874 4340 3001      00001        5033          IC    WC,QUETYPE(,WB)     GET QUEUE TYPE IN WC.                X3020000
003878 47F0 81A6      03956        5034          B     XENDXEQ             GO FREE DCT AND REQUEUE.             X3022000
                                   5035 *                                                                       X3024000
                                   5036 *              NO JOB RESTART.  TERMINATE JOB.                          X3026000

                                   5037 *                                                                       X3028000
00387C 5810 D07C      0007C        5038 XNORSTRT L     R1,XPCEPRT+XOUTTOTL MOVE LINES OUTPUT                    X3030000
003880 5010 A0E0      000E0        5039          ST    R1,JCTLINES          TO JCT.                             X3032000
003884 5E10 D08C      0008C        5040          AL    R1,XPCEPUN+XOUTTOTL ADD CARDS OUTPUT.                    X3034000
003888 5010 A0FC      000FC        5041          ST    R1,JCTXOUT          SAVE TOTAL OUTPUT IN JCT.            X3036000
00388C D203 A0E4 D08C 000E4 0008C  5042          MVC   JCTPUNCH,XPCEPUN+XOUTTOTL  CARDS OUTPUT TO JCT.          X3038000
003892 4140 0004      00004        5043          LA    WC,$OUTPUT          SET QUEUE TYPE TO $OUTPUT.           X3040000
                                   5044         $PURGE JCTCYSAV,OLAY=YES   PURGE INPUT TRACK GROUP MAP.         X3042000

003896 4110 A104      00104        5045+         LA    R1,JCTCYSAV                                              DG012000
00389A 45E0 B068      00068        5046+         BAL   LINK,$PURGER        LINK TO CONTROL SERVICE PROGRAM      PU010000

00389E 1B00                        5047          SR    R0,R0               ZERO OUT INPUT JCT                   X3044000
0038A0 5000 A064      00064        5048          ST    R0,JCTINJCT         TRACK ADDRESS.                       X3046000
0038A4 5830 D064      00064        5049          L     WB,XPCEJOB          GET ADDRESS OF JQE.                  X3048000
0038A8 9110 3004      00004        5050          TM    QUEFLAGS(WB),QUEPURGE  IS JQE MARKED PURGE...            X3050000
0038AC 4710 8156      03906        5051          BO    XENDUP              GO REQUEUE IF SO.                    X3052000
0038B0 9180 A06B      0006B        5052          TM    JCTJBOPT,JCTPRICD   WAS /*PRIORITY CARD USED...          X3054000
0038B4 4710 8156      03906        5053          BO    XENDUP              BRANCH IF SO.                        X3056000
                                   5054 * RE-COMPUTE JOB PRIORITY FOR OUTPUT, USING OUTPUT PRIORITY TABLE.      X3058000

                                   5055 XCOMPRIO MVC   XPCEPUN(&QENTSIZ),0(WB)  SAVE JQE IN THE PCE.            X3060000
0038B8 D20F D08C 3000 0008C 00000  5056+XCOMPRIO MVC   XPCEPUN(16),0(WB)        SAVE JQE IN THE PCE.            X3060000
                                   5057         $QREM  (WB),OLAY=YES       REMOVE JQE FROM THE JOB QUEUE.       X3062000
0038BE 1813                        5058+         LR    R1,WB                                                    DG018000
0038C0 41E0 811A      038CA        5059+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000

0038C4 1FE8                        5060+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
0038C6 47F0 B054      00054        5061+         B     $QREM               BRANCH TO CONTROL SERVICE PROGRAM    BA018000
0038CA 4120 8208      039B8        5062          LA    WA,XPRITAB          POINT TO OUTPUT TABLE START.         X3064000

0038CE D502 A0FD 2001 000FD 00001  5063 XNEXGRUP CLC   JCTXOUT+1(3),1(WA)  DOES JOB FIT HERE...                 X3066000
0038D4 47D0 8130      038E0        5064          BNH   XSETPRIO            BRANCH IF SO.                        X3068000
0038D8 4120 2004      00004        5065          LA    WA,4(,WA)           ELSE POINT TO NEXT ENTRY             X3070000
0038DC 47F0 811E      038CE        5066          B     XNEXGRUP            AND LOOP.                            X3072000
0038E0 D200 D08C 2000 0008C 00000  5067 XSETPRIO MVC   XPCEPUN+QUEPRIO(1),0(WA)  SET NEW PRIORITY.              X3074000
0038E6 4300 D08D      0008D        5068          IC    R0,XPCEPUN+QUETYPE  GET SAME QUEUE TYPE.                 X3076000
                                   5069         $QADD  XPCEPUN,(R0),OLAY=YES  REQUEUE AT DIFFERENT PRIO.        X3078000

0038EA 4110 D08C      0008C        5070+         LA    R1,XPCEPUN                                               DG012000
0038EE 41E0 8148      038F8        5071+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
0038F2 1FE8                        5072+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
0038F4 47F0 B048      00048        5073+         B     $QADD               BRANCH TO CONTROL SERVICE PROGRAM    BA018000
0038F8 1831                        5074          LR    WB,R1               SAVE JQE ADR IN WB FOR REQUEUE.      X3080000

0038FA 5010 D064      00064        5075          ST    R1,XPCEJOB          SET NEW JQE POINTER.                 X3082000
0038FE 5F10 B13C      0013C        5076          SL    R1,$JOBQPTR         RELATIVIZE JQE ADDRESS.              X3084000
003902 5010 A058      00058        5077          ST    R1,JCTJQE           SAVE RELATIVE ADR IN JQE.            X3086000
003906                             5078 XENDUP   DS    0H                                                       X3088000

003906 D200 A091 3000 00091 00000  5079          MVC   JCTOPRIO,QUEPRIO(WB)  SAVE NEW PRIORITY IN JCT.          X3090000
00390C 5850 D074      00074        5080          L     WD,XPCEDCT          POINT TO THE DA DCT.                 X3092000
                            00000  5081          USING DCTDSECT,WD         USE THE DCT DSECT IN WD.             X3094000
003910 9240 5013      00013        5082          MVI   DCTIOTYP,DCTWRITE   SHOW WRITE REQUIRED.                 X3096000
003914 1B22                        5083          SR    WA,WA               SHOW $ASYNC SHOULD                   X3098000
003916 5020 500C      0000C        5084          ST    WA,DCTEWF           FREE THE BUFFER.                     X3100000

                                   5085 *                                                                       X3102000
XEQ      HASP EXECUTION PROCESSOR -- JOB TERMINATION SUBROUTINE                                                PAGE  113


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5086 *              WRITE OUT THE JCT                                        X3104000
                                   5087 *                                                                       X3106000

00391A 5820 D064      00064        5088          L     WA,XPCEJOB          POINT TO THE JQE.                    X3108000
00391E D203 5008 2008 00008 00008  5089          MVC   DCTSEEK,QUETRAK(WA) SET TRACK ADDRESS.                   X3110000
003924 50A0 5004      00004        5090          ST    JCT,DCTBUFAD        SET BUFFER ADDRESS.                  X3112000
003928 1BAA                        5091          SR    JCT,JCT             SHOW NO JCT.                         X3114000
                                   5092         $EXCP  (WD),OLAY=YES       START WRITING THE JCT.               X3116000

00392A 1815                        5093+         LR    R1,WD                                                    DG018000
00392C 45E0 B06C      0006C        5094+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
                                   5095 *                                                                       X3118000
                                   5096 *              WRITE OUT THE IOTS                                       X3120000
                                   5097 *                                                                       X3122000

003930 5820 D068      00068        5098          L     WA,XPCEIOT          POINT TO FIRST IOT.                  X3124000
003934 1222                        5099 XNXTIOT  LTR   WA,WA               DOES IT EXIST...                     X3126000
003936 4780 81A6      03956        5100          BZ    XENDXEQ             IF NOT, CLEAN UP.                    X3128000
                            00000  5101          USING IOTDSECT,WA         USE IOT DSECT.                       X3130000
00393A 5860 2058      00058        5102          L     WE,IOTIOT           SAVE POINTER TO NEXT IOT.            X3132000

00393E D203 5008 205C 00008 0005C  5103          MVC   DCTSEEK,IOTTRACK    SET TRACK ADDRESS.                   X3134000
003944 5020 5004      00004        5104          ST    WA,DCTBUFAD         SET BUFFER ADDRESS.                  X3136000
                                   5105         $EXCP  (WD),OLAY=YES       START WRITING THE IOT.               X3138000
003948 1815                        5106+         LR    R1,WD                                                    DG018000
00394A 45E0 B06C      0006C        5107+         BAL   LINK,$EXCP          LINK TO CONTROL SERVICE PROGRAM      EC010000
00394E 4120 6000      00000        5108          LA    WA,0(,WE)           POINT TO NEXT IOT.                   X3140000

003952 47F0 8184      03934        5109          B     XNXTIOT             LOOP TO WRITE AND FREE ALL.          X3142000
                                   5110          DROP  WD                  DROP DCT DSECT BASE.                 X3144000
                                   5111 *                                                                       X3146000
                                   5112 *              FREE THE DIRECT-ACCESS DCT                               X3148000

                                   5113 *                                                                       X3150000
003956                             5114 XENDXEQ  DS    0H                                                       X3152000
003956 5810 D074      00074        5115          L     R1,XPCEDCT          POINT TO THE DA DCT.                 X3154000
                                   5116         $FREUNIT (R1),OLAY=YES     FREE THE DCT                         X3156000
00395A 41E0 81B4      03964        5117+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000

00395E 1FE8                        5118+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000
003960 47F0 B044      00044        5119+         B     $FREUNIT            BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   5120 *                                                                       X3158000
                                   5121 *              QUEUE THE JOB FOR OUTPUT OR EXECUTION                    X3160000
                                   5122 *                                                                       X3162000
                                   5123         $QPUT  (WB),(WC),OLAY=YES  QUEUE JOB ACCORDING TO WC.           X3164000
003964 1813                        5124+         LR    R1,WB                                                    DG018000

003966 1804                        5125+         LR    R0,WC                                                    DG018000
003968 41E0 81C2      03972        5126+         LA    LINK,*+10           SET UP LINK REGISTER                 BA014000
00396C 1FE8                        5127+         SLR   LINK,BASE3           RELATIVE TO OVERLAY AREA            BA016000

00396E 47F0 B050      00050        5128+         B     $QPUT               BRANCH TO CONTROL SERVICE PROGRAM    BA018000
                                   5129 *                                                                       X3166000
                                   5130 *              TAKE CARE OF DUPLICATE JOBNAME                           X3168000
                                   5131 *                                                                       X3170000
003972 9180 D058      00058        5132          TM    XPCESTAT,XDUPBIT    IS A DUPLICATE JOB WAITING...        X3172000

003976 4780 81F4      039A4        5133          BZ    XNODUP              BRANCH IF NOT.                       X3174000
00397A 4110 B140      00140        5134          LA    R1,$JQENT-QUECHAIN  YES.  GET JOBQUEUE START.            X3176000
                                   5135 *XQNEXT  ICM   R1,7,QUECHAIN+1(R1) IS THIS A JQE...                RFIT X3178000
00397E 5811 0004      00004        5136 XQNEXT   L     R1,QUECHAIN(R1)                                     RFIT X3178005
003982 4110 1000      00000        5137          LA    R1,0(,R1)                                           RFIT X3178015
003986 1211                        5138          LTR   R1,R1                                               RFIT X3178020
003988 4780 81E4      03994        5139          BZ    XQEND               BRANCH IF NOT.                       X3180000
00398C 94DF 1004      00004        5140          NI    QUEFLAGS(R1),255-QUEHOLD2  YES.  RESET SPECIAL HOLD      X3182000

XEQ      HASP EXECUTION PROCESSOR -- JOB TERMINATION SUBROUTINE                                                PAGE  114


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


003990 47F0 81CE      0397E        5141          B     XQNEXT              AND GO TO NEXT JQE.                  X3184000
                                   5142 XQEND   $POST  $HASPECF,JOB        POST EVERYBODY FOR JOB.              X3186000
003994 94EF B0C4      000C4        5143+XQEND    NI    $HASPECF,255-$EWFJOB                                     PO008000
003998 5820 C990      00990        5144          L     WA,=V($CKPTPCE)     TAKE A CHECKPOINT.                   X3188000
                                   5145         $POST  PCEEWF+$EWBWORK-PCEDSECT(WA),WORK                        X3190000

00399C 94DF 2049      00049        5146+         NI    PCEEWF+$EWBWORK-PCEDSECT(WA),255-$EWFWORK                PO008000
0039A0 947F B0C4      000C4        5147+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   5148 *                                                                       X3192000
                                   5149 *              CLEAR PCE AND GO DORMANT.                                X3194000
                                   5150 *                                                                       X3196000
0039A4 D757 D058 D058 00058 00058  5151 XNODUP   XC    PCEWORK(XEQPCEWS),PCEWORK  CLEAR THE PCE WORKAREA.       X3198000
                                   5152         $DORMANT                   SHOW US DORMANT.                     X3200000
0039AA 4310 B0C7      000C7        5153+         IC    R1,$ACTIVE          INDICATE                             DO006000
0039AE 0610                        5154+         BCTR  R1,0                 PROCESSOR                           DO008000

0039B0 4210 B0C7      000C7        5155+         STC   R1,$ACTIVE            INACTIVE                           DO010000

                                   5156         $TRACE                                                          X3202000
                                   5157         $RETURN                    RETURN TO CALLER.                    X3204000
0039B4 45E0 B088      00088        5158+         BAL   LINK,$ORET          LINK TO OVERLAY SUPERVISOR           RE006000
                                   5159          DROP  WA                  DROP IOT ADDRESSABILITY.             X3206000
                                   5160 XPRITAB $XPRITAB                   GENERATE OUTPUT PRIORITY TABLE.      X3208000

0039B8                             5161+XPRITAB  DS    0H                                                       X0138000
                                   5162+*,PRIORITY 9 IF 2000 OR FEWER OUTPUT RECORDS
0039B8 900007D0                    5163+         DC    AL1(144),AL3(2000)                                       X0152000
                                   5164+*,PRIORITY 8 IF 5000 OR FEWER OUTPUT RECORDS
0039BC 80001388                    5165+         DC    AL1(128),AL3(5000)                                       X0152000
                                   5166+*,PRIORITY 7 IF 15000 OR FEWER OUTPUT RECORDS
0039C0 70003A98                    5167+         DC    AL1(112),AL3(15000)                                      X0152000
                                   5168+*,PRIORITY 6 IF 16777215 OR FEWER OUTPUT RECORDS
0039C4 60FFFFFF                    5169+         DC    AL1(96),AL3(16777215)                                    X0152000
0039C8 00FFFFFF                    5170+         DC    AL4(16777215)       END OF TABLE                 OY10206 X0155000

                                   5171          DROP  XDDB,JCT            THRU                                 X3210000

                                   5172          DROP  BASE3               TERMINATE                            X3212000
00097E                             5173 HASPXEQ  CSECT                     RETURN TO BASE SEGMENT               X3214000
000980                             5174 DARTSCR1 DS    F                   SCRATCH AREA                    RFIT X3214005
000988                             5175          DS    0D                  LITERAL POOL FOR EXECUTION PROCESSOR X3216000

000988                             5176          LTORG                                                          X3218000
000988 00001C9C                    5177                =A(XJCLECB)
00098C 00000000                    5178                =V($LOGPCE)
000990 00000000                    5179                =V($CKPTPCE)
000994 00000000                    5180                =V($XTHPCE)
000998 00001554                    5181                =A($DDBPOOL)
00099C 00000000                    5182                =V($EXECPCE)
0009A0 000007D0                    5183                =A($OUTXS)
0009A4 00003284                    5184                =A($PITABLE)
0009A8 D3C9D5C5                    5185                =C'LINE'
0009AC C3C1D9C4                    5186                =C'CARD'

0009B0 00000000                    5187                =V(XGETDDB)
0009B4 0060                        5188                =AL2(HDBSTART-BUFDSECT)
0009B6 40202020202120              5189                =X'40202020202120'
0009BD FFFFFF                      5190                =X'FFFFFF'

XEQ      HASP EXCP INTERFACE -- ENTRY POINT                                                                    PAGE  115


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0009C0                             5192 $EXCPSVC DS    0H                  ENTERED VIA BALR R14,R15             X3222000
                                   5193 *                                  R0  POINTS TO TCB                    X3224000
                                   5194 *                                  R2  POINTS TO IOB                    X3226000
                                   5195 *                                  R3  POINTS TO DEB                    X3228000
                                   5196 *                                  R4  POINTS TO DCB                    X3230000
                                   5197 *                                  R7  POINTS TO UCB                    X3232000
                                   5198 *                                  R14 POINTS TO RETURN ADDRESS         X3234000
                                   5199 *                                  R15 POINTS TO $EXCPSVC               X3236000
                            00000  5200          USING BUFDSECT,R2         ADDRESSABILITY FOR IOB               X3238000

                            00000  5201          USING DCBDSECT,R4         ADDRESSABILITY FOR DCB               X3242000
                            00000  5202          USING UCBDSECT,R7         ADDRESSABILITY FOR UCB               X3244000

0009C0 05C0                        5204          BALR  BASE2,0             ESTABLISH                            X3248000

                            009C2  5205          USING *,BASE2              ADDRESSABILITY.                     X3250000
0009C2 90EC C45A      00E1C        5206 XIBASE   STM   R14,R12,XSPSAVE     SAVE CALLER'S REGISTERS.             X3252000
0009C6 58B0 C5B2      00F74        5207          L     BASE1,XBAS1CON      LOAD HCT BASE.                       X3254000
                                   5208 *                                                                       X3256000
                                   5209 *              INSURE THAT THE FOLLOWING HASP AREAS ARE IN CORE ---     X3258000
                                   5210 *                                                                       X3260000
0009CA 9500 CDE0      017A2        5211          CLI   XEQLAST,0           ALL OF $EXCPSVC.                     X3262000
0009CE 9500 201B      0001B        5212          CLI   IOBRESTR+3,0        REAR PART OF IOB.                    X3264000


0009D2 5840 2014      00014        5214          L     R4,IOBDCBPT         POINT TO DCB.                        X3268000
0009D6 91C0 402C      0002C        5215          TM    DCBIFLGS,X'C0'      DOES DCB SHOW PERMANENT ERROR...     X3270000
0009DA 4780 C024      009E6        5216          BZ    *+12                SKIP IF NOT.                         X3272000

0009DE 9248 2004      00004        5217          MVI   IOBECBCC,X'48'      YES.  POST PURGE CODE                X3274000
0009E2 47F0 CCCE      01690        5218          B     XRET                AND RETURN TO CALLER.                X3276000


0009E6 1840                        5220          LR    R4,R0               POINT R4 TO THE TCB                  X3280000
                            00000  5221          USING TCBDSECT,R4         AND USE TCBDSECT.                    X3282000
0009E8 4070 C5BC      00F7E        5222          STH   R7,XTSUCB           SET UCB, IOB, DEB, TCB               X3284000
0009EC 9024 C5BE      00F80        5223          STM   R2,R4,XTSIOB        ADDRESSES IN 16* TABLE.              X3286000

0009F0 9101 2000      00000        5225          TM    IOBFLAG1,1          IS RESTART FLAG ON...                X3290000
0009F4 4710 C060      00A22        5226          BO    XRESTR              BRANCH IF YES.                       X3292000

                                   5228 *                                                                       X3296000
                                   5229 *              FIRST-TIME CHANNEL PROGRAM PROCESSING                    X3298000
                                   5230 *                                                                       X3300000


0009F8 D203 2018 2010 00018 00010  5232          MVC   IOBRESTR,IOBSTART   SHOW RESTART CCW ADDRESS.            X3304000

0009FE D706 2009 2009 00009 00009  5233          XC    IOBCSW,IOBCSW       CLEAR THE CSW.                       X3306000
                                   5234 *        ICM   R15,15,$XSMFENT     GET ADDRESS OF IEAMSFEX.        RFIT X3308000

000A04 58F0 B134      00134        5235          L     R15,$XSMFENT                                        RFIT X3308005
000A08 12FF                        5236          LTR   R15,R15                                             RFIT X3308010
000A0A 4780 C05C      00A1E        5237          BZ    XNOSMF              BRANCH IF SMF NOT SYSGENNED.         X3310000
000A0E 5840 2014      00014        5238          L     R4,IOBDCBPT         IEASMFEX WANTS R4 = DCB.             X3312000
000A12 05EF                        5239          BALR  R14,R15             GO TO SMF EXCP COUNTER.              X3314000
000A14 05E0                        5240          BALR  R14,0               ESTABLISH TEMPORARY                  X3316000
                            00A16  5241          USING *,R14                ADDRESSABILITY.                     X3318000
000A16 98BC E55E      00F74        5242          LM    BASE1,BASE2,XBAS1CON  RESTORE BASE REGISTERS.            X3320000
                                   5243          DROP  R14                 DROP TEMPORARY BASE.                 X3322000
000A1A 5840 C5C6      00F88        5244          L     R4,XTSTCB           POINT R4 AGAIN TO THE TCB.           X3324000
000A1E                             5245 XNOSMF   DS    0H                  SMF IS NOT IN THE SYSTEM.            X3326000
XEQ      HASP EXCP INTERFACE -- ENTRY POINT                                                                    PAGE  116



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000A1E 9601 2000      00000        5246          OI    IOBFLAG1,1          TURN ON IOB RESTART FLAG.            X3328000

XEQ      HASP EXCP INTERFACE -- ENTRY POINT                                                                    PAGE  117



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000A22                             5248 XRESTR   DS    0H                  NOT-FIRST-TIME PROCESSING START.     X3332000
000A22 4130 000A      0000A        5249          LA    R3,10               SET TIC COUNTER.             OY02728 X3333000
                                   5250          AIF   (&NUMINRS EQ 0).XINR1                                    X3334000
                                   5251 *                                                                       X3336000
                                   5252 *              TEST FOR REQUEST FOR INTERNAL READER                     X3338000
                                   5253 *                                                                       X3340000

000A26 9505 7013      00013        5255          CLI   UCBTBYT4,X'05'      IS UNIT A 2520 PUNCH...              X3344000
000A2A 4770 C12A      00AEC        5256          BNE   XINR9               IF NOT, SKIP INTRDR CODE.            X3346000
000A2E 5850 C126      00AE8        5257          L     R5,XINRDCT          POINT TO FIRST INTRDR DSECT          X3348000
                            00000  5258          USING DCTDSECT,R5         AND USE ADDRESSABILITY.              X3350000

                                   5259          LA    R0,&NUMINRS         GET INTRDR COUNT FOR LOOP.           X3352000
000A32 4100 0006      00006        5260+         LA    R0,6                GET INTRDR COUNT FOR LOOP.           X3352000
000A36 5970 5038      00038        5261 XINR1    C     R7,RIDUCB           DOES DCT POINT TO UCB...             X3354000

000A3A 4780 C088      00A4A        5262          BE    XINR2               B IF SO - DCT FOUND.                 X3356000
000A3E 5850 5014      00014        5263          L     R5,DCTCHAIN         NO. POINT TO NEXT DCT                X3358000
000A42 4600 C074      00A36        5264          BCT   R0,XINR1            AND LOOP.                            X3360000
000A46 47F0 C12A      00AEC        5265          B     XINR9               NO DCT MATCHES - SKIP INTRDR CODE.   X3362000

                                   5267 *                                                                       X3366000
                                   5268 *              INTERNAL READER PROCESSING                               X3368000
                                   5269 *                                                                       X3370000

000A4A                             5271 XINR2    DS    0H                                                       X3374000
000A4A 58D0 5000      00000        5272          L     R13,DCTPCE          POINT TO INTRDR PCE.                 X3376000
000A4E 9500 5098      00098        5273          CLI   DCTEND,0            INSURE WHOLE DCT IS IN CORE.         X3378000

000A52 9500 D000      00000        5274          CLI   PCESAVEA,0          INSURE WHOLE PCE                     X3380000
000A56 9500 D0B0      000B0        5275          CLI   XEQPCEWS+PCEWORK,0  IS IN CORE.                          X3382000
000A5A 949F 5000      00000        5276          NI    DCTSTAT,255-DCTHOLD-DCTDRAIN  BE SURE INTRDR IS READY.   X3384000
000A5E D203 5044 407C 00044 0007C  5277          MVC   RIDTCB,TCBJSTCB     SAVE CALLER'S TCB IN DCT.            X3386000

000A64 9180 5000      00000        5278          TM    DCTSTAT,DCTINUSE    IF INTRDR IS INACTIVE,               X3388000
000A68 4780 C110      00AD2        5279          BZ    XINR5               GO $POST FOR UNIT.                   X3390000
000A6C 9140 503C      0003C        5280          TM    RIDFLAGS,RIDBUSY    IF INTRDR IS NOT WAITING I/O,        X3392000
000A70 4780 C118      00ADA        5281          BZ    XINR6               GO FREEZE THE CALLER.                X3394000
000A74 45E0 CA68      0142A        5282          BAL   R14,XCCWSCAN        GO GET A CCW.                        X3396000
000A78 47F0 CCCE      01690        5283          B     XRET                RETURN IF NONE FOUND.                X3398000

000A7C 9101 6000      00000        5284          TM    0(R6),1             IS IT WRITE OR CONTROL...            X3400000
000A80 4780 C0CA      00A8C        5285          BZ    XINR3               BRANCH IF NOT.                       X3402000
000A84 9102 6000      00000        5286          TM    0(R6),2             IS IT WRITE...                       X3404000
000A88 4780 C0D2      00A94        5287          BZ    XINR4               BRANCH IF SO.                        X3406000
000A8C 9604 200C      0000C        5288 XINR3    OI    IOBCSW+3,4          NOT WRITE CCW.  SHOW COMPLETE        X3408000
000A90 47F0 CA68      0142A        5289          B     XCCWSCAN            AND GET NEXT CCW.                    X3410000
                                   5290 *                                                                       X3412000
                                   5291 *              PROCESS A WRITE CCW                                      X3414000

                                   5292 *                                                                       X3416000
000A94 06A0                        5293 XINR4    BCTR  R10,0               REDUCE LENGTH BY 1 FOR MVC.          X3418000

000A96 49A0 C0DE      00AA0        5294          CH    R10,*+10            WAS LENGTH MORE THAN 80...           X3420000
000A9A 47D0 C0E0      00AA2        5295          BNH   *+8                 SKIP IF NOT.                         X3422000
000A9E 41A0 004F      0004F        5296          LA    R10,79              SET LENGTH-1 TO 79.                  X3424000
000AA2 9240 5048      00048        5297          MVI   RIDDATA,C' '        CLEAR OUT THE                        X3426000
000AA6 D24E 5049 5048 00049 00048  5298          MVC   RIDDATA+1(79),RIDDATA  CARD BUFFER IN THE DCT.           X3428000
000AAC 44A0 C120      00AE2        5299          EX    R10,XINRMVC         MOVE CARD IMAGE TO DCT.              X3430000
000AB0 9604 200C      0000C        5300          OI    IOBCSW+3,4          SHOW CCW COMPLETE.                   X3432000
000AB4 4180 C118      00ADA        5301          LA    R8,XINR6            SET EXIT FOR MORE CCWS.              X3434000

000AB8 45E0 CA68      0142A        5302          BAL   R14,XCCWSCAN        CHECK FOR ANOTHER CCW.               X3436000
XEQ      HASP EXCP INTERFACE -- ENTRY POINT                                                                    PAGE  118


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000ABC 4180 CCCE      01690        5303          LA    R8,XRET             SET EXIT FOR NO MORE CCWS.           X3438000
000AC0 94BF 503C      0003C        5304          NI    RIDFLAGS,255-RIDBUSY  SHOW HASPRDR THAT DATA EXISTS.     X3440000

                                   5305         $POST  PCEEWF+$EWBIO,IO    $POST INTRDR PCE FOR I/O.            X3442000
000AC4 94BF D049      00049        5306+         NI    PCEEWF+$EWBIO,255-$EWFIO                                 PO008000
000AC8 947F B0C4      000C4        5307+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000

000ACC 18E8                        5308          LR    R14,R8              SET RETURN FROM XINRFIRE             X3444000
000ACE 47F0 CB9E      01560        5309          B     XINRFIRE            AND GO POST THE HASP TASK.           X3446000

                                   5311 XINR5   $POST  $HASPECF,UNIT       $POST UNIT TO MAKE INTRDR ACTIVE.    X3450000
000AD2 94F7 B0C4      000C4        5312+XINR5    NI    $HASPECF,255-$EWFUNIT                                    PO008000
000AD6 45E0 CB9E      01560        5313          BAL   R14,XINRFIRE        GO POST THE HASP TASK.               X3452000
000ADA 9680 503C      0003C        5314 XINR6    OI    RIDFLAGS,RIDPOST    SHOW INTRDR MUST START UP USER.      X3454000

000ADE 47F0 CC94      01656        5315          B     XFREEZE             GO NONDISPATCH THE USER.             X3456000



000AE2 D200 5048 F000 00048 00000  5317 XINRMVC  MVC   RIDDATA(*-*),0(R15) *** EXECUTE ONLY ***                 X3460000
000AE8 00000000                    5318 XINRDCT  DC    V($INRDCT)          POINTER TO FIRST INTRDR DCT.         X3462000




000AEC                             5320 XINR9    DS    0H                  LABEL TO BYPASS INTRDR CODE.         X3466000
                                   5321 *                                                                       X3468000
                                   5322 *              END OF INTERNAL READER CODE                              X3470000
                                   5323 *                                                                       X3472000

                                   5324 .XINR1   ANOP                                                           X3474000
XEQ      HASP EXCP INTERFACE -- ESTABLISH PCE AND DDB                                                          PAGE  119


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000AEC D502 700D C1A2 0000D 00B64  5326          CLC   UCBNAME,$RDRUNIT    IS THIS THE HASP READER UNIT...      X3478000
000AF2 4780 C5CC      00F8E        5327          BE    XRDRCALL            BRANCH IF SO.                        X3480000


000AF6 D502 700D C5A2 0000D 00F64  5329          CLC   UCBNAME,$WTRUNIT    IS THIS THE HASP WRITER UNIT...      X3484000
000AFC 4780 C63A      00FFC        5330          BE    XWTRCALL            BRANCH IF SO.                        X3486000

000B00 9503 B0C3      000C3        5332          CLI   $CURPCE,PCEXEQID    IS ANY XEQ PCE IN CONTROL...         X3490000
000B04 4780 CC76      01638        5333          BE    XSLUSH              IF SO, SLUSH REQUESTOR.              X3492000


000B08 58F0 CD9E      01760        5335          L     R15,=V(XJOBSRCH)    GO FIND THE PCE                      X3496000
000B0C 05EF                        5336          BALR  LINK,R15             FOR THIS JOB.                       X3498000
000B0E 47C0 C44A      00E0C        5337          BC    8+4,XRETURN4        PCE NOT FOUND - ABEND 100.           X3500000
000B12 4710 CC4A      0160C        5338          BC    1,XPROTRDR          PCE FOUND BY JOBNAME-BRANCH  OY08671 X3501000

000B16 D203 D060 407C 00060 0007C  5339          MVC   XPCEJST,TCBJSTCB    PUT JOBSTEP TCB ADR INTO XEQ PCE.    X3502000
000B1C 4720 C402      00DC4        5340          BC    2,XFINDDDB          PCE FOUND BY JSCB - BRANCH.          X3504000

                                   5342 *                                                                       X3508000
                                   5343 *              END OF STEP - TERMINATE DDBS.                            X3510000

                                   5344 *                                                                       X3512000

000B20                             5346 XTERMDDB DS    0H                                                       X3516000
000B20 4150 D078      00078        5347          LA    R5,XPCEDDB-(DDBCHAIN-DDBDSECT)  TERMINATE DDBS.          X3518000
                            00000  5348          USING DDBDSECT,R5         USE DDB DSECT.                       X3520000

000B24 1B00                        5349          SR    R0,R0               ZERO R0 FOR TERMINATION COUNTER.     X3522000
                                   5350 *XTDDB1  ICM   R5,7,DDBCHAIN+1     GET NEXT DDB.                   RFIT X3524000
000B26 5850 5000      00000        5351 XTDDB1   L     R5,DDBCHAIN                                         RFIT X3524005
000B2A 1255                        5352          LTR   R5,R5                                               RFIT X3524010
000B2C 4780 C188      00B4A        5353          BZ    XTDDB2              BRANCH IF END OF CHAIN.              X3526000
000B30 9110 5004      00004        5354          TM    DDBTYPE,XLOGDDB     IF LOG DDB,                          X3528000

000B34 4710 C164      00B26        5355          BO    XTDDB1              SKIP IT.                             X3530000
000B38 9110 5009      00009        5356          TM    DDBSTAT2,XOPEN      IF UNOPENED DDB,                     X3532000
000B3C 4780 C164      00B26        5357          BZ    XTDDB1              SKIP IT.                             X3534000
000B40 9601 5009      00009        5358          OI    DDBSTAT2,XTERM      OTHERWISE, TERMINATE IT.             X3536000

000B44 0600                        5359          BCTR  R0,0                COUNT A TERMINATED DDB.              X3538000
000B46 47F0 C164      00B26        5360          B     XTDDB1              GO CHECK NEXT DDB.                   X3540000
                                   5361 XTDDB2  $POST  PCEEWF+$EWBDDB,DDB  END - POST XEQ PCE FOR DDBS          X3542000
000B4A 94F7 D049      00049        5362+XTDDB2   NI    PCEEWF+$EWBDDB,255-$EWFDDB                               PO008000
000B4E 947F B0C4      000C4        5363+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000

000B52 94BF D059      00059        5364          NI    XSYNCFLG,255-XALLOCWT  AND SHOW NOT WAITING ALLOC.       X3544000
000B56 1000                        5365          LPR   R0,R0               IF NO DDBS WERE TERMINATED,          X3546000
000B58 4780 C1B0      00B72        5366          BZ    XTDDB3              CONTINUE PROCESSING.                 X3548000
000B5C 45E0 CB96      01558        5367          BAL   LINK,XFIREUP        POST PCE AND HASP.                   X3550000
000B60 47F0 CC94      01656        5368          B     XFROZE              FREEZE CALLER.                       X3552000

                                   5370 *        FOLLOWING WORK ELEMENTS MUST BE LOCATED HERE TO INSURE         X3553000

                                   5371 *        ADDRESSABILITY FROM EXECUTION PROCESSOR.                       X3553500

                                   5373 $RDRUNIT DC    C'&RDR'             EBCDIC NAME OF READER UCB            X3554200

000B64 F7F0F0                      5374+$RDRUNIT DC    C'700'              EBCDIC NAME OF READER UCB            X3554200
                                   5375          ENTRY $RDRPCE                                                  X3554400
000B67 00
000B68 00000000                    5376 $RDRPCE  DC    A(0)                PCE USING &RDR, IF +                 X3554600
000B6C 00000000                    5377 $RDRDDB  DC    A(0)                &RDR DDB, IF $RDRPCE +               X3554800

000B70 00                          5378 XPITSENQ DC    FL1'0'              JOB SELECTION RESOURCE               X3555000

XEQ      HASP EXCP INTERFACE -- ESTABLISH PCE AND DDB                                                          PAGE  120


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5380 *                                                                       X3556000
                                   5381 *              START OF NEW STEP - SHOW PCE IN JSCB.                    X3558000
                                   5382 *                                                                       X3560000


                                   5384          AIF   (&SYSMVT OR &SYSVS2).XMVT1                          RFIT X3562100
                                   5385 .XMVT1   ANOP                                                      RFIT X3562600

000B71 00
000B72 58F0 407C      0007C        5386 XTDDB3   L     R15,TCBJSTCB        POINT TO JOB STEP TCB                X3564000
                            00000  5387          USING TCBDSECT,R15        USE ALTERNATE TCB DSECT.             X3566000
000B76 58F0 F084      00084        5388          L     R15,TCBOTC          POINT TO INITIATOR TCB.              X3568000
000B7A 58F0 F050      00050        5389          L     R15,TCBGRS+R8*4     POINT TO IEFSD263 CALLING PARMS      X3570000

                                   5390          DROP  R15                 DROP TCB DSECT.                      X3572000
                            0000C  5391 IEFLCTAD EQU   X'C',4              LCT IS FOURTH PARAMETER.             X3574000
000B7E 58F0 F00C      0000C        5392          L     R15,IEFLCTAD(,R15)  POINT TO THE LINKAGE CTRL TAB.       X3576000
                            0003A  5393 LCTSNUMB EQU   X'3A',1             CURRENT STEP NUMBER.                 X3578000
000B82 D200 D05B F03A 0005B 0003A  5394          MVC   XPCESTEP+1(1),LCTSNUMB(R15)  MOVE STEP NR TO PCE.        X3580000
                                   5395 .XMFT1   ANOP                                                      RFIT X3580100

                                   5397 *                                                                       X3584000
                                   5398 *        A D J U S T   D D   N U M B E R S   F O R   G D G              X3586000

                                   5399 *                                                                       X3588000


000B88 D200 C3EF D05B 00DB1 0005B  5401          MVC   XDDNR+1(1),XPCESTEP+1  SAVE STEP NUMBER                  X3592000
000B8E 1F11                        5402          SLR   R1,R1               ZERO WORK REG FOR INITIALIZATION     X3594000
000B90 5010 C3DA      00D9C        5403          ST    R1,X1STPDDB         SHOW NO FIRST PDDB ADDRESS           X3596000
000B94 5010 C3DE      00DA0        5404          ST    R1,X1STDDB           AND NO FIRST DDB ADDRESS            X3598000

000B98 4010 C3F0      00DB2        5405          STH   R1,XDDNR+2          INITIALIZE STEP DD NUMBER            X3600000
000B9C 5880 407C      0007C        5406          L     R8,TCBJSTCB         RELOAD TCB ADDRESS                   X3602000
000BA0 5880 800C      0000C        5407          L     R8,TCBTIO-TCBDSECT(,R8)  GET ADDRESS OF TIOT             X3604000
000BA4 4180 8018      00018        5408          LA    R8,24(,R8)          THEN ITS FIRST DD ENTRY              X3606000

                                   5410 *                                                                  RFIT X3610000
                                   5411 *                                                                  RFIT X3612000
                                   5412 *                                                                  RFIT X3614000

                                   5414 *                                                                  RFIT X3618000

                                   5416 *                                                                  RFIT X3622000

                                   5417 *                                                                  RFIT X3624000

000BA8 4150 D078      00078        5419          LA    R5,XPCEDDB-(DDBCHAIN-DDBDSECT)  SET UP TO CHAIN DDBS     X3628000


                                   5421 *XNDDB1  ICM   R5,7,DDBCHAIN+1     GET ADDRESS OF NEXT DDB         RFIT X3632000
000BAC 5850 5000      00000        5422 XNDDB1   L     R5,DDBCHAIN                                         RFIT X3632005
000BB0 1255                        5423          LTR   R5,R5                                               RFIT X3632010
000BB2 4780 C21E      00BE0        5424          BZ    XNXTNTRY            BR IF END OF DDB CHAIN               X3634000
000BB6 D500 D05B 5015 0005B 00015  5425          CLC   XPCESTEP+1(1),DDBDDNR+1  TEST STEP NUMBER                X3636000
000BBC 4770 C1EA      00BAC        5426          BNE   XNDDB1              BR IF NOT REACHED CURRENT STEP       X3638000
000BC0 9500 5023      00023        5427          CLI   DDBLNG-1(R5),0      INSURE ALL OF DDB IN MAIN STORAGE    X3640000
000BC4 5050 C3DE      00DA0        5428          ST    R5,X1STDDB           ELSE SAVE ADDR OF FIRST GOOD DDB    X3642000


                                   5430 *XNDDB2  ICM   R5,7,DDBCHAIN+1     GET ADDRESS OF NEXT DDB         RFIT X3646000

000BC8 5850 5000      00000        5431 XNDDB2   L     R5,DDBCHAIN                                         RFIT X3646005
000BCC 1255                        5432          LTR   R5,R5               GET ADDRESS OF NEXT DDB         RFIT X3646010
000BCE 4780 C21E      00BE0        5433          BZ    XNXTNTRY            BR IF END OF DDB CHAIN               X3648000
XEQ      HASP EXCP INTERFACE -- ESTABLISH PCE AND DDB                                                          PAGE  121



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000BD2 9500 5023      00023        5434          CLI   DDBLNG-1(R5),0      INSURE ALL OF DDB IN MAIN STORAGE    X3650000
000BD6 D500 D05B 5015 0005B 00015  5435          CLC   XPCESTEP+1(1),DDBDDNR+1  TEST STEP NUMBER                X3652000
000BDC 4780 C206      00BC8        5436          BE    XNDDB2              BR IF SAME STEP                      X3654000

                                   5438 *XNXTNTRYICM   R1,1,0(R8)          GET LENGTH OF TIOT DD ENTRY     RFIT X3658000
000BE0 4318 0000      00000        5439 XNXTNTRY IC    R1,0(R8)                                            RFIT X3658005
000BE4 9500 8000      00000        5440          CLI   0(R8),0                                             RFIT X3658010
000BE8 4780 C3F2      00DB4        5441          BZ    XLSTNTRY            BR IF LAST DD ENTRY                  X3660000
000BEC 4170 0001      00001        5442          LA    R7,1                INCREMENT TIOT                       X3662000
000BF0 4A70 C3F0      00DB2        5443          AH    R7,XDDNR+2           DD ENTRY NUMBER                     X3664000

000BF4 4070 C3F0      00DB2        5444          STH   R7,XDDNR+2            AND USE FOR DDB/PDDB DD NUMBER     X3666000
                                   5445 *        ICM   R7,3,18(R8)         GET UCB ADDRESS                 RFIT X3668000
000BF8 4870 8012      00012        5446          LH    R7,18(,R8)                                          RFIT X3668005
000BFC 1277                        5447          LTR   R7,R7               GET UCB ADDRESS                 RFIT X3668020

000BFE 4181 8000      00000        5448          LA    R8,0(R1,R8)         GET ADDRESS OF NEXT TIOT DD ENTRY    X3670000
000C02 4780 C21E      00BE0        5449          BZ    XNXTNTRY            BR IF INVALID UCB ADDRESS            X3672000
000C06 9101 700B      0000B        5450          TM    UCBATI,UCBHPDV      TEST FOR PSEUDO DEVICE               X3674000
000C0A 4780 C21E      00BE0        5451          BZ    XNXTNTRY            BR IF NO                             X3676000
000C0E 9505 7013      00013        5452          CLI   UCBTBYT4,X'05'      IS UNIT A 2520 PUNCH                 X3677000
000C12 4780 C21E      00BE0        5453          BE    XNXTNTRY            IGNORE IF YES                        X3677500
000C16 9501 7013      00013        5454          CLI   UCBTBYT4,XINUCB     TEST FOR SYSIN                       X3678000
000C1A 5870 CDA2      01764        5455          L     R7,=A(X'00007FFF')  INITIALIZE SEARCH DD NUMBER          X3680000
000C1E 4780 C39A      00D5C        5456          BE    XFDDB               BR IF SYSIN TO UPDATE DDBS           X3682000
XEQ      HASP EXCP INTERFACE -- ESTABLISH PCE AND DDB                                                          PAGE  122


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5458 *                                                                       X3686000

                                   5459 *        U P D A T E   P D D B   D D   N U M B E R S                    X3688000
                                   5460 *                                                                       X3690000


                            00000  5462          USING IOTDSECT,R6         PROVIDE IOT ADDRESSABILITY           X3694000
                            00000  5463          USING PDBDSECT,R10        PROVIDE PDDB ADDRESSABILITY          X3696000

000C22 58A0 C3DA      00D9C        5465 XFPDDB   L     R10,X1STPDDB        GET ADDRESS OF 1ST PDDB THIS STEP    X3700000
000C26 12AA                        5466          LTR   R10,R10             TEST FOR PRIOR ENTRY                 X3702000
000C28 4780 C27C      00C3E        5467          BZ    XFPDDB1             BR IF FIRST ENTRY THIS STEP          X3704000
000C2C 5860 C3E2      00DA4        5468          L     R6,XIOTADDR         GET ADDRESS OF 1ST IOT THIS STEP     X3706000
000C30 5800 60D4      000D4        5469          L     R0,IOTPDDBP         GET OFFSET OF END OF PDDBS THIS IOT  X3708000
000C34 1E06                        5470          ALR   R0,R6               CONVERT TO ABSOLUTE                  X3710000
000C36 4310 A002      00002        5471          IC    R1,PDBLENG          GET PDDB LENGTH                      X3712000
000C3A 47F0 C300      00CC2        5472          B     XNPDDB3              AND BR TO SCAN PDDBS                X3714000


                                   5474 *                                                                       X3718000

                                   5475 *        L O C A T E   F I R S T   P D D B   T H I S   S T E P          X3720000
                                   5476 *                                                                       X3722000


000C3E 4160 D010      00010        5478 XFPDDB1  LA    R6,XPCEIOT-(IOTIOT-IOTDSECT)  SET UP TO CHAIN IOTS       X3726000

                                   5480 *XNIOT1  ICM   R6,7,IOTIOT+1       GET ADDRESS OF NEXT IOT         RFIT X3730000
000C42 5860 6058      00058        5481 XNIOT1   L     R6,IOTIOT           GET ADDRESS OF NEXT IOT         RFIT X3730005
000C46 4160 6000      00000        5482          LA    R6,0(,R6)           GET ADDRESS OF NEXT IOT         RFIT X3730010
000C4A 1266                        5483          LTR   R6,R6               GET ADDRESS OF NEXT IOT         RFIT X3730015
000C4C 4780 C3F2      00DB4        5484          BZ    XLSTNTRY            EXIT IF NO PDDBS THIS STEP           X3732000
000C50 41A0 60D8      000D8        5485          LA    R10,IOTPDDB         GET ADDRESS OF FIRST PDDB THIS IOT   X3734000
000C54 5800 60D4      000D4        5486          L     R0,IOTPDDBP         GET OFFSET OF END OF PDDBS THIS IOT  X3736000
000C58 1E06                        5487          ALR   R0,R6               CONVERT TO ABSOLUTE                  X3738000
000C5A 1F11                        5488          SLR   R1,R1               ZERO PDDB LENGTH REGISTER            X3740000


000C5C 1EA1                        5490 XNPDDB1  ALR   R10,R1              GET ADDRESS OF NEXT PDDB THIS IOT    X3744000

000C5E 15A0                        5491          CLR   R10,R0              TEST FOR LAST PDDB IN IOT            X3746000

000C60 47B0 C280      00C42        5492          BNL   XNIOT1              BR IF YES                            X3748000
000C64 4310 A002      00002        5493          IC    R1,PDBLENG          GET PDDB LENGTH                      X3750000
000C68 9140 A000      00000        5494          TM    PDBFLAG1,PDB1NULL   TEST OUTPUT ELIGIBILITY              X3752000
000C6C 4780 C29A      00C5C        5495          BZ    XNPDDB1             BR IF NOT STEP NUMBER / DD NUMBER    X3754000
000C70 D500 D05B A004 0005B 00004  5496          CLC   XPCESTEP+1(1),PDBSTNR+1  TEST STEP NUMBER                X3756000
000C76 4770 C29A      00C5C        5497          BNE   XNPDDB1             BR IF NOT REACHED CURRENT STEP       X3758000
000C7A 4870 A005      00005        5498          LH    R7,PDBSTNR+2-PDBDSECT(,R10)  GET PDDB DD NUMBER          X3760000
000C7E                      00C7A  5499          ORG   *-4                                                 RFIT X3760005
000C7A 1777                        5500          XR    R7,R7                                               RFIT X3760010
000C7C 437A 0006      00006        5501          IC    R7,PDBDDNR+1-PDBDSECT(R10) GET PDDB DD NUMBER       RFIT X3760015
000C80 50A0 C3DA      00D9C        5502          ST    R10,X1STPDDB        SAVE ADDRESS OF THIS PDDB            X3762000
000C84 50A0 C3E6      00DA8        5503          ST    R10,XPDBWORK         SAVE ALSO FOR UPDATE                X3764000

000C88 5060 C3E2      00DA4        5504          ST    R6,XIOTADDR         SAVE ADDRESS OF THIS IOT             X3766000
000C8C 5060 C3EA      00DAC        5505          ST    R6,XIOTWORK          SAVE ALSO FOR UPDATE                X3768000
000C90 47F0 C2EC      00CAE        5506          B     XNPDDB2               AND BR TO UPDATE DD NUMBER         X3770000

XEQ      HASP EXCP INTERFACE -- ESTABLISH PCE AND DDB                                                          PAGE  123


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5508 *                                                                       X3774000
                                   5509 *        F I N D   P D D B   W I T H   L O W E S T   D D   N U M B E R  X3776000
                                   5510 *                                                                       X3778000

                                   5512 *XNIOT2  ICM   R6,7,IOTIOT+1       GET ADDRESS OF NEXT IOT         RFIT X3782000
000C94 5860 6058      00058        5513 XNIOT2   L     R6,IOTIOT           GET ADDRESS OF NEXT IOT         RFIT X3782005
000C98 4160 6000      00000        5514          LA    R6,0(,R6)           GET ADDRESS OF NEXT IOT         RFIT X3782010
000C9C 1266                        5515          LTR   R6,R6               GET ADDRESS OF NEXT IOT         RFIT X3782015
000C9E 4780 C32C      00CEE        5516          BZ    XDDNR1              BR IF END OF IOT CHAIN               X3784000
000CA2 41A0 60D8      000D8        5517          LA    R10,IOTPDDB         GET ADDRESS OF FIRST PDDB THIS IOT   X3786000

000CA6 5800 60D4      000D4        5518          L     R0,IOTPDDBP         GET OFFSET OF END OF PDDBS THIS IOT  X3788000
000CAA 1E06                        5519          ALR   R0,R6               CONVERT TO ABSOLUTE                  X3790000
000CAC 1F11                        5520          SLR   R1,R1               ZERO PDDB LENGTH REGISTER            X3792000


000CAE 1EA1                        5522 XNPDDB2  ALR   R10,R1              GET ADDRESS OF NEXT PDDB THIS IOT    X3796000
000CB0 15A0                        5523          CLR   R10,R0              TEST FOR LAST PDDB IN IOT            X3798000
000CB2 47B0 C2D2      00C94        5524          BNL   XNIOT2              BR IF YES                            X3800000
000CB6 4310 A002      00002        5525          IC    R1,PDBLENG          GET PDDB LENGTH                      X3802000
000CBA 9140 A000      00000        5526          TM    PDBFLAG1,PDB1NULL   TEST OUTPUT ELIGIBILITY              X3804000
000CBE 4780 C2EC      00CAE        5527          BZ    XNPDDB2             BR IF NOT STEP NUMBER / DD NUMBER    X3806000


000CC2 9180 A003      00003        5529 XNPDDB3  TM    PDBSTNR,X'80'       TEST FOR UPDATED DD NUMBER           X3810000
000CC6 4710 C2EC      00CAE        5530          BO    XNPDDB2             BR IF YES                            X3812000
000CCA D500 D05B A004 0005B 00004  5531          CLC   XPCESTEP+1(1),PDBSTNR+1  TEST STEP NUMBER                X3814000
000CD0 4770 C32C      00CEE        5532          BNE   XDDNR1              BR IF NEW STEP                       X3816000
000CD4 48F0 A005      00005        5533          LH    R15,PDBSTNR+2-PDBDSECT(,R10)  GET PDDB DD NUMBER         X3818000
000CD8                      00CD4  5534          ORG   *-4                                                 RFIT X3818005
000CD4 17FF                        5535          XR    R15,R15                                             RFIT X3818010

000CD6 43FA 0006      00006        5536          IC    R15,PDBDDNR+1-PDBDSECT(R10) GET PDDB DD NUMBER      RFIT X3818015
000CDA 157F                        5537          CLR   R7,R15              COMPARE TO CURRENT LOWEST DD NUMBER  X3820000

000CDC 47D0 C2EC      00CAE        5538          BNH   XNPDDB2             BR IF NOT LOWER                      X3822000
000CE0 187F                        5539          LR    R7,R15               ELSE LOAD LOWER DD NUMBER           X3824000
000CE2 50A0 C3E6      00DA8        5540          ST    R10,XPDBWORK        SAVE CURRENT PDDB ADDRESS            X3826000
000CE6 5060 C3EA      00DAC        5541          ST    R6,XIOTWORK          AND ADDRESS OF CURRENT IOT          X3828000
000CEA 47F0 C2EC      00CAE        5542          B     XNPDDB2             THEN CONTINUE THE PDDB SCAN          X3830000
XEQ      HASP EXCP INTERFACE -- ESTABLISH PCE AND DDB                                                          PAGE  124


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

000CEE 58A0 C3E6      00DA8        5544 XDDNR1   L     R10,XPDBWORK        GET ADDRESS OF PDDB WITH LOWEST NR   X3834000

000CF2 D203 A003 C3EE 00003 00DB0  5545          MVC   PDBSTNR(4),XDDNR    MOVE FLAG AND UPDATED DD NUMBER      X3836000
000CF8 9110 A000      00000        5546          TM    PDBFLAG1,PDB1MDES   TEST FOR MULTIPLE DESTINATION PDDB   X3838000
000CFC 4780 C21E      00BE0        5547          BZ    XNXTNTRY            RETURN IF NO                         X3840000
000D00 5860 C3EA      00DAC        5548          L     R6,XIOTWORK         GET ADDRESS OF IOT FOR THIS PDDB     X3842000
000D04 4310 A002      00002        5549          IC    R1,PDBLENG          GET PDDB LENGTH                      X3844000

000D08 47F0 C35E      00D20        5550          B     XNPDDB4              AND GO TO TEST NEXT PDDB            X3846000

                                   5552 *XNIOT3  ICM   R6,7,IOTIOT+1       GET ADDRESS OF NEXT IOT         RFIT X3850000

000D0C 5860 6058      00058        5553 XNIOT3   L     R6,IOTIOT           GET ADDRESS OF NEXT IOT         RFIT X3850005
000D10 4160 6000      00000        5554          LA    R6,0(,R6)           GET ADDRESS OF NEXT IOT         RFIT X3850010
000D14 1266                        5555          LTR   R6,R6               GET ADDRESS OF NEXT IOT         RFIT X3850015
000D16 4780 C21E      00BE0        5556          BZ    XNXTNTRY            RETURN IF END OF IOT CHAIN           X3852000
000D1A 41A0 60D8      000D8        5557          LA    R10,IOTPDDB         GET ADDRESS OF FIRST PDDB THIS IOT   X3854000
000D1E 1F11                        5558          SLR   R1,R1               ZERO PDDB LENGTH REGISTER            X3856000


000D20 5800 60D4      000D4        5560 XNPDDB4  L     R0,IOTPDDBP         GET OFFSET OF END OF PDDBS THIS IOT  X3860000
000D24 1E06                        5561          ALR   R0,R6               CONVERT TO ABSOLUTE                  X3862000

000D26 1EA1                        5563 XNPDDB5  ALR   R10,R1              GET ADDRESS OF NEXT PDDB THIS IOT    X3866000
000D28 15A0                        5564          CLR   R10,R0              TEST FOR LAST PDDB IN IOT            X3868000

000D2A 47B0 C34A      00D0C        5565          BNL   XNIOT3              BR IF YES                            X3870000
000D2E D500 D05B A004 0005B 00004  5566          CLC   XPCESTEP+1(1),PDBSTNR+1  TEST STEP NUMBER                X3872000
000D34 4770 C21E      00BE0        5567          BNE   XNXTNTRY            RETURN IF NO MORE PDDBS THIS STEP    X3874000
000D38 4970 A005      00005        5568          CH    R7,PDBSTNR+2-PDBDSECT(,R10)  TEST FOR SAME DD NUMBER     X3876000

000D3C                      00D38  5569          ORG   *-4                                                 RFIT X3876005
000D38 D201 C456 A005 00E18 00005  5570          MVC   DARTSCR2(2),PDBDDNR   TEST FOR                      RFIT X3876010
000D3E 4970 C456      00E18        5571          CH    R7,DARTSCR2             SAME DD NUMBER              RFIT X3876015
000D42 4770 C21E      00BE0        5572          BNE   XNXTNTRY            RETURN IF NO MORE LIKE PDDBS         X3878000
000D46 D203 A003 C3EE 00003 00DB0  5573          MVC   PDBSTNR(4),XDDNR    MOVE FLAG AND UPDATED DD NUMBER      X3880000
000D4C 9110 A000      00000        5574          TM    PDBFLAG1,PDB1MDES   TEST FOR MULTIPLE DESTINATION PDDB   X3882000

000D50 4780 C21E      00BE0        5575          BZ    XNXTNTRY            RETURN IF NO                         X3884000
000D54 4310 A002      00002        5576          IC    R1,PDBLENG          GET PDDB LENGTH                      X3886000
000D58 47F0 C364      00D26        5577          B     XNPDDB5              AND GO TO TEST NEXT PDDB            X3888000

                                   5579          DROP  R6                  KILL IOT ADDRESSABILITY              X3892000

                            00000  5580          USING JCTDSECT,JCT        RESTORE JCT ADDRESSABILITY           X3894000
XEQ      HASP EXCP INTERFACE -- ESTABLISH PCE AND DDB                                                          PAGE  125


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5582 *                                                                       X3898000
                                   5583 *        U P D A T E   D D B   D D   N U M B E R S                      X3900000

                                   5584 *                                                                       X3902000

000D5C 5850 C3DE      00DA0        5586 XFDDB    L     R5,X1STDDB          GET ADDRESS OF FIRST DDB THIS STEP   X3906000
000D60 12A5                        5587          LTR   R10,R5              TEST FOR VALID DDB ADDRESS           X3908000
000D62 4780 C3F2      00DB4        5588          BZ    XLSTNTRY            EXIT IF NO                           X3910000


000D66 9180 5014      00014        5590 XNDDB3   TM    DDBDDNR,X'80'       TEST FOR UPDATED DD NUMBER           X3914000
000D6A 4710 C3C4      00D86        5591          BO    XNDDB4              BR IF YES                            X3916000
000D6E D500 D05B 5015 0005B 00015  5592          CLC   XPCESTEP+1(1),DDBDDNR+1  TEST STEP NUMBER                X3918000
000D74 4770 C3CE      00D90        5593          BNE   XDDNR2              BR IF NEW STEP                       X3920000

000D78 48F0 5016      00016        5594          LH    R15,DDBDDNR+2       GET DDB DD NUMBER                    X3922000
000D7C 157F                        5595          CLR   R7,R15              COMPARE TO CURRENT LOWEST DD NUMBER  X3924000
000D7E 47D0 C3C4      00D86        5596          BNH   XNDDB4              BR IF NOT LOWER                      X3926000
000D82 187F                        5597          LR    R7,R15               ELSE LOAD LOWER DD NUMBER           X3928000
000D84 18A5                        5598          LR    R10,R5              SAVE CURRENT DDB ADDRESS             X3930000


                                   5600 *XNDDB4  ICM   R5,7,DDBCHAIN+1     GET ADDRESS OF NEXT DDB         RFIT X3934000
000D86 5850 5000      00000        5601 XNDDB4   L     R5,DDBCHAIN                                         RFIT X3934005
000D8A 1255                        5602          LTR   R5,R5                                               RFIT X3934010
000D8C 4770 C3A4      00D66        5603          BNZ   XNDDB3              BR IF NOT END OF DDB CHAIN           X3936000


000D90 D203 A014 C3EE 00014 00DB0  5605 XDDNR2   MVC   DDBDDNR-DDBDSECT(,R10),XDDNR  MOVE FLAG & UPDATED DD NR  X3940000
000D96 47F0 C21E      00BE0        5606          B     XNXTNTRY             AND RETURN                          X3942000

000D9C                             5608 X1STPDDB DS    A                   ADDRESS OF FIRST PDDB THIS STEP      X3946000

000DA0                             5609 X1STDDB  DS    A                   ADDRESS OF FIRST DDB THIS STEP       X3948000
000DA4                             5610 XIOTADDR DS    A                   ADDRESS OF IOT FOR FIRST PDDB        X3950000
000DA8                             5611 XPDBWORK DS    A                   WORKING PDDB ADDRESS                 X3952000
000DAC                             5612 XIOTWORK DS    A                   WORKING IOT ADDRESS                  X3954000
000DB0 80000000                    5613 XDDNR    DC    X'80',AL3(0)        WORKING STEP NUMBER/DD NUMBER        X3956000
XEQ      HASP EXCP INTERFACE -- ESTABLISH PCE AND DDB                                                          PAGE  126


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


000DB4 9680 D05A      0005A        5615 XLSTNTRY OI    XPCESTEP,X'80'      SHOW DD NUMBERS HAVE BEEN ADJUSTED   X3960000
                                   5616          AIF   (&SYSVS2).XVS21                                     RFIT X3960100
000DB8 5810 407C      0007C        5617          L     R1,TCBJSTCB         POINT TO JOB STEP TCB           RFIT X3960200

                                   5618 *        STCM  SAVE,B'0111',TCBPCE+1-TCBDSECT(R1)                  RFIT X3960300
000DBC 50D1 00B0      000B0        5619          ST    SAVE,TCBPCE-TCBDSECT(R1)                            RFIT X3960305
                                   5620 *                                  SET PCE ADDRESS IN JOB STEP TCB RFIT X3960400
                                   5621          AGO   .XVS22                                              RFIT X3960500
                                   5622 .XVS22   ANOP                       X                              RFIT X3964100

000DC0 4870 C5BC      00F7E        5623          LH    R7,XTSUCB           RESET REGISTER R7                    X3966000
                                   5624 *                                                                       X3968000
                                   5625 *              CONTINUE STEP - FIND DDB OF REQUESTOR                    X3970000
                                   5626 *                                                                       X3972000

000DC4 4150 D078      00078        5628 XFINDDDB LA    R5,XPCEDDB-(DDBCHAIN-DDBDSECT)  SET UP FOR CHAINING.     X3976000
                                   5629 *XFD1    ICM   R5,7,DDBCHAIN+1     POINT TO NEXT DDB               RFIT X3978000
000DC8 5850 5000      00000        5630 XFD1     L     R5,DDBCHAIN         POINT TO NEXT DDB               RFIT X3978005

000DCC 1255                        5631          LTR   R5,R5               POINT TO NEXT DDB               RFIT X3978010
000DCE 4780 C426      00DE8        5632          BZ    XFD2                BRANCH IF END OF CHAIN.              X3980000

000DD2 D502 700D 5005 0000D 00005  5633          CLC   UCBNAME,DDBUNIT     IS THIS THE RIGHT DDB...             X3982000
000DD8 4770 C406      00DC8        5634          BNE   XFD1                LOOP IF NOT.                         X3984000
000DDC 9180 5004      00004        5635          TM    DDBTYPE,XINDDB      DDB IS NOW FOUND.                    X3986000
000DE0 4710 C706      010C8        5636          BO    XSYSIN              BRANCH IF INPUT DDB.                 X3988000
000DE4 47F0 C8F2      012B4        5637          B     XSYSOUT             BRANCH IF OUTPUT DDB.                X3990000


                                   5639 *                                                                       X3994000
                                   5640 *              THE FOLLOWING CODE HANDLES DDB-NOT-FOUND CONDITION       X3996000
                                   5641 *                                                                       X3998000

000DE8                             5643 XFD2     DS    0H                  DDB WAS NOT FOUND.                   X4002000
                                   5644          AIF   ('&XBATCHC' EQ '').XNOB5                                 X4004000
                                   5645 .XNOB5   ANOP                                                           X4064000

                                   5646 *                                                                       X4066000
                                   5647 *              DDB NOT FOUND --- CHECK UCB TYPE AND GET A DDB.          X4068000

                                   5648 *                                                                       X4070000

000DE8                             5650 XBLDDDB  DS    0H                                                       X4074000
000DE8 4160 0002      00002        5651          LA    R6,XPRTDDB          ASSUME PRINTER REQUEST.              X4076000
000DEC 9508 7013      00013        5652          CLI   UCBTBYT4,XOUTUCB    IS THIS A PSEUDO-1403...             X4078000

000DF0 4780 C496      00E58        5653          BE    XBD1                BRANCH IF YES.                       X4080000
000DF4 4160 0004      00004        5654          LA    R6,XPUNDDB          ASSUME PUNCH REQUEST.                X4082000
000DF8 9502 7013      00013        5655          CLI   UCBTBYT4,XPUNUCB    IS THIS A PSEUDO-2540P...            X4084000
000DFC 4780 C496      00E58        5656          BE    XBD1                BRANCH IF SO.                        X4086000
000E00 4160 0080      00080        5657          LA    R6,XINDDB           ASSUME READER REQUEST                X4088000
000E04 9501 7013      00013        5658          CLI   UCBTBYT4,XINUCB     IS THIS A PSEUDO 2540R...            X4090000
000E08 4780 C496      00E58        5659          BE    XBD1                BR IF YES                            X4092000
                                   5660 * WRONG UCB TYPE OR PCE NOT FOUND - ABEND CALLER WITH S100.             X4094000
000E0C 94FE 2000      00000        5661 XRETURN4 NI    IOBFLAG1,255-1      RESET IOB RESTART FLAG,              X4096000

000E10 98EC C45A      00E1C        5662          LM    R14,R12,XSPSAVE     RESTORE REGISTERS,                   X4098000

000E14 47F0 E004      00004        5663          B     4(,R14)             AND RETURN TO LET IOS ABEND CALLER.  X4100000
000E18                             5664 DARTSCR2 DS    F                     SCRATCH AREA                  RFIT X4100005
000E1C                             5665 XSPSAVE  DS    15F                 REGISTER SAVE AREA.                  X4102000
                                   5666 *                                                                       X4104000
                                   5667 *              AN OPERATION TO A PSEUDO DEVICE FOR WHICH                X4106000

                                   5668 *              NO DDB EXISTS HAS OCCURRED.                              X4108000
                                   5669 *              THE FOLLOWING WILL IDENTIFY THE DATA STREAM AND          X4110000
XEQ      HASP EXCP INTERFACE -- ESTABLISH PCE AND DDB                                                          PAGE  127


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5670 *              CREATE A DDB IF APPROPIATE                               X4112000



000E58                             5672 XBD1     DS    0H                                                       X4116000
000E58 4260 C597      00F59        5673          STC   R6,XNOTWTR+1        SAVE UNIT TYPE.                      X4118000
000E5C D502 700D C5A2 0000D 00F64  5674          CLC   UCBNAME,$WTRUNIT    IS THIS THE HASP &WTR UNIT...        X4120000
000E62 4780 C556      00F18        5675          BE    XPDDBWTR            IF SO, BRANCH.                       X4122000

000E66 5810 2014      00014        5676          L     R1,IOBDCBPT         POINT TO DCB.                        X4124000

000E6A 4810 1028      00028        5677          LH    R1,DCBTIOT-DCBDSECT(,R1) TIOT DISPLACEMENT OF DD         X4126000
000E6E 58F0 400C      0000C        5678          L     R15,TCBTIO          TIOT                                 X4128000
000E72 1E1F                        5679          ALR   R1,R15              R1=ABSOLUTE ADDR OF TIOT DD ENT      X4130000
000E74 1B55                        5680          SR    R5,R5               INIT                                 X4132000

000E76 4180 0001      00001        5681          LA    R8,1                DD CARD COUNTER                      X4134000
000E7A 41F0 F018      00018        5682          LA    R15,24(,R15)        TO FIRST TIOT DD ENTRY               X4136000

                                   5684 XAGNDD   NULL  *                   LOOP POINT                           X4140000
000E7E                             5685+XAGNDD   DS    0H                                                       NU006000
                                   5686 *        ICM   R5,1,0(R15)         LENGTH OF ENTRY                 RFIT X4142000
000E7E 435F 0000      00000        5687          IC    R5,0(R15)           LENGTH OF ENTRY                 RFIT X4142005
000E82 9500 F000      00000        5688          CLI   0(R15),0            LENGTH OF ENTRY                 RFIT X4142010
000E86 4780 C44A      00E0C        5689          BZ    XRETURN4            BR IF END OF ENTRIES                 X4144000
000E8A 151F                        5690          CLR   R1,R15              IS THIS DD ENTRY...                  X4146000
000E8C 4780 C4DC      00E9E        5691          BE    XDDFND              BR IF YES                            X4148000

000E90 4740 C44A      00E0C        5692          BL    XRETURN4            INVALID...ABEND CALLER               X4150000
000E94 4180 8001      00001        5693          LA    R8,1(,R8)            ELSE INCREMENT DD NUMBER            X4152000
000E98 1EF5                        5694          ALR   R15,R5                POINT TO NEXT TIOT DD ENTRY        X4154000
000E9A 47F0 C4BC      00E7E        5695          B     XAGNDD                 AND LOOP                          X4156000


000E9E                             5697 XDDFND   DS    0H                  R8 NOW CONTAINS DD NUMBER.           X4160000
                                   5698 *        ICM   R8,12,XPCESTEP      ADD STEP NUMBER                 RFIT X4162000
000E9E 8980 0010      00010        5699          SLL   R8,16                                               RFIT X4162005
000EA2 8880 0010      00010        5700          SRL   R8,16                                               RFIT X4162010
000EA6 4850 D05A      0005A        5701          LH    R5,XPCESTEP                                         RFIT X4162015
000EAA 8950 0010      00010        5702          SLL   R5,16                                               RFIT X4162020
000EAE 1685                        5703          OR    R8,R5                                               RFIT X4162025
000EB0 9501 7013      00013        5704          CLI   UCBTBYT4,XINUCB     WAS THIS A READ                      X4164000
000EB4 4770 C516      00ED8        5705          BNE   XOUTRQ              BR IF NO                             X4166000
                                   5706 XINRQ    NULL  *                   ASSOCIATE INPUT REQUEST WITH DD      X4168000
000EB8                             5707+XINRQ    DS    0H                                                       NU006000

000EB8 4150 D078      00078        5708          LA    R5,XPCEDDB-(DDBCHAIN-DDBDSECT) SET UP FOR CHAINING       X4170000
                                   5709 *XINRQA  ICM   R5,7,DDBCHAIN+1     GET DDB                         RFIT X4172000
000EBC 5850 5000      00000        5710 XINRQA   L     R5,DDBCHAIN         GET DDB                         RFIT X4172005

000EC0 1255                        5711          LTR   R5,R5               GET DDB                         RFIT X4172010
000EC2 4780 C44A      00E0C        5712          BZ    XRETURN4            ABEND CALLER IF NOT FOUND            X4174000
000EC6 5580 5014      00014        5713          CL    R8,DDBDDNR          IS THIS CORRECT DDT                  X4176000
000ECA 4770 C4FA      00EBC        5714          BNE   XINRQA              BR IF NO                             X4178000
000ECE D202 5005 700D 00005 0000D  5715          MVC   DDBUNIT,UCBNAME     YES...SET UCB NAME                   X4180000
                                   5716          AIF   ('&XBATCHC' EQ '').XNOB8                                 X4182000
                                   5717 .XNOB8   ANOP                                                           X4210000
000ED4 47F0 C706      010C8        5718          B     XSYSIN              GO PROCESS REQUEST                   X4212000
                                   5719 XOUTRQ   NULL  *                   IDENTIFY AN OUTPUT STREAM            X4214000
000ED8                             5720+XOUTRQ   DS    0H                                                       NU006000
000ED8 1B00                        5721          SR    R0,R0               ZERO R0 FOR IC.                      X4216000
000EDA 5860 D068      00068        5722          L     R6,XPCEIOT          POINT TO FIRST IOT.                  X4218000

XEQ      HASP EXCP INTERFACE -- ESTABLISH PCE AND DDB                                                          PAGE  128



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00000  5723          USING IOTDSECT,R6         USE THE IOT DSECT.                   X4220000

000EDE 5850 60D4      000D4        5724 XIOTGOTN L     R5,IOTPDDBP         GET OFFSET PAST LAST PDDB.           X4222000
000EE2 1A56                        5725          AR    R5,R6               COMPUTE ADDRESS PAST LAST.           X4224000
000EE4 41A0 60D8      000D8        5726          LA    R10,IOTPDDB         POINT TO FIRST PDDB.                 X4226000
                            00000  5727          USING PDBDSECT,R10        USE THE PDDB DSECT.                  X4228000
000EE8 9140 A000      00000        5728 XPDBSCAN TM    PDBFLAG1,PDB1NULL   IS THIS PDDB STILL NULL...           X4230000
000EEC 4780 C53C      00EFE        5729          BZ    XPDBSCN1            BRANCH IF NOT.                       X4232000
000EF0 5580 0000      00000        5730          CL    R8,*-*              YES.                                 X4234000
000EF4                      00EF2  5731          ORG   *-2                  DOES IT                             X4236000
000EF2 A003                        5732          DC    S(PDBSTNR)            MATCH USER...                      X4238000
000EF4                      00EF0  5733          ORG   *-4                                                 RFIT X4238005
000EF0 D203 C456 A003 00E18 00003  5734          MVC   DARTSCR2,PDBSTNR    YES, DOES IT                    RFIT X4238010
000EF6 5580 C456      00E18        5735          CL    R8,DARTSCR2             MATCH USER...               RFIT X4238015

000EFA 4780 C55E      00F20        5736          BE    XPDDBFND            BRANCH IF PDDB FOUND.                X4240000
000EFE 4300 A002      00002        5737 XPDBSCN1 IC    R0,PDBLENG          GET THIS PDDB'S LENGTH.              X4242000

000F02 1AA0                        5738          AR    R10,R0              POINT TO NEXT PDDB.                  X4244000

000F04 15A5                        5739          CLR   R10,R5              ARE WE PAST PDDBS...                 X4246000
000F06 4740 C526      00EE8        5740          BL    XPDBSCAN            BRANCH IF NOT.                       X4248000
                                   5741 *        ICM   R6,7,IOTIOT+1       YES, POINT TO NEXT IOT.         RFIT X4250000
000F0A 5860 6058      00058        5742          L     R6,IOTIOT                                           RFIT X4250005
000F0E 1266                        5743          LTR   R6,R6                                               RFIT X4250010
000F10 4770 C51C      00EDE        5744          BNZ   XIOTGOTN            BRANCH IF IT EXISTS.                 X4252000
                                   5745          AIF   ('&XBATCHC' EQ '').XNOB9                                 X4254000
000F14 47F0 C44A      00E0C        5746 .XNOB9   B     XRETURN4            PDDB NOT FOUND.  ABEND CALLER.       X4306000
                                   5747 .XNOB9A  DROP  R6,R10              DROP IOT, PDDB BASES.                X4308000
000F18 5860 D068      00068        5748 XPDDBWTR L     R6,XPCEIOT          SET IOT ADDRESS FOR WTR.             X4310000
                            00000  5749          USING IOTDSECT,R6         USE THE IOT DSECT.                   X4312000
000F1C 41A0 60DF      000DF        5750          LA    R10,IOTPDDB+PDBBASLN  SET PDDB ADDRESS FOR WTR.          X4314000

                                   5751          DROP  R6                  DROP IOT DSECT.                      X4316000
000F20                             5752 XPDDBFND DS    0H                                                       X4318000
000F20 58F0 CDA6      01768        5753          L     R15,=V(XGETDDB)     POINT TO GET-DDB SUBROUTINE          X4320000

000F24 05EF                        5754          BALR  LINK,R15            AND CALL IT.                         X4322000
000F26 4770 C578      00F3A        5755          BNZ   XBD2                BRANCH IF DDB FOUND.                 X4324000
                                   5756 * NO DDBS AVAILABLE. POST HASP TO PRINT MESSAGE.                        X4326000
000F2A 9640 D059      00059        5757          OI    XSYNCFLG,XALLOCWT   ELSE SET UNABLE-TO-ALLOC             X4328000
000F2E 9608 D058      00058        5758          OI    XPCESTAT,XSYNCREQ   AND SHOW SYNC REQUEST.               X4330000
000F32 45E0 CB96      01558        5759          BAL   LINK,XFIREUP        POST PCE AND HASP,                   X4332000
000F36 47F0 CC94      01656        5760          B     XFROZE              AND FREEZE CALLER.                   X4334000
                                   5761 * DDB IS SUCCESSFULLY GOTTEN AND CHAINED ONTO PCE.                      X4336000
000F3A 1851                        5762 XBD2     LR    R5,R1               GET DDB ADDRESSABILITY.              X4338000
000F3C 50A0 500C      0000C        5763          ST    R10,DDBPBUF         SAVE PDDB ADDRESS FOR XOUT.          X4340000
000F40 5060 5014      00014        5764          ST    R6,DDBDDNR          SAVE IOT ADDRESS FOR XOUT.           X4342000
000F44 D202 5005 700D 00005 0000D  5765          MVC   DDBUNIT,UCBNAME     PUT UNIT NAME IN DDB.                X4344000

000F4A D502 700D C5A2 0000D 00F64  5766          CLC   UCBNAME,$WTRUNIT    IS THIS DDB FOR THE WRITER...        X4346000
000F50 4770 C596      00F58        5767          BNE   XNOTWTR             BRANCH IF NOT.                       X4348000
000F54 5050 C5AA      00F6C        5768          ST    R5,$WTRDDB          SAVE WRITER DDB ADDRESS.             X4350000
000F58                             5769 XNOTWTR  DS    0H                                                       X4352000

000F58 9200 5004      00004        5770          MVI   DDBTYPE,*-*         SET UNIT TYPE.                       X4354000
000F5C 9601 5008      00008        5771          OI    XS,XNPB             SHOW NO PRIMARY BUFFER.              X4356000
000F60 47F0 C8F2      012B4        5772          B     XSYSOUT             GO TO OUTPUT PROCESSING.             X4358000
XEQ      HASP EXCP INTERFACE -- ESTABLISH PCE AND DDB                                                          PAGE  129


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5774 *                                                                       X4362000

                                   5775 *                                                                       X4364000
                                   5776 *              COMMON CONSTANTS AND EQUATES                             X4366000
                                   5777 *                                                                       X4368000
                                   5778 $WTRUNIT DC    C'&WTR'             EBCDIC NAME OF WRITER UCB            X4384000
000F64 F7F2F0                      5779+$WTRUNIT DC    C'720'              EBCDIC NAME OF WRITER UCB            X4384000
000F67 00
000F68 00000000                    5780 $WTRPCE  DC    A(0)                PCE USING &WTR, IF +.                X4390000
000F6C 00000000                    5781 $WTRDDB  DC    A(0)                &WTR DDB, IF + AND $WTRPCE +.        X4394000

000F70 0060                        5782 XBUFOFF  DC    AL2(HDBSTART-BUFDSECT)  INITIAL OFFSET OF BUF FROM IOB.  X4396000
000F72 0000

000F74 00000000000009C2            5783 XBAS1CON DC    V(HASP),A(XIBASE)   ADDRESSABILITY ADCONS.               X4398000
000F7C FFFF                        5784 X12STAR  DC    0F'0',H'-1'         SIXTEEN STAR TABLE                   X4400000
000F7E                             5785 XTSUCB   DS    H                     UCB ADDRESS                        X4402000
000F80                             5786 XTSIOB   DS    F                     IOB ADDRESS                        X4404000
000F84                             5787 XTSDEB   DS    F                     DEB ADDRESS                        X4406000
000F88                             5788 XTSTCB   DS    F                     TCB ADDRESS                        X4408000
                                   5789 XBUFLMT  DC    Y(BUFSTART-BUFDSECT+&BUFSIZE-2)                         CX4412000
                                                                           LIMIT OF DATA IN BUFFER.             X4414000

000F8C 07FE                        5790+XBUFLMT  DC    Y(BUFSTART-BUFDSECT+1960-2)                             CX4412000
                                       +                                   LIMIT OF DATA IN BUFFER.             X4414000



                            0000B  5792 XUCBSTAT EQU   UCBATI              HASP ALLOCATION BYTE.                X4418000
                            00002  5793 XUCBBUSY EQU   2                   HASP ALLOCATION BIT.                 X4420000

                            00001  5794 XINUCB   EQU   1                   PSEUDO-2540R UCBTBYT4                X4422000
                            00008  5795 XOUTUCB  EQU   8                   PSEUDO-1403 UCBTBYT4                 X4424000
                            00002  5796 XPUNUCB  EQU   2                   PSEUDO-2540P UCBTBYT4                X4426000

                            01000  5797 XTCBHNDS EQU   TCBHNDSP*256        FREEZE BIT IN HALFWORD               X4428000
                                   5798          TITLE 'HASP EXCP INTERFACE -- PROCESSING FOR UNIT &RDR'        X4430000
XEQ      HASP EXCP INTERFACE -- PROCESSING FOR UNIT 700                                                        PAGE  130


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5800 *                                                                       X4432000
                                   5801 *              HASP EXCP INTERFACE PROCESSING FOR &RDR UNIT             X4434000
                                   5802 *                                                                       X4436000


000F8E                             5804 XRDRCALL DS    0H                                                       X4440000
                                   5805 *        ICM   R5,15,$RDRDDB       IS THE READER ACTIVE OY02728    RFIT X4442000
000F8E 5850 C1AA      00B6C        5806          L     R5,$RDRDDB                                          RFIT X4442005
000F92 1255                        5807          LTR   R5,R5                                               RFIT X4442010

000F94 47D0 C604      00FC6        5808          BNP   XRC1                BRANCH IF NOT.                       X4444000
000F98 58D0 C1A6      00B68        5809          L     R13,$RDRPCE         POINT TO RDR'S PCE.          OY02728 X4445000
000F9C D502 D061 407D 00061 0007D  5810          CLC   XPCEJST+1(3),TCBJSTCB+1  IS PCE STILL READING...         X4446000
000FA2 4770 C604      00FC6        5811          BNE   XRC1                BRANCH IF NOT.                       X4448000

000FA6 9503 B0C3      000C3        5812          CLI   $CURPCE,PCEXEQID    IS IT SAFE TO PROCEED...             X4450000
000FAA 4780 CC84      01646        5813          BE    XSLUSHX             BRANCH IF NOT.                       X4452000
000FAE 5850 D09C      0009C        5814          L     R5,XPCEPIT          MAKE SURE                            X4454000
000FB2 9500 5000      00000        5815          CLI   0(R5),0              ALL OF THE PIT                      X4456000
000FB6 9500 5013      00013        5816          CLI   PITLNGTH-1(R5),0      IS IN STORAGE.                     X4458000
000FBA 9680 B0C2      000C2        5817          OI    $STATUS,$RDRPEND    SHOW READER ACTIVE,                  X4460000

000FBE 5850 C1AA      00B6C        5818          L     R5,$RDRDDB          POINT TO READER DDB,                 X4462000
000FC2 47F0 C706      010C8        5819          B     XSYSIN              AND GO PROCESS CHANNEL PROGRAM.      X4464000
                                   5820 * READER IS NOT ACTIVE                                                  X4466000
000FC6                             5821 XRC1     DS    0H                                                       X4468000
000FC6 9104 B0C2      000C2        5822          TM    $STATUS,$SYSEXIT    IS HASP BEING STOPPED...             X4470000

000FCA 4710 C626      00FE8        5823          BO    XRC2                BRANCH IF SO.                        X4472000
000FCE D203 C1A6 407C 00B68 0007C  5824          MVC   $RDRPCE,TCBJSTCB    NO.  SHOW IN $RDRPCE THE READER'S    X4474000
000FD4 92FF C1A6      00B68        5825          MVI   $RDRPCE,X'FF'       TCB ADDRESS AND NEGATIVE SIGN.       X4476000
000FD8 947F B0C2      000C2        5826          NI    $STATUS,255-$RDRPEND  SHOW READER NOT ACTIVE.            X4478000
                                   5827         $POST  $HASPECF,JOB        POST ALL PCES FOR JOB                X4480000

000FDC 94EF B0C4      000C4        5828+         NI    $HASPECF,255-$EWFJOB                                     PO008000
000FE0 45E0 CB9E      01560        5829          BAL   LINK,XINRFIRE       AND POST HASP.                       X4482000
000FE4 47F0 CC94      01656        5830          B     XFREEZE             THEN FREEZE THE READER.              X4484000
                                   5831 * HASP IS BEING STOPPED                                                 X4486000
000FE8                             5832 XRC2     DS    0H                                                       X4488000

000FE8 58D0 CDAA      0176C        5833          L     R13,=V($COMMPCE)    POINT TO COMMUNICATION PCE,          X4490000
                                   5834         $POST  PCEEWF+$EWBHOLD,HOLD  POST IT FOR 'HOLD',                X4492000
000FEC 94EF D049      00049        5835+         NI    PCEEWF+$EWBHOLD,255-$EWFHOLD                             PO008000
000FF0 947F B0C4      000C4        5836+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
000FF4 45E0 CB9E      01560        5837          BAL   R14,XINRFIRE        POST HASP,                           X4494000

000FF8 47F0 CCB8      0167A        5838          B     XEOF                AND END THE READER.                  X4496000
                                   5839          TITLE 'HASP EXCP INTERFACE -- PROCESSING FOR UNIT &WTR'        X4498000
XEQ      HASP EXCP INTERFACE -- PROCESSING FOR UNIT 720                                                        PAGE  131


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5841 *                                                                       X4500000
                                   5842 *              HASP EXCP INTERFACE PROCESSING FOR &WTR UNIT             X4502000

                                   5843 *                                                                       X4504000

000FFC                             5845 XWTRCALL DS    0H                                                       X4508000
                                   5846 *        ICM   R13,15,$WTRPCE      IS THE WRITER ACTIVE...         RFIT X4510000

000FFC 58D0 C5A6      00F68        5847          L     R13,$WTRPCE                                         RFIT X4510005
001000 12DD                        5848          LTR   R13,R13                                             RFIT X4510010
001002 47D0 C660      01022        5849          BNP   XWCALL              IF NOT, INACTIVE WRITER.             X4512000
001006 D203 D060 407C 00060 0007C  5850          MVC   XPCEJST,TCBJSTCB    ACTIVE WRITER. POINT PCE TO TCB.     X4514000
00100C 9503 B0C3      000C3        5851          CLI   $CURPCE,PCEXEQID    IS IT SAFE TO PROCEED...             X4516000

001010 4780 CC84      01646        5852          BE    XSLUSHX             IF NOT, SLUSH THE WRITER.            X4518000
                                   5853 *        ICM   R5,15,$WTRDDB       DOES WRITER HAVE A DDB YET...   RFIT X4520000
001014 5850 C5AA      00F6C        5854          L     R5,$WTRDDB                                          RFIT X4520005
001018 1255                        5855          LTR   R5,R5                                               RFIT X4520010
00101A 4720 C8F2      012B4        5856          BP    XSYSOUT             IF SO, PROCESS CHANNEL PROGRAM.      X4522000
00101E 47F0 C426      00DE8        5857          B     XBLDDDB             IF NOT, GO BUILD ONE.                X4524000
                                   5858 * WRITER WAS INACTIVE.  SCAN FOR JOB CARD.                              X4526000

001022 45E0 CA68      0142A        5859 XWCALL   BAL   R14,XCCWSCAN        GO GET A CCW.                        X4528000
001026 47F0 CCCE      01690        5860          B     XRET                EXIT IF END OF CHANNEL PROGRAM.      X4530000
00102A D501 F000 CDDA 00000 0179C  5861          CLC   0(2,R15),=C'//'     IF THIS IS A JCL CARD,               X4532000

001030 4780 C67A      0103C        5862          BE    XWC1                GO SCAN OUT THE JOBNAME.             X4534000
001034 9604 200C      0000C        5863          OI    IOBCSW+3,4          ELSE SHOW CCW COMPLETED              X4536000
001038 47F0 CA68      0142A        5864          B     XCCWSCAN            AND GO GET ANOTHER.                  X4538000
                                   5865 * JCL CARD FOUND - SCAN JOBNAME.                                        X4540000
00103C D207 C6EE F002 010B0 00002  5866 XWC1     MVC   XWJN(8),2(R15)      SCAN                                 X4542000

001042 9240 C6F6      010B8        5867          MVI   XWJN+8,C' '          OUT                                 X4544000
001046 4180 C6ED      010AF        5868          LA    R8,XWJN-1             JOBNAME                            X4546000
00104A 4180 8001      00001        5869          LA    R8,1(,R8)              FROM                              X4548000
00104E 9540 8000      00000        5870          CLI   0(R8),C' '              THE                              X4550000
001052 4770 C688      0104A        5871          BNE   *-8                      JCL                             X4552000
001056 D206 8001 8000 00001 00000  5872          MVC   1(7,R8),0(R8)             CARD.                          X4554000
                                   5873 * JOBNAME IS NOW IN XWJN.                                               X4556000

00105C 9503 B0C3      000C3        5874          CLI   $CURPCE,PCEXEQID    IF IT'S SAFE,                        X4558000
001060 4770 C6B0      01072        5875          BNE   XWC2                GO FIND THE PCE FOR THIS JOB.        X4560000
001064 5810 CDAE      01770        5876          L     R1,=A(XTHWRTCB)     UNSAFE.  CAUSE XTHAW                 X4562000

001068 D203 1000 407C 00000 0007C  5877          MVC   0(4,R1),TCBJSTCB    TO THAW THE WRITER                   X4564000
00106E 47F0 CC88      0164A        5878          B     XSLUSHY             AND GO FREEZE THE WRITER.            X4566000
                                   5879 * IT IS SAFE TO CONTINUE PROCESSING                                     X4568000
001072                             5880 XWC2     DS    0H                                                       X4570000
                                   5881          AIF   ('&XBATCHC' EQ '').XNOB4                                 X4572000

                                   5882 .XNOB4   ANOP                                                           X4628000
                                   5883 * FIND PCE ASSOCIATED WITH JOBNAME.                                     X4630000
001072 58F0 CDB2      01774        5884          L     R15,=V(XJOBSRC2)    GET ADDRESS OF SUBROUTINE            X4632000
001076 4110 C6EE      010B0        5885          LA    R1,XWJN             AND POINTER TO JOBNAME.              X4634000
00107A 05EF                        5886          BALR  LINK,R15            CALL ROUTINE TO FIND PCE.            X4636000
00107C 47C0 C6FE      010C0        5887          BC    8+4,XWC5            BRANCH IF PCE NOT FOUND      OY04721 X4638000
001080 9180 D059      00059        5888          TM    XSYNCFLG,XEOJBIT    EOJ ALREADY SIGNALED?        OY04721 X4640000
001084 4710 C6FE      010C0        5889          BO    XWC5                YES - BRANCH                 OY04721 X4642000

001088 45E0 CC4E      01610        5890          BAL   LINK,XPROTRD1       CHECK READER                 OY08671 X4644000
00108C 9503 B0C3      000C3        5891          CLI   $CURPCE,PCEXEQID    SAFE TO PROCEED?             OY04721 X4650000

001090 4780 CC84      01646        5892          BE    XSLUSHX             IF UNSAFE, SLUSH THE WRITER.         X4654000
001094 5810 D09C      0009C        5893          L     R1,XPCEPIT          IF SAFE, MARK THE                    X4656000
001098 94DF 1000      00000        5894          NI    PITSTAT(R1),255-PITBUSY  ASSOCIATED PIT FREE.            X4658000
00109C 50D0 C5A6      00F68        5895          ST    R13,$WTRPCE         SAVE ASSOCIATED PCE ADDRESS.         X4660000
XEQ      HASP EXCP INTERFACE -- PROCESSING FOR UNIT 720                                                        PAGE  132



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0010A0 92FF C5AA      00F6C        5896          MVI   $WTRDDB,X'FF'       SHOW NO WRITER DDB YET.              X4662000
                                   5897         $POST  $HASPECF,JOB        $POST HASP FOR JOB.                  X4664000
0010A4 94EF B0C4      000C4        5898+         NI    $HASPECF,255-$EWFJOB                                     PO008000
0010A8 45E0 CB9E      01560        5899          BAL   LINK,XINRFIRE       POST THE HASP TASK.                  X4666000
0010AC 47F0 C15E      00B20        5900          B     XTERMDDB            GO THROUGH STEP TERMINATION.         X4668000

0010B0                             5902 XWJN     DS    16C                 WORK AREA FOR JOBNAME        OY04721 X4668400


0010C0 9604 200C      0000C        5904 XWC5     OI    IOBCSW+3,4          SHOW CCW COMPLETE,           OY04721 X4668800

0010C4 47F0 C660      01022        5905          B     XWCALL              AND GO GET ANOTHER           OY04721 X4669000
XEQ      HASP EXCP INTERFACE -- INPUT DDB PROCESSING                                                           PAGE  133


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   5907 *                                                                       X4672000
                                   5908 *              HASP EXCP INTERFACE INPUT DDB PROCESSING                 X4674000

                                   5909 *                                                                       X4676000

0010C8                             5911 XSYSIN DS 0H                                                            X4680000
0010C8 9500 5000      00000        5912          CLI   DDBCHAIN,0          INSURE THAT THE WHOLE                X4682000
0010CC 9500 5024      00024        5913          CLI   DDBEND,0            DDB IS IN CORE.                      X4684000
                                   5914          AIF   ('&XBATCHC' EQ '').XNOB7                         OY02728 X4684400
                                   5915 .XNOB7   ANOP                                                   OY02728 X4685600
0010D0 45E0 CA68      0142A        5916 XIA      BAL   R14,XCCWSCAN        GO GET A CCW.                        X4686000
0010D4 47F0 C8AE      01270        5917          B     XEOCP               BRANCH IF NONE.                      X4688000


0010D8 910F 5008      00008        5919          TM    XS,XNPB+XPIO+XPIOA+XPEOD  IS PRIMARY BUFFER READY...     X4692000

0010DC 4770 C7AA      0116C        5920          BNZ   XNOINBUF            BRANCH IF NOT.                       X4694000

0010E0 4880 500A      0000A        5922          LH    R8,DDBUFPTR         GET CURRENT BUFFER OFFSET.           X4698000
0010E4 5890 500C      0000C        5923          L     R9,DDBPBUF          GET CURRENT BUFFER ADDRESS.          X4700000

0010E8 1A98                        5924          AR    R9,R8               COMPUTE POINTER TO CURRENT RECORD.   X4702000
0010EA 91FF 9000      00000        5925          TM    0(R9),X'FF'         IS THIS END-OF-BUFFER...             X4704000
0010EE 4710 C7BE      01180        5926          BO    XPBUFMT             YES.  CHECK FOR SECONDARY BUFFER.    X4706000

0010F2 9504 9001      00001        5928          CLI   1(R9),4             IS THIS A HASP CONTROL CARD...       X4710000
0010F6 4780 C798      0115A        5929          BE    XIE                 BRANCH IF SO - DON'T PASS TO OS.     X4712000
0010FA 9573 9001      00001        5930          CLI   1(R9),X'73'         IF THIS LOGICAL RECORD POINTS        X4714000
0010FE 4780 C80E      011D0        5931          BE    XDDSTAR              TO DD * TTR, GO PROCESS IT.         X4716000

001102 9543 9001      00001        5933          CLI   1(R9),X'43'         IF THIS IS AN OUTPUT CONTROL         X4720000
001106 4780 C84A      0120C        5934          BE    XOCRCARD             RECORD, GO PROCESS IT.              X4722000

00110A 4100 0050      00050        5935          LA    R0,80               GET MAXIMUM RECORD LENGTH.           X4724000
00110E 19A0                        5936          CR    R10,R0              IS CCW LENGTH GREATER...             X4726000
001110 47D0 C754      01116        5937          BNH   *+6                 SKIP ONE IF NOT.                     X4728000
001114 18A0                        5938          LR    R10,R0              YES.  USE MAXIMUM LENGTH.            X4730000

001116 130A                        5939          LCR   R0,R10              COMPUTE AND                          X4732000
001118 4A00 6006      00006        5940          AH    R0,6(,R6)           STORE IN CSW                         X4734000
00111C 4000 200E      0000E        5941          STH   R0,IOBCSW+5         THE RESIDUAL LENGTH.                 X4736000
001120 4780 C76E      01130        5942          BZ    XIB                 BRANCH IF RESIDUAL LENGTH IS ZERO.   X4738000
001124 9120 6004      00004        5943          TM    4(R6),X'20'         NONZERO RESIDUAL LENGTH -            X4740000
001128 4710 C76E      01130        5944          BO    XIB                 BRANCH IF SLI FLAG IS ON.            X4742000
00112C 9640 200D      0000D        5945          OI    IOBCSW+4,X'40'      OTHERWISE SHOW WRONG LENGTH IN CSW.  X4744000

001130 9110 6004      00004        5947 XIB      TM    4(R6),X'10'         IF SUPPRESS-DATA-TRANSFER FLAG,      X4748000
001134 4710 C784      01146        5948          BO    XID                 SKIP MOVING DATA.                    X4750000
001138 9103 6000      00000        5949          TM    0(R6),3             IF COMMAND IS CONTROL,               X4752000
00113C 4710 C784      01146        5950          BO    XID                 SKIP MOVING DATA.                    X4754000


001140 06A0                        5952          BCTR  R10,0               REDUCE LENGTH BY 1 FOR MVC.          X4758000
001142 44A0 C7A4      01166        5953          EX    R10,XIMOVE          MOVE DATA TO CALLER'S AREA.          X4760000


001146 9604 200C      0000C        5955 XID      OI    IOBCSW+3,4          SHOW CCW COMPLETE.                   X4764000
00114A 95C2 6000      00000        5956          CLI   0(R6),X'C2'         WAS READ-NO-FEED THE COMMAND...      X4766000
00114E 4780 C70E      010D0        5957          BE    XIA                 IF SO, DON'T UPDATE DDBUFPTR.        X4768000
001152 9519 9001      00001        5958          CLI   1(R9),X'19'         IS THIS LAST CARD OF DATASET...      X4770000
001156 4780 C70E      010D0        5959          BE    XIA                 IF SO, DON'T UPDATE DDBUFPTR.        X4772000
00115A 4180 8052      00052        5960 XIE      LA    R8,82(,R8)          UPDATE DDBUFPTR                      X4774000
00115E 4080 500A      0000A        5961          STH   R8,DDBUFPTR          BY 82.                              X4776000
XEQ      HASP EXCP INTERFACE -- INPUT DDB PROCESSING                                                           PAGE  134


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001162 47F0 C70E      010D0        5962          B     XIA                 NOW GO CHECK FOR ANOTHER CCW.        X4778000




001166 D200 F000 9002 00000 00002  5964 XIMOVE   MVC   0(*-*,R15),2(R9)    *** EXECUTE ONLY ***                 X4782000

XEQ      HASP EXCP INTERFACE -- INPUT DDB PROCESSING                                                           PAGE  135


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   5966 *                                                                       X4786000
                                   5967 *              SPECIAL PROCESSING - PRIMARY BUFFER NOT AVAILABLE        X4788000
                                   5968 *                                                                       X4790000

00116C 9108 5008      00008        5970 XNOINBUF TM    XS,XPEOD            IF PRIMARY END-OF-DATA,              X4794000
001170 4710 CCB8      0167A        5971          BO    XEOF                SHOW CALLER END-OF-FILE.             X4796000
001174 9144 5008      00008        5972          TM    XS,XPIOA+XSIOA      IF I/O ACTIVE ON EITHER BUFFER,      X4798000
001178 4740 CC94      01656        5973          BM    XFREEZE             JUST FREEZE CALLER.                  X4800000
00117C 47F0 C7D8      0119A        5974          B     XIACT               OTHERWISE START I/O ON PRIMARY BUF.  X4802000



                                   5976 *                                                                       X4806000
                                   5977 *              SPECIAL PROCESSING - PRIMARY BUFFER IS AT END-OF-BUFFER  X4808000

                                   5978 *                                                                       X4810000


001180 41E0 C70E      010D0        5980 XPBUFMT  LA    LINK,XIA            SET LINK REGISTER FOR XSWAP.         X4814000

001184 91F0 5008      00008        5981          TM    XS,XNSB+XSIO+XSIOA+XSEOD  IS SEC BUF AVAILABLE...        X4816000
001188 4780 C7E8      011AA        5982          BZ    XSWAP               IF SO, GO SWAP BUFFERS.              X4818000
00118C 9140 5008      00008        5983          TM    XS,XSIOA            IS I/O ACTIVE ON SECONDARY BUFFER... X4820000
001190 4710 C7E8      011AA        5984          BO    XSWAP               IF SO, GO SWAP BUFFERS.              X4822000
001194 D201 500A C5AE 0000A 00F70  5985          MVC   DDBUFPTR,XBUFOFF    SET INITIAL BUFFER OFFSET.           X4824000

00119A 9602 5008      00008        5987 XIACT    OI    XS,XPIO             SHOW PRIMARY I/O REQUIRED.           X4828000
00119E 9680 5009      00009        5988          OI    DDBSTAT2,XACT       SHOW ACTION REQUIRED ON THIS DDB.    X4830000
0011A2 45E0 CB96      01558        5989          BAL   LINK,XFIREUP        POST THIS PCE AND HASP, AND          X4832000
0011A6 47F0 CC94      01656        5990          B     XFREEZE             FREEZE THE CALLER.                   X4834000



                                   5992 *                                                                       X4838000

                                   5993 *              SUBROUTINE TO SWAP PRIMARY AND SECONDARY BUFFERS         X4840000
                                   5994 *                                                                       X4842000


0011AA 5880 500C      0000C        5996 XSWAP    L     R8,DDBPBUF          SWITCH PRIMARY                       X4846000
0011AE D203 500C 5010 0000C 00010  5997          MVC   DDBPBUF,DDBSBUF      AND SECONDARY                       X4848000
0011B4 5080 5010      00010        5998          ST    R8,DDBSBUF            BUFFER ADDRESSES.                  X4850000
0011B8 F200 5008 5008 00008 00008  5999          PACK  XS,XS               SWITCH THEIR FLAGS.                  X4852000
0011BE D201 500A C5AE 0000A 00F70  6000          MVC   DDBUFPTR,XBUFOFF    SET INITIAL BUFFER OFFSET.           X4854000
0011C4 9620 5008      00008        6001          OI    XS,XSIO             SHOW SECONDARY I/O REQUIRED.         X4856000
0011C8 9680 5009      00009        6002          OI    DDBSTAT2,XACT       SHOW ACTION REQUIRED THIS DDB.       X4858000
0011CC 47F0 CB96      01558        6003          B     XFIREUP             POST THIS PCE AND HASP.              X4860000
                                   6004 * NOTE- RETURN IS VIA 'LINK', PREVIOUSLY SET AT XPBUFMT AND XEOCP3.     X4862000
XEQ      HASP EXCP INTERFACE -- INPUT DDB PROCESSING                                                           PAGE  136


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6006 *                                                                       X4866000

                                   6007 *              SPECIAL PROCESSING - DD * TRACK ADDRESS ENCOUNTERED      X4868000
                                   6008 *                                                                       X4870000

0011D0 58F0 CDA6      01768        6010 XDDSTAR  L     R15,=V(XGETDDB)     GET A DDB                            X4874000

0011D4 05EF                        6011          BALR  LINK,R15            FOR THIS DATASET.                    X4876000
0011D6 4780 C836      011F8        6012          BZ    XWAITDDB            BRANCH IF NONE AVAILABLE.            X4878000
0011DA 18A1                        6013          LR    R10,R1              MOVE DDB ADDRESS TO R10              X4880000
                            00000  6014          USING DDBDSECT,R10        AND ESTABLISH ADDRESSABILITY.        X4882000

0011DC 9280 A004      00004        6016          MVI   DDBTYPE,XINDDB      SHOW DDB AS INPUT.                   X4886000

0011E0 92FF A010      00010        6017          MVI   DDBSBUF,XDDBMARK    SHOW DDB AS WAITING DD *.            X4888000
0011E4 D203 A018 9002 00018 00002  6018          MVC   DDBTTR,2(R9)        SET BEGINNING TTR IN DDB.            X4890000
                                   6019          AIF   ('&XBATCHC' EQ '').XNOBST                                X4892000
                                   6020 .XNOBST  ANOP                                                           X4920000
0011EA 9633 A008      00008        6021          OI    XS,XNPB+XNSB+XPIO+XSIO  SHOW NO BUFS, ALL I/O REQD.      X4922000
0011EE D201 A00A C5AE 0000A 00F70  6022          MVC   DDBUFPTR,XBUFOFF    SET INITIAL BUFFER OFFSET.           X4924000
                                   6023          DROP  R10                 DROP SECOND DDB BASE.                X4926000
0011F4 47F0 C798      0115A        6024          B     XIE                 GO UPDATE DDBUFPTR AND CONTINUE.     X4928000


                                   6026 *                                                                       X4932000

                                   6027 *              NO DDB WAS AVAILABLE TO ALLOCATE FOR A DD *              X4934000
                                   6028 *              CONTROL CARD.                                            X4936000
                                   6029 *                                                                       X4938000

0011F8 9640 D059      00059        6031 XWAITDDB OI    XSYNCFLG,XALLOCWT   SHOW PCE WAITING FOR A DDB.          X4942000
0011FC 9608 D058      00058        6032          OI    XPCESTAT,XSYNCREQ   SHOW SYNC REQUEST.                   X4944000
001200 4870 C5BC      00F7E        6033          LH    R7,XTSUCB           RESTORE UCB REGISTER.                X4946000
001204 45E0 CB96      01558        6034          BAL   LINK,XFIREUP        POST PCE AND HASP, AND               X4948000

001208 47F0 CC94      01656        6035          B     XFREEZE             FREEZE CALLER.                       X4950000



                                   6037 *                                                                       X4954000
                                   6038 *              SPECIAL PROCESSING - OUTPUT CONTROL RECORD               X4956000
                                   6039 *                                                                       X4958000


00120C                             6041 XOCRCARD DS    0H                                                       X4962000
00120C 58F0 D05C      0005C        6042          L     R15,XPCEOUTC        POINT TO THE OCR BUFFER.             X4964000

001210 12FF                        6043          LTR   R15,R15             IS THERE ONE...                      X4966000
001212 4770 C864      01226        6044          BNZ   XOCRCD1             BRANCH IF SO.                        X4968000
001216 9608 D059      00059        6045          OI    XSYNCFLG,XOUTCDBF   NO.  SHOW OCR BUFFER REQUIRED.       X4970000
00121A 9608 D058      00058        6046          OI    XPCESTAT,XSYNCREQ   SHOW SPECIAL REQUEST.                X4972000
00121E 45E0 CB96      01558        6047          BAL   R14,XFIREUP         ACTIVATE XEQ PCE AND HASP.           X4974000
001222 47F0 CC94      01656        6048          B     XFREEZE             THEN FREEZE THE READER.              X4976000


                            00000  6050          USING BUFDSECT,R15        USE ALTERNATE BUFFER DSECT.          X4980000
001226 58A0 F058      00058        6051 XOCRCD1  L     R10,BUFSTART        GET CURRENT OCR OFFSET IN R10.       X4982000
00122A 4110 F05C      0005C        6052          LA    R1,BUFSTART+4       POINT TO FIRST OCR.                  X4984000
                            00000  6053          USING OCRDSECT,R1         USE THE OCR DSECT.                   X4986000
00122E 410A F000      00000        6054          LA    R0,0(R10,R15)       CALC BYTE PAST LAST OCR.             X4988000

001232 1510                        6055 XOCRCD2  CLR   R1,R0               LOOP - ARE WE PAST OCRS...           X4990000
001234 47B0 C888      0124A        6056          BNL   XOCRCD3             BRANCH IF SO.                        X4992000
001238 D503 1000 9002 00000 00002  6057          CLC   OCRCODE,2(R9)       NO.  DOES THIS OCR MATCH NEW...      X4994000
00123E 4780 C894      01256        6058          BE    XOCRCD4             IF SO, REPLACE WITH NEW.             X4996000

XEQ      HASP EXCP INTERFACE -- INPUT DDB PROCESSING                                                           PAGE  137


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001242 4110 1020      00020        6059          LA    R1,OCREND           ELSE POINT TO NEXT OCR               X4998000
001246 47F0 C870      01232        6060          B     XOCRCD2             AND BRANCH TO LOOP.                  X5000000
                            00000  6061          USING OCRDSECT,R10        USE ANOTHER OCR DSECT.               X5002000
00124A 41A0 A020      00020        6062 XOCRCD3  LA    R10,OCREND          CALC LENGTH WITH ANOTHER OCR.        X5004000

                                   6063          C     R10,=F'&BUFSIZE'    WILL OCR FIT AT END...               X5006000
00124E 59A0 CDB6      01778        6064+         C     R10,=F'1960'        WILL OCR FIT AT END...               X5006000
001252 4720 C8A2      01264        6065          BH    XOCRCD5             IF NOT, WRITE OPER MSG.              X5008000
001256 D21F 1000 9002 00000 00002  6066 XOCRCD4  MVC   0(OCREND-OCRDSECT,R1),2(R9)  MOVE OCR TO BUFFER.         X5010000
00125C 50A0 F058      00058        6067          ST    R10,BUFSTART        SET NEW OCR OFFSET.                  X5012000

001260 47F0 C798      0115A        6068          B     XIE                 RETURN TO XSYSIN.                    X5014000
                                   6069          DROP  R1,R10,R15          DROP OCR, OCR, BUF DSECTS.           X5016000
001264 9604 D059      00059        6070 XOCRCD5  OI    XSYNCFLG,XOCRMSG    SHOW OCR MESSAGE REQUIRED.           X5018000
001268 9608 D058      00058        6071          OI    XPCESTAT,XSYNCREQ   SHOW SPECIAL ACTION.                 X5020000
00126C 47F0 C798      0115A        6072          B     XIE                 RETURN TO XSYSIN.                    X5022000

XEQ      HASP EXCP INTERFACE -- INPUT DDB PROCESSING                                                           PAGE  138


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6074 *                                                                       X5026000
                                   6075 *              SPECIAL PROCESSING - END OF CHANNEL PROGRAM              X5028000
                                   6076 *                                                                       X5030000


001270                             6078 XEOCP    DS    0H                                                       X5034000
                                   6079          AIF   ('&XBATCHC' EQ '').XNOB6                                 X5036000
001270 D502 5005 C1A2 00005 00B64  6080 .XNOB6   CLC   DDBUNIT,$RDRUNIT    IS THIS THE OS READER...             X5080000
001276 4770 C8D6      01298        6081          BNE   XEOCP3              BRANCH IF NOT.                       X5082000

00127A 9519 9001      00001        6082          CLI   1(R9),X'19'         WAS THIS LAST CARD OF DATASET...     X5084000
00127E 4770 C8D6      01298        6083          BNE   XEOCP3              BRANCH IF NOT.                       X5086000
001282 D703 C1AA C1AA 00B6C 00B6C  6084          XC    $RDRDDB,$RDRDDB     YES.  DISCONNECT THE READER. OY02728 X5088000
001288 947F B0C2      000C2        6085          NI    $STATUS,255-$RDRPEND  SHOW READER NOT ACTIVE.            X5090000
00128C 9681 5009      00009        6086 XEOCP2   OI    DDBSTAT2,XACT+XTERM SHOW DDB TO BE TERMINATED.           X5092000

001290 45E0 CB96      01558        6087          BAL   LINK,XFIREUP        POST PCE AND HASP, AND               X5094000
                                   6088          AIF   (NOT &SYSVS2).XVS28                                 RFIT X5095900
001294 47F0 CC94      01656        6089 .XVS28   B     XFREEZE             FREEZE TILL DDB TERMINATES      RFIT X5100200
                                   6090 .XVS29   ANOP                                                      RFIT X5100300
                                   6091 * CODE FOR NOT-OS-READER --                                             X5102000

001298 41E0 CCCE      01690        6092 XEOCP3   LA    LINK,XRET           SET LINK TO RETURN TO CALLER.        X5104000
00129C 4880 500A      0000A        6093          LH    R8,DDBUFPTR         COMPUTE START OF                     X5106000
0012A0 5A80 500C      0000C        6094          A     R8,DDBPBUF          NEXT LOGICAL RECORD.                 X5108000
0012A4 91FF 8000      00000        6095          TM    0(R8),X'FF'         IS IT RATHER END-OF-BUFFER...        X5110000
0012A8 07EE                        6096          BCR   NO,LINK             IF NOT, RETURN TO CALLER.            X5112000

0012AA 9170 5008      00008        6097          TM    XS,XNSB+XSIO+XSIOA  IS SECONDARY BUFFER AVAILABLE...     X5114000
0012AE 4780 C7E8      011AA        6098          BZ    XSWAP               IF SO, SWAP AND START PRIMARY I/O.   X5116000
0012B2 07FE                        6099          BR    LINK                OTHERWISE JUST RETURN TO CALLER.     X5118000
XEQ      HASP EXCP INTERFACE -- OUTPUT DDB PROCESSING                                                          PAGE  139


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6101 *                                                                       X5122000

                                   6102 *              HASP EXCP INTERFACE OUTPUT DDB PROCESSING                X5124000
                                   6103 *                                                                       X5126000

0012B4                             6105 XSYSOUT  DS    0H                  PROCESS AN OUTPUT REQUEST.           X5130000

0012B4 9500 5000      00000        6106          CLI   DDBCHAIN,0          INSURE THAT THE WHOLE                X5132000
0012B8 9500 5024      00024        6107          CLI   DDBEND,0            DDB IS IN CORE.                      X5134000
0012BC 45E0 CA68      0142A        6108 XOA      BAL   R14,XCCWSCAN        GO GET A CCW.                        X5136000
0012C0 47F0 CCCE      01690        6109          B     XRET                BRANCH IF END OF CHANNEL PROGRAM.    X5138000
0012C4 9101 5008      00008        6110          TM    XS,XNPB             DOES THE DDB HAVE A BUFFER...        X5140000

0012C8 4710 CA56      01418        6111          BO    XOACT               IF NOT, POST HASP AND FREEZE CALLER. X5142000

0012CC 4880 500A      0000A        6113          LH    R8,DDBUFPTR         GET CURRENT OFFSET WITHIN BUFFER     X5146000
0012D0 5890 500C      0000C        6114          L     R9,DDBPBUF          AND ADDRESS OF BUFFER.               X5148000
0012D4 1A98                        6115          AR    R9,R8               POINT TO FREE LOCATION IN BUFFER.    X5150000
0012D6 9102 6000      00000        6116          TM    0(R6),2             IS THE COMMAND A WRITE...            X5152000
0012DA 4780 C922      012E4        6117          BZ    *+10                BRANCH IF SO.                        X5154000

0012DE 1BAA                        6118          SR    R10,R10             OTHERWISE SHOW ZERO COUNT            X5156000
0012E0 47F0 C99A      0135C        6119          B     XOC                 AND SKIP MOVING DATA.                X5158000


0012E4 411A F000      00000        6121          LA    R1,0(R10,R15)       R1 = END OF DATA PLUS 1              X5172000
0012E8 0610                        6122          BCTR  R1,0                BACK UP ONE CHARACTER                X5174000
0012EA 9540 1000      00000        6123          CLI   0(R1),C' '          TEST LAST CHARACTER FOR BLANK        X5176000
0012EE 4770 C99A      0135C        6124          BNE   XOC                 BR IF NO                             X5178000
0012F2 41E0 0007      00007        6125          LA    R14,7               SET R14 TO VALUE 7                   X5180000

0012F6 15AE                        6126          CLR   R10,R14             TEST ORIGINAL COUNT                  X5182000
0012F8 47D0 C97E      01340        6127          BNH   XOBA                BR IF LESS THAN 8 CHARACTERS         X5184000
0012FC 14E1                        6128          NR    R14,R1              R14 = BYTES BEYOND LAST DBL-WD       X5186000
0012FE 1F1E                        6129          SLR   R1,R14              LAST DBL-WORD WITNIN DATA            X5188000
001300 44E0 C96E      01330        6130          EX    R14,XBLNKTST        TEST FOR BLANKS AT END OF LINE       X5190000
001304 4770 C99A      0135C        6131          BNE   XOC                 BR IF NO                             X5192000
001308 58E0 CDBA      0177C        6132          L     R14,=F'-8'          'INCREMENT' FOR FOLLOWING LOOP       X5194000
00130C 41F0 F000      00000        6133          LA    R15,0(,R15)         CLEAR HI-ORDER BYTE                  X5196000

001310 871E C98A      0134C        6134          BXLE  R1,R14,XOBC         BACK UP ONE DOUBLE-WORD              X5198000
001314 D507 1000 C966 00000 01328  6135          CLC   0(8,R1),XBLANKS     TEST FOR DOUBLE-WORD OF BLANKS       X5200000

00131A 4780 C94E      01310        6136          BE    *-10                BR IF YES                            X5202000
00131E 47F0 C994      01356        6137          B     XOBD                BR TO GET LINE LENGTH                X5204000
001322 000000000000
001328 4040404040404040            6138 XBLANKS  DC    0D'0',CL8' '        DOUBLE-WORD OF BLANKS                X5206000
001330 D500 1000 C966 00000 01328  6139 XBLNKTST CLC   0(*-*,R1),XBLANKS   *** EXECUTE ONLY ***                 X5208000

001336 0610                        6140 XOB      BCTR  R1,0                BACK UP ONE CHARACTER                X5210000
001338 9540 1000      00000        6141          CLI   0(R1),C' '          TEST FOR BLANK                       X5212000
00133C 4770 C99A      0135C        6142          BNE   XOC                 BR IF NO                             X5214000
001340 46A0 C974      01336        6143 XOBA     BCT   R10,XOB             REDUCE COUNT BY ONE                  X5216000
001344 41A0 0001      00001        6144 XOBB     LA    R10,1               SET COUNT FOR ALL-BLANK LINE         X5218000
001348 47F0 C99A      0135C        6145          B     XOC                  AND GO TO STORE COUNT               X5220000
00134C D507 F000 C966 00000 01328  6146 XOBC     CLC   0(8,R15),XBLANKS    TEST FOR ALL-BLANK LINE              X5222000
001352 4780 C982      01344        6147          BE    XOBB                BR IF YES                            X5224000
001356 41A0 1008      00008        6148 XOBD     LA    R10,8(,R1)          LAST KNOWN BLANK CHARACTER           X5226000

00135A 1FAF                        6149          SLR   R10,R15             REMAINING CHARACTERS IN RECORD       X5228000

00135C 42A0 9000      00000        6150 XOC      STC   R10,0(,R9)          STORE COUNT IN BUFFER.               X5230000

001360 418A 8002      00002        6152          LA    R8,2(R10,R8)        COMPUTE HASP BUF LENGTH REQUIRED.    X5234000
001364 4980 C5CA      00F8C        6153          CH    R8,XBUFLMT          IS THERE ROOM IN THIS BUFFER...      X5236000
001368 47B0 CA52      01414        6154          BNL   XFLUSH              IF NOT, FLUSH THE BUFFER.            X5238000

XEQ      HASP EXCP INTERFACE -- OUTPUT DDB PROCESSING                                                          PAGE  140


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00136C 12AA                        6155          LTR   R10,R10             WAS THE COMMAND CONTROL-ONLY...      X5240000
00136E 4780 C9C2      01384        6156          BZ    XOD                 IF SO, SKIP THE DATA MOVE.           X5242000

001372 06A0                        6158          BCTR  R10,0               REDUCE LENGTH BY 1 FOR MVC.          X5246000
001374 44A0 CA62      01424        6159          EX    R10,XOMOVE          MOVE DATA TO BUFFER.                 X5248000
001378 4100 0001      00001        6160          LA    R0,1                UPDATE COUNT                         X5250000
00137C 4A00 501C      0001C        6161          AH    R0,DDBCOUNT          OF LINES                            X5252000
001380 4000 501C      0001C        6162          STH   R0,DDBCOUNT           IN BUFFER.                         X5254000



001384 9604 200C      0000C        6164 XOD      OI    IOBCSW+3,4          SET DE IN CSW TO SHOW COMPLETION.    X5258000
001388 4080 500A      0000A        6165          STH   R8,DDBUFPTR         SET NEW BUFFER OFFSET IN DDB.        X5260000
00138C D200 9001 6000 00001 00000  6166          MVC   1(1,R9),0(R6)       SET COMMAND IN BUFFER.               X5262000
001392 9500 9000      00000        6167          CLI   0(R9),0             IS THIS A CONTROL RECORD...          X5264000

001396 4780 C9E4      013A6        6168          BE    XOE                 IF SO, SKIP PUNCH CHECK.             X5266000
00139A 9504 5004      00004        6169          CLI   DDBTYPE,XPUNDDB     IS THIS PUNCHED OUTPUT...    OY02728 X5268000
00139E 4770 C9E4      013A6        6170          BNE   XOE                 SKIP IF NOT.                         X5270000
0013A2 9241 9001      00001        6171          MVI   1(R9),X'41'         YES. CHANGE COMMAND TO X'41'.        X5272000

0013A6                             6173 XOE      DS    0H                                                       X5276000
0013A6 D502 5005 C5A2 00005 00F64  6174          CLC   DDBUNIT,$WTRUNIT    IS UNIT THE HASP WRITER...           X5278000
0013AC 4770 C8FA      012BC        6175          BNE   XOA                 IF NOT, GO DO NEXT CCW.              X5280000
0013B0 D501 9002 CDDA 00002 0179C  6176          CLC   2(2,R9),=C'//'      IS DATA A JCL CARD...                X5282000
0013B6 4770 C8FA      012BC        6177          BNE   XOA                 IF NOT, GO DO NEXT CCW.              X5284000
XEQ      HASP EXCP INTERFACE -- OUTPUT DDB PROCESSING                                                          PAGE  141



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6179 *                                                                       X5288000
                                   6180 *              SPECIAL PROCESSING - JCL CARD FROM HASP WRITER UNIT      X5290000
                                   6181 *                                                                       X5292000


0013BA 41E0 0001      00001        6183          LA    R14,1               SET UP REGISTERS                     X5296000
0013BE 58F0 500C      0000C        6184          L     R15,DDBPBUF         FOR BXH                      OY06923 X5298000
0013C2 4110 9003      00003        6185          LA    R1,3(,R9)           TO SCAN JCL CARD.                    X5300000
0013C6 1AF8                        6186          AR    R15,R8              R15 = NEXT BUFFER FIELD      OY06923 X5301000

0013C8 861E C8FA      012BC        6188          BXH   R1,R14,XOA          SCAN CARD                            X5304000
0013CC 9540 1000      00000        6189          CLI   0(R1),C' '           FOR                                 X5306000
0013D0 4770 CA06      013C8        6190          BNE   *-8                   FIRST BLANK.                       X5308000

0013D4 861E C8FA      012BC        6192          BXH   R1,R14,XOA          SCAN CARD                            X5312000
0013D8 9540 1000      00000        6193          CLI   0(R1),C' '           FOR FIRST                           X5314000

0013DC 4780 CA12      013D4        6194          BE    *-8                   NONBLANK THEREAFTER.               X5316000

0013E0 D502 1000 CDDC 00000 0179E  6196          CLC   0(3,R1),=C'DD '     IF CARD IS NOT A DD CARD,            X5320000

0013E6 4770 C8F2      012B4        6197          BNE   XSYSOUT             GO DO NEXT CCW.                      X5322000
0013EA 4110 1002      00002        6198          LA    R1,2(,R1)           POINT PAST THE DD CARD.              X5324000

0013EE 861E C8FA      012BC        6200          BXH   R1,R14,XOA          SCAN CARD                            X5328000
0013F2 9540 1000      00000        6201          CLI   0(R1),C' '           FOR FIRST CHARACTER                 X5330000
0013F6 4780 CA2C      013EE        6202          BE    *-8                   OF OPERAND.                        X5332000

0013FA 955B 1000      00000        6204          CLI   0(R1),C'$'          IF CHARACTER IS DOLLAR-SIGN,         X5336000
0013FE 4780 CA4A      0140C        6205          BE    XMODIT              CHANGE IT TO ASTERISK.               X5338000
001402 D503 1000 CDBE 00000 01780  6206          CLC   0(4,R1),=C'CATA'    IF OPERAND IS 'CATA',                X5340000
001408 4770 C8FA      012BC        6207          BNE   XOA                 CHANGE IT TO 'DATA'.                 X5342000
00140C 9707 1000      00000        6208 XMODIT   XI    0(R1),7             IF OPERAND IS NEITHER,               X5344000

001410 47F0 C8FA      012BC        6209          B     XOA                 JUST GO DO NEXT CCW.                 X5346000




                                   6211 *                                                                       X5350000

                                   6212 *              SPECIAL PROCESSING - OUTPUT BUFFER FULL OR ABSENT        X5352000
                                   6213 *                                                                       X5354000

                                   6215 * FULL OUTPUT BUFFER                                                    X5358000
001414 9602 5008      00008        6216 XFLUSH   OI    XS,XPIO             SHOW PRIMARY I/O REQUIRED ON DDB.    X5360000
                                   6217 * ABSENT OUTPUT BUFFER.                                                 X5362000
001418 9680 5009      00009        6218 XOACT    OI    DDBSTAT2,XACT       SHOW ACTION NEEDED THIS DDB.         X5364000
00141C 45E0 CB96      01558        6219          BAL   LINK,XFIREUP        POST PCE AND HASP.                   X5366000
001420 47F0 CC94      01656        6220          B     XFREEZE             FREEZE CALLER.                       X5368000



001424 D200 9002 F000 00002 00000  6222 XOMOVE   MVC   2(*-*,R9),0(R15)    *** EXECUTE ONLY ***                 X5372000
XEQ      HASP EXCP INTERFACE -- SUBROUTINES                                                                    PAGE  142



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

00142A                             6224 XCCWSCAN DS    0H                                                       X5376000

00142A 4860 200C      0000C        6225          LH    R6,IOBCSW+3         GET STATUS FROM CSW.                 X5378000

00142E 5460 CDC2      01784        6226          N     R6,=X'0000F3FF'     IS ANY BUT CE, DE ON...              X5380000
001432 5860 2018      00018        6227          L     R6,IOBRESTR         GET CCW ADDRESS.                     X5382000
001436 4770 CB3A      014FC        6228          BNZ   XCCW9               END CH PROG IF NONZERO STATUS.       X5384000
00143A 9104 200C      0000C        6229          TM    IOBCSW+3,4          HAS IT BEEN PROCESSED...             X5386000
00143E 4780 CA98      0145A        6230          BZ    XCCW2               IF NOT, GO CHECK IT.                 X5388000
001442 9140 6004      00004        6231 XCCW0    TM    4(R6),X'40'         YES.  DOES IT SHOW CMD CHAINING...   X5390000
001446 4710 CA90      01452        6232          BO    XCCW1               BRANCH IF SO TO CHAIN.               X5392000
00144A 960C 200C      0000C        6233          OI    IOBCSW+3,12         ELSE SHOW CHAN & DEVICE END.         X5394000
00144E 47F0 CB3A      014FC        6234          B     XCCW9               END CHANNEL PROGRAM.                 X5396000
001452 9200 200C      0000C        6235 XCCW1    MVI   IOBCSW+3,0          SHOW ZERO UNIT STATUS.               X5398000
001456 4160 6008      00008        6236          LA    R6,8(,R6)           POINT TO THE NEXT CCW.               X5400000
00145A 5060 2018      00018        6237 XCCW2    ST    R6,IOBRESTR         SHOW CCW ADR IN IOBRESTR.            X5402000

00145E 58F0 6000      00000        6238          L     R15,0(,R6)          GET DATA ADDRESS FROM CCW.           X5404000
001462 910F 6000      00000        6239          TM    0(R6),X'0F'         IS CCW VALID...                      X5406000
001466 4780 CB36      014F8        6240          BZ    XCCW8               IF NOT, CHANNEL PROGRAM CHECK.       X5408000

00146A 9107 6000      00000        6241          TM    0(R6),7             IS CCW A TRANSFER-IN-CHANNEL...      X5410000
00146E 4770 CABE      01480        6242          BNZ   XCCW3               BRANCH IF NOT.                       X5412000
001472 186F                        6243          LR    R6,R15              ELSE POINT TO THE NEXT CCW           X5414000
001474 4630 CA98      0145A        6244          BCT   R3,XCCW2             AND PERFORM THE TIC.        OY02728 X5415000
001478 45E0 CB96      01558        6245          BAL   LINK,XFIREUP        TIC LIMIT.  POST HASP.       OY02728 X5416000
00147C 47F0 CC94      01656        6246          B     XFREEZE             FREEZE CALLER.               OY02728 X5417000
001480 9503 6000      00000        6247 XCCW3    CLI   0(R6),3             IS CCW A PURE NOP...                 X5418000
001484 4780 CA80      01442        6248          BE    XCCW0               IF SO, GO CHECK FOR CHAINING.        X5420000
001488 48A0 6006      00006        6249          LH    R10,6(,R6)          GET CCW COUNT FIELD          OY02728 X5420200
00148C 12AA                        6250          LTR   R10,R10              AND TEST FOR ZERO.          OY02728 X5420400
00148E 4780 CB36      014F8        6251          BZ    XCCW8               IF 0, GO SET CHAN PROG CK.   OY02728 X5420600
001492 4100 00FE      000FE        6252          LA    R0,254              IF CCW COUNT                 OY02728 X5420800

001496 15A0                        6253          CLR   R10,R0               IS GREATER THAN             OY02728 X5421000
001498 47D0 CADC      0149E        6254          BNH   *+6                   MAX COUNT OF 254,          OY02728 X5421200
00149C 18A0                        6255          LR    R10,R0              SET COUNT TO 254.            OY02728 X5421400
00149E 4100 00F0      000F0        6256          LA    R0,240              R0 IS PROTECT KEY MASK.      OY02728 X5421600

0014A2 4810 0020      00020        6257          LH    R1,32               GET CALLER'S PROTECT KEY     OY02728 X5421800
0014A6 1410                        6258          NR    R1,R0                AND CLEAR OTHER BITS.       OY02728 X5422000
0014A8 4780 E004      00004        6259          BZ    4(,R14)             RETURN +4, KEY ZERO CALLER.  OY02728 X5422200
0014AC 9103 6000      00000        6260          TM    0(R6),X'03'         TEST COMAND MODE             OY02744 X5422300
0014B0 4710 E004      00004        6261          BO    4(,R14)             RETURN +4 IF CONTROL         OY02744 X5422350
0014B4 187F                        6262          LR    R7,R15              GET LEFT DATA ADDRESS.       OY02728 X5422400

0014B6 4370 CDDF      017A1        6263          IC    R7,=X'00'           ZERO LOW BYTE OF ADDRESS.    OY02728 X5422600
0014BA 9500 7000      00000        6264          CLI   0(R7),0             INSURE PAGE IN STORAGE.      OY02728 X5422800
                                   6265         $LRA   R7,0(,R7)           GENERATE REAL ADDRESS. OY02728  RFIT X5423000
0014BE 4170 7000      00000        6266+         LA    R7,0(,R7)           VIRTUAL TRANSLATION             RFIT LR016000
0014C2 1900                        6267+         CR    0,0                 CC = 0                          RFIT LR018000
0014C4 0977                        6268          ISK   R7,R7               GET KEY FROM STORAGE         OY02728 X5423200
0014C6 1470                        6269          NR    R7,R0                AND CLEAR OTHER BITS.       OY02728 X5423400
0014C8 1571                        6270          CLR   R7,R1               COMPARE KEYS.                OY02728 X5423600

0014CA 4770 CB2E      014F0        6271          BNE   XCCW7               IF NE, GO SET CHAN PROT CK.  OY02728 X5423800
0014CE 417F A000      00000        6272          LA    R7,0(R15,R10)       GENERATE RIGHT               OY02728 X5424000

0014D2 0670                        6273          BCTR  R7,0                 DATA ADDRESS.               OY02728 X5424200
0014D4 4370 CDDF      017A1        6274          IC    R7,=X'00'           ZERO LOW BYTE OF ADDRESS.    OY02728 X5424400
0014D8 9500 7000      00000        6275          CLI   0(R7),0             INSURE PAGE IN STORAGE.      OY02728 X5424600
                                   6276         $LRA   R7,0(,R7)           GENERATE REAL ADDRESS. OY02728  RFIT X5424800
0014DC 4170 7000      00000        6277+         LA    R7,0(,R7)           VIRTUAL TRANSLATION             RFIT LR016000
0014E0 1900                        6278+         CR    0,0                 CC = 0                          RFIT LR018000
XEQ      HASP EXCP INTERFACE -- SUBROUTINES                                                                    PAGE  143


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


0014E2 0977                        6279          ISK   R7,R7               GET KEY FROM STORAGE         OY02728 X5425000
0014E4 1470                        6280          NR    R7,R0                AND CLEAR OTHER BITS.       OY02728 X5425200
0014E6 1571                        6281          CLR   R7,R1               COMPARE KEYS.                OY02728 X5425400
0014E8 4770 CB2E      014F0        6282          BNE   XCCW7               IF NE, GO SET CHAN PROT CK.  OY02728 X5425600
                                   6283          AIF   (&SYSMFT OR &SYSMVT).XSGVAL1                        RFIT X5425650

                                   6284 .XSGVAL1  ANOP                                                     RFIT X5428500
0014EC 47F0 E004      00004        6285          B     4(,R14)             SEGMENT IS VALID FOR NON-VS     RFIT X5428550
                                   6286 .XSGVAL2  ANOP                                                     RFIT X5428575

0014F0 9610 200D      0000D        6287 XCCW7    OI    IOBCSW+4,X'10'      SET CHANNEL PROTECT CHECK.   OY02728 X5428600
0014F4 47F0 CB3A      014FC        6288          B     XCCW9               GO END CHANNEL PROGRAM.      OY02728 X5428800
0014F8 9620 200D      0000D        6289 XCCW8    OI    IOBCSW+4,X'20'      SHOW CHANNEL PROGRAM CHECK.          X5430000
0014FC 4160 6008      00008        6290 XCCW9    LA    R6,8(,R6)           END OF CHANNEL PROGRAM ---           X5432000
                                   6291 *        STCM  R6,7,IOBCSW         SHOW ADR OF LAST CCW+8          RFIT X5434000
001500 5060 C456      00E18        6292          ST    R6,DARTSCR2                                         RFIT X5434005
001504 D202 2009 C457 00009 00E19  6293          MVC   IOBCSW(3),DARTSCR2+1                                RFIT X5434010

00150A 4860 200C      0000C        6294          LH    R6,IOBCSW+3         GET STATUS.                          X5436000
00150E 5460 CDC2      01784        6295          N     R6,=X'0000F3FF'     CHECK ALL BUT CE, DE.                X5438000
001512 927F 2004      00004        6296          MVI   IOBECBCC,X'7F'      ASSUME ONLY CE+DE, POST 7F.          X5440000
001516 4780 CB5C      0151E        6297          BZ    *+8                 SKIP IF ONLY CE+DE.                  X5442000
00151A 9241 2004      00004        6298          MVI   IOBECBCC,X'41'      ELSE POST 41.                        X5444000

00151E 07FE                        6299          BR    R14                 RETURN TO +0.                        X5446000
XEQ      HASP EXCP INTERFACE -- SUBROUTINES                                                                    PAGE  144


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6301          ENTRY XGETDDB                                                  X5450000

                                   6302          DROP  R5                  DROP OTHER DDB BASE REGISTER.        X5452000
001520                             6303 XGETDDB  DS    0H                                                       X5454000
                            01520  6304          USING *,R15               USE LOCAL ADDRESSABILITY.            X5456000
001520 4110 D078      00078        6305          LA    R1,XPCEDDB-(DDBCHAIN-DDBDSECT)   SET UP FOR LOOP.        X5458000
                            00000  6306          USING DDBDSECT,R1         USE DDB DSECT IN R1.                 X5460000
001524 1801                        6307          LR    R0,R1               SAVE ADDRESS OF XPCEDDB OR LAST DDB. X5462000

001526 5810 1000      00000        6308          L     R1,DDBCHAIN         POINT TO NEXT DDB.                   X5464000
00152A 1211                        6309          LTR   R1,R1               IF POINTER NONZERO, LOOP.  ELSE      X5466000
00152C 4770 F004      01524        6310          BNZ   *-8                 R0 PTS TO LAST DDB ON PCE CHAIN.     X5468000
001530 5810 F034      01554        6311          L     R1,$DDBPOOL         POINT TO A NEW DDB.                  X5470000
001534 1211                        6312          LTR   R1,R1               IS A DDB AVAILABLE...                X5472000

001536 078E                        6313          BZR   LINK                IF NOT, RETURN CC=0.                 X5474000
001538 9500 1023      00023        6314          CLI   DDBEND-1,0          YES.  BE SURE ITS REAR IS IN CORE.   X5476000
00153C D203 F034 1000 01554 00000  6315          MVC   $DDBPOOL,DDBCHAIN   DECHAIN IT FROM FREE POOL.           X5478000
001542 1BFF                        6316          SR    R15,R15             ZERO OUT                             X5480000

001544 50F0 1000      00000        6317          ST    R15,DDBCHAIN        ITS CHAIN WORD.                      X5482000
001548 12F0                        6318          LTR   R15,R0              GET LAST DDB PTR IN R15, SET CC.     X5484000
                            00000  6319          USING DDBDSECT,R15        USE DDB DSECT IN R15.                X5486000
00154A 5010 F000      00000        6320          ST    R1,DDBCHAIN         HOOK NEW DDB ONTO LAST DDB.          X5488000
00154E 50D0 1020      00020        6321          ST    SAVE,DDBPCE-DDBDSECT(,R1)  SHOW OWNING PCE IN DDB.       X5490000
001552 07FE                        6322          BR    LINK                RETURN WITH CC=2.                    X5492000

                                   6323          DROP  R1                  DROP TEMPORARY DDB BASE.             X5494000
                            00000  6324          USING DDBDSECT,R5         REESTABLISH DDB BASE IN R5.          X5496000
001554 000024A4                    6325 $DDBPOOL DC    A($DDTONE)          FREE DDB CHAIN POINTER.              X5498000
XEQ      HASP EXCP INTERFACE -- SUBROUTINES                                                                    PAGE  145


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


001558                             6327 XFIREUP  DS    0H                                                       X5502000
                                   6328         $POST  PCEEWF+$EWBWORK,WORK  POST THE PCE FOR WORK.             X5504000
001558 94DF D049      00049        6329+         NI    PCEEWF+$EWBWORK,255-$EWFWORK                             PO008000
00155C 947F B0C4      000C4        6330+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
001560                             6331 XINRFIRE DS    0H                                                       X5506000

001560 90AE CBBE      01580        6332          STM   R10,R14,XFSAVE      SAVE REGISTERS.                      X5508000
001564 05E0                        6333          BALR  R14,0               ESTABLISH LOCAL                      X5510000
                            01566  6334          USING *,R14               ADDRESSABILITY.                      X5512000
001566 58F0 0010      00010        6335          L     R15,$CVTPTR         POINT TO CVT AND THENCE              X5514000
00156A 58F0 F098      00098        6336          L     R15,CVT0PT01-CVTDSECT(,R15)  TO IEA0PT01.                X5516000

00156E 58C0 B0D4      000D4        6337          L     R12,$HASPTCB        R12 = TCB ADDRESS.                   X5518000
001572 41B0 B0D8      000D8        6338          LA    R11,$HASPECB        R11 = ECB ADDRESS.                   X5520000
001576 1BAA                        6339          SR    R10,R10             R10 = POST CODE.                     X5522000
001578 05EF                        6340          BALR  R14,R15             POST THE HASP TASK.                  X5524000
                            0157A  6341          USING *,R14               RE-ESTABLISH ADDRESSABILITY.         X5526000

00157A 98AE E006      01580        6342          LM    R10,R14,XFSAVE      RESTORE REGISTERS.                   X5528000
00157E 07FE                        6343          BR    R14                 RETURN TO CALLER.                    X5530000
001580                             6344 XFSAVE   DS    5F                  SAVE AREA.                           X5532000
                                   6345          DROP  R14                 DROP LOCAL ADDRESSABILITY.           X5534000
XEQ      HASP EXCP INTERFACE -- SUBROUTINES                                                                    PAGE  146


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   6347          ENTRY XJOBSRCH,XJOBSRC2                                        X5538000
001594                             6348 XJOBSRC2 DS    0H            ENTRY FOR SCAN BY JOBNAME.                 X5540000
                            01594  6349          USING *,R15               GET LOCAL ADDRESSABILITY.            X5542000
001594 41F0 F008      0159C        6350          LA    R15,XJOBSRCH        CHANGE ADDRESSABILITY                X5544000

                            0159C  6351          USING XJOBSRCH,R15        TO XJOBSRCH.                         X5546000
001598 47F0 F022      015BE        6352          B     XJSPCE              GO TO SCAN-BY-JOBNAME CODE.          X5548000

                                   6354 *XJOBSRCHICM  R1,7,TCBJSCB+1  ENTRY FOR SCAN BY JSCB & JOBNAME.    RFIT X5552000
00159C 5810 40B4      000B4        6355 XJOBSRCH L     R1,TCBJSCB                                          RFIT X5552005

0015A0 4110 1000      00000        6356          LA    R1,0(,R1)                                           RFIT X5552010
0015A4 1211                        6357          LTR   R1,R1                                               RFIT X5552015
0015A6 078E                        6358          BCR   Z,LINK              RETURN CC=0 IF NO JSCB.              X5554000
                            00000  6359          USING JSCDSECT,R1         USE THE JSCB DSECT.                  X5556000
                                   6360          AIF   (&SYSVS2).XVS23                                     RFIT X5556100
0015A8 5810 407C      0007C        6361          L     R1,TCBJSTCB         GO TO JOB STEP TCB              RFIT X5556200
                                   6362 *        ICM   R13,B'0111',TCBPCE+1-TCBDSECT(R1)                   RFIT X5556300

0015AC 58D1 00B0      000B0        6363          L     R13,TCBPCE-TCBDSECT(R1)                             RFIT X5556305
0015B0 41D0 D000      00000        6364          LA    R13,0(,R13)                                         RFIT X5556310
0015B4 12DD                        6365          LTR   R13,R13                                             RFIT X5556315

                                   6366 *                                  TO GET POTENTIAL PCE ADDRESS    RFIT X5556400
                                   6367          AGO   .XVS24                                              RFIT X5556500
                                   6368 .XVS24   ANOP                                                      RFIT X5558100
0015B6 4770 F042      015DE        6369          BNZ   XJSCC2              RETURN CC=2 IF NONZERO.              X5560000
0015BA 5810 400C      0000C        6370          L     R1,TCBTIO           ELSE POINT TO JOBNAME IN TIOT.       X5562000

0015BE 58D0 F1EC      01788        6371 XJSPCE   L     R13,=V($EXECPCE)    POINT TO FIRST EXECUTION PCE.        X5564000
                                   6372          LA    R0,&MAXXEQS         GET COUNT OF EXECUTION PCES.         X5566000
0015C2 4100 0003      00003        6373+         LA    R0,3                GET COUNT OF EXECUTION PCES.         X5566000
0015C6 D507 D06C 1000 0006C 00000  6374 XJS1     CLC   XPCEJOBN,0(R1)      DOES THIS PCE CONTAIN JOBNAME...     X5568000
0015CC 4780 F04A      015E6        6375          BE    XJSCC3              BRANCH IF SO.                        X5570000
0015D0 58D0 D008      00008        6376          L     R13,PCENEXT         OTHERWISE POINT TO NEXT              X5572000
0015D4 4600 F02A      015C6        6377          BCT   R0,XJS1             EXECUTION PCE AND LOOP.              X5574000
0015D8 91FF F03C      015D8        6378          TM    *,X'FF'             JOBNAME NOT FOUND.                   X5576000

0015DC 07FE                        6379          BR    LINK                RETURN CC=1.                         X5578000
0015DE 58F0 D060      00060        6380 XJSCC2   L     R15,XPCEJST         TEST FOR VALID               OY03480 X5579000

0015E2 10FF                        6381          LPR   R15,R15             PCE SET                      OY03480 X5580000
0015E4 07FE                        6382          BR    LINK                CC2 OR CC0                   OY03480 X5582000
0015E6 91FF F04B      015E7        6383 XJSCC3   TM    *+1,X'FF'           PCE FOUND BY JOBNAME -               X5584000
0015EA 07FE                        6384          BR    LINK                RETURN CC=3.                         X5586000
                                   6385          DROP  R1,R15              DROP JSCB, LOCAL BASES.              X5588000

XEQ      HASP EXCP INTERFACE -- SUBROUTINES                                                                    PAGE  147


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0015EC                             6387 $XWTREND DS    0H                                                       X5592000
                            015EC  6388          USING *,R15               SET LOCAL ADDRESSABILITY.            X5594000
0015EC 58C0 F1A0      0178C        6389          L     BASE2,=A(XIBASE)    GET GLOBAL BASE.                     X5596000
0015F0 58B0 C5B2      00F74        6390          L     BASE1,XBAS1CON      GET HASP BASE.                       X5598000
                                   6391          DROP  R15                 DROP LOCAL ADDRESSABILITY.           X5600000
                                   6392 *        ICM   R13,15,$WTRPCE      POINT TO PCE ASSOC WITH WTR     RFIT X5602000
0015F4 58D0 C5A6      00F68        6393          L     R13,$WTRPCE                                         RFIT X5602005

0015F8 12DD                        6394          LTR   R13,R13                                             RFIT X5602010

0015FA 07DE                        6395          BCR   NP,R14              IF WRITER NOT ACTIVE, RETURN.        X5604000
0015FC 92FF C5A6      00F68        6396          MVI   $WTRPCE,X'FF'       ELSE SHOW WRITER INACTIVE,           X5606000
001600 9680 D059      00059        6397          OI    XSYNCFLG,XEOJBIT    SHOW JOB IS ENDED.                   X5608000
001604 9608 D058      00058        6398          OI    XPCESTAT,XSYNCREQ   SHOW SYNC REQUEST.                   X5610000
001608 47F0 CB96      01558        6399          B     XFIREUP             AND POST PCE AND HASP.               X5612000

                                   6400 * NOTE - XFIREUP WILL RETURN ON REGISTER 'LINK'.                        X5614000

                                   6402 *                                                               OY08671 X5614200
                                   6403 *              CHECK FOR READER ON PCE                          OY08671 X5614300
                                   6404 *                                                               OY08671 X5614400

00160C                             6406 XPROTRDR DS    0H                                               OY08671 X5614500
00160C 41E0 C15E      00B20        6407          LA    LINK,XTERMDDB       LOAD RETURN ADDRESS          OY08671 X5614600
001610                             6408 XPROTRD1 DS    0H                                               OY08671 X5614700
                                   6409 *        ICM   R5,15,$RDRDDB       IS READER ACTIVE?            OY08671 X5614800

001610 5850 C1AA      00B6C        6410          L     R5,$RDRDDB                                      FJP/RFIT X5614805

001614 1255                        6411          LTR   R5,R5                                           FJP/RFIT X5614810
001616 47D0 CC6E      01630        6412          BNP   XRDRNA              NO, THEN BRANCH              OY08671 X5614900
00161A 55D0 C1A6      00B68        6413          CL    R13,$RDRPCE         IS THIS THE READERS PCE      OY08671 X5615000
00161E 4770 CC6E      01630        6414          BNE   XRDRNA              NO, THEN BRANCH              OY08671 X5615100

001622 5810 CDCE      01790        6415          L     R1,=A(XTHRDTCB)     ELSE,                        OY08671 X5615200
001626 D203 1000 407C 00000 0007C  6416          MVC   0(4,R1),TCBJSTCB    PREPARE TO FREEZE            OY08671 X5615300
00162C 47F0 CC88      0164A        6417          B     XSLUSHY             THE CALLER                   OY08671 X5615400
001630                             6418 XRDRNA   DS    0H                                               OY08671 X5615500
001630 D203 D060 407C 00060 0007C  6419          MVC   XPCEJST,TCBJSTCB    PUT JOBSTEP TCB IN XEQ PCE   OY08671 X5615600
001636 07FE                        6420          BR    LINK                RETURN                       OY08671 X5615700
XEQ      HASP EXCP INTERFACE -- SUBROUTINES                                                                    PAGE  148


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6422 *                                                                       X5618000
                                   6423 *              EXIT ROUTINE TO DELAY A CALLING TASK                     X5620000
                                   6424 *                                                                       X5622000


001638                             6426 XSLUSH   DS    0H                                                       X5626000
001638 58F0 CD9E      01760        6427          L     R15,=V(XJOBSRCH)    GO SEARCH FOR                        X5628000
00163C 05EF                        6428          BALR  LINK,R15            THE ASSOCIATED PCE.                  X5630000

00163E 47C0 C44A      00E0C        6429          BC    8+4,XRETURN4        IF NOT FOUND, ABEND 100.             X5632000
001642 45E0 CC4E      01610        6430          BAL   LINK,XPROTRD1       CHECK READER                 OY08671 X5634000
                                   6431 * ENTRY FOR KNOWN PCE                                                   X5636000
001646 9620 D058      00058        6432 XSLUSHX  OI    XPCESTAT,XPOSTBIT   TURN ON THE POST BIT FOR XTHAW.      X5638000
                                   6433 * ENTRY FOR WRITER WHEN PCE IS UNKNOWN                                  X5640000
00164A 58D0 CDD2      01794        6434 XSLUSHY  L     R13,=V($XTHPCE)     POST THE                             X5642000
                                   6435         $POST  PCEEWF+$EWBWORK,WORK  XTHAW PROCESSOR.                   X5644000
00164E 94DF D049      00049        6436+         NI    PCEEWF+$EWBWORK,255-$EWFWORK                             PO008000
001652 947F B0C4      000C4        6437+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   6438 * ENTRY TO BACK UP SVC OLD PSW AND COOL OFF TASK.                       X5646000
001656                             6439 XFREEZE  DS    0H                                                       X5648000
001656                             6440 XFROZE   DS    0H                                                       X5650000

001656 58F0 CDD6      01798        6441          L     R15,=V(XCOOL)       POINT TO SUBROUTINE WHICH            X5652000
00165A 05EF                        6442          BALR  LINK,R15            CALLS STATUS, AND SET NONDISPATCH.   X5654000
                                   6443          AIF   (&SYSVS2).XVS25                                     RFIT X5654100

00165C 5800 0024      00024        6444          L     R0,36               SVC OLD                         RFIT X5654200
001660 0600                        6445          BCTR  R0,0                BACK UP ONE                     RFIT X5654300
001662 0600                        6446          BCTR  R0,0                BACK UP ANOTHER                 RFIT X5654400
001664 9180 0024      00024        6447          TM    36,X'80'            WAS SVC EXECUTED                RFIT X5654500
001668 4780 CCAE      01670        6448          BZ    *+8                 BR IF NO                        RFIT X5654600
00166C 0600                        6449          BCTR  R0,0                YES...BACK UP ANOTHER           RFIT X5654700
00166E 0600                        6450          BCTR  R0,0                AND ONE MORE                    RFIT X5654800
001670 5000 0024      00024        6451          ST    R0,36               RESET SVC OLD                   RFIT X5654900
                                   6452          AGO   .XVS26                                              RFIT X5655000
                                   6453 .XVS26   ANOP                                                      RFIT X5660100
001674 98EC C45A      00E1C        6454          LM    R14,R12,XSPSAVE     RESTORE IOS REGISTERS                X5662000
001678 07FE                        6455          BR    R14                 AND RETURN TO +0.                    X5664000





                                   6457 * END-OF-FILE                                                           X5668000
00167A 960D 200C      0000C        6458 XEOF     OI    IOBCSW+3,13         SHOW CE, DE, UEX STATUS.             X5670000

00167E 9241 2004      00004        6459          MVI   IOBECBCC,X'41'      SHOW POST CODE OF 41.                X5672000
001682 4160 6008      00008        6460          LA    R6,8(,R6)           POINT TO NEXT CCW                    X5674000
                                   6461 *        STCM  R6,7,IOBCSW         AND PUT ITS ADDRESS IN CSW.     RFIT X5676000
001686 5060 C456      00E18        6462          ST    R6,DARTSCR2                                         RFIT X5676005
00168A D202 2009 C457 00009 00E19  6463          MVC   IOBCSW(3),DARTSCR2+1                                RFIT X5676010

                                   6465 * RETURN TO CALLER                                                      X5680000
001690 5810 2004      00004        6466 XRET     L     R1,IOBECBCC         POINT TO ECB.                        X5682000
                                   6467 *        STCM  R1,8,0(R1)          PUT COMPLETION CODE IN ECB.     RFIT X5684000
001694 D200 1000 2004 00000 00004  6468          MVC   0(1,R1),IOBECBCC                                    RFIT X5684005
00169A 94FE 2000      00000        6469          NI    IOBFLAG1,255-1      TURN OFF RESTART FLAG.               X5686000
00169E 98EC C45A      00E1C        6470          LM    R14,R12,XSPSAVE     RESTORE REGISTERS                    X5688000

0016A2 07FE                        6471          BR    R14                 AND RETURN.                          X5690000
XEQ      HASP EXCP INTERFACE -- SUBROUTINES                                                                    PAGE  149



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   6473          ENTRY XCOOL                                                    X5694000
0016A4                             6474 XCOOL    DS    0H            SUBROUTINE TO MAKE TCBS NONDISPATCHABLE    X5696000
                            016A4  6475          USING *,R15               SET LOCAL ADDRESSABILITY.            X5698000
0016A4 50E0 F030      016D4        6476          ST    R14,XCOOLSAV        SAVE RETURN REGISTER.                X5700000
0016A8 5800 F034      016D8        6477          L     R0,XCOOLR0          SET R0=HASP FREEZE,ND,TCB,E.         X5702000
0016AC 4110 4000      00000        6478          LA    R1,0(,R4)           SET R1 POINTING TO TCB.              X5704000
0016B0 58F0 B12C      0012C        6479          L     R15,$STATENT        POINT TO IGC07902                    X5706000
0016B4 05EF                        6480          BALR  R14,R15             AND GO SET STATUS.                   X5708000
0016B6 05F0                        6481          BALR  R15,0               RESET LOCAL                          X5710000
                            016B8  6482          USING *,R15               ADDRESSABILITY.                      X5712000
0016B8 58E0 F01C      016D4        6483          L     R14,XCOOLSAV        RESTORE RETURN REGISTER.             X5714000
0016BC 5810 0010      00010        6484          L     R1,CVTPTR           R1 = CVT ADDRESS             OY02728 X5714300

0016C0 5810 1000      00000        6485          L     R1,CVTTCBP-CVTDSECT(,R1)  R1 = TCB PTRS ADDRESS  OY02728 X5714600
0016C4 D503 1000 1004 00000 00004  6486          CLC   0(4,R1),4(R1)       ANY PREVIOUS TASK SWITCH     OY02728 X5714900
0016CA 077E                        6487          BNER  R14                 IF YES, RETURN TO CALLER     OY02728 X5715200

0016CC D703 1000 1000 00000 00000  6488          XC    0(4,R1),0(R1)       INDICATE TASK SWITCH         OY02728 X5715500
0016D2 07FE                        6489          BR    R14                 RETURN TO CALLER.                    X5716000
0016D4                             6490 XCOOLSAV DS    F                   REGISTER 14 SAVE AREA.               X5718000
0016D8 1000000C                    6491 XCOOLR0  DC    0F'0',AL2(XTCBHNDS,12)  ARGUMENT TO STATUS.              X5720000
                                   6492          DROP  R15                                                      X5722000
XEQ      HASP EXCP INTERFACE -- SUBROUTINES                                                                    PAGE  150


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6494          ENTRY XWARM                                                    X5726000
0016DC                             6495 XWARM    DS    0H            SUBROUTINE TO MAKE JOBSTEP DISPATCHABLE.   X5728000
                            016DC  6496          USING *,R15               SET LOCAL ADDRESSABILITY.            X5730000
                                   6497 *        ICM   R4,8,=X'80'         SET H-O BIT ON IN TCB ADDROY2728RFIT X5731000
0016DC 4300 F0C6      017A2        6498          IC    R0,=X'80'                                           RFIT X5731005

0016E0 8900 0018      00018        6499          SLL   R0,24                                               RFIT X5731010
0016E4 8940 0008      00008        6500          SLL   R4,8                                                RFIT X5731015
0016E8 8840 0008      00008        6501          SRL   R4,8                                                RFIT X5731020
0016EC 1640                        6502          OR    R4,R0                                               RFIT X5731025

                                   6503          AIF   (&SYSMFT OR &SYSMVT).XVS2C                          RFIT X5731500
                                   6504 .XVS2C   $DISABLE ALL              DISABLE INTERRUPTS              RFIT X5732200
0016EE 8000 B0C9      000C9        6505+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
                                   6506 *                                                                  RFIT X5732300
                                   6507 * CODE BRANCHING TO XWARM ENABLED, MUST ENABLE UPON RETURN.        RFIT X5732400
                                   6508 *                                                                  RFIT X5732500

                                   6509 .XVS2D   ANOP                                                      RFIT X5732600
                                   6510 * VALIDITY-CHECK TCB                                                    X5734000
                                   6511         $LRA   R0,0(,R4)           IF ARGUMENT TCB IS              RFIT X5736000
0016F2 4100 4000      00000        6512+         LA    R0,0(,R4)           VIRTUAL TRANSLATION             RFIT LR016000
0016F6 1900                        6513+         CR    0,0                 CC = 0                          RFIT LR018000
0016F8 4770 F080      0175C        6514          BNZ   XWARM9              OUT OF CORE, RETURN.                 X5738000
0016FC 9180 4021      00021        6515          TM    TCBFLGS+4,X'80'     IF ARGUMENT TCB IS                   X5740000
001700 4710 F080      0175C        6516          BO    XWARM9              TERMINATED, RETURN.                  X5742000

                                   6517 *        CLM   R4,7,TCBJSTCB+1     IF ARGUMENT TCB IS              RFIT X5744000
001704 5040 F078      01754        6518          ST    R4,DARTSCR3                                         RFIT X5744005

001708 D502 F079 407D 01755 0007D  6519          CLC   DARTSCR3+1(3),TCBJSTCB+1                            RFIT X5744010
00170E 4770 F080      0175C        6520          BNE   XWARM9              NOT JOBSTEP, RETURN.                 X5746000
                                   6521          AIF   (&SYSMFT OR &SYSVS1).XVS27                          RFIT X5746100
                                   6522 *        ICM   R1,7,TCBOTC+1       IF ARGUMENT TCB IS              RFIT X5748000
001712 5810 4084      00084        6523          L     R1,TCBOTC                                           RFIT X5748005
001716 1211                        6524          LTR   R1,R1                                               RFIT X5748010
001718 4780 F080      0175C        6525          BZ    XWARM9              MOTHERLESS, RETURN.                  X5750000
                                   6526         $LRA   R0,0(,R1)           IF MOTHER TCB IS                RFIT X5752000

00171C 4100 1000      00000        6527+         LA    R0,0(,R1)           VIRTUAL TRANSLATION             RFIT LR016000
001720 1900                        6528+         CR    0,0                 CC = 0                          RFIT LR018000
001722 4770 F080      0175C        6529          BNZ   XWARM9              OUT OF CORE, RETURN.                 X5754000
                                   6530 *        CLM   R4,7,TCBLTC+1-TCBDSECT(R1) IF ARGUMENT TCB IS       RFIT X5756000
001726 5040 F078      01754        6531          ST    R4,DARTSCR3                                         RFIT X5756005

00172A D502 F079 1089 01755 00089  6532          CLC   DARTSCR3+1(3),TCBLTC+1-TCBDSECT(R1)                 RFIT X5756010
001730 4770 F080      0175C        6533          BNE   XWARM9              NOT MOTHER'S ONLY DAUGHTER, RETURN.  X5758000
                                   6534 .XVS27   ANOP                                                      RFIT X5758100
                                   6535 * END VALIDITY CHECK                                                    X5760000
001734 5800 F07C      01758        6536          L     R0,XWARMR0          SET R0=HASP FREEZE,ND,TCB.           X5762000
001738 1814                        6537          LR    R1,R4               SET R1 = TCB ADDRESS         OY02728 X5764000
00173A 184E                        6538          LR    R4,R14              SAVE CALLER'S RETURN.                X5768000
00173C 58F0 B12C      0012C        6539          L     R15,$STATENT        POINT TO IGC07902                    X5770000
001740 05EF                        6540          BALR  R14,R15             AND RESET STATUS.                    X5772000
001742 58F0 E00E      0000E        6541          L     R15,XWARMA-*(,R14)  RELOAD LOCAL ADDRESSABILITY  OY02728 X5773000
001746 18E4                        6542          LR    R14,R4              RESTORE CALLER'S RETURN.             X5774000
001748 4140 1000      00000        6543          LA    R4,0(,R1)           RESTORE TCB ADDRESS.                 X5776000

00174C 47F0 F080      0175C        6544          B     XWARM9              GO DO RETURN                 OY02728 X5778000
001750 000016DC                    6545 XWARMA   DC    A(XWARM)            ENTRY POINT ADDRESS          OY02728 X5784000
001754                             6546 DARTSCR3 DS    F                       SCRATCH AREA                RFIT X5784005

001758 10000005                    6547 XWARMR0  DC    0F'0',AL2(XTCBHNDS,5)  ARGUMENT TO STATUS.               X5786000
                                   6548          AIF   (&SYSMFT OR &SYSMVT).XVS2A                          RFIT X5786500
XEQ      HASP EXCP INTERFACE -- SUBROUTINES                                                                    PAGE  151



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6549 .XVS2A   ANOP                                                      RFIT X5787200
                                   6550 *                                                                  RFIT X5787300
                                   6551 * CODE BRANCHING TO XWARM ENABLED, MUST ENABLE UPON RETURN.        RFIT X5787400
                                   6552 *                                                                  RFIT X5787500
00175C                             6553 XWARM9   DS    0H                                                  RFIT X5787600
                                   6554 .XVS2B   ANOP                                                      RFIT X5787700

                                   6555          DROP  R15                                                      X5788000
00175C 07FE                        6556          BR    R14                 RETURN                       OY02728 X5789000
001760                             6557          LTORG                                                          X5790000
001760 00000000                    6558                =V(XJOBSRCH)
001764 00007FFF                    6559                =A(X'00007FFF')

001768 00000000                    6560                =V(XGETDDB)
00176C 00000000                    6561                =V($COMMPCE)
001770 00002474                    6562                =A(XTHWRTCB)
001774 00000000                    6563                =V(XJOBSRC2)

001778 000007A8                    6564                =F'1960'
00177C FFFFFFF8                    6565                =F'-8'
001780 C3C1E3C1                    6566                =C'CATA'
001784 0000F3FF                    6567                =X'0000F3FF'
001788 00000000                    6568                =V($EXECPCE)
00178C 000009C2                    6569                =A(XIBASE)

001790 00002478                    6570                =A(XTHRDTCB)
001794 00000000                    6571                =V($XTHPCE)
001798 00000000                    6572                =V(XCOOL)
00179C 6161                        6573                =C'//'
00179E C4C440                      6574                =C'DD '

0017A1 00                          6575                =X'00'
0017A2 80                          6576                =X'80'
                            017A2  6577 XEQLAST  EQU   *-1                 LAST BYTE OF $EXCPSVC.               X5792000
                                   6578          DROP  R2,R4,R5,R7,BASE2                                OY02728 X5794000
                            00000  6579          USING JCTDSECT,JCT        RE-ESTABLISH JCT ADDRESSABILITY      X5796000

XEQ      HASP READER/INTERPRETER APPENDAGE -- DEFINITIONS                                                      PAGE  152


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6581 *********************************************************************** X5800000
                                   6582 *                                                                     * X5802000
                                   6583 *              DSECT FOR INTERNAL TEXT ALA IEFVFA                     * X5804000

                                   6584 *                                                                     * X5806000
                                   6585 *********************************************************************** X5808000



000000                             6587 XINTTEXT DSECT                                                          X5812000
                            00000  6588          USING XINTTEXT,WC                                              X5814000

000000                             6589          DS    0F                                                       X5816000
000000                             6590 XINTXTTR DS    CL4                 POSSIBLE TTR (HOPEFULLY ZERO)        X5818000
000004                             6591 XINTXKEY DS    CL1                 'KEY' BYTE.                          X5820000
000005                             6592 XINTXNUM DS    CL1                 'NUMBER' BYTE.                       X5822000
000006                             6593 XINTXLNG DS    CL1                 'LENGTH' BYTE.                       X5824000
                            00004  6594 XINTKDSP EQU   XINTXKEY-XINTTEXT   XINTXKEY DISPLACEMENT.               X5826000

                            00000  6595 XINTTDSP EQU   XINTXTTR-XINTTEXT   XINTXTTR DISPLACEMENT.               X5828000
0017A3                             6596 HASPXEQ  CSECT                                                          X5830000






                                   6598 *********************************************************************** X5834000
                                   6599 *                                                                     * X5836000
                                   6600 *                        MISCELLANEOUS EQUATES                        * X5838000
                                   6601 *                                                                     * X5840000
                                   6602 *********************************************************************** X5842000




                            00005  6604 XJCLMXLT EQU   5                   LENGTH OF EXTRACTED TEXT DATA FIELD. X5846000
                            00004  6605 XJCLMXFL EQU   4                   SYSOUT FORMS FIELD MAXIMUM LENGTH.   X5848000
XEQ      HASP R/I APPENDAGE -- JCL TEXT SCAN AND CONTROL                                                       PAGE  153


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6607 *********************************************************************** X5852000
                                   6608 *                                                                     * X5854000

                                   6609 *                                                                     * X5856000
                                   6610 * TITLE - JCL INTERNAL TEXT SCAN AND MANIPULATION (XJCLSCAN)          * X5858000
                                   6611 * FUNCTION/OPERATION                                                  * X5860000

                                   6612 *   THIS SECTION AND ASSOCIATED ROUTINES IDENTIFIES JCL STATEMENTS    * X5862000
                                   6613 *   OF INTEREST TO HASP AND CHANGES VARIOUS SPECIFICATIONS TO ALLOW   * X5864000
                                   6614 *   HASP PROCESSING OF JOBS AND DATA WITHOUT EXTERNAL CHANGES TO THE  * X5866000
                                   6615 *   JOB  OR PROCEDURE LIBRARY JCL.                                    * X5868000
                                   6616 *                                                                     * X5870000

                                   6617 *   XJCLSCAN IS ENTERED FROM THE READER/INTERPRETER MODULE IEFVFA     * X5872000
                                   6618 *   VIA A DEFINED EXIT TAKEN WHEN HASP IS ACTIVE, AS INDICATED BY       X5874000
                                   6619 *   A NON-ZERO ADDRESS IN CVTHJES+1.  THAT ADDRESS +4 CONTAINS          X5876000
                                   6620 *   THE ADDRESS OF XJCLSCAN.                                            X5878000
                                   6621 *                                                                       X5880000
                                   6622 * ENTRY CONDITIONS                                                      X5882000
                                   6623 *                                                                       X5884000
                                   6624 *       R1  - ADDRESS OF A TWO WORD PARAMETER LIST                      X5886000

                                   6625 *             1ST WD - ADDRESS OF THE JMR JOB LOG                       X5888000
                                   6626 *             2ND WD - ADDRESS OF THE JCL INTERNAL TEXT BUFFER          X5890000

                                   6627 *       R13 - ADDRESS OF A STANDARD SAVE AREA                           X5892000
                                   6628 *       R14 - RETURN ADDRESS                                            X5894000
                                   6629 *       R15 - ADDRESS OF XJCLSCAN                                       X5896000
                                   6630 *                                                                       X5898000
                                   6631 * RETURN CONDITIONS                                                     X5900000

                                   6632 *                                                                       X5902000
                                   6633 *       R0 THRU R14 - RESTORED TO ENTRY CONDITIONS                      X5904000
                                   6634 *       R15 - RETURN CODE                                               X5906000
                                   6635 *             0 - CONTINUE PROCESSING THE JOB                           X5908000
                                   6636 *             4 - CANCEL THE JOB WITH IEFXXXX AND IEF452I MSGS          X5910000
                                   6637 *       THE INTERNAL TEXT BUFFER CONTENTS MAY BE ALTERED                X5912000
                                   6638 *                                                                       X5914000
                                   6639 * THE FOLLOWING MAJOR FUNCTIONS ARE PERFORMED...                        X5916000
                                   6640 *                                                                       X5918000

                                   6641 *   (1) THE STEPNAME IN THE R/I'S TIOT IS COMPARED WITH THE             X5920000

                                   6642 *   HASPGEN PARAMETER &RDR.  IF THEY ARE NOT EQUAL, THE R/I WAS         X5922000
                                   6643 *   NOT STARTED BY HASP.  AN IMMEDIATE RETURN IS MADE WITH RC=0.        X5924000
                                   6644 *                                                                       X5926000
                                   6645 *   (2) THE FIRST WORD OF THE INTERNAL TEXT IS TESTED TO                X5928000
                                   6646 *   DETERMINE IF A EXTENSIVE JCL STATEMENT HAS CAUSED OVERFLOW TO       X5930000

                                   6647 *   SYS1.SYSJOBQE.  IF THIS CONDITION EXISTS, HASP IS UNABLE TO         X5932000
                                   6648 *   PROCESS THE STATEMENT AND THE JOB.  RETURN IS MADE WITH RC=4.       X5934000
                                   6649 *                                                                       X5936000
                                   6650 *   (3) THE FIRST JCL KEY IN THE R/I TEXT IS TESTED FOR 'JOB',          X5938000
                                   6651 *   'EXEC', AND 'DD' AND CONTROL GOES TO THE CORRESPONDING              X5940000
                                   6652 *   PROCESSING ROUTINE.                                                 X5942000
                                   6653 *                                                                       X5944000
                                   6654 *                                                                       X5946000
                                   6655 ******************************************************************      X5948000




                                   6657 XJCLSCAN NULL                      ENTRY FROM IEFVFA                    X5952000

0017A4                             6658+XJCLSCAN DS    0H                                                       NU006000
0017A4 1BFF                        6659          SR    R15,R15             SET ZERO RETURN CODE                 X5954000
XEQ      HASP R/I APPENDAGE -- JCL TEXT SCAN AND CONTROL                                                       PAGE  154


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


0017A6 90EC D00C      0000C        6660          STM   R14,R12,12(R13)     SAVE REGISTERS IN R/I AREA           X5956000
0017AA 05C0                        6661          BALR  BASE2,0             ESTABLISH HASP ADDRESSABILITY.       X5958000
                            017AC  6662          USING *,BASE2             R13 POINTS TO SAVE AREA.             X5960000
                                   6663          AIF   (NOT &SYSVS2).XJCL1                                 RFIT X5960100
                                   6664 .XJCL1   ANOP                                                      RFIT X5972100
0017AC 58B0 C08C      01838        6665          L     BASE1,XJCLBAS1      ESTABLISH BASE1 ADDRESSABILITY       X5974000
0017B0 50D0 C084      01830        6666          ST    SAVE,XJCLR13        SAVE SAVE.                           X5976000
0017B4 5861 0000      00000        6667          L     WE,0(R1)            SAVE JMR ADDRESSABILITY              X5978000
0017B8 5810 1004      00004        6668          L     R1,4(,R1)           2ND WD POINTS TO INTERNAL TEXT       X5980000
0017BC 1841                        6669          LR    WC,R1               SET WC TO START OF INTERNAL TEXT.    X5982000
0017BE 4110 1004      00004        6670          LA    R1,XINTKDSP(,R1)    POINT TO FIRST KEY.                  X5984000

0017C2 5010 C070      0181C        6671          ST    R1,XINTKEYS         SAVE POINTER                         X5986000
0017C6 5820 4000      00000        6672          L     WA,XINTXTTR         GET POSSIBLE TTR.                    X5988000
0017CA 1222                        6673          LTR   WA,WA               TEST FOR OVERFLOW OF TEXT.           X5990000
0017CC 4780 C02E      017DA        6674          BZ    XJCLNOFL            CONTINUE TEXT SCAN IF NONE   OY03485 X5992000

0017D0 D500 4004 CBA9 00004 02355  6675          CLC   XINTXKEY(1),XJSEXEKE TEST FOR 'EXEC' STATEMENT.  OY03485 X5992500
0017D6 4770 C066      01812        6676          BNE   XJCLEXIT            IGNORE STATEMENT IF NOT      OY03485 X5993000
0017DA 58D0 CC04      023B0        6677 XJCLNOFL L     SAVE,=A($RDRPCE)    GET ADDRESS IN R 13 OF       OY03485 X5994000
0017DE 58D0 D000      00000        6678          L     SAVE,0(,SAVE)       XEQ PCE CURRENTLY USING RDR.         X5996000
0017E2 12DD                        6679          LTR   SAVE,SAVE           IS XEQ PCE ADDRESS VALID...          X5998000
0017E4 4720 C048      017F4        6680          BP    XJCL1BUF            CONTINUE IF SO.                      X6000000
                            017E8  6681 XJCLXIT4 EQU   *                                                        X6002000
0017E8 58D0 C084      01830        6682          L     R13,XJCLR13         RELOAD R13                           X6004000
0017EC 9204 D013      00013        6683          MVI   19(R13),4           SET RETURN CODE = 4                  X6006000
0017F0 47F0 C066      01812        6684          B     XJCLEXIT            GO TO EXIT                           X6008000
                            017F4  6685 XJCL1BUF EQU   *                                                        X6010000
                                   6686 *                                  TEST FOR 'DD' STATEMENT...           X6012000

0017F4 D500 4004 CBAA 00004 02356  6687          CLC   XINTXKEY(1),XJSDDKEY                                     X6014000
0017FA 4780 C25C      01A08        6688          BE    XJCLDDPR            GO TO 'DD' PROCESSOR OR              X6016000
                                   6689 *                                  TEST FOR 'EXEC' STAEMENT...          X6018000

0017FE D500 4004 CBA9 00004 02355  6690          CLC   XINTXKEY(1),XJSEXEKE                                     X6020000
001804 4780 C1D8      01984        6691          BE    XJCLXQPR            GO TO 'EXEC' PROCESSOR OR            X6022000
                                   6692 *                                  TEST FOR 'JOB' STATEMENT...          X6024000
001808 D500 4004 CBA8 00004 02354  6693          CLC   XINTXKEY(1),XJSJOBKE                                     X6026000
00180E 4780 C090      0183C        6694          BE    XJCLJBPR            GO TO 'JOB' PROCESSOR OR GIVE UP.    X6028000
                            01812  6695 XJCLEXIT EQU   *                                                        X6030000
                                   6696          AIF   (NOT &SYSVS2).XJCL2                                 RFIT X6030100
                                   6697 .XJCL2   ANOP                                                      RFIT X6034100
001812 58D0 C084      01830        6698          L     R13,XJCLR13         RELOAD R13                           X6036000
001816 98EC D00C      0000C        6699 XJCLRTRN LM    R14,R12,12(R13)      AND OTHER REGISTERS                 X6038000
00181A 07FE                        6700          BR    R14                 RETURN TO R/I                        X6040000
00181C 00000000                    6701 XINTKEYS DC    F'0'                POINTER TO FIRST KEY IN TEXT.        X6042000

001820 00000000                    6702 XINTENDK DC    F'0'                POINTER TO END KEY IN READER TEXT.   X6044000

001828                             6703 XJCLPSW  DS    D                   STORAGE FOR EXIT PSW.                X6046000
001830 00000000                    6704 XJCLR13  DC    A(0)                STORAGE FOR R13                      X6048000

                                   6705 XJCLHRDR DC    C'&RDR'             HASP'S R/I PSEUDO DEVICE ADDR        X6050000
001834 F7F0F0                      6706+XJCLHRDR DC    C'700'              HASP'S R/I PSEUDO DEVICE ADDR        X6050000
001837 00
001838 00000000                    6707 XJCLBAS1 DC    V(HASP)             BASE1 CONSTANT                       X6052000
XEQ      HASP R/I APPENDAGE -- JOB STATEMENT PROCESSING                                                        PAGE  155


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6709 *********************************************************************** X6056000
                                   6710 *                                                                     * X6058000
                                   6711 * TITLE - JOB STATEMENT PROCESSOR (XJCLJBPR)                          * X6060000
                                   6712 *                                                                     * X6062000
                                   6713 * FUNCTION/OPERATION -                                                * X6064000
                                   6714 *                                                                     * X6066000

                                   6715 *   THE JOB STATEMENT PROCESSOR EXAMINES AND CHANGES ALL JOB CARDS    * X6068000
                                   6716 *   DESTINED FOR THE OS SCHEDULER. THE MAJOR FUNCTIONS PERFORMED      * X6070000

                                   6717 *   ARE...                                                            * X6072000

                                   6718 *                                                                     * X6074000
                                   6719 *   (1) BUILDS A NEW JOB STATEMENT TEXT STRING IN A HASP WORKING      * X6076000
                                   6720 *       AREA. THE NEW TEXT CONSISTS OF THE ORIGINAL WITH 'CLASS',     * X6078000
                                   6721 *       'PRTY', 'TYPRUN', AND 'MSGCLASS' DELETED (IF THEY EXIST).     * X6080000
                                   6722 *                                                                     * X6082000
                                   6723 *   (2) CONSTRUCTS A 'CLASS' ENTRY BY EXTRACTING THE 'PITICLAS' FIELD * X6084000
                                   6724 *       FROM THE PARTITION INFORMATION TABLE (PIT).                     X6086000
                                   6725 *                                                                     * X6088000
                                   6726 *   (3) CONSTRUCTS A 'PRTY' ENTRY BY EXTRACTING THE 'PITPRIO' FIELD   * X6090000
                                   6727 *       FROM THE PIT.                                                 * X6092000
                                   6728 *                                                                     * X6094000
                                   6729 *   (4) EXAMINES THE 'MSGCLASS' PARAMETER, IF PRESENT, FOR THE        * X6096000

                                   6730 *       SPECIFICATION OF AN EXEMPTED MESSAGE CLASS. EXEMPTED CLASSES  * X6098000
                                   6731 *       ARE PASSED THROUGH UNMODIFIED WHILE ALL OTHER CLASSES ARE     * X6100000
                                   6732 *       CHANGED TO THE FIRST EXEMPTED CLASS GIVEN.                    * X6102000

                                   6733 *                                                                     * X6104000
                                   6734 *   (5) MOVES THE NEW TEXT TO THE READER INTERNAL TEXT AREA           * X6106000
                                   6735 *                                                                     * X6108000
                                   6736 * ENTRY -                                                             * X6110000
                                   6737 *                                                                     * X6112000
                                   6738 *   FROM 'XJCLSCAN' WHEN A JOB KEY IS DETECTED IN THE INTERNAL TEXT.  * X6114000
                                   6739 *                                                                     * X6116000
                                   6740 * EXIT-                                                               * X6118000
                                   6741 *                                                                     * X6120000
                                   6742 *   TO 'XJCLEXIT' IN 'XJCLSCAN'.                                      * X6122000
                                   6743 *                                                                     * X6124000
                                   6744 *********************************************************************** X6126000




                                   6746 XJCLJBPR NULL                      'JOB' STATEMENT PROCESSOR.           X6130000
00183C                             6747+XJCLJBPR DS    0H                                                       NU006000
                                   6748 *********************************************************************** X6132000

                                   6749 *                                                                     * X6134000
                                   6750 *    THIS SECTION SEARCHES ON JOBNAME IN JMR AGAINST JOBNAME IN PCE - * X6136000
                                   6751 *    IF THERE IS A MATCH, THE JMR IS MOVED INTO THE ASSOCIATED JCT.   * X6138000
                                   6752 *                                                                     * X6140000
                                   6753 *********************************************************************** X6142000
00183C D507 D06C 6000 0006C 00000  6754          CLC   XPCEJOBN,0(WE)      CHECK JMR JOBNAME AGAINST PCE.       X6144000

001842 58A0 D03C      0003C        6755          L     JCT,PCEJCT          ESTABLISH JCT POINTER        OY04711 X6146000
001846 4770 C0BC      01868        6756          BNE   XJCLPR2             SKIP JMR MOVES IF UNEQUAL    OY04711 X6148000
00184A D203 6014 CC08 00014 023B4  6757          MVC   JCTUSEID-JCTJMR(4,WE),=CL4'JOB'  Set HASP jobid @THAS814 X6149040
001850 D203 6018 A06C 00018 0006C  6758          MVC   JCTUSEID+4-JCTJMR(4,WE),JCTJOBEB  in JMRUSEID   @THAS814 X6149060
001856 D213 A208 6010 00208 00010  6759          MVC   JCTCPUID(XJMRSZ),XJMRDISP(WE)  MOVE JMR INTO IT.         X6150000
00185C D201 6034 A22C 00034 0022C  6760          MVC   JCTRDR-JCTJMR(2,WE),JCTRDR  DEV TYPE/CLS TO JMR.         X6152000
001862 D207 6008 A200 00008 00200  6761          MVC   JCTRDRON-JCTJMR(8,WE),JCTRDRON  RDR TIME TO JMR.         X6154000
XEQ      HASP R/I APPENDAGE -- JOB STATEMENT PROCESSING                                                        PAGE  156



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


001868                             6762 XJCLPR2  DS    0H                                                       X6156000
                                   6763 &TEMPC   SETC  '&WTRCLAS'(1,1)     INITIALIZE WITH 1ST WTR CLASS        X6158000
                                   6764          MVI   XJCLOMC+1,C'&TEMPC' INITIALIZE ORIGINAL MSGCLASS         X6160000
001868 92C1 C159      01905        6765+         MVI   XJCLOMC+1,C'A'      INITIALIZE ORIGINAL MSGCLASS         X6160000
00186C 4140 C960      0210C        6766          LA    WC,XTXTBUFW         HASP TEXT BUFFER POINTER TO WC.      X6162000
001870 1821                        6767 XJCLJBSG LR    WA,R1               CURRENT 'KEY' POINTER TO WA.         X6164000
001872 45E0 CACA      02276        6768          BAL   LINK,XFINDKEY       GET THE NEXT 'KEY' POINTER IN R1.    X6166000
001876 1831                        6769          LR    WB,R1               PUT IN WB.                           X6168000
001878 1B32                        6770          SR    WB,WA               COMPUTE LENGTH - 1 OF SEGMENT.       X6170000

00187A 4430 C1A6      01952        6771          EX    WB,XJCLJBMH         MOVE CURRENT SEGMENT TO HASP BUF.    X6172000
00187E 1A43                        6772          AR    WC,WB               COMPUTE NEXT SLOT IN HASP BUFFER.    X6174000
001880 D500 1000 CBB1 00000 0235D  6773 XJCLJBTS CLC   0(1,R1),XJSENDKE    TEST FOR 'END' KEY.                  X6176000
001886 4780 C11A      018C6        6774          BE    XJCLJBND            YES..GO ADD HASP ENTRIES.            X6178000
00188A D500 1000 CBAC 00000 02358  6775          CLC   0(1,R1),XJSPRIKE    NO...TEST FOR 'PRTY' KEY.            X6180000

001890 4780 C110      018BC        6776          BE    XJCLJBSC            YES..GO SCRATCH IT.                  X6182000
001894 D500 1000 CBAE 00000 0235A  6777          CLC   0(1,R1),XJSMCLKE    NO...TEST FOR 'MSGCLASS' KEY.        X6184000

00189A 4770 C0FC      018A8        6778          BNE   XJCLNOMC            BR IF NOT MSGCLASS                   X6186000
00189E D200 C159 1003 01905 00003  6779          MVC   XJCLOMC+1(1),3(R1)  SAVE ORIGINAL MSGCLASS VALUE         X6188000
0018A4 47F0 C110      018BC        6780          B     XJCLJBSC            AND GO SCRATCH MSGCLASS              X6190000
                                   6781 XJCLNOMC NULL  *                   CONTINUE SCAN                        X6192000
0018A8                             6782+XJCLNOMC DS    0H                                                       NU006000
0018A8 D500 1000 CBAD 00000 02359  6783          CLC   0(1,R1),XJSTYPKE    NO...TEST FOR 'TYPRUN' KEY.          X6194000
0018AE 4780 C110      018BC        6784          BE    XJCLJBSC            YES..GO SCRATCH IT.                  X6196000
0018B2 D500 1000 CBAB 00000 02357  6785          CLC   0(1,R1),XJSCLSKE    NO...TEST FOR 'CLASS' KEY.           X6198000

0018B8 4770 C0C4      01870        6786          BNE   XJCLJBSG            NO...GET NEXT SEGMENT.               X6200000
                            018BC  6787 XJCLJBSC EQU   *                   SCRATCH USER SPECIFIED 'PRTY',       X6202000
                                   6788 *                                  'MSGCLASS' AND/OR 'CLASS' ENTRIES.   X6204000
0018BC 1821                        6789          LR    WA,R1               SAVE CURRENT 'KEY' POINTER.          X6206000
0018BE 45E0 CACA      02276        6790          BAL   LINK,XFINDKEY       GET NEXT 'KEY'.                      X6208000

0018C2 47F0 C0D4      01880        6791          B     XJCLJBTS            GO TO TEST SECTION.                  X6210000
                            018C6  6792 XJCLJBND EQU   *                   WC POINTS TO NEXT SLOT IN HASP BUF.  X6212000
0018C6 58E0 D068      00068        6793          L     R14,XPCEIOT         POINT TO FIRST IOT.                  X6214000

0018CA 50E0 C620      01DCC        6794          ST    R14,XJCURIOT        SAVW POINTER FOR LATER.              X6216000
                            00000  6795          USING IOTDSECT,R14        USE THE IOT DSECT.                   X6218000
0018CE 95C1 C159      01905        6796          CLI   XJCLOMC+1,C'A'      IS MSGCLASS VALID            OY05831 X6218500
0018D2 4740 C132      018DE        6797          BL    *+12                IF NOT BRANCH                OY05831 X6218750
0018D6 95FE C159      01905        6798          CLI   XJCLOMC+1,X'FE'     IS MSGCLASS NULL             OY05831 X6219000
0018DA 4770 C136      018E2        6799          BNE   *+8                 IF NOT BRANCH                OY05831 X6219250
                                   6800          MVI   XJCLOMC+1,C'&TEMPC' INSERT DEFAULT MSGCLASS      OY05831 X6219500

0018DE 92C1 C159      01905        6801+         MVI   XJCLOMC+1,C'A'      INSERT DEFAULT MSGCLASS      OY05831 X6219500
0018E2 4300 C159      01905        6802          IC    R0,XJCLOMC+1        GET USER MSGCLASS.                   X6220000
0018E6 4200 E0D9      000D9        6803          STC   R0,IOTPDDB+1        PUT IT INTO LOG PDDB.                X6222000
0018EA 4200 E0E0      000E0        6804          STC   R0,IOTPDDB+PDBBASLN+1  PUT IT INTO SMB PDDB.             X6224000
0018EE 4200 A08C      0008C        6805          STC   R0,JCTMCLAS         PUT IT INTO THE JCT.                 X6226000

                                   6806          DROP  R14                 DROP IOT DSECT.                      X6228000
0018F2 5820 D09C      0009C        6807          L     WA,XPCEPIT          PIT POINTER TO WA.                   X6230000
                                   6808 *                                  MOVE JOB 'CLASS' FROM PIT TO         X6232000
                                   6809 *                                  CONSTRUCTED 'CLASS=' TEXT.           X6234000

0018F6 D200 C1B9 2001 01965 00001  6810          MVC   XJCLJBSK+3(1),PITICLAS(WA)   INSERT INIT CLASS           X6236000
0018FC 4130 C1CA      01976        6811          LA    WB,XJCLASTB         ADDR OF EXEMPTED CLASS LIST          X6238000
001900 4110 0008      00008        6812          LA    R1,L'XJCLASTB       LENGTH OF EXEMPTED CLASS LIST        X6240000
001904 9500 3000      00000        6813 XJCLOMC  CLI   0(WB),*-*           IS THIS AN EXEMPTED CLASS            X6242000
001908 4780 C16C      01918        6814          BE    XJCLMCHT            BR IF YES                            X6244000
00190C 4130 3001      00001        6815          LA    WB,1(,WB)           TO NEXT                              X6246000

001910 4610 C158      01904        6816          BCT   R1,XJCLOMC          AND CONTINUE                         X6248000
XEQ      HASP R/I APPENDAGE -- JOB STATEMENT PROCESSING                                                        PAGE  157


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6817          MVI   XJCLOMC+1,C'&TEMPC' NON-EXEMPT CLASS -- USE DEFAULT      X6250000
001914 92C1 C159      01905        6818+         MVI   XJCLOMC+1,C'A'      NON-EXEMPT CLASS -- USE DEFAULT      X6250000

                                   6819 XJCLMCHT NULL  *                   SCAN COMPLETE                        X6252000
001918                             6820+XJCLMCHT DS    0H                                                       NU006000
001918 D200 C1B5 C159 01961 01905  6821          MVC   XJCLMCSK+3(1),XJCLOMC+1 SET APPROPIATE CLASS VALUE       X6254000
                                   6822 *                                  MOVE PRIORITY FROM PIT TO            X6256000
                                   6823 *                                  CONSTRUCTED 'PRTY=' TEXT.            X6258000

00191E D201 C1BD 2006 01969 00006  6824          MVC   XJCLPRSK+3(2),PITPRIO(WA)                                X6260000
001924 9540 C1BE      0196A        6825          CLI   XJCLPRSK+4,C' '     TEST FOR TRAILING BLANK.             X6262000
001928 4770 C18A      01936        6826          BNE   XJCLMOOV            NO...GO MOVE ALL TO HASP BUFFER.     X6264000
                                   6827 *                                  YES..MOVE 'PRTY' TO LOW BYTE.        X6266000
00192C D200 C1BE C1BD 0196A 01969  6828          MVC   XJCLPRSK+4(1),XJCLPRSK+3                                 X6268000

001932 92F0 C1BD      01969        6829          MVI   XJCLPRSK+3,X'F0'    INSERT LEADING ZERO.                 X6270000
                            01936  6830 XJCLMOOV EQU   *                                                        X6272000
                                   6831 *                                  MOVE IT ALL TO HASP TEXT BUFFER.     X6274000
001936 D20F 4000 C1B2 00000 0195E  6832          MVC   0(XJCLINLG,WC),XJCLINSR                                  X6276000
00193C 4140 4010      00010        6833          LA    WC,XJCLINLG(,WC)    COMPUTE LENGTH                       X6278000

001940 4130 C960      0210C        6834          LA    WB,XTXTBUFW         OF NEW TEXT                          X6280000
001944 1B43                        6835          SR    WC,WB               IN HASP TEXT BUFFER.                 X6282000
001946 5810 C070      0181C        6836          L     R1,XINTKEYS         POINT TO READER TEXT BUFFER.         X6284000
00194A 4440 C1AC      01958        6837          EX    WC,XJCLJBMR         MOVE HASP TEXT TO READER TEXT.       X6286000
00194E 47F0 C066      01812        6838          B     XJCLEXIT            EXIT.                                X6288000




001952 D200 4000 2000 00000 00000  6840 XJCLJBMH MVC   0(*-*,WC),0(WA)                                          X6292000
001958 D200 1000 C960 00000 0210C  6841 XJCLJBMR MVC   0(*-*,R1),XTXTBUFW                                       X6294000
                            0195E  6842 XJCLINSR EQU   *                   INSERT START.                        X6296000
                                   6843 *                                  DEFINE 'MSGCLASS=H' TEXT.            X6298000

00195E B2010100                    6844 XJCLMCSK DC    X'B2',X'0101',AL1(*-*)                         *         X6300000
                                   6845 *                                  DEFINE 'CLASS=X' TEXT.               X6302000
001962 AD010100                    6846 XJCLJBSK DC    X'AD',X'010100'                                *         X6304000
                                   6847 *                                  DEFINE 'PRTY=XX' AND END SEQUENCE.   X6306000
001966 B001020000FE0000            6848 XJCLPRSK DC    X'B0',X'01020000',X'FE',X'0000'                *         X6308000

                            0196E  6849 XJCLINND EQU   *                   INSERT END.                          X6310000
                            00010  6850 XJCLINLG EQU   XJCLINND-XJCLINSR   INSERT LENGTH.                       X6312000
00196E                             6851 XJCLJBWK DS    CL8                 JOBNAME WORKAREA.                    X6314000
                                   6852 XJCLASTB DC    CL8'&WTRCLAS'       EXEMPTED MSGCLASS VALUES             X6316000
001976 C1C8404040404040            6853+XJCLASTB DC    CL8'AH'             EXEMPTED MSGCLASS VALUES             X6316000
00197E 0000
001980 00000000                    6854 XSRCHJB  DC    V(XJOBSRC2)                                              X6318000

                            00014  6855 XJMRSZ   EQU   JCTUJVP-JCTCPUID    NUMBER OF JMR BYTES TO MOVE          X6320000
                            00010  6856 XJMRDISP EQU   JCTCPUID-JCTJMR     DISPLACEMENT FROM BEGIN OF JMR       X6322000
XEQ      HASP R/I APPENDAGE -- EXEC STATEMENT PROCESSING                                                       PAGE  158



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6858 *********************************************************************** X6326000
                                   6859 *                                                                     * X6328000
                                   6860 *                                                                     * X6330000
                                   6861 * TITLE - EXEC STATEMENT PROCESSOR (XJCLXQPR)                         * X6332000

                                   6862 *                                                                     * X6334000
                                   6863 * FUNCTION/OPERATION -                                                * X6336000
                                   6864 *                                                                     * X6338000
                                   6865 *   THE EXEC STATEMENT PROCESSOR EXAMINES ALL EXEC STATEMENTS AND     * X6340000
                                   6866 *   PERFORMS THE FOLLOWING MAJOR FUNCTIONS...                         * X6342000
                                   6867 *                                                                     * X6344000
                                   6868 *   (1) THE VALUE OF THE AUTOMATIC PRIORITY GROUP REPRESENTED BY        X6346000
                                   6869 *       &APGPRTY IS COMPARED WITH THE PIT PRIORITY ASSOCIATED           X6348000

                                   6870 *       WITH THE JOB BEING INTERPRETED. IF THE VALUES ARE NOT         * X6350000
                                   6871 *       EQUAL, THEN NO ACTION IS TAKEN ON THE EXEC STATEMENT.         * X6352000

                                   6872 *                                                                     * X6354000
                                   6873 *   (2) IF THE PRIORITIES ARE EQUAL, THE INTERNAL TEXT IS               X6356000
                                   6874 *       EXAMINED FOR THE KEY VALUE OF 'DPRTY='. IF THIS               * X6358000
                                   6875 *       PARAMETER HAS NOT BEEN CODED, NO FURTHER ACTION IS TAKEN.     * X6360000
                                   6876 *                                                                     * X6362000

                                   6877 *   (3) THE 'DPRTY=' KEY AND ASSOCIATED PARAMETERS ARE REMOVED,         X6364000
                                   6878 *       IF PRESENT IN THE STATEMENT TEXT.                             * X6366000
                                   6879 *                                                                     * X6368000
                                   6880 * ENTRY -                                                             * X6370000
                                   6881 *                                                                     * X6372000
                                   6882 *   FROM 'XJCLSCAN' WHEN AN 'EXEC' KEY IS DETECTED IN THE TEXT.       * X6374000
                                   6883 *                                                                     * X6376000
                                   6884 * EXIT -                                                              * X6378000
                                   6885 *                                                                     * X6380000

                                   6886 *   TO 'XJCLEXIT' OR 'XJCLDDND'                                       * X6382000

                                   6887 *                                                                     * X6384000
                                   6888 *********************************************************************** X6386000



001984                             6890 XJCLXQPR DS    0H                  'EXEC' STATEMENT PROCESSOR           X6390000
                            0001C  6891 JMRSTEP  EQU   X'1C',1             OFFSET, LENGTH OF STEP NUMBER.       X6392000

001984 D200 C5E1 601C 01D8D 0001C  6892          MVC   XRISTNR+1(1),JMRSTEP(WE)  SAVE STEP NUMBER.              X6394000
00198A 1B88                        6893          SR    R8,R8               MAKE THE                             X6396000
00198C 4080 C5E2      01D8E        6894          STH   R8,XRIDDNR          DD NUMBER ZERO.                      X6398000
001990 D731 C5E4 C5E4 01D90 01D90  6895          XC    XRIDDNT,XRIDDNT     CLEAR THE DDNAME= TABLE.             X6400000
001996 5820 D09C      0009C        6896          L     WA,XPCEPIT          SET WA TO PIT ADDRESS                X6402000
00199A D501 C25A 2006 01A06 00006  6897          CLC   XJCLXQMP(2),PITPRIO(WA) COMPARE PRIORITIES               X6404000
0019A0 4770 C066      01812        6898          BNE   XJCLEXIT            BRANCH IF OUTSIDE MONITOR            X6406000
                                   6899 *        ICM   WA,15,XINTXTTR      TEXT OVERFLOW ON THIS STMT?  OY03485 X6407000
0019A4 5820 4000      00000        6900          L     WA,XINTXTTR                                     FJP/RFIT X6407005
0019A8 1222                        6901          LTR   WA,WA                                           FJP/RFIT X6407010

0019AA 4770 C066      01812        6902          BNZ   XJCLEXIT            SKIP DPRTY KEYWRD CHK IF SO. OY03485 X6407500

0019AE 4300 CBAF      0235B        6903          IC    R0,XJSDPRKE         SETUP TO SCAN FOR 'DPRTY='           X6408000
0019B2 45E0 CA0C      021B8        6904          BAL   LINK,XINTSCAN       SCAN EXEC STATEMENT FOR DPRTY        X6410000
0019B6 4770 C21A      019C6        6905          BNZ   XJCLXQZP            BRANCH IF 'DPRTY=' FOUND             X6412000
0019BA 4300 CBB0      0235C        6906          IC    R0,XJSDPSKE         SETUP TO SCAN FOR 'DPRTY.'           X6414000

0019BE 45E0 CA0C      021B8        6907          BAL   LINK,XINTSCAN       SCAN EXEC STATEMENT                  X6416000
0019C2 4780 C066      01812        6908          BZ    XJCLEXIT            EXIT IF NO 'DPRTY=' OR 'DPRTY.'      X6418000
0019C6 5810 C070      0181C        6909 XJCLXQZP L     R1,XINTKEYS         RESTORE POINTER TO FIRST KEY         X6420000
0019CA 4140 C960      0210C        6910          LA    WC,XTXTBUFW         ADDRESS OF HASP TEXT BUFFER          X6422000
XEQ      HASP R/I APPENDAGE -- EXEC STATEMENT PROCESSING                                                       PAGE  159


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0019CE 1821                        6911 XJCLXQSG LR    WA,R1               CURRENT KEY POINTER TO WA            X6424000
0019D0 45E0 CACA      02276        6912          BAL   LINK,XFINDKEY       GET NEXT KEY POINTER                 X6426000
0019D4 1831                        6913          LR    WB,R1                IN R1 AND WB                        X6428000
0019D6 1B32                        6914          SR    WB,WA               COMPUTE LENGTH-1 OF SEGMENT          X6430000
0019D8 4430 C1A6      01952        6915          EX    WB,XJCLJBMH         MOVE SEGMENT TO HASP BUFFER          X6432000

0019DC 1A43                        6916          AR    WC,WB               POINT TO NEXT SLOT IN BUFFER         X6434000
0019DE D500 1000 CBB1 00000 0235D  6917 XJCLXQTS CLC   0(1,R1),XJSENDKE    TEST FOR END KEY                     X6436000
0019E4 4780 C57A      01D26        6918          BE    XJCLDDND            TERMINATE IF END KEY                 X6438000
0019E8 D500 1000 CBAF 00000 0235B  6919          CLC   0(1,R1),XJSDPRKE    TEST FOR 'DPRTY='                    X6440000

0019EE 4780 C250      019FC        6920          BE    XJCLXQSI            FOUND IT                             X6442000
0019F2 D500 1000 CBB0 00000 0235C  6921          CLC   0(1,R1),XJSDPSKE    TEST FOR 'DPRTY.'                    X6444000
0019F8 4770 C222      019CE        6922          BNE   XJCLXQSG            BRANCH IF NONE OF ABOVE              X6446000
0019FC 1821                        6923 XJCLXQSI LR    WA,R1               ELIMINATE                            X6448000
0019FE 45E0 CACA      02276        6924          BAL   LINK,XFINDKEY        DPRTY                               X6450000
001A02 47F0 C232      019DE        6925          B     XJCLXQTS              ENTRY                              X6452000
                                   6926 XJCLXQMP DC    CL2'&APGPRTY'       AUTOMATIC PRIORITY GROUP - VS2       X6454000
001A06 F740                        6927+XJCLXQMP DC    CL2'7'              AUTOMATIC PRIORITY GROUP - VS2       X6454000
XEQ      HASP R/I APPENDAGE -- DD STATEMENT PROCESSING                                                         PAGE  160


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6929 *********************************************************************** X6458000
                                   6930 *                                                                     * X6460000

                                   6931 * TITLE - DD STATEMENT PROCESSOR (XJCLDDPR)                           * X6462000
                                   6932 *                                                                     * X6464000
                                   6933 * FUNCTION/OPERATION                                                  * X6466000

                                   6934 *                                                                     * X6468000
                                   6935 *   THE DD PROCESSOR EXAMINES ALL DD STATEMENTS FOR 'SYSOUT OR        * X6470000
                                   6936 *   'DD *','DD DATA' SPECIFICATIONS AND PERFORMS THE FOLLOWING        * X6472000
                                   6937 *   MAJOR FUNCTIONS...                                                * X6474000
                                   6938 *                                                                     * X6476000
                                   6939 *   (1) USES THE XINTSCAN ROUTINE TO DETERMINE THE KEY CONTENTS       * X6478000
                                   6940 *       OF THE INTERNAL TEXT FOR THIS DD STATEMENT.                   * X6480000
                                   6941 *                                                                     * X6482000
                                   6942 *   (2) IF THE STATEMENT DOES NOT CONTAIN A SYSOUT SPECIFICATION,     * X6484000
                                   6943 *       CONTROL GOES TO THE DD *, DD DATA INVESTIGATION ROUTINE       * X6486000
                                   6944 *       XJCLDDDT.                                                     * X6488000
                                   6945 *                                                                     * X6490000

                                   6946 *   (3) IF A SYSOUT ENTRY EXISTS, THE CLASS IS SAVED FOR POSSIBLE     * X6492000

                                   6947 *       TRANSLATION TO A HASP PSEUDO UNIT. THE CLASS PSEUDO UNIT      * X6494000
                                   6948 *       TRANSLATION TABLE (XTRTABLE) ENTRY CORRESPONDING TO THE       * X6496000

                                   6949 *       SYSOUT CLASS IS EXAMINED FOR THE VALUE '*'. IF '*' IS         * X6498000
                                   6950 *       FOUND, HASP PROCESSING IS TERMINATED FOR THE DD CARD. IF      * X6500000
                                   6951 *       A SIMPLE SYSOUT=X IS SPECIFIED, CONTROL GOES TO THE NEW       * X6502000
                                   6952 *       INTERNAL TEXT STRING BUILD PROCESSOR.                         * X6504000
                                   6953 *                                                                     * X6506000
                                   6954 *   (4) IF THE SYSOUT ENTRY INCLUDES A SPECIAL OUTPUT WRITER          * X6508000
                                   6955 *       SPECIFICATION, CONTROL GOES TO XJCLDDWR WHICH PROCESSES       * X6510000
                                   6956 *       THIS CASE.                                                    * X6512000
                                   6957 *                                                                     * X6514000
                                   6958 *   (5) IF THE SYSOUT SPECIFIED INCLUDES A FORMS FIELD BUT NOT A      * X6516000
                                   6959 *       SPECIAL WRITER, THE FORMS FIELD IS EXTRACTED FOR LATER        * X6518000
                                   6960 *       PROCESSING.                                                   * X6520000

                                   6961 *                                                                     * X6522000
                                   6962 *   (6) THE DDNAME, IF IT EXISTS, IS MOVED TO THE HASP TEXT BUFFER    * X6524000

                                   6963 *       WHERE INTERNAL TEXT FOR UNIT=X IS CONSTRUCTED.                * X6526000

                                   6964 *                                                                     * X6528000
                                   6965 *   (7) IF A FORMS FIELD WAS DETECTED, THEN CONTROL GOES TO XJCLDDFR, * X6530000
                                   6966 *       OTHERWISE THE SYSOUT CLASS IS USED TO TRANSLATE TO A HASP     * X6532000
                                   6967 *       PSEUDO UNIT AND THE COMPLETED UNIT=X TEXT IS MOVED FROM       * X6534000
                                   6968 *       HASP TO THE READER TEXT BUFFER. CONTROL RETURNS TO THE        * X6536000
                                   6969 *       READER/INTERPRETER VIA XJCLEXIT.                              * X6538000
                                   6970 *                                                                     * X6540000
                                   6971 *********************************************************************** X6542000
XEQ      HASP R/I APPENDAGE -- DD STATEMENT PROCESSING                                                         PAGE  161


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   6973 XJCLDDPR NULL                                                           X6546000
001A08                             6974+XJCLDDPR DS    0H                                                       NU006000

001A08 4300 CBB1      0235D        6975          IC    R0,XJSENDKE         FLAG 'CONTENTS' SCAN.                X6548000
001A0C 45E0 CA0C      021B8        6976          BAL   LINK,XINTSCAN       GO DETERMINE CONTENTS OF TEXT.       X6550000
001A10 45E0 CB14      022C0        6977          BAL   LINK,XFINDDDN       GO SET STEP NR AND DD NR.            X6552000

001A14 5810 C070      0181C        6978          L     R1,XINTKEYS         POINTER TO FIRST KEY.                X6554000
001A18 9101 CAC7      02273        6979          TM    XSTATUS+3,XJSYSOBT  TEST FOR 'SYSOUT'...                 X6556000
001A1C 47E0 C688      01E34        6980          BNO   XJCLDDDT            NO.  GO CHECK FOR * OR DATA.         X6558000

001A20 D71F C5A0 C5A0 01D4C 01D4C  6982          XC    XJCLPDB,XJCLPDB     INITIALIZE WORKING PDDB.             X6562000
001A26 9280 C5BA      01D66        6983          MVI   XJCPDDES,X'80'      SHOW NULL DESTINATION.               X6564000
001A2A 9240 C5A0      01D4C        6984          MVI   XJCPDBF1,XJCFLNUL   SHOW PDDB IS NULL.                   X6566000

                                   6986          AIF   ('&XBATCHC' EQ '').XNOBR1                                X6570000
                                   6987 .XNOBR1  ANOP                                                           X6634000
001A2E 9180 CAC7      02273        6988          TM    XSTATUS+3,XJSUCSBT  TEST FOR 'UCS'...                    X6636000
001A32 47E0 C2B4      01A60        6989          BNO   XJCLFCBT            NO.  GO CHECK FOR 'FCB'.             X6638000

001A36 4300 CBB9      02365        6990          IC    R0,XJSUCSKE         FLAG 'UCS' SCAN.                     X6640000
001A3A 45E0 CA0C      021B8        6991          BAL   LINK,XINTSCAN       GET LOCATION OF 'UCS'.               X6642000
001A3E 1B22                        6992          SR    WA,WA               CLEAR WA.                            X6644000

001A40 4320 1002      00002        6993          IC    WA,2(,R1)           GET LENGTH OF FIRST UCS PARM.        X6646000
001A44 0620                        6994          BCTR  WA,0                REDUCE BY ONE FOR MVC.               X6648000
001A46 4920 C2A4      01A50        6995          CH    WA,*+10             IS LENGTH TOO LONG...                X6650000
001A4A 47D0 C2A6      01A52        6996          BNH   *+8                 SKIP IF NOT.                         X6652000
001A4E 4120 0003      00003        6997          LA    WA,XJCLMXFL-1       YES.  LOAD MAX LENGTH-1.             X6654000
001A52 D203 C5B0 C596 01D5C 01D42  6998          MVC   XJCPDUCS,XJCLBLNK   BLANK OUT RECEIVING FIELD.           X6656000
001A58 4420 C5C6      01D72        6999          EX    WA,XJCLMUCS         MOVE UCS ID TO WORK PDDB.            X6658000
001A5C 9620 C5A7      01D53        7000          OI    XJCPDBF2,XJCFLUCS   SHOW UCS FIELD PRESENT.              X6660000

001A60 9101 CAC6      02272        7002 XJCLFCBT TM    XSTATUS+2,XJSFCBBT  TEST FOR 'FCB'...                    X6664000
001A64 47E0 C2E6      01A92        7003          BNO   XJCLSYSO            NO.  CONTINUE SYSOUT.                X6666000
001A68 4300 CBBA      02366        7004          IC    R0,XJSFCBKE         FLAG 'FCB' SCAN.                     X6668000

001A6C 45E0 CA0C      021B8        7005          BAL   LINK,XINTSCAN       GET LOCATION OF 'FCB'.               X6670000
001A70 1B22                        7006          SR    WA,WA               CLEAR WA.                            X6672000
001A72 4320 1002      00002        7007          IC    WA,2(,R1)           GET LENGTH OF FIRST FCB PARM.        X6674000
001A76 0620                        7008          BCTR  WA,0                REDUCE BY ONE FOR MVC.               X6676000

001A78 4920 C2D6      01A82        7009          CH    WA,*+10             IS LENGTH TOO LONG...                X6678000
001A7C 47D0 C2D8      01A84        7010          BNH   *+8                 SKIP IF NOT.                         X6680000
001A80 4120 0003      00003        7011          LA    WA,XJCLMXFL-1       YES.  LOAD MAX LENGTH-1.             X6682000
001A84 D203 C5AC C596 01D58 01D42  7012          MVC   XJCPDFCB,XJCLBLNK   BLANK OUT RECEIVING FIELD.           X6684000
001A8A 4420 C5CC      01D78        7013          EX    WA,XJCLMFCB         MOVE FCB ID TO WORK PDDB.            X6686000
001A8E 9640 C5A7      01D53        7014          OI    XJCPDBF2,XJCFLFCB   SHOW FCB FIELD PRESENT.              X6688000


001A92 4300 CBB2      0235E        7016 XJCLSYSO IC    R0,XJSYSOKE         FLAG 'SYSOUT' SCAN.                  X6692000
001A96 45E0 CA0C      021B8        7017          BAL   LINK,XINTSCAN       GET LOCATION OF 'SYSOUT'.            X6694000
001A9A 1B22                        7018          SR    WA,WA               CLEAR WA.                            X6696000
001A9C 4321 0003      00003        7019          IC    WA,3(R1)            SYSOUT CLASS TO WA.                  X6698000
001AA0 955C 1003      00003        7020          CLI   3(R1),C'*'          Was class specified as "*"? @THAS812 X6698040
001AA4 4780 C304      01AB0        7021          BE    XJCLSYST            Go set to MSGCLASS if so    @THAS812 X6698060
001AA8 955B 1003      00003        7022          CLI   3(R1),C'$'          TEST FOR 'SYSOUT=$'                  X6700000

001AAC 4770 C308      01AB4        7023          BNE   *+8                 SKIP IF NOT                          X6702000
001AB0 4320 C159      01905        7024 XJCLSYST IC    WA,XJCLOMC+1        Set SYSOUT class = MSGCLASS @THAS812 X6704000

001AB4 4220 C5A1      01D4D        7025          STC   WA,XJCPDBCL         PUT CLASS IN WORK PDDB.              X6706000
001AB8 4122 CB06      022B2        7026          LA    WA,XTRTABLE(WA)     LOCATION OF PSEUDO UNIT TABLE        X6708000
                                   7027 *                                  ENTRY TO WA.                         X6710000
XEQ      HASP R/I APPENDAGE -- DD STATEMENT PROCESSING                                                         PAGE  162


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001ABC 955C 2000      00000        7028          CLI   0(WA),C'*'          TEST FOR PASSKEY VALUE AND           X6712000
001AC0 4780 C77A      01F26        7029          BE    XJCLDDWR            TERMINATE (ADD UNIT=SYSDA) IF        X6714000
                                   7030 *                                  PASSKEY HAS BEEN SPECIFIED.          X6716000

001AC4 D200 C954 2000 02100 00000  7031          MVC   XJCLUSKL+3(1),0(WA) MOVE CORRESPONDING 'UNIT' TYPE       X6718000
                                   7032 *                                  PRE-SET FORMS SAVE TO BLANKS.        X6720000
001ACA 9501 1001      00001        7033          CLI   1(R1),X'01'         TEST FOR SIMPLE 'SYSOUT=X'.          X6722000
001ACE 4780 C360      01B0C        7034          BE    XJCLDDPE            YES..GO BUILD NEW TEXT.              X6724000
001AD2 9502 1001      00001        7035          CLI   1(R1),X'02'         TEST FOR SPECIAL OUTPUT WRITER.      X6726000

001AD6 4780 C77A      01F26        7036          BE    XJCLDDWR            YES..GO PROCESS IT.                  X6728000
                                   7037 *                                  FORMS HAVE BEEN SPECIFIED AND        X6730000
                                   7038 *                                  MAYBE A SPECIAL WRITER...FIND OUT.   X6732000

001ADA 9500 1004      00004        7039          CLI   4(R1),X'00'         TEST FOR NULL WRITER FIELD.          X6734000
001ADE 4770 C77A      01F26        7040          BNE   XJCLDDWR            A WRITER HAS BEEN SPECIFIED..BRANCH. X6736000
001AE2 9500 1005      00005        7041          CLI   5(R1),X'00'         IF FORMS FIELD IS NULL               X6738000
001AE6 4780 C360      01B0C        7042          BE    XJCLDDPE             BYPASS FORMS PROCESSING             X6740000
001AEA 1B22                        7043          SR    WA,WA               CLEAR WA.                            X6742000
001AEC 4320 1005      00005        7044          IC    WA,5(,R1)           GET LENGTH OF FORMS PARM.            X6744000
001AF0 0620                        7045          BCTR  WA,0                REDUCE BY ONE FOR MVC.               X6746000

001AF2 4920 C350      01AFC        7046          CH    WA,*+10             IS LENGTH TOO LONG...                X6748000
001AF6 47D0 C352      01AFE        7047          BNH   *+8                 SKIP IF NOT.                         X6750000
001AFA 4120 0003      00003        7048          LA    WA,XJCLMXFL-1       YES.  LOAD MAX LENGTH-1.             X6752000
001AFE D203 C5A8 C596 01D54 01D42  7049          MVC   XJCPDFOR,XJCLBLNK   BLANK OUT FORM NUMBER.               X6754000
001B04 4420 C5C0      01D6C        7050          EX    WA,XJCLMFOR         MOVE FORMS ID TO WORK PDDB.          X6756000

001B08 9680 C5A7      01D53        7051          OI    XJCPDBF2,XJCFLFOR   SHOW FORMS FIELD PRESENT.            X6758000

001B0C 4140 C960      0210C        7053 XJCLDDPE LA    WC,XTXTBUFW         HASP INTERNAL TEXT BUFFER POINTER.   X6762000
001B10 5820 C070      0181C        7054          L     WA,XINTKEYS         POINTER TO FIRST 'KEY' (DD) IN TEXT. X6764000

001B14 1812                        7055          LR    R1,WA               TO R1 FOR NEXT 'KEY' SCAN.           X6766000
001B16 45E0 CACA      02276        7056          BAL   LINK,XFINDKEY       GET NEXT 'KEY' POINTER.              X6768000
001B1A 953E 1000      00000        7057          CLI   0(R1),X'3E'         TEST 'KEY' AFTER POSITIONAL.         X6770000
001B1E 4780 C066      01812        7058          BE    XJCLEXIT            EXIT IF 'DUMMY'.                     X6772000
001B22 1831                        7059          LR    WB,R1               TO R1 AND WB.                        X6774000
001B24 1B32                        7060          SR    WB,WA               COMPUTE LENGTH OF POSITIONAL         X6776000

                                   7061 *                                  SEGMENT AND MOVE IT TO HASP          X6778000
001B26 4430 C1A6      01952        7062          EX    WB,XJCLJBMH         INTERNAL TEXT BUFFER.                X6780000
001B2A 1A43                        7063          AR    WC,WB               POINT TO NEXT SLOT IN HASP BUFFER.   X6782000
001B2C 1B00                        7064          SR    R0,R0               CLEAR R0 FOR ICM.                    X6784000
001B2E 4120 0007      00007        7065          LA    WA,XJCPDBLE         SET BASIC PDDB LENGTH.               X6786000

                                   7066 *        ICM   R0,8,XJCPDBF2       GET PDDB FLAG BYTE 2.           RFIT X6788000
001B32 4300 C5A7      01D53        7067          IC    R0,XJCPDBF2                                         RFIT X6788005
001B36 8900 0018      00018        7068          SLL   R0,24                                               RFIT X6788010
001B3A 1200                        7069          LTR   R0,R0                                               RFIT X6788015
001B3C 4780 C49C      01C48        7070          BZ    XJCLNOPT            BRANCH IF NO OPTIONS.                X6790000

001B40 4720 C470      01C1C        7071          BP    XJCLNFOR            BRANCH IF FORMS NOT SPECIFIED.       X6792000
                                   7072 *                                                                       X6794000
                                   7073 *              FORMS SPECIFIED - LOOK FOR OUTPUT CONTROL RECORD         X6796000
                                   7074 *                                                                       X6798000
001B44 5860 D05C      0005C        7075          L     WE,XPCEOUTC         POINT TO THE OCR BUFFER.             X6800000

001B48 1266                        7076          LTR   WE,WE               DOES IT EXIST...                     X6802000
001B4A 4780 C45C      01C08        7077          BZ    XJCLNOCR            IF NOT, NO /*OUTPUT MERGE.           X6804000
                            00000  7078          USING BUFDSECT,WE         OCRS EXIST.  USE BUFDSECT            X6806000
001B4E 58E0 6058      00058        7079          L     R14,BUFSTART        GET OFFSET PAST LAST OCR.            X6808000
001B52 1AE6                        7080          AR    R14,WE              MAKE IT AN ABSOLUTE ADDRESS.         X6810000

001B54 4160 605C      0005C        7081          LA    WE,BUFSTART+4       POINT TO FIRST OCR.                  X6812000
                            00000  7082          USING OCRDSECT,WE         USE THE OCR DSECT.                   X6814000
XEQ      HASP R/I APPENDAGE -- DD STATEMENT PROCESSING                                                         PAGE  163


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001B58 5800 C5A8      01D54        7083          L     R0,XJCPDFOR         LOAD SYSOUT FORMS SPECIFICATION      X6816000
001B5C 156E                        7084 XJCLOCRF CLR   WE,R14              IS THERE ANOTHER OCR...              X6818000

001B5E 47B0 C45C      01C08        7085          BNL   XJCLNOCR            BRANCH IF NOT.                       X6820000
001B62 5500 6000      00000        7086          CL    R0,OCRCODE          DOES OCR ID MATCH SYSOUT FORMS       X6822000
001B66 4780 C3C6      01B72        7087          BE    XJCLOCRM            YES.  GO MERGE OCR INTO PDDB.        X6824000
001B6A 4160 6020      00020        7088          LA    WE,OCREND           NO.  POINT TO NEXT OCR               X6826000

001B6E 47F0 C3B0      01B5C        7089          B     XJCLOCRF            AND CHECK ITS ID.                    X6828000
                                   7090 *                                                                       X6830000
                                   7091 *              MERGE OCR INTO PDDB                                      X6832000
                                   7092 *                                                                       X6834000
001B72 947F C5A7      01D53        7093 XJCLOCRM NI    XJCPDBF2,255-XJCFLFOR  SHOW NO FORMS SPECIFIED.          X6836000


001B76 5800 6008      00008        7095          L     R0,OCRFORMS         DATASET FORMS ---                    X6840000
001B7A 1200                        7096          LTR   R0,R0               IS IT SPECIFIED IN OCR...            X6842000
001B7C 4780 C3DC      01B88        7097          BZ    *+12                BRANCH IF NOT.                       X6844000
001B80 5000 C5A8      01D54        7098          ST    R0,XJCPDFOR         YES.  SET FORMS IN PDDB              X6846000
001B84 9680 C5A7      01D53        7099          OI    XJCPDBF2,XJCFLFOR   AND SHOW FORMS SPECIFIED.            X6848000


001B88 5800 600C      0000C        7101          L     R0,OCRFCB           3211 FCB FOR DATASET ---             X6852000
001B8C 1200                        7102          LTR   R0,R0               IS IT SPECIFIED IN OCR...            X6854000
001B8E 4780 C3EE      01B9A        7103          BZ    *+12                BRANCH IF NOT.                       X6856000

001B92 5000 C5AC      01D58        7104          ST    R0,XJCPDFCB         YES.  SET FCB ID IN PDDB             X6858000
001B96 9640 C5A7      01D53        7105          OI    XJCPDBF2,XJCFLFCB   AND SHOW FCB SPECIFIED.              X6860000

001B9A 5800 6010      00010        7107          L     R0,OCRUCS           1403/3211 UCS FOR DATASET ---        X6864000
001B9E 1200                        7108          LTR   R0,R0               IS IT SPECIFIED IN OCR...            X6866000

001BA0 4780 C400      01BAC        7109          BZ    *+12                BRANCH IF NOT.                       X6868000
001BA4 5000 C5B0      01D5C        7110          ST    R0,XJCPDUCS         YES.  SET UCS ID IN PDDB             X6870000
001BA8 9620 C5A7      01D53        7111          OI    XJCPDBF2,XJCFLUCS   AND SHOW UCS SPECIFIED.              X6872000

001BAC 5800 6014      00014        7113          L     R0,OCRRECNT         MAXIMUM OUTPUT RECORDS ---           X6876000
001BB0 1200                        7114          LTR   R0,R0               IS IT SPECIFIED IN OCR...            X6878000
001BB2 4780 C412      01BBE        7115          BZ    *+12                BRANCH IF NOT.                       X6880000
001BB6 5000 C5B4      01D60        7116          ST    R0,XJCPDREC         YES.  SET REC CT IN PDDB AND         X6882000

001BBA 9610 C5A7      01D53        7117          OI    XJCPDBF2,XJCFLREC   SHOW IT SPECIFIED.                   X6884000


001BBE 4800 6018      00018        7119          LH    R0,OCRDEST1         DATASET DESTINATION ---              X6888000
001BC2 1200                        7120          LTR   R0,R0               IS IT SPECIFIED IN OCR...            X6890000
001BC4 4740 C436      01BE2        7121          BM    XJCLOCRD            BRANCH IF NOT.                       X6892000
001BC8 4000 C5BA      01D66        7122          STH   R0,XJCPDDES         YES.  SET FIRST DEST IN PDDB         X6894000
001BCC 9608 C5A7      01D53        7123          OI    XJCPDBF2,XJCFLMS1   AND SHOW DESTINATION PRESENT.        X6896000

001BD0 9180 601A      0001A        7124          TM    OCRDEST2,X'80'      ARE THERE MORE DESTINATIONS...       X6898000
001BD4 4710 C436      01BE2        7125          BO    XJCLOCRD            BRANCH IF NOT.                       X6900000
001BD8 9610 C5A0      01D4C        7126          OI    XJCPDBF1,XJCFLDES   YES.  SHOW MULT DESTINATIONS         X6902000
001BDC D207 C616 6018 01DC2 00018  7127          MVC   XJCDESTB,OCRDEST1   AND SAVE ALL OF THEM.                X6904000

001BE2 1B00                        7129 XJCLOCRD SR    R0,R0               3211 INDEX VALUE FOR DATASET --      X6908000
001BE4 4300 6007      00007        7130          IC    R0,OCRINDEX         GET INDEX VALUE FROM OCR.            X6910000
001BE8 1200                        7131          LTR   R0,R0               IS IT SPECIFIED...                   X6912000
001BEA 4780 C44A      01BF6        7132          BZ    *+12                BRANCH IF NOT.                       X6914000

001BEE 4200 C5B9      01D65        7133          STC   R0,XJCPDIND         YES.  SET INDEX IN PDDB AND          X6916000

001BF2 9608 C5A7      01D53        7134          OI    XJCPDBF2,XJCFLMS1   SHOW INDEX PRESENT.                  X6918000

001BF6 4300 6006      00006        7136          IC    R0,OCRCOPY          DATASET COPIES COUNT ---             X6922000
001BFA 1200                        7137          LTR   R0,R0               IS IT SPECIFIED IN OCR...            X6924000
XEQ      HASP R/I APPENDAGE -- DD STATEMENT PROCESSING                                                         PAGE  164



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001BFC 4780 C45C      01C08        7138          BZ    *+12                BRANCH IF NOT.                       X6926000
001C00 4200 C5BC      01D68        7139          STC   R0,XJCPDCOP         YES.  SET COPIES IN PDDB             X6928000
001C04 9604 C5A7      01D53        7140          OI    XJCPDBF2,XJCFLMS2   AND SHOW IT PRESENT.                 X6930000

                                   7142 *                                                                       X6934000
                                   7143 *              OCR-TO-PDDB MERGE IS COMPLETED                           X6936000
                                   7144 *                                                                       X6938000
                                   7145          DROP  WE                  DROP OCR ADDRESSABILITY.             X6940000
001C08 1B00                        7146 XJCLNOCR SR    R0,R0               CLEAR R0 FOR ICM.                    X6942000

                                   7147 *        ICM   R0,8,XJCPDBF2       ARE ANY OPTION BITS ON NOW...   RFIT X6944000

001C0A 4300 C5A7      01D53        7148          IC    R0,XJCPDBF2                                         RFIT X6944005
001C0E 8900 0018      00018        7149          SLL   R0,24                                               RFIT X6944010
001C12 1200                        7150          LTR   R0,R0                                               RFIT X6944015
001C14 4120 0007      00007        7151          LA    WA,XJCPDBLE         ASSUME NOT - SET LENGTH.             X6946000

001C18 4780 C49C      01C48        7152          BZ    XJCLNOPT            BRANCH IF NOT.                       X6948000

001C1C 9680 C5A0      01D4C        7154 XJCLNFOR OI    XJCPDBF1,XJCFLFL2   SHOW NOT A BASIC PDDB.               X6952000
001C20 41F0 0004      00004        7155          LA    R15,4               SET R15 TO FOUR.                     X6954000
001C24 4120 0004      00004        7156          LA    WA,XJCPDBEG-XJCLPDDB-4  SET PDDB LENGTH-4.               X6956000
001C28 4130 C5A4      01D50        7157          LA    WB,XJCPDBEG-4       SET 1ST OPTION FIELD-4.              X6958000
001C2C 4160 0017      00017        7158          LA    WE,XJCPDOL-1        SET LENGTH FOR MVC.                  X6960000

                                   7160 *                                  A BIT IN FLAG2 IS ON ---             X6964000
001C30 1A2F                        7161 XJCLCMP1 AR    WA,R15              INCREASE PDDB LENGTH BY 4.           X6966000
001C32 1A3F                        7162          AR    WB,R15              INCREASE FIELD POINTER BY 4.         X6968000

001C34 1B6F                        7163          SR    WE,R15              REDUCE MVC LENGTH BY 4.              X6970000
001C36 4740 C49C      01C48        7164          BM    XJCLNOPT            BRANCH IF DONE COMPRESSING.          X6972000

001C3A 1E00                        7166 XJCLCMP2 ALR   R0,R0               CHECK NEXT FLAG2 BIT.                X6976000

001C3C 4730 C484      01C30        7167          BC    B'0011',XJCLCMP1    BRANCH IF IT IS ON.                  X6978000

                                   7169 *                                  A BIT IN FLAG2 IS OFF ---            X6982000
001C40 4460 C5D8      01D84        7170          EX    WE,XJCLCMPM         COMPRESS ITS FIELD.                  X6984000
001C44 4750 C48E      01C3A        7171          BC    B'0101',XJCLCMP2    IF OTHER BITS ON, CHECK NEXT.        X6986000

001C48 4220 C5A2      01D4E        7173 XJCLNOPT STC   WA,XJCPDBLN         SET LENGTH IN PDDB.                  X6990000
001C4C D203 C5A3 CBA4 01D4F 02350  7174          MVC   XJCPDBMT,XJSTNDDN   SET STEP AND DD NUMBERS IN PDDB.     X6992000
                                   7175 *                                                                       X6994000
                                   7176 *              PUT PDDB INTO IOT                                        X6996000
                                   7177 *                                                                       X6998000
001C52 5860 C620      01DCC        7178          L     WE,XJCURIOT         POINT TO THE CURRENT IOT.            X7000000

                            00000  7179          USING IOTDSECT,WE         USE THE IOT DSECT.                   X7002000
001C56 58F0 60D4      000D4        7180 XJCLIOT2 L     R15,IOTPDDBP        GET OFFSET FOR NEXT PDDB.            X7004000
001C5A 18EF                        7181          LR    R14,R15             SAVE OFFSET.                         X7006000

001C5C 1AF2                        7182          AR    R15,WA              ADD LENGTH OF PDDB TO BUILD.         X7008000
                                   7183          CL    R15,=A(&BUFSIZE+(BUFSTART-BUFDSECT)) WILL IT FIT...      X7010000
001C5E 55F0 CC0C      023B8        7184+         CL    R15,=A(1960+(BUFSTART-BUFDSECT))     WILL IT FIT...      X7010000
001C62 47D0 C4F4      01CA0        7185          BNH   XJCLIOT3            BRANCH IF SO.                        X7012000
                                   7186 *                                                                       X7014000
                                   7187 *              NEW IOT IS REQUIRED                                      X7016000
                                   7188 *                                                                       X7018000
001C66 1B00                        7189          SR    R0,R0               ZERO OUT                             X7020000
001C68 5000 C4F0      01C9C        7190          ST    R0,XJCLECB          OUR ECB.                             X7022000
001C6C 9620 D059      00059        7191          OI    XSYNCFLG,XGETIOT    SHOW WE NEED AN IOT.                 X7024000
001C70 9608 D058      00058        7192          OI    XPCESTAT,XSYNCREQ   SHOW SPECIAL ACTION.                 X7026000
XEQ      HASP R/I APPENDAGE -- DD STATEMENT PROCESSING                                                         PAGE  165



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   7193         $POST  PCEEWF+$EWBWORK,WORK  POST THIS XEQ PCE.                 X7028000
001C74 94DF D049      00049        7194+         NI    PCEEWF+$EWBWORK,255-$EWFWORK                             PO008000

001C78 947F B0C4      000C4        7195+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
                                   7196          POST  $HASPECB            OS-POST HASP.                        X7030000
001C7C 1B00                        7197+         SR    0,0                    . SET POST CODE REG ZERO          00640021
001C7E 4110 B0D8      000D8        7198+         LA    1,$HASPECB             . LOAD ECB ADDRESS IN REG 1       02350021
001C82 0A02                        7199+         SVC   2                      . ISSUE THE POST SVC              08250021
                                   7200          WAIT  1,ECB=XJCLECB       WAIT HERE.                           X7032000
001C84 4110 C4F0      01C9C        7201+         LA    1,XJCLECB                         LOAD PARAMETER REG 1   00100000
001C88 4100 0001      00001        7202+         LA    0,1(0,0)                          LOAD PARAMETER REG 0   00280000
001C8C 0A01                        7203+         SVC   1                                 LINK TO WAIT ROUTINE   00280000
001C8E 5860 6058      00058        7204          L     WE,IOTIOT           POINT TO NEWLY-GOT IOT.              X7034000
001C92 5060 C620      01DCC        7205          ST    WE,XJCURIOT         SAVE POINTER FOR NEXT TIME.          X7036000
001C96 47F0 C4AA      01C56        7206          B     XJCLIOT2            GO PUT PDDB INTO IOT.                X7038000

001C9C                             7207 XJCLECB  DS    F                   ECB FOR NEW IOT GETTING.             X7040000
                                   7208 *                                                                       X7042000

                                   7209 *              END OF NEW IOT PROCESSING                                X7044000

                                   7210 *                                                                       X7046000
001CA0                             7211 XJCLIOT3 DS    0H                                                       X7048000
001CA0 50F0 60D4      000D4        7212          ST    R15,IOTPDDBP        SET NEW PDDB OFFSET AFTER MOVE.      X7050000
001CA4 1AE6                        7213          AR    R14,WE              CALCULATE SINK ADDRESS.              X7052000
001CA6 0620                        7214          BCTR  WA,0                GET LENGTH-1 FOR MVC.                X7054000
001CA8 4420 C5D2      01D7E        7215          EX    WA,XJCLMPDB         MOVE PDDB TO IOT.                    X7056000
001CAC 9110 C5A0      01D4C        7216          TM    XJCPDBF1,XJCFLDES   ARE THERE MULT DESTS...              X7058000
001CB0 4780 C54E      01CFA        7217          BZ    XJCLIOT5            BRANCH IF NOT.                       X7060000
001CB4 D206 C616 C618 01DC2 01DC4  7218          MVC   XJCDESTB(7),XJCDESTB+2  LEFT-SHIFT TO GET NEXT.          X7062000
001CBA 9180 C616      01DC2        7219          TM    XJCDESTB,X'80'      IS IT ANOTHER DESTINATION...         X7064000
001CBE 4710 C54E      01CFA        7220          BO    XJCLIOT5            BRANCH IF NOT.                       X7066000
001CC2 4100 0004      00004        7221          LA    R0,4                PDB2MSC1 IS BIT 4 IN FLAG2.          X7068000

                                   7222 *        ICM   R1,8,XJCPDBF2       GET THE FLAG 2 BYTE.            RFIT X7070000
001CC6 8910 0008      00008        7223          SLL   R1,8                                                RFIT X7070005

001CCA 8810 0008      00008        7224          SRL   R1,8                                                RFIT X7070010

001CCE 43F0 C5A7      01D53        7225          IC    R15,XJCPDBF2                                        RFIT X7070015
001CD2 89F0 0018      00018        7226          SLL   R15,24                                              RFIT X7070020
001CD6 161F                        7227          OR    R1,R15                                              RFIT X7070025
001CD8 41F0 C5A8      01D54        7228          LA    R15,XJCPDFOR        POINT TO 1ST POSSIBLE SLOT.          X7072000
001CDC 1E11                        7229 XJCLIOT4 ALR   R1,R1               IS SLOT IN USE...                    X7074000
001CDE 47C0 C53A      01CE6        7230          BC    B'1100',*+8         SKIP IF IT ISN'T.                    X7076000
001CE2 41F0 F004      00004        7231          LA    R15,4(,R15)         YES.  POINT TO NEXT POSS SLOT.       X7078000
001CE6 4600 C530      01CDC        7232          BCT   R0,XJCLIOT4         AND LOOP TILL SLOT 'MSC1'.           X7080000
001CEA D201 F002 C616 00002 01DC2  7233          MVC   2(2,R15),XJCDESTB   PUT NEW DEST IN MSC1                 X7082000
001CF0 1B22                        7234          SR    WA,WA               ZERO WA FOR IC.                      X7084000
001CF2 4320 C5A2      01D4E        7235          IC    WA,XJCPDBLN         AGAIN SET PDDB LENGTH IN WA.         X7086000
001CF6 47F0 C4AA      01C56        7236          B     XJCLIOT2            AND PUT NEW PDDB IN IOT.             X7088000

001CFA                             7237 XJCLIOT5 DS    0H                                                       X7090000
001CFA D203 4000 C951 00000 020FD  7238          MVC   0(4,WC),XJCLUSKL    MOVE 'UNIT=X' TO HASP BUFFER.        X7092000
001D00 4140 4004      00004        7239          LA    WC,4(,WC)           POINT TO NEXT SLOT IN HASP BUFFER.   X7094000

001D04 4100 002C      0002C        7240 XJCLDDTT LA    R0,X'2C'            R0 = 'FCB' KEY VALUE.      *         X7096000
001D08 45E0 CA0C      021B8        7241          BAL   LINK,XINTSCAN       LOCATE 'FCB' KEY IN TEXT.            X7098000
001D0C 4780 C572      01D1E        7242          BZ    XJCLDDNC            BRANCH IF NOT FOUND.                 X7100000
001D10 1821                        7243          LR    WA,R1               WA = ADDR OF 'FCB' KEY.              X7102000
001D12 45E0 CACA      02276        7244          BAL   LINK,XFINDKEY       LOCATE NEXT KEY IN TEXT.             X7104000
001D16 1B12                        7245          SR    R1,WA               R1 = LENGTH OF 'FCB' PARM.           X7106000
001D18 4410 C1A6      01952        7246          EX    R1,XJCLJBMH         MOVE 'FCB' PARM TO OUTPUT.           X7108000
001D1C 1A41                        7247          AR    WC,R1               POINT TO NEXT OUTPUT SLOT.           X7110000
XEQ      HASP R/I APPENDAGE -- DD STATEMENT PROCESSING                                                         PAGE  166


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001D1E 9102 CAC7      02273        7248 XJCLDDNC TM    XSTATUS+3,XJSDCBBT  TEST FOR 'DCB' ENTRIES.              X7112000
001D22 4710 C79C      01F48        7249          BO    XJCLDDCB            YES..GO PROCESS 'DCB' ET AL.         X7114000

001D26 D202 4000 C955 00000 02101  7250 XJCLDDND MVC   0(3,WC),XJCLSTOP    MOVE TERMINATION SEQUENCE            X7116000
                                   7251 *                                  TO HASP BUFFER.                      X7118000
001D2C 4140 4002      00002        7252          LA    WC,2(,WC)           POINT TO END OF NEW TEXT.            X7120000
001D30 4130 C960      0210C        7253          LA    WB,XTXTBUFW         POINT TO START OF NEW TEXT.          X7122000

001D34 1B43                        7254          SR    WC,WB               COMPUTE LENGTH-1 OF NEW TEXT.        X7124000
001D36 5810 C070      0181C        7255          L     R1,XINTKEYS         POINT TO START OF READER BUFFER.     X7126000
001D3A 4440 C624      01DD0        7256          EX    WC,XTXTMVTR         MOVE HASP TEXT TO READER TEXT.       X7128000
001D3E 47F0 C066      01812        7257          B     XJCLEXIT            EXIT.                                X7130000



001D42 4040404040404040            7259 XJCLBLNK DC    CL8' '              EIGHT BLANKS.                        X7134000

001D4C                             7260 XJCLPDDB DS    0F                  WORKAREA TO CONSTRUCT PDDB.          X7136000
001D4C                             7261 XJCPDBF1 DS    B                   PDDB FLAGS 1.                        X7138000
                            00080  7262 XJCFLFL2 EQU   PDB1FLG2            PDBFLAG2 EXISTS.                     X7140000
                            00040  7263 XJCFLNUL EQU   PDB1NULL            NULL PDDB.                           X7142000
                            00010  7264 XJCFLDES EQU   PDB1MDES            OCR SHOWS MULT DESTS.                X7144000
001D4D                             7265 XJCPDBCL DS    C                   OUTPUT CLASS.                        X7146000
001D4E                             7266 XJCPDBLN DS    X                   PDDB LENGTH.                         X7148000
001D4F                             7267 XJCPDBMT DS    FL4                 MTTR/STEP AND DD NUMBER.             X7150000

001D53                             7268 XJCPDBF2 DS    B                   FLAGS SHOWING FIELDS PRESENT...      X7152000
                            00080  7269 XJCFLFOR EQU   PDB2FORM            PDBFORMS                             X7154000

                            00040  7270 XJCFLFCB EQU   PDB2FCB             PDBFCB                               X7156000
                            00020  7271 XJCFLUCS EQU   PDB2UCS             PDBUCS                               X7158000
                            00010  7272 XJCFLREC EQU   PDB2RECC            PDBRECCT                             X7160000
                            00008  7273 XJCFLMS1 EQU   PDB2MSC1            PDBMISC1                             X7162000
                            00004  7274 XJCFLMS2 EQU   PDB2MSC2            PDBMISC2                             X7164000
                            01D54  7275 XJCPDBEG EQU   *                   --- OPTIONAL PDDB FIELDS START       X7166000
001D54                             7276 XJCPDFOR DS    FL4                 FORMS IDENTIFIER                     X7168000
001D58                             7277 XJCPDFCB DS    FL4                 FCB IDENTIFIER                       X7170000

001D5C                             7278 XJCPDUCS DS    FL4                 UCS IDENTIFIER                       X7172000
001D60                             7279 XJCPDREC DS    FL4                 RECORD COUNT                         X7174000
001D64                             7280 XJCPDSEC DS    X                   SECURITY IDENTIFIER                  X7176000
001D65                             7281 XJCPDIND DS    X                   3211 INDEX VALUE                     X7178000
001D66                             7282 XJCPDDES DS    HL2                 DESTINATION VALUE                    X7180000

001D68                             7283 XJCPDCOP DS    X                   DATASET COPY COUNT                   X7182000
001D69                             7284          DS    3X                  RESERVED IN MISC2                    X7184000
                            01D6C  7285 XJCPDEND EQU   *                   --- OPTIONAL PDDB FIELDS END         X7186000

                            00018  7286 XJCPDOL  EQU   XJCPDEND-XJCPDBEG   LENGTH OF OPTIONAL FIELDS            X7188000


                            00007  7288 XJCPDBLE EQU   PDBBASLN            LENGTH OF BASIC PDDB.                X7192000
                            01D4C  7289 XJCLPDB  EQU   XJCLPDDB,*-XJCLPDDB START AND LENG OF MAXIMUM PDDB.      X7194000


001D6C D200 C5A8 1006 01D54 00006  7291 XJCLMFOR MVC   XJCPDFOR(*-*),6(R1) *** EXECUTE ONLY ***                 X7198000
001D72 D200 C5B0 1003 01D5C 00003  7292 XJCLMUCS MVC   XJCPDUCS(*-*),3(R1) *** EXECUTE ONLY ***                 X7200000

001D78 D200 C5AC 1003 01D58 00003  7293 XJCLMFCB MVC   XJCPDFCB(*-*),3(R1) *** EXECUTE ONLY ***                 X7202000
001D7E D200 E000 C5A0 00000 01D4C  7294 XJCLMPDB MVC   0(*-*,R14),XJCLPDDB *** EXECUTE ONLY ***                 X7204000
001D84 D200 3000 3004 00000 00004  7295 XJCLCMPM MVC   0(*-*,WB),4(WB)     *** EXECUTE ONLY ***                 X7206000
001D8C                             7296 XRITABLE DS    0F                  AUXILIARY TABLE                      X7208000
001D8C 0000                        7297 XRISTNR  DC    H'0'                INTERPRETING STEP NUMBER.            X7210000

001D8E 0000                        7298 XRIDDNR  DC    H'0'                INTERPRETING DD NUMBER.              X7212000
XEQ      HASP R/I APPENDAGE -- DD STATEMENT PROCESSING                                                         PAGE  167


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                            00005  7299 XRIDDNMK EQU   5                   MAX DDNAME= OCCURRENCES/STEP.        X7214000

                            0000A  7300 XRIDDNL  EQU   10                  LENGTH OF SAVE FIELD FOR EACH.       X7216000
001D90                             7301 XRIDDNT  DS    CL(XRIDDNMK*XRIDDNL)  DDNAME= SAVE AREA.                 X7218000
                            01D90  7302 XRIDDNAM EQU   XRIDDNT,8           ARGUMENT OF DDNAME= KEYWORD.         X7220000
                            01D98  7303 XRIDDNUM EQU   XRIDDNT+8,2         DD NUMBER OF DDNAME= KEYWORD.        X7222000
                            00036  7304 XRITABLN EQU   *-XRITABLE          LENGTH OF XRITABLE.                  X7224000
                            01D8C  7305 XRITAB   EQU   XRITABLE,XRITABLN                                        X7226000

001DC2                             7306 XJCDESTB DS    XL8                 DESTINATION WORK AREA.               X7228000
001DCA 80                          7307          DC    X'80'               DEST TABLE TERMINATOR.               X7230000
001DCB 08                          7308 XJCMPMS1 DC    AL1(XJCFLMS1)       COMPARATOR TO FIND DEST OFFSET.      X7232000
001DCC                             7309 XJCURIOT DS    F                   POINTER TO CURRENT IOT.              X7234000
001DD0 D200 1000 C960 00000 0210C  7310 XTXTMVTR MVC   0(*-*,R1),XTXTBUFW                                       X7236000

XEQ      HASP R/I APPENDAGE -- DDNAME= PROCESSING                                                              PAGE  168


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7312 ******************************************************************      X7240000
                                   7313 *                                                                *      X7242000
                                   7314 *              THIS SECTION TESTS FOR PRESENCE OF THE DDNAME=    *      X7244000

                                   7315 *              KEYWORD.  IF THE KEYWORD IS PRESENT, ITS ARGUMENT *      X7246000
                                   7316 *              AND THE CURRENT DD NUMBER ARE SAVED IN THE        *      X7248000
                                   7317 *              DDNAME TABLE.                                     *      X7250000
                                   7318 *                                                                *      X7252000
                                   7319 ******************************************************************      X7254000




                                   7321 XJCLDDNM NULL                                                           X7258000
001DD6                             7322+XJCLDDNM DS    0H                                                       NU006000
001DD6 9140 CAC7      02273        7323          TM    XSTATUS+3,XJSDDNBT  TEST FOR 'DDNAME'...                 X7260000
001DDA 47E0 C066      01812        7324          BNO   XJCLEXIT            NO.  EXIT.                           X7262000

001DDE 4300 CBB8      02364        7325          IC    R0,XJSDDNKE         FLAG 'DDNAME' SCAN.                  X7264000
001DE2 45E0 CA0C      021B8        7326          BAL   LINK,XINTSCAN       GET LOCATION OF 'DDNAME'.            X7266000

001DE6 4100 0005      00005        7328          LA    R0,XRIDDNMK         GET COUNT OF DDNAME= SLOTS.          X7270000
001DEA 4120 C5E4      01D90        7329          LA    WA,XRIDDNT          POINT TO THE FIRST DDNAME= SLOT      X7272000
001DEE 9500 2000      00000        7330 XJCLDDN1 CLI   0(WA),0             IS THIS SLOT EMPTY...                X7274000

001DF2 4780 C656      01E02        7331          BE    XJCLDDN2            YES.  GO FILL IT IN.                 X7276000
001DF6 4120 200A      0000A        7332          LA    WA,XRIDDNL(,WA)     NO.  POINT TO NEXT SLOT              X7278000
001DFA 4600 C642      01DEE        7333          BCT   R0,XJCLDDN1         AND CHECK IT.                        X7280000
001DFE 47F0 C066      01812        7334          B     XJCLEXIT            JCL ERROR IF ALL SLOTS FULL.         X7282000


001E02 1B88                        7336 XJCLDDN2 SR    R8,R8               CLEAR R8.                            X7286000
001E04 4380 1002      00002        7337          IC    R8,2(,R1)           GET DDNAME= ARGUMENT LENGTH.         X7288000
001E08 0680                        7338          BCTR  R8,0                REDUCE BY ONE FOR MVC.               X7290000
001E0A 4980 C668      01E14        7339          CH    R8,*+10             IS ARGUMENT TOO LARGE...             X7292000

001E0E 47D0 C66A      01E16        7340          BNH   *+8                 SKIP IF NOT.                         X7294000
001E12 4180 0007      00007        7341          LA    R8,7                ELSE USE FIRST 8 CHARACTERS.         X7296000
001E16 9240 2000      00000        7342          MVI   0(WA),C' '          INITIALIZE XRIDDNAM                  X7298000
001E1A D206 2001 2000 00001 00000  7343          MVC   1(7,WA),0(WA)       TO EIGHT BLANKS.                     X7300000
001E20 4480 C682      01E2E        7344          EX    R8,XJCLDDMV         MOVE ARGUMENT TO XRIDDNAM.           X7302000
001E24 D201 2008 C5E2 00008 01D8E  7345          MVC   8(2,WA),XRIDDNR     MOVE DD NR TO XRIDDNUM.              X7304000
001E2A 47F0 C066      01812        7346          B     XJCLEXIT            END OF PROCESSING.                   X7306000




001E2E D200 2000 1003 00000 00003  7348 XJCLDDMV MVC   0(*-*,WA),3(R1)     *** EXECUTE ONLY ***                 X7310000
XEQ      HASP R/I APPENDAGE -- DD *, DD DATA TEST ROUTINE                                                      PAGE  169



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7350 *********************************************************************** X7314000
                                   7351 *                                                                     * X7316000
                                   7352 *              THIS SECTION TESTS FOR 'DD *' OR 'DD DATA' AND         * X7318000
                                   7353 *              PROCESSES THESE STATEMENTS IN ACCORDANCE TO THE        * X7320000

                                   7354 *              HASP REQUIREMENTS.                                     * X7322000
                                   7355 *                                                                     * X7324000
                                   7356 *********************************************************************** X7326000



                                   7358 XJCLDDDT NULL                                                           X7330000
001E34                             7359+XJCLDDDT DS    0H                                                       NU006000
001E34 9502 1001      00001        7360          CLI   1(R1),X'02'         TEST FOR TWO POSITIONAL FIELDS.      X7332000
001E38 4770 C62A      01DD6        7361          BNE   XJCLDDNM            NO.  CANNOT BE LEGAL DD * OR         X7334000

                                   7362 *                                  'DD DATA' STATEMENT.                 X7336000
001E3C 1B33                        7363          SR    WB,WB               CLEAR WB.                            X7338000

001E3E 4120 1003      00003        7364          LA    WA,3(,R1)           POINT TO TEXT DATA FIELD.            X7340000
001E42 4331 0002      00002        7365          IC    WB,2(R1)            GET 'LENGTH' BYTE.                   X7342000
001E46 1A23                        7366          AR    WA,WB               POINT WA TO NEXT 'LENGTH' BYTE.      X7344000
001E48 9504 2000      00000        7367          CLI   0(WA),X'04'         IS IT GREATER THAN 4....             X7346000
001E4C 4720 C066      01812        7368          BH    XJCLEXIT            YES. MUST BE 'DUMMY'.                X7348000

001E50 9500 2000      00000        7369          CLI   0(WA),X'00'         IS IT NULL...                        X7350000
001E54 4780 C066      01812        7370          BE    XJCLEXIT            YES. EXIT.                           X7352000
001E58 955B 2001      00001        7371          CLI   1(WA),C'$'          TEST FOR '$' ALIAS '*'.              X7354000
001E5C 4780 C6BE      01E6A        7372          BE    XJCLDDDA            YES. GO PROCESS IT.                  X7356000
001E60 D503 2001 C95C 00001 02108  7373          CLC   1(4,WA),XJCLDATA    NO. TEST FOR 'CATA' ALIAS 'DATA'.    X7358000
001E66 4770 C066      01812        7374          BNE   XJCLEXIT            NO. EXIT. SOMEBODY GOOFED.           X7360000
XEQ      HASP R/I APPENDAGE -- DD *, DD DATA PROCESSING                                                        PAGE  170


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7376 *********************************************************************** X7364000

                                   7377 *                                                                     * X7366000

                                   7378 *              THIS SECTION PROCESSES 'DD *' OR 'DD DATA' STATEMENTS  * X7368000
                                   7379 *                                                                     * X7370000
                                   7380 *********************************************************************** X7372000
                            01E6A  7381 XJCLDDDA EQU   *                                                        X7374000
001E6A D200 C960 CBAA 0210C 02356  7382          MVC   XTXTBUFW(1),XJSDDKEY 'DD' KEY TO HASP TEXT BUFFER.       X7376000

001E70 9201 C961      0210D        7383          MVI   XTXTBUFW+1,X'01'    SET 'NUMBER' TO 01.                  X7378000
001E74 4331 0002      00002        7384          IC    WB,2(R1)            GET READER TEXT 'LENGTH BYTE.        X7380000
001E78 4230 C962      0210E        7385          STC   WB,XTXTBUFW+2       STORE IN HASP TEXT BUFFER.           X7382000
001E7C 4430 C760      01F0C        7386          EX    WB,XTXTMVFR         MOVE DDNAME FROM READER TO HASP TEXT X7384000
001E80 4140 C963      0210F        7387          LA    WC,XTXTBUFW+3       POINT TO NEXT SLOT IN HASP BUFFER.   X7386000
001E84 1A43                        7388          AR    WC,WB               TEXT BUFFER.                         X7388000
001E86 D203 4000 C958 00000 02104  7389          MVC   0(4,WC),XJCLSKEL    MOVE 'UNIT=R' TO HASP TEXT.          X7390000
001E8C 4140 4004      00004        7390          LA    WC,4(,WC)           POINT TO NEXT HASP TEXT SLOT.        X7392000
                                   7391 *********************************************************************** X7394000
                                   7392 *                                                                     * X7396000

                                   7393 *              THIS SECTION STORES STEP AND DD NUMBER IN THE     *      X7398000

                                   7394 *              DDB PROCURED BY XDDSTAR.                          *      X7400000
                                   7395 *                                                                     * X7402000
                                   7396 *********************************************************************** X7404000
001E90 5850 D078      00078        7397          L     WD,XPCEDDB          START OF DDT'S.                      X7406000

001E94 1255                        7398 XJCLDDBA LTR   WD,WD               IS THIS THE END OF THE CHAIN...      X7408000
001E96 4780 C066      01812        7399          BZ    XJCLEXIT            YES. AN UNDESIRABLE SITUATION        X7410000
                                   7400 *                                  TEST FOR UNASSIGNED DDT...           X7412000
001E9A 95FF 5010      00010        7401          CLI   DDBSBUF-DDBDSECT(WD),XDDBMARK                            X7414000
001E9E 4780 C6FE      01EAA        7402          BE    XJCLDDBO            BRANCH IF UNASSIGNED.                X7416000
                                   7403 *                                  STEP TO NEXT DDT.                    X7418000
001EA2 5855 0000      00000        7404          L     WD,DDBCHAIN-DDBDSECT(WD)                                 X7420000
001EA6 47F0 C6E8      01E94        7405          B     XJCLDDBA            TRY AGAIN.                           X7422000
                            01EAA  7406 XJCLDDBO EQU   *                   AVAILABLE DDT FOUND.                 X7424000
                                   7407 *                                  SHOW ASSIGNMENT.                     X7426000
001EAA 9200 5010      00010        7408          MVI   DDBSBUF-DDBDSECT(WD),0                                   X7428000

001EAE D203 5014 CBA4 00014 02350  7409          MVC   DDBDDNR-DDBDSECT(,WD),XJSTNDDN  PUT STEP, DD NR IN PDDB. X7430000
001EB4 9102 CAC7      02273        7410          TM    XSTATUS+3,XJSDCBBT  TEST FOR 'DCB' ENTERIES.             X7432000
001EB8 4710 C768      01F14        7411          BO    XJCLINDB            YES..GO PROCESS 'DCB' ET AL.         X7434000
001EBC D201 4000 C766 00000 01F12  7412          MVC   0(2,WC),XJCLDCB     NO...ADD DCB SPECIFICATION.          X7436000

001EC2 4140 4002      00002        7413          LA    WC,2(,WC)           POINT TO NEXT SLOT IN BUFFER.        X7438000
001EC6 910C CAC7      02273        7414 XJCLADDD TM    XSTATUS+3,XJSBLKBT+XJSLRCBT   TEST FOR BLKSIZE.          X7440000
001ECA 4770 C732      01EDE        7415          BNZ   XJCLADDL            YES..GO CHECK FOR LRECL.             X7442000
                                   7416 *                                  NO...ADD DEFAULT 'BLKSIZE' FOR HASP. X7444000
001ECE D204 C857 C922 02003 020CE  7417          MVC   XJCLBSKL+3(XJCLMXLT),XDEFIBLK                            X7446000
                                   7418 *                                  MOVE IT TO HASP TEXT BUFFER.         X7448000
001ED4 D207 4000 C854 00000 02000  7419          MVC   0(8,WC),XJCLBSKL                                         X7450000
001EDA 4140 4008      00008        7420          LA    WC,8(,WC)           POINT TO NEXT SLOT IN BUFFER.        X7452000
001EDE 9108 CAC7      02273        7421 XJCLADDL TM    XSTATUS+3,XJSLRCBT  TEST FOR LRECL.                      X7454000
001EE2 4710 C74A      01EF6        7422          BO    XJCLADDR            YES..GO CHECK FOR RECFM.             X7456000
                                   7423 *                                  NO...ADD DEFAULT 'LRECL'.            X7458000
001EE6 D204 C85F C922 0200B 020CE  7424          MVC   XJCLLRKL+3(XJCLMXLT),XDEFIBLK                            X7460000

001EEC D207 4000 C85C 00000 02008  7425          MVC   0(8,WC),XJCLLRKL    MOVE IT TO HASP TEXT BUFFER.         X7462000
001EF2 4140 4008      00008        7426          LA    WC,8(,WC)           POINT TO NEXT SLOT IN HASP BUFFER.   X7464000
001EF6 9120 CAC7      02273        7427 XJCLADDR TM    XSTATUS+3,XJSRCFBT  TEST FOR RECFM SPECIFICATION.        X7466000

001EFA 4710 C57A      01D26        7428          BO    XJCLDDND            YES..TERMINATE ACTIVITIES.           X7468000
001EFE D204 4000 C94C 00000 020F8  7429          MVC   0(5,WC),XJCLRCSK    ADD 'RECFM=FB' FOR HASP.             X7470000
001F04 4140 4005      00005        7430          LA    WC,5(,WC)           POINT TO NEXT SLOT IN HASP BUFFER.   X7472000
XEQ      HASP R/I APPENDAGE -- DD *, DD DATA PROCESSING                                                        PAGE  171


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

001F08 47F0 C57A      01D26        7431          B     XJCLDDND            TERMINATE ACTIVITIES.                X7474000



001F0C D200 C963 1003 0210F 00003  7433 XTXTMVFR MVC   XTXTBUFW+3(*-*),3(R1)                                    X7478000
001F12 4000                        7434 XJCLDCB  DC    X'40',X'00'         DEFINE 'DCB=...' TEXT      *         X7480000
XEQ      HASP R/I APPENDAGE -- SYSIN DCB PROCESSING                                                            PAGE  172


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7436 *********************************************************************** X7484000

                                   7437 *                                                                     * X7486000
                                   7438 *              THIS SECTION PROCESSES 'DCB' PARAMETERS IN CONJUNCTION * X7488000
                                   7439 *              WITH SYSIN (DD * OR DD DATA) JCL STATEMENTS.           * X7490000

                                   7440 *                                                                     * X7492000
                                   7441 *********************************************************************** X7494000



                                   7443 XJCLINDB NULL                                                           X7498000
001F14                             7444+XJCLINDB DS    0H                                                       NU006000
001F14 45E0 C870      0201C        7445          BAL   LINK,XJCLDECB       GO TO ALL-PURPOSE 'DCB' ROUTINE.     X7500000
                                   7446 *                                  MOVE DEFAULT SYSIN 'BLKSIZE' TO      X7502000
                                   7447 *                                  TEST LOCATION FOR 'BLKSIZE' ,        X7504000
                                   7448 *                                  'LRECL' GENERAL PURPOSE ROUTINE.     X7506000
001F18 D204 C84E C922 01FFA 020CE  7449          MVC   XDEFOBXX(XJCLMXLT),XDEFIBLK                              X7508000
001F1E 45E0 C7AE      01F5A        7450          BAL   LINK,XJCLSHFL       GO TO IT.                            X7510000
001F22 47F0 C71A      01EC6        7451          B     XJCLADDD            EXIT.                                X7512000

XEQ      HASP R/I APPENDAGE -- SYSOUT SPECIAL WRITER PROCESSING                                                PAGE  173



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7453 *********************************************************************** X7516000

                                   7454 *                                                                     * X7518000
                                   7455 *              THIS SECTION PROCESSES 'SYSOUT' WITH SPECIAL           * X7520000
                                   7456 *              WRITER SPECIFIED...'SYSOUT=(X,WRITER,FORM)...          * X7522000
                                   7457 *                                                                     * X7524000
                                   7458 *********************************************************************** X7526000



                                   7460 XJCLDDWR NULL                                                           X7530000
001F26                             7461+XJCLDDWR DS    0H                                                       NU006000
001F26 9110 CAC7      02273        7462          TM    XSTATUS+3,XJSUNIBT  TEST FOR 'UNIT' SPECIFICATION.       X7532000
001F2A 4710 C066      01812        7463          BO    XJCLEXIT            YES..EXIT.                           X7534000
001F2E 5820 C074      01820        7464          L     WA,XINTENDK         NO...GET POINTER TO 'END' KEY.       X7536000
001F32 D20A 2000 C790 00000 01F3C  7465          MVC   0(11,WA),XJCLUDEF   MOVE 'UNIT=SYSDA' AND END SEQUENCE.  X7538000

001F38 47F0 C066      01812        7466          B     XJCLEXIT            EXIT.                                X7540000




                                   7468 *                                  DEFINE 'UNIT=SYSDA' AND END SEQUENCE X7544000

001F3C 410105E2E8E2C4C1            7469 XJCLUDEF DC    X'41',X'0105',C'SYSDA',X'FE',X'0000'           *         X7546000
XEQ      HASP R/I APPENDAGE -- SYSOUT DCB PROCESSING                                                           PAGE  174


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7471 *********************************************************************** X7550000
                                   7472 *                                                                     * X7552000
                                   7473 *              THIS SECTION PROCESSES 'DCB' PARAMETERS IN CONJUNCTION * X7554000
                                   7474 *              WITH 'SYSOUT' DISPOSITION.                             * X7556000
                                   7475 *                                                                     * X7558000
                                   7476 *********************************************************************** X7560000



                                   7478 XJCLDDCB NULL                                                           X7564000
001F48                             7479+XJCLDDCB DS    0H                                                       NU006000

001F48 45E0 C870      0201C        7480          BAL   LINK,XJCLDECB       GO TO GENERAL DCB ROUTINE.           X7566000
                                   7481 *                                  MOVE DEFAULT OUTPUT 'BLKIZE' TO      X7568000
                                   7482 *                                  TEST LOCATIONS FOR 'BLKSZE',         X7570000

                                   7483 *                                  'LRECL' GENERAL PURPOSE ROUTINE.     X7572000
001F4C D204 C84E C927 01FFA 020D3  7484          MVC   XDEFOBXX(XJCLMXLT),XDEFOBLK                              X7574000
001F52 45E0 C7AE      01F5A        7485          BAL   LINK,XJCLSHFL       GO TO IT...                          X7576000
001F56 47F0 C57A      01D26        7486          B     XJCLDDND            TERMINATE.                           X7578000
XEQ      HASP R/I APPENDAGE -- BLKSIZE/LRECL PROCESSING                                                        PAGE  175


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7488 *********************************************************************** X7582000
                                   7489 *                                                                     * X7584000
                                   7490 *              THIS ROUTINE EXAMINES 'BLKSIZE' AND 'LRECL' DCB        * X7586000
                                   7491 *              ENTERIES (IF THEY EXIST) AND ADJUSTS THE VALUES        * X7588000
                                   7492 *              SPECIFIED BY THE USER IF THEY DO NOT MEET HASP         * X7590000
                                   7493 *              REQUIREMENTS.                                          * X7592000

                                   7494 *                                                                     * X7594000
                                   7495 *********************************************************************** X7596000



                                   7497 XJCLSHFL NULL                                                           X7600000

001F5A                             7498+XJCLSHFL DS    0H                                                       NU006000
                                   7499 *                                  TEST FOR 'BLKSIZE' AND 'LRECL'.      X7602000
001F5A 910C CAC7      02273        7500          TM    XSTATUS+3,XJSBLKBT+XJSLRCBT                              X7604000
001F5E 078E                        7501          BCR   Z,LINK              EXIT IF NEITHER IS SPECIFIED.        X7606000
001F60 4710 C7C6      01F72        7502          BO    XJCLBOTH            BRANCH IF BOTH SPECIFIED.            X7608000
001F64 D204 C857 C937 02003 020E3  7503          MVC   XJCLBSKL+3(XJCLMXLT),XJCLBLKS   SET UP 'BLKSIZE'.        X7610000

001F6A 9104 CAC7      02273        7504          TM    XSTATUS+3,XJSBLKBT  TEST FOR JUST 'BLKSIZE'.             X7612000
001F6E 4710 C838      01FE4        7505          BO    XJCLBLKO            BRANCH IF 'BLKSIZE' ONLY.            X7614000
                                   7506 *                                  COMPARE USER 'LRECL' WITH MAXIMUM.   X7616000
                                   7507 *                                  HASP BLOCK SIZE.                     X7618000
001F72 D504 C93C C84E 020E8 01FFA  7508 XJCLBOTH CLC   XJCLRECL(XJCLMXLT),XDEFOBXX                              X7620000
001F78 4720 C844      01FF0        7509          BH    XJCLGRAT            TOO BIG. GO CHANGE IT.               X7622000
                                   7510 *                                  OK. MOVE USER'S 'LRECL' TO SKELETON. X7624000
001F7C D204 C85F C93C 0200B 020E8  7511 XJCLDBLM MVC   XJCLLRKL+3(XJCLMXLT),XJCLRECL                            X7626000

                                   7512 *                                  SET 'BLKSIZE' = 'LRECL'.             X7628000
001F82 D204 C857 C93C 02003 020E8  7513          MVC   XJCLBSKL+3(XJCLMXLT),XJCLRECL                            X7630000

001F88 D207 4000 C85C 00000 02008  7514          MVC   0(8,WC),XJCLLRKL    MOVE 'LRECL' TO TEXT.                X7632000
001F8E 4140 4008      00008        7515          LA    WC,8(,WC)           POINT TO NEXT SLOT IN HASP TEXT.     X7634000
001F92 9120 CAC7      02273        7516          TM    XSTATUS+3,XJSRCFBT  TEST FOR 'RECFM' ENTRY.              X7636000
001F96 4780 C838      01FE4        7517          BZ    XJCLBLKO            BRANCH IF NO 'RECFM'.                X7638000
001F9A 187E                        7518          LR    WF,LINK             SAVE LINK REGISTER.                  X7640000
001F9C 4300 CBB7      02363        7519          IC    R0,XJSRCFKE         FLAG 'RECFM' SCAN.                   X7642000
001FA0 45E0 CA0C      021B8        7520          BAL   LINK,XINTSCAN       GO FIND 'RECFM' ENTRY.               X7644000
001FA4 18E7                        7521          LR    LINK,WF             RESTORE LINK REGISTER.               X7646000

001FA6 1B00                        7522          SR    R0,R0               CLEAR REGISTER.                      X7648000
001FA8 4301 0002      00002        7523          IC    R0,2(R1)            GET LENGTH OF 'RECFM' FIELD.         X7650000
001FAC 95E5 1003      00003        7524 XJCLSDCB CLI   3(R1),C'V'          TEST FOR 'V' SPECIFICATION.          X7652000
001FB0 4780 C814      01FC0        7525          BE    XJCLVREC            BRANCH IF 'V' SPECIFIED.             X7654000
001FB4 4110 1001      00001        7526          LA    R1,1(,R1)           STEP TO NEXT CHARACTER.              X7656000

001FB8 4600 C800      01FAC        7527          BCT   R0,XJCLSDCB         CONTINUE TESTING.                    X7658000
001FBC 47F0 C838      01FE4        7528          B     XJCLBLKO            'V' SPECIFICATION NOT FOUND.         X7660000
001FC0 5810 C858      02004        7529 XJCLVREC L     R1,XJCLBSKL+4       GET CURRENT 'BLKSIZE'.               X7662000

001FC4 5E10 C864      02010        7530          AL    R1,XJCLFOUR         ADD FOUR.                            X7664000
001FC8 95F6 C85B      02007        7531          CLI   XJCLBSKL+7,C'6'     TEST FOR OVERFLOW.                   X7666000
001FCC 4740 C834      01FE0        7532          BL    XJCLNOVF            BRANCH IF NO OVERFLOW.               X7668000
001FD0 5E10 C868      02014        7533          AL    R1,XJCLFSIX         CORRECT LOW-ORDER DIGITS.            X7670000
001FD4 95F9 C85A      02006        7534          CLI   XJCLBSKL+6,C'9'     TEST FOR DOUBLE OVERFLOW.            X7672000
001FD8 4740 C834      01FE0        7535          BL    XJCLNOVF            BRANCH IF NO DOUBLE OVERFLOW.        X7674000
001FDC 5E10 C86C      02018        7536          AL    R1,XJCLF600         DOUBLE OVERFLOW CORRECTION.          X7676000

001FE0 5010 C858      02004        7537 XJCLNOVF ST    R1,XJCLBSKL+4       STORE 'LRECL' + 4.                   X7678000
001FE4 D207 4000 C854 00000 02000  7538 XJCLBLKO MVC   0(8,WC),XJCLBSKL    MOVE 'BLKSIZE' TO HASP TEXT.         X7680000
001FEA 4140 4008      00008        7539          LA    WC,8(,WC)           POINT TO NEXT SLOT IN BUFFER.        X7682000
001FEE 07FE                        7540          BR    LINK                TERMINATE.                           X7684000
XEQ      HASP R/I APPENDAGE -- BLKSIZE/LRECL PROCESSING                                                        PAGE  176



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7541 *                                                                       X7686000
                                   7542 *                                  SET 'LRECL'                          X7688000
                                   7543 *                                   TO DEFAULT 'BLKSIZE'.               X7690000

001FF0 D204 C93C C84E 020E8 01FFA  7544 XJCLGRAT MVC   XJCLRECL(XJCLMXLT),XDEFOBXX                              X7692000
001FF6 47F0 C7D0      01F7C        7545          B     XJCLDBLM                                                 X7694000



001FFA F0F0F0F0F0                  7547 XDEFOBXX DC    (XJCLMXLT)C'0'      TEST CELL FOR 'BLKSZE','LRECL'.      X7698000
                                   7548 *                                  DEFINE 'BLKSIZE=XXXXX' TEXT.         X7700000
001FFF 00

002000 5501050000000000            7549 XJCLBSKL DC    0F'0',X'55',X'01050000000000'                  *         X7702000
                                   7550 *                                  DEFINE 'LRECL=XXXXX' TEXT.           X7704000
002008 6301050000000000            7551 XJCLLRKL DC    X'63',X'01050000000000'                        *         X7706000
                                   7552 *                                                                       X7708000
002010 00000004                    7553 XJCLFOUR DC    A(X'0004')          EBCDIC                               X7710000

002014 000000F6                    7554 XJCLFSIX DC    A(X'00F6')           ADDITION                            X7712000
002018 0000F600                    7555 XJCLF600 DC    A(X'F600')            CONSTANTS.                         X7714000
XEQ      HASP R/I APPENDAGE -- DCB PRESERVATION ROUTINE                                                        PAGE  177


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7557 *********************************************************************** X7718000

                                   7558 *                                                                     * X7720000
                                   7559 *              ROUTINE TO PRESERVE USER DCB ENTERIES OTHER THAN       * X7722000
                                   7560 *              'LRECL' AND 'BLKSIZE' WHICH ARE EXTRACTED FOR FURTHER  * X7724000
                                   7561 *              HASP ANALYSIS.                                         * X7726000
                                   7562 *                                                                     * X7728000

                                   7563 *********************************************************************** X7730000



                                   7565 XJCLDECB NULL                                                           X7734000
00201C                             7566+XJCLDECB DS    0H                                                       NU006000
00201C 50E0 C8E4      02090        7567          ST    LINK,XJCLDECS       SAVE 'LINK' FOR EXIT PROCEDURE.      X7736000

                                   7568 *                                  WC POINTS TO NEXT SLOT IN            X7738000
                                   7569 *                                  HASP BUFFER.                         X7740000
002020 4300 CBB3      0235F        7570          IC    R0,XJSDCBKE         FLAG 'DCB' SCAN.                     X7742000
002024 45E0 CA0C      021B8        7571          BAL   LINK,XINTSCAN       LOCATE 'DCB' IN READER TEXT.         X7744000
002028 1821                        7572 XJCLDCBP LR    WA,R1               CURRENT 'KEY' POINTER.               X7746000
00202A 45E0 CACA      02276        7573          BAL   LINK,XFINDKEY       GET NEXT 'KEY' POINTER               X7748000

00202E 1831                        7574          LR    WB,R1               IN R1 AND WB.                        X7750000
002030 1B32                        7575          SR    WB,WA               COMPUTE LENGTH OF SEGMENT.           X7752000
002032 4430 C1A6      01952        7576          EX    WB,XJCLJBMH         MOVE IT TO HASP BUFFER.              X7754000
002036 1A43                        7577          AR    WC,WB               POINT TO NEXT SLOT IN HASP BUFFER.   X7756000

002038 D500 1000 CBB1 00000 0235D  7578 XJCLDCBL CLC   0(1,R1),XJSENDKE    TEST FOR END OF TEXT.                X7758000
00203E 4780 C8DC      02088        7579          BE    XJCLDCBX            BRANCH IF END OF TEXT.               X7760000
002042 D500 1000 CBB4 00000 02360  7580          CLC   0(1,R1),XJSBLKKE    TEST FOR 'BLKSIZE'.                  X7762000
002048 4770 C8AC      02058        7581          BNE   XJCLDCBT            NO..CONTINUE TESTS.                  X7764000
00204C 4150 C937      020E3        7582          LA    WD,XJCLBLKS         ADDRESS OF 'BLKSIZE' SAVE.           X7766000

002050 45E0 C8E8      02094        7583 XJCLXTRX BAL   LINK,XJCLXTRC       GO EXTRACT 'BLKSIZE'.                X7768000
002054 47F0 C8D2      0207E        7584          B     XJCLDCBS            GO SCRATCH USER'S ENTRY.             X7770000
002058 D500 1000 CBB5 00000 02361  7585 XJCLDCBT CLC   0(1,R1),XJSLRCKE    TEST FOR 'LRECL'.                    X7772000
00205E 4770 C8BE      0206A        7586          BNE   XJCLPRST            NO..TEST FOR SELECTED DCB'S.         X7774000
002062 4150 C93C      020E8        7587          LA    WD,XJCLRECL         ADDRESS OF 'LRECL' SAVE.             X7776000
002066 47F0 C8A4      02050        7588          B     XJCLXTRX            GO EXTRACT 'LRECL'.                  X7778000
00206A 4150 000C      0000C        7589 XJCLPRST LA    WD,XJCLDTBL         LENGTH OF PRESERVATION TABLE.        X7780000

00206E 4365 CBBA      02366        7590 XJCLSLCT IC    WE,XJCLDTBS-1(WD)   GET AN ENTRY FROM TABLE.             X7782000
002072 4460 CAAE      0225A        7591          EX    WE,XINTLOOK         COMPARE WITH CURRENT 'KEY'.          X7784000
002076 4780 C87C      02028        7592          BE    XJCLDCBP            PRESERVE ENTRY IF MATCH.             X7786000

00207A 4650 C8C2      0206E        7593          BCT   WD,XJCLSLCT         TEST ALL TABLE ENTRIES.              X7788000
00207E 1821                        7594 XJCLDCBS LR    WA,R1               SAVE CURRENT 'KEY' POINTER.          X7790000
002080 45E0 CACA      02276        7595          BAL   LINK,XFINDKEY       GET NEXT 'KEY'.                      X7792000
002084 47F0 C88C      02038        7596          B     XJCLDCBL            GO TO TEST SECTION.                  X7794000
002088 58E0 C8E4      02090        7597 XJCLDCBX L     LINK,XJCLDECS       RESTORE 'LINK'.                      X7796000

00208C 07FE                        7598          BR    LINK                RETURN.                              X7798000



00208E 0000
002090 00000000                    7600 XJCLDECS DC    F'0'                LINK SAVE.                           X7802000
XEQ      HASP R/I APPENDAGE -- BLKSIZE/LRECL DATA EXTRACTOR                                                    PAGE  178


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7602 *********************************************************************** X7806000
                                   7603 *                                                                     * X7808000

                                   7604 *              ROUTINE TO EXTRACT DECIMAL (EBCDIC) DATA FIELDS FROM   * X7810000
                                   7605 *              INTERNAL TEXT. R1 POINTS TO 'KEY' OF ENTRY             * X7812000

                                   7606 *              CONTAINING DATA TO BE EXTRACTED. WD POINTS TO          * X7814000
                                   7607 *              TARGET FIELD. REGISTERS WE AND WF ARE NOT SAVED BY     * X7816000
                                   7608 *              THIS ROUTINE.                                          * X7818000
                                   7609 *                                                                     * X7820000
                                   7610 *********************************************************************** X7822000

                                   7611 XJCLXTRC NULL                                                           X7824000
002094                             7612+XJCLXTRC DS    0H                                                       NU006000
002094 9500 1002      00002        7613          CLI   2(R1),0             TEST DATA FIELD LENGTH.              X7826000
002098 078E                        7614          BCR   E,LINK              EXIT IF NULL DATA.                   X7828000
00209A 1801                        7615          LR    R0,R1               SAVE R1 FOR EXIT.                    X7830000
                                   7616 *                                  SET TARGET FIELD TO DECIMAL ZEROS.   X7832000
00209C D204 5000 C932 00000 020DE  7617          MVC   0(XJCLMXLT,WD),XJCLDECO                                  X7834000
0020A2 1B66                        7618          SR    WE,WE               CLEAR WE.                            X7836000
0020A4 4170 0005      00005        7619          LA    WF,XJCLMXLT         MAXIMUM FIELD LENGTH.                X7838000

0020A8 4361 0002      00002        7620          IC    WE,2(R1)            GET LENGTH BYTE FROM TEXT.           X7840000

0020AC 4110 1003      00003        7621          LA    R1,3(,R1)           POINT TO START OF DATA.              X7842000
0020B0 1567                        7622          CLR   WE,WF               COMPARE LENGTH WITH MAXIMUM.         X7844000
0020B2 4740 C918      020C4        7623          BL    XJCLXTRL            LENGTH .LT. MAXIMUM..BRANCH.         X7846000
0020B6 1A16                        7624          AR    R1,WE               LENGTH .GT. OR .EQ. TO MAXIMUM.      X7848000
0020B8 1B17                        7625          SR    R1,WF               COMPUTE POINTER TO LOW ORDER         X7850000

                                   7626 *                                  'XJCLMXLT' BYTES.                    X7852000
0020BA 0670                        7627 XJCLXTXT BCTR  WF,0                LENGTH-1 FOR MVC.                    X7854000
0020BC 4470 C92C      020D8        7628          EX    WF,XJCLXTMV         MOVE DATA TO TARGET.                 X7856000
0020C0 1810                        7629          LR    R1,R0               RESTORE R1.                          X7858000
0020C2 07FE                        7630          BR    LINK                RETURN.                              X7860000
0020C4 1B76                        7631 XJCLXTRL SR    WF,WE               MOVE TARGET POINTER TO               X7862000
0020C6 1A57                        7632          AR    WD,WF               ACCOMMODATE DATA.                    X7864000
0020C8 1876                        7633          LR    WF,WE               LENGTH OF DATA.                      X7866000
0020CA 47F0 C90E      020BA        7634          B     XJCLXTXT            GO MOVE IT.                          X7868000




                                   7636 *                                  DUMMY TO DETERMINE LENGTH            X7872000

                                   7637 *                                  ATTRIBUTE OF &IBLKSZE.               X7874000
                                   7638 XJCLNGIB DC    0C'&IBLKSZE'                                             X7876000
0020CE                             7639+XJCLNGIB DC    0C'080'                                                  X7876000
                                   7640 *                                  DUMMY TO DETERMINE LENGTH            X7878000

                                   7641 *                                  ATTRIBUTE OF &OBLKSZE.               X7880000
                                   7642 XJCLNGOB DC    0C'&OBLKSZE'                                             X7882000
0020CE                             7643+XJCLNGOB DC    0C'145'                                                  X7882000
                                   7644 *                                  EBCDIC DEFAULT SYSIN BLOCKSIZE.      X7884000
                                   7645 XDEFIBLK DC    (XJCLMXLT-L'XJCLNGIB)C'0',C'&IBLKSZE'                    X7886000
0020CE F0F0F0F8F0                  7646+XDEFIBLK DC    (XJCLMXLT-L'XJCLNGIB)C'0',C'080'                         X7886000
                                   7647 *                                  EBCDIC DEFAULT SYSOUT BLOCKSIZE.     X7888000
                                   7648 XDEFOBLK DC    (XJCLMXLT-L'XJCLNGOB)C'0',C'&OBLKSZE'                    X7890000
0020D3 F0F0F1F4F5                  7649+XDEFOBLK DC    (XJCLMXLT-L'XJCLNGOB)C'0',C'145'                         X7890000
0020D8 D200 5000 1000 00000 00000  7650 XJCLXTMV MVC   0(*-*,WD),0(R1)                                          X7892000
0020DE F0F0F0F0F0                  7651 XJCLDECO DC    (XJCLMXLT)C'0'      ZEROS FOR TARGET.                    X7894000

0020E3                             7652 XJCLBLKS DS    (XJCLMXLT)C         STORAGE FOR EXTRACTED 'BLKSIZE'.     X7896000
0020E8                             7653 XJCLRECL DS    (XJCLMXLT)C         STORAGE FOR EXTRACTED 'LRECL'.       X7898000
XEQ      HASP R/I APPENDAGE -- BLKSIZE/LRECL DATA EXTRACTOR                                                    PAGE  179


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


0020ED 000000
0020F0 00001520                    7655 XJCLGETB DC    A(XGETDDB)                                               X7902000
0020F4 00000000                    7656 XJCLXBAS DC    A(HASPXEQ)                                               X7904000
                                   7657 *                                  DEFINE 'RECFM=FB' TEXT.              X7906000
0020F8 690102C6C2                  7658 XJCLRCSK DC    X'69',X'0102',C'FB'                            *         X7908000
                                   7659 *                                  DEFINE 'UNIT=X' TEXT.                X7910000
0020FD 41010100                    7660 XJCLUSKL DC    X'41',X'010100'                                *         X7912000
                                   7661 *                                  DEFINE 'END' SEQUENCE TEXT.          X7914000
002101 FE0000                      7662 XJCLSTOP DC    X'FE',X'0000'                                  *         X7916000
                                   7663 *                                  DEFINE 'UNIT=R' TEXT                 X7918000
002104 410101D9                    7664 XJCLSKEL DC    AL1(X'41'),X'0101',C'R'                                  X7920000

002108 C3C1E3C1                    7665 XJCLDATA DC    C'CATA'             CATA DATA.                           X7922000
00210C                             7666 XTXTBUFW DS    0H,CL172            INTERNAL TEXT WORK AREA              X7924000
XEQ      HASP R/I APPENDAGE -- INTERNAL TEXT SCAN SUBROUTINE                                                   PAGE  180


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   7668 *********************************************************************** X7928000
                                   7669 *                                                                     * X7930000
                                   7670 * TITLE - INTERNAL TEXT SCAN SUBROUTINE (XINTSCAN)                    * X7932000
                                   7671 *                                                                     * X7934000
                                   7672 * FUNCTION/OPERATION                                                  * X7936000
                                   7673 *                                                                     * X7938000
                                   7674 *                                                                     * X7940000
                                   7675 *  THE INTERNAL TEXT SCAN ROUTINE PERFORMS THE FOLLOWING MAJOR        * X7942000
                                   7676 *  FUNCTIONS...                                                       * X7944000
                                   7677 *                                                                     * X7946000
                                   7678 *   (1) CONTENTS SCAN...PROVIDES THE USER WITH A STATUS WORD WHICH    * X7948000
                                   7679 *       INDICATES THE KEY CONTENTS OF THE INTERNAL TEXT STRING        * X7950000

                                   7680 *       UNDERGOING INVESTIGATION. THE STATUS WORD CONSISTS OF UNIQUE  * X7952000
                                   7681 *       LOGICAL BITS ASSIGNED TO CORRESPONDING KEY VALUES AS DEFINED  * X7954000
                                   7682 *       BY THE TABLE 'XSTATDEF'.                                      * X7956000

                                   7683 *                                                                     * X7958000
                                   7684 *   (2) PARTICULAR KEY SCAN...LOCATES AND RETURNS THE POSITION OF A   * X7960000
                                   7685 *       SPECIFIED KEY IN THE INTERNAL TEXT.                           * X7962000
                                   7686 *                                                                     * X7964000
                                   7687 *                                                                     * X7966000
                                   7688 *********************************************************************** X7968000



                                   7690 XINTSCAN NULL                                                           X7972000
0021B8                             7691+XINTSCAN DS    0H                                                       NU006000
0021B8 9024 CAB4      02260        7692          STM   WA,WC,XINTSAVE      SAVE WORKING REGISTERS.              X7974000
0021BC 50E0 CAC0      0226C        7693          ST    LINK,XINTLINK       AND LINK REGISTER.                   X7976000
0021C0 5810 C070      0181C        7694          L     R1,XINTKEYS         POINT TO FIRST KEY IN TEXT.          X7978000

0021C4 1B22                        7695          SR    WA,WA               CLEAR WORK REGISTER.                 X7980000

0021C6 4200 CA23      021CF        7696          STC   R0,XINTCOMP+1       SETUP FOR REQUEST TEST.              X7982000
0021CA 4320 CA23      021CF        7697          IC    WA,XINTCOMP+1       REQUEST KEY TO WA.                   X7984000

0021CE 9500 CBB1      0235D        7698 XINTCOMP CLI   XJSENDKE,*-*        TEST REQUEST TYPE.                   X7986000
0021D2 4770 CA8C      02238        7699          BNE   XINTPART            MUST BE PARTICULAR KEY REQUEST.      X7988000
                                   7700 *                                                                       X7990000
                                   7701 *                                  THIS SECTION DETERMINES THE KEY      X7992000
                                   7702 *                                  CONTENTS OF THE INTERNAL TEXT.       X7994000
                                   7703 *                                                                       X7996000
0021D6 D703 CAC4 CAC4 02270 02270  7704          XC    XSTATUS,XSTATUS     CLEAR THE STATUS WORD.               X7998000
0021DC 45E0 CACA      02276        7705 XINTNEXT BAL   LINK,XFINDKEY       GET THE NEXT KEY.                    X8000000
0021E0 1B22                        7706          SR    WA,WA               CLEAR WA.                    OY02728 X8001000
0021E2 4321 0000      00000        7707          IC    WA,0(R1)            TO WA.                               X8002000
0021E6 D500 1000 CBB1 00000 0235D  7708          CLC   0(1,R1),XJSENDKE    TEST FOR 'END' KEY.                  X8004000
0021EC 4770 CA56      02202        7709          BNE   XINTKKEY            NOT 'END' KEY.                       X8006000

0021F0 5010 C074      01820        7710          ST    R1,XINTENDK         SAVE POINTER TO 'END' KEY.           X8008000
0021F4 5810 CAC4      02270        7711          L     R1,XSTATUS          THIS IS THE 'END'...                 X8010000

0021F8 9824 CAB4      02260        7712 XINTEXIT LM    WA,WC,XINTSAVE      RESTORE WORKING REGISTERS.           X8012000

0021FC 58E0 CAC0      0226C        7713          L     LINK,XINTLINK       AND LINK REGISTER.                   X8014000
002200 07FE                        7714          BR    LINK                RETURN.                              X8016000
                            02202  7715 XINTKKEY EQU   *                   UPDATE 'XSTATUS'.                    X8018000
002202 9500 1002      00002        7716          CLI   2(R1),0             TEST DATA FIELD LENGTH.              X8020000
002206 4780 CA30      021DC        7717          BE    XINTNEXT            IGNORE PARAMETER IF NULL DATA.       X8022000
00220A 4130 0009      00009        7718          LA    WB,XSTATLNG         STATUS TABLE LENGTH TO WB.           X8024000
00220E 1B44                        7719          SR    WC,WC               CLEAR WC.                            X8026000
002210 4343 CBB1      0235D        7720 XSTATSRC IC    WC,XSTATDEF-1(WB)   GET STATUS TABLE ENTRY.              X8028000
XEQ      HASP R/I APPENDAGE -- INTERNAL TEXT SCAN SUBROUTINE                                                   PAGE  181


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002214 1524                        7721          CLR   WA,WC               COMPARE CURRENT KEY TO STATUS TABLE. X8030000
002216 4780 CA76      02222        7722          BE    XSTATFND            BRANCH IF FOUND...                   X8032000

00221A 4630 CA64      02210        7723          BCT   WB,XSTATSRC         TEST ALL TABLE ENTERIES.             X8034000
00221E 47F0 CA30      021DC        7724          B     XINTNEXT            NO MATCHING TABLE ENTRY.             X8036000
002222 0630                        7725 XSTATFND BCTR  WB,0                DECREMENT SHIFT COUNTER.             X8038000

002224 4820 CAC8      02274        7726          LH    WA,XBITONE          CLEAR WA AND SET LOW ORDER BIT ON.   X8040000
002228 8B20 3000      00000        7727          SLA   WA,0(WB)            POSITION BIT TO DEFINED KEY VALUE.   X8042000
00222C 5620 CAC4      02270        7728          O     WA,XSTATUS          INDICATE APPROPRIATE KEY.            X8044000
002230 5020 CAC4      02270        7729          ST    WA,XSTATUS          SAVE IT.                             X8046000
002234 47F0 CA30      021DC        7730          B     XINTNEXT            GET NEXT KEY...                      X8048000
                            02238  7731 XINTPART EQU   *                                                        X8050000
002238 45E0 CACA      02276        7732 XINTPSRC BAL   LINK,XFINDKEY       GET THE NEXT KEY.                    X8052000
00223C D500 1000 CBB1 00000 0235D  7733          CLC   0(1,R1),XJSENDKE    TEST FOR 'END' KEY.                  X8054000
002242 4770 CAA0      0224C        7734          BNE   XINTREQT            BRANCH IF NOT 'END'.                 X8056000
002246 1B00                        7735          SR    R0,R0               FLAG SEARCH FAILURE.                 X8058000
002248 47F0 CA4C      021F8        7736          B     XINTEXIT            EXIT.                                X8060000
                            0224C  7737 XINTREQT EQU   *                                                        X8062000

00224C 4420 CAAE      0225A        7738          EX    WA,XINTLOOK         IS THIS THE REQUESTED KEY...         X8064000
002250 4770 CA8C      02238        7739          BNE   XINTPSRC            NO. CONTINUE SEARCH.                 X8066000
002254 1202                        7740          LTR   R0,WA               FLAG SUCCESSFUL SEARCH               X8068000
002256 47F0 CA4C      021F8        7741          B     XINTEXIT            EXIT.                                X8070000




00225A 9500 1000      00000        7743 XINTLOOK CLI   0(R1),*-*           R1 POINTS TO 'KEY' BYTE.             X8074000
002260                             7744 XINTSAVE DS    3F                  WORKING REGISTER SAVE AREA.          X8076000
00226C                             7745 XINTLINK DS    F                   LINK REGISTER SAVE.                  X8078000
002270 00000000                    7746 XSTATUS  DC    F'0'                                                     X8080000
002274 0001                        7747 XBITONE  DC    H'1'                                                     X8082000

XEQ      HASP R/I APPENDAGE -- NEXT KEY BYTE SEARCH SUBROUTINE                                                 PAGE  182


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7749 *********************************************************************** X8086000
                                   7750 *                                                                     * X8088000
                                   7751 *              ROUTINE TO FIND THE NEXT 'KEY' BYTE IN THE INTERNAL    * X8090000
                                   7752 *              TEXT STRING. R1 POINTS TO CURRENT 'KEY' BYTE ON        * X8092000
                                   7753 *              ENTRY. R1 POINTS TO NEXT 'KEY' BYTE ON EXIT            * X8094000
                                   7754 *                                                                     * X8096000

                                   7755 *********************************************************************** X8098000




                                   7757 XFINDKEY NULL                      ENTRY VIA 'BAL XFINDKEY'.            X8102000
002276                             7758+XFINDKEY DS    0H                                                       NU006000
002276 9023 CB08      022B4        7759          STM   WA,WB,XFINDSVE      SAVE REGISTERS WA,WB.                X8104000
00227A 1B22                        7760          SR    WA,WA               ZERO REGISTER WA.                    X8106000
00227C 1832                        7761          LR    WB,WA               ZERO REGISTER WB.                    X8108000
00227E 4320 1001      00001        7762          IC    WA,1(,R1)           SET WA TO NUMBER OF PARMS.           X8110000
002282 4110 1002      00002        7763          LA    R1,2(,R1)           PT R1 TO THE FIRST PARM.             X8112000
002286 1222                        7764          LTR   WA,WA               ARE THERE NO PARAMETERS...           X8114000

002288 4780 CAF6      022A2        7765          BZ    XFINDRET            BRANCH IF SO.                        X8116000




00228C 4330 1000      00000        7767 XFINDBYT IC    WB,0(,R1)           SET WB TO PARAMETER LENGTH.          X8120000
002290 9180 1000      00000        7768          TM    0(R1),X'80'         IS IT RATHER SUBPARM COUNT...        X8122000

002294 4710 CAFC      022A8        7769          BO    XFINDSUB            BRANCH IF SO.                        X8124000
002298 1A13                        7770          AR    R1,WB               NO. UP R1 BY PARM LENGTH             X8126000
00229A 4110 1001      00001        7771 XFINDLUP LA    R1,1(,R1)           AND ONE MORE FOR LENGTH BYTE.        X8128000

00229E 4620 CAE0      0228C        7772          BCT   WA,XFINDBYT         IF MORE PARMS TO DO, BRANCH.         X8130000
0022A2 9823 CB08      022B4        7773 XFINDRET LM    WA,WB,XFINDSVE      OTHERWISE, RESTORE REGISTERS         X8132000
0022A6 07FE                        7774          BR    LINK                AND RETURN.                          X8134000


0022A8 5430 CB10      022BC        7776 XFINDSUB N     WB,XFINDHIO         ZERO HIGH BIT OF SUBPARM CT.         X8138000
0022AC 1A23                        7777          AR    WA,WB               UP THE COUNT BY SUBPARM COUNT.       X8140000
0022AE 47F0 CAEE      0229A        7778          B     XFINDLUP            THEN GO POINT TO NEXT BYTE.          X8142000



0022B2 0000
0022B4 0000000000000000            7780 XFINDSVE DC    2F'0'               SAVE AREA FOR REGS WA, WB.           X8146000
0022BC FFFFFF7F                    7781 XFINDHIO DC    0F'0',X'FFFFFF7F'   MASK TO TURN OFF BIT 0 BYTE 3.       X8148000
XEQ      HASP R/I APPENDAGE -- FIND-DD-NUMBER SUBROUTINE                                                       PAGE  183



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7783 ******************************************************************      X8152000
                                   7784 *                                                                *      X8154000
                                   7785 *              ROUTINE TO SUPPLY CORRECT STEP NUMBER AND DATASET *      X8156000

                                   7786 *              NUMBER TO CALLER, CONSIDERING THAT THE DATASET    *      X8158000
                                   7787 *              FORWARD-REFERENCED BY A DDNAME= CARD RECEIVES THE *      X8160000
                                   7788 *              DATASET NUMBER OF THE DDNAME= CARD.               *      X8162000
                                   7789 *                                                                *      X8164000
                                   7790 ******************************************************************      X8166000




0022C0                             7792 XFINDDDN DS    0H                                                       X8170000
0022C0 9023 CB94      02340        7793          STM   WA,WB,XFDDNSAV      SAVE WA AND WB.                      X8172000
0022C4 5810 C5E0      01D8C        7794          L     R1,XRISTNR          GET DEFAULT STEP, DD NR.             X8174000
0022C8 9500 C5E4      01D90        7795          CLI   XRIDDNT,0           ARE THERE ANY DDNAME= ENTRIES..      X8176000
0022CC 4780 CB5A      02306        7796          BE    XFDDNINC            IF NOT, INCREMENT CURRENT DD NR.     X8178000

0022D0 5820 C070      0181C        7797          L     WA,XINTKEYS         YES.  POINT TO THIS CD'S DD KEY      X8180000
                                   7798 *        ICM   WB,1,2(WA)          GET LENGTH OF DDNAME            RFIT X8182000
0022D4 4332 0002      00002        7799          IC    WB,2(WA)                                            RFIT X8182005
0022D8 9500 2002      00002        7800          CLI   2(WA),0                                             RFIT X8182010
0022DC 4780 CB5A      02306        7801          BZ    XFDDNINC            IF NONE, INCREMENT CURRENT DD NR.    X8184000

0022E0 0630                        7802          BCTR  WB,0                REDUCE BY 1.                         X8186000
0022E2 D207 CB9C C596 02348 01D42  7803          MVC   XFDDNW,XJCLBLNK     BLANK OUT DDNAME AREA.               X8188000
0022E8 4430 CB8C      02338        7804          EX    WB,XFDDNMVC         MOVE DDNAME TO WORK.                 X8190000
0022EC 41F0 C5E4      01D90        7805          LA    R15,XRIDDNT         POINT TO FIRST DDNAME ENTRY.         X8192000
0022F0 4100 0005      00005        7806          LA    R0,XRIDDNMK         GET MAXIMUM COUNT OF ENTRIES.        X8194000

0022F4 D507 CB9C F000 02348 00000  7807 XFDDN001 CLC   XFDDNW,0(R15)       IS THIS THE ONE...                   X8196000
0022FA 4780 CB66      02312        7808          BE    XFDDN002            BRANCH IF SO.                        X8198000
0022FE 41F0 F00A      0000A        7809          LA    R15,XRIDDNL(,R15)   NO.  POINT TO NEXT                   X8200000
002302 4600 CB48      022F4        7810          BCT   R0,XFDDN001         AND LOOP.                            X8202000
002306 5E10 CC10      023BC        7811 XFDDNINC AL    R1,=F'1'            INCREMENT DD NUMBER AND              X8204000

00230A 5010 C5E0      01D8C        7812          ST    R1,XRISTNR          SAVE STEP AND DD NUMBER.             X8206000
00230E 47F0 CB82      0232E        7813          B     XFDDNRET            RETURN TO CALLER.                    X8208000
                                   7814 *XFDDN002ICM   R1,3,8(R15)         DDNAME FOUND.  SET DD NR.       RFIT X8210000
002312 D703 CB9C CB9C 02348 02348  7815 XFDDN002 XC    XFDDNW(4),XFDDNW                                    RFIT X8210005
002318 D201 CB9E F008 0234A 00008  7816          MVC   XFDDNW+2(2),8(R15)                                  RFIT X8210010
00231E 8810 0010      00010        7817          SRL   R1,16                                               RFIT X8210015

002322 8910 0010      00010        7818          SLL   R1,16                                               RFIT X8210020
002326 5610 CB9C      02348        7819          O     R1,XFDDNW                                           RFIT X8210025
00232A 9200 F001      00001        7820          MVI   1(R15),0            NULLIFY THIS DDNAME= ENTRY.          X8212000
00232E 9823 CB94      02340        7821 XFDDNRET LM    WA,WB,XFDDNSAV      RESTORE WA, WB.                      X8214000

002332 5010 CBA4      02350        7822          ST    R1,XJSTNDDN         SAVE CURRENT STEP AND DD NUMBER.     X8216000
002336 07FE                        7823          BR    LINK                RETURN.                              X8218000
002338 D200 CB9C 2003 02348 00003  7824 XFDDNMVC MVC   XFDDNW(*-*),3(WA)   *** EXECUTE ONLY ***                 X8220000
002340                             7825 XFDDNSAV DS    2F                  SAVE AREA                            X8222000
002348                             7826 XFDDNW   DS    XL8                 WORK AREA.                           X8224000

002350                             7827 XJSTNDDN DS    F                   CURRENT STEP AND DD NUMBER.          X8226000
XEQ      HASP R/I APPENDAGE -- JCL SCAN - KEYWORD TABLES                                                       PAGE  184


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7829 *********************************************************************** X8230000
                                   7830 *                                                                     * X8232000
                                   7831 * MISCELLANEOUS JCL KEYWORD TABLE...                                    X8234000
                                   7832 *                                                                     * X8236000

                                   7833 *********************************************************************** X8238000



                            02354  7835 XJSMISTS EQU   *                   TABLE START                          X8242000


                                   7837 *               KEY                                                     X8246000
                                   7838 *              VALUE               KEYWORD                              X8248000
                                   7839 *              -----               -------                              X8250000
002354 B4                          7840 XJSJOBKE DC    X'B4'               JOB                        *         X8252000

002355 94                          7841 XJSEXEKE DC    X'94'               EXEC                       *         X8254000
002356 6E                          7842 XJSDDKEY DC    X'6E'               DD                         *         X8256000
002357 AD                          7843 XJSCLSKE DC    X'AD'               CLASS                      *         X8258000
002358 B0                          7844 XJSPRIKE DC    X'B0'               PRTY                       *         X8260000
002359 B1                          7845 XJSTYPKE DC    X'B1'               TYPRUN                     *         X8262000
00235A B2                          7846 XJSMCLKE DC    X'B2'               MSGCLASS                   *         X8264000
00235B 82                          7847 XJSDPRKE DC    X'82'               DRPTY=                     *         X8266000
00235C 81                          7848 XJSDPSKE DC    X'81'               DPRTY.                     *         X8268000

00235D FE                          7849 XJSENDKE DC    X'FE'               'END'                      *         X8270000


                            0000A  7851 XJSMISTE EQU   *-XJSMISTS          TABLE END                            X8274000
XEQ      HASP R/I APPENDAGE -- JCL SCAN - KEYWORD TABLES                                                       PAGE  185


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7853 *********************************************************************** X8278000
                                   7854 *                                                                     * X8280000

                                   7855 * STATUS DEFINITION TABLE...CONTAINS ONE BYTE ENTRIES AND A           * X8282000
                                   7856 * CORRESPONDING BIT DEFINITION IN THE 'XSTATUS' WORD USED TO          * X8284000
                                   7857 * INDICATE THE CONTENTS OF JCL INTERNAL TEXT. THE VALUE OF EACH       * X8286000
                                   7858 * ENTRY BYTE (A KEYWORD) IS COMPARED TO EVERY TEXT KEYWORD AND        * X8288000
                                   7859 * THE 'XSTATUS' BIT TURNED ON IF A MATCH IS FOUND. THE VALUE OF       * X8290000
                                   7860 * 'XSTATUS' IS SET BY THE SUBROUTINE 'XINTSCAN' WHICH USES THIS       * X8292000
                                   7861 * TABLE.                                                              * X8294000
                                   7862 *                                                                     * X8296000
                                   7863 *********************************************************************** X8298000





                            0235E  7865 XSTATDEF EQU   *                   TABLE START                          X8302000

                                   7867 *              TABLE                         XSTATUS   XSTATUS          X8306000
                                   7868 *              ENTRY               KEYWORD     BIT      BYTE            X8308000
                                   7869 *              -----               -------     ---      ----            X8310000

00235E 4B                          7870 XJSYSOKE DC    X'4B'               SYSOUT      31        3    *         X8312000
                            00001  7871 XJSYSOBT EQU   X'1'                                                     X8314000
00235F 40                          7872 XJSDCBKE DC    X'40'               DCB         30        3    *         X8316000
                            00002  7873 XJSDCBBT EQU   X'2'                                                     X8318000
002360 55                          7874 XJSBLKKE DC    X'55'               BLKSIZE     29        3    *         X8320000
                            00004  7875 XJSBLKBT EQU   X'4'                                                     X8322000
002361 63                          7876 XJSLRCKE DC    X'63'               LRECL       28        3    *         X8324000
                            00008  7877 XJSLRCBT EQU   X'8'                                                     X8326000
002362 41                          7878 XJSUNIKE DC    X'41'               UNIT        27        3    *         X8328000
                            00010  7879 XJSUNIBT EQU   X'10'                                                    X8330000

002363 69                          7880 XJSRCFKE DC    X'69'               RECFM       26        3    *         X8332000

                            00020  7881 XJSRCFBT EQU   X'20'                                                    X8334000
002364 49                          7882 XJSDDNKE DC    AL1(X'49')          DDNAME      25        3              X8336000
                            00040  7883 XJSDDNBT EQU   X'40'                                                    X8338000
002365 3D                          7884 XJSUCSKE DC    AL1(X'3D')          UCS         24        3              X8340000

                            00080  7885 XJSUCSBT EQU   X'80'                                                    X8342000
002366 2C                          7886 XJSFCBKE DC    AL1(X'2C')          FCB         23        2              X8344000
                            00001  7887 XJSFCBBT EQU   X'1'                                                     X8346000
                            00009  7888 XSTATLNG EQU   *-XSTATDEF          TABLE END                            X8348000
XEQ      HASP R/I APPENDAGE -- JCL SCAN - KEYWORD TABLES                                                       PAGE  186


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7890 *********************************************************************** X8352000
                                   7891 *                                                                     * X8354000
                                   7892 * DCB PRESERVATION TABLE...CONTAINS ONE BYTE ENTRIES OF DCB           * X8356000
                                   7893 * KEYWORD PARAMETERS TO BE PRESERVED WHEN PROCESSING 'SYSIN'          * X8358000

                                   7894 * (DD * OR DD DATA) AND 'SYSOUT' SPECIFICATIONS IN JCL TEXT.          * X8360000

                                   7895 * ALL DCB PARAMETERS NOT REPRESENTED IN THE FOLLOWING TABLE           * X8362000
                                   7896 * ARE ELIMINATED FROM THE ORIGINAL TEXT.                              * X8364000
                                   7897 *                                                                     * X8366000
                                   7898 * NOTE...'BLKSIZE' AND 'LRECL' ARE SUBJECT TO SPECIAL PROCESSING AND  * X8368000

                                   7899 * ARE NOT REPRESENTED IN THIS TABLE.                                  * X8370000
                                   7900 *                                                                     * X8372000
                                   7901 *********************************************************************** X8374000



                            02367  7903 XJCLDTBS EQU   *                   TABLE START                          X8378000

                                   7905 *              TABLE                                                    X8382000
                                   7906 *              ENTRY               KEYWORD                              X8384000
                                   7907 *              -----               -------                              X8386000
002367 53                          7908 XJSBFAKE DC    X'53'               BFALN                      *         X8388000
002368 54                          7909 XJSBFTKE DC    X'54'               BFTEK                      *         X8390000

002369 56                          7910 XJSBFLKE DC    X'56'               BUFL                       *         X8392000
00236A 57                          7911 XJSBFNKE DC    X'57'               BUFNO                      *         X8394000
00236B 2B                          7912 XJSHIAKE DC    AL1(X'2B')          HIARCHY                    *         X8396000
00236C 5F                          7913 XJSEROKE DC    X'5F'               EROPT                      *         X8398000

00236D 64                          7914 XJSMODKE DC    X'64'               MODE                       *         X8400000
00236E 65                          7915 XJSNCPKE DC    X'65'               NCP                        *         X8402000
00236F 67                          7916 XJSOPTKE DC    X'67'               OPTCD                      *         X8404000
002370 68                          7917 XJSPRTKE DC    X'68'               PRTSP                      *         X8406000
002371 6C                          7918 XJSSTKKE DC    X'6C'               STACK                      *         X8408000
002372 69                          7919 XJSRECKE DC    X'69'               RECFM                      *         X8410000

                            0000C  7921 XJCLDTBL EQU   *-XJCLDTBS          TABLE END                            X8414000
XEQ      HASP R/I APPENDAGE -- SYSOUT CLASS TRANSLATE TABLE                                                    PAGE  187


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7923 *********************************************************************** X8418000
                                   7924 *                                                                     * X8420000

                                   7925 *              HASP SYSOUT CLASS TO PSEUDO DEVICE TRANSLATION TABLE   * X8422000
                                   7926 *                                                                     * X8424000
                                   7927 *********************************************************************** X8426000




                            022B2  7929 XTRTABLE EQU   *-C'A'              TABLE START                          X8430000


                                   7931 *                                  SYSOUT=   UNIT=                      X8434000
                                   7932 *                                  -------   -----                      X8436000
002373 C1                          7933 $$A      DC CL1'A'                    A        A                        X8438000
002374 C2                          7934 $$B      DC CL1'B'                    B        B                        X8440000
002375 C1                          7935 $$C      DC CL1'A'                    C        A                        X8442000
002376 C1                          7936 $$D      DC CL1'A'                    D        A                        X8444000
002377 C1                          7937 $$E      DC CL1'A'                    E        A                        X8446000
002378 C1                          7938 $$F      DC CL1'A'                    F        A                        X8448000
002379 C1                          7939 $$G      DC CL1'A'                    G        A                        X8450000

00237A 5C                          7940 $$H      DC CL1'*' ****************   H        A                        X8452000

00237B C1                          7941 $$I      DC CL1'A'                    I        A                        X8454000
00237C                             7942          DS    7C                                                       X8456000

002383 C1                          7943 $$J      DC CL1'A'                    J        A                        X8458000
002384 C2                          7944 $$K      DC CL1'B'                    K        B                        X8460000
002385 C1                          7945 $$L      DC CL1'A'                    L        A                        X8462000
002386 C1                          7946 $$M      DC CL1'A'                    M        A                        X8464000
002387 C1                          7947 $$N      DC CL1'A'                    N        A                        X8466000
002388 C1                          7948 $$O      DC CL1'A'                    O        A                        X8468000
002389 C1                          7949 $$P      DC CL1'A'                    P        A                        X8470000
00238A C1                          7950 $$Q      DC CL1'A'                    Q        A                        X8472000
00238B C1                          7951 $$R      DC CL1'A'                    R        A                        X8474000
00238C                             7952          DS    8C                                                       X8476000
002394 C1                          7953 $$S      DC CL1'A'                    S        A                        X8478000
002395 C1                          7954 $$T      DC CL1'A'                    T        A                        X8480000

002396 C1                          7955 $$U      DC CL1'A'                    U        A                        X8482000
002397 C1                          7956 $$V      DC CL1'A'                    V        A                        X8484000

002398 C1                          7957 $$W      DC CL1'A'                    W        A                        X8486000

002399 C1                          7958 $$X      DC CL1'A'                    X        A                        X8488000
00239A C1                          7959 $$Y      DC CL1'A'                    Y        1&                       X8490000
00239B C1                          7960 $$Z      DC CL1'A'                    Z        A                        X8492000
00239C                             7961          DS    6C                                                       X8494000
0023A2 C1                          7962 $$0      DC CL1'A'                    0        A                        X8496000
0023A3 C1                          7963 $$1      DC CL1'A'                    1        A                        X8498000
0023A4 C1                          7964 $$2      DC CL1'A'                    2        A                        X8500000
0023A5 C1                          7965 $$3      DC CL1'A'                    3        A                        X8502000
0023A6 C1                          7966 $$4      DC CL1'A'                    4        A                        X8504000
0023A7 C1                          7967 $$5      DC CL1'A'                    5        A                        X8506000
0023A8 C1                          7968 $$6      DC CL1'A'                    6        A                        X8508000
0023A9 C1                          7969 $$7      DC CL1'A'                    7        A                        X8510000

0023AA C1                          7970 $$8      DC CL1'A'                    8        A                        X8512000
0023AB C1                          7971 $$9      DC CL1'A'                    9        A                        X8514000



                                   7973          DROP  WC                  KILL JCL DSECT ADDRESSABILITY.       X8518000
XEQ      HASP R/I APPENDAGE -- SYSOUT CLASS TRANSLATE TABLE                                                    PAGE  188


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0023B0                             7974          LTORG                                                          X8520000
0023B0 00000B68                    7975                =A($RDRPCE)
0023B4 D1D6C240                    7976                =CL4'JOB'
0023B8 00000800                    7977                =A(1960+(BUFSTART-BUFDSECT))
0023BC 00000001                    7978                =F'1'
XEQ      HASP TERMINATION EXIT                                                                                 PAGE  189


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   7980 *********************************************************************** X8524000
                                   7981 *                                                                     * X8526000

                                   7982 *                                                                     * X8528000
                                   7983 * TITLE - JOB AND STEP TERMINATION EXIT INTO HASP                     * X8530000
                                   7984 *                                                                     * X8532000
                                   7985 * FUNCTION/OPERATION                                                  * X8534000

                                   7986 *                                                                     * X8536000
                                   7987 *    XTERMSMF IS ENTERED IMMEDIATELY PRIOR TO THE SMF EXIT ROUTINE    * X8538000
                                   7988 *    IEFACTRT WHEN HASP IS ACTIVE.                                    * X8540000
                                   7989 *                                                                     * X8542000
                                   7990 *    XTERMSMF USES THE COMMON EXIT PARAMETER LIST(JMR) JOBNAME TO     * X8544000
                                   7991 *    SEARCH FOR A MATCH ON PCE JOBNAME. IF A MATCH IS FOUND, THE      * X8546000

                                   7992 *    COMMON EXIT PARAMETER LIST IS SAVED IN THE ASSOCIATED HASP JCT   * X8548000
                                   7993 *    TO BE USED BY THE HASP PURGE EXIT(IEFUJP).                       * X8550000
                                   7994 *                                                                     * X8552000
                                   7995 * ENTRY CONDITIONS                                                    * X8554000
                                   7996 *                                                                     * X8556000
                                   7997 *    R1   -  ADDR. OF A TEN WORD PARAMETER LIST AS DEFINED IN SMF MAN.* X8558000
                                   7998 *    R13  -  ADDRESS OF A SAVE AREA                                   * X8560000
                                   7999 *    R14  -  RETURN ADDRESS                                           * X8562000

                                   8000 *    R15  -  ADDRESS OF XTERMSMF                                      * X8564000
                                   8001 *    R0   -  12 INDICATES JOB-STEP TERMINATION                        * X8566000

                                   8002 *            16 INDICATES JOB TERMINATION                             * X8568000
                                   8003 *                                                                     * X8570000
                                   8004 * RETURN CONDITIONS                                                   * X8572000
                                   8005 *                                                                     * X8574000
                                   8006 *    R0 THRU R14 - RESTORED TO ENTRY CONDITIONS                       * X8576000
                                   8007 *    R15         - ZERO TO INDICATE CONTINUE PROCESSING               * X8578000
                                   8008 *                                                                     * X8580000
                                   8009 *********************************************************************** X8582000




                                   8011 XTERMSMF NULL                      ENTRY FROM TERMINATION               X8586000
0023C0                             8012+XTERMSMF DS    0H                                                       NU006000
0023C0 1BFF                        8013          SR    R15,R15             SET RETURN TO ZERO                   X8588000
0023C2 90EC D00C      0000C        8014          STM   R14,R12,12(R13)     SAVE REGISTERS IN CALLER'S AREA      X8590000

0023C6 05C0                        8015          BALR  BASE2,0             ESTABLISH ADDRESSABILITY             X8592000
                            023C8  8016          USING *,BASE2                                                  X8594000
0023C8 182D                        8017          LR    WA,R13              SAVE R13                             X8596000

0023CA 5831 0024      00024        8018          L     WB,36(R1)           SAVE ADDR. OF SMF RECORD             X8598000
0023CE 5811 0000      00000        8019          L     R1,0(R1)            POINT TO COMMON EXIT PARAMETER LIST  X8600000
0023D2 58F0 C03C      02404        8020          L     R15,XSRCHBAS        ESTABLISH XJOBSRC2 ADDRESSABILITY    X8604000
0023D6 05EF                        8021          BALR  LINK,R15            SEARCH FOR PCE WITH SAME JOBNAME     X8606000
0023D8 47E0 C032      023FA        8022          BNO   XTERMRTN            NO MATCH OF JOB NAME                 X8608000
0023DC 58A0 D03C      0003C        8023          L     JCT,PCEJCT          ESTABLISH JCT ADDRESSABILITY         X8610000
0023E0 D213 A208 1010 00208 00010  8024          MVC   JCTCPUID(XJMRSZ),XJMRDISP(R1) SAVE JMR IN HASP JCT-JMR   X8612000

0023E6 9510 2017      00017        8025          CLI   XTERMIND(WA),XJOBTERM IS THIS JOB TERMINATION    OY06636 X8614000
0023EA 4770 C032      023FA        8026          BNE   XTERMRTN            RETURN IF NOT                        X8616000
0023EE D207 303A A220 0003A 00220  8027          MVC   58(8,WB),JCTRDROF   REFLECT REAL READER STOP TIME/DATE   X8618000
0023F4 D200 304B A08D 0004B 0008D  8028          MVC   75(1,WB),JCTJCLAS   JOB CLASS FROM JOB CARD              X8620000
0023FA 18D2                        8029 XTERMRTN LR    R13,WA              RELOAD R13                           X8622000

0023FC 98EC D00C      0000C        8030          LM    R14,R12,12(R13)     RELOAD REGISTERS                     X8624000
002400 07FE                        8031          BR    R14                 AND RETURN                           X8626000
002402 0000
XEQ      HASP TERMINATION EXIT                                                                                 PAGE  190



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002404 00000000                    8032 XSRCHBAS DC    V(XJOBSRC2)                                              X8628000
                            00017  8033 XTERMIND EQU   23                  R0 BYTE 3 IN SAVE AREA       OY06636 X8630000
                            00010  8034 XJOBTERM EQU   16                  JOB TERMINATION INDICATOR            X8632000
XEQ      HASP EXECUTION THAW PROCESSOR                                                                         PAGE  191


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   8036 ******************************************************************      X8636000
                                   8037 *                                                                *      X8638000
                                   8038 * TITLE - XTHAW (EXECUTION THAW PROCESSOR)                       *      X8640000
                                   8039 *                                                                *      X8642000
                                   8040 * FUNCTION/PURPOSE -                                             *      X8644000

                                   8041 *                                                                *      X8646000
                                   8042 *  XTHAW IS A COMPANION TO THE MAIN EXECUTION PROCESSOR IOS      *      X8648000
                                   8043 *  INTERFACE ROUTINE CALLED XFREEZE. XTHAW IS RESPONSIBLE FOR    *      X8650000
                                   8044 *  DISCOVERING WHICH TASKS HAVE BEEN FORCIBLY PLACED IN AN OS    *      X8652000
                                   8045 *  WAIT STATE (FROZEN) AND SHOULD NOW BE ACTIVATED (THAWED) THRU *      X8654000

                                   8046 *  THE OS POST ECB MECHANISM. XTHAW PERFORMS THE FOLLOWING MAJOR *      X8656000
                                   8047 *  FUNCTIONS...                                                  *      X8658000
                                   8048 *                                                                *      X8660000
                                   8049 *  (1) EXAMINES THE 'XPCEECB' FIELD OF THE XTHAW PCE FOR A CHAIN *      X8662000
                                   8050 *      OF IOB'S AS DESCRIBED IN STEPS 3 AND 4. THE 'XPOSTBIT'    *      X8664000

                                   8051 *      IS NOT APPLICABLE TO THE XTHAW PCE.                       *      X8666000
                                   8052 *                                                                *      X8668000
                                   8053 *  (2) EXAMINES THE EXECUTION PROCESSOR PCE'S FOR THE            *      X8670000
                                   8054 *      'XPOSTBIT'. IF THE BIT IS OFF FOR ALL PCE'S, XTHAW        *      X8672000
                                   8055 *      $WAITS FOR WORK.                                          *      X8674000

                                   8056 *                                                                *      X8676000
                                   8057 *  (3) IF POSTING IS REQUESTED (XPOSTBIT ON), THE BIT IS RESET   *      X8678000
                                   8058 *      TO ZERO AND THE 'XPCEECB' FIELD IN THE ASSOCIATED PCE     *      X8680000
                                   8059 *      IS EXAMINED. IF XPCEECB IS ZERO, THE PCE SEARCH IN STEP   *      X8682000
                                   8060 *      2 CONTINUES. A NON-ZERO XPCEECB FIELD IS TREATED AS THE   *      X8684000
                                   8061 *      FIRST OF A CHAIN OF IOB'S (BUFFERS) WHICH REQUIRE POSTING *      X8686000

                                   8062 *      OF THE ECB ADDRESSED BY THE IOBECBCC POINTER.             *      X8688000
                                   8063 *                                                                *      X8690000
                                   8064 *  (4) THE STANDARD HASP OS POST SUBROUTINE (WPOSTECB) IS USED   *      X8692000
                                   8065 *      TO POST THE ECB(S) PROVIDED THRU THE IOB(S).              *      X8694000

                                   8066 *                                                                *      X8696000
                                   8067 *  THE IOB FIELD 'IOBCSW' FOR THE TASK TO BE POSTED CONTAINS     *      X8698000
                                   8068 *  THE TCB ADDRESS FOR THE TASK AND THE CHAIN ADDRESS (OR ZERO   *      X8700000
                                   8069 *  IF LAST ENTRY) TO THE NEXT IOB.                               *      X8702000
                                   8070 *                                                                *      X8704000

                                   8071 *  THE IOB CHAIN IS CONSTRUCTED IN THE XTHAW PCE OR AN EXECUTION *      X8706000
                                   8072 *  PCE DEPENDING ON THE REASON FOR INVOKING XFREEZE. IF THE      *      X8708000
                                   8073 *  IOS INTERFACE SECTION IS ENTERED WHILE AN EXECUTION PROCESSOR *      X8710000
                                   8074 *  IS ACTIVE, THEN THE XTHAW PCE (XPCEECB FIELD) IS USED. IF AN  *      X8712000
                                   8075 *  I/O REQUEST CANNOT BE PROCESSED AND THE EXECUTION PROCESSOR   *      X8714000
                                   8076 *  IS NOT ACTIVE AT THE TIME OF REQUEST, THEN THE EXECUTION PCE  *      X8716000
                                   8077 *  IS USED.                                                      *      X8718000

                                   8078 *                                                                *      X8720000
                                   8079 *  XTHAW IS ACTIVATED ($POSTED) BY THE EXECUTION PROCESSOR       *      X8722000
                                   8080 *  WHENEVER A JOB (OR THE OS READER) IS UNDER CONTROL AND        *      X8724000

                                   8081 *  JUST PRIOR TO $WAITING FOR $WORK.                             *      X8726000
                                   8082 *                                                                *      X8728000
                                   8083 ******************************************************************      X8730000
XEQ      HASP EXECUTION THAW PROCESSOR                                                                         PAGE  192


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


002408                             8085 HASPXTHW DS    0H                                                       X8734000
                            02408  8086          USING *,BASE2             ESTABLISH LOCAL ADDRESSABILITY.      X8736000
                            00000  8087          USING TCBDSECT,R4         SPECIFY TCB BASE.                    X8738000
                                   8088 *        ICM   R4,15,XTHWRTCB      LOOK AT SPECIAL THAW CELL       RFIT X8740000
002408 5840 C06C      02474        8089          L     R4,XTHWRTCB                                         RFIT X8740005
00240C 1244                        8090          LTR   R4,R4                                               RFIT X8740010
00240E 4780 C016      0241E        8091          BZ    XTH1                BRANCH IF EMPTY.                     X8742000
002412 58F0 C080      02488        8092          L     R15,=V(XWARM)       ELSE GET SUBROUTINE ADDRESS          X8744000

002416 05EF                        8093          BALR  LINK,R15            AND THAW THE TCB.                    X8746000
002418 D703 C06C C06C 02474 02474  8094          XC    XTHWRTCB,XTHWRTCB   THEN CLEAR THE SPECIAL CELL.         X8748000

00241E 58D0 C084      0248C        8095 XTH1     L     R13,=V($EXECPCE)    POINT TO FIRST EXECUTION PCE.        X8750000
                                   8096          LA    R10,&MAXXEQS        GET EXECUTION PCE COUNT.             X8752000
002422 41A0 0003      00003        8097+         LA    R10,3               GET EXECUTION PCE COUNT.             X8752000
002426 9120 D058      00058        8098 XTH2     TM    XPCESTAT,XPOSTBIT   DOES THIS PCE REQUEST THAW...        X8754000
00242A 4780 C03E      02446        8099          BZ    XTH3                BRANCH IF NOT.                       X8756000

                                   8100 *        ICM   R4,7,XPCEJST+1      GET TCB ADDRESS TO THAW         RFIT X8758000
00242E 5840 D060      00060        8101          L     R4,XPCEJST                                          RFIT X8758005
002432 4140 4000      00000        8102          LA    R4,0(,R4)                                           RFIT X8758010
002436 1244                        8103          LTR   R4,R4                                               RFIT X8758015
002438 4780 C03E      02446        8104          BZ    XTH3                BRANCH IF NO TCB.                    X8760000
00243C 58F0 C080      02488        8105          L     R15,=V(XWARM)       POINT TO SUBROUTINE                  X8762000
002440 05EF                        8106          BALR  LINK,R15            AND THAW THE JOBSTEP.                X8764000
002442 94DF D058      00058        8107          NI    XPCESTAT,255-XPOSTBIT  THEN RESET THE THAW REQUEST.      X8766000
002446 58D0 D008      00008        8108 XTH3     L     R13,PCENEXT         POINT TO NEXT PCE                    X8768000
00244A 46A0 C01E      02426        8109          BCT   R10,XTH2            AND LOOP.                            X8770000
00244E 58D0 C088      02490        8110          L     R13,=V($XTHPCE)     RESTORE XTHAW PCE ADDRESS.           X8772000
                                   8111 *        ICM   R4,15,XTHRDTCB      ANYONE WAITING FOR RDR?      OY08671 X8772100

002452 5840 C070      02478        8112          L     R4,XTHRDTCB                                     FJP/RFIT X8772105
002456 1244                        8113          LTR   R4,R4                                           FJP/RFIT X8772110
002458 4780 C060      02468        8114          BZ    XTH4                NO, THEN WAIT                OY08671 X8772200

00245C 58F0 C080      02488        8115          L     R15,=V(XWARM)       ELSE PREPARE TO              OY08671 X8772300
002460 05EF                        8116          BALR  LINK,R15            THAW WAITING TASK            OY08761 X8772400
002462 D703 C070 C070 02478 02478  8117          XC    XTHRDTCB,XTHRDTCB   CLEAR THAW CELL              OY08671 X8772500
002468                             8118 XTH4     DS    0H                                               OY08671 X8772600
                                   8119         $WAIT  WORK                END OF PCES.  WAIT FOR WORK.         X8774000
002468 9620 D049      00049        8120+         OI    PCEEWF+$EWBWORK,$EWFWORK                                 WA016000
00246C 45F0 B030      00030        8121+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000
002470 47F0 C000      02408        8122          B     HASPXTHW            WHEN POSTED, DO IT AGAIN.            X8776000
002474 00000000                    8123 XTHWRTCB DC    A(0)                SPECIAL THAW CELL.                   X8778000

002478 00000000                    8124 XTHRDTCB DC    A(0)                READER SPECIAL THAW CELL     OY08671 X8779000

                                   8125          DROP  R4                                                       X8780000
XEQ      HASP SYSTEM LOG PROCESSOR  --  RESIDENT MODULE                                                        PAGE  193


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   8127 *********************************************************************** X8784000
                                   8128 *                                                                     * X8786000

                                   8129 *                                                                     * X8788000
                                   8130 *      THE FOLLOWING PROCESSOR SAVES CONSOLE MESSAGES FOR EACH        * X8790000
                                   8131 *      JOB SO THEY WILL APPEAR WITH THE JOB'S PRINTED OUTPUT.         * X8792000
                                   8132 *                                                                     * X8794000
                                   8133 *                                                                     * X8796000
                                   8134 *********************************************************************** X8798000

















                            0247C  8136          USING *,BASE2                                                  X8802000
                                   8137 HASPLOG  NULL                                                           X8804000
00247C                             8138+HASPLOG  DS    0H                                                       NU006000
                                   8139          $LINK HASPXLOG            ENTER OVERLAY SEGMENT                X8806000

000000                             8140+HA$QXLOG DSECT                     DECLARE EXTERNAL DUMMY SECTION       OL012000
00247C                             8141+HASPXEQ  CSECT                                                          OL014000
00247C 41E00000                    8142+         DC    Y(X'4100'+LINK*16),QL2(HA$QXLOG) LOAD OCON INTO LINK     OL016000
002480 45F0 B08C      0008C        8143+         BAL   R15,$OLINK          LINK TO OVERLAY SUPERVISOR           LI008000
                                   8144 *                                  NO RETURN IS EXPECTED                X8808000
XEQ      HASP SYSTEM LOG PROCESSOR  --  OVERLAY SEGMENT                                                        PAGE  194


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   8146 HASPXLOG $OVERLAY &MED,&MED        OVERLAY ENTRY                        X8812000
0039D0                             8147+HA$OXLOG CSECT                     ESTABLISH OVERLAY CSECT              OV030000
                            039D8  8148+HA$IXLOG EQU   HA$OXLOG+8          PASS ATTRIBUTE(S) USING ENTRY        OV034000
                                   8149+         ENTRY HA$IXLOG                                                 OV036000

0039D0 E7D3D6C7                    8150+         DC    CL4'XLOG'           IDENTIFY MODULE ON CORE DUMP         OV038000
0039D4 000039D0                    8151+         DC    A(HA$OXLOG)         ASSEMBLY ORIGIN                      OV040000
0039D8                             8152+HASPXLOG DS    0F                  ENTRY POINT                          OV042000
                            03978  8153+         USING *-OACEPROG+BUFDSECT,BASE3 ESTABLISH ADDRESSABILITY       OV044000




                                   8155          $DISABLE ALL,OLAY=YES     PROTECT QUEUE FROM SVC 35            X8816000
0039D8 8000 B0C9      000C9        8156+         SSM   $DISALL              DISABLE INTERRUPTS                  DI006000
0039DC 5820 B110      00110        8157          L     WA,$LOGQUE          GET A MESSAGE TO BE LOGGED.          X8818000
                            00000  8158          USING CMBDSECT,WA         MESSAGE QUEUE FORMAT                 X8820000
0039E0 1222                        8159          LTR   WA,WA               TEST ANY.                            X8822000
0039E2 4770 8082      039FA        8160          BNZ   LOGPROC             GO PROCESS IF ANY.                   X8824000
0039E6 58D0 C018      02494        8161 LOGWAIT  L     SAVE,=V($LOGPCE)    RESTORE THIS PROCESSOR'S PCE REG.    X8826000
                                   8162          $WAIT WORK,ENABLE,OLAY=YES WAIT FOR MORE MESSAGES              X8828000
0039EA 9620 D049      00049        8163+         OI    PCEEWF+$EWBWORK,$EWFWORK                                 WA016000
0039EE 8000 B0C8      000C8        8164+         SSM   $ENBALL              ENABLE INTERRUPTS                   EN006000
0039F2 45F0 B030      00030        8165+         BAL   R15,$WAIT           RETURN TO DISPATCHER                 WA022000

0039F6 47F0 8060      039D8        8166          B     HASPXLOG            START AGAIN                          X8830000
                                   8167 *                                                                       X8832000
                                   8168 LOGPROC  LA    R1,&MAXXEQS         NUMBER OF XEQ PCES.                  X8834000

0039FA 4110 0003      00003        8169+LOGPROC  LA    R1,3                NUMBER OF XEQ PCES.                  X8834000
0039FE 58D0 C010      0248C        8170          L     SAVE,=V($EXECPCE)   GET 1ST PCE.                         X8836000
003A02 9140 2004      00004        8171          TM    CMBFLAGS,WCMBFH     TEST FOR 'READ'                      X8838000
003A06 4770 80EA      03A62        8172          BNE   LTESTCB             BR NOT WRITE                         X8840000
                                   8173 *      PROCESS WRITE MESSAGE                                            X8842000
003A0A 58A0 D03C      0003C        8174 LTESTJNO L     JCT,PCEJCT          GET JCT FOR THIS PCE.                X8844000
003A0E D503 A06C 2016 0006C 00016  8175          CLC   JCTJOBEB,CMBJOBNO+L'CMBJOBNO-L'JCTJOBEB-1 MATCH...       X8846000
003A14 4780 8104      03A7C        8176          BE    LOGOUT              GO LOG IF SO.                        X8848000
003A18 58D0 D008      00008        8177          L     SAVE,PCENEXT        GET NEXT PCE.                        X8850000
003A1C 4610 8092      03A0A        8178          BCT   R1,LTESTJNO         TEST NEW PCE JOB NO.                 X8852000
                                   8179 *      PUSH UP THE QUEUE AND FREE THE BUFFER.                           X8854000
003A20 D202 B111 2001 00111 00001  8180 LPUSHUP  MVC   $LOGQUE+1(3),CMBCHAIN+1 PUSH UP LOG QUEUE                X8856000

                                   8181 *                                                                       X8858000

003A26 9160 2004      00004        8182          TM    CMBFLAGS,WCMBFH+WCMBFE TEST FOR 'READ' OR LOG ONLY       X8860000
003A2A 4770 80E0      03A58        8183          BNZ   LOGREADX            BR IF EITHER                         X8862000

003A2E 95D3 2008      00008        8184          CLI   CMBMSG,C'L'         TEST FOR WTL                         X8864000
003A32 4780 80E0      03A58        8185          BE    LOGREADX            BR IF YES TO PURGE                   X8866000
003A36 95D5 2008      00008        8186          CLI   CMBMSG,C'N'         TEST FOR NO CONSOLE OUTPUT           X8868000
003A3A 4780 80E0      03A58        8187          BE    LOGREADX            BR IF SO TO PURGE                    X8870000
003A3E 95D9 2008      00008        8188          CLI   CMBMSG,C'R'         CHECK FOR REPLY                      X8872000
003A42 4780 80E0      03A58        8189          BE    LOGREADX            BR IF YES TO PURGE                   X8874000
003A46 183C                        8190          LR    WB,BASE2            SAVE BASE REGISTER IN WB.            X8876000
003A48 58F0 C01C      02498        8191          L     R15,=V($WQUEBUF)    GET ENTRY TO QUEUEING ROUTINE.       X8878000
003A4C 58C0 C020      0249C        8192          L     BASE2,=V(HASPCON)   SET UP BASE REGISTER.                X8880000
003A50 05EF                        8193          BALR  R14,R15             QUEUE MESSAGE FOR CONSOLE.           X8882000
003A52 18C3                        8194          LR    BASE2,WB            RESTORE BASE REGISTER.               X8884000
003A54 47F0 8060      039D8        8195          B     HASPXLOG            CONTINUE                             X8886000

003A58                             8196 LOGREADX DS    0H                                                       X8888000
003A58 1812                        8197          LR    R1,WA               PUT BUFFER IN PARM REG.              X8890000

003A5A 45E0 B09C      0009C        8198          BAL   LINK,$FREEMSG       GO FREE BUFFER                       X8892000

XEQ      HASP SYSTEM LOG PROCESSOR  --  OVERLAY SEGMENT                                                        PAGE  195


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

003A5E 47F0 8060      039D8        8199          B     HASPXLOG            AND CONTINUE                         X8894000





                                   8201 *                                                                       X8898000
                                   8202 *      PROCESS AN INPUT MESSAGE.                                        X8900000
                                   8203 *                                                                       X8902000
003A62 D500 2005 D04A 00005 0004A  8204 LTESTCB  CLC   CMBCONS(1),PCEID    IS THIS JOB'S PCE                    X8904000
003A68 58A0 D03C      0003C        8205          L     JCT,PCEJCT          GET JCT ADDR                         X8906000
003A6C 4780 8104      03A7C        8206          BE    LOGOUT              WRITE IT IF SAME.                    X8908000
003A70 58D0 D008      00008        8207          L     SAVE,PCENEXT        GET NEW PCE.                         X8910000

003A74 4610 80EA      03A62        8208          BCT   R1,LTESTCB          TEST NEW.                            X8912000
003A78 47F0 80A8      03A20        8209          B     LPUSHUP             FORGET IF NO PCE FOR THIS TCB.       X8914000
                                   8210 *      PROCESS A MESSAGE.                                               X8916000

                                   8211 LOGOUT   NULL                      PROVIDE LOG                          X8918000
003A7C                             8212+LOGOUT   DS    0H                                                       NU006000
                                   8213          AIF   (NOT &LOGOPT).LNOLOG1                                    X8920000
003A7C 9110 A06B      0006B        8214          TM    JCTJBOPT,JCTNOLOG   TEST FOR NO LOG                      X8922000
003A80 4710 80A8      03A20        8215          BO    LPUSHUP             BR IF NO LOG                         X8924000
                            00000  8216          USING DDBDSECT,WB         *                                    X8926000
003A84 5830 D078      00078        8217          L     WB,XPCEDDB          START OF DDB CHAIN                   X8928000
003A88 1233                        8218 LOGDDBT  LTR   WB,WB               IS THIS END                          X8930000
003A8A 4780 80A8      03A20        8219          BZ    LPUSHUP             BR IF YES TO IGNORE LOG REQ          X8932000
003A8E 9110 3004      00004        8220          TM    DDBTYPE,XLOGDDB     IS THIS FOR LOG                      X8934000
003A92 4710 8126      03A9E        8221          BO    LOGDDBOK            BR IF YES                            X8936000
003A96 5830 3000      00000        8222          L     WB,DDBCHAIN         TO NEXT                              X8938000

003A9A 47F0 8110      03A88        8223          B     LOGDDBT             AND CONT                             X8940000
                                   8224 LOGDDBOK $TRACE                                                         X8942000
003A9E                             8225+LOGDDBOK DS    0H                                                       NU006000
003A9E 9101 3008      00008        8226          TM    XS,XNPB             IS THERE A BUFFER                    X8944000

003AA2 4710 81C0      03B38        8227          BO    LNOBUF              BR IF NONE                           X8946000
003AA6 5840 300C      0000C        8228          L     WC,DDBPBUF          BUFFER ADDR                          X8948000
003AAA 4850 300A      0000A        8229          LH    WD,DDBUFPTR         CURRENT POINTER                      X8950000
003AAE 1A45                        8230          AR    WC,WD               WC=ACTUAL NEXT ADDR IN BUFFER        X8952000
003AB0 9120 3009      00009        8231          TM    DDBSTAT2,XLOGHEAD   HAS LOG TITLE BEEN WRITTEN           X8954000
003AB4 4780 81A4      03B1C        8232          BZ    LOGHEAD             BR IF NO                             X8956000

003AB8 1B11                        8233          SR    R1,R1               FOR IC                               X8958000
003ABA 4310 2006      00006        8234          IC    R1,CMBMSGL          GET MESSAGE LENGTH                   X8960000
003ABE 4151 5002      00002        8235          LA    WD,2(R1,WD)         WD=CURRENT PTR + MES. LENGTH         X8962000
003AC2 5950 822C      03BA4        8236          C     WD,LBUFCON          WILL THIS MESSAGE FIT...             X8964000
003AC6 47B0 81D4      03B4C        8237          BNL   LFLUSH              BR IF NO TO WRITE BUFFER             X8966000
003ACA 4050 300A      0000A        8238          STH   WD,DDBUFPTR         RESET PTR                            X8968000
003ACE 4214 0000      00000        8239          STC   R1,0(WC)            SET COUNT IN COMMAND                 X8970000
003AD2 9209 4001      00001        8240          MVI   1(WC),9             SET SINGLE SPACE                     X8972000

003AD6 0610                        8241          BCTR  R1,0                FOR MVC                              X8974000
003AD8 4210 8165      03ADD        8242          STC   R1,*+5              SET                                  X8976000

003ADC D200 4002 2008 00002 00008  8243          MVC   2(*-*,WC),CMBMSG    MOVE MESSAGE                         X8978000
003AE2 4810 301C      0001C        8244          LH    R1,DDBCOUNT         CURRENT COUNT                        X8980000
003AE6 4111 0001      00001        8245          LA    R1,1(R1)            +1                                   X8982000
003AEA 4010 301C      0001C        8246          STH   R1,DDBCOUNT         BACK                                 X8984000
003AEE 955B 2008      00008        8247          CLI   CMBMSG,C'$'         WAS THIS A HASP MESSAGE              X8986000
003AF2 4780 8186      03AFE        8248          BE    LHASPMSG            BR IF YES                            X8988000
003AF6 95D5 2008      00008        8249          CLI   CMBMSG,C'N'         WAS IT HASP MESSAGE NOT DISPLAYED    X8990000
XEQ      HASP SYSTEM LOG PROCESSOR  --  OVERLAY SEGMENT                                                        PAGE  196



  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

003AFA 4770 80A8      03A20        8250          BNE   LPUSHUP             EXIT IF NO                           X8992000
                                   8251 LHASPMSG NULL                      *                                    X8994000
003AFE                             8252+LHASPMSG DS    0H                                                       NU006000
003AFE 5810 C024      024A0        8253          L     R1,=A(XALMES)       ADDR OF XEQ END MESSAGE              X8996000

003B02 D50D 201B 1000 0001B 00000  8254          CLC   CMBTEXT(L'XALMES),0(R1) IS THIS 'END EXECUTION'          X8998000
003B08 4770 80A8      03A20        8255          BNE   LPUSHUP             BR IF NO                             X9000000
003B0C 9681 3009      00009        8256          OI    DDBSTAT2,XTERM+XACT YES...ALLOW TERMINATION OF LOG DDB   X9002000

                                   8257          $POST PCEEWF+$EWBWORK,WORK START XEQ                           X9004000
003B10 94DF D049      00049        8258+         NI    PCEEWF+$EWBWORK,255-$EWFWORK                             PO008000
003B14 947F B0C4      000C4        8259+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
003B18 47F0 80A8      03A20        8260          B     LPUSHUP             AND EXIT                             X9006000
003B1C 4A50 81BE      03B36        8261 LOGHEAD  AH    WD,LOGTITLE         INSERT LOG HEADER LINE               X9008000
003B20 4050 300A      0000A        8262          STH   WD,DDBUFPTR         RESET PTR                            X9010000
003B24 D24E 4000 81DC 00000 03B54  8263          MVC   0(LTITLEND-LTITLE,WC),LTITLE INSERT TITLE                X9012000

003B2A 9201 301D      0001D        8264          MVI   DDBCOUNT+1,1        START COUNT                          X9014000
003B2E 9620 3009      00009        8265          OI    DDBSTAT2,XLOGHEAD   SHOW TITLE WRITEN                    X9016000
003B32 47F0 8060      039D8        8266          B     HASPXLOG            CYCLE                                X9018000
003B36 004F                        8267 LOGTITLE DC    Y(LTITLEND-LTITLE)  LINE LENGTH                          X9020000
                                   8268 LNOBUF   NULL  *                   LOG BUFFER NOT AVAILABLE             X9022000

003B38                             8269+LNOBUF   DS    0H                                                       NU006000
003B38 9680 3009      00009        8270          OI    DDBSTAT2,XACT       SHOW ACTION REQUIRED                 X9024000
                                   8271          $POST PCEEWF+$EWBWORK,WORK-$EWFDDB START XEQ                   X9026000
003B3C 94D7 D049      00049        8272+         NI    PCEEWF+$EWBWORK,255-$EWFWORK-$EWFDDB                     PO008000

003B40 947F B0C4      000C4        8273+         NI    $HASPECF,255-$EWFPOST    $POST GENERAL POST BIT          PO012000
003B44 94BF D059      00059        8274          NI    XSYNCFLG,255-XALLOCWT  JUST IN CASE                      X9028000
003B48 47F0 806E      039E6        8275          B     LOGWAIT             AND WAIT FOR A BUFFER                X9030000
                                   8276 LFLUSH   NULL  *                   LOG BUFFER IS FULL                   X9032000
003B4C                             8277+LFLUSH   DS    0H                                                       NU006000
003B4C 9602 3008      00008        8278          OI    XS,XPIO             SHOW WRITE REQUIRED                  X9034000

003B50 47F0 81C0      03B38        8279          B     LNOBUF              AND GO WAIT FOR A BUFFER             X9036000
                                   8280          DROP  WB                  KILL ADDRESSABILITY                  X9038000
                                   8281          AGO   .LNOLOG2            *                                    X9040000
                                   8282 .LNOLOG2 ANOP                      *                                    X9046000
                                   8283 *                                                                       X9048000

                                   8284 *      CONSOLE MESSAGE HEADER.                                          X9050000
                                   8285 *                                                                       X9052000
                            03B54  8286 LTITLE   EQU   *                                                        X9054000
003B54 008B                        8287          DC    X'008B'                                                  X9056000
003B56 4B                          8288          DC    AL1(LTITLEND-*-2)                                        X9058000

003B57 19                          8289          DC    AL1(25)                                                  X9060000
003B58 4040404040404040            8290          DC    CL50' ',C'H A S P    J O B    L O G'                     X9062000
                            03BA3  8291 LTITLEND EQU   *                                                        X9064000
                                   8292 LBUFCON  DC    A(BUFSTART-BUFDSECT+&BUFSIZE-2) EOB CONSTANT             X9066000
003BA3 00

003BA4 000007FE                    8293+LBUFCON  DC    A(BUFSTART-BUFDSECT+1960-2)     EOB CONSTANT             X9066000
                                   8294          DROP  WA,BASE3            *                                    X9068000
002484                             8295 HASPXEQ  CSECT                     RESUME RESIDENCE                     X9070000



002488                             8297          DS    0D                  LOG PROCESSOR LITERAL POOL           X9074000

002488                             8298          LTORG                                                          X9076000
002488 00000000                    8299                =V(XWARM)
00248C 00000000                    8300                =V($EXECPCE)
002490 00000000                    8301                =V($XTHPCE)
XEQ      HASP SYSTEM LOG PROCESSOR  --  OVERLAY SEGMENT                                                        PAGE  197


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


002494 00000000                    8302                =V($LOGPCE)
002498 00000000                    8303                =V($WQUEBUF)
00249C 00000000                    8304                =V(HASPCON)
0024A0 000002A6                    8305                =A(XALMES)

XEQ      HASP DATA DEFINITION TABLES                                                                           PAGE  198


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   8307          $GENDDTS                                                       X9080000
0024A4                             8308+$DDTONE  DS    0F                                                       X0050000
0024A4                             8309+DDT1     DS    0F                                                       X0054000

0024A4 000024C8                    8310+         DC    A(DDT2)                 CHAIN WORD                       X0058000
0024A8 0000000000000000            8311+         DC    (DDBLNG-4)X'0'                                           X0060000
0024C8                             8312+DDT2     DS    0F                                                       X0054000
0024C8 000024EC                    8313+         DC    A(DDT3)                 CHAIN WORD                       X0058000
0024CC 0000000000000000            8314+         DC    (DDBLNG-4)X'0'                                           X0060000
0024EC                             8315+DDT3     DS    0F                                                       X0054000
0024EC 00002510                    8316+         DC    A(DDT4)                 CHAIN WORD                       X0058000

0024F0 0000000000000000            8317+         DC    (DDBLNG-4)X'0'                                           X0060000
002510                             8318+DDT4     DS    0F                                                       X0054000
002510 00002534                    8319+         DC    A(DDT5)                 CHAIN WORD                       X0058000

002514 0000000000000000            8320+         DC    (DDBLNG-4)X'0'                                           X0060000
002534                             8321+DDT5     DS    0F                                                       X0054000
002534 00002558                    8322+         DC    A(DDT6)                 CHAIN WORD                       X0058000
002538 0000000000000000            8323+         DC    (DDBLNG-4)X'0'                                           X0060000
002558                             8324+DDT6     DS    0F                                                       X0054000

002558 0000257C                    8325+         DC    A(DDT7)                 CHAIN WORD                       X0058000
00255C 0000000000000000            8326+         DC    (DDBLNG-4)X'0'                                           X0060000
00257C                             8327+DDT7     DS    0F                                                       X0054000
00257C 000025A0                    8328+         DC    A(DDT8)                 CHAIN WORD                       X0058000
002580 0000000000000000            8329+         DC    (DDBLNG-4)X'0'                                           X0060000
0025A0                             8330+DDT8     DS    0F                                                       X0054000
0025A0 000025C4                    8331+         DC    A(DDT9)                 CHAIN WORD                       X0058000

0025A4 0000000000000000            8332+         DC    (DDBLNG-4)X'0'                                           X0060000
0025C4                             8333+DDT9     DS    0F                                                       X0054000
0025C4 000025E8                    8334+         DC    A(DDT10)                CHAIN WORD                       X0058000

0025C8 0000000000000000            8335+         DC    (DDBLNG-4)X'0'                                           X0060000
0025E8                             8336+DDT10    DS    0F                                                       X0054000
0025E8 0000260C                    8337+         DC    A(DDT11)                CHAIN WORD                       X0058000
0025EC 0000000000000000            8338+         DC    (DDBLNG-4)X'0'                                           X0060000
00260C                             8339+DDT11    DS    0F                                                       X0054000

00260C 00002630                    8340+         DC    A(DDT12)                CHAIN WORD                       X0058000
002610 0000000000000000            8341+         DC    (DDBLNG-4)X'0'                                           X0060000
002630                             8342+DDT12    DS    0F                                                       X0054000
002630 00002654                    8343+         DC    A(DDT13)                CHAIN WORD                       X0058000
002634 0000000000000000            8344+         DC    (DDBLNG-4)X'0'                                           X0060000
002654                             8345+DDT13    DS    0F                                                       X0054000
002654 00002678                    8346+         DC    A(DDT14)                CHAIN WORD                       X0058000
002658 0000000000000000            8347+         DC    (DDBLNG-4)X'0'                                           X0060000

002678                             8348+DDT14    DS    0F                                                       X0054000
002678 0000269C                    8349+         DC    A(DDT15)                CHAIN WORD                       X0058000

00267C 0000000000000000            8350+         DC    (DDBLNG-4)X'0'                                           X0060000
00269C                             8351+DDT15    DS    0F                                                       X0054000
00269C 000026C0                    8352+         DC    A(DDT16)                CHAIN WORD                       X0058000
0026A0 0000000000000000            8353+         DC    (DDBLNG-4)X'0'                                           X0060000
0026C0                             8354+DDT16    DS    0F                                                       X0054000

0026C0 000026E4                    8355+         DC    A(DDT17)                CHAIN WORD                       X0058000
0026C4 0000000000000000            8356+         DC    (DDBLNG-4)X'0'                                           X0060000
0026E4                             8357+DDT17    DS    0F                                                       X0054000
0026E4 00002708                    8358+         DC    A(DDT18)                CHAIN WORD                       X0058000
0026E8 0000000000000000            8359+         DC    (DDBLNG-4)X'0'                                           X0060000
002708                             8360+DDT18    DS    0F                                                       X0054000
002708 0000272C                    8361+         DC    A(DDT19)                CHAIN WORD                       X0058000
XEQ      HASP DATA DEFINITION TABLES                                                                           PAGE  199


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


00270C 0000000000000000            8362+         DC    (DDBLNG-4)X'0'                                           X0060000

00272C                             8363+DDT19    DS    0F                                                       X0054000
00272C 00002750                    8364+         DC    A(DDT20)                CHAIN WORD                       X0058000
002730 0000000000000000            8365+         DC    (DDBLNG-4)X'0'                                           X0060000
002750                             8366+DDT20    DS    0F                                                       X0054000
002750 00002774                    8367+         DC    A(DDT21)                CHAIN WORD                       X0058000

002754 0000000000000000            8368+         DC    (DDBLNG-4)X'0'                                           X0060000
002774                             8369+DDT21    DS    0F                                                       X0054000
002774 00002798                    8370+         DC    A(DDT22)                CHAIN WORD                       X0058000
002778 0000000000000000            8371+         DC    (DDBLNG-4)X'0'                                           X0060000
002798                             8372+DDT22    DS    0F                                                       X0054000
002798 000027BC                    8373+         DC    A(DDT23)                CHAIN WORD                       X0058000
00279C 0000000000000000            8374+         DC    (DDBLNG-4)X'0'                                           X0060000
0027BC                             8375+DDT23    DS    0F                                                       X0054000
0027BC 000027E0                    8376+         DC    A(DDT24)                CHAIN WORD                       X0058000
0027C0 0000000000000000            8377+         DC    (DDBLNG-4)X'0'                                           X0060000

0027E0                             8378+DDT24    DS    0F                                                       X0054000

0027E0 00002804                    8379+         DC    A(DDT25)                CHAIN WORD                       X0058000
0027E4 0000000000000000            8380+         DC    (DDBLNG-4)X'0'                                           X0060000
002804                             8381+DDT25    DS    0F                                                       X0054000
002804 00002828                    8382+         DC    A(DDT26)                CHAIN WORD                       X0058000

002808 0000000000000000            8383+         DC    (DDBLNG-4)X'0'                                           X0060000
002828                             8384+DDT26    DS    0F                                                       X0054000
002828 0000284C                    8385+         DC    A(DDT27)                CHAIN WORD                       X0058000
00282C 0000000000000000            8386+         DC    (DDBLNG-4)X'0'                                           X0060000
00284C                             8387+DDT27    DS    0F                                                       X0054000
00284C 00002870                    8388+         DC    A(DDT28)                CHAIN WORD                       X0058000
002850 0000000000000000            8389+         DC    (DDBLNG-4)X'0'                                           X0060000
002870                             8390+DDT28    DS    0F                                                       X0054000
002870 00002894                    8391+         DC    A(DDT29)                CHAIN WORD                       X0058000
002874 0000000000000000            8392+         DC    (DDBLNG-4)X'0'                                           X0060000
002894                             8393+DDT29    DS    0F                                                       X0054000

002894 000028B8                    8394+         DC    A(DDT30)                CHAIN WORD                       X0058000
002898 0000000000000000            8395+         DC    (DDBLNG-4)X'0'                                           X0060000
0028B8                             8396+DDT30    DS    0F                                                       X0054000
0028B8 000028DC                    8397+         DC    A(DDT31)                CHAIN WORD                       X0058000

0028BC 0000000000000000            8398+         DC    (DDBLNG-4)X'0'                                           X0060000
0028DC                             8399+DDT31    DS    0F                                                       X0054000
0028DC 00002900                    8400+         DC    A(DDT32)                CHAIN WORD                       X0058000
0028E0 0000000000000000            8401+         DC    (DDBLNG-4)X'0'                                           X0060000
002900                             8402+DDT32    DS    0F                                                       X0054000
002900 00002924                    8403+         DC    A(DDT33)                CHAIN WORD                       X0058000
002904 0000000000000000            8404+         DC    (DDBLNG-4)X'0'                                           X0060000
002924                             8405+DDT33    DS    0F                                                       X0054000
002924 00002948                    8406+         DC    A(DDT34)                CHAIN WORD                       X0058000
002928 0000000000000000            8407+         DC    (DDBLNG-4)X'0'                                           X0060000
002948                             8408+DDT34    DS    0F                                                       X0054000
002948 0000296C                    8409+         DC    A(DDT35)                CHAIN WORD                       X0058000

00294C 0000000000000000            8410+         DC    (DDBLNG-4)X'0'                                           X0060000
00296C                             8411+DDT35    DS    0F                                                       X0054000
00296C 00002990                    8412+         DC    A(DDT36)                CHAIN WORD                       X0058000

002970 0000000000000000            8413+         DC    (DDBLNG-4)X'0'                                           X0060000
002990                             8414+DDT36    DS    0F                                                       X0054000
002990 000029B4                    8415+         DC    A(DDT37)                CHAIN WORD                       X0058000
002994 0000000000000000            8416+         DC    (DDBLNG-4)X'0'                                           X0060000
XEQ      HASP DATA DEFINITION TABLES                                                                           PAGE  200


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

0029B4                             8417+DDT37    DS    0F                                                       X0054000
0029B4 000029D8                    8418+         DC    A(DDT38)                CHAIN WORD                       X0058000
0029B8 0000000000000000            8419+         DC    (DDBLNG-4)X'0'                                           X0060000
0029D8                             8420+DDT38    DS    0F                                                       X0054000
0029D8 000029FC                    8421+         DC    A(DDT39)                CHAIN WORD                       X0058000
0029DC 0000000000000000            8422+         DC    (DDBLNG-4)X'0'                                           X0060000

0029FC                             8423+DDT39    DS    0F                                                       X0054000

0029FC 00002A20                    8424+         DC    A(DDT40)                CHAIN WORD                       X0058000
002A00 0000000000000000            8425+         DC    (DDBLNG-4)X'0'                                           X0060000

002A20                             8426+DDT40    DS    0F                                                       X0054000
002A20 00002A44                    8427+         DC    A(DDT41)                CHAIN WORD                       X0058000
002A24 0000000000000000            8428+         DC    (DDBLNG-4)X'0'                                           X0060000
002A44                             8429+DDT41    DS    0F                                                       X0054000
002A44 00002A68                    8430+         DC    A(DDT42)                CHAIN WORD                       X0058000
002A48 0000000000000000            8431+         DC    (DDBLNG-4)X'0'                                           X0060000
002A68                             8432+DDT42    DS    0F                                                       X0054000
002A68 00002A8C                    8433+         DC    A(DDT43)                CHAIN WORD                       X0058000
002A6C 0000000000000000            8434+         DC    (DDBLNG-4)X'0'                                           X0060000
002A8C                             8435+DDT43    DS    0F                                                       X0054000
002A8C 00002AB0                    8436+         DC    A(DDT44)                CHAIN WORD                       X0058000
002A90 0000000000000000            8437+         DC    (DDBLNG-4)X'0'                                           X0060000

002AB0                             8438+DDT44    DS    0F                                                       X0054000
002AB0 00002AD4                    8439+         DC    A(DDT45)                CHAIN WORD                       X0058000

002AB4 0000000000000000            8440+         DC    (DDBLNG-4)X'0'                                           X0060000

002AD4                             8441+DDT45    DS    0F                                                       X0054000
002AD4 00002AF8                    8442+         DC    A(DDT46)                CHAIN WORD                       X0058000
002AD8 0000000000000000            8443+         DC    (DDBLNG-4)X'0'                                           X0060000
002AF8                             8444+DDT46    DS    0F                                                       X0054000
002AF8 00002B1C                    8445+         DC    A(DDT47)                CHAIN WORD                       X0058000
002AFC 0000000000000000            8446+         DC    (DDBLNG-4)X'0'                                           X0060000
002B1C                             8447+DDT47    DS    0F                                                       X0054000
002B1C 00002B40                    8448+         DC    A(DDT48)                CHAIN WORD                       X0058000
002B20 0000000000000000            8449+         DC    (DDBLNG-4)X'0'                                           X0060000
002B40                             8450+DDT48    DS    0F                                                       X0054000
002B40 00002B64                    8451+         DC    A(DDT49)                CHAIN WORD                       X0058000
002B44 0000000000000000            8452+         DC    (DDBLNG-4)X'0'                                           X0060000

002B64                             8453+DDT49    DS    0F                                                       X0054000
002B64 00002B88                    8454+         DC    A(DDT50)                CHAIN WORD                       X0058000
002B68 0000000000000000            8455+         DC    (DDBLNG-4)X'0'                                           X0060000

002B88                             8456+DDT50    DS    0F                                                       X0054000
002B88 00002BAC                    8457+         DC    A(DDT51)                CHAIN WORD                       X0058000
002B8C 0000000000000000            8458+         DC    (DDBLNG-4)X'0'                                           X0060000
002BAC                             8459+DDT51    DS    0F                                                       X0054000
002BAC 00002BD0                    8460+         DC    A(DDT52)                CHAIN WORD                       X0058000
002BB0 0000000000000000            8461+         DC    (DDBLNG-4)X'0'                                           X0060000
002BD0                             8462+DDT52    DS    0F                                                       X0054000
002BD0 00002BF4                    8463+         DC    A(DDT53)                CHAIN WORD                       X0058000
002BD4 0000000000000000            8464+         DC    (DDBLNG-4)X'0'                                           X0060000
002BF4                             8465+DDT53    DS    0F                                                       X0054000
002BF4 00002C18                    8466+         DC    A(DDT54)                CHAIN WORD                       X0058000
002BF8 0000000000000000            8467+         DC    (DDBLNG-4)X'0'                                           X0060000

002C18                             8468+DDT54    DS    0F                                                       X0054000
002C18 00002C3C                    8469+         DC    A(DDT55)                CHAIN WORD                       X0058000
002C1C 0000000000000000            8470+         DC    (DDBLNG-4)X'0'                                           X0060000
002C3C                             8471+DDT55    DS    0F                                                       X0054000

XEQ      HASP DATA DEFINITION TABLES                                                                           PAGE  201


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

002C3C 00002C60                    8472+         DC    A(DDT56)                CHAIN WORD                       X0058000
002C40 0000000000000000            8473+         DC    (DDBLNG-4)X'0'                                           X0060000
002C60                             8474+DDT56    DS    0F                                                       X0054000
002C60 00002C84                    8475+         DC    A(DDT57)                CHAIN WORD                       X0058000

002C64 0000000000000000            8476+         DC    (DDBLNG-4)X'0'                                           X0060000
002C84                             8477+DDT57    DS    0F                                                       X0054000
002C84 00002CA8                    8478+         DC    A(DDT58)                CHAIN WORD                       X0058000
002C88 0000000000000000            8479+         DC    (DDBLNG-4)X'0'                                           X0060000
002CA8                             8480+DDT58    DS    0F                                                       X0054000
002CA8 00002CCC                    8481+         DC    A(DDT59)                CHAIN WORD                       X0058000
002CAC 0000000000000000            8482+         DC    (DDBLNG-4)X'0'                                           X0060000
002CCC                             8483+DDT59    DS    0F                                                       X0054000

002CCC 00002CF0                    8484+         DC    A(DDT60)                CHAIN WORD                       X0058000
002CD0 0000000000000000            8485+         DC    (DDBLNG-4)X'0'                                           X0060000

002CF0                             8486+DDT60    DS    0F                                                       X0054000
002CF0 00002D14                    8487+         DC    A(DDT61)                CHAIN WORD                       X0058000
002CF4 0000000000000000            8488+         DC    (DDBLNG-4)X'0'                                           X0060000
002D14                             8489+DDT61    DS    0F                                                       X0054000
002D14 00002D38                    8490+         DC    A(DDT62)                CHAIN WORD                       X0058000
002D18 0000000000000000            8491+         DC    (DDBLNG-4)X'0'                                           X0060000
002D38                             8492+DDT62    DS    0F                                                       X0054000
002D38 00002D5C                    8493+         DC    A(DDT63)                CHAIN WORD                       X0058000

002D3C 0000000000000000            8494+         DC    (DDBLNG-4)X'0'                                           X0060000
002D5C                             8495+DDT63    DS    0F                                                       X0054000
002D5C 00002D80                    8496+         DC    A(DDT64)                CHAIN WORD                       X0058000
002D60 0000000000000000            8497+         DC    (DDBLNG-4)X'0'                                           X0060000
002D80                             8498+DDT64    DS    0F                                                       X0054000

002D80 00002DA4                    8499+         DC    A(DDT65)                CHAIN WORD                       X0058000
002D84 0000000000000000            8500+         DC    (DDBLNG-4)X'0'                                           X0060000
002DA4                             8501+DDT65    DS    0F                                                       X0054000

002DA4 00002DC8                    8502+         DC    A(DDT66)                CHAIN WORD                       X0058000
002DA8 0000000000000000            8503+         DC    (DDBLNG-4)X'0'                                           X0060000
002DC8                             8504+DDT66    DS    0F                                                       X0054000
002DC8 00002DEC                    8505+         DC    A(DDT67)                CHAIN WORD                       X0058000
002DCC 0000000000000000            8506+         DC    (DDBLNG-4)X'0'                                           X0060000
002DEC                             8507+DDT67    DS    0F                                                       X0054000
002DEC 00002E10                    8508+         DC    A(DDT68)                CHAIN WORD                       X0058000

002DF0 0000000000000000            8509+         DC    (DDBLNG-4)X'0'                                           X0060000
002E10                             8510+DDT68    DS    0F                                                       X0054000
002E10 00002E34                    8511+         DC    A(DDT69)                CHAIN WORD                       X0058000
002E14 0000000000000000            8512+         DC    (DDBLNG-4)X'0'                                           X0060000
002E34                             8513+DDT69    DS    0F                                                       X0054000

002E34 00002E58                    8514+         DC    A(DDT70)                CHAIN WORD                       X0058000
002E38 0000000000000000            8515+         DC    (DDBLNG-4)X'0'                                           X0060000
002E58                             8516+DDT70    DS    0F                                                       X0054000
002E58 00002E7C                    8517+         DC    A(DDT71)                CHAIN WORD                       X0058000

002E5C 0000000000000000            8518+         DC    (DDBLNG-4)X'0'                                           X0060000
002E7C                             8519+DDT71    DS    0F                                                       X0054000
002E7C 00002EA0                    8520+         DC    A(DDT72)                CHAIN WORD                       X0058000
002E80 0000000000000000            8521+         DC    (DDBLNG-4)X'0'                                           X0060000
002EA0                             8522+DDT72    DS    0F                                                       X0054000
002EA0 00002EC4                    8523+         DC    A(DDT73)                CHAIN WORD                       X0058000

002EA4 0000000000000000            8524+         DC    (DDBLNG-4)X'0'                                           X0060000
002EC4                             8525+DDT73    DS    0F                                                       X0054000
002EC4 00002EE8                    8526+         DC    A(DDT74)                CHAIN WORD                       X0058000
XEQ      HASP DATA DEFINITION TABLES                                                                           PAGE  202


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


002EC8 0000000000000000            8527+         DC    (DDBLNG-4)X'0'                                           X0060000
002EE8                             8528+DDT74    DS    0F                                                       X0054000
002EE8 00002F0C                    8529+         DC    A(DDT75)                CHAIN WORD                       X0058000
002EEC 0000000000000000            8530+         DC    (DDBLNG-4)X'0'                                           X0060000
002F0C                             8531+DDT75    DS    0F                                                       X0054000

002F0C 00002F30                    8532+         DC    A(DDT76)                CHAIN WORD                       X0058000
002F10 0000000000000000            8533+         DC    (DDBLNG-4)X'0'                                           X0060000
002F30                             8534+DDT76    DS    0F                                                       X0054000
002F30 00002F54                    8535+         DC    A(DDT77)                CHAIN WORD                       X0058000
002F34 0000000000000000            8536+         DC    (DDBLNG-4)X'0'                                           X0060000

002F54                             8537+DDT77    DS    0F                                                       X0054000
002F54 00002F78                    8538+         DC    A(DDT78)                CHAIN WORD                       X0058000
002F58 0000000000000000            8539+         DC    (DDBLNG-4)X'0'                                           X0060000
002F78                             8540+DDT78    DS    0F                                                       X0054000
002F78 00002F9C                    8541+         DC    A(DDT79)                CHAIN WORD                       X0058000

002F7C 0000000000000000            8542+         DC    (DDBLNG-4)X'0'                                           X0060000
002F9C                             8543+DDT79    DS    0F                                                       X0054000
002F9C 00002FC0                    8544+         DC    A(DDT80)                CHAIN WORD                       X0058000
002FA0 0000000000000000            8545+         DC    (DDBLNG-4)X'0'                                           X0060000
002FC0                             8546+DDT80    DS    0F                                                       X0054000
002FC0 00002FE4                    8547+         DC    A(DDT81)                CHAIN WORD                       X0058000

002FC4 0000000000000000            8548+         DC    (DDBLNG-4)X'0'                                           X0060000
002FE4                             8549+DDT81    DS    0F                                                       X0054000
002FE4 00003008                    8550+         DC    A(DDT82)                CHAIN WORD                       X0058000
002FE8 0000000000000000            8551+         DC    (DDBLNG-4)X'0'                                           X0060000

003008                             8552+DDT82    DS    0F                                                       X0054000
003008 0000302C                    8553+         DC    A(DDT83)                CHAIN WORD                       X0058000
00300C 0000000000000000            8554+         DC    (DDBLNG-4)X'0'                                           X0060000
00302C                             8555+DDT83    DS    0F                                                       X0054000
00302C 00003050                    8556+         DC    A(DDT84)                CHAIN WORD                       X0058000

003030 0000000000000000            8557+         DC    (DDBLNG-4)X'0'                                           X0060000
003050                             8558+DDT84    DS    0F                                                       X0054000
003050 00003074                    8559+         DC    A(DDT85)                CHAIN WORD                       X0058000
003054 0000000000000000            8560+         DC    (DDBLNG-4)X'0'                                           X0060000
003074                             8561+DDT85    DS    0F                                                       X0054000
003074 00003098                    8562+         DC    A(DDT86)                CHAIN WORD                       X0058000

003078 0000000000000000            8563+         DC    (DDBLNG-4)X'0'                                           X0060000
003098                             8564+DDT86    DS    0F                                                       X0054000
003098 000030BC                    8565+         DC    A(DDT87)                CHAIN WORD                       X0058000
00309C 0000000000000000            8566+         DC    (DDBLNG-4)X'0'                                           X0060000

0030BC                             8567+DDT87    DS    0F                                                       X0054000
0030BC 000030E0                    8568+         DC    A(DDT88)                CHAIN WORD                       X0058000
0030C0 0000000000000000            8569+         DC    (DDBLNG-4)X'0'                                           X0060000
0030E0                             8570+DDT88    DS    0F                                                       X0054000
0030E0 00003104                    8571+         DC    A(DDT89)                CHAIN WORD                       X0058000

0030E4 0000000000000000            8572+         DC    (DDBLNG-4)X'0'                                           X0060000
003104                             8573+DDT89    DS    0F                                                       X0054000
003104 00003128                    8574+         DC    A(DDT90)                CHAIN WORD                       X0058000
003108 0000000000000000            8575+         DC    (DDBLNG-4)X'0'                                           X0060000
003128                             8576+DDT90    DS    0F                                                       X0054000
003128 0000314C                    8577+         DC    A(DDT91)                CHAIN WORD                       X0058000
00312C 0000000000000000            8578+         DC    (DDBLNG-4)X'0'                                           X0060000

00314C                             8579+DDT91    DS    0F                                                       X0054000
00314C 00003170                    8580+         DC    A(DDT92)                CHAIN WORD                       X0058000
003150 0000000000000000            8581+         DC    (DDBLNG-4)X'0'                                           X0060000

XEQ      HASP DATA DEFINITION TABLES                                                                           PAGE  203


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

003170                             8582+DDT92    DS    0F                                                       X0054000
003170 00003194                    8583+         DC    A(DDT93)                CHAIN WORD                       X0058000
003174 0000000000000000            8584+         DC    (DDBLNG-4)X'0'                                           X0060000

003194                             8585+DDT93    DS    0F                                                       X0054000
003194 000031B8                    8586+         DC    A(DDT94)                CHAIN WORD                       X0058000
003198 0000000000000000            8587+         DC    (DDBLNG-4)X'0'                                           X0060000
0031B8                             8588+DDT94    DS    0F                                                       X0054000
0031B8 000031DC                    8589+         DC    A(DDT95)                CHAIN WORD                       X0058000
0031BC 0000000000000000            8590+         DC    (DDBLNG-4)X'0'                                           X0060000
0031DC                             8591+DDT95    DS    0F                                                       X0054000
0031DC 00003200                    8592+         DC    A(DDT96)                CHAIN WORD                       X0058000

0031E0 0000000000000000            8593+         DC    (DDBLNG-4)X'0'                                           X0060000
003200                             8594+DDT96    DS    0F                                                       X0054000

003200 00000000                    8595+         DC    A(DDT97)                CHAIN WORD                       X0058000
003204 0000000000000000            8596+         DC    (DDBLNG-4)X'0'                                           X0060000
                            00000  8597+DDT97    EQU   0                                                        X0064000
XEQ      HASP DATA DEFINITION FREQUENCY TABLE                                                                  PAGE  204


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78


                                   8599 *        THE ONE BYTE TABLE ENTRIES GENERATED ARE INDEX VALUES          X9084000
                                   8600 *        CORRESPONDING TO AN ASSOCIATED DDT. THE ADDRESS OF A           X9086000
                                   8601 *        DDT IS CALCULATED BY...$DDTONE+DDBLNG*INDEX...                 X9088000
                                   8602 *        THE TABLE IS DYNAMICALLY ORDERED SUCH THAT THE MOST            X9090000
                                   8603 *        FREQUENTLY REFERENCED DDT IS LAST IN THE TABLE.                X9092000



                                   8605          $GENDDFT                                                       X9096000
003224                             8606+$DDTTABB DS    0C                  START OF TABLE AREA                  X0020000
003224 5F                          8607+         DC    AL1(95)                 INDEX TO CORRESPONDING DDT       X0022000

003225 5E                          8608+         DC    AL1(94)                 INDEX TO CORRESPONDING DDT       X0022000

003226 5D                          8609+         DC    AL1(93)                 INDEX TO CORRESPONDING DDT       X0022000
003227 5C                          8610+         DC    AL1(92)                 INDEX TO CORRESPONDING DDT       X0022000
003228 5B                          8611+         DC    AL1(91)                 INDEX TO CORRESPONDING DDT       X0022000
003229 5A                          8612+         DC    AL1(90)                 INDEX TO CORRESPONDING DDT       X0022000
00322A 59                          8613+         DC    AL1(89)                 INDEX TO CORRESPONDING DDT       X0022000

00322B 58                          8614+         DC    AL1(88)                 INDEX TO CORRESPONDING DDT       X0022000
00322C 57                          8615+         DC    AL1(87)                 INDEX TO CORRESPONDING DDT       X0022000
00322D 56                          8616+         DC    AL1(86)                 INDEX TO CORRESPONDING DDT       X0022000
00322E 55                          8617+         DC    AL1(85)                 INDEX TO CORRESPONDING DDT       X0022000
00322F 54                          8618+         DC    AL1(84)                 INDEX TO CORRESPONDING DDT       X0022000
003230 53                          8619+         DC    AL1(83)                 INDEX TO CORRESPONDING DDT       X0022000
003231 52                          8620+         DC    AL1(82)                 INDEX TO CORRESPONDING DDT       X0022000
003232 51                          8621+         DC    AL1(81)                 INDEX TO CORRESPONDING DDT       X0022000
003233 50                          8622+         DC    AL1(80)                 INDEX TO CORRESPONDING DDT       X0022000
003234 4F                          8623+         DC    AL1(79)                 INDEX TO CORRESPONDING DDT       X0022000

003235 4E                          8624+         DC    AL1(78)                 INDEX TO CORRESPONDING DDT       X0022000

003236 4D                          8625+         DC    AL1(77)                 INDEX TO CORRESPONDING DDT       X0022000
003237 4C                          8626+         DC    AL1(76)                 INDEX TO CORRESPONDING DDT       X0022000
003238 4B                          8627+         DC    AL1(75)                 INDEX TO CORRESPONDING DDT       X0022000
003239 4A                          8628+         DC    AL1(74)                 INDEX TO CORRESPONDING DDT       X0022000

00323A 49                          8629+         DC    AL1(73)                 INDEX TO CORRESPONDING DDT       X0022000
00323B 48                          8630+         DC    AL1(72)                 INDEX TO CORRESPONDING DDT       X0022000
00323C 47                          8631+         DC    AL1(71)                 INDEX TO CORRESPONDING DDT       X0022000
00323D 46                          8632+         DC    AL1(70)                 INDEX TO CORRESPONDING DDT       X0022000
00323E 45                          8633+         DC    AL1(69)                 INDEX TO CORRESPONDING DDT       X0022000
00323F 44                          8634+         DC    AL1(68)                 INDEX TO CORRESPONDING DDT       X0022000
003240 43                          8635+         DC    AL1(67)                 INDEX TO CORRESPONDING DDT       X0022000
003241 42                          8636+         DC    AL1(66)                 INDEX TO CORRESPONDING DDT       X0022000
003242 41                          8637+         DC    AL1(65)                 INDEX TO CORRESPONDING DDT       X0022000
003243 40                          8638+         DC    AL1(64)                 INDEX TO CORRESPONDING DDT       X0022000
003244 3F                          8639+         DC    AL1(63)                 INDEX TO CORRESPONDING DDT       X0022000

003245 3E                          8640+         DC    AL1(62)                 INDEX TO CORRESPONDING DDT       X0022000
003246 3D                          8641+         DC    AL1(61)                 INDEX TO CORRESPONDING DDT       X0022000
003247 3C                          8642+         DC    AL1(60)                 INDEX TO CORRESPONDING DDT       X0022000
003248 3B                          8643+         DC    AL1(59)                 INDEX TO CORRESPONDING DDT       X0022000

003249 3A                          8644+         DC    AL1(58)                 INDEX TO CORRESPONDING DDT       X0022000
00324A 39                          8645+         DC    AL1(57)                 INDEX TO CORRESPONDING DDT       X0022000
00324B 38                          8646+         DC    AL1(56)                 INDEX TO CORRESPONDING DDT       X0022000
00324C 37                          8647+         DC    AL1(55)                 INDEX TO CORRESPONDING DDT       X0022000
00324D 36                          8648+         DC    AL1(54)                 INDEX TO CORRESPONDING DDT       X0022000
00324E 35                          8649+         DC    AL1(53)                 INDEX TO CORRESPONDING DDT       X0022000
00324F 34                          8650+         DC    AL1(52)                 INDEX TO CORRESPONDING DDT       X0022000
003250 33                          8651+         DC    AL1(51)                 INDEX TO CORRESPONDING DDT       X0022000
XEQ      HASP DATA DEFINITION FREQUENCY TABLE                                                                  PAGE  205


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

003251 32                          8652+         DC    AL1(50)                 INDEX TO CORRESPONDING DDT       X0022000
003252 31                          8653+         DC    AL1(49)                 INDEX TO CORRESPONDING DDT       X0022000

003253 30                          8654+         DC    AL1(48)                 INDEX TO CORRESPONDING DDT       X0022000
003254 2F                          8655+         DC    AL1(47)                 INDEX TO CORRESPONDING DDT       X0022000
003255 2E                          8656+         DC    AL1(46)                 INDEX TO CORRESPONDING DDT       X0022000

003256 2D                          8657+         DC    AL1(45)                 INDEX TO CORRESPONDING DDT       X0022000
003257 2C                          8658+         DC    AL1(44)                 INDEX TO CORRESPONDING DDT       X0022000
003258 2B                          8659+         DC    AL1(43)                 INDEX TO CORRESPONDING DDT       X0022000
003259 2A                          8660+         DC    AL1(42)                 INDEX TO CORRESPONDING DDT       X0022000
00325A 29                          8661+         DC    AL1(41)                 INDEX TO CORRESPONDING DDT       X0022000
00325B 28                          8662+         DC    AL1(40)                 INDEX TO CORRESPONDING DDT       X0022000
00325C 27                          8663+         DC    AL1(39)                 INDEX TO CORRESPONDING DDT       X0022000
00325D 26                          8664+         DC    AL1(38)                 INDEX TO CORRESPONDING DDT       X0022000
00325E 25                          8665+         DC    AL1(37)                 INDEX TO CORRESPONDING DDT       X0022000
00325F 24                          8666+         DC    AL1(36)                 INDEX TO CORRESPONDING DDT       X0022000
003260 23                          8667+         DC    AL1(35)                 INDEX TO CORRESPONDING DDT       X0022000
003261 22                          8668+         DC    AL1(34)                 INDEX TO CORRESPONDING DDT       X0022000

003262 21                          8669+         DC    AL1(33)                 INDEX TO CORRESPONDING DDT       X0022000

003263 20                          8670+         DC    AL1(32)                 INDEX TO CORRESPONDING DDT       X0022000
003264 1F                          8671+         DC    AL1(31)                 INDEX TO CORRESPONDING DDT       X0022000

003265 1E                          8672+         DC    AL1(30)                 INDEX TO CORRESPONDING DDT       X0022000
003266 1D                          8673+         DC    AL1(29)                 INDEX TO CORRESPONDING DDT       X0022000
003267 1C                          8674+         DC    AL1(28)                 INDEX TO CORRESPONDING DDT       X0022000
003268 1B                          8675+         DC    AL1(27)                 INDEX TO CORRESPONDING DDT       X0022000
003269 1A                          8676+         DC    AL1(26)                 INDEX TO CORRESPONDING DDT       X0022000
00326A 19                          8677+         DC    AL1(25)                 INDEX TO CORRESPONDING DDT       X0022000
00326B 18                          8678+         DC    AL1(24)                 INDEX TO CORRESPONDING DDT       X0022000
00326C 17                          8679+         DC    AL1(23)                 INDEX TO CORRESPONDING DDT       X0022000
00326D 16                          8680+         DC    AL1(22)                 INDEX TO CORRESPONDING DDT       X0022000
00326E 15                          8681+         DC    AL1(21)                 INDEX TO CORRESPONDING DDT       X0022000
00326F 14                          8682+         DC    AL1(20)                 INDEX TO CORRESPONDING DDT       X0022000
003270 13                          8683+         DC    AL1(19)                 INDEX TO CORRESPONDING DDT       X0022000

003271 12                          8684+         DC    AL1(18)                 INDEX TO CORRESPONDING DDT       X0022000
003272 11                          8685+         DC    AL1(17)                 INDEX TO CORRESPONDING DDT       X0022000

003273 10                          8686+         DC    AL1(16)                 INDEX TO CORRESPONDING DDT       X0022000

003274 0F                          8687+         DC    AL1(15)                 INDEX TO CORRESPONDING DDT       X0022000
003275 0E                          8688+         DC    AL1(14)                 INDEX TO CORRESPONDING DDT       X0022000
003276 0D                          8689+         DC    AL1(13)                 INDEX TO CORRESPONDING DDT       X0022000
003277 0C                          8690+         DC    AL1(12)                 INDEX TO CORRESPONDING DDT       X0022000
003278 0B                          8691+         DC    AL1(11)                 INDEX TO CORRESPONDING DDT       X0022000
003279 0A                          8692+         DC    AL1(10)                 INDEX TO CORRESPONDING DDT       X0022000
00327A 09                          8693+         DC    AL1(9)                  INDEX TO CORRESPONDING DDT       X0022000
00327B 08                          8694+         DC    AL1(8)                  INDEX TO CORRESPONDING DDT       X0022000
00327C 07                          8695+         DC    AL1(7)                  INDEX TO CORRESPONDING DDT       X0022000
00327D 06                          8696+         DC    AL1(6)                  INDEX TO CORRESPONDING DDT       X0022000
00327E 05                          8697+         DC    AL1(5)                  INDEX TO CORRESPONDING DDT       X0022000
00327F 04                          8698+         DC    AL1(4)                  INDEX TO CORRESPONDING DDT       X0022000

003280 03                          8699+         DC    AL1(3)                  INDEX TO CORRESPONDING DDT       X0022000
003281 02                          8700+         DC    AL1(2)                  INDEX TO CORRESPONDING DDT       X0022000
003282 01                          8701+         DC    AL1(1)                  INDEX TO CORRESPONDING DDT       X0022000

003283 00                          8702+$DDTTABE DC    AL1(0)              END OF TABLE                         X0028000
XEQ      HASP PARTITION INFORMATION TABLES                                                                     PAGE  206


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78

                                   8704 *                                                                       X9100000
                                   8705 *              PARTITION INFORMATION TABLES -  P I T                    X9102000
                                   8706 *                                                                       X9104000



                                   8708          $GENPIT              GENERATE PARTITION INFORMATION TABLES     X9108000
003284                             8709+$PITABLE DS    0F             START OF PARTITION INFORMATION TABLES     X0086000



003284                             8711+         DS    0F                                                       X0092000
003284 00                          8712+         DC    AL1(1/3*PITLAST)                                         X0094000

003285 C1                          8713+         DC    CL1'A'                                                   X0096000
003286 F140                        8714+         DC    CL2'1'                                                   X0098000
003288 0000                        8715+         DC    AL2(0)                                                   X0100000
00328A F740                        8716+         DC    CL2'7'                                                   X0102000

00328C D9C1F94040404040            8717+         DC    CL8'RA9',C' '                                            X0110000



003298                             8719+         DS    0F                                                       X0092000
003298 00                          8720+         DC    AL1(2/3*PITLAST)                                         X0094000
003299 C2                          8721+         DC    CL1'B'                                                   X0096000
00329A F240                        8722+         DC    CL2'2'                                                   X0098000

00329C 0000                        8723+         DC    AL2(0)                                                   X0100000
00329E F740                        8724+         DC    CL2'7'                                                   X0102000
0032A0 D9C1F94040404040            8725+         DC    CL8'RA9',C' '                                            X0110000



0032AC                             8727+         DS    0F                                                       X0092000
0032AC 01                          8728+         DC    AL1(3/3*PITLAST)                                         X0094000
0032AD C3                          8729+         DC    CL1'C'                                                   X0096000
0032AE F340                        8730+         DC    CL2'3'                                                   X0098000

0032B0 0000                        8731+         DC    AL2(0)                                                   X0100000
0032B2 F740                        8732+         DC    CL2'7'                                                   X0102000

0032B4 D9C1F94040404040            8733+         DC    CL8'RA9',C' '                                            X0110000








                                   8736 $DLENGTH $DLENGTH                  COMPUTE CONTROL SECTION LENGTH       X9114000
XEQ      HASPXEQ CONTROL SECTION LENGTH                                                                        PAGE  207


  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 20.02 08/28/78












0032C0                             8739+         DS    0D                  FILL OUT CONTROL SECTION             DN016000
                            032C0  8740+$L       EQU   *-HASPXEQ                                                DN018000

                            00000  8741+$L1      EQU   $L/100000*100000              COMPUTE                    DN020000
                            02710  8742+$L2      EQU   ($L-$L1)/10000*10000            INTERMEDIATE             DN022000
                            007D0  8743+$L3      EQU   ($L-$L1-$L2)/1000*1000            LENGTH                 DN024000

                            00384  8744+$L4      EQU   ($L-$L1-$L2-$L3)/100*100            VALUES               DN026000
                            0005A  8745+$L5      EQU   ($L-$L1-$L2-$L3-$L4)/10*10                               DN028000
                            00002  8746+$L6      EQU   $L-$L1-$L2-$L3-$L4-$L5                                   DN030000





                                   8748+*                                                                       DN034000
                                   8749+*                                  DECIMAL LENGTH                       DN036000

                                   8750+*                                                                       DN038000



                            12992  8752+$DLENGTH EQU   $L1/100000*1048576+$L2/10000*65536+$L3/1000*4096+$L4/100CDN042000
                                       +               *256+$L5/10*16+$L6                                       DN044000






                                   8754          END                                                            X9116000
XEQ                                               RELOCATION DICTIONARY                                        PAGE  208


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78


 0001     0001      08     000669
 0001     0001      08     000705
 0001     0001      0C     000854
 0001     0001      0C     00085C
 0001     0001      0C     000860
 0001     0001      0C     000988

 0001     0001      0C     000998
 0001     0001      0C     0009A4
 0001     0001      0C     000F78
 0001     0001      0C     001554
 0001     0001      0C     001750

 0001     0001      0C     001770
 0001     0001      0C     00178C
 0001     0001      0C     001790
 0001     0001      0C     0020F0

 0001     0001      0C     0020F4
 0001     0001      0C     0023B0
 0001     0001      0C     0024A0
 0001     0001      0C     0024A4
 0001     0001      0C     0024C8
 0001     0001      0C     0024EC

 0001     0001      0C     002510
 0001     0001      0C     002534
 0001     0001      0C     002558
 0001     0001      0C     00257C
 0001     0001      0C     0025A0

 0001     0001      0C     0025C4
 0001     0001      0C     0025E8
 0001     0001      0C     00260C
 0001     0001      0C     002630
 0001     0001      0C     002654

 0001     0001      0C     002678
 0001     0001      0C     00269C
 0001     0001      0C     0026C0
 0001     0001      0C     0026E4
 0001     0001      0C     002708

 0001     0001      0C     00272C
 0001     0001      0C     002750
 0001     0001      0C     002774
 0001     0001      0C     002798
 0001     0001      0C     0027BC

 0001     0001      0C     0027E0
 0001     0001      0C     002804
 0001     0001      0C     002828
 0001     0001      0C     00284C
 0001     0001      0C     002870
 0001     0001      0C     002894

 0001     0001      0C     0028B8
 0001     0001      0C     0028DC
 0001     0001      0C     002900
 0001     0001      0C     002924

 0001     0001      0C     002948
 0001     0001      0C     00296C
 0001     0001      0C     002990
 0001     0001      0C     0029B4
XEQ                                               RELOCATION DICTIONARY                                        PAGE  209



POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78

 0001     0001      0C     0029D8
 0001     0001      0C     0029FC
 0001     0001      0C     002A20
 0001     0001      0C     002A44
 0001     0001      0C     002A68
 0001     0001      0C     002A8C

 0001     0001      0C     002AB0
 0001     0001      0C     002AD4
 0001     0001      0C     002AF8

 0001     0001      0C     002B1C
 0001     0001      0C     002B40
 0001     0001      0C     002B64
 0001     0001      0C     002B88
 0001     0001      0C     002BAC

 0001     0001      0C     002BD0
 0001     0001      0C     002BF4
 0001     0001      0C     002C18
 0001     0001      0C     002C3C
 0001     0001      0C     002C60
 0001     0001      0C     002C84
 0001     0001      0C     002CA8
 0001     0001      0C     002CCC

 0001     0001      0C     002CF0
 0001     0001      0C     002D14

 0001     0001      0C     002D38
 0001     0001      0C     002D5C
 0001     0001      0C     002D80
 0001     0001      0C     002DA4
 0001     0001      0C     002DC8

 0001     0001      0C     002DEC
 0001     0001      0C     002E10
 0001     0001      0C     002E34
 0001     0001      0C     002E58
 0001     0001      0C     002E7C
 0001     0001      0C     002EA0
 0001     0001      0C     002EC4
 0001     0001      0C     002EE8
 0001     0001      0C     002F0C

 0001     0001      0C     002F30

 0001     0001      0C     002F54
 0001     0001      0C     002F78
 0001     0001      0C     002F9C
 0001     0001      0C     002FC0
 0001     0001      0C     002FE4

 0001     0001      0C     003008
 0001     0001      0C     00302C
 0001     0001      0C     003050
 0001     0001      0C     003074
 0001     0001      0C     003098
 0001     0001      0C     0030BC
 0001     0001      0C     0030E0
 0001     0001      0C     003104
 0001     0001      0C     003128
 0001     0001      0C     00314C

 0001     0001      0C     003170

XEQ                                               RELOCATION DICTIONARY                                        PAGE  210


POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 20.02 08/28/78

 0001     0001      0C     003194
 0001     0001      0C     0031B8

 0001     0001      0C     0031DC
 0001     0002      24     000002
 0001     0003      24     000518
 0001     000A      1C     00098C
 0001     000A      1C     002494
 0001     000B      1C     000990
 0001     000C      1C     000994
 0001     000C      1C     001794
 0001     000C      1C     002490
 0001     000D      1C     00099C
 0001     000D      1C     001788

 0001     000D      1C     00248C
 0001     000E      1C     0009B0
 0001     000E      1C     001768
 0001     000F      1C     000AE8

 0001     0010      1C     000F74
 0001     0010      1C     001838
 0001     0011      1C     001760
 0001     0012      1C     00176C
 0001     0013      1C     001774
 0001     0013      1C     001980
 0001     0013      1C     002404
 0001     0014      1C     001798
 0001     0015      24     00247E
 0001     0017      1C     002488
 0001     0018      1C     002498
 0001     0019      1C     00249C

 0004     0004      0C     0032C4
 0004     0005      24     0033AC
 0006     0002      24     003624

 0006     0006      0C     003414
 0006     0007      24     003570
 0008     0008      0C     003634
 0009     0009      0C     00380C
 0016     0016      0C     0039D4

XEQ                                               CROSS-REFERENCE                                              PAGE  211


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$ACTION  00001 00000050 00523  04472 04900
$ACTIVE  00001 000000C7 00814  04574 04576 04969 04971 05153 05155
$ALWAYS  00001 00000070 00524  03884 04174
$BUFWCNT 00001 00000690 04228  04201 04203 04214 04216 04341

$CURPCE  00001 000000C3 00810  05332 05812 05851 05874 05891

$CVTPTR  00001 00000010 01435  06335
$DDBPOOL 00004 00001554 06325  05181 06311 06315

$DDTONE  00004 000024A4 08308  04426 06325
$DDTTABB 00001 00003224 08606  04423
$DDTTABE 00001 00003283 08702  04425
$DISALL  00001 000000C9 00816  04121 04768 04819 06505 08156
$DISTERR 00004 000000BC 00805  04950
$ENBALL  00001 000000C8 00815  04126 04771 04822 08164
$ERROR   00004 000000B8 00804  03577
$EWBBUF  00001 00000000 00483  03797 03861 04321 04382 04599 04673
$EWBCKPT 00001 00000000 00487  04033 04745
$EWBCMB  00001 00000000 00488  04857 04903 04933
$EWBDDB  00001 00000001 00496  03754 04131 04780 04825 05362
$EWBHOLD 00001 00000001 00495  05835

$EWBIO   00001 00000001 00493  03925 04053 04609 04635 04680 04694 04733 05306
$EWBJOB  00001 00000000 00485  04546

$EWBUNIT 00001 00000000 00486  04587

$EWBWORK 00001 00000001 00494  03540 03905 04030 04070 04292 04379 04525 04742 04809 05146 06329 06436 07194 08120 08163
                               08258 08272
$EWFBUF  00001 00000040 00460  03797 03861 04299 04321 04382 04599 04673
$EWFCKPT 00001 00000004 00464  04033 04745
$EWFCMB  00001 00000002 00465  04857 04903 04933
$EWFDDB  00001 00000008 00473  03754 04131 04780 04825 05362 08272
$EWFHOLD 00001 00000010 00472  05835
$EWFIO   00001 00000040 00470  04053 04635 04694 04733 05306
$EWFJOB  00001 00000010 00462  04546 05143 05828 05898
$EWFPOST 00001 00000080 00459  03906 04031 04071 04132 04293 04380 04383 04743 04810 05147 05307 05363 05836 06330 06437
                               07195 08259 08273
$EWFUNIT 00001 00000008 00463  04587 05312

$EWFWORK 00001 00000020 00471  03540 03905 04030 04070 04292 04379 04525 04742 04809 05146 06329 06436 07194 08120 08163
                               08258 08272
$EXCP    00004 0000006C 00770  04048 04200 04260 04615 04687 04728 05094 05107

$EXCPSVC 00002 000009C0 05192  00251
$EXITNOP 00002 0000002C 00735  00730 00731
$FREEBUF 00004 0000003C 00746  04147 04154 04225 04274 04954 04999 05022 05030
$FREEMSG 00004 0000009C 00788  08198
$FREUNIT 00004 00000044 00751  04960 05119
$GETBUF  00004 00000034 00744  03618 03794 03858 04335 04596 04670
$GETUNIT 00004 00000040 00750  04579
$HASPECB 00004 000000D8 00824  06338 07198
$HASPECF 00001 000000C4 00811  03906 04031 04071 04132 04293 04299 04380 04383 04743 04810 05143 05147 05307 05312 05363
                               05828 05836 05898 06330 06437 07195 08259 08273
$HASPTCB 00004 000000D4 00823  06337
$IOERROR 00004 000000B4 00803  04168 04221 04945

$IOTTEST 00001 00000722 03434  03435
$JCTTEST 00001 000005D0 01385  01386
$JOBQPTR 00004 0000013C 00863  04640 05076
$JQENT   00004 00000144 00865  05134

$L       00001 000032C0 08740  08741 08742 08743 08744 08745 08746
$LOG     00001 00000001 00506  03749 03770 03884 04174 04472 04854 04900 04929
XEQ                                               CROSS-REFERENCE                                              PAGE  212


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

$LOGQUE  00004 00000110 00839  08157 08180
$L1      00001 00000000 08741  08742 08743 08744 08745 08746 08752

$L2      00001 00002710 08742  08743 08744 08745 08746 08752
$L3      00001 000007D0 08743  08744 08745 08746 08752
$L4      00001 00000384 08744  08745 08746 08752
$L5      00001 0000005A 08745  08746 08752
$L6      00001 00000002 08746  08752
$MAIN    00001 00000020 00511  03749 03770 03884 04174 04472 04854 04900 04929
$NORMAL  00001 00000030 00522  03749 04854 04929
$NUCTABL 00004 0000012C 00849  00854

$NUCTBLE 00004 0000015C 00878  00882
$OLINK   00004 0000008C 00781  03530 04084 08143

$ORET    00004 00000088 00780  04870 05158
$OUTPUT  00001 00000004 01244  05043
$OUTXS   00001 000007D0 00261  05183
$OXCTL   00004 00000090 00782  04620 04754 04978
$PITABLE 00004 00003284 08709  00257 05184
$PURGE   00001 00000000 01247  04951
$PURGER  00004 00000068 00766  05018 05046
$QADD    00004 00000048 00755  05073

$QGET    00004 0000004C 00756  04568
$QPUT    00004 00000050 00757  04966 05128
$QREM    00004 00000054 00758  05061
$RDRDDB  00004 00000B6C 05377  04802 05806 05818 06084 06084 06410
$RDRPCE  00004 00000B68 05376  04564 04800 04801 05375 05809 05824 05825 06413 07975

$RDRPEND 00001 00000080 00557  05817 05826 06085
$RDRUNIT 00003 00000B64 05374  04795 05326 06080
$SAVEBEG 00004 0000013C 00862  00871

$SAVEEND 00001 0000015C 00870  00871
$ST      00001 00000004 00532  03749 03770 03884 04174 04472 04854 04900 04929
$STATENT 00004 0000012C 00850  06479 06539
$STATUS  00001 000000C2 00809  05817 05822 05826 06085
$SYSEXIT 00001 00000004 00562  05822
$TRACK   00004 00000064 00765  03642 03704 03817 03962 03999 04709 04719
$TRIVIA  00001 00000010 00521  03770

$WAIT    00004 00000030 00740  03541 03755 03798 03862 04034 04054 04322 04526 04547 04588 04600 04636 04674 04695 04734
                               04746 04781 04826 04858 04904 04934 08121 08165
$WTO     00004 00000098 00787  03748 03769 03883 04173 04471 04853 04899 04928
$WTRDDB  00004 00000F6C 05781  05768 05854 05896
$WTRPCE  00004 00000F68 05780  05847 05895 06393 06396

$WTRUNIT 00003 00000F64 05779  05329 05674 05766 06174
$XEQACT  00001 000000C6 00813  04864 04866 04992 04994
$XSMFENT 00004 00000134 00852  05235

$XWTREND 00002 000015EC 06387  00254
BASE1    00001 0000000B 00433  00718 05207 05242 06390 06665
BASE2    00001 0000000C 00434  03524 05204 05205 05242 06389 06578 06661 06662 08015 08016 08086 08136 08190 08192 08194
BASE3    00001 00000008 00431  04518 04629 04708 04718 04764 04885 04914 04944 04949 04959 04965 04991 05060 05072 05118
                               05127 05172 08153 08294
BUFDCT   00004 0000002C 00994  04288
BUFDDB   00004 00000034 00997  04253 04290

BUFDSECT 00001 00000000 00968  01278 03405 03687 03865 03866 04049 04100 04165 04191 04217 04253 04288 04290 04305 04311
                               04312 04368 04400 04518 04629 04631 04690 04729 04764 04885 04914 04991 05188 05200 05782
                               05790 06050 07078 07977 08153 08293
BUFECBCC 00001 00000028 00991  04049 04631 04690 04729
BUFSTART 00008 00000058 01007  01014 01020 01278 03405 03866 03867 04303 05790 06051 06052 06067 07079 07081 07977 08293

XEQ                                               CROSS-REFERENCE                                              PAGE  213


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

CMBCHAIN 00004 00000000 01033  08180
CMBCONS  00001 00000005 01035  08204

CMBDSECT 00001 00000000 01032  01050 01051 01052 08158
CMBFLAGS 00001 00000004 01034  01050 08171 08182
CMBJOBNO 00009 00000012 01043  08175 08175
CMBMSG   00132 00000008 01039  01052 08184 08186 08188 08243 08247 08249
CMBMSGL  00001 00000006 01036  01051 08234
CMBTEXT  00113 0000001B 01044  08254

CVTCRTTR 00003 000000B8 01538  01551
CVTDSECT 00001 00000000 01436  06336 06485
CVTPTR   00001 00000010 01444  06484
CVTTCBP  00004 00000000 01451  06485
CVTUSER  00004 000000CC 01562  01563

CVTXTNT1 00001 00000114 01642  01615
CVT0PT01 00004 00000098 01511  06336
DARTSCR1 00004 00000980 05174  03648 03649 03669 03670 03720 03721 03810 03811 03966 03967
DARTSCR2 00004 00000E18 05664  05570 05571 05734 05735 06292 06293 06462 06463
DARTSCR3 00004 00001754 06546  06518 06519 06531 06532

DCBBIT0  00001 00000080 01719  01840 01856 01895 01913 01958 01968 01984 02025 02035 02047 02070 02101 02104 02106 02108
                               02131 02134 02154 02159 02178 02215 02268 02291 02323 02327 02340 02435 02438 02448
DCBBIT1  00001 00000040 01720  01841 01857 01914 01922 01958 01968 01986 02026 02036 02049 02071 02073 02083 02101 02104
                               02107 02108 02136 02154 02157 02159 02181 02182 02183 02218 02219 02268 02293 02329 02331
                               02343 02387 02435 02440 02449

DCBBIT2  00001 00000020 01721  01842 01858 01915 01924 01968 01987 02027 02037 02050 02052 02053 02071 02073 02078 02084
                               02101 02103 02110 02138 02161 02163 02186 02187 02188 02222 02223 02270 02296 02332 02348
                               02390 02394 02435 02450
DCBBIT3  00001 00000010 01722  01806 01843 01859 01929 01971 01988 02028 02050 02053 02055 02071 02086 02111 02141 02161
                               02165 02190 02191 02192 02226 02227 02270 02298 02300 02302 02334 02349 02390 02395 02435

DCBBIT4  00001 00000008 01723  01807 01860 01930 01974 01989 02029 02038 02087 02112 02142 02167 02173 02174 02195 02196
                               02230 02231 02233 02234 02272 02305 02350 02390 02396
DCBBIT5  00001 00000004 01724  01809 01861 01932 01975 01989 02030 02039 02088 02115 02117 02144 02167 02170 02171 02174
                               02199 02201 02202 02203 02237 02238 02239 02240 02272 02307 02310 02336 02352 02385
DCBBIT6  00001 00000002 01725  01811 01844 01862 01934 01976 01993 02031 02089 02091 02094 02115 02118 02145 02206 02207
                               02208 02209 02243 02244 02245 02246 02313 02354

DCBBIT7  00001 00000001 01726  01813 01845 01938 01978 01994 02032 02089 02092 02094 02120 02149 02211 02212 02249 02250
                               02252 02253 02338 02355 02397
DCBDSECT 00001 00000000 02458  05201 05677
DCBFDAD  00008 00000005 01740  01743

DCBIFLGS 00001 0000002C 02267  05215
DCBSSID  00008 00000000 01947  01950
DCBTIOT  00002 00000028 02260  05677
DCBWTOID 00004 00000000 01867  01882 01891
DCTBUFAD 00004 00000004 01076  04044 04194 04256 04257 04258 04612 04683 04725 05090 05104

DCTCHAIN 00004 00000014 01090  05263
DCTDA    00001 00000000 01146  04578
DCTDRAIN 00001 00000040 01128  05276
DCTDSECT 00001 00000000 01073  03924 04190 04237 04289 04608 05081 05258
DCTEND   00001 00000098 01121  05273
DCTEWF   00004 0000000C 01082  03926 04192 04255 04610 04681 05084
DCTHOLD  00001 00000020 01129  05276

DCTINUSE 00001 00000080 01127  05278
DCTIOTYP 00001 00000013 01087  03927 04197 04254 04611 04682 04726 05082
DCTPCE   00004 00000000 01075  04289 05272

DCTREAD  00001 00000080 01161  04254 04611 04682
DCTSEEK  00004 00000008 01079  04019 04193 04252 04613 04684 04723 05089 05103
XEQ                                               CROSS-REFERENCE                                              PAGE  214


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

DCTSTAT  00001 00000000 01074  05276 05278

DCTWRITE 00001 00000040 01162  03927 04197 04726 05082
DDBCHAIN 00004 00000000 01398  01413 03781 03912 04109 04113 04114 04116 04118 04118 04122 04124 04124 04124 05347 05351
                               05419 05422 05431 05601 05628 05630 05708 05710 05912 06106 06305 06308 06315 06317 06320
                               07404 08222
DDBCOUNT 00002 0000001C 01409  04447 04449 04449 06161 06162 08244 08246 08264
DDBDDNR  00004 00000014 01407  03655 05425 05435 05590 05592 05594 05605 05713 05764 07409
DDBDSECT 00001 00000000 01397  03523 04113 04114 04116 04118 04354 04429 04881 05347 05348 05419 05605 05628 05708 06014
                               06305 06306 06319 06321 06324 07401 07404 07408 07409 08216

DDBEND   00001 00000024 01412  01413 04124 05913 06107 06314
DDBLNG   00001 00000024 01413  03570 04427 05427 05434 08311 08314 08317 08320 08323 08326 08329 08332 08335 08338 08341

                               08344 08347 08350 08353 08356 08359 08362 08365 08368 08371 08374 08377 08380 08383 08386
                               08389 08392 08395 08398 08401 08404 08407 08410 08413 08416 08419 08422 08425 08428 08431
                               08434 08437 08440 08443 08446 08449 08452 08455 08458 08461 08464 08467 08470 08473 08476
                               08479 08482 08485 08488 08491 08494 08497 08500 08503 08506 08509 08512 08515 08518 08521
                               08524 08527 08530 08533 08536 08539 08542 08545 08548 08551 08554 08557 08560 08563 08566

                               08569 08572 08575 08578 08581 08584 08587 08590 08593 08596
DDBPBUF  00004 0000000C 01405  03600 03636 03650 03687 03688 03696 03706 04094 04152 04162 04243 04269 04367 04368 04405
                               04838 05763 05923 05996 05997 06094 06114 06184 08228
DDBPCE   00004 00000020 01411  04375 04377 06321
DDBSBUF  00004 00000010 01406  03620 04145 04164 04248 04278 04396 05997 05998 06017 07401 07408
DDBSTAT1 00001 00000008 01401  01402
DDBSTAT2 00001 00000009 01403  03557 03559 03599 03634 03685 03710 03712 03732 03734 03780 03911 04097 04160 04295 04297
                               04308 04309 04355 04373 04411 04797 05356 05358 05988 06002 06086 06218 08231 08256 08265
                               08270

DDBTTR   00004 00000018 01408  04238 04310 04311 04400 04791 06018

DDBTYPE  00001 00000004 01399  03588 03778 03901 04092 04360 04437 04440 04786 04831 05354 05635 05770 06016 06169 08220
DDBUFPTR 00002 0000000A 01404  03690 03697 04102 04104 04364 04796 04833 05922 05961 05985 06000 06022 06093 06113 06165
                               08229 08238 08262
DDBUNIT  00003 00000005 01400  04795 04832 05633 05715 05765 06080 06174
DDT10    00004 000025E8 08336  08334

DDT11    00004 0000260C 08339  08337
DDT12    00004 00002630 08342  08340
DDT13    00004 00002654 08345  08343
DDT14    00004 00002678 08348  08346
DDT15    00004 0000269C 08351  08349
DDT16    00004 000026C0 08354  08352
DDT17    00004 000026E4 08357  08355
DDT18    00004 00002708 08360  08358
DDT19    00004 0000272C 08363  08361
DDT2     00004 000024C8 08312  08310

DDT20    00004 00002750 08366  08364

DDT21    00004 00002774 08369  08367
DDT22    00004 00002798 08372  08370
DDT23    00004 000027BC 08375  08373
DDT24    00004 000027E0 08378  08376

DDT25    00004 00002804 08381  08379
DDT26    00004 00002828 08384  08382
DDT27    00004 0000284C 08387  08385
DDT28    00004 00002870 08390  08388
DDT29    00004 00002894 08393  08391
DDT3     00004 000024EC 08315  08313
DDT30    00004 000028B8 08396  08394
DDT31    00004 000028DC 08399  08397
DDT32    00004 00002900 08402  08400
XEQ                                               CROSS-REFERENCE                                              PAGE  215


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


DDT33    00004 00002924 08405  08403
DDT34    00004 00002948 08408  08406
DDT35    00004 0000296C 08411  08409
DDT36    00004 00002990 08414  08412

DDT37    00004 000029B4 08417  08415
DDT38    00004 000029D8 08420  08418
DDT39    00004 000029FC 08423  08421
DDT4     00004 00002510 08318  08316
DDT40    00004 00002A20 08426  08424
DDT41    00004 00002A44 08429  08427
DDT42    00004 00002A68 08432  08430
DDT43    00004 00002A8C 08435  08433
DDT44    00004 00002AB0 08438  08436
DDT45    00004 00002AD4 08441  08439
DDT46    00004 00002AF8 08444  08442
DDT47    00004 00002B1C 08447  08445

DDT48    00004 00002B40 08450  08448
DDT49    00004 00002B64 08453  08451
DDT5     00004 00002534 08321  08319

DDT50    00004 00002B88 08456  08454
DDT51    00004 00002BAC 08459  08457
DDT52    00004 00002BD0 08462  08460
DDT53    00004 00002BF4 08465  08463
DDT54    00004 00002C18 08468  08466
DDT55    00004 00002C3C 08471  08469
DDT56    00004 00002C60 08474  08472
DDT57    00004 00002C84 08477  08475
DDT58    00004 00002CA8 08480  08478
DDT59    00004 00002CCC 08483  08481
DDT6     00004 00002558 08324  08322
DDT60    00004 00002CF0 08486  08484

DDT61    00004 00002D14 08489  08487

DDT62    00004 00002D38 08492  08490
DDT63    00004 00002D5C 08495  08493

DDT64    00004 00002D80 08498  08496
DDT65    00004 00002DA4 08501  08499
DDT66    00004 00002DC8 08504  08502
DDT67    00004 00002DEC 08507  08505
DDT68    00004 00002E10 08510  08508
DDT69    00004 00002E34 08513  08511
DDT7     00004 0000257C 08327  08325
DDT70    00004 00002E58 08516  08514
DDT71    00004 00002E7C 08519  08517
DDT72    00004 00002EA0 08522  08520
DDT73    00004 00002EC4 08525  08523
DDT74    00004 00002EE8 08528  08526

DDT75    00004 00002F0C 08531  08529
DDT76    00004 00002F30 08534  08532

DDT77    00004 00002F54 08537  08535

DDT78    00004 00002F78 08540  08538
DDT79    00004 00002F9C 08543  08541
DDT8     00004 000025A0 08330  08328
DDT80    00004 00002FC0 08546  08544
DDT81    00004 00002FE4 08549  08547
DDT82    00004 00003008 08552  08550
XEQ                                               CROSS-REFERENCE                                              PAGE  216


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

DDT83    00004 0000302C 08555  08553
DDT84    00004 00003050 08558  08556
DDT85    00004 00003074 08561  08559
DDT86    00004 00003098 08564  08562

DDT87    00004 000030BC 08567  08565
DDT88    00004 000030E0 08570  08568
DDT89    00004 00003104 08573  08571

DDT9     00004 000025C4 08333  08331
DDT90    00004 00003128 08576  08574
DDT91    00004 0000314C 08579  08577
DDT92    00004 00003170 08582  08580
DDT93    00004 00003194 08585  08583
DDT94    00004 000031B8 08588  08586
DDT95    00004 000031DC 08591  08589
DDT96    00004 00003200 08594  08592
DDT97    00001 00000000 08597  08595
E        00001 00000008 00447  07614
HA$IXEOJ 00001 00003814 04986  04987
HA$IXJI1 00001 000032CC 04513  04514

HA$IXJI2 00001 0000341C 04624  04625
HA$IXJI3 00001 0000363C 04759  04760
HA$IXLOG 00001 000039D8 08148  08149
HA$OXEOJ 00001 00003808 04985  04986 04989

HA$OXJI1 00001 000032C0 04512  04513 04516 04618 04884
HA$OXJI2 00001 00003410 04623  04624 04627 04752 04913 04976
HA$OXJI3 00001 00003630 04758  04759 04762
HA$OXLOG 00001 000039D0 08147  08148 08151
HA$QXEOJ 00001 00000000 04081  04083
HA$QXJI1 00001 00000000 03527  03529 04975 04977

HA$QXJI2 00001 00000000 04617  04619
HA$QXJI3 00001 00000000 04751  04753
HA$QXLOG 00001 00000000 08140  08142
HASPLOG  00002 0000247C 08138  00256
HASPXEQ  00001 00000000 00245  00898 00932 01022 01046 01122 01387 01414 01652 01698 01705 02460 02486 03321 03372 03390
                               03436 03478 03524 03528 04082 04085 05173 06596 07656 08141 08295 08740
HASPXJI1 00004 000032C8 04517  04885
HASPXJI2 00004 00003418 04628  04914

HASPXLOG 00004 000039D8 08152  08166 08195 08199 08266
HASPXTHW 00002 00002408 08085  00255 08122
HCTDSECT 00001 00000000 00716  00718
HDBDSKEY 00004 0000005C 01011  04196 04303
HDBNXTRK 00004 00000058 01009  03687 03687 04100 04193 04195 04311 04312 04368 04400
HDBSTART 00004 00000060 01013  05188 05782
IEFLCTAD 00004 0000000C 05391  05392
IHADCB   00001 00000000 01717  01765 01789 01817 01836 01866 01946 02007 02058 02127 02259 02276 02280 02286 02375 02381
                               02405 02426 02458
IOBCSW   00007 00000009 00976  05233 05233 05288 05300 05863 05904 05941 05945 05955 06164 06225 06229 06233 06235 06287
                               06289 06293 06294 06458 06463
IOBDCBPT 00004 00000014 00979  05214 05238 05676

IOBECBCC 00001 00000004 00973  04165 04217 04305 05217 06296 06298 06459 06466 06468
IOBFLAG1 00001 00000000 00969  05225 05246 05661 06469
IOBRESTR 00004 00000018 00981  05212 05232 06227 06237

IOBSTART 00004 00000010 00978  05232
IOTCYMAP 00100 00000070 03413  05017

IOTCYMXM 00004 00000068 03411  03641 03703 03816 03961 03998 04706 04716
XEQ                                               CROSS-REFERENCE                                              PAGE  217


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

IOTDSECT 00001 00000000 03404  03639 03656 03701 03801 03808 03814 03823 03837 03839 03840 03930 03933 03959 03996 04012
                               04013 04699 04704 04714 04788 04793 04836 05015 05101 05462 05478 05723 05749 06795 07179
IOTFLAGS 00001 00000058 03406  03723 03820 03940 03947 03952 03976 04020 04747
IOTIOT   00004 00000058 03407  03679 03804 03811 03823 03930 03936 04012 04015 05019 05102 05478 05481 05513 05553 05742
                               07204

IOTIOTTR 00004 00000060 03409  03819 03975
IOTJCTTR 00004 00000064 03410  03434 03839 03839 04019 04701 04724
IOTPDDB  00004 000000D8 03415  03434 03662 03840 04789 04793 04837 05485 05517 05557 05726 05750 06803 06804
IOTPDDBP 00004 000000D4 03414  03658 03841 04794 05469 05486 05518 05560 05724 07180 07212
IOTTRACK 00004 0000005C 03408  03838 03949 03964 04712 05103

IOTWRITE 00001 00000080 03419  03723 03820 03940 03947 03952 03976 04020 04747
JCT      00001 0000000A 00432  01277 03984 04003 04302 04606 04612 04631 04725 04729 04942 04953 04955 04955 05029 05031
                               05031 05090 05091 05091 05171 05580 06579 06755 08023 08174 08205

JCTCPUID 00004 00000208 01336  06759 06855 06856 08024
JCTCYSAV 00100 00000104 01328  05045
JCTDSECT 00001 00000000 01276  01277 05580 06579
JCTDSKEY 00004 00000060 01281  04196 04303
JCTEND   00001 00000230 01350  01385
JCTESTLN 00004 000000A8 01301  04665
JCTESTPU 00004 000000AC 01302  04666

JCTINJCT 00004 00000064 01282  05027 05048
JCTIOTTR 00004 0000005C 01280  03983 04684 04711
JCTJBOPT 00001 0000006B 01286  04815 05052 08214
JCTJCLAS 00001 0000008D 01291  08028
JCTJMR   00056 000001F8 01331  01332 06757 06758 06760 06761 06856

JCTJNAME 00008 00000070 01288  04650 04749 04844
JCTJOBEB 00004 0000006C 01287  06758 08175 08175
JCTJQE   00004 00000058 01279  01385 04641 05077
JCTLINES 00004 000000E0 01319  05039

JCTMCLAS 00001 0000008C 01290  06805
JCTNOLOG 00001 00000010 01368  04815 08214
JCTOPRIO 00001 00000091 01295  05079
JCTPRICD 00001 00000080 01365  05052
JCTPRTCT 00004 000000EC 01322  03517
JCTPUNCH 00004 000000E4 01320  05042

JCTRDR   00002 0000022C 01346  06760 06760
JCTRDROF 00004 00000220 01343  08027
JCTRDRON 00004 00000200 01334  06761 06761
JCTUJVP  00004 0000021C 01342  06855
JCTUSEID 00008 0000020C 01337  06757 06758

JCTXDTOF 00004 000000C8 01313  04660 05006
JCTXDTON 00004 000000C0 01311  04658
JCTXEQOF 00004 000000C4 01312  04659 05005
JCTXEQON 00004 000000BC 01310  04657
JCTXOUT  00004 000000FC 01326  05041 05063

JMRSTEP  00001 0000001C 06891  06892
JSCDSECT 00001 00000000 01701  01702 01703 01704 06359
LBUFCON  00004 00003BA4 08293  08236
LCTSNUMB 00001 0000003A 05393  05394
LFLUSH   00002 00003B4C 08277  08237

LHASPMSG 00002 00003AFE 08252  08248
LINK     00001 0000000E 00436  03529 03618 03642 03651 03672 03704 03724 03748 03769 03794 03817 03858 03883 03962 03999
                               04048 04083 04147 04154 04168 04173 04175 04200 04221 04225 04260 04274 04335 04471 04498
                               04505 04568 04579 04596 04609 04610 04615 04619 04670 04680 04681 04687 04707 04708 04717
                               04718 04728 04753 04769 04820 04853 04870 04899 04928 04943 04944 04948 04949 04954 04958

XEQ                                               CROSS-REFERENCE                                              PAGE  218


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

                               04959 04964 04965 04977 04999 05018 05022 05030 05046 05059 05060 05071 05072 05094 05107
                               05117 05118 05126 05127 05158 05336 05367 05754 05759 05829 05886 05890 05899 05980 05989
                               06011 06034 06087 06092 06096 06099 06219 06245 06313 06322 06358 06379 06382 06384 06407
                               06420 06428 06430 06442 06768 06790 06904 06907 06912 06924 06976 06977 06991 07005 07017

                               07056 07241 07244 07326 07445 07450 07480 07485 07501 07518 07520 07521 07540 07567 07571
                               07573 07583 07595 07597 07598 07614 07630 07693 07705 07713 07714 07732 07774 07823 08021
                               08093 08106 08116 08142 08198
LNOBUF   00002 00003B38 08269  08227 08279

LOGDDBOK 00002 00003A9E 08225  08221
LOGDDBT  00002 00003A88 08218  08223
LOGHEAD  00004 00003B1C 08261  08232
LOGOUT   00002 00003A7C 08212  08176 08206
LOGPROC  00004 000039FA 08169  08160

LOGREADX 00002 00003A58 08196  08183 08185 08187 08189
LOGTITLE 00002 00003B36 08267  08261
LOGWAIT  00004 000039E6 08161  08275
LPUSHUP  00006 00003A20 08180  08209 08215 08219 08250 08255 08260
LTESTCB  00006 00003A62 08204  08172 08208
LTESTJNO 00004 00003A0A 08174  08178
LTITLE   00001 00003B54 08286  08263 08263 08267

LTITLEND 00001 00003BA3 08291  08263 08267 08288
NO       00001 0000000E 00453  06096
NP       00001 0000000D 00452  06395

NZ       00001 00000007 00446  04498
OACEPROG 00004 00000060 01012  04518 04629 04764 04885 04914 04991 08153
OCRCODE  00004 00000000 03376  06057 07086
OCRCOPY  00001 00000006 03379  07136
OCRDEST1 00002 00000018 03385  07119 07127

OCRDEST2 00002 0000001A 03386  07124
OCRDSECT 00001 00000000 03375  06053 06061 06066 07082
OCREND   00001 00000020 03389  06059 06062 06066 07088
OCRFCB   00004 0000000C 03382  07101
OCRFORMS 00004 00000008 03381  07095
OCRINDEX 00001 00000007 03380  07130
OCRRECNT 00004 00000014 03384  07113
OCRUCS   00004 00000010 03383  07107

PCEDSECT 00001 00000000 00901  00903 03439 03905 04030 04070 04131 04133 04134 04292 04302 04379 04382 04650 04652 04742
                               04809 04811 04917 05146

PCEEWF   00002 00000048 00924  03540 03754 03797 03861 03905 03925 04030 04033 04053 04070 04131 04292 04321 04379 04382
                               04525 04546 04587 04599 04609 04635 04673 04680 04694 04733 04742 04745 04780 04809 04825
                               04857 04903 04933 05146 05306 05362 05835 06329 06436 07194 08120 08163 08258 08272
PCEID    00002 0000004A 00925  08204
PCEJCT   00004 0000003C 00921  04302 06755 08023 08174 08205

PCENEXT  00004 00000008 00907  04134 04652 04811 06376 08108 08177 08207
PCESAVEA 00004 00000000 00905  05274
PCEWA    00004 0000001C 00912  04317 04343 04369 04401
PCEWORK  00008 00000058 00931  03440 03477 05151 05151 05275
PCEXEQID 00001 00000003 00955  05332 05812 05851 05874 05891
PDBBASLN 00001 00000007 03339  04792 04793 05750 06804 07288
PDBDDNR  00002 00000005 03338  05501 05536 05570
PDBDSECT 00001 00000000 03323  03339 03351 03637 04790 05463 05498 05501 05533 05536 05568 05727
PDBFLAG1 00001 00000000 03324  03652 03663 03722 04792 05494 05526 05546 05574 05728

PDBLENG  00001 00000002 03335  03673 05471 05493 05525 05549 05576 05737

PDBMISC1 00004 00000008 03361  03365
PDBMISC2 00004 00000008 03366  03370
XEQ                                               CROSS-REFERENCE                                              PAGE  219


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

PDBMTTR  00004 00000003 03336  03646 03648 03718 03721 04791

PDBSTNR  00002 00000003 03337  03667 03670 05496 05498 05529 05531 05533 05545 05566 05568 05573 05732 05734
PDB1FLG2 00001 00000080 03325  07262
PDB1MDES 00001 00000010 03328  03652 05546 05574 07264
PDB1NULL 00001 00000040 03326  03663 03722 05494 05526 05728 07263
PDB2FCB  00001 00000040 03345  07270
PDB2FORM 00001 00000080 03344  07269
PDB2MSC1 00001 00000008 03348  07273
PDB2MSC2 00001 00000004 03349  07274
PDB2RECC 00001 00000010 03347  07272
PDB2UCS  00001 00000020 03346  07271

PITBUSY  00001 00000020 01431  04533 04570 04972 05894

PITCLASS 00001 00000008 01423  01424 04557 04893
PITHOLDA 00001 00000080 01429  04533
PITHOLD1 00001 00000040 01430  04533
PITICLAS 00001 00000001 01419  06810

PITIDLE  00001 00000010 01432  04848 04888 04894 04905
PITLAST  00001 00000001 01433  04539 08712 08720 08728
PITLNGTH 00001 00000014 01424  04540 05816
PITPATID 00001 00000002 01420  04845 04891
PITPRIO  00001 00000006 01422  06824 06897
PITSTAT  00001 00000000 01418  04533 04539 04570 04848 04888 04894 04905 04972 05894
QENTBY   00001 00000080 01239  04603 04919 05032
QUECHAIN 00001 00000004 01229  05134 05136
QUEFLAGS 00001 00000004 01228  04920 05050 05140
QUEHOLD2 00001 00000020 01253  04920 05140
QUEPRIO  00001 00000000 01225  05067 05079

QUEPURGE 00001 00000010 01254  05050
QUETRAK  00001 00000008 01230  03986 04002 04572 04701 04739 05027 05089
QUETYPE  00001 00000001 01226  04847 04919 04921 05032 05033 05068
RIDBUSY  00001 00000040 01221  05280 05304

RIDDATA  00080 00000048 01120  05297 05298 05298 05317
RIDFLAGS 00002 0000003C 01113  05280 05304 05314
RIDPOST  00001 00000080 01220  05314
RIDTCB   00004 00000044 01119  05277
RIDUCB   00004 00000038 01106  05261
R0       00001 00000000 00403  03577 03657 03657 03673 03674 03747 03768 03840 03841 03866 03867 03882 03925 03926 03948
                               03984 04003 04044 04045 04172 04330 04330 04331 04457 04459 04468 04470 04503 04503 04640
                               04641 04642 04648 04653 04657 04659 04852 04898 04927 04963 05005 05047 05047 05048 05068
                               05125 05220 05260 05264 05349 05349 05359 05365 05365 05469 05470 05486 05487 05491 05518
                               05519 05523 05560 05561 05564 05721 05721 05737 05738 05935 05936 05938 05939 05940 05941
                               06054 06055 06160 06161 06162 06252 06253 06255 06256 06258 06269 06280 06307 06318 06373
                               06377 06444 06445 06446 06449 06450 06451 06477 06498 06499 06502 06512 06527 06536 06802

                               06803 06804 06805 06903 06906 06975 06990 07004 07016 07064 07064 07067 07068 07069 07069
                               07083 07086 07095 07096 07096 07098 07101 07102 07102 07104 07107 07108 07108 07110 07113
                               07114 07114 07116 07119 07120 07120 07122 07129 07129 07130 07131 07131 07133 07136 07137

                               07137 07139 07146 07146 07148 07149 07150 07150 07166 07166 07189 07189 07190 07221 07232
                               07240 07325 07328 07333 07519 07522 07522 07523 07527 07570 07615 07629 07696 07735 07735
                               07740 07806 07810
R1       00001 00000001 00404  03600 03620 03641 03650 03687 03688 03697 03698 03699 03703 03706 03716 03720 03745 03766
                               03810 03812 03816 03819 03838 03843 03864 03865 03880 03949 03961 03964 03975 03983 03985
                               03986 03986 03998 04002 04028 04030 04044 04047 04100 04101 04103 04103 04113 04114 04116
                               04116 04118 04119 04122 04123 04145 04152 04162 04164 04165 04170 04195 04199 04201 04202
                               04202 04203 04217 04219 04222 04236 04237 04269 04278 04288 04290 04303 04305 04311 04312
                               04327 04328 04328 04367 04368 04396 04400 04405 04446 04447 04448 04450 04452 04467 04489
XEQ                                               CROSS-REFERENCE                                              PAGE  220


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

                               04490 04492 04493 04495 04496 04499 04502 04557 04559 04560 04571 04572 04574 04575 04575

                               04576 04578 04582 04583 04583 04584 04592 04606 04607 04608 04649 04650 04652 04652 04658

                               04660 04678 04679 04700 04701 04706 04711 04712 04716 04721 04722 04738 04739 04740 04742
                               04772 04775 04776 04776 04777 04787 04788 04800 04803 04803 04804 04830 04841 04846 04847

                               04850 04864 04865 04865 04866 04896 04917 04918 04919 04920 04921 04925 04942 04953 04957
                               04961 04969 04970 04971 04992 04993 04994 04995 04996 04996 05006 05017 05021 05029 05038
                               05039 05040 05041 05045 05058 05070 05074 05075 05076 05077 05093 05106 05115 05124 05134
                               05136 05136 05137 05137 05138 05138 05140 05153 05154 05155 05402 05402 05403 05404 05405
                               05439 05448 05471 05488 05488 05490 05493 05520 05520 05522 05525 05549 05558 05558 05563
                               05576 05617 05619 05676 05677 05677 05679 05690 05762 05876 05877 05885 05893 05894 06013
                               06052 06053 06055 06059 06066 06069 06121 06122 06123 06128 06129 06134 06135 06139 06140
                               06141 06148 06185 06188 06189 06192 06193 06196 06198 06198 06200 06201 06204 06206 06208
                               06257 06258 06270 06281 06305 06306 06307 06308 06309 06309 06311 06312 06312 06320 06321
                               06323 06355 06356 06356 06357 06357 06359 06361 06363 06370 06374 06385 06415 06416 06466
                               06468 06478 06484 06485 06485 06486 06486 06488 06488 06523 06524 06524 06527 06532 06537
                               06543 06667 06668 06668 06669 06670 06670 06671 06767 06769 06773 06775 06777 06779 06783

                               06785 06789 06812 06816 06836 06841 06909 06911 06913 06917 06919 06921 06923 06978 06993
                               07007 07019 07020 07022 07033 07035 07039 07041 07044 07055 07057 07059 07223 07224 07227

                               07229 07229 07243 07245 07246 07247 07255 07291 07292 07293 07310 07337 07348 07360 07364

                               07365 07384 07433 07523 07524 07526 07526 07529 07530 07533 07536 07537 07572 07574 07578
                               07580 07585 07594 07613 07615 07620 07621 07621 07624 07625 07629 07650 07694 07707 07708
                               07710 07711 07716 07733 07743 07762 07763 07763 07767 07768 07770 07771 07771 07794 07811
                               07812 07817 07818 07819 07822 08018 08019 08019 08024 08169 08178 08197 08208 08233 08233
                               08234 08235 08239 08241 08242 08244 08245 08245 08246 08253 08254
R10      00001 0000000A 00413  00432 05293 05294 05296 05299 05463 05465 05466 05466 05485 05490 05491 05498 05501 05502
                               05503 05517 05522 05523 05533 05536 05540 05544 05557 05563 05564 05568 05587 05598 05605
                               05726 05727 05738 05739 05747 05750 05763 05936 05938 05939 05952 05953 06013 06014 06023
                               06051 06054 06061 06062 06064 06067 06069 06118 06118 06121 06126 06143 06144 06148 06149
                               06150 06152 06155 06155 06158 06159 06249 06250 06250 06253 06255 06272 06332 06339 06339
                               06342 08097 08109
R11      00001 0000000B 00414  00433 06338

R12      00001 0000000C 00415  00434 05206 05662 06337 06454 06470 06660 06699 08014 08030
R13      00001 0000000D 00416  00435 04801 05272 05809 05833 05847 05848 05848 05895 06363 06364 06364 06365 06365 06371
                               06376 06393 06394 06394 06413 06434 06660 06682 06683 06698 06699 08014 08017 08029 08030

                               08095 08108 08110
R14      00001 0000000E 00417  00436 00736 03700 03701 03705 04703 04704 04710 04713 04714 04720 04835 04836 04837 04838
                               04839 05206 05239 05240 05241 05243 05282 05302 05308 05313 05662 05663 05837 05859 05916
                               06047 06108 06125 06126 06128 06129 06130 06132 06134 06183 06188 06192 06200 06259 06261
                               06285 06299 06332 06333 06334 06340 06341 06342 06343 06345 06395 06454 06455 06470 06471
                               06476 06480 06483 06487 06489 06538 06540 06541 06542 06556 06660 06699 06700 06793 06794
                               06795 06806 07079 07080 07084 07181 07213 07294 08014 08030 08031 08193
R15      00001 0000000F 00418  00735 00735 03530 03541 03755 03798 03822 03837 03842 03862 04034 04054 04084 04213 04214
                               04215 04216 04226 04227 04313 04322 04526 04547 04588 04600 04620 04636 04674 04695 04734
                               04746 04754 04766 04769 04781 04817 04820 04826 04858 04904 04934 04978 05235 05236 05236
                               05239 05317 05335 05336 05386 05387 05388 05389 05390 05392 05392 05394 05533 05535 05535
                               05536 05537 05539 05594 05595 05597 05678 05679 05682 05682 05687 05688 05690 05694 05753

                               05754 05861 05866 05884 05886 05964 06010 06011 06042 06043 06043 06050 06054 06069 06121
                               06133 06133 06146 06149 06184 06186 06222 06238 06243 06262 06272 06304 06316 06316 06317
                               06318 06319 06335 06336 06336 06340 06349 06350 06351 06380 06381 06381 06385 06388 06391

                               06427 06428 06441 06442 06475 06479 06480 06481 06482 06492 06496 06539 06540 06541 06555
                               06659 06659 07155 07161 07162 07163 07180 07181 07182 07184 07212 07225 07226 07227 07228
                               07231 07231 07233 07805 07807 07809 07809 07816 07820 08013 08013 08020 08021 08092 08093
                               08105 08106 08115 08116 08121 08143 08165 08191 08193
R2       00001 00000002 00405  00424 05200 05223 06578
R3       00001 00000003 00406  00425 05249 06244
XEQ                                               CROSS-REFERENCE                                              PAGE  221


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

R4       00001 00000004 00407  00426 05201 05214 05220 05221 05223 05238 05244 06478 06500 06501 06502 06512 06518 06531
                               06537 06538 06542 06543 06578 08087 08089 08090 08090 08101 08102 08102 08103 08103 08112
                               08113 08113 08125
R5       00001 00000005 00408  00427 05257 05258 05263 05347 05348 05351 05352 05352 05419 05422 05423 05423 05427 05428

                               05431 05432 05432 05434 05586 05587 05598 05601 05602 05602 05628 05630 05631 05631 05680
                               05680 05687 05694 05701 05702 05703 05708 05710 05711 05711 05724 05725 05739 05762 05768
                               05806 05807 05807 05814 05815 05816 05818 05854 05855 05855 06302 06324 06410 06411 06411
                               06578

R6       00001 00000006 00409  00428 05284 05286 05462 05468 05470 05478 05481 05482 05482 05483 05483 05487 05504 05505
                               05513 05514 05514 05515 05515 05519 05541 05548 05553 05554 05554 05555 05555 05561 05579
                               05651 05654 05657 05673 05722 05723 05725 05742 05743 05743 05747 05748 05749 05751 05764
                               05940 05943 05947 05949 05956 06116 06166 06225 06226 06227 06231 06236 06236 06237 06238
                               06239 06241 06243 06247 06249 06260 06290 06290 06292 06294 06295 06460 06460 06462
R7       00001 00000007 00410  00429 05202 05222 05261 05442 05443 05444 05446 05447 05447 05455 05498 05500 05500 05501

                               05537 05539 05568 05571 05595 05597 05623 06033 06262 06263 06264 06266 06266 06268 06268
                               06269 06270 06272 06273 06274 06275 06277 06277 06279 06279 06280 06281 06578
R8       00001 00000008 00411  00430 00431 03950 03987 04004 04050 04051 05301 05303 05308 05389 05406 05407 05407 05408
                               05408 05439 05440 05446 05448 05448 05681 05693 05693 05699 05700 05703 05713 05730 05735
                               05868 05869 05869 05870 05872 05872 05922 05924 05960 05960 05961 05996 05998 06093 06094
                               06095 06113 06115 06152 06152 06153 06165 06186 06893 06893 06894 07336 07336 07337 07338
                               07339 07341 07344
R9       00001 00000009 00412  05923 05924 05925 05928 05930 05933 05958 05964 06018 06057 06066 06082 06114 06115 06150

                               06166 06167 06171 06176 06185 06222
SAVE     00001 0000000D 00435  00903 04375 05619 06321 06666 06677 06678 06678 06679 06679 08161 08170 08177 08207

SRTEASCI 00001 00000004 02881  02882
SRTEBSTR 00001 00000004 02880  02883
TCBDSECT 00001 00000000 01655  04496 05221 05387 05407 05619 06363 06532 08087
TCBFLGS  00001 0000001D 01664  04497 06515
TCBGRS   00004 00000030 01673  05389
TCBHNDSP 00001 00000010 01666  05797
TCBJSCB  00004 000000B4 01697  06355
TCBJSTCB 00004 0000007C 01678  05277 05339 05386 05406 05617 05810 05824 05850 05877 06361 06416 06419 06519

TCBLTC   00004 00000088 01681  06532
TCBOTC   00004 00000084 01680  05388 06523
TCBPCE   00004 000000B0 01694  05619 06363
TCBTIO   00004 0000000C 01659  05407 05678 06370
UCBALOC  00001 00000008 02632  02750

UCBATI   00001 0000000B 02670  05450 05792
UCBBALB  00001 00000020 02787  02877
UCBBJLB  00001 00000002 02795  02884

UCBBNUL  00001 00000001 02796  02885
UCBBPRV  00001 00000010 02791  02878
UCBBPUB  00001 00000008 02792  02879
UCBBSTR  00001 00000004 02793  02880 02881
UCBBSVL  00001 00000080 02781  02876
UCBCHGS  00001 00000040 02629  02747
UCBDADI  00001 00000001 02637  02753

UCBDBBNR 00002 00000038 03070  03106
UCBDCELL 00016 00000038 03068  03105
UCBDDMCT 00001 00000043 03096  03111
UCBDEV   00001 00000018 02760  02769 02896 02930 02946 02966 03048
UCBDJBNR 00001 00000042 03095  03110

UCBDMCT  00001 00000023 02799  02886
UCBDSECT 00001 00000000 02488  05202
UCBDSTAB 00001 0000003A 03071  03107
XEQ                                               CROSS-REFERENCE                                              PAGE  222



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

UCBDSTAT 00001 0000003B 03083  03108
UCBDUSER 00001 00000047 03103  03113
UCBDVOLI 00006 0000003C 03094  03109
UCBDVTOC 00003 00000044 03102  03112
UCBFL1   00001 00000006 02645  02754

UCBFSCT  00002 00000024 02804  02887
UCBFSEQ  00002 00000026 02805  02888
UCBHPDV  00001 00000001 02679  05450
UCBJBNR  00001 00000000 02594  02743
UCBMONT  00001 00000001 02604  02744

UCBNAME  00003 0000000D 02692  05326 05329 05633 05674 05715 05765 05766
UCBONLI  00001 00000080 02628  02746
UCBPRES  00001 00000004 02633  02751
UCBRESV  00001 00000020 02630  02748
UCBSTAB  00001 00000022 02780  02875

UCBSTAT  00001 00000003 02627  02745
UCBSYSR  00001 00000002 02634  02752
UCBTBYT4 00001 00000013 02721  05255 05452 05454 05652 05655 05658 05704
UCBUNLD  00001 00000010 02631  02749
UCBUSER  00001 00000038 02856  02889 03062

UCBVOLI  00006 0000001C 02779  02874
WA       00001 00000002 00424  03568 03568 03569 03571 03571 03585 03586 03636 03637 03660 03660 03662 03674 03675 03677
                               03677 03696 03698 03725 03800 03801 03802 03804 03805 03805 03806 03806 03812 03822 03823
                               03823 03829 03829 03830 03830 03831 03831 03832 03832 03833 03833 03834 03834 03835 03835
                               03836 03836 03842 03903 03905 03930 03933 03934 03936 03937 03937 03938 03938 03948 03966

                               03974 04063 04068 04070 04094 04100 04101 04105 04109 04136 04191 04194 04205 04213 04226
                               04238 04239 04239 04252 04256 04258 04288 04289 04289 04292 04302 04310 04312 04317 04343
                               04349 04349 04350 04351 04352 04354 04369 04377 04379 04382 04387 04401 04428 04572 04613
                               04678 04683 04685 04690 04699 04755 04789 04790 04793 04794 04806 04812 04921 04951 04963
                               05014 05015 05021 05023 05024 05024 05062 05063 05065 05065 05067 05083 05083 05084 05088
                               05089 05098 05099 05099 05101 05104 05108 05144 05146 05159 06672 06673 06673 06767 06770

                               06789 06807 06810 06824 06840 06896 06897 06900 06901 06901 06911 06914 06923 06992 06992
                               06993 06994 06995 06997 06999 07006 07006 07007 07008 07009 07011 07013 07018 07018 07019
                               07024 07025 07026 07026 07028 07031 07043 07043 07044 07045 07046 07048 07050 07054 07055
                               07060 07065 07151 07156 07161 07173 07182 07214 07215 07234 07234 07235 07243 07245 07329

                               07330 07332 07332 07342 07343 07343 07345 07348 07364 07366 07367 07369 07371 07373 07464
                               07465 07572 07575 07594 07692 07695 07695 07697 07706 07706 07707 07712 07721 07726 07727
                               07728 07729 07738 07740 07759 07760 07760 07761 07762 07764 07764 07772 07773 07777 07793
                               07797 07799 07800 07821 07824 08017 08025 08029 08157 08158 08159 08159 08197 08294
WB       00001 00000003 00425  03570 03572 03573 03579 03586 03638 03639 03655 03656 03659 03679 03680 03680 03681 03681

                               03725 03802 03808 03825 03842 03923 03924 04047 04063 04104 04105 04106 04127 04131 04133
                               04134 04134 04219 04222 04344 04350 04418 04436 04439 04446 04448 04450 04452 04455 04465
                               04474 04721 04723 04724 04739 04807 04809 04811 04811 05019 05023 05026 05027 05032 05033
                               05049 05050 05056 05058 05074 05079 05124 06769 06770 06771 06772 06811 06813 06815 06815
                               06834 06835 06913 06914 06915 06916 07059 07060 07062 07063 07157 07162 07253 07254 07295
                               07295 07363 07363 07365 07366 07384 07385 07386 07388 07574 07575 07576 07577 07718 07720
                               07723 07725 07727 07759 07761 07767 07770 07773 07776 07777 07793 07799 07802 07804 07821

                               08018 08027 08028 08190 08194 08216 08217 08218 08218 08222 08280
WC       00001 00000004 00426  03566 03567 03569 03575 03579 03580 03584 03584 03658 03659 03675 03813 03814 03818 03839
                               03934 03974 04418 04455 04456 04456 04460 04462 04474 04552 04552 04557 04558 04558 05033

                               05043 05125 06588 06669 06766 06772 06832 06833 06833 06835 06837 06840 06910 06916 07053
                               07063 07238 07239 07239 07247 07250 07252 07252 07254 07256 07387 07388 07389 07390 07390
                               07412 07413 07413 07419 07420 07420 07425 07426 07426 07429 07430 07430 07514 07515 07515
                               07538 07539 07539 07577 07692 07712 07719 07719 07720 07721 07973 08228 08230 08239 08240
                               08243 08263

XEQ                                               CROSS-REFERENCE                                              PAGE  223


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

WCMBFE   00001 00000020 01058  08182
WCMBFH   00001 00000040 01057  08171 08182
WD       00001 00000005 00427  03826 03826 03958 03959 03963 03995 03996 04000 04001 04002 04012 04013 04015 04016 04016
                               04017 04017 04022 04045 04049 04317 04343 04344 04369 04401 04530 04533 04539 04540 04540
                               04551 04557 04570 04845 04848 04888 04891 04893 04894 04905 04972 05080 05081 05093 05106
                               05110 07397 07398 07398 07401 07404 07404 07408 07409 07582 07587 07589 07590 07593 07617

                               07632 07650 08229 08230 08235 08235 08236 08238 08261 08262
WE       00001 00000006 00428  03483 05102 05108 06667 06754 06757 06758 06759 06760 06761 06892 07075 07076 07076 07078

                               07080 07081 07082 07084 07088 07145 07158 07163 07170 07178 07179 07204 07205 07213 07590
                               07591 07618 07618 07620 07622 07624 07631 07633
WF       00001 00000007 00429  03484 07518 07521 07619 07622 07625 07627 07628 07631 07632 07633
WG       00001 00000008 00430  03485
XACT     00001 00000080 03506  03557 03712 03780 03911 04309 04373 04797 05988 06002 06086 06218 08256 08270

XAGNDD   00002 00000E7E 05685  05695
XALLOCWT 00001 00000040 03452  03742 03750 03752 04133 05364 05757 06031 08274
XALLOK8  00024 00000224 03757  03745 03749
XALMES   00014 000002A6 03784  03766 03770 08254 08305
XBADIOT  00002 000035CA 04938  04692
XBADIOT1 00002 000035D6 04946  04702
XBADJCT  00002 000035CA 04940  04633
XBADJCT1 00004 000035D6 04948  04643
XBAS1CON 00004 00000F74 05783  05207 05242 06390

XBD1     00002 00000E58 05672  05653 05656 05659

XBD2     00002 00000F3A 05762  05755
XBITONE  00002 00002274 07747  07726
XBLANKS  00008 00001328 06138  06135 06139 06146
XBLDDDB  00002 00000DE8 05650  05857
XBLNKTST 00006 00001330 06139  06130

XBUFLMT  00002 00000F8C 05790  06153
XBUFOFF  00002 00000F70 05782  05985 06000 06022
XCANCEL  00002 0000091C 04486  04175
XCANMSG  00004 00000954 04506  04502
XCANMSGD 00006 00000978 04509  04484 04493 04494
XCANMSG1 00008 0000095F 04508  04487 04488 04489
XCCWSCAN 00002 0000142A 06224  05282 05289 05302 05859 05864 05916 06108
XCCW0    00004 00001442 06231  06248
XCCW1    00004 00001452 06235  06232
XCCW2    00004 0000145A 06237  06230 06244

XCCW3    00004 00001480 06247  06242

XCCW7    00004 000014F0 06287  06271 06282
XCCW8    00004 000014F8 06289  06240 06251
XCCW9    00004 000014FC 06290  06228 06234 06288
XCHEKOK  00002 00000880 04445  04438 04441

XCLASMSK 00004 00003388 04603  04559
XCOOL    00002 000016A4 06474  06473
XCOOLR0  00004 000016D8 06491  06477
XCOOLSAV 00004 000016D4 06490  06476 06483
XDDB     00001 00000007 03484  03523 03551 03554 03554 03555 03555 03573 03774 03775 03775 03776 03776 03781 03912 04114
                               04123 04129 04135 04136 04253 04290 04353 04387 04429 04772 04802 04830 04881 05171
XDDBCHN  00004 00000860 04426  03572 04352
XDDBCONT 00002 0000003A 03562  03739 04166
XDDBLCN  00002 00000864 04427  04351
XDDBMARK 00001 000000FF 03516  06017 07401
XDDBTABB 00004 00000854 04423  04344

XDDBTABE 00004 0000085C 04425  03566 03585
XEQ                                               CROSS-REFERENCE                                              PAGE  224


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

XDDFND   00002 00000E9E 05697  05691

XDDNR    00001 00000DB0 05613  05401 05405 05443 05444 05545 05573 05605
XDDNR1   00004 00000CEE 05544  05516 05532
XDDNR2   00006 00000D90 05605  05593
XDDSTAR  00004 000011D0 06010  05931
XDEFIBLK 00001 000020CE 07646  07417 07424 07449
XDEFOBLK 00001 000020D3 07649  07484
XDEFOBXX 00001 00001FFA 07547  07449 07484 07508 07544
XDOUBLE  00008 00000910 04481  04460 04461 04461 04464
XDUMPDB  00003 000037FA 04880  04792
XDUP     00006 00003448 04650  04653
XDUPBIT  00001 00000080 03442  04917 05132
XDUPMES  00030 000035AC 04936  04925 04929

XDUPNAME 00002 00003576 04916  04651
XDUPTRY  00002 0000358A 04923  04935
XENDOUT  00002 000003C4 03900  03691 03695

XENDUP   00002 00003906 05078  05051 05053
XENDXEQ  00002 00003956 05114  05034 05100
XEOCP    00002 00001270 06078  05917
XEOCP3   00004 00001298 06092  06081 06083
XEODSEC  00002 000006F6 04277  04268
XEOF     00004 0000167A 06458  05838 05971
XEOJBIT  00001 00000080 03451  03761 04066 05888 06397
XEOJMES  00001 00000040 03443  03763 03771
XEOJOKA  00002 00000260 03773  03764
XEQA1    00002 0000336E 04594  04601
XEQI1    00002 00003780 04863  04855
XEQLAST  00001 000017A2 06577  05211

XEQPCEWS 00001 00000058 03477  04967 05151 05275

XEQ1     00004 00003342 04578  04589
XEQ16    00004 000036D4 04817  04827

XEQ17    00002 000036F2 04829  04823
XEQ2     00002 0000336A 04591  04580
XEQ4     00004 00003638 04766  04782
XEQ5     00002 00003668 04784  04773
XEQ8     00004 000036B8 04809  04812
XFA      00004 000005A4 04131  04135
XFB      00004 0000056A 04114  04117
XFC      00006 0000057A 04118  04115
XFDDB    00004 00000D5C 05586  05456
XFDDNINC 00004 00002306 07811  07796 07801
XFDDNMVC 00006 00002338 07824  07804
XFDDNRET 00004 0000232E 07821  07813

XFDDNSAV 00004 00002340 07825  07793 07821
XFDDNW   00008 00002348 07826  07803 07807 07815 07815 07816 07819 07824

XFDDN001 00006 000022F4 07807  07810

XFDDN002 00006 00002312 07815  07808
XFD1     00004 00000DC8 05630  05634
XFD2     00002 00000DE8 05643  05632
XFINDBYT 00004 0000228C 07767  07772
XFINDDDB 00004 00000DC4 05628  05340
XFINDDDN 00002 000022C0 07792  06977
XFINDHIO 00004 000022BC 07781  07776
XFINDKEY 00002 00002276 07758  06768 06790 06912 06924 07056 07244 07573 07595 07705 07732
XFINDLUP 00004 0000229A 07771  07778
XEQ                                               CROSS-REFERENCE                                              PAGE  225


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

XFINDRET 00004 000022A2 07773  07765

XFINDSUB 00004 000022A8 07776  07769
XFINDSVE 00004 000022B4 07780  07759 07773
XFIREUP  00002 00001558 06327  05367 05759 05989 06003 06034 06047 06087 06219 06245 06399

XFLUSH   00004 00001414 06216  06154
XFPDDB1  00004 00000C3E 05478  05467
XFREEE   00002 000006F0 04272  04280
XFREEZE  00002 00001656 06439  05315 05830 05973 05990 06035 06048 06089 06220 06246
XFROZE   00002 00001656 06440  05368 05760
XFSAVE   00004 00001580 06344  06332 06342
XGETBUF  00002 0000076A 04324  03598 03686 04099
XGETBUF1 00002 00000784 04333  04326 04329
XGETDDB  00002 00001520 06303  06301 07655
XGETIOT  00001 00000020 03453  03790 03792 07191
XGETIOTB 00002 00003488 04668  04675
XGETJOB  00002 00003306 04556  04569

XGETOUT  00002 00000366 03853  03791
XGOUT    00004 00000372 03858  03863
XGOUT1   00004 00000386 03864  03859

XIA      00004 000010D0 05916  05957 05959 05962 05980
XIACT    00004 0000119A 05987  05974
XIB      00004 00001130 05947  05942 05944
XIBASE   00004 000009C2 05206  05783 06569
XID      00004 00001146 05955  05948 05950
XIDLEMES 00005 000033F0 04907  04896 04900
XIDL1    00014 000033F5 04908  04891 04900
XIDL2    00001 00003403 04910  04893
XIE      00004 0000115A 05960  05929 06024 06068 06072
XIMOVE   00006 00001166 05964  05953
XINDDB   00001 00000080 03500  03588 04092 04360 04786 05635 05657 06016
XINRDCT  00004 00000AE8 05318  05257

XINRFIRE 00002 00001560 06331  05309 05313 05829 05837 05899
XINRMVC  00006 00000AE2 05317  05299
XINRQA   00004 00000EBC 05710  05714
XINR1    00004 00000A36 05261  05264

XINR2    00002 00000A4A 05271  05262
XINR3    00004 00000A8C 05288  05285
XINR4    00002 00000A94 05293  05287
XINR5    00004 00000AD2 05312  05279
XINR6    00004 00000ADA 05314  05281 05301
XINR9    00002 00000AEC 05320  05256 05265

XINSEC   00002 000000B0 03610  03595
XINTCOMP 00004 000021CE 07698  07696 07697
XINTENDK 00004 00001820 06702  07464 07710
XINTEXIT 00004 000021F8 07712  07736 07741
XINTKDSP 00001 00000004 06594  06670
XINTKEYS 00004 0000181C 06701  06671 06836 06909 06978 07054 07255 07694 07797
XINTKKEY 00001 00002202 07715  07709
XINTLINK 00004 0000226C 07745  07693 07713

XINTLOOK 00004 0000225A 07743  07591 07738
XINTNEXT 00004 000021DC 07705  07717 07724 07730

XINTPART 00001 00002238 07731  07699
XINTPSRC 00004 00002238 07732  07739
XINTREQT 00001 0000224C 07737  07734
XINTSAVE 00004 00002260 07744  07692 07712
XEQ                                               CROSS-REFERENCE                                              PAGE  226


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

XINTSCAN 00002 000021B8 07691  06904 06907 06976 06991 07005 07017 07241 07326 07520 07571
XINTTEXT 00001 00000000 06587  06588 06594 06595

XINTXKEY 00001 00000004 06591  06594 06675 06687 06690 06693
XINTXTTR 00004 00000000 06590  06595 06672 06900
XINUCB   00001 00000001 05794  05454 05658 05704
XIN10    00002 000000A8 03603  03597
XIN20    00002 000000D8 03623  03616

XIOC     00001 00000004 03509  03559 03734 04160 04308
XIOERR   00002 000005EA 04159  03735
XIOTADDR 00004 00000DA4 05610  05468 05504

XIOTBOK  00002 0000349C 04677  04671
XIOTCKP1 00004 00000496 04015  04021
XIOTCKP2 00004 000004B2 04028  04018
XIOTEXCP 00002 000004CA 04043  03950 03987 04004
XIOTGB   00004 000002C0 03794  03799
XIOTGET  00004 000002B4 03790  03762 03777
XIOTGOTN 00004 00000EDE 05724  05744

XIOTGT   00004 000002D4 03800  03795
XIOTGT1  00002 000002D8 03802  03807
XIOTJCTB 00002 00000470 03994  04006
XIOTJCTW 00004 0000045A 03983  03968
XIOTN    00002 00000400 03932  03941

XIOTPRG  00004 0000384A 05019  05025
XIOTROK  00002 000034D8 04698  04691
XIOTSCAN 00002 000003FC 03929  03951 03977 03988 04035
XIOTSOUT 00002 000004EC 04061  03939

XIOTTEST 00002 000034C0 04689  04696
XIOTWAIT 00004 000004D6 04049  04055
XIOTWORK 00004 00000DAC 05612  05505 05541 05548
XIOTWREQ 00001 00000010 03454  03643 03821 03916 04062 04748
XJCDESTB 00008 00001DC2 07306  07127 07218 07218 07219 07233
XJCFLDES 00001 00000010 07264  07126 07216

XJCFLFCB 00001 00000040 07270  07014 07105
XJCFLFL2 00001 00000080 07262  07154
XJCFLFOR 00001 00000080 07269  07051 07093 07099
XJCFLMS1 00001 00000008 07273  07123 07134 07308
XJCFLMS2 00001 00000004 07274  07140

XJCFLNUL 00001 00000040 07263  06984
XJCFLREC 00001 00000010 07272  07117
XJCFLUCS 00001 00000020 07271  07000 07111
XJCLADDD 00004 00001EC6 07414  07451
XJCLADDL 00004 00001EDE 07421  07415

XJCLADDR 00004 00001EF6 07427  07422
XJCLASTB 00008 00001976 06853  06811 06812
XJCLBAS1 00004 00001838 06707  06665
XJCLBLKO 00006 00001FE4 07538  07505 07517 07528
XJCLBLKS 00001 000020E3 07652  07503 07582

XJCLBLNK 00008 00001D42 07259  06998 07012 07049 07803
XJCLBOTH 00006 00001F72 07508  07502
XJCLBSKL 00004 00002000 07549  07417 07419 07503 07513 07529 07531 07534 07537 07538
XJCLCMPM 00006 00001D84 07295  07170
XJCLCMP1 00002 00001C30 07161  07167

XJCLCMP2 00002 00001C3A 07166  07171
XJCLDATA 00004 00002108 07665  07373
XJCLDBLM 00006 00001F7C 07511  07545
XEQ                                               CROSS-REFERENCE                                              PAGE  227


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

XJCLDCB  00001 00001F12 07434  07412

XJCLDCBL 00006 00002038 07578  07596
XJCLDCBP 00002 00002028 07572  07592
XJCLDCBS 00002 0000207E 07594  07584
XJCLDCBT 00006 00002058 07585  07581

XJCLDCBX 00004 00002088 07597  07579
XJCLDDBA 00002 00001E94 07398  07405
XJCLDDBO 00001 00001EAA 07406  07402
XJCLDDCB 00002 00001F48 07479  07249
XJCLDDDA 00001 00001E6A 07381  07372

XJCLDDDT 00002 00001E34 07359  06980
XJCLDDMV 00006 00001E2E 07348  07344
XJCLDDNC 00004 00001D1E 07248  07242
XJCLDDND 00006 00001D26 07250  06918 07428 07431 07486
XJCLDDNM 00002 00001DD6 07322  07361
XJCLDDN1 00004 00001DEE 07330  07333
XJCLDDN2 00002 00001E02 07336  07331

XJCLDDPE 00004 00001B0C 07053  07034 07042
XJCLDDPR 00002 00001A08 06974  06688
XJCLDDWR 00002 00001F26 07461  07029 07036 07040

XJCLDECB 00002 0000201C 07566  07445 07480
XJCLDECO 00001 000020DE 07651  07617
XJCLDECS 00004 00002090 07600  07567 07597
XJCLDTBL 00001 0000000C 07921  07589
XJCLDTBS 00001 00002367 07903  07590 07921

XJCLECB  00004 00001C9C 07207  05177 07190 07201
XJCLEXIT 00001 00001812 06695  06676 06684 06838 06898 06902 06908 07058 07257 07324 07334 07346 07368 07370 07374 07399
                               07463 07466
XJCLFCBT 00004 00001A60 07002  06989
XJCLFOUR 00004 00002010 07553  07530
XJCLFSIX 00004 00002014 07554  07533
XJCLF600 00004 00002018 07555  07536
XJCLGRAT 00006 00001FF0 07544  07509

XJCLINDB 00002 00001F14 07444  07411
XJCLINLG 00001 00000010 06850  06832 06833

XJCLINND 00001 0000196E 06849  06850
XJCLINSR 00001 0000195E 06842  06832 06850
XJCLIOT2 00004 00001C56 07180  07206 07236
XJCLIOT3 00002 00001CA0 07211  07185
XJCLIOT4 00002 00001CDC 07229  07232

XJCLIOT5 00002 00001CFA 07237  07217 07220
XJCLJBMH 00006 00001952 06840  06771 06915 07062 07246 07576
XJCLJBMR 00006 00001958 06841  06837
XJCLJBND 00001 000018C6 06792  06774
XJCLJBPR 00002 0000183C 06747  06694
XJCLJBSC 00001 000018BC 06787  06776 06780 06784
XJCLJBSG 00002 00001870 06767  06786
XJCLJBSK 00001 00001962 06846  06810
XJCLJBTS 00006 00001880 06773  06791

XJCLLRKL 00001 00002008 07551  07424 07425 07511 07514

XJCLMCHT 00002 00001918 06820  06814
XJCLMCSK 00001 0000195E 06844  06821
XJCLMFCB 00006 00001D78 07293  07013
XJCLMFOR 00006 00001D6C 07291  07050
XJCLMOOV 00001 00001936 06830  06826

XEQ                                               CROSS-REFERENCE                                              PAGE  228


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

XJCLMPDB 00006 00001D7E 07294  07215
XJCLMUCS 00006 00001D72 07292  06999
XJCLMXFL 00001 00000004 06605  06997 07011 07048
XJCLMXLT 00001 00000005 06604  07417 07424 07449 07484 07503 07508 07511 07513 07544 07547 07617 07619 07646 07649 07651
                               07652 07653
XJCLNFOR 00004 00001C1C 07154  07071
XJCLNGIB 00003 000020CE 07639  07646
XJCLNGOB 00003 000020CE 07643  07649

XJCLNOCR 00002 00001C08 07146  07077 07085

XJCLNOFL 00004 000017DA 06677  06674
XJCLNOMC 00002 000018A8 06782  06778
XJCLNOPT 00004 00001C48 07173  07070 07152 07164
XJCLNOVF 00004 00001FE0 07537  07532 07535

XJCLOCRD 00002 00001BE2 07129  07121 07125
XJCLOCRF 00002 00001B5C 07084  07089
XJCLOCRM 00004 00001B72 07093  07087
XJCLOMC  00004 00001904 06813  06765 06779 06796 06798 06801 06802 06816 06818 06821 07024
XJCLPDB  00032 00001D4C 07289  06982 06982
XJCLPDDB 00004 00001D4C 07260  07156 07289 07289 07294
XJCLPRSK 00001 00001966 06848  06824 06825 06828 06828 06829
XJCLPRST 00004 0000206A 07589  07586
XJCLPR2  00002 00001868 06762  06756
XJCLRCSK 00001 000020F8 07658  07429
XJCLRECL 00001 000020E8 07653  07508 07511 07513 07544 07587

XJCLR13  00004 00001830 06704  06666 06682 06698
XJCLSCAN 00002 000017A4 06658  00252
XJCLSDCB 00004 00001FAC 07524  07527
XJCLSHFL 00002 00001F5A 07498  07450 07485

XJCLSKEL 00001 00002104 07664  07389
XJCLSLCT 00004 0000206E 07590  07593
XJCLSTOP 00001 00002101 07662  07250
XJCLSYSO 00004 00001A92 07016  07003
XJCLSYST 00004 00001AB0 07024  07021
XJCLUDEF 00001 00001F3C 07469  07465
XJCLUSKL 00001 000020FD 07660  07031 07238
XJCLVREC 00004 00001FC0 07529  07525
XJCLXQMP 00002 00001A06 06927  06897
XJCLXQPR 00002 00001984 06890  06691
XJCLXQSG 00002 000019CE 06911  06922
XJCLXQSI 00002 000019FC 06923  06920

XJCLXQTS 00006 000019DE 06917  06925
XJCLXQZP 00004 000019C6 06909  06905
XJCLXTMV 00006 000020D8 07650  07628

XJCLXTRC 00002 00002094 07612  07583
XJCLXTRL 00002 000020C4 07631  07623
XJCLXTRX 00004 00002050 07583  07588
XJCLXTXT 00002 000020BA 07627  07634
XJCL1BUF 00001 000017F4 06685  06680
XJCPDBCL 00001 00001D4D 07265  07025
XJCPDBEG 00001 00001D54 07275  07156 07157 07286
XJCPDBF1 00001 00001D4C 07261  06984 07126 07154 07216
XJCPDBF2 00001 00001D53 07268  07000 07014 07051 07067 07093 07099 07105 07111 07117 07123 07134 07140 07148 07225
XJCPDBLE 00001 00000007 07288  07065 07151
XJCPDBLN 00001 00001D4E 07266  07173 07235
XJCPDBMT 00004 00001D4F 07267  07174

XEQ                                               CROSS-REFERENCE                                              PAGE  229



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

XJCPDCOP 00001 00001D68 07283  07139

XJCPDDES 00002 00001D66 07282  06983 07122
XJCPDEND 00001 00001D6C 07285  07286
XJCPDFCB 00004 00001D58 07277  07012 07104 07293
XJCPDFOR 00004 00001D54 07276  07049 07083 07098 07228 07291
XJCPDIND 00001 00001D65 07281  07133
XJCPDOL  00001 00000018 07286  07158
XJCPDREC 00004 00001D60 07279  07116
XJCPDUCS 00004 00001D5C 07278  06998 07110 07292
XJCTBOK  00002 0000338C 04605  04597
XJCTROK  00002 00003430 04639  04632
XJCTRWRT 00004 00003500 04713  04731
XJCTTEST 00004 00003418 04631  04637

XJCTWCK  00004 0000352C 04729  04735

XJCTWOK  00002 00003544 04737  04730
XJCURIOT 00004 00001DCC 07309  06794 07178 07205

XJMRDISP 00004 00000010 06856  06759 08024
XJMRSZ   00004 00000014 06855  06759 08024
XJOBINIT 00002 000032C8 04521  04527
XJOBSPEC 00002 000001F4 03741  03548
XJOBSRCH 00004 0000159C 06355  06347 06350 06351
XJOBSRC2 00002 00001594 06348  06347
XJOBTERM 00001 00000010 08034  08025
XJSBLKBT 00001 00000004 07875  07414 07500 07504
XJSBLKKE 00001 00002360 07874  07580
XJSCC2   00004 000015DE 06380  06369
XJSCC3   00004 000015E6 06383  06375
XJSCLSKE 00001 00002357 07843  06785

XJSDCBBT 00001 00000002 07873  07248 07410
XJSDCBKE 00001 0000235F 07872  07570

XJSDDKEY 00001 00002356 07842  06687 07382

XJSDDNBT 00001 00000040 07883  07323
XJSDDNKE 00001 00002364 07882  07325
XJSDPRKE 00001 0000235B 07847  06903 06919
XJSDPSKE 00001 0000235C 07848  06906 06921
XJSENDKE 00001 0000235D 07849  06773 06917 06975 07578 07698 07708 07733
XJSEXEKE 00001 00002355 07841  06675 06690
XJSFCBBT 00001 00000001 07887  07002
XJSFCBKE 00001 00002366 07886  07004
XJSJOBKE 00001 00002354 07840  06693
XJSLRCBT 00001 00000008 07877  07414 07421 07500
XJSLRCKE 00001 00002361 07876  07585
XJSMCLKE 00001 0000235A 07846  06777

XJSMISTS 00001 00002354 07835  07851
XJSPCE   00004 000015BE 06371  06352
XJSPRIKE 00001 00002358 07844  06775

XJSRCFBT 00001 00000020 07881  07427 07516
XJSRCFKE 00001 00002363 07880  07519
XJSTNDDN 00004 00002350 07827  07174 07409 07822
XJSTYPKE 00001 00002359 07845  06783
XJSUCSBT 00001 00000080 07885  06988
XJSUCSKE 00001 00002365 07884  06990
XJSUNIBT 00001 00000010 07879  07462
XJSYSOBT 00001 00000001 07871  06979
XJSYSOKE 00001 0000235E 07870  07016
XEQ                                               CROSS-REFERENCE                                              PAGE  230


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

XJS1     00006 000015C6 06374  06377

XLK      00001 00000006 03483  03598 03604 03624 03644 03649 03665 03669 03686 03707 03709 04099 04107 04108 04204 04261
                               04275 04332 04337 04370 04402 04443 04451 04453 04473 04477
XLOGDDB  00001 00000010 03504  03778 03901 04437 04831 05354 08220
XLOGHEAD 00001 00000020 03511  08231 08265

XLSTNTRY 00004 00000DB4 05615  05441 05484 05588
XMODIT   00004 0000140C 06208  06205
XNDDB1   00004 00000BAC 05422  05426
XNDDB2   00004 00000BC8 05431  05436
XNDDB3   00004 00000D66 05590  05603
XNDDB4   00004 00000D86 05601  05591 05596

XNEXGRUP 00006 000038CE 05063  05066
XNEXTDDB 00002 000003D8 03910  03558 03605 03612 03614 03619 03625 03902 04142 04177
XNIOT1   00004 00000C42 05481  05492
XNIOT2   00004 00000C94 05513  05524
XNIOT3   00004 00000D0C 05553  05565
XNODUP   00006 000039A4 05151  05133
XNOINBUF 00004 0000116C 05970  05920
XNOJOB   00002 000033B2 04887  04561

XNORSTRT 00004 0000387C 05038  05010
XNOSMF   00002 00000A1E 05245  05237

XNOTNEW  00002 000007E2 04372  04365
XNOTWTR  00002 00000F58 05769  05673 05767
XNPB     00001 00000001 03492  03596 03601 03632 03689 03708 04095 04150 04270 04357 04366 04406 04785 04834 05771 05919
                               06021 06110 08226
XNPDDB1  00002 00000C5C 05490  05495 05497
XNPDDB2  00002 00000CAE 05522  05506 05527 05530 05538 05542
XNPDDB3  00004 00000CC2 05529  05472
XNPDDB4  00004 00000D20 05560  05550

XNPDDB5  00002 00000D26 05563  05577
XNSB     00001 00000010 03496  03615 03621 04143 04161 04279 04394 04397 04785 04834 05981 06021 06097
XNULCLAS 00004 00003384 04602  04560
XNXTIOT  00002 00003934 05099  05109
XNXTNTRY 00004 00000BE0 05439  05424 05433 05449 05451 05453 05547 05556 05567 05572 05575 05606

XOA      00004 000012BC 06108  06175 06177 06188 06192 06200 06207 06209
XOACT    00004 00001418 06218  06111
XOB      00002 00001336 06140  06143

XOBA     00004 00001340 06143  06127
XOBB     00004 00001344 06144  06147
XOBC     00006 0000134C 06146  06134
XOBD     00004 00001356 06148  06137
XOC      00004 0000135C 06150  06119 06124 06131 06142 06145
XOCMSG   00036 00000282 03783  03880 03884
XOCPRG   00002 00003828 05000  04997

XOCRCARD 00002 0000120C 06041  05934
XOCRCD1  00004 00001226 06051  06044
XOCRCD2  00002 00001232 06055  06060
XOCRCD3  00004 0000124A 06062  06056
XOCRCD4  00006 00001256 06066  06058

XOCRCD5  00004 00001264 06070  06065
XOCRMES  00001 00000004 03447  03877 03885
XOCRMSG  00001 00000004 03456  03874 03876 06070
XOCRMSGW 00002 00000392 03873  03855

XOD      00004 00001384 06164  06156
XOE      00002 000013A6 06173  06168 06170
XEQ                                               CROSS-REFERENCE                                              PAGE  231


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

XOMOVE   00006 00001424 06222  06159
XONMES   00032 00003750 04860  04844 04850 04854

XONMES1  00016 00003770 04861  04845 04847 04854
XOPEN    00001 00000010 03510  03599 03634 03685 04097 04355 05356
XOSEOJ   00002 0000050C 04077  04067
XOUT     00002 000000E0 03631  03589 04388
XOUTCDBF 00001 00000008 03455  03854 03856 06045

XOUTCHEK 00002 00000866 04435  03709 04108
XOUTENT  00001 00000010 03471  03472 03473
XOUTEST  00001 00000004 03468  04450 04665 04666
XOUTGET  00002 0000016A 03684  03635 03651 03664 03671 03711
XOUTRQ   00002 00000ED8 05720  05705

XOUTTOTL 00001 00000000 03467  04446 04448 05038 05040 05042
XOUTTRK  00004 000001CC 03716  03653 03672
XOUTTYPE 00001 0000000C 03470  04465 04663 04664
XOUTUCB  00001 00000008 05795  05652
XOUTXCES 00001 00000008 03469  04452 04455 04474

XOUT10   00002 0000018A 03693  03633
XOUT3    00004 00000124 03658  03682
XOUT7    00004 00000134 03663  03661 03676
XOVERM   00010 000008EC 04478  04457 04459 04467
XOVERM1  00008 00000907 04480  04459 04463 04464

XOVERM2  00017 000008F6 04479  04457 04459 04465
XPBUFMT  00004 00001180 05980  05926
XPCEDCT  00004 00000074 03465  03923 04189 04236 04592 04607 04679 04722 04957 05080 05115
XPCEDDB  00004 00000078 03466  03551 03774 04078 04078 04113 05347 05419 05628 05708 06305 07397 08217
XPCEIOT  00004 00000068 03463  03638 03700 03800 03813 03930 03958 03967 03995 04012 04685 04703 04713 04787 04835 05014
                               05098 05478 05722 05748 06793

XPCEJOB  00004 00000064 03462  03985 04001 04571 04642 04700 04738 04846 04918 04961 04967 04967 05026 05049 05075 05088
XPCEJOBN 00008 0000006C 03464  04487 04650 04749 06374 06754
XPCEJST  00004 00000060 03461  04495 04804 05339 05810 05850 06380 06419 08101
XPCEOUTC 00004 0000005C 03460  03864 04327 04331 04995 06042 07075

XPCEPIT  00004 0000009C 03474  04551 05814 05893 06807 06896
XPCEPRT  00016 0000007C 03472  04436 04663 04665 05038
XPCEPUN  00016 0000008C 03473  04439 04664 04666 05040 05042 05056 05067 05068 05070
XPCESTAT 00001 00000058 03441  03547 03763 03771 03877 03885 03893 04072 04917 05009 05132 05758 06032 06046 06071 06398
                               06432 07192 08098 08107

XPCESTEP 00002 0000005A 03459  04325 05394 05401 05425 05435 05496 05531 05566 05592 05615 05701
XPDBSCAN 00004 00000EE8 05728  05740
XPDBSCN1 00004 00000EFE 05737  05729
XPDBWORK 00004 00000DA8 05611  05503 05540 05544
XPDDBFND 00002 00000F20 05752  05736
XPDDBWTR 00004 00000F18 05748  05675
XPEOD    00001 00000008 03495  04176 04270 05919 05970

XPIO     00001 00000002 03493  03594 03694 03708 04241 04244 04267 04374 04406 04785 05919 05987 06021 06216 08278
XPIOA    00001 00000004 03494  03613 04141 04244 04294 04391 05919 05972
XPITCONT 00002 000032E8 04538  04565 04889 04901

XPITFND  00002 00003300 04550  04534
XPITOVER 00002 000035E4 04953  04931
XPITSCAN 00002 000032DC 04529  04523 04548 04906
XPITSENQ 00001 00000B70 05378  04522 04813 04973
XPITSRCH 00002 000032E0 04532  04541

XPOSTBIT 00001 00000020 03444  04072 06432 08098 08107
XPRITAB  00002 000039B8 05161  05062
XPROTRDR 00002 0000160C 06406  05338
XEQ                                               CROSS-REFERENCE                                              PAGE  232


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

XPROTRD1 00002 00001610 06408  05890 06430
XPRTDDB  00001 00000002 03501  04437 05651
XPUNDDB  00001 00000004 03502  04440 05654 06169

XPUNUCB  00001 00000002 05796  05655
XPUSHA   00004 00000042 03569  03575

XPUSHEND 00002 00000080 03587  03581
XPUSHUP  00004 00000062 03579  03574
XQEND    00004 00003994 05143  05139
XQNEXT   00004 0000397E 05136  05141
XRC1     00002 00000FC6 05821  05808 05811

XRC2     00002 00000FE8 05832  05823
XRDRCALL 00002 00000F8E 05804  05327
XRDRNA   00002 00001630 06418  06412 06414
XREADBUF 00002 00000692 04235  03604 03624
XREADEOD 00002 000006E0 04266  04240
XREADIT  00002 000006BC 04251  04245
XREADSEC 00002 000006B4 04247  04242
XRESTR   00002 00000A22 05248  05226
XRET     00004 00001690 06466  05218 05283 05303 05860 06092 06109

XRETURN4 00004 00000E0C 05661  05337 05689 05692 05712 05746 06429

XREXREQ  00001 00000010 03445  05009
XRIDDNL  00001 0000000A 07300  07301 07332 07809
XRIDDNMK 00001 00000005 07299  07301 07328 07806
XRIDDNR  00002 00001D8E 07298  06894 07345
XRIDDNT  00050 00001D90 07301  06895 06895 07302 07303 07329 07795 07805

XRISTNR  00002 00001D8C 07297  06892 07794 07812
XRITABLE 00004 00001D8C 07296  07304 07305
XRITABLN 00001 00000036 07304  07305
XROLA    00002 0000079E 04348  04418
XROLBUSY 00002 00000844 04410  04392
XROLL    00001 00000002 03508  03710 03712 04295 04297 04373 04411
XROLLIN  00002 00000810 04390  04361
XROLLONE 00002 0000078E 04339  04336
XROLLRET 00002 00000828 04399  04408
XROLLUS  00002 0000080A 04386  04376

XROLN    00002 0000084C 04417  04356 04358

XROLPRIM 00002 00000834 04404  04395
XS       00001 00000008 01402  03594 03596 03601 03611 03613 03615 03621 03632 03689 03694 03708 04095 04141 04143 04150
                               04161 04176 04241 04244 04249 04267 04270 04279 04294 04357 04366 04374 04391 04394 04397
                               04406 04407 04785 04834 05771 05919 05970 05972 05981 05983 05987 05999 05999 06001 06021

                               06097 06110 06216 08226 08278
XSEOD    00001 00000080 03499  04143 04279 04407 05981
XSEOJA   00004 00000264 03775  03782
XSETEOJ  00002 0000023C 03760  03743 03751 03756
XSETPRIO 00006 000038E0 05067  05064
XSIO     00001 00000020 03497  03611 04161 04249 04279 04397 04785 05981 06001 06021 06097
XSIOA    00001 00000040 03498  04141 04161 04249 04294 04391 05972 05981 05983 06097
XSLUSH   00002 00001638 06426  05333
XSLUSHX  00004 00001646 06432  05813 05852 05892
XSLUSHY  00004 0000164A 06434  05878 06417
XSPECACT 00002 000001E0 03731  03560

XSPSAVE  00004 00000E1C 05665  05206 05662 06454 06470
XSRCHBAS 00004 00002404 08032  08020
XSTATDEF 00001 0000235E 07865  07720 07888
XSTATFND 00002 00002222 07725  07722

XEQ                                               CROSS-REFERENCE                                              PAGE  233


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

XSTATLNG 00001 00000009 07888  07718
XSTATSRC 00004 00002210 07720  07723
XSTATUS  00004 00002270 07746  06979 06988 07002 07248 07323 07410 07414 07421 07427 07462 07500 07504 07516 07704 07704
                               07711 07728 07729
XSWAP    00004 000011AA 05996  05982 05984 06098
XSYNCDSK 00002 00000746 04307  04304
XSYNCEND 00002 000003BC 03892  03875 03878
XSYNCEWF 00004 00000704 04285  04255
XSYNCFLG 00001 00000059 03450  03643 03742 03750 03752 03761 03790 03792 03821 03854 03856 03874 03876 03916 04062 04066
                               04133 04748 05364 05757 05888 06031 06045 06070 06397 07191 08274

XSYNCREQ 00001 00000008 03446  03547 03893 05758 06032 06046 06071 06398 07192
XSYNOROL 00002 00000730 04301  04296
XSYSIN   00002 000010C8 05911  05636 05718 05819

XSYSOUT  00002 000012B4 06105  05637 05772 05856 06197
XTCBHNDS 00001 00001000 05797  06491 06547
XTDDB1   00004 00000B26 05351  05355 05357 05360
XTDDB2   00004 00000B4A 05362  05353
XTDDB3   00004 00000B72 05386  05366
XTERM    00001 00000001 03507  03557 03559 03732 03780 05358 06086 08256
XTERMDDB 00002 00000B20 05346  05900 06407
XTERMES  00010 00000628 04178  04170 04174
XTERMFD  00004 00000562 04109  04098 04151 04155
XTERMIN  00002 000005BE 04140  04093
XTERMIND 00001 00000017 08033  08025
XTERMIN8 00002 00000522 04091  03733

XTERMRTN 00002 000023FA 08029  08022 08026
XTERMSMF 00002 000023C0 08012  00253
XTERM10  00002 000005D6 04149  04144

XTERM20  00002 0000054E 04103  04096
XTHRDTCB 00004 00002478 08124  06570 08112 08117 08117
XTHWRTCB 00004 00002474 08123  06562 08089 08094 08094
XTH1     00004 0000241E 08095  08091
XTH2     00004 00002426 08098  08109
XTH3     00004 00002446 08108  08099 08104
XTH4     00002 00002468 08118  08114
XTRTABLE 00001 000022B2 07929  07026
XTSIOB   00004 00000F80 05786  05223
XTSTCB   00004 00000F88 05788  05244
XTSUCB   00002 00000F7E 05785  05222 05623 06033
XTXTBUFW 00002 0000210C 07666  06766 06834 06841 06910 07053 07253 07310 07382 07383 07385 07387 07433

XTXTMVFR 00006 00001F0C 07433  07386

XTXTMVTR 00006 00001DD0 07310  07256
XV       00001 00000008 03485  03567 03580 03582 03583 04189 04190 04199 04205 04243 04248 04253 04257

XWAIT    00002 0000000C 03538  04075 04079
XWAITBUF 00002 0000075E 04316  04384 04412 04421
XWAITCN1 00002 000004F0 04065  03917
XWAITCON 00002 000003E4 03915  03556
XWAITDDB 00004 000011F8 06031  06012
XWAITED  00002 0000001C 03550  03531 03714 03894
XWAITOR  00002 00000020 03553  03913 04137
XWARM    00002 000016DC 06495  06494 06545
XWARMA   00004 00001750 06545  06541
XWARMR0  00004 00001758 06547  06536
XWARM9   00002 0000175C 06553  06514 06516 06520 06525 06529 06533 06544
XWATEBUF 00002 00000762 04319  04342

XEQ                                               CROSS-REFERENCE                                              PAGE  234


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78


XWCALL   00004 00001022 05859  05849 05905

XWC1     00006 0000103C 05866  05862
XWC2     00002 00001072 05880  05875
XWC5     00004 000010C0 05904  05887 05889
XWJN     00001 000010B0 05902  05866 05867 05868 05885
XWRTBUF  00002 00000632 04188  03707 04107
XWRTFREE 00002 00000688 04224  04218
XWRTPOST 00004 00000668 04210  04192
XWTOWAIT 00002 00003714 04843  04816 04859
XWTRCALL 00002 00000FFC 05845  05330
X1STDDB  00004 00000DA0 05609  05404 05428 05586
X1STPDDB 00004 00000D9C 05608  05403 05465 05502
Z        00001 00000008 00448  06358 07501

XEQ                                               LITERAL CROSS-REFERENCE                                      PAGE  235


SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

=A(XJCLECB)

         00004 00000988 05177  03843
=V($LOGPCE)
         00004 0000098C 05178  03903
=V($CKPTPCE)
         00004 00000990 05179  04028 04740 05144
=V($XTHPCE)
         00004 00000994 05180  04068
=A($DDBPOOL)
         00004 00000998 05181  04119
=V($EXECPCE)
         00004 0000099C 05182  04127 04649 04807
=A($OUTXS)

         00004 000009A0 05183  04462
=A($PITABLE)
         00004 000009A4 05184  04530
=C'LINE' 00001 000009A8 05185  04663

=C'CARD' 00001 000009AC 05186  04664
=V(XGETDDB)
         00004 000009B0 05187  04766 04817
=AL2(HDBSTART-BUFDSECT)
         00002 000009B4 05188  03690 04102 04364 04796 04833
=X'40202020202120'

         00001 000009B6 05189  04463
=X'FFFFFF'
         00001 000009BD 05190  04832
=V(XJOBSRCH)
         00004 00001760 06558  05335 06427
=A(X'00007FFF')
         00004 00001764 06559  05455
=V(XGETDDB)

         00004 00001768 06560  05753 06010
=V($COMMPCE)

         00004 0000176C 06561  05833
=A(XTHWRTCB)
         00004 00001770 06562  05876
=V(XJOBSRC2)
         00004 00001774 06563  05884
=F'1960' 00004 00001778 06564  06064
=F'-8'   00004 0000177C 06565  06132
=C'CATA' 00001 00001780 06566  06206

=X'0000F3FF'
         00001 00001784 06567  06226 06295
=V($EXECPCE)
         00004 00001788 06568  06371
=A(XIBASE)

         00004 0000178C 06569  06389
=A(XTHRDTCB)
         00004 00001790 06570  06415

=V($XTHPCE)
         00004 00001794 06571  06434
=V(XCOOL)
         00004 00001798 06572  06441
=C'//'   00001 0000179C 06573  05861 06176
=C'DD '  00001 0000179E 06574  06196
XEQ                                               LITERAL CROSS-REFERENCE                                      PAGE  236



SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 20.02 08/28/78

=X'00'   00001 000017A1 06575  06263 06274
=X'80'   00001 000017A2 06576  06498
=A($RDRPCE)
         00004 000023B0 07975  06677

=CL4'JOB'
         00004 000023B4 07976  06757
=A(1960+(BUFSTART-BUFDSECT))
         00004 000023B8 07977  07184

=F'1'    00004 000023BC 07978  07811
=V(XWARM)
         00004 00002488 08299  08092 08105 08115
=V($EXECPCE)
         00004 0000248C 08300  08095 08170
=V($XTHPCE)

         00004 00002490 08301  08110
=V($LOGPCE)
         00004 00002494 08302  08161
=V($WQUEBUF)
         00004 00002498 08303  08191

=V(HASPCON)
         00004 0000249C 08304  08192
=A(XALMES)
         00004 000024A0 08305  08253
XEQ                                               ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE  237



                                                                                                 ASM 0201 20.02 08/28/78

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)

  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER = 6398/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT       4890
TOTAL RECORDS READ FROM SYSTEM LIBRARY     9827

TOTAL RECORDS PUNCHED                       322
TOTAL RECORDS PRINTED                     10037


























































************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************










          ASP JOB NO. = 0022                                     DATE = 78.240




//P04ASM   JOB 1,'P04ASM   HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A




          ELAPSED TIME ON MAIN = ASP1     = 000.92, START TIME = 20.01.41

          DDNAME = SYSMSG                     PRINTED ON PR1     , LINES = 001256
          DDNAME = SYSPRINT                   PRINTED ON PR1     , LINES = 077035
          LINES OUTPUT FOR THIS JOB = 078291

       CARDS FROM MAIN FOR THIS JOB = NONE



























************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************

 PPPPPPPPPPPP       0000000      5555555555555   LL               SSSSSSSSSSS    VV         VV    CCCCCCCCCCC
 PPPPPPPPPPPPP     000000000     5555555555555   LL              SSSSSSSSSSSSS   VV         VV   CCCCCCCCCCCCC
 PP         PP    00       00    55              LL              SS         SS   VV         VV   CC         CC
 PP         PP   00         00   55              LL              SS              VV         VV   CC         CC
 PP         PP   00         00   55              LL              SS              VV         VV   CC
 PP         PP   00         00   555555555555    LL              SSSSSSSSSSSS    VV         VV   CC
 PPPPPPPPPPPPP   00         00   5555555555555   LL               SSSSSSSSSSSS    VV       VV    CC
 PPPPPPPPPPPP    00         00              55   LL                         SS     VV     VV     CC
 PP              00         00              55   LL                         SS      VV   VV      CC         CC
 PP               00       00    55         55   LL              SS         SS       VV VV       CC         CC
 PP                000000000     5555555555555   LLLLLLLLLLLLL   SSSSSSSSSSSSS        VVV        CCCCCCCCCCCCC
 PP                 0000000       55555555555    LLLLLLLLLLLLL    SSSSSSSSSSS          V          CCCCCCCCCCC









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000       22222222222            44
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222          444
            JJ   OO         OO   BB         BB                    00       00     00       00    22         22         4444
            JJ   OO         OO   BB         BB                   00         00   00         00              22        44 44
            JJ   OO         OO   BB         BB                   00         00   00         00              22       44  44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00             22       44   44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00           22        44    44
            JJ   OO         OO   BB         BB                   00         00   00         00         22         444444444444
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00       22          4444444444444
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00      22                    44
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222           44
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000      2222222222222           44









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 PPPPPPPPPPPP       0000000      5555555555555   LL               SSSSSSSSSSS    VV         VV    CCCCCCCCCCC
 PPPPPPPPPPPPP     000000000     5555555555555   LL              SSSSSSSSSSSSS   VV         VV   CCCCCCCCCCCCC
 PP         PP    00       00    55              LL              SS         SS   VV         VV   CC         CC
 PP         PP   00         00   55              LL              SS              VV         VV   CC         CC
 PP         PP   00         00   55              LL              SS              VV         VV   CC
 PP         PP   00         00   555555555555    LL              SSSSSSSSSSSS    VV         VV   CC
 PPPPPPPPPPPPP   00         00   5555555555555   LL               SSSSSSSSSSSS    VV       VV    CC
 PPPPPPPPPPPP    00         00              55   LL                         SS     VV     VV     CC
 PP              00         00              55   LL                         SS      VV   VV      CC         CC
 PP               00       00    55         55   LL              SS         SS       VV VV       CC         CC
 PP                000000000     5555555555555   LLLLLLLLLLLLL   SSSSSSSSSSSSS        VVV        CCCCCCCCCCCCC
 PP                 0000000       55555555555    LLLLLLLLLLLLL    SSSSSSSSSSS          V          CCCCCCCCCCC









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000       22222222222            44
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222          444
            JJ   OO         OO   BB         BB                    00       00     00       00    22         22         4444
            JJ   OO         OO   BB         BB                   00         00   00         00              22        44 44
            JJ   OO         OO   BB         BB                   00         00   00         00              22       44  44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00             22       44   44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00           22        44    44
            JJ   OO         OO   BB         BB                   00         00   00         00         22         444444444444
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00       22          4444444444444
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00      22                    44
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222           44
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000      2222222222222           44









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 ISV40 JOB ORIGIN FROM GROUP=LOCAL   , DSP=CR , DEVICE=RD1     , 00C
//P05LSVC  JOB 1,'P05LSVC  HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
//*********************************************************************
//*                                                                 ***
//*    Job:      P05LSVC                                            ***
//*    Product:  HASP V4 for MVT.                                   ***
//*    Purpose:  Link HASP SVC into the nucleus.                    ***
//*    Update:   2006/08/28                                         ***
//*                                                                 ***
//*********************************************************************
//*
//LINKSVC EXEC PGM=IEWL,REGION=192K,
//             PARM='NCAL,DC,SIZE=(128K,6K),SCTR,LET,LIST,XREF'
//HASPOBJ  DD  DISP=SHR,DSN=SYS1.HASPOBJ
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSLMOD  DD  DISP=SHR,DSN=SYS1.NUCLEUS
//SYSPRINT DD  SYSOUT=A
//SYSLIN   DD  *
/*
//


 LOCATE' 0024SYS1.HASPOBJ                                '
 AL00240E001/ASPSUP0003
 LOCATE' 0024SYS1.NUCLEUS                                '
 AL00240E001/ASPRES0003


 P05LSVC  IEF403I P05LSVC  STARTED    TIME=20.03.27
 P05LSVC  IEF234E D 665,ASP665
*P05LSVC *43 IECASP0 665 IS P05LSVC  A         LINKSVC SYSPRINT
*P05LSVC *44 IECASP0 666 IS P05LSVC            LINKSVC ASPI0001
 P05LSVC  IEC202E K 666,010024,NL,P05LSVC,LINKSVC
 P05LSVC  STEP: P05LSVC  LINKSVC           ET=00.00.00 RC=0004
 P05LSVC  IEF404I P05LSVC  ENDED      TIME=20.03.28
//P05LSVC  JOB 1,'P05LSVC  HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      P05LSVC                                            ***
***    Product:  HASP V4 for MVT.                                   ***
***    Purpose:  Link HASP SVC into the nucleus.                    ***
***    Update:   2006/08/28                                         ***
***                                                                 ***
***********************************************************************
***
//LINKSVC EXEC PGM=IEWL,REGION=192K,
//             PARM='NCAL,DC,SIZE=(128K,6K),SCTR,LET,LIST,XREF'
//HASPOBJ  DD  DISP=SHR,DSN=SYS1.HASPOBJ
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSLMOD  DD  DISP=SHR,DSN=SYS1.NUCLEUS
//SYSPRINT DD  SYSOUT=A
//SYSLIN DD UNIT=(CTC,,DEFER),DSNAME=&&ASPI0001,                       *
// DISP=(OLD,DELETE),VOL=SER=010024,DCB=(LRECL=80,BLKSIZE=80,RECFM=F)
//
IEF236I ALLOC. FOR P05LSVC  LINKSVC
IEF237I 151   ALLOCATED TO HASPOBJ
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 666   ALLOCATED TO SYSLIN
IEF142I - STEP WAS EXECUTED - COND CODE 0004
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T200327.RV001.P05LSVC.R0000051      DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.NUCLEUS                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200327.RV001.P05LSVC.ASPOA001      DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS78240.T200327.RV001.P05LSVC.ASPI0001      DELETED
IEF285I   VOL SER NOS= 010024.
IEF373I STEP /LINKSVC / START 78240.2003
IEF374I STEP /LINKSVC / STOP  78240.2003 CPU   0MIN 00.59SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 20:03:27.77   ALLOC START    20:03:27.77   MAIN REGION ----- 192K                          *
*   STEP NAME LINKSVC    STEP END TIME  20:03:28.62   PGM START TIME 20:03:27.82   MAIN STORAGE ---- 130K    CONDITION CODE 0004   *
*   PSTP NAME            ELAPSED TIME   00:00:00.85   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.59   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 4       0158 ---------- 164       0150 --------- 1616       0665 ---------- 533       0666 ------------ 7    *
************************************************************************************************************************************

IEF375I  JOB /P05LSVC / START 78240.2003
IEF376I  JOB /P05LSVC / STOP  78240.2003 CPU   0MIN 00.59SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  P05LSVC    JOB READ TIME 20:03:27.55   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.59   *
*   JOB CLASS B          JOB INIT TIME 20:03:27.77   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:00.86   *
*   JOB ID    JOB00024   JOB END TIME  20:03:28.63   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 2   *
************************************************************************************************************************************


 PPPPPPPPPPPP       0000000      5555555555555   LL               SSSSSSSSSSS    VV         VV    CCCCCCCCCCC
 PPPPPPPPPPPPP     000000000     5555555555555   LL              SSSSSSSSSSSSS   VV         VV   CCCCCCCCCCCCC
 PP         PP    00       00    55              LL              SS         SS   VV         VV   CC         CC
 PP         PP   00         00   55              LL              SS              VV         VV   CC         CC
 PP         PP   00         00   55              LL              SS              VV         VV   CC
 PP         PP   00         00   555555555555    LL              SSSSSSSSSSSS    VV         VV   CC
 PPPPPPPPPPPPP   00         00   5555555555555   LL               SSSSSSSSSSSS    VV       VV    CC
 PPPPPPPPPPPP    00         00              55   LL                         SS     VV     VV     CC
 PP              00         00              55   LL                         SS      VV   VV      CC         CC
 PP               00       00    55         55   LL              SS         SS       VV VV       CC         CC
 PP                000000000     5555555555555   LLLLLLLLLLLLL   SSSSSSSSSSSSS        VVV        CCCCCCCCCCCCC
 PP                 0000000       55555555555    LLLLLLLLLLLLL    SSSSSSSSSSS          V          CCCCCCCCCCC









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000       22222222222            44
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222          444
            JJ   OO         OO   BB         BB                    00       00     00       00    22         22         4444
            JJ   OO         OO   BB         BB                   00         00   00         00              22        44 44
            JJ   OO         OO   BB         BB                   00         00   00         00              22       44  44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00             22       44   44
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00           22        44    44
            JJ   OO         OO   BB         BB                   00         00   00         00         22         444444444444
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00       22          4444444444444
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00      22                    44
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222           44
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000      2222222222222           44









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    PPPPPPPPPPPP    RRRRRRRRRRRR    IIIIIIIIIIII    NN         NN   TTTTTTTTTTTT
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRRR   IIIIIIIIIIII    NNN        NN   TTTTTTTTTTTT
 SS         SS     YY    YY      SS         SS   PP         PP   RR         RR        II         NNNN       NN        TT
 SS                 YY  YY       SS              PP         PP   RR         RR        II         NN NN      NN        TT
 SS                  YYYY        SS              PP         PP   RR         RR        II         NN  NN     NN        TT
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    PP         PP   RRRRRRRRRRRRR        II         NN   NN    NN        TT
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRR         II         NN    NN   NN        TT
            SS        YY                    SS   PPPPPPPPPPPP    RR      RR           II         NN     NN  NN        TT
            SS        YY                    SS   PP              RR       RR          II         NN      NN NN        TT
 SS         SS        YY         SS         SS   PP              RR        RR         II         NN       NNNN        TT
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   PP              RR         RR   IIIIIIIIIIII    NN        NNN        TT
  SSSSSSSSSSS         YY          SSSSSSSSSSS    PP              RR         RR   IIIIIIIIIIII    NN         NN        TT











F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED NCAL,DC,SIZE=(128K,6K),SCTR,LET,LIST,XREF
           VARIABLE OPTIONS USED -  SIZE=(131072,6144)
IEW0000     INSERT IEAANIP0
IEW0000     INSERT IEAQFX00
IEW0000     INSERT IGFCCH
IEW0000     INCLUDE HASPOBJ(HASPSVC)
IEW0000     INCLUDE SYSLMOD(IEANUC01)
IEW0000     NAME IEANUC01(R)
IEW0461  IGF0IOB
IEW0461  IGF0DEB
IEW0461  IGFDDRSR
****IEANUC01  NOW REPLACED IN DATA SET


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HASP4SVC      00      88
                                        IGC220        00
  IECHASPE      88      48
                                        IECHASPA      A0
  IGC058        D0      38
  IECTATEN     108     238
  IEDQEB01     340     442
                                        IGC102       340
  IEDQATTN     788      14
  IEAANIP0     7A0    75E0
                                        IEANIP4      7A0
  IEAQFX00    7D80    9908
                                        SVCOPSW     7DA0    PIOPSW      7DA8    PINPSW      7DE8    IEAPSW      7F80
                                        IECIERLC    7F8A    IEASCSAV    7F98    IEAPKSAV    7FD8    IEASAV      8018
                                        IHLCMT      8024    IECIOS      8048    IECIOQET    B200    IECITSAR    B2A0
                                        DDRRQE      B2A4    IGC000      B2C8    XCP064      B37A    IECINT      B998
                                        INT025      BBB2    IECIXAVL    C468    IECDMS      C4E0    IECXAPG     C50C
                                        ATNTAB      C520    CTCATN      C544    IECOLTVT    C548    DDRAPNVT    C578
                                        CTCMUCB     C894    CTCMONSW    C898    LASPTCH     CA24    DEVTAB      CAF8
                                        IECCST      CB48    IECILCH     CB9A    IECILK1     CBD2    IECILK2     CC56
                                        IECCPL00    D002    IGC092      D1E8    IECRQE00    D260    IECRMS      D302
                                        DDRSRTO     D650    IGC015      D6B8    IECIHIO     D8B0    IECSTB     10990
  IEAQBK00   11688    BDC8
                                        IEAHEAD    116A8    IEATCB1    116A8    IEATCB2    117F0    IEATCB3    11938
                                        IEATCB4    11A80    IEATCB5    11BC8    IEATCB6    11D10    IEATCB7    11E58
                                        IEATCB8    11FA0    IEATCB9    120E8    IEATCB10   12230    IEATCB11   12378
                                        IEATCB12   124C0    IEATCB13   12608    IEATCB14   12750    IEATCB15   12898
                                        IEATCB16   129E0    IEATCB17   12B28    IEATCB18   12C70    IEATCB19   12DB8
                                        IEATCB20   12F00    IEATCB21   13048    IEATCB22   13190    IEATCB23   132D8
                                        IEATCB24   13420    IEATCB25   13568    IEATCB26   136B0    IEATCB27   137F8
                                        IEATCB28   13940    IEATCB29   13A88    IEATCB30   13BD0    IEATCB31   13D18
                                        IEATCB32   13E60    IEAERTCB   13FA8    IEAROTCB   14088    IEAROIRB   14090
                                        IEECVTCB   140B8    IEECVPRB   14178    IGFRMTCB   141B8    DDRRB      14278
                                        IEAMSTCB   142B8    IEAQTAQ    14398    IEAQTAQ1   145A0    TAIOB1     145A0

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

                                        TAIOB2     149E8    TAIOB3     14E30    TAIOB4     15278    TAIOB5     156C0
                                        TAIOB6     15B08    TAIOB7     15F50    TAIOB8     16398    TAIOB9     167E0
                                        TAIOB10    16C28    TAIOB11    17070    TAIOB12    174B8    TAIOB13    17900
                                        TAIOB14    17D48    TAIOB15    18190    TAIOB16    185D8    TAIOB17    18A20
                                        TAIOB18    18E68    TAIOB19    192B0    TAIOB20    196F8    TAIOB21    19B40
                                        TAIOB22    19F88    TAIOB23    1A3D0    TAIOB24    1A818    TAIOB25    1AC60
                                        TAIOB26    1B0A8    TAIOB27    1B4F0    TAIOB28    1B938    TAIOB29    1BD80
                                        TAIOB30    1C1C8    TAIOB31    1C610    TAIOB32    1CA58    IEAERWA    1CEA0
                                        IEAERRTA   1CEE8    LINKDCB    1D2BC    IEFLINK    1D2BC    SVCDCB     1D2C0
                                        IEASVDCB   1D2C0    IEAQLPAQ   1D2F0    IEATSCE    1D2F8    IEATSTQE   1D300
                                        IEACVT     1D328    IEARCTRS   1D444    IEAROICT   1D444    IEAROQCT   1D446
                                        IEAROQUE   1D448    IEAROPRM   1D44C
  IGC043     1D450      A0
                                        IGC043A0   1D450
  IGC062     1D4F0     1E0
                                        IGC043A1   1D4F0
  IGC041     1D6D0     2D0
  IGC014     1D9A0     240
                                        IGC040     1DA20
  IGC001     1DBE0     658
                                        IEAQJSTM   1DCB0    IGC002     1DE10    IEA0PT01   1DE3E    IEA0PT02   1DE56
  IEAQLK00   1E238     CE0
                                        IGC006     1E238    IEAQCS02   1E244    IEAQCDSR   1E316    CDEPILOG   1E7B6
                                        IEAQCS03   1E7B6    IEAQCS01   1EC3C    IGC007     1EC50    IGC008     1ED28
                                        IGC009     1EDA0    IGC012     1EE48
  IGC048     1EF18     B18
                                        IEAQENA0   1EF18    IEA0EQ01   1F11A    IGC056     1F3E8
  IGC046     1FA30     2E8
                                        IEAQENA1   1FA30    IGC046A0   1FA30    IGC047     1FB18
  IGC011     1FD18     134
                                        IGC011A0   1FD18    IGC046A1   1FD18    IGC011A1   1FE4C
  IEAQTR00   1FE50     8F0
                                        IEAQTR01   1FF84    IEAQTR02   1FFFC    IEAQTR03   200BC    TBNOTFND   205A4
                                        IEAQTR04   205AC    IEASVRB    206A0    IEAQSVCQ   206A4    TAUSERCT   20728
  IEAQAB00   20740     8E4
                                        IEA0PL00   20740    IEA0AB01   20808    IEA0AB00   20820    SCEDWAIT   20ABA
                                        DMPCEAPP   20B76    DMPAEAPP   20C38    DMPPCIAP   20D66
  IEAQTI00   21028     96C
                                        IEAQTD01   21028    IEAQTIA0   21028    IEAQTD00   21088    IEA0TI00   2115C
                                        IEA0TIDT   21580    IEAQTE00   21658    IEATLEXT   216C2    IEAQTIA1   21994
  IGC079     21998     432
                                        IGC07902   219A0
  IEAQNU00   21DD0     F08
                                        IEAQEX00   21DD0    DISMISS    21E38    IEA0IO02   21E3C    IEAQIO00   21E6C
                                        IEA0IO01   21E72    IORGSW     21E72    IEAQPK00   21EFE    ENTRY2     21F02
                                        IEA0EF00   21FD8    IEA0DS02   2211C    IEA0XE00   22180    IEA0DS     221F8
                                        IEARMSSW   221FA    IEA0DS01   221FE    SYSWSAVE   22384    IECXTLER   225F2
                                        IEAQSC00   22690    IGCERROR   2271A    IEATCBP    22734    IEASMFEX   2273C
                                        ERFERR     22A1A    IEA0VL00   22A4A    IEA0VL01   22A84    WAITTCB    22AD0
                                        SIRB       22B50    IEARMSAD   22BD4    LOWUSER    22BF0    IEATYPE1   22C08
                                        ERCOUNT    22C36    IEA0EXIT   22C44
  IBMORG     22CD8     26C

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

                                        USERORG    22EB0
  IEAQGM00   22F48    1354
                                        IGC004     22F48    MSSBASE    22F4A    GMBRANCH   23058    IGC010     23090
                                        RMBRANCH   230F8    FBQSRCH    234E0    IGC005     23668    FMBRANCH   236C8
                                        IEA10FS    23734    GETMAINB   23EBE    MRELEASE   23FD2    CDPURGE    2405E
                                        SVCBYTE    241DB    GOVRFLB    241E0    SPIDSAV    24220    SMFTCBSV   24248
  IEAQVLCH   242A0     139
  IEASMFGF   243E0      AC
                                        GMSMFCRE   243E0
  IEAQPRT0   24490     5E8
                                        DISPINIT   24780
  IGC044     24A78     25C
  IGC042     24CD8     9F2
  IGC003     256D0    1098
                                        CDEXIT     25BDC    CDHKEEP    25D70    CDDESTRY   25DBE    IEAQPGTM   2606C
                                        IEAQABL    260FC    IEAQSPET   26154    IEAQERA    26210    IEABEND    2646C
                                        IEADQTCB   26508    IEAKJXP    265FA
  IEAPATCH   26768      C8
  IFG019RA   26830     1F8
  IEAQMSGS   26A28      44
  IGFCAT     26A70     79E
                                        CHRADTAB   270E8    ERPIBFD    27140    IGFCCH     271CD
  IFBDCB00   27210     164
                                        IFBDEB     2721C    IFBDCB     27220
  IHLMCIHV   27378     16C
                                        IHLMCIH    27378    IHLBHOOK   2749C
  IEAASPRG   274E8      18
  IECTSVC    27500     304
                                        IECTRDIL   27500    IECTATRL   27576    IECTCHSL   275E6    IECTCHAL   2762E
                                        IECTRSTL   276A2
  IGC116     27808      B9
                                        IGC117     27818    IGXERROR   2783E    IGC109     27858
  IEC23XXF   278C8     B76
                                        ER2311     278C8
  IECINTRP   28440      4C
                                        IECXITP    28440
  IEAQTRCE   28490    1AA8
                                        TRSVC      28490    TRIO       284AA    TRACE      284C6    TRSIO      284C6
                                        TREX       284F4    TRDISP     28528    TRPI       28552    IECXTRA    2857C
                                        TRPTR      285E8
  IGC016     29F38     758
  IECTATTN   2A690      18
  IECURATN   2A6A8       C
  IGC054     2A6B8      D8
  IGC018     2A790     556
                                        SVC018     2A790    IECPBLDL   2A8A0    IECPRLTV   2AB50    IECPCNVT   2ABD6
                                        IECZDTAB   2ACAC
  IEC0SCR1   2ACE8      9E
  IEFQCNVT   2AD88      B0
  IEEMSER    2AE38      C4
                                        BAIPL      2AE44
  IEFDPOST   2AF00      58

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IEEBA1     2AF58      5E
                                        IEEBA1A0   2AF58    IEEBA1A1   2AFB4
  IEFJOB     2AFB8      98
                                        QMRDEB     2AFEC    QMHPT      2B034
  IEFQMWR    2B050      10
  IEECVPRG   2B060     520
                                        IEECMEA0   2B060
  IEECVCTW   2B580     1C9
                                        IEECMEA1   2B580    IEECVCA0   2B580    WRABXLE    2B66C    PXFOXL     2B708
                                        IEECVCA1   2B749
  IEEBC1PE   2B750      44
                                        IEEBC1A0   2B750    IEEBC1A1   2B794
  IEEUCMC    2B798     434
                                        IEECVUCM   2B848    IEECUCB    2B848
  TPC        2BBD0     154
                                        IEATPC     2BBD0    IEATSELM   2BC44    IEACLOCK   2BC60
  IEAQCB02   2BD28      4F
                                        IEAQQCB0   2BD28    HEADQCB    2BD28
  IEECVH2    2BD78      30
  IEECVH1    2BDA8      30
  IEEPFKEY   2BDD8     A64
                                        IEECVK0    2BDEA    IEECVK2    2C313
  IEECVR2    2C840     A98
  IEECVR1    2D2D8     A98
  IEECVXIT   2DD70       2
  IEECMDSV   2DD78     6B2
                                        IEECMDA0   2DD78    IEECMDA1   2E42A
  IEECMWSV   2E430     57C
                                        IEECMWA0   2E430    IEECMENQ   2E646    IEECMQCN   2E86E    IEECMWA1   2E9AC
  IEECMDOM   2E9B0     276
  IEECVSUB   2EC28     26E
                                        SUBAN48    2EC78    SUBAN19    2EC78
  IGF201     2EE98     1B4
                                        CCHPTTAB   2EE98    DDRIOB     2EF30    DDRDEB     2EF6C
  IGFDDR02   2F050     1BE
  IGFDDR03   2F210     10E
  IGFDDR04   2F320      CC
  IGFDDRMV   2F3F0      1A
                                        IGFDDR01   2F3F0    IORMSWT    2F3F0    IORMSSVC   2F3FA
  IFBCTA00   2F410       8
                                        IFBACTA    2F410
  IGFMSB00   2F418      60
  IEWFETCH   2F478     D48
                                        IEWFTRAN   2F478    IEWFBOSV   2F4BE    IEWMSEPT   2F4BE
  IGC037     301C0      90
                                        IGC045     301D8
  IFFABA     30250      F4
                                        IFFIOM     30250
  IGC070     30348      E0
                                        SVC070     30348
  IGC084     30428      10
  IFFGRTTR   30438     134

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  IGC246     30570     478
                                        CTCMCS     3082A    CTCNMCS    30842
  MTVT       309E8      54
  IKJEAAB0   30A40      00



  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

       68            IEA0AB00        IEAQAB00                      70            IGC07902        IGC079
       74            IGC011          IGC011                        78            IEASMFEX        IEAQNU00
       80            IEEBA1          IEEBA1                        84            IBMORG          IBMORG
      8BC            CTCMCS          IGC246                      2510            DMPPCIAP        IEAQAB00
     2514            DMPCEAPP        IEAQAB00                    2518            DMPAEAPP        IEAQAB00
     5FF8            GOVRFLB         IEAQGM00                    5FF0            IEAMSTCB        IEAQBK00
     6000            IEAQLPAQ        IEAQBK00                    5FF4            IEECVTCB        IEAQBK00
     6005            IECXAPG         IEAQFX00                    5FFC            IEASVRB         IEAQTR00
     6010            IBMORG          IBMORG                      6014            USERORG         IBMORG
     600C            IGCERROR        IEAQNU00                    6024            IECZDTAB        IGC018
     6008            IEAQSVCQ        IEAQTR00                    5FE8            IECPCNVT        IGC018
     5FEC            IFBACTA         IFBCTA00                    6018            IGFCCH          IGFCAT
     601C            IEACVT          IEAQBK00                    6020            IECIOS          IEAQFX00
     6028            IEECVUCM        IEEUCMC                     738C            IFBACTA         IFBCTA00
     7340            IGFMSB00        IGFMSB00                    7348            IEARMSAD        IEAQNU00
     734C            IEARMSSW        IEAQNU00                    7364            IECRMS          IEAQFX00
     736C            IECINT          IEAQFX00                    7374            SIRB            IEAQNU00
     7378            IEAERWA         IEAQBK00                    7394            IEA0IO01        IEAQNU00
     7398            IGC011A0        IGC011                      739C            IGC011A1        IGC011
     73A0            IEAQENA0        IGC048                      73A4            IEAQENA1        IGC048
     73A8            IEECMWA0        IEECMWSV                    73AC            IEECMWA1        IEECMWSV
     73B0            IEECMEA0        IEECVPRG                    73B4            IEECMEA1        IEECVPRG
     7DCC            IEACVT          IEAQBK00                    7DD4            TRPTR           IEAQTRCE
     7DDC            IEAQEX00        IEAQNU00                    7DE4            IEAQSC00        IEAQNU00
     7DEC            IEAQPK00        IEAQNU00                    7DFC            IEAQIO00        IEAQNU00
     7E00            IFBACTA         IFBCTA00                    7EF4            IEANIP4         IEAANIP0
     B2A8            DDRIOB          IGF201                      B2AC            DDRDEB          IGF201
     B2B0            IGFRMTCB        IEAQBK00                    C4D4            IEA0XE00        IEAQNU00
     C4E8            DISMISS         IEAQNU00                    C4C0            IEATCBP         IEAQNU00
     C4BC            IEA0DS02        IEAQNU00                    C4B8            IEAHEAD         IEAQBK00
     C474            IEA0PT01        IGC001                      C4D8            ER2311          IEC23XXF
     C524            IEEBA1          IEEBA1                      C52C            IEFDPOST        IEFDPOST
     C534            IEDQATTN        IEDQATTN                    C46C            IEA0PT02        IGC001
     C488            SIRB            IEAQNU00                    C4A8            RMBRANCH        IEAQGM00
     C4C4            IGFCAT          IGFCAT                      C4C8            TRACE           IEAQTRCE
     C4CC            IEASMFEX        IEAQNU00                    C4D0            IECHASPE        IECHASPE
     C4E0            IEAMSTCB        IEAQBK00                    C4EC            IEA0EF00        IEAQNU00
     C530            IFFIOM          IFFABA                      C538            IECTATTN        IECTATTN
     C53C            IECTATEN        IECTATEN                    C540            IECURATN        IECURATN
     D294            SIRB            IEAQNU00                    D974            IEA0IO02        IEAQNU00
     DAA8            IGFCAT          IGFCAT                     116FC            IEWFTRAN        IEWFETCH
    11844            IEWFTRAN        IEWFETCH                   1198C            IEWFTRAN        IEWFETCH
    11708            IEAQTR00        IEAQTR00                   11850            IEAQTR00        IEAQTR00

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

    11998            IEAQTR00        IEAQTR00                   1177C            IEAQTR04        IEAQTR00
    118C4            IEAQTR04        IEAQTR00                   11A0C            IEAQTR04        IEAQTR00
    11AD4            IEWFTRAN        IEWFETCH                   11C1C            IEWFTRAN        IEWFETCH
    11D64            IEWFTRAN        IEWFETCH                   11AE0            IEAQTR00        IEAQTR00
    11C28            IEAQTR00        IEAQTR00                   11D70            IEAQTR00        IEAQTR00
    11B54            IEAQTR04        IEAQTR00                   11C9C            IEAQTR04        IEAQTR00
    11DE4            IEAQTR04        IEAQTR00                   11EAC            IEWFTRAN        IEWFETCH
    11FF4            IEWFTRAN        IEWFETCH                   1213C            IEWFTRAN        IEWFETCH
    12284            IEWFTRAN        IEWFETCH                   11EB8            IEAQTR00        IEAQTR00
    12000            IEAQTR00        IEAQTR00                   12148            IEAQTR00        IEAQTR00
    11F2C            IEAQTR04        IEAQTR00                   12074            IEAQTR04        IEAQTR00
    121BC            IEAQTR04        IEAQTR00                   123CC            IEWFTRAN        IEWFETCH
    12514            IEWFTRAN        IEWFETCH                   1265C            IEWFTRAN        IEWFETCH
    12290            IEAQTR00        IEAQTR00                   123D8            IEAQTR00        IEAQTR00
    12520            IEAQTR00        IEAQTR00                   12668            IEAQTR00        IEAQTR00
    12304            IEAQTR04        IEAQTR00                   1244C            IEAQTR04        IEAQTR00
    12594            IEAQTR04        IEAQTR00                   127A4            IEWFTRAN        IEWFETCH
    128EC            IEWFTRAN        IEWFETCH                   12A34            IEWFTRAN        IEWFETCH
    127B0            IEAQTR00        IEAQTR00                   128F8            IEAQTR00        IEAQTR00
    12A40            IEAQTR00        IEAQTR00                   126DC            IEAQTR04        IEAQTR00
    12824            IEAQTR04        IEAQTR00                   1296C            IEAQTR04        IEAQTR00
    12B7C            IEWFTRAN        IEWFETCH                   12CC4            IEWFTRAN        IEWFETCH
    12E0C            IEWFTRAN        IEWFETCH                   12B88            IEAQTR00        IEAQTR00
    12CD0            IEAQTR00        IEAQTR00                   12E18            IEAQTR00        IEAQTR00
    12AB4            IEAQTR04        IEAQTR00                   12BFC            IEAQTR04        IEAQTR00
    12D44            IEAQTR04        IEAQTR00                   12F54            IEWFTRAN        IEWFETCH
    1309C            IEWFTRAN        IEWFETCH                   131E4            IEWFTRAN        IEWFETCH
    12F60            IEAQTR00        IEAQTR00                   130A8            IEAQTR00        IEAQTR00
    131F0            IEAQTR00        IEAQTR00                   12E8C            IEAQTR04        IEAQTR00
    12FD4            IEAQTR04        IEAQTR00                   1311C            IEAQTR04        IEAQTR00
    13264            IEAQTR04        IEAQTR00                   1332C            IEWFTRAN        IEWFETCH
    13474            IEWFTRAN        IEWFETCH                   135BC            IEWFTRAN        IEWFETCH
    13338            IEAQTR00        IEAQTR00                   13480            IEAQTR00        IEAQTR00
    135C8            IEAQTR00        IEAQTR00                   133AC            IEAQTR04        IEAQTR00
    134F4            IEAQTR04        IEAQTR00                   1363C            IEAQTR04        IEAQTR00
    13704            IEWFTRAN        IEWFETCH                   1384C            IEWFTRAN        IEWFETCH
    13994            IEWFTRAN        IEWFETCH                   13710            IEAQTR00        IEAQTR00
    13858            IEAQTR00        IEAQTR00                   139A0            IEAQTR00        IEAQTR00
    13784            IEAQTR04        IEAQTR00                   138CC            IEAQTR04        IEAQTR00
    13A14            IEAQTR04        IEAQTR00                   13ADC            IEWFTRAN        IEWFETCH
    13C24            IEWFTRAN        IEWFETCH                   13D6C            IEWFTRAN        IEWFETCH
    13AE8            IEAQTR00        IEAQTR00                   13C30            IEAQTR00        IEAQTR00
    13D78            IEAQTR00        IEAQTR00                   13B5C            IEAQTR04        IEAQTR00
    13CA4            IEAQTR04        IEAQTR00                   13DEC            IEAQTR04        IEAQTR00
    14218            IGFDDR01        IGFDDRMV                   14224            IGFDDRSR       $UNRESOLVED
    13EB4            IEWFTRAN        IEWFETCH                   13EC0            IEAQTR00        IEAQTR00
    13F34            IEAQTR04        IEAQTR00                   1418C            IEECVCTW        IEECVCTW
    141C0            DDRDEB          IGF201                     14214            IGF201          IGF201
    14220            IORMSWT         IGFDDRMV                   1428C            IORMSSVC        IGFDDRMV
    1D33C            IECXAPG         IEAQFX00                   1D328            IEATCBP         IEAQNU00
    1D32C            IEA0EF00        IEAQNU00                   1D334            IEFJOB          IEFJOB
    1D340            IEA0VL00        IEAQNU00                   1D344            IECPCNVT        IGC018

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

    1D348            IECPRLTV        IGC018                     1D34C            IECILK1         IEAQFX00
    1D350            IECILK2         IEAQFX00                   1D354            IECXTLER        IEAQNU00
    1D35C            IEA0AB00        IEAQAB00                   1D364            IEEMSER         IEEMSER
    1D3BC            IEEMSER         IEEMSER                    1D368            IECZDTAB        IGC018
    1D36C            IECXITP         IECINTRP                   1D380            IEATPC          TPC
    1D384            IECPBLDL        IGC018                     1D38C            IEECUCB         IEEUCMC
    1D390            IEAQTE00        IEAQTI00                   1D394            IEAQTD00        IEAQTI00
    1D398            IECSTB          IEAQFX00                   1D39D            IFBDCB          IFBDCB00
    1D3A0            IECIOQET        IEAQFX00                   1D3A4            IECIXAVL        IEAQFX00
    1D3AC            IEWFBOSV        IEWFETCH                   1D3B0            IEA0DS          IEAQNU00
    1D3B4            IECILCH         IEAQFX00                   1D3B8            IECIERLC        IEAQFX00
    1D3C0            IEA0PT01        IGC001                     1D3D8            IEFQMWR         IEFQMWR
    1D3E0            IEAQCDSR        IEAQLK00                   1D3F0            IEABEND         IGC003
    1D404            IEAPATCH        IEAPATCH                   1D410            IEC0SCR1        IEC0SCR1
    1D415            IHLCMT          IEAQFX00                   1D42D            IEAASPRG        IEAASPRG
    1D435            IEAQMSGS        IEAQMSGS                   1D439            IFG019RA        IFG019RA
    1D440            IEA0VL01        IEAQNU00                   1D6A8            IEA0PT02        IGC001
    1D6B4            RMBRANCH        IEAQGM00                   1D6CC            IEA0VL01        IEAQNU00
    1DBD8            IEA0DS02        IEAQNU00                   1DBD4            IEA0VL01        IEAQNU00
    1DBD0            IEA0AB01        IEAQAB00                   1DBDC            IEA0XE00        IEAQNU00
    1E214            IEA0XE00        IEAQNU00                   1E1C4            IEA0DS02        IEAQNU00
    1E1CC            IEAQTD01        IEAQTI00                   1E1BC            IEA0AB01        IEAQAB00
    1E1C0            IEA0VL01        IEAQNU00                   1E210            IORGSW          IEAQNU00
    1E22C            IEASCSAV        IEAQFX00                   1E230            RMBRANCH        IEAQGM00
    1EE94            LINKDCB         IEAQBK00                   1EE90            SVCDCB          IEAQBK00
    1EE8C            IEA0DS          IEAQNU00                   1EE98            IEATCBP         IEAQNU00
    1EE84            IECPBLDL        IGC018                     1EE80            IEWMSEPT        IEWFETCH
    1EEA4            IEAQTR03        IEAQTR00                   1EE5C            IEAQLPAQ        IEAQBK00
    1EE88            IEA0DS02        IEAQNU00                   1EEA8            CDHKEEP         IGC003
    1EEAC            RMBRANCH        IEAQGM00                   1F9E8            IEATCBP         IEAQNU00
    1F9EC            IEA0DS          IEAQNU00                   1FA18            IEA0DS02        IEAQNU00
    1F998            IEA0VL01        IEAQNU00                   1F9A0            RMBRANCH        IEAQGM00
    1F9F0            IEAMSTCB        IEAQBK00                   1FA2C            IEAQCB02        IEAQCB02
    1FD08            IEACLOCK        TPC                        1FD00            IEAQTD00        IEAQTI00
    1FD04            IEAQTD01        IEAQTI00                   1FD14            RMBRANCH        IEAQGM00
    1FE44            IEACLOCK        TPC                        1FE48            IEA0TIDT        IEAQTI00
    2068C            IEAQTAQ         IEAQBK00                   2072C            IEAQTAQ         IEAQBK00
    20730            IEAQTAQ         IEAQBK00                   206E8            IEAHEAD         IEAQBK00
    20698            IEA0DS          IEAQNU00                   2069C            SVCDCB          IEAQBK00
    20690            IEA0AB00        IEAQAB00                   20694            IECPBLDL        IGC018
    20734            IEAQTAQ1        IEAQBK00                   206A8            IEA0DS02        IEAQNU00
    206EC            RMBRANCH        IEAQGM00                   20828            IECXTRA         IEAQTRCE
    20B44            IORGSW          IEAQNU00                   20B48            DISMISS         IEAQNU00
    20B4C            IEATYPE1        IEAQNU00                   20B50            IEA0XE00        IEAQNU00
    20B54            IEA0DS02        IEAQNU00                   20B68            IECCPL00        IEAQFX00
    20B64            IEACVT          IEAQBK00                   20B58            IEAPKSAV        IEAQFX00
    20B5C            IEASCSAV        IEAQFX00                   21628            SYSWSAVE        IEAQNU00
    2161C            IGC002          IGC001                     2197C            IEA0EF00        IEAQNU00
    21D5C            IEA0DS02        IEAQNU00                   21D60            IEAROQCT        IEAQBK00
    21D64            IEACVT          IEAQBK00                   21D6C            IEA0AB01        IEAQAB00
    21D68            IEAMSTCB        IEAQBK00                   21D70            IEA0XE00        IEAQNU00
    21E2C            IEEBC1PE        IEEBC1PE                   21E30            IEA0TI00        IEAQTI00

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

    21E34            TREX            IEAQTRCE                   21EA8            IECINT          IEAQFX00
    21EAC            TRIO            IEAQTRCE                   21FB8            IECXTRA         IEAQTRCE
    21FC0            IEA0PL00        IEAQAB00                   21FCC            TRPI            IEAQTRCE
    21FD0            IHLMCIH         IHLMCIHV                   21FD4            IHLBHOOK        IHLMCIHV
    22380            IEAQTR02        IEAQTR00                   22734            IEAMSTCB        IEAQBK00
    22738            IEAMSTCB        IEAQBK00                   22970            IEATLEXT        IEAQTI00
    22BC8            IEAMSTCB        IEAQBK00                   22B90            IECRQE00        IEAQFX00
    22BC0            IEAQTD01        IEAQTI00                   22BC4            IEAQTE00        IEAQTI00
    22BDC            IEAERTCB        IEAQBK00                   22BD8            IEAHEAD         IEAQBK00
    22BE8            IBMORG          IBMORG                     22BFC            IEAQTR00        IEAQTR00
    22C00            IEA0AB00        IEAQAB00                   22C04            IEA0AB01        IEAQAB00
    22BF4            USERORG         IBMORG                     22C0C            TRDISP          IEAQTRCE
    22C10            TRSVC           IEAQTRCE                   22C24            IEASVDCB        IEAQBK00
    22C14            IEAERRTA        IEAQBK00                   22C1C            IECPBLDL        IGC018
    22C28            IEWFTRAN        IEWFETCH                   22C2C            IEAERWA         IEAQBK00
    22CD9            IGC000          IEAQFX00                   22CDD            IGC001          IGC001
    22CE1            IGC002          IGC001                     22CE5            IGC003          IGC003
    22CE9            IGC004          IEAQGM00                   22CED            IGC005          IEAQGM00
    22CF1            IGC006          IEAQLK00                   22CF5            IGC007          IEAQLK00
    22CF9            IGC008          IEAQLK00                   22CFD            IGC009          IEAQLK00
    22D01            IGC010          IEAQGM00                   22D05            IGC011          IGC011
    22D09            IGC012          IEAQLK00                   22D11            IGC014          IGC014
    22D15            IGC015          IEAQFX00                   22D19            IGC016          IGC016
    22D21            IGC018          IGC018                     22D6D            IGC037          IGC037
    22D71            IGCERROR        IEAQNU00                   22D9D            IGCERROR        IEAQNU00
    22DDD            IGCERROR        IEAQNU00                   22DE5            IGCERROR        IEAQNU00
    22DF5            IGCERROR        IEAQNU00                   22DFD            IGCERROR        IEAQNU00
    22E01            IGCERROR        IEAQNU00                   22E05            IGCERROR        IEAQNU00
    22E0D            IGCERROR        IEAQNU00                   22E19            IGCERROR        IEAQNU00
    22E39            IGCERROR        IEAQNU00                   22E3D            IGCERROR        IEAQNU00
    22E81            IGCERROR        IEAQNU00                   22E85            IGCERROR        IEAQNU00
    22E89            IGCERROR        IEAQNU00                   22E95            IGCERROR        IEAQNU00
    22E99            IGCERROR        IEAQNU00                   22E9D            IGCERROR        IEAQNU00
    22EA1            IGCERROR        IEAQNU00                   22EA5            IGCERROR        IEAQNU00
    22EB5            IGCERROR        IEAQNU00                   22EB9            IGCERROR        IEAQNU00
    22EBD            IGCERROR        IEAQNU00                   22EC1            IGCERROR        IEAQNU00
    22EC5            IGCERROR        IEAQNU00                   22EC9            IGCERROR        IEAQNU00
    22ECD            IGCERROR        IEAQNU00                   22ED1            IGCERROR        IEAQNU00
    22ED5            IGCERROR        IEAQNU00                   22ED9            IGCERROR        IEAQNU00
    22EDD            IGCERROR        IEAQNU00                   22EE1            IGCERROR        IEAQNU00
    22EE5            IGCERROR        IEAQNU00                   22EE9            IGCERROR        IEAQNU00
    22EED            IGCERROR        IEAQNU00                   22EF1            IGCERROR        IEAQNU00
    22EF5            IGCERROR        IEAQNU00                   22EF9            IGCERROR        IEAQNU00
    22EFD            IGCERROR        IEAQNU00                   22F01            IGCERROR        IEAQNU00
    22F05            IGCERROR        IEAQNU00                   22F09            IGCERROR        IEAQNU00
    22F0D            IGCERROR        IEAQNU00                   22F11            IGCERROR        IEAQNU00
    22F15            IGCERROR        IEAQNU00                   22F1D            IGCERROR        IEAQNU00
    22F25            IGCERROR        IEAQNU00                   22F29            IGCERROR        IEAQNU00
    22F2D            IGCERROR        IEAQNU00                   22F31            IGCERROR        IEAQNU00
    22F35            IGCERROR        IEAQNU00                   22F39            IGCERROR        IEAQNU00
    22F3D            IGCERROR        IEAQNU00                   22D79            IGC040          IGC014
    22D7D            IGC041          IGC041                     22D81            IGC042          IGC042

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

    22D85            IGC043          IGC043                     22D89            IGC044          IGC044
    22D8D            IGC045          IGC037                     22D91            IGC046          IGC046
    22D95            IGC047          IGC046                     22D99            IGC048          IGC048
    22DB1            IGC054          IGC054                     22DB9            IGC056          IGC048
    22DC1            IGC058          IGC058                     22DD1            IGC062          IGC062
    22DF1            IGC070          IGC070                     22E15            IGC079          IGC079
    22E29            IGC084          IGC084                     22E49            IGC092          IEAQFX00
    22E71            IGC102          IEDQEB01                   22E8D            IGC109          IGC116
    22EA9            IGC116          IGC116                     22EAD            IGC117          IGC116
    22EB1            IGC220          HASP4SVC                   22F19            IGC246          IGC246
    24208            IEA0AB01        IEAQAB00                   24234            CDHKEEP         IGC003
    24238            CDDESTRY        IGC003                     24204            IEAMSTCB        IEAQBK00
    24200            IEA0XE00        IEAQNU00                   24290            DISPINIT        IEAQPRT0
    2423C            IEAQPRT0        IEAQPRT0                   2428C            IEAQPRT0        IEAQPRT0
    24240            IEAQVLCH        IEAQVLCH                   2420C            IEA0VL01        IEAQNU00
    24244            IEASMFGF        IEASMFGF                   24484            IEAQGM00        IEAQGM00
    24488            SPIDSAV         IEAQGM00                   249E0            GOVRFLB         IEAQGM00
    249CC            IEA0AB01        IEAQAB00                   249D0            IEA0XE00        IEAQNU00
    249D8            MSSBASE         IEAQGM00                   249DC            GETMAINB        IEAQGM00
    249E4            IEA0DS02        IEAQNU00                   249E8            RMBRANCH        IEAQGM00
    249EC            CDPURGE         IEAQGM00                   249F0            MRELEASE        IEAQGM00
    249F4            SVCBYTE         IEAQGM00                   249F8            FBQSRCH         IEAQGM00
    24CCC            IEA0VL01        IEAQNU00                   24CC8            IEA0AB01        IEAQAB00
    24CD0            IEA0DS02        IEAQNU00                   25684            IEA0DS          IEAQNU00
    256A8            IEAQCS01        IEAQLK00                   25688            IEAHEAD         IEAQBK00
    2568C            IEA0DS02        IEAQNU00                   256AC            IEA0AB00        IEAQAB00
    256B0            RMBRANCH        IEAQGM00                   26350            IEASCSAV        IEAQFX00
    26354            IEAQTR01        IEAQTR00                   26358            IEA0DS01        IEAQNU00
    26380            INT025          IEAQFX00                   26384            FMBRANCH        IEAQGM00
    2649C            FMBRANCH        IEAQGM00                   26388            RMBRANCH        IEAQGM00
    26488            RMBRANCH        IEAQGM00                   2638C            IEATYPE1        IEAQNU00
    26390            IEAQTR02        IEAQTR00                   264EC            IEAQTR02        IEAQTR00
    26398            IEA0DS02        IEAQNU00                   26494            IEA0DS02        IEAQNU00
    2639C            IEAQJSTM        IGC001                     263A0            IEAQCS02        IEAQLK00
    26498            IEAQCS02        IEAQLK00                   263A8            IEAQCS03        IEAQLK00
    263C0            IGC002          IGC001                     263C8            IFFGRTTR        IFFGRTTR
    263E4            IEAQTD01        IEAQTI00                   26438            IEA0AB00        IEAQAB00
    2644C            IGC07902        IGC079                     26460            GOVRFLB         IEAQGM00
    264D8            GOVRFLB         IEAQGM00                   26470            IEECVPRG        IEECVPRG
    26478            IEAQTAQ         IEAQBK00                   26480            IEAQQCB0        IEAQCB02
    26484            IEA0EQ01        IGC048                     2648C            IGC016          IGC016
    26490            IECXTRA         IEAQTRCE                   264AC            TRPTR           IEAQTRCE
    264B0            GMBRANCH        IEAQGM00                   264B4            TAUSERCT        IEAQTR00
    264B8            IEARCTRS        IEAQBK00                   264BC            IEAROQUE        IEAQBK00
    264C0            IEAROIRB        IEAQBK00                   264C4            IEAROTCB        IEAQBK00
    264C8            IEECVCTW        IEECVCTW                   264CC            SCEDWAIT        IEAQAB00
    264D0            TBNOTFND        IEAQTR00                   264D4            IGFRMTCB        IEAQBK00
    264DC            IEECVTCB        IEAQBK00                   264E0            IEAERTCB        IEAQBK00
    264E8            IECITSAR        IEAQFX00                   264F0            IBMORG          IBMORG
    264F8            IEATSELM        TPC                        264FC            IORMSSVC        IGFDDRMV
    26500            IEAQMSGS        IEAQMSGS                   26504            IEA10FS         IEAQGM00
    26764            IGC07902        IGC079                     271D4            SIRB            IEAQNU00

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

    27220            IGF201          IGF201                     27214            IECOLTVT        IEAQFX00
    27218            IFBACTA         IFBCTA00                   27210            DEVTAB          IEAQFX00
    274D0            IGC011A0        IGC011                     274D4            IEASCSAV        IEAQFX00
    274D8            IEAPKSAV        IEAQFX00                   274DC            IEACVT          IEAQBK00
    274E0            IEA0DS          IEAQNU00                   278A0            IECTRDIL        IECTSVC
    278A4            IECTATRL        IECTSVC                    278A8            IECTCHSL        IECTSVC
    278AC            IECTCHAL        IECTSVC                    278B0            IECTRSTL        IECTSVC
    283EC            IFBDEB          IFBDCB00                   285E0            IEATCBP         IEAQNU00
    285E4            IEATPC          TPC                        28610            IEACVT          IEAQBK00
    2A660            SIRB            IEAQNU00                   2AB10            IEA0IO02        IEAQNU00
    2AB14            IEATCBP         IEAQNU00                   2AB18            IEFLINK         IEAQBK00
    2AB1C            IEASVDCB        IEAQBK00                   2AC2C            QMRDEB          IEFJOB
    2ACEC            IEFQCNVT        IEFQCNVT                   2AE45            IEECVPRB        IEAQBK00
    2AEF0            IEA0IO02        IEAQNU00                   2AF48            IEFQMWR         IEFQMWR
    2AF4C            IEA0PT01        IGC001                     2B540            RMBRANCH        IEAQGM00
    2B544            GMBRANCH        IEAQGM00                   2B738            IEECMDSV        IEECMDSV
    2B73C            IEECMWSV        IEECMWSV                   2B740            IEECMDOM        IEECMDOM
    2B744            IEECVUCM        IEEUCMC                    2B79C            IEA0PT02        IGC001
    2B7F0            IEECVXIT        IEECVXIT                   2B820            IEECMENQ        IEECMWSV
    2B828            IEECMDOM        IEECMDOM                   2B888            IEECVTCB        IEAQBK00
    2BA38            IEECVH1         IEECVH1                    2BAC8            IEECVH2         IEECVH2
    2BD78            IEECVR2         IEECVR2                    2BD8D            SUBAN48         IEECVSUB
    2BD9C            IEECVK2         IEEPFKEY                   2BDA8            IEECVR1         IEECVR1
    2BDBD            SUBAN48         IEECVSUB                   2BDCC            IEECVK0         IEEPFKEY
    2C858            IEECVSUB        IEECVSUB                   2D2F0            IEECVSUB        IEECVSUB
    2E408            IEECMQCN        IEECMWSV                   2E3F8            WRABXLE         IEECVCTW
    2E818            IEECMDSV        IEECMDSV                   2EC48            IEEPFKEY        IEEPFKEY
    2EE98            ERPIBFD         IGFCAT                     2EEA0            IGFCAT          IGFCAT
    2EEA4            CHRADTAB        IGFCAT                     2EEB1            IGFRMTCB        IEAQBK00
    2EF6D            IGFRMTCB        IEAQBK00                   2EEB5            DDRAPNVT        IEAQFX00
    2EEC8            DDRRQE          IEAQFX00                   2EED5            DDRRB           IEAQBK00
    2EF64            IGFDDR02        IGFDDR02                   2EF68            IGFDDR03        IGFDDR03
    2FB94            IECPCNVT        IGC018                     3016C            IGC002          IGC001
    30170            IEFLINK         IEAQBK00                   30174            IEASVDCB        IEAQBK00
    309A0            MTVT            MTVT                       309F8            CTCMUCB         IEAQFX00
    309FC            ATNTAB          IEAQFX00                   30A00            CTCATN          IEAQFX00
    30A04            CTCMONSW        IEAQFX00                   30A08            IEASCSAV        IEAQFX00
    30A0C            IEAQTR00        IEAQTR00                   30A10            IBMORG          IBMORG
    30A14            USERORG         IBMORG                     30A18            LOWUSER         IEAQNU00
    30A1C            IEATYPE1        IEAQNU00                   30A2C            LASPTCH         IEAQFX00

 ENTRY ADDRESS       00
 TOTAL LENGTH     30A40



                                             DIAGNOSTIC MESSAGE DIRECTORY


   IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE; NCAL WAS SPECIFIED, OR THE REFERENCE WAS
           MARKED FOR RESTRICTED NO-CALL OR NEVERCALL.




























































************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************










          ASP JOB NO. = 0024                                     DATE = 78.240




//P05LSVC  JOB 1,'P05LSVC  HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A




          ELAPSED TIME ON MAIN = ASP1     = 000.02, START TIME = 20.03.27

          DDNAME = SYSMSG                     PRINTED ON PR1     , LINES = 000096
          DDNAME = SYSPRINT                   PRINTED ON PR1     , LINES = 000533
          LINES OUTPUT FOR THIS JOB = 000629

       CARDS FROM MAIN FOR THIS JOB = NONE



























************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************

 PPPPPPPPPPPP       0000000       666666666666   LL              HH         HH     AAAAAAAAA      SSSSSSSSSSS    PPPPPPPPPPPP
 PPPPPPPPPPPPP     000000000     6666666666666   LL              HH         HH    AAAAAAAAAAA    SSSSSSSSSSSSS   PPPPPPPPPPPPP
 PP         PP    00       00    66              LL              HH         HH   AA         AA   SS         SS   PP         PP
 PP         PP   00         00   66              LL              HH         HH   AA         AA   SS              PP         PP
 PP         PP   00         00   66              LL              HH         HH   AA         AA   SS              PP         PP
 PP         PP   00         00   666666666666    LL              HHHHHHHHHHHHH   AA         AA   SSSSSSSSSSSS    PP         PP
 PPPPPPPPPPPPP   00         00   6666666666666   LL              HHHHHHHHHHHHH   AAAAAAAAAAAAA    SSSSSSSSSSSS   PPPPPPPPPPPPP
 PPPPPPPPPPPP    00         00   66         66   LL              HH         HH   AAAAAAAAAAAAA              SS   PPPPPPPPPPPP
 PP              00         00   66         66   LL              HH         HH   AA         AA              SS   PP
 PP               00       00    66         66   LL              HH         HH   AA         AA   SS         SS   PP
 PP                000000000     6666666666666   LLLLLLLLLLLLL   HH         HH   AA         AA   SSSSSSSSSSSSS   PP
 PP                 0000000       66666666666    LLLLLLLLLLLLL   HH         HH   AA         AA    SSSSSSSSSSS    PP









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000       22222222222     666666666666
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222   6666666666666
            JJ   OO         OO   BB         BB                    00       00     00       00    22         22   66
            JJ   OO         OO   BB         BB                   00         00   00         00              22   66
            JJ   OO         OO   BB         BB                   00         00   00         00              22   66
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00             22    666666666666
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00           22      6666666666666
            JJ   OO         OO   BB         BB                   00         00   00         00         22        66         66
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00       22          66         66
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00      22            66         66
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222   6666666666666
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000      2222222222222    66666666666









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 PPPPPPPPPPPP       0000000       666666666666   LL              HH         HH     AAAAAAAAA      SSSSSSSSSSS    PPPPPPPPPPPP
 PPPPPPPPPPPPP     000000000     6666666666666   LL              HH         HH    AAAAAAAAAAA    SSSSSSSSSSSSS   PPPPPPPPPPPPP
 PP         PP    00       00    66              LL              HH         HH   AA         AA   SS         SS   PP         PP
 PP         PP   00         00   66              LL              HH         HH   AA         AA   SS              PP         PP
 PP         PP   00         00   66              LL              HH         HH   AA         AA   SS              PP         PP
 PP         PP   00         00   666666666666    LL              HHHHHHHHHHHHH   AA         AA   SSSSSSSSSSSS    PP         PP
 PPPPPPPPPPPPP   00         00   6666666666666   LL              HHHHHHHHHHHHH   AAAAAAAAAAAAA    SSSSSSSSSSSS   PPPPPPPPPPPPP
 PPPPPPPPPPPP    00         00   66         66   LL              HH         HH   AAAAAAAAAAAAA              SS   PPPPPPPPPPPP
 PP              00         00   66         66   LL              HH         HH   AA         AA              SS   PP
 PP               00       00    66         66   LL              HH         HH   AA         AA   SS         SS   PP
 PP                000000000     6666666666666   LLLLLLLLLLLLL   HH         HH   AA         AA   SSSSSSSSSSSSS   PP
 PP                 0000000       66666666666    LLLLLLLLLLLLL   HH         HH   AA         AA    SSSSSSSSSSS    PP









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000       22222222222     666666666666
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222   6666666666666
            JJ   OO         OO   BB         BB                    00       00     00       00    22         22   66
            JJ   OO         OO   BB         BB                   00         00   00         00              22   66
            JJ   OO         OO   BB         BB                   00         00   00         00              22   66
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00             22    666666666666
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00           22      6666666666666
            JJ   OO         OO   BB         BB                   00         00   00         00         22        66         66
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00       22          66         66
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00      22            66         66
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222   6666666666666
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000      2222222222222    66666666666









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   MMM       MMM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
 SS         SS     YY    YY      SS         SS   MMMM     MMMM   SS         SS   GG         GG
 SS                 YY  YY       SS              MM MM   MM MM   SS              GG         GG
 SS                  YYYY        SS              MM  MM MM  MM   SS              GG
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    MM   MMM   MM   SSSSSSSSSSSS    GG
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   MM    M    MM    SSSSSSSSSSSS   GG      GGGG
            SS        YY                    SS   MM         MM              SS   GG      GGGGG
            SS        YY                    SS   MM         MM              SS   GG         GG
 SS         SS        YY         SS         SS   MM         MM   SS         SS   GG         GG
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   MM         MM   SSSSSSSSSSSSS   GGGGGGGGGGGGG
  SSSSSSSSSSS         YY          SSSSSSSSSSS    MM         MM    SSSSSSSSSSS     GGGGGGGGGGG










 ISV40 JOB ORIGIN FROM GROUP=LOCAL   , DSP=CR , DEVICE=RD1     , 00C
//P06LHASP JOB 1,'P06LHASP HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
//*********************************************************************
//*                                                                 ***
//*    Job:      P06LHASP                                           ***
//*    Product:  HASP V4 for MVT.                                   ***
//*    Purpose:  Build HASP load module.                            ***
//*    Update:   2003/03/18                                         ***
//*                                                                 ***
//*    Note:     Because this job deletes and recreates             ***
//*              SYS1.HASPOLIB, which is allocated in the           ***
//*              HASP procedure, this job must be run using         ***
//*              an OS reader and initiator.  It will hang          ***
//*              in job initiation with msgIEF861I RESERVED         ***
//*              DATA SETS UNAVAILABLE if run under HASP.           ***
//*                                                                 ***
//*********************************************************************
//*
//*-----------------------------------------------------------------***
//*    Delete existing overlay library.                             ***
//*-----------------------------------------------------------------***
//DELETE  EXEC PGM=IEFBR14
//HASPOLIB DD  DISP=(OLD,DELETE),DSN=SYS1.HASPOLIB
//*
//*-----------------------------------------------------------------***
//*    Build overlay library.                                       ***
//*-----------------------------------------------------------------***
//OBLD    EXEC PGM=HASPOBLD
//STEPLIB  DD  DISP=SHR,DSN=SYS1.HASPMOD
//SYSOBJ   DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPNUC)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPRDR)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPXEQ)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPWTR)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPPRPU)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPACCT)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPMISC)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPCON)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPRTAM)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPCOMM)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPINIT)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPINTF)
//SYSLIN   DD  DSN=&&TEMP,UNIT=SYSDA,DISP=(NEW,PASS),
//             SPACE=(400,(400,50)),DCB=BLKSIZE=400
//OLAYLIB  DD  DSN=SYS1.HASPOLIB,UNIT=SYSDA,VOL=REF=SYS1.HASPMOD,
//             DISP=(NEW,CATLG),
//             SPACE=(CYL,1)
//SYSPRINT DD  SYSOUT=A,DCB=BLKSIZE=121
//SYSIN    DD  *,DCB=BLKSIZE=80   <---- HASPOBLD input goes here
/*
//*
//*-----------------------------------------------------------------***
//*    Link HASP load module into SYS1.LINKLIB.                     ***
//*-----------------------------------------------------------------***
//LKHASP  EXEC PGM=IEWL,PARM='XREF,LIST',REGION=192K,COND=(4,LT,OBLD)
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSLMOD  DD  DISP=SHR,DSN=SYS1.LINKLIB
//SYSPRINT DD  SYSOUT=A
//SYSLIN   DD  DSN=&&TEMP,DISP=(OLD,DELETE)
//         DD *
/*
//


 LOCATE' 0026SYS1.HASPOLIB                               '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPMOD                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPOBJ                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPOBJ                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPOBJ                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPOBJ                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPOBJ                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPOBJ                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPOBJ                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPOBJ                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPOBJ                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPOBJ                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPOBJ                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPOBJ                                '
 AL00260E001/ASPSUP0003
 LOCATE' 0026SYS1.HASPMOD                                '
 AL00260E001/ASPSUP0003


 P06LHASP IEF403I P06LHASP STARTED    TIME=20.03.47
 P06LHASP STEP: P06LHASP DELETE            ET=00.00.00 RC=0000
 P06LHASP IEF234E D 665,ASP665
*P06LHASP*45 IECASP0 666 IS P06LHASP           OBLD    ASPI0001
*P06LHASP*46 IECASP0 665 IS P06LHASP A         OBLD    SYSPRINT
 P06LHASP IEC202E K 666,010026,NL,P06LHASP,OBLD
 P06LHASP STEP: P06LHASP OBLD              ET=00.00.00 RC=0000
 P06LHASP IEF234E D 665,ASP665
*P06LHASP*47 IECASP0 665 IS P06LHASP A         LKHASP  SYSPRINT
*P06LHASP*48 IECASP0 666 IS P06LHASP           LKHASP  ASPI0002
 P06LHASP IEC202E K 666,020026,NL,P06LHASP,LKHASP
 P06LHASP STEP: P06LHASP LKHASP            ET=00.00.00 RC=0000
 P06LHASP IEF404I P06LHASP ENDED      TIME=20.03.48
//P06LHASP JOB 1,'P06LHASP HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A
***********************************************************************
***                                                                 ***
***    Job:      P06LHASP                                           ***
***    Product:  HASP V4 for MVT.                                   ***
***    Purpose:  Build HASP load module.                            ***
***    Update:   2003/03/18                                         ***
***                                                                 ***
***    Note:     Because this job deletes and recreates             ***
***              SYS1.HASPOLIB, which is allocated in the           ***
***              HASP procedure, this job must be run using         ***
***              an OS reader and initiator.  It will hang          ***
***              in job initiation with msgIEF861I RESERVED         ***
***              DATA SETS UNAVAILABLE if run under HASP.           ***
***                                                                 ***
***********************************************************************
***
***-----------------------------------------------------------------***
***    Delete existing overlay library.                             ***
***-----------------------------------------------------------------***
//DELETE  EXEC PGM=IEFBR14
//HASPOLIB DD  DISP=(OLD,DELETE),DSN=SYS1.HASPOLIB
***
***-----------------------------------------------------------------***
***    Build overlay library.                                       ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR P06LHASP DELETE
IEF237I 151   ALLOCATED TO HASPOLIB
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPOLIB                                UNCATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOLIB                                DELETED
IEF285I   VOL SER NOS= ASPSUP.
IEF373I STEP /DELETE  / START 78240.2003
IEF374I STEP /DELETE  / STOP  78240.2003 CPU   0MIN 00.02SEC MAIN   4K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  001        STEP INIT TIME 20:03:47.59   ALLOC START    20:03:47.60   MAIN REGION ----- 256K                          *
*   STEP NAME DELETE     STEP END TIME  20:03:47.66   PGM START TIME 20:03:47.62   MAIN STORAGE ------ 4K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.07   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEFBR14    STEP CPU TIME  00:00:00.02   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT                                                                                                            *
*   0151 ------------ 0                                                                                                            *
************************************************************************************************************************************

//OBLD    EXEC PGM=HASPOBLD
//STEPLIB  DD  DISP=SHR,DSN=SYS1.HASPMOD
//SYSOBJ   DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPNUC)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPRDR)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPXEQ)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPWTR)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPPRPU)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPACCT)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPMISC)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPCON)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPRTAM)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPCOMM)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPINIT)
//         DD  DISP=SHR,DSN=SYS1.HASPOBJ(HASPINTF)
//SYSLIN   DD  DSN=&&TEMP,UNIT=SYSDA,DISP=(NEW,PASS),
//             SPACE=(400,(400,50)),DCB=BLKSIZE=400
//OLAYLIB  DD  DSN=SYS1.HASPOLIB,UNIT=SYSDA,VOL=REF=SYS1.HASPMOD,
//             DISP=(NEW,CATLG),
//             SPACE=(CYL,1)
//SYSPRINT DD  SYSOUT=A,DCB=BLKSIZE=121
//SYSIN DD UNIT=(CTC,,DEFER),DSNAME=&&ASPI0001,                        *
// DISP=(OLD,DELETE),VOL=SER=010026,DCB=(LRECL=80,BLKSIZE=80,RECFM=F)
***
***-----------------------------------------------------------------***
***    Link HASP load module into SYS1.LINKLIB.                     ***
***-----------------------------------------------------------------***
IEF236I ALLOC. FOR P06LHASP OBLD
IEF237I 151   ALLOCATED TO STEPLIB
IEF237I 151   ALLOCATED TO SYSOBJ
IEF237I 151   ALLOCATED TO
IEF237I 151   ALLOCATED TO
IEF237I 151   ALLOCATED TO
IEF237I 151   ALLOCATED TO
IEF237I 151   ALLOCATED TO
IEF237I 151   ALLOCATED TO
IEF237I 151   ALLOCATED TO
IEF237I 151   ALLOCATED TO
IEF237I 151   ALLOCATED TO
IEF237I 151   ALLOCATED TO
IEF237I 151   ALLOCATED TO
IEF237I 158   ALLOCATED TO SYSLIN
IEF237I 151   ALLOCATED TO OLAYLIB
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 666   ALLOCATED TO SYSIN
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.HASPMOD                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS1.HASPOBJ                                 KEPT
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T200347.RV001.P06LHASP.TEMP         PASSED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.HASPOLIB                                CATALOGED
IEF285I   VOL SER NOS= ASPSUP.
IEF285I   SYS78240.T200347.RV001.P06LHASP.ASPOA001     DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS78240.T200347.RV001.P06LHASP.ASPI0001     DELETED
IEF285I   VOL SER NOS= 010026.
IEF373I STEP /OBLD    / START 78240.2003
IEF374I STEP /OBLD    / STOP  78240.2003 CPU   0MIN 00.54SEC MAIN  46K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  002        STEP INIT TIME 20:03:47.67   ALLOC START    20:03:47.67   MAIN REGION ----- 256K                          *
*   STEP NAME OBLD       STEP END TIME  20:03:48.40   PGM START TIME 20:03:47.77   MAIN STORAGE ----- 46K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.73   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  HASPOBLD   STEP CPU TIME  00:00:00.54   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0151 ------------ 0       0151 ----------- 47       0151 ----------- 33       0151 ----------- 67       0151 ------------ 9    *
*   0151 ----------- 71       0151 ------------ 5       0151 ----------- 19       0151 ----------- 20       0151 ------------ 3    *
*   0151 ----------- 63       0151 ----------- 92       0151 ------------ 8       0158 ---------- 298       0151 ----------- 52    *
*   0665 ----------- 53       0666 ------------ 1                                                                                  *
************************************************************************************************************************************

//LKHASP  EXEC PGM=IEWL,PARM='XREF,LIST',REGION=192K,COND=(4,LT,OBLD)
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSLMOD  DD  DISP=SHR,DSN=SYS1.LINKLIB
//SYSPRINT DD  SYSOUT=A
//SYSLIN   DD  DSN=&&TEMP,DISP=(OLD,DELETE)
// DD UNIT=(CTC,,DEFER),DSNAME=&&ASPI0002,                             *
// DISP=(OLD,DELETE),VOL=SER=020026,DCB=(LRECL=80,BLKSIZE=80,RECFM=F)
//
IEF236I ALLOC. FOR P06LHASP LKHASP
IEF237I 158   ALLOCATED TO SYSUT1
IEF237I 150   ALLOCATED TO SYSLMOD
IEF237I 665   ALLOCATED TO SYSPRINT
IEF237I 158   ALLOCATED TO SYSLIN
IEF237I 666   ALLOCATED TO
IEF142I - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS78240.T200347.RV001.P06LHASP.R0000052     DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS1.LINKLIB                                 KEPT
IEF285I   VOL SER NOS= ASPRES.
IEF285I   SYS78240.T200347.RV001.P06LHASP.ASPOA002     DELETED
IEF285I   VOL SER NOS= ASP665.
IEF285I   SYS78240.T200347.RV001.P06LHASP.TEMP         DELETED
IEF285I   VOL SER NOS= PERMA0.
IEF285I   SYS78240.T200347.RV001.P06LHASP.ASPI0002     DELETED
IEF285I   VOL SER NOS= 020026.
IEF373I STEP /LKHASP  / START 78240.2003
IEF374I STEP /LKHASP  / STOP  78240.2003 CPU   0MIN 00.21SEC MAIN 130K LCS   0K

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                    <==STEP END STATISTICS==>                                                     *
*   STEP NUM  003        STEP INIT TIME 20:03:48.41   ALLOC START    20:03:48.41   MAIN REGION ----- 192K                          *
*   STEP NAME LKHASP     STEP END TIME  20:03:48.79   PGM START TIME 20:03:48.48   MAIN STORAGE ---- 130K    CONDITION CODE 0000   *
*   PSTP NAME            ELAPSED TIME   00:00:00.38   STEP DPRTY ------------ 43   LCS REGION -------- 0K                          *
*   PGM NAME  IEWL       STEP CPU TIME  00:00:00.21   PROTECT KEY ----------- 14   LCS STORAGE  ------ 0K                          *
*..................................................................................................................................*
*                                                    <==STEP EXCP STATISTICS==>                                                    *
*   UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT       UNIT     EXCP COUNT    *
*   0158 ----------- 38       0150 ----------- 86       0665 ---------- 157       0158 ---------- 299       0666 ------------ 2    *
************************************************************************************************************************************

IEF375I  JOB /P06LHASP/ START 78240.2003
IEF376I  JOB /P06LHASP/ STOP  78240.2003 CPU   0MIN 00.77SEC

********************************************* OS/360 MVT RELEASE 21.8F    SYSTEM ASP1 **********************************************
*                                                     <==JOB END STATISTICS==>                                                     *
*   JOB NAME  P06LHASP   JOB READ TIME 20:03:47.21   JOB READ DATE 1978.240 1978/08/28 MONDAY      JOB CPU TIME      00:00:00.77   *
*   JOB CLASS B          JOB INIT TIME 20:03:47.59   JOB INIT DATE 1978.240 1978/08/28 MONDAY      JOB ELAPSED TIME  00:00:01.20   *
*   JOB ID    JOB00026   JOB END TIME  20:03:48.79   JOB END DATE  1978.240 1978/08/28 MONDAY      JOB PRIORITY -------------- 2   *
************************************************************************************************************************************


 PPPPPPPPPPPP       0000000       666666666666   LL              HH         HH     AAAAAAAAA      SSSSSSSSSSS    PPPPPPPPPPPP
 PPPPPPPPPPPPP     000000000     6666666666666   LL              HH         HH    AAAAAAAAAAA    SSSSSSSSSSSSS   PPPPPPPPPPPPP
 PP         PP    00       00    66              LL              HH         HH   AA         AA   SS         SS   PP         PP
 PP         PP   00         00   66              LL              HH         HH   AA         AA   SS              PP         PP
 PP         PP   00         00   66              LL              HH         HH   AA         AA   SS              PP         PP
 PP         PP   00         00   666666666666    LL              HHHHHHHHHHHHH   AA         AA   SSSSSSSSSSSS    PP         PP
 PPPPPPPPPPPPP   00         00   6666666666666   LL              HHHHHHHHHHHHH   AAAAAAAAAAAAA    SSSSSSSSSSSS   PPPPPPPPPPPPP
 PPPPPPPPPPPP    00         00   66         66   LL              HH         HH   AAAAAAAAAAAAA              SS   PPPPPPPPPPPP
 PP              00         00   66         66   LL              HH         HH   AA         AA              SS   PP
 PP               00       00    66         66   LL              HH         HH   AA         AA   SS         SS   PP
 PP                000000000     6666666666666   LLLLLLLLLLLLL   HH         HH   AA         AA   SSSSSSSSSSSSS   PP
 PP                 0000000       66666666666    LLLLLLLLLLLLL   HH         HH   AA         AA    SSSSSSSSSSS    PP









            JJ    OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000       22222222222     666666666666
            JJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222   6666666666666
            JJ   OO         OO   BB         BB                    00       00     00       00    22         22   66
            JJ   OO         OO   BB         BB                   00         00   00         00              22   66
            JJ   OO         OO   BB         BB                   00         00   00         00              22   66
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00             22    666666666666
            JJ   OO         OO   BBBBBBBBBBBB                    00         00   00         00           22      6666666666666
            JJ   OO         OO   BB         BB                   00         00   00         00         22        66         66
 JJ         JJ   OO         OO   BB         BB                   00         00   00         00       22          66         66
 JJ         JJ   OO         OO   BB         BB                    00       00     00       00      22            66         66
 JJJJJJJJJJJJJ   OOOOOOOOOOOOO   BBBBBBBBBBBBB                     000000000       000000000     2222222222222   6666666666666
  JJJJJJJJJJJ     OOOOOOOOOOO    BBBBBBBBBBBB                       0000000         0000000      2222222222222    66666666666









  SSSSSSSSSSS    YY        YY     SSSSSSSSSSS    PPPPPPPPPPPP    RRRRRRRRRRRR    IIIIIIIIIIII    NN         NN   TTTTTTTTTTTT
 SSSSSSSSSSSSS    YY      YY     SSSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRRR   IIIIIIIIIIII    NNN        NN   TTTTTTTTTTTT
 SS         SS     YY    YY      SS         SS   PP         PP   RR         RR        II         NNNN       NN        TT
 SS                 YY  YY       SS              PP         PP   RR         RR        II         NN NN      NN        TT
 SS                  YYYY        SS              PP         PP   RR         RR        II         NN  NN     NN        TT
 SSSSSSSSSSSS         YY         SSSSSSSSSSSS    PP         PP   RRRRRRRRRRRRR        II         NN   NN    NN        TT
  SSSSSSSSSSSS        YY          SSSSSSSSSSSS   PPPPPPPPPPPPP   RRRRRRRRRRRR         II         NN    NN   NN        TT
            SS        YY                    SS   PPPPPPPPPPPP    RR      RR           II         NN     NN  NN        TT
            SS        YY                    SS   PP              RR       RR          II         NN      NN NN        TT
 SS         SS        YY         SS         SS   PP              RR        RR         II         NN       NNNN        TT
 SSSSSSSSSSSSS        YY         SSSSSSSSSSSSS   PP              RR         RR   IIIIIIIIIIII    NN        NNN        TT
  SSSSSSSSSSS         YY          SSSSSSSSSSS    PP              RR         RR   IIIIIIIIIIII    NN         NN        TT










                                        HASP OVERLAY BUILD PROGRAM


                    CSECT       LGTH    OCON    T R     C C H H R     PRIO

                    HA$ORDRI    00FC    0001    0002    0176000002     08
                    HA$ORJCS    039A    0002    0003    0176000003     08
                    HA$ORDRT    0054    0003    0004    0176000004     08
                    HA$ORCC1    03B2    0004    0005    0176000005     08
                    HA$ORCC2    0377    0005    0006    0176000006     08
                    HA$ORSCN    03E2    0006    0007    0176000007     08
                    HA$OXJI1    014B    0007    0008    0176000008     12
                    HA$OXEOJ    01C4    0008    0009    0176000009     12
                    HA$OXJI2    021A    0009    0101    0176000101     12
                    HA$OXJI3    01D8    000A    0102    0176000102     12
                    HA$OXLOG    01D8    000B    0103    0176000103     08
                    HA$OPPI1    0265    000C    0104    0176000104     08
                    HA$OPPI2    01D2    000D    0105    0176000105     08
                    HA$OBLOK    03ED    000E    0106    0176000106     08
                    HA$OPRAN    0110    000F    0107    0176000107     08
                    HA$OPRHN    0110    0010    0108    0176000108     08
                    HA$OPRPN    0110    0011    0109    0176000109     08
                    HA$OPRQN    0110    0012    0201    0176000201     08
                    HA$OPRRN    0110    0013    0202    0176000202     08
                    HA$OPRUN    0020    0014    0203    0176000203     08
                    HA$OPRA1    0220    0015    0204    0176000204     08
                    HA$OPRH1    0220    0016    0205    0176000205     08
                    HA$OPRP1    0220    0017    0206    0176000206     08
                    HA$OPRU1    0020    0018    0207    0176000207     08
                    HA$OC461    0063    0019    0208    0176000208     08
                    HA$OC464    0065    001A    0209    0176000209     08
                    HA$OC467    0063    001B    0301    0176000301     08
                    HA$OVPUR    022A    001C    0302    0176000302     04
                    HA$OKCP     0159    001D    0303    0176000303     12
                    HA$OWTSO    01AE    001E    0304    0176000304     04
                    HA$OCOME    03F2    001F    0305    0176000305     04
                    HA$OCJB3    0392    0020    0306    0176000306     00
                    HA$OCJB1    0367    0021    0307    0176000307     00
                    HA$OCJB2    03DA    0022    0308    0176000308     00
                    HA$OCDV1    029B    0023    0309    0176000309     00
                    HA$OCMS1    0392    0024    0401    0176000401     00
                    HA$OCJ1B    03AC    0025    0402    0176000402     00
                    HA$OCSY1    0196    0026    0403    0176000403     00
                    HA$OCRM1    03E3    0027    0404    0176000404     00
                    HA$OCRM2    02B2    0028    0405    0176000405     00
                    HA$OCJB4    0314    0029    0406    0176000406     00
                    HA$OCSY2    0306    002A    0407    0176000407     00
                    HA$OCDV2    0207    002B    0408    0176000408     00
                    HA$OCJ3A    0358    002C    0409    0176000409     00
                    HA$OCSY3    0278    002D    0501    0176000501     00
                    HA$OCDV3    04BA    002E    0502    0176000502     00
                    HA$OCJ1A    0382    002F    0503    0176000503     00
                    HA$OIOVA    036F    0030    0504    0176000504     00
                    HA$OIOVB    03A4    0031    0505    0176000505     00
                    HA$OIOVC    01E8    0032    0506    0176000506     00
                    HA$OIOVQ    0478    0033    0507    0176000507     00

F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED XREF,LIST
          DEFAULT OPTION(S) USED -  SIZE=(131072,18432)
IEW0000     NAME HASP(R)
****HASP      DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET


                                                CROSS REFERENCE TABLE


  CONTROL SECTION                       ENTRY

    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION

  HASPNUC       00    2058
                                        HASP          00    $HASPECB      D8    $OROLLAD     418    $CMBWECB     A74
                                        $WRESERV     A88    $ALSTATB     BC8    $IOAPPEN     CB8    $ASYNCP      E00
                                        $MLLMPCE     EB0    $MCONPCE     EB0    $EXECPCE     EB0    $XTHPCE     10C0
                                        $LOGPCE     1E00    $COMMPCE    1E58    $TSOSPCE    1F50    $CKPTPCE    2000
  HASPNUC2    2058     700
                                        $HNUCEND    2058    $TEDDATA    2300    $ABEND      25E8    $OLASYNC    26B0
  HASPRDR     2758     D10
  HASPXEQ     3468    32C0
                                        $EXCPSVC    3E28    $RDRPCE     3FD0    XGETDDB     4988    XJOBSRC2    49FC
                                        XJOBSRCH    4A04    $XWTREND    4A54    XCOOL       4B0C    XWARM       4B44
                                        XJCLSCAN    4C0C    XTERMSMF    5828    HASPXTHW    5870    HASPLOG     58E4
                                        $PITABLE    66EC
  HASPWTR     6728     649
  HASPPRPU    6D78    2B88
                                        HASPHOPE    6D78    $#ADD       73CE    $#REM       74F0    $#GET       75FC
                                        $#PUT       7806    $#LOC       789C    $#CAN       78CC    $JOT        7AD8
                                        HASPPR      8230    HASPPU      8230
  HASPACCT    9900     168
  IEFUJP      9A68       4
  HASPMISC    9A70     AC8
                                        HASPVPRG    9A70    HASPCKPT    9A78    $JITTRAK    9B50    $JOTTRAK    9B57
                                        $JOBQUE     9B60    $HASPJIT    A218
  HASPCON     A538     DF0
                                        $WQUEBUF    A538    HASPCBUF    A5E4    WCNLSTBL    A754    $HASPWTO    A75C
                                        $WTOECB     AA48    $WCOMRES    AA68    $MGCRSVC    AA6C    $WTOSVC     ADC6
                                        $WTOSVC2    AF2C    $TSOCOMM    B16A    HASPTSOS    B1D8    WTOTCBA     B270
  HASPCOMM    B328     13C
                                        $PWTRECB    B42C    $PSMFECB    B438    $ACCTECB    B440    $WTOPECB    B444
  HASPBLKS    B468    2FA0
                                        $INRDCT     B650    $LNEDCT     B9E0    $RMTDCT     B9E0    $OLAYDCT    BB48
                                        $OREPS      E3D0
  HASPINIT    E408    82C0
                                        $1STOACE    E408    HASPINGO    EEC8
  HASPINTF   166C8     3F8
                                        $ATTNXIT   166C8    XSTATUS    16750    $WTOXIT    16840    WUCMSVE3   168C8
                                        $LINKXIT   168D8    $XCTLXIT   168E8    $POSTECB   16A1C
  HASPOTAB   16AC0      D0
  HASPRTAM   16B90      00




  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

        8            $EXCPSVC        HASPXEQ                        C            XJCLSCAN        HASPXEQ
       10            $MGCRSVC        HASPCON                       14            $WTOSVC         HASPCON
       18            $WTOSVC2        HASPCON                       24            XTERMSMF        HASPXEQ
       28            $TSOCOMM        HASPCON                       F8            $JOT            HASPPRPU
      414            HASPNUC2        HASPNUC2                     418            HASPNUC2        HASPNUC2
      C00            HASPNUC2        HASPNUC2                     C20            HASPNUC2        HASPNUC2
      C38            HASPNUC2        HASPNUC2                     C40            HASPNUC2        HASPNUC2
      C88            HASPNUC2        HASPNUC2                     9A0            HASPCBUF        HASPCON
      9A4            HASPCON         HASPCON                      B78            $ACCTECB        HASPCOMM
      C18            HASPINGO        HASPINIT                     C34            $WCOMRES        HASPCON
      EC0            HASPXEQ         HASPXEQ                      EF4            HASPXEQ         HASPXEQ
      F70            HASPXEQ         HASPXEQ                      FA4            HASPXEQ         HASPXEQ
     1020            HASPXEQ         HASPXEQ                     1054            HASPXEQ         HASPXEQ
     10D0            HASPXTHW        HASPXEQ                     1104            HASPXTHW        HASPXEQ
     1130            HASPRDR         HASPRDR                     1164            HASPRDR         HASPRDR
     11F0            HASPRDR         HASPRDR                     1224            HASPRDR         HASPRDR
     12B0            HASPRDR         HASPRDR                     12E4            HASPRDR         HASPRDR
     1370            HASPRDR         HASPRDR                     13A4            HASPRDR         HASPRDR
     1430            HASPRDR         HASPRDR                     1464            HASPRDR         HASPRDR
     14F0            HASPRDR         HASPRDR                     1524            HASPRDR         HASPRDR
     15B0            HASPRDR         HASPRDR                     15E4            HASPRDR         HASPRDR
     1670            HASPHOPE        HASPPRPU                    16A4            HASPHOPE        HASPPRPU
     1730            HASPPR          HASPPRPU                    1764            HASPPR          HASPPRPU
     1978            HASPPR          HASPPRPU                    19AC            HASPPR          HASPPRPU
     1BC0            HASPPU          HASPPRPU                    1BF4            HASPPU          HASPPRPU
     1E10            HASPLOG         HASPXEQ                     1E44            HASPLOG         HASPXEQ
     1E68            HASPCOMM        HASPCOMM                    1E9C            HASPCOMM        HASPCOMM
     1F60            HASPTSOS        HASPCON                     1F94            HASPTSOS        HASPCON
     1FB8            HASPVPRG        HASPMISC                    1FEC            HASPVPRG        HASPMISC
     2010            HASPCKPT        HASPMISC                    2044            HASPCKPT        HASPMISC
     25F8            HASPNUC         HASPNUC                     24C0            $1STOACE        HASPINIT
     24C8            HASPOTAB        HASPOTAB                    24CC            $OLAYDCT        HASPBLKS
     2754            $OREPS          HASPBLKS                    3440            $COMMPCE        HASPNUC
     3444            XWARM           HASPXEQ                     3DF4            $LOGPCE         HASPNUC
     3DF8            $CKPTPCE        HASPNUC                     3DFC            $XTHPCE         HASPNUC
     4BFC            $XTHPCE         HASPNUC                     3E04            $EXECPCE        HASPNUC
     4BF0            $EXECPCE        HASPNUC                     3F50            $INRDCT         HASPBLKS
     43DC            HASP            HASPNUC                     4CA0            HASP            HASPNUC
     4BD4            $COMMPCE        HASPNUC                     58FC            $LOGPCE         HASPNUC
     58F8            $XTHPCE         HASPNUC                     58F4            $EXECPCE        HASPNUC
     5900            $WQUEBUF        HASPCON                     5904            HASPCON         HASPCON
     7A88            $CKPTPCE        HASPNUC                     9770            $CKPTPCE        HASPNUC
     9A58            HASP            HASPNUC                     9A5C            IEFUJP          IEFUJP
     9A64            $HASPECB        HASPNUC                     9B29            $JOT            HASPPRPU
     9A9C            $HASPECB        HASPNUC                     B260            HASP            HASPNUC
     B2F0            $LOGPCE         HASPNUC                     B2F8            $COMMPCE        HASPNUC
     B2FC            $WRESERV        HASPNUC                     B304            XJOBSRCH        HASPXEQ
     B308            XJOBSRC2        HASPXEQ                     B30C            $CMBWECB        HASPNUC
     B310            $TSOSPCE        HASPNUC                     B414            $CKPTPCE        HASPNUC
     B418            $ALSTATB        HASPNUC                     B41C            $MLLMPCE        HASPNUC
     B420            $PITABLE        HASPXEQ                     B424            $EXECPCE        HASPNUC
     B428            $XTHPCE         HASPNUC                     B448            WTOTCBA         HASPCON

  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION

     B44C            $WTOECB         HASPCON                     B450            WCNLSTBL        HASPCON
     B458            $#CAN           HASPPRPU                    B45C            $RDRPCE         HASPXEQ
     B460            XWARM           HASPXEQ                    10310            $IOAPPEN        HASPNUC
    103C0            $COMMPCE        HASPNUC                    103D4            $XWTREND        HASPXEQ
    103E8            $ATTNXIT        HASPINTF                   103EC            $WTOXIT         HASPINTF
    103F0            $LINKXIT        HASPINTF                   103F4            $XCTLXIT        HASPINTF
    10544            HASPRDR         HASPRDR                    1054C            HASPXEQ         HASPXEQ
    10554            HASPWTR         HASPWTR                    10644            HASPWTR         HASPWTR
    1055C            HASPPRPU        HASPPRPU                   10564            HASPACCT        HASPACCT
    10658            HASPACCT        HASPACCT                   1056C            HASPMISC        HASPMISC
    10574            HASPCON         HASPCON                    10594            HASPINTF        HASPINTF
    10268            HASPNUC         HASPNUC                    1052C            HASPNUC         HASPNUC
    1053C            HASPNUC         HASPNUC                    1053C            $HNUCEND        HASPNUC
    1053C            HASPNUC2        HASPNUC2                    FD19            $HASPJIT        HASPMISC
     FD91            $HASPJIT        HASPMISC                   10604            $HASPJIT        HASPMISC
    10634            WUCMSVE3        HASPINTF                   10638            XSTATUS         HASPINTF
    1063C            $EXECPCE        HASPNUC                    10640            $PITABLE        HASPXEQ
    10648            $PWTRECB        HASPCOMM                   1064C            $WTOPECB        HASPCOMM
    10650            $HASPWTO        HASPCON                    10254            HASPBLKS        HASPBLKS
    10270            HASPBLKS        HASPBLKS                   1027C            HASPBLKS        HASPBLKS
    10284            HASPBLKS        HASPBLKS                   10288            HASPBLKS        HASPBLKS
    1028C            HASPBLKS        HASPBLKS                   10290            HASPBLKS        HASPBLKS
    10294            HASPBLKS        HASPBLKS                   10298            HASPBLKS        HASPBLKS
    102A4            HASPBLKS        HASPBLKS                   102A8            HASPBLKS        HASPBLKS
    102AC            HASPBLKS        HASPBLKS                   102B0            HASPBLKS        HASPBLKS
    102B4            HASPBLKS        HASPBLKS                   102F8            HASPBLKS        HASPBLKS
    102FC            HASPBLKS        HASPBLKS                   10300            HASPBLKS        HASPBLKS
    10584            HASPBLKS        HASPBLKS                   10600            HASPBLKS        HASPBLKS
    10624            HASPBLKS        HASPBLKS                    FD39            $JOT            HASPPRPU
     FDB9            $JOT            HASPPRPU                    E40C            $HASPECB        HASPNUC
     E96C            $HASPECB        HASPNUC                     EF5C            HASPCOMM        HASPCOMM
    1057C            HASPCOMM        HASPCOMM                    EF60            $ALSTATB        HASPNUC
    102F0            $ALSTATB        HASPNUC                     EF64            $#CAN           HASPPRPU
    1029C            $OROLLAD        HASPNUC                     FCF9            $JOBQUE         HASPMISC
     FD69            $JOBQUE         HASPMISC                   10250            $JOBQUE         HASPMISC
    10258            $JOBQUE         HASPMISC                   1025C            $JOBQUE         HASPMISC
    10264            $JOBQUE         HASPMISC                   102C4            $JOBQUE         HASPMISC
    102C8            $JOBQUE         HASPMISC                   1026C            $ABEND          HASPNUC2
    10278            HASPOTAB        HASPOTAB                   10534            HASPOTAB        HASPOTAB
    10628            HASPOTAB        HASPOTAB                   102A0            $OLASYNC        HASPNUC2
    102B8            $JITTRAK        HASPMISC                   102BC            $JOTTRAK        HASPMISC
    102F4            $TEDDATA        HASPNUC2                   10654            WTOTCBA         HASPCON
    1065C            $PSMFECB        HASPCOMM                   16738            HASP            HASPNUC
    168C0            HASP            HASPNUC                    16924            HASP            HASPNUC
    168AC            $WTOSVC         HASPCON                    16978            $MGCRSVC        HASPCON
    169EC            XJCLSCAN        HASPXEQ
 ENTRY ADDRESS       00
 TOTAL LENGTH     16B90





























































************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************










          ASP JOB NO. = 0026                                     DATE = 78.240




//P06LHASP JOB 1,'P06LHASP HASP 4',MSGLEVEL=(1,1),CLASS=A,MSGCLASS=A




          ELAPSED TIME ON MAIN = ASP1     = 000.02, START TIME = 20.03.47

          DDNAME = SYSMSG                     PRINTED ON PR1     , LINES = 000303
          DDNAME = SYSPRINT                   PRINTED ON PR1     , LINES = 000210
          LINES OUTPUT FOR THIS JOB = 000513

       CARDS FROM MAIN FOR THIS JOB = NONE



























************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
************************************************************************************************************************
